diff --git a/ai/ai-cheating.lua b/ai/ai-cheating.lua index 53735319..aaf8a786 100644 --- a/ai/ai-cheating.lua +++ b/ai/ai-cheating.lua @@ -9,7 +9,7 @@ EXTRA_SUMMON = 1 EXTRA_DRAW = 1 LP_RECOVER = 1000 -GlobalCheating = 1 +GlobalCheating = true math.randomseed( require("os").time() ) function OnStartOfDuel() diff --git a/ai/ai-exodialib.lua b/ai/ai-exodialib.lua deleted file mode 100644 index 499f8ca5..00000000 --- a/ai/ai-exodialib.lua +++ /dev/null @@ -1,647 +0,0 @@ ---[[ -ai-exodialib.lua - -Author: Percival18 -Version: 1.0 -Website: http://www.ygopro.co - -To be used with AI_ExodiaLib.ydk ---]] - -local GlobalActivateID = 0 -local GlobalControlsLibrary = false -math.randomseed( require("os").time() ) - ---- OnStartOfDuel --- --- Called at start of duel. --- You can put stuff like gl hf, taunts, copyright messages in here. --- --- Parameters: --- (none) --- --- Return: --- (none) -function OnStartOfDuel() - AI.Chat("PLEASE USE THE DECK AI_ExodiaLib.ydk") -end - ---- OnSelectOption() --- --- --- Called when AI has to choose an option --- Example card(s): Elemental HERO Stratos --- --- Parameters: --- options = table of available options, this is one of the strings from the card database (str1, str2, str3, ..) --- --- Return: index of the selected option -function OnSelectOption(options) - print("OnSelectOption available options:") - for i=1,#options do - print(i, options[i]) - end - - -- Example implementation: pick one of the available options randomly - return math.random(#options) -end - - ---- OnSelectEffectYesNo() --- --- --- Called when AI has to decide whether to activate a card effect --- --- Parameters: --- id = card id of the effect --- --- Return: --- 1 = yes --- 0 = no -function OnSelectEffectYesNo(id) - -- Example implementation: always return yes - return 1 -end - - ---- OnSelectYesNo() --- --- --- Called when AI has to decide something --- --- Parameters: --- description_id = id of the text dialog that is normally shown to the player --- --- The descriptions can be found in strings.conf --- For example, description id 30 = 'Replay, do you want to continue the Battle?' --- --- Return: --- 1 = yes --- 0 = no --- -1 = let the ai decide -function OnSelectYesNo(description_id) - -- Example implementation: continue attacking, let the ai decide otherwise - if description_id == 30 then - return 1 - else - return -1 - end -end - - ---- OnSelectPosition --- --- --- Called when AI has to select the monster position. --- --- Parameters (2): --- id = card id --- available = available positions --- --- Return: the position ---[[ -From constants.lua -POS_FACEUP_ATTACK =0x1 -POS_FACEDOWN_ATTACK =0x2 -POS_FACEUP_DEFENCE =0x4 -POS_FACEDOWN_DEFENCE =0x8 ---]] -function OnSelectPosition(id, available) - local result = 0 - local band = bit32.band --assign bit32.band() to a local variable - - print("OnSelectPosition",id,available) - - --Example - if id == 19665973 then --is this card battle fader? - --always put battle fader in def position - result = POS_FACEUP_DEFENCE - else - -- default is attack position - result = POS_FACEUP_ATTACK - end - - -- check if the selected position is valid - print("is the position valid?", band(result,available)) - if band(result,available) == 0 then - --invalid position! find a valid value - print("invalid position! find a valid value") - if band(POS_FACEUP_ATTACK,available) > 0 then - result = POS_FACEUP_ATTACK - elseif band(POS_FACEUP_DEFENCE,available) > 0 then - result = POS_FACEUP_DEFENCE - elseif band(POS_FACEDOWN_DEFENCE,available) > 0 then - result = POS_FACEDOWN_DEFENCE - else - result = POS_FACEDOWN_ATTACK - end - end - - return result -end - - ---- OnSelectTribute --- --- --- Called when AI has to tribute monster(s). --- Example card(s): Caius the Shadow Monarch, Beast King Barbaros, Hieratic --- --- Parameters (3): --- cards = available tributes --- minTributes = minimum number of tributes --- maxTributes = maximum number of tributes --- --- Return: --- result = table containing tribute indices -function OnSelectTribute(cards,minTributes, maxTributes) - local result = {} - - print("OnSelectTribute",minTributes,maxTributes) - - -- Example implementation: always choose the mimimum amount of tributes and select the tributes with lowest attack - - --copy tributes to a temp table - local tributes = {} - for i=1,#cards do - tributes[i] = {attack=cards[i].attack, index=i} - end - --sort table by attack (ascending) - table.sort(tributes, function(a,b) return a.attack 0 then - --yes, activate solemn warning - return 1,i - end - end - end - --is the AI trying to summon? - c = AI.GetAIMonsterZones() - for j=1,#c do - if c[j] ~= false then - if bit32.band(c[j].status,STATUS_SUMMONING) > 0 then - --yes, do not activate solemn warning on your own cards - return 0,0 - end - end - end - --we should not negate cards from the AI - --are we going to negate a card from the player? - if only_chains_by_player then - return 1,i - end - else - --we should not chain to cards from the AI - --are we going to chain to a card from the player? - if only_chains_by_player then - return 1,i - end - end - end - - -- Example: always chain the first available card - return result,index -end - - ---- OnSelectCard --- --- --- Called when AI has to select a card. Like effect target or attack target --- Example card(s): Caius the Shadow Monarch, Chaos Sorcerer, Elemental HERO The Shining --- --- Parameters: --- cards = table of cards to select --- minTargets = how many you must select min --- maxTargets = how many you can select max --- --- Return: --- result = table containing target indices -function OnSelectCard(cards, minTargets, maxTargets) - local result = {} - if GlobalActivateID == 89997728 then --toon table of contents - GlobalActivateID = 0 - for i=1,#cards do - if cards[i].id == 89997728 then -- find toon table of contents - result[1]=i - return result - end - end - elseif GlobalActivateID == 98645731 then --duality - GlobalActivateID = 0 - if GlobalControlsLibrary == false then - --ai does not control royal magic library, search for it - for i=1,#cards do - if cards[i].id == 70791313 then - result[1]=i - return result - end - end - else - --ai not controls royal magic library, search for a spell card - for i=1,#cards do - if bit32.band(cards[i].type, TYPE_SPELL) > 0 then - result[1]=i - return result - end - end - end - elseif GlobalActivateID == 85852291 then --mallet - GlobalActivateID = 0 - if GlobalControlsLibrary == false then - for i=1,maxTargets do - result[i]=i - end - end - for i=1,#cards do - if bit32.band(TYPE_MONSTER,cards[i].type) > 0 then - result[#result+1] = i - end - end - if #result < minTargets then - for i=1,maxTargets do - result[i]=i - end - end - return result - end - - -- Example implementation: always choose the mimimum amount of targets and select the index of the first available targets - if #result < minTargets then - for i=1,minTargets do - result[i]=i - end - end - - return result -end - ---- OnSelectBattleCommand() --- --- --- Called when AI can battle --- --- Parameters: --- cards = table of cards that can attack --- --- Return (2): --- execute_attack = should AI attack or not --- 1 = yes --- 0 = no --- index = index of the card to attack with -function OnSelectBattleCommand(cards) - print("OnSelectBattleCommand") - local execute_attack = 1 - local index = 1 - - local function getWeakestAttackerIndex() - local lowestIndex = 1 - local lowestAttack = cards[1].attack - for i=2,#cards do - if cards[i].attack < cards[lowestIndex].attack then - lowestIndex = i - lowestAttack = cards[i].attack - end - end - - return lowestIndex - end - - -- Example implementation: always attack if possible, always lowest attack first - if #cards > 0 then - execute_attack = 1 - index = getWeakestAttackerIndex() - else - execute_attack = 0 - --index does not matter in this case - index = 0 - end - - return execute_attack,index -end - - ---- OnSelectInitCommand() --- --- --- Called when the system is waiting for the AI to play a card. --- This is usually in Main Phase or Main Phase 2 --- --- Parameters (3): --- cards = a table containing all the cards that the ai can use --- cards.summonable_cards = for normal summon --- cards.spsummonable_cards = for special special summon --- cards.repositionable_cards = for changing position --- cards.monster_setable_cards = monster cards for setting --- cards.st_setable_cards = spells/traps for setting --- cards.activatable_cards = for activating --- to_bp_allowed = is entering battle phase allowed? --- to_ep_allowed = is entering end phase allowed? --- --- Each card object has the following fields: --- card.id --- card.type --Refer to /script/constant.lua for a list of card types --- card.attack --- card.defense --- card.base_attack --- card.base_defense --- card.level --- card.rank --- card.race --monster type --- card.attribute --- card.position --- card.setcode --indicates the archetype --- card.location --Refer to /script/constant.lua for a list of locations --- card.xyz_material_count --number of material attached --- card.xyz_materials --table of cards that are xyz material --- card.owner --1 = AI, 2 = player --- card.status --Refer to /script/constant.lua for a list of statuses --- --- sample usage --- if(cards.activatable_cards[i].xyz_material_count > 0) then --- local xyzmat = cards.activatable_cards[i].xyz_materials --- for j=1,#xyzmat do --- print("material " .. j .. " = " .. xyzmat[j].id) --- end --- end --- --- Return: --- command = the command to execute --- index = index of the card to use --- --- Here are the available commands -COMMAND_LET_AI_DECIDE = -1 -COMMAND_SUMMON = 0 -COMMAND_SPECIAL_SUMMON = 1 -COMMAND_CHANGE_POS = 2 -COMMAND_SET_MONSTER = 3 -COMMAND_SET_ST = 4 -COMMAND_ACTIVATE = 5 -COMMAND_TO_NEXT_PHASE = 6 -COMMAND_TO_END_PHASE = 7 -function OnSelectInitCommand(cards, to_bp_allowed, to_ep_allowed) - --[[ - print("OnSelectInitCommand") - print("#cards.summonable_cards = " .. #cards.summonable_cards) - print("#cards.spsummonable_cards = " .. #cards.spsummonable_cards) - print("#cards.repositionable_cards = " .. #cards.repositionable_cards) - print("#cards.monster_setable_cards = " .. #cards.monster_setable_cards) - print("#cards.st_setable_cards = " .. #cards.st_setable_cards) - print("#cards.activatable_cards = " .. #cards.activatable_cards) - --]] - - local summon = cards.summonable_cards - local activate = cards.activatable_cards - local cardid = 0 - - for i=1,#summon do - if summon[i].id == 70791313 then --royal magic library - return COMMAND_SUMMON,i - end - end - - for i=1,#activate do - cardid = activate[i].id - if cardid == 39910367 then --endymion - return COMMAND_ACTIVATE,i - end - end - - for i=1,#activate do - cardid = activate[i].id - if cardid == 70791313 then --royal magic library - return COMMAND_ACTIVATE,i - end - end - for i=1,#activate do - cardid = activate[i].id - if cardid == 89997728 then --toon table of contents - GlobalActivateID = 89997728 - return COMMAND_ACTIVATE,i - end - end - for i=1,#activate do - cardid = activate[i].id - if cardid == 39701395 then --cards of consonance - return COMMAND_ACTIVATE,i - end - end - for i=1,#activate do - cardid = activate[i].id - if cardid == 38120068 then --trade-in - return COMMAND_ACTIVATE,i - end - end - - local mzones = AI.GetAIMonsterZones() - GlobalControlsLibrary = false - for i=1,#mzones do - if mzones[i] ~= false then - if mzones[i].id == 70791313 then - GlobalControlsLibrary = true - end - end - end - - for i=1,#activate do - cardid = activate[i].id - if cardid == 98645731 then --pot of duality - GlobalActivateID = 98645731 - end - end - - for i=1,#activate do - cardid = activate[i].id - if cardid == 85852291 then --magical mallet - GlobalActivateID = 85852291 - return COMMAND_ACTIVATE,i - end - end - - for i=1,#activate do - cardid = activate[i].id - if cardid == 15259703 then --toon world - if GlobalControlsLibrary then - return COMMAND_ACTIVATE,i - end - else - return COMMAND_ACTIVATE,i - end - end - - --go to end phase - return COMMAND_TO_END_PHASE,1 -end \ No newline at end of file diff --git a/ai/ai-template.lua b/ai/ai-template.lua old mode 100755 new mode 100644 index d2567a23..c5113a86 --- a/ai/ai-template.lua +++ b/ai/ai-template.lua @@ -2,18 +2,23 @@ ai-template.lua Author: Percival18 -Version: 0.9.0 -Website: http://www.ygopro.co +Version: 0.9.1 +Website: https://www.ygopro.co -To be used with ygopro percy 1.033.7 and up. For help on how to use this file please read the comments thoroughly. +To be used with ygopro percy 1.033.A and up. For help on how to use this file please read the comments thoroughly. --- What's new --- +0.9.1 +-New functions +card:is_public() +AI.GetCardName(id) 0.9.0: -New functions AI.GetLastSummonedCards() AI.GetScriptFromCardObject(ai_card) AI.GetCardObjectFromScript(script_card) card.extra_attack_count +Fixed problems with multi tribute effects 0.8.9: -Added OnSelectChainOrder() 0.8.8: @@ -100,6 +105,7 @@ AI.GetAIMainDeck() AI.GetLastSummonedCards() --The last card(s) that were successfully summoned on the field with event code EVENT_SUMMON_SUCCESS, EVENT_SPSUMMON_SUCCESS or EVENT_SPSUMMON_SUCCESS AI.GetScriptFromCardObject(ai_card) --convert ai card object to script card AI.GetCardObjectFromScript(script_card) --convert script card to ai card +AI.GetCardName(id) --get name from card id. Return empty string if card not found. --Sample usage local cards = AI.GetOppMonsterZones() diff --git a/ai/ai.lua b/ai/ai.lua index 80316e67..cfe234a6 100644 --- a/ai/ai.lua +++ b/ai/ai.lua @@ -1,4 +1,4 @@ -Version = "0.33" +Version = "0.34" Experimental = false --[[ @@ -15,7 +15,7 @@ Experimental = false http://www.ygopro.co/Forum/tabid/95/g/posts/t/7877/AI-Updates Contributors: ytterbite, Sebrian, Skaviory, francot514 - Optional decks: Yeon, Satone, rothayz, Ildana, Iroha, Postar, Nachk + Optional decks: Yeon, Satone, rothayz, Ildana, Iroha, Postar, Nachk, Xaddgx You can find and download optional decks here: http://www.ygopro.co/Forum/tabid/95/g/posts/t/7877/AI-Updates @@ -47,7 +47,8 @@ Experimental = false ]] -GlobalCheating = 0 +GlobalCheating = false +TRASHTALK = true -- some decks might comment their actions. Set to false, if you don't like that EXTRA_DRAW = 0 EXTRA_SUMMON = 0 LP_RECOVER = 0 @@ -103,6 +104,10 @@ require("ai.decks.Boxer") require("ai.decks.Monarch") require("ai.decks.MegaMonarch") require("ai.decks.Kozmo") +require("ai.decks.Lightsworn") +require("ai.decks.DDD") +require("ai.decks.GladBeast") +requireoptional("ai.decks.Majespecter") requireoptional("ai.decks.Spellbook") requireoptional("ai.decks.X-Saber") requireoptional("ai.decks.Cth") diff --git a/ai/decks/Blackwing.lua b/ai/decks/Blackwing.lua index b7d812ca..f95f171a 100644 --- a/ai/decks/Blackwing.lua +++ b/ai/decks/Blackwing.lua @@ -354,7 +354,8 @@ function SummonNothung(mode) end function HawkJoeFilter(c) return BlackwingSynchroFilter(c) - and FilterStatus(c,STATUS_PROC_COMPLETE) + and FilterRace(c,RACE_WINDBEAST) + and FilterRevivable(c) end function SummonHawkJoe(mode) if mode == 1 and WindaCheck() @@ -437,8 +438,7 @@ function SetVayu() end function RftDDFilter(c) return FilterType(c,TYPE_MONSTER) - and (not FilterStatus(c,STATUS_REVIVE_LIMIT) - or FilterStatus(c,STATUS_PROC_COMPLETE)) + and FilterRevivable(c) end function UseRftDD() return CardsMatchingFilter(AIBanish(),RftDDFilter)>2 @@ -466,7 +466,7 @@ function SummonBlackwing(c) end function ArmedWingFilter(c,source) return BattleTargetCheck(c,source) - and FilterPosition(c,POS_DEFENCE) + and FilterPosition(c,POS_DEFENSE) and (FilterPrivate(c) or c.defense0 and #targets>1 + if prio and #targets>1 and Duel.GetTurnPlayer()==1-player_ai and UnchainableCheck(53567095) then return true end - if Duel.GetCurrentPhase()==PHASE_BATTLE + if IsBattlePhase() and Duel.GetTurnPlayer()==1-player_ai then local aimon,oppmon = GetBattlingMons() @@ -1087,7 +1087,7 @@ function BlackwingPosition(id,available) for i=1,#BlackwingDef do if BlackwingDef[i]==id then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end return result diff --git a/ai/decks/Boxer.lua b/ai/decks/Boxer.lua index 618a3403..e716e192 100644 --- a/ai/decks/Boxer.lua +++ b/ai/decks/Boxer.lua @@ -792,11 +792,11 @@ function VeilFilter(c,source) and (FilterPosition(c,POS_FACEUP_ATTACK) and FilterAttackMin(c,atk) and AI.GetPlayerLP(1)-c.attack+atk>0 - or FilterPosition(c,POS_DEFENCE) + or FilterPosition(c,POS_DEFENSE) and FilterPublic(c) and FilterDefenseMin(c,atk) and AI.GetPlayerLP(1)-c.defense+atk>0 - or FilterPosition(c,POS_DEFENCE) + or FilterPosition(c,POS_DEFENSE) and FilterPrivate(c) and AI.GetPlayerLP(1)>1000) end @@ -879,7 +879,7 @@ function BoxerPosition(id,available) for i=1,#BoxerDef do if BoxerDef[i]==id then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end -- add OnSelectPosition logic here diff --git a/ai/decks/Bujin.lua b/ai/decks/Bujin.lua index 0f2f6f80..e290eb67 100644 --- a/ai/decks/Bujin.lua +++ b/ai/decks/Bujin.lua @@ -182,7 +182,7 @@ function UseRegaliaGrave() GlobalCardMode=2 return true end - if Duel.GetCurrentPhase() == PHASE_BATTLE and HasID(AIGrave(),68601507,true) + if IsBattlePhase() and HasID(AIGrave(),68601507,true) and not HasID(AIHand(),68601507,true) and not HasID(AIHand(),37742478,true) then local source = Duel.GetAttacker() @@ -196,9 +196,9 @@ function UseRegaliaGrave() and (source:GetAttack() >= target:GetAttack() and source:GetAttack() <= target:GetBaseAttack()*2 and source:IsPosition(POS_FACEUP_ATTACK) - or source:GetDefence() >= target:GetAttack() - and source:GetDefence() < target:GetBaseAttack()*2 - and source:IsPosition(POS_FACEUP_DEFENCE)) + or source:GetDefense() >= target:GetAttack() + and source:GetDefense() < target:GetBaseAttack()*2 + and source:IsPosition(POS_FACEUP_DEFENSE)) and target:IsPosition(POS_FACEUP_ATTACK) and not source:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) and not target:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) @@ -356,7 +356,7 @@ if DeckCheck(DECK_BUJIN) then return {COMMAND_SPECIAL_SUMMON,CurrentIndex} end - if HasID(SpSummonable,46772449) and DeckCheck(DECK_BUJIN) and SummonBelzebuth() then + if HasID(SpSummonable,46772449,SummonBelzebuth) and DeckCheck(DECK_BUJIN) then return {COMMAND_SPECIAL_SUMMON,IndexByID(SpSummonable,46772449)} end if HasID(SpSummonable,01855932) and SummonKagutsuchi() then @@ -611,7 +611,7 @@ function ChainHare() return true end end - if Duel.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then local source = Duel.GetAttacker() local target = Duel.GetAttackTarget() if source and target then @@ -657,9 +657,9 @@ function ChainCrane() and (source:GetAttack() >= target:GetAttack() and source:GetAttack() <= target:GetBaseAttack()*2 and source:IsPosition(POS_FACEUP_ATTACK) - or source:GetDefence() >= target:GetAttack() - and source:GetDefence() < target:GetBaseAttack()*2 - and source:IsPosition(POS_FACEUP_DEFENCE)) + or source:GetDefense() >= target:GetAttack() + and source:GetDefense() < target:GetBaseAttack()*2 + and source:IsPosition(POS_FACEUP_DEFENSE)) and target:IsPosition(POS_FACEUP_ATTACK) and not source:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) and not target:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) @@ -690,9 +690,9 @@ function ChainHonest() if target:IsControler(player_ai) and (source:GetAttack() >= target:GetAttack() and source:IsPosition(POS_FACEUP_ATTACK) - or source:GetDefence() >= target:GetAttack() - and source:GetDefence() < target:GetAttack()+source:GetAttack() - and source:IsPosition(POS_FACEUP_DEFENCE)) + or source:GetDefense() >= target:GetAttack() + and source:GetDefense() < target:GetAttack()+source:GetAttack() + and source:IsPosition(POS_FACEUP_DEFENSE)) and target:IsPosition(POS_FACEUP_ATTACK) and not source:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) and not target:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) @@ -723,9 +723,9 @@ function ChainSinyou() if target:IsControler(player_ai) and (source:GetAttack() >= target:GetAttack() and source:IsPosition(POS_FACEUP_ATTACK) - or source:GetDefence() >= target:GetAttack() - and source:GetDefence() < target:GetAttack()+source:GetAttack() - and source:IsPosition(POS_FACEUP_DEFENCE)) + or source:GetDefense() >= target:GetAttack() + and source:GetDefense() < target:GetAttack()+source:GetAttack() + and source:IsPosition(POS_FACEUP_DEFENSE)) and target:IsPosition(POS_FACEUP_ATTACK) and not source:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) and not target:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) @@ -817,7 +817,7 @@ function BujinOnSelectPosition(id, available) if BujinAtt[i]==id then result=POS_FACEUP_ATTACK end end for i=1,#BujinDef do - if BujinDef[i]==id then result=POS_FACEUP_DEFENCE end + if BujinDef[i]==id then result=POS_FACEUP_DEFENSE end end return result end diff --git a/ai/decks/BurningAbyss.lua b/ai/decks/BurningAbyss.lua index 8280e249..0bccf426 100644 --- a/ai/decks/BurningAbyss.lua +++ b/ai/decks/BurningAbyss.lua @@ -433,7 +433,7 @@ function SummonFortuneTune() return false -- temp end function RepoDante(c) - return FilterPosition(c,POS_DEFENCE) + return FilterPosition(c,POS_DEFENSE) and BattlePhaseCheck() and (#OppMon()==0 or OppGetStrongestAttDef()<=c.attack) and NotNegated(c) @@ -497,7 +497,7 @@ function SummonF0(c,mode) return false end function RepoF0(c) - return FilterPosition(c,POS_DEFENCE) + return FilterPosition(c,POS_DEFENSE) and NotNegated(c) or FilterPosition(c,POS_FACEUP_ATTACK) and Negated(c) @@ -1047,7 +1047,6 @@ function ChainPWWB() then return true end - return false end function ChainFarfa() return CardsMatchingFilter(OppMon(),FarfaFilter)>0 @@ -1356,6 +1355,9 @@ function BAChain(cards) if HasID(cards,71587526) and ChainKarmaCut() then return {1,CurrentIndex} end + if HasID(cards,63356631,ChainPWWB) then + return Chain() + end if HasID(cards,20513882,ChainPainfulEscape) then return Chain() end @@ -1454,12 +1456,12 @@ function BAPosition(id,available) then result=nil else - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end end for i=1,#BADef do - if BADef[i]==id then result=POS_FACEUP_DEFENCE end + if BADef[i]==id then result=POS_FACEUP_DEFENSE end end return result end diff --git a/ai/decks/ChaosDragon.lua b/ai/decks/ChaosDragon.lua index efb5316c..e70759e0 100644 --- a/ai/decks/ChaosDragon.lua +++ b/ai/decks/ChaosDragon.lua @@ -166,8 +166,13 @@ function LylaCond(loc,c) return true end function LuminaCond(loc,c) + if loc == PRIO_TOHAND then + return not HasID(AICards(),c.id,true) + and CardsMatchingFilter(AIGrave(),LighswornMonsterFilter)>0 + and PriorityCheck(AIHand(),PRIO_TOGRAVE)>1 + end if loc == PRIO_TOFIELD then - return not HasID(AIMon(),95503687,true) + return not HasID(AICards(),95503687,true) end return true end @@ -572,7 +577,6 @@ function ChaosDragonOnSelectInit(cards, to_bp_allowed, to_ep_allowed) return {COMMAND_ACTIVATE,CurrentIndex} end if HasIDNotNegated(Activatable,95503687) and UseLumina() then - GlobalCardMode = 1 return {COMMAND_ACTIVATE,CurrentIndex} end if HasIDNotNegated(Activatable,09596126) and UseChaosSorc() then @@ -750,12 +754,10 @@ function DADTarget(cards) end end function LuminaTarget(cards) - if GlobalCardMode == 1 then - GlobalCardMode = nil + if LocCheck(cards,LOCATION_HAND) then return Add(cards,PRIO_TOGRAVE) - else - return Add(cards,PRIO_TOFIELD) end + return Add(cards,PRIO_TOFIELD) end function DanteTarget(cards,c) if bit32.band(c.location,LOCATION_GRAVE)>0 then @@ -1077,7 +1079,7 @@ function ChaosDragonOnSelectPosition(id, available) if ChaosDragonAtt[i]==id then result=POS_FACEUP_ATTACK end end for i=1,#ChaosDragonDef do - if ChaosDragonDef[i]==id then result=POS_FACEUP_DEFENCE end + if ChaosDragonDef[i]==id then result=POS_FACEUP_DEFENSE end end if id == 83531441 then -- Dante if GlobalBPAllowed and Duel.GetCurrentPhase()==PHASE_MAIN1 @@ -1086,7 +1088,7 @@ function ChaosDragonOnSelectPosition(id, available) then result=POS_FACEUP_ATTACK else - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end if id == 61901281 or id == 99234526 then @@ -1094,7 +1096,7 @@ function ChaosDragonOnSelectPosition(id, available) then result=POS_FACEUP_ATTACK else - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end return result diff --git a/ai/decks/ClownShaddoll.lua b/ai/decks/ClownShaddoll.lua deleted file mode 100755 index d06aa9cd..00000000 --- a/ai/decks/ClownShaddoll.lua +++ /dev/null @@ -1,215 +0,0 @@ - -function ClownShaddollStartup(deck) - deck.Init = ClownShaddollInit - deck.Card = ClownShaddollCard - deck.Chain = ClownShaddollChain - deck.EffectYesNo = ClownShaddollEffectYesNo - deck.Position = ClownShaddollPosition - deck.YesNo = ClownShaddollYesNo - deck.BattleCommand = ClownShaddollBattleCommand - deck.AttackTarget = ClownShaddollAttackTarget - deck.AttackBoost = ClownShaddollAttackBoost - deck.Tribute = ClownShaddollTribute - deck.Option = ClownShaddollOption - deck.ChainOrder = ClownShaddollChainOrder - --[[ - deck.Sum - deck.DeclareCard - deck.Number - deck.Attribute - deck.MonsterType - ]] - deck.ActivateBlacklist = ClownShaddollActivateBlacklist - deck.SummonBlacklist = ClownShaddollSummonBlacklist - deck.RepositionBlacklist = ClownShaddollRepoBlacklist - deck.SetBlacklist = ClownShaddollSetBlacklist - deck.Unchainable = ClownShaddollUnchainable - --[[ - - ]] - deck.PriorityList = ClownShaddollPriorityList - -end - -ClownShaddollIdentifier = {06417578,68819554} -- El-Shaddoll Fusion, Performage Damage Juggler - -DECK_CLOWNSHADDOLL = NewDeck("Clown Shaddoll",ClownShaddollIdentifier,ClownShaddollStartup) - - -ClownShaddollActivateBlacklist={ -} -ClownShaddollSummonBlacklist={ -} -ClownShaddollSetBlacklist={ -} -ClownShaddollRepoBlacklist={ -} -ClownShaddollUnchainable={ -} -function ShaddollFilter(c,exclude) - return FilterSet(card,0x109d) - and (exclude == nil or c.id~=exclude) -end -function ShaddollMonsterFilter(c,exclude) - return FilterType(c,TYPE_MONSTER) - and ShaddollFilter(c,exclude) -end -function ShaddollSTFilter(c,exclude) - return FilterType(c,TYPE_SPELL+TYPE_TRAP) - and ShaddollFilter(c,exclude) -end -function PerformageFilter(c,exclude) - return FilterSet(card,0xc6) - and (exclude == nil or c.id~=exclude) -end -function PerformageMonsterFilter(c,exclude) - return FilterType(c,TYPE_MONSTER) - and PerformageFilter(c,exclude) -end - -ClownShaddollPriorityList={ ---[12345678] = {1,1,1,1,1,1,1,1,1,1,XXXCond}, -- Format - --- ClownShaddoll - -[37445295] = {6,3,3,1,7,1,6,1,1,1,FalconCond}, -- Shaddoll Falcon -[04939890] = {5,2,2,1,5,4,5,4,1,1,HedgehogCond}, -- Shaddoll Hedgehog -[30328508] = {4,1,5,1,9,1,9,1,1,1,SquamataCond}, -- Shaddoll Squamata -[77723643] = {3,1,4,1,7,1,7,1,1,1,DragonCond}, -- Shaddoll Dragon -[03717252] = {2,1,6,1,5,1,8,1,1,1,BeastCond}, -- Shaddoll Beast - -[67696066] = {1,1,1,1,1,1,1,1,1,1,ClownCond}, -- Performage Trick Clown -[68819554] = {1,1,1,1,1,1,1,1,1,1,JugglerCond}, -- Performage Damage Juggler -[31292357] = {1,1,1,1,1,1,1,1,1,1,HatCond}, -- Performage Hat Tricker - -[41386308] = {1,1,1,1,1,1,1,1,1,1,MathCond}, -- Mathematician -[23434538] = {1,1,1,1,1,1,1,1,1,1}, -- Maxx "C" -[97268402] = {1,1,1,1,1,1,1,1,1,1}, -- Effect Veiler - -[44394295] = {9,5,1,1,1,1,1,1,1,1,ShadFusionCond}, -- Shaddoll Fusion -[06417578] = {8,6,1,1,1,1,1,1,1,1,ElFusionCond}, -- El-Shaddoll Fusion -[04904633] = {4,2,1,1,9,1,9,1,1,1,CoreCond}, -- Shaddoll Core - -[01845204] = {1,1,1,1,1,1,1,1,1,1}, -- Instant Fusion -[12580477] = {1,1,1,1,1,1,1,1,1,1}, -- Raigeki -[81439173] = {1,1,1,1,1,1,1,1,1,1}, -- Foolish Burial -[14087893] = {1,1,1,1,1,1,1,1,1,1}, -- Book of Moon -[29401950] = {1,1,1,1,1,1,1,1,1,1}, -- Bottomless Trap Hole -[29616929] = {1,1,1,1,1,1,1,1,1,1}, -- Traptrix Trap Hole Nightmare -[53582587] = {1,1,1,1,1,1,1,1,1,1}, -- Torrential Tribute -[78474168] = {1,1,1,1,1,1,1,1,1,1}, -- Breakthrough Skill -[05851097] = {1,1,1,1,1,1,1,1,1,1}, -- Vanity's Emptiness - - -[20366274] = {1,1,6,4,2,1,2,1,1,1,ConstructCond}, -- El-Shaddoll Construct -[94977269] = {1,1,7,3,2,1,2,1,1,1,WindaCond}, -- El-Shaddoll Winda -[74822425] = {1,1,1,1,1,1,1,1,1,1,ShekinagaCond}, -- El-Shaddoll Shekinaga -[19261966] = {1,1,1,1,1,1,1,1,1,1,AnoyatilisCond}, -- El-Shaddoll Anoyatilis - -[52687916] = {1,1,1,1,1,1,1,1,1,1}, -- Trishula -[17016362] = {1,1,1,1,1,1,1,1,1,1}, -- Trapeze Magician -[82633039] = {1,1,1,1,6,1,1,1,1,1,CastelCond}, -- Skyblaster Castel -[00581014] = {1,1,1,1,1,1,1,1,1,1}, -- Daigusto Emeral -[00581014] = {1,1,1,1,1,1,1,1,1,1}, -- Emeral -[21044178] = {1,1,1,1,1,1,1,1,1,1}, -- Dweller -[06511113] = {1,1,1,1,1,1,1,1,1,1}, -- Rafflesia -} -function ShadollFusionFilter(c) - return c and c.summon_type and c.previous_location - and bit32.band(c.summon_type,SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL - and bit32.band(c.previous_location,LOCATION_EXTRA)==LOCATION_EXTRA -end -function UseShaddollFusion(c,mode) - if mode == 1 then - if CardsMatchingFilter(OppMon(),ShadollFusionFilter)>0 - then - return true - end - end - if mode == 2 then - end - return false -end -function SummonMathShaddoll(c) -end -function ClownShaddollInit(cards) - local Act = cards.activatable_cards - local Sum = cards.summonable_cards - local SpSum = cards.spsummonable_cards - local Rep = cards.repositionable_cards - local SetMon = cards.monster_setable_cards - local SetST = cards.st_setable_cards - if HasIDNotNegated(Act,44394295,UseShaddollFusion,1) then - return Activate() - end - if HasIDNotNegated(Sum,41386308,SummonMathShaddoll) then - return Summon() - end - return nil -end -function ElFusionTarget(cards,min) -end -function ClownShaddollCard(cards,min,max,id,c) - if id == 06417578 then - return ElFusionTarget(cards,min) - end - return nil -end -GlobalElFusionTargets=nil -function ChainElFusion(c) then - if RemovalCheckCard(c) then - local targets = {} - for i=1,#AIMon() do - local c = AIMon()[i] - if RemovalCheckCard(c) then - targets[#targets+1]=c - end - end - if #targets>0 then GlobalElFusionTargets=targets - return true - end - return false -end -function ClownShaddollChain(cards) - if HasIDNotNegated(cards,06417578,ChainElFusion) then - return true - end - return nil -end -function ClownShaddollEffectYesNo(id,card) -end -function ClownShaddollYesNo(desc) -end -function ClownShaddollTribute(cards,min, max) -end -function ClownShaddollBattleCommand(cards,targets,act) -end -function ClownShaddollAttackTarget(cards,attacker) -end -function ClownShaddollAttackBoost(cards) -end -function ClownShaddollOption(options) -end -function ClownShaddollChainOrder(cards) -end -ClownShaddollAtt={ -} -ClownShaddollDef={ -} -function ClownShaddollPosition(id,available) - result = nil - for i=1,#ClownShaddollAtt do - if ClownShaddollAtt[i]==id - then - result=POS_FACEUP_ATTACK - end - end - for i=1,#ClownShaddollDef do - if ClownShaddollDef[i]==id - then - result=POS_FACEUP_DEFENCE - end - end - return result -end - diff --git a/ai/decks/Constellar.lua b/ai/decks/Constellar.lua index 7155d174..e34c87c5 100644 --- a/ai/decks/Constellar.lua +++ b/ai/decks/Constellar.lua @@ -6,6 +6,7 @@ AddPriority({ [41269771] = {6,2,7,1,6,1,1,1,8,1,AlgiediCond}, -- Algiedi [06353603] = {2,1,4,1,2,1,1,1,1,1,BearCond}, -- FF Bear [78358521] = {9,4,8,1,4,1,1,1,6,2,SombreCond}, -- Sombre +[44635489] = {4,1,4,1,1,1,1,1,3,1,SiatCond}, -- Sombre [35544402] = {1,1,1,1,1,1,1,1,1,1,TwinkleCond}, -- Twinkle [57103969] = {1,1,1,1,1,1,1,1,1,1,TenkiCond}, -- Tenki @@ -245,6 +246,53 @@ function SummonConstellar(c) end return false end +function SiatFilter(c,level) + return ConstellarNonXYZFilter(c) + and FilterLevel(c,level) +end +GlobalSiatLevel = 4 +function UseSiat(c,mode) + if mode == 1 + and CardsMatchingFilter(UseLists(AIMon(),AIGrave()),SiatFilter,5)>0 + and FieldCheck(5) == 1 + then + GlobalSiatLevel = 5 + return true + end + if mode == 2 + and CardsMatchingFilter(UseLists(AIMon(),AIGrave()),SiatFilter,4)>0 + and FieldCheck(4) == 1 + then + GlobalSiatLevel = 4 + return true + end +end +function SummonSiat(c,mode) + if mode == 1 + and HasIDNotNegated(AIHand(),70908596,true) + and not NormalSummonCheck() + then + return true + end + if mode == 2 + and CardsMatchingFilter(AIHand(),SiatFilter,4)>0 + and not NormalSummonCheck() + then + return true + end + if mode == 3 + and CardsMatchingFilter(AIMon(),SiatFilter,5)>0 + and FieldCheck(5)==1 + then + return true + end + if mode == 4 + and CardsMatchingFilter(UseLists(AIMon(),AIGrave()),SiatFilter,4)>0 + and FieldCheck(4)==1 + then + return true + end +end function ConstellarInit(cards) local Act = cards.activatable_cards local Sum = cards.summonable_cards @@ -259,9 +307,15 @@ function ConstellarInit(cards) OPTSet(57103969) return {COMMAND_ACTIVATE,CurrentIndex} end + if HasID(Act,44635489,UseSiat,1) then + return Activate() + end if HasIDNotNegated(Act,70908596) and UseKaus(Act[CurrentIndex]) then return {COMMAND_ACTIVATE,CurrentIndex} end + if HasID(Act,44635489,UseSiat,2) then + return Activate() + end if HasIDNotNegated(Act,34086406,false,545382497) and UseChainConstellar(1) then return {COMMAND_ACTIVATE,CurrentIndex} end @@ -276,6 +330,9 @@ function ConstellarInit(cards) if HasIDNotNegated(SpSum,34086406) and SummonChainConstellar(1) then return {COMMAND_SPECIAL_SUMMON,CurrentIndex} end + if HasID(SpSum,44635489,SummonSiat,1) then + return SpSummon() + end if HasID(SpSum,65367484) and SummonThrasher(1) then return {COMMAND_SPECIAL_SUMMON,CurrentIndex} end @@ -294,6 +351,9 @@ function ConstellarInit(cards) if HasID(SpSum,65367484) and SummonThrasher(2) then return {COMMAND_SPECIAL_SUMMON,CurrentIndex} end + if HasID(SpSum,44635489,SummonSiat,2) then + return SpSummon() + end if HasIDNotNegated(Sum,78364470) and SummonPollux(2) then return {COMMAND_SUMMON,CurrentIndex} end @@ -318,6 +378,12 @@ function ConstellarInit(cards) if HasID(SpSum,65367484) and SummonThrasher(3) then return {COMMAND_SPECIAL_SUMMON,CurrentIndex} end + if HasID(Sum,44635489,SummonSiat,3) then + return Summon() + end + if HasID(Sum,44635489,SummonSiat,4) then + return Summon() + end if HasID(Sum,41269771) and SummonConstellar(Sum[CurrentIndex]) then return {COMMAND_SUMMON,CurrentIndex} end @@ -330,6 +396,7 @@ function ConstellarInit(cards) if HasID(Sum,78358521) and SummonConstellar(Sum[CurrentIndex]) then return {COMMAND_SUMMON,CurrentIndex} end + if HasIDNotNegated(Act,34086406,false,545382498) and UseChainConstellar(3) then return {COMMAND_ACTIVATE,CurrentIndex} end @@ -354,6 +421,9 @@ end function AlgiediTarget(cards) return Add(cards,PRIO_TOFIELD) end +function SiatTarget(cards) + return BestTargets(cards,1,TARGET_PROTECT,FilterLevel,GlobalSiatLevel) +end function ConstellarCard(cards,min,max,id,c) if c then id = c.id @@ -367,6 +437,9 @@ function ConstellarCard(cards,min,max,id,c) if id == 41269771 then return AlgiediTarget(cards) end + if id == 44635489 then + return SiatTarget(cards) + end return nil end function ChainAlgiedi() @@ -409,7 +482,7 @@ ConstellarAtt={ 26329679,31437713, } ConstellarDef={ -72959823, +72959823,44635489, } function ConstellarPosition(id,available) result = nil @@ -420,7 +493,7 @@ function ConstellarPosition(id,available) end end for i=1,#ConstellarDef do - if ConstellarDef[i]==id then result=POS_FACEUP_DEFENCE end + if ConstellarDef[i]==id then result=POS_FACEUP_DEFENSE end end return result end diff --git a/ai/decks/Cth.lua b/ai/decks/Cth.lua index d6e9165c..bf4f7b95 100644 --- a/ai/decks/Cth.lua +++ b/ai/decks/Cth.lua @@ -465,7 +465,7 @@ function CthGetPos(id) if CthAtt[i]==id then return POS_FACEUP_ATTACK end end for i=1,#CthDef do - if CthDef[i]==id then return POS_FACEUP_DEFENCE end + if CthDef[i]==id then return POS_FACEUP_DEFENSE end end return result end diff --git a/ai/decks/DDD.lua b/ai/decks/DDD.lua new file mode 100644 index 00000000..4b763571 --- /dev/null +++ b/ai/decks/DDD.lua @@ -0,0 +1,557 @@ +--[[ +74069667 -- Abyss Ragnarok +19302550 -- Newton +19808608 -- Berformet +72181263 -- Orthros +46796664 -- Copernicus +48210156 -- Night Howling +45206713 -- Swirl Slime +72291412 -- Necro Slime +19580308 -- Lamia +11609969 -- Kepler +02295440 -- One for one +12580477 -- Raigeki +43898403 -- Twin Twister +46372010 -- Gate +73360025 -- Swamp King +05851097 -- Vanity +40605147 -- Solemn Strike +84749824 -- Solemn Warning + +27873305 -- Caesar Ragnarok +82956492 -- D'Arc +74583607 -- Temujin +52687916 -- Trishula +81020646 -- Void Ogre Dragon +50954680 -- Crystal Wing +44852429 -- Siegfried +00987311 -- Alexander +15939229 -- Kali Yuga +71612253 -- Tell +03758046 -- Caesar +]] + +function DDDStartup(deck) + deck.Init = DDDInit + deck.Card = DDDCard + deck.Chain = DDDChain + deck.EffectYesNo = DDDEffectYesNo + deck.Position = DDDPosition + deck.YesNo = DDDYesNo + deck.BattleCommand = DDDBattleCommand + deck.AttackTarget = DDDAttackTarget + deck.AttackBoost = DDDAttackBoost + deck.Tribute = DDDTribute + deck.Option = DDDOption + deck.ChainOrder = DDDChainOrder + --[[ + deck.Sum + deck.DeclareCard + deck.Number + deck.Attribute + deck.MonsterType + ]] + deck.ActivateBlacklist = DDDActivateBlacklist + deck.SummonBlacklist = DDDSummonBlacklist + deck.RepositionBlacklist = DDDRepoBlacklist + deck.SetBlacklist = DDDSetBlacklist + deck.Unchainable = DDDUnchainable + --[[ + + ]] + deck.PriorityList = DDDPriorityList + + DDDRegisterCombos() + +end + + +DDDIdentifier = 11609969 -- DD Savant Kepler + +DECK_DDD = NewDeck("DDD",DDDIdentifier,DDDStartup) + + +DDDActivateBlacklist={ +74069667, -- Abyss Ragnarok +19302550, -- Newton +19808608, -- Berformet +72181263, -- Orthros +46796664, -- Copernicus +48210156, -- Night Howling +45206713, -- Swirl Slime +72291412, -- Necro Slime +19580308, -- Lamia +11609969, -- Kepler +02295440, -- One for one +46372010, -- Gate +73360025, -- Swamp King + +27873305, -- Caesar Ragnarok +82956492, -- D'Arc +74583607, -- Temujin +81020646, -- Void Ogre Dragon +50954680, -- Crystal Wing +44852429, -- Siegfried +00987311, -- Alexander +15939229, -- Kali Yuga +71612253, -- Tell +03758046, -- Caesar +} +DDDSummonBlacklist={ +74069667, -- Abyss Ragnarok +19302550, -- Newton +19808608, -- Berformet +72181263, -- Orthros +46796664, -- Copernicus +48210156, -- Night Howling +45206713, -- Swirl Slime +72291412, -- Necro Slime +19580308, -- Lamia +11609969, -- Kepler + +27873305, -- Caesar Ragnarok +82956492, -- D'Arc +74583607, -- Temujin +52687916, -- Trishula +81020646, -- Void Ogre Dragon +50954680, -- Crystal Wing +44852429, -- Siegfried +00987311, -- Alexander +15939229, -- Kali Yuga +71612253, -- Tell +03758046, -- Caesar +} +DDDSetBlacklist={ +46372010, -- Gate +} +DDDRepoBlacklist={ +} +DDDUnchainable={ +} +function DDDFilter(c,exclude) + local check = true + if exclude then + if type(exclude)=="table" then + check = not CardsEqual(c,exclude) + elseif type(exclude)=="number" then + check = (c.id ~= exclude) + end + end + return FilterSet(c,0x10af) and check +end +function DDDMonsterFilter(c,exclude) + return FilterType(c,TYPE_MONSTER) + and DDDFilter(c,exclude) +end +function DDFilter(c,exclude) + local check = true + if exclude then + if type(exclude)=="table" then + check = not CardsEqual(c,exclude) + elseif type(exclude)=="number" then + check = (c.id ~= exclude) + end + end + return FilterSet(c,0xaf) and check +end +function DDMonsterFilter(c,exclude) + return FilterType(c,TYPE_MONSTER) + and DDFilter(c,exclude) +end +function ContractFilter(c,exclude) + local check = true + if exclude then + if type(exclude)=="table" then + check = not CardsEqual(c,exclude) + elseif type(exclude)=="number" then + check = (c.id ~= exclude) + end + end + return FilterSet(c,0xae) and check +end + +DDDPriorityList={ +--[12345678] = {1,1,1,1,1,1,1,1,1,1,XXXCond}, -- Format + +-- DDD + +[74069667] = {1,1,1,1,1,1,1,1,1,1,AbyssRagCond}, -- Abyss Ragnarok +[19302550] = {1,1,1,1,1,1,1,1,1,1,NewtonCond}, -- Newton +[19808608] = {1,1,1,1,1,1,1,1,1,1,BerformetCond}, -- Berformet +[72181263] = {1,1,1,1,1,1,1,1,1,1,OrthrosCond}, -- Orthros +[46796664] = {1,1,1,1,1,1,1,1,1,1,CopernicusCond}, -- Copernicus +[48210156] = {1,1,1,1,1,1,1,1,1,1,HowlingCond}, -- Night Howling +[45206713] = {1,1,1,1,1,1,1,1,1,1,SwirlCond}, -- Swirl Slime +[72291412] = {1,1,1,1,1,1,1,1,1,1,NecroCond}, -- Necro Slime +[19580308] = {1,1,1,1,1,1,1,1,1,1,LamiaCond}, -- Lamia +[11609969] = {1,1,1,1,1,1,1,1,1,1,KeplerCond}, -- Kepler +[46372010] = {1,1,1,1,1,1,1,1,1,1,GateCond}, -- Gate +[73360025] = {1,1,1,1,1,1,1,1,1,1,SwampCond}, -- Swamp King + +[27873305] = {1,1,1,1,1,1,1,1,1,1,CaesarRagCond}, -- Caesar Ragnarok +[82956492] = {1,1,1,1,1,1,1,1,1,1,DArcCond}, -- D'Arc +[74583607] = {1,1,1,1,1,1,1,1,1,1,TemujinCond}, -- Temujin +[81020646] = {1,1,1,1,1,1,1,1,1,1,}, -- Void Ogre Dragon +[50954680] = {1,1,1,1,1,1,1,1,1,1,}, -- Crystal Wing +[44852429] = {1,1,1,1,1,1,1,1,1,1,SiegfriedCond}, -- Siegfried +[00987311] = {1,1,1,1,1,1,1,1,1,1,AlexanderCond}, -- Alexander +[15939229] = {1,1,1,1,1,1,1,1,1,1,KaliYugaCond}, -- Kali Yuga +[71612253] = {1,1,1,1,1,1,1,1,1,1,TellCond}, -- Tell +[03758046] = {1,1,1,1,1,1,1,1,1,1,CaesarCond}, -- Caesar + +} +function SummonAbyssRag(c,mode) +end +function SummonNewton(c,mode) + return false +end +function SummonBerformet(c,mode) +end +function SummonOrthros(c,mode) +end +function SummonCopernicus(c,mode) +end +function SummonHowling(c,mode) +end +function SummonSwirl(c,mode) +end +function UseSwirlHand(c,mode) +end +function UseSwirlGrave(c,mode) +end +function SummonNecro(c,mode) +end +function UseNecro(c,mode) +end +function SummonLamia(c,mode) +end +function UseLamia(c,mode) +end +function SummonKepler(c,mode) +end +function UseGate(c,mode) +end +function UseSwamp(c,mode) +end +function SummonVoidOgre(c,mode) +end +function SummonCrystalWing(c,mode) +end +function SummonSiegfried(c,mode) +end +function UseSiegfried(c,mode) +end +function SummonAlexander(c,mode) +end +function SummonKaliYuga(c,mode) +end +function UseKaliNuke(c,mode) +end +function UseKaliYuga(c,mode) +end +function SummonTell(c,mode) +end +function UseTell(c,mode) +end +function SummonCaesar(c,mode) +end +function UseCaesar(c,mode) +end + +function ComboPieceCheck(cards,gatevar) + local hasgate = HasIDNotNegated(AICards(),46372010,true,FilterOPT,true) + if gatevar == 2 and not (hasgate and OPTCheck(46372010)) then return false end + if gatevar == 1 and not OPTCheck(46372010) then return false end + local hand = AIHand() + local count = #cards + if gatevar == 0 and hasgate or gatevar == 2 then + count = count -1 + end + for i,v in pairs(cards) do + if HasID(AIHand(),v,true) then + count = count-1 + table.remove(hand,FindID(v,hand,true)[1]) + end + end + return count<=0 +end + +ComboList={} +Combo={} +Combo.__index = Combo +DDDActiveCombo=nil +function Combo.new(cards,gatevar,filter,steps) + local self = setmetatable({},Combo) + self.cards = cards or {} + self.gatevar = gatevar or 0 + self.filter = filter or nil + self.steps = steps or 0 + ComboList[#ComboList+1]=self + print("registered combo: "..#ComboList) + return self +end +function Combo:init() + if ComboPieceCheck(self.cards,self.gatevar) then + DDDActiveCombo=self + self.step = 1 + return self + end + return false +end +function Combo:step() + if self.step2 + and ComboPieceCheck(self.cards,self.gatevar) + end + if step == 2 then + return SpaceCheck()>2 + and ComboPieceCheck(self.cards,self.gatevar) + end + return true +end +--[[DDDComboCommands1= +{ + {COMMAND_ACTIVATE,FindID(46372010,params.activatable_cards,true,GateFilter)}, + {Add(params,PRIO_TOHAND,MissingCardFilter +}]] + +function DDDRegisterCombos() + print("registering combos") + local combo = Combo.new({19580308,45206713,72181263,46796664},2) + combo.filter=DDDComboFilter1 + --combo.commands=DDDComboCommands1 +end + + +function DDDComboCheck(cards) + print("Combo Check") + local Act = cards.activatable_cards + local Sum = cards.summonable_cards + local SpSum = cards.spsummonable_cards + local combo = DDDActiveCombo + if combo then + print("have an active combo") + if combo:checkIntegrity() then + print("integrity intact, continue combo") + return combo:command(Act) + else + print("integrity not intact, cancel combo") + combo = nil + end + end + if combo == nil then + print("no active combo") + for i,v in pairs(ComboList) do + if v:init() then + print("initializing combo "..i) + return v:command(Act) + end + end + end + return nil +end +function DDDInit(cards) + local Act = cards.activatable_cards + local Sum = cards.summonable_cards + local SpSum = cards.spsummonable_cards + local Rep = cards.repositionable_cards + local SetMon = cards.monster_setable_cards + local SetST = cards.st_setable_cards + print("Init") + local ComboOverride,opt = DDDComboCheck(cards) + print(ComboOverride) + print(opt) + if ComboOverride then + print("combo override command:") + print(ComboOverride) + print(opt) + return ComboOverride,opt + end + + return nil +end + +function DDDCard(cards,min,max,id,c) + + return nil +end + +function DDDChain(cards) + + return nil +end +function DDDEffectYesNo(id,card) + + return nil +end +function DDDYesNo(desc) +end +function DDDTribute(cards,min, max) +end +function DDDBattleCommand(cards,targets,act) +end +function DDDAttackTarget(cards,attacker) +end +function DDDAttackBoost(cards) +end +function DDDOption(options) +end +function DDDChainOrder(cards) +end +DDDAtt={ +27873305, -- Caesar Ragnarok +82956492, -- D'Arc +74583607, -- Temujin +52687916, -- Trishula +81020646, -- Void Ogre Dragon +50954680, -- Crystal Wing +44852429, -- Siegfried +00987311, -- Alexander +15939229, -- Kali Yuga +71612253, -- Tell +03758046, -- Caesar +} +DDDVary={ +74069667, -- Abyss Ragnarok +19808608, -- Berformet +} +DDDDef={ +19302550, -- Newton +72181263, -- Orthros +46796664, -- Copernicus +48210156, -- Night Howling +45206713, -- Swirl Slime +72291412, -- Necro Slime +19580308, -- Lamia +11609969, -- Kepler +} +function DDDPosition(id,available) + result = nil + for i=1,#DDDAtt do + if DDDAtt[i]==id + then + result=POS_FACEUP_ATTACK + end + end + for i=1,#DDDVary do + if DDDVary[i]==id + then + if (BattlePhaseCheck() or Duel.GetCurrentPhase()==PHASE_BATTLE) + and Duel.GetTurnPlayer()==player_ai + then + result=POS_FACEUP_ATTACK + else + result=POS_FACEUP_DEFENCE + end + end + end + for i=1,#DDDDef do + if DDDDef[i]==id + then + result=POS_FACEUP_DEFENCE + end + end + return result +end \ No newline at end of file diff --git a/ai/decks/DarkWorld.lua b/ai/decks/DarkWorld.lua index a4c78037..4f613cf8 100644 --- a/ai/decks/DarkWorld.lua +++ b/ai/decks/DarkWorld.lua @@ -755,7 +755,7 @@ function DarkWorldPosition(id,available) end end for i=1,#DarkWorldDef do - if DarkWorldDef[i]==id then result=POS_FACEUP_DEFENCE end + if DarkWorldDef[i]==id then result=POS_FACEUP_DEFENSE end end return result end diff --git a/ai/decks/Express.lua b/ai/decks/Express.lua index 23bccb95..fd1161ab 100644 --- a/ai/decks/Express.lua +++ b/ai/decks/Express.lua @@ -44,7 +44,7 @@ function GangaridaiFilter1(c) end function GangaridaiFilter2(c) return ((c.attack >= 3200 and FilterPosition(c,POS_ATTACK)) - or (c.defense >= 3200 and FilterPosition(c,POS_DEFENCE)) + or (c.defense >= 3200 and FilterPosition(c,POS_DEFENSE)) or c:is_affected_by(EFFECT_INDESTRUCTABLE_BATTLE) or (MP2Check() and c.attack > 4000)) and not c:is_affected_by(EFFECT_INDESTRUCTABLE_EFFECT) end @@ -121,7 +121,7 @@ function ExpressInit(cards) if HasID(Rep,49032236,FilterPosition,POS_ATTACK) and (OppHasStrongestMonster() or MP2Check()) then return {COMMAND_CHANGE_POS,CurrentIndex} end - if HasID(Rep,49032236,FilterPosition,POS_DEFENCE) and not OppHasStrongestMonster() then + if HasID(Rep,49032236,FilterPosition,POS_DEFENSE) and not OppHasStrongestMonster() then return {COMMAND_CHANGE_POS,CurrentIndex} end return nil @@ -304,7 +304,7 @@ function ChainSkillDrain(card) if c then return true end - if Duel.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then if Duel.GetTurnPlayer()==player_ai and not OppHasStrongestMonster() and CardsMatchingFilter(OppMon(),NegateBPCheck)>0 @@ -324,9 +324,9 @@ function ChainSkillDrain(card) and source:GetAttack() <= target:GetAttack()+QliphortAttackBonus(target:GetCode(),target:GetLevel(),target) and not (source:GetAttack() == target:GetAttack() and QliphortAttackBonus(target:GetCode(),target:GetLevel(),target)==0) - or source:IsPosition(POS_FACEUP_DEFENCE) - and source:GetDefence() >= target:GetAttack() - and source:GetDefence() < target:GetAttack()+QliphortAttackBonus(target:GetCode(),target:GetLevel(),target)) + or source:IsPosition(POS_FACEUP_DEFENSE) + and source:GetDefense() >= target:GetAttack() + and source:GetDefense() < target:GetAttack()+QliphortAttackBonus(target:GetCode(),target:GetLevel(),target)) and target:IsPosition(POS_FACEUP_ATTACK) then return true @@ -400,7 +400,7 @@ function ExpressPosition(id,available) if id == 49032236 and (CardsMatchingFilter(OppMon(),SuperiorDoraPosFilter)>0 or AI.GetCurrentPhase() == PHASE_MAIN2 or Duel.GetTurnCount() ==1 or not GlobalBPAllowed) then - result = POS_FACEUP_DEFENCE + result = POS_FACEUP_DEFENSE end return result end diff --git a/ai/decks/FireFist.lua b/ai/decks/FireFist.lua index 5ffc97de..ea57c1cb 100644 --- a/ai/decks/FireFist.lua +++ b/ai/decks/FireFist.lua @@ -80,10 +80,13 @@ function SummonSpirit() return CardsMatchingFilter(AIGrave(),SpiritFilter)>0 --or CanXYZ(3) end function WolfbarkFilter(c) - return bit32.band(c.race,RACE_BEASTWARRIOR)>0 and bit32.band(c.attribute,ATTRIBUTE_FIRE)>0 and c.level==4 + return FilterRace(c,RACE_BEASTWARRIOR) + and FilterAttribute(c,ATTRIBUTE_FIRE) + and c.level==4 end function GetWolfbark() - return CardsMatchingFilter(AIGrave(),WolfbarkFilter)>0 or HasID(UseLists({AIHand(),AIMon()}),06353603,true) + return CardsMatchingFilter(AIGrave(),WolfbarkFilter)>0 + or HasID(UseLists({AIHand(),AIMon()}),06353603,true) end function SummonWolfbark() return CardsMatchingFilter(AIGrave(),WolfbarkFilter)>0 and OPTCheck(03534077) @@ -730,7 +733,7 @@ function ChainTensen() source = Duel.GetAttackTarget() end if (source:GetAttack() >= target:GetAttack() and source:GetAttack() <= target:GetAttack()+1000 and source:IsPosition(POS_FACEUP_ATTACK) - or source:GetDefence() >= target:GetAttack() and source:GetDefence() <= target:GetAttack()+1000 and source:IsPosition(POS_FACEUP_DEFENCE)) + or source:GetDefense() >= target:GetAttack() and source:GetDefense() <= target:GetAttack()+1000 and source:IsPosition(POS_FACEUP_DEFENSE)) and target:IsPosition(POS_FACEUP_ATTACK) and target:IsControler(player_ai) and target:IsRace(RACE_BEASTWARRIOR) then GlobalTargetSet(target,AIMon()) @@ -817,7 +820,7 @@ function VeilerTarget(card) local att=AIGetStrongestAttack() if bit32.band(card.position,POS_FACEUP_ATTACK)>0 then value=card.attack - elseif bit32.band(card.position,POS_FACEUP_DEFENCE)>0 then + elseif bit32.band(card.position,POS_FACEUP_DEFENSE)>0 then value=card.defense end if value and att>value and NegateBPCheck(card) @@ -841,7 +844,7 @@ function FireFistOnChain(cards,only_chains_by_player) if HasID(cards,23434538) and ChainMaxxC() then return {1,CurrentIndex} end - if HasIDNotNegated(cards,46772449) and UseFieldNuke(1) then + if HasIDNotNegated(cards,46772449,UseFieldNuke,1) then return {1,CurrentIndex} end if HasIDNotNegated(cards,01662004) then @@ -910,17 +913,17 @@ function FFGetPos(id) if FFAtt[i]==id then return POS_FACEUP_ATTACK end end for i=1,#FFDef do - if FFDef[i]==id then return POS_FACEUP_DEFENCE end + if FFDef[i]==id then return POS_FACEUP_DEFENSE end end if id == 12014404 then -- Cowboy if AI.GetPlayerLP(2)<=800 or not BattlePhaseCheck() then - return POS_FACEUP_DEFENCE + return POS_FACEUP_DEFENSE else return POS_FACEUP_ATTACK end end if id == 89856523 and AI.GetCurrentPhase() == PHASE_MAIN2 then -- Kirin - return POS_FACEUP_DEFENCE + return POS_FACEUP_DEFENSE end return result end diff --git a/ai/decks/Gadget.lua b/ai/decks/Gadget.lua index 0a1017df..a09162a4 100644 --- a/ai/decks/Gadget.lua +++ b/ai/decks/Gadget.lua @@ -561,7 +561,7 @@ function ChainSwiftScarecrow(id) return UnchainableCheck(id) and ExpectedDamage() >= 0.35*AI.GetPlayerLP(1) end function ChainCotHGadget() - if Duel.GetCurrentPhase() == PHASE_BATTLE and DeckCheck(DECK_GADGET) then + if IsBattlePhase() and DeckCheck(DECK_GADGET) then local source = Duel.GetAttacker() local graveatt = Get_Card_Att_Def(AIGrave(),"attack",">",nil,"attack") local oppatt = Get_Card_Att_Def(OppMon(),"attack",">",POS_FACEUP_ATTACK,"attack") @@ -615,7 +615,7 @@ function ChainStardustSpark() return cg:IsExists(StardustSparkFilter, 1, nil) end end - if Duel.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then local source = Duel.GetAttacker() local target = Duel.GetAttackTarget() if source and target then @@ -705,15 +705,15 @@ function GadgetOnSelectPosition(id, available) if GadgetAtt[i]==id then result=POS_FACEUP_ATTACK end end for i=1,#GadgetDef do - if GadgetDef[i]==id then result=POS_FACEUP_DEFENCE end + if GadgetDef[i]==id then result=POS_FACEUP_DEFENSE end end if id==22110647 then if AI.GetCurrentPhase() == PHASE_MAIN2 or Duel.GetTurnCount() == 1 then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end if id==22110648 then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end return result end diff --git a/ai/decks/Generic.lua b/ai/decks/Generic.lua index 95af7e2d..52955cf2 100644 --- a/ai/decks/Generic.lua +++ b/ai/decks/Generic.lua @@ -11,6 +11,27 @@ function XYZSummon(index,id) end return {COMMAND_SPECIAL_SUMMON,index} end +function SynchroSummon(index,id) + if index == nil then + index = CurrentIndex + end + GlobalMaterial = true + GlobalSynchroMaterial = true + if id then + GlobalSSCardID = id + end + return {COMMAND_SPECIAL_SUMMON,index} +end +function PendulumSummon(index,id) + if index == nil then + index = CurrentIndex + end + if id then + GlobalSSCardID = id + end + GlobalPendulumSummon = true + return {COMMAND_SPECIAL_SUMMON,index} +end function Summon(index) if index == nil then index = CurrentIndex @@ -73,16 +94,16 @@ function SummonExtraDeck(cards,prio) if HasIDNotNegated(Rep,12014404,false,nil,nil,POS_FACEUP_ATTACK) and UseCowboyDef() then return {COMMAND_CHANGE_POS,CurrentIndex} -- Gagaga Cowboy finish end - if HasIDNotNegated(Act,12014404,false,nil,nil,POS_DEFENCE) and UseCowboyDef() then + if HasIDNotNegated(Act,12014404,false,nil,nil,POS_DEFENSE) and UseCowboyDef() then return {COMMAND_ACTIVATE,CurrentIndex} -- Gagaga Cowboy finish end if HasIDNotNegated(Act,29669359) and UseVolcasaurus() then -- Volcasaurus finish return {COMMAND_ACTIVATE,CurrentIndex} end - if HasIDNotNegated(Act,46772449) and UseFieldNuke(1) then -- Evilswarm Exciton Knight + if HasIDNotNegated(Act,46772449,UseFieldNuke,1) then -- Evilswarm Exciton Knight return {COMMAND_ACTIVATE,CurrentIndex} end - if HasIDNotNegated(Act,57774843) and UseFieldNuke(1) then -- Judgment Dragon + if HasIDNotNegated(Act,57774843,UseFieldNuke,1) then -- Judgment Dragon return {COMMAND_ACTIVATE,CurrentIndex} end if HasIDNotNegated(Act,39765958,UseJeweledRDA,0) then @@ -113,9 +134,15 @@ function SummonExtraDeck(cards,prio) then return {COMMAND_ACTIVATE,CurrentIndex} end + if HasID(Act,60082869,nil,nil,LOCATION_SZONE,UseDustTornado) then + return {COMMAND_ACTIVATE,CurrentIndex} + end if HasID(Act,05318639,nil,nil,LOCATION_SZONE,UseMST) then return {COMMAND_ACTIVATE,CurrentIndex} end + if HasID(Act,43898403,UseTwinTwister) then + return Activate() + end if HasID(Act,05318639,UseMST) then return {COMMAND_ACTIVATE,CurrentIndex} end @@ -140,13 +167,13 @@ function SummonExtraDeck(cards,prio) if HasIDNotNegated(SpSum,88120966,SummonGiantGrinderFinish) then return XYZSummon() end - if HasIDNotNegated(SpSum,46772449) and SummonBelzebuth() then + if HasIDNotNegated(SpSum,46772449,SummonBelzebuth) then return XYZSummon() end - if HasID(SpSum,57774843) and SummonJD() then + if HasID(SpSum,57774843,SummonJD,1) then return {COMMAND_SPECIAL_SUMMON,CurrentIndex} end - if HasIDNotNegated(SpSum,73580471) and UseFieldNuke(-2) then -- Black Rose + if HasIDNotNegated(SpSum,73580471,UseFieldNuke,-2) then -- Black Rose return {COMMAND_SPECIAL_SUMMON,CurrentIndex} end if HasIDNotNegated(SpSum,16195942) and SummonRebellionFinish() then @@ -209,7 +236,10 @@ function SummonExtraDeck(cards,prio) GlobalCardMode = 1 return {COMMAND_ACTIVATE,CurrentIndex} end - if HasIDNotNegated(Act,22653490) then -- Chidori + if HasIDNotNegated(Act,63519819,UseTER) then + return Activate() + end + if HasIDNotNegated(Act,22653490) then -- Chidori GlobalCardMode = 2 return {COMMAND_ACTIVATE,CurrentIndex} end @@ -257,6 +287,20 @@ function SummonExtraDeck(cards,prio) ---- -- Synchro + if HasIDNotNegated(SpSum,52687916,SummonSyncTrishula) then + return {COMMAND_SPECIAL_SUMMON,CurrentIndex} + end + + -- Trishula enabling + for i=1,#Sum do + if TrishulaCheck(Sum[i]) then + return Summon(i) + end + end + if HasID(Act,01845204,ShaddollUseInstantFusion,1) then + return Activate() + end + if HasID(SpSum,08561192,SummonLeoh) then return {COMMAND_SPECIAL_SUMMON,CurrentIndex} end @@ -308,7 +352,10 @@ function SummonExtraDeck(cards,prio) -- XYZ -- Rank 8 - if HasIDNotNegated(SpSum,01639384,SummonFelgrand) then + if HasIDNotNegated(SpSum,63767246,SummonTitanicGalaxy,1) then + return XYZSummon() + end + if HasIDNotNegated(SpSum,01639384,SummonFelgrand,1) then return XYZSummon() end if HasIDNotNegated(SpSum,88120966,SummonGiantGrinder) then @@ -320,6 +367,12 @@ function SummonExtraDeck(cards,prio) if HasID(SpSum,73445448,SummonZombiestein) then return XYZSummon() end + if HasIDNotNegated(SpSum,01639384,SummonFelgrand,2) then + return XYZSummon() + end + if HasIDNotNegated(SpSum,63767246,SummonTitanicGalaxy,2) then + return XYZSummon() + end -- Rank 7 if HasIDNotNegated(SpSum,80117527) and SummonBigEye() then @@ -395,7 +448,7 @@ function SummonExtraDeck(cards,prio) if HasIDNotNegated(SpSum,82633039) and SummonSkyblaster() then return XYZSummon() end - if HasID(SpSum,26329679,SummonOmega) then + if HasID(SpSum,26329679,SummonConstellarOmega) then return XYZSummon() end if HasID(SpSum,16195942,SummonRebellion) then @@ -456,7 +509,7 @@ function SummonExtraDeck(cards,prio) if HasIDNotNegated(SpSum,12014404) and SummonCowboyAtt() then return XYZSummon() end - if HasIDNotNegated(Rep,12014404,nil,nil,POS_DEFENCE,UseCowboyAtt) then + if HasIDNotNegated(Rep,12014404,nil,nil,POS_DEFENSE,UseCowboyAtt) then return {COMMAND_CHANGE_POS,CurrentIndex} end if HasIDNotNegated(Act,12014404,FilterPosition,POS_FACEUP_ATTACK) and UseCowboyAtt() then @@ -491,6 +544,68 @@ function SummonExtraDeck(cards,prio) if HasIDNotNegated(SpSum,81330115,SummonAcidGolem) then return XYZSummon() end + +-- Pendulum scales + local scales={} + for i,c in pairs(Act) do + if c.description == 1160 -- activate as pendulum scale + and CardIsScripted(c.id) == 0 + then + scales[#scales+1]=c + c.index = i + end + end + if #scales>0 then + table.sort(scales,function(a,b) return a.lscale>b.lscale end) + local high = scales[1] + local low = scales[#scales] + local levels = 0 + local mons = SubGroup(UseLists(AIHand(),AIExtra()),FilterPendulumSummonable) + local targets = {} + local targets2 = {} + if ScaleCheck() == false then -- no active scales + table.remove(mons,FindCard(high,mons,true)[1]) + table.remove(mons,FindCard(low,mons,true)[1]) + for i,c in pairs(mons) do + if high.lscale>c.level and c.level>low.lscale then + targets[#targets+1]=c + end + end + if #targets>1 then + return Activate(high.index) + end + elseif ScaleCheck() == true then -- 2 active scales, and you can still use some? + print("Warning: Can activate more than 2 scales?") + else -- one scale active + table.remove(mons,FindCard(high,mons,true)[1]) + for i,c in pairs(mons) do + if high.lscale>c.level and c.level>ScaleCheck() then + targets[#targets+1]=c + end + end + table.insert(mons,high) + table.remove(mons,FindCard(low,mons,true)[1]) + for i,c in pairs(mons) do + if ScaleCheck()>c.level and c.level>low.lscale then + targets2[#targets2+1]=c + end + end + if #targets>1 or #targets2>1 then + if #targets>#targets2 then + return Activate(high.index) + else + return Activate(low.index) + end + end + end + end + +-- Pendulum summoning + for i,c in pairs(SpSum) do + if FilterLocation(c,LOCATION_SZONE) then + return PendulumSummon(i) + end + end -- if the opponent still has stronger monsters, use Raigeki @@ -501,13 +616,16 @@ function SummonExtraDeck(cards,prio) if HasID(Act,54447022) and UseSoulCharge() then return {COMMAND_ACTIVATE,CurrentIndex} end - if HasIDNotNegated(Act,01845204) and UseInstantFusion(2) then + if HasIDNotNegated(Act,01845204,UseInstantFusion,2) then + return {COMMAND_ACTIVATE,CurrentIndex} + end + if HasIDNotNegated(Act,01845204,UseInstantFusion,1) then return {COMMAND_ACTIVATE,CurrentIndex} end - if HasIDNotNegated(Act,01845204) and UseInstantFusion(1) then + if HasIDNotNegated(Act,01845204,UseInstantFusion,4) then return {COMMAND_ACTIVATE,CurrentIndex} end - if HasIDNotNegated(Act,01845204) and UseInstantFusion(3) then + if HasIDNotNegated(Act,01845204,UseInstantFusion,3) then return {COMMAND_ACTIVATE,CurrentIndex} end if HasIDNotNegated(Act,98645731) -- Duality @@ -526,13 +644,71 @@ function SummonExtraDeck(cards,prio) local c=Rep[i] local equips = c:get_equipped_cards() if HasIDNotNegated(equips,19508728,true) - and FilterPosition(c,POS_DEFENCE) + and FilterPosition(c,POS_DEFENSE) then return Repo() end end return nil end +function TERFilter(c) + return Affected(c,TYPE_MONSTER,1) + and Targetable(c,TYPE_MONSTER) +end +function UseTER(c) + if CardsMatchingFilter(OppMon(),TERFilter)>0 then + return true + end +end +function UseTwinTwister(c,mode) + local targets = DestroyCheck(OppST()) + local facedown = DestroyCheck(OppST(),nil,nil,nil,FilterPosition,POS_FACEDOWN) + local prio = HasPriorityTarget(OppST(),true) + if facedown>1 then + GlobalTwinTwisterTarget = function(c) return FilterPosition(c,POS_FACEDOWN) end + return true + end + if prio and targets>1 then + return true + end + if PriorityCheck(AIHand(),PRIO_TOGRAVE)>3 + and targets>1 then + return true + end +end +GlobalTwinTwisterTarget = nil +function ChainTwinTwister(c,mode) + local targets = DestroyCheck(OppST()) + local facedown = DestroyCheck(OppST(),nil,nil,nil,FilterPosition,POS_FACEDOWN) + local prio = HasPriorityTarget(OppST(),true) + local endphase = CardsMatchingFilter(OppST(),MSTEndPhaseFilter) + if RemovalCheckCard(c) + then + return targets>1 or targets>0 and PriorityCheck(AIHand(),PRIO_TOGRAVE)>3 + end + if not UnchainableCheck(c) then + return false + end + if Duel.CheckTiming(TIMING_END_PHASE) + and Duel.GetCurrentChain()==0 + and endphase>0 + and targets>1 + then + GlobalTwinTwisterTarget = MSTEndPhaseFilter + return true + end + if Duel.GetTurnPlayer()==1-player_ai + and prio + and targets>1 + then + return true + end + local target = RemoveOnActivation(nil,MSTFilter) + if target and targets>1 then + GlobalTwinTwisterTarget = target + return true + end +end function SummonDelteros(c,mode) if DeckCheck(DECK_TELLARKNIGHT) then return false end if mode == 1 @@ -659,7 +835,7 @@ function UsePtolemaios(c) end function SummonNova(c) return HasIDNotNegated(AIExtra(),10443957,true) - and UseInfinity(FindID(10443957,AIExtra())) + --and UseInfinity(FindID(10443957,AIExtra())) end function SummonInfinity(c) return HasID(AIMon(),58069384,true) @@ -687,9 +863,9 @@ function UseMST(c) end local OppTargets=SubGroup(OppST(),filter) if (#AIField()==0 - or #AIField()==CardsMatchingFilter(AIField(),FilterID,05318639)) + or #AIField()==CardsMatchingFilter(AIField(),FilterID,c.id)) and #OppTargets>0 - and #OppTargets<=CardsMatchingFilter(AICards(),FilterID,05318639) + and #OppTargets<=CardsMatchingFilter(AICards(),FilterID,c.id) then GlobalCardMode = 1 GlobalTargetSet(OppTargets[math.random(1,#OppTargets)]) @@ -697,6 +873,9 @@ function UseMST(c) end return false end +function UseDustTornado(c) + return UseMST(c) +end function SummonStardust(c) return OppGetStrongestAttDef()<2500 and MP2Check(c) end @@ -736,14 +915,44 @@ function SummonZombiestein(c) return MP2Check(c) and OppHasStrongestMonster() --and OppGetStrongestAttack()>2800 and OppGetStrongestAttack()<4500 end -function SummonFelgrand(c) - return MP2Check(c) and OppGetStrongestAttack()<2800 - and not SkillDrainCheck() +function SummonFelgrand(c,mode) + if mode == 1 + and NotNegated(c) + and MP2Check(c) + and OppGetStrongestAttack()0 +function SummonTitanicGalaxy(c,mode) + if mode == 1 + and NotNegated(c) + and MP2Check(c) + and OppGetStrongestAttack()0 +end +function SummonBelzebuth(c) if DeckCheck(DECK_CONSTELLAR) and HasIDNotNegated(AIMon(),70908596,true) and CardsMatchingFilter(AIMon(),ConstellarNonXYZFilter)>1 and (SummonVolcasaurusFinish() or SummonVolcaGaiaFinish(1)) @@ -752,7 +961,7 @@ function SummonBelzebuth() end local AICards=UseLists({AIHand(),AIField()}) local OppCards=UseLists({OppHand(),OppField()}) - return #AICards<=#OppCards and UseFieldNuke(-1) + return #AICards<=#OppCards and UseFieldNuke(c,-1) end function SummonCowboyDef(mode) return AI.GetPlayerLP(2)<=800 @@ -850,7 +1059,7 @@ function SummonNaturiaBeast(c) end function SummonArmades(c) return BattlePhaseCheck() - and CanWinBattle(c,OppMon()) + and c and CanWinBattle(c,OppMon()) end function SummonStardustSpark(c) return NotNegated(c) and MP2Check(c) @@ -1012,10 +1221,7 @@ function SummonVolcaGaiaFinish(mode) return result >= AI.GetPlayerLP(2) and result2 < AI.GetPlayerLP(2) end end -function SummonJD() - return UseFieldNuke(-1) and not HasID(AIMon(),57774843,true) - or #OppField()==0 and Duel.GetCurrentPhase()==PHASE_MAIN1 and GlobalBPAllowed -end + function LeviairFilter(c) return bit32.band(c.type,TYPE_MONSTER)>0 and c.level<5 and c:is_affected_by(EFFECT_SPSUMMON_CONDITION)==0 @@ -1042,8 +1248,8 @@ function SummonSharkKnight(cards) end function CowboyFilter(c) return ((c.attack<3000 and bit32.band(c.position,POS_ATTACK)>0 - or c.defense<2500 and bit32.band(c.position,POS_DEFENCE)>0 - and (bit32.band(c.position,POS_FACEUP)>0 or bit32.band(c.status,STATUS_IS_PUBLIC)>0)) + or c.defense<2500 and bit32.band(c.position,POS_DEFENSE)>0 + and FilterPublic(c)) and c:is_affected_by(EFFECT_INDESTRUCTABLE_BATTLE)==0 and c:is_affected_by(EFFECT_CANNOT_BE_BATTLE_TARGET)==0) end @@ -1166,7 +1372,7 @@ function ChainPleiades(c) end end end - if Duel.GetCurrentPhase()==PHASE_BATTLE and Duel.GetTurnPlayer()~=player_ai and targets>0 then + if IsBattlePhase() and Duel.GetTurnPlayer()~=player_ai and targets>0 then local source=Duel.GetAttacker() local target=Duel.GetAttackTarget() if source and target @@ -1292,7 +1498,7 @@ function RepoZenmaines(c) and Duel.GetCurrentPhase()==PHASE_MAIN1 and GlobalBPAllowed then - return FilterPosition(c,POS_DEFENCE) + return FilterPosition(c,POS_DEFENSE) else return FilterPosition(c,POS_ATTACK) end @@ -1466,15 +1672,15 @@ function SummonUtopiaRay(c,mode) return false end function SummonUtopia(c,mode) - local c = FindID(56832966,AIExtra()) - if mode == 1 and c and SummonUtopiaLightning(c,2) then + local lightning = FindID(56832966,AIExtra()) + if mode == 1 and lightning and SummonUtopiaLightning(lightning,2) then return true end - if mode == 2 and c and SummonUtopiaLightning(c,3) then + if mode == 2 and lightning and SummonUtopiaLightning(lightning,3) then return true end if mode == 3 and CanWinBattle(c,OppMon()) - and not c and MP2Check(2500) + and not lightning and MP2Check(2500) then return true end @@ -1505,7 +1711,7 @@ function SummonGaiaDragonFinish(source) end return result end -function ChainOmega(source) +function ChainConstellarOmega(source) local cards = RemovalCheckList(AIMon(),nil,TYPE_SPELL+TYPE_TRAP,nil,nil,ConstellarMonsterFilter) if cards and #cards>0 then return true @@ -1516,7 +1722,7 @@ function ChainOmega(source) end return false end -function SummonOmega(c) +function SummonConstellarOmega(c) return NotNegated(c) and (not OppHasStrongestMonster() or OppGetStrongestAttDef()2 or Negated(c) and OppHasStrongestMonster() and OppGetStrongestAttDef()0 and c.level==5 or c.id==70908596 and NotNegated(c) end -function NodenFilter(c) - return c.level==4 and c.id~=17412721 +function NodenFilter(c,level) + return (level and c.level==level or c.level<=4) --and c.id~=17412721 -- Norden +end +function NodenTunerFilter(c,level) + return NodenFilter(c,level-4) + and FilterType(c,TYPE_TUNER) end -function UseInstantFusion(mode) +function UseInstantFusion(c,mode) if not (WindaCheck() and DualityCheck) then return false end if mode == 1 - and CardsMatchingFilter(AIGrave(),NodenFilter)>0 - and HasIDNotNegated(AIExtra(),17412721,true) + and CardsMatchingFilter(AIGrave(),NodenFilter,4)>0 + and HasIDNotNegated(AIExtra(),17412721,true) -- Norden and (FieldCheck(4)==1 and OverExtendCheck(2,6) or #AIMon()==0 and #OppMon()>0 - or DeckCheck(DECK_TELLARKNIGHT) and FieldCheck(1) and DestroyCheck(OppField())>0) + or DeckCheck(DECK_TELLARKNIGHT) and FieldCheck(4)==1 and DestroyCheck(OppField())>0) then GlobalCardMode = nil return true elseif mode == 2 and CardsMatchingFilter(AIMon(),InstantFusionFilter)==1 - and HasID(AIExtra(),73964868,true) + and HasID(AIExtra(),73964868,true) -- Pleiades then GlobalCardMode = 1 return true elseif mode == 3 and HasPriorityTarget(OppField(),true) - and HasID(AIExtra(),73964868,true) and TurnEndCheck() + and HasID(AIExtra(),72959823,true) and TurnEndCheck() -- Panzer Dragon and MacroCheck() then GlobalCardMode = 1 return true end + if mode == 4 + and HasPriorityTarget(OppField(),true) + and HasID(AIExtra(),63519819,true) + then + GlobalIFTarget = 63519819 -- Thousand-Eyes Restrict + return true + end + if mode == 5 + and HasIDNotNegated(AIExtra(),17412721,true) -- Norden + and LocCheck()>1 + and (OverExtendCheck(2,6) + or #AIMon()==0) + then + for i,c in pairs(AIExtra()) do + if FilterType(c,TYPE_SYNCHRO) + and c.level>4 and c.level<9 + then + for j,target in pairs(AIGrave()) do + if NodenTunerFilter(target,c.level) then + GlobalNordenFilter=function(card)return FilterTuner(card,c.level) end + return true + end + end + end + end + end return false end @@ -1644,7 +1880,7 @@ function ChainBTS(card) GlobalTargetSet(c,OppMon()) return true end - if Duel.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then if Duel.GetTurnPlayer()==player_ai then local cards=OppMon() for i=1,#cards do @@ -1680,7 +1916,7 @@ function ChainFiendish(card) GlobalTargetSet(c,OppMon()) return true end - if Duel.GetCurrentPhase() == PHASE_BATTLE and Duel.GetTurnPlayer()~=player_ai then + if IsBattlePhase() and Duel.GetTurnPlayer()~=player_ai then local source = Duel.GetAttacker() local target = Duel.GetAttackTarget() if source and target and WinsBattle(source,target) @@ -1713,7 +1949,7 @@ function ChainSkillDrain(card) --GlobalTargetSet(c,OppMon()) return true end - if Duel.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then if Duel.GetTurnPlayer()==player_ai and not OppHasStrongestMonster() and CardsMatchingFilter(OppMon(),NegateBPCheck)>0 @@ -1733,9 +1969,9 @@ function ChainSkillDrain(card) and source:GetAttack() <= target:GetAttack()+QliphortAttackBonus(target:GetCode(),target:GetLevel()) and not (source:GetAttack() == target:GetAttack() and QliphortAttackBonus(target:GetCode(),target:GetLevel())==0) - or source:IsPosition(POS_FACEUP_DEFENCE) - and source:GetDefence() >= target:GetAttack() - and source:GetDefence() < target:GetAttack()+QliphortAttackBonus(target:GetCode(),target:GetLevel())) + or source:IsPosition(POS_FACEUP_DEFENSE) + and source:GetDefense() >= target:GetAttack() + and source:GetDefense() < target:GetAttack()+QliphortAttackBonus(target:GetCode(),target:GetLevel())) and target:IsPosition(POS_FACEUP_ATTACK) then return true @@ -1972,12 +2208,12 @@ function ChainCompulse() if targets2 > 0 then return true end - if Duel.GetCurrentPhase()==PHASE_BATTLE and targets>0 then + if IsBattlePhase() and targets>0 then local source=Duel.GetAttacker() local target=Duel.GetAttackTarget() if source and target then if source:IsControler(1-player_ai) and target:IsControler(player_ai) - and (target:IsPosition(POS_DEFENCE) and source:GetAttack()>target:GetDefence() + and (target:IsPosition(POS_DEFENSE) and source:GetAttack()>target:GetDefense() or target:IsPosition(POS_ATTACK) and source:GetAttack()>=target:GetAttack()) and not source:IsHasEffect(EFFECT_CANNOT_BE_EFFECT_TARGET) and not source:IsHasEffect(EFFECT_IMMUNE_EFFECT) @@ -1995,8 +2231,7 @@ function MSTFilter(c) return c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 and c:is_affected_by(EFFECT_INDESTRUCTABLE_EFFECT)==0 and not (DestroyBlacklist(c) - and (bit32.band(c.position, POS_FACEUP)>0 - or bit32.band(c.status,STATUS_IS_PUBLIC)>0)) + and FilterPublic(c)) end function MSTEndPhaseFilter(c) return MSTFilter(c) and bit32.band(c.status,STATUS_SET_TURN)>0 @@ -2024,13 +2259,13 @@ function ChainMST(c) return true end end - if not UnchainableCheck(05318639) then + if not UnchainableCheck(c.id) then return false end if targets3 > 0 and ArtifactCheck() then return true end - if Duel.GetCurrentPhase()==PHASE_BATTLE then + if IsBattlePhase() then local source=Duel.GetAttacker() local target=Duel.GetAttackTarget() if source and source:IsControler(1-player_ai) then @@ -2071,9 +2306,22 @@ function ChainMST(c) end return false end +function ChainDustTornado(c) + return ChainMST(c) +end function ChainPanzerDragon(c) return DestroyCheck(OppField())>0 end +function ChainTitanicGalaxy(c) + local aimon,oppmon = GetBattlingMons() + if NotNegated(c) + and WinsBattle(oppmon,aimon) + and not WinsBattle(oppmon,c) + and Affected(oppmon,TYPE_MONSTER,8) + then + return true + end +end function PriorityChain(cards) -- chain these before anything else if HasIDNotNegated(cards,58120309,ChainNegation) then -- Starlight Road return {1,CurrentIndex} @@ -2096,6 +2344,9 @@ function PriorityChain(cards) -- chain these before anything else if HasID(cards,61257789,false,nil,LOCATION_MZONE,ChainNegation) then -- Stardust AM return {1,CurrentIndex} end + if HasIDNotNegated(cards,63767246,ChainNegation) then -- Titanic Galaxy + return {1,CurrentIndex} + end if HasIDNotNegated(cards,35952884,false,nil,LOCATION_MZONE,ChainNegation) then -- Quasar return {1,CurrentIndex} end @@ -2108,6 +2359,12 @@ function PriorityChain(cards) -- chain these before anything else if HasIDNotNegated(cards,99188141,ChainNegation) then -- THRIO return {1,CurrentIndex} end + if HasID(cards,74822425,false,nil,LOCATION_MZONE,ChainNegation) then -- Shekinaga + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,27346636,ChainNegation) then -- Heraklinos + return {1,CurrentIndex} + end if HasIDNotNegated(cards,29616929,ChainNegation) then -- Traptrix Trap Hole Nighmare return {1,CurrentIndex} end @@ -2123,6 +2380,9 @@ function PriorityChain(cards) -- chain these before anything else if HasIDNotNegated(cards,06511113,ChainRafflesia,1) then -- Rafflesia return {1,CurrentIndex} end + if HasIDNotNegated(cards,96216229,ChainNegation) then -- War Chariot + return {1,CurrentIndex} + end if HasIDNotNegated(cards,41510920,ChainNegation) then -- Stellarnova Alpha return {1,CurrentIndex} end @@ -2193,7 +2453,7 @@ function PriorityChain(cards) -- chain these before anything else if HasIDNotNegated(cards,99590524,ChainTreacherous) then return {1,CurrentIndex} end - if HasIDNotNegated(cards,26329679,ChainOmega) then + if HasIDNotNegated(cards,26329679,ChainConstellarOmega) then return {1,CurrentIndex} end if HasIDNotNegated(cards,51452091,ChainDecree) then @@ -2207,6 +2467,12 @@ function PriorityChain(cards) -- chain these before anything else return nil end function GenericChain(cards) + if HasID(cards,43898403,ChainTwinTwister) then + return Chain() + end + if HasID(cards,60082869,ChainDustTornado) then + return {1,CurrentIndex} + end if HasID(cards,05318639,ChainMST) then return {1,CurrentIndex} end @@ -2363,17 +2629,7 @@ end function VolcasaurusTarget(cards) return BestTargets(cards,1,true) end -function MichaelTarget(cards,c) - local result = {} - if FilterLocation(c,LOCATION_MZONE) then - result = BestTargets(cards,1,TARGET_BANISH) - else - for i=1,#cards do - result[i]=i - end - end - return result -end + function ArcaniteTarget(cards) return BestTargets(cards,1,true) end @@ -2399,7 +2655,9 @@ function MSTTarget(cards) if cards[1].prio then TargetSet(cards[1]) else TargetSet(cards[result[1]]) end return result end - +function DustTornadoTarget(cards) + return MSTTarget(cards) +end function SoulChargeTarget(cards,min,max) local result={} local count = max @@ -2433,10 +2691,61 @@ function DwellerTarget(cards) local filter = function(c) return not FilterAttribute(c,ATTRIBUTE_WATER) end return Add(cards,PRIO_TOGRAVE,1,filter) end +function TwinTwisterTarget(cards) + if LocCheck(cards,LOCATION_HAND) then + return Add(cards,PRIO_TOGRAVE) + end + local filter = function(c) return true end + local targets = {} + if GlobalTwinTwisterTarget then + if type(GlobalTwinTwisterTarget) == "function" then + filter = GlobalTwinTwisterTarget + elseif type(GlobalTwinTwisterTarget) == "table" then + if GlobalTwinTwisterTarget.id then + targets[1]=GlobalTwinTwisterTarget + else + targets=GlobalTwinTwisterTarget + end + filter=function(card) + for i,c in pairs(targets) do + if CardsEqual(c,card) then + return true + end + end + end + end + GlobalTwinTwisterTarget = nil + end + local count = 0 + local check = DestroyCheck(cards,false,true,false,FilterController,2) + if #targets == 0 then + count = check + else + count = 2,math.max(#targets,check) + end + count = math.min(2,count) + return BestTargets(cards,count,TARGET_DESTROY,filter) +end +function TERTarget(cards) + return BestTargets(cards,1,TARGET_TOGRAVE) +end +function PendulumSummonTarget(cards,max) + return BestTargets(cards,max,TARGET_PROTECT,FilterLocation,LOCATION_EXTRA) +end function GenericCard(cards,min,max,id,c) if c then id = c.id end + if GlobalPendulumSummon then + GlobalPendulumSummon = nil + return PendulumSummonTarget(cards,max) + end + if id == 63519819 then + return TERTarget(cards) + end + if id == 43898403 then + return TwinTwisterTarget(cards) + end if id == 21044178 then return DwellerTarget(cards) end @@ -2497,6 +2806,9 @@ function GenericCard(cards,min,max,id,c) if id == 05318639 then return MSTTarget(cards) end + if id == 60082869 then + return DustTornadoTarget(cards) + end if id == 94192409 then return CompulseTarget(cards) end @@ -2547,12 +2859,15 @@ function GenericEffectYesNo(id,card) if id == 33698022 then -- Moonlight Rose retult = 1 end - if id == 72959823 and ChainPanzerDragon(Card) then + if id == 72959823 and ChainPanzerDragon(card) then result = 1 end if id == 73176465 and grave then -- Felis result = 1 end + if id == 63767246 and ChainTitanicGalaxy(card) then + result = 1 + end return result end GenericAtt={ @@ -2568,7 +2883,7 @@ function GenericPosition(id,available) if GenericAtt[i]==id then result=POS_FACEUP_ATTACK end end for i=1,#GenericDef do - if GenericDef[i]==id then result=POS_FACEUP_DEFENCE end + if GenericDef[i]==id then result=POS_FACEUP_DEFENSE end end if id == 78156759 then -- Zenmaines local c = FindID(78156759,AIExtra()) @@ -2579,7 +2894,7 @@ function GenericPosition(id,available) then result = POS_FACEUP_ATTACK else - result = POS_FACEUP_DEFENCE + result = POS_FACEUP_DEFENSE end end return result diff --git a/ai/decks/GladBeast.lua b/ai/decks/GladBeast.lua new file mode 100644 index 00000000..19c61d58 --- /dev/null +++ b/ai/decks/GladBeast.lua @@ -0,0 +1,1282 @@ +--[[ +07573135 -- Augustus +78868776 -- Laquari +89312388 -- Prisma +25924653 -- Darius +57731460 -- Equeste +41470137 -- Bestiari +00612115 -- Retiari +92373006 -- Test Tiger + +01845204 -- Instant Fusion +08949584 -- AHL +12580477 -- Raigeki +14087893 -- BoM + +29401950 -- Bottomless +40838625 -- Sandstorm Mirror Force +53567095 -- Icarus +05851097 -- Vanity +97077563 -- CotH +40605147 -- Solemn Strike +84749824 -- Solemn Warning +96216229 -- War Chariot + +27346636 -- Heraklinos +29357956 -- Nerokius +48156348 -- Gyzarus +17412721 -- Norden +63519819 -- TER +63767246 -- Titanic Galaxy +01639384 -- Felgrand +56832966 -- Utopia Lightning +84013237 -- Utopia +86848580 -- Zerofyne +63746411 -- Giant Hand +82633039 -- Castel +95169481 -- DDW +22653490 -- Chidori +]] + +function GladBeastStartup(deck) + deck.Init = GladBeastInit + deck.Card = GladBeastCard + deck.Chain = GladBeastChain + deck.EffectYesNo = GladBeastEffectYesNo + deck.Position = GladBeastPosition + deck.YesNo = GladBeastYesNo + deck.BattleCommand = GladBeastBattleCommand + deck.AttackTarget = GladBeastAttackTarget + deck.AttackBoost = GladBeastAttackBoost + deck.Tribute = GladBeastTribute + deck.Option = GladBeastOption + deck.ChainOrder = GladBeastChainOrder + --[[ + deck.Sum + deck.DeclareCard + deck.Number + deck.Attribute + deck.MonsterType + ]] + deck.ActivateBlacklist = GladBeastActivateBlacklist + deck.SummonBlacklist = GladBeastSummonBlacklist + deck.RepositionBlacklist = GladBeastRepoBlacklist + deck.SetBlacklist = GladBeastSetBlacklist + deck.Unchainable = GladBeastUnchainable + --[[ + + ]] + deck.PriorityList = GladBeastPriorityList + + +end + + +GladBeastIdentifier = 41470137 -- Bestiari + +DECK_GLADBEAST = NewDeck("Gladiator Beast",GladBeastIdentifier,GladBeastStartup) + + +GladBeastActivateBlacklist={ +07573135, -- Augustus +78868776, -- Laquari +89312388, -- Prisma +25924653, -- Darius +57731460, -- Equeste +41470137, -- Bestiari +00612115, -- Retiari +92373006, -- Test Tiger + +01845204, -- Instant Fusion +08949584, -- AHL +--12580477, -- Raigeki +--14087893, -- BoM + +40838625, -- Sandstorm Mirror Force +53567095, -- Icarus +97077563, -- CotH +--96216229, -- War Chariot + +--27346636, -- Heraklinos +29357956, -- Nerokius +48156348, -- Gyzarus +--63767246, -- Titanic Galaxy +--01639384, -- Felgrand +95169481, -- DDW +} +GladBeastSummonBlacklist={ +07573135, -- Augustus +78868776, -- Laquari +89312388, -- Prisma +25924653, -- Darius +57731460, -- Equeste +41470137, -- Bestiari +00612115, -- Retiari +92373006, -- Test Tiger + +27346636, -- Heraklinos +29357956, -- Nerokius +48156348, -- Gyzarus +63767246, -- Titanic Galaxy +01639384, -- Felgrand +84013237, -- Utopia +86848580, -- Zerofyne +63746411, -- Giant Hand +82633039, -- Castel +95169481, -- DDW +22653490, -- Chidori +} +GladBeastSetBlacklist={ +} +GladBeastRepoBlacklist={ +} +GladBeastUnchainable={ +40838625, -- Sandstorm Mirror Force +} +function GladBeastFilter(c,exclude) + local check = true + if exclude then + if type(exclude)=="table" then + check = not CardsEqual(c,exclude) + elseif type(exclude)=="number" then + check = (c.id ~= exclude) + end + end + return (FilterSet(c,0x19) + or c.original_id == 89312388 + and (c.id == 41470137 or c.id == 78868776)) + and check +end +function GladBeastMonsterFilter(c,exclude) + return FilterType(c,TYPE_MONSTER) + and GladBeastFilter(c,exclude) +end +function GladBeastFusion(c,exclude) + return GladBeastMonsterFilter(c,exclude) + and FilterType(c,TYPE_FUSION) +end +function GladBeastNonFusion(c,exclude) + return GladBeastMonsterFilter(c,exclude) + and not FilterType(c,TYPE_FUSION) +end +function AugustusCond(loc,c) + if loc == PRIO_TOFIELD then + if HasIDNotNegated(AIHand(),41470137,true,UseBestiari,2) -- Bestiari + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and not HasID(AIMon(),41470137,true) -- Bestiari + then + return true + end + return false + end + return true +end +function LaquariCond(loc,c) + if loc == PRIO_TOFIELD then + return true + end + return true +end +function PrismaCond(loc,c) + if loc == PRIO_TOFIELD then + return true + end + return true +end +function DariusCond(loc,c) + if loc == PRIO_TOFIELD then + if HasID(AIGrave(),41470137,true) -- Bestiari + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + --and not HasID(AIMon(),41470137,true) -- Bestiari + and GetMultiple(c.id)==0 + then + return true + end + if CardsMatchingFilter(AIGrave(),GladBeastNonFusion)>GetMultiple(c.id) + then + return 3.2 + end + return false + end + return true +end +function EquesteCond(loc,c) + if loc == PRIO_TOFIELD then + if CardsMatchingFilter(AIGrave(),FilterID,96216229)>GetMultiple(c.id) -- War Chariot + then + return true + end + if HasID(AICards(),53567095,true) -- Icarus + then + return 3.5 + end + if CardsMatchingFilter(AIGrave(),FilterID,96216229) -- War Chariot + +CardsMatchingFilter(AIGrave(),GladBeastNonFusion,07573135) -- Augustus + >GetMultiple(c.id) + and CardsMatchingFilter(AIHand(),GladBeastFilter)==0 + then + return true + end + if NeedsCard(48156348,AIGrave(),AIExtra(),true) -- Gyzarus + then + return 9 + end + return false + end + return true +end +function BestiariCond(loc,c) + if loc == PRIO_TOFIELD then + if (UseBestiari(c,2) or GlobalSummonNegated) + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and CardsMatchingFilter(AIMon(),GladBeastNonFusion)>0 + and not HasID(AIMon(),c.id,true) + and Duel.GetTurnPlayer()==player_ai + then + return true + end + if UseBestiari(c,1) and not GlobalSummonNegated + then + return 4.5 + end + return false + end + return true +end +function RetiariCond(loc,c) + if loc == PRIO_TOFIELD then + return true + end + return true +end +function TestTigerCond(loc,c) + return true +end +function ChariotCond(loc,c) + return true +end +function HeraklinosCond(loc,c) + return true +end +function NerokiusCond(loc,c) + return true +end +function GyzarusCond(loc,c) + if loc == PRIO_TOFIELD then + if FilterLocation(c,LOCATION_GRAVE) + and not HasID(AIExtra(),c.id) + then + return true + end + if FilterLocation(c,LOCATION_GRAVE) + and not FilterRevivable(c) + then + return 4.5 + end + return false + end + if loc == PRIO_TOFIELD then + if CardsMatchingFilter(OppField(),GyzarusFilter)>0 + and Duel.GetCurrentChain()<=1 + and FilterLocation(c,LOCATION_GRAVE) + and NotNegated(c) + then + return true + end + return false + end + if loc == PRIO_TOGRAVE then + if FilterLocation(c,LOCATION_MZONE) + and HasIDNotNegated(AIST(),97077563,true) + then + return true + end + return false + end + return true +end + +GladBeastPriorityList={ +--[12345678] = {1,1,1,1,1,1,1,1,1,1,XXXCond}, -- Format + +-- GladBeast + +[07573135] = {0,0,7,4,4,1,1,1,1,1,AugustusCond}, -- Augustus +[78868776] = {2,1,2,1,1,1,1,1,1,1,LaquariCond}, -- Laquari +[89312388] = {1,1,1,1,5,1,1,1,1,1,PrismaCond}, -- Prisma +[25924653] = {2,1,8,1,1,1,1,1,1,1,DariusCond}, -- Darius +[57731460] = {3,1,5,1,3,1,1,1,1,1,EquesteCond}, -- Equeste +[41470137] = {4,0,6,1,6,1,1,1,1,1,BestiariCond}, -- Bestiari +[00612115] = {2,1,3,1,1,1,1,1,1,1,RetiariCond}, -- Retiari +[92373006] = {1,1,1,1,1,1,1,1,1,1,TestTigerCond}, -- Test Tiger + +[40838625] = {1,1,1,1,1,1,1,1,1,1,}, -- Sandstorm Mirror Force +[96216229] = {5,1,1,1,1,1,1,1,1,1,ChariotCond}, -- War Chariot + +[27346636] = {1,1,9,1,1,1,1,1,1,1,HeraklinosCond}, -- Heraklinos +[29357956] = {1,1,9,1,1,1,1,1,1,1,NerokiusCond}, -- Nerokius +[48156348] = {9,1,10,1,8,1,1,1,1,1,GyzarusCond}, -- Gyzarus +[63767246] = {1,1,1,1,1,1,1,1,1,1,}, -- Titanic Galaxy +[01639384] = {1,1,1,1,1,1,1,1,1,1,}, -- Felgrand +[56832966] = {1,1,1,1,1,1,1,1,1,1,}, -- Utopia Lightning +[84013237] = {1,1,1,1,1,1,1,1,1,1,}, -- Utopia +[86848580] = {1,1,1,1,1,1,1,1,1,1,}, -- Zerofyne +[63746411] = {1,1,1,1,1,1,1,1,1,1,}, -- Giant Hand +[82633039] = {1,1,1,1,2,1,1,1,1,1,}, -- Castel +[95169481] = {1,1,1,1,1,1,1,1,1,1,}, -- DDW +[22653490] = {1,1,1,1,1,1,1,1,1,1,}, -- Chidori + +} +function UsePrisma(c,mode) + if mode == 1 + and CardsMatchingFilter(AIDeck(),FilterID,41470137)>0 -- Bestiari + and HasIDNotNegated(AIExtra(),48156348,true) -- Gyzarus + then + return true + end + if mode == 2 + and CardsMatchingFilter(AIDeck(),FilterID,78868776)>0 -- Laquari + and HasIDNotNegated(AIExtra(),27346636,true) -- Heraklinos + then + GlobalCardMode = 1 + GlobalTargetSet(FindID(AIExtra(),27346636)) + return true + end +end +function SummonPrisma(c,mode) + local mats = CardsMatchingFilter(AIMon(),GladBeastNonFusion,c) + if mode == 1 + and CardsMatchingFilter(AIDeck(),FilterID,41470137)>0 -- Bestiari + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and (mats>0 and(mats<2 or not HasID(AIMon(),41470137,true)) -- Bestiari + or HasIDNotNegated(AICards(),92373006,true) -- Test Tiger + and HasIDNotNegated(AIDeck(),25924653,true) -- Darius + or HasIDNotNegated(AICards(),01845204,true,UseIFGlad)-- Instant Fusion + or HasIDNotNegated(AICards(),97077563,true,UseCotHGlad)) -- Call of the Haunted + then + return true + end + if mode == 2 + and CardsMatchingFilter(AIDeck(),FilterID,78868776)>0 -- Laquari + and HasID(AIExtra(),27346636,true) -- Heraklinos + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and HasID(AIMon(),41470137,true) + and mats<2 + then + return true + end + if mode == 3 + and #AIMon()==0 + --and TurnEndCheck() + then + return true + end +end +function SummonGyzarus(c,mode) + local targets = SubGroup(OppField(),GyzarusFilter) + local prio = SubGroup(targets,FilterPriorityTarget) + local mats = SubGroup(AIMon(),GladBeastNonFusion) + if not mode then + return DualityCheck() + and #targets>0 + end + if mode == 1 + and (#targets>1 or #prio>0) + and #mats>1 + then + return true + end + if mode == 2 + and #targets>0 + and #mats>1 + then + return true + end + if mode == 3 + --and --TODO: add check for temporary summons + then + return true + end +end +function UseAHLGlad(c,mode) + if mode == 1 + and SummonGyzarus() + and HasIDNotNegated(AIDeck(),89312388,true,UsePrisma,1) -- Prisma + and CardsMatchingFilter(AIHand(),GladBeastFilter,07573135)>0 -- Augustus + then + return true + end + if mode == 2 + and SummonGyzarus() + and HasIDNotNegated(AIDeck(),89312388,true,UsePrisma,1) -- Prisma + and HasIDNotNegated(AIHand(),92373006,true) -- Test Tiger + then + return true + end + if mode == 3 + and SummonGyzarus() + and HasIDNotNegated(AIDeck(),89312388,true,UsePrisma,1) -- Prisma + and (HasIDNotNegated(AICards(),01845204,true,UseIFGlad) -- Instant Fusion + or HasIDNotNegated(AICards(),97077563,true,UseCotHGlad)) -- Call of the Haunted + then + return true + end +end +function UseIFGlad(c,mode) + local mats = CardsMatchingFilter(AIMon(),GladBeastNonFusion,c) + if AI.GetPlayerLP(1)<=1000 + or not DualityCheck() + then + return false + end + if not mode + and HasIDNotNegated(AIExtra(),17412721,true) -- Norden + and SpaceCheck()>2 + then + return true + end + if mode == 1 + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and HasIDNotNegated(AIExtra(),17412721,true) -- Norden + and HasID(AIGrave(),41470137,true) -- Bestiari + and mats>0 + and (not HasID(AIMon(),41470137,true) or mats==1) -- Bestiari + and SpaceCheck()>1 + then + GlobalIFTarget = 17412721 -- Norden + return true + end + if mode == 2 + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and HasIDNotNegated(AIExtra(),17412721,true) -- Norden + and HasID(AIMon(),41470137,true) -- Bestiari + and CardsMatchingFilter(AIGrave(),GladBeastNonFusion)>0 + and mats==1 + and SpaceCheck()>1 + then + GlobalIFTarget = 17412721 -- Norden + return true + end +end +function SummonGladBeast(c,mode) + if mode == 1 + and HasIDNotNegated(AICards(),92373006,true) -- Test Tiger + and HasID(AIGrave(),41470137,true) -- Bestiari + and HasIDNotNegated(AIDeck(),25924653,true) -- Darius + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + then + return true + end + if mode == 2 + and HasIDNotNegated(AICards(),92373006,true) -- Test Tiger + and HasID(AIHand(),41470137,true,ExcludeCard,c) -- Bestiari + and HasIDNotNegated(AIDeck(),07573135,true) -- Augustus + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + then + return true + end + if mode == 3 + and BattlePhaseCheck() + and CanAttackSafely(c,nil,0.8) + and OverExtendCheck() + then + return true + end + if mode == 4 + --and TurnEndCheck() + and CardsMatchingFilter(AIMon(),GladBeastFilter)==0 + and HasBackrow() + then + return true + end +end +function SetGladBeast(c,mode) + local mats = CardsMatchingFilter(AIMon(),GladBeastNonFusion) + if mode == 1 + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and HasID(AIMon(),41470137,true) -- Bestiari + and mats<2 + then + return true + end + if mode == 2 + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and HasID(AIMon(),41470137,true) -- Bestiari + and mats<2 + then + return true + end +end +function BestiariFilter(c,forced) + local result + if forced then + result = (DestroyFilter(c) and Targetable(c,TYPE_MONSTER) and CurrentOwner(c)==2) + or (CurrentOwner(c)==1 and c.id == 97077563 and CardTargetCheck(c)==0 and FilterPosition(c,POS_FACEUP)) + else + result = DestroyFilterIgnore(c) and Affected(c,TYPE_MONSTER,4) and Targetable(c,TYPE_MONSTER) + end + return result +end +function UseBestiari(c,mode) + if mode == 1 + and CardsMatchingFilter(OppST(),BestiariFilter)>0 + then + return true + end + if mode == 2 + and (CardsMatchingFilter(AllST(),BestiariFilter,true)>0 + or Negated(c) or GlobalSummonNegated) + then + return true + end +end +function SetBestiari(c,mode) + local mats = CardsMatchingFilter(AIMon(),GladBeastNonFusion) + if mode == 1 + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and mats>0 + and not HasIDNotNegated(AIMon(),c.id,true) + then + return true + end +end +function SummonTestTiger(c,mode) + return UseTestTiger(c,mode) + and not HasIDNotNegated(AIMon(),c.id,true) +end +function UseTestTiger(c,mode) + if mode == 1 + and HasIDNotNegated(AIDeck(),25924653,true) -- Darius + and HasID(AIGrave(),41470137,true) -- Bestiari + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and (CardsMatchingFilter(AIMon(),GladBeastNonFusion)==1 or not HasID(AIMon(),41470137,true)) -- Bestiari + then + return true + end + if mode == 2 + and HasIDNotNegated(AIDeck(),07573135,true) -- Augustus + and HasID(AIHand(),41470137,true,UseBestiari,2) -- Bestiari + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and (CardsMatchingFilter(AIMon(),GladBeastNonFusion)==1 or not HasID(AIMon(),41470137,true)) -- Bestiari + then + return true + end +end +function UseCotHGlad(c,mode) + if not mode + and DualityCheck() + and SpaceCheck()>0 + then + return true + end + if mode == 1 + and HasIDNotNegated(AIGrave(),48156348,true,FilterRevivable) -- Gyzarus + and SummonGyzarus() + then + GlobalCardMode = 1 + GlobalTargetSet(FindID(48156348,AIGrave())) -- Gyzarus + return true + end + if mode == 2 + and HasIDNotNegated(AIGrave(),17412721,true,FilterRevivable) -- Norden + and HasID(AIGrave(),41470137,true) -- Bestiari + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and SpaceCheck()>1 + then + GlobalCardMode = 1 + GlobalTargetSet(FindID(17412721,AIGrave())) -- Norden + return true + end + if mode == 3 + and HasID(AIGrave(),41470137,true) -- Bestiari + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and CardsMatchingFilter(AIMon(),GladBeastNonFusion)==1 + then + GlobalCardMode = 1 + GlobalTargetSet(FindID(41470137,AIGrave())) -- Bestiari + return true + end + if mode == 4 + and HasID(AIMon(),41470137,true) -- Bestiari + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and CardsMatchingFilter(AIGrave(),GladBeastNonFusion)>0 + and CardsMatchingFilter(AIMon(),GladBeastNonFusion)==1 + then + return true + end + if mode == 5 + and HasID(AIGrave(),29357956,true,FilterRevivable) -- Nerokius + then + GlobalCardMode = 1 + GlobalTargetSet(FindID(29357956,AIGrave())) -- Nerokius + return true + end +end +function ContactFusion(index,id) + if index == nil then + index = CurrentIndex + end + GlobalFusionMaterial = true + if id then + GlobalSSCardID = id + end + return {COMMAND_SPECIAL_SUMMON,index} +end +function NerokiusFilter(c,source) + return BattleTargetCheck(c,source) + and (FilterPosition(c,POS_FACEDOWN) + or not SelectAttackConditions(c) + and SelectAttackConditions(c,source)) +end +function SummonNerokius(c,mode) + local mats = SubGroup(AIMon(),GladBeastNonFusion) + if #mats<3 then return false end + if mode == 1 + and MatchupCheck(c.id) + and CanWinBattle(c,OppMon()) + then + return true + end + if mode == 2 + and BattlePhaseCheck() + and CanWinBattle(c,OppMon(),nil,nil,NerokiusFilter,c) + then + return true + end + if mode == 3 + and OppHasStrongestMonster() + and CanWinBattle(c,OppMon()) + then + return true + end + if mode == 4 + and MP2Check() + then + return true + end +end +function SummonHeraklinos(c,mode) + local mats = SubGroup(AIMon(),GladBeastNonFusion) + if #mats<3 then return false end + if mode == 1 + and MatchupCheck(c.id) + and OppGetStrongestAttack()0 + then + return true + end + if mode == 2 + and OppGetStrongestAttack()2 + then + return true + end + if mode == 3 + and OppHasStrongestMonster() + and CanWinBattle(c,OppMon()) + then + return true + end +end +function GladBeastXYZMaterialCheck(c) -- only XYZ summon, if AI has no backrow, + if not HasBackrow() then -- or leaves a Gladbeast on the field for Chariot + return MP2Check() + end + local cards = SubGroup(AIMon(),GladBeastNonFusion) + if c and not FilterLocation(c,LOCATION_MZONE) + then + table.insert(cards,c) + end + return #cards>2 +end +--[[ +63767246 -- Titanic Galaxy +01639384 -- Felgrand +56832966 -- Utopia Lightning +84013237 -- Utopia +86848580 -- Zerofyne +63746411 -- Giant Hand +82633039 -- Castel +95169481 -- DDW +22653490 -- Chidori +function SummonFelgrandGladbeast(c,mode) +end +function SummonTitanicGalaxyGladbeast(c,mode) +end +function SummonUtopiaGladbeast(c,mode) +end +function SummonChidoriGladbeast(c,mode) +end +function SummonZerofyneGladbeast(c,mode) +end +]] + +function UseBomGladbeast(card) + local result = true + if #AIMon() == 0 then + result = false + end + for i,c in pairs(AIMon()) do + if CanAttackSafely(c,OppMon(),true) then + result = false + end + end + local targets = SubGroup(OppMon(),MoonFilter) + if result and #targets>0 then + targets = SubGroup(targets,FilterDefenseMax,AIGetStrongestAttack(true,GladBeastFilter)) + if #targets>0 then + GlobalCardMode = 1 + GlobalTargetSet(targets[1]) + end + return true + end +end +function GladBeastInit(cards) + local Act = cards.activatable_cards + local Sum = cards.summonable_cards + local SpSum = cards.spsummonable_cards + local Rep = cards.repositionable_cards + local SetMon = cards.monster_setable_cards + local SetST = cards.st_setable_cards + if HasIDNotNegated(Act,97077563,UseCotHGlad,1) then + return Activate() + end + if HasID(Act,89312388,UsePrisma,1) then + return Activate() + end + if HasID(SpSum,48156348,SummonGyzarus,1) then + return ContactFusion() + end + if HasID(SpSum,48156348,SummonGyzarus,2) then + return ContactFusion() + end + if HasID(Act,89312388,UsePrisma,2) then + return Activate() + end + + if HasID(Act,08949584,UseAHLGlad,1) then + return Activate() + end + if HasID(Sum,89312388,SummonPrisma,1) then + return Summon() + end + if HasID(Sum,89312388,SummonPrisma,2) then + return Summon() + end + if HasID(Act,08949584,UseAHLGlad,2) then + return Activate() + end + if HasID(Act,08949584,UseAHLGlad,3) then + return Activate() + end + if HasID(SetMon,41470137,SetBestiari,1) then + return Set() + end + local gladbeasts = { -- order of setting/summoning, if just needed as material + 00612115, -- Retiari + 25924653, -- Darius + 57731460, -- Equeste + 78868776, -- Laquari + 41470137, -- Bestiari + } + for i,id in pairs(gladbeasts) do + if HasID(SetMon,id,SetGladBeast,1) then + return Set() + end + end + for i,id in pairs(gladbeasts) do + if HasID(Sum,id,SummonGladBeast,1) then + return Summon() + end + if HasID(Sum,id,SummonGladBeast,2) then + return Summon() + end + end + + if HasID(Act,92373006,UseTestTiger,1) then + return Activate() + end + if HasID(SpSum,92373006,SummonTestTiger,1) then + return SpSummon() + end + if HasID(Act,92373006,UseTestTiger,2) then + return Activate() + end + if HasID(SpSum,92373006,SummonTestTiger,2) then + return SpSummon() + end + + if HasIDNotNegated(Act,01845204,UseIFGlad,1) then + return Activate() + end + if HasIDNotNegated(Act,01845204,UseIFGlad,2) then + return Activate() + end + if HasIDNotNegated(Act,97077563,UseCotHGlad,2) then + return Activate() + end + if HasIDNotNegated(Act,97077563,UseCotHGlad,3) then + return Activate() + end + if HasIDNotNegated(Act,97077563,UseCotHGlad,4) then + return Activate() + end + if HasIDNotNegated(Act,97077563,UseCotHGlad,5) then + return Activate() + end + gladbeasts = { -- order of summoning, if attacking + 78868776, -- Laquari + 25924653, -- Darius + 57731460, -- Equeste + 00612115, -- Retiari + 41470137, -- Bestiari + } + for i,id in pairs(gladbeasts) do + if HasID(Sum,id,SummonGladBeast,3) then + return Summon() + end + end + gladbeasts = { -- order of summoning, if just summoning for Chariot + 78868776, -- Laquari + 25924653, -- Darius + 57731460, -- Equeste + 00612115, -- Retiari + 41470137, -- Bestiari + } + for i,id in pairs(gladbeasts) do + if HasID(Sum,id,SummonGladBeast,4) then + return Summon() + end + end + if HasID(Sum,89312388,SummonPrisma,3) then + return Summon() + end + + if #AIMon()>1 and GladBeastXYZMaterialCheck() then + if HasID(SpSum,63767246,SummonTitanicGalaxy,1) then + return XYZSummon() + end + if HasID(SpSum,01639384,SummonFelgrand,1) then + return XYZSummon() + end + if HasID(SpSum,22653490,SummonChidori,1) then + return XYZSummon() + end + if HasID(SpSum,84013237,SummonUtopia,1) then + return XYZSummon() + end + if HasID(SpSum,84013237,SummonUtopia,2) then + return XYZSummon() + end + if HasID(SpSum,86848580,SummonZerofyne) then + return XYZSummon() + end + if HasID(SpSum,82633039,SummonSkyblaster) then + return XYZSummon() + end + if HasID(SpSum,22653490,SummonChidori,2) then + return XYZSummon() + end + if HasID(SpSum,01639384,SummonFelgrand,2) then + return XYZSummon() + end + if HasID(SpSum,63767246,SummonTitanicGalaxy,2) then + return XYZSummon() + end + if HasID(SpSum,84013237,SummonUtopia,3) then + return XYZSummon() + end + end + + if HasID(SpSum,27346636,SummonHeraklinos,1) then + return ContactFusion() + end + if HasID(SpSum,29357956,SummonNerokius,1) then + return ContactFusion() + end + if HasID(SpSum,29357956,SummonNerokius,2) then + return ContactFusion() + end + if HasID(SpSum,27346636,SummonHeraklinos,2) then + return ContactFusion() + end + if HasID(SpSum,29357956,SummonNerokius,3) then + return ContactFusion() + end + if HasID(SpSum,29357956,SummonNerokius,4) then + return ContactFusion() + end + if HasID(SpSum,27346636,SummonHeraklinos,3) then + return ContactFusion() + end + + if HasIDNotNegated(Act,14087893,UseBomGladbeast) then + return Activate() + end + return nil +end +function AugustusTarget(cards) + if LocCheck(cards,LOCATION_DECK) then + return Add(cards,PRIO_TOFIELD) + end + return Add(cards,PRIO_TOFIELD) +end +function LaquariTarget(cards) + if LocCheck(cards,LOCATION_DECK) then + return Add(cards,PRIO_TOFIELD) + end +end +function PrismaTarget(cards) + if GlobalCardMode == 1 then + GlobalCardMode = nil + return Add(cards,PRIO_TOFIELD,1,FilterGlobalTarget,cards) + end + if LocCheck(cards,LOCATION_EXTRA) then + if CardsMatchingFilter(AIDeck(),FilterID,41470137)>0 -- Bestiari + then + return Add(cards,PRIO_TOFIELD,1,FilterID,48156348) -- Gyzarus + else + return Add(cards,PRIO_TOFIELD,1,FilterID,27346636) -- Heraklinos + end + end + return Add(cards,PRIO_TOGRAVE) +end +function DariusTarget(cards) + if LocCheck(cards,LOCATION_DECK) then + return Add(cards,PRIO_TOFIELD) + end + GlobalSummonNegated=true + local result = Add(cards,PRIO_TOFIELD,1,TargetCheck) + TargetSet(cards[1]) + return result +end +function EquesteTarget(cards) + if LocCheck(cards,LOCATION_DECK) then + return Add(cards,PRIO_TOFIELD) + end + local result = Add(cards,PRIO_TOHAND,1,TargetCheck) + TargetSet(cards[1]) + return result +end +function BestiariTarget(cards,c) + if LocCheck(cards,LOCATION_DECK) then + return Add(cards,PRIO_TOFIELD) + end + if NotNegated(c) then + return BestTargets(cards,1,TARGET_DESTROY,TargetCheck) + end + return BestTargets(cards,1,TARGET_DESTROY) +end +function RetiariTarget(cards) + if LocCheck(cards,LOCATION_DECK) then + return Add(cards,PRIO_TOFIELD) + end + return BestTargets(cards,1,TARGET_DESTROY) +end +function TestTigerTarget(cards) + if LocCheck(cards,LOCATION_DECK) then + return Add(cards,PRIO_TOFIELD) + end + return Add(cards,PRIO_TOGRAVE) +end +function HeraklinosTarget(cards,c,min,max) + return Add(cards,PRIO_TOGRAVE) +end +function NerokiusTarget(cards,c,min,max) + if LocCheck(cards,LOCATION_DECK) then + return Add(cards,PRIO_TOFIELD,max) + end +end +function GyzarusFilter(c,ignore) + local check + if ignore then + check = DestroyFilterIgnore(c) + else + check = DestroyFilter(c) + end + return Affected(c,TYPE_MONSTER,6) + and Targetable(c,TYPE_MONSTER) + and check +end +function GyzarusTarget(cards,c,min,max) + if LocCheck(cards,LOCATION_DECK) then + return Add(cards,PRIO_TOFIELD,max) + end + local targets = CardsMatchingFilter(OppField(),GyzarusFilter,false) + targets = math.max(min,math.min(max,targets)) + return BestTargets(cards,targets,TARGET_DESTROY) +end +GladBeastTargetFunctions = { +[07573135] = AugustusTarget, -- Augustus +[78868776] = LaquariTarget, -- Laquari +[89312388] = PrismaTarget, -- Prisma +[25924653] = DariusTarget, -- Darius +[57731460] = EquesteTarget, -- Equeste +[41470137] = BestiariTarget, -- Bestiari +[00612115] = RetiariTarget, -- Retiari +[92373006] = TestTigerTarget, -- Test Tiger +[27346636] = HeraklinosTarget, -- Heraklinos +[29357956] = NerokiusTarget, -- Nerokius +[48156348] = GyzarusTarget, -- Gyzarus +} +function GladBeastCard(cards,min,max,id,c) + for i,v in pairs(GladBeastTargetFunctions) do + if id == i then + return v(cards,c,min,max) + end + end + return nil +end +function ChainCothGlad(c) + if RemovalCheckCard(c) then + return true -- no minion can profit from that, do it anyway? + end + if not UnchainableCheck(c) then + return false + end + local gyz = HasIDNotNegated(AIGrave(),48156348,true,FilterRevivable) and SummonGyzarus() -- Gyzarus + if gyz then gyz = FindID(48156348,AIGrave()) end -- Gyzarus + local targets = SubGroup(OppField(),GyzarusFilter) + local prio = HasPriorityTarget(targets,true) + if Duel.GetTurnPlayer()==1-player_ai + and Duel.GetCurrentChain()==0 + and gyz + then + if #targets>1 + and prio + then + GlobalCardMode = 1 + GlobalTargetSet(gyz) + return true + end + if Duel.GetCurrentPhase()==PHASE_END + and Duel.GetCurrentChain()==0 + and #targets>1 + then + GlobalCardMode = 1 + GlobalTargetSet(gyz) + return true + end + local aimon,oppmon=GetBattlingMons() + if IsBattlePhase() + and WinsBattle(oppmon,aimon) + and GyzarusFilter(oppmon) + and Duel.GetCurrentChain()==0 + then + GlobalCardMode = 1 + GlobalTargetSet(gyz) + return true + end + if IsBattlePhase() + and GyzarusFilter(oppmon) + and #AIMon()==0 + and Duel.GetCurrentChain()==0 + then + GlobalCardMode = 1 + GlobalTargetSet(gyz) -- Gyzarus + return true + end + end +end +function SandstormMirrorFilter(c) + return FilterPosition(c,POS_FACEUP_ATTACK) + and Affected(c,TYPE_TRAP) +end +function ChainSandstormMirror(c) + local targets = SubGroup(OppMon(),SandstormMirrorFilter) + if RemovalCheckCard(c) then + return true + end + if not UnchainableCheck(c) then + return false + end + if ExpectedDamage()>=AI.GetPlayerLP(1) then + return true + end + if ExpectedDamage()>=0.8*AI.GetPlayerLP(1) and #targets>0 then + return true + end + local aimon,oppmon=GetBattlingMons() + if aimon and oppmon + and WinsBattle(oppmon,aimon) + and SandstormMirrorFilter(oppmon) + then + return true + end +end +function IcarusTribute(c) + if HasIDNotNegated(AIST(),97077563,true) -- CotH + and c.id == 48156348 -- Gyzarus + then + return true + end + return FilterRace(c,RACE_WINDBEAST) + and GladBeastNonFusion(c) +end +function ChainIcarusGlad(c) + local targets = SubGroup(OppField(),IcarusFilter) + local prio = HasPriorityTarget(targets,true) + local tributes = SubGroup(AIMon(),IcarusTribute) + if Duel.GetTurnPlayer()==1-player_ai + and Duel.GetCurrentPhase()==PHASE_END + and Duel.GetCurrentChain()==0 + and (#targets>1 and #tributes>0 + or #targets>2 and HasIDNotNegated(tributes,48156348,true)) -- Gyzarus + and UnchainableCheck(c) + then + return true + end + if ChainIcarus(c) then + return true + end +end +GladBeastTag = { +07573135, -- Augustus +78868776, -- Laquari +89312388, -- Prisma +25924653, -- Darius +57731460, -- Equeste +41470137, -- Bestiari +00612115, -- Retiari +29357956, -- Nerokius +48156348, -- Gyzarus +} +function TagGladBeast(c) + local check = false + for i,id in pairs(GladBeastTag) do + if id == c.id then + check = true + end + end + if not check then return false end + local desc = 0 + if c.id==78868776 + then + desc=c.id*16 + else + desc=c.id*16+1 + end + return c.description==desc +end +function GladBeastChain(cards) + for i,c in pairs(cards) do + if GladBeastFilter(c) and TagGladBeast(c) then + return Chain(i) + end + end + if HasIDNotNegated(cards,97077563,ChainCothGlad) then + return Chain() + end + if HasIDNotNegated(cards,40838625,ChainSandstormMirror) then + return Chain() + end + if HasIDNotNegated(cards,53567095,ChainIcarusGlad) then + return Chain() + end + return nil +end +function ChainGyzarus(c) + return CardsMatchingFilter(OppField(),GyzarusFilter)>0 +end +function ChainDarius(c) + return true +end +function ChainAugustus(c) + if HasID(AIHand(),41470137,true,UseBestiari,2) -- Bestiari + and HasIDNotNegated(AIExtra(),48156348,true,SummonGyzarus) -- Gyzarus + and not HasID(AIMon(),41470137,true) -- Bestiari + then + return true + end +end +function ChainRetiari(c) + return true +end +function GladBeastEffectYesNo(id,c) + if TagGladBeast(c) then + return true + end + if id == 48156348 and ChainGyzarus(c) then + return true + end + if id == 25924653 and ChainDarius(c) then + return true + end + if id == 07573135 and ChainAugustus(c) then + return true + end + if id == 00612115 and ChainRetiari(c) then + return true + end + return nil +end +function GladBeastYesNo(desc) +end +function GladBeastTribute(cards,min, max) +end +function GladBeastBattleCommand(cards,targets,act) + SortByATK(cards) + for i,c in pairs(cards) do + if GladBeastFilter(c) + and NotNegated(c) + and CanAttackSafely(c,targets,0.8) + then + return Attack(i) + end + end +end +function GladBeastAttackTarget(cards,attacker) +end +function GladBeastAttackBoost(cards) +end +function GladBeastOption(options) +end +function GladBeastChainOrder(cards) +end +GladBeastAtt={ +07573135, -- Augustus +78868776, -- Laquari +89312388, -- Prisma +25924653, -- Darius +57731460, -- Equeste +41470137, -- Bestiari +27346636, -- Heraklinos +29357956, -- Nerokius +48156348, -- Gyzarus +} +GladBeastVary={ +00612115, -- Retiari +} +GladBeastDef={ +92373006, -- Test Tiger +} +function GladBeastPosition(id,available) + result = nil + for i=1,#GladBeastAtt do + if GladBeastAtt[i]==id + then + result=POS_FACEUP_ATTACK + end + end + for i=1,#GladBeastVary do + if GladBeastVary[i]==id + then + if (BattlePhaseCheck() or Duel.GetCurrentPhase()==PHASE_BATTLE) + and Duel.GetTurnPlayer()==player_ai + then + result=POS_FACEUP_ATTACK + else + result=POS_FACEUP_DEFENSE + end + end + end + for i=1,#GladBeastDef do + if GladBeastDef[i]==id + then + result=POS_FACEUP_DEFENSE + end + end + return result +end \ No newline at end of file diff --git a/ai/decks/HAT.lua b/ai/decks/HAT.lua index 33b583b8..446748a1 100644 --- a/ai/decks/HAT.lua +++ b/ai/decks/HAT.lua @@ -216,7 +216,7 @@ function SummonMonster(atk) return OppGetStrongestAttDef()<=atk and #AIMon()==0 and Duel.GetTurnCount()>1 end function SetMonster() - return #AIMon()==0 and (Duel.GetCurrentPhase()==PHASE_MAIN2 or not GlobalBPAllowed) + return #AIMon()==0 and TurnEndCheck() end function SetDionaea() return #AIMon()==0 and (Duel.GetCurrentPhase()==PHASE_MAIN2 or not GlobalBPAllowed) @@ -292,10 +292,10 @@ function HATInit(cards) if HasID(Summonable,91812341) and SummonMonster(Summonable[CurrentIndex].attack) then return {COMMAND_SUMMON,CurrentIndex} end - if HasID(Repositionable,68535320,false,nil,nil,POS_FACEDOWN_DEFENCE) and SummonFireHand() then + if HasID(Repositionable,68535320,false,nil,nil,POS_FACEDOWN_DEFENSE) and SummonFireHand() then return {COMMAND_CHANGE_POS,CurrentIndex} end - if HasID(Repositionable,95929069,false,nil,nil,POS_FACEDOWN_DEFENCE) and SummonIceHand() then + if HasID(Repositionable,95929069,false,nil,nil,POS_FACEDOWN_DEFENSE) and SummonIceHand() then return {COMMAND_CHANGE_POS,CurrentIndex} end if HasID(SetableMon,45803070) and SetDionaea() then @@ -540,7 +540,7 @@ function ChainCotH(card) return true end end - if Duel.GetCurrentPhase()==PHASE_BATTLE then + if IsBattlePhase() then local source=Duel.GetAttacker() local target=Duel.GetAttackTarget() if source and source:IsControler(1-player_ai) then @@ -582,19 +582,20 @@ function MoonWhitelist2(id) -- cards to chain Book of Moon to to save your monst or id == 70342110 -- DPrison end function MoonFilter(c) - return bit32.band(c.type,TYPE_MONSTER)>0 and bit32.band(c.position,POS_FACEUP)>0 - and c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 and c:is_affected_by(EFFECT_IMMUNE_EFFECT)==0 + return FilterType(c,TYPE_MONSTER) + and FilterPosition(c,POS_FACEUP) + and Affected(c,TYPE_SPELL) + and Targetable(c,TYPE_SPELL) + and not FilterType(c,TYPE_TOKEN) end function MoonFilter2(c,p) - return c:IsType(TYPE_MONSTER) and c:IsPosition(POS_FACEUP) and c:IsControler(p) - and not c:IsHasEffect(EFFECT_CANNOT_BE_EFFECT_TARGET) and not c:IsHasEffect(EFFECT_IMMUNE_EFFECT) - and not FilterType(c,TYPE_TOKEN) + return MoonFilter(c) and c:IsControler(p) end function MoonFilter3(c) return MoonFilter(c) and ShaddollFusionFilter(c) end function MoonOppFilter(c) - return MoonFilter(c) and bit32.band(c.type,TYPE_FLIP)==0 + return MoonFilter(c) and FilterType(c,TYPE_FLIP) end function MoonPriorityFilter(c) return MoonFilter(c) and MoonWhitelist(c) @@ -648,7 +649,7 @@ function ChainBoM(card) end end end - if Duel.GetCurrentPhase() == PHASE_BATTLE and Duel.GetTurnPlayer()==1-player_ai then + if IsBattlePhase() and Duel.GetTurnPlayer()==1-player_ai then local source = Duel.GetAttacker() local target = Duel.GetAttackTarget() if WinsBattle(source,target) and MoonFilter2(source,1-player_ai) @@ -768,7 +769,7 @@ function ChainSanctum() return true end if Duel.GetTurnPlayer()==1-player_ai and targets2>0 and check then - if Duel.GetCurrentPhase()==PHASE_BATTLE then + if IsBattlePhase() then local source = Duel.GetAttacker() if source and source:IsControler(1-player_ai) then GlobalCardMode = 1 @@ -866,7 +867,7 @@ function ChainIgnition(c) if targets3 > 0 and ArtifactCheck(true) then return true end - if Duel.GetCurrentPhase()==PHASE_BATTLE then + if IsBattlePhase() then local source=Duel.GetAttacker() local target=Duel.GetAttackTarget() if source and source:IsControler(1-player_ai) then @@ -1004,7 +1005,7 @@ function HATPosition(id,available) if HATAtt[i]==id then result=POS_FACEUP_ATTACK end end for i=1,#HATDef do - if HATDef[i]==id then result=POS_FACEUP_DEFENCE end + if HATDef[i]==id then result=POS_FACEUP_DEFENSE end end if id == 68535320 or id == 95929069 -- Fire Hand, Ice Hand or id == 63746411 -- Giant Hand @@ -1014,7 +1015,7 @@ function HATPosition(id,available) then result = POS_FACEUP_ATTACK else - result = POS_FACEUP_DEFENCE + result = POS_FACEUP_DEFENSE end end return result diff --git a/ai/decks/HERO.lua b/ai/decks/HERO.lua index c863a1ed..1120d779 100644 --- a/ai/decks/HERO.lua +++ b/ai/decks/HERO.lua @@ -682,12 +682,12 @@ function SummonShadowMist(c,mode) return false end function RepoShadowMist(c) - if FilterPosition(c,POS_FACEDOWN_DEFENCE) + if FilterPosition(c,POS_FACEDOWN_DEFENSE) and HasID(AICards(),21143940,true) then return true end - if FilterPosition(c,POS_FACEUP_DEFENCE) + if FilterPosition(c,POS_FACEUP_DEFENSE) and HasID(AICards(),21143940,true) and BattlePhaseCheck() and (CanWinBattle(c,OppMon()) @@ -1197,7 +1197,7 @@ function ChainRoD(c) GlobalCardMode = 1 return true end - if Duel.GetCurrentPhase()==PHASE_BATTLE then + if IsBattlePhase() then local aimon,oppmon = GetBattlingMons() if WinsBattle(oppmon,aimon) and RoDFilter(oppmon) @@ -1239,7 +1239,7 @@ function ChainCCV(card) if RemovalCheckCard(card) then return true end - if Duel.GetCurrentPhase()==PHASE_BATTLE then + if IsBattlePhase() then local aimon,oppmon=GetBattlingMons() if WinsBattle(oppmon,aimon) and CCVFilter(aimon) @@ -1284,7 +1284,7 @@ function SummonDarkLaw(c,darkheroes,mode,bonus) GlobalCardMode = 1 return true end - if (c and Duel.GetCurrentPhase()==PHASE_BATTLE + if (c and IsBattlePhase() and Duel.GetTurnPlayer()==player_ai or not c and BattlePhaseCheck()) and CanFinishGame(card,nil,nil,bonus) @@ -1338,7 +1338,7 @@ function SummonDarkLaw(c,darkheroes,mode,bonus) end end end - if Duel.GetCurrentPhase()==PHASE_BATTLE + if IsBattlePhase() and Duel.GetTurnPlayer()==1-player_ai and UnchainableCheck(21143940) and mode == 2 @@ -1361,7 +1361,7 @@ function SummonDarkLaw(c,darkheroes,mode,bonus) return CanWinBattle(tc,OppMon()) and CanAttack(tc) end - if (c and Duel.GetCurrentPhase()==PHASE_BATTLE + if (c and IsBattlePhase() and Duel.GetTurnPlayer()==player_ai or not c and BattlePhaseCheck()) and CanWinBattle(card,OppMon()) @@ -1419,7 +1419,7 @@ function SummonAcid(c,waterheroes,mode) end return true end - if (c and Duel.GetCurrentPhase()==PHASE_BATTLE + if (c and IsBattlePhase() and Duel.GetTurnPlayer()==player_ai and ExpectedDamage(2)==0 or not c and BattlePhaseCheck()) @@ -1467,7 +1467,7 @@ function SummonKoga(c,lightheroes,mode) return true end SortByATK(lightheroes,true) - if (c and Duel.GetCurrentPhase()==PHASE_BATTLE and Duel.GetTurnPlayer()==player_ai + if (c and IsBattlePhase() and Duel.GetTurnPlayer()==player_ai or not c and BattlePhaseCheck()) and CardsMatchingFilter(OppMon(),KogaTargetFilter,lightheroes[1].attack)>0 and mode == 1 @@ -1479,7 +1479,7 @@ function SummonKoga(c,lightheroes,mode) end return true end - if (c and Duel.GetCurrentPhase()==PHASE_BATTLE + if (c and IsBattlePhase() and Duel.GetTurnPlayer()==player_ai and ExpectedDamage(2)==0 or not c and BattlePhaseCheck()) @@ -1511,7 +1511,7 @@ function SummonAnki(c,darkheroes,mode,bonus) end return true end - if (c and Duel.GetCurrentPhase()==PHASE_BATTLE + if (c and IsBattlePhase() and Duel.GetTurnPlayer()==player_ai or not c and BattlePhaseCheck()) and CanFinishGame(card,nil,1400) @@ -1527,7 +1527,7 @@ function SummonAnki(c,darkheroes,mode,bonus) end return true end - if (c and Duel.GetCurrentPhase()==PHASE_BATTLE + if (c and IsBattlePhase() and Duel.GetTurnPlayer()==player_ai and ExpectedDamage(2)==0 or not c and BattlePhaseCheck()) @@ -1548,7 +1548,7 @@ function SummonAnki(c,darkheroes,mode,bonus) return CanWinBattle(tc,OppMon()) and CanAttack(tc) end - if (c and Duel.GetCurrentPhase()==PHASE_BATTLE + if (c and IsBattlePhase() and Duel.GetTurnPlayer()==player_ai or not c and BattlePhaseCheck()) and CanWinBattle(card,OppMon(),true) @@ -1804,14 +1804,14 @@ function HEROPosition(id,available) then result=POS_FACEUP_ATTACK else - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end end for i=1,#HERODef do if HERODef[i]==id then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end if id == 50720316 then @@ -1821,7 +1821,7 @@ function HEROPosition(id,available) then result=POS_FACEUP_ATTACK else - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end return result diff --git a/ai/decks/Harpie.lua b/ai/decks/Harpie.lua index 11b40345..2e8cb191 100644 --- a/ai/decks/Harpie.lua +++ b/ai/decks/Harpie.lua @@ -396,7 +396,7 @@ function SummonHPPD(c) and MP2Check(2000) end function RepoHPPD(c) - return FilterPosition(c,POS_DEFENCE) and c.xyz_material_count>0 + return FilterPosition(c,POS_DEFENSE) and c.xyz_material_count>0 and not FilterAffected(c,EFFECT_DISABLE) end function SummonZerofyne(c) @@ -817,7 +817,7 @@ function HarpiePosition(id,available) if Duel.GetCurrentPhase()==PHASE_BATTLE and Duel.GetTurnPlayer()~=player_ai then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE else result=POS_FACEUP_ATTACK end @@ -826,7 +826,7 @@ function HarpiePosition(id,available) for i=1,#HarpieDef do if HarpieDef[i]==id then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end return result diff --git a/ai/decks/HeraldicBeast.lua b/ai/decks/HeraldicBeast.lua index 6a02f05a..c9713b22 100644 --- a/ai/decks/HeraldicBeast.lua +++ b/ai/decks/HeraldicBeast.lua @@ -37,11 +37,13 @@ function UsePlainCoat() local cards=UseLists({AIMon(),OppMon()}) local check={} local result=false - for i=1,#cards do - if check[cards[i].id] and (check[cards[i].id].owner==2 or cards[i].owner==2) then + for i,c in pairs(cards) do + if check[c.id] and FilterPosition(c,POS_FACEUP) + and (CurrentOwner(check[c.id])==2 or CurrentOwner(c)==2) + then result=true end - check[cards[i].id]=cards[i] + check[c.id]=c end return result end @@ -134,9 +136,11 @@ function UseTwinEagle() return false end function GenomHeritageFilter(c) - return bit32.band(c.type,TYPE_XYZ)>0 and c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 + return FilterType(c,TYPE_XYZ) + and Affected(c,TYPE_MONSTER,4) + and Targetable(c,TYPE_MONSTER) and (c.original_id~=47387961 or c.attack>0) - and bit32.band(c.position,POS_FACEUP_ATTACK)>0 + and FilterPosition(c,POS_FACEUP_ATTACK) end function UseGenomHeritage() return CardsMatchingFilter(OppMon(),GenomHeritageFilter)>0 @@ -568,7 +572,7 @@ function AHATarget(cards) if HasID(cards,47387961) and SummonGenomHeritage() then result=IndexByID(cards,47387961) end - if HasID(cards,46772449) and DeckCheck(DECK_HERALDIC) and SummonBelzebuth() then + if HasID(cards,46772449,SummonBelzebuth) and DeckCheck(DECK_HERALDIC) then result=IndexByID(cards,46772449) end if HasID(cards,12014404) and SummonCowboyDef() then @@ -688,7 +692,18 @@ function PaladynamoTarget(cards,minTargets) if result == nil then result = {math.random(#cards)} end return result end +GlobalFoolishFilter = nil function FoolishTarget(cards) + if GlobalFoolishFilter then + local filter = GlobalFoolishFilter + GlobalFoolishFilter = nil + return Add(cards,PRIO_TOGRAVE,1,filter) + end + if GlobalFoolishID then + local id = GlobalFoolishID + GlobalFoolishID = nil + return Add(cards,PRIO_TOGRAVE,1,FilterID,id) + end if DeckCheck(DECK_BUJIN) then return BujinAdd(cards,LOCATION_GRAVE) elseif DeckCheck(DECK_CHAOSDRAGON) or DeckCheck(DECK_BA) then @@ -819,7 +834,7 @@ function ChainSafeZone(c) GlobalTargetSet(targets[1],targets) return true end - if Duel.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then local source = Duel.GetAttacker() local target = Duel.GetAttackTarget() if source and target then @@ -842,12 +857,16 @@ function ChainSafeZone(c) end return false end - -function LanceFilter(card) +function LanceDisruptCheck(c,target) + c = GetCardFromScript(c) + return LanceFilter(target,true) + and (FilterSet(c,0xa5) or FilterSet(c,0x95)) +end +function LanceFilter(card,skippos) return Targetable(card,TYPE_SPELL) and Affected(card,TYPE_SPELL) and FilterType(card,TYPE_MONSTER) - and FilterPosition(card,POS_FACEUP_ATTACK) + and (FilterPosition(card,POS_FACEUP_ATTACK) or skippos) and FilterLocation(card,LOCATION_MZONE) end function ChainLance() @@ -883,6 +902,19 @@ function ChainLance() return true end end + if not UnchainableCheck(27243130) then + return false + end + for i=1,Duel.GetCurrentChain() do + local e,c,id = EffectCheck(1-player_ai,i) + if e then + local target = Duel.GetChainInfo(i, CHAININFO_TARGET_CARDS) + if target and LanceDisruptCheck(c,target:GetFirst()) then + GlobalTargetSet(target:GetFirst()) + return true + end + end + end return false end @@ -950,11 +982,11 @@ function HeraldicOnSelectPosition(id, available) if HeraldicAtt[i]==id then result=POS_FACEUP_ATTACK end end for i=1,#HeraldicDef do - if HeraldicDef[i]==id then result=POS_FACEUP_DEFENCE end + if HeraldicDef[i]==id then result=POS_FACEUP_DEFENSE end end if id==23649496 then if AI.GetCurrentPhase() == PHASE_MAIN2 or Duel.GetTurnCount() == 1 then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE else result=POS_FACEUP_ATTACK end diff --git a/ai/decks/Kozmo.lua b/ai/decks/Kozmo.lua index 8736a13d..807be40a 100644 --- a/ai/decks/Kozmo.lua +++ b/ai/decks/Kozmo.lua @@ -45,12 +45,18 @@ KozmoActivateBlacklist={ 67050396, -- Goodwitch 31061682, -- Farmgirl 56907986, -- Strawman +54063868, -- Dark Eclipser +01274455, -- Soartrooper +64280356, -- Tincan 67723438, -- Emergency Teleport 67237709, -- Kozmotown -43898403, -- Twin Twister +--43898403, -- Twin Twister 23171610, -- Limiter Removal 37520316, -- Mind Control 58577036, -- Reasoning +90452877, -- Kozmojo +97077563, -- CotH + } KozmoSummonBlacklist={ 55885348, -- Dark Destroyer @@ -60,6 +66,10 @@ KozmoSummonBlacklist={ 93302695, -- Wickedwitch 67050396, -- Goodwitch 31061682, -- Farmgirl +54063868, -- Dark Eclipser +01274455, -- Soartrooper +64280356, -- Tincan + 59438930, -- Ghost Ogre 56907986, -- Strawman 23434538, -- Maxx "C" @@ -68,6 +78,7 @@ KozmoSummonBlacklist={ 95169481, -- Diamond Dire Wolf 21044178, -- Abyss Dweller 18326736, -- Planetellarknight Ptolemaeus +01639384, -- Felgrand } KozmoSetBlacklist={ 58577036, -- Reasoning @@ -78,6 +89,8 @@ KozmoUnchainable={ 93302695, -- Wickedwitch 67050396, -- Goodwitch 31061682, -- Farmgirl +01274455, -- Soartrooper +64280356, -- Tincan 59438930, -- Ghost Ogre 56907986, -- Strawman 23434538, -- Maxx "C" @@ -87,6 +100,7 @@ KozmoUnchainable={ 20849090, -- Forerunner 29491334, -- Dog Fighter 94454495, -- Sliprider +90452877, -- Kozmojo } function KozmoFilter(c,exclude) local check = true @@ -119,6 +133,9 @@ function DestroyerCond(loc,c) if loc == PRIO_TOFIELD then return DestroyCheck(OppMon())>0 or #OppMon()==0 and CardsMatchingFilter(AIMon(),DestroyerFilter)>0 + or #OppMon()==0 and HasIDNotNegated(AIDeck(),56907986,true) + and DualityCheck() + and MacroCheck() end return true end @@ -135,7 +152,7 @@ function ForerunnerCond(loc,c) end function KozmotownCond(loc,c) if loc == PRIO_TOHAND then - if Duel.GetCurrentPhase()==PHASE_BATTLE + if IsBattlePhase() and Duel.GetTurnPlayer()==player_ai and CardsMatchingFilter(AIMon(),KozmoRider)>0 and CardsMatchingFilter(AIHand(),KozmoShip)==0 @@ -148,15 +165,125 @@ function KozmotownCond(loc,c) end function FarmgirlCond(loc,c) if loc == PRIO_TOHAND then - return not HasID(AICards(),c.id) + return Duel.GetTurnPlayer()==player_ai + and Duel.GetCurrentPhase()~=PHASE_END + and not HasID(AICards(),c.id) + and not NormalSummonCheck() + and BattlePhaseCheck() + and (CanDealBattleDamage(c,OppMon()) + or not OppHasStrongestMonster()) end if loc == PRIO_TOFIELD then return Duel.GetTurnPlayer()==player_ai and (CanDealBattleDamage(c,OppMon()) or not OppHasStrongestMonster()) - and (OPTCheck(c.id) or CardsMatchingFilter(AIMon(),KozmoRider)==0) + and OPTCheck(c.id) and not GlobalSummonNegated and not HasID(AIMon(),31061682,true) + and BattlePhaseCheck() + end + return true +end +function StrawmanCond(loc,c) + if loc == PRIO_TOHAND then + return Duel.GetTurnPlayer()==player_ai + and Duel.GetCurrentPhase()~=PHASE_END + and not HasID(AICards(),c.id) + and OPTCheck(c.id) + and not NormalSummonCheck() + and CardsMatchingFilter(AIBanish(),KozmoShip)>0 + and AI.GetPlayerLP(1)>1000 + and DualityCheck() + end + if loc == PRIO_TOFIELD then + return Duel.GetTurnPlayer()==player_ai + and Duel.GetCurrentPhase()~=PHASE_END + and not HasID(AIMon(),c.id) + and CardsMatchingFilter(AIBanish(),KozmoShip)>0 + and AI.GetPlayerLP(1)>1000 + and not GlobalSummonNegated + end + return true +end +function EclipserCond(loc,c) + return true +end +function TincanCond(loc,c) + if loc == PRIO_TOHAND then + if(Duel.GetTurnPlayer()==player_ai + or Duel.GetTurnPlayer()~=player_ai + and Duel.GetCurrentPhase()==PHASE_END) + and not HasID(AICards(),c.id) + and CardsMatchingFilter(AIHand(),KozmoShip)==0 + and CardsMatchingFilter(AIMon(),KozmoRider)>2 + and not GlobalSummonNegated + then + if CardsMatchingFilter(AIMon(),KozmoRider)>0 then + return 6 + end + return true + end + return false + end + if loc == PRIO_TOFIELD then + if(Duel.GetTurnPlayer()==player_ai + or Duel.GetTurnPlayer()~=player_ai + and Duel.GetCurrentPhase()==PHASE_END) + and not HasID(AIMon(),c.id) + and CardsMatchingFilter(AIHand(),KozmoShip)==0 + and CardsMatchingFilter(AIDeck(),KozmoShip)>2 + and not GlobalSummonNegated + then + if CardsMatchingFilter(AIMon(),KozmoRider)>0 then + return 6 + end + return true + end + return false + end + return true +end +function SoartrooperCond(loc,c) + if loc == PRIO_TOHAND then + return Duel.GetTurnPlayer()==player_ai + and Duel.GetCurrentPhase()~=PHASE_END + and not HasID(AICards(),c.id) + and OPTCheck(c.id) + and not NormalSummonCheck() + and CardsMatchingFilter(AIGrave(),KozmoRider)>0 + and AI.GetPlayerLP(1)>4000 + and DualityCheck() + end + if loc == PRIO_TOFIELD then + return Duel.GetTurnPlayer()==player_ai + and Duel.GetCurrentPhase()~=PHASE_END + and not HasID(AIMon(),c.id) + and CardsMatchingFilter(AIGrave(),KozmoRider)>0 + and AI.GetPlayerLP(1)>4000 + and not GlobalSummonNegated + end + return true +end +function SlipriderCond(loc,c) + if loc == PRIO_TOHAND then + return + end + if loc == PRIO_TOFIELD then + if Duel.GetTurnPlayer()==player_ai + and Duel.GetCurrentPhase()~=PHASE_END + and (FieldCheck(5)==1 + or CardsMatchingFilter(AIMon(),KozmoRider)>0 + and HasID(AIHand(),c.id,true,CardsNotEqual,c)) + then + return 9 + end + return DestroyCheck(OppST())>0 + end +end +function KozmojoCond(loc,c) + if loc==PRIO_TOHAND then + return not HasIDNotNegated(AICards(),c.id,true) + and CardsMatchingFilter(AIField(),KozmoShip)>0 end return true end @@ -165,14 +292,17 @@ KozmoPriorityList={ -- Kozmo -[55885348] = {7,3,8,4,1,1,2,1,1,1,DestroyerCond}, -- Dark Destroyer -[20849090] = {6,2,7,3,1,1,3,1,1,1,ForerunnerCond}, -- Forerunner -[29491334] = {4,1,6,1,1,1,4,1,3,1,DogfighterCond}, -- Dog Fighter -[94454495] = {3,1,5,1,1,1,3,1,1,1,SlipriderCond}, -- Sliprider +[54063868] = {6,1,6,1,1,1,2,1,6,1,EclipserCond}, -- Dark Eclipser +[55885348] = {8,3,8,4,1,1,2,1,9,1,DestroyerCond}, -- Dark Destroyer +[20849090] = {7,2,7,3,1,1,3,1,8,1,ForerunnerCond}, -- Forerunner +[29491334] = {4,1,6,1,1,1,4,1,7,1,DogfighterCond}, -- Dog Fighter +[94454495] = {3,1,5,1,1,1,3,1,5,1,SlipriderCond}, -- Sliprider [93302695] = {5,1,4,1,1,1,2,1,2,1,WickedwitchCond}, -- Wickedwitch -[67050396] = {1,1,3,1,1,1,4,1,1,1,GoodwitchCond}, -- Goodwitch -[31061682] = {8,2,9,2,1,1,1,1,1,1,FarmgirlCond}, -- Farmgirl -[56907986] = {2,1,2,1,1,1,3,1,1,1,StrawmanCond}, -- Strawman +[67050396] = {1,1,3,1,1,1,4,1,2,1,GoodwitchCond}, -- Goodwitch +[31061682] = {9,2,9,2,1,1,1,1,1,1,FarmgirlCond}, -- Farmgirl +[01274455] = {4,1,4,1,1,1,1,1,1,1,SoartrooperCond}, -- Soartrooper +[56907986] = {9,1,8,1,1,1,3,1,1,1,StrawmanCond}, -- Strawman +[64280356] = {5,1,5,1,1,1,1,1,1,1,TincanCond}, -- Tincan [37742478] = {1,1,1,1,1,1,1,1,1,1}, -- Honest [59438930] = {1,1,1,1,1,1,1,1,1,1}, -- Ghost Ogre @@ -183,13 +313,14 @@ KozmoPriorityList={ [73628505] = {1,1,1,1,1,1,1,1,1,1}, -- Terraforming [14087893] = {1,1,1,1,1,1,1,1,1,1}, -- Book of Moon [67723438] = {1,1,1,1,1,1,1,1,1,1}, -- Emergency Teleport -[67237709] = {9,1,1,1,1,1,1,1,1,1,KozmotownCond}, -- Kozmotown +[67237709] = {10,1,1,1,1,1,1,1,1,1,KozmotownCond}, -- Kozmotown [43898403] = {1,1,1,1,1,1,1,1,1,1}, -- Twin Twister [58577036] = {1,1,1,1,1,1,1,1,1,1}, -- Reasoning [05851097] = {1,1,1,1,1,1,1,1,1,1}, -- Vanity [40605147] = {1,1,1,1,1,1,1,1,1,1}, -- Notice [84749824] = {1,1,1,1,1,1,1,1,1,1}, -- Warning +[90452877] = {8,1,1,1,1,1,1,1,1,1,Kozmojocond}, -- Kozmojo } function ActivateKozmotown(c) return not HasID(AIST(),67237709,true,FilterPosition,POS_FACEUP) @@ -210,29 +341,133 @@ end function UseAllure(c) return CardsMatchingFilter(AIHand(),FilterAttribute,ATTRIBUTE_DARK)>0 end -function SummonFarmgirl(c) - return true +function SummonFarmgirl(c,mode) + if mode == 1 + and (#OppMon()==0 + or not OppHasStrongestMonster() + or CanDealBattleDamage(c,OppMon())) + and BattlePhaseCheck() + and not HasIDNotNegated(AIMon(),c.id,true) + then + return true + end + if mode == 2 then + return not HasID(AIMon(),c.id,true) + end end -function SummonWickedWitch(c) +function SummonWickedWitch(c,mode) return true end -function SummonGoodwitch(c) - return true +function GoodwitchFilter(c,source) + local atk = math.max(AIGetStrongestAttack(),c.attack) + return Affected(c,TYPE_MONSTER,source.level) + and Targetable(c,TYPE_MONSTER) + and FilterPosition(c,POS_FACEUP) + and atk>c.defense end -function SummonStrawman(c) - return true +function SummonGoodWitch(c,mode) + if mode == 1 + and HasPriorityTarget(OppMon(),false,nil,GoodwitchFilter,c) + and AI.GetPlayerLP(1)>500 + then + return true + end + if mode == 2 + then + return not HasID(AIMon(),c.id,true) + end end -function UseEtele(c) - if HasIDNotNegated(AIST(),67237709,true,nil,nil,POS_FACEUP,FilterOPT) - and CardsMatchingFilter(AICards(),KozmoRider)==0 - and CardsMatchingFilter(AIDeck(), - function(c)return KozmoRider(c) and FilterLevelMax(c,3) end)>0 - and not NormalSummonCheck() +function SummonStrawman(c,mode) + if mode == 1 + and CardsMatchingFilter(AIBanish(),KozmoShip)==0 + and not HasIDNotNegated(AIMon(),c.id,true) + and DualityCheck() + and AI.GetPlayerLP(1)>1000 then return true end + if mode == 2 then + return not HasID(AIMon(),c.id,true) + end +end +function SummonTincan(c,mode) + if mode == 1 + and CardsMatchingFilter(AIHand(),KozmoShip)==0 + and not HasIDNotNegated(AIMon(),c.id,true) + and NotNegated(c) + then + return true + end + if mode == 2 then + return not HasID(AIMon(),c.id,true) + end +end +function SummonSoartrooper(c,mode) + if mode == 1 + and CardsMatchingFilter(AIGrave(),KozmoRider)>0 + and not HasIDNotNegated(AIMon(),c.id,true) + and NotNegated(c) + and AI.GetPlayerLP(1)>4000 + then + return true + end + if mode == 2 then + return not HasID(AIMon(),c.id,true) + end +end +function UseEtele(c,mode) + if mode == 1 then + if HasIDNotNegated(AIST(),67237709,true,nil,nil,POS_FACEUP,FilterOPT) + and CardsMatchingFilter(AICards(),KozmoRider)==0 + and CardsMatchingFilter(AIDeck(), + function(c)return KozmoRider(c) and FilterLevelMax(c,3) end)>0 + and not NormalSummonCheck() + then + return true + end + if HasIDNotNegated(AIDeck(),64280356,true) + and not HasIDNotNegated(AICards(),64280356,true) + and CardsMatchingFilter(AIHand(),KozmoShip)==0 + then + return true + end + end + if mode == 2 then + if #AIMon() == 0 + and (CardsMatchingFilter(AIHand(),KozmoShip)>0 + or HasIDNotNegated(AIDeck(),64280356,true)) + then + return true + end + end return false end +function UseRiderSummon(c) + if (#OppMon()>0 and not CanWinBattle(c,OppMon()) and OppHasStrongestMonster() + or HasID(AIST(),67237709,true) + and not NormalSummonCheck() + or TurnEndCheck() and HasIDNotNegated(AIST(),67237709,true,nil,nil,POS_FACEUP,FilterOPT)) + --or not BattlePhaseCheck()) + and CardsMatchingFilter(AIHand(),KozmoShip)>0 + then + OPTSet(c.id) + return true + end + if HasID(AIHand(),55885348,true) + and HasIDNotNegated(AIDeck(),56907986,true) + and AI.GetPlayerLP(1)>1500 + and (c.id~=31061682 or not CanDealBattleDamage(c,OppMon())) + then + OPTSet(c.id) + return true + end + if HasID(AIHand(),94454495,true) + and FieldCheck(5) == 1 + then + OPTSet(c.id) + return true + end +end function UseFarmgirl(c,mode) if mode == 1 then if (not CanDealBattleDamage(c,OppMon()) @@ -243,48 +478,49 @@ function UseFarmgirl(c,mode) --or not BattlePhaseCheck()) and CardsMatchingFilter(AIHand(),KozmoShip)>0 then - OPTSet(c) + OPTSet(c.id) + return true + end + if HasID(AIHand(),55885348,true) + and HasIDNotNegated(AIDeck(),56907986,true) + and AI.GetPlayerLP(1)>1000 + then + OPTSet(c.id) + return true + end + if HasID(AIHand(),94454495,true) + and FieldCheck(5) == 1 + then + OPTSet(c.id) return true end end - return false end function UseStrawman(c,mode) if mode == 1 - and AI.GetPlayerLP(1)>2000 + and AI.GetPlayerLP(1)>1000 + and CardsMatchingFilter(AIBanish(),KozmoShip)>0 then GlobalSummonNegated=true return true end - if mode == 2 then - if (#OppMon()>0 and not CanWinBattle(c,OppMon()) and OppHasStrongestMonster() - or HasID(AIST(),67237709,true) - and not NormalSummonCheck() - or TurnEndCheck() and HasIDNotNegated(AIST(),67237709,true,nil,nil,POS_FACEUP,FilterOPT)) - --or not BattlePhaseCheck()) - and CardsMatchingFilter(AIHand(),KozmoShip)>0 - then - OPTSet(c) - return true - end + if mode == 2 + and UseRiderSummon(c) + then + return true end - return false end function UseGoodwitch(c,mode) - if mode == 1 then - return false -- TODO + if mode == 1 + and HasPriorityTarget(OppMon(),false,nil,GoodwitchFilter,c) + and AI.GetPlayerLP(1)>500 + then + return true end - if mode == 2 then - if (#OppMon()>0 and not CanWinBattle(c,OppMon()) and OppHasStrongestMonster() - or HasID(AIST(),67237709,true) - and not NormalSummonCheck() - or TurnEndCheck() and HasIDNotNegated(AIST(),67237709,true,nil,nil,POS_FACEUP,FilterOPT)) - --or not BattlePhaseCheck()) - and CardsMatchingFilter(AIHand(),KozmoShip)>0 - then - OPTSet(c) - return true - end + if mode == 2 + and UseRiderSummon(c) + then + return true end return false end @@ -292,16 +528,10 @@ function UseWickedwitch(c,mode) if mode == 1 then return false -- TODO end - if mode == 2 then - if (#OppMon()>0 and not CanWinBattle(c,OppMon()) and OppHasStrongestMonster() - or HasID(AIST(),67237709,true) - and not NormalSummonCheck() - or TurnEndCheck() and HasIDNotNegated(AIST(),67237709,true,nil,nil,POS_FACEUP,FilterOPT)) - --or not BattlePhaseCheck()) - and CardsMatchingFilter(AIHand(),KozmoShip)>0 - then - return true - end + if mode == 2 + and UseRiderSummon(c) + then + return true end return false end @@ -310,6 +540,32 @@ function UseReasoning(c,mode) return #AIMon()==0 or OppHasStrongestMonster() end end +function ReasoningNumber() -- for opponent's Reasoning + local result = MatchupCheck(58577036) -- Reasoning + if result then return result end + return 4 +end +function UseTincan(c,mode) + if mode == 2 + and UseRiderSummon(c) + then + return true + end +end +function UseSoartrooper(c,mode) + if mode == 1 then + if AI.GetPlayerLP(1)>4000 + and CardsMatchingFilter(AIGrave(),KozmoRider)>0 + then + return true + end + end + if mode == 2 + and UseRiderSummon(c) + then + return true + end +end function KozmoInit(cards) local Act = cards.activatable_cards local Sum = cards.summonable_cards @@ -320,9 +576,6 @@ function KozmoInit(cards) if HasID(Act,73628505) then -- Terraforming return Activate() end - if HasID(Act,01475311,UseAllure) then -- Allure - return Activate() - end if HasIDNotNegated(Act,67237709,false,nil,LOCATION_SZONE,POS_FACEDOWN,ActivateKozmotown) then return Activate() end @@ -335,42 +588,76 @@ function KozmoInit(cards) if HasIDNotNegated(Act,58577036,UseReasoning,1) then return Activate() end - if HasIDNotNegated(Act,67723438,UseEtele) then + if HasIDNotNegated(Act,67723438,UseEtele,1) then return Activate() end - if HasID(Sum,31061682,SummonFarmgirl) then + if HasID(Sum,31061682,SummonFarmgirl,1) then + return Summon() + end + if HasID(Sum,56907986,SummonStrawman,1) then + return Summon() + end + if HasID(Sum,64280356,SummonTincan,1) then + return Summon() + end + if HasID(Sum,67050396,SummonGoodWitch,1) then return Summon() end if HasID(Sum,93302695,SummonWickedWitch) then return Summon() end - if HasID(Sum,67050396,SummonGoodWitch) then + if HasID(Sum,67050396,SummonGoodWitch,2) then return Summon() end - if HasID(Sum,56907986,SummonStrawman) then + if HasID(Sum,01274455,SummonSoartrooper,2) then + return Summon() + end + if HasID(Sum,31061682,SummonFarmgirl,2) then + return Summon() + end + if HasID(Sum,56907986,SummonStrawman,2) then + return Summon() + end + if HasID(Sum,64280356,SummonTincan,2) then return Summon() end if HasIDNotNegated(Act,56907986,false,56907986*16+1,UseStrawman,1) then return Activate() end + if HasIDNotNegated(Act,01274455,false,93302695*16,UseSoartrooper,1) then + return Activate() + end + if HasIDNotNegated(Act,67050396,false,67050396*16+1,UseGoodwitch,1) then + return Activate() + end + if HasIDNotNegated(Act,93302695,false,93302695*16+1,UseWickedwitch,1) then + return Activate() + end if HasID(Act,56907986,false,56907986*16,UseStrawman,2) then + OPTSet(56907986) return Activate() end if HasIDNotNegated(Act,67050396,false,67050396*16,UseGoodwitch,2) then + OPTSet(67050396) return Activate() end - if HasIDNotNegated(Act,67050396,false,67050396*16+1,UseGoodwitch,1) then + if HasIDNotNegated(Act,93302695,false,93302695*16,UseWickedwitch,2) then + OPTSet(93302695) return Activate() end - if HasIDNotNegated(Act,93302695,false,93302695*16,UseWickedwitch,2) then + if HasIDNotNegated(Act,01274455,false,93302695*16+1,UseSoartrooper,2) then + OPTSet(01274455) return Activate() end - if HasIDNotNegated(Act,93302695,false,93302695*16+1,UseWickedwitch,1) then + if HasID(Act,01475311,UseAllure) then -- Allure return Activate() end if HasID(Act,31061682,false,UseFarmgirl,1) then return Activate() end + if HasIDNotNegated(Act,67723438,UseEtele,2) then + return Activate() + end if HasIDNotNegated(Act,67237709,false,67237709*16+1,LOCATION_SZONE,UseKozmotown,2) then return Activate() end @@ -453,7 +740,45 @@ function Eteletarget(cards) GlobalEteleSummons[#GlobalEteleSummons+1]=c return result end +function TincanTarget(cards) + if LocCheck(cards,LOCATION_DECK) then + return Add(cards,nil,nil,KozmoShip) + end + if LocCheck(cards,LOCATION_HAND) then + return Add(cards,PRIO_TOFIELD) + end +end +function SoartrooperTarget(cards) + if LocCheck(cards,LOCATION_GRAVE) then + return Add(cards,PRIO_TOFIELD) + end + if LocCheck(cards,LOCATION_HAND) then + return Add(cards,PRIO_TOFIELD) + end +end +function DarkEclipserTarget(cards) + return Add(cards,PRIO_BANISH) +end +function KozmojoTarget(cards) + if CurrentOwner(cards[1])==1 then + if GlobalCardMode == 1 then + GlobalCardMode = nil + return Add(cards,PRIO_BANISH,1,FilterGlobalTarget) + end + return Add(cards,PRIO_BANISH) + end + return BestTargets(cards,1,TARGET_BANISH) +end function KozmoCard(cards,min,max,id,c) + if id == 64280356 then + return TincanTarget(cards) + end + if id == 01274455 then + return SoartrooperTarget(cards) + end + if id == 54063868 then + return DarkEclipserTarget(cards) + end if id == 67723438 then return Eteletarget(cards) end @@ -484,6 +809,9 @@ function KozmoCard(cards,min,max,id,c) if id == 67237709 then return KozmotownTarget(cards,min,max) end + if id == 90452877 then + return KozmojoTarget(cards) + end return nil end function ChainKozmotown(c) @@ -494,11 +822,28 @@ function DestroyerFilter(c) and AvailableAttacks(c)==0 end function ChainDestroyer(c) + if Negated(c) then + return false + end if FilterLocation(c,LOCATION_GRAVE) then return true end - return DestroyCheck(OppMon(),false,true)>0 - or #OppMon()==0 and CardsMatchingFilter(AIMon(),DestroyerFilter)>0 + if DestroyCheck(OppMon(),false,true)>0 then + return true + end + if #OppMon()==0 + and CardsMatchingFilter(AIMon(),DestroyerFilter)>0 + then + return true + end + if #OppMon()==0 + and HasIDNotNegated(AIDeck(),56907986,true) + and Duel.GetTurnPlayer()==player_ai + and Duel.GetCurrentPhase()~=PHASE_END + and not IsBattlePhase() + then + return true + end end function ChainForerunner(c) if FilterLocation(c,LOCATION_GRAVE) then @@ -516,65 +861,28 @@ function ChainSliprider(c) if FilterLocation(c,LOCATION_GRAVE) then return true end + if Negated(c) then + return false + end return DestroyCheck(OppST(),false,true)>0 end -function ChainWickedwitch(c,mode) - if mode == 1 then - if RemovalCheckCard(c,CATEGORY_DESTROY) then - return true - end - if not UnchainableCheck(c.id) then return false end - local aimon,oppmon = GetBattlingMons() - if Duel.GetCurrentPhase()==PHASE_BATTLE - and WinsBattle(oppmon,aimon) - and CardsEqual(c,aimon) - then - return true - end - elseif mode == 2 then - if RemovalCheckCard(c) - or NegateCheckCard(c) +function ChainRiderSummon(c) + if Negated(c) then + return false + end + if RemovalCheckCard(c) + or NegateCheckCard(c) + then + if RemovalCheckCard(c,CATEGORY_DESTROY) + and FilterAffected(c,EFFECT_INDESTRUCTABLE_EFFECT) then - if RemovalCheckCard(c,CATEGORY_DESTROY) - and FilterAffected(c,EFFECT_INDESTRUCTABLE_EFFECT) - then - return false - end - OPTSet(c.id) - return true - end - if not UnchainableCheck(c.id) then return false end - if Duel.GetCurrentPhase()==PHASE_BATTLE then - local aimon,oppmon=GetBattlingMons() - if WinsBattle(oppmon,aimon) - and CardsEqual(c,aimon) - and (CardsMatchingFilter(AIHand(),FilterAttackMin,oppmon:GetAttack())>0 - or HasIDNotNegated(AIHand(),55885348,true)) - and Duel.GetTurnPlayer()==1-player_ai - then - OPTSet(c.id) - return true - end - if Duel.GetTurnPlayer()==player_ai - and GlobalBPEnd and not aimon - and (AvailableAttacks(c)==0 or not CanWinBattle(c,OppMon())) - and(CardsMatchingFilter(AIHand(),CanWinBattle,OppMon())>0 - or #OppMon()==0) - then - OPTSet(c.id) - return true - end + return false end - end - return false -end -function ChainGoodwitch(c) - if RemovalCheckCard(c) or NegateCheckCard(c) then OPTSet(c.id) return true end if not UnchainableCheck(c.id) then return false end - if Duel.GetCurrentPhase()==PHASE_BATTLE then + if IsBattlePhase() then local aimon,oppmon=GetBattlingMons() if WinsBattle(oppmon,aimon) and CardsEqual(c,aimon) @@ -590,49 +898,20 @@ function ChainGoodwitch(c) and (AvailableAttacks(c)==0 or not CanWinBattle(c,OppMon())) and(CardsMatchingFilter(AIHand(),CanWinBattle,OppMon())>0 or #OppMon()==0) - then + then OPTSet(c.id) return true end end - return false -end -function ChainFarmgirl(c) - if RemovalCheckCard(c) or NegateCheckCard(c) + if HasIDNotNegated(AIHand(),55885348,true) + and HasPriorityTarget(OppMon(),true) + and Duel.GetCurrentChain()<1 + and (Duel.GetTurnPlayer()~=player_ai + or OppHasStrongestMonster()) then OPTSet(c.id) return true end - if Duel.GetCurrentPhase()==PHASE_DAMAGE - and AI.GetPlayerLP(1)>500 - and NotNegated(c) - then - return true - end - if not UnchainableCheck(c.id) then return false end - if Duel.GetCurrentPhase()==PHASE_BATTLE then - local aimon,oppmon=GetBattlingMons() - if WinsBattle(oppmon,aimon) - and CardsEqual(c,aimon) - and (CardsMatchingFilter(AIHand(),FilterAttackMin,oppmon:GetAttack())>0 - or HasIDNotNegated(AIHand(),55885348,true) - or HasIDNotNegated(AIHand(),93302695,true)) - and Duel.GetTurnPlayer()==1-player_ai - then - OPTSet(c.id) - return true - end - if Duel.GetTurnPlayer()==player_ai - and GlobalBPEnd - and GlobalBPEnd and not aimon - and (AvailableAttacks(c)==0 or not CanDealBattleDamage(c,OppMon())) - and (CardsMatchingFilter(AIHand(),CanWinBattle,OppMon())>0 - or #OppMon()==0) - then - OPTSet(c.id) - return true - end - end for i=1,#GlobalEteleSummons do local card = GlobalEteleSummons[i] if CardsEqual(card,c) @@ -643,48 +922,54 @@ function ChainFarmgirl(c) return true end end - return false end -function ChainStrawman(c,mode) - if RemovalCheckCard(c) or NegateCheckCard(c) then - OPTSet(c.id) - return true - end - if not UnchainableCheck(c.id) then return false end - if Duel.GetCurrentPhase()==PHASE_BATTLE then - local aimon,oppmon=GetBattlingMons() - if WinsBattle(oppmon,aimon) - and CardsEqual(c,aimon) - and (CardsMatchingFilter(AIHand(),FilterAttackMin,oppmon:GetAttack())>0 - or HasIDNotNegated(AIHand(),55885348,true) - or HasIDNotNegated(AIHand(),93302695,true)) - and Duel.GetTurnPlayer()==1-player_ai - then - OPTSet(c.id) - return true - end - if Duel.GetTurnPlayer()==player_ai - and GlobalBPEnd and not aimon - and (AvailableAttacks(c)==0 or not CanWinBattle(c,OppMon())) - and(CardsMatchingFilter(AIHand(),CanWinBattle,OppMon())>0 - or #OppMon()==0) - then - OPTSet(c.id) +function ChainWickedwitch(c,mode) + if mode == 1 then + if RemovalCheckCard(c,CATEGORY_DESTROY) then return true end - end - for i=1,#GlobalEteleSummons do - local card = GlobalEteleSummons[i] - if CardsEqual(card,c) - and card.summonturn==Duel.GetTurnCount() - and Duel.CheckTiming(TIMING_END_PHASE) + if not UnchainableCheck(c.id) then return false end + local aimon,oppmon = GetBattlingMons() + if Duel.GetCurrentPhase()==PHASE_BATTLE + and WinsBattle(oppmon,aimon) + and CardsEqual(c,aimon) then - OPTSet(c.id) return true end + elseif mode == 2 then + return ChainRiderSummon(c) end return false end +function ChainGoodwitch(c) + return ChainRiderSummon(c) +end +function ChainFarmgirl(c) + if Duel.GetCurrentPhase()==PHASE_DAMAGE + and AI.GetPlayerLP(1)>500 + and NotNegated(c) + then + return true + end + if c.description==c.id*16 then + return ChainRiderSummon(c) + end +end +function ChainStrawman(c,mode) + return ChainRiderSummon(c) +end +function ChainTincan(c,mode) + if mode == 1 then + return CardsMatchingFilter(AIDeck(),KozmoShip)>1 + and MacroCheck() + end + if mode == 2 then + return ChainRiderSummon(c) + end +end +function ChainSoartrooper(c,mode) + return ChainRiderSummon(c) +end function ChainEtele(c) if RemovalCheckCard(c) then return true @@ -702,7 +987,117 @@ function ChainEtele(c) end return false end +function KozmojoFilter(c) + return Affected(c,TYPE_TRAP) + and FilterRemovable(c) +end +function ChainKozmojo(c) + local targets = SubGroup(OppField(),KozmojoFilter) + local prio = SubGroup(targets,FilterPriorityTarget) + local tribute = SubGroup(AIMon(),KozmoFilter) + local ships = SubGroup(tribute,KozmoShip) + if RemovalCheckCard(c) + and #targets>0 + then + return true + end + if not UnchainableCheck(c) then + return false + end + local removed=RemovalCheckList(tribute) + if #tribute>0 + and removed + and #targets>0 + then + table.sort(removed,function(a,b) if KozmoShip(a) then return a end return b end) + GlobalTargetSet(removed[1]) + GlobalCardMode=1 + return true + end + if #prio>0 + and #ships>0 + then + return true + end + local aimon,oppmon=GetBattlingMons() + if aimon and KozmoFilter(aimon) + and WinsBattle(oppmon,aimon) + and #targets>0 + then + GlobalTargetSet(aimon) + GlobalCardMode=1 + return true + end + if Duel.GetCurrentPhase()==PHASE_END + and Duel.GetCurrentChain()==0 + and Duel.GetTurnPlayer()==1-player_ai + and #targets>0 + and #ships>0 + then + return true + end +end + +function ChainCotHKozmo(c) + local ships = SubGroup(AIGrave(),KozmoShip) + local targetmons = SubGroup(OppMon(),DestroyFilterIgnore) + local priomons = SubGroup(targetmons,FilterPriorityTarget) + local targetst = SubGroup(OppST(),DestroyFilterIgnore) + local priost = SubGroup(targetst,FilterPriorityTarget) + if RemovalCheckCard(c) then + if HasID(ships,55885348,true) and #targetmons>0 then + GlobalCardMode = 1 + GlobalTargetSet(55885348) + elseif HasID(ships,94454495,true) and #targetst>0 then + GlobalCardMode = 1 + GlobalTargetSet(94454495) + end + return true + end + if HasID(ships,55885348,true) and #priomons>0 then + GlobalCardMode = 1 + GlobalTargetSet(55885348) + return true + end + if HasID(ships,94454495,true) and #priost>0 then + GlobalCardMode = 1 + GlobalTargetSet(94454495) + return true + end + if Duel.GetCurrentPhase()==PHASE_END + and Duel.GetCurrentChain()==0 + and Duel.GetTurnPlayer()==1-player_ai + then + if HasID(ships,55885348,true) and #targetmons>0 then + GlobalCardMode = 1 + GlobalTargetSet(55885348) + return true + end + if HasID(ships,94454495,true) and #targetst>0 then + GlobalCardMode = 1 + GlobalTargetSet(94454495) + return true + end + end + local aimon,oppmon=GetBattlingMons() + if Duel.GetCurrentPhase()==PHASE_BATTLE + and Duel.GetTurnPlayer()==player_ai + and HasID(AIGrave(),31061682,true) + and CanDealBattleDamage(FindID(31061682,AIGrave()),OppMon()) + and GlobalBPEnd and not aimon + and UnchainableCheck(c.id) + and not HasIDNotNegated(AIMon(),31061682,true,function(c) return AvailableAttacks(c)>0 end) + then + return true + end + if ChainCotH(card) then + return true + end +end function KozmoChain(cards) + if HasIDNotNegated(cards,54063868,ChainNegation,2) then + return Chain() + end if HasIDNotNegated(cards,67723438,ChainEtele) then return Chain() end @@ -721,6 +1116,15 @@ function KozmoChain(cards) if HasID(cards,93302695,false,93302695*16,ChainWickedwitch,2) then return Chain() end + if HasID(cards,64280356,false,1028485697,ChainTincan,1) then + return Chain() + end + if HasID(cards,64280356,false,1028485696,ChainTincan,2) then + return Chain() + end + if HasID(cards,01274455,ChainSoartrooper) then + return Chain() + end if HasID(cards,56907986,ChainStrawman) then return Chain() end @@ -733,7 +1137,12 @@ function KozmoChain(cards) if HasID(cards,31061682,ChainFarmgirl) then return Chain() end - + if HasID(cards,90452877,ChainKozmojo) then + return Chain() + end + if HasID(cards,97077563,ChainCotHKozmo) then + return true + end if HasID(cards,67237709,ChainKozmotown) then return Chain() end @@ -758,6 +1167,9 @@ function KozmoEffectYesNo(id,card) if id == 67237709 and ChainKozmotown(card) then return 1 end + if id == 64280356 and ChainTincan(card,1) then + return 1 + end return nil end function KozmoYesNo(desc) @@ -775,10 +1187,22 @@ end function KozmoAttackBoost(cards) end function KozmoOption(options) + for i,v in pairs(options) do + if v == 90452877*16 then -- Kozmojo + local targets = SubGroup(OppField(),KozmojoFilter) + if #targets>0 then + return i + end + end + if v == 90452877*16+1 then -- Kozmojo + return i + end + end end function KozmoChainOrder(cards) end KozmoAtt={ +54063868, -- Dark Eclipser 55885348, -- Dark Destroyer 20849090, -- Forerunner 94454495, -- Sliprider @@ -789,9 +1213,11 @@ KozmoVary={ 29491334, -- Dog Fighter 29491335, -- Dog Fighter token 93302695, -- Wickedwitch -56907986, -- Strawman +01274455, -- Soartrooper } KozmoDef={ +64280356, -- Tincan +56907986, -- Strawman } function KozmoPosition(id,available) result = nil @@ -809,14 +1235,14 @@ function KozmoPosition(id,available) then result=POS_FACEUP_ATTACK else - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end end for i=1,#KozmoDef do if KozmoDef[i]==id then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end return result diff --git a/ai/decks/Lightsworn.lua b/ai/decks/Lightsworn.lua new file mode 100644 index 00000000..e7aebd52 --- /dev/null +++ b/ai/decks/Lightsworn.lua @@ -0,0 +1,1022 @@ +--[[ +57774843, -- JD +58996430, -- Wulf +59019082, -- Garoth +96235275, -- Jain +77558536, -- Raiden +22624373, -- Lyla +44178886, -- Ehren +73176465, -- Felis +34710660, -- Electromagnetic Turtle +95503687, -- Lumina +40164421, -- Minerva +69764158, -- Peropero +02830693, -- Rainbow Kuriboh +67441435, -- Glow-Up Bulb +00691925, -- Solar Recharge +01845204, -- Instant Fusion +05133471, -- Galaxy Cyclone +32807846, -- Rota +81439173, -- Foolish +94886282, -- Charge +66194206, -- Judgment + +17412721, -- Norden +52687916, -- Trishula +74586817, -- Omega +04779823, -- Michael +80696379, -- Meteorburst +82044279, -- Clear Wing +73580471, -- Black Rose +56832966, -- Utopia Lightning +84013237, -- Utopia +21501505, -- Cairngorgon +82633039, -- Castel +30100551, -- Minerva +00581014, -- Emeral +21044178, -- Dweller +80666118, -- Scarlight +]] +function LightswornStartup(deck) + deck.Init = LightswornInit + deck.Card = LightswornCard + deck.Chain = LightswornChain + deck.EffectYesNo = LightswornEffectYesNo + deck.Position = LightswornPosition + deck.YesNo = LightswornYesNo + deck.BattleCommand = LightswornBattleCommand + deck.AttackTarget = LightswornAttackTarget + deck.AttackBoost = LightswornAttackBoost + deck.Tribute = LightswornTribute + deck.Option = LightswornOption + deck.ChainOrder = LightswornChainOrder + --[[ + deck.Sum + deck.DeclareCard + deck.Number + deck.Attribute + deck.MonsterType + ]] + deck.ActivateBlacklist = LightswornActivateBlacklist + deck.SummonBlacklist = LightswornSummonBlacklist + deck.RepositionBlacklist = LightswornRepoBlacklist + deck.SetBlacklist = LightswornSetBlacklist + deck.Unchainable = LightswornUnchainable + --[[ + + ]] + deck.PriorityList = LightswornPriorityList + +end + +LightswornIdentifier = 57774843 -- Judgment Dragon + +DECK_LIGHTSWORN = NewDeck("Lightsworn",LightswornIdentifier,LightswornStartup) + + +LightswornActivateBlacklist={ +57774843, -- JD +77558536, -- Raiden +22624373, -- Lyla +73176465, -- Felis +34710660, -- Electromagnetic Turtle +95503687, -- Lumina +40164421, -- Minerva +69764158, -- Peropero +02830693, -- Rainbow Kuriboh +67441435, -- Glow-Up Bulb +00691925, -- Solar Recharge +01845204, -- Instant Fusion +32807846, -- Rota +81439173, -- Foolish +94886282, -- Charge +66194206, -- Judgment + +74586817, -- Omega +80666118, -- Scarlight +70902743, -- RDA (Scarlight name change) +} +LightswornSummonBlacklist={ +57774843, -- JD +58996430, -- Wulf +59019082, -- Garoth +96235275, -- Jain +77558536, -- Raiden +22624373, -- Lyla +44178886, -- Ehren +73176465, -- Felis +34710660, -- Electromagnetic Turtle +95503687, -- Lumina +40164421, -- Minerva +69764158, -- Peropero +02830693, -- Rainbow Kuriboh +67441435, -- Glow-Up Bulb + +17412721, -- Norden +52687916, -- Trishula +74586817, -- Omega +04779823, -- Michael +80696379, -- Meteorburst +82633039, -- Castel +30100551, -- Minerva +00581014, -- Emeral +80666118, -- Scarlight +} +LightswornSetBlacklist={ +} +LightswornRepoBlacklist={ +} +LightswornUnchainable={ +34710660, -- Electromagnetic Turtle +69764158, -- Peropero +02830693, -- Rainbow Kuriboh +30100551, -- Minerva +} +function LightswornFilter(c,exclude) + local check = true + if exclude then + if type(exclude)=="table" then + check = not CardsEqual(c,exclude) + elseif type(exclude)=="number" then + check = (c.id ~= exclude) + end + end + return FilterSet(c,0x38) and check +end +function LightswornMonsterFilter(c,exclude) + return FilterType(c,TYPE_MONSTER) + and LightswornFilter(c,exclude) +end + +function LightswornNameCheck(cards) + local names = {} + for i=1,#cards do + local c = cards[i] + local check = true + for j=1,#names do + if c.id == names[j] then + check = false + end + end + if LightswornMonsterFilter(c) + and check + then + names[#names+1]=c.id + end + end + return #names +end + +function MinervaCond(loc,c) + if loc == PRIO_TOHAND then + return HasIDNotNegated(AICards(),00691925,true,UseRecharge) + end + return true +end +LightswornPriorityList={ +--[12345678] = {1,1,1,1,1,1,1,1,1,1,XXXCond}, -- Format + +-- Lightsworn + +[57774843] = {8,1,8,1,1,1,5,1,1,1,JDCond}, -- JD +[58996430] = {1,1,1,1,6,1,3,1,1,1,WulfCond}, -- Wulf +[59019082] = {3,1,1,1,3,1,2,1,1,1,GarothCond}, -- Garoth +[96235275] = {3,1,1,1,3,1,2,1,1,1,JainCond}, -- Jain +[77558536] = {6,1,6,1,2,1,1,1,1,1,RaidenCond}, -- Raiden +[22624373] = {5,1,5,1,2,1,1,1,1,1,LylaCond}, -- Lyla +[44178886] = {4,1,1,1,3,1,2,1,1,1,EhrenCond}, -- Ehren +[73176465] = {1,1,1,1,5,1,3,1,1,1,FelisCond}, -- Felis +[34710660] = {1,1,1,1,7,1,1,1,1,1,TurtleCond}, -- Electromagnetic Turtle +[95503687] = {7,1,7,1,1,1,1,1,1,1,LuminaCond}, -- Lumina +[40164421] = {8,1,1,1,4,1,2,1,1,1,MinervaCond}, -- Minerva +[69764158] = {1,1,1,1,7,1,1,1,1,1,PeroCond}, -- Peropero +[02830693] = {1,1,1,1,4,1,1,1,1,1,RainbohCond}, -- Rainbow Kuriboh +[67441435] = {1,1,1,1,5,1,1,1,1,1,BulbCond}, -- Glow-Up Bulb +[08691925] = {1,1,1,1,2,1,1,1,1,1,RechargeCond}, -- Solar Recharge +[01845204] = {1,1,1,1,1,1,1,1,1,1,IFCond}, -- Instant Fusion +[05133471] = {1,1,1,1,3,1,1,1,1,1,CycloneCond}, -- Galaxy Cyclone +[32807846] = {1,1,1,1,2,1,1,1,1,1,RotaCond}, -- Rota +[81439173] = {1,1,1,1,2,1,1,1,1,1,FoolishCond}, -- Foolish +[94886282] = {1,1,1,1,2,1,1,1,1,1,ChargeCond}, -- Charge +[66194206] = {1,1,1,1,4,1,1,1,1,1,JudgmentCond}, -- Judgment + +[17412721] = {1,1,1,1,1,1,1,1,1,1,NordenCond}, -- Norden +[52687916] = {1,1,1,1,1,1,1,1,1,1,TrishulaCond}, -- Trishula +[74586817] = {1,1,1,1,1,1,1,1,1,1,OmegaCond}, -- Omega +[04779823] = {1,1,1,1,1,1,1,1,1,1,MichaelCond}, -- Michael +[80696379] = {1,1,1,1,1,1,1,1,1,1,MeteorburstCond}, -- Meteorburst +[82044279] = {1,1,1,1,1,1,1,1,1,1,ClearWingCond}, -- Clear Wing +[73580471] = {1,1,1,1,1,1,1,1,1,1,BlackroseCond}, -- Black Rose +[56832966] = {1,1,1,1,1,1,1,1,1,1,UtopiaLightningCOnd}, -- Utopia Lightning +[84013237] = {1,1,1,1,1,1,1,1,1,1,UtopiaCond}, -- Utopia +[21501505] = {1,1,1,1,1,1,1,1,1,1,CairngorgonCond}, -- Cairngorgon +[82633039] = {1,1,1,1,1,1,1,1,1,1,CastelCond}, -- Castel +[30100551] = {1,1,1,1,1,1,4,1,1,1}, -- Minerva +[00581014] = {1,1,1,1,1,1,1,1,1,1,EmeralCond}, -- Emeral +[21044178] = {1,1,1,1,1,1,1,1,1,1,DwellerCond}, -- Dweller + +} +function SummonBlackRose(c) + return UseFieldNuke(c,-1) +end +function SummonWulf(c) + return MacroCheck() + and DualityCheck() +end +function SummonLightsworn(c,mode) + if mode == 1 + and c.level == 4 + and (FieldCheck(4)==1 + or HasID(AICards(),81439173,true) and HasID(AIDeck(),58996430,true,SummonWulf)) + and (OverExtendCheck() or BattlePhaseCheck()) + then + return true + end + if mode == 2 + and LightswornFilter(c,59019082) + and c.level<5 + and #AIMon()==0 + and #AIDeck()>20 + and TurnEndCheck() + then + return true + end + if c.id == 96235275 then c.attack = 2100 end + if mode == 3 + and (#OppMon()>0 + and OppHasStrongestMonster() + and (c.attack>=OppGetStrongestAttDef() + and c.attack>1000 + or #AIMon()==0 and CanWinBattle(c,OppMon()) + and c.attack>1000) + or c.attack>=1500 and #OppMon()==0) + then + return true + end + return false +end + +function UseRecharge(c) + return #AIDeck()>10 +end +GlobalFoolishID = nil +function UseFoolishLS(c,mode) + if mode == 1 + and FieldCheck(4)==1 + and HasID(AIDeck(),58996430,true) + and DualityCheck() + and MacroCheck() + then + GlobalFoolishID = 58996430 + return true + end + return false +end +function UseCharge(c) + return true +end +function TrishFilter2(c,params) + local c2,c3=params[1],params[2] + return not CardsEqual(c,c2) + and not CardsEqual(c,c3) + and not CardsEqual(c2,c3) + and c.level+c2.level+c3.level == 9 + and CardsMatchingFilter({c,c2,c3},FilterType,TYPE_TUNER)==1 +end +function TrishFilter(c,c2) + return CardsMatchingFilter(AIMon(),TrishFilter2,{c,c2})>0 +end +function SummonBulb(c,mode) + if mode == 1 + and CardsMatchingFilter(AIMon(),TrishFilter,c)>0 + and HasID(AIExtra(),52687916,true,SummonSyncTrishula) + then + return true + end + if mode == 2 + and HasID(AIExtra(),80666118,true,SummonScarlight,1) + and CheckSum(AIMon(),7,FilterNotType,TYPE_TUNER) + then + return true + end + if mode == 3 + and HasID(AIExtra(),80666118,true,SummonScarlight,2) + and CheckSum(AIMon(),7,FilterNotType,TYPE_TUNER) + then + return true + end + return false +end +function LSXYZSummon() + return true -- TODO +end +function UseIFLS(c,mode) + if AI.GetPlayerLP(1)<=1000 + or not WindaCheck() + or not DualityCheck() + or Duel.GetLocationCount(player_ai,LOCATION_MZONE)<2 + or Negated(c) + then + return false + end + if mode == 1 then + if TrishulaCheck() then + GlobalIFTarget=17412721 + local lvl = 4 + local tuner = false + if GlobalNordenMatch then + lvl = GlobalNordenMatch.lvl + tuner = GlobalNordenMatch.tuner + end + GlobalNordenFilter= + function(c) + return FilterLevel(c,lvl) and (tuner and FilterType(c,TYPE_TUNER) + or not tuner and not FilterType(c,TYPE_TUNER)) + end + GlobalNordenMatch=nil + return true + end + end + if mode == 2 then + if HasIDNotNegated(AIExtra(),17412721,true) + and CardsMatchingFilter(AIGrave(),FilterLevel,4)>0 + and FieldCheck(4)==0 + and LSXYZSummon() + then + GlobalIFTarget=17412721 + GlobalNordenFilter=function(c)return FilterLevel(c,4) end + return true + end + end + if mode == 3 + and #AIMon()==1 + and FieldCheck(4)==1 + and HasIDNotNegated(AIExtra(),30100551,true,SummonMinerva,1) + and #AIDeck()>20 + and TurnEndCheck() + then + return true + end + if mode == 4 + and HasID(AIExtra(),74586817,true,SummonOmega) + and CardsMatchingFilter(AIGrave(),FilterTuner,4)>0 + then + GlobalIFTarget=17412721 + GlobalNordenFilter=function(c)return FilterTuner(c,4) end + return true + end + if mode == 5 + and HasID(AIExtra(),80666118,true,SummonScarlight,1) + and CardsMatchingFilter(AIGrave(),FilterTuner,4)>0 + then + GlobalIFTarget=17412721 + GlobalNordenFilter=function(c)return FilterTuner(c,4) end + return true + end + if mode == 6 + and HasID(AIExtra(),80666118,true,SummonScarlight,2) + and CardsMatchingFilter(AIGrave(),FilterTuner,4)>0 + then + GlobalIFTarget=17412721 + GlobalNordenFilter=function(c)return FilterTuner(c,4) end + return true + end +end +function SummonOmega(c,mode) + if (mode == nil or 1) + and NotNegated(c) + and (HasID(AIBanish(),69764158,true) + or HasID(AIBanish(),02830693,true)) + then + return true + end + if (mode == nil or 2) + and OppHasStrongestMonster() + and BattlePhaseCheck() + and CanWinBattle(c,OppMon()) + then + return true + end + if mode == 3 + and MP2Check(c) + then + return true + end + if mode == 4 + and (HasIDNotNegated(AIMon(),57774843,true) + or HasIDNotNegated(AIHand(),57774843,true,SummonJD,1) + and LightswornNameCheck(Merge(AIGrave(),AIMon()))>3) + and DestroyCheck(OppField())>1 + and #OppHand()>0 + and NotNegated(c) + then + return true + end +end +function UseOmega(c) + return FilterLocation(c,LOCATION_GRAVE) +end +function SummonJD(c,mode) + local NukeModifier = -1 + if HasIDNotNegated(AIMon(),74586817,true) and #OppHand()>0 + then + NukeModifier = NukeModifier+1 + end + if DestroyCheck(OppField())>3 then + NukeModifier = NukeModifier+1 + end + if DestroyCheck(OppField())>5 then + NukeModifier = NukeModifier+1 + end + if mode == 1 + and UseFieldNuke(c,NukeModifier) + and not HasID(AIMon(),57774843,true) + and NotNegated(c) + then + return true + end + if mode == 2 + and #OppMon()==0 + and BattlePhaseCheck() + and ExpectedDamage()<=AI.GetPlayerLP(2) + then + return true + end + if mode == 3 + and OppHasStrongestMonster() + and CanWinBattle(c,OppMon()) + then + return true + end +end +function UseJD(c) + local NukeModifier = 1 + if AI.GetPlayerLP(1)<=1000 then + return false + end + if HasIDNotNegated(AIMon(),74586817,true) and #OppHand()>0 + then + NukeModifier = NukeModifier+1 + end + if DestroyCheck(OppField())>3 then + NukeModifier = NukeModifier+1 + end + if DestroyCheck(OppField())>5 then + NukeModifier = NukeModifier+1 + end + return UseFieldNuke(c,NukeModifier) +end +function SummonEmeralLS(c) + return SummonEmeral(c) + or CardsMatchingFilter(AIGrave(),FilterID,57774843)>1 + and MP2Check(1800) + and (OppGetStrongestAttDef()<1800 + or not OppHasStrongestMonster()) +end +function SummonMeteorburst(c,mode) + if mode == 1 + and BattlePhaseCheck() + and NotNegated(c) + and #OppMon()==0 + and ExpectedDamage()0 + and not HasID(AIMon(),80696379,true) + then + return true + end + if mode == 3 + and OppHasStrongestMonster() + and OppGetStrongestAttDef()<=c.attack + then + return true + end +end +function EhrenFilter(c,prio) + return (PriorityTarget(c) or FilterPrivate(c) or not prio) + and FilterPosition(c,POS_DEFENSE) + and Affected(c,TYPE_MONSTER,4) + and not FilterAffected(c,EFFECT_CANNOT_BE_BATTLE_TARGET) +end +function SummonEhren(c) + return CardsMatchingFilter(OppMon(),EhrenFilter,true)>0 +end +function ScarlightFilter(c,source) + return not CardsEqual(c,source) + and FilterSummon(c,SUMMON_TYPE_SPECIAL) + and FilterAttackMax(c,source.attack) + and DestroyCheck(c) + and Affected(c,TYPE_MONSTER,8) +end +function UseScarlight(c,mode) + local opptargets = CardsMatchingFilter(OppMon(),ScarlightFilter,c) + local aitargets = CardsMatchingFilter(AIMon(),ScarlightFilter,c) + local targets = aitargets+opptargets + if mode == 1 + and targets*500>AI.GetPlayerLP(2) + then + return true + end + if mode == 1 + and opptargets == #OppMon() + and BattlePhaseCheck() + and targets*500+c.attack>AI.GetPlayerLP(2) + then + return true + end + if mode == 2 + and (opptargets-aitargets>1 or aitargets==0) + then + return true + end +end +function SummonScarlight(c,mode) + local opptargets = CardsMatchingFilter(OppMon(),ScarlightFilter,c) + local aitargets = CardsMatchingFilter(AIMon(),ScarlightFilter,c) + if FilterLocation(c,LOCATION_EXTRA) then aitargets = math.max(0,aitargets-2) end + local targets = aitargets+opptargets + if mode == 1 + and targets*500>AI.GetPlayerLP(2) + and NotNegated(c) + then + return true + end + if mode == 1 + and opptargets == #OppMon() + and BattlePhaseCheck() + and targets*500+c.attack>AI.GetPlayerLP(2) + and NotNegated(c) + then + return true + end + if mode == 2 + and (opptargets-aitargets>2 or opptargets>1 and aitargets ==0) + and NotNegated(c) + then + return true + end + if mode == 3 + and OppHasStrongestMonster() + and CanWinBattle(c,OppMon()) + then + return true + end +end +function LightswornInit(cards) + local Act = cards.activatable_cards + local Sum = cards.summonable_cards + local SpSum = cards.spsummonable_cards + local Rep = cards.repositionable_cards + local SetMon = cards.monster_setable_cards + local SetST = cards.st_setable_cards + if HasIDNotNegated(Act,80666118,UseScarlight,1) then + return Activate() + end + if HasID(SpSum,80666118,SummonScarlight,1) then + return SynchroSummon() + end + if HasID(Act,01845204,UseIFLS,5) then + return Activate() + end + if HasID(Act,67441435,SummonBulb,2) then + OPDSet(67441435) + return Activate() + end + if HasID(Sum,67441435,SummonBulb,2) then + return Summon() + end + + if HasIDNotNegated(Act,77558536,UseRaiden) then + return Activate() + end + if HasIDNotNegated(Act,30100551,UseMinerva) then + return Activate() + end + if HasIDNotNegated(Act,22624373,UseLyla) then + return Activate() + end + + if HasIDNotNegated(Act,80666118,UseScarlight,2) then + return Activate() + end + if HasIDNotNegated(Act,57774843,UseJD) then + return Activate() + end + if HasID(SpSum,80666118,SummonScarlight,2) then + return SynchroSummon() + end + if HasID(Act,01845204,UseIFLS,6) then + return Activate() + end + if HasID(Act,67441435,SummonBulb,3) then + OPDSet(67441435) + return Activate() + end + if HasID(Sum,67441435,SummonBulb,3) then + return Summon() + end + + if HasID(SpSum,74586817,SummonOmega,4) then + return SynchroSummon() + end + if HasID(SpSum,57774843,SummonJD,1) then + return SpSummon() + end + if HasID(SpSum,73580471,SummonBlackRose) then + return SpSummon() + end + if HasID(SpSum,52687916,SummonSyncTrishula) then + return SpSummon() + end + + -- Trishula enabling + for i=1,#Sum do + if TrishulaCheck(Sum[i]) then + return Summon(i) + end + end + if HasID(Act,01845204,UseIFLS,1) then + return Activate() + end + if HasID(Act,67441435,SummonBulb,1) then + OPDSet(67441435) + return Activate() + end + + if HasIDNotNegated(Act,74586817,UseOmega) then + return Activate() + end + if HasIDNotNegated(Act,32807846) then + return Activate() + end + if HasIDNotNegated(Act,94886282,UseCharge) then + return Activate() + end + if HasIDNotNegated(Act,00691925,UseRecharge) then + return Activate() + end + if HasIDNotNegated(Act,95503687,UseLumina) then + return Activate() + end + + if HasID(SpSum,4779823,SummonMichael,1) then + return SynchroSummon() + end + if HasID(SpSum,74586817,SummonOmega,1) then + return SynchroSummon() + end + if HasID(Act,01845204,UseIFLS,4) then + return Activate() + end + if HasID(SpSum,80696379,SummonMeteorburst,2) then + return SynchroSummon() + end + if HasIDNotNegated(SpSum,56832966,SummonUtopiaLightning,1) then + return XYZSummon() + end + if HasID(SpSum,84013237,SummonUtopia,1) then + return XYZSummon() + end + if HasID(SpSum,74586817,SummonOmega,2) then + return SynchroSummon() + end + if HasIDNotNegated(SpSum,82633039) and SummonSkyblaster() then + return XYZSummon() + end + if HasID(SpSum,30100551,SummonMinerva,1) then + return XYZSummon() + end + if HasIDNotNegated(Act,00581014,false,9296225,UseEmeral) then + return Activate() + end + if HasIDNotNegated(SpSum,00581014,SummonEmeralLS) then + return XYZSummon() + end + if HasID(SpSum,74586817,SummonOmega,3) then + return SynchroSummon() + end + if HasID(SpSum,80696379,SummonMeteorburst,3) then + return SynchroSummon() + end + + if HasID(SpSum,57774843,SummonJD,2) then + return SpSummon() + end + + if HasID(Sum,95503687,SummonLumina) then + return Summon() + end + if HasID(Sum,77558536,SummonRaiden) then + return Summon() + end + if HasID(Sum,22624373,SummonLyla) then + return Summon() + end + if HasID(Sum,44178886,SummonEhren) then + return Summon() + end + if HasID(Sum,59019082,SummonGaroth) then + return Summon() + end + for i=1,#Sum do + if SummonLightsworn(Sum[i],1) then + return Summon(i) + end + end + for i=1,#Sum do + if SummonLightsworn(Sum[i],3) then + return Summon(i) + end + end + if HasID(Act,81439173,UseFoolishLS,1) then + return Activate() + end + if HasID(Act,1845204,UseIFLS,2) then + return Activate() + end + for i=1,#Sum do + if SummonLightsworn(Sum[i],2) then + return Summon(i) + end + end + if HasID(SpSum,57774843,SummonJD,3) then + return SpSummon() + end + if HasID(Act,1845204,UseIFLS,3) then + return Activate() + end + if HasID(SetMon,69764158,SetMonster) then + return Set() + end + if HasID(SetMon,34710660,SetMonster) then + return Set() + end + if HasID(SetMon,67441435,SetMonster) then + return Set() + end + return nil +end +function FelisTarget(cards) + return BestTargets(cards,1,TARGET_DESTROY) +end +function PeroperoTarget(cards) + return BestTargets(cards,1,TARGET_DESTROY) +end +function MichaelTarget(cards,c) + local result = {} + if FilterLocation(c,LOCATION_MZONE) then + result = BestTargets(cards,1,TARGET_BANISH) + else + result = CopyTable(cards) + Add(result,PRIO_TODECK) + table.sort(result,function(a,b) return a.prio0 + then + return true + end +end +function ChainRainboh(c) + if not UnchainableCheck(c.id) then + return false + end + local aimon,oppmon=GetBattlingMons() + if FilterLocation(c,LOCATION_HAND) then + if WinsBattle(oppmon,aimon) then + return true + end + if BattleDamage(aimon,oppmon)>=.8*AI.GetPlayerLP(1) + then + return true + end + end + if FilterLocation(c,LOCATION_GRAVE) then + if BattleDamage(nil,oppmon)>.8*AI.GetPlayerLP(1) then + return true + end + end +end +function ChainETurtle(c) + if not UnchainableCheck(c.id) then + return false + end + if #AIMon()==0 and ExpectedDamage()>=0.8*AI.GetPlayerLP(1) then + return true + end + if OppHasStrongestMonster() and #AIMon()>0 then + return true + end +end +function ChainMichael(c) + return CardsMatchingFilter(AIGrave(),LighswornMonsterFilter)>4 + and LightswornNameCheck(AIGrave())>=4 +end +function ChainOmega(c) + if Duel.GetCurrentPhase()==PHASE_STANDBY then + return #AIBanish()>0 + end + if RemovalCheckCard(c) or NegateCheckCard(c) then + return true + end + if Duel.CheckTiming(TIMING_MAIN_END) + and BattlePhaseCheck() + and OppHasStrongestMonster() + then + return true + end +end +function LightswornChain(cards) + if HasID(cards,69764158,ChainPero) then + return Chain() + end + if HasID(cards,02830693,ChainRainboh) then + return Chain() + end + if HasID(cards,34710660,ChainETurtle) then + return Chain() + end + if HasID(cards,66194206,ChainLSJudgment) then + return Chain() + end + if HasID(cards,04779823,ChainMichael) then + return Chain() + end + if HasID(cards,74586817,ChainOmega) then + return Chain() + end + return nil +end +function LightswornEffectYesNo(id,card) + if id == 69764158 and ChainPero(card) then + return true + end + if id == 02830693 and ChainRainboh(card) then + return true + end + if id == 34710660 and ChainETurtle(card) then + return true + end + if id == 66194206 and ChainLSJudgment(card) then + return true + end + if id == 04779823 and ChainMichael(card) then + return true + end + if id == 74586817 and ChainOmega(card) then + return true + end + return nil +end +function LightswornYesNo(desc) +end +function LightswornTribute(cards,min, max) +end +function LightswornBattleCommand(cards,targets,act) + SortByATK(cards) + if HasIDNotNegated(cards,44178886) and CardsMatchingFilter(OppMon(),EhrenFilter)>0 then + return Attack(CurrentIndex) + end +end +function LightswornAttackTarget(cards,attacker) + if attacker.id == 44178886 then + return BestTargets(cards,1,TARGET_TODECK,EhrenFilter) + end +end +function JainBoost(c) + return Duel.GetTurnPlayer()==GetScriptFromCard(c):GetControler() + and NotNegated(c) +end +function LightswornAttackBoost(cards) + for i=1,#cards do + local c = cards[i] + if JainBoost(c) then + c.attack=c.attack+300 + end + end +end +function LightswornOption(options) +end +function LightswornChainOrder(cards) +end +LightswornAtt={ +57774843, -- JD +58996430, -- Wulf +59019082, -- Garoth +96235275, -- Jain +77558536, -- Raiden +22624373, -- Lyla +44178886, -- Ehren + +52687916, -- Trishula +74586817, -- Omega +04779823, -- Michael +80696379, -- Meteorburst +82044279, -- Clear Wing +73580471, -- Black Rose +56832966, -- Utopia Lightning +84013237, -- Utopia +21501505, -- Cairngorgon +82633039, -- Castel +30100551, -- Minerva +00581014, -- Emeral +21044178, -- Dweller +} +LightswornVary={ +95503687, -- Lumina +} +LightswornDef={ +73176465, -- Felis +34710660, -- Electromagnetic Turtle + +40164421, -- Minerva +69764158, -- Peropero +02830693, -- Rainbow Kuriboh +67441435, -- Glow-Up Bulb +} +function LightswornPosition(id,available) + result = nil + for i=1,#LightswornAtt do + if LightswornAtt[i]==id + then + result=POS_FACEUP_ATTACK + end + end + for i=1,#LightswornVary do + if LightswornVary[i]==id + then + if (BattlePhaseCheck() or Duel.GetCurrentPhase()==PHASE_BATTLE) + and Duel.GetTurnPlayer()==player_ai + then + result=POS_FACEUP_ATTACK + else + result=POS_FACEUP_DEFENSE + end + end + end + for i=1,#LightswornDef do + if LightswornDef[i]==id + then + result=POS_FACEUP_DEFENSE + end + end + return result +end + diff --git a/ai/decks/Majespecter.lua b/ai/decks/Majespecter.lua new file mode 100644 index 00000000..121da8cd --- /dev/null +++ b/ai/decks/Majespecter.lua @@ -0,0 +1,7947 @@ +function SpecterStartup(deck) + -- function called at the start of the duel, if the AI was detected playing your deck. + --AI.Chat("Startup functions loaded.") + AI.Chat("You are now playing against AI_Majespecter version 1.4 by Xaddgx.") + AI.Chat("Good luck!") + -- Your links to the important AI functions. If you don't specify a function, + -- or your function returns nil, the default logic will be used as a fallback. + deck.Init = SpecterInit + deck.Card = SpecterCard + deck.Chain = SpecterChain + deck.EffectYesNo = SpecterEffectYesNo + deck.Position = SpecterPosition + deck.ActivateBlacklist = SpecterActivateBlacklist + deck.SummonBlacklist = SpecterSummonBlacklist + deck.SetBlacklist = SpecterSetBlacklist + deck.RepositionBlacklist = SpecterRepoBlacklist + deck.Unchainable = SpecterUnchainable + deck.PriorityList = SpecterPriorityList + deck.BattleCommand = SpecterBattleCommand + deck.AttackTarget = SpecterAttackTarget + + --[[ + Other, more obscure functions, in case you need them. Same as before, + not defining a function or returning nil causes default logic to take over + + deck.YesNo + deck.Option + deck.Sum + deck.Tribute + deck.BattleCommand + deck.AttackTarget + deck.DeclareCard + deck.Number + deck.Attribute + deck.MonsterType + ]] + local e0=Effect.GlobalEffect() + e0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e0:SetCode(EVENT_CHAIN_SOLVED) + e0:SetOperation(function(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetFieldGroup(player_ai,LOCATION_HAND,0) + --Duel.ConfirmCards(1-player_ai,g) + end) + Duel.RegisterEffect(e0,0) + local e1=e0:Clone() + e1:SetCode(EVENT_TO_HAND) + --Duel.RegisterEffect(e1,0) + local e2=e0:Clone() + e2:SetCode(EVENT_PHASE_START+PHASE_MAIN1) + --Duel.RegisterEffect(e2,0) + local e3=Effect.GlobalEffect() + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_PUBLIC) + e3:SetTargetRange(LOCATION_HAND,0) + --Duel.RegisterEffect(e3,player_ai) +end + +-- Your deck. The startup function must be on top of this line. +-- 3 required parameters. +-- First one: Your deck's name, as a string. Will be displayed in debug mode. +-- 2nd: The deck identifier. Can be a card ID (as a number) or a list of IDs. +-- Use a card or a combination of cards, that identifies your deck from others. +-- 3rd: The Startup function. Must be defined here, so it can be called at the start of the duel. +-- Technically not required, but doesn't make a lot of sense to leave it out, it would prevent +-- you from setting up all your functions and blacklists. + +DECK_SPECTER = NewDeck("Majespecter",{76473843,53208660},SpecterStartup) -- Majesty's Pegasus, Pendulum Call Xaddgx +-- BlueEyes White Dragon and BlueEyes Maiden. BEWD is used in the Exodia deck as well, +-- so we use a 2nd card to identify the deck 100%. Could just use Maiden as well. + +SpecterActivateBlacklist={ +-- Blacklist of cards to never activate or chain their effects by the default AI logic +-- Anything you add here should be handled by your script, otherwise the cards will never activate +51531505, -- Dragonpit Scale 8 +15146890, -- Dragonpulse Scale 1 +14920218, -- Peasant Scale 2 +13972452, -- Specter Storm +53208660, -- Pendulum Call +96598015, -- Pot of Riches +43898403, -- Twin Twister +49366157, -- Specter Cyclone +76473843, -- Majesty's Pegasus +36183881, -- Specter Tornado +78949372, -- Specter Supercell +02572890, -- Specter Tempest +05650082, -- Storming Mirror Force +18326736, -- Ptolemaeus +62709239, -- Phantom Knights XYZ +85252081, -- Granpulse XYZ +94784213, -- Specter Fox +00645794, -- Specter Toad +68395509, -- Specter Crow +31991800, -- Specter Raccoon +05506791, -- Specter Cat +82633039, -- Castel +52558805, -- Temtempo Djinn +72714461, -- Insight Magician +31437713, -- Heartlandraco +21044178, -- Abyss Dweller +93568288, -- Rhapsody +40318957, -- Joker +70368879, -- Upstart +58577036, -- Reasoning +95992081, -- Leviair +12014404, -- Cowboy +82697249, -- Dane Cook +22653490, -- Lightning Chidori +} +SpecterSummonBlacklist={ +-- Blacklist of cards to never be normal summoned or set by the default AI logic (apparently this includes special summoning?) +94784213, -- Specter Fox +00645794, -- Specter Toad +68395509, -- Specter Crow +31991800, -- Specter Raccoon +05506791, -- Specter Cat +51531505, -- Dragonpit Scale 8 +15146890, -- Dragonpulse Scale 1 +14920218, -- Peasant Scale 2 +18326736, -- Ptolemaeus +62709239, -- Phantom Knights XYZ +85252081, -- Granpulse +52558805, -- Temtempo Djinn +34945480, -- Azathoth +09272381, -- Constellar Diamond +88722973, -- Majester Paladin +71068247, -- Totem Bird +72714461, -- Insight Magician +21044178, -- Abyss Dweller +22653490, -- Lightning Chidori +82633039, -- Castel +84013237, -- Utopia +56832966, -- Utopia Lightning +31437713, -- Heartlandraco +93568288, -- Rhapsody +40318957, -- Joker +95992081, -- Leviair +12014404, -- Cowboy +82697249, -- Dane Cook +} +SpecterSetBlacklist={ +-- Blacklist for cards to never set to the S/T Zone to chain or as a bluff +12580477, -- Raigeki +13972452, -- Storm +96598015, -- Pot of Riches +76473843, -- Majesty's Pegasus +} +SpecterRepoBlacklist={ +-- Blacklist for cards to never be repositioned +51531505, -- Dragonpit Scale 8 +05506791, -- Specter Cat +19665973, -- Battle Fader +12014404, -- Cowboy +} +SpecterUnchainable={ +-- Blacklist for cards to not chain multiple copies in the same chain +--59616123, -- trapstun +-- don't chain Maiden to herself. Sounds pointless because she is once per turn, +-- but this will also prevent chaining from other unchainable cards, like chaining +-- DPrison on something attacking Maiden, even though she would negate the attack anyways +43898403, -- Twin Twister +49366157, -- Specter Cyclone +05650082, -- Storming Mirror Force +36183881, -- Specter Tornado +78949372, -- Specter Supercell +02572890, -- Specter Tempest +18326736, -- Ptolemaeus2 +52558805, -- Temtempo Djinn +} + +function RaccoonCond(loc) + if loc == PRIO_TOHAND then + return Duel.GetCurrentPhase() == PHASE_END + end + if loc == PRIO_TOFIELD then + return OPTCheck(31991800) and not (HasScales() and HasID(AIExtra(),31991800,true)) + and (not HasID(AIHand(),31991800,true) or (HasID(AIHand(),31991800,true) and NormalSummonCheck(player_ai))) + end + if loc == PRIO_BANISH then + return CardsMatchingFilter(AIMon(),LevelFourFieldCheck)>0 or not HasID(AIExtra(),31991800,true) + end + return true +end + +function FoxCond(loc) + if loc == PRIO_TOHAND then + return (CardsMatchingFilter(UseLists({AIST(),AIHand()}),SpecterBackrowFilter)<2 and not Duel.GetCurrentPhase()==PHASE_END + and CardsMatchingFilter(AIDeck(),SpecterTrapFilter)>0 + and not HasID(UseLists({AIExtra(),AIHand()}),94784213,true)) + or (HasScales() and CardsMatchingFilter(UseLists({AIExtra(),AIMon(),AIHand()}),function(c) return c.id==94784213 end)==0) + end + if loc == PRIO_TOFIELD then + return CardsMatchingFilter(UseLists({AIST(),AIHand()}),SpecterBackrowFilter)<2 and OPTCheck(94784213) + and (not HasID(AIHand(),94784213,true) or (HasID(AIHand(),94784213,true) and NormalSummonCheck(player_ai)) + and Duel.GetTurnCount() == SpecterGlobalPendulum) + and not (HasScales() and HasID(AIExtra(),94784213,true)) + end + if loc == PRIO_BANISH then + return CardsMatchingFilter(AIMon(),LevelFourFieldCheck)==2 or not HasID(AIExtra(),94784213,true) + end + return true +end + +function CatCond(loc) + if loc == PRIO_TOHAND then + return CardsMatchingFilter(UseLists({AIST(),AIHand()}),SpecterBackrowFilter)>=2 and not Duel.GetCurrentPhase()==PHASE_END + and not HasID(UseLists({AIExtra(),AIHand(),AIMon()}),05506791,true) + end + if loc == PRIO_TOFIELD then + return CardsMatchingFilter(UseLists({AIST(),AIHand()}),SpecterBackrowFilter)>=2 and OPTCheck(05506791) + and not (HasScales() and Duel.GetTurnCount() ~= SpecterGlobalPendulum and HasID(AIExtra(),05506791,true)) + end + if loc == PRIO_BANISH then + return CardsMatchingFilter(AIMon(),LevelFourFieldCheck)==1 or not HasID(AIExtra(),05506791,true) + end + return true +end + +function CrowCond(loc) --Code a to field/hand if Majespecter Cyclone would be useful for removing an opponent's monster. + if loc == PRIO_TOHAND then + return OPTCheck(68395509) + and CardsMatchingFilter(AIDeck(),SpecterSpellFilter)>0 + and CardsMatchingFilter(UseLists({AIST(),AIHand()}),SpecterBackrowFilter)<2 + end + if loc == PRIO_TOFIELD then + return OPTCheck(68395509) + and CardsMatchingFilter(AIDeck(),SpecterSpellFilter)>0 + and ((not HasID(AIHand(),68395509,true) + or HasID(AIHand(),68395509,true) and NormalSummonCheck(player_ai))) + end + if loc == PRIO_BANISH then + return NeedsSStormOverSCyclone() + and Duel.GetTurnPlayer()==player_ai + and HasScales() + and Duel.GetTurnCount() ~= SpecterGlobalPendulum + and DualityCheck() + and (not HasID(AIMon(),31991800,true) or HasID(AIExtra(),31991800,true)) + and not HasID(AIExtra(),68395509,true) + and not UsableSTornado() + end + return true +end + +function ToadCond(loc) + if loc == PRIO_TOHAND then + return OPTCheck(00645794) + end + if loc == PRIO_TOFIELD then + return OPTCheck(00645794) + and (not HasID(AIHand(),00645794,true) + or (HasID(AIHand(),00645794,true) and NormalSummonCheck(player_ai))) + end + return true +end + +function STempestCond(loc) + if loc == PRIO_TOHAND then + return not HasID(UseLists({AIST(),AIHand()}),02572890,true) + and not NeedsRaccoonEnd() + end + if loc == PRIO_TOFIELD then + return not HasID(UseLists({AIST(),AIHand()}),02572890,true) + and not NeedsRaccoonEnd() + end + return true +end + + +function STornadoCond(loc) + if loc == PRIO_TOHAND then + return not HasID(UseLists({AIST(),AIHand()}),36183881,true) + and not NeedsRaccoonEnd() + end + if loc == PRIO_TOFIELD then + return not HasID(UseLists({AIST(),AIHand()}),36183881,true) + and not NeedsRaccoonEnd() + end + return true +end + +function SCycloneCond(loc) + if loc == PRIO_TOHAND then + return not HasID(UseLists({AIST(),AIHand()}),49366157,true) + and not NeedsRaccoonEnd() + end + if loc == PRIO_TOFIELD then + return not HasID(UseLists({AIST(),AIHand()}),49366157,true) + and not NeedsRaccoonEnd() + end + return true +end + +function SStormCond(loc) + if loc == PRIO_TOHAND then + return not HasID(UseLists({AIST(),AIHand()}),13972452,true) + and not NeedsRaccoonEnd() + end + if loc == PRIO_TOFIELD then + return not HasID(UseLists({AIST(),AIHand()}),13972452,true) + and not NeedsRaccoonEnd() + end + return true +end + +function SCellCond(loc) + if loc == PRIO_TOHAND then + return (CardsMatchingFilter(AIGrave(),SpecterCardFilter)>=4 or CardsMatchingFilter(UseLists({AIST(),AIHand()}),SpecterBackrowFilter)>=2) + and not NeedsRaccoonEnd() + end + if loc == PRIO_TOFIELD then + return (CardsMatchingFilter(AIGrave(),SpecterCardFilter)>=4 or CardsMatchingFilter(UseLists({AIST(),AIHand()}),SpecterBackrowFilter)>=2) + and not NeedsRaccoonEnd() + end + return true +end + +function DragonpitCond(loc) + if loc == PRIO_TOHAND then + return CardsMatchingFilter(AIST(),ScaleHighFilter)==0 + and not HasID(UseLists({AIST(),AIHand()}),51531505,true) + and not HasScales() + and not NeedsRaccoonEnd() + end + return true +end + +function DragonpulseCond(loc) + if loc == PRIO_TOHAND then + return (not HasID(UseLists({AIST(),AIHand()}),15146890,true) + or HasScales()) + and not NeedsRaccoonEnd() + end + return true +end + +function InsightCond(loc) + if loc == PRIO_TOHAND then + return ((NeedsScale5() and not HasID(AIDeck(),51531505,true)) + or HasScales()) + and not NeedsRaccoonEnd() + end + return true +end + +function SpecterPeasantCond(loc) + if loc == PRIO_TOHAND then + return (not HasID(UseLists({AIST(),AIHand()}),14920218,true) + or HasScales() + or (MajestyCheck() + and HasID(AIST(),51531505,true) + and HasScales())) + and not NeedsRaccoonEnd() + end + return true +end + +function SpecterMonsterFilter(c) + return (IsSetCode(c.setcode,0xd0) or c.id==14920218) and bit32.band(c.type,TYPE_MONSTER)>0 +end + +function TrueSpecterMonsterFilter(c) + return IsSetCode(c.setcode,0xd0) and FilterType(c,TYPE_MONSTER) +end + +function SpecterCardFilter(c) + return IsSetCode(c.setcode,0xd0) +end + +function SpecterBackrowFilter(c) + return c.id==49366157 + or c.id==36183881 + or c.id==02572890 +end + +function SpecterPendulumFilter(c) + return IsSetCode(c.setcode,0xd0) and bit32.band(c.type,TYPE_PENDULUM)>0 +end + +function SpecterSpellFilter(c) + return IsSetCode(c.setcode,0xd0) and bit32.band(c.type,TYPE_SPELL)>0 +end + +function SpecterTrapFilter(c) + return IsSetCode(c.setcode,0xd0) and bit32.band(c.type,TYPE_TRAP)>0 +end + +function AllPendulumFilter(c) + return bit32.band(c.type,TYPE_PENDULUM)>0 +end + +function LevelThreeFieldCheck(c) + return c.id==05506791 --Cat + or c.id==31991800 --Raccoon +end + +function LevelFourFieldCheck(c) --Script error on below line for some reason + return c.id==00645794 --Toad + or c.id==68395509 --Crow + or c.id==94784213 --Fox + or c.id==15146890 --Dragonpulse Scale 1 + or c.id==40318957 --Joker +end + +function LevelFourSpecterFilter(c) + return c.id==00645794 + or c.id==68395509 + or c.id==94784213 +end + +function AllMonsterFilter(c) + return FilterType(c,TYPE_MONSTER) +end + +function NotJokerMonsterFilter(c) + return FilterType(c,TYPE_MONSTER) and c.id~=40318957 +end + +function ScaleHighExcludeRaccoonFilter(c) + return c.id==51531505 + or c.id==00645794 + or c.id==68395509 + or c.id==72714461 +end + +function ScaleHighFilter(c) + return c.id==51531505 --Dragonpit Scale 8 + or c.id==00645794 --Toad + or c.id==68395509 --Crow + or c.id==31991800 --Raccoon + or c.id==72714461 --Insight +end + +function ScaleLowFilter(c) + return c.id==15146890 --Dragonpulse Scale 1 + or c.id==14920218 --Peasant Scale 2 + or c.id==94784213 --Fox + or c.id==05506791 --Cat +end + +function SummonRaccoon1() + return OPTCheck(31991800) +end + +function SummonRaccoon2() + return CardsMatchingFilter(AIMon(),LevelThreeFieldCheck)==1 or CardsMatchingFilter(AIMon(),LevelThreeFieldCheck)==3 +end + +function SummonRaccoon3() --Summon normally before Pendulum Summoning, in case Solemn Warning is around. + return HasScales() + and SummonRaccoon1() + and (OppDownBackrow() + or MajestyCheck() + or HasID(AIHand(),40318957,true)) +end + +function SummonRaccoon4() --Summon normally if you can get another scale 5. + return SummonRaccoon1() + and NeedsScale5Raccoon() +end + +function SummonRaccoon5() + if (EnemyHasSummonNegatorMon() or EnemyHasTimeRafflesia()) + and SummonRaccoon1() + and MajestyCheck() + and SummonCrow1() + and (HasScales() or NeedsScale5Raccoon()) + and ((HasID(AIDeck(),13972452,true) and CardsMatchingFilter(OppMon(),SStormFilter5)>0) + or (HasID(AIDeck(),49366157,true) and CardsMatchingFilter(OppMon(),SpecterCycloneFilter5)>0)) then + return true + end + if EnemyHasSummonNegatorMon() + and (SummonForUsableBackrow() + or MajestyCheck()) then + return true + end + if EnemyHasTimeRafflesia() + and (SummonForUsableSpellBackrow() + or MajestyCheck()) then + return true + end + return false +end + +function RaccoonHandCheck() + return HasID(AIHand(),31991800,true) + and HasScales() + and OppDownBackrow() + and #AIMon()<5 + and not NormalSummonCheck(player_ai) + and not EnemyHasSkillDrainOnly() +end + +function SummonFox1() + return OPTCheck(94784213) +end + +function SummonFox2() + return CardsMatchingFilter(AIMon(),LevelFourFieldCheck)==1 or CardsMatchingFilter(AIMon(),LevelFourFieldCheck)==3 +end + +function SummonFox3() --Summon normally before Pendulum Summoning, in case Solemn Warning is around. + return HasScales() + and SummonFox1() + and (OppDownBackrow() + or MajestyCheck()) +end + +function SummonFox4() + if EnemyHasSummonNegatorMon() + and (SummonForUsableBackrow() + or MajestyCheck()) then + return true + end + if EnemyHasTimeRafflesia() + and (SummonForUsableSpellBackrow() + or MajestyCheck()) then + return true + end + if SummonFox1() + and ((CardsMatchingFilter(AIHand(),ScaleHighFilter)==2 + and CardsMatchingFilter(AIHand(),DragonpitFilter)==2) + or CardsMatchingFilter(AIHand(),ScaleHighFilter)==3 + and CardsMatchingFilter(AIHand(),DragonpitFilter)==3) + and CardsMatchingFilter(AIHand(),ScaleLowFilter)==1 + and HasID(AIHand(),94784213,true) + and not HasScales() then + return true + end + return false +end + +function SummonCat1() + return OPTCheck(05506791) +end + +function SummonCat2() + return CardsMatchingFilter(AIMon(),LevelThreeFieldCheck)==1 or CardsMatchingFilter(AIMon(),LevelThreeFieldCheck)==3 +end + +function SummonCat3() --Summon normally before Pendulum Summoning, in case Solemn Warning is around. + return HasScales() + and SummonCat1() + and (OppDownBackrow() + or MajestyCheck()) + and NeedsRaccoon() +end + +function SummonCat4() + if EnemyHasSummonNegatorMon() + and (SummonForUsableBackrow() + or MajestyCheck()) then + return true + end + if EnemyHasTimeRafflesia() + and (SummonForUsableSpellBackrow() + or MajestyCheck()) then + return true + end + if SummonCat1() + and ((CardsMatchingFilter(AIHand(),ScaleHighFilter)==2 + and CardsMatchingFilter(AIHand(),DragonpitFilter)==2) + or CardsMatchingFilter(AIHand(),ScaleHighFilter)==3 + and CardsMatchingFilter(AIHand(),DragonpitFilter)==3) + and CardsMatchingFilter(AIHand(),ScaleLowFilter)==1 + and HasID(AIHand(),05506791,true) + and not HasScales() then + return true + end + return false +end + +function SummonCrow1() + return OPTCheck(68395509) +end + +function SummonCrow2() + return CardsMatchingFilter(AIMon(),LevelFourFieldCheck)==1 or CardsMatchingFilter(AIMon(),LevelFourFieldCheck)==3 +end + +function SummonCrow3() --Summon normally before Pendulum Summoning, in case Solemn Warning is around. + return HasScales() + and SummonCrow1() + and (OppDownBackrow() + or MajestyCheck()) +end + +function SummonCrow4() + if (EnemyHasSummonNegatorMon() or EnemyHasTimeRafflesia()) + and SummonCrow1() + and ((HasID(AIDeck(),13972452,true) and CardsMatchingFilter(OppMon(),SStormFilter5)>0) + or (HasID(AIDeck(),49366157,true) and CardsMatchingFilter(OppMon(),SpecterCycloneFilter5)>0)) + and not SummonRaccoon5() then + return true + end + if EnemyHasSummonNegatorMon() + and (SummonForUsableBackrow() + or MajestyCheck()) then + return true + end + if EnemyHasTimeRafflesia() + and (SummonForUsableSpellBackrow() + or MajestyCheck()) then + return true + end + return false +end + +function SummonToad1() + return OPTCheck(00645794) +end + +function SummonToad2() + return CardsMatchingFilter(AIMon(),LevelFourFieldCheck)==1 or CardsMatchingFilter(AIMon(),LevelFourFieldCheck)==3 +end + +function SummonToad3() --Summon normally before Pendulum Summoning, in case Solemn Warning is around. + return HasScales() + and SummonToad1() + and (OppDownBackrow() + or MajestyCheck()) +end + +function SummonToad4() + if EnemyHasSummonNegatorMon() + and (SummonForUsableBackrow() + or MajestyCheck()) then + return true + end + if EnemyHasTimeRafflesia() + and (SummonForUsableSpellBackrow() + or MajestyCheck()) then + return true + end + return false +end + +function SpecterPendulumSummon(count) + if count == nil then count = 1 end + return CardsMatchingFilter(UseLists({AIExtra(),AIHand()}),NotJokerMonsterFilter)>=count + and DualityCheck() and SpecterPendulumSummonCheck() +end + +function SpecterPendulumSummonCheck() + return SpecterGlobalPendulum~=Duel.GetTurnCount() +end + +function PlayMajesty() + return CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>0 + and not HasID(AIST(),76473843,true) +end + +function UseMajesty() + return true +end + +function DiscardTargetFilter(c) + return c.id==51531505 --Dragonpit 8 + or c.id==15146890 --Dragonpulse 1 + or c.id==14920218 --Peasant 2 + or c.id==13972452 --SStorm + or c.id==19665973 --Fader + or c.id==02572890 --STempest + or c.id==36183881 --STornado + or c.id==49366157 --SCyclone + or c.id==40318957 --Joker + or c.id==68395509 --Crow + or c.id==00645794 --Toad + or c.id==05506791 --Cat +end + +function MajestyDiscardAvailable() --Getting lazy with the last line... + return (HasID(AIHand(),76473843,true) and HasID(AIST(),76473843,true)) + or CardsMatchingFilter(AIHand(),function(c) return c.id==76473843 end)>1 + or (CardsMatchingFilter(AIExtra(),AllMonsterFilter)>0 and #AIMon()==0 and #AIHand()<3 and HasID(AIHand(),76473843,true)) +end + +function PendulumCallDiscardAvailable() + return CardsMatchingFilter(AIHand(),function(c) return c.id==53208660 end)>1 +end + +function DiscardTargetAvailable() + return CardsMatchingFilter(AIHand(),DiscardTargetFilter)>0 + or MajestyDiscardAvailable() + or PendulumCallDiscardAvailable() +end + +function UsePendulumCallSpecter() + return DiscardTargetAvailable() + and OPTCheck(53208660) + and (NoScalesInsight() and CardsMatchingFilter(UseLists({AIHand(),AIST()}),function(c) return c.id==72714461 end)<2) +end + +function NoScalesInsight() + return CardsMatchingFilter(AIST(),AllPendulumFilter)<2 +end + +function NoScales() + return NeedsScale5() + or NeedsScale2() +end + +function UsePendulumCallScaleReplaceSpecter() + if HasID(AIHand(),31991800,true) and OPTCheck(31991800) and not NormalSummonCheck(player_ai) then return false end + if OPTCheck(53208660) + and NoScales() + and SpecterExtraCount() + and not MajestyCheck() then + return true + end +end + +function SpecterExtraCount() + return CardsMatchingFilter(AIExtra(),SpecterMonsterFilter)>0 +end + +function PlayDragonpit() --Scale 8 + return (CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleLowFilter)>0 + and CardsMatchingFilter(AIST(),ScaleHighFilter)==0) + or HasID(AIST(),72714461,true) --Insight +end + +function PlayToad() --Scale5 + return CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleLowFilter)>0 + and CardsMatchingFilter(AIST(),ScaleHighFilter)==0 + and not HasID(AIHand(),51531505,true) --Dragonpit 8 +end + +function PlayCrow() --Scale5 + return CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleLowFilter)>0 + and CardsMatchingFilter(AIST(),ScaleHighFilter)==0 + and not HasID(AIHand(),51531505,true) --Dragonpit 8 + and not HasID(AIHand(),00645794,true) --Specter Toad +end + +function PlayRaccoon() --Scale5 + return CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleLowFilter)>0 + and CardsMatchingFilter(AIST(),ScaleHighFilter)==0 + and not HasID(AIHand(),51531505,true) --Dragonpit 8 + and not HasID(AIHand(),00645794,true) --Specter Toad + and not HasID(AIHand(),68395509,true) --Specter Crow +end + +function PlayDragonpulse() --Scale 1 + return (CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleHighFilter)>0 + and CardsMatchingFilter(AIST(),ScaleLowFilter)==0) + or HasID(AIST(),72714461,true) +end + +function PlayPeasant() + return (CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleHighFilter)>0 + and CardsMatchingFilter(AIST(),ScaleLowFilter)==0) + or HasID(AIST(),72714461,true) +end + +function PlayCat() --Scale 2 + return CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleHighFilter)>0 + and CardsMatchingFilter(AIST(),ScaleLowFilter)==0 + and not HasID(AIHand(),15146890,true) --Dragonpulse 1 + and not HasID(AIHand(),14920218,true) --Peasant 2 +end + +function PlayFox() --Scale2 + return CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleHighFilter)>0 + and CardsMatchingFilter(AIST(),ScaleLowFilter)==0 + and not HasID(AIHand(),15146890,true) --Dragonpulse 1 + and not HasID(AIHand(),14920218,true) --Peasant 2 + and not HasID(AIHand(),05506791,true) --Specter Cat +end + +function NeedsScale5Raccoon() + return CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleLowFilter)>0 + and CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleHighExcludeRaccoonFilter)==0 +end + +function NeedsScale5() + return CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleLowFilter)>0 + and CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleHighFilter)==0 +end + +function NeedsScale2() + return CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleHighFilter)>0 + and CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleLowFilter)==0 +end + +function HasScales() + return CardsMatchingFilter(AIST(),ScaleHighFilter)==1 + and CardsMatchingFilter(AIST(),ScaleLowFilter)==1 +end + +function NeedsRaccoon() + return CardsMatchingFilter(UseLists({AIMon(),AIHand(),AIExtra()}),function(c) return c.id==31991800 end)==0 +end + +function NeedsFox() + return CardsMatchingFilter(UseLists({AIMon(),AIHand(),AIExtra()}),function(c) return c.id==94784213 end)==0 +end + +function SpecterPtolemaeusSummon() + return XYZSummonOkay() and SpecterMP2Check() + and HasID(AIExtra(),18326736,true) +end + +function SpecterPtolemaeusFilter1(c) + return c.id==18326736 and c.xyz_material_count==2 +end + +function SpecterPtolemaeusFilter2(c) + return c.id==18326736 and c.xyz_material_count>2 +end + +function EndPhasePtolemaeus() + return CardsMatchingFilter(AIMon(),SpecterPtolemaeusFilter1)>0 + and Duel.GetCurrentPhase()==PHASE_END +end + +function PtolemaeusAzathoth() + return CardsMatchingFilter(AIMon(),SpecterPtolemaeusFilter2)>0 + and Duel.GetCurrentPhase()==PHASE_DRAW + and Duel.GetTurnPlayer()==1-player_ai +end + +function WorthPendulumActivation() + return ((CardsMatchingFilter(AIExtra(),SpecterMonsterFilter)>0 + or HasID(AIExtra(),72714461,true)) + or CardsMatchingFilter(UseLists({AIHand(),AIST()}),AllPendulumFilter)>2 + or (PlayInsight4() and PlayDragonpit2()) + or (CardsMatchingFilter(UseLists({AIHand(),AIST()}),MagicianPendulumFilter)>1 and HasID(UseLists({AIHand(),AIST()}),72714461,true) + and OPTCheck(53208660))) + and (not HasID(AIHand(),40318957,true) or (HasID(AIHand(),40318957,true) and NormalSummonCheck(player_ai)) or not OPTCheck(40318957) + or not (SpecterSummonJoker1() and SpecterSummonJoker2())) +end + +function WorthPendulumSummoning() + return (CardsMatchingFilter(AIExtra(),AllPendulumFilter)>0 + or CardsMatchingFilter(AIHand(),AllMonsterFilter)>1 + or (CardsMatchingFilter(AIHand(),AllMonsterFilter)==1 and NormalSummonCheck(player_ai)) + or (HasScales() and HasID(AIHand(),51531505,true)) + or (CardsMatchingFilter(AIHand(),AllMonsterFilter)==1 and (HasID(AIHand(),05506791,true) or HasID(AIHand(),14920218,true)))) + and (not HasID(AIHand(),40318957,true) or (HasID(AIHand(),40318957,true) and CardsMatchingFilter(UseLists({AIHand(),AIExtra()}),AllMonsterFilter)>1)) +end + +function DragonpitScaleAndHand() + return HasID(AIHand(),51531505,true) + and HasID(AIST(),51531505,true) +end + +function SpecterMP2Check() + return AI.GetCurrentPhase() == PHASE_MAIN2 or not GlobalBPAllowed +end + +function SetSTempest() + return Duel.GetTurnCount() == 1 or (Duel.GetCurrentPhase()==PHASE_MAIN2 or (Duel.GetCurrentPhase()==PHASE_MAIN1 and not GlobalBPAllowed)) +end + +function SetSTornado() + return Duel.GetTurnCount() == 1 or (Duel.GetCurrentPhase()==PHASE_MAIN2 or (Duel.GetCurrentPhase()==PHASE_MAIN1 and not GlobalBPAllowed)) +end + +function SetSCell() + return Duel.GetTurnCount() == 1 or (Duel.GetCurrentPhase()==PHASE_MAIN2 or (Duel.GetCurrentPhase()==PHASE_MAIN1 and not GlobalBPAllowed)) +end + +function SetSCyclone() + return Duel.GetTurnCount() == 1 or (Duel.GetCurrentPhase()==PHASE_MAIN2 or (Duel.GetCurrentPhase()==PHASE_MAIN1 and not GlobalBPAllowed)) +end + +function SetSStorm() + return Duel.GetTurnCount() == 1 or (Duel.GetCurrentPhase()==PHASE_MAIN2 or (Duel.GetCurrentPhase()==PHASE_MAIN1 and not GlobalBPAllowed)) +end + +function SetTwinTwister() + return Duel.GetTurnCount() == 1 or (Duel.GetCurrentPhase()==PHASE_MAIN2 or (Duel.GetCurrentPhase()==PHASE_MAIN1 and not GlobalBPAllowed)) +end + +function SetVanity() + return Duel.GetTurnCount() == 1 or (Duel.GetCurrentPhase()==PHASE_MAIN2 or (Duel.GetCurrentPhase()==PHASE_MAIN1 and not GlobalBPAllowed)) +end + +function SetStormingMirror() + return Duel.GetTurnCount() == 1 or (Duel.GetCurrentPhase()==PHASE_MAIN2 or (Duel.GetCurrentPhase()==PHASE_MAIN1 and not GlobalBPAllowed)) +end + +function SetPendulumCall() + return (Duel.GetCurrentPhase()==PHASE_MAIN2 or (Duel.GetCurrentPhase()==PHASE_MAIN1 and not GlobalBPAllowed)) + and not (HasID(AIDeck(),51531505,true) or (HasID(AIDeck(),15146890,true) or HasID(AIDeck(),14920218,true))) --Magicians + and not HasID(UseLists({AIST(),AIHand()}),43898403,true) --Twin Twister +end + +function UseSCell() + return CardsMatchingFilter(AIGrave(),SpecterCardFilter)>=5 + or CardsMatchingFilter(AIST(),SpecterPendulumFilter)>0 +end + +function MagicianPendulumFilter(c) + return c.id==51531505 --Dragonpit Scale 8 + or c.id==15146890 --Dragonpulse Scale 1 + or c.id==72714461 --Insight + or c.id==14920218 --Peasant +end + +function ScaleHighSpecterFilter(c) + return c.id==68395509 + or c.id==00645794 + or c.id==31991800 +end + +function PlayInsight1() + return OPTCheck(53208660) + and CardsMatchingFilter(UseLists({AIST(),AIHand()}),MagicianPendulumFilter)>1 + and CardsMatchingFilter(AIST(),ScaleHighSpecterFilter)==0 +end + +function PlayInsight2() + return CardsMatchingFilter(UseLists({AIST(),AIHand()}),ScaleLowFilter)>0 + and CardsMatchingFilter(AIST(),ScaleHighFilter)==0 +end + +function PlayInsight3() + return CardsMatchingFilter(UseLists({AIST(),AIHand()}),function(c) return c.id==72714461 end)>1 + and OPTCheck(53208660) + and CardsMatchingFilter(AIST(),ScaleHighSpecterFilter)==0 +end + +function PlayInsight4() + return (CardsMatchingFilter(AIST(),DragonpitFilter)==1 or (HasID(AIHand(),51531505,true) and CardsMatchingFilter(AIST(),ScaleHighFilter)==0)) + and CardsMatchingFilter(UseLists({AIExtra(),AIHand(),AIST()}),TrueSpecterMonsterFilter)==0 + and HasID(AIHand(),14920218,true) + and not PlayInsight3() +end + +function PlayDragonpit2() + return CardsMatchingFilter(UseLists({AIExtra(),AIHand(),AIST()}),TrueSpecterMonsterFilter)==0 + and HasID(UseLists({AIHand(),AIExtra()}),14920218,true) + and HasID(UseLists({AIHand(),AIST()}),72714461,true) + and not PlayInsight3() +end + +function UseInsight() + return OPTCheck(53208660) + and ((HasID(AIST(),51531505,true) and HasID(AIDeck(),14920218,true)) + or HasID(AIST(),14920218,true) and HasID(AIDeck(),51531505,true)) +end + +function DragonpitFilter(c) + return c.id==51531505 +end + +function DragonpulseFilter(c) + return c.id==15146890 +end + +function MakeRoom() + return (#AIMon()==5 + and (CardsMatchingFilter(AIHand(),SpecterMonsterFilter)>0 + or CardsMatchingFilter(AIHand(),LevelFourMagicianFilter)>0) + and not NormalSummonCheck(player_ai)) + or (#AIMon()==5 and HasScales() and Duel.GetTurnCount() ~= SpecterGlobalPendulum and CardsMatchingFilter(UseLists({AIHand(),AIExtra()}),TrueSpecterMonsterFilter)>0) + or (#AIMon()==4 and HasScales() and Duel.GetTurnCount() ~= SpecterGlobalPendulum and CardsMatchingFilter(UseLists({AIHand(),AIExtra()}),TrueSpecterMonsterFilter)>1) + or (#AIMon()==3 and HasScales() and Duel.GetTurnCount() ~= SpecterGlobalPendulum and CardsMatchingFilter(UseLists({AIHand(),AIExtra()}),TrueSpecterMonsterFilter)>2) + or (#AIMon()==2 and HasScales() and Duel.GetTurnCount() ~= SpecterGlobalPendulum and CardsMatchingFilter(UseLists({AIHand(),AIExtra()}),TrueSpecterMonsterFilter)>3) + or (#AIMon()==1 and HasScales() and Duel.GetTurnCount() ~= SpecterGlobalPendulum and CardsMatchingFilter(UseLists({AIHand(),AIExtra()}),TrueSpecterMonsterFilter)>4) +end + +function TotemBirdFilter(c) + return FilterPosition(c,POS_FACEDOWN) +end + +function SummonTotemBird() + return (CardsMatchingFilter(OppST(),TotemBirdFilter)>0 + and (AIGetStrongestAttack() > OppGetStrongestAttack() or OppGetStrongestAttack()<1900) + and ((AI.GetCurrentPhase() == PHASE_MAIN1 and GlobalBPAllowed) or Duel.GetTurnCount() == 1)) + and XYZSummonOkayWind() + and HasID(AIExtra(),71068247,true) +end + +function SummonTotemBirdRoom() + return MakeRoom() + and HasID(AIExtra(),71068247,true) + and ((CardsMatchingFilter(OppST(),TotemBirdFilter)>0 or #OppHand()>0) + and (AIGetStrongestAttack() > OppGetStrongestAttack() or OppGetStrongestAttack()<1900) + and ((AI.GetCurrentPhase() == PHASE_MAIN1 and GlobalBPAllowed) or Duel.GetTurnCount() == 1)) +end + +function SpecterGranpulseFilter(c) + return bit32.band(c.type,TYPE_PENDULUM)>0 + and SpecterDestroyFilter(c) +end + +function OppHasScales() + return CardsMatchingFilter(OppST(),AllPendulumFilter)>1 +end + +function SpecterSummonGranpulse() + return (CardsMatchingFilter(OppST(),SpecterGranpulseFilter)>0 and AI.GetCurrentPhase() == PHASE_MAIN2 and OppHasScales()) + and (XYZSummonOkay() or MakeRoom()) + and HasID(AIExtra(),85252081,true) +end + +function SpecterSummonGranpulse2() + return ((CardsMatchingFilter(OppST(),SpecterGranpulseFilter)>0 and OppHasScales() + and (AI.GetCurrentPhase() == PHASE_MAIN2 or not GlobalBPAllowed) + and #OppHand()<2) + or (CardsMatchingFilter(OppST(),OppDownBackrowFilter)>0 and Duel.GetTurnCount() ~= SpecterGlobalPendulum and HasScales() + and CardsMatchingFilter(UseLists({AIHand(),AIExtra()}),SpecterMonsterFilter)>0)) + and HasID(AIExtra(),85252081,true) +end + +function SpecterSummonGranpulse3() + return (XYZSummonOkay() or MakeRoom()) + and SpecterMP2Check() + and OppGetStrongestAttack() > AIGetStrongestAttack() + and CardsMatchingFilter(OppMon(),GranpulseEnemyFilter)>0 + and CardsMatchingFilter(AIMon(),LevelFourFieldCheck)<2 +end + +function GranpulseEnemyFilter(c) + return c.attack>=2000 + and c.attack<=2800 + and FilterPosition(c,POS_FACEUP_ATTACK) +end + +function SpecterUseGranpulse() + return CardsMatchingFilter(OppST(),OppBackrowFilter)>0 +end + +function OppBackrowFilter(c) + return FilterLocation(c,LOCATION_SZONE) + and SpecterDestroyFilter(c) +end + +function OppHasBackrow() + return #OppST()>0 +end + +function OppDownBackrowFilter(c) + return FilterPosition(c,POS_FACEDOWN) + and SpecterDestroyFilter(c) + and not (DestroyBlacklist(c) + and (bit32.band(c.position, POS_FACEUP)>0 + or bit32.band(c.status,STATUS_IS_PUBLIC)>0)) +-- and not FilterType(c,TYPE_FIELD) +end + +function OppDownBackrow() + return CardsMatchingFilter(OppST(),OppDownBackrowFilter)>0 +end + +function NeedsRaccoonEnd() + return NeedsRaccoon() + and AI.GetCurrentPhase() == PHASE_END +end + +function SummonDragonpulse() + return true +end + +function SummonInsight() + return ((AIGetStrongestAttack() > OppGetStrongestAttack() + or OppGetStrongestAttack()<1500) + and Duel.GetTurnCount() ~= 1) + or CardsMatchingFilter(AIMon(),LevelFourFieldCheck)>0 +end + +function SetInsight() + return SpecterMP2Check() + or Duel.GetTurnCount() == 1 +end + +function StormingMirrorFilter1(c) + return not FilterStatus(c,STATUS_LEAVE_CONFIRMED) + and not FilterAffected(c,EFFECT_IMMUNE_EFFECT) + and Affected(c,TYPE_TRAP) + and c.attack>=1000 and c.attack<2000 and FilterPosition(c,POS_FACEUP_ATTACK) + and c:is_affected_by(EFFECT_CANNOT_ATTACK_ANNOUNCE)==0 and c:is_affected_by(EFFECT_CANNOT_ATTACK)==0 +end + +function StormingMirrorFilter2(c) + return not FilterStatus(c,STATUS_LEAVE_CONFIRMED) + and not FilterAffected(c,EFFECT_IMMUNE_EFFECT) + and Affected(c,TYPE_TRAP) + and c.attack>=2000 and c.attack<3000 and FilterPosition(c,POS_FACEUP_ATTACK) + and c:is_affected_by(EFFECT_CANNOT_ATTACK_ANNOUNCE)==0 and c:is_affected_by(EFFECT_CANNOT_ATTACK)==0 +end + +function StormingMirrorFilter3(c) + return not FilterStatus(c,STATUS_LEAVE_CONFIRMED) + and not FilterAffected(c,EFFECT_IMMUNE_EFFECT) + and Affected(c,TYPE_TRAP) + and c.attack>=3000 and FilterPosition(c,POS_FACEUP_ATTACK) + and c:is_affected_by(EFFECT_CANNOT_ATTACK_ANNOUNCE)==0 and c:is_affected_by(EFFECT_CANNOT_ATTACK)==0 +end + +function StormingMirrorFilter4(c) + return EnemySummonNegatorMonFilter(c) + and Affected(c,TYPE_TRAP) + and FilterPosition(c,POS_FACEUP_ATTACK) + and not FilterAffected(c,EFFECT_IMMUNE_EFFECT) +end + +function ChainStormingMirror() + return CardsMatchingFilter(OppMon(),StormingMirrorFilter1)>2 + or CardsMatchingFilter(OppMon(),StormingMirrorFilter2)>1 + or CardsMatchingFilter(OppMon(),StormingMirrorFilter3)>0 + or (CardsMatchingFilter(OppMon(),StormingMirrorFilter1)>1 + and CardsMatchingFilter(OppMon(),StormingMirrorFilter2)>0) + or CardsMatchingFilter(OppMon(),StormingMirrorFilter4)>0 + or ExpectedDamage(1)>AI.GetPlayerLP(1) +end + +function EnableKozmoFunctionsFilter(c) + return IsSetCode(c.setcode,0xd2) +end + +function EnableKozmoFunctions() + return CardsMatchingFilter(OppDeck(),EnableKozmoFunctionsFilter)>=5 +end + +function KLightningTargets(c) + return c.id==55885348 + or c.id==20849090 + or c.id==29491334 + or c.id==94454495 + or c.id==37679169 + or c.id==54063868 +end + +function SpecterKozmoSummonUtopiaLightning() + return EnableKozmoFunctions() + and CardsMatchingFilter(OppMon(),KLightningTargets)>0 + and ((XYZSummonOkay() or MakeRoom()) or (#AIMon()>=3 and AI.GetPlayerLP(2)<=4000)) + and Duel.GetCurrentPhase() == PHASE_MAIN1 + and GlobalBPAllowed + and not EnemyHasStall() + and not EnemyHasBattleStallLightning() +end + +function SpecterKozmoSummonUtopiaLightningRoom() + return SpecterKozmoSummonUtopiaLightning() + and MakeRoom() +end + +function ChainTempestKozmo() + if not EnableKozmoFunctions() then return false end + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==31061682 + and e:GetHandlerPlayer()==1-player_ai then + return true + elseif Duel.GetOperationInfo(Duel.GetCurrentChain(), CATEGORY_SPECIAL_SUMMON) + and e:GetHandler():GetCode()==93302695 then + return true + end + end + return false +end + +function MultiDangerFilter(c) + return c.attack >= AIGetStrongestAttack() +end + +function MultiDanger() + return CardsMatchingFilter(OppMon(),MultiDangerFilter)>1 +end + +function NoSpecterBackrow() + return CardsMatchingFilter(UseLists({AIST(),AIHand()}),SpecterBackrowFilter)==0 +end + +function SpecterHasMonsters() + return CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>2 + or (CardsMatchingFilter(AIMon(),LevelFourMagicianFilter)==1 and CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>1) + or CardsMatchingFilter(AIMon(),LevelFourMagicianFilter)>1 +end + +function SpecterHasMonstersWind() + return CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>2 +end + +function XYZSummonOkay() + return SpecterHasMonsters() + or (NoSpecterBackrow() + and SpecterMiscBackrow()) +end + +function SpecterMiscBackrowFilter(c) + return (c.id==05851097 or c.id==05650082) + and ((FilterLocation(c,LOCATION_SZONE) + and FilterPosition(c,POS_FACEUP)) + or FilterLocation(c,LOCATION_HAND)) +end + +function SpecterMiscBackrow() + return CardsMatchingFilter(UseLists({AIHand(),AIST()}),SpecterMiscBackrowFilter)>0 +end + +function XYZSummonReallyOkay() + return CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>3 + or (CardsMatchingFilter(AIMon(),LevelFourMagicianFilter)==2 and CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>1) + or CardsMatchingFilter(AIMon(),LevelFourMagicianFilter)>2 +end + +function XYZSummonOkayWind() + return SpecterHasMonstersWind() + or NoSpecterBackrow() +end + +function LevelFourMagicianFilter(c) + return c.id==15146890 + or c.id==72714461 + or c.id==40318957 +end + +function SpecterPhantomFilter(c) + return (Targetable(c,TYPE_MONSTER) + and SpecterDestroyFilter(c) + and Affected(c,TYPE_MONSTER,3) + and not SpecterCodedTargets(c) + and not SpecterCodedTargets2(c)) + or FilterPosition(c,POS_FACEDOWN) +end + +function SpecterPhantomFilter2(c) + return Targetable(c,TYPE_MONSTER) + and SpecterDestroyFilter(c) + and Affected(c,TYPE_MONSTER,3) + and not SpecterCodedTargets(c) + and not SpecterCodedTargets2(c) +end + +function SpecterSummonPhantom() + return CardsMatchingFilter(OppMon(),SpecterPhantomFilter)>0 + and (XYZSummonOkay() or MakeRoom()) + and (CardsMatchingFilter(AIST(),MagicianPendulumFilter)>0 and not OPTCheck(53208660)) + and (CardsMatchingFilter(OppST(),OppDownBackrowFilter)<2 or not HasID(AIExtra(),71068247,true)) + and HasID(AIExtra(),62709239,true) +end + +function SpecterSummonPhantom2() + return (XYZSummonOkay() or MakeRoom()) + and HasID(AIExtra(),62709239,true) + and CardsMatchingFilter(OppMon(),SpecterPhantomFilter2)>0 + and CardsMatchingFilter(AIMon(),AllyPhantomFilter2)>0 + and HasScales() + and OppGetStrongestAttDef() > AIGetStrongestAttack() + and (Duel.GetTurnCount() ~= SpecterGlobalPendulum + or (CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>2 or CardsMatchingFilter(AIMon(),MagicianPendulumFilter)>0)) +end + +function SpecterSummonPhantom3() + return (XYZSummonOkay() or MakeRoom()) + and HasID(AIExtra(),62709239,true) + and CardsMatchingFilter(OppMon(),SpecterPhantomFilter2)>0 + and CardsMatchingFilter(AIST(),AllyPhantomFilter3)>0 + and OppGetStrongestAttDef() > AIGetStrongestAttack() + and Duel.GetTurnCount() ~= SpecterGlobalPendulum +end + +function SpecterUsePhantom() + return CardsMatchingFilter(OppMon(),SpecterPhantomFilter)>0 + and CardsMatchingFilter(AIST(),MagicianPendulumFilter)>0 and not OPTCheck(53208660) +end + +function SpecterUsePhantom2() + return CardsMatchingFilter(OppMon(),SpecterPhantomFilter2)>0 + and CardsMatchingFilter(AIMon(),AllyPhantomFilter2)>0 +end + +function SpecterUsePhantom3() + return CardsMatchingFilter(OppMon(),SpecterPhantomFilter2)>0 + and CardsMatchingFilter(AIST(),AllyPhantomFilter3)>0 +end + +function AllyPhantomFilter(c) + return FilterType(c,TYPE_PENDULUM) + and FilterLocation(c,LOCATION_SZONE) +end + +function AllyPhantomFilter2(c) + if CardsMatchingFilter(AIMon(),MagicianPendulumFilter)>0 then + return IsSetCode(c.setcode,0x98) and FilterLocation(c,LOCATION_MZONE) + elseif (CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>1 and HasID(AIMon(),62709239,true)) then + return IsSetCode(c.setcode,0xd0) and FilterType(c,TYPE_MONSTER) and FilterLocation(c,LOCATION_MZONE) + elseif CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>3 then + return IsSetCode(c.setcode,0xd0) and FilterType(c,TYPE_MONSTER) and FilterLocation(c,LOCATION_MZONE) + end +end + +function AllyPhantomFilter3(c) + if CardsMatchingFilter(AIST(),ScaleHighFilter)>0 and HasScales() and CardsMatchingFilter(AIHand(),ScaleHighFilter)>0 then + return (c.id==51531505 or c.id==72714461 or c.id==00645794 or c.id==68395509 or c.id==31991800) and FilterLocation(c,LOCATION_SZONE) + elseif CardsMatchingFilter(AIST(),ScaleLowFilter)>0 and HasScales() and CardsMatchingFilter(AIHand(),ScaleLowFilter)>0 then + return (c.id==15146890 or c.id==05506791 or c.id==94784213 or c.id==14920218) and FilterLocation(c,LOCATION_SZONE) + end +end + +function SpecterTornadoFilter(c) + return Targetable(c,TYPE_TRAP) + and Affected(c,TYPE_TRAP) + and bit32.band(c.status,STATUS_LEAVE_CONFIRMED)==0 + and not SpecterCodedTargets(c) +end + +function SpecterTornadoFilter2(c) + return Targetable(c,TYPE_TRAP) + and Affected(c,TYPE_TRAP) + and bit32.band(c.status,STATUS_LEAVE_CONFIRMED)==0 + and (bit32.band(c.type,TYPE_XYZ+TYPE_SYNCHRO+TYPE_RITUAL+TYPE_FUSION)>0 or c.level>4) + and not SpecterCodedTargets(c) + and not EnemyHasUnaffectedAttackerFilter(c) + and not SpecterBPBackrow(c) + and not SpecterEPBackrow(c) +-- and not SpecterCodedUnaffectedAttackers(c) +end + +function SpecterTornadoFilter3(c) + return EnemySummonNegatorMonFilter(c) + and SpecterTornadoFilter(c) +end + +function SpecterTornadoFilter4(c) + if (EnemyHasFireflux() or EnemyHasPPalOrOddEyes() + or EnemyHasStargazer() or EnemyHasTimegazer()) + and Duel.GetCurrentPhase() == PHASE_BATTLE then + return c.attack > SpecterAIGetWeakestAttDef() + and FilterPosition(c,POS_FACEUP_ATTACK) + and SpecterTornadoFilter(c) + and not FilterAffected(c,EFFECT_CANNOT_ATTACK_ANNOUNCE) + and not FilterAffected(c,EFFECT_CANNOT_ATTACK) + end + if EnemyHasFireflux() or EnemyHasPPalOrOddEyes() + or EnemyHasStargazer() or EnemyHasTimegazer() then + return (bit32.band(c.type,TYPE_XYZ+TYPE_SYNCHRO+TYPE_RITUAL+TYPE_FUSION)>0 or c.level>4) + and SpecterTornadoFilter(c) + end + return EnemyHasUnaffectedAttackerFilter(c) + and SpecterTornadoFilter(c) +end + +function SpecterTornadoFilter5(c) + return SpecterBPBackrowFilter(c) + and SpecterTornadoFilter(c) +end + +function SpecterTornadoFilter6(c) + return SpecterTornadoFilter(c) + and FilterPosition(c,POS_FACEUP_ATTACK) +end + +function SpecterTornadoFilter7(c) + return SpecterTornadoFilter(c) + and (FilterAffected(c,EFFECT_CANNOT_BE_BATTLE_TARGET) + or FilterAffected(c,EFFECT_INDESTRUCTABLE_BATTLE)) + and (FilterPosition(c,POS_FACEUP) + or FilterStatus(c,STATUS_IS_PUBLIC)) +end + +function ChainSpecterTornado() + return CardsMatchingFilter(OppMon(),SpecterTornadoFilter)>0 + and (NeedsRaccoonExtra() or NeedsCatExtra() + or NeedsFoxExtra() or NeedsCrowExtra() + or NeedsToadExtra()) + and HasScales() + and ((Duel.GetTurnPlayer()==player_ai and Duel.GetTurnCount() ~= SpecterGlobalPendulum) + or (Duel.GetTurnPlayer()==1-player_ai and AI.GetCurrentPhase() == PHASE_END)) + and UnchainableCheck(36183881) + and not MajestyCheck() +end + +function ChainSpecterTornado2() + return CardsMatchingFilter(OppMon(),SpecterTornadoFilter2)>0 + and Duel.GetTurnPlayer()==1-player_ai + and UnchainableCheck(36183881) + and not MajestyCheck() +end + +function ChainSpecterTornado3() + return CardsMatchingFilter(OppMon(),SpecterTornadoFilter)>0 + and HasScales() + and (Duel.GetTurnPlayer()==player_ai and Duel.GetTurnCount() ~= SpecterGlobalPendulum) + and VanityRemovalNeeded() + and UnchainableCheck(36183881) +end + +function ChainSpecterTornado4() + if Duel.GetCurrentPhase() == PHASE_BATTLE and Duel.GetTurnPlayer()==1-player_ai then + local source = Duel.GetAttacker() + local target = Duel.GetAttackTarget() + if source and target then + if source:IsControler(player_ai) then + target = Duel.GetAttacker() + source = Duel.GetAttackTarget() + end + if target:IsControler(player_ai) + and Targetable(source,TYPE_TRAP) and Affected(source,TYPE_TRAP) + and SpecterDestroyFilter(source) + and WinsBattle(source,target) + and UnchainableCheck(36183881) + and not target:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) + then +-- GlobalTargetSet(source,OppMon()) + return true + end + end + end + return false +end + +function ChainSpecterTornado5() + return CardsMatchingFilter(OppMon(),SpecterTornadoFilter3)>0 + and UnchainableCheck(36183881) + and HasScales() + and ((Duel.GetTurnPlayer()==player_ai and Duel.GetTurnCount() ~= SpecterGlobalPendulum) + or (Duel.GetTurnPlayer()==1-player_ai and AI.GetCurrentPhase() == PHASE_END)) + and not MajestyCheck() +end + +function ChainSpecterTornado6() + return CardsMatchingFilter(OppMon(),SpecterTornadoFilter4)>0 + and Duel.GetTurnPlayer()==1-player_ai + and Duel.GetCurrentPhase() == PHASE_BATTLE + and UnchainableCheck(36183881) +end + +function ChainSpecterTornado7() + return CardsMatchingFilter(OppMon(),SpecterTornadoFilter5)>0 + and Duel.GetTurnPlayer()==1-player_ai + and Duel.GetCurrentPhase() == PHASE_BATTLE + and UnchainableCheck(36183881) +end + +function ChainSpecterTornado8() + return ((CardsMatchingFilter(OppMon(),SpecterTornadoFilter7)==1 + and #OppMon()==1 + and CardsMatchingFilter(AIMon(),MajespecterAttack)>2 + and CardsMatchingFilter(UseLists({AIHand(),AIST()}),UsableFreelyBackrowFilter)>0 + and CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>1) + or (CardsMatchingFilter(OppMon(),SpecterTornadoFilter7)==2 + and #OppMon()==2 + and CardsMatchingFilter(AIMon(),MajespecterAttack)>3 + and CardsMatchingFilter(UseLists({AIHand(),AIST()}),UsableFreelyBackrowFilter)>1 + and CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>2) + or (CardsMatchingFilter(OppMon(),SpecterTornadoFilter7)==3 + and #OppMon()==3 + and CardsMatchingFilter(AIMon(),MajespecterAttack)>4 + and CardsMatchingFilter(UseLists({AIHand(),AIST()}),UsableFreelyBackrowFilter)>2 + and CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>3)) + and Duel.GetCurrentPhase() == PHASE_BATTLE + and Duel.GetTurnPlayer()==player_ai + and UnchainableCheck(36183881) +end + +function NeedsRaccoonExtra() + return HasID(AIMon(),31991800,true) + and not HasID(AIExtra(),31991800,true) +end + +function NeedsCatExtra() + return HasID(AIMon(),05506791,true) + and not HasID(AIExtra(),05506791,true) +end + +function NeedsFoxExtra() + return HasID(AIMon(),94784213,true) + and not HasID(AIExtra(),94784213,true) +end + +function NeedsCrowExtra() + return HasID(AIMon(),68395509,true) + and not HasID(AIExtra(),68395509,true) +end + +function NeedsToadExtra() + return HasID(AIMon(),00645794,true) + and not HasID(AIExtra(),00645794,true) +end + +function VanityFilter(c) + return c.id==05851097 and FilterPosition(c,POS_FACEUP) +end + +function VanityLockdown() + return AIGetStrongestAttack() > OppGetStrongestAttDef() + and CardsMatchingFilter(AIST(),VanityFilter)>0 +end + +function VanityRemovalNeeded() + return AIGetStrongestAttack() <= OppGetStrongestAttDef() + and CardsMatchingFilter(AIST(),VanityFilter)>0 + and CardsMatchingFilter(OppST(),VanityFilter)==0 +end + +function SpecterChainTotemBird() --Might as well negate whatever the opponent plays if they have one card or less in the hand. + if #OppHand()<2 + and EffectCheck(1-player_ai)~=nil then + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()~=NegateBlackList + and e:GetHandlerPlayer()==1-player_ai then + return true + end + end + end + return false +end + +function SpecterCycloneFilter(c) + return Targetable(c,TYPE_SPELL) + and Affected(c,TYPE_SPELL) + and SpecterDestroyFilter(c) + and bit32.band(c.status,STATUS_LEAVE_CONFIRMED)==0 + and not SpecterCodedTargets(c) + and not SpecterTornadoFirst(c) +end + +function SpecterCycloneFilter2(c) + return Targetable(c,TYPE_SPELL) + and Affected(c,TYPE_SPELL) + and SpecterDestroyFilter(c) + and bit32.band(c.status,STATUS_LEAVE_CONFIRMED)==0 + and (bit32.band(c.type,TYPE_XYZ+TYPE_SYNCHRO+TYPE_RITUAL+TYPE_FUSION)>0 or c.level>4) + and not SpecterCodedTargets(c) + and not EnemyHasUnaffectedAttackerFilter(c) + and not SpecterBPBackrow(c) + and not SpecterTornadoFirst(c) + and not SpecterEPBackrow(c) +-- and not SpecterCodedUnaffectedAttackers(c) +end + +function SpecterCycloneFilter3(c) + if EnemyHasTimeRafflesia() then + return EnemyHasRafflesiaFilter(c) + and SpecterCycloneFilter(c) + end + return EnemySummonNegatorMonFilter(c) + and SpecterCycloneFilter(c) +end + +function SpecterCycloneFilter4(c) + if (EnemyHasFireflux() or EnemyHasPPalOrOddEyes() + or EnemyHasStargazer() or EnemyHasTimegazer()) + and Duel.GetCurrentPhase() == PHASE_BATTLE then + return c.attack > SpecterAIGetWeakestAttDef() + and FilterPosition(c,POS_FACEUP_ATTACK) + and SpecterCycloneFilter(c) + and not FilterAffected(c,EFFECT_CANNOT_ATTACK_ANNOUNCE) + and not FilterAffected(c,EFFECT_CANNOT_ATTACK) + end + if EnemyHasFireflux() or EnemyHasPPalOrOddEyes() + or EnemyHasStargazer() or EnemyHasTimegazer() then + return (bit32.band(c.type,TYPE_XYZ+TYPE_SYNCHRO+TYPE_RITUAL+TYPE_FUSION)>0 or c.level>4) + and SpecterCycloneFilter(c) + end + return EnemyHasUnaffectedAttackerFilter(c) + and SpecterCycloneFilter(c) +end + +function SpecterCycloneFilter5(c) + return SpecterBPBackrowFilter(c) + and SpecterCycloneFilter(c) + and not SpecterTornadoFirst(c) +end + +function SpecterCycloneFilter6(c) + return SpecterCycloneFilter(c) + and FilterPosition(c,POS_FACEUP_ATTACK) +end + +function SpecterCycloneFilter7(c) + return SpecterCycloneFilter(c) + and (FilterAffected(c,EFFECT_CANNOT_BE_BATTLE_TARGET) + or FilterAffected(c,EFFECT_INDESTRUCTABLE_BATTLE)) + and (FilterPosition(c,POS_FACEUP) + or FilterStatus(c,STATUS_IS_PUBLIC)) +end + +function ChainSpecterCyclone() + return CardsMatchingFilter(OppMon(),SpecterCycloneFilter)>0 + and (NeedsRaccoonExtra() or NeedsCatExtra() + or NeedsFoxExtra() or NeedsCrowExtra() + or NeedsToadExtra()) + and HasScales() + and ((Duel.GetTurnPlayer()==player_ai and Duel.GetTurnCount() ~= SpecterGlobalPendulum) + or (Duel.GetTurnPlayer()==1-player_ai and AI.GetCurrentPhase() == PHASE_END)) + and UnchainableCheck(49366157) + and not MajestyCheck() +end + +function ChainSpecterCyclone2() + return CardsMatchingFilter(OppMon(),SpecterCycloneFilter2)>0 + and Duel.GetTurnPlayer()==1-player_ai + and UnchainableCheck(49366157) + and not MajestyCheck() +end + +function ChainSpecterCyclone3() + return CardsMatchingFilter(OppMon(),SpecterCycloneFilter)>0 + and HasScales() + and (Duel.GetTurnPlayer()==player_ai and Duel.GetTurnCount() ~= SpecterGlobalPendulum) + and VanityRemovalNeeded() + and UnchainableCheck(49366157) +end + +function ChainSpecterCyclone4() + if Duel.GetCurrentPhase() == PHASE_BATTLE and Duel.GetTurnPlayer()==1-player_ai then + local source = Duel.GetAttacker() + local target = Duel.GetAttackTarget() + if source and target then + if source:IsControler(player_ai) then + target = Duel.GetAttacker() + source = Duel.GetAttackTarget() + end + if target:IsControler(player_ai) + and Targetable(source,TYPE_SPELL) and Affected(source,TYPE_SPELL) + and SpecterDestroyFilter(source) + and WinsBattle(source,target) + and UnchainableCheck(49366157) + and not target:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) + then +-- GlobalTargetSet(source,OppMon()) + return true + end + end + end + return false +end + +function ChainSpecterCyclone5() + return CardsMatchingFilter(OppMon(),SpecterCycloneFilter3)>0 + and Duel.GetTurnPlayer()==player_ai + and UnchainableCheck(49366157) + and HasScales() + and ((Duel.GetTurnPlayer()==player_ai and Duel.GetTurnCount() ~= SpecterGlobalPendulum) + or (Duel.GetTurnPlayer()==1-player_ai and AI.GetCurrentPhase() == PHASE_END)) + and not MajestyCheck() +end + +function ChainSpecterCyclone6() + return CardsMatchingFilter(OppMon(),SpecterCycloneFilter4)>0 + and Duel.GetTurnPlayer()==1-player_ai + and Duel.GetCurrentPhase() == PHASE_BATTLE + and UnchainableCheck(49366157) +end + +function ChainSpecterCyclone7() + return CardsMatchingFilter(OppMon(),SpecterCycloneFilter5)>0 + and Duel.GetTurnPlayer()==1-player_ai + and Duel.GetCurrentPhase() == PHASE_BATTLE + and UnchainableCheck(49366157) +end + +function ChainSpecterCyclone8() + return ((CardsMatchingFilter(OppMon(),SpecterCycloneFilter7)==1 + and #OppMon()==1 + and CardsMatchingFilter(AIMon(),MajespecterAttack)>2 + and CardsMatchingFilter(UseLists({AIHand(),AIST()}),UsableFreelyBackrowFilter)>0 + and CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>1) + or (CardsMatchingFilter(OppMon(),SpecterCycloneFilter7)==2 + and #OppMon()==2 + and CardsMatchingFilter(AIMon(),MajespecterAttack)>3 + and CardsMatchingFilter(UseLists({AIHand(),AIST()}),UsableFreelyBackrowFilter)>1 + and CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>2) + or (CardsMatchingFilter(OppMon(),SpecterCycloneFilter7)==3 + and #OppMon()==3 + and CardsMatchingFilter(AIMon(),MajespecterAttack)>4 + and CardsMatchingFilter(UseLists({AIHand(),AIST()}),UsableFreelyBackrowFilter)>2 + and CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>3)) + and Duel.GetCurrentPhase() == PHASE_BATTLE + and Duel.GetTurnPlayer()==player_ai + and UnchainableCheck(49366157) +end + +function SpecterHeroTrashTalkFilter(c) + return c.id==08949584 --A Hero Lives + and FilterPosition(c,POS_FACEUP) +end + +function SpecterHeroTrashTalk() + return AI.GetPlayerLP(2)==4000 + and CardsMatchingFilter(OppST(),SpecterHeroTrashTalkFilter)>0 + and Duel.GetTurnCount() == 2 + and CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>0 + and CardsMatchingFilter(AIST(),SpecterBackrowFilter)>0 + and not VanityLockdown() +end + +function DetectShadowMist() + return CardsMatchingFilter(OppMon(),function(c) return c.id==50720316 end)>0 + and Duel.GetTurnCount() == 2 + and #OppMon()==1 +end + +function TornadoShadowMistFilter(c) + return SpecterTornadoFilter(c) + and c.id==50720316 +end + +function TornadoShadowMist() + return AI.GetCurrentPhase() == PHASE_END + and CardsMatchingFilter(OppMon(),TornadoShadowMistFilter)==1 + and Duel.GetTurnCount() == 2 +end + +function CycloneShadowMistFilter(c) + return SpecterCycloneFilter(c) + and c.id==50720316 +end + +function CycloneShadowMist() + return AI.GetCurrentPhase() == PHASE_END + and CardsMatchingFilter(OppMon(),CycloneShadowMistFilter)==1 + and Duel.GetTurnCount() == 2 +end + +function SpecterChainNegationTempest(card) + local e,c,id + if EffectCheck(1-player_ai)~=nil then + e,c,id = EffectCheck() + if SpecterEffectNegateFilter(c,card) then + SetNegated() + return true + end + else + local cards = SubGroup(OppMon(),FilterStatus,STATUS_SUMMONING) + if #cards > 1 and Duel.GetCurrentChain()<1 then + return true + end + if #cards == 1 and Duel.GetCurrentChain()<1 then + c=cards[1] + return SpecterSummonNegateFilter(c,card) + end + end + return false +end + +function SpecterEffectNegateFilter(c,card) + local id = c:GetCode() +--First lines are Totem Bird negations + if (id == 21143940 + or id == 93600443 + or id == 84536654) then + return true + end + if id == 58996430 and Duel.GetCurrentPhase() == PHASE_END then -- Wulf, Lightsworn Beast + return false + end + if id == 30328508 and not Duel.GetOperationInfo(Duel.GetCurrentChain(), CATEGORY_DESTROY) then -- Don't negate Squamata's sending effect. + return false + end + if id == 09411399 and HasID(OppGrave(),09411399,true) then -- Don't negate Malicious if there is already a second in the graveyard. + return false + end + if id == 37445295 and #OppHand()>2 and not Duel.GetCurrentPhase() == PHASE_BATTLE then -- Falco + return false + end + if id == 33420078 and #OppHand()>0 then --Plaguespreader + return false + end + if id == 49959355 and #OppMon()==1 then --Uni-Zombie + return true + end + if IsSetCode(c.setcode,0xd0) then --Majespecters + return false + end + if id == 64280356 then --Kozmo Tincan + return true + end + if id == 21044178 then --Abyss Dweller has no effect against this deck. + return false + end +-- If the A.I. controls no XYZs, do not negate Aigaion. + if id == 10678778 and SpecterSeaCastleCheck() then + return false + end +-- Never negate Galaxy Tomahawk or Crazy Box. + if id == 10389142 + or id == 42421606 then + return false + end +-- Never negate these when A.I. has backrow: Sword Breaker, +-- CXyz DFCG, 14, Shark Fort, 33, 94, 32, Papilloperative, +-- Dark Rebellion, Trapeze, 105, Shadow Shien, 10, Comics Hero, +-- Praesepe, Thanatos, Albverdich, 18, King Feral, Vixen, +-- BAN, Snowdust, Gandiva, Merrowgeist, KKDragon, +-- Excalibur, 82, Zubaba, GGG Samurai, Downerd + if UsableBackrow() then + if id == 64689404 + or id == 23454876 + or id == 21313376 + or id == 50449881 + or id == 39139935 + or id == 62070231 + or id == 09053187 + or id == 65676461 + or id == 02191144 + or id == 16195942 + or id == 17016362 + or id == 59627393 + or id == 01828513 + or id == 11411223 + or id == 46871387 + or id == 77631175 + or id == 02091298 + or id == 65884091 + or id == 28290705 + or id == 23649496 + or id == 11398059 + or id == 58712976 + or id == 82944432 + or id == 73659078 + or id == 48009503 + or id == 76372778 + or id == 69069911 + or id == 60645181 + or id == 31437713 + or id == 31563350 + or id == 91499077 + or id == 72167543 then + return false + end +-- Begin conditional negates with backrow: +-- Targetable - Gauntlet, Shogi, 61 + if (id == 15561463 + or id == 75253697 + or id == 29669359) + and SpecterTMon() then + return false + end +-- Activation location graveyard (probably don't need a check for this) - 37 + if id == 37279508 then + return true + end +-- Has STornado - 79 + if id == 71921856 + and UsableSTornado() then + return false + end +-- Targetable and Destroyable - Magnaliger + if id == 57031794 + and SpecterTarOrDesMon() then + return false + end + -- Misc - 21, Zereort, Corebage, CDragon Nova, 19, E of Prophecy, C32 + -- CXyz Mechquipped, 91, Dolkka, Aeroboros, Archduke, Pho Papilloperative + -- 50, 101, Castel + if (id == 57707471 and Specter21Check()) + or (id == 13183454 and SpecterZereortCheck()) + or (id == 58600555 and SpecterCorebageCheck()) + or (id == 58069384 and SpecterCNovaCheck()) + or (id == 55067058 or Specter19Check()) + or (id == 00770365 and SpecterEmpressCheck()) + or (id == 49221191 and SpecterC32Check()) + or (id == 41309158 and SpecterAngeneralCheck()) + or (id == 84417082 and Specter91Check()) + or (id == 42752141 and SpecterDolkkaCheck()) + or (id == 11646785 and SpecterAeroborosCheck()) + or (id == 66506689 and SpecterAeroborosCheck()) + or (id == 28150174 and SpecterAngeneralCheck()) + or (id == 51735257 and Specter50Check()) + or (id == 48739166 and Specter101Check()) + or (id == 82633039 and SpecterCastelCheck()) then + return false + end + end +-- Begin cards with conditions that do not involve backrow: +-- Exa-Stag, 53, + if (id == 26211048 and SpecterStagCheck()) + or (id == 23998625 and #OppMon()>1) then + return false + end + if id == 20563387 then + return true + end + if EnableShadollFunctions() or EnableBAFunctions() then + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and (Duel.GetOperationInfo(i,CATEGORY_TOGRAVE) + or Duel.GetOperationInfo(i,CATEGORY_DECKDES)) + and e:GetHandlerPlayer()==1-player_ai then + return true + end + end + if KuribanditTrace() then + return true + end + end + return ChainNegation(card) +end + +function SpecterSummonNegateFilter(c,card) + local id = c.id + if SpecterMaterialNegateFilter(c) then + return true + end + if (CardsMatchingFilter(OppMon(),EnemySummoningUnaffectedAttackerFilter)>0 or CardsMatchingFilter(OppMon(),EnemyUtopiaTempestRemoval)>0) + and (UsableSTornado() or UsableSCyclone()) then + return false + end + if CardsMatchingFilter(OppMon(),EnemySummoningUnaffectedAttackerFilter2)>0 then +-- and (UsableSTornado() or UsableSCyclone()) then + return true + end +-- If the A.I. controls no XYZs, do not negate Aigaion. + if id == 10678778 and SpecterSeaCastleCheck() then + return false + end +-- Never negate Galaxy Tomahawk or Crazy Box. + if id == 10389142 + or id == 42421606 then + return false + end +-- Never negate these when A.I. has backrow: GDTC, C73, 25, Sword Breaker, CXyz Comics, +-- CXyz DFCG, 14, Shark Fort, 33, 94, Gagagigo, 32, Papilloperative, GK Pearl, Dark Rebellion, +-- Trapeze, 105, Shadow Shien, Laggia, 55, Comics Hero, Praesepe, Thanatos, King Feral, +-- Albverdich, 10, 18, Vixen, BAN, Snowdust, Gandiva, Merrowgeist, KKDragon, Downerd +-- Gtrick Angel, Excalibur, 106, 82, Zubaba, Minerva XYZ, GGG Samurai + if UsableBackrow() then + if id == 91949988 + or id == 96864105 + or id == 64554883 + or id == 64689404 + or id == 13030280 + or id == 23454876 + or id == 21313376 + or id == 50449881 + or id == 39139935 + or id == 62070231 + or id == 09053187 + or id == 65676461 + or id == 02191144 + or id == 71594310 + or id == 16195942 + or id == 17016362 + or id == 59627393 + or id == 01828513 + or id == 74294676 + or id == 46871387 + or id == 77631175 + or id == 02091298 + or id == 65884091 + or id == 11398059 + or id == 28290705 + or id == 11411223 + or id == 23649496 + or id == 58712976 + or id == 82944432 + or id == 73659078 + or id == 48009503 + or id == 76372778 + or id == 69069911 + or id == 72167543 + or id == 53334641 + or id == 60645181 + or id == 63746411 + or id == 31437713 + or id == 31563350 + or id == 30100551 + or id == 91499077 then + return false + end +-- Begin conditional negates with backrow: +-- Targetable - Gauntlet, Shogi, 61, 36 + if (id == 15561463 + or id == 75253697 + or id == 29669359 + or id == 50260683) + and SpecterTMon() then + return false + end +-- Has STornado - 37, 79, Full-Armored Lancer + if (id == 37279508 + or id == 71921856 + or id == 25853045) + and UsableSTornado() then + return false + end +-- Targetable and Destroyable - Magnaliger + if id == 57031794 + and SpecterTarOrDesMon() then + return false + end +-- Targetable XYZs AI - One-Eyed, 8 + if (id == 75620895 + or id == 47387961) + and SpecterTarXYZ() then + return false + end +-- Targetable XYZs Both - HCrest + if id == 02407234 + and SpecterTarXYZBoth() then + return false + end +-- Targetable ATK - Disigma, Paladynamo + if (id == 39987164 + or id == 61344030) + and SpecterTarATK() then + return false + end +-- Misc - 21, Zereort, Corebage, CDragon Nova, 19, E of Prophecy, C32, Aeroboros, Dolkka +-- Bahamut, CXyz Mechquipped, 103, Tin Archduke, Pho Papilloperative, Dragun, 50, 101 +-- Galaxion, Castel + if (id == 57707471 and Specter21Check()) + or (id == 13183454 and SpecterZereortCheck()) + or (id == 58600555 and SpecterCorebageCheck()) + or (id == 58069384 and SpecterCNovaCheck()) + or (id == 55067058 or Specter19Check()) + or (id == 00770365 and SpecterEmpressCheck()) + or (id == 49221191 and SpecterC32Check()) + or (id == 11646785 and SpecterAeroborosCheck()) + or (id == 42752141 and SpecterDolkkaCheck()) + or (id == 36757171 and SpecterBahamutCheck()) + or (id == 41309158 and SpecterAngeneralCheck()) + or (id == 94380860 and Specter103Check()) + or (id == 66506689 and SpecterAeroborosCheck()) + or (id == 28150174 and SpecterAngeneralCheck()) + or (id == 90726340 and SpecterDragunCheck()) + or (id == 51735257 and Specter50Check()) + or (id == 48739166 and Specter101Check()) + or (id == 40390147 and SpecterGalaxionCheck()) + or (id == 82633039 and SpecterCastelCheck()) then + return false + end + end +-- Begin cards with conditions that do not involve backrow: +-- Exa-Stag, 53, 91 + if (id == 26211048 and SpecterStagCheck()) + or (id == 23998625 and #OppMon()>1) + or (id == 84417082 and Specter91Check()) then + return false + end +--Cards that should actually be negated +--C80, Tzolkin, Bishbaalkin + if (id == 20563387 + or id == 01686814 + or id == 90884403) then + return true + end + return ChainNegation(card) +end + +function SpecterBPBackrow(c) + if SpecterTMon() and (HasID(OppMon(),15561463,true) or HasID(OppMon(),75253697,true) + or HasID(OppMon(),29669359,true) or HasID(OppMon(),50260683,true)) then + return c.id==15561463 + or c.id==75253697 + or c.id==29669359 + or c.id==50260683 + end + if SpecterTarOrDesMon() and HasID(OppMon(),57031794,true) then + return c.id==57031794 + end + if Specter21Check() and HasID(OppMon(),57707471,true) then + return c.id==57707471 + end + if SpecterZereortCheck() and HasID(OppMon(),13183454,true) then + return c.id==13183454 + end + if SpecterCorebageCheck() and HasID(OppMon(),58600555,true) then + return c.id==58600555 + end + if Specter94Check() and HasID(OppMon(),62070231,true) then + return c.id==62070231 + end + if SpecterEmpressCheck() and HasID(OppMon(),00770365,true) then + return c.id==00770365 + end + if #OppMon()>1 and HasID(OppMon(),23998625,true) then + return c.id==23998625 + end + if SpecterC32Check() and HasID(OppMon(),49221191,true) then + return c.id==49221191 + end + if SpecterTarXYZBoth() and HasID(OppMon(),02407234,true) then + return c.id==02407234 + end + if SpecterTarXYZ() and (HasID(OppMon(),47387961,true) + or HasID(OppMon(),75620895,true)) then + return c.id==47387961 + or c.id==75620895 + end + if SpecterTarATK() and (HasID(OppMon(),39987164,true) + or HasID(OppMon(),61344030,true)) then + return c.id==39987164 + or c.id==61344030 + end + if SpecterLaggiaCheck() and HasID(OppMon(),74294676,true) then + return c.id==74294676 + end + if Specter91Check() and HasID(OppMon(),84417082,true) then + return c.id==84417082 + end + if SpecterDolkkaCheck() and HasID(OppMon(),42752141,true) then + return c.id==42752141 + end + if UsableSCyclone() and not (UsableSTornado() or UsableSStorm()) and HasID(OppMon(),71921856,true) then + return c.id==71921856 + end + if SpecterAeroborosCheck() and (HasID(OppMon(),11646785,true) + or HasID(OppMon(),66506689,true)) then + return c.id==11646785 + or c.id==66506689 + end + if (UsableSTornado() or UsableSStorm()) and HasID(OppMon(),58712976,true) then + return c.id==58712976 + end + if SpecterDragunCheck() and HasID(OppMon(),90726340,true) then + return c.id==90726340 + end + if SpecterAngeneralCheck() and HasID(OppMon(),28150174,true) then + return c.id==28150174 + end + if Specter50Check() and HasID(OppMon(),51735257,true) then + return c.id==51735257 + end + if Specter101Check() and HasID(OppMon(),48739166,true) then + return c.id==48739166 + end + if (UsableSTornado() or UsableSStorm()) and HasID(OppMon(),25853045,true) then + return c.id==25853045 + end + if SpecterGalaxionCheck() and HasID(OppMon(),40390147,true) then + return c.id==40390147 + end + if SpecterCastelCheck() and HasID(OppMon(),82633039,true) then + return c.id==82633039 + end + return c.id==96864105 + or c.id==91949988 + or c.id==64554883 + or c.id==64689404 + or c.id==13030280 + or c.id==23454876 + or c.id==21313376 + or c.id==50449881 + or c.id==39139935 + or c.id==55067058 + or c.id==26211048 + or c.id==09053187 + or c.id==65676461 + or c.id==37279508 + or c.id==02191144 + or c.id==71594310 + or c.id==41309158 + or c.id==16195942 + or c.id==17016362 + or c.id==59627393 + or c.id==01828513 + or c.id==11411223 + or c.id==46871387 + or c.id==77631175 + or c.id==02091298 + or c.id==36757171 + or c.id==65884091 + or c.id==28290705 + or c.id==23649496 + or c.id==94380860 + or c.id==82944432 + or c.id==73659078 + or c.id==48009503 + or c.id==76372778 + or c.id==69069911 + or c.id==72167543 + or c.id==60645181 + or c.id==63746411 + or c.id==31437713 + or c.id==31563350 + or c.id==91499077 +end + +function SpecterBPBackrowFilter(c) + return SpecterBPBackrow(c) + and c.attack > SpecterAIGetWeakestAttDef() + and FilterPosition(c,POS_FACEUP_ATTACK) + and not FilterAffected(c,EFFECT_CANNOT_ATTACK_ANNOUNCE) + and not FilterAffected(c,EFFECT_CANNOT_ATTACK) +end + +function SpecterTornadoFirst(c) + if (UsableSTornado() or UsableSStorm()) and HasID(OppExtra(),97403510,true) and HasID(OppMon(),23998625,true) then + return c.id==23998625 + end + if (UsableSTornado() or UsableSTempest() or UsableSStorm()) + and SpecterCNovaCheck() and HasID(OppMon(),58069384,true) then + return c.id==58069384 + end + if (UsableSTornado() or UsableSStorm()) and SpecterTrapezeCheck() and HasID(OppMon(),17016362,true) then + return c.id==17016362 + end + if (UsableSTornado() or UsableSStorm()) and SpecterWaveCaesarCheck() and HasID(OppMon(),03758046,true) then + return c.id==03758046 + end + if (UsableSTornado() or UsableSStorm()) and Specter18Check() and HasID(OppMon(),23649496,true) then + return c.id==23649496 + end + if (UsableSTornado() or UsableSStorm()) and SpecterVixenCheck() and HasID(OppMon(),58712976,true) then + return c.id==58712976 + end + if (UsableSTornado() or UsableSStorm()) and SpecterFFTigerCheck() and HasID(OppMon(),96381979,true) then + return c.id==96381979 + end + if (UsableSTornado() or UsableSStorm()) then + return c.id==16691074 + or c.id==00007152 + or c.id==23454876 + or c.id==37279508 + or c.id==56638325 + or c.id==71921856 + or c.id==42589641 + or c.id==30100551 + end +end + +function SpecterEPBackrow(c) + return c.id==42421606 + or c.id==10389142 +end + +function SpecterFFTigerFilter(c) + return (IsSetCode(c.setcode,0x7c) + and FilterPosition(c,POS_FACEUP)) + or FilterPosition(c,POS_FACEDOWN) +end + +function SpecterFFTigerCheck() + return CardsMatchingFilter(OppST(),OppBackrowFilter)>2 +end + +function SpecterVixenFilter(c) + return c.attack >= 2500 +end + +function SpecterVixenCheck() + return CardsMatchingFilter(OppMon(),SpecterVixenFilter)>0 +end + +function SpecterCastelEnemyFilter(c) + return Targetable(c,TYPE_MONSTER) + and FilterPosition(c,POS_FACEUP) +end + +function SpecterCastelCheck() + return CardsMatchingFilter(AIField(),SpecterCastelEnemyFilter)==0 +end + +function SpecterGalaxionFilter(c) + return c.original_id==40390147 +end + +function SpecterGalaxionCheck() + return CardsMatchingFilter(OppGrave(),SpecterGalaxionFilter)<3 +end + +function Specter101Filter(c) + return Targetable(c,TYPE_MONSTER) + and FilterPosition(c,POS_FACEUP_ATTACK) + and bit32.band(c.summon_type,SUMMON_TYPE_SPECIAL)>0 +end + +function Specter101Check() + return CardsMatchingFilter(AIMon(),Specter101Filter)==0 +end + +function Specter50Filter(c) + return Targetable(c,TYPE_MONSTER) + and c.attack <= 2100 + and not FilterType(c,TYPE_PENDULUM) +end + +function Specter50Check() + return CardsMatchingFilter(AIMon(),Specter50Filter)==0 +end + +function SpecterDragunFilter(c) + return c.level>=5 + and FilterRace(c,RACE_DRAGON) +end + +function SpecterDragunCheck() + return CardsMatchingFilter(OppGrave(),SpecterDragunFilter)==0 +end + +function SpecterLaggiaFilter(c) + return c.xyz_material_count==0 +end + +function SpecterLaggiaCheck() + return CardsMatchingFilter(OppMon(),SpecterLaggiaFilter)>0 +end + +function Specter18Filter(c) + return IsSetCode(c.setcode,0x76) +end + +function Specter18Check() + return CardsMatchingFilter(OppMon(),Specter18Filter)>1 +end + +function SpecterWaveCaesarCheck() + return Duel.GetCurrentPhase() ~= PHASE_MAIN2 + and Duel.GetCurrentPhase() ~= PHASE_END +end + +function SpecterTrapezeFilter(c) + return IsSetCode(c.setcode,0xc6) +end + +function SpecterTrapezeCheck() + return CardsMatchingFilter(OppDeck(),SpecterTrapezeFilter)>0 +end + +function Specter103Filter(c) + return c.attack~=c.base_attack + and FilterPosition(c,POS_FACEUP_ATTACK) + and FilterAffected(c,EFFECT_INDESTRUCTABLE_EFFECT)==0 + and Targetable(c,TYPE_MONSTER) +end + +function Specter103Check() + return CardsMatchingFilter(AIMon(),Specter103Filter)==0 +end + +function SpecterAngeneralCheck() + return not (HasID(AIMon(),51531505,true) + and HasID(AIMon(),85252081,true) + and HasID(AIMon(),93568288,true)) +end + +function SpecterTATKFilter(c) + return Targetable(c,TYPE_MONSTER) + and FilterPosition(c,POS_FACEUP_ATTACK) +end + +function SpecterTarATK() + return CardsMatchingFilter(AIMon(),SpecterTATKFilter)==0 +end + +function Specter91Filter(c) + return FilterAffected(c,EFFECT_INDESTRUCTABLE_EFFECT) +end + +function Specter91SelfFilter(c) + return c.xyz_material_count==3 + and c.id==84417082 +end + +function Specter91Check() + return (CardsMatchingFilter(AIMon(),Specter91Filter)==0 + or CardsMatchingFilter(OppMon(),Specter91Filter)>2) + and CardsMatchingFilter(OppMon(),Specter91SelfFilter)>0 +end + +function SpecterBahamutCheck() + return CardsMatchingFilter(AIMon(),SpecterTargetableMonster)==0 + or #OppHand()==0 +end + +function SpecterTarXYZFilter(c) + return FilterType(c,TYPE_XYZ) + and Targetable(c,TYPE_MONSTER) +end + +function SpecterTarXYZ() + return CardsMatchingFilter(AIMon(),SpecterTarXYZFilter)==0 +end + +function SpecterTarXYZBoth() + return CardsMatchingFilter(AIMon(),SpecterTarXYZFilter)==0 + and CardsMatchingFilter(OppMon(),SpecterTarXYZFilter)==1 +end + +function SpecterUnusedTotem(c) + return c.id==71068247 + and c.xyz_material_count>1 + and NotNegated(c) +end + +function SpecterDolkkaCheck() + return CardsMatchingFilter(AIMon(),SpecterUnusedTotem)==0 + and Duel.GetTurnPlayer()==1-player_ai +end + +function SpecterAeroborosFilter(c) + return HasID(c.xyz_materials,85374678,true) +end + +function SpecterAeroborosCheck() + return CardsMatchingFilter(OppMon(),SpecterAeroborosFilter)==0 + or SpecterTMon()==0 +end + +function SpecterTargetableMonster(c) + return Targetable(c,TYPE_MONSTER) +end + +function SpecterTMon() + return CardsMatchingFilter(AIMon(),SpecterTargetableMonster)==0 +end + +function SpecterTarOrDes(c) + return Targetable(c,TYPE_MONSTER) + and FilterAffected(c,EFFECT_INDESTRUCTABLE_EFFECT) +end + +function SpecterTarOrDesMon() + return CardsMatchingFilter(AIMon(),SpecterTarOrDes)==0 +end + +function Specter21Filter(c) + return FilterPosition(c,POS_DEFENSE) + and FilterAffected(c,EFFECT_INDESTRUCTABLE_EFFECT) +end + +function Specter21Check() + return CardsMatchingFilter(AIMon(),Specter21Filter)==0 +end + +function SpecterZereortFilter(c) + return FilterPosition(c,POS_FACEUP_ATTACK) + and Targetable(c,TYPE_MONSTER) +end + +function SpecterZereortCheck() + return CardsMatchingFilter(AIMon(),SpecterZereortFilter)==0 +end + +function SpecterCorebageFilter(c) + return FilterPosition(c,POS_DEFENSE) + and Targetable(c,TYPE_MONSTER) +end + +function SpecterCorebageCheck() + return CardsMatchingFilter(AIMon(),SpecterCorebageFilter)==0 +end + +function SpecterCNovaFilter(c) + return FilterType(c,TYPE_FUSION) + and FilterRace(c,RACE_MACHINE) +end + +function SpecterCNovaCheck() + return CardsMatchingFilter(OppExtra(),SpecterCNovaFilter)>0 +end + +function Specter19Filter(c) + return FilterStatus(c,STATUS_SUMMONING) + and FilterPosition(c,POS_FACEUP_DEFENSE) + and c.id==55067058 +end + +function Specter19Check() + return CardsMatchingFilter(OppMon(),Specter19Filter)>0 +end + +function SpecterEmpressFilter1(c) + return IsSetCode(c.setcode,0x106e) +end + +function SpecterEmpressFilter2(c) + return FilterAffected(c,EFFECT_INDESTRUCTABLE_EFFECT) +end + +function SpecterEmpressCheck() + return CardsMatchingFilter(OppDeck(),SpecterEmpressFilter1)==0 + or CardsMatchingFilter(AIMon(),SpecterEmpressFilter2)==0 +end + +function SpecterC32Filter(c) + return Targetable(c,TYPE_MONSTER) +end + +function SpecterC32Check() + return CardsMatchingFilter(AIMon(),SpecterC32Filter)==0 + or AI.GetPlayerLP(2)>1000 +end + +function SpecterStagFilter1(c) + return Targetable(c,TYPE_MONSTER) +end + +function SpecterStagFilter2(c) + return c.attack >= 2000 +end + +function SpecterStagCheck() + return CardsMatchingFilter(AIMon(),SpecterStagFilter1)==0 + and CardsMatchingFilter(AIGrave(),SpecterStagFilter2)==0 +end + +function SpecterSeaCastleFilter(c) + return FilterType(c,TYPE_XYZ) +end + +function SpecterSeaCastleCheck() + return CardsMatchingFilter(AIMon(),SpecterSeaCastleFilter)==0 +end + +function SpecterMaterialNegateFilter(c) + return FilterStatus(c,STATUS_SUMMONING) + and (HasID(c.xyz_materials,38331564,true) + or HasID(c.xyz_materials,24610207,true) + or HasID(c.xyz_materials,12948099,true) + or HasID(c.xyz_materials,67120578,true) + or HasID(c.xyz_materials,94344242,true)) +end + +function Specter94Filter(c) + return Targetable(c,TYPE_MONSTER) + and FilterPosition(c,POS_FACEUP_ATTACK) +end + +function Specter94Check() + return CardsMatchingFilter(AIMon(),Specter94Filter)==0 +end + +function SpecterTemtempoFilter1(c) --Honor Ark, Honor Dark, Full-Armored Lancer, Cowboy, Ignis, Zenmaines, Sky Cavalry, Gachi Gachi. + return Affected(c,TYPE_MONSTER,3) + and FilterType(c,TYPE_XYZ) + and c.xyz_material_count==1 + and Targetable(c,TYPE_MONSTER) + and (c.id==48739166 + or c.id==12744567 + or c.id==25853045 + or (c.id==12014404 and FilterPosition(c,POS_FACEUP_DEFENSE) and AI.GetPlayerLP(1)<=800) + or c.id==03989465 + or c.id==78156759 + or c.id==36776089 + or c.id==10002346) +end + +function SpecterTemtempoFilter2(c) --Totem Bird, Starliege Paladynamo, Brotherhood Cardinal + return Affected(c,TYPE_MONSTER,3) + and FilterType(c,TYPE_XYZ) + and c.xyz_material_count==2 + and Targetable(c,TYPE_MONSTER) + and (c.id==71068247 + or c.id==61344030 + or c.id==58504745) +end + +function SpecterTemtempoFilter3(c) --Only chain during opponent's turn. Dark Rebellion, GTomahawk, Shogi XYZ, Excalibur, Castel, ARK Knight + return Affected(c,TYPE_MONSTER,3) + and FilterType(c,TYPE_XYZ) + and c.xyz_material_count==2 + and Targetable(c,TYPE_MONSTER) + and (c.id==16195942 + or c.id==10389142 + or c.id==75253697 + or c.id==60645181 + or c.id==82633039 + or c.id==48739166) +end + +function SpecterTemtempoFilter4(c) --Utopia Lightning + return Affected(c,TYPE_MONSTER,3) + and FilterType(c,TYPE_XYZ) + and c.xyz_material_count==3 + and Targetable(c,TYPE_MONSTER) + and c.id==56832966 +end + +function SpecterSummonTemtempo() --Pure gimmick mode initiated, you don't have to check if you have Majespecters, who even needs those? + return (CardsMatchingFilter(OppMon(),SpecterTemtempoFilter1)>0 + or CardsMatchingFilter(OppMon(),SpecterTemtempoFilter2)>0) + and HasID(AIExtra(),52558805,true) +end + +function SpecterChainTemtempo1() + return CardsMatchingFilter(OppMon(),SpecterTemtempoFilter1)>0 +end + +function SpecterChainTemtempo2() + return CardsMatchingFilter(OppMon(),SpecterTemtempoFilter2)>0 +end + +function SpecterChainTemtempo3() + return CardsMatchingFilter(OppMon(),SpecterTemtempoFilter3)>0 + and Duel.GetTurnPlayer() == 1-player_ai +end + +function SpecterChainTemtempo4() + return CardsMatchingFilter(OppMon(),SpecterTemtempoFilter4)>0 + and Duel.GetTurnPlayer() == 1-player_ai + and AI.GetCurrentPhase() == PHASE_BATTLE +end + +function SpecterChainTemtempo5() + return not (SpecterChainTemtempo1() + and SpecterChainTemtempo2() + and SpecterChainTemtempo3() + and SpecterChainTemtempo4()) +end + +function SpecterXYZSummon(index,id) + if index == nil then + index = CurrentIndex + end + SpecterGlobalMaterial = true + if id then + SpecterGlobalSSCardID = id + end + return {COMMAND_SPECIAL_SUMMON,CurrentIndex} +end + +--[[function SpecterXYZSetup(cards,minTargets,maxTargets,triggeringID,triggeringCard) --Cheating AI. Pretty much the best mistake of my life. +-- if SpecterGlobalMaterial then + if not triggeringCard then + local function compare(a,b) + local result = {} + return a.attack < b.attack + end + local list = {} + for i=1,#cards do + if cards[i] and bit32.band(cards[i].type,TYPE_MONSTER) > 0 + then + cards[i].index=i + list[#list+1]=cards[i] + if cards[i].id == 72714461 or cards[i].id == 15146890 or cards[i].id == 40318957 then + cards[i].attack = -3 + else + cards[i].attack = -1 + end + end + end + table.sort(list,compare) + result={} + check={} + for i=1,#minTargets do + result[i]=list[i].index + check[i]=list[i] + end + end + return result +end]] + +function SpecterOnSelectMaterial(cards,min,max,id) + if id == SpecterGlobalSSCardID then + return Add(cards,PRIO_TOGRAVE,min) + end +end + +function SStormFilter1(c) + return Targetable(c,TYPE_SPELL) + and Affected(c,TYPE_SPELL) + and bit32.band(c.status,STATUS_LEAVE_CONFIRMED)==0 + and not SpecterCodedTargets(c) +end + +function SStormFilter2(c) + return Targetable(c,TYPE_SPELL) + and Affected(c,TYPE_SPELL) + and bit32.band(c.status,STATUS_LEAVE_CONFIRMED)==0 + and (bit32.band(c.type,TYPE_XYZ+TYPE_SYNCHRO+TYPE_RITUAL+TYPE_FUSION)>0 or c.level>4) + and not SpecterCodedTargets(c) + and not EnemyHasUnaffectedAttackerFilter(c) + and not SpecterBPBackrow(c) +-- and not SpecterCodedUnaffectedAttackers(c) +end + +function SStormFilter4(c) + return Targetable(c,TYPE_SPELL) + and Affected(c,TYPE_SPELL) + and bit32.band(c.status,STATUS_LEAVE_CONFIRMED)==0 + and BypassDestroyFilter(c) + and not SpecterCodedTargets(c) +end + +function SStormFilter5(c) + if EnemyHasTimeRafflesia() then + return EnemyHasRafflesiaFilter(c) + and SStormFilter1(c) + end + return EnemySummonNegatorMonFilter(c) + and SStormFilter1(c) +end + +function SStormFilter6(c) + if EnemyHasFireflux() or EnemyHasPPalOrOddEyes() + or EnemyHasStargazer() or EnemyHasTimegazer() then + return (bit32.band(c.type,TYPE_XYZ+TYPE_SYNCHRO+TYPE_RITUAL+TYPE_FUSION)>0 or c.level>4) + and SStormFilter1(c) + end + return false +-- return EnemyHasUnaffectedAttackerFilter(c) +-- and SStormFilter1(c) +end + +function UseSStorm1() + return HasScales() + and CardsMatchingFilter(OppMon(),SStormFilter1)>0 + and Duel.GetTurnCount() ~= SpecterGlobalPendulum + and (NeedsRaccoonExtra() or NeedsCatExtra() + or NeedsFoxExtra() or NeedsCrowExtra() + or NeedsToadExtra()) + and not MajestyCheck() +end + +function UseSStorm2() + return CardsMatchingFilter(OppMon(),SStormFilter2)>0 + and not MajestyCheck() +end + +function UseSStorm3() + return CardsMatchingFilter(OppMon(),SStormFilter1)>0 + and HasScales() + and Duel.GetTurnCount() ~= SpecterGlobalPendulum + and VanityRemovalNeeded() +end + +function UseSStorm4() + return CardsMatchingFilter(OppMon(),SStormFilter4)>0 + and (not MajestyCheck() or not WindaCheck()) +end + +function UseSStorm5() + return CardsMatchingFilter(OppMon(),SStormFilter5)>0 + and Duel.GetTurnPlayer()==player_ai + and Duel.GetTurnCount() ~= SpecterGlobalPendulum + and HasScales() + and not MajestyCheck() +end + +function UseSStorm6() + return CardsMatchingFilter(OppMon(),SStormFilter6)>0 + and not MajestyCheck() +end + +function MajestyCheck() + if EnemyHasSpecterCounterCardST() then return false end + if Duel.GetTurnPlayer() == player_ai + and OPTCheck(76473843) + and ((Duel.GetTurnCount() ~= SpecterGlobalPendulum and HasScales() and CardsMatchingFilter(UseLists({AIHand(),AIExtra()}),TrueSpecterMonsterFilter)>0) or CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>0) + and (HasIDNotNegated(AIST(),76473843,true,nil,nil,POS_FACEUP) + or HasID(AIHand(),76473843,true) and not FieldSpellNotActivatable() and not HasFaceupMajesty()) then + return true + end + return false +end + +function FieldSpellNotActivatableFilter(c) --Field Barrier, Closed Forest, Anti-Spell Fragrance, Spell Canceller, Spell Sealing + return (c.id==07153114 + or c.id==78082039 + or c.id==58921041 + or c.id==84636823 + or c.id==71983925) + and FilterPosition(c,POS_FACEUP) + and NotNegated(c) +end + +function FieldSpellNotActivatable() --Checks for cards that prevent another Field from being played. Necrovalley etc., Mechanical Hound, Bamboo Shoot. + return CardsMatchingFilter(UseLists({OppMon(),OppST()}),FieldSpellNotActivatableFilter)>0 + or (HasIDNotNegated(OppMon(),58139128,true) + and (HasIDNotNegated(OppST(),47355498,true) and HasIDNotNegated(OppMon(),03381441,true))) + or (HasIDNotNegated(OppMon(),22512237,true) and #OppHand()==0) + or HasIDNotNegated(OppMon(),20174189,true) +end + +function SpecterSummonChidori2() + return Duel.GetTurnCount() ~= SpecterGlobalPendulum + and OppDownBackrow() + and HasScales() + and CardsMatchingFilter(UseLists({AIHand(),AIExtra()}),TrueSpecterMonsterFilter)>0 + and HasID(AIExtra(),22653490,true) +end + +function SpecterSummonCastel() + return XYZSummonOkay() + and OppGetStrongestAttack() > AIGetStrongestAttack() + and (OppGetStrongestAttack() > 2000 and not SpecterSummonMajester1()) + and CardsMatchingFilter(OppMon(),SpecterCastelFilter)>0 + and HasID(AIExtra(),82633039,true) + and MP2Check() +end + +function SpecterSummonCastelRoom() + return MakeRoom() + and OppGetStrongestAttack() > AIGetStrongestAttack() + and (OppGetStrongestAttack() > 2000 and (not HasID(AIExtra(),88722973,true) and NeedsRaccoon())) + and CardsMatchingFilter(OppMon(),SpecterCastelFilter)>0 + and HasID(AIExtra(),82633039,true) +end + +function SpecterCastelFilter(c) + return FilterPosition(c,POS_FACEUP) + and Targetable(c,TYPE_MONSTER) + and Affected(c,TYPE_MONSTER,4) + and not SpecterCodedTargets2(c) +-- and c.attack > AIGetStrongestAttack() +end + +function SpecterUseCastel() + return CardsMatchingFilter(OppField(),SpecterCastelFilter)>0 +end + +function SpecterSummonUtopiaLightning() + return CardsMatchingFilter(OppMon(),SpecterLightningFilter)>0 + and XYZSummonOkay() + and OppGetStrongestAttDef() >= AIGetStrongestAttack() + and AI.GetCurrentPhase() == PHASE_MAIN1 + and GlobalBPAllowed + and HasID(AIExtra(),56832966,true) + and not HasID(AIMon(),56832966,true) + and not EnemyHasStall() + and not EnemyHasBattleStallLightning() +end + +function SpecterSummonUtopiaLightningRoom() + return MakeRoom() + and CardsMatchingFilter(OppMon(),SpecterLightningFilter)>0 + and OppGetStrongestAttDef() >= AIGetStrongestAttack() + and AI.GetCurrentPhase() == PHASE_MAIN1 + and GlobalBPAllowed + and not EnemyHasStall() + and not EnemyHasBattleStallLightning() +end + +function SpecterLightningFilter(c) + return not FilterAffected(c,EFFECT_CANNOT_BE_BATTLE_TARGET) + and not FilterAffected(c,EFFECT_INDESTRUCTABLE_BATTLE) +end + +function SpecterSummonHeartland() + return XYZSummonReallyOkay() + and HasScales() + and HasID(AIExtra(),31437713,true) + and SpecterMP2Check() + and not HasPtolemaeusExtra() +end + +function SpecterActivateHeartland() + return OppGetStrongestAttDef() >= AIGetStrongestAttack() +-- and #AIMon() < #OppMon() +end + +function SpecterSummonHeartlandFinish() + return AI.GetCurrentPhase() == PHASE_MAIN1 and GlobalBPAllowed + and AI.GetPlayerLP(2)<=2000 + and HasID(AIExtra(),31437713,true) +end + +function SpecterActivateHeartlandFinish() + return AI.GetCurrentPhase() == PHASE_MAIN1 and GlobalBPAllowed + and AI.GetPlayerLP(2)<=2000 +end + +function HasPtolemaeusExtra() + return HasID(AIExtra(),18326736,true) + and HasID(AIExtra(),09272381,true) + and HasID(AIExtra(),34945480,true) +end + +function SpecterSummonMajester1() + return (XYZSummonOkay() or CardsMatchingFilter(AIMon(),LevelFourMagicianFilter)>1) + and NeedsRaccoon() + and SpecterMP2Check() + and OPTCheck(05506791) + and HasID(AIExtra(),88722973,true) +end + +function SpecterSummonMajester2() --??? + return MakeRoom() + and HasID(AIExtra(),88722973,true) +end + +function SpecterSummonMajesterRoom() + return MakeRoom() + and HasID(AIExtra(),88722973,true) +end + +function SpecterUseDragonpit() + return CardsMatchingFilter(OppST(),OppDownBackrowFilter)>0 + and (CardsMatchingFilter(AIExtra(),AllPendulumFilter)>0 + or CardsMatchingFilter(AIHand(),AllPendulumFilter)>1) + and Duel.GetTurnCount() ~= SpecterGlobalPendulum + and OPTCheck(51531505) + and not RaccoonHandCheck() +end + +function UseDragonpitVanitys() + return CardsMatchingFilter(OppST(),VanityFilter)>0 + and CardsMatchingFilter(AIST(),VanityFilter)==0 + and (CardsMatchingFilter(AIExtra(),AllPendulumFilter)>0 + or CardsMatchingFilter(AIHand(),AllPendulumFilter)>1 + or (CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>0 + and HasID(AIST(),76473843,true) + and OPTCheck(76473843))) + and Duel.GetTurnCount() ~= SpecterGlobalPendulum + and OPTCheck(51531505) + and not RaccoonHandCheck() +end + +function DragonpitVanitysTargetFilter(c) + return FilterType(c,TYPE_SPELL+TYPE_TRAP) + and not FilterType(c,TYPE_PENDULUM) + and SpecterDestroyFilter(c) +end + +function RaccoonFilter(c) --Test + return c.id==31991800 +end + +--Lol, Shadolls are with me in spirit and copied coding. + +function SpecterGetPriority(c,loc) + local checklist = nil + local result = 0 + local id = c.id + if loc == nil then + loc = PRIO_TOHAND + end + checklist = Prio[id] + if checklist then + if checklist[11] and not(checklist[11](loc,c)) then + loc = loc + 1 + end + result = checklist[loc] + end + return result +end + +function SpecterAssignPriority(cards,loc,filter) + local index = 0 + for i=1,#cards do + cards[i].index=i + cards[i].prio=SpecterGetPriority(cards[i],loc) + end +end + +function SpecterPriorityCheck(cards,loc,count,filter) + if count == nil then count = 1 end + if loc==nil then loc=PRIO_TOHAND end + if cards==nil or #cardsb.prio end) + return cards[count].prio +end + +function SpecterTrapPriorityFilter(c) + return (c.id==78949372 + or c.id==36183881 + or c.id==02572890) + and FilterLocation(c,LOCATION_DECK) +end + +function SpecterSpellPriorityFilter(c) + return (c.id==49366157 + or c.id==13972452) + and FilterLocation(c,LOCATION_DECK) +end + +function EnableBlueEyesFunctionsFilter(c) + return c.id==71039903 + or c.id==45467446 + or c.id==38517737 +end + +function EnableBlueEyesFunctions() + return CardsMatchingFilter(UseLists({OppDeck(),OppGrave()}),EnableBlueEyesFunctionsFilter)>5 +end + +function EnableShadollFunctionsFilter(c) + return IsSetCode(c.setcode,0x9d) +end + +function EnableShadollFunctions() + return CardsMatchingFilter(UseLists({OppDeck(),OppGrave()}),EnableShadollFunctionsFilter)>5 +end + +function SpecterBlueSummonAbyss() + return EnableBlueEyesFunctions() + and (XYZSummonReallyOkay() + and SpecterMP2Check() + and AIGetStrongestAttack() > OppGetStrongestAttDef() + or MakeRoom()) +end + +function SpecterShadollSummonAbyss() + return EnableShadollFunctions() + and (XYZSummonOkay() + and SpecterMP2Check() + and AIGetStrongestAttack() > OppGetStrongestAttDef() + or MakeRoom()) +end + +function SpecterShadollSummonAbyssRoom() + return EnableShadollFunctions() + and MakeRoom() +-- and AIGetStrongestAttack() > OppGetStrongestAttDef() +end + +function SpecterShadollFusionGrave() + return (HasID(OppGrave(),44394295,true) + or HasID(OppGrave(),06417578,true) + or HasID(OppGrave(),60226558,true)) + and EnableShadollFunctions() +end + +function ChainSpecterAbyss() + if (EnableBlueEyesFunctions() and Duel.GetTurnPlayer()==1-player_ai) then return true end + if (EnableShadollFunctions() and Duel.GetTurnPlayer()==1-player_ai) then return true end + if (EnableRaidraptorFunctions() and Duel.GetTurnPlayer()==1-player_ai) then return true end + if (EnableBAFunctions() and Duel.GetTurnPlayer()==1-player_ai) then return true end + if EnableShadollFunctions() then + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and (e:GetHandler():GetCode()==84968490 or e:GetHandler():GetCode()==77505534 or e:GetHandler():GetCode()==06417578 or e:GetHandler():GetCode()==74519184) + and e:GetHandlerPlayer()==1-player_ai then + return true + end + end + end + if EnableShadollFunctions() then + if SpecterDestroyCheckOpp(03717252) or SpecterDestroyCheckOpp(77723643) or SpecterDestroyCheckOpp(30328508) or SpecterDestroyCheckOpp(52551211) + or SpecterDestroyCheckOpp(04939890) or SpecterDestroyCheckOpp(37445295) or SpecterDestroyCheckOpp(74822425) or SpecterDestroyCheckOpp(19261966) + or SpecterDestroyCheckOpp(20366274) or SpecterDestroyCheckOpp(48424886) or SpecterDestroyCheckOpp(74009824) or SpecterDestroyCheckOpp(94977269) + or SpecterDestroyCheckOpp(03717252) or (SpecterDestroyCheckOpp(04904633) and SpecterShadollFusionGrave()) then + return true + end + end + if EnableBAFunctions() then + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and (e:GetHandler():GetCode()==60743819 or e:GetHandler():GetCode()==20513882 or e:GetHandler():GetCode()==36006208 or e:GetHandler():GetCode()==57728570 or e:GetHandler():GetCode()==53582587) + and e:GetHandlerPlayer()==1-player_ai then + return true + end + end + end + if EnableBAFunctions() then + if Duel.GetCurrentPhase() == PHASE_BATTLE then + local source = Duel.GetAttacker() + local target = Duel.GetAttackTarget() + if source and target then + if source:IsControler(player_ai) then + target = Duel.GetAttacker() + source = Duel.GetAttackTarget() + end + if target:IsControler(player_ai) + and source:IsPosition(POS_FACEUP) + and target:IsPosition(POS_FACEUP_ATTACK) + and Winsbattle(target,source) + and not source:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) + and (source:IsCode(20758643) or source:IsCode(57143342) or source:IsCode(09342162) or source:IsCode(36553319) or source:IsCode(84764038) + or source:IsCode(27552504) or (source:IsCode(62957424) and #OppHand()>0) or source:IsCode(00601193) or source:IsCode(18386170) + or source:IsCode(83531441)) + then + return true + end + end + end + end +--[[ if EnableBAFunctions() and GlobalMurderDante then + GlobalMurderDante = false + return true + end]] + if EnableBAFunctions() and SpecterDestroyCheckOpp(83531441) then + return true + end + if EnableBAFunctions() and SpecterRemovalCheckOpp(83531441) and EnemyHasDante() then + return true + end + if RemovalCheck(21044178) then + return true + end + if CardsMatchingFilter(OppGrave(),SpecterMiscAbyssMP1Filter)>0 + and Duel.GetCurrentPhase() == PHASE_MAIN1 + and Duel.GetTurnPlayer()==player_ai then + return true + end + if CardsMatchingFilter(OppGrave(),SpecterMiscAbyssMP2Filter)>0 + and Duel.GetTurnPlayer()==1-player_ai then + return true + end + if SpecterStardustCheck() or SpecterStarAssaultModeCheck() then + return true + end + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and (Duel.GetOperationInfo(i,CATEGORY_TOGRAVE) + or Duel.GetOperationInfo(i,CATEGORY_DECKDES)) + and e:GetHandlerPlayer()==1-player_ai then + return true + end + end + return false +end + +function SpecterBASummonAbyss() + return EnableBAFunctions() + and (XYZSummonOkay() + and (SpecterMP2Check() + or CardsMatchingFilter(OppMon(),SpecterBABattleTargets)>0 and GlobalBPAllowed and Duel.GetCurrentPhase() == PHASE_MAIN1) + and AIGetStrongestAttack() > OppGetStrongestAttDef() + or MakeRoom()) +end + +function SpecterBABattleTargets(c) + return c.id==20758643 + or c.id==57143342 + or c.id==09342162 + or c.id==36553319 + or c.id==84764038 + or c.id==27552504 + or c.id==62957424 + or c.id==00601193 + or c.id==18386170 +end + +function EnableExodiaLibraryFunctionsFilter(c) + return c.id==89997728 + or c.id==70791313 + or c.id==33396948 + or c.id==07902349 + or c.id==08124921 + or c.id==44519536 + or c.id==70903634 + or c.id==70368879 + or c.id==79814787 + or c.id==39701395 + or c.id==38120068 +end + +function EnableExodiaLibraryFunctions() + return CardsMatchingFilter(UseLists({OppDeck(),OppGrave(),OppHand()}),EnableExodiaLibraryFunctionsFilter)>=15 +end + +function ChainTempestLibrary() + if not EnableExodiaLibraryFunctions() then return false end + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==70791313 + and e:GetHandlerPlayer()==1-player_ai then + return true + end + end + return false +end + +function ChainSCycloneLibrary() + if not EnableExodiaLibraryFunctions() then return false end + if HasID(OppMon(),70791313,true) + and UnchainableCheck(49366157) then + return true + end + return false +end + +function ChainSTornadoLibrary() + if not EnableExodiaLibraryFunctions() then return false end + if HasID(OppMon(),70791313,true) + and UnchainableCheck(36183881) then + return true + end + return false +end + +function LibraryRemoved() + return EnableExodiaLibraryFunctions() + and HasID(UseLists({OppGrave(),OppBanish()}),70791313,true) + and #OppMon()==0 +end + +--[[function LossToExodia() + return EnableExodiaLibraryFunctions() + and HasID(AIHand(),33396948,true) + and HasID(AIHand(),07902349,true) + and HasID(AIHand(),08124921,true) + and HasID(AIHand(),44519536,true) + and HasID(AIHand(),70903634,true) +end]] + +function NeedsSStormOverSCycloneFilter(c) + return Targetable(c,TYPE_SPELL) + and Affected(c,TYPE_SPELL) + and bit32.band(c.status,STATUS_LEAVE_CONFIRMED)==0 + and (c.attack > AIGetStrongestAttack() + or FilterAffected(c,EFFECT_CANNOT_BE_BATTLE_TARGET)) + and (FilterAffected(c,EFFECT_INDESTRUCTABLE_EFFECT) + or (c.id==23998625 + or c.id==58069384 + or c.id==17016362 + or c.id==03758046 + or c.id==23649496 + or c.id==58712976 + or c.id==96381979 + or c.id==16691074 + or c.id==00007152 + or c.id==23454876 + or c.id==37279508 + or c.id==56638325 + or c.id==71921856 + or c.id==42589641 + or c.id==30100551)) + and not SpecterDestroyFilter(c) +end + +function NeedsSStormOverSCyclone() + return (CardsMatchingFilter(OppMon(),NeedsSStormOverSCycloneFilter)>0 + or CardsMatchingFilter(OppMon(),BypassDestroyFilter)>0 + or (EnableBAFunctions() + and EnemyHasDante())) + and HasID(AIDeck(),13972452,true) +end + +function BypassDestroyFilter(c) --Indexes cards that the AI fails to check with DestroyFilter normally. Sins, C-Lancer, ArchSeraph, eartH, Kagutsuchi, Sentry, Beetle, Yoke, SHARK, Full Lancer, Maestroke, Zenmaines, Gantetsu, U-Future, Angineer, Winda, Wickedwitch + if SpecterStardustSparkCheck() then + return c.id==83994433 + and NotNegated(c) + end + return (((c.id==62541668 + or c.id==99469936 + or c.id==67173574 + or c.id==23998625 + or c.id==01855932 + or c.id==49678559 + or c.id==76067258 + or c.id==23232295 + or c.id==48739166 + or c.id==25853045 + or c.id==25341652 + or c.id==78156759 + or c.id==10002346 + or c.id==65305468 + or c.id==15914410) + and c.xyz_material_count>0) + or c.id==94977269 + or c.id==93302695) + and NotNegated(c) +end + +function SpecterDestroyFilter(c,nontarget) --Wait, why have I been writing as if someone else is here? And why am I still doing it? Man, I'm stupid. That's why I'm copying more code. + return not FilterAffected(c,EFFECT_INDESTRUCTABLE_EFFECT) + and not FilterStatus(c,STATUS_LEAVE_CONFIRMED) + and (nontarget==true or not FilterAffected(c,EFFECT_CANNOT_BE_EFFECT_TARGET)) + and not (DestroyBlacklist(c) + and FilterPublic(c)) + and not BypassDestroyFilter(c) +end + +function UsePeasantPendulum() + return HasID(AIST(),51531505,true) + and Duel.GetTurnCount() ~= SpecterGlobalPendulum + and CardsMatchingFilter(OppST(),OppDownBackrowFilter)>0 + and OPTCheck(14920218) + and OPTCheck(51531505) +end + +function InsightfulPhantomSetup() + return HasID(AIExtra(),62709239,true) + and (HasID(AIST(),72714461,true) or HasID(AIHand(),72714461,true)) + and CardsMatchingFilter(OppField(),InsightfulPhantomEnemyFilter)>0 + and CardsMatchingFilter(AIST(),InsightfulPhantomAllyFilter)==1 + and CardsMatchingFilter(AIST(),MagicianPendulumFilter)==1 + and CardsMatchingFilter(AIHand(),MagicianPendulumFilter)>0 + and OPTCheck(53208660) + and DualityCheck() + and CardsMatchingFilter(UseLists({AIST(),OppST()}),VanityFilter)==0 + and Duel.GetTurnCount() ~= SpecterGlobalPendulum + and ((HasID(AIDeck(),14920218,true) and HasID(AIST(),51531505,true)) + or HasID(AIDeck(),51531505,true) and HasID(AIST(),14920218,true)) +end + +function InsightfulPhantomEnemyFilter(c) + return SpecterDestroyFilter(c) +end + +function InsightfulPhantomAllyFilter(c) + return IsSetCode(c.setcode,0xd0) + and FilterLocation(c,LOCATION_SZONE) +end + +function InsightfulLevel3Filter(c) + return c.id==31991800 + or c.id==05506791 +end + +function InsightfulMajestyFilter(c) --Index non-level 3 monsters to be tributed + return c.id==14920218 + or c.id==94784213 + or c.id==68395509 + or c.id==00645794 +end + +function InsightfulPhantomSummon() + return InsightfulPhantomSetup() +end + +function InsightfulRaccoonSummon() + return CardsMatchingFilter(AIMon(),InsightfulLevel3Filter)==1 + and InsightfulPhantomSetup() +end + +function InsightfulCatSummon() + return CardsMatchingFilter(AIMon(),InsightfulLevel3Filter)==1 + and InsightfulPhantomSetup() +end + +function InsightfulFodderSummon() + return InsightfulPhantomSetup() + and CardsMatchingFilter(AIMon(),InsightfulLevel3Filter)==1 + and HasID(AIST(),76473843,true) + and OPTCheck(76473843) + and (HasID(AIDeck(),31991800,true) or HasID(AIDeck(),05506791,true)) +end + +function InsightfulMajesty() + return InsightfulPhantomSetup() + and ((CardsMatchingFilter(AIMon(),InsightfulLevel3Filter)==1 + and CardsMatchingFilter(AIMon(),InsightfulMajestyFilter)>0) + or CardsMatchingFilter(AIMon(),InsightfulMajestyFilter)>0 + and CardsMatchingFilter(AIHand(),InsightfulLevel3Filter)>0 + and not NormalSummonCheck(player_ai)) +end + +function InsightfulPhantomUse() + return (HasID(AIST(),72714461,true) or HasID(AIHand(),72714461,true)) + and CardsMatchingFilter(OppField(),InsightfulPhantomEnemyFilter)>0 + and CardsMatchingFilter(AIST(),InsightfulPhantomAllyFilter)==1 + and CardsMatchingFilter(AIST(),MagicianPendulumFilter)==1 + and CardsMatchingFilter(AIHand(),MagicianPendulumFilter)>0 + and OPTCheck(53208660) + and Duel.GetTurnCount() ~= SpecterGlobalPendulum + and ((HasID(AIDeck(),14920218,true) and HasID(AIST(),51531505,true)) + or HasID(AIDeck(),51531505,true) and HasID(AIST(),14920218,true)) +end + +function SpecterChainUtopiaLightning() + if EnableKozmoFunctions() then return false end + local source = Duel.GetAttacker() + local target = Duel.GetAttackTarget() + if source and target then + if source:IsControler(player_ai) then + target = Duel.GetAttacker() + source = Duel.GetAttackTarget() + end + if target:IsControler(player_ai) + and source:IsPosition(POS_FACEUP_ATTACK) + and target:IsPosition(POS_FACEUP_ATTACK) then + return true + end + end + return false +end + +function FaceupEnemiesFilter(c) + return FilterPosition(c,POS_FACEUP) +end + +function FaceupEnemies() + return CardsMatchingFilter(OppMon(),FaceupEnemiesFilter)>0 +end + +function CrowAttack() + return AI.GetCurrentPhase() == PHASE_MAIN1 + and GlobalBPAllowed + and (AIGetStrongestAttack() > OppGetStrongestAttDef() + or OppGetStrongestAttDef() < 1000) + and (FaceupEnemies() or #OppMon()==0) +end + +function MajesterAttack() + return AI.GetCurrentPhase() == PHASE_MAIN1 + and GlobalBPAllowed + and (AIGetStrongestAttack() > OppGetStrongestAttDef() + or OppGetStrongestAttDef() < 1850 + or (FaceupEnemies() or #OppMon()==0)) +end + +function CrowChangeToAttack() + return AI.GetCurrentPhase() == PHASE_MAIN1 + and GlobalBPAllowed + and ((AIGetStrongestAttack() > OppGetStrongestAttDef() and #OppMon()==1) + or OppGetStrongestAttDef() < 1000) + and (FaceupEnemies() or #OppMon()==0) +end + +function CrowChangeToDefense() + return AI.GetCurrentPhase() == PHASE_MAIN2 + or not GlobalBPAllowed +end + +function MajesterChangeToAttack() + return AI.GetCurrentPhase() == PHASE_MAIN1 + and GlobalBPAllowed + and ((AIGetStrongestAttack() > OppGetStrongestAttDef() and #OppMon()==1) + or OppGetStrongestAttDef() < 1850) + and (FaceupEnemies() or #OppMon()==0) +end + +function MajesterChangeToDefense() + return AI.GetCurrentPhase() == PHASE_MAIN2 + or not GlobalBPAllowed +end + +function CatChangeToDefense() + return true +end + +function HasSTempest() + return HasID(UseLists({AIHand(),AIST()}),02572890,true) +end + +function HasSTornado() + return HasID(UseLists({AIHand(),AIST()}),36183881,true) +end + +function HasSCyclone() + return HasID(UseLists({AIHand(),AIST()}),49366157,true) +end + +function HasSStorm() + return HasID(UseLists({AIHand(),AIST()}),13972452,true) +end + +function HasSCell() + return HasID(UseLists({AIHand(),AIST()}),78949372,true) +end + +function EnableRaidraptorFunctionsFilter(c) + return IsSetCode(c.setcode,0xb7) +end + +function EnableRaidraptorFunctions() + return CardsMatchingFilter(UseLists({OppDeck(),OppGrave()}),EnableRaidRaptorFunctionsFilter)>=10 + or CardsMatchingFilter(UseLists({OppMon(),OppGrave()}),EnemyUltimateFalconFilter)>0 +end + +function EnemyUltimateFalconFilter(c) + return c.id==86221741 + and NotNegated(c) +end + +function EnemyUltimateFalconFirstTurn() + return CardsMatchingFilter(OppMon(),EnemyUltimateFalconFilter)>0 + and Duel.GetTurnCount() == 1 +end + +function EnemyUltimateFalcon() + return CardsMatchingFilter(OppMon(),EnemyUltimateFalconFilter)>0 +end + +function SummonUtopiaLightningFalcon() + return EnemyUltimateFalcon() + and AI.GetCurrentPhase() == PHASE_MAIN1 + and GlobalBPAllowed + and not EnemyHasStall() + and not EnemyHasBattleStallLightning() +end + +function SummonUtopiaLightningFalconRoom() + return SummonUtopiaLightningFalcon() + and MakeRoom() +end + +function UsedUtopiaLightningFilter(c) + return c.id==56832966 + and c.xyz_material_count<2 +end + +function UsedUtopiaLightning() + return CardsMatchingFilter(AIMon(),UsedUtopiaLightningFilter)>0 + and Duel.GetCurrentPhase() == PHASE_BATTLE +end + +function UsedUtopiaLightning2() + return CardsMatchingFilter(AIMon(),UsedUtopiaLightningFilter)>0 + and Duel.GetCurrentPhase() == PHASE_MAIN2 +end + +function EnemyGraveFalconRevival() + return EnableRaidraptorFunctions() + and HasID(OppGrave(),58988903,true) + and HasID(OppGrave(),86221741,true) + and not EnemyUltimateFalcon() +end + +function SpecterRaidraptorSummonAbyss() + return EnemyGraveFalconRevival() + and FalconDestroyTalk +end + +function SpecterRaidraptorSummonHeartland() + return FalconReviveTalk + and EnemyUltimateFalcon() + and Duel.GetCurrentPhase() == PHASE_MAIN1 + and GlobalBPAllowed + and HasID(AIExtra(),31437713,true) +end + +function HeartlandRaidraptor(c) + return c.attack>0 + and FilterPosition(c,POS_FACEUP_ATTACK) +end + +function SpecterRaidraptorActivateHeartland() + return OppGetStrongestAttDef() >= AIGetStrongestAttack() + and FalconReviveTalk + and EnemyUltimateFalcon() + and CardsMatchingFilter(AIMon(),HeartlandRaidraptor)>0 + and Duel.GetCurrentPhase() == PHASE_MAIN1 + and GlobalBPAllowed +end + +function ChainTempestLastStrix() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==97219708 + and e:GetHandlerPlayer()==1-player_ai then + return true + end + end + return false +end + +function ChainSCycloneLastStrix() + return HasID(OppMon(),97219708,true) + and CardsMatchingFilter(OppMon(),EnemyLastStrixSC)>0 + and Duel.GetTurnPlayer()==1-player_ai + and UnchainableCheck(49366157) +end + +function ChainSTornadoLastStrix() + return HasID(OppMon(),97219708,true) + and CardsMatchingFilter(OppMon(),EnemyLastStrixST)>0 + and Duel.GetTurnPlayer()==1-player_ai + and UnchainableCheck(36183881) +end + +function EnemyLastStrixSC(c) + return SpecterCycloneFilter(c) + and c.id==97219708 +end + +function EnemyLastStrixST(c) + return SpecterTornadoFilter(c) + and c.id==97219708 +end + +function EnableBAFunctionsFilter(c) + return IsSetCode(c.setcode,0xb1) +end + +function EnableBAFunctions() + return CardsMatchingFilter(UseLists({OppMon(),OppDeck(),OppGrave(),OppBanish()}),EnableBAFunctionsFilter)>=10 +end + +function EnemyBATempest(c) + return (c.id==83531441 or c.id==10802915) + and FilterStatus(c,STATUS_SUMMONING) +end + +function EnemyDante(c) + return c.id==83531441 + and c.xyz_material_count>0 +end + +function EnemyASF(c) + return c.id==58921041 + and FilterPosition(c,POS_FACEUP) +end + +function EnemyHasASF() + return CardsMatchingFilter(OppST(),EnemyASF)>0 +end + +function EnemyHasDante() + return CardsMatchingFilter(OppMon(),EnemyDante)>0 +end + +function ChainSTempestBA() + if not EnableBAFunctions() then return false end + if HasIDNotNegated(AIST(),36183881,true) then return false end + if HasIDNotNegated(AIST(),49366157,true) then return false end + if CardsMatchingFilter(OppMon(),EnemyBATempest)>0 then + return true + end + return false +end + +function ChainSTornadoDante() + if not EnableBAFunctions() then return false end + if HasSStorm() and not EnemyHasASF() and Duel.GetTurnPlayer()==player_ai then return false end + if not HasIDNotNegated(AIST(),36183881,true) then return false end + if EnemyHasDante() and Duel.GetTurnPlayer()==1-player_ai then + return true + end + if EnemyHasDante() and not SpecterBACanGetAbyss() and Duel.GetTurnPlayer()==player_ai and MajestyCheck() then + return true + end + return false +end + +function ChainSCycloneDante() + if not EnableBAFunctions() then return false end + if ChainSTornadoDante() then return false end + if HasSStorm() and not EnemyHasASF() and Duel.GetTurnPlayer()==player_ai then return false end + if EnemyHasDante() and Duel.GetTurnPlayer()==1-player_ai then + return true + end + if EnemyHasDante() and not SpecterBACanGetAbyss() and Duel.GetTurnPlayer()==player_ai and MajestyCheck() then + return true + end + return false +end + +function UseSStormDante() + if not EnableBAFunctions() then return false end + if EnemyHasDante() and not SpecterBACanGetAbyss() then + return true + end + return false +end + +function SpecterCanXYZLevel4() + return (CardsMatchingFilter(AIMon(),LevelFourFieldCheck)>1 + or (CardsMatchingFilter(AIMon(),LevelFourFieldCheck)==1 + and (HasIDNotNegated(AIST(),76473843,true) or (HasID(AIHand(),76473843,true) and not FieldSpellNotActivatable())) + or (CardsMatchingFilter(AIHand(),LevelFourFieldCheck)>0 and not NormalSummonCheck(player_ai))) + or (HasScales() and CardsMatchingFilter(UseLists({AIMon(),AIExtra(),AIHand()}),LevelFourFieldCheck)>1) + or (HasID(AIHand(),31991800,true) and HasScales() and not NormalSummonCheck(player_ai) and OPTCheck(31991800))) +end + +function SpecterBACanGetAbyss() + return SpecterCanXYZLevel4() + and HasID(AIExtra(),21044178,true) + and (XYZSummonOkay() or MakeRoom()) + and EnableBAFunctions() + and DualityCheck() +end + +function SpecterBASummonAbyss2() + return SpecterBACanGetAbyss() +end + +function SpecterBAAbyssKill() + return SpecterBACanGetAbyss() + and (UsableSCyclone() or UsableSStorm()) + and HasScales() + and Duel.GetTurnCount() ~= SpecterGlobalPendulum +end + +function SpecterBASummonAbyssRoom() + return MakeRoom() + and SpecterBACanGetAbyss() +end + +function SpecterCodedTargets(c) --List of cards that shouldn't be removed by S/T effects. + if EnableBAFunctions() and HasID(OppMon(),83531441,true) then + return c.id==83531441 + end + if EnableShadollFunctions() then + if WindaLives() then + return c.id==94977269 + end + end + if EnemyNodenTrace() then + return c.id==17412721 + end + if SpecterOmegaCheck() then + return c.id==74586817 + end + if SpecterConomegaCheck() then + return c.id==26329679 + end +end + +function SpecterCodedTargets2(c) --List of cards that shouldn't be removed by monster effects. + if SpecterOmegaCheck() then + return c.id==74586817 + end + if SpecterClearWingCheck() then + return c.level>4 + end + if SpecterCrystalWingCheck() then + return true + end + if SpecterShekhinagaCheck() then + return c.id==74822425 + end +end + +function EnemyNodenTrace() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==17412721 + and e:GetHandlerPlayer()==1-player_ai then + return true + end + end + return false +end + +function WindaLives() + return (Duel.GetCurrentPhase() ~= PHASE_BATTLE + or RemovalCheck(36183881)) + and Duel.GetTurnPlayer()==1-player_ai + and HasID(OppMon(),94977269,true) +end + +function SpecterOmegaCheck() + return (Duel.GetCurrentPhase() == PHASE_MAIN1 + or Duel.GetCurrentPhase() == PHASE_MAIN2) + and HasID(OppMon(),74586817,true) + and #AIHand()>0 +end + +function SpecterClearWingCheck() + return OPTCheck(82044279) + and HasID(OppMon(),82044279,true) +end + +function SpecterClearWingTrace() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==82044279 + and e:GetHandlerPlayer()==1-player_ai then + OPTSet(82044279) + return true + end + end + return false +end + +function SpecterCrystalWingCheck() + return OPTCheck(50954680) + and HasID(OppMon(),50954680,true) +end + +function SpecterCrystalWingTrace() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==50954680 + and e:GetHandlerPlayer()==1-player_ai then + OPTSet(50954680) + return true + end + end + return false +end + +function SpecterShekhinagaCheck() + return OPTCheck(74822425) + and HasID(OppMon(),74822425,true) + and #OppHand()>0 +end + +function SpecterShekhinagaTrace() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==74822425 + and e:GetHandlerPlayer()==1-player_ai then + OPTSet(74822425) + return true + end + end + return false +end + +function SpecterConomegaCheck() + return OPTCheck(26329679) + and CardsMatchingFilter(OppMon(),EnemyHasConomegaFilter)>0 +end + +function EnemyHasConomegaFilter(c) + return c.id==26329679 + and c.xyz_material_count>0 +end + +function SpecterConomegaTrace() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==26329679 + and e:GetHandlerPlayer()==1-player_ai then + OPTSet(26329679) + return true + end + end + return false +end + +function SpecterBACanGetChidori() + return SpecterCanXYZLevel4() + and HasID(AIExtra(),22653490,true) + and EnableBAFunctions() + and (XYZSummonOkayWind() or MakeRoom()) + and DualityCheck() + and OppDownBackrow() + and EnemyHasDante() + and not SpecterBAAbyssKill() +end + +function SpecterBASummonChidori() + return SpecterBACanGetChidori() +end + +function SpecterBACanGetCastel() + return SpecterCanXYZLevel4() + and HasID(AIExtra(),82633039,true) + and EnableBAFunctions() + and (XYZSummonOkay() or MakeRoom()) + and DualityCheck() + and EnemyHasDante() + and not SpecterBAAbyssKill() +end + +function SpecterBASummonCastel() + return SpecterBACanGetCastel() +end + +function SpecterBASummonCastelRoom() + return MakeRoom() + and SpecterBACanGetCastel() +end + +function SummonForUsableSpellBackrow() + return CardsMatchingFilter(AIMon(),SpecterMonsterFilter)==0 + and (CardsMatchingFilter(UseLists({AIHand(),AIST()}),UsableSCycloneFilter)>0 + or HasID(UseLists({AIHand(),AIST()}),13972452,true)) +end + +function SummonForUsableBackrow() + return CardsMatchingFilter(AIMon(),SpecterMonsterFilter)==0 + and (CardsMatchingFilter(UseLists({AIHand(),AIST()}),UsableSCycloneFilter)>0 + or CardsMatchingFilter(UseLists({AIHand(),AIST()}),UsableSTornadoFilter)>0 + or HasID(UseLists({AIHand(),AIST()}),13972452,true) + or (CardsMatchingFilter(UseLists({AIHand(),AIST()}),UsableSTempestFilter)>0 + and CardsMatchingFilter(UseLists({AIHand(),AIExtra()}),SpecterMonsterFilter)>1)) +end + +function UsableBackrow() + return UsableSStorm() + or UsableSCyclone() + or UsableSTornado() +end + +function UsableFreelyBackrowFilter(c) + return UsableSCycloneFilter(c) + or UsableSTornadoFilter(c) +end + +function UsableSpellBackrow() + return UsableSStorm() + or UsableSCyclone() +end + +function UsableSCycloneFilter(c) + return (FilterLocation(c,LOCATION_HAND) + or FilterLocation(c,LOCATION_SZONE) + and not FilterStatus(c,STATUS_SET_TURN)) + and c.id==49366157 +end + +function UsableSCyclone() + return CardsMatchingFilter(UseLists({AIHand(),AIST()}),UsableSCycloneFilter)>0 + and (CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>0 + or MajestyTrace()) +end + +function UsableSStorm() + return HasID(UseLists({AIHand(),AIST()}),13972452,true) + and (CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>0 + or MajestyTrace()) + and Duel.GetTurnPlayer()==player_ai +end + +function UsableSTornadoFilter(c) + return c.id==36183881 + and FilterLocation(c,LOCATION_SZONE) + and not FilterStatus(c,STATUS_SET_TURN) +end + +function UsableSTornado() + return CardsMatchingFilter(AIST(),UsableSTornadoFilter)>0 + and (CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>0 + or MajestyTrace()) +end + +function UsableSTempestFilter(c) + return c.id==02572890 + and FilterLocation(c,LOCATION_SZONE) + and not FilterStatus(c,STATUS_SET_TURN) +end + +function UsableSTempest() + return CardsMatchingFilter(AIST(),UsableSTempestFilter)>0 + and (CardsMatchingFilter(AIMon(),SpecterMonsterFilter)>0 + or MajestyTrace()) +end + +function SpecterDestroyCheckOpp(id,category) --Currently don't know how to make this check for public cards. + if Duel.GetCurrentChain() == 0 then return false end + local cat={CATEGORY_DESTROY,CATEGORY_TOGRAVE} + if category then cat={category} end + for i=1,#cat do + for j=1,Duel.GetCurrentChain() do + local ex,cg = Duel.GetOperationInfo(j,cat[i]) + if ex and CheckNegated(j) then + if id==nil then + return cg + end + if cg and id~=nil and cg:IsExists(function(c) return c:IsControler(1-player_ai) and c:IsCode(id) end, 1, nil) then + return true + end + end + end + end + return false +end + +function SpecterRemovalCheckOpp(id,category) + if Duel.GetCurrentChain() == 0 then return false end + local cat={CATEGORY_DESTROY,CATEGORY_REMOVE,CATEGORY_TOGRAVE,CATEGORY_TOHAND,CATEGORY_TODECK} + if category then cat={category} end + for i=1,#cat do + for j=1,Duel.GetCurrentChain() do + local ex,cg = Duel.GetOperationInfo(j,cat[i]) + if ex and CheckNegated(j) then + if id==nil then + return cg + end + if cg and id~=nil and cg:IsExists(function(c) return c:IsControler(1-player_ai) and c:IsCode(id) end, 1, nil) then + return true + end + end + end + end + return false +end + +function SpecterRhapsodyATKCheck() + local cards=AIMon() + if not HasID(UseLists({AIMon(),AIExtra()}),56832966,true) + and not HasID(AIExtra(),56832966,true) then + for i=1,#cards do + if bit32.band(cards[i].type,TYPE_XYZ)>0 and cards[i].attack+1200 > OppGetStrongestAttack() then + return true + end + end + end + return false +end + +function SpecterRhapsodyMP1Filter(c) + if SpecterStarAssaultModeCheck() then + return c.id==61257789 + end + if RhapsodyGospelMP1() then + return c.id==06853254 + end + if RhapsodyRRReturnMP1() then + return c.id==30500113 + end + if RhapsodyTasukeMP1() then + return c.id==86039057 + end + if RhapsodyIAvenger() then + return c.id==85475641 + end + if RhapsodyDirectProtectors() then + return c.id==80208158 + or c.id==34620088 + or c.id==02830693 + or c.id==24212820 + or c.id==77462146 + or c.id==01833916 + or c.id==96427353 + or c.id==46613515 + end + return c.id==34710660 + or c.id==04906301 + or c.id==93830681 + or c.id==27978707 + or c.id==27660735 + or c.id==62017867 + or c.id==82593786 + or c.id==50185950 + or c.id==69764158 +end + +function SpecterRhapsodyMP2Filter(c) --Come back to this later for Bujingi Hare conditions + if SpecterStardustCheck() then + return c.id==44508094 + end + if SpecterStarAssaultModeCheck() then + return c.id==61257789 + end + if RhapsodyBreakthroughPriority() then + return c.id==78474168 + end + if RhapsodyMalicious() then + return c.id==09411399 + end + if RhapsodyCyclone() then + return c.id==05133471 + end + if RhapsodyRedice() then + return c.id==85704698 + end + if RhapsodySSScout() then + return c.id==90727556 + end + if RhapsodyTasukeMP2() then + return c.id==86039057 + end + if RhapsodyTombShield() then + return c.id==51606429 + end + return c.id==92826944 + or c.id==29904964 + or c.id==17502671 + or c.id==04081665 + or c.id==00128454 + or c.id==94919024 + or c.id==05818294 + or c.id==88940154 + or c.id==13521194 + or c.id==69723159 + or c.id==88728507 + or c.id==56574543 + or c.id==68819554 + or c.id==99315585 + or c.id==49919798 + or c.id==19310321 + or c.id==42551040 + or c.id==45705025 + or c.id==36704180 + or c.id==54320860 + or c.id==52158283 + or c.id==96427353 + or c.id==70124586 + or c.id==23857661 + or c.id==21767650 + or c.id==34710660 + or c.id==33145233 + or c.id==67489919 + or c.id==03580032 + or c.id==08903700 + or c.id==37984162 + or c.id==48427163 + or c.id==59640711 + or c.id==63821877 + or c.id==90432163 + or c.id==15981690 + or c.id==36426778 + or c.id==59463312 + or c.id==72291078 + or c.id==23893227 + or c.id==36736723 + or c.id==45206713 + or c.id==71039903 + or c.id==33245030 + or c.id==18988391 + or c.id==72413000 + or c.id==23740893 + or c.id==79234734 + or c.id==06853254 + or c.id==14816688 + or c.id==22842126 + or c.id==41201386 + or c.id==44771289 + or c.id==74335036 + or c.id==81994591 + or c.id==88204302 + or c.id==99330325 + or c.id==18803791 + or c.id==30392583 + or c.id==34834619 + or c.id==47435107 + or c.id==62835876 + or c.id==08437145 + or c.id==46008667 + or c.id==15155568 + or c.id==19254117 + or c.id==21648584 + or c.id==30500113 + or c.id==63227401 + or c.id==73694478 + or c.id==67381587 + or c.id==78474168 + or c.id==70043345 + or c.id==61257789 + or c.id==92418590 + or c.id==11366199 + or c.id==77121851 + or c.id==56174248 + or c.id==24861088 + or c.id==92572371 + or c.id==32623004 + or c.id==23571046 + or c.id==33420078 + or c.id==01357146 + or c.id==09742784 + or c.id==11747708 + or c.id==66853752 + or c.id==92901944 + or c.id==85475641 + or c.id==00286392 + or c.id==80208158 + or c.id==34620088 + or c.id==02830693 + or c.id==24212820 + or c.id==77462146 + or c.id==69764158 + or c.id==01833916 + or c.id==36630403 + or c.id==94919024 + or c.id==82744076 + or c.id==46613515 + or c.id==26268488 + or c.id==56532353 + or c.id==48444114 + or c.id==09659580 + or c.id==07922915 + or c.id==57354389 +end + +function SpecterAllTrapFilter(c) + return FilterType(c,TYPE_TRAP) +end + +function SpecterUsableAbyss(c) + return c.id==21044178 + and c.xyz_material_count>0 +end + +function RhapsodyBreakthroughPriority() + return CardsMatchingFilter(AIMon(),SpecterUsableAbyss)>0 + and HasID(OppGrave(),78474168,true) + and (EnableShadollFunctions() + or EnableBAFunctions()) +end + +function RhapsodyTombShield() + return HasID(OppGrave(),51606429,true) + and CardsMatchingFilter(UseLists({AIST(),AIHand()}),SpecterAllTrapFilter)>0 +end + +function RhapsodyMalicious() + return HasID(OppGrave(),09411399,true) + and HasID(OppDeck(),09411399,true) +end + +function RhapsodyCyclone() + return (OPTCheck(53208660) + or CardsMatchingFilter(AIST(),MagicianPendulumFilter)<2 + or HasIDNotNegated(AIST(),76473843,true) + or HasIDNotNegated(AIST(),78949372,true)) + and HasID(OppGrave(),05133471,true) +end + +function RhapsodyGospelMP1() + return CardsMatchingFilter(OppMon(),FilterRace,RACE_DRAGON)>0 + and HasID(OppGrave(),06853254,true) +end + +function RhapsodyRRReturnMP1() + return CardsMatchingFilter(OppMon(),EnableRaidRaptorFunctionsFilter)>0 + and HasID(OppGrave(),30500113,true) +end + +function RhapsodyRedice() + return CardsMatchingFilter(OppMon(),SpecterSpeedroidTuners)==0 + and HasID(OppGrave(),85704698,true) +end + +function SpecterSpeedroidTuners(c) + return FilterType(c,TYPE_TUNER) + and IsSetCode(c.setcode,0x2016) +end + +function RhapsodyTasukeMP1() + return #OppHand()==0 + and HasID(OppGrave(),86039057,true) + and not TasukeOpponentActivated +end + +function RhapsodyTasukeMP2() + return HasID(OppGrave(),86039057,true) + and not TasukeOpponentActivated +end + +function TasukeOpponentCheck() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==86039057 + and e:GetHandlerPlayer()==1-player_ai + and CardsMatchingFilter(AIST(),VanityFilter)==0 then + return true + end + end + return false +end + +function RhapsodySSScout() + return #OppST()==0 + and HasID(OppGrave(),90727556,true) +end + +function RhapsodyIAvenger() + return #OppHand()==0 + and HasID(OppGrave(),85475641,true) + and #OppMon()>0 +end + +function RhapsodyAquaFilter(c) + return IsSetCode(c.setcode,0x2b) +end + +function RhapsodyAqua() + return CardsMatchingFilter(OppGrave(),RhapsodyAquaFilter)>1 +end + +function RhapsodyDirectProtectors() --Imperfection, still needs to check if it would destroy monsters and then get direct attacks + return #OppMon()==0 + and (HasID(OppGrave(),80208158,true) + or HasID(OppGrave(),34620088,true) + or HasID(OppGrave(),02830693,true) + or HasID(OppGrave(),24212820,true) + or HasID(OppGrave(),77462146,true) + or HasID(OppGrave(),01833916,true) + or (HasID(OppGrave(),96427353,true) + and RhapsodyAqua()) + or HasID(OppGrave(),46613515,true)) +end + +--Is Kaeynn the Master Blacksmith really worth it? No, no it isn't. +--An exception for Soulbang Cannon will need to be added later. +--Interceptomato is not worth it. +--Is Overlay Eater really worth it? +--Is Spell Recycler really worth it? +--May add Void Seer to MP1 list later, under specific conditions. +--May add Destruction Sword Flash to MP1 list later, under specific conditions. +--Dice-Roll Battle would be a good target if this deck actually used synchros. +--Damage Diet would be a target if this deck actually inflicted effect damage. +--I think The Phantom Wing, The Phantom Fog Blade, and The Phantom Sword would just chain? +--Blaze Accelerator Reload would undoubtedly chain. +--Is D/D Rebuild really worth it? +--PSY-Frame Overload would just chain. +--Is Vampire Grace really worth it? +--Is InterplanetaryPurlyThornywhothehellcares Beast really worth it? +--Revival Rose is not worth it. +--Worm Yagan is not worth it. +--They can't conduct their battle phase against a Majespecter deck if they use Gogogo Gigas. +--Might need an exception for NoPenguin in MP1? Not like anyone actually knows how Penguin decks work. +--I guess Majosheldon could be an unknown Monarch card? Still not worth it. +--Naturia Pineapple is not worth it. +--Maybe Scrap Searcher should be hit during MP1, but I'll leave it as a MP2 monster for now. +--Naturia Ladybug is not worth it. +--Stardust Xiaolong is not worth it. +--Samsara Lotus MIGHT be worth it, but I'm not including it for now. +--Will add Stardust Dragon later. + +--Look buddy, Rhapsody is at least 170 lines of code. If you think I'm about to sit here and label every single ID that I actually did use, +--then you're crazy. If you wish to seek them out easily, I searched "banish this card from your graveyard" first. +--After that, I searched "Special Summon this card from your graveyard." +--Stuff beyond that I thought of later. + +function SpecterSummonRhapsodyMP1() + return XYZSummonOkay() + and Duel.GetCurrentPhase() == PHASE_MAIN1 and GlobalBPAllowed + and CardsMatchingFilter(OppGrave(),SpecterRhapsodyMP1Filter)>0 + and SpecterRhapsodyATKCheck() + and not SpecterSummonUtopiaLightning() +end + +function SpecterSummonRhapsodyRoom() + return MakeRoom() + and Duel.GetCurrentPhase() == PHASE_MAIN1 and GlobalBPAllowed + and CardsMatchingFilter(OppGrave(),SpecterRhapsodyMP1Filter)>0 + and SpecterRhapsodyATKCheck() + and not SpecterSummonUtopiaLightning() +end + +function SpecterSummonRhapsodyMP2() + local cards=AIMon() + if XYZSummonOkay() + and SpecterMP2Check() + and CardsMatchingFilter(OppGrave(),SpecterRhapsodyMP2Filter)>0 then + for i=1,#cards do + if bit32.band(cards[i].type,TYPE_XYZ)>0 then + return true + end + end + end + return false +end + +function SpecterUseRhapsody() + return true +end + +function SpecterMiscAbyssMP1Filter(c) + if RhapsodyTasukeMP1() then + return c.id==86039057 + end + if RhapsodyIAvenger() then + return c.id==85475641 + end + if RhapsodyDirectProtectors() then + return c.id==80208158 + or c.id==34620088 + or c.id==02830693 + or c.id==24212820 + or c.id==77462146 + or c.id==01833916 + or c.id==96427353 + or c.id==46613515 + end + return c.id==34710660 + or c.id==04906301 + or c.id==93830681 + or c.id==27978707 + or c.id==27660735 + or c.id==62017867 + or c.id==82593786 + or c.id==69764158 +end + +function SpecterMiscAbyssMP2Filter(c) + if RhapsodyMalicious() then + return c.id==09411399 + end + if RhapsodyCyclone() then + return c.id==05133471 + end + if RhapsodyRedice() then + return c.id==85704698 + end + if RhapsodySSScout() then + return c.id==90727556 + end + if RhapsodyTombShield() then + return c.id==51606429 + end + if AbyssCatastrophe() then + return c.id==67381587 + end + return c.id==92826944 + or c.id==17502671 + or c.id==04081665 + or c.id==00128454 + or c.id==94919024 + or c.id==05818294 + or c.id==88940154 + or c.id==13521194 + or c.id==69723159 + or c.id==88728507 + or c.id==56574543 + or c.id==68819554 + or c.id==99315585 + or c.id==49919798 + or c.id==19310321 + or c.id==42551040 + or c.id==45705025 + or c.id==36704180 + or c.id==54320860 + or c.id==52158283 + or c.id==70124586 + or c.id==23857661 + or c.id==21767650 + or c.id==67489919 + or c.id==37984162 + or c.id==48427163 + or c.id==59640711 + or c.id==63821877 + or c.id==90432163 + or c.id==15981690 + or c.id==36426778 + or c.id==59463312 + or c.id==72291078 + or c.id==23893227 + or c.id==36736723 + or c.id==45206713 + or c.id==71039903 + or c.id==18988391 + or c.id==72413000 + or c.id==23740893 + or c.id==79234734 + or c.id==14816688 + or c.id==22842126 + or c.id==41201386 + or c.id==44771289 + or c.id==74335036 + or c.id==81994591 + or c.id==88204302 + or c.id==99330325 + or c.id==18803791 + or c.id==30392583 + or c.id==34834619 + or c.id==47435107 + or c.id==62835876 + or c.id==08437145 + or c.id==46008667 + or c.id==15155568 + or c.id==19254117 + or c.id==30500113 + or c.id==73694478 + or c.id==92418590 + or c.id==11366199 + or c.id==24861088 + or c.id==92572371 + or c.id==32623004 + or c.id==23571046 + or c.id==33420078 + or c.id==01357146 + or c.id==09742784 + or c.id==11747708 + or c.id==66853752 + or c.id==92901944 + or c.id==00286392 + or c.id==36630403 + or c.id==94919024 + or c.id==56532353 + or c.id==26268488 + or c.id==48444114 + or c.id==09659580 + or c.id==57354389 +end + +function SpecterStarAssaultModeTrace() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==61257789 + and e:GetHandlerPlayer()==1-player_ai then + OPTSet(61257789) + return true + end + end + return false +end + +function SpecterStarAssaultModeCheck() + return not OPTCheck(61257789) + and HasID(OppGrave(),61257789,true) +end + +function SpecterStardustTrace() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==44508094 + and e:GetHandlerPlayer()==1-player_ai then + OPTSet(44508094) + return true + end + end + return false +end + +function SpecterStardustCheck() + return not OPTCheck(44508094) + and HasID(OppGrave(),44508094,true) +end + +function SpecterStardustSummonAbyss() + if SpecterStardustCheck() and XYZSummonOkay() and HasID(AIExtra(),21044178,true) and not UsableSTempest() then + if ((Duel.GetCurrentPhase() == PHASE_MAIN1 and not GlobalBPAllowed) or Duel.GetCurrentPhase() == PHASE_MAIN2) + and (AIGetStrongestAttack() > OppGetStrongestAttack() or OppGetStrongestAttack() <= 1700) then + return true + end + end + if SpecterStarAssaultModeCheck() and not UsableSTempest() then + return true + end + return false +end + +function RhapsodyNotNeeded() + if not OPTCheck(21044178) then return true end + if HasID(AIExtra(),21044178,true) then return true end + if UsableSTempest() then return true end + return false +end + +function SpecterStardustSummonRhapsody() + if RhapsodyNotNeeded() then return false end + if SpecterStardustCheck() + and XYZSummonOkay() + and ((Duel.GetCurrentPhase() == PHASE_MAIN1 and not GlobalBPAllowed) or Duel.GetCurrentPhase() == PHASE_MAIN2) + and AIGetStrongestAttack() > OppGetStrongestAttack() then + return true + end + if SpecterStarAssaultModeCheck() then + return true + end + return false +end + +function SpecterCatastropheFilter(c) + return IsSetCode(c.setcode,0xcc) + and FilterPosition(c,POS_FACEUP) +end + +function AbyssCatastrophe() + return HasID(OppGrave(),67381587,true) + and (CardsMatchingFilter(OppMon(),SpecterCatastropheFilter)==0 + or Duel.GetTurnPlayer()==1-player_ai) +end + +function SpecterMiscSummonAbyssMP1() + return (AIGetStrongestAttack() > OppGetStrongestAttDef() or OppGetStrongestAttDef() < 1700) + and CardsMatchingFilter(OppGrave(),SpecterMiscAbyssMP1Filter)>0 + and XYZSummonOkay() + and Duel.GetCurrentPhase() == PHASE_MAIN1 and GlobalBPAllowed +end + +function SpecterMiscSummonAbyssMP1Room() + return MakeRoom() + and Duel.GetCurrentPhase() == PHASE_MAIN1 and GlobalBPAllowed + and CardsMatchingFilter(OppGrave(),SpecterMiscAbyssMP1Filter)>0 +end + +function SpecterMiscSummonAbyssMP2() + return (AIGetStrongestAttack() > OppGetStrongestAttack() or OppGetStrongestAttack() < 1700) + and CardsMatchingFilter(OppGrave(),SpecterMiscAbyssMP2Filter)>0 + and XYZSummonOkay() + and Duel.GetCurrentPhase() == PHASE_MAIN2 +end + +function SpecterMiscSummonAbyssMP2Room() + return MakeRoom() + and Duel.GetCurrentPhase() == PHASE_MAIN2 + and CardsMatchingFilter(OppGrave(),SpecterMiscAbyssMP2Filter)>0 +end + +function EnemyHasStallFilter(c) + if EnemyHasTraffic() then + return c.id==46083380 and FilterPosition(c,POS_FACEUP) + and NotNegated(c) + end + if EnemyHasDoor() then + return c.id==30606547 and FilterPosition(c,POS_FACEUP) + and NotNegated(c) + end + if EnemyHasMessenger() then + return c.id==44656491 and FilterPosition(c,POS_FACEUP) + and NotNegated(c) + end + if EnemyHasInsectBarrier() then + return c.id==23615409 and FilterPosition(c,POS_FACEUP) + and NotNegated(c) + end + if EnemyHasKaiser() then + return c.id==35059553 and FilterPosition(c,POS_FACEUP) + and NotNegated(c) + end + if EnemyHasGravityBind() then + return (c.id==85742772 or c.id==03136426) and FilterPosition(c,POS_FACEUP) + and NotNegated(c) + end + if EnemyHasLswornBarrier() then + return c.id==22201234 and FilterPosition(c,POS_FACEUP) + and NotNegated(c) + end + return (c.id==72302403 + or c.id==58775978 + or c.id==18634367 + or c.id==93087299 + or c.id==17078030 + or c.id==00296499) + and FilterPosition(c,POS_FACEUP) + and NotNegated(c) +end + +function EnemyHasStall() + return CardsMatchingFilter(OppST(),EnemyHasStallFilter)>0 + and AIGetStrongestAttack() > OppGetStrongestAttDef() + and #AIMon()>2 + and CardsMatchingFilter(AIMon(),MajespecterAttack)>2 +end + +function MajespecterAttack(c) + return FilterPosition(c,POS_FACEUP_ATTACK) +end + +function SpecterLightswornFilter(c) + return IsSetCode(c.setcode,0x38) +end + +function EnemyHasLswornBarrier() + return HasID(OppST(),22201234,true) + and CardsMatchingFilter(OppMon(),SpecterLightswornFilter)>0 +end + +function EnemyHasTraffic() + return HasID(OppST(),46083380,true) + and #AIMon()>2 +end + +function EnemyHasDoor() + return HasID(OppST(),30606547,true) + and #AIMon()>3 +end + +function EnemyHasMessenger() + return HasID(OppST(),44656491,true) + and AIGetStrongestAttack() > 1500 +end + +function EnemyHasInsectBarrier() + return HasID(OppST(),23615409,true) + and CardsMatchingFilter(AIMon(),SpecterConvertedInsects)>1 +end + +function SpecterConvertedInsects(c) + return FilterRace(c,RACE_INSECT) +end + +function EnemyHasKaiser() + return HasID(OppST(),35059553,true) + and #OppMon()>0 + and #OppMon()<5 +end + +function SpecterGravityFilter(c) + return c.level>3 + and not FilterType(c,TYPE_XYZ) +end + +function EnemyHasGravityBind() + return (HasID(OppST(),85742772,true) or HasID(OppST(),03136426,true)) + and CardsMatchingFilter(AIMon(),SpecterGravityFilter)>1 +end + +--function EnemyHasMonsterStall() + +--[[function EnemyHasHeliosphere() --Implement monster stall + return #AIHand()<=4 + and #OppMon()==1 + and HasID(OppMon(),51043053,true) +end]] + +function UseDragonpitStall() + return EnemyHasStall() + and OPTCheck(51531505) + and (not RaccoonHandCheck() or #AIMon()==5) +end + +function UseDragonpitDestiny() + return EnemyHasDestinyBoard() + and OPTCheck(51531505) + and not RaccoonHandCheck() +end + +function EnemyHasDestinyBoardFilter(c) -- F I N A L + return (c.id==94212438 + or c.id==31893528 + or c.id==67287533 + or c.id==94772232 + or c.id==30170981) + and FilterPosition(c,POS_FACEUP) +end + +function EnemyHasDestinyBoard() + return CardsMatchingFilter(OppST(),EnemyHasDestinyBoardFilter)>1 +end + +function EnemyGrystaFilter(c) + return c.id==48424886 + and NotNegated(c) + and FilterPosition(c,POS_FACEUP) +end + +function EnemyHeraldFilter(c) + return c.id==48546368 + and NotNegated(c) + and FilterPosition(c,POS_FACEUP) +end + +function EnemyHasGrysta() + return CardsMatchingFilter(OppMon(),EnemyGrystaFilter)>0 + and #OppHand()>0 +end + +function EnemyHasHerald() + return CardsMatchingFilter(OppMon(),EnemyHeraldFilter)>0 + and #OppHand()>0 +end + +function EnemySummonNegatorMonFilter(c) + if EnemyHasGrysta() then + return EnemyGrystaFilter(c) + end + if EnemyHasHerald() then + return EnemyHeraldFilter(c) + end + return (c.id==14309486 + or (c.id==74294676 and c.xyz_material_count>=2) + or c.id==74892653) + and FilterPosition(c,POS_FACEUP) + and NotNegated(c) +end + +function EnemyHasSummonNegatorMon() + return CardsMatchingFilter(OppMon(),EnemySummonNegatorMonFilter)>0 +end + +function MajestyCrow() + if OPTCheck(31991800) and HasID(AIDeck(),31991800,true) and not NormalSummonCheck(player_ai) then return false end + if EnableShadollFunctions() + and HasID(AIDeck(),68395509,true) + and HasID(AIDeck(),13972452,true) + and not WindaCheck() then + return true + end + if EnemyHasSummonNegatorMon() + and HasID(AIDeck(),68395509,true) + and OPTCheck(68395509) + and not UsableBackrow() + and not UsableSTempest() + and (HasID(AIDeck(),13972452,true) + or HasID(AIDeck(),49366157,true)) then + return true + end + if EnemyHasTimeRafflesia() + and not UsableSpellBackrow() + and HasID(AIDeck(),68395509,true) + and OPTCheck(68395509) + and CardsMatchingFilter(AIDeck(),SpecterSpellFilter)>0 then + return true + end + return false +end + +function RaccoonAddCrow() + return (NeedsSStormOverSCyclone() or (EnemyHasSummonNegatorMon() and not UsableSTempest())) + and not NormalSummonCheck(player_ai) + and HasID(AIDeck(),68395509,true) + and (HasID(AIDeck(),13972452,true) or HasID(AIDeck(),49366157,true)) + and OPTCheck(68395509) + and not HasID(AIHand(),68395509,true) + and ((HasScales() and not HasID(AIExtra(),68395509,true)) or not HasScales() + or not WindaCheck()) +end + +function MajesterAddInsight() + return (CardsMatchingFilter(AIST(),MagicianPendulumFilter)==1 + or (CardsMatchingFilter(AIST(),AllPendulumFilter)==0 + and CardsMatchingFilter(AIHand(),MagicianPendulumFilter)>0)) + and NoScales() + and HasID(AIDeck(),72714461,true) +end + +function MajesterAddPeasant() + return HasID(AIST(),51531505,true) + and (HasID(AIGrave(),51531505,true) or HasID(AIGrave(),72714461,true)) +end + +--[[function EnableMaleficFunctionsFilter(c) + return IsSetCode(c.setcode,0x23) +end + +function EnableMaleficFunctions() + return CardsMatchingFilter(OppMon(),EnableMaleficFunctionsFilter)>0 +end + +function SpecterFZoneFilter(c) + return FilterType(c,TYPE_FIELD) +end + +function SpecterFZoneDownFilter(c) --What moron plays Malefics and then puts their field spell facedown? Can't hurt to be thorough. + return FilterType(c,TYPE_FIELD) + and FilterPosition(c,POS_FACEDOWN) +end]] + +function SetMajesty() --Shouldn't I be coding something more important, like destroying Skill Drain or ASF? + if EnemyHasASF() + and (Duel.GetCurrentPhase() == PHASE_MAIN2 or (Duel.GetCurrentPhase() == PHASE_MAIN1 and not GlobalBPAllowed)) + and HasID(AIHand(),76473843,true) + and not HasID(AIST(),76473843,true) then + return true + end + return false +end + +--[[ if not EnableMaleficFunctions() then return false end + if HasFaceupMajesty() + and HasID(AIHand(),76473843,true) + and (CardsMatchingFilter(OppST(),SpecterFZoneFilter)==0 + or CardsMatchingFilter(OppST(),SpecterFZoneDownFilter)>0) then + return true + end]] + +function ReplayMajesty() --Senseless to play it against Malefics if they have no field spell of their own, but I think the official A.I. forcefully activates a face-down field spell. --Lucky you, Chandler. + return OPTCheck(76473843) +end + +function EnemyHasSkillDrainFilter(c) --Skill Drain, Lose a Turn + return (c.id==82732705 + or c.id==24348804) + and FilterPosition(c,POS_FACEUP) +end + +function EnemyLoseTurn(c) + return c.id==24348804 + and FilterPosition(c,POS_FACEUP) +end + +function EnemyHasLoseTurn() + return CardsMatchingFilter(OppST(),EnemyLoseTurn)>0 +end + +function EnemyHasSkillDrainOnly() + return CardsMatchingFilter(OppST(),function(c) return c.id==82732705 end)>0 +end + +function EnemyHasSkillDrain() + return CardsMatchingFilter(OppST(),EnemyHasSkillDrainFilter)>0 +end + +function UseDragonpitSkillDrain() + return EnemyHasSkillDrain() + and OPTCheck(51531505) + and not RaccoonHandCheck() +end + +function UseDragonpitASF() + if not EnemyHasASF() then return false end + if not OPTCheck(51531505) then return false end + if RaccoonHandCheck() then return false end + if HasID(AIHand(),76473843,true) + and not HasFaceupMajesty() then + return true + end + if HasID(AIHand(),13972452,true) and (UseSStorm2() or UseSStorm4()) then + return true + end + if HasID(AIHand(),49366157,true) and ChainSpecterCyclone2() then + return true + end + return false +end + +function SpecterGranpulseTargetASF() + if not EnemyHasASF() then return false end + if HasID(AIHand(),76473843,true) + and not HasFaceupMajesty() then + return true + end + if NeedsScale5Activation() or NeedsScale2Activation() or NeedsScaleBothActivation() then + return true + end + if HasID(AIHand(),13972452,true) and (UseSStorm2() or UseSStorm4()) then + return true + end + if HasID(AIHand(),49366157,true) and ChainSpecterCyclone2() then + return true + end + if HasID(AIHand(),53208660,true) and (UsePendulumCallSpecter() or UsePendulumCallScaleReplaceSpecter()) then + return true + end + return false +end + +function SpecterSummonGranpulseASF() + return HasID(AIExtra(),85252081,true) + and EnemyHasASF() + and NeedsScaleActivation() +end + +function AmorphageCheckFilter(c) + return IsSetCode(c.setcode,0xe0) +end + +function AmorphageOlgaCheck() + return CardsMatchingFilter(OppMon(),AmorphageCheckFilter)>0 + and HasIDNotNegated(OppST(),79794767,true) +end + +function EnemyHasSpecterCounterCardSTFilter(c) --Mask of Restrict, DNA Surgery, DNA Transplant, Poisonous Winds, Zombie World + if AmorphageOlgaCheck() then + return c.id==79794767 + and SpecterDestroyFilter(c) + and NotNegated(c) + end + return (FilterPosition(c,POS_FACEUP) + or FilterPublic(c)) + and NotNegated(c) + and SpecterDestroyFilter(c) + and (c.id==29549364 + or c.id==74701381 + or c.id==56769674 + or c.id==95561280 + or c.id==04064256) +end + +function EnemyHasSpecterCounterCardST() + return CardsMatchingFilter(OppST(),EnemyHasSpecterCounterCardSTFilter)>0 +end + +function UseDragonpitSpecterCounterCardST() + return EnemyHasSpecterCounterCardST() + and OPTCheck(51531505) + and not RaccoonHandCheck() +end + +function SpecterSummonGranpulseSpecterCounterCardST() + return EnemyHasSpecterCounterCardST() + and HasID(AIExtra(),85252081,true) + and XYZSummonOkay() + and ((HasIDNotNegated(AIST(),76473843,true) and OPTCheck(76473843)) + or (UsableBackrow() or UsableSTempest())) +end + +function NeedsScale5Activation() + return CardsMatchingFilter(AIST(),ScaleLowFilter)>0 + and CardsMatchingFilter(AIHand(),ScaleHighFilter)>0 + and CardsMatchingFilter(AIST(),ScaleHighFilter)==0 +end + +function NeedsScale2Activation() + return CardsMatchingFilter(AIST(),ScaleHighFilter)>0 + and CardsMatchingFilter(AIHand(),ScaleLowFilter)>0 + and CardsMatchingFilter(AIST(),ScaleLowFilter)==0 +end + +function NeedsScaleBothActivation() + return CardsMatchingFilter(AIST(),AllPendulumFilter)==0 + and CardsMatchingFilter(AIHand(),ScaleHighFilter)>0 + and CardsMatchingFilter(AIHand(),ScaleLowFilter)>0 +end + +function NeedsScaleActivation() + return NeedsScale5Activation() + or NeedsScale2Activation() + or NeedsScaleBothActivation() +end + +function FaceupMajesty(c) + return c.id==76473843 + and FilterPosition(c,POS_FACEUP) +end + +function HasFaceupMajesty() + return CardsMatchingFilter(AIST(),FaceupMajesty)>0 +end + +function SpecterStardustSparkTrace() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==83994433 + and e:GetHandlerPlayer()==1-player_ai then + OPTSet(83994433) + return true + end + end + return false +end + +function SpecterStardustSparkCheck() + return OPTCheck(83994433) + and HasID(OppMon(),83994433,true) +end + +function DoubleUtopia() + return (CardsMatchingFilter(AIExtra(),function(c) return c.id==84013237 end)>1 + and CardsMatchingFilter(AIExtra(),function (c) return c.id==56832966 end)>1) + or (DoubleUtopiaActivated + and (HasID(AIMon(),84013237,true) + or HasID(AIMon(),56832966,true))) + or (HasID(AIMon(),84013237,true) + and HasID(AIExtra(),56832966,true) + and HasID(AIExtra(),84013237,true)) +end + +function DoubleUtopiaTargetFilter(c) + return FilterPosition(c,POS_FACEUP_ATTACK) + and not FilterAffected(c,EFFECT_CANNOT_BE_BATTLE_TARGET) + and not FilterAffected(c,EFFECT_AVOID_BATTLE_DAMAGE) + and not FilterAffected(c,EFFECT_REFLECT_BATTLE_DAMAGE) +end + +function SpecterOppGetWeakestAttack() + local cards=OppMon() + local result=9999999 + ApplyATKBoosts(cards) + if #cards==0 then return 0 end + for i=1,#cards do + if cards[i] and cards[i]:is_affected_by(EFFECT_CANNOT_BE_BATTLE_TARGET)==0 then + if bit32.band(cards[i].position,POS_ATTACK)>0 and cards[i].attack1 then return false end + if #OppMon()<2 then return false end + if AI.GetPlayerLP(2)==8000 + and OppGetStrongestAttack() <=1000 then + return true + end + if AI.GetPlayerLP(2)<=7500 and AI.GetPlayerLP(2)>=6500 + and OppGetStrongestAttack() <=2000 and SpecterOppGetWeakestAttack() <=500 then + return true + end + if AI.GetPlayerLP(2)<=7500 and AI.GetPlayerLP(2)>=7000 + and OppGetStrongestAttack() <=1500 and SpecterOppGetWeakestAttack() <=1000 then + return true + end + if AI.GetPlayerLP(2)<=7000 and AI.GetPlayerLP(2)>=6500 + and OppGetStrongestAttack() <=2500 and SpecterOppGetWeakestAttack() <=500 then + return true + end + if AI.GetPlayerLP(2)<=7000 and AI.GetPlayerLP(2)>=6500 + and OppGetStrongestAttack() <=2000 and SpecterOppGetWeakestAttack() <=1000 then + return true + end + if AI.GetPlayerLP(2)<=6500 and AI.GetPlayerLP(2)>=6000 + and OppGetStrongestAttack() <=3000 and SpecterOppGetWeakestAttack() <=500 then + return true + end + if AI.GetPlayerLP(2)<=6500 and AI.GetPlayerLP(2)>=6000 + and OppGetStrongestAttack() <=2500 and SpecterOppGetWeakestAttack() <=1000 then + return true + end + if AI.GetPlayerLP(2)<=6500 and AI.GetPlayerLP(2)>=6000 + and OppGetStrongestAttack() <=2000 and SpecterOppGetWeakestAttack() <=1500 then + return true + end + if AI.GetPlayerLP(2)<=6000 and AI.GetPlayerLP(2)>=5500 + and OppGetStrongestAttack() <=3500 and SpecterOppGetWeakestAttack() <=500 then + return true + end + if AI.GetPlayerLP(2)<=6000 and AI.GetPlayerLP(2)>=5500 + and OppGetStrongestAttack() <=3000 and SpecterOppGetWeakestAttack() <=1000 then + return true + end + if AI.GetPlayerLP(2)<=6000 and AI.GetPlayerLP(2)>=5500 + and OppGetStrongestAttack() <=2500 and SpecterOppGetWeakestAttack() <=1500 then + return true + end + if AI.GetPlayerLP(2)<=5500 and AI.GetPlayerLP(2)>=5000 + and OppGetStrongestAttack() <=4000 and SpecterOppGetWeakestAttack() <=500 then + return true + end + if AI.GetPlayerLP(2)<=5500 and AI.GetPlayerLP(2)>=5000 + and OppGetStrongestAttack() <=3500 and SpecterOppGetWeakestAttack() <=1000 then + return true + end + if AI.GetPlayerLP(2)<=5500 and AI.GetPlayerLP(2)>=5000 + and OppGetStrongestAttack() <=3000 and SpecterOppGetWeakestAttack() <=1500 then + return true + end + if AI.GetPlayerLP(2)<=5500 and AI.GetPlayerLP(2)>=5000 + and OppGetStrongestAttack() <=2500 and SpecterOppGetWeakestAttack() <=2000 then + return true + end + if AI.GetPlayerLP(2)<=5000 and AI.GetPlayerLP(2)>=4500 + and OppGetStrongestAttack() <=4000 and SpecterOppGetWeakestAttack() <=1000 then + return true + end + if AI.GetPlayerLP(2)<=5000 and AI.GetPlayerLP(2)>=4500 + and OppGetStrongestAttack() <=3500 and SpecterOppGetWeakestAttack() <=1500 then + return true + end + if AI.GetPlayerLP(2)<=5000 and AI.GetPlayerLP(2)>=4500 + and OppGetStrongestAttack() <=3000 and SpecterOppGetWeakestAttack() <=2000 then + return true + end + if AI.GetPlayerLP(2)<=4500 and AI.GetPlayerLP(2)>=4000 + and OppGetStrongestAttack() <=4000 and SpecterOppGetWeakestAttack() <=1500 then + return true + end + if AI.GetPlayerLP(2)<=4500 and AI.GetPlayerLP(2)>=4000 + and OppGetStrongestAttack() <=3500 and SpecterOppGetWeakestAttack() <=2000 then + return true + end + if AI.GetPlayerLP(2)<=4500 and AI.GetPlayerLP(2)>=4000 + and OppGetStrongestAttack() <=3000 and SpecterOppGetWeakestAttack() <=2500 then + return true + end + return false +end + +function SpecterDoubleUtopiaLightningMajestyConditions() + if CardsMatchingFilter(AIMon(),LevelFourFieldCheck)<3 then return false end +-- or (HasID(AIMon(),84013237,true) or HasID(AIMon(),56832966,true)) +-- and CardsMatchingFilter(AIMon(),LevelFourFieldCheck)==0) then return false end + if CardsMatchingFilter(AIMon(),LevelFourFieldCheck)>=4 then return false end + if CardsMatchingFilter(AIMon(),NotLV4WindFilter)==0 then return false end + if (CardsMatchingFilter(AIExtra(),function(c) return c.id==84013237 end)<2 + or CardsMatchingFilter(AIExtra(),function (c) return c.id==56832966 end)<2) then return false end + if DoubleUtopiaConstantConditions() then + return true + end + return false +end + +function UseMajestyLightning() + return SpecterDoubleUtopiaLightningMajestyConditions() +end + +function SummonDoubleUtopiaLightning() +-- if CardsMatchingFilter(OppMon(),DoubleUtopiaTargetFilter)>2 then return false end + if DoubleUtopiaActivated then return true end + if (CardsMatchingFilter(AIMon(),LevelFourFieldCheck)<4 + or (HasID(AIMon(),84013237,true) or HasID(AIMon(),56832966,true)) + and CardsMatchingFilter(AIMon(),LevelFourFieldCheck)==0) then return false end +-- if #OppMon()>2 then return false end + if not DoubleUtopia() then return false end + if HasID(AIMon(),84013237,true) and DoubleUtopiaActivated then return true end + if HasID(AIMon(),56832966,true) and DoubleUtopiaActivated then return true end + if DoubleUtopiaConstantConditions() then + return true + end + return false +end + +function SpecterNormal(c) + return FilterType(c,TYPE_NORMAL) +end + +function SpecterDragonHornStall() + return HasIDNotNegated(OppST(),21970285,true) + and CardsMatchingFilter(OppMon(),SpecterNormal)>0 +end + +function SpecterBlackwing(c) + return IsSetCode(c.setcode,0x33) +end + +function SpecterBlackwingStall() + return HasID(OppGrave(),16516630,true) + and CardsMatchingFilter(OppMon(),SpecterBlackwing)>0 +end + +function SpecterGenericNoBattleDamage(c) + return FilterAffected(c,EFFECT_AVOID_BATTLE_DAMAGE) + and FilterAffected(c,EFFECT_REFLECT_BATTLE_DAMAGE) +end + +function SpecterSpellCage(c) + return c.id==25796442 + and FilterPosition(c,POS_FACEUP) +end + +function SpecterRitual(c) + return FilterType(c,TYPE_RITUAL) +end + +function SpecterRitualCageStall() + return CardsMatchingFilter(OppST(),SpecterSpellCage)>0 + and CardsMatchingFilter(OppMon(),SpecterRitual)>0 +end + +function SpecterBBarrier(c) + return c.id==79777187 + and FilterPosition(c,POS_FACEUP) +end + +function SpecterPMage(c) + return IsSetCode(c.setcode,0xc6) + and FilterPosition(c,POS_FACEUP) +end + +function SpecterPPal(c) + return IsSetCode(c.setcode,0x9f) + and FilterPosition(c,POS_FACEUP) +end + +function SpecterBarrierStall() + return CardsMatchingFilter(OppST(),SpecterBBarrier)>0 + and (CardsMatchingFilter(OppMon(),SpecterPPal)>0 + or CardsMatchingFilter(OppMon(),SpecterPMage)>0) +end + +function SpecterIntrigue(c) + return c.id==23122036 + and FilterPosition(c,POS_FACEUP) +end + +function SpecterTornadoWall(c) + return c.id==18605135 + and FilterPosition(c,POS_FACEUP) +end + +function SpecterSBarrier(c) + return c.id==53239672 + and FilterPosition(c,POS_FACEUP) +end + +function SpecterScrubbed(c) + return c.id==79205581 + and FilterPosition(c,POS_FACEUP) +end + +function SpecterBattleStallLightningTrace() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and (e:GetHandler():GetCode()==36361633 or e:GetHandler():GetCode()==12607053 or e:GetHandler():GetCode()==35112613 + or e:GetHandler():GetCode()==46132282 or e:GetHandler():GetCode()==42776960 or e:GetHandler():GetCode()==21648584 + or e:GetHandler():GetCode()==23857661 or e:GetHandler():GetCode()==40591390 or e:GetHandler():GetCode()==16516630) + and e:GetHandlerPlayer()==1-player_ai then + OPTSet(86209650) + return true + end + end + return false +end + +function SpecterOneDayTrace() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==33782437 + and e:GetHandlerPlayer()==1-player_ai then + return true + end + end + return false +end + +function EnemyHasBattleStallLightning() + return not OPTCheck(86209650) + or HasIDNotNegated(OppST(),67616300,true) + or HasID(OppGrave(),21648584,true) + or (HasID(OppGrave(),23857661,true) and #OppHand()>0) + or SpecterDragonHornStall() + or SpecterBlackwingStall() + or HasID(OppMon(),93816465,true) + or CardsMatchingFilter(OppMon(),SpecterGenericNoBattleDamage)>0 + or HasIDNotNegated(OppMon(),84988419,true) + or HasIDNotNegated(OppMon(),69031175,true) + or SpecterRitualCageStall() + or SpecterBarrierStall() + or CardsMatchingFilter(OppST(),SpecterIntrigue)>0 + or CardsMatchingFilter(OppST(),SpecterTornadoWall)>0 + or CardsMatchingFilter(OppST(),SpecterSBarrier)>0 + or HasID(OppGrave(),34710660,true) + or CardsMatchingFilter(OppST(),SpecterScrubbed)>0 + or SpecterPeaceTurn +end + +function SpecterSummonUtopiaLightningFinish(c) + return Duel.GetCurrentPhase() == PHASE_MAIN1 + and GlobalBPAllowed + and CardsMatchingFilter(OppMon(),LightningFinishFilter,c)>0 + and not EnemyHasStall() + and not EnemyHasBattleStallLightning() +end + +function NotLV4WindFilter(c) + return c.id==14920218 + or c.id==31991800 + or c.id==05506791 +end + +function PendulumRaccoon() + return EnemyHasSummonNegatorMon() + and HasID(UseLists({AIExtra(),AIHand()}),31991800,true) + and SummonRaccoon1() + and SummonCrow1() + and HasID(AIDeck(),68395509,true) + and ((not HasID(AIHand(),68395509,true) or (HasID(AIHand(),68395509,true) and NormalSummonCheck(player_ai)))) + and HasScales() + and ((HasID(AIDeck(),13972452,true) and CardsMatchingFilter(OppMon(),SStormFilter5)>0) + or (HasID(AIDeck(),49366157,true) and CardsMatchingFilter(OppMon(),SpecterCycloneFilter5)>0)) + and not NormalSummonCheck(player_ai) +end + +function PendulumCrow() + return EnemyHasSummonNegatorMon() + and SummonCrow1() + and HasID(UseLists({AIExtra(),AIHand()}),68395509,true) + and ((HasID(AIDeck(),13972452,true) and CardsMatchingFilter(OppMon(),SStormFilter5)>0) + or (HasID(AIDeck(),49366157,true) and CardsMatchingFilter(OppMon(),SpecterCycloneFilter5)>0)) + and not PendulumRaccoon() +end + +function PendulumFox() + return EnemyHasSummonNegatorMon() + and SummonFox1() + and HasID(UseLists({AIExtra(),AIHand()}),94784213,true) + and CardsMatchingFilter(AIDeck(),SpecterTrapFilter)>0 + and not PendulumRaccoon() + and not PendulumCrow() +end + +function PendulumToad() + return EnemyHasSummonNegatorMon() + and SummonToad1() + and HasID(UseLists({AIExtra(),AIHand()}),00645794,true) + and CardsMatchingFilter(AIDeck(),SpecterTrapFilter)>0 + and not PendulumRaccoon() + and not PendulumCrow() + and not PendulumFox() +end + +function PendulumCat() + return EnemyHasSummonNegatorMon() + and OPTCheck(05506791) + and HasID(UseLists({AIExtra(),AIHand()}),05506791,true) + and not PendulumRaccoon() + and not PendulumCrow() + and not PendulumFox() + and not PendulumToad() +end + +function PendulumPeasant() + return EnemyHasSummonNegatorMon() + and HasID(UseLists({AIExtra(),AIHand()}),14920218,true) + and HasID(AIST(),51531505,true) + and not PendulumRaccoon() + and not PendulumCrow() + and not PendulumFox() + and not PendulumToad() + and not PendulumCat() +end + +function MajestyTrace() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==76473843 + and e:GetHandlerPlayer()==player_ai then + return true + end + end + return false +end + +function SpecterRafflesiaTrace() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==06511113 + and e:GetHandlerPlayer()==1-player_ai then + OPTSet(06511113) + return true + end + end + return false +end + +function SpecterTimeSpaceCheck() + return CardsMatchingFilter(UseLists({OppHand(),OppST(),OppDeck()}),EnemyTimeSpaceFilter)>0 + or (HasID(OppGrave(),02055403,true) + and CardsMatchingFilter(OppGrave(),EnemyTimeSpaceFilter)<3) +end + +function EnemySummoningRafflesiaFilter(c) + return FilterStatus(c,STATUS_SUMMONING) + and c.id==06511113 +end + +function EnemySummoningTimeRafflesia() + return CardsMatchingFilter(OppMon(),EnemySummoningRafflesiaFilter)>0 + and SpecterTimeSpaceCheck() +end + +function ChainTempestRafflesia() + return EnemySummoningTimeRafflesia() +end + +function EnemyTimeSpaceFilter(c) + return c.id==02055403 +end + +function EnemyHasRafflesiaFilter(c) + return c.id==06511113 + and FilterPosition(c,POS_FACEUP) + and NotNegated(c) + and c.xyz_material_count>0 +end + +function EnemyHasTimeRafflesia() + return CardsMatchingFilter(OppMon(),EnemyHasRafflesiaFilter)>0 + and SpecterTimeSpaceCheck() + and OPTCheck(06511113) +end + +function SpecterRaigekiFilter(c) + return Affected(c,TYPE_SPELL) + and SpecterDestroyFilter(c) +end + +function SpecterRaigekiExceptionFilter(c) + if AmorphageOlgaCheck() then + return SpecterRaigekiFilter(c) + and AmorphageCheckFilter(c) + end + if EnemyHasGrysta() then + return EnemyGrystaFilter(c) + and SpecterRaigekiFilter(c) + end + if EnemyHasHerald() then + return EnemyHeraldFilter(c) + and SpecterRaigekiFilter(c) + end + if EnemyHasTimeRafflesia() then + return EnemyHasRafflesiaFilter(c) + and SpecterRaigekiFilter(c) + end + return (c.id==14309486 + or (c.id==74294676 and c.xyz_material_count>=2) + or c.id==74892653) + and FilterPosition(c,POS_FACEUP) + and NotNegated(c) + and SpecterRaigekiFilter(c) +end + +function SpecterRaigekiException() + return CardsMatchingFilter(OppMon(),SpecterRaigekiExceptionFilter)>0 +end + +function EnemyHasHammerBounzerFilter(c) + return c.id==44790889 +end + +function EnemyHasHammerBounzer() + return CardsMatchingFilter(OppMon(),EnemyHasHammerBounzerFilter)>0 + and #AIMon()>0 + and #OppST()==0 +end + +function EnemyHasGearKnightFilter(c) + return c.id==39303359 +end + +function EnemyHasGearKnight() + return CardsMatchingFilter(OppMon(),EnemyHasGearKnightFilter)>0 +end + +function EnemyHasFireflux() + return HasIDNotNegated(OppMon(),12255007,true) +end + +function EnemyHasPPalOrOddEyesFilter(c) + return IsSetCode(c.setcode,0x9f) + or IsSetCode(c.setcode,0x99) +end + +function EnemyHasPPalOrOddEyes() + return CardsMatchingFilter(OppMon(),EnemyHasPPalOrOddEyesFilter)>0 + and EnemyHasFireflux() +end + +function EnemyHasReverseBuster() + return HasIDNotNegated(OppMon(),90640901,true) + and CardsMatchingFilter(AIMon(),SpecterFacedownFilter)>0 +end + +function SpecterFacedownFilter(c) + return FilterPosition(c,POS_FACEDOWN_DEFENSE) +end + +function EnemyHasStargazer() + return HasIDNotNegated(OppST(),94415058,true) + and UsableSCyclone() + and CardsMatchingFilter(OppMon(),EnemyStargazerPendulumFilter)>0 +end + +function EnemyStargazerPendulumFilter(c) + return FilterType(c,TYPE_PENDULUM) +end + +function EnemyHasTimegazer() + return HasIDNotNegated(OppST(),20409757,true) + and (UsableSTornado() + or HasID(AIST(),05650082,true)) + and CardsMatchingFilter(OppMon(),EnemyStargazerPendulumFilter)>0 +end + +function SpecterForceResonatorTrace() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==40583194 + and e:GetHandlerPlayer()==1-player_ai then + OPTSet(40583194) + return true + end + end + return false +end + +function EnemyHasUltimateGolem() + return HasIDNotNegated(OppMon(),12652643,true) +end + +function EnemyHasCitrine() + return HasIDNotNegated(OppMon(),67985943,true) +end + +function EnemyHasStarEater() + return HasIDNotNegated(OppMon(),41517789,true) +end + +function EnemyHasGeargiagear() + return HasIDNotNegated(OppMon(),19891310,true) +end + +function SpecterTypicalUnaffectedAttackerConditions(c) + return c.attack > SpecterAIGetWeakestAttDef() + and FilterPosition(c,POS_FACEUP_ATTACK) + and NotNegated(c) + and not FilterAffected(c,EFFECT_CANNOT_ATTACK_ANNOUNCE) + and not FilterAffected(c,EFFECT_CANNOT_ATTACK) +end + +function SpecterGenexTriforceFilter(c) + return FilterAttribute(c,ATTRIBUTE_LIGHT) +end + +function SpecterGenexTriforceSlowRemoval() + return HasIDNotNegated(OppMon(),52709508,true) + and CardsMatchingFilter(OppGrave(),SpecterGenexTriforceFilter)==0 +end + +function SpecterArachnidFilter(c) + return Targetable(c,TYPE_MONSTER) + and Affected(c,TYPE_MONSTER,6) + and FilterPosition(c,POS_FACEUP) +end + +function SpecterArachnidSlowRemoval() + return CardsMatchingFilter(AIMon(),SpecterArachnidFilter)==0 + and HasIDNotNegated(OppMon(),63465535,true) +end + +function EnemyUtopiaTempestRemoval(c) + return FilterStatus(c,STATUS_SUMMONING) + and (c.id==84013237 + or c.id==56840427 + or c.id==86532744) +end + +function EnemyUtopiaSlowRemoval() + return (HasID(OppMon(),84013237,true) + or HasID(OppMon(),56840427,true) + or HasID(OppMon(),86532744,true)) + and not (HasID(OppST(),11705261,true) + and HasID(OppST(),26493435,true)) +end + +function EnemyHasUnaffectedAttackerFilter(c) --Index cards that prevent effects from being activated when they attack, or are unaffected when they attack. + if EnemyUtopiaSlowRemoval() then + return (c.id==84013237 + or c.id==56840427 + or c.id==86532744) + and SpecterTypicalUnaffectedAttackerConditions(c) + end + if SpecterArachnidSlowRemoval() then + return c.id==63465535 + and SpecterTypicalUnaffectedAttackerConditions(c) + end + if SpecterGenexTriforceSlowRemoval() then + return c.id==52709508 + and SpecterTypicalUnaffectedAttackerConditions(c) + end + if EnemyHasGeargiagear() then + return c.id==19891310 + and SpecterTypicalUnaffectedAttackerConditions(c) + end + if EnemyHasStarEater() then + return c.id==41517789 + and SpecterTypicalUnaffectedAttackerConditions(c) + end + if EnemyHasCitrine() then + return c.id==67985943 + and SpecterTypicalUnaffectedAttackerConditions(c) + end + if EnemyHasUltimateGolem() then + return c.id==12652643 + and SpecterTypicalUnaffectedAttackerConditions(c) + end + if not OPTCheck(40583194) then + return FilterPosition(c,POS_FACEUP_ATTACK) + and c.attack > SpecterAIGetWeakestAttDef() + and not FilterAffected(c,EFFECT_CANNOT_ATTACK_ANNOUNCE) + and not FilterAffected(c,EFFECT_CANNOT_ATTACK) + end + if EnemyHasStargazer() or EnemyHasTimegazer() then + return EnemyStargazerPendulumFilter(c) + and FilterPosition(c,POS_FACEUP_ATTACK) + and c.attack > SpecterAIGetWeakestAttDef() + and not FilterAffected(c,EFFECT_CANNOT_ATTACK_ANNOUNCE) + and not FilterAffected(c,EFFECT_CANNOT_ATTACK) + end + if EnemyHasHammerBounzer() then + return EnemyHasHammerBounzerFilter(c) + and SpecterTypicalUnaffectedAttackerConditions(c) + end + if EnemyHasGearKnight() then + return EnemyHasGearKnightFilter(c) + and SpecterTypicalUnaffectedAttackerConditions(c) + and FilterType(c,TYPE_EFFECT) + end + if EnemyHasFireflux() or EnemyHasPPalOrOddEyes() then + return EnemyHasPPalOrOddEyesFilter(c) + and FilterPosition(c,POS_FACEUP_ATTACK) + and c.attack > SpecterAIGetWeakestAttDef() + and not FilterAffected(c,EFFECT_CANNOT_ATTACK_ANNOUNCE) + and not FilterAffected(c,EFFECT_CANNOT_ATTACK) + end + if EnemyHasReverseBuster() then + return c.id==90640901 + and NotNegated(c) + and FilterPosition(c,POS_FACEUP_ATTACK) + and not FilterAffected(c,EFFECT_CANNOT_ATTACK_ANNOUNCE) + and not FilterAffected(c,EFFECT_CANNOT_ATTACK) + end + return (c.id==56421754 --Mighty Slugger + or c.original_id==45349196 --That level 9 Red Dragon Archfiend fusion thing + or c.id==83866861 --Frightfur Mad Chimera + or c.id==29357956 --Nerokius + or c.id==57477163 --Frightfur Sheep + or c.id==88033975 --Armades + or c.id==56832966 --Utopia Lightning + or c.id==07171149 --Toon AYYNCIEENT GEEEER GOLUMMMMM! + or c.id==83104731 --REGULAH AYYNCIEEENT GEEEER GOLUMMMMM! + or c.id==50933533 --AYYYUHHNCIENTUR GEERUUU Gadjitron Dragon + or c.id==10509340 --Ancient Gear Beast + or c.id==01953925 --Ancient Gear Engineer + or c.id==56094445 --Ancient Gear Soldier + or c.id==13293158 --Evil HERO Wild Cyclone + or c.id==22858242 --Zeman + or c.id==94515289 --Frozen Fitzgerald + or c.id==87911394 --Utopia Ray Victory + or c.id==25494711 --Deskbot 009 **IMPORTANT** + or c.id==19700943 --Dododo Bot + or c.id==86274272) --Apelio + and SpecterTypicalUnaffectedAttackerConditions(c) +end + +function EnemySummoningUnaffectedAttackerFilter(c) + return FilterStatus(c,STATUS_SUMMONING) + and (c.id==56421754 + or c.original_id==45349196 + or c.id==83866861 + or c.id==29357956 + or c.id==88033975 + or c.id==56832966 + or c.id==07171149 + or c.id==83104731 + or c.id==50933533 + or c.id==10509340 + or c.id==01953925 + or c.id==22858242 + or c.id==94515289 + or c.id==87911394 + or c.id==19700943 + or c.id==19891310 + or c.id==41517789 + or c.id==67985943 + or c.id==12652643 + or c.id==44790889 + or c.id==12255007) +end + +function EnemySummoningUnaffectedAttackerFilter2(c) + return EnemySummoningUnaffectedAttackerFilter(c) + and c.attack > SpecterAIGetWeakestAttDef() +end + +function SpecterCodedUnaffectedAttackers(c) + return c.id==56421754 --Mighty Slugger + or c.original_id==45349196 --That level 9 Red Dragon Archfiend fusion thing + or c.id==83866861 --Frightfur Mad Chimera + or c.id==29357956 --Nerokius + or c.id==57477163 --Frightfur Sheep + or c.id==88033975 --Armades + or c.id==56832966 --Utopia Lightning + or c.id==07171149 --Toon AYYNCIEENT GEEEER GOLUMMMMM! + or c.id==83104731 --REGULAH AYYNCIEEENT GEEEER GOLUMMMMM! + or c.id==50933533 --AYYYUHHNCIENTUR GEERUUU Gadjitron Dragon + or c.id==10509340 --Ancient Gear Beast + or c.id==01953925 --Ancient Gear Engineer + or c.id==56094445 --Ancient Gear Soldier + or c.id==13293158 --Evil HERO Wild Cyclone + or c.id==22858242 --Zeman + or c.id==94515289 --Frozen Fitzgerald + or c.id==87911394 --Utopia Ray Victory + or c.id==25494711 --Deskbot 009 **IMPORTANT** + or c.id==19700943 --Dododo Bot + or c.id==19891310 --Geargiagear + or c.id==41517789 --Star Eater + or c.id==67985943 --Citrine + or c.id==12652643 --Ultimate Golem + or c.id==44790889 --Hammer Bounzer + or c.id==39303359 --Ancient Gear Knight + or c.id==12255007 --Performapal Fireflux +end + +function SpecterAIGetWeakestAttDef() + local cards=AIMon() + local result=9999999 + ApplyATKBoosts(cards) + if #cards==0 then return 0 end + for i=1,#cards do + if cards[i] and cards[i]:is_affected_by(EFFECT_CANNOT_BE_BATTLE_TARGET)==0 then + if bit32.band(cards[i].position,POS_ATTACK)>0 and cards[i].attack0 and cards[i].defense0 or bit32.band(cards[i].status,STATUS_IS_PUBLIC)>0) + then + result=cards[i].defense + end + end + end + return result +end + +function SpecterUpstart() + return true +end + +function SpecterJokerAddInsight() + return CardsMatchingFilter(AIHand(),MagicianPendulumFilter)>0 + and HasID(AIDeck(),72714461,true) + and (CardsMatchingFilter(AIST(),AllPendulumFilter)==0 or (CardsMatchingFilter(AIST(),MagicianPendulumFilter)==1 + and CardsMatchingFilter(AIST(),AllPendulumFilter)==1)) +end + +function SpecterSummonJoker1() + return ((NeedsScale5() and (HasID(AIDeck(),51531505,true) or HasID(AIDeck(),72714461,true))) + or (NeedsScale2() and HasID(AIDeck(),14920218,true)) + or SpecterJokerAddInsight() + or (not NeedsScale2() and HasID(AIDeck(),51531505,true)) + or (not NeedsScale5() and HasID(AIDeck(),14920218,true))) + and OPTCheck(40318957) +-- and (CardsMatchingFilter(AIHand(),TrueSpecterMonsterFilter)==0 + and (not HasID(AIHand(),31991800,true) or not OPTCheck(31991800)) + and not MajestyCheck() +end + +function SpecterSummonJoker2() + return CardsMatchingFilter(AIMon(),LevelFourFieldCheck)==1 or CardsMatchingFilter(AIMon(),LevelFourFieldCheck)==3 + or ((AIGetStrongestAttack() > OppGetStrongestAttack() + or OppGetStrongestAttack()<1800) + and Duel.GetTurnCount() ~= 1) +end + +function SpecterReasoning() + return true +end + +function SpecterSummonCowboyDef() + return AI.GetPlayerLP(2)<=800 +end + +function SpecterCowboyUseDef() + return HasIDNotNegated(AIMon(),12014404,true) +end + +function SpecterDaneFilter(c) + return TrueSpecterMonsterFilter(c) + and OPTCheck(c) +end + +function SpecterSummonDane() + return CardsMatchingFilter(AIMon(),SpecterDaneFilter)>3 + and ((CardsMatchingFilter(AIST(),MagicianPendulumFilter)>1 + and OPTCheck(53208660)) + or (CardsMatchingFilter(AIHand(),ScaleHighFilter)>0 + and CardsMatchingFilter(AIHand(),ScaleLowFilter)>0)) + and Duel.GetTurnCount() ~= SpecterGlobalPendulum + and CardsMatchingFilter(UseLists({AIHand(),AIExtra()}),TrueSpecterMonsterFilter)<4 + and CardsMatchingFilter(AIST(),SpecterBackrowFilter)<4 + and XYZSummonOkay() + and HasID(AIExtra(),82697249,true) + and not HasID(AIST(),78949372,true) + and not HasID(AIST(),05851097,true) +end + +function SpecterUseDane() + return CardsMatchingFilter(AIMon(),SpecterDaneFilter)>1 + and ((CardsMatchingFilter(AIST(),MagicianPendulumFilter)>1 + and OPTCheck(53208660)) + or (CardsMatchingFilter(AIHand(),ScaleHighFilter)>0 + and CardsMatchingFilter(AIHand(),ScaleLowFilter)>0)) + and Duel.GetTurnCount() ~= SpecterGlobalPendulum + and CardsMatchingFilter(AIST(),SpecterBackrowFilter)<4 + and not HasID(AIST(),78949372,true) + and not HasID(AIST(),05851097,true) +end + +function KuribanditTrace() + local e + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if e and e:GetHandler():GetCode()==16404809 + and e:GetHandlerPlayer()==1-player_ai then + return true + end + end + return false +end + +function SpecterSummonGranpulseSmart() --Beneficial targets to destroy. Fight the power! + return CardsMatchingFilter(OppST(),SpecterMonsterVersusOppSTSmartFilter)>0 + and XYZSummonOkay() + and HasID(AIExtra(),85252081,true) +end + +function SpecterSummonGranpulseSmartRoom() --Beneficial targets to destroy. Fight the power! + return CardsMatchingFilter(OppST(),SpecterMonsterVersusOppSTSmartFilter)>0 + and MakeRoom() + and HasID(AIExtra(),85252081,true) +end + +function EnemyHasEternalSoul() + return HasID(OppST(),48680970,true) + and #OppMon()>1 +end + +function EnemyHasDominionFilter(c) + return c.id==84171830 + and FilterPosition(c,POS_FACEUP) +end + +function EnemyHasDominionMonsterFilter(c) + return bit32.band(c.summon_type,SUMMON_TYPE_NORMAL)>0 + and c.level>4 + and FilterPosition(c,POS_FACEUP) +end + +function EnemyHasDominion() + return CardsMatchingFilter(OppST(),EnemyHasDominionFilter)>0 + and CardsMatchingFilter(OppMon(),EnemyHasDominionMonsterFilter)>0 +end + +function EnemyHasNordicFilter(c) + return c.id==50433147 + and FilterPosition(c,POS_FACEUP) +end + +function EnemyHasNordicMonsterFilter(c) + return IsSetCode(c.setcode,0x42) + and FilterPosition(c,POS_FACEUP) +end + +function EnemyHasNordic() + return CardsMatchingFilter(OppST(),EnemyHasNordicFilter)>0 + and CardsMatchingFilter(OppMon(),EnemyHasNordicMonsterFilter)>1 +end + +function SpecterMonsterVersusOppSTSmartFilter(c) + if EnemyHasEternalSoul() then + return c.id==48680970 + and (FilterPosition(c,POS_FACEUP) + or FilterPublic(c)) + and Targetable(c,TYPE_MONSTER) + and Affected(c,TYPE_MONSTER) + end + if EnemyHasDominion() then + return EnemyHasDominionFilter(c) + and Targetable(c,TYPE_MONSTER) + and Affected(c,TYPE_MONSTER) + end + if EnemyHasNordic() then + return EnemyHasNordicFilter(c) + and Targetable(c,TYPE_MONSTER) + and Affected(c,TYPE_MONSTER) + end + if Duel.GetCurrentPhase() == PHASE_MAIN2 then + return (c.id==36378044 + or c.id==79569173) + and FilterPosition(c,POS_FACEUP) + and Targetable(c,TYPE_MONSTER) + and Affected(c,TYPE_MONSTER) + end + return (c.id==77565204 + or c.id==16278116) + and (FilterPosition(c,POS_FACEUP) + or FilterPublic(c)) + and Targetable(c,TYPE_MONSTER) + and Affected(c,TYPE_MONSTER) +end + +function SpecterUseDragonpitSmart() + return CardsMatchingFilter(OppST(),SpecterSpellVersusOppSTSmartFilter)>0 + and OPTCheck(51531505) + and not RaccoonHandCheck() +end + +function SpecterSpellVersusOppSTSmartFilter(c) + if EnemyHasEternalSoul() then + return c.id==48680970 + and (FilterPosition(c,POS_FACEUP) + or FilterPublic(c)) + and Targetable(c,TYPE_SPELL) + and Affected(c,TYPE_SPELL) + end + if EnemyHasDominion() then + return EnemyHasDominionFilter(c) + and Targetable(c,TYPE_SPELL) + and Affected(c,TYPE_SPELL) + end + if EnemyHasNordic() then + return EnemyHasNordicFilter(c) + and Targetable(c,TYPE_SPELL) + and Affected(c,TYPE_SPELL) + end + if Duel.GetCurrentPhase() == PHASE_MAIN2 then + return (c.id==36378044 + or c.id==79569173) + and FilterPosition(c,POS_FACEUP) + and Targetable(c,TYPE_SPELL) + and Affected(c,TYPE_SPELL) + end + return (c.id==77565204 + or c.id==16278116) + and (FilterPosition(c,POS_FACEUP) + or FilterPublic(c)) + and Targetable(c,TYPE_SPELL) + and Affected(c,TYPE_SPELL) +end + +function SpecterChidoriFilter1(c) + return FilterPosition(c,POS_FACEDOWN) + and Targetable(c,TYPE_MONSTER) + and Affected(c,TYPE_MONSTER,4) +end + +function SpecterChidoriFilter2(c) + return Targetable(c,TYPE_MONSTER) + and Affected(c,TYPE_MONSTER,4) + and FilterPosition(c,POS_FACEUP) + and not SpecterCodedTargets2(c) +end + +function SpecterSummonChidori() + return CardsMatchingFilter(OppField(),SpecterChidoriFilter1)>0 + and CardsMatchingFilter(OppField(),SpecterChidoriFilter2)>0 + and XYZSummonOkayWind() +end + +function SpecterUseChidori() + return CardsMatchingFilter(OppField(),SpecterChidoriFilter2)>0 +end + +function SpecterInit(cards) + local Act = cards.activatable_cards + local Sum = cards.summonable_cards + local SpSum = cards.spsummonable_cards + local Rep = cards.repositionable_cards + local SetMon = cards.monster_setable_cards + local SetST = cards.st_setable_cards + + if HasIDNotNegated(Act,22653490,SpecterUseChidori) then + GlobalCardMode = 1 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,12580477,SpecterRaigekiException) then + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,85252081,SpecterUseGranpulse) then + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,70368879,SpecterUpstart) then + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,58577036,SpecterReasoning) then + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(SpSum,62709239,InsightfulPhantomSummon) then + return SpecterXYZSummon() + end + if HasIDNotNegated(Act,62709239,InsightfulPhantomUse) then + GlobalCardMode = 7 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasID(Sum,94784213,InsightfulFodderSummon) then --Fox + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,68395509,InsightfulFodderSummon) then --Crow + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,00645794,InsightfulFodderSummon) then --Toad + return COMMAND_SUMMON,CurrentIndex + end + if HasIDNotNegated(Act,76473843,InsightfulMajesty,nil,LOCATION_SZONE,POS_FACEUP) then + OPTSet(76473843) + GlobalCardMode = 1 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasID(Sum,31991800,InsightfulRaccoonSummon) then + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,05506791,InsightfulCatSummon) then + return COMMAND_SUMMON,CurrentIndex + end + if HasIDNotNegated(Act,14920218,UsePeasantPendulum,nil,LOCATION_SZONE,POS_FACEUP) then + OPTSet(14920218) + GlobalCardMode = 1 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,51531505,UseDragonpitSkillDrain,nil,LOCATION_SZONE,POS_FACEUP) then + OPTSet(51531505) + GlobalCardMode = 9 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,51531505,UseDragonpitASF,nil,LOCATION_SZONE,POS_FACEUP) then + OPTSet(51531505) + GlobalCardMode = 11 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,51531505,UseDragonpitSpecterCounterCardST,nil,LOCATION_SZONE,POS_FACEUP) then + OPTSet(51531505) + GlobalCardMode = 13 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,51531505,SpecterUseDragonpit,nil,LOCATION_SZONE,POS_FACEUP) then + OPTSet(51531505) + GlobalCardMode = 1 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,51531505,SpecterUseDragonpitSmart,nil,LOCATION_SZONE,POS_FACEUP) then + OPTSet(51531505) + GlobalCardMode = 15 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,51531505,UseDragonpitVanitys,nil,LOCATION_SZONE,POS_FACEUP) then + OPTSet(51531505) + GlobalCardMode = 3 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,51531505,UseDragonpitStall,nil,LOCATION_SZONE,POS_FACEUP) then + OPTSet(51531505) + GlobalCardMode = 5 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,51531505,UseDragonpitDestiny,nil,LOCATION_SZONE,POS_FACEUP) then + OPTSet(51531505) + GlobalCardMode = 7 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,82633039,SpecterUseCastel,1322128625) then + OPTSet(82633039) + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,62709239,SpecterUsePhantom) then + GlobalCardMode = 1 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,62709239,SpecterUsePhantom3) then + GlobalCardMode = 5 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,62709239,SpecterUsePhantom2) then + GlobalCardMode = 3 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,93568288,SpecterUseRhapsody,1497092609) then + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,93568288,SpecterUseRhapsody,1497092608) then + GlobalCardMode = 1 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,12014404,SpecterUseCowboyDef,nil,LOCATION_MZONE,POS_FACEUP_DEFENSE) then + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(SpSum,12014404,SpecterSummonCowboyDef) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,56832966,SpecterSummonUtopiaLightningFinish) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,84013237,SpecterSummonUtopiaLightningFinish) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,31437713,SpecterSummonHeartlandFinish) then + return SpecterXYZSummon() + end + if HasIDNotNegated(Act,31437713,SpecterActivateHeartlandFinish) then + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,76473843,PlayMajesty,nil,LOCATION_HAND) then + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,76473843,ReplayMajesty,nil,LOCATION_SZONE,POS_FACEDOWN) then + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,13972452,UseSStorm6) then + GlobalCardMode = 9 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,13972452,UseSStorm5) then + GlobalCardMode = 7 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,13972452,UseSStorm4) then + GlobalCardMode = 5 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,13972452,UseSStorm2) then + GlobalCardMode = 1 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,13972452,UseSStorm3) then + GlobalCardMode = 1 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,13972452,UseSStorm1) then + GlobalCardMode = 1 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,13972452,UseSStormDante) then + GlobalCardMode = 3 + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,76473843,UseMajestyLightning,nil,LOCATION_SZONE,POS_FACEUP) then + GlobalCardMode = 2 + OPTSet(76473843) + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,76473843,UseMajesty,nil,LOCATION_SZONE,POS_FACEUP) then + OPTSet(76473843) + return COMMAND_ACTIVATE,CurrentIndex + end + if HasID(SetST,76473843,SetMajesty,nil,LOCATION_HAND) then + return COMMAND_SET_ST,CurrentIndex + end +--[[ if HasID(SetST,76473843,SetMajesty,nil,LOCATION_HAND) and MaleficTrashTalk then + MaleficTrashTalk2 = true + AITrashTalk("I really wanted to call this Destati.") + AITrashTalk("Alas, that is now but a work of Malefiction.") + return COMMAND_SET_ST,IndexByID(SetST,76473843) + end + if HasID(SetST,76473843,SetMajesty,nil,LOCATION_HAND) then + MaleficTrashTalk = true + AITrashTalk("I should be renamed to [AI]Maleficent!") + return COMMAND_SET_ST,IndexByID(SetST,76473843) + end]] + + if HasIDNotNegated(SpSum,56832966,SummonDoubleUtopiaLightning) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,84013237,SummonDoubleUtopiaLightning) then + AITrashTalk("Ready for enlightningment?") + DoubleUtopiaActivated = true + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,56832966,SummonUtopiaLightningFalcon) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,84013237,SummonUtopiaLightningFalcon) then + return SpecterXYZSummon() + end + + if HasIDNotNegated(SpSum,22653490,SpecterSummonChidori2) then + return SpecterXYZSummon() + end + + if HasIDNotNegated(SpSum,85252081,SpecterSummonGranpulse) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,85252081,SpecterSummonGranpulse2) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,85252081,SpecterSummonGranpulseASF) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,85252081,SpecterSummonGranpulseSpecterCounterCardST) then + return SpecterXYZSummon() + end + --[[if HasIDNotNegated(SpSum,62709239,SpecterSummonPhantom) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,62709239,SpecterSummonPhantom2) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,62709239,SpecterSummonPhantom3) then + return SpecterXYZSummon() + end]] + if HasIDNotNegated(SpSum,85252081,SpecterSummonGranpulse3) then + return SpecterXYZSummon() + end + + if HasIDNotNegated(Act,72714461,UseInsight,nil,LOCATION_SZONE,nil) then + return COMMAND_ACTIVATE,CurrentIndex + end + + if HasIDNotNegated(SpSum,82697249,SpecterSummonDane) then + return SpecterXYZSummon() + end + if HasIDNotNegated(Act,82697249,SpecterUseDane) then + return COMMAND_ACTIVATE,CurrentIndex + end + + if HasID(Sum,31991800,SummonRaccoon5) then + return COMMAND_SUMMON,CurrentIndex + end + + if HasID(Sum,68395509,SummonCrow4) then + return COMMAND_SUMMON,CurrentIndex + end + + if HasID(Sum,94784213,SummonFox4) then + return COMMAND_SUMMON,CurrentIndex + end + + if HasID(Sum,05506791,SummonCat4) then + return COMMAND_SUMMON,CurrentIndex + end + + if HasID(Sum,00645794,SummonToad4) then + return COMMAND_SUMMON,CurrentIndex + end + + if HasID(Sum,31991800,SummonRaccoon4) then + return COMMAND_SUMMON,CurrentIndex + end + + if HasID(Sum,31991800,SummonRaccoon3) then + return COMMAND_SUMMON,CurrentIndex + end + + if HasID(Sum,40318957,SpecterSummonJoker1) then + return COMMAND_SUMMON,CurrentIndex + end + + if HasID(Sum,94784213,SummonFox3) then + return COMMAND_SUMMON,CurrentIndex + end + + if HasID(Sum,05506791,SummonCat3) then + return COMMAND_SUMMON,CurrentIndex + end + + if HasID(Sum,68395509,SummonCrow3) then + return COMMAND_SUMMON,CurrentIndex + end + + if HasID(Sum,00645794,SummonToad3) then + return COMMAND_SUMMON,CurrentIndex + end + + if HasIDNotNegated(SpSum,85252081,SpecterSummonGranpulseSmartRoom) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,84013237,SpecterKozmoSummonUtopiaLightningRoom) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,84013237,SpecterSummonUtopiaLightningRoom) then --I'm sure this won't be a problem in the slightest. + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,21044178,SpecterMiscSummonAbyssMP2Room) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,21044178,SpecterShadollSummonAbyssRoom) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,84013237,SummonUtopiaLightningFalconRoom) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,21044178,SpecterBASummonAbyssRoom) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,82633039,SpecterBASummonCastelRoom) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,71068247,SummonTotemBirdRoom) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,82633039,SpecterSummonCastelRoom) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,21044178,SpecterMiscSummonAbyssMP1Room) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,93568228,SpecterSummonRhapsodyRoom) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,88722973,SpecterSummonMajesterRoom) then + return SpecterXYZSummon() + end + for i=1,#SpSum do + if PendulumCheck(SpSum[i]) and SpecterPendulumSummon() and WorthPendulumSummoning() then + GlobalPendulumSummoningSpecter = true + SpecterGlobalPendulum=Duel.GetTurnCount() + return {COMMAND_SPECIAL_SUMMON,i} + end + end + + if HasID(Act,53208660,UsePendulumCallSpecter) then + OPTSet(53208660) + GlobalCardMode = 1 + return COMMAND_ACTIVATE,CurrentIndex + end + + if HasID(Act,53208660,UsePendulumCallScaleReplaceSpecter) then + OPTSet(53208660) + GlobalCardMode = 1 + return COMMAND_ACTIVATE,CurrentIndex + end + + --Pendulum activations + if WorthPendulumActivation() then + if HasID(Act,72714461,PlayInsight4,nil,LOCATION_HAND) then + return COMMAND_ACTIVATE,CurrentIndex + elseif HasID(Act,51531505,PlayDragonpit2,nil,LOCATION_HAND) then + return COMMAND_ACTIVATE,CurrentIndex + elseif HasID(Act,72714461,PlayInsight3,nil,LOCATION_HAND) then + return COMMAND_ACTIVATE,CurrentIndex + elseif HasID(Act,72714461,PlayInsight1,nil,LOCATION_HAND) then + return COMMAND_ACTIVATE,CurrentIndex + elseif HasID(Act,51531505,PlayDragonpit,nil,LOCATION_HAND) then + return COMMAND_ACTIVATE,CurrentIndex + elseif HasID(Act,72714461,PlayInsight2,nil,LOCATION_HAND) then + return COMMAND_ACTIVATE,CurrentIndex + elseif HasID(Act,00645794,PlayToad,nil,LOCATION_HAND) then + return COMMAND_ACTIVATE,CurrentIndex + elseif HasID(Act,68395509,PlayCrow,nil,LOCATION_HAND) then + return COMMAND_ACTIVATE,CurrentIndex + elseif HasID(Act,31991800,PlayRaccoon,nil,LOCATION_HAND) then + return COMMAND_ACTIVATE,CurrentIndex + elseif HasID(Act,15146890,PlayDragonpulse,nil,LOCATION_HAND) then + return COMMAND_ACTIVATE,CurrentIndex + elseif HasID(Act,14920218,PlayPeasant,nil,LOCATION_HAND) then + return COMMAND_ACTIVATE,CurrentIndex + elseif HasID(Act,05506791,PlayCat,nil,LOCATION_HAND) then + return COMMAND_ACTIVATE,CurrentIndex + elseif HasID(Act,94784213,PlayFox,nil,LOCATION_HAND) then + return COMMAND_ACTIVATE,CurrentIndex + end + end + + if HasID(Sum,31991800,SummonRaccoon1) then + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,40318957,SpecterSummonJoker1) then + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,94784213,SummonFox1) then + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,05506791,SummonCat1) then + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,68395509,SummonCrow1) then + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,00645794,SummonToad1) then + return COMMAND_SUMMON,CurrentIndex + end + + if HasID(Sum,40318957,SpecterSummonJoker2) then + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,31991800,SummonRaccoon2) then + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,94784213,SummonFox2) then + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,05506791,SummonCat2) then + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,68395509,SummonCrow2) then + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,00645794,SummonToad2) then + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,15146890,SummonDragonpulse) then + return COMMAND_SUMMON,CurrentIndex + end + if HasID(Sum,72714461,SummonInsight) then + return COMMAND_SUMMON,CurrentIndex + end + + if HasID(SetMon,72714461,SetInsight) then + return COMMAND_SET_MONSTER,CurrentIndex + end + + if HasIDNotNegated(SpSum,21044178,SpecterRaidraptorSummonAbyss) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,31437713,SpecterRaidraptorSummonHeartland) then + AITrashTalk("Don't misunderstand my feelings due to all of this wisecrack; you are killing me right now.") + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,18326736,SpecterPtolemaeusSummon) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,22653490,SpecterBASummonChidori) then +-- AITrashTalk("This is the chi to victory!") + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,82633039,SpecterBASummonCastel) then +-- AITrashTalk("I will Castel you into the abyss!") + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,21044178,SpecterBASummonAbyss) then + AITrashTalk("This Abyss will not be Burning for a while.") + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,21044178,SpecterBASummonAbyss2) then + AITrashTalk("This Abyss will not be Burning for a while.") + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,21044178,SpecterMiscSummonAbyssMP2) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,21044178,SpecterStardustSummonAbyss) then + AITrashTalk("Time to leave that monster in the Stardust.") + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,93568288,SpecterStardustSummonRhapsody) then + AITrashTalk("Time to leave that monster in the Stardust.") + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,85252081,SpecterSummonGranpulseSmart) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,71068247,SummonTotemBird) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,56832966,SpecterKozmoSummonUtopiaLightning) then + AITrashTalk("I see that your monsters are made up of Kozmolecules.") + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,84013237,SpecterKozmoSummonUtopiaLightning) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,52558805,SpecterSummonTemtempo) then + AITrashTalk("Now try to keep up with this Temtemporary summon!") + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,22653490,SpecterSummonChidori) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,82633039,SpecterSummonCastel) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,56832966) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,56832966,SpecterSummonUtopiaLightning) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,84013237,SpecterSummonUtopiaLightning) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,62709239,SpecterSummonPhantom) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,62709239,SpecterSummonPhantom2) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,62709239,SpecterSummonPhantom3) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,21044178,SpecterBlueSummonAbyss) then +-- AITrashTalk("You're looking a little Blue-Eyes there. Want to talk about it?") +-- AITrashTalk("Well, too bad. I'm the equivalent of talking to a Wall-E.") + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,21044178,SpecterShadollSummonAbyss) then + AITrashTalk("I will send you to The Shadoll Realm.") + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,21044178,SpecterMiscSummonAbyssMP1) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,88722973,SpecterSummonMajester1) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,88722973,SpecterSummonMajester2) then + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,93568288,SpecterSummonRhapsodyMP1) then + AITrashTalk("I always enjoy a good Rhapsoda in the morning.") + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,93568288,SpecterSummonRhapsodyMP2) then + AITrashTalk("I always enjoy a good Rhapsoda in the morning.") + return SpecterXYZSummon() + end + if HasIDNotNegated(SpSum,31437713,SpecterSummonHeartland) then + return SpecterXYZSummon() + end + + if HasIDNotNegated(Rep,68395509,CrowChangeToDefense,nil,LOCATION_MZONE,POS_FACEUP_ATTACK) then + return COMMAND_CHANGE_POS,CurrentIndex + end + if HasIDNotNegated(Rep,68395509,CrowChangeToAttack,nil,LOCATION_MZONE,POS_FACEUP_DEFENSE) then + return COMMAND_CHANGE_POS,CurrentIndex + end + if HasIDNotNegated(Rep,88722973,MajesterChangeToDefense,nil,LOCATION_MZONE,POS_FACEUP_ATTACK) then + return COMMAND_CHANGE_POS,CurrentIndex + end + if HasIDNotNegated(Rep,88722973,MajesterChangeToAttack,nil,LOCATION_MZONE,POS_FACEUP_DEFENSE) then + return COMMAND_CHANGE_POS,CurrentIndex + end + if HasIDNotNegated(Rep,05506791,CatChangeToDefense,nil,LOCATION_MZONE,POS_FACEUP_ATTACK) then + return COMMAND_CHANGE_POS,CurrentIndex + end + + if HasID(SetST,53208660,SetPendulumCall) then + return COMMAND_SET_ST,CurrentIndex + end + if HasID(SetST,43898403,SetTwinTwister) then + return COMMAND_SET_ST,CurrentIndex + end + if HasID(SetST,13972452,SetSStorm) then + return COMMAND_SET_ST,CurrentIndex + end + if HasID(SetST,49366157,SetSCyclone) then + return COMMAND_SET_ST,CurrentIndex + end + if HasID(SetST,36183881,SetSTornado) then + return COMMAND_SET_ST,CurrentIndex + end + if HasID(SetST,05650082,SetStormingMirror) then + return COMMAND_SET_ST,CurrentIndex + end + if HasID(SetST,05851097,SetVanity) then + return COMMAND_SET_ST,CurrentIndex + end + if HasID(SetST,02572890,SetSTempest) then + return COMMAND_SET_ST,CurrentIndex + end + if HasID(SetST,78949372,SetSCell) then + return COMMAND_SET_ST,CurrentIndex + end + + if HasIDNotNegated(Act,31437713,SpecterRaidraptorActivateHeartland) and HeartlandTalk and not HeartlandTalk2 then + HeartlandTalk2 = true + AITrashTalk("Hey buddy, did you let this live just so you could hear another pun?") + AITrashTalk("Alright, here's my last one: that card is Falcondescending.") + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,31437713,SpecterRaidraptorActivateHeartland) and not HeartlandTalk then + HeartlandTalk = true + AITrashTalk("If you keep this up, I will eventually run out of puns.") + AITrashTalk("That wouldn't be good for the Falconomy, would it?") + return COMMAND_ACTIVATE,CurrentIndex + end + if HasIDNotNegated(Act,31437713,SpecterActivateHeartland) then + return COMMAND_ACTIVATE,CurrentIndex + end +end + +--You've gotta BE the targeting, Squidward! + +function SpecterRhapsodyTarget(cards) + if LocCheck(cards,LOCATION_OVERLAY) then + return Add(cards,PRIO_TOGRAVE) + elseif GlobalCardMode == 1 then + GlobalCardMode = nil + return BestTargets(cards) + elseif Duel.GetCurrentPhase() == PHASE_MAIN1 then + return BestTargets(cards,1,PRIO_BANISH,SpecterRhapsodyMP1Filter) + elseif Duel.GetCurrentPhase() == PHASE_MAIN2 then + return BestTargets(cards,1,PRIO_BANISH,SpecterRhapsodyMP2Filter) + end + return BestTargets(cards) +end + +function InsightfulMajestyTarget(cards) + if LocCheck(cards,LOCATION_DECK) then + return BestTargets(cards,1,PRIO_TOFIELD,InsightfulLevel3Filter) + end + return BestTargets(cards,1,PRIO_BANISH,InsightfulMajestyFilter) +end + +function LightningMajestyTarget(cards) + if LocCheck(cards,LOCATION_DECK) then + if HasID(AIDeck(),94784213,true) and OPTCheck(94784213) then + return FindID(94784213,cards,true) + end + if HasID(AIDeck(),00645794,true) and OPTCheck(00645794) then + return FindID(00645794,cards,true) + end + if HasID(AIDeck(),68395509,true) and OPTCheck(68395509) then + return FindID(68395509,cards,true) + end + return BestTargets(cards,1,PRIO_TOFIELD,LevelFourSpecterFilter) + end + return BestTargets(cards,1,true,NotLV4WindFilter) +end + +function MajestyTarget(cards) + if GlobalCardMode == 2 then + GlobalCardMode = nil + return LightningMajestyTarget(cards) + end + if GlobalCardMode == 1 then + GlobalCardMode = nil + return InsightfulMajestyTarget(cards) + end + if LocCheck(cards,LOCATION_DECK) then + if MajestyCrow() then + return FindID(68395509,cards,true) + end + if SpecterSummonGranpulseASF() and HasID(AIDeck(),31991800,true) and OPTCheck(31991800) then + return FindID(31991800,cards,true) + end + if SpecterSummonGranpulseASF() and HasID(AIDeck(),05506791,true) then + return FindID(05506791,cards,true) + end + if SpecterSummonGranpulseASF() and HasID(AIDeck(),31991800,true) then + return FindID(31991800,cards,true) + end + return Add(cards,PRIO_TOFIELD) + end + return Add(cards,PRIO_BANISH) +end + +function SpecterPtolemaeusTarget(cards) + if EndPhasePtolemaeus() then + return FindID(09272381,cards,true) + else + return FindID(34945480,cards,true) + end +end + +function RaccoonTarget(cards) + if GlobalCardMode == 1 then + GlobalCardMode = nil + return RaccoonAdd(cards,1) + elseif RaccoonAddCrow() then + return FindID(68395509,cards,true) + else + return Add(cards,PRIO_TOHAND) + end +end + +function CatTarget(cards) + if (NeedsScale2() or NeedsScale5()) and HasID(AIDeck(),31991800,true) then + return FindID(31991800,cards,true) + elseif HasScales() and NeedsRaccoon() and HasID(AIDeck(),31991800,true) then + return FindID(31991800,cards,true) + elseif NeedsRaccoon() and HasID(AIDeck(),31991800,true) then + return FindID(31991800,cards,true) + elseif SpecterPriorityCheck(AIDeck(),PRIO_TOHAND,1,SpecterTrapPriorityFilter)>1 + and HasID(AIDeck(),94784213,true) then + return FindID(94784213,cards,true) + elseif ((NeedsSStormOverSCyclone() and HasID(AIDeck(),13972452,true)) or SpecterPriorityCheck(AIDeck(),PRIO_TOHAND,1,SpecterSpellPriorityFilter)>1) + and HasID(AIDeck(),68395509,true) then + return FindID(68395509,cards,true) + elseif HasScales() then + return BestTargets(cards,1,PRIO_TOHAND,SpecterMonsterFilter) + else + return BestTargets(cards,1,PRIO_TOHAND,SpecterMonsterFilter) + end +end + +function InsightTarget(cards) + if HasID(AIST(),15146890,true) and not HasID(AIST(),51531505,true) and HasID(AIDeck(),51531505,true) then + return FindID(51531505,cards,true) + elseif HasID(AIST(),51531505,true) and not HasID(AIST(),15146890,true) and HasID(AIDeck(),15146890,true) then + return FindID(15146890,cards,true) + elseif HasID(AIST(),51531505,true) and not HasID(AIST(),14920218,true) and HasID(AIDeck(),14920218,true) then + return FindID(14920218,cards,true) + elseif HasID(AIST(),14920218,true) and not HasID(AIST(),51531505,true) and HasID(AIDeck(),14920218,true) then + return FindID(51531505,cards,true) + end + return {math.random(#cards)} +end + +function SCellTarget(cards,min,max) + return Add(cards,PRIO_TOHAND,math.max(min,math.min(5,max))) +end + +function SCycloneTarget(cards) + if GlobalCardMode == 17 then + GlobalCardMode = 16 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 16 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_DESTROY) --SpecterCycloneFilter4 + elseif GlobalCardMode == 15 then + GlobalCardMode = 14 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 14 then + GlobalCardMode = nil + return BestTargets(cards,1,true,SpecterCycloneFilter3) + elseif GlobalCardMode == 13 then + GlobalCardMode = 12 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 12 then + GlobalCardMode = nil + return FindID(83531441,cards,true) + elseif GlobalCardMode == 11 then + GlobalCardMode = 10 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 10 then + GlobalCardMode = nil + return FindID(97219708,cards,true) + elseif GlobalCardMode == 9 then + GlobalCardMode = 8 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 8 then + GlobalCardMode = nil + return FindID(70791313,cards,true) + elseif GlobalCardMode == 7 then + GlobalCardMode = 6 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 6 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_DESTROY,SpecterCycloneFilter6) + elseif GlobalCardMode == 5 then + GlobalCardMode = 4 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 4 then + GlobalCardMode = nil + return FindID(50720316,cards,true) + elseif GlobalCardMode == 3 then + GlobalCardMode = 2 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 2 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_DESTROY,SpecterCycloneFilter2) + elseif GlobalCardMode == 1 then + GlobalCardMode = nil + return BestTargets(cards,1,PRIO_BANISH) + else + return BestTargets(cards,1,TARGET_DESTROY,SpecterCycloneFilter) + end +end + +function STornadoTarget(cards) + if GlobalCardMode == 17 then + GlobalCardMode = 16 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 16 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_BANISH) --SpecterTornadoFilter4 + elseif GlobalCardMode == 15 then + GlobalCardMode = 14 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 14 then + GlobalCardMode = nil + return BestTargets(cards,1,true,SpecterTornadoFilter3) + elseif GlobalCardMode == 13 then + GlobalCardMode = 12 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 12 then + GlobalCardMode = nil + return FindID(83531441,cards,true) + elseif GlobalCardMode == 11 then + GlobalCardMode = 10 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 10 then + GlobalCardMode = nil + return FindID(97219708,cards,true) + elseif GlobalCardMode == 9 then + GlobalCardMode = 8 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 8 then + GlobalCardMode = nil + return FindID(70791313,cards,true) + elseif GlobalCardMode == 7 then + GlobalCardMode = 6 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 6 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_BANISH,SpecterTornadoFilter6) + elseif GlobalCardMode == 5 then + GlobalCardMode = 4 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 4 then + GlobalCardMode = nil + return FindID(50720316,cards,true) + elseif GlobalCardMode == 3 then + GlobalCardMode = 2 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 2 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_BANISH,SpecterTornadoFilter2) + elseif GlobalCardMode == 1 then + GlobalCardMode = nil + return BestTargets(cards,1,PRIO_BANISH) + else + return BestTargets(cards,1,TARGET_BANISH,SpecterTornadoFilter) + end +end + +function SStormTarget(cards) + if GlobalCardMode == 9 then + GlobalCardMode = 8 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 8 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_TODECK) --SStormFilter6 + elseif GlobalCardMode == 7 then + GlobalCardMode = 6 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 6 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_TODECK,SStormFilter5) + elseif GlobalCardMode == 5 then + GlobalCardMode = 4 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 4 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_TODECK,SStormFilter4) + elseif GlobalCardMode == 3 then + GlobalCardMode = 2 + return BestTargets(cards,1,PRIO_BANISH) + elseif GlobalCardMode == 2 then + GlobalCardMode = nil + return FindID(83531443,cards,true) + elseif GlobalCardMode == 1 then + GlobalCardMode = nil + return BestTargets(cards,1,PRIO_BANISH) + end + return BestTargets(cards,1,TARGET_TODECK) +end + +function SpecterTemtempoTarget(cards) + if GlobalCardMode == 10 then + GlobalCardMode = 9 + return Add(cards,PRIO_TOGRAVE) + elseif GlobalCardMode == 9 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_OTHER) + elseif GlobalCardMode == 8 then + GlobalCardMode = 7 + return Add(cards,PRIO_TOGRAVE) + elseif GlobalCardMode == 7 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_OTHER,SpecterTemtempoFilter4) + elseif GlobalCardMode == 6 then + GlobalCardMode = 5 + return Add(cards,PRIO_TOGRAVE) + elseif GlobalCardMode == 5 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_OTHER,SpecterTemtempoFilter3) + elseif GlobalCardMode == 4 then + GlobalCardMode = 3 + return Add(cards,PRIO_TOGRAVE) + elseif GlobalCardMode == 3 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_OTHER,SpecterTemtempoFilter2) + elseif GlobalCardMode == 2 then + GlobalCardMode = 1 + return Add(cards,PRIO_TOGRAVE) + elseif GlobalCardMode == 1 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_OTHER,SpecterTemtempoFilter1) + end + return BestTargets(cards,1,TARGET_TOGRAVE) +end + +function SpecterPhantomTarget(cards) + if LocCheck(cards,LOCATION_OVERLAY) then + return Add(cards,PRIO_TOGRAVE) + elseif GlobalCardMode == 7 then + GlobalCardMode = 6 + return BestTargets(cards,1,PRIO_BANISH,InsightfulPhantomAllyFilter) + elseif GlobalCardMode == 6 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_DESTROY,InsightfulPhantomEnemyFilter) + elseif GlobalCardMode == 5 then + GlobalCardMode = 4 + return BestTargets(cards,1,PRIO_BANISH,AllyPhantomFilter3) + elseif GlobalCardMode == 4 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_DESTROY,SpecterPhantomFilter2) + elseif GlobalCardMode == 3 then + GlobalCardMode = 2 + return BestTargets(cards,1,PRIO_BANISH,AllyPhantomFilter2) + elseif GlobalCardMode == 2 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_DESTROY,SpecterPhantomFilter2) + elseif GlobalCardMode == 1 then + GlobalCardMode = nil + return BestTargets(cards,1,PRIO_BANISH,AllyPhantomFilter) + else + return BestTargets(cards,1,TARGET_DESTROY,SpecterPhantomFilter) + end +end + +function SpecterMajesterTarget(cards) + if MajesterAddInsight() then + return FindID(72714461,cards,true) + elseif NeedsRaccoon() or (NeedsScale5() and not NeedsScale2()) or (NeedsScale2() and not NeedsScale5()) then + return FindID(31991800,cards,true) + elseif NeedsSStormOverSCyclone() and HasID(AIDeck(),68395509,true) and not HasID(AIST(),36183881,true) then + return FindID(68395509,cards,true) + elseif NeedsFox() then + return FindID(94784213,cards,true) + elseif MajesterAddPeasant() then + return FindID(14920218,cards,true) + else + return BestTargets(cards,1,PRIO_BANISH,SpecterMonsterFilter) + end +end + + +function SpecterGranpulseTarget(cards) + if LocCheck(cards,LOCATION_OVERLAY) then + return Add(cards,PRIO_TOGRAVE) + elseif EnemyHasSpecterCounterCardST() then + return BestTargets(cards,1,TARGET_DESTROY,EnemyHasSpecterCounterCardSTFilter) + elseif CardsMatchingFilter(OppST(),SpecterMonsterVersusOppSTSmartFilter)>0 then + return BestTargets(cards,1,TARGET_DESTROY,SpecterMonsterVersusOppSTSmartFilter) + elseif EnemyHasSkillDrain() then + return BestTargets(cards,1,TARGET_DESTROY,EnemyHasSkillDrainFilter) + elseif SpecterGranpulseTargetASF() then + return BestTargets(cards,1,TARGET_DESTROY,EnemyASF) + elseif CardsMatchingFilter(OppST(),OppDownBackrowFilter)>0 and Duel.GetTurnCount() ~= SpecterGlobalPendulum and HasScales() then + return BestTargets(cards,1,TARGET_DESTROY,OppDownBackrowFilter) + elseif CardsMatchingFilter(OppST(),SpecterGranpulseFilter)>0 and Duel.GetTurnCount() == SpecterGlobalPendulum and OppHasScales() then + return BestTargets(cards,1,TARGET_DESTROY,SpecterGranpulseFilter) + elseif EnemyHasDestinyBoard() then + return BestTargets(cards,1,TARGET_DESTROY,EnemyHasDestinyBoardFilter) + elseif EnemyHasStall() then + return BestTargets(cards,1,TARGET_DESTROY,EnemyHasStallFilter) + elseif CardsMatchingFilter(OppST(),OppBackrowFilter)>0 and Duel.GetTurnCount() == SpecterGlobalPendulum then + return BestTargets(cards,1,TARGET_DESTROY,OppBackrowFilter) + end + return BestTargets(cards,1,TARGET_DESTROY) +end + +function SpecterDragonpitTarget(cards) + if GlobalCardMode == 15 then + GlobalCardMode = 14 + return DragonpitDiscardLogic(cards) + elseif GlobalCardMode == 14 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_DESTROY,SpecterSpellVersusOppSTSmartFilter) + elseif GlobalCardMode == 13 then + GlobalCardMode = 12 + return DragonpitDiscardLogic(cards) + elseif GlobalCardMode == 12 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_DESTROY,EnemyHasSpecterCounterCardSTFilter) + elseif GlobalCardMode == 11 then + GlobalCardMode = 10 + return DragonpitDiscardLogic(cards) + elseif GlobalCardMode == 10 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_DESTROY,EnemyASF) + elseif GlobalCardMode == 9 then + GlobalCardMode = 8 + return DragonpitDiscardLogic(cards) + elseif GlobalCardMode == 8 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_DESTROY,EnemyHasSkillDrainFilter) + elseif GlobalCardMode == 7 then + GlobalCardMode = 6 + return DragonpitDiscardLogic(cards) + elseif GlobalCardMode == 6 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_DESTROY,EnemyHasDestinyBoardFilter) + elseif GlobalCardMode == 5 then + GlobalCardMode = 4 + return DragonpitDiscardLogic(cards) + elseif GlobalCardMode == 4 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_DESTROY,EnemyHasStallFilter) + elseif GlobalCardMode == 3 then + GlobalCardMode = 2 + return DragonpitDiscardLogic(cards) + elseif GlobalCardMode == 2 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_DESTROY,DragonpitVanitysTargetFilter) + elseif GlobalCardMode == 1 then + GlobalCardMode = nil + return DragonpitDiscardLogic(cards) + end + return BestTargets(cards,1,TARGET_DESTROY,OppDownBackrowFilter) +end + +function DragonpitDiscardLogic(cards) + if CardsMatchingFilter(AIHand(),MagicianPendulumFilter)>0 then + return Add(cards,PRIO_TOGRAVE) + elseif HasID(AIHand(),00645794,true) then + return BestTargets(cards,1,true,function(c) return c.id==00645794 end) + elseif HasID(AIHand(),05506791,true) then + return BestTargets(cards,1,true,function(c) return c.id==05506791 end) + elseif HasID(AIHand(),68395509,true) then + return BestTargets(cards,1,true,function(c) return c.id==68395509 end) + else + return Add(cards,PRIO_TOGRAVE) + end +end + + +function FoxTarget(cards) --Fox just really wants to give a targeting error. What better solution than to force targets? + if EnableKozmoFunctions() and HasID(AIDeck(),02572890,true) then + return FindID(02572890,cards,true) +--[[ elseif not HasSTempest() then + return FindID(02572890,cards,true) + elseif not HasSTornado() then + return FindID(36183881,cards,true) + elseif not HasSCell() then + return FindID(78949372,cards,true)]] + elseif SpecterPriorityCheck(AIDeck(),PRIO_TOHAND,1,SpecterTrapPriorityFilter)>1 then + return Add(cards,PRIO_TOHAND) + end + return {math.random(#cards)} +end + +function CrowTarget(cards) + if NeedsSStormOverSCyclone() then + return FindID(13972452,cards,true) + elseif SpecterPriorityCheck(AIDeck(),PRIO_TOHAND,1,SpecterSpellPriorityFilter)>1 then + return Add(cards,PRIO_TOHAND) + end + return {math.random(#cards)} +end + +function ToadTarget(cards) + if EnableKozmoFunctions() and HasID(AIDeck(),02572890,true) then + return FindID(02572890,cards,true) + elseif EnemyHasTimeRafflesia() and HasID(AIDeck(),49366157,true) and not UsableSStorm() and not HasID(AIHand(),12580477,true) then + return FindID(49366157,cards,true) + elseif EnemyHasTimeRafflesia() and HasID(AIDeck(),13972452,true) and not UsableSCyclone() and not HasID(AIHand(),12580477,true) then + return FindID(13972452,cards,true) +--[[ elseif not HasSTempest() then + return FindID(02572890,cards,true) + elseif not HasSTornado() then + return FindID(36183881,cards,true) + elseif not HasSCell() then + return FindID(78949372,cards,true)]] + elseif SpecterPriorityCheck(AIDeck(),PRIO_TOFIELD,1,SpecterTrapPriorityFilter)>1 then + return Add(cards,PRIO_TOFIELD) + elseif SpecterPriorityCheck(AIDeck(),PRIO_TOFIELD,1,SpecterSpellPriorityFilter)>1 then + return Add(cards,PRIO_TOFIELD) + end + return {math.random(#cards)} +end + +function SpecterChidoriTarget(cards) + if LocCheck(cards,LOCATION_OVERLAY) then + return Add(cards,PRIO_TOGRAVE) + elseif GlobalCardMode == 1 then + GlobalCardMode = nil + return BestTargets(cards,1,TARGET_TODECK,SpecterChidoriFilter2) + elseif CardsMatchingFilter(OppST(),OppDownBackrowFilter)>0 then + return BestTargets(cards,1,TARGET_TODECK,OppDownBackrowFilter) + end + return BestTargets(cards,1,TARGET_TODECK,SpecterChidoriFilter1) +end + +function SpecterCallToGravePriority(card) --Choose which card is best for Pendulum Call's discard effect. + local id=card.id + if id==53208660 then --Pendulum Call duplicate + return 13 + end + if id==76473843 and MajestyDiscardAvailable() then --Field Spell duplicate + return 14 + end + if id==51531505 then --Dragonpit 8 + return 12 + end + if id==15146890 then --Dragonpulse 1 + return 8 + end + if id==14920218 then --Peasant 2 + return 6 + end + if id==13972452 then --Specter Storm + return 10 + end + if id==19665973 then --Fader + return 7 + end + if id==02572890 then --Tempest + return 5 + end + if id==36183881 then --Tornado + return 9 + end + if id==49366157 then --SCyclone + return 11 + end + if id==72714461 then --Insight + return 8 + end + if id==40318957 then --Joker + return 4 + end + if id==68395509 then --Crow + if CardsMatchingFilter(UseLists({AIHand(),AIExtra()}),function(c) return c.id==68395509 end)>1 then + return 4 + else + return 3 + end + end + if id==00645794 then --Crow + if CardsMatchingFilter(UseLists({AIHand(),AIExtra()}),function(c) return c.id==00645794 end)>1 then + return 4 + else + return 2 + end + end + if id==05506791 then --Crow + if CardsMatchingFilter(UseLists({AIHand(),AIExtra()}),function(c) return c.id==05506791 end)>1 then + return 4 + else + return 1 + end + end + return GetPriority(card,PRIO_TOGRAVE) +end + +function SpecterCallDiscardAssignPriority(cards,toLocation) + local func = nil + if toLocation==LOCATION_GRAVE then + func = SpecterCallToGravePriority + end + for i=1,#cards do + cards[i].priority=func(cards[i]) + end +end + +function SpecterCallDiscardToGrave(cards,amount) --Discard for Pendulum Call + local result = {} + for i=1,#cards do + cards[i].index=i + end + SpecterCallDiscardAssignPriority(cards,LOCATION_GRAVE) + table.sort(cards,function(a,b) return a.priority>b.priority end) + for i=1,amount do + result[i]=cards[i].index + end + if result == nil then result = Add(cards,PRIO_TOGRAVE) end + return result +end + +function SpecterPendulumCallTarget(cards) --Xaddgx + if GlobalCardMode == 1 then + GlobalCardMode = nil + return SpecterCallDiscardToGrave(cards,1) + else + return Add(cards,PRIO_TOHAND) + end +end + +function RaccoonAddPriority(card) --Choose which card is best for Raccoon's add effect. + local id=card.id + if NeedsScale5() then + if id==00645794 then --Toad + return 10 + elseif id==68395509 then --Crow + return 9 + elseif id==31991800 then --Raccoon + return 8 + end + end + if NeedsScale2() then + if id==05506791 then --Cat + return 10 + elseif id==94784213 then --Fox + return 9 + end + end + return GetPriority(card,PRIO_TOHAND) +end + +function RaccoonAddAssignPriority(cards,toLocation) + local func = nil + if toLocation==LOCATION_HAND then + func = RaccoonAddPriority + end + for i=1,#cards do + cards[i].priority=func(cards[i]) + end +end + +function RaccoonAdd(cards,amount) + local result = {} + for i=1,#cards do + cards[i].index=i + end + RaccoonAddAssignPriority(cards,LOCATION_HAND) + table.sort(cards,function(a,b) return a.priority>b.priority end) + for i=1,amount do + result[i]=cards[i].index + end + return result +end + +function InsightMagicianPriority(card) --Choose which card is best for Insight's effect. + local id=card.id + if id==51531505 then + if (HasID(AIST(),15146890,true) or HasID(AIST(),14920218,true)) then + return 10 + else + return 2 + end + end + if id==15146890 then + if HasID(AIST(),51531505,true) then + return 8 + else + return 3 + end + end + if id==14920218 then + if HasID(AIST(),51531505,true) then + return 9 + else + return 4 + end + end + return GetPriority(card,PRIO_TOGRAVE) +end + +function InsightMagicianAssignPriority(cards,toLocation) + local func = nil + if toLocation==LOCATION_GRAVE then + func = InsightMagicianPriority + end + for i=1,#cards do + cards[i].priority=func(cards[i]) + end +end + +function InsightMagicianTargeting(cards,amount) + local result = {} + for i=1,#cards do + cards[i].index=i + end + InsightMagicianPriority(cards,LOCATION_GRAVE) + table.sort(cards,function(a,b) return a.priority>b.priority end) + for i=1,amount do + result[i]=cards[i].index + end + return result +end + +function SpecterPeasantTargeting(cards) + if GlobalCardMode == 2 then + GlobalCardMode = nil + return SpecterPeasantTargetGrave(cards) + elseif GlobalCardMode == 1 then + GlobalCardMode = nil + return SpecterPeasantTargetExtra(cards) + end + return Add(cards,PRIO_TOHAND) +end + + +function SpecterPeasantTargetGrave(cards) --Applies to both effects + if HasID(AIGrave(),72714461,true) and Duel.GetTurnCount() == SpecterGlobalPendulum then + return FindID(72714461,cards,true) + elseif HasID(AIGrave(),51531505,true) and OPTCheck(51531505) and HasID(AIST(),51531505,true) then + return FindID(51531505,cards,true) + elseif HasID(AIGrave(),15146890,true) then + return FindID(15146890,cards,true) + end + return Add(cards,PRIO_TOHAND) +end + +function SpecterPeasantTargetExtra(cards) + if HasID(AIExtra(),72714461,true) and Duel.GetTurnCount() == SpecterGlobalPendulum then + return FindID(72714461,cards,true) + elseif HasID(AIExtra(),51531505,true) and OPTCheck(51531505) and HasID(AIST(),51531505,true) then + return FindID(51531505,cards,true) + elseif HasID(AIExtra(),15146890,true) then + return FindID(15146890,cards,true) + end + return Add(cards,PRIO_TOHAND) +end + +function SpecterJokerTarget(cards) --Choose which target is best for Joker's effect. + if MajesterAddInsight() then + return FindID(72714461,cards,true) + elseif SpecterJokerAddInsight() then + return FindID(72714461,cards,true) + elseif NeedsScale5() then + return FindID(51531505,cards,true) + elseif NeedsScale2() then + return FindID(14920218,cards,true) + elseif CardsMatchingFilter(AIST(),ScaleHighFilter)==0 and not NeedsScale2() and not NeedsScale5() then + return FindID(51531505,cards,true) + end + return Add(cards,PRIO_TOHAND) +end + +function SpecterCard(cards,min,max,id,c,minTargets,maxTargets,triggeringID,triggeringCard) + if GlobalPendulumSummoningSpecter and Duel.GetCurrentChain()==0 then + GlobalPendulumSummoningSpecter = nil + local x = CardsMatchingFilter(cards,NotJokerMonsterFilter) + if (CardsMatchingFilter(OppMon(),EnemySummonNegatorMonFilter)>0 and not UsableSTempest()) or EnemyHasTimeRafflesia() then + AITrashTalk("Hmm...") + x = math.min(x,1) + if PendulumRaccoon() then + return FindID(31991800,cards,true) + elseif PendulumCrow() then + return FindID(68395509,cards,true) + elseif PendulumFox() then + return FindID(94784213,cards,true) + elseif PendulumToad() then + return FindID(00645794,cards,true) + elseif PendulumCat() then + return FindID(05506791,cards,true) + elseif PendulumPeasant() then + return FindID(14920218,cards,true) + else + return Add(cards,PRIO_TOFIELD,x) + end + end + if HasID(AIExtra(),40318957,true) then + local x = CardsMatchingFilter(cards,AllMonsterFilter) + end + x = math.min(x,max) + return Add(cards,PRIO_TOFIELD,x) + end + if id == 31991800 then --Raccoon + return RaccoonTarget(cards) + end + if id == 94784213 then --Fox + return FoxTarget(cards) + end + if id == 18326736 then --Ptolemaeus + return SpecterPtolemaeusTarget(cards) + end + if GlobalPaladinOverride and AI.GetCurrentPhase() == PHASE_END then --Majester Paladin + GlobalPaladinOverride = nil + return SpecterMajesterTarget(cards) + end + if GlobalCatOverride and AI.GetCurrentPhase() == PHASE_END and not OPTCheck(05506791) then --Cat + GlobalCatOverride = nil + return CatTarget(cards) + end + if id == 76473843 then --Field Spell + return MajestyTarget(cards) + end + if id == 53208660 then --Pendulum Call + return SpecterPendulumCallTarget(cards) + end + if id == 72714461 then --Insight + return InsightTarget(cards) + end + if id == 02572890 then --Specter Tempest + return Add(cards,PRIO_BANISH) + end + if id == 78949372 then --Specter Supercell + return SCellTarget(cards,min,max) + end + if id == 85252081 then --Granpulse + return SpecterGranpulseTarget(cards) + end + if id == 00645794 then --Toad + return ToadTarget(cards) + end + if id == 68395509 then --Crow + return CrowTarget(cards) + end + if id == 62709239 then --Phantom Knights XYZ + return SpecterPhantomTarget(cards) + end + if id == 36183881 then --Specter Tornado + return STornadoTarget(cards) + end + if id == 49366157 then --Specter Cyclone + return SCycloneTarget(cards) + end + if id == 52558805 then --Temtempo + return SpecterTemtempoTarget(cards) + end + if id == 13972452 then --Specter Storm + return SStormTarget(cards) + end + if id == 51531505 then --Dragonpit + return SpecterDragonpitTarget(cards) + end + if id == 14920218 then --Peasant + return SpecterPeasantTargeting(cards) + end + if id == 93568288 then --Number 80: Rhapsody in Berserk + return SpecterRhapsodyTarget(cards) + end + if id == 40318957 then --Joker + return SpecterJokerTarget(cards) + end + if id == 22653490 then --Chidori + return SpecterChidoriTarget(cards) + end + if SpecterGlobalMaterial then + SpecterGlobalMaterial = nil + return SpecterOnSelectMaterial(cards,min,max) + end +--[[ if Duel.GetCurrentPhase() == PHASE_END then + for i=1,Duel.GetCurrentChain() do + e = Duel.GetChainInfo(i, CHAININFO_TRIGGERING_EFFECT) + if Duel.GetOperationInfo(i,CATEGORY_SEARCH) then + if not OPTCheck(88722973) then + return SpecterMajesterTarget(cards) + elseif not OPTCheck(05506791) then + return CatTarget(cards) + end + end + end + end]] + return nil +end + +SpecterAtt={ +15146890, +94784213, +00645794, +31991800, +34945480, +16195942, +84013237, +56832966, +31437713, +62709239, +71068247, +52558805, +21044178, +14920218, +40318957, +} +--Dragonpulse, Fox, Toad +--Raccoon, Azathoth, Rebellion XYZ +--Utopia, Utopia Lightning, Heartlanddraco +--Phantom XYZ, Totem Bird, Temtempo, Abyss Dweller, +--Peasant, Joker +SpecterDef={ +51531505, +05506791, +19665973, +18326736, +85252081, +93568288, +12014404, +} +--Dragonpit, Cat, Fader, +--Ptolemaeus, Granpulse, Rhapsody, +--Cowboy +function SpecterPosition(id,available) + local result + for i=1,#SpecterAtt do + if SpecterAtt[i]==id + then + result=POS_FACEUP_ATTACK + end + end + for i=1,#SpecterDef do + if SpecterDef[i]==id + then + result=POS_FACEUP_DEFENSE + end + end + if id == 68395509 then + if CrowAttack() then + result=POS_FACEUP_ATTACK + else + result=POS_FACEUP_DEFENSE + end + end + if id == 88722973 then + if MajesterAttack() then + result=POS_FACEUP_ATTACK + else + result=POS_FACEUP_DEFENSE + end + end + return result +end + +function UseRaccoon() + return OPTCheck(31991800) +end + +function UseFox() + return OPTCheck(94784213) +end + +function UseCrow() + return OPTCheck(68395509) +end + +function UseCat() + return OPTCheck(05506791) +end + +function UseToad() + return OPTCheck(00645794) +end + +function UseMajester() + return true +end + +function UsePeasantMon() + return true +end + +function UseJoker() + return true +end + +function SpecterEffectYesNo(id,card) + local result + if id == 31991800 and (NeedsScale5() or NeedsScale2()) and not HasID(AIHand(),53208660,true) then --Add based on the last needed Pendulum Scale + OPTSet(31991800) + GlobalCardMode = 1 + result = 1 + end + if id == 31991800 and UseRaccoon() then --Add based on priority + OPTSet(31991800) + result = 1 + end + if id == 68395509 and UseCrow() then + OPTSet(68395509) + result = 1 + end + if id == 94784213 and UseFox() then + OPTSet(94784213) + result = 1 + end + if id == 00645794 and UseToad() then + OPTSet(00645794) + result = 1 + end + if id == 05506791 and UseCat() then + OPTSet(05506791) + GlobalCatOverride = true + result = 1 + end + if id == 78949372 then --Specter Supercell + result = 1 + end + if id == 14920218 and UsePeasantMon() then --Peasant + GlobalCardMode = 2 + result = 1 + end + if id == 88722973 then --Majester Paladin + OPTSet(88722973) + GlobalPaladinOverride = true + result = 1 + end + if id == 40318957 and UseJoker() then --Joker + OPTSet(40318957) + result = 1 + end + return result +end + +function SpecterChain(cards) + if HasIDNotNegated(cards,18326736,EndPhasePtolemaeus) then + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,18326736,PtolemaeusAzathoth) then --Summon Azathoth on opponent's turn + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,78949372,UseSCell) then --Specter Supercell + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,02572890,SpecterChainNegationTempest) and not TasukeOpponentCheck() then --Specter Tempest + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,02572890,ChainTempestLastStrix) then --Versus Raidraptors + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,02572890,ChainTempestKozmo) then --Versus Kozmos + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,02572890,ChainTempestRafflesia) then --Versus Traptrix Rafflesia + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,71068247,SpecterChainNegationTempest) then --Totem Bird + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,05650082,ChainStormingMirror) then --Storming Mirror Force + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,56832966,SpecterChainUtopiaLightning) then --Utopia Lightning + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,49366157,ChainSpecterCyclone8) then --Versus monsters that cannot be killed through battle + GlobalCardMode = 1 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,36183881,ChainSpecterTornado8) then --Versus monsters that cannot be killed through battle + GlobalCardMode = 1 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,49366157,ChainSpecterCyclone7) then --Versus useless monsters + GlobalCardMode = 17 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,36183881,ChainSpecterTornado7) then --Versus useless monsters + GlobalCardMode = 17 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,49366157,ChainSpecterCyclone6) then --Versus unaffected attackers + GlobalCardMode = 17 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,36183881,ChainSpecterTornado6) then --Versus unaffected attackers + GlobalCardMode = 17 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,49366157,ChainSpecterCyclone5) then --Versus Summon negators + GlobalCardMode = 15 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,36183881,ChainSpecterTornado5) then --Versus Summon negators + GlobalCardMode = 15 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,02572890,ChainSTempestBA) then --Versus Burning Abyss + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,36183881,ChainSTornadoDante) then --Versus Burning Abyss + GlobalCardMode = 13 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,49366157,ChainSCycloneDante) then --Versus Burning Abyss + GlobalCardMode = 13 +-- GlobalMurderDante = true + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,49366157,ChainSCycloneLastStrix) then --Versus Raidraptors + GlobalCardMode = 11 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,36183881,ChainSTornadoLastStrix) then --Versus Raidraptors + GlobalCardMode = 11 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,49366157,ChainSCycloneLibrary) and GlobalExodiaTrashTalked then --Reading rainbow + AITrashTalk("In life, learning from your mistakes will go a long way. Have you learned yet?") + GlobalCardMode = 9 + return {1,IndexByID(cards,49366157)} + end + if HasIDNotNegated(cards,36183881,ChainSTornadoLibrary) and GlobalExodiaTrashTalked then --Reading rainbow + AITrashTalk("In life, learning from your mistakes will go a long way. Have you learned yet?") + GlobalCardMode = 9 + return {1,IndexByID(cards,36183881)} + end + if HasIDNotNegated(cards,49366157,ChainSCycloneLibrary) and not GlobalExodiaTrashTalked then --Reading rainbow + GlobalExodiaTrashTalk = true + AITrashTalk("Exodiuhhh...") + GlobalCardMode = 9 + return {1,IndexByID(cards,49366157)} + end + if HasIDNotNegated(cards,36183881,ChainSTornadoLibrary) and not GlobalExodiaTrashTalked then --Reading rainbow + GlobalExodiaTrashTalk = true + AITrashTalk("Exodiuhhh...") + GlobalCardMode = 9 + return {1,IndexByID(cards,36183881)} + end + if HasIDNotNegated(cards,36183881,TornadoShadowMist) and GlobalHeroTrashTalk then --End Phase, HERO trash talk. + GlobalHeroTrashTalk = nil + GlobalCardMode = 5 + AITrashTalk("My favorite Harry Potter character was HERO-N WEASLEY.") + return {1,IndexByID(cards,36183881)} + end + if HasIDNotNegated(cards,49366157,CycloneShadowMist) and GlobalHeroTrashTalk then --End Phase, HERO trash talk. + GlobalHeroTrashTalk = nil + GlobalCardMode = 5 + AITrashTalk("My favorite Harry Potter character was HERO-N WEASLEY.") + return {1,IndexByID(cards,49366157)} + end + if HasIDNotNegated(cards,36183881,ChainSpecterTornado2) then --Specter Tornado + GlobalCardMode = 3 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,36183881,ChainSpecterTornado) or HasIDNotNegated(cards,36183881,ChainSpecterTornado3) then --Specter Tornado + GlobalCardMode = 1 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,49366157,ChainSpecterCyclone2) then --Specter Cyclone + GlobalCardMode = 3 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,49366157,ChainSpecterCyclone) or HasIDNotNegated(cards,36183881,ChainSpecterCyclone3) then --Specter Cyclone + GlobalCardMode = 1 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,49366157,ChainSpecterCyclone4) then --Specter Cyclone + GlobalCardMode = 7 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,36183881,ChainSpecterTornado4) then --Specter Tornado + GlobalCardMode = 7 + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,21044178,ChainSpecterAbyss) then --Abyss Dweller + OPTSet(21044178) + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,02572890,ChainTempestLibrary) and GlobalExodiaTrashTalked then + AITrashTalk("In life, learning from your mistakes will go a long way. Have you learned yet?") + return {1,IndexByID(cards,02572890)} + end + if HasIDNotNegated(cards,02572890,ChainTempestLibrary) and not GlobalExodiaTrashTalked then + GlobalExodiaTrashTalk = true + AITrashTalk("Exodiuhhh...") + return {1,IndexByID(cards,02572890)} + end + if SpecterHeroTrashTalk() then + GlobalHeroTrashTalk = true +-- AITrashTalk("Do you really see nothing wrong with what you just did?") +-- AITrashTalk("...Sure.") + AITrashTalk("You must have some intense plan lined up for me.") + end + if HasIDNotNegated(cards,02572890) and DetectShadowMist() and GlobalHeroTrashTalk then + GlobalHeroTrashTalk = nil + AITrashTalk("My favorite Harry Potter character was HERO-N WEASLEY.") + return {1,CurrentIndex} + end + if GlobalHeroTrashTalk and Duel.GetTurnCount() == 3 then + GlobalHeroTrashTalk = nil + AITrashTalk("My favorite Harry Potter character was HERO-N WEASLEY.") + end + if GlobalExodiaTrashTalk and LibraryRemoved() and not GlobalExodiaTrashTalked then + GlobalExodiaTrashTalk = nil + GlobalExodiaTrashTalked = true + AITrashTalk("Don't worry, you can just surrender and try Exodia Library again.") + AITrashTalk("Not like I'll remember that you've done this before, anyways.") + end + if #OppDeck()<=10 and not GlobalExodiaLoss and HasID(OppMon(),70791313,true) then + GlobalExodiaLoss = true + AITrashTalk("I always knew you librarians were evil.") + end + if HasIDNotNegated(cards,52558805,SpecterChainTemtempo1) then --Temtempo 1, chain to single materials. + GlobalCardMode = 2 + AITrashTalk("Take a vote on whether or not you like this on a Temtempoll.") + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,52558805,SpecterChainTemtempo2) then --Temtempo 2, chain to double materials. + GlobalCardMode = 4 + AITrashTalk("Take a vote on whether or not you like this on a Temtempoll.") + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,52558805,SpecterChainTemtempo3) then --Temtempo 3, chain on opponent's turn to double materials. + GlobalCardMode = 6 + AITrashTalk("Look buddy, there's not a lot of puns I can make out of Temtempo.") + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,52558805,SpecterChainTemtempo4) then --Temtempo 4, chain on opponent's turn to triple materials (only Utopia Lightning currently) + GlobalCardMode = 8 + AITrashTalk("Utopia Lightning? Then check out this ELECTRIFYING maneuver!") + return {1,CurrentIndex} + end + if HasIDNotNegated(cards,52558805,SpecterChainTemtempo5) then --Temtempo 5, chain instantly for all other cards that don't meet the other conditions + GlobalCardMode = 10 +-- AITrashTalk("I have no witty comment here. Why don't you submit one on the forums for me?") + return {1,CurrentIndex} + end + if EnemyUltimateFalconFirstTurn() and not FalconFirstTurnTalk then + FalconFirstTurnTalk = true + AITrashTalk("On the first turn? Buddy. Pal. Friend. Do you truly hate me this much, Raidraptor guy?") + end + if EnemyUltimateFalcon() and Duel.GetTurnCount() ~= 1 and not FalconGeneralTalk and not FalconFirstTurnTalk then + FalconGeneralTalk = true + AITrashTalk("You got that card against Majespecters? Bravo. I have no idea how I let you get that, Raidraptor guy.") + end + if UsedUtopiaLightning() and HasID(OppGrave(),86221741,true) and not EnemyUltimateFalcon() and not FalconDestroyTalk then + FalconDestroyTalk = true + AITrashTalk("Looks like your Ultimate Falcon... just paid the Ultimate Price.") + end + if UsedUtopiaLightning2() and HasID(OppGrave(),86221741,true) and not EnemyUltimateFalcon() and not FalconDestroyTalk2 then + FalconDestroyTalk2 = true +-- AITrashTalk("You know you smirked, don't try to cover it up.") + end + if EnemyUltimateFalcon() and FalconDestroyTalk and not FalconReviveTalk then + FalconReviveTalk = true + AITrashTalk("Let's start a petition, you and me. We'll rename that card to Ultimate Falcongress.") + AITrashTalk("Why? Because it dictates everything.") + end + if TasukeOpponentCheck() then + TasukeOpponentActivated = true + AITrashTalk("The legendary Tasuke Samurai #420 has arrived.") + end + if SpecterStardustSparkTrace() and not StardustSparkTalk then + StardustSparkTalk = true + AITrashTalk("The Stardust Spark that lights the fire!?") + end + if RemovalCheck(84013237) and DoubleUtopiaActivated then + AITrashTalk("Excellent save. Surely you have forged a Utopia for yourself.") + DoubleUtopiaActivated = false + end + if RemovalCheck(56832966) and DoubleUtopiaActivated then + AITrashTalk("Excellent save. Surely you have forged a Utopia for yourself.") + DoubleUtopiaActivated = false + end + if SpecterOneDayTrace() and not SpecterPeaceTalk then + AITrashTalk("Sheriff, I ain't exactly a peaceful robot.") + SpecterPeaceTalk = true + end + if SpecterPeaceTalk and Duel.GetTurnPlayer()==player_ai and not SpecterPeaceTurn then + SpecterPeaceTurn = true + SpecterPeaceTalk = false + end + if SpecterPeaceTurn and Duel.GetTurnPlayer()==1-player_ai then + SpecterPeaceTurn = false + end + return nil +end + +function SpecterLightningAttackTarget(cards,source,ignorebonus,filter,opt) + local atk = source.attack + if ignorebonus and source.bonus and source.bonus > 0 then + atk = math.max(0,atk - source.bonus) + end + local result = nil + for i=1,#cards do + local c = cards[i] + c.index = i + if FilterPosition(c,POS_FACEUP_ATTACK) then + if c.attack0 and not BattleTargetCheck(c,source) then + c.prio = -4 + end + if not AttackBlacklistCheck(c,source) then + c.prio = (c.prio or 0)-99999 + end + if CanFinishGame(source,c) then + c.prio=99999 + end + if c.prio and c.prio>0 and FilterPublic(c) then + if FilterType(c,TYPE_SYNCHRO+TYPE_RITUAL+TYPE_XYZ+TYPE_FUSION) then + c.prio = c.prio + 1 + end + if FilterType(c,TYPE_EFFECT) then + c.prio = c.prio + 1 + end + if c.level>4 then + c.prio = c.prio + 1 + end + end + if CurrentOwner(c)==1 then + c.prio = -1*c.prio + end + end + table.sort(cards,function(a,b) return a.prio > b.prio end) + result={cards[1].index} + return result +end + +function SpecterAttackTarget(cards,attacker) + local id = attacker.id + local result ={attacker} + ApplyATKBoosts(result) + ApplyATKBoosts(cards) + result = {} + local atk = attacker.attack + if NotNegated(attacker) then + -- Double Utopia Lightning + if id == 56832966 and DoubleUtopiaActivated and CanWinBattle(attacker,cards,true,false,DoubleUtopiaAttackTargetFilter) then + return SpecterLightningAttackTarget(cards,attacker,false,DoubleUtopiaAttackTargetFilter) + end + end + return nil +end + +function SpecterBattleCommand(cards,activatable) + ApplyATKBoosts(cards) + for i=1,#cards do + cards[i].index = i + end + -- check for monsters, that cannot be attacked, or have to be attacked first. + local targets = OppMon() + local attackable = {} + local mustattack = {} + local lightning = {} + for i=1,#targets do + if targets[i]:is_affected_by(EFFECT_CANNOT_BE_BATTLE_TARGET)==0 then + attackable[#attackable+1]=targets[i] + end + if targets[i]:is_affected_by(EFFECT_MUST_BE_ATTACKED)>0 then + mustattack[#mustattack+1]=targets[i] + end + if targets[i].attack == LightningMonitorAttack + and bit32.band(targets[i].position,POS_ATTACK)>0 then + lightning[#lightning+1]=targets[i] + end + end + if #mustattack>0 then + targets = mustattack + elseif DoubleUtopiaActivated then + targets = lightning + else + targets = attackable + end + ApplyATKBoosts(targets) + -- Double Utopia Lightning + if HasIDNotNegated(cards,56832966) and CanWinBattle(cards[CurrentIndex],targets,true,false,DoubleUtopiaAttackTargetFilter) and DoubleUtopiaActivated then + return Attack(IndexByID(cards,56832966)) + end + return nil +end + +SpecterPriorityList={ +-- Priority list for your cards. You want to add all cards in your deck here, +-- or at least all cards you want to enable the Add function for. + +--PRIO_HAND = 1 +--PRIO_FIELD = 3 +--PRIO_GRAVE = 5 +--PRIO_SOMETHING = 7 +--PRIO_BANISH = 9 + [31991800] = {7,1,8,2,0,0,1,1,9,3,RaccoonCond}, --Specter Raccoon + [94784213] = {6,2,6,2,1,1,1,1,6,1,FoxCond}, --Specter Fox + [05506791] = {5,2,5,2,1,1,1,1,8,2,CatCond}, --Specter Cat + [00645794] = {3,1,3,1,1,1,1,1,3,1,ToadCond}, --Specter Toad + [68395509] = {4,1,4,1,1,1,1,1,4,1,CrowCond}, --Specter Crow + [51531505] = {3,1,0,0,9,1,1,1,1,1,DragonpitCond}, --Dragonpit Scale 8 + [15146890] = {5,2,1,1,7,1,1,1,1,1,DragonpulseCond}, --Dragonpulse Scale 1 + [19665973] = {1,1,1,1,1,1,1,1,1,1,nil}, --Fader + [72714461] = {4,2,1,1,8,1,1,1,1,1,InsightCond}, --Insight Scale 5 + [14920218] = {5,2,1,1,7,1,1,1,1,1,SpecterPeasantCond}, --Peasant Scale 2 + [40318957] = {1,1,1,1,6,1,1,1,1,1,nil}, --Joker + + [36183881] = {8,2,8,2,1,1,1,1,1,1,STornadoCond}, --Specter Tornado + [02572890] = {9,3,9,3,1,1,1,1,1,1,STempestCond}, --Specter Tempest + [49366157] = {6,2,6,2,1,1,1,1,1,1,SCycloneCond}, --Specter Cyclone + [13972452] = {5,1,5,1,1,1,1,1,1,1,SStormCond}, --Specter Storm + [78949372] = {7,4,7,4,1,1,1,1,1,1,SCellCond}, --Specter Supercell + } \ No newline at end of file diff --git a/ai/decks/MegaMonarch.lua b/ai/decks/MegaMonarch.lua index bb960c60..96cff71a 100644 --- a/ai/decks/MegaMonarch.lua +++ b/ai/decks/MegaMonarch.lua @@ -1177,7 +1177,7 @@ function ChainOriginal(c) OPTSet(54241725) return true end - if Duel.GetCurrentPhase()==PHASE_BATTLE then + if IsBattlePhase() then local aimon,oppmon = GetBattlingMons() if #AIMon()==0 and oppmon and (oppmon:GetAttack()<=2400 @@ -1479,14 +1479,14 @@ function MegaMonarchPosition(id,available) for i=1,#MegaMonarchDef do if MegaMonarchDef[i]==id then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end if id==09126351 and TurnEndCheck() then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end if id==53334641 and TurnEndCheck() then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end return result end diff --git a/ai/decks/Mermail.lua b/ai/decks/Mermail.lua index 9abc5e6b..0596a67c 100644 --- a/ai/decks/Mermail.lua +++ b/ai/decks/Mermail.lua @@ -19,7 +19,7 @@ AddPriority({ [26400609] = {6,3,4,2,6,4,5,4,0,0,TidalCond}, -- Tidal -[78868119] = {8,3,2,2,2,1,1,1,2,2,DivaCond}, -- Deep Sea Diva +[78868119] = {8,3,2,2,2,1,4,1,2,2,DivaCond}, -- Deep Sea Diva [04904812] = {4,2,2,2,2,1,5,1,3,3,UndineCond}, -- Genex Undine [68505803] = {2,1,2,2,3,1,4,1,5,5,ControllerCond}, -- Genex Controller @@ -281,7 +281,7 @@ function SquallCond(loc) end return true end -function DivaCond(loc) +function DivaCond(c,loc) if loc == PRIO_TOHAND then return ((HasIDNotNegated(AIST(),60202749,true) or FieldCheck(4)>1) @@ -289,6 +289,9 @@ function DivaCond(loc) and not NormalSummonCheck(player_ai)) or not HasID(AICards(),21565445,true) end + if loc == PRIO_TRIBUTE then + return FilterLocation(c,LOCATION_MZONE) + end return true end function UndineCond(loc) @@ -425,8 +428,13 @@ function UseTeus() return MermailPriorityCheck(AIHand(),PRIO_DISCARD,1,FilterAttribute,ATTRIBUTE_WATER)>4 end function UseLeed(card) - return bit32.band(card.location,LOCATION_HAND)>0 and MermailPriorityCheck(AIHand(),PRIO_DISCARD,3,FilterAttribute,ATTRIBUTE_WATER)>5 - and CardsMatchingFilter(AIGrave(),function(c) return bit32.band(c.setcode,0x75)>0 and bit32.band(c.type,TYPE_SPELL+TYPE_TRAP)>0 end)>0 + return FilterLocation(card,LOCATION_HAND) + and MermailPriorityCheck(AIHand(),PRIO_DISCARD,3,FilterAttribute,ATTRIBUTE_WATER)>5 + and CardsMatchingFilter(AIGrave(), + function(c) + return FilterSet(c,0x75) + and FilterType(c,TYPE_SPELL+TYPE_TRAP) + end)>0 end function LeedFilter(c) return bit32.band(c.position,POS_FACEUP_ATTACK)>0 @@ -444,7 +452,8 @@ function UseTurge(c) return TurgeCond(PRIO_TOFIELD,c) end function UseSalvage() - return MermailPriorityCheck(AIGrave(),PRIO_TOHAND,2,function(c) return bit32.band(c.attribute,ATTRIBUTE_WATER)>0 and c.attack<=1500 end)>1 + return MermailPriorityCheck(AIGrave(),PRIO_TOHAND,2, + function(c) return FilterAttribute(c,ATTRIBUTE_WATER) and c.attack<=1500 end)>1 and #AIHand()<6 and CardsMatchingFilter(AIGrave(),FilterAttribute,ATTRIBUTE_WATER)~=5 end @@ -787,7 +796,7 @@ function MermailOnSelectInit(cards, to_bp_allowed, to_ep_allowed) if HasID(SetableMon,68505803) and MermailOpenFieldCheck() then return {COMMAND_SET_MONSTER,CurrentIndex} end - if HasID(Repositionable,23899727,false,nil,nil,POS_FACEDOWN_DEFENCE) and SummonLinde() then + if HasID(Repositionable,23899727,false,nil,nil,POS_FACEDOWN_DEFENSE) and SummonLinde() then return {COMMAND_CHANGE_POS,CurrentIndex} end if HasIDNotNegated(Activatable,47826112,false,nil,LOCATION_HAND,SummonPoseidra) then @@ -1041,28 +1050,32 @@ function UseSphereBP() end function ChainSphere(c) if RemovalCheckCard(c) then + if HasID(AIDeck(),23899727,true) and LindeCond(PRIO_TOFIELD) then -- Linde + GlobalSphere = 1 + GlobalSphereID = 23899727 -- Linde + end return true end local effect = Duel.GetChainInfo(Duel.GetCurrentChain(), CHAININFO_TRIGGERING_EFFECT) if effect then local c=effect:GetHandler() - if c:IsCode(60202749) and c:IsControler(player_ai) then + if c:IsCode(60202749) and c:IsControler(player_ai) then -- Sphere return false end end if Duel.GetCurrentPhase()==PHASE_MAIN2 and Duel.CheckTiming(TIMING_MAIN_END) and Duel.GetTurnPlayer() == 1-player_ai - and HasID(AIDeck(),23899727,true) and LindeCond(PRIO_TOFIELD) + and HasID(AIDeck(),23899727,true) and LindeCond(PRIO_TOFIELD) -- Linde then GlobalSphere = 1 - GlobalSphereID = 23899727 + GlobalSphereID = 23899727 -- Linde return true end - if Duel.GetCurrentPhase() == PHASE_BATTLE and Duel.GetTurnPlayer() == 1-player_ai + if IsBattlePhase() and Duel.GetTurnPlayer() == 1-player_ai --and HasID(AIDeck(),23899727,true) and LindeCond(PRIO_TOFIELD) then if Duel.GetAttacker() and #AIMon()==0 then GlobalSphere = 1 - GlobalSphereID = 23899727 + GlobalSphereID = 23899727 -- Linde return true end end @@ -1098,7 +1111,7 @@ function ChainMechquipped(c) GlobalTargetSet(targets[1],AIMon()) return true end - if Duel.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then local aimon,oppmon = GetBattlingMons() if WinsBattle(oppmon,aimon) and aimon.id ~= 23899727 @@ -1122,7 +1135,7 @@ function ChainMechquipped(c) return false end function ChainKappa() - if Duel.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then local source = Duel.GetAttacker() local target = Duel.GetAttackTarget() if source and target then @@ -1152,7 +1165,7 @@ local effect = Duel.GetChainInfo(Duel.GetCurrentChain(), CHAININFO_TRIGGERING_EF return true end end - if Duel.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then if Duel.GetTurnPlayer()==player_ai then local cards=OppMon() for i=1,#cards do @@ -1209,9 +1222,9 @@ function ChainDweller(c,mode) then cat={CATEGORY_TOGRAVE,CATEGORY_DESTROY} for j=1,2 do - local ex,cg=Duel.GetOperationInfo(i,car[j]) + local ex,cg=Duel.GetOperationInfo(i,cat[j]) if ex then - local c = CardFromScript(cg:GetFirst()) + local c = GetCardFromScript(cg:GetFirst()) if CurrentOwner(c)==2 then --print(removal by AI, chaining") return true @@ -1220,7 +1233,7 @@ function ChainDweller(c,mode) end end end - if Duel.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then local aimon,oppmon = GetBattlingMons() if WinsBattle(aimon,oppmon) or WinsBattle(oppmon,aimon) and CardsEqual(c,aimon) @@ -1349,10 +1362,10 @@ function MermailOnSelectPosition(id, available) if MermailAtt[i]==id then result=POS_FACEUP_ATTACK end end for i=1,#MermailDef do - if MermailDef[i]==id and not (Duel.GetCurrentPhase()==PHASE_BATTLE + if MermailDef[i]==id and not (IsBattlePhase() and Duel.GetTurnPlayer()==player_ai) then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end if id == 22446869 then -- Teus @@ -1363,7 +1376,7 @@ function MermailOnSelectPosition(id, available) then result=POS_FACEUP_ATTACK else - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end if id == 23899727 then -- Linde @@ -1373,7 +1386,7 @@ function MermailOnSelectPosition(id, available) then result=POS_FACEUP_ATTACK else - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end return result diff --git a/ai/decks/Monarch.lua b/ai/decks/Monarch.lua index 10e642c1..768b1d1c 100644 --- a/ai/decks/Monarch.lua +++ b/ai/decks/Monarch.lua @@ -560,7 +560,7 @@ function UseDullahan(c,mode) end end function RepoJackfrost(c,mode) - if FilterPosition(c,POS_FACEDOWN_DEFENCE) + if FilterPosition(c,POS_FACEDOWN_DEFENSE) and FieldCheck(1)>0 and HasID(AIExtra(),46895036,true,SummonDullahan,mode) then @@ -1219,14 +1219,14 @@ function MonarchPosition(id,available) for i=1,#MonarchDef do if MonarchDef[i]==id then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end if id==09126351 and TurnEndCheck() then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end if id==53334641 and TurnEndCheck() then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end return result end diff --git a/ai/decks/Necloth.lua b/ai/decks/Necloth.lua deleted file mode 100755 index eda3184a..00000000 --- a/ai/decks/Necloth.lua +++ /dev/null @@ -1,1309 +0,0 @@ -function NekrozFilter(c,exclude) - return IsSetCode(c.setcode,0xb4) and (exclude == nil or c.id~=exclude) -end -function NekrozMonsterFilter(c,ritual) - return FilterType(c,TYPE_MONSTER) and NekrozFilter(c) - and (not ritual or FilterType(c,TYPE_RITUAL)) -end -function CheckLvlSum(cards,level,lvlrestrict) - local levels = {} - local count = 0 - for i=1,#cards do - if cards[i].level>0 and (cards[i].level 1 then - return true - end - end - end - levels[0]=0 - -- there is probably a better method to check all possible sums, but for now - for i=1,#levels do - for j=0,#levels do - for k=0,#levels do - if levels[i]>0 and i~=j and i~=k and j~=k then - if levels[i]+levels[j]+levels[k] == level then - return true - end - end - end - end - end - return false -end -function ExoFilter(c) - return NekrozMonsterFilter(c) or c.id==08903700 -- Djinn Releaser -end -function RitualTributeCheck(level,mirror,lvlrestrict,fav) - local cards - local ritual=UseLists(AIHand(),AIST()) - if mirror == 1 or mirror == 0 and HasID(ritual,51124303) then -- Kaleidomirror - cards = UseLists(AIHand(),AIMon(),AIExtra()) - if fav then cards = AIExtra() end - local result = false - if not lvlrestrict then - result = CardsMatchingFilter(cards,FilterLevel,level)>0 - end - if level == 3 and HasID(AIGrave(),08903700,true) then -- Djinn Releaser - result = true - end - return HasID(UseLists(AIHand(),AIMon()),90307777,true) or result - elseif mirror == 2 or mirror == 0 and HasID(ritual,14735698)then -- Exomirror - cards = UseLists(AIHand(),AIMon(),SubGroup(AIGrave(),ExoFilter)) - if fav then cards = SubGroup(AIGrave(),ExoFilter) end - local result = CheckLvlSum(cards,level,lvlrestrict) - return HasID(UseLists(AIHand(),AIMon(),SubGroup(AIGrave(),ExoFilter)),90307777,true) or result - elseif mirror == 3 or mirror == 0 and HasID(ritual,97211663) then -- Cycle - cards = UseLists(AIHand(),AIMon()) - local result = CheckLvlSum(cards,level,lvlrestrict) - return HasID(cards,90307777,true) or (result and not fav) - end -end -function RitualSpellCheck(cards) - if cards == nil then cards = UseLists(AIHand(),AIST()) end - return HasID(cards,14735698,true) or HasID(cards,51124303,true) or HasID(cards,97211663,true) -end -function NekrozOTKCheck() - local cards=UseLists({AIMon(),AIExtra()}) - return Duel.GetCurrentPhase()==PHASE_MAIN1 and GlobalBPAllowed - and DualityCheck() and NobleSSCheck() and AI.GetPlayerLP(2)<=8000 and AI.GetPlayerLP(2)>4000 - and #OppField()==0 and HasID(cards,31563350,true) and HasID(UseLists(AIHand(),AIST()),52068432,true) - and HasID(AIHand(),88240999,true) and HasID(AIHand(),14735698,true) - and OPTCheck(14735698) and (RitualTributeCheck(10,2,true) - or HasID(AIGrave(),26674724,true) and HasID(AIMon(),89463537,true)) -end -ReleaserList = {} -function ReleaserCheck(c) - for i=1,#ReleaserList do - if ReleaserList[i]==c.cardid then - return true - end - end - return false -end -function ReleaserSet(id) - ReleaserList[#ReleaserList+1]=id -end -function ShritCond(loc,c) - if loc == PRIO_TOHAND then - return not HasID(AIHand(),90307777,true) and Duel.GetTurnPlayer()==player_ai - end - return true -end -function SearchCheck() - return (HasID(AIHand(),95492061,true) or HasID(AIHand(),23401839,true)) - and not NormalSummonCheck() -end -function ClausCond(loc,c) - if loc == PRIO_TOHAND then - return ((not RitualSpellCheck() or (HasID(AIHand(),89463537,true) or SearchCheck()) - and not HasID(AIHand(),51124303,true)) - and UseClaus() and not HasID(AIHand(),99185129,true) - and not GlobalPreparation - and not (#AIMon()==0 and RitualSpellCheck(AIGrave()))) - and Duel.GetTurnPlayer()==player_ai - end - if loc == PRIO_TOFIELD then - return HasID(AIGrave(),08903700,true) -- adjust for turn 1 releaser claus - end - if loc == PRIO_TOGRAVE and FilterLocation(c,LOCATION_MZONE) then - return not ReleaserCheck(c) - end - return true -end -function UniCond(loc,c) - if loc == PRIO_TOHAND then - return not HasID(AIHand(),89463537,true) - and HasID(AIHand(),51124303,true) - and Duel.GetTurnPlayer()==player_ai - end - if loc == PRIO_TOFIELD then - return false - end - return true -end -function BrioCond(loc,c) - if loc == PRIO_TOHAND then - return UseBrio() and Duel.GetTurnPlayer()==player_ai - and not FilterLocation(c,LOCATION_GRAVE) - end - if loc == PRIO_TOFIELD then - return SummonBrio() - end - if loc == PRIO_TOGRAVE and FilterLocation(c,LOCATION_MZONE) then - return not ReleaserCheck(c) - end - return true -end -function GungCond(loc,c) - if loc == PRIO_TOHAND then - return not HasID(AIHand(),74122412,true) and Duel.GetTurnPlayer()==player_ai - end - if loc == PRIO_TOGRAVE and FilterLocation(c,LOCATION_MZONE) then - return not ReleaserCheck(c) - end - return true -end -function TrishCond(loc,c) - if loc == PRIO_TOHAND then - return UseTrishula() and Duel.GetTurnPlayer()==player_ai and not HasID(AIHand(),52068432,true) - end - if loc == PRIO_TOFIELD then - return UseTrishula() - end - if loc == PRIO_TOGRAVE and FilterLocation(c,LOCATION_MZONE) then - return not ReleaserCheck(c) - end - return true -end -function ValkCond(loc,c) - if loc == PRIO_TOHAND then - return not HasID(AIHand(),25857246,true) - end - if loc == PRIO_TOFIELD then - return true - end - if loc == PRIO_TOGRAVE and FilterLocation(c,LOCATION_MZONE) then - return not ReleaserCheck(c) - end - return true -end -function ArmorCond(loc,c) - if loc == PRIO_TOHAND then - return not HasID(AIHand(),88240999,true) and Duel.GetTurnPlayer()==player_ai - end - if loc == PRIO_TOFIELD then - return UseArmor() - end - if loc == PRIO_TOGRAVE and FilterLocation(c,LOCATION_MZONE) then - return not ReleaserCheck(c) - end - return true -end -function ExoCond(loc,c) - if loc == PRIO_TOHAND then - return (not RitualSpellCheck() and OPTCheck(14735698) - and not (#AIMon()==0 and RitualSpellCheck(AIGrave())) - and (HasID(AIHand(),52068432,true) and SummonTrishula() - or HasID(AIHand(),25857246,true) or HasID(AIHand(),88240999,true))) - and Duel.GetTurnPlayer()==player_ai - end - return true -end -function ManjuCond(loc,c) - if loc == PRIO_TOHAND then - return not (HasID(AIHand(),95492061,true) - or HasID(AIHand(),23401839,true)) - end - return true -end -function UnicoreCheck() - return HasID(AIHand(),89463537,true) and HasID(UseLists(AIHand(),AIST()),51124303,true) - and HasID(AIExtra(),79606837,true) and OPTCheck(51124303) and DualityCheck() -end -function CycleReleaserCheck(kaleido) - return HasID(AIGrave(),99185129,true) and (HasID(AIGrave(),08903700,true) - or FieldCheck(4)>1 and HasID(AIExtra(),34086406,true) and HasID(AIDeck(),08903700,true) - or FieldCheck(4)==1 and UnicoreCheck() or HasID(UseLists(AIHand(),AIMon()),08903700,true) or kaleido) - and OppGetStrongestAttack() <= 2300 -end -function CycleCond(loc,c) - if loc == PRIO_TOHAND then - return (not RitualSpellCheck() and OPTCheck(97211663) - and not (#AIMon()==0 and RitualSpellCheck(AIGrave())) - and (HasID(AIHand(),90307777,true) - and (HasID(AIGrave(),52068432,true) and SummonTrishula() - or HasID(AIGrave(),25857246,true) or HasID(AIGrave(),88240999,true))) - or CycleReleaserCheck()) - and not HasID(UseLists(AIHand(),AIST()),97211663) - and Duel.GetTurnPlayer()==player_ai - end - return true -end -function KaleidoCond(loc,c) - if loc == PRIO_TOHAND then - return ((not RitualSpellCheck() - or (HasID(AIHand(),89463537,true) and SummonUnicore(1) or QuasarComboCheck(true)) - and not HasID(AIHand(),51124303,true)) and OPTCheck(51124303) - and not (#AIMon()==0 and RitualSpellCheck(AIGrave()))) - and Duel.GetTurnPlayer()==player_ai - end - return true -end -function PrincessFilter(c) - return NekrozMonsterFilter(c) -end -function PrincessCond(loc,c) - if loc == PRIO_TOGRAVE then - return CardsMatchingFilter(AIBanish(),PrincessFilter)>0 and not FilterLocation(c,LOCATION_MZONE) - end - return true -end -function NyarlaCond(loc,c) - if loc == PRIO_TOGRAVE then - return HasID(c.xyz_materials,79606837,true) - end - return true -end -function SekkaFilter(c) - return FilterType(c,TYPE_SPELL+TYPE_TRAP) and FilterPosition(c,POS_FACEDOWN) -end -function SekkaCond(loc,c) - if loc == PRIO_TOGRAVE then - return CardsMatchingFilter(AIST(),SekkaFilter)>0 and CardsMatchingFilter(OppST(),SekkaFilter)==0 - end - return true -end -function UseTrishula() - return #OppHand()>0 and #OppField()>0 and #OppGrave()>0 - and OPTCheck(52068432) -end -function SummonTrishula(mirror) - return DualityCheck() and RitualTributeCheck(9,mirror,true) -end -function SummonUnicore(mirror) - return DualityCheck() and mirror == 1 - and HasID(AIExtra(),79606837,true) - and not HasID(AIMon(),79606837,true) - and #AIGrave()<10 - --or RitualTributeCheck(4,mirror) - --and FieldCheck(4) == 1) -end -function ArmorFilter(c) - return FilterPosition(c,POS_FACEDOWN) - and c:is_affected_by(EFFECT_INDESTRUCTABLE_EFFECT)==0 - and c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 -end -function UseArmor() - return CardsMatchingFilter(OppField(),ArmorFilter)>0 -end -function SummonArmor(mirror) - return DualityCheck() and RitualTributeCheck(10,mirror,true) -end -function UseClaus() - return (NeedsCard(51124303,AIDeck(),AIHand(),true) and OPTCheck(51124303) - or NeedsCard(14735698,AIDeck(),AIHand(),true) and OPTCheck(14735698) - or NeedsCard(97211663,AIDeck(),AIHand(),true) and OPTCheck(97211663)) - and OPTCheck(99185129) -end -function UseBrio() - return OPTCheck(26674724) and not QuasarComboCheck() and not SummonBrio(0) -end -function BrioFilter(c) - return FilterLocation(c,LOCATION_MZONE) and FilterPreviousLocation(c,LOCATION_EXTRA) - and FilterSummon(c,SUMMON_TYPE_SPECIAL) and FilterPosition(c,POS_FACEUP) - and Targetable(c,TYPE_MONSTER) and Affected(c,TYPE_MONSTER,6) - and CurrentOwner(c)==2 -end -function SummonBrio(mirror) - return OPTCheck(266747241) and CardsMatchingFilter(OppMon(),BrioFilter)>1 - and (mirror==nil or RitualTributeCheck(6,mirror,false)) -end -function UseBrioField() - return OPTCheck(266747241) and CardsMatchingFilter(OppMon(),BrioFilter)>0 -end -function UseUnicore() - return not SummonUnicore(1) and OPTCheck(89463537) - and not HasID(UseLists(AIHand(),AIST()),97211663,true) and UseCycle() -end -function SummonValk(mirror) - return DualityCheck() and RitualTributeCheck(8,mirror,true,true) -end -function UseValk(check) - return PriorityCheck(AIMon(),PRIO_TOGRAVE)>2 and (MP2Check() or check) - and OPTCheck(25857246) and #AIHand()<5 -end -function RitualSummonCheck(mirror) - local cards = UseLists(AIHand(),AIMon(),AIGrave()) - local rituals = AIHand() - local result = false - if mirror == 3 then rituals = AIGrave() end - if HasID(rituals,89463537,true) - and SummonUnicore(mirror) - then - result = true - end - if HasID(rituals,52068432,true) - and SummonTrishula(mirror) - and (UseTrishula())-- or HasID(cards,08903700,true)) - then - result = true - end - if HasID(rituals,88240999,true) - and SummonArmor(mirror) - and (UseArmor() or NekrozOTKCheck()) - then - result = true - end - if HasID(rituals,25857246,true) - and SummonValk(mirror) - and OPTCheck(25857246) - then - result = true - end - if HasID(rituals,99185129,true) - and HasID(cards,08903700,true) - then - result = true - end - if HasID(rituals,26674724,true) - and SummonBrio(mirror) - then - result = true - end - return result -end -function SummonDenkou() - return CardsMatchingFilter(AIST(),FilterPosition,POS_FACEDOWN)==0 - or FieldCheck(4)==1 -end -GlobalPreparation = nil -function UsePreparation() - if (NeedsCard(51124303,AIGrave(),AIHand(),true) --and OPTCheck(51124303) - or NeedsCard(14735698,AIGrave(),AIHand(),true) --and OPTCheck(14735698) - or NeedsCard(97211663,AIGrave(),AIHand(),true)) --and OPTCheck(97211663)) - and #AIHand()<6 - then - GlobalPreparation = true - return true - end - return CardsMatchingFilter(UseLists(AIMon(),AIHand()),NekrozMonsterFilter,true)==0 - and (not HasID(AIHand(),95492061,true) and not HasID(AIHand(),23401839,true) or NormalSummonCheck(player_ai)) -end -function SummonNyarla() - return DualityCheck() and MP2Check() - and HasID(AIExtra(),08809344,true) - and HasID(AIGrave(),79606837,true) - --and (Duel.GetTurnCount() == 1 - --or CardsMatchingFilter(AIGrave(),FilterID,79606837)>0) -end -function SummonChainNekroz() - return DualityCheck() --and MP2Check() - and HasID(AIExtra(),34086406,true) - and HasID(AIDeck(),08903700,true) - --and CardsMatchingFilter(AIHand(),NekrozMonsterFilter,true)>0 - and RitualSpellCheck() - and ((Chance(50) or not SummonNyarla() - or HasID(AIHand(),97211663,true) and HasID(AIGrave(),99185129,true))) - and MP2Check(1800) - or SummonTrishula(2) and UseTrishula() - and HasID(AIHand(),52068432,true) - and HasID(AIHand(),14735698,true) -end -function SummonExaBeetle() - return HasID(AIGrave(),35952884,true) and HasID(AIExtra(),44505297,true) - and HasID(AIExtra(),24696097,true) and DualityCheck() and UseExaBeetle() -end -function ExaBeetleFilter(c) - return FilterPosition(c,POS_FACEUP) - and c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 -end -function UseExaBeetle() - return CardsMatchingFilter(OppField(),ExaBeetleFilter)>0 -end -function SummonZubaba() - return NekrozOTKCheck() -end -function ZubabaFilter(c) - return FilterType(c,TYPE_MONSTER) and FilterRace(c,RACE_WARRIOR) - and c.attack>=1500 -end -function UseZubaba() - return CardsMatchingFilter(AIHand(),ZubabaFilter)>0 -end -function UseEnterblathnir(cards) - if cards == nil then cards = UseLists(OppHand(),OppField()) end - return #cards>0 -end -function SummonEnterblathnir() - return DualityCheck() and HasID(AIExtra(),95113856,true) - and MP2Check() and #UseLists(OppHand(),OppMon())>0 -end -function UseTradeIn() - return true -end -function UseChainNekroz1() - return DeckCheck(DECK_NEKROZ) and HasID(AIDeck(),08903700,true) -end -function UseChainNekroz2() - if DeckCheck(DECK_NEKROZ) and (Duel.GetCurrentPhase()==PHASE_MAIN2 or not GlobalBPAllowed - or HasID(AIMon(),25857246,true) and UseValk()) - then - GlobalStacked=Duel.GetTurnCount() - return true - end - return false -end -function SummonDancePrincess() - return true -end -function SummonPoC() - return UsePoC() and not QuasarComboCheck() -end -function UsePoC() - return HasID(AIGrave(),86346643,true) and UseRainbowNeos() - or HasID(AIGrave(),26674724,true) and UseBrioField() - or NeedsCard(25857246,AIGrave(),AIField(),true) and OPTCheck(25857246) - or NeedsCard(88240999,AIGrave(),AIField(),true) and UseArmor() - or HasID(AIGrave(),35952884,true) and #OppMon()>0 - or HasID(AIGrave(),63465535,true) -end -function UseArachnid() - return true -end -function UseRainbowNeos(mode) - return (mode == nil or mode == 1) and #OppMon()>2 - or (mode == nil or mode == 2) and #OppST()>1 - or (mode == nil or mode == 3) and #OppGrave()>5 -end -function RainbowNeosCheck() - return HasID(AIHand(),30312361,true) and HasID(AIExtra(),86346643,true) - and (HasID(AIHand(),99185129,true) and HasID(AIHand(),74122412,true) - or HasID(AIHand(),89463537,true) and HasID(AIHand(),26674724,true)) -end -function UseKaleido() - return RitualSummonCheck(1) or QuasarComboCheck() or RainbowNeosCheck() -end -function UseExo() - return RitualSummonCheck(2) -end -function UseCycle() - return RitualSummonCheck(3) -end -function NekrozInit(cards) - GlobalPreparation = nil - local Act = cards.activatable_cards - local Sum = cards.summonable_cards - local SpSum = cards.spsummonable_cards - local Rep = cards.repositionable_cards - local SetMon = cards.monster_setable_cards - local SetST = cards.st_setable_cards - if HasIDNotNegated(Act,86346643,false,1381546289) and UseRainbowNeos(1) then - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasIDNotNegated(Act,86346643,false,1381546290) and UseRainbowNeos(2) then - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasIDNotNegated(Act,86346643,false,1381546291) and UseRainbowNeos(3) then - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasIDNotNegated(Act,30312361) and UsePoC() then - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasIDNotNegated(Act,63465535) and UseArachnid() then - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,26674724,false,nil,LOCATION_MZONE) and UseBrioField() then - OPTSet(266747241) - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,38120068) and UseTradeIn() then - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,96729612) and UsePreparation() then - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,51124303,false,nil,LOCATION_GRAVE) and #AIHand()<6 then -- Kaleido grave - GlobalCardMode = 1 - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,97211663,false,nil,LOCATION_GRAVE) and #AIHand()<6 then -- Cycle grave - GlobalCardMode = 1 - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,14735698,false,nil,LOCATION_GRAVE) and #AIHand()<6 then -- Exo grave - GlobalCardMode = 1 - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,32807846) and UseRotA() then -- RotA - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,08809344) then -- Nyarla - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,99185129,false,nil,LOCATION_HAND) and UseClaus() then - OPTSet(99185129) - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,26674724,false,nil,LOCATION_HAND) and UseBrio() then - OPTSet(26674724) - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,88240999,false,nil,LOCATION_MZONE) and UseArmor() then - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,89463537,false,nil,LOCATION_HAND) and UseUnicore() then - OPTSet(89463537) - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,44505297) and UseExaBeetle() then - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Sum,23401839) then -- Senju - return {COMMAND_SUMMON,CurrentIndex} - end - if HasID(Sum,95492061) then -- Manju - return {COMMAND_SUMMON,CurrentIndex} - end - if HasID(Sum,13974207) and SummonDenkou() then - return {COMMAND_SUMMON,CurrentIndex} - end - if HasID(Sum,52738610) and SummonDancePrincess() then - return {COMMAND_SUMMON,CurrentIndex} - end - if HasID(Sum,30312361) and SummonPoC() then - return {COMMAND_SUMMON,CurrentIndex} - end - if HasID(SpSum,31563350) and SummonZubaba() then - return {COMMAND_SPECIAL_SUMMON,CurrentIndex} - end - if HasID(Act,31563350) and UseZubaba() then - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(SpSum,34086406) and SummonChainNekroz() then - return {COMMAND_SPECIAL_SUMMON,CurrentIndex} - end - if HasIDNotNegated(Act,34086406,false,545382497) and UseChainNekroz1() then - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(SpSum,08809344) and SummonNyarla() then - return {COMMAND_SPECIAL_SUMMON,CurrentIndex} - end - if HasID(SpSum,44505297) and SummonExaBeetle() then - return {COMMAND_SPECIAL_SUMMON,CurrentIndex} - end - if HasID(Act,95113856) and UseEnterblathnir() then - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(SpSum,95113856) and SummonEnterblathnir() then - return {COMMAND_SPECIAL_SUMMON,CurrentIndex} - end - if HasID(Act,51124303,false,nil,LOCATION_HAND+LOCATION_SZONE) and UseKaleido() then - OPTSet(51124303) - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,97211663,false,nil,LOCATION_HAND+LOCATION_SZONE) and UseCycle() then - OPTSet(97211663) - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,14735698,false,nil,LOCATION_HAND+LOCATION_SZONE) and UseExo() then - OPTSet(14735698) - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasIDNotNegated(Act,34086406,false,545382498) and UseChainNekroz2() then - GlobalCardMode = 2 - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Act,25857246,false,nil,LOCATION_MZONE) and UseValk() then - OPTSet(25857246) - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(SetMon,08903700) then -- Djinn Releaser - return {COMMAND_SET_MONSTER,CurrentIndex} - end - return nil -end - -function NekrozOption(options) - for i=1,#options do - if options[i] == 1521821697 then -- Enterblathnir control - return i - end - if options[i] == 1521821698 then -- Enterblathnir hand - return i - end - if options[i] == 1521821699 then -- Enterblathnir grave - return i - end - end -end -function QuasarComboCheck(skipmirror) - return HasID(AIExtra(),35952884,true) and HasID(AIExtra(),24696097,true) - and HasID(AIExtra(),44505297,true) and CardsMatchingFilter(AIHand(),FilterID,26674724)==2 - and (skipmirror or HasID(AIHand(),51124303,true)) - and UseExaBeetle() and DualityCheck() -end - -function QuasarTrishulaCheck() - return HasID(AIExtra(),35952884,true) and HasID(AIHand(),99185129,true) - and HasID(AIHand(),52068432,true) and DualityCheck() and UseTrishula() -end -GlobalKaleidoTarget = nil -GlobalExoTarget = nil -GlobalCycleTarget = nil -function KaleidoTarget(cards) - if GlobalCardMode == 1 then - GlobalCardMode = nil - return Add(cards,PRIO_BANISH) - end - if FilterLocation(cards[1],LOCATION_DECK) - and FilterType(cards[1],TYPE_SPELL) - then - return ClausTarget(cards) - end - local c = FindCard(GlobalKaleidoTarget) - if c then - return Add(cards,PRIO_TOFIELD) - end - local result = {math.random(#cards)} - for i=1,#cards do - if cards[i].level == 12 and HasID(AIHand(),25857246,true) and HasID(AIHand(),89463537,true) - and not CycleReleaserCheck(true) and GlobalBPAllowed - then - return {i} - end - end - for i=1,#cards do - if cards[i].id == 86346643 and HasID(AIHand(),30312361,true) then - return {i} - end - end - for i=1,#cards do - if cards[i].level == 6 and SummonBrio() then - return {i} - end - end - for i=1,#cards do - if cards[i].id == 79606837 then - return {i} - end - end - for i=1,#cards do - if cards[i].id == 35952884 - and (QuasarComboCheck(true) - or QuasarTrishulaCheck()) - then - return {i} - end - end - for i=1,#cards do - if cards[i].id == 90307777 - then - result = {i} - end - end - GlobalExoTarget = nil - GlobalCycleTarget = nil - GlobalKaleidoTarget = cards[result[1]].cardid - return result -end -function ExoTarget(cards) - if GlobalCardMode == 1 then - GlobalCardMode = nil - return Add(cards,PRIO_BANISH) - end - if FilterLocation(cards[1],LOCATION_DECK) - and FilterType(cards[1],TYPE_SPELL) - then - return ClausTarget(cards) - end - local result = Add(cards,PRIO_TOFIELD) - GlobalKaleidoTarget = nil - GlobalCycleTarget = nil - GlobalExoTarget = cards[1].cardid - return result -end -function CycleTarget(cards) - if GlobalCardMode == 1 then - GlobalCardMode = nil - return Add(cards,PRIO_BANISH) - end - if FilterLocation(cards[1],LOCATION_DECK) - and FilterType(cards[1],TYPE_SPELL) - then - return ClausTarget(cards) - end - local result = Add(cards,PRIO_TOFIELD,1,FilterLocation,LOCATION_GRAVE) - GlobalKaleidoTarget = nil - GlobalExoTarget = nil - GlobalCycleTarget = cards[1].cardid - return result -end -function NyarlaTarget(cards) - local result = {} - for i=1,#cards do - if cards[i].id == 79606837 then - return {i} - elseif not NekrozFilter(cards[i]) then - result = {i} - end - end - if #result==0 then result = {math.random(#cards)} end - return result -end -function ExaBeetleTarget(cards) - local result = {} - if FilterLocation(cards[1],LOCATION_GRAVE) then - for i=1,#cards do - if cards[i].id == 35952884 and cards[i].owner == 1 then - return {i} - end - end - return {HighestATKIndexTotal(cards)} - elseif FilterLocation(cards[1],LOCATION_OVERLAY) then - return Add(cards,PRIO_TOGRAVE) - elseif CurrentOwner(cards[1])==1 then - for i=1,#cards do - if cards[i].id == 35952884 then - return {i} - end - end - return BestTargets(cards) - else - return BestTargets(cards) - end -end -function NekrozGungnirTarget(cards) - local result = {} - if GlobalCardMode == 1 then - result = GlobalTargetGet(cards,true) - end - if #result==0 then result = {math.random(#cards)} end - return result -end -function ArmorTarget(cards) - if FilterPosition(cards[1],POS_FACEDOWN) then - return BestTargets(cards,1,PRIO_BANISH,ArmorFilter) - else - local result = GlobalTargetGet(cards,true) - return result - end -end -function ClausTarget(cards) - if FilterLocation(cards[1],LOCATION_DECK) then - if NeedsCard(97211663,cards,AIHand()) - and (HasID(AIHand(),90307777,true) and (HasID(AIGrave(),25857246,true) - or HasID(AIGrave(),52068432,true) or HasID(AIGrave(),88240999,true)) - or HasID(AIGrave(),99185129,true) and (HasID(AIGrave(),08903700,true) - or FieldCheck(4)>=2 and HasID(AIExtra(),34086406,true))) - and OPTCheck(97211663) - then - return {CurrentIndex} - end - if NeedsCard(51124303,cards,AIHand()) - and (HasID(AIHand(),89463537,true) - or CardsMatchingFilter(AIGrave(),NekrozMonsterFilter)<3 - and not HasID(AIGrave(),90307777,true)) - and OPTCheck(51124303) - then - return {CurrentIndex} - end - if NeedsCard(14735698,cards,AIHand()) and OPTCheck(14735698) then - return {CurrentIndex} - end - if NeedsCard(97211663,cards,AIHand()) and OPTCheck(97211663) then - return {CurrentIndex} - end - if NeedsCard(51124303,cards,AIHand()) and OPTCheck(51124303) then - return {CurrentIndex} - end - if NeedsCard(14735698,cards,AIHand()) then - return {CurrentIndex} - end - if NeedsCard(51124303,cards,AIHand()) then - return {CurrentIndex} - end - if NeedsCard(97211663,cards,AIHand()) then - return {CurrentIndex} - end - end - if GlobalCardMode == 1 then - GlobalCardMode = nil - return GlobalTargetGet(cards,true) - end - return BestTargets(cards) -end -function BrioTarget(cards,max) - if FilterLocation(cards[1],LOCATION_DECK) then - return Add(cards) - end - if max and max>1 then - local count = math.min(max,CardsMatchingFilter(cards,BrioFilter)) - return BestTargets(cards,count,TARGET_TOHAND) - end - return {math.random(#cards)} -end -function TrishTarget(cards) - if FilterLocation(cards[1],LOCATION_HAND) then - return {math.random(#cards)} - end - return BestTargets(cards,1,PRIO_BANISH) -end -function ZubabaTarget(cards) - if FilterLocation(cards[1],LOCATION_OVERLAY) then - if HasID(cards,89463537) then - return {CurrentIndex} - end - return Add(cards,PRIO_TOGRAVE) - end - if FilterLocation(cards[1],LOCATION_HAND) then - if HasID(cards,52068432) then - return {CurrentIndex} - end - return Add(cards,PRIO_TOFIELD) - end -end -function EnterblathnirTarget(cards) - if LocCheck(cards,LOCATION_HAND) then - return {math.random(#cards)} - end - return BestTargets(cards,1,TARGET_BANISH) -end -function ValkFilter(c) - return (FilterLocation(c,LOCATION_MZONE) or FilterID(c,52738610)) -end -function ValkTarget(cards) - if LocCheck(cards,LOCATION_GRAVE) then - return Add(cards,PRIO_BANISH) - end - local count = math.max(math.min(2,CardsMatchingFilter(UseLists(AIMon(),AIHand()),ValkFilter)),1) - return Add(cards,PRIO_TOGRAVE,count,ValkFilter) -end -function UsePoC() - return HasID(AIGrave(),86346643,true) and UseRainbowNeos() - or HasID(AIGrave(),26674724,true) and UseBrioField() - or NeedsCard(25857246,AIGrave(),AIField(),true) and OPTCheck(25857246) - or NeedsCard(88240999,AIGrave(),AIField(),true) and UseArmor() - or HasID(AIGrave(),35952884,true) and #OppMon()>0 - or HasID(AIGrave(),63465535,true) and #OppMon()>0 -end -function PoCTarget(cards) - for i=1,#cards do - if cards[i].id == 86346643 and UseRainbowNeos() then - return {i} - end - if cards[i].id == 26674724 and UseBrioField() then - return {i} - end - if cards[i].id == 35952884 and #OppMon()>0 then - return {i} - end - if cards[i].id == 88240999 and not HasID(AIMon(),88240999,true) and UseArmor() then - return {i} - end - if cards[i].id == 63465535 and #OppMon()>0 then - return {i} - end - if cards[i].id == 25857246 and not HasID(AIMon(),25857246,true) and OPTCheck(25857246) then - return {i} - end - end - return Add(cards,PRIO_TOFIELD) -end -function NekrozCard(cards,min,max,id,c) - if GlobalNekrozExtra and GlobalNekrozExtra>0 then - GlobalNekrozExtra = GlobalNekrozExtra - 1 - if GlobalNekrozExtra <=0 then GlobalNekrozExtra = nil end - return Add(cards,PRIO_TOGRAVE,min) - end - if c then - id = c.id - end - if id == 90307777 or id == 89463537 -- Shrit, Unicore - or id == 95492061 or id == 23401839 -- Manju, Senju - or id == 96729612 or id == 79606837 -- Preparation, Herald - then - return Add(cards,PRIO_TOHAND,max) - end - if id == 99185129 then - return ClausTarget(cards) - end - if id == 26674724 then - return BrioTarget(cards,max) - end - if id == 51124303 then - return KaleidoTarget(cards) - end - if id == 14735698 then - return ExoTarget(cards) - end - if id == 97211663 then - return CycleTarget(cards) - end - if id == 08809344 then - return NyarlaTarget(cards) - end - if id == 44505297 then - return ExaBeetleTarget(cards) - end - if id == 74122412 then - return NekrozGungnirTarget(cards) - end - if id == 88240999 then - return ArmorTarget(cards) - end - if id == 52068432 then - return TrishTarget(cards) - end - if id == 31563350 then - return ZubabaTarget(cards) - end - if id == 25857246 then - return ValkTarget(cards) - end - if id == 52738610 then -- Dance Princess - return Add(cards) - end - if id == 30312361 then - return PoCTarget(cards) - end - if id == 86346643 then -- Rainbow Neos (for Phantom of Chaos) - return Add(cards,1,PRIO_TOGRAVE) - end - if id == 63465535 then -- Underground Arachnid (for Phantom of Chaos) - return BestTargets(cards) - end - if id == 45986603 then -- Snatch Steal - return BestTargets(cards,1,TARGET_CONTROL) - end - return nil -end -function KaleidoSum(cards,sum,card) -end -function ExoSum(cards,sum,card) - local result = {} - local lvl = sum - if HasID(cards,08903700) then - result[#result+1] = CurrentIndex - lvl = lvl - cards[CurrentIndex].level - ReleaserSet(GlobalExoTarget) - end - if HasID(cards,90307777,false,nil,LOCATION_GRAVE) and #result==0 then - return {CurrentIndex} - end - if HasID(cards,90307777) and #result==0 then - return {CurrentIndex} - end - for j=1,5 do - for i=1,#cards do - if cards[i].id ~= 90307777 and cards[i].id ~= 08903700 - and lvl == cards[i].level - then - j=5 - result[#result+1]= i - return result - end - end - for i=1,#cards do - if cards[i].id ~= 90307777 and cards[i].id ~= 08903700 - and lvl - cards[i].level > 2 - then - lvl = lvl - cards[i].level - result[#result+1]= i - end - end - end - return result -end -function CycleSum(cards,sum,card) - local result = {} - local lvl = sum - if HasID(cards,08903700) then - result[#result+1] = CurrentIndex - lvl = lvl - cards[CurrentIndex].level - ReleaserSet(GlobalCycleTarget) - end - if HasID(cards,90307777) and #result==0 then - return {CurrentIndex} - end - for j=1,5 do - for i=1,#cards do - if cards[i].id ~= 90307777 and cards[i].id ~= 08903700 - and lvl == cards[i].level - then - j=5 - result[#result+1]= i - return result - end - end - for i=1,#cards do - if cards[i].id ~= 90307777 and cards[i].id ~= 08903700 - and lvl - cards[i].level > 2 - then - lvl = lvl - cards[i].level - result[#result+1]= i - end - end - end - return result -end -function NekrozSum(cards,sum,card) - local id = nil - if card then - id = card.id - else - end - local c = FindCard(GlobalKaleidoTarget) - if c then - return KaleidoSum(cards,sum,card) - end - c = FindCard(GlobalExoTarget) - if c then - return ExoSum(cards,sum,card) - end - c = FindCard(GlobalCycleTarget) - if c then - return CycleSum(cards,sum,card) - end - return nil -end -function ChainTrishula(c) - if FilterLocation(c,LOCATION_HAND) then - local e,c,id - if EffectCheck(1-player_ai)~=nil then - e,c,id = EffectCheck() - return true - end - return false - end - return true -end -function ArmorAtkFilter(c) - return c:IsSetCard(0xb4) -end -function ChainArmor() - if Duel.GetCurrentPhase() == PHASE_DAMAGE then - if AttackBoostCheck(1000,0,player_ai,ArmorAtkFilter) then - if Duel.GetTurnPlayer() == player_ai then - GlobalTargetSet(Duel.GetAttacker(),AIMon()) - else - GlobalTargetSet(Duel.GetAttackTarget(),AIMon()) - end - return true - end - end - return false -end -function NekrozGungnirFilter(c,immune) - return c:IsSetCard(0xb4) and c:IsPosition(POS_FACEUP) - and c:IsType(TYPE_MONSTER) - and not c:IsHasEffect(immune) -end -function ChainGungnir(c) - if FilterLocation(c,LOCATION_HAND) then - c=nil - local cg = RemovalCheck(nil,CATEGORY_DESTROY) - if cg then - local tg = Duel.GetChainInfo(Duel.GetCurrentChain(), CHAININFO_TARGET_CARDS) - if tg then - c=tg:Filter(NekrozGungnirFilter,nil,EFFECT_INDESTRUCTABLE_EFFECT) - if c and c:GetCount()>0 then c=c:GetMaxGroup(Card.GetAttack):GetFirst() end - else - c=cg:Filter(NekrozGungnirFilter,nil,EFFECT_INDESTRUCTABLE_EFFECT) - if c and c:GetCount()>0 then c=c:GetMaxGroup(Card.GetAttack):GetFirst() end - end - if c and c.GetCode and UnchainableCheck(74122412) then - GlobalTargetSet(c,AIMon()) - GlobalCardMode = 1 - return true - end - end - if Duel.GetCurrentPhase()==PHASE_BATTLE then - local source = Duel.GetAttacker() - local target = Duel.GetAttackTarget() - if source and target then - if source:IsControler(player_ai) then - target = Duel.GetAttacker() - source = Duel.GetAttackTarget() - end - end - if WinsBattle(source,target) - and NekrozGungnirFilter(target,EFFECT_INDESTRUCTABLE_BATTLE) - and (not (HasID(AIHand(),88240999,true) and target:GetAttack()+1000>source:GetAttack())) - and UnchainableCheck(74122412) - then - GlobalTargetSet(target,AIMon()) - GlobalCardMode = 1 - return true - end - end - end - return false -end -function ValkBattleFilter(c) - return c:IsType(TYPE_MONSTER) - and not c:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) -end -function ChainValk(c) - if Duel.GetCurrentPhase() == PHASE_BATTLE and Duel.GetTurnPlayer() == 1-player_ai then - local source = Duel.GetAttacker() - local target = Duel.GetAttackTarget() - if source and target then - if source:IsControler(player_ai) then - target = Duel.GetAttacker() - source = Duel.GetAttackTarget() - end - end - if WinsBattle(source,target) and ValkBattleFilter(target) then - return UnchainableCheck(25857246) - end - if #AIMon() == 0 and ExpectedDamage() >= 0.7*AI.GetPlayerLP(1) then - return UnchainableCheck(25857246) - end - end - return false -end -function ClausFilter(c) - return c:IsPosition(POS_FACEUP) - and c:IsType(TYPE_MONSTER) - and c:IsLocation(LOCATION_MZONE) - and c:IsPreviousLocation(LOCATION_EXTRA) - and bit32.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)>0 - and Affected(c,TYPE_MONSTER,3) - and Targetable(c,TYPE_MONSTER) - and c:IsControler(1-player_ai) -end -function ClausFilter2(c) - return FilterPosition(c,POS_FACEUP) - and FilterType(c,TYPE_MONSTER) - and FilterLocation(c,LOCATION_MZONE) - and FilterPreviousLocation(c,LOCATION_EXTRA) - and FilterSummon(c,SUMMON_TYPE_SPECIAL) - and Affected(c,TYPE_MONSTER,3) - and Targetable(c,TYPE_MONSTER) - and CurrentOwner(c)==2 -end -function ChainClaus() - local targets = CardsMatchingFilter(OppMon(),ClausFilter2) - local e = Duel.GetChainInfo(Duel.GetCurrentChain(), CHAININFO_TRIGGERING_EFFECT) - if e then - local c=e:GetHandler() - if c and ClausFilter(c) - and NotNegated(c) - then - GlobalTargetSet(c,OppMon()) - GlobalCardMode = 1 - return true - end - end - if RemovalCheck(99185129) or NegateCheck(99185129) then - return targets>0 - end - if Duel.GetCurrentPhase()==PHASE_DAMAGE then - local source = Duel.GetAttacker() - local target = Duel.GetAttackTarget() - if source and target then - if source:IsControler(player_ai) then - target = Duel.GetAttacker() - source = Duel.GetAttackTarget() - end - end - if WinsBattle(source,target) and source:IsPosition(POS_FACEUP_ATTACK) - and ClausFilter(source) then - GlobalTargetSet(source,OppMon()) - GlobalCardMode = 1 - return true - end - end -end -function NekrozChain(cards) - if HasID(cards,79606837,false,nil,LOCATION_GRAVE) then -- Rainbow Herald - return {1,CurrentIndex} - end - if HasID(cards,99185129) and ChainClaus() then - OPTSet(991851291) - return {1,CurrentIndex} - end - if HasID(cards,88240999) and ChainArmor() then - return {1,CurrentIndex} - end - if HasID(cards,25857246) and ChainValk(cards[CurrentIndex]) then - return {1,CurrentIndex} - end - if HasID(cards,74122412,ChainGungnir) then - return {1,CurrentIndex} - end - if HasID(cards,52068432) and ChainTrishula(cards[CurrentIndex]) then - OPTSet(52068432) - return {1,CurrentIndex} - end - if HasID(cards,44505297) then -- Exa-Beetle - return {1,CurrentIndex} - end - if HasID(cards,35952884,false,nil,LOCATION_GRAVE) then -- Quasar - return {1,CurrentIndex} - end - if HasID(cards,95492061) then -- Manju - return {1,CurrentIndex} - end - if HasID(cards,23401839) then -- Senju - return {1,CurrentIndex} - end - if HasID(cards,90307777) then -- Shrit - return {1,CurrentIndex} - end - if HasID(cards,52738610) then -- Dance Princess - return {1,CurrentIndex} - end - return nil -end - -function NekrozEffectYesNo(id,card) - local result = nil - if id == 99185129 and ChainClaus(card) then - OPTSet(991851291) - result = 1 - end - if id==79606837 and FilterLocation(card,LOCATION_GRAVE) then -- Rainbow Herald - result = 1 - end - if id == 88240999 and ChainArmor() then - result = 1 - end - if id == 25857246 and ChainValk(card) then - result = 1 - end - if id == 74122412 and ChainGungnir(card) then - result = 1 - end - if id == 52068432 and ChainTrishula(card) then - OPTSet(52068432) - result = 1 - end - if id == 44505297 then -- Exa-Beetle - result = 1 - end - if id == 35952884 and FilterLocation(card,LOCATION_GRAVE) then -- Quasar - result = 1 - end - if id == 95492061 then -- Manju - result = 1 - end - if id == 23401839 then -- Senju - result = 1 - end - if id == 90307777 then -- Shrit - result = 1 - end - if id == 52738610 then -- Dance Princess - result = 1 - end - return result -end -NekrozAtt={ -89463537,26674724,74122412, -- Unicore, Brionac, Gungnir -52068432,88240999,24696097, -- Trishula, Decisive Armor, Shooting Star -95113856,44505297,52738610, -- Enterblathnir, Exa-Beetle, Dance Princess -25857246, -- Valk -} -NekrozDef={ -90307777,99185129,08903700, -- Shrit, Claus, Releaser -08809344, -- Nyarla -} -function NekrozPosition(id,available) - result = nil - for i=1,#NekrozAtt do - if NekrozAtt[i]==id then result=POS_FACEUP_ATTACK end - end - for i=1,#NekrozDef do - if NekrozDef[i]==id then result=POS_FACEUP_DEFENCE end - end - return result -end diff --git a/ai/decks/Nekroz.lua b/ai/decks/Nekroz.lua index 314e2abd..48fd962c 100644 --- a/ai/decks/Nekroz.lua +++ b/ai/decks/Nekroz.lua @@ -2,10 +2,10 @@ function NekrozPriority() AddPriority( { -- Nekroz: -[90307777] = {6,3,1,1,1,1,1,1,1,1,ShritCond}, -- Shrit, Caster of Nekroz -[52738610] = {3,2,1,1,8,1,1,1,5,1,PrincessCond}, -- Nekroz Dance Princess -[53180020] = {5,2,1,1,6,1,1,1,9,1,ExaCond}, -- Exa, Enforcer of the Nekroz -[27796375] = {4,2,1,1,7,1,1,1,8,1,SorcererCond}, -- Great Sorcerer of the Nekroz +[90307777] = {9,3,1,1,1,1,5,1,1,1,ShritCond}, -- Shrit, Caster of Nekroz +[52738610] = {7,2,1,1,8,1,8,1,5,1,PrincessCond}, -- Nekroz Dance Princess +[53180020] = {6,2,1,1,6,1,6,1,9,1,ExaCond}, -- Exa, Enforcer of the Nekroz +[27796375] = {8,2,1,1,7,1,7,1,8,1,SorcererCond}, -- Great Sorcerer of the Nekroz [25857246] = {6,2,3,1,3,1,1,1,3,1,ValkCond}, -- The Nekroz of Valkyrus [99185129] = {12,2,4,1,5,1,1,1,2,1,ClausCond}, -- The Nekroz of Clausolas @@ -14,16 +14,18 @@ AddPriority( [74122412] = {4,2,3,1,4,1,1,1,7,1,GungCond}, -- The Nekroz of Gungnir [52068432] = {7,2,6,1,3,1,1,1,5,1,TrishCond}, -- The Nekroz of Trishula [88240999] = {5,2,5,1,1,1,1,1,3,1,ArmorCond}, -- The Nekroz of Decisive Armor -[52846880] = {6,2,4,1,1,1,1,1,4,1,NekrozCatastorCond},-- The Nekroz of Catastor +[52846880] = {5,2,4,1,1,1,1,1,4,1,NekrozCatastorCond},-- The Nekroz of Catastor -[67696066] = {6,2,5,1,6,1,1,1,1,1,ClownCond}, -- Performage Trick Clown -[68819554] = {3,1,2,1,5,1,1,1,1,1,JugglerCond}, -- Performage Damage Juggler -[31292357] = {7,1,3,1,2,1,1,1,1,1,HatCond}, -- Performage Hat Tricker +[67696066] = {6,2,5,1,6,1,8,1,1,1,ClownCond}, -- Performage Trick Clown +[68819554] = {3,1,2,1,5,1,7,1,1,1,JugglerCond}, -- Performage Damage Juggler +[31292357] = {7,1,3,1,2,1,2,1,1,1,HatCond}, -- Performage Hat Tricker [29888389] = {1,1,1,1,1,1,1,1,1,1,ShadowCond}, -- Gishki Shadow +[47106439] = {1,1,1,1,1,1,1,1,1,1,VisionCond}, -- Gishki Vision +--[78868119] = {1,1,1,1,1,1,1,1,1,1,DivaCond}, -- Deep Sea Diva [08903700] = {3,1,1,1,9,2,1,1,1,1,ReleaserCond}, -- Djinn Releaser of Rituals -[95492061] = {10,1,1,1,5,1,1,1,1,1,ManjuCond}, -- Manju of the Ten Thousand Hands -[23401839] = {9,1,1,1,6,1,1,1,1,1,SenjuCond}, -- Senju of the Thousand Hands +[95492061] = {10,1,1,1,5,1,5,1,1,1,ManjuCond}, -- Manju of the Ten Thousand Hands +[23401839] = {9,1,1,1,6,1,6,1,1,1,SenjuCond}, -- Senju of the Thousand Hands [13974207] = {3,1,1,1,6,1,1,1,1,1,SekkaCond}, -- Denkou Sekka [30312361] = {2,1,1,1,7,1,1,1,1,1,nil}, -- Phantom of Chaos @@ -35,7 +37,7 @@ AddPriority( [35952884] = {1,1,1,1,1,1,1,1,1,1,nil}, -- Shooting Quasar Dragon [24696097] = {1,1,1,1,1,1,1,1,1,1,nil}, -- Shooting Star Dragon -[79606837] = {1,1,1,1,1,1,1,1,1,1,nil}, -- Herald of Rainbow Light +[79606837] = {1,1,1,1,8,1,7,1,1,1,nil}, -- Herald of the Arc Light [15240268] = {1,1,1,1,1,1,1,1,1,1,nil}, -- Mist Bird Clausolas [95113856] = {1,1,1,1,1,1,1,1,1,1,nil}, -- Phantom Fortress Enterblathnir [44505297] = {1,1,1,1,1,1,1,1,1,1,nil}, -- Inzektor Exa-Beetle @@ -90,10 +92,109 @@ end function ExoFilter(c) return NekrozMonsterFilter(c) or c.id==08903700 -- Djinn Releaser end +function IsFullTribute(c,filter,opt) + if (c.id == 90307777 + or c.id == 29888389 + or c.id == 47106439) + and FilterCheck(c,filter,opt) + then + if c.id == 90307777 + and FilterLocation(c,LOCATION_GRAVE) + then + return true + end + return FilterLocation(c,LOCATION_MZONE) or FilterLocation(c,LOCATION_HAND) + end + return false +end +function HasFullTribute(cards) + return CardsMatchingFilter(cards,IsFullTribute)>0 +end + +function HasMirror(mirror,cards,filter,opt) + if cards == nil then + cards = AICards() + end + local mirrors = {51124303,14735698,97211663} + local check = false + for i=1,3 do + if (mirror == i or mirror == 0) + and HasIDNotNegated(cards,mirrors[i],true,filter,opt) + then + check = true + end + end + return check +end +function GetTributeCombinations(tributes,card,lvlrestrict) + local lvl = card.level + local a,b=nil,nil + local result = {} + local prio = + function(c) + if FilterLocation(a,LOCATION_GRAVE) then + AssignPriority(a,PRIO_BANISH) + else + AssignPriority(a,PRIO_TRIBUTE) + end + end + for i=1,#tributes do + a=tributes[i] + if not lvlrestrict and a.level == lvl and not CardsEqual(a,card) then + prio(a) + result[#result+1]={a,nil} + end + for j=1,#tributes do + if b>a then + b=tributes[j] + if a.level+b.level==lvl then + prio(a) + prio(b) + result[#result+1]={a,b} + end + end + end + end +end +function RitualTributePrio(card,mirror,lvlrestrict,filter,opt) + local level = card.level + if mirror == nil then + mirror = 0 + end + local mirrorcheck = function(m) + return (mirror == m or mirror == 0) and HasMirror(m) + end + local cards + local valid = {} + if level == nil then -- test + level = 4 + end + if mirrorcheck(2) then + cards = UseLists(AICards(),SubGroup(AIGrave(),ExoFilter)) + local result = GetTributeCombinations(cards,card,lvlrestrict) + if #result>3 then return 4 end + table.sort(result,function(a,b) + return a[1].prio+(a[2].prio or 0) > b[1].prio+(b[2].prio or 0) + end) + return (result[1].prio+result[2].prio)*0.5 + end + if mirrorcheck(3) then + cards = AICards() + local result = GetTributeCombinations(cards,card,lvlrestrict) + if #result>3 then return 4 end + table.sort(result,function(a,b) + return a[1].prio+(a[2].prio or 0) > b[1].prio+(b[2].prio or 0) + end) + return (result[1].prio+result[2].prio)*0.5 + end + return -1 +end + function RitualTributeCheck(level,mirror,lvlrestrict,fav) local cards - local ritual=UseLists(AIHand(),AIST()) - if mirror == 1 or mirror == 0 and HasID(ritual,51124303) then -- Kaleidomirror + local ritual=AICards() + local mirrorcheck = function(m) return (mirror == m or mirror == 0) and HasMirror(m) end + if mirrorcheck(1) then -- Kaleidomirror cards = UseLists(AIHand(),AIMon(),AIExtra()) if fav then cards = AIExtra() end local result = false @@ -103,21 +204,23 @@ function RitualTributeCheck(level,mirror,lvlrestrict,fav) if level == 3 and HasID(AIGrave(),08903700,true) then -- Djinn Releaser result = true end - return HasID(UseLists(AIHand(),AIMon()),90307777,true) or result - elseif mirror == 2 or mirror == 0 and HasID(ritual,14735698)then -- Exomirror + return HasFullTribute(AICards()) or result + elseif mirrorcheck(2) then -- Exomirror cards = UseLists(AIHand(),AIMon(),SubGroup(AIGrave(),ExoFilter)) if fav then cards = SubGroup(AIGrave(),ExoFilter) end local result = CheckLvlSum(cards,level,lvlrestrict) - return HasID(UseLists(AIHand(),AIMon(),SubGroup(AIGrave(),ExoFilter)),90307777,true) or result - elseif mirror == 3 or mirror == 0 and HasID(ritual,97211663) then -- Cycle - cards = UseLists(AIHand(),AIMon()) + return HasFullTribute(cards) or result + elseif mirrorcheck(3) then -- Cycle + cards = AICards() local result = CheckLvlSum(cards,level,lvlrestrict) - return HasID(cards,90307777,true) or (result and not fav) + return HasFullTribute(AICards()) or (result and not fav) end end function RitualSpellCheck(cards) if cards == nil then cards = UseLists(AIHand(),AIST()) end - return HasID(cards,14735698,true) or HasID(cards,51124303,true) or HasID(cards,97211663,true) + return HasID(cards,14735698,true) + or HasID(cards,51124303,true) + or HasID(cards,97211663,true) end function NekrozOTKCheck() local cards=UseLists({AIMon(),AIExtra()}) @@ -150,16 +253,51 @@ function SearchCheck() return (HasID(AIHand(),95492061,true) or HasID(AIHand(),23401839,true)) and not NormalSummonCheck() end +function ExaFilter(c) + return NekrozMonsterFilter(c) and FilterRace(c,RACE_DRAGON) +end +function ExaFilter2(c) + return NekrozMonsterFilter(c) and not FilterType(c,TYPE_RITUAL) + and FilterRevivable(c) +end function ExaCond(loc,c) + if (FilterLocation(c,LOCATION_HAND) + or FilterLocation(c,LOCATION_MZONE)) + and loc == PRIO_TRIBUTE + then + return OPTCheck(c.id) + and CardsMatchingFilter(AIDeck(),ExaFilter)>0 + end + if loc == PRIO_BANISH + then + return OPTCheck(c.id) + and CardsMatchingFilter(AIBanish(),ExaFilter2)>0 + and DualityCheck() + end return true end +function SorcererFilter(c) + return NekrozMonsterFilter(c) and FilterRace(c,RACE_SPELLCASTER) +end function SorcererCond(loc,c) + if (FilterLocation(c,LOCATION_HAND) + or FilterLocation(c,LOCATION_MZONE)) + and loc == PRIO_TRIBUTE + then + return OPTCheck(c.id) + and CardsMatchingFilter(AIDeck(),SorcererFilter)>0 + end + if loc == PRIO_BANISH + then + return OPTCheck(c.id) + and MacroCheck() + end return true end function ShadowCond(loc,c) return true end -function ShadowCond(loc,c) +function VisionCond(loc,c) return true end function NekrozCatastorCond(loc,c) @@ -195,11 +333,12 @@ function UniCond(loc,c) end function BrioCond(loc,c) if loc == PRIO_TOHAND then - return UseBrio() and Duel.GetTurnPlayer()==player_ai - and not FilterLocation(c,LOCATION_GRAVE) + return Duel.GetTurnPlayer()==1-player_ai + or CardsMatchingFilter(OppMon(),BrioFilter)>0 + or HasIDNotNegated(AIMon(),25857246,true) end if loc == PRIO_TOFIELD then - return SummonBrio() + return SummonBrio(c) end if loc == PRIO_TOGRAVE and FilterLocation(c,LOCATION_MZONE) then return not ReleaserCheck(c) @@ -217,7 +356,8 @@ function GungCond(loc,c) end function TrishCond(loc,c) if loc == PRIO_TOHAND then - return UseTrishula() and Duel.GetTurnPlayer()==player_ai and not HasID(AIHand(),52068432,true) + return UseTrishula() and Duel.GetTurnPlayer()==player_ai + and not HasID(AIHand(),52068432,true) end if loc == PRIO_TOFIELD then return UseTrishula() @@ -235,7 +375,7 @@ function ValkCond(loc,c) return true end if loc == PRIO_TOGRAVE and FilterLocation(c,LOCATION_MZONE) then - return not ReleaserCheck(c) + return Negated(c) end return true end @@ -266,6 +406,19 @@ function ManjuCond(loc,c) return not (HasID(AIHand(),95492061,true) or HasID(AIHand(),23401839,true)) end + if loc == PRIO_TRIBUTE then + return FilterLocation(c,LOCATION_MZONE) + end + return true +end +function SenjuCond(loc,c) + if loc == PRIO_TOHAND then + return not (HasID(AIHand(),95492061,true) + or HasID(AIHand(),23401839,true)) + end + if loc == PRIO_TRIBUTE then + return FilterLocation(c,LOCATION_MZONE) + end return true end function UnicoreCheck() @@ -306,7 +459,8 @@ function PrincessFilter(c) end function PrincessCond(loc,c) if loc == PRIO_TOGRAVE then - return CardsMatchingFilter(AIBanish(),PrincessFilter)>0 and not FilterLocation(c,LOCATION_MZONE) + return CardsMatchingFilter(AIBanish(),PrincessFilter)>0 + --and not FilterLocation(c,LOCATION_MZONE) end return true end @@ -321,7 +475,8 @@ function SekkaFilter(c) end function SekkaCond(loc,c) if loc == PRIO_TOGRAVE then - return CardsMatchingFilter(AIST(),SekkaFilter)>0 and CardsMatchingFilter(OppST(),SekkaFilter)==0 + return CardsMatchingFilter(AIST(),SekkaFilter)>0 + and CardsMatchingFilter(OppST(),SekkaFilter)==0 end return true end @@ -329,10 +484,21 @@ function UseTrishula() return #OppHand()>0 and #OppField()>0 and #OppGrave()>0 and OPTCheck(52068432) end -function SummonTrishula(mirror) - return DualityCheck() and RitualTributeCheck(9,mirror,true) +function SummonTrishula(c,mode) + if c and c.id~=52068432 + or not DualityCheck() + then + return false + end + if mode == 1 then + return UseTrishula() + end + if mode == 2 then + return OppHasStrongestMonster() and OppGetStrongestAttDef()<2700 + end + return false end -function SummonUnicore(mirror) +function SummonUnicore(c,mirror) return DualityCheck() and mirror == 1 and HasID(AIExtra(),79606837,true) and not HasID(AIMon(),79606837,true) @@ -357,8 +523,17 @@ function UseClaus() or NeedsCard(97211663,AIDeck(),AIHand(),true) and OPTCheck(97211663)) and OPTCheck(99185129) end -function UseBrio() - return OPTCheck(26674724) and not QuasarComboCheck() and not SummonBrio(0) +function UseBrio(c,mode) + if FilterLocation(c,LOCATION_HAND) then + if mode == 1 then + if HasIDNotNegated(AIMon(),25857246,true,FilterOPT) then + return true + end + end + if mode == 2 then + return OPTCheck(26674724) and not QuasarComboCheck() and not SummonBrio(c,0) + end + end end function BrioFilter(c) return FilterLocation(c,LOCATION_MZONE) and FilterPreviousLocation(c,LOCATION_EXTRA) @@ -366,29 +541,51 @@ function BrioFilter(c) and Targetable(c,TYPE_MONSTER) and Affected(c,TYPE_MONSTER,6) and CurrentOwner(c)==2 end -function SummonBrio(mirror) +function SummonBrio(c,mirror) return OPTCheck(266747241) and CardsMatchingFilter(OppMon(),BrioFilter)>1 and (mirror==nil or RitualTributeCheck(6,mirror,false)) end function UseBrioField() return OPTCheck(266747241) and CardsMatchingFilter(OppMon(),BrioFilter)>0 end -function UseUnicore() - return not SummonUnicore(1) and OPTCheck(89463537) - and not HasID(UseLists(AIHand(),AIST()),97211663,true) and UseCycle() +function UseUnicore(c) + return not SummonUnicore(c,1) and OPTCheck(89463537) + and not HasID(UseLists(AIHand(),AIST()),97211663,true,UseCycle,1) end -function SummonValk(mirror) - return DualityCheck() and RitualTributeCheck(8,mirror,true,true) +function SummonValk(c,mode) + if not (c.id == 25857246 and DualityCheck()) then + return false + end + if mode == 1 + and not HasIDNotNegated(AIMon(),c.id,true) + then + return true + end +end +function UseValk(c) + return PriorityCheck(AICards(),PRIO_TRIBUTE,1,FilterType,TYPE_MONSTER)>2 + and MP2Check() + and OPTCheck(25857246) + and #AIHand()<5 + and FilterLocation(c,LOCATION_MZONE) +end +function SummonDA(c,mode) + return true -- WIP +end +function SummonGung(c,mode) + return true -- WIP end -function UseValk(check) - return PriorityCheck(AIMon(),PRIO_TOGRAVE)>2 and (MP2Check() or check) - and OPTCheck(25857246) and #AIHand()<5 +function SummonClaus(c,mode) + return true -- WIP +end +function SummonNekrozCatastor(c,mode) + return true -- WIP end function RitualSummonCheck(mirror) local cards = UseLists(AIHand(),AIMon(),AIGrave()) local rituals = AIHand() local result = false - if mirror == 3 then rituals = AIGrave() end + if mirror == 3 then rituals = UseLists(cards,AIGrave()) end if HasID(rituals,89463537,true) and SummonUnicore(mirror) then @@ -439,7 +636,8 @@ function UsePreparation() return true end return CardsMatchingFilter(UseLists(AIMon(),AIHand()),NekrozMonsterFilter,true)==0 - and (not HasID(AIHand(),95492061,true) and not HasID(AIHand(),23401839,true) or NormalSummonCheck(player_ai)) + and (not HasID(AIHand(),95492061,true) and not HasID(AIHand(),23401839,true) + or NormalSummonCheck(player_ai)) end function SummonNyarla() return DualityCheck() and MP2Check() @@ -486,9 +684,9 @@ function UseEnterblathnir(cards) if cards == nil then cards = UseLists(OppHand(),OppField()) end return #cards>0 end -function SummonEnterblathnir() +function SummonEnterblathnir(c) return DualityCheck() and HasID(AIExtra(),95113856,true) - and MP2Check() and #UseLists(OppHand(),OppMon())>0 + and MP2Check(c) and #UseLists(OppHand(),OppCards())>0 end function UseTradeIn() return true @@ -497,8 +695,9 @@ function UseChainNekroz1() return DeckCheck(DECK_NEKROZ) and HasID(AIDeck(),08903700,true) end function UseChainNekroz2() - if DeckCheck(DECK_NEKROZ) and (Duel.GetCurrentPhase()==PHASE_MAIN2 or not GlobalBPAllowed - or HasID(AIMon(),25857246,true) and UseValk()) + if DeckCheck(DECK_NEKROZ) + and (Duel.GetCurrentPhase()==PHASE_MAIN2 or not GlobalBPAllowed + or HasID(AIMon(),25857246,true,UseValk)) then GlobalStacked=Duel.GetTurnCount() return true @@ -532,14 +731,194 @@ function RainbowNeosCheck() and (HasID(AIHand(),99185129,true) and HasID(AIHand(),74122412,true) or HasID(AIHand(),89463537,true) and HasID(AIHand(),26674724,true)) end -function UseKaleido() - return RitualSummonCheck(1) or QuasarComboCheck() or RainbowNeosCheck() + +function ShouldRitualSummon(cards,mode,filter,opt) + cards=SubGroup(cards,NekrozMonsterFilter,true) + local result = {} + if not mode then mode = 1 end + for i,c in pairs(cards) do + if FilterID(c,52068432) and SummonTrishula(c,mode) then result[#result+1]=c;c.prio=8 end + if FilterID(c,26674724) and SummonBrio(c,mode) then result[#result+1]=c;c.prio=7 end + if FilterID(c,25857246) and SummonValk(c,mode) then result[#result+1]=c;c.prio=6 end + if FilterID(c,88240999) and SummonDA(c,mode) then result[#result+1]=c;c.prio=5 end + if FilterID(c,74122412) and SummonGung(c,mode) then result[#result+1]=c;c.prio=4 end + if FilterID(c,89463537) and SummonUnicore(c,mode) then result[#result+1]=c;c.prio=3 end + if FilterID(c,99185129) and SummonClaus(c,mode) then result[#result+1]=c;c.prio=2 end + if FilterID(c,52846880) and SummonNekrozCatastor(c,mode) then result[#result+1]=c;c.prio=1 end + end + result = SubGroup(cards,filter,opt) + table.sort(result,function(a,b) return a.prio>b.prio end) + PrintList(result) + if #result == 0 then + result = nil + end + return result end -function UseExo() - return RitualSummonCheck(2) +function UseKaleido(c,mode) + if FilterLocation(c,LOCATION_HAND) or FilterLocation(c,LOCATION_SZONE) then + if mode == 1 then -- send Arc Light, summon Unicore + local target = FindID(89463537,AIHand(),nil,SummonUnicore,1) + if HasID(AIExtra(),79606837,true) + and MacroCheck() and DualityCheck() + and target + then + GlobalKaleidoTarget = FindID(79606837,AIExtra()) + print("summon Unicore/Arc") + return true + end + end + if mode == 2 then -- send for full tribute, summon whatever + if HasFullTribute(AICards()) then + local target = ShouldRitualSummon(AIHand(),1)[1] + if target then + GlobalKaleidoTarget = FindCardByFilter(AICards(),IsFullTribute) + GlobalKaleidoSummon = target + print("summon with full tribute:") + print(GetName(GlobalKaleidoSummon)) + return true + end + end + end + if mode == 5 then -- send from extra, summon Brio + local target = FindCardByFilter(AIExtra(),FilterLevel,6) + if HasID(AIHand(),26674724,true,SummonBrio) + and target + then + GlobalKaleidoTarget = target + return true + end + end + if mode == 3 then -- send from extra, summon whatever + local target = FindCardByFilter(AIExtra(),FilterLevel,6) + if HasID(AIHand(),26674724,true,SummonBrio) + and target + then + GlobalKaleidoTarget = target + return true + end + local target = FindCardByFilter(AIExtra(),FilterLevel,3) + if HasID(AIHand(),99185129,true,SummonClaus) + and target + then + GlobalKaleidoTarget = target + return true + end + local target = FindCardByFilter(AIExtra(),FilterLevel,5) + if HasID(AIHand(),52846880,true,SummonNekrozCatastor) + and target + then + GlobalKaleidoTarget = target + return true + end + end + if mode == 4 then -- send high level, summon multiples + local target = FindCardByFilter(AIExtra(),FilterLevel,12) + if target and SummonTrishClaus() then + GlobalKaleidoTarget = target + GlobalKaleidoSummon = {FindID(52068432,AIHand()),FindID(99185129,AIHand())} + end + if target and SummonValkUnicore() then + GlobalKaleidoTarget = target + GlobalKaleidoSummon = {FindID(25857246,AIHand()),FindID(89463537,AIHand())} + end + if target and SummonGungCatastor() then + GlobalKaleidoTarget = target + GlobalKaleidoSummon = {FindID(74122412,AIHand()),FindID(52846880,AIHand())} + end + target = FindCardByFilter(AIExtra(),FilterLevel,11) + if target and SummonValkClaus() then + GlobalKaleidoTarget = target + GlobalKaleidoSummon = {FindID(25857246,AIHand()),FindID(99185129,AIHand())} + end + if target and SummonGungUnicore() then + GlobalKaleidoTarget = target + GlobalKaleidoSummon = {FindID(74122412,AIHand()),FindID(89463537,AIHand())} + end + if target and SummonBrioCatastor() then + GlobalKaleidoTarget = target + GlobalKaleidoSummon = {FindID(26674724,AIHand()),FindID(52846880,AIHand())} + end + target = FindCardByFilter(AIExtra(),FilterLevel,10) + if target and SummonBrioUnicore() then + GlobalKaleidoTarget = target + GlobalKaleidoSummon = {FindID(26674724,AIHand()),FindID(89463537,AIHand())} + end + if target and SummonCatastorClaus() then + GlobalKaleidoTarget = target + GlobalKaleidoSummon = {FindID(52846880,AIHand()),FindID(99185129,AIHand())} + end + end + return false + end +end +function UseExo(c,mode) + if FilterLocation(c,LOCATION_HAND) or FilterLocation(c,LOCATION_SZONE) then + if mode == 1 then -- banish from grave for full tribute + if HasFullTribute(AIGrave()) then + local target = ShouldRitualSummon(AIHand())[1] + if target then + GlobalExoTarget = FindCardByFilter(AIGrave(),IsFullTribute) + GlobalExoSummon = target + end + end + end + if mode == 2 then -- send for full tribute + if HasFullTribute(AIHand()) then + local target = ShouldRitualSummon(AIHand())[1] + if target then + GlobalExoTarget = FindCardByFilter(AIGrave(),IsFullTribute) + GlobalExoSummon = target + end + end + end + if mode == 3 then -- only banish from grave + local targets = ShouldRitualSummon(AIHand()) + for i=1,#targets do + local c = targets[i] + if RitualTributePrio(c,2,c.level>6)>4 then + + end + end + end + if mode == 4 then -- combination/send from hand + + end + return false + end +end +function UseCycle(c,mode) + if FilterLocation(c,LOCATION_HAND) or FilterLocation(c,LOCATION_SZONE) then + if mode == 1 then -- send for full tribute to summon from grave + if HasFullTribute(AIHand()) then + local target = ShouldRitualSummon(AIGrave())[1] + if target then + GlobalCycleTarget = FindCardByFilter(AIHand(),IsFullTribute) + GlobalCycleSummon = target + end + end + end + if mode == 2 then -- send for full tribute + if HasFullTribute(AIHand()) then + local target = ShouldRitualSummon(AIHand())[1] + if target then + GlobalCycleTarget = FindCardByFilter(AIHand(),IsFullTribute) + GlobalCycleSummon = target + end + end + end + if mode == 3 then -- summon from grave + end + if mode == 4 then -- summon from hand + end + return false + end end -function UseCycle() - return RitualSummonCheck(3) +function UseMirrorGrave(c,mode) + if FilterLocation(c,LOCATION_GRAVE) then + if mode == 1 then + return #AIHand()<6 + end + end end function NekrozInit(cards) GlobalPreparation = nil @@ -574,21 +953,27 @@ function NekrozInit(cards) if HasID(Act,96729612) and UsePreparation() then return {COMMAND_ACTIVATE,CurrentIndex} end - if HasID(Act,51124303,false,nil,LOCATION_GRAVE) and #AIHand()<6 then -- Kaleido grave + if HasID(Act,51124303,UseMirrorGrave) then -- Kaleido grave GlobalCardMode = 1 return {COMMAND_ACTIVATE,CurrentIndex} end - if HasID(Act,97211663,false,nil,LOCATION_GRAVE) and #AIHand()<6 then -- Cycle grave + if HasID(Act,97211663,UseMirrorGrave) then -- Cycle grave GlobalCardMode = 1 return {COMMAND_ACTIVATE,CurrentIndex} end - if HasID(Act,14735698,false,nil,LOCATION_GRAVE) and #AIHand()<6 then -- Exo grave + if HasID(Act,14735698,UseMirrorGrave) then -- Exo grave GlobalCardMode = 1 return {COMMAND_ACTIVATE,CurrentIndex} end if HasID(Act,32807846) and UseRotA() then -- RotA return {COMMAND_ACTIVATE,CurrentIndex} end + if HasID(Sum,23401839) then -- Senju + return {COMMAND_SUMMON,CurrentIndex} + end + if HasID(Sum,95492061) then -- Manju + return {COMMAND_SUMMON,CurrentIndex} + end if HasID(Act,08809344) then -- Nyarla return {COMMAND_ACTIVATE,CurrentIndex} end @@ -596,31 +981,26 @@ function NekrozInit(cards) OPTSet(99185129) return {COMMAND_ACTIVATE,CurrentIndex} end - if HasID(Act,26674724,false,nil,LOCATION_HAND) and UseBrio() then + if HasID(Act,26674724,UseBrio,1) then OPTSet(26674724) return {COMMAND_ACTIVATE,CurrentIndex} end if HasID(Act,88240999,false,nil,LOCATION_MZONE) and UseArmor() then return {COMMAND_ACTIVATE,CurrentIndex} end - if HasID(Act,89463537,false,nil,LOCATION_HAND) and UseUnicore() then + if HasID(Act,89463537,false,nil,LOCATION_HAND,UseUnicore) then OPTSet(89463537) return {COMMAND_ACTIVATE,CurrentIndex} end if HasID(Act,44505297) and UseExaBeetle() then return {COMMAND_ACTIVATE,CurrentIndex} end - if HasID(Sum,23401839) then -- Senju - return {COMMAND_SUMMON,CurrentIndex} - end - if HasID(Sum,95492061) then -- Manju - return {COMMAND_SUMMON,CurrentIndex} - end + if HasID(Sum,13974207) and SummonDenkou() then return {COMMAND_SUMMON,CurrentIndex} end if HasID(Sum,52738610) and SummonDancePrincess() then - return {COMMAND_SUMMON,CurrentIndex} + --return {COMMAND_SUMMON,CurrentIndex} TODO: re-enable end if HasID(Sum,30312361) and SummonPoC() then return {COMMAND_SUMMON,CurrentIndex} @@ -646,18 +1026,30 @@ function NekrozInit(cards) if HasID(Act,95113856) and UseEnterblathnir() then return {COMMAND_ACTIVATE,CurrentIndex} end - if HasID(SpSum,95113856) and SummonEnterblathnir() then - return {COMMAND_SPECIAL_SUMMON,CurrentIndex} + if HasID(SpSum,95113856,SummonEnterblathnir()) then + return XYZSummon() end - if HasID(Act,51124303,false,nil,LOCATION_HAND+LOCATION_SZONE) and UseKaleido() then + if HasID(Act,51124303,UseKaleido,5) then + OPTSet(51124303) + return {COMMAND_ACTIVATE,CurrentIndex} + end + if HasID(Act,26674724,UseBrio,2) then + OPTSet(26674724) + return {COMMAND_ACTIVATE,CurrentIndex} + end + if HasID(Act,51124303,UseKaleido,2) then + OPTSet(51124303) + return {COMMAND_ACTIVATE,CurrentIndex} + end + if HasID(Act,51124303,UseKaleido,3) then OPTSet(51124303) return {COMMAND_ACTIVATE,CurrentIndex} end - if HasID(Act,97211663,false,nil,LOCATION_HAND+LOCATION_SZONE) and UseCycle() then + if HasID(Act,97211663,UseCycle,1) then OPTSet(97211663) return {COMMAND_ACTIVATE,CurrentIndex} end - if HasID(Act,14735698,false,nil,LOCATION_HAND+LOCATION_SZONE) and UseExo() then + if HasID(Act,14735698,UseExo,1) then OPTSet(14735698) return {COMMAND_ACTIVATE,CurrentIndex} end @@ -665,7 +1057,11 @@ function NekrozInit(cards) GlobalCardMode = 2 return {COMMAND_ACTIVATE,CurrentIndex} end - if HasID(Act,25857246,false,nil,LOCATION_MZONE) and UseValk() then + if HasID(Act,51124303,UseKaleido,1) then + OPTSet(51124303) + return {COMMAND_ACTIVATE,CurrentIndex} + end + if HasID(Act,25857246,UseValk) then OPTSet(25857246) return {COMMAND_ACTIVATE,CurrentIndex} end @@ -702,7 +1098,8 @@ end GlobalKaleidoTarget = nil GlobalExoTarget = nil GlobalCycleTarget = nil -function KaleidoTarget(cards) +function KaleidoTarget(cards,count) + local result = {} if GlobalCardMode == 1 then GlobalCardMode = nil return Add(cards,PRIO_BANISH) @@ -714,11 +1111,33 @@ function KaleidoTarget(cards) end local c = FindCard(GlobalKaleidoTarget) if c then - return Add(cards,PRIO_TOFIELD) + GlobalKaleidoTarget=nil + return Add(cards,PRIO_TOFIELD,1,CardsEqual,c) + end + if GlobalKaleidoSummon then + if type(GlobalKaleidoSummon) == "table" + and count == 2 + then + local list = GlobalKaleidoSummon + GlobalKaleidoSummon = nil + result[1]=FindCard(cards,list[1],true) + result[2]=FindCard(cards,list[2],true) + return result + else + c = FindCard(GlobalKaleidoSummon,cards) + GlobalKaleidoSummon = nil + return Add(cards,PRIO_TOFIELD,1,CardsEqual,c) + end + end + local c = FindCard(GlobalKaleidoSummon) + if c then + GlobalKaleidoSummon=nil + return Add(cards,PRIO_TOFIELD,1,CardsEqual,c) end local result = {math.random(#cards)} for i=1,#cards do - if cards[i].level == 12 and HasID(AIHand(),25857246,true) and HasID(AIHand(),89463537,true) + if cards[i].level == 12 and HasID(AIHand(),25857246,true) + and HasID(AIHand(),89463537,true) and not CycleReleaserCheck(true) and GlobalBPAllowed then return {i} @@ -730,7 +1149,7 @@ function KaleidoTarget(cards) end end for i=1,#cards do - if cards[i].level == 6 and SummonBrio() then + if cards[i].level == 6 and SummonBrio(cards[i]) then return {i} end end @@ -921,14 +1340,16 @@ function EnterblathnirTarget(cards) return BestTargets(cards,1,TARGET_BANISH) end function ValkFilter(c) - return (FilterLocation(c,LOCATION_MZONE) or FilterID(c,52738610)) + return (FilterLocation(c,LOCATION_MZONE) or FilterLocation(c,LOCATION_HAND)) + and c.prio>3 end function ValkTarget(cards) if LocCheck(cards,LOCATION_GRAVE) then return Add(cards,PRIO_BANISH) end - local count = math.max(math.min(2,CardsMatchingFilter(UseLists(AIMon(),AIHand()),ValkFilter)),1) - return Add(cards,PRIO_TOGRAVE,count,ValkFilter) + AssignPriority(cards,PRIO_TRIBUTE) + local count = math.max(math.min(2,CardsMatchingFilter(cards,ValkFilter)),1) + return Add(cards,PRIO_TRIBUTE,count,ValkFilter) end function UsePoC() return HasID(AIGrave(),86346643,true) and UseRainbowNeos() @@ -983,7 +1404,7 @@ function NekrozCard(cards,min,max,id,c) return BrioTarget(cards,max) end if id == 51124303 then - return KaleidoTarget(cards) + return KaleidoTarget(cards,min) end if id == 14735698 then return ExoTarget(cards) @@ -1169,7 +1590,7 @@ function ChainGungnir(c) return true end end - if Duel.GetCurrentPhase()==PHASE_BATTLE then + if IsBattlePhase() then local source = Duel.GetAttacker() local target = Duel.GetAttackTarget() if source and target then @@ -1189,6 +1610,31 @@ function ChainGungnir(c) end end end + if FilterLocation(c,LOCATION_MZONE) + and NotNegated(c) + then + local targets = SubGroup(OppField(),DestroyFilter) + local priotargets = SubGroup(targets,FilterPriorityTarget) + if RemovalCheckCard(c) or NegateCheckCard(c) + and #targets>0 + then + return true + end + if not UnchainableCheck(74122412) then + return false + end + if #priotargets>0 and (OppHasStrongestMonster() + or not BattlePhaseCheck()) + then + return true + end + if #targets>0 and Duel.GetTurnPlayer()==1-player_ai + and Duel.CheckTiming(TIMING_END_PHASE) + and PriorityCheck(AIHand(),PRIO_DISCARD,1,NekrozFilter)>3 + then + return true + end + end return false end function ValkBattleFilter(c) @@ -1196,7 +1642,7 @@ function ValkBattleFilter(c) and not c:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) end function ChainValk(c) - if Duel.GetCurrentPhase() == PHASE_BATTLE and Duel.GetTurnPlayer() == 1-player_ai then + if IsBattlePhase() and Duel.GetTurnPlayer() == 1-player_ai then local source = Duel.GetAttacker() local target = Duel.GetAttackTarget() if source and target then @@ -1267,6 +1713,9 @@ function ChainClaus() end end end +function ChainNekrozSorcerer(c) + return true +end function NekrozChain(cards) if HasID(cards,79606837,false,nil,LOCATION_GRAVE) then -- Rainbow Herald return {1,CurrentIndex} @@ -1306,6 +1755,9 @@ function NekrozChain(cards) if HasID(cards,52738610) then -- Dance Princess return {1,CurrentIndex} end + if HasID(cards,27796375,ChainNekrozSorcerer) then + return Chain() + end return nil end @@ -1349,6 +1801,9 @@ function NekrozEffectYesNo(id,card) if id == 52738610 then -- Dance Princess result = 1 end + if id == 27796375 and ChainNekrozSorcerer(card) then + return true + end return result end NekrozAtt={ @@ -1368,7 +1823,7 @@ function NekrozPosition(id,available) if NekrozAtt[i]==id then result=POS_FACEUP_ATTACK end end for i=1,#NekrozDef do - if NekrozDef[i]==id then result=POS_FACEUP_DEFENCE end + if NekrozDef[i]==id then result=POS_FACEUP_DEFENSE end end return result end diff --git a/ai/decks/NobleKnight.lua b/ai/decks/NobleKnight.lua index 8a20429e..f496f51e 100644 --- a/ai/decks/NobleKnight.lua +++ b/ai/decks/NobleKnight.lua @@ -1344,7 +1344,7 @@ end function HighSallyTarget(cards) - if Duel.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then return Add(cards) else local result = ArmsByAtk(cards,2100) @@ -1646,7 +1646,7 @@ function ChainMerlin() return #GlobalMerlinID>0 end end - if Duel.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then if Duel.GetTurnPlayer() == player_ai then if ExpectedDamage(2)==0 then --return true @@ -1737,8 +1737,8 @@ function ChainGwen() end if (target:IsPosition(POS_ATTACK) and source:IsPosition(POS_ATTACK) and (source:GetAttack() > target:GetAttack() or source:GetAttack() == target:GetAttack() and not target:IsHasEffect(EFFECT_INDESTRUCTIBLE_COUNT)) - or target:IsPosition(POS_ATTACK) and source:IsPosition(POS_DEFENCE) and source:GetDefence() >= target:GetAttack() - or target:IsPosition(POS_DEFENCE) and source:IsPosition(POS_ATTACK) and source:GetAttack() >= target:GetDefence() + or target:IsPosition(POS_ATTACK) and source:IsPosition(POS_DEFENSE) and source:GetDefense() >= target:GetAttack() + or target:IsPosition(POS_DEFENSE) and source:IsPosition(POS_ATTACK) and source:GetAttack() >= target:GetDefense() or source:IsPosition(POS_FACEDOWN) and not target:IsCode(83519853) or source:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) or source:IsHasEffect(EFFECT_INDESTRUCTABLE_COUNT)) @@ -1826,7 +1826,7 @@ function NoblePosition(id,available) if NobleAtt[i]==id then result=POS_FACEUP_ATTACK end end for i=1,#NobleDef do - if NobleDef[i]==id then result=POS_FACEUP_DEFENCE end + if NobleDef[i]==id then result=POS_FACEUP_DEFENSE end end if id == 93085839 and Duel.GetCurrentPhase()==PHASE_MAIN1 and GlobalBPAllowed and (GwenCheck() or OppGetStrongestAttDef()<1600) diff --git a/ai/decks/Qliphort.lua b/ai/decks/Qliphort.lua index 79253d13..6849b19a 100644 --- a/ai/decks/Qliphort.lua +++ b/ai/decks/Qliphort.lua @@ -30,31 +30,7 @@ end function QliphortFilter(c,exclude) return IsSetCode(c.setcode,0xaa) and (exclude == nil or c.id~=exclude) end -function Scale(c) -- backwards compatibility - return c.lscale -end -function ScaleCheck(p) - local cards=AIST() - local result = 0 - local count = 0 - if p == 2 then - cards=OppST() - end - for i=1,#cards do - if bit32.band(cards[i].type,TYPE_PENDULUM)>0 then - result = Scale(cards[i]) - count = count + 1 - end - end - if count == 0 then - return false - elseif count == 1 then - return result - elseif count == 2 then - return true - end - return nil -end + function QliphortAttackBonus(id,level) if level == 4 then if id == 90885155 or id == 64496451 @@ -131,13 +107,13 @@ function MonolithCond(loc,c) if HasID(AICards(),65518099,true) then return 5 end - return PendulumSummon(2) and not HasID(AIHand(),51194046,true) + return QliPendulumSummon(2) and not HasID(AIHand(),51194046,true) end return true end function DiskCond(loc,c) if loc == PRIO_TOHAND then - return (TributeSummonDisk() or PendulumSummon(2))and not HasID(AIHand(),64496451,true) + return (TributeSummonDisk() or QliPendulumSummon(2))and not HasID(AIHand(),64496451,true) end if loc == PRIO_TOFIELD then return SkillDrainCheck() @@ -146,7 +122,7 @@ function DiskCond(loc,c) end function StealthCond(loc,c) if loc == PRIO_TOHAND then - return (TributeSummonStealth(1) or PendulumSummon(2))and not HasID(AIHand(),13073850,true) + return (TributeSummonStealth(1) or QliPendulumSummon(2))and not HasID(AIHand(),13073850,true) end if loc == PRIO_TOFIELD then return SkillDrainCheck() @@ -183,7 +159,7 @@ function ArchiveFilter(c) end function ArchiveCond(loc,c) if loc == PRIO_TOHAND then - return not HasID(UseLists({AIHand(),AIMon(),AIExtra()}),91907707,true) or PendulumSummon(2) + return not HasID(UseLists({AIHand(),AIMon(),AIExtra()}),91907707,true) or QliPendulumSummon(2) end if loc == PRIO_TOFIELD then return CardsMatchingFilter(OppMon(),ArchiveFilter) @@ -210,7 +186,7 @@ function SacrificeCond(loc,c) if loc == PRIO_TOHAND then return not HasID(UseLists({AIHand(),AIST()}),17639150,true) and (PriorityCheck(AIHand(),PRIO_TOFIELD)>2 or CardsMatchingFilter(AIMon(),QliphortFilter)>0) - and not PendulumSummon(2) and not (#AIMon()>1) + and not QliPendulumSummon(2) and not (#AIMon()>1) end return true end @@ -227,7 +203,7 @@ function UseTool(c) elseif bit32.band(c.location,LOCATION_SZONE)>0 then if AI.GetPlayerLP(1)<=800 then return false end return AI.GetPlayerLP(1)>4000 or ScaleCheck() ~= true - and PendulumSummon(2) or OppHasStrongestMonster() + and QliPendulumSummon(2) or OppHasStrongestMonster() end return false end @@ -235,7 +211,7 @@ function UseSacrifice() return not HasID(AIST(),17639150,true,nil,nil,nil,FilterPosition,POS_FACEUP) and CardsMatchingFilter(AIMon(),QliphortFilter)>0 end -function PendulumSummon(count) +function QliPendulumSummon(count) if count == nil then count = 1 end return CardsMatchingFilter(AIExtra(),QliphortFilter)>=count and DualityCheck() and PendulumSummonCheck() @@ -332,34 +308,34 @@ function SummonStealth() return false end function UseGenome() - return ScaleCheck() and ScaleCheck()<9 and PendulumSummon() + return ScaleCheck() and ScaleCheck()<9 and QliPendulumSummon() end function UseArchive() - return ScaleCheck()==9 and PendulumSummon() + return ScaleCheck()==9 and QliPendulumSummon() end function UseDisk() - return ScaleCheck()==9 and PendulumSummon() and not TributeSummonDisk() + return ScaleCheck()==9 and QliPendulumSummon() and not TributeSummonDisk() end function UseStealth() - return ScaleCheck()==9 and PendulumSummon() and not TributeSummonStealth(1) + return ScaleCheck()==9 and QliPendulumSummon() and not TributeSummonStealth(1) end function UseShell() - return ScaleCheck() and ScaleCheck()<9 and PendulumSummon() and not TributeSummonShell() + return ScaleCheck() and ScaleCheck()<9 and QliPendulumSummon() and not TributeSummonShell() end function UseTrampolynx() - return ScaleCheck()==9 and PendulumSummon() + return ScaleCheck()==9 and QliPendulumSummon() end function UseMonolith() - return ScaleCheck()==9 and PendulumSummon() + return ScaleCheck()==9 and QliPendulumSummon() end function UseOddEyes() - return (ScaleCheck()==9 and PendulumSummon() + return (ScaleCheck()==9 and QliPendulumSummon() or not HasID(UseLists(AIMon(),AIST()),65518099,true) or not HasID(UseLists(AIMon(),AIST()),43241495,true)) and not HasID(AIST(),16178681,true) end function UseDualityQliphort() - return DeckCheck(DECK_QLIPHORT) and (ScaleCheck()==false or not PendulumSummon()) + return DeckCheck(DECK_QLIPHORT) and (ScaleCheck()==false or not QliPendulumSummon()) end GlobalPendulum=0 function PendulumSummonCheck() @@ -417,7 +393,7 @@ function QliphortInit(cards) return {COMMAND_ACTIVATE,CurrentIndex} end for i=1,#SpSum do - if PendulumCheck(SpSum[i]) and PendulumSummon() then + if PendulumCheck(SpSum[i]) and QliPendulumSummon() then GlobalPendulumSummoning = true GlobalPendulum=Duel.GetTurnCount() return {COMMAND_SPECIAL_SUMMON,i} @@ -903,7 +879,7 @@ function QliphortPosition(id,available) if QliphortAtt[i]==id then result=POS_FACEUP_ATTACK end end for i=1,#QliphortDef do - if QliphortDef[i]==id then result=POS_FACEUP_DEFENCE end + if QliphortDef[i]==id then result=POS_FACEUP_DEFENSE end end return result end diff --git a/ai/decks/Satellarknight.lua b/ai/decks/Satellarknight.lua index 33949790..58d34c1d 100644 --- a/ai/decks/Satellarknight.lua +++ b/ai/decks/Satellarknight.lua @@ -116,7 +116,7 @@ function HonestCond(loc) end function NodenCond(loc,c) if loc == PRIO_TOFIELD then - return Duel.GetCurrentChain()==0 and CardsMatchingFilter(AIGrave(),NodenFilter)>0 + return Duel.GetCurrentChain()==0 and CardsMatchingFilter(AIGrave(),NodenFilter,4)>0 end return true end @@ -389,7 +389,7 @@ if DeckCheck(DECK_TELLARKNIGHT) then if HasID(SpSummonable,94380860,SummonRagnaZero) then return {COMMAND_SPECIAL_SUMMON,CurrentIndex} end - if HasID(SpSummonable,46772449) and DeckCheck(DECK_TELLARKNIGHT) and SummonBelzebuth() then + if HasID(SpSummonable,46772449,SummonBelzebuth) and DeckCheck(DECK_TELLARKNIGHT) then return {COMMAND_SPECIAL_SUMMON,CurrentIndex} end if HasID(SpSummonable,48739166) and SummonSharkKnight1() then @@ -415,9 +415,8 @@ if DeckCheck(DECK_TELLARKNIGHT) then if HasID(Activatable,54447022) and UseSoulCharge() then return {COMMAND_ACTIVATE,CurrentIndex} end - if HasID(Activatable,01845204) + if HasID(Activatable,01845204,UseInstantFusion,1) and DeckCheck(DECK_TELLARKNIGHT) - and UseInstantFusion(1) then return {COMMAND_ACTIVATE,CurrentIndex} end @@ -601,7 +600,7 @@ function SatellarknightOnSelectChain(cards,only_chains_by_player) if HasID(cards,97077563) and ChainCotH2() then return {1,CurrentIndex} end - if HasID(cards,82732705) and ChainSkillDrain(cards[CurrentIndex]) then + if HasID(cards,82732705,ChainSkillDrain) then return {1,CurrentIndex} end if HasID(cards,25789292) and ChainChaliceAtk() then @@ -652,7 +651,7 @@ function SatellarknightOnSelectPosition(id, available) if SatellarknightAtt[i]==id then result=POS_FACEUP_ATTACK end end for i=1,#SatellarknightDef do - if SatellarknightDef[i]==id then result=POS_FACEUP_DEFENCE end + if SatellarknightDef[i]==id then result=POS_FACEUP_DEFENSE end end return result end diff --git a/ai/decks/Shaddoll.lua b/ai/decks/Shaddoll.lua index 7afb1103..5a8d9c11 100644 --- a/ai/decks/Shaddoll.lua +++ b/ai/decks/Shaddoll.lua @@ -1,4 +1,42 @@ +--[[ +91501248, -- Pot of the Forbidden +03717252, -- Shaddoll Beast +67503139, -- Prediction Princess Crystaldine +77723643, -- Shaddoll Dragon +30328508, -- Shaddoll Squamata +26517393, -- Spirit of the Tailwind +95492061, -- Manju +31118030, -- Prediction Princess Arrowsylph +32231618, -- Prediction Princess Coinorma +04939890, -- Shaddoll Hedgehog +37445295, -- Shaddoll Falcon +97268402, -- Effect Veiler +94997874, -- Prediction Princess Tarotray +01845204, -- Instant Fusion +13048472, -- Pre-Preparation of Rites +44394295, -- Shaddoll Fusion +81439173, -- Foolish Burial +30392583, -- Prediction Ritual +06417578, -- El-Shaddoll Fusion +43898403, -- Twin Twister +04904633, -- Shaddoll Core +84749824, -- Solemn Warning + +74822425, -- El-Shaddoll Shekinaga +19261966, -- El-Shaddoll Anoyatilis +94977269, -- El-Shaddoll Winda +17412721, -- Elder God Norden +52687916, -- Trishula +74586817, -- Omega +82044279, -- Clear Wing +95113856, -- Enterblathnir +56832966, -- Utopia Lightning +84013237, -- Utopia +63746411, -- Giant Hand +82633039, -- Castel +00581014, -- Emeral +]] function ShaddollStartup(deck) deck.Init = ShaddollInit deck.Card = ShaddollCard @@ -12,8 +50,8 @@ function ShaddollStartup(deck) deck.Tribute = ShaddollTribute deck.Option = ShaddollOption deck.ChainOrder = ShaddollChainOrder + deck.Sum = ShaddollSum --[[ - deck.Sum deck.DeclareCard deck.Number deck.Attribute @@ -31,28 +69,96 @@ function ShaddollStartup(deck) end -ShaddollIdentifier = 77505534 -- Shadow Games +ShaddollIdentifier = 94997874 -- Prediction Princess Tarotray DECK_SHADDOLL = NewDeck("Shaddoll",ShaddollIdentifier,ShaddollStartup) ShaddollActivateBlacklist={ -67696066, -- Performage Trick Clown -68819554, -- Performage Damage Juggler -31292357, -- Performage Hat Tricker +91501248, -- Pot of the Forbidden +03717252, -- Shaddoll Beast +67503139, -- Prediction Princess Crystaldine +77723643, -- Shaddoll Dragon +30328508, -- Shaddoll Squamata +95492061, -- Manju +31118030, -- Prediction Princess Arrowsylph +32231618, -- Prediction Princess Coinorma +04939890, -- Shaddoll Hedgehog +37445295, -- Shaddoll Falcon +--97268402, -- Effect Veiler +94997874, -- Prediction Princess Tarotray + +01845204, -- Instant Fusion +13048472, -- Pre-Preparation of Rites +44394295, -- Shaddoll Fusion +81439173, -- Foolish Burial +30392583, -- Prediction Ritual 06417578, -- El-Shaddoll Fusion -74822425, -- El-Shaddoll Shekinaga -17016362, -- Trapeze Magician +--43898403, -- Twin Twister +04904633, -- Shaddoll Core +--84749824, -- Solemn Warning + +--74822425, -- El-Shaddoll Shekinaga +19261966, -- El-Shaddoll Anoyatilis +94977269, -- El-Shaddoll Winda +17412721, -- Elder God Norden +74009824, -- El-Shaddoll Wendigo +--[[52687916, -- Trishula +74586817, -- Omega +82044279, -- Clear Wing +95113856, -- Enterblathnir +56832966, -- Utopia Lightning +84013237, -- Utopia +63746411, -- Giant Hand +82633039, -- Castel +00581014, -- Emeral]] } ShaddollSummonBlacklist={ -67696066, -- Performage Trick Clown -68819554, -- Performage Damage Juggler -31292357, -- Performage Hat Tricker -17016362, -- Trapeze Magician +91501248, -- Pot of the Forbidden +03717252, -- Shaddoll Beast +67503139, -- Prediction Princess Crystaldine +77723643, -- Shaddoll Dragon +30328508, -- Shaddoll Squamata +26517393, -- Spirit of the Tailwind +95492061, -- Manju +31118030, -- Prediction Princess Arrowsylph +32231618, -- Prediction Princess Coinorma +04939890, -- Shaddoll Hedgehog +37445295, -- Shaddoll Falcon +97268402, -- Effect Veiler +94997874, -- Prediction Princess Tarotray + +01845204, -- Instant Fusion +13048472, -- Pre-Preparation of Rites +44394295, -- Shaddoll Fusion +81439173, -- Foolish Burial +30392583, -- Prediction Ritual +06417578, -- El-Shaddoll Fusion +43898403, -- Twin Twister +04904633, -- Shaddoll Core +84749824, -- Solemn Warning + +74822425, -- El-Shaddoll Shekinaga +19261966, -- El-Shaddoll Anoyatilis +94977269, -- El-Shaddoll Winda +17412721, -- Elder God Norden +52687916, -- Trishula +--74586817, -- Omega +--82044279, -- Clear Wing +95113856, -- Enterblathnir +--56832966, -- Utopia Lightning +--84013237, -- Utopia +--63746411, -- Giant Hand +--82633039, -- Castel +--00581014, -- Emeral } ShaddollSetBlacklist={ +13048472, -- Pre-Preparation of Rites +30392583, -- Prediction Ritual +06417578, -- El-Shaddoll Fusion } ShaddollRepoBlacklist={ +91501248, -- Pot of the Forbidden } ShaddollUnchainable={ 06417578, -- El-Shaddoll Fusion @@ -79,6 +185,17 @@ function PerformageFilter(c,exclude) end return FilterSet(c,0xc6) and check end +function PredictionPrincessFilter(c,exclude) + local check = true + if exclude then + if type(exclude)=="table" then + check = not CardsEqual(c,exclude) + elseif type(exclude)=="number" then + check = (c.id ~= exclude) + end + end + return FilterSet(c,0xcc) and check +end function ShaddollMonsterFilter(c,exclude) return FilterType(c,TYPE_MONSTER) and ShaddollFilter(c,exclude) @@ -182,7 +299,7 @@ function SquamataCond(loc,c) and (HasID(AIGrave(),44394295,true) and HasID(AIDeck(),04904633,true) or CardsMatchingFilter(AIGrave(),ShaddollMonsterFilter)<6) - and not HasID(AIMon(),c.id,true,nil,nil,POS_FACEDOWN_DEFENCE,OPTCheck,c.id) + and not HasID(AIMon(),c.id,true,nil,nil,POS_FACEDOWN_DEFENSE,OPTCheck,c.id) and GetMultiple(c.id)==0) and ShaddollGraveCheck(c.id) end @@ -193,14 +310,22 @@ function DragonFilter(c) end function DragonCond(loc) if loc == PRIO_TOGRAVE then - return OPTCheck(77723643) + if OPTCheck(77723643) and CardsMatchingFilter(OppST(),DragonFilter)>0 and GetMultiple(77723643)==0 and ShaddollGraveCheck(77723643) + and MacroCheck() + then + if HasPriorityTarget(OppST(),true,nil,DragonFilter) then + return 11 + end + return true + end + return false end return true end -function BeastCond(loc) +function BeastCond(loc,c) if loc == PRIO_TOGRAVE then return OPTCheck(03717252) and GetMultiple(03717252)==0 @@ -319,28 +444,55 @@ function HatCond(loc,c) end return true end +function PotCond(loc,c) + if loc == PRIO_TOHAND then + return not HasAccess(c.id) + --[[and (HasIDNotNegated(AIMon(),94997874,true) + or ]] + end + if loc == PRIO_TOGRAVE then + return not HasAccess(c.id) + or FilterLocation(c,LOCATION_HAND) + --[[and (HasIDNotNegated(AIMon(),94997874,true) + or ]] + end + if loc == PRIO_TOFIELD then + return not HasID(AIMon(),c.id,true) + end + return true +end +function TarotrayCond(loc,c) + if loc == PRIO_TOHAND + then + return CardsMatchingFilter(AIHand(),FilterID,c.id)==0 + or HasID(AIHand(),c.id,true,SummonTarotray,1) + and not (HasID(AIHand(),c.id,true,TarotrayTributeCheck) and FieldCheck(4)==0) + end + return true +end +function PredictionRitualCond(loc,c) + if loc == PRIO_TOHAND + then + return CardsMatchingFilter(AICards(),FilterID,c.id)==0 + end + if loc == PRIO_TOGRAVE + then + return CardsMatchingFilter(AICards(),FilterID,c.id)>1 + end + return true +end ShaddollPriorityList={ --[12345678] = {1,1,1,1,1,1,1,1,1,1,XXXCond}, -- Format -- Shaddoll -[37445295] = {3,3,3,1,7,1,7,1,1,1,FalconCond}, -- Shaddoll Falcon -[04939890] = {5,2,2,1,5,2,5,4,1,1,HedgehogCond}, -- Shaddoll Hedgehog +[37445295] = {3,3,3,1,7,1,5,1,1,1,FalconCond}, -- Shaddoll Falcon +[04939890] = {5,2,2,1,5,2,8,4,1,1,HedgehogCond}, -- Shaddoll Hedgehog [30328508] = {4,1,5,1,9,1,9,1,1,1,SquamataCond}, -- Shaddoll Squamata -[77723643] = {3,1,4,1,7,1,7,1,1,1,DragonCond}, -- Shaddoll Dragon -[03717252] = {4,1,6,1,6,1,6,1,1,1,BeastCond}, -- Shaddoll Beast - -[67696066] = {6,2,5,1,6,1,1,1,1,1,ClownCond}, -- Performage Trick Clown -[68819554] = {3,1,2,1,5,1,1,1,1,1,JugglerCond}, -- Performage Damage Juggler -[31292357] = {7,1,3,1,2,1,1,1,1,1,HatCond}, -- Performage Hat Tricker +[77723643] = {3,1,4,1,7,1,6,1,1,1,DragonCond}, -- Shaddoll Dragon +[03717252] = {4,1,6,1,6,1,7,1,1,1,BeastCond}, -- Shaddoll Beast -[41386308] = {1,1,1,1,2,1,1,1,1,1,MathCond}, -- Mathematician -[23434538] = {1,1,1,1,2,1,1,1,1,1}, -- Maxx "C" [97268402] = {1,1,1,1,2,1,1,1,1,1}, -- Effect Veiler -[72989439] = {1,1,1,1,1,1,1,1,1,1}, -- BLS - -[24062258] = {1,1,1,1,1,1,1,1,1,1,nil}, -- Secret Sect Druid Dru -[73176465] = {1,1,1,1,6,5,1,1,1,1,FelisCond}, -- Lightsworn Felis [44394295] = {8,5,1,1,1,1,1,1,1,1,ShadFusionCond}, -- Shaddoll Fusion [06417578] = {9,6,1,1,1,1,1,1,1,1,ElFusionCond}, -- El-Shaddoll Fusion @@ -359,15 +511,25 @@ ShaddollPriorityList={ [78474168] = {1,1,1,1,1,1,1,1,1,1}, -- Breakthrough Skill [05851097] = {1,1,1,1,1,1,1,1,1,1}, -- Vanity's Emptiness +[31118030] = {1,1,1,1,1,1,1,1,1,1,}, -- Prediction Princess Arrowsylph +[67503139] = {1,1,1,1,1,1,1,1,1,1,}, -- Prediction Princess Crystaldine +[32231618] = {1,1,1,1,1,1,1,1,1,1,}, -- Prediction Princess Coinorma +[94997874] = {6,1,1,1,1,1,1,1,1,1,TarotrayCond}, -- Prediction Princess Tarotray +[30392583] = {7,2,1,1,4,2,1,1,1,1,PredictionRitualCond}, -- Prediction Ritual + +[91501248] = {6,1,9,1,10,5,1,1,1,1,PotCond}, -- Pot of the Forbidden +[26517393] = {1,1,1,1,1,1,1,1,1,1,}, -- Spirit of the Tailwind +[95492061] = {1,1,1,1,1,1,1,1,1,1,}, -- Manju -[20366274] = {1,1,6,4,2,1,2,1,1,1,ConstructCond}, -- El-Shaddoll Construct -[94977269] = {1,1,7,3,2,1,2,1,1,1,WindaCond}, -- El-Shaddoll Winda -[74822425] = {1,1,1,1,1,1,1,1,1,1,ShekinagaCond}, -- El-Shaddoll Shekinaga -[19261966] = {1,1,1,1,1,1,1,1,1,1,AnoyatilisCond}, -- El-Shaddoll Anoyatilis +[20366274] = {1,1,7,4,2,1,2,1,1,1,ConstructCond}, -- El-Shaddoll Construct +[94977269] = {1,1,5,3,2,1,2,1,1,1,WindaCond}, -- El-Shaddoll Winda +[74822425] = {1,1,6,1,2,1,1,1,1,1,ShekinagaCond}, -- El-Shaddoll Shekinaga +[19261966] = {1,1,4,1,4,1,1,1,1,1,AnoyatilisCond}, -- El-Shaddoll Anoyatilis -[48424886] = {1,1,1,1,1,1,1,1,1,1,EgrystalCond}, -- El-Shaddoll Egrystal +[48424886] = {1,1,3,1,1,1,1,1,1,1,EgrystalCond}, -- El-Shaddoll Egrystal +[74009824] = {1,1,2,1,1,1,1,1,1,1}, -- El-Shaddoll Wendigo -[52687916] = {1,1,1,1,1,1,1,1,1,1}, -- Trishula +[52687916] = {1,1,1,1,3,1,1,1,1,1}, -- Trishula [17016362] = {1,1,1,1,1,1,1,1,1,1}, -- Trapeze Magician [82633039] = {1,1,1,1,6,1,1,1,1,1,CastelCond}, -- Skyblaster Castel [00581014] = {1,1,1,1,1,1,1,1,1,1}, -- Daigusto Emeral @@ -486,9 +648,27 @@ end and not HasID(AIMon(),20366274,true) or CardsMatchingFilter(OppMon(),ShaddollFusionFilter)>0) end]] -function UseCore() - return HasID(AIHand(),44394295,true) and WindaCheck() - and not Duel.IsExistingMatchingCard(ShaddollFusionFilter,1-player_ai,LOCATION_MZONE,0,1,nil) +function UseCore(c,mode) + if mode==1 + and ShaddollHasFusion() + and WindaCheck() + then + return true + end + if mode==2 + and HasIDNotNegated(AICards(),30392583,true) + and HasID(AIHand(),94997874,true,SummonTarotray,1) + and not HasID(AICards(),91501248,true) + then + return true + end + if mode==3 + and HasIDNotNegated(AIExtra(),95113856,true,SummonEnterblathnir) + and (HasIDNotNegated(AIMon(),94997874,true) and FieldCheck(9)>1 + or not HasIDNotNegated(AIMon(),94997874,true) and FieldCheck(9)>0) + then + return true + end end function DruFilter(c) return bit32.band(c.attribute,ATTRIBUTE_DARK)>0 and c.level==4 and (c.attack==0 or c.defense==0) @@ -631,19 +811,21 @@ end function UseFalcon() return OPTCheck(37445295) and PriorityCheck(AIGrave(),PRIO_TOFIELD,1,FalconFilter)>1 end -function UseHedgehog() - return OPTCheck(04939890) and HasID(AIDeck(),44394295,true) +function UseHedgehog(c,mode) + return OPTCheck(04939890) and CardsMatchingFilter(AIDeck(),ShaddollSTFilter)>0 end function SquamataFilter(c) - return c:is_affected_by(EFFECT_INDESTRUCTABLE_EFFECT)==0 - and c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 + return Affected(c,TYPE_MONSTER,4) + and Targetable(c,TYPE_MONSTER) + and DestroyFilterIgnore(c) end function UseSquamata() - return CardsMatchingFilter(OppMon(),SquamataFilter)>0 and OPTCheck(37445295) + return CardsMatchingFilter(OppMon(),SquamataFilter)>0 and OPTCheck(30328508) end function DragonFilter2(c) - return c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 and (c.level>4 - or bit32.band(c.type,TYPE_FUSION+TYPE_RITUAL+TYPE_SYNCHRO+TYPE_XYZ)>0) + return Targetable(c,TYPE_MONSTER) + and Affected(c,TYPE_MONSTER,4) + and (c.level>4 or bit32.band(c.type,TYPE_FUSION+TYPE_RITUAL+TYPE_SYNCHRO+TYPE_XYZ)>0) end function UseDragon() return OPTCheck(37445295) and CardsMatchingFilter(OppMon(),DragonFilter2)>0 @@ -728,7 +910,7 @@ function ShaddollIFFilter(c) and FilterType(c,TYPE_FUSION) end function ShaddollXYZSummon() - return true + return true -- TODO end GlobalIFTarget=nil GlobalNordenFilter=nil @@ -776,7 +958,16 @@ function ShaddollUseInstantFusion(c,mode) return true end end - return false + if mode == 4 + and HasIDNotNegated(AICards(),30392583,true) + and HasID(AIHand(),94997874,true,SummonTarotray,1) + and not HasID(AIHand(),94997874,true,TarotrayTributeCheck) + and (FieldCheck(4)>0 or HandCheck(4)>0) + and HasID(AIExtra(),94977269,true) + then + GlobalIFTarget=94977269 + return true + end end function TrishulaCheckFilter(card,params) if CardsEqual(card,params[1]) or CardsEqual(card,params[2]) then @@ -795,7 +986,9 @@ function TrishulaCheckFilter(card,params) if FilterType(c,TYPE_TUNER) then tuner = tuner + 1 end - if FilterLocation(c,LOCATION_GRAVE) then + if FilterLocation(c,LOCATION_GRAVE) + and not (c.id == 67441435 and OPDCheck(c)) + then norden={} norden.lvl=c.level if FilterType(c,TYPE_TUNER) then @@ -845,6 +1038,15 @@ function TrishulaCheck(c) then table.insert(cards,#cards+1,AIHand()[i]) end + if HasID(AIGrave(),67441435,true,FilterOPD) then + table.insert(cards,#cards+1,FindID(67441435,AIGrave())) + end + if HasID(AICards(),81439173,true) + and HasID(AIDeck(),58996430,true) + and MacroCheck() + then + table.insert(cards,#cards+1,FindID(58996430,AIHand())) + end local result = false for i=1,#cards do local c2=cards[i] @@ -853,13 +1055,181 @@ function TrishulaCheck(c) or FilterLevelMax(c2,4)) and FilterLevelMax(c,4) and not CardsEqual(c2,c) - and CardsMatchingFilter(cards2,TrishulaCheckFilter,{c,c2})>0 + and CardsMatchingFilter(cards2,TrishulaCheckFilter,{c,c2})>0 then result = true end end return result end +function UsePreprep(c) + return true +end +function SummonManju(c,mode) + if mode == 1 + then + return true + end +end +function SummonTailwind(c,mode) + if mode == 1 + and NeedsCard(91501248,AIDeck(),AICards(),true) + then + return true + end + if mode == 2 + then + return true + end +end +function TarotrayTributeCheck(source) + local cards=SubGroup(AICards(),FilterType,TYPE_MONSTER) + for i,c in pairs(cards) do + if CardsEqual(c,source) then + table.remove(cards,i) + break + end + end + for i,c in pairs(cards) do + for j=1,i do + for k=1,j do + local c2=cards[j] + local c3=cards[k] + if source.level<=c.level+c2.level+c3.level then + return true + end + end + end + end + return false +end +function SummonTarotray(c,mode) + if mode == 1 + and NotNegated(c) + and not HasID(AIMon(),94997874,true) + and (c.id == 30392583 + or HasIDNotNegated(AICards(),30392583,true)) + then + return true + end + if mode == 2 + and NotNegated(c) + and not HasID(AIMon(),94997874,true) + and HasID(AIHand(),94997874,true,TarotrayTributeCheck) + and (c.id == 30392583 + or HasIDNotNegated(AICards(),30392583,true)) + then + return true + end +end +function UsePredictionRitualGrave(c,mode) + if FilterLocation(c,LOCATION_GRAVE) then + if c.mode == 1 + and HasID(AICards(),30392583,true) + and HasID(AIHand(),94997874,true,SummonTarotray,1) + and not HasID(AIHand,94997874,true,TarotrayTributeCheck) + then + return true + end + if c.mode == 2 + and HasID(AICards(),30392583,true) + and HasID(AIDeck(),94997874,true,SummonTarotray,1) + and HasID(AIDeck(),94997874,true,TarotrayTributeCheck) + then + return true + end + end +end +function UseFoolishShaddoll(c,mode) + if not MacroCheck() then + return false + end + if mode == 1 + and HasIDNotNegated(AICards(),30392583,true) + and HasID(AIHand(),94997874,true,SummonTarotray,1) + and not HasID(AIHand(),94997874,true,TarotrayTributeCheck) + and HasID(AIDeck(),04939890,true,FilterOPT,true) + then + GlobalFoolishID = 04939890 + return true + end + if mode == 2 + and HasIDNotNegated(AIMon(),91501248,true) + and not HasAccess(91501248) + then + GlobalFoolishID = 91501248 + return true + end + if mode == 3 + then + return true + end +end +function SetArrowsylph(c,mode) + if mode == 1 + and NeedsCard(30392583,Merge(AIDeck(),AIGrave()),AICards(),true) + and HasID(AIHand(),94997874,true) + then + return true + end + if mode == 2 + then + return true + end +end +function SetCoinorma(c,mode) + if mode == 1 + and not HasAccess(91501248) + and HasID(AIDeck(),91501248,true) + and TurnEndCheck() + then + return true + end + if mode == 2 + and TurnEndCheck() + then + return true + end +end +function FlipCoinorma(c,mode) + if mode == 1 + and FilterPosition(c,POS_FACEDOWN) + and DualityCheck() + and NotNegated(c) + and TurnEndCheck() + and CardsMatchingFilter(AIDeck(),PredictionPrincessFilter)>0 + then + return true + end + if mode == 2 + and FilterPosition(c,POS_FACEUP_ATTACK) + then + return true + end +end +function FlipArrowsylph(c,mode) + if mode == 1 + and FilterPosition(c,POS_FACEDOWN) + and NotNegated(c) + and HasID(Merge(AIDeck(),AIGrave()),30392583,true) + then + return true + end +end +function SummonEnterblathnirShaddoll(c,mode) + if mode == 1 + and NotNegated(c) + and SummonEnterblathnir(c) + and (FieldCheck(9)>2 + or not HasIDNotNegated(AIMon(),94997874,true)) + then + return true + end +end +function UseTarotrayFaceup(c,mode) +end +function UseTarotrayFacedown(c,mode) +end function ShaddollInit(cards) GlobalNordenFilter=nil local Act = cards.activatable_cards @@ -868,7 +1238,7 @@ function ShaddollInit(cards) local Rep = cards.repositionable_cards local SetMon = cards.monster_setable_cards local SetST = cards.st_setable_cards - if HasID(Act,04904633) and UseCore() then + if HasID(Act,04904633,UseCore,1) then return {COMMAND_ACTIVATE,CurrentIndex} end if HasID(Act,00581014,false,9296225) then @@ -878,42 +1248,72 @@ function ShaddollInit(cards) return {COMMAND_ACTIVATE,CurrentIndex} end if HasID(SpSum,52687916,SummonSyncTrishula) then - return SpSummon() + return SynchroSummon() end - if HasID(Act,81439173) then -- Foolish - return {COMMAND_ACTIVATE,CurrentIndex} + if HasID(Act,13048472,UsePreprep) then + return Activate() + end + if HasID(Rep,31118030,false,FlipArrowsylph) then + return Repo() + end + if HasID(Rep,67503139,false,FlipCrystaldine) then + return Repo() + end + if HasIDNotNegated(Sum,95492061,SummonManju,1) then + return Summon() + end + if HasIDNotNegated(Sum,26517393,SummonTailwind,1) then + return Summon() + end + if HasID(Act,04904633,UseCore,2) then + return Activate() end - if HasID(Rep,37445295,false,nil,nil,POS_FACEDOWN_DEFENCE,UseFalcon) then + if HasIDNotNegated(Act,30392583,SummonTarotray,2) then + return Activate() + end + if HasIDNotNegated(Act,30392583,UsePredictionRitualGrave,1) then + return Activate() + end + if HasIDNotNegated(Act,30392583,UsePredictionRitualGrave,2) then + return Activate() + end + if HasID(Act,81439173,UseFoolishShaddoll,1) then + return Activate() + end + if HasID(Act,81439173,UseFoolishShaddoll,2) then + return Activate() + end + if HasID(Rep,37445295,false,nil,nil,POS_FACEDOWN_DEFENSE,UseFalcon) then return {COMMAND_CHANGE_POS,CurrentIndex} end - if HasID(Rep,04939890,false,nil,nil,POS_FACEDOWN_DEFENCE,UseHedgehog) then + if HasID(Rep,04939890,false,nil,nil,POS_FACEDOWN_DEFENSE,UseHedgehog) then return {COMMAND_CHANGE_POS,CurrentIndex} end - if HasID(Rep,30328508,false,nil,nil,POS_FACEDOWN_DEFENCE,UseSquamata) then + if HasID(Rep,30328508,false,nil,nil,POS_FACEDOWN_DEFENSE,UseSquamata) then return {COMMAND_CHANGE_POS,CurrentIndex} end - if HasID(Rep,77723643,false,nil,nil,POS_FACEDOWN_DEFENCE,UseDragon) then + if HasID(Rep,77723643,false,nil,nil,POS_FACEDOWN_DEFENSE,UseDragon) then return {COMMAND_CHANGE_POS,CurrentIndex} end - if HasID(Rep,03717252,false,nil,nil,POS_FACEDOWN_DEFENCE,UseBeast) then + if HasID(Rep,03717252,false,nil,nil,POS_FACEDOWN_DEFENSE,UseBeast) then return {COMMAND_CHANGE_POS,CurrentIndex} end - if HasID(Rep,20366274,false,nil,nil,POS_FACEDOWN_DEFENCE) then + if HasID(Rep,20366274,false,nil,nil,POS_FACEDOWN_DEFENSE) then return {COMMAND_CHANGE_POS,CurrentIndex} end - if HasID(Rep,94977269,false,nil,nil,POS_FACEDOWN_DEFENCE) then + if HasID(Rep,94977269,false,nil,nil,POS_FACEDOWN_DEFENSE) then return {COMMAND_CHANGE_POS,CurrentIndex} end - if HasID(Rep,67696066,false,nil,nil,POS_FACEDOWN_DEFENCE) then + if HasID(Rep,67696066,false,nil,nil,POS_FACEDOWN_DEFENSE) then return {COMMAND_CHANGE_POS,CurrentIndex} end - if HasID(Rep,68819554,false,nil,nil,POS_FACEDOWN_DEFENCE) then + if HasID(Rep,68819554,false,nil,nil,POS_FACEDOWN_DEFENSE) then return {COMMAND_CHANGE_POS,CurrentIndex} end - if HasID(Rep,31292357,false,nil,nil,POS_FACEDOWN_DEFENCE) then + if HasID(Rep,31292357,false,nil,nil,POS_FACEDOWN_DEFENSE) then return {COMMAND_CHANGE_POS,CurrentIndex} end - if HasID(Rep,41386308,false,nil,nil,POS_FACEDOWN_DEFENCE) then + if HasID(Rep,41386308,false,nil,nil,POS_FACEDOWN_DEFENSE) then return {COMMAND_CHANGE_POS,CurrentIndex} end if HasID(Act,68819554,UseJuggler,1) then @@ -930,6 +1330,12 @@ function ShaddollInit(cards) return Summon(i) end end + if HasID(Act,04904633,UseCore,3) then + return Activate() + end + if HasID(SpSum,95113856,SummonEnterblathnirShaddoll,1) then + return XYZSummon() + end if HasID(Sum,41386308) and SummonMathShaddoll() then return {COMMAND_SUMMON,CurrentIndex} end @@ -951,6 +1357,9 @@ function ShaddollInit(cards) if HasID(Act,01845204,ShaddollUseInstantFusion,3) then return Activate() end + if HasID(Act,01845204,ShaddollUseInstantFusion,4) then + return Activate() + end if HasID(SpSum,31292357,SummonHatTricker,2) then return SpSummon() end @@ -981,7 +1390,18 @@ function ShaddollInit(cards) if HasID(Sum,03717252) and SummonBeast() then return {COMMAND_SUMMON,CurrentIndex} end - + if HasID(Act,81439173,UseFoolishShaddoll,3) then + return Activate() + end + if HasIDNotNegated(Sum,26517393,SummonTailwind,2) then + return Summon() + end + if HasID(SetMon,31118030,SetArrowsylph,1) then + return Set() + end + if HasID(SetMon,32231618,SetCoinorma,1) then + return Set() + end if HasID(SetMon,37445295) and SetFalcon() then return {COMMAND_SET_MONSTER,CurrentIndex} end @@ -1003,25 +1423,37 @@ function ShaddollInit(cards) if HasID(SetMon,68819554,SetJuggler) then return Set() end + if HasID(SetMon,32231618,SetCoinorma,2) then + return Set() + end + if HasID(SetMon,31118030,SetArrowsylph,2) then + return Set() + end if HasID(SetST,77505534) and SetShadowGames() then return {COMMAND_SET_ST,CurrentIndex} end -- TODO: only for backwards compatibility - if HasID(SetableST,85103922) and SetArtifacts() then + if HasID(SetST,85103922) and SetArtifacts() then return {COMMAND_SET_ST,CurrentIndex} end - if HasID(SetableST,20292186) and SetArtifacts() then + if HasID(SetST,20292186) and SetArtifacts() then return {COMMAND_SET_ST,CurrentIndex} end - if HasID(SetableST,12697630) and SetArtifacts() then + if HasID(SetST,12697630) and SetArtifacts() then return {COMMAND_SET_ST,CurrentIndex} end - if HasID(SetableST,12444060) and SetArtifacts() then + if HasID(SetST,12444060) and SetArtifacts() then return {COMMAND_SET_ST,CurrentIndex} end - if HasID(SetableST,29223325) and SetArtifacts() then + if HasID(SetST,29223325) and SetArtifacts() then return {COMMAND_SET_ST,CurrentIndex} end + if HasID(Rep,32231618,FlipCoinorma,1) then + return Repo() + end + if HasID(Rep,32231618,FlipCoinorma,2) then + return Repo() + end return nil end function ElFusionTarget(cards,min) @@ -1041,7 +1473,13 @@ end function FalconTarget(cards) return Add(cards,PRIO_TOFIELD) end +GlobalHedgehogFilter = nil function HedgehogTarget(cards) + if GlobalHedgehogFilter then + local filter = GlobalHedgehogFilter + GlobalHedgehogFilter = nil + return Add(cards,PRIO_TOHAND,1,filter) + end if (FieldCheck(4)==1 or HatCheck()) and FilterType(cards[1],TYPE_MONSTER) @@ -1069,6 +1507,7 @@ function ShaddollFusionTarget(cards) if SummonConstruct() then result = Add(cards,PRIO_TOFIELD,1,FilterID,20366274) end + result = Add(cards,PRIO_TOFIELD) else result = Add(cards,PRIO_TOGRAVE) end @@ -1121,7 +1560,54 @@ function ClownTarget(cards) GlobalClownSummon = cards[1].id return result end -function ShaddollCard(cards,min,max,id,c) +function PreprepTarget(cards) + return Add(cards) +end +function ManjuTarget(cards) + return Add(cards) +end +function TailwindTarget(cards) + return Add(cards) +end +function PredictionRitualTarget(cards) + return Add(cards,PRIO_TOFIELD,1,FilterID,94997874) +end +function TarotrayTarget(cards) + if GlobalCardMode == 1 then + GlobalCardMode = nil + return Add(cards,PRIO_TOFIELD,1,FilterGlobalTarget,cards) + end + if LocCheck(cards,LOCATION_HAND) + or LocCheck(cards,LOCATION_GRAVE) + then + if NeedsCard(91501248,cards,AIMon()) then + return Add(cards,PRIO_TOFIELD,1,FilterID,91501248) + end + return Add(cards,PRIO_TOFIELD,1,FilterLocation,LOCATION_GRAVE) + end + if FilterPosition(cards[1],POS_FACEDOWN) then + return Add(cards,PRIO_TOFIELD,1,FilterType,TYPE_FLIP) + end + if FilterPosition(cards[1],POS_FACEUP) then + return BestTargets(cards,1,TARGET_FACEDOWN) + end +end +function ShaddollCard(cards,min,max,id,c) + if id == 94997874 then + return TarotrayTarget(cards) + end + if id == 95492061 then + return ManjuTarget(cards) + end + if id == 13048472 then + return PreprepTarget(cards) + end + if id == 26517393 then + return TailwindTarget(cards) + end + if id == 30392583 then + return PredictionRitualTarget(cards) + end if id == 68819554 then return JugglerTarget(cards) end @@ -1196,7 +1682,7 @@ function ChainElFusion(c) return true end end - if Duel.GetCurrentPhase()==PHASE_BATTLE + if IsBattlePhase() and Duel.GetTurnPlayer()==player_ai and ShaddollFinishCheck() then @@ -1243,17 +1729,17 @@ function ChainShadowGames(c) and Duel.GetTurnPlayer()==1-player_ai and (HasID(AIDeck(),77723643,true) and DragonCond(PRIO_TOGRAVE) or HasID(AIDeck(),04939890,true) and HedgehogCond(PRIO_TOGRAVE) - or HasID(AIMon(),37445295,true,FilterPosition,POS_FACEDOWN_DEFENCE) and FalconCheck()) + or HasID(AIMon(),37445295,true,FilterPosition,POS_FACEDOWN_DEFENSE) and FalconCheck()) then result = true end - if Duel.GetCurrentPhase()==PHASE_BATTLE + if IsBattlePhase() and Duel.GetTurnPlayer()==1-player_ai then local aimon,oppmon=GetBattlingMons() if aimon and oppmon and ShaddollMonsterFilter(oppmon) - and FilterPosition(aimon,POS_FACEDOWN_DEFENCE) + and FilterPosition(aimon,POS_FACEDOWN_DEFENSE) and WinsBattle(oppmon,aimon) and (aimon:IsCode(77723643) and UseDragon2() or aimon:IsCode(30328508) and UseSquamata() @@ -1269,10 +1755,22 @@ function ChainShadowGames(c) return result end function ChainCore() - if Duel.GetCurrentPhase()==PHASE_BATTLE then + if IsBattlePhase() then local source=Duel.GetAttacker() - return source and source:IsControler(1-player_ai) - and source:GetAttack()<=1950 and #AIMon()==0 + if source and source:IsControler(1-player_ai) + and (source:GetAttack()<=1950 or source:GetAttack()>=0.8*AI.GetPlayerLP(1)) + and #AIMon()==0 + then + return true + end + local aimon,oppmon=GetBattlingMons() + if Duel.GetTurnPlayer()==player_ai + and GlobalBPEnd and not aimon + and (#OppMon()>0 and OppGetStrongestAttDef()<1450 + or #OppMon()==0) + then + return true + end end end function ChainClown(c) @@ -1283,8 +1781,254 @@ end function ChainJuggler(c) return false --TODO: everything end +function ChainForbiddenPot(c) + return true +end +function FlipForbiddenPot(c) + return NotNegated(c) + and OPTCheck(c.id) + and FilterPosition(c,POS_FACEDOWN) +end +function ChainTarotraySummon(c) + return NotNegated(c) + and (CardsMatchingFilter(AIGrave(),FilterType,TYPE_FLIP)>0 + or NeedsCard(91501248,AIHand(),AIMon()) + or NeedsCard(03717252,AIHand(),AIMon()) + or #AIMon()<3 and CardsMatchingFilter(AIHand(),FilterType,TYPE_FLIP)>0) +end +function ChainTarotrayFacedown(c,mode) + --return true + if RemovalCheckCard(c) + or NegateCheckCard(c) + then + return true + end + if not OPTCheck(c.id) + or Negated(c) + then + return false + end + if mode == 1 + and HasID(AIMon(),91501248,true,FilterPosition,POS_FACEUP) + and Duel.CheckTiming(TIMING_END_PHASE) + and Duel.GetTurnPlayer()==1-player_ai + then + GlobalCardMode = 1 + GlobalTargetSet(FindID(91501248,AIMon(),nil,FilterPosition,POS_FACEUP)) + return true + end + local aimon,oppmon=GetBattlingMons() + if mode == 2 + and IsBattlePhase() + and aimon + and aimon:GetCode()==91501248 + and OPTCheck(91501248) + and Duel.GetTurnPlayer()==1-player_ai + then + GlobalCardMode = 1 + GlobalTargetSet(aimon) + return true + end + if mode == 3 + and IsBattlePhase() + and aimon + and FilterType(aimon,TYPE_FLIP) + and OPTCheck(aimon) + and Duel.GetTurnPlayer()==1-player_ai + then + GlobalCardMode = 1 + GlobalTargetSet(aimon) + return true + end + if mode == 4 + and IsBattlePhase() + and oppmon + and (WinsBattle(oppmon,aimon) or CanFinishGame(oppmon)) + and Affected(oppmon,TYPE_MONSTER,9) + and Targetable(oppmon,TYPE_MONSTER) + and Duel.GetTurnPlayer()==1-player_ai + then + GlobalCardMode = 1 + GlobalTargetSet(oppmon) + return true + end + local cg = NegateCheck() + local e = Duel.GetChainInfo(Duel.GetCurrentChain(), CHAININFO_TRIGGERING_EFFECT) + local source = nil + if e then + source = e:GetHandler() + end + if mode == 5 + and CardsMatchingFilter(AIMon(),FilterFlipFaceup)>0 + --and Duel.GetTurnPlayer()==1-player_ai + and Duel.CheckTiming(TIMING_END_PHASE) + then + return true + end +end +function ChainTarotrayFaceup(c,mode) + if RemovalCheckCard(c) + or NegateCheckCard(c) + then + return true + end + if not OPTCheck(c.id) + or Negated(c) + then + return false + end + if mode == 1 + and HasID(AIMon(),91501248,true,FlipForbiddenPot) + and Duel.CheckTiming(TIMING_END_PHASE) + then + GlobalCardMode = 1 + GlobalTargetSet(FindID(91501248,AIMon(),nil,FlipForbiddenPot)) + return true + end + if mode == 2 + and HasID(AIMon(),91501248,true,FlipForbiddenPot) + and Duel.CheckTiming(TIMING_STANDBY) + and #OppHand()==1 + then + GlobalCardMode = 1 + GlobalTargetSet(FindID(91501248,AIMon(),nil,FlipForbiddenPot)) + return true + end + if mode == 3 + and HasID(AIMon(),91501248,true,FlipForbiddenPot) + and Duel.GetTurnPlayer()==1-player_ai + and ChainPotDestroy() + then + GlobalCardMode = 1 + GlobalTargetSet(FindID(91501248,AIMon(),nil,FlipForbiddenPot)) + return true + end + if mode == 4 + and CardsMatchingFilter(AIMon(),FilterFlip,true)>0 + --and Duel.GetTurnPlayer()==1-player_ai + and Duel.CheckTiming(TIMING_END_PHASE) + then + return true + end + if mode == 5 + and HasID(AIMon(),30328508,true,nil,nil,POS_FACEDOWN_DEFENSE,UseSquamata) + and Duel.GetTurnPlayer()==1-player_ai + and HasPriorityTarget(OppMon(),true,nil,SquamataFilter) + then + GlobalCardMode = 1 + GlobalTargetSet(FindID(30328508,AIMon(),nil,FilterPosition,POS_FACEDOWN)) + return true + end + if mode == 6 + and HasID(AIMon(),77723643,true,nil,nil,POS_FACEDOWN_DEFENSE,UseDragon) + and Duel.GetTurnPlayer()==1-player_ai + and HasPriorityTarget(OppMon(),true,nil,DragonFilter2) + then + GlobalCardMode = 1 + GlobalTargetSet(FindID(77723643,AIMon(),nil,FilterPosition,POS_FACEDOWN)) + return true + end +end +function PotDestroyFilter(c) + return DestroyFilter(c) + and Affected(c,TYPE_MONSTER,9) +end +function ChainPotDestroy() + local targets = SubGroup(OppMon(),PotDestroyFilter,c) + local prio = SubGroup(targets,PriorityTarget) + return #targets>2 or #prio>1 or #prio>0 and #targets>0 + or #targets>0 and ExpectedDamage()>AI.GetPlayerLP(2) +end +function UseHedgehogGrave(c) + if HasIDNotNegated(AICards(),30392583,true) + and HasID(AIMon(),94997874,true,SummonTarotray,1) + and not HasID(AIMon(),94997874,true,SummonTarotray,2) + then + if HasID(AICards(),03717252,true) then + GlobalHedgehogFilter=function(c) return FilterLevelMin(c,4) end + else + GlobalHedgehogFilter=function(c) return FilterLevelMin(c,5) end + end + end + return true +end +function ChainArrowsylph(c) + return true +end +function ChainCrystaldine(c) + return true +end +function ChainCoinorma(c) + return true +end +function ChainFusionsGrave(c) + if ShaddollMonsterFilter(c) + and FilterType(c,TYPE_FUSION) + and FilterLocation(c,LOCATION_GRAVE) + then + return true + end +end function ShaddollChain(cards) + for i,c in pairs(cards) do + if ChainFusionsGrave(c) then + return Chain(i) + end + end + if HasID(cards,31118030,ChainArrowsylph) then + return Chain() + end + if HasID(cards,67503139,ChainCrystaldine) then + return Chain() + end + if HasID(cards,32231618,ChainCoinorma) then + GlobalCoinormaTurn = Duel.GetTurnCount() + return Chain() + end + if HasID(cards,91501248,ChainForbiddenPot) then + OPTSet(91501248) + return Chain() + end + if HasID(cards,94997874,false,94997874*16,ChainTarotrayFaceup,1) then + OPTSet(94997874) + return Chain() + end + if HasID(cards,94997874,false,94997874*16,ChainTarotrayFaceup,2) then + OPTSet(94997874) + return Chain() + end + if HasID(cards,94997874,false,94997874*16,ChainTarotrayFaceup,3) then + OPTSet(94997874) + return Chain() + end + if HasID(cards,94997874,false,94997874*16,ChainTarotrayFaceup,4) then + OPTSet(94997874) + return Chain() + end + if HasID(cards,94997874,false,94997874*16+1,ChainTarotrayFacedown,1) then + OPTSet(94997874) + return Chain() + end + if HasID(cards,94997874,false,94997874*16+1,ChainTarotrayFacedown,2) then + OPTSet(94997874) + return Chain() + end + if HasID(cards,94997874,false,94997874*16+1,ChainTarotrayFacedown,3) then + OPTSet(94997874) + return Chain() + end + if HasID(cards,94997874,false,94997874*16+1,ChainTarotrayFacedown,4) then + OPTSet(94997874) + return Chain() + end + if HasID(cards,94997874,false,94997874*16+1,ChainTarotrayFacedown,5) then + OPTSet(94997874) + return Chain() + end + if HasID(cards,94997874,false,94997874*16+2,ChainTarotraySummon) then + return Chain() + end if HasID(cards,31292357) then -- Hat Tricker return {1,CurrentIndex} end @@ -1318,7 +2062,7 @@ function ShaddollChain(cards) OPTSet(37445295) return {1,CurrentIndex} end - if HasID(cards,04939890,false,nil,LOCATION_GRAVE) then -- Hedgehog + if HasID(cards,04939890,false,nil,LOCATION_GRAVE,UseHedgehogGrave) then -- Hedgehog OPTSet(04939890) return {1,CurrentIndex} end @@ -1358,6 +2102,29 @@ end function ShaddollEffectYesNo(id,card) local field = bit32.band(card.location,LOCATION_ONFIELD)>0 local grave = bit32.band(card.location,LOCATION_GRAVE)>0 + if ChainFusionsGrave(card) then + return true + end + if id == 94997874 + and card.description==id*16+2 + and ChainTarotraySummon(card) + then + return true + end + if id == 31118030 and ChainArrowsylph(card) then + return true + end + if id == 32231618 and ChainCoinorma(card) then + GlobalCoinormaTurn = Duel.GetTurnCount() + return true + end + if id == 67503139 and ChainCrystaldine(card) then + return true + end + if id == 91501248 and ChainForbiddenPot(card) then + OPTSet(id) + return true + end if id == 67696066 and ChainClown(card) then OPTSet(id) return 1 @@ -1386,7 +2153,7 @@ function ShaddollEffectYesNo(id,card) OPTSet(37445295) return 1 end - if id == 04939890 and grave then -- Hedgehog + if id == 04939890 and grave and UseHedgehogGrave(c) then -- Hedgehog OPTSet(04939890) return 1 end @@ -1415,6 +2182,35 @@ function ShaddollEffectYesNo(id,card) end return nil end +function ShaddollSum(cards,sum,c) + if c and c.id == 30392583 then + if HasID(cards,91501248) then + return {CurrentIndex} + end + if HasID(cards,04904633) then + return {CurrentIndex} + end + AssignPriority(cards,PRIO_TOGRAVE) + table.sort(cards,function(a,b)return a.prio>b.prio end) + local levels = 0 + local result = {} + for i,c in pairs(cards) do + levels = levels + c.level + result[i]=c.index + if (c.level >= sum) then + result={c.index} + break + end + if levels >= sum then + break + end + end + if result and #result>0 then + return result + end + end + +end function ShaddollYesNo(desc) end function ShaddollTribute(cards,min, max) @@ -1425,7 +2221,89 @@ function ShaddollAttackTarget(cards,attacker) end function ShaddollAttackBoost(cards) end +function ForbiddenPotOption(result) + if result[2] + and DestroyCheck(OppMon(),true)>2 + and OppHasStrongestMonster() + then + return result[2] + end + if result[4] + and Duel.GetTurnPlayer()==1-player_ai + and #OppHand()<1 + and not OppHasStrongestMonster() + then + return result[4] + end + if result[1] + and #AIHand()<2 + then + return result[1] + end + if result[3] + and Duel.GetTurnPlayer()==player_ai + and BattlePhaseCheck() + and ExpectedDamage()>AI.GetPlayerLP(2) + and not OppHasStrongestMonster() + and CardsMatchingFilter(OppST(),FilterPosition,POS_FACEDOWN)>1 + then + return result[3] + end + if result[2] + and Duel.GetTurnPlayer()==player_ai + and BattlePhaseCheck() + and ExpectedDamage()>AI.GetPlayerLP(2) + and DestroyCheck(OppMon(),true)==#OppMon + then + return result[2] + end + if result[2] + and OppHasStrongestMonster() + and DestroyCheck(OppMon())==#OppMon() + then + return result[2] + end + if result[1] + and Duel.GetTurnPlayer()==player_ai + and not Duel.GetCurrentPhase()==PHASE_END + and #AIHand()<6 + and #AIDeck()>2 + then + return result[1] + end + if result[1] + and Duel.GetTurnPlayer()==player_ai + and Duel.GetTurnCount()==1 + and #AIHand()<5 + then + return result[1] + end + if result[4] then + return result[4] + end + if result[1] then + return result[1] + end +end function ShaddollOption(options) + local result = {} + for i,v in pairs(options) do + if v == 91501248*16 then -- draw + result[1]=i + end + if v == 91501248*16+2 then -- destroy monsters + result[2]=i + end + if v == 91501248*16+1 then -- return S/T + result[3]=i + end + if v == 91501248*16+3 then -- shuffle from hand + result[4]=i + end + end + if #result>0 then + return ForbiddenPotOption(result) + end end function ShaddollChainOrder(cards) end @@ -1436,6 +2314,7 @@ ShaddollVary={ 74822425,04904633, -- Shekinaga,Core } ShaddollDef={ + 74009824, -- El-Shaddoll Wendigo } function ShaddollPosition(id,available) result = nil @@ -1453,19 +2332,19 @@ function ShaddollPosition(id,available) then result=nil else - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end end for i=1,#ShaddollDef do if ShaddollDef[i]==id then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end if GlobalClownSummon and GlobalClownSummon == id then GlobalClownSummon = nil - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end return result end diff --git a/ai/decks/Shadoll.lua b/ai/decks/Shadoll.lua deleted file mode 100755 index 014b6794..00000000 --- a/ai/decks/Shadoll.lua +++ /dev/null @@ -1,1217 +0,0 @@ -function ShadollFusionCond(loc) - if loc == PRIO_TOHAND then - return not HasID(AIHand(),44394295,true) - end - return true -end -function FalconCond(loc) - if loc == PRIO_TOGRAVE then - return OPTCheck(37445295) and GetMultiple(37445295)==0 and not HasID(AIMon(),37445295,true) - end - return true -end -function HedgehogCond(loc) - if loc == PRIO_TOGRAVE then - return OPTCheck(04939890) and NeedsCard(37445295,AIDeck(),UseLists({AIHand(),AIMon()}),true) and GetMultiple(04939890)==0 - end - return true -end -function ShadollFilter(c) - return IsSetCode(c.setcode,0x9d) and bit32.band(c.type,TYPE_MONSTER)>0 -end -function LizardCond(loc) - if loc == PRIO_TOGRAVE then - return OPTCheck(30328508) and (HasID(AIGrave(),44394295,true) and HasID(AIDeck(),04904633,true) - or CardsMatchingFilter(AIGrave(),ShadollFilter)<6) and GetMultiple(30328508)==0 - end - return true -end -function DragonFilter(c) - return c:is_affected_by(EFFECT_INDESTRUCTABLE_EFFECT)==0 - and c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 - and bit32.band(c.status,STATUS_LEAVE_CONFIRMED)==0 -end -function DragonCond(loc) - if loc == PRIO_TOGRAVE then - return OPTCheck(77723643) and CardsMatchingFilter(OppST(),DragonFilter)>0 and GetMultiple(77723643)==0 - end - return true -end -function BeastCond(loc) - if loc == PRIO_TOGRAVE then - return OPTCheck(03717252) and GetMultiple(03717252)==0 - end - return true -end -function ConstructFilter(c) - return bit32.band(c.summon_type,SUMMON_TYPE_SPECIAL)>0 - and c:is_affected_by(EFFECT_INDESTRUCTABLE_EFFECT)==0 - and Affected(c,TYPE_MONSTER,8) -end -function ConstructCond(loc) - if loc == PRIO_TOFIELD then - return OppGetStrongestAttack() < 2800 or HasID(AIMon(),94977269,true) - or CardsMatchingFilter(OppMon(),ConstructFilter)>0 - and not HasID(AIMon(),20366274,true) - end - return true -end -function WindaCond(loc) - if loc == PRIO_TOFIELD then - return OppGetStrongestAttack() < 2200 or HasID(AIMon(),20366274,true) - and ShadollPriorityCheck(UseLists({AIHand(),AIMon()}),PRIO_TOGRAVE,2,ShadollFilter)>2 - and not HasID(AIMon(),94977269,true) - end - return true -end -function RootsCond(loc) - if loc == PRIO_TOGRAVE then - return NeedsCard(44394295,AIGrave(),AIHand(),true) or HasID(AIMon(),04904633,true) - end - return true -end -function FelisCond(loc,c) - if loc == PRIO_TOGRAVE then - return true - end - return true -end -function MathCond(loc,c) - return true -end -function ShekinagaCond(loc,c) - return true -end -function EgrystalCond(loc,c) - return true -end -function ShadollGetPriority(c,loc) - local checklist = nil - local result = 0 - local id = c.id - if loc == nil then - loc = PRIO_TOHAND - end - checklist = Prio[id] - if checklist then - if checklist[11] and not(checklist[11](loc,c)) then - loc = loc + 1 - end - result = checklist[loc] - end - return result -end -function ShadollAssignPriority(cards,loc,filter) - local index = 0 - Multiple = nil - for i=1,#cards do - cards[i].index=i - cards[i].prio=ShadollGetPriority(cards[i],loc) - if filter and not filter(cards[i]) then - cards[i].prio=-1 - end - if loc==PRIO_GRAVE and FilterLocation(cards[i],LOCATION_DECK) then - cards[i].prio=cards[i].prio+2 - end - if loc==PRIO_GRAVE and FilterLocation(cards[i],LOCATION_ONFIELD) then - cards[i].prio=cards[i].prio-1 - end - SetMultiple(cards[i].id) - end -end -function ShadollPriorityCheck(cards,loc,count,filter) - if count == nil then count = 1 end - if loc==nil then loc=PRIO_TOHAND end - if cards==nil or #cardsb.prio end) - return cards[count].prio -end -function ShadollAdd(cards,loc,count,filter) - local result={} - if count==nil then count=1 end - if loc==nil then loc=PRIO_TOHAND end - local compare = function(a,b) return a.prio>b.prio end - ShadollAssignPriority(cards,loc,filter) - table.sort(cards,compare) - --print("priority list:") - for i=1,#cards do - --print(cards[i].original_id..", prio:"..cards[i].prio) - end - for i=1,count do - result[i]=cards[i].index - --ShadollTargets[#ShadollTargets+1]=cards[i].cardid - end - return result -end -function WindaCheck() - -- returns true, if there is no Winda on the field - return not HasIDNotNegated(UseLists({AIMon(),OppMon()}),94977269,true) -end -function FalconFilter(c) - return IsSetCode(c.setcode,0x9d) and c.id~= 37445295 -end -function UseFalcon() - return OPTCheck(37445295) and ShadollPriorityCheck(AIGrave(),PRIO_TOFIELD,1,FalconFilter)>1 -end -function UseHedgehog() - return OPTCheck(04939890) and HasID(AIDeck(),44394295,true) -end -function LizardFilter(c) - return c:is_affected_by(EFFECT_INDESTRUCTABLE_EFFECT)==0 - and c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 -end -function UseLizard() - return CardsMatchingFilter(OppMon(),LizardFilter)>0-- and OPTCheck(37445295) -end -function DragonFilter2(c) - return c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 and (c.level>4 - or bit32.band(c.type,TYPE_FUSION+TYPE_RITUAL+TYPE_SYNCHRO+TYPE_XYZ)>0) -end -function UseDragon() - return OPTCheck(37445295) and CardsMatchingFilter(OppMon(),DragonFilter2)>0 -end -function DragonFilter3(c) - return c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 -end -function UseDragon2() - return OPTCheck(37445295) and CardsMatchingFilter(OppMon(),DragonFilter3)>0 -end -function UseBeast() - return OPTCheck(03717252) --and ShadollPriorityCheck(AIHand(),PRIO_TOGRAVE)>3 -end -function ShadollFusionFilter(c) - return c and c.summon_type and c.previous_location - and bit32.band(c.summon_type,SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL - and bit32.band(c.previous_location,LOCATION_EXTRA)==LOCATION_EXTRA -end -function ArtifactFilter(c) - return bit32.band(c.attribute,ATTRIBUTE_LIGHT)>0 and bit32.band(c.type,TYPE_MONSTER)>0 -end -function UseShadollFusion() - if HasID(AIMon(),94977269,true) and HasID(AIMon(),20366274,true) then return false end - return OverExtendCheck() - and (ShadollPriorityCheck(UseLists({AIHand(),AIMon()}),PRIO_TOGRAVE,2,ShadollFilter)>2 - and not HasID(AIMon(),94977269,true) - or ShadollPriorityCheck(UseLists({AIHand(),AIMon()}),PRIO_TOGRAVE,1,ShadollFilter)>2 - and ShadollPriorityCheck(UseLists({AIHand(),AIMon()}),PRIO_TOGRAVE,1,ArtifactFilter)>2 - and not HasID(AIMon(),20366274,true) - or CardsMatchingFilter(OppMon(),ShadollFusionFilter)>0) -end -function UseRoots() - return HasID(AIHand(),44394295,true) and WindaCheck() - and not Duel.IsExistingMatchingCard(ShadollFusionFilter,1-player_ai,LOCATION_MZONE,0,1,nil) -end -function DruFilter(c) - return bit32.band(c.attribute,ATTRIBUTE_DARK)>0 and c.level==4 and (c.attack==0 or c.defense==0) -end -function SummonDru() - return CardsMatchingFilter(AIGrave(),DruFilter)>0 and WindaCheck() - and (SummonSkyblaster() or SummonEmeral()) -end -function SetArtifacts() - return (Duel.GetTurnCount()==1 or Duel.GetCurrentPhase()==PHASE_MAIN2) - and #AIST()<4 -end - -function MichaelFilter(c) - return c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 -end -function SummonMichael(c) - return c and (CardsMatchingFilter(UseLists({OppMon(),OppST()}),MichaelFilter)>0 - and AI.GetPlayerLP(1)>1000 and NotNegated(c) - or Negated (c) and OppGetStrongestAttDef()<2600) - and MP2Check() and HasID(AIExtra(),04779823,true) -end -function UseMichael() - return CardsMatchingFilter(UseLists({OppMon(),OppST()}),MichaelFilter)>0 -end -function ArcaniteFilter(c) - return c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 - and c:is_affected_by(EFFECT_INDESTRUCTABLE_EFFECT)==0 -end -function SummonArcanite() - return CardsMatchingFilter(UseLists({OppMon(),OppST()}),ArcaniteFilter)>1 - and MP2Check() and HasID(AIExtra(),31924889,true) -end -function UseArcanite() - return CardsMatchingFilter(UseLists({OppMon(),OppST()}),ArcaniteFilter)>0 -end -function FalconFilter2(c) - return bit32.band(c.attribute,ATTRIBUTE_LIGHT)>0 and c.level==5 and bit32.band(c.position,POS_FACEUP)>0 -end -function FalconFilter3(c) - return bit32.band(c.race,RACE_SPELLCASTER)>0 and c.level==5 and bit32.band(c.position,POS_FACEUP)>0 -end -function SummonFalcon() - return (SummonMichael(FindID(04779823,AIExtra())) and CardsMatchingFilter(AIMon(),FalconFilter2)>0 - or SummonArcanite() and CardsMatchingFilter(AIMon(),FalconFilter3)>0 - or SummonArmades() and FieldCheck(3)>0) - and (WindaCheck() or not SpecialSummonCheck(player_ai)) -end -function SetFalcon() - return (Duel.GetTurnCount()==1 or Duel.GetCurrentPhase()==PHASE_MAIN2) - and CardsMatchingFilter(AIGrave(),FalconFilter)>0 and not HasID(AIMon(),37445295,true) -end -function SummonDragon() - return Duel.GetTurnCount()>1 and not OppHasStrongestMonster() and OverExtendCheck() - or FieldCheck(4) == 1 and (SummonSkyblaster() or SummonEmeral()) -end -function SetDragon() - return (Duel.GetTurnCount()==1 or Duel.GetCurrentPhase()==PHASE_MAIN2) - and not HasID(AIMon(),37445295,true) and OverExtendCheck() -end -function SummonHedgehog() - return HasID(AIMon(),37445295,true,nil,nil,POS_FACEUP) and SummonArmades() -end -function SetHedgehog() - return (Duel.GetTurnCount()==1 or Duel.GetCurrentPhase()==PHASE_MAIN2) - and not HasID(AIMon(),04939890,true) and not HasID(AIHand(),44394295,true) -end -function SummonLizard() - return Duel.GetTurnCount()>1 and not OppHasStrongestMonster() and OverExtendCheck() - or FieldCheck(4) == 1 and (SummonSkyblaster() or SummonEmeral()) -end -function SetLizard() - return (Duel.GetTurnCount()==1 or Duel.GetCurrentPhase()==PHASE_MAIN2) - and not HasID(AIMon(),37445295,true) and OverExtendCheck() -end -function SummonBeast() - return false -end -function SetBeast() - return false -end -function SetFacingTheShadows() - return Duel.GetTurnCount()==1 or Duel.GetCurrentPhase()==PHASE_MAIN2 - and not HasIDNotNegated(AIST(),77505534,true) -end -function UseSoulCharge() - return #AIMon()==0 and AI.GetPlayerLP(1)>1000 - and CardsMatchingFilter (AIGrave(),function(c) return bit32.band(c.type,TYPE_MONSTER)>2 end) -end -function UseFelis() - return Duel.GetCurrentPhase()==PHASE_MAIN2 and DestroyCheck(OppMon()) -end -function SummonMath() - return true -end - -function ShadollOnSelectInit(cards, to_bp_allowed, to_ep_allowed) - local Activatable = cards.activatable_cards - local Summonable = cards.summonable_cards - local SpSummonable = cards.spsummonable_cards - local Repositionable = cards.repositionable_cards - local SetableMon = cards.monster_setable_cards - local SetableST = cards.st_setable_cards - if HasID(Activatable,04904633) and UseRoots() then - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Activatable,00581014,false,9296225) then - return {COMMAND_ACTIVATE,CurrentIndex} - end - if HasID(Activatable,44394295) and UseShadollFusion() then - GlobalCardMode=1 - return {COMMAND_ACTIVATE,CurrentIndex} - end - - - if HasID(Repositionable,37445295,false,nil,nil,POS_FACEDOWN_DEFENCE) and UseFalcon() then - return {COMMAND_CHANGE_POS,CurrentIndex} - end - if HasID(Repositionable,04939890,false,nil,nil,POS_FACEDOWN_DEFENCE) and UseHedgehog() then - return {COMMAND_CHANGE_POS,CurrentIndex} - end - if HasID(Repositionable,30328508,false,nil,nil,POS_FACEDOWN_DEFENCE) and UseLizard() then - return {COMMAND_CHANGE_POS,CurrentIndex} - end - if HasID(Repositionable,77723643,false,nil,nil,POS_FACEDOWN_DEFENCE) and UseDragon() then - return {COMMAND_CHANGE_POS,CurrentIndex} - end - if HasID(Repositionable,03717252,false,nil,nil,POS_FACEDOWN_DEFENCE) and UseBeast() then - return {COMMAND_CHANGE_POS,CurrentIndex} - end - if HasID(Repositionable,03717252,false,nil,nil,POS_FACEDOWN_DEFENCE) and UseBeast() then - return {COMMAND_CHANGE_POS,CurrentIndex} - end - if HasID(Repositionable,20366274,false,nil,nil,POS_FACEDOWN_DEFENCE) then - return {COMMAND_CHANGE_POS,CurrentIndex} - end - if HasID(Repositionable,94977269,false,nil,nil,POS_FACEDOWN_DEFENCE) then - return {COMMAND_CHANGE_POS,CurrentIndex} - end - - if HasID(Summonable,41386308) and SummonMath() then - return {COMMAND_SUMMON,CurrentIndex} - end - if HasID(Summonable,24062258) and SummonDru() then - return {COMMAND_SUMMON,CurrentIndex} - end - if HasID(Summonable,37445295) and SummonFalcon() then - return {COMMAND_SUMMON,CurrentIndex} - end - if HasID(Summonable,04939890) and SummonHedgehog() then - return {COMMAND_SUMMON,CurrentIndex} - end - if HasID(Summonable,30328508) and SummonLizard() then - return {COMMAND_SUMMON,CurrentIndex} - end - if HasID(Summonable,77723643) and SummonDragon() then - return {COMMAND_SUMMON,CurrentIndex} - end - if HasID(Summonable,03717252) and SummonBeast() then - return {COMMAND_SUMMON,CurrentIndex} - end - if HasID(Summonable,41386308) then - return {COMMAND_SUMMON,CurrentIndex} - end - - if HasID(Activatable,73176465) and UseFelis() then - return {COMMAND_ACTIVATE,CurrentIndex} - end - - if HasID(SetableMon,37445295) and SetFalcon() then - return {COMMAND_SET_MONSTER,CurrentIndex} - end - if HasID(SetableMon,04939890) and SetHedgehog() then - return {COMMAND_SET_MONSTER,CurrentIndex} - end - if HasID(SetableMon,30328508) and SetLizard() then - return {COMMAND_SET_MONSTER,CurrentIndex} - end - if HasID(SetableMon,77723643) and SetDragon() then - return {COMMAND_SET_MONSTER,CurrentIndex} - end - if HasID(SetableMon,03717252) and SetBeast() then - return {COMMAND_SET_MONSTER,CurrentIndex} - end - - if HasID(SetableST,77505534) and SetFacingTheShadows() then - return {COMMAND_SET_ST,CurrentIndex} - end - return nil -end -function SanctumTargetField(cards) - return ShadollAdd(cards,PRIO_TOFIELD) -end -function SanctumTargetGrave(cards) - return BestTargets(cards,1,true) -end -function BeagalltachTarget(cards) - local result={} - local targets=CardsMatchingFilter(UseLists({OppMon(),OppST()}),MoralltachFilter) - local Scythe=false - for i=1,#cards do - if cards[i].id == 20292186 and ScytheCheck() - and #resultmax then result = ShadollAdd(cards,PRIO_TOGRAVE) end - OPTSet(cards[result[1]].id) - return result -end -function EmeralTarget(cards,count) - if LocCheck(cards,LOCATION_OVERLAY) then - return Add(cards,PRIO_TOGRAVE) - end - if count>0 then - return Add(cards,PRIO_EXTRA,count) - end - return Add(cards,PRIO_TOFIELD) -end -function SkyblasterTarget(cards,count) - return BestTargets(cards,count) -end -function VolcasaurusTarget(cards) - return BestTargets(cards,1,true) -end -function MichaelTarget(cards,onField) - local result = {} - if onField then - result = BestTargets(cards) - else - for i=1,#cards do - result[i]=i - end - end - return result -end -function ArcaniteTarget(cards) - return BestTargets(cards,1,true) -end -function PanzerDragonTarget(cards) - return BestTargets(cards,1,true) -end -function CompulseTarget(cards) - local result = nil - if GlobalCardMode == 1 then - result=GlobalTargetGet(cards,true) - end - GlobalCardMode = nil - if result == nil then result = BestTargets(cards,1,TARGET_TOHAND) end - return result -end -function IgnitionTarget(cards) - local result = {} - if GlobalCardMode == 2 then - result=GlobalTargetGet(cards,true) - elseif GlobalCardMode == 1 then - result = BestTargets(cards,1,true) - else - for i=1,#cards do - if cards[i].id == 85103922 and #result<1 then - result[#result+1]=i - end - end - end - GlobalCardMode=nil - if #result == 0 then result = {math.random(#cards)} end - if cards[1].prio then TargetSet(cards[1]) else TargetSet(cards[result[1]]) end - return result -end -function MSTTarget(cards) - result = nil - if GlobalCardMode == 1 then - result=GlobalTargetGet(cards,true) - end - GlobalCardMode=nil - if result==nil then result=BestTargets(cards,1,TARGET_DESTROY,TargetCheck) end - if cards[1].prio then TargetSet(cards[1]) else TargetSet(cards[result[1]]) end - return result -end -function SoulChargeTarget(cards,min,max) - local result={} - local count = max - if AI.GetPlayerLP(1)>=7000 then - count = math.min(3,max) - elseif AI.GetPlayerLP(1)>=4000 then - count = math.min(2,max) - else - count = 1 - end - if DeckCheck(DECK_TELLARKNIGHT) or DeckCheck(DECK_HAT) then - result = Add(cards,PRIO_TOFIELD,count) - else - for i=1,#cards do - cards[i].index=i - end - table.sort(cards,function(a,b) return a.attack>b.attack end) - for i=1,count do - result[i]=cards[i].index - end - end - return result -end -function MathTarget(cards) - return Add(cards,PRIO_TOGRAVE) -end -function ShadollOnSelectCard(cards, minTargets, maxTargets,triggeringID,triggeringCard) - local ID - local result=nil - if triggeringCard then - ID = triggeringCard.id - else - ID = triggeringID - end - if ID == 54447022 then - return SoulChargeTarget(cards,minTargets,maxTargets) - end - if ID == 05318639 then - return MSTTarget(cards) - end - if ID == 94192409 then - return CompulseTarget(cards) - end - if ID == 12697630 then - return BeagalltachTarget(cards) - end - if ID == 12444060 and bit32.band(triggeringCard.location,LOCATION_ONFIELD)>0 then - return SanctumTargetField(cards) - end - if ID == 12444060 and bit32.band(triggeringCard.location,LOCATION_GRAVE)>0 then - return SanctumTargetGrave(cards) - end - if ID == 85103922 then - return BestTargets(cards,1,true) - end - if ID == 29223325 then - return IgnitionTarget(cards) - end - if ID == 37445295 then - return FalconTarget(cards) - end - if ID == 04939890 then - return HedgehogTarget(cards) - end - if ID == 30328508 then - return LizardTarget(cards,bit32.band(triggeringCard.location,LOCATION_ONFIELD)>0) - end - if ID == 77723643 then - return DragonTarget(cards) - end - if ID == 03717252 then - return BeastTarget(cards) - end - if ID == 44394295 then - return ShadollFusionTarget(cards) - end - if ID == 20366274 then - return ConstructTarget(cards,bit32.band(triggeringCard.location,LOCATION_GRAVE)>0) - end - if ID == 20366274 then - return WindaTarget(cards) - end - if ID == 04904633 then - return RootsTarget(cards) - end - if ID == 77505534 then - return FacingTheShadowsTarget(cards,minTargets,maxTargets) - end - if ID == 00581014 then - return EmeralTarget(cards,minTargets) - end - if ID == 82633039 then - return SkyblasterTarget(cards,minTargets) - end - if ID == 29669359 then - return VolcasaurusTarget(cards) - end - if ID == 04779823 then - return MichaelTarget(cards,bit32.band(triggeringCard.location,LOCATION_ONFIELD)>0) - end - if ID == 31924889 then - return ArcaniteTarget(cards) - end - if ID == 72959823 then - return PanzerDragonTarget(cards) - end - if ID == 73176465 then - return BestTargets(cards,1,TARGET_DESTROY) - end - if ID == 41386308 then - return MathTarget(cards) - end - return nil -end -function ChainWireTap() - local e = Duel.GetChainInfo(Duel.GetCurrentChain(), CHAININFO_TRIGGERING_EFFECT) - if e then - local c = e:GetHandler() - return c and c:IsControler(1-player_ai) - end - return false -end -function ChainBookOfMoon() - return false -end -function SanctumFilter(c) - return PriorityTarget(c,true,nil,FilterPosition,POS_FACEUP) -end -function ChainSanctum() - if RemovalCheck(12444060) and (HasID(AIDeck(),85103922,true) or HasID(AIDeck(),12697630,true) and HasID(AIST(),85103922,true) and WindaCheck())then - GlobalCardMode = 1 - return true - end - if not UnchainableCheck(12444060) then - return false - end - local targets = CardsMatchingFilter(UseLists({OppMon(),OppST()}),SanctumFilter) - local targets2=CardsMatchingFilter(UseLists({OppMon(),OppST()}),MoralltachFilter) - local check = HasID(AIDeck(),85103922,true) or HasID(AIDeck(),12697630,true) - and HasID(AIST(),85103922,true) and WindaCheck() - if Duel.GetTurnPlayer()==1-player_ai and targets>0 and check - then - GlobalCardMode = 1 - return true - end - if Duel.GetTurnPlayer()==1-player_ai and targets2>0 and check then - if Duel.GetCurrentPhase()==PHASE_BATTLE then - local source = Duel.GetAttacker() - if source and source:IsControler(1-player_ai) then - GlobalCardMode = 1 - return true - end - end - if Duel.GetCurrentPhase()==PHASE_END and targets2>0 and check then - GlobalCardMode = 1 - return true - end - end - local check = HasID(AIDeck(),20292186,true) or HasID(AIDeck(),12697630,true) - and HasID(AIST(),20292186,true) and WindaCheck() - if ScytheCheck() and check then - GlobalCardMode = 1 - return true - end - return nil -end - -function ChainFacingTheShadows() - local result = false - local e = Duel.GetChainInfo(Duel.GetCurrentChain(), CHAININFO_TRIGGERING_EFFECT) - if RemovalCheck(77505534) then - result = true - end - if RemovalCheck(37445295) and UseFalcon() then - OPTSet(37445295) - result = true - end - if RemovalCheck(04939890) and UseHedgehog() then - OPTSet(04939890) - result = true - end - if RemovalCheck(30328508) and UseLizard() then - OPTSet(30328508) - result = true - end - if RemovalCheck(77723643) and UseDragon2() then - OPTSet(77723643) - result = true - end - if RemovalCheck(03717252) and UseBeast() then - OPTSet(03717252) - result = true - end - if Duel.GetCurrentPhase()==PHASE_END - and (HasID(AIDeck(),77723643,true) and DragonCond(PRIO_TOGRAVE) - or HasID(AIDeck(),04939890,true) and HedgehogCond(PRIO_TOGRAVE) ) then - result = true - end - if Duel.GetCurrentPhase()==PHASE_BATTLE then - local source=Duel.GetAttacker() - local target=Duel.GetAttackTarget() - if source and target then - if target:IsSetCard(0x9d) and target:IsPosition(POS_FACEDOWN_DEFENCE) - and source:GetAttack()>target:GetDefence() and target:IsControler(player_ai) - and (target:IsCode(77723643) and UseDragon2() or target:IsCode(30328508) and UseLizard()) - then - OPTSet(target:GetCode()) - result = true - end - end - end - if result and e then - c = e:GetHandler() - result = (c and c:GetCode()~=12697630) - end - return result -end -function ChainRoots() - if Duel.GetCurrentPhase()==PHASE_BATTLE then - local source=Duel.GetAttacker() - return source and source:IsControler(1-player_ai) and source:GetAttack()<=1950 and #AIMon()==0 - end -end - -function CompulseFilter(c) - return c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 - and c:is_affected_by(EFFECT_IMMUNE_EFFECT)==0 -end -function CompulseFilter2(c) - return CompulseFilter(c) and not ToHandBlacklist(c.id) - and (c.level>4 or bit32.band(c.type,TYPE_FUSION+TYPE_SYNCHRO+TYPE_RITUAL+TYPE_XYZ)>0) -end -function ChainCompulse() - local targets = CardsMatchingFilter(OppMon(),CompulseFilter) - local targets2 = CardsMatchingFilter(OppMon(),CompulseFilter2) - if RemovalCheck(94192409) and targets>0 then - return true - end - if not UnchainableCheck(94192409) then - return false - end - if targets2 > 0 then - return true - end - if Duel.GetCurrentPhase()==PHASE_BATTLE and targets>0 then - local source=Duel.GetAttacker() - local target=Duel.GetAttackTarget() - if source and target then - if source:IsControler(1-player_ai) and target:IsControler(player_ai) - and (target:IsPosition(POS_DEFENCE) and source:GetAttack()>target:GetDefence() - or target:IsPosition(POS_ATTACK) and source:GetAttack()>=target:GetAttack()) - and not source:IsHasEffect(EFFECT_CANNOT_BE_EFFECT_TARGET) - and not source:IsHasEffect(EFFECT_IMMUNE_EFFECT) - then - GlobalCardMode = 1 - GlobalTargetSet(source,OppMon()) - return true - end - end - end - return false -end -function ArtifactCheck(sanctum,scythe) - local MoralltachCheck = HasID(AIST(),85103922,true) and Duel.GetTurnPlayer()==1-player_ai - local BeagalltachCheck = HasID(AIST(),12697630,true) and (HasID(AIST(),85103922,true) - or sanctum and HasID(AIDeck(),85103922,true)) - and WindaCheck() and Duel.GetTurnPlayer()==1-player_ai - local BeagalltachCheckScythe = HasID(AIST(),12697630,true) and (HasID(AIST(),20292186,true) - or sanctum and HasID(AIDeck(),20292186,true)) - and WindaCheck() and Duel.GetTurnPlayer()==1-player_ai - local CheckScythe = HasID(AIST(),20292186,true) and Duel.GetTurnPlayer()==1-player_ai - if scythe then - if BeagalltachCheckScythe then - if sanctum then - GlobalCardMode = 2 - else - GlobalCardMode = 1 - end - GlobalTargetSet(FindID(12697630,AIST()),AIST()) - return true - end - if CheckScythe then - if sanctum then - GlobalCardMode = 2 - else - GlobalCardMode = 1 - end - GlobalTargetSet(FindID(20292186,AIST()),AIST()) - return true - end - else - if BeagalltachCheck then - if sanctum then - GlobalCardMode = 2 - else - GlobalCardMode = 1 - end - GlobalTargetSet(FindID(12697630,AIST()),AIST()) - return true - end - if MoralltachCheck then - if sanctum then - GlobalCardMode = 2 - else - GlobalCardMode = 1 - end - GlobalTargetSet(FindID(85103922,AIST()),AIST()) - return true - end - end - return false -end -function MSTFilter(c) - return c:is_affected_by(EFFECT_CANNOT_BE_EFFECT_TARGET)==0 - and c:is_affected_by(EFFECT_INDESTRUCTABLE_EFFECT)==0 - and not (DestroyBlacklist(c) - and (bit32.band(c.position, POS_FACEUP)>0 - or bit32.band(c.status,STATUS_IS_PUBLIC)>0)) -end -function MSTEndPhaseFilter(c) - return MSTFilter(c) and bit32.band(c.status,STATUS_SET_TURN)>0 -end -function ChainMST(c) - local targets=CardsMatchingFilter(OppST(),MSTFilter) - local targets2=CardsMatchingFilter(UseLists({OppMon(),OppST()}),MoralltachFilter) - local targets3=CardsMatchingFilter(UseLists({OppMon(),OppST()}),SanctumFilter) - local targets4=CardsMatchingFilter(OppST(),MSTEndPhaseFilter) - local e = Duel.GetChainInfo(Duel.GetCurrentChain(),CHAININFO_TRIGGERING_EFFECT) - if RemovalCheckCard(c) then - if e and e:GetHandler():IsCode(12697630) then - return false - end - if SignCheck(AIST()) and not RemovalCheck(19337371) then - GlobalCardMode = 1 - GlobalTargetSet(FindID(19337371,AIST())) - return true - end - if targets2 > 0 and ArtifactCheck() - then - return true - end - if targets > 0 then - return true - end - end - if not UnchainableCheck(05318639) then - return false - end - if targets3 > 0 and ArtifactCheck() then - return true - end - if Duel.GetCurrentPhase()==PHASE_BATTLE then - local source=Duel.GetAttacker() - local target=Duel.GetAttackTarget() - if source and source:IsControler(1-player_ai) then - if targets2 > 0 and ArtifactCheck() then - return true - end - end - end - if Duel.GetCurrentPhase()==PHASE_END and Duel.GetTurnPlayer()==1-player_ai - and #AIST()>0 and SignCheck(AIST()) and LadyCount(AIHand())<2 - then - GlobalCardMode = 1 - GlobalTargetSet(FindID(19337371,AIST())) - return true - end - if Duel.GetCurrentPhase()==PHASE_END then - if targets2 > 0 and ArtifactCheck() then - return true - end - if targets4 > 0 then - local cards = SubGroup(OppST(),MSTEndPhaseFilter) - GlobalCardMode = 1 - GlobalTargetSet(cards[math.random(#cards)],OppST()) - return true - end - end - if e then - local c = e:GetHandler() - if (c:IsType(TYPE_CONTINUOUS+TYPE_EQUIP+TYPE_FIELD) - or (c:IsType(TYPE_PENDULUM) and c:IsType(TYPE_SPELL) - and (ScaleCheck(2)==true or not e:IsHasType(EFFECT_TYPE_ACTIVATE)))) - and c:IsControler(1-player_ai) - and targets>0 - and c:IsLocation(LOCATION_ONFIELD) - and not c:IsHasEffect(EFFECT_CANNOT_BE_EFFECT_TARGET) - and not c:IsHasEffect(EFFECT_INDESTRUCTABLE_EFFECT) - and not c:IsHasEffect(EFFECT_IMMUNE_EFFECT) - and (not DestroyBlacklist(c) or c:GetCode()==19337371 - or c:GetCode()==05851097 and Duel.GetCurrentChain()>1) - then - GlobalCardMode = 1 - GlobalTargetSet(c,OppST()) - return true - end - end - if HasPriorityTarget(OppST(),true) and Duel.GetCurrentChain()==0 then - return true - end - if ScytheCheck() and ArtifactCheck(nil,true) then - return true - end - return false -end -function ChainIgnition(c) - local targets=CardsMatchingFilter(OppST(),MSTFilter) - local targets2=CardsMatchingFilter(UseLists({OppMon(),OppST()}),MoralltachFilter) - local targets3=CardsMatchingFilter(UseLists({OppMon(),OppST()}),SanctumFilter) - local targets4=CardsMatchingFilter(OppST(),MSTEndPhaseFilter) - local e = Duel.GetChainInfo(Duel.GetCurrentChain(),CHAININFO_TRIGGERING_EFFECT) - local loc = 0 - if FilterLocation(c,LOCATION_HAND) then loc = 1 end - if RemovalCheck(12444060) then - if e and e:GetHandler():IsCode(12697630) then - return false - end - if targets2 > 0 and ArtifactCheck(true) - then - return true - end - if targets > 0 and Duel.GetLocationCount(player_ai,LOCATION_SZONE)>loc then - return true - end - end - if not UnchainableCheck(12444060) then - return false - end - if targets3 > 0 and ArtifactCheck(true) then - return true - end - if Duel.GetCurrentPhase()==PHASE_BATTLE then - local source=Duel.GetAttacker() - local target=Duel.GetAttackTarget() - if source and source:IsControler(1-player_ai) then - if targets2 > 0 and ArtifactCheck(true) then - return true - end - end - end - if Duel.GetCurrentPhase()==PHASE_END then - if targets2 > 0 and ArtifactCheck(true) then - return true - end - if targets4 > 0 and Duel.GetLocationCount(player_ai,LOCATION_SZONE)>loc then - local cards = SubGroup(OppST(),MSTEndPhaseFilter) - GlobalTargetSet(cards[math.random(#cards)],OppST()) - GlobalCardMode = 2 - return true - end - end - if e then - local c = e:GetHandler() - if (c:IsType(TYPE_CONTINUOUS+TYPE_EQUIP+TYPE_FIELD) - or (c:IsType(TYPE_PENDULUM) and c:IsType(TYPE_SPELL) - and (ScaleCheck(2)==true or not e:IsHasType(EFFECT_TYPE_ACTIVATE)))) - and c:IsControler(1-player_ai) - and targets>0 - and c:IsLocation(LOCATION_ONFIELD) - and not c:IsHasEffect(EFFECT_CANNOT_BE_EFFECT_TARGET) - and not c:IsHasEffect(EFFECT_INDESTRUCTABLE_EFFECT) - and not c:IsHasEffect(EFFECT_IMMUNE_EFFECT) - and (not DestroyBlacklist(c) or c:GetCode()==19337371 - or c:GetCode()==05851097 and Duel.GetCurrentChain()>1) - and Duel.GetLocationCount(player_ai,LOCATION_SZONE)>loc - then - GlobalTargetSet(c,OppST()) - GlobalCardMode = 2 - return true - end - end - if HasPriorityTarget(OppST(),true) - and Duel.GetLocationCount(player_ai,LOCATION_SZONE)>loc - and Duel.GetCurrentChain() - then - return true - end - if ScytheCheck() and ArtifactCheck(true,true) then - return true - end - return false -end -function ChainPanzerDragon(c) - return DestroyCheck(OppField())>0 -end -function ShadollOnSelectChain(cards,only_chains_by_player) - if HasID(cards,05318639,false,nil,nil,nil,ChainMST) then - return {1,CurrentIndex} - end - if HasID(cards,94192409) and ChainCompulse() then - return {1,CurrentIndex} - end - if HasID(cards,77505534) and ChainFacingTheShadows() then - return {1,CurrentIndex} - end - --if HasID(cards,34507039) and ChainWireTap() then - --return {1,CurrentIndex} - --end - if HasID(cards,14087893) and ChainBookOfMoon() then - return {1,CurrentIndex} - end - if HasID(cards,12444060,false,nil,LOCATION_ONFIELD) and ChainSanctum() then - return {1,CurrentIndex} - end - if HasID(cards,12444060,false,nil,LOCATION_GRAVE) and SanctumYesNo() then - return {1,CurrentIndex} - end - if HasID(cards,29223325) and ChainIgnition(cards[CurrentIndex]) then - return {1,CurrentIndex} - end - if HasID(cards,37445295,false,nil,LOCATION_ONFIELD) and UseFalcon() then - OPTSet(37445295) - return {1,CurrentIndex} - end - if HasID(cards,04939890,false,nil,LOCATION_ONFIELD) and UseHedgehog() then - OPTSet(04939890) - return {1,CurrentIndex} - end - if HasID(cards,30328508,false,nil,LOCATION_ONFIELD) and UseLizard() then - OPTSet(30328508) - return {1,CurrentIndex} - end - if HasID(cards,77723643,false,nil,LOCATION_ONFIELD) then - OPTSet(77723643) - return {1,CurrentIndex} - end - if HasID(cards,03717252,false,nil,LOCATION_ONFIELD) and UseBeast() then - OPTSet(03717252) - return {1,CurrentIndex} - end - if HasID(cards,37445295,false,nil,LOCATION_GRAVE) then - OPTSet(37445295) - return {1,CurrentIndex} - end - if HasID(cards,04939890,false,nil,LOCATION_GRAVE) then - OPTSet(04939890) - return {1,CurrentIndex} - end - if HasID(cards,30328508,false,nil,LOCATION_GRAVE) then - OPTSet(30328508) - return {1,CurrentIndex} - end - if HasID(cards,77723643,false,nil,LOCATION_GRAVE) and CardsMatchingFilter(OppST(),DragonFilter)>0 then - OPTSet(77723643) - return {1,CurrentIndex} - end - if HasID(cards,03717252,false,nil,LOCATION_GRAVE) then - OPTSet(03717252) - return {1,CurrentIndex} - end - if HasID(cards,20366274) then - return {1,CurrentIndex} - end - if HasID(cards,94977269) then - return {1,CurrentIndex} - end - if HasID(cards,04904633,false,nil,LOCATION_GRAVE) then - return {1,CurrentIndex} - end - if HasID(cards,33698022) then - return {1,CurrentIndex} - end - if HasID(cards,24062258) then - return {1,CurrentIndex} - end - if HasID(cards,04904633) and ChainRoots() then - return {1,CurrentIndex} - end - if HasID(cards,73176465,false,nil,LOCATION_GRAVE) then -- Felis - return {1,CurrentIndex} - end - if HasID(cards,72959823,false,nil,nil,nil,ChainPanzerDragon) then - return {1,CurrentIndex} - end - return nil -end -function SanctumYesNo() - return DestroyCheck(OppField())>0 -end -function ShadollOnSelectEffectYesNo(id,triggeringCard) - local result = nil - local field = bit32.band(triggeringCard.location,LOCATION_ONFIELD)>0 - local grave = bit32.band(triggeringCard.location,LOCATION_GRAVE)>0 - if id == 85103922 then - result = 1 - end - if id == 12444060 and SanctumYesNo() then - result = 1 - end - if id == 37445295 and field and UseFalcon() then - OPTSet(37445295) - result = 1 - end - if id == 04939890 and field and UseHedgehog() then - OPTSet(04939890) - result = 1 - end - if id == 30328508 and field and UseLizard() then - OPTSet(30328508) - result = 1 - end - if id == 77723643 and field then - OPTSet(77723643) - result = 1 - end - if id == 03717252 and field and UseBeast() then - OPTSet(03717252) - result = 1 - end - if id == 37445295 and grave then - OPTSet(37445295) - result = 1 - end - if id == 04939890 and grave then - OPTSet(04939890) - result = 1 - end - if id == 30328508 and grave then - OPTSet(30328508) - result = 1 - end - if id == 77723643 and grave and CardsMatchingFilter(OppST(),DragonFilter)>0 then - OPTSet(77723643) - result = 1 - end - if id == 03717252 and grave then - OPTSet(03717252) - result = 1 - end - if id == 20366274 or id == 94977269 or id == 04904633 - or id == 33698022 or id == 24062258 - then - result = 1 - end - if id == 77505534 then - GlobalCardMode=1 - result = 1 - end - if id == 73176465 and grave then - result = 1 - end - if id == 72959823 and ChainPanzerDragon(triggeringCard) then - result = 1 - end - return result -end -ShadollAtt={ - 85103922,94977269,48424886 -- Moralltach,Winda,Egrystal -} -ShadollDef={ - 12697630,31924889,04904633, -- Beagalltach,Arcanite Magician,Shadoll Roots - 73176465,74822425, -- Felis, Shekinaga -} -function ShadollOnSelectPosition(id, available) - result = nil - for i=1,#ShadollAtt do - if ShadollAtt[i]==id then result=POS_FACEUP_ATTACK end - end - for i=1,#ShadollDef do - if ShadollDef[i]==id then result=POS_FACEUP_DEFENCE end - end - return result -end \ No newline at end of file diff --git a/ai/decks/Spellbook.lua b/ai/decks/Spellbook.lua index edef7d9d..9449c545 100644 --- a/ai/decks/Spellbook.lua +++ b/ai/decks/Spellbook.lua @@ -148,10 +148,10 @@ function SpellbookOnSelectInit(cards,to_bp_allowed,to_ep_allowed) JudgmentCount = JudgmentCount + 1 return {COMMAND_ACTIVATE,IndexByID(Activatable,40230018)} end - if SpellbookSearchCheck() and HasID(Repositionable,14824019) and Repositionable[CurrentIndex].position == POS_FACEDOWN_DEFENCE then + if SpellbookSearchCheck() and HasID(Repositionable,14824019) and Repositionable[CurrentIndex].position == POS_FACEDOWN_DEFENSE then return {COMMAND_CHANGE_POS,CurrentIndex} end - if HasID(Repositionable,41855169) and Repositionable[CurrentIndex].position == POS_FACEDOWN_DEFENCE then + if HasID(Repositionable,41855169) and Repositionable[CurrentIndex].position == POS_FACEDOWN_DEFENSE then return {COMMAND_CHANGE_POS,CurrentIndex} end if HasID(Summonable,41855169) and JudgmentSummonable() then @@ -244,7 +244,7 @@ function SpellbookOnSelectInit(cards,to_bp_allowed,to_ep_allowed) if HasID(Repositionable,41855169) and Repositionable[CurrentIndex].position == POS_FACEUP_ATTACK and Repositionable[CurrentIndex].attackRepositionable[CurrentIndex].defense then + if HasID(Repositionable,41855169) and Repositionable[CurrentIndex].position == POS_FACEUP_DEFENSE and Repositionable[CurrentIndex].attack>Repositionable[CurrentIndex].defense then return {COMMAND_CHANGE_POS,CurrentIndex} end if HasID(SpSummonable,40908371) and (Duel.GetCurrentPhase()==PHASE_MAIN2 or not GlobalBPAllowed) then @@ -744,7 +744,7 @@ function ChainFateSecond() return true end end - if Duel.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then local source = Duel.GetAttacker() local target = Duel.GetAttackTarget() if source and target and target:IsControler(player_ai) and target:IsFaceup() and target:IsCode(14824019) then @@ -1146,10 +1146,10 @@ function SpellbookGetPos(id) if SpellbookAtt[i]==id then return POS_FACEUP_ATTACK end end for i=1,#SpellbookDef do - if SpellbookDef[i]==id then return POS_FACEUP_DEFENCE end + if SpellbookDef[i]==id then return POS_FACEUP_DEFENSE end end if id == 14824019 then - return POS_FACEDOWN_DEFENCE + return POS_FACEDOWN_DEFENSE end return result end diff --git a/ai/decks/Wizard.lua b/ai/decks/Wizard.lua index 7ac0c642..9225a234 100644 --- a/ai/decks/Wizard.lua +++ b/ai/decks/Wizard.lua @@ -10,7 +10,7 @@ function WizardStartup(deck) deck.Unchainable = WizardUnchainable deck.PriorityList = WizardPriorityList end -DECK_WIZARD = NewDeck("Wizard",72714461,WizardStartup) +DECK_WIZARD = NewDeck("Wizard",{72714461,16691074},WizardStartup) function ScaleBetween(lv) local cards = AIST() local lsc = 0 @@ -645,7 +645,7 @@ function ChainPtolemiMagi(c) GlobalPtolemiMagi = 34945480 return true end - if Duel.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then local source = Duel.GetAttacker() local target = Duel.GetAttackTarget() if source and target then diff --git a/ai/decks/X-Saber.lua b/ai/decks/X-Saber.lua index 1a42a1cd..ba9fdcfd 100644 --- a/ai/decks/X-Saber.lua +++ b/ai/decks/X-Saber.lua @@ -575,15 +575,15 @@ end end - if HasID(Rep,42737833,FilterPosition,POS_DEFENCE) and RepoEmmerCond() then + if HasID(Rep,42737833,FilterPosition,POS_DEFENSE) and RepoEmmerCond() then return COMMAND_CHANGE_POS,CurrentIndex end - if HasID(Rep,23093604,FilterPosition,POS_DEFENCE) and RepoPashuulCond() then + if HasID(Rep,23093604,FilterPosition,POS_DEFENSE) and RepoPashuulCond() then return COMMAND_CHANGE_POS,CurrentIndex end - if HasID(Rep,31383545,FilterPosition,POS_DEFENCE) and RepoDarkCond() then + if HasID(Rep,31383545,FilterPosition,POS_DEFENSE) and RepoDarkCond() then return COMMAND_CHANGE_POS,CurrentIndex end @@ -796,7 +796,7 @@ function XSaberPosition(id,available) for i=1,#XSaberDef do if XSaberDef[i]==id then - result=POS_FACEUP_DEFENCE + result=POS_FACEUP_DEFENSE end end return result @@ -808,11 +808,11 @@ function ReflectFilter(c,atk) and (FilterPosition(c,POS_FACEUP_ATTACK) and FilterAttackMin(c,atk) and AI.GetPlayerLP(1)-c.attack+atk>0 - or FilterPosition(c,POS_DEFENCE) + or FilterPosition(c,POS_DEFENSE) and FilterPublic(c) and FilterDefenseMin(c,atk) and AI.GetPlayerLP(1)-c.defense+atk>0 - or FilterPosition(c,POS_DEFENCE) + or FilterPosition(c,POS_DEFENSE) and FilterPrivate(c) and AI.GetPlayerLP(1)>1000) end diff --git a/ai/mod/AIArchetypeID.lua b/ai/mod/AIArchetypeID.lua index 5588fbfa..7821002a 100644 --- a/ai/mod/AIArchetypeID.lua +++ b/ai/mod/AIArchetypeID.lua @@ -97,7 +97,7 @@ function IsGladiatorArchetype(CardId) CardId == 02619149 or CardId == 77642288 or -- Gladiator Beast Samnite, Gladiator Beast Secutor CardId == 79580323 or CardId == 65984457 or -- Gladiator Beast Spartacus, Gladiator Beast Torax CardId == 50893987 and -- Gladiator Beast Tygerius - (AIMon[i].position == POS_FACEUP_ATTACK or AIMon[i].position == POS_FACEUP_DEFENCE) then + (AIMon[i].position == POS_FACEUP_ATTACK or AIMon[i].position == POS_FACEUP_DEFENSE) then return 1 end end diff --git a/ai/mod/AICheckList.lua b/ai/mod/AICheckList.lua index d9721976..f00077b3 100644 --- a/ai/mod/AICheckList.lua +++ b/ai/mod/AICheckList.lua @@ -100,7 +100,7 @@ function IsGladiatorArchetype(CardId) CardId == 02619149 or CardId == 77642288 or -- Gladiator Beast Samnite, Gladiator Beast Secutor CardId == 79580323 or CardId == 65984457 or -- Gladiator Beast Spartacus, Gladiator Beast Torax CardId == 50893987 and -- Gladiator Beast Tygerius - (AIMons[i].position == POS_FACEUP_ATTACK or AIMons[i].position == POS_FACEUP_DEFENCE) then + (AIMons[i].position == POS_FACEUP_ATTACK or AIMons[i].position == POS_FACEUP_DEFENSE) then return 1 end end @@ -316,6 +316,8 @@ NSBL={ 79979666,21565445,47826112,13073850, -- Bubbleman, Atlantean Neptabyss, Poseidra, Qli Stealth 51194046,18326736,58069384,10443957, -- Qli Monolith, Planetellarknight Ptolemaios, Cyber Dragon Nova, Infinity 81992475,59438930,01050186, -- BA Barbar, Ghost Ogre, Satellarknight Unukalhai +29888389,47106439,53180020,27796375, -- Gishki Shadow, Vision, Nekroz Exa, Sorcerer +67696066,68819554,44635489, -- Trick Clown, Damage Juggler, Siat } function NormalSummonBlacklist(CardId) for i=1,#NSBL do @@ -422,6 +424,7 @@ SSBL={ 18326736,58069384,10443957, -- Planetellarknight Ptolemaios, Cyber Dragon Nova, Infinity 27552504,18386170,65305468, -- Beatrice, Pilgrim, F0 56840427,16051717,30100551, -- Utopia Ray, Raikiri, Minerva +31292357,44635489, -- Hat Tricker, Siat } @@ -594,6 +597,11 @@ function IgnoreList(c) -- cards to ignore with removal effects then return true end + if id == 56111151 -- Kyotou Waterfront + and c:get_counter(0x37)>0 + then + return true + end for i=1,#Ignore do if Ignore[i]==id then return true @@ -682,6 +690,7 @@ Unchainable={ 84536654,50608164,06511113,30575681, -- Form Change, Koga, Rafflesia, Treacherous, Bedwyr 27552504,18386170,60743819,20036055, -- Beatrice, Pilgrim, Fiend Griefing, Traveler 36553319,65305468,20513882,31222701, -- Farfa, F0, Painful Escape, Wavering Eyes +43898403,60082869, -- Twin Twister, Dust Tornado } function isUnchainableTogether(CardId) for i=1,#Unchainable do @@ -887,7 +896,7 @@ ScriptedCards ={ 52040216,94145683,76812113,69884162, -- Harpie Lady -- Pet Dragon, Swallow's, Harpie Lady, Neos Alius 25259669,63060238,50720316,18063928, -- Goblindbergh, Blazeman, Shadow Mist, Tin Goldfish 79979666,00213326,08949584,18511384, -- Bubbleman, E-Call, AHL, Fusion Recovery -24094653,45906428,55428811,21143940, -- Polymerization, Miracle Fusion, Fifth Hope, Mask Change +--[[24094653,]]45906428,55428811,21143940, -- Polymerization, Miracle Fusion, Fifth Hope, Mask Change 84536654,57728570,83555666,95486586, -- Form Change, CCV, Ring of Destruction, Core 03642509,22093873,01945387,22061412, -- Great Tornado, Divine Wind, Nova Master, The Shining 29095552,33574806,40854197,50608164, -- Acid, Escuridao, Absolute Zero, Koga @@ -900,7 +909,10 @@ ScriptedCards ={ 27552504,18386170,60743819,20036055, -- Beatrice, Pilgrim, Fiend Griefing, Traveler 40605147,65305468,59438930,56840427, -- Solemn Notice, F0, Ghost Ogre, Utopia Ray 16051717,30100551,20513882,31222701, -- Raikiri, Minerva, Painful Escape, Wavering Eyes -01050186,19508728, -- Satellarknight Unukalhai, Moon Mirror Shield +01050186,19508728,27796375,53180020, -- Satellarknight Unukalhai, Moon Mirror Shield, Nekroz Exa, Sorcerer +29888389,47106439,68819554,67696066, -- Gishki Shadow, Vision, Performage Damage Juggler, Trick Clown +43898403,63519819,60082869,27346636, -- Twin Twister, Thousand-Eyes Restrict, Dust Tornado, Gladbeast Heraklinos +63767246, -- Titanic Galaxy } function CardIsScripted(CardId) for i=1,#ScriptedCards do @@ -1003,4 +1015,65 @@ function BlacklistCheckChain(command,index,deck,cards) return true end +GraveTargetPriority= -- cards to hit in the opponent's graveyard +{ + [34230233] = 3, -- Grapha + [12538374] = 2, -- Treeborn + [78474168] = 1, -- BTS + [72291412] = 1, -- Necro Slime + [19580308] = 2, -- Lamia + [45206713] = 2, -- Swirl Slime + [04904633] = 1, -- Shaddoll Core + [44394295] = 1, -- Shaddoll Fusion + [06417578] = 1, -- El-Shaddoll Fusion + [74586817] = 1, -- PSYFrame Omega + [34710660] = 2, -- Electromagnetic Turtle + [69764158] = 2, -- Peropero Cerberus + [02830693] = 1, -- Rainbow Kuriboh + [67441435] = 1, -- Glow-up Bulb + [05133471] = 1, -- Galaxy Cyclone + [17412721] = 1, -- Norden + [67696066] = 2, -- Trick Clown + [14735698] = 1, -- Nekroz Mirror + [51124303] = 1, -- Nekroz Kaleido + [97211663] = 1, -- Nekroz Exo + [50720316] = 1, -- Shadow Mist + [95457011] = 2, -- Edea + [59463312] = 1, -- Eidos + [01357146] = 1, -- Ronintoadin + [83531441] = 3, -- Dante + [57143342] = 2, -- Cir + [20758643] = 1, -- Graff + [84764038] = 1, -- Scarm + [62835876] = 1, -- Good&Evil + [00601193] = 1, -- Virgil + [90307777] = 1, -- Shurit + [19748583] = 2, -- Gwen + [93085839] = 1, -- Eachtar + [07452945] = 1, -- Destiny + [14745409] = 1, -- Gallatin + [23562407] = 1, -- Caliburn + [46008667] = 1, -- Excaliburn + [03580032] = 1, -- Merlin + [46008667] = 1, -- Excaliburn + [88264978] = 1, -- REDMD + [99365553] = 1, -- Lightpulsar + [33420078] = 1, -- Plaguespreader + [51617185] = 2, -- Machina Megaform + [05556499] = 3, -- Machina Fortress + [53804307] = 3, -- Dragon Rulers + [26400609] = 3, + [89399912] = 3, + [90411554] = 3, +} +function GetGraveTargetPriority(c) + local id + if type(c) == "number" then + id = c + else + c = GetCardFromScript(c) + id = c.id + end + return GraveTargetPriority[id] or 0 +end diff --git a/ai/mod/AIHelperFunctions.lua b/ai/mod/AIHelperFunctions.lua index 352d675f..623ad287 100644 --- a/ai/mod/AIHelperFunctions.lua +++ b/ai/mod/AIHelperFunctions.lua @@ -195,12 +195,22 @@ local OppExtra = AI.GetOppExtraDeck() end return list end -function UseLists(lists,opt,opt2) +function Merge(lists,opt,opt2) local cards local Result={} if lists then if type(lists)~="table" then - print("Warning: UseLists invalid type") + print("Warning: Merge invalid type") + PrintCallingFunction() + return Result + end + if opt and type(opt)~="table" then + print("Warning: Merge invalid type") + PrintCallingFunction() + return Result + end + if opt2 and type(opt2)~="table" then + print("Warning: Merge invalid type") PrintCallingFunction() return Result end @@ -229,6 +239,9 @@ function UseLists(lists,opt,opt2) end return Result end +function UseLists(lists,opt,opt2) + return Merge(lists,opt,opt2) +end function AIField() return UseLists({AIMon(),AIST()}) end @@ -819,7 +832,7 @@ function OppHasFaceupMonster(AtkDef) if Get_Card_Count_Att_Def(OppMon(),">=",AtkDef,nil,POS_FACEUP_ATTACK) > 0 then return 1 end - if Get_Card_Count_Att_Def(OppMon(),">=",AtkDef,nil,POS_FACEUP_DEFENCE) > 0 then + if Get_Card_Count_Att_Def(OppMon(),">=",AtkDef,nil,POS_FACEUP_DEFENSE) > 0 then return 1 end return 0 @@ -878,21 +891,21 @@ end ------------------------------------------------- -- ********************************************** -- Functions related to returning value of specified --- parameter, usually attack or defence. +-- parameter, usually attack or defense. -- ********************************************** ------------------------------------------------- --------------------------------------- -- Returns highest or lowest attack or --- defence in specified array of cards +-- defense in specified array of cards -- -- Parameters (4): -- Cards = array of cards for search --- AttDef = attack or defence value of card +-- AttDef = attack or defense value of card -- Oper = operation to check for (> or <) -- Position = card's position --- Return = value to return (attack or defence) +-- Return = value to return (attack or defense) --------------------------------------- function Get_Card_Att_Def(Cards, AttDef, Oper, Position, Return) local Result = 0 @@ -969,7 +982,7 @@ function Get_Card_Att_Def_Pos(Cards) Result = Cards[i].attack end end - if Cards[i].position == POS_FACEUP_DEFENCE then + if Cards[i].position == POS_FACEUP_DEFENSE then if Cards[i].defense > Result then Result = Cards[i].defense end @@ -1534,7 +1547,7 @@ end ------------------------------------------------- -- ********************************************** --- Functions to calculate attack, or defence of cards +-- Functions to calculate attack, or defense of cards -- before preforming certain actions. -- ********************************************** ------------------------------------------------- @@ -1587,7 +1600,7 @@ function ApplyATKBoosts(Cards) if #Cards > 0 then for i=1,#Cards do if Cards[i] ~= false then - if Cards[i].id == 96235275 or Cards[i].id == 50604950 or -- Jain, XSG + if Cards[i].id == 50604950 or -- XSG Cards[i].id == 05373478 then -- Zwei Cards[i].attack = Cards[i].attack + 300 end @@ -1945,7 +1958,7 @@ function ApplyATKBoosts(Cards) -- unknown face-down monsters for i=1,#Cards do local c = Cards[i] - if FilterPosition(c,POS_FACEDOWN_DEFENCE) + if FilterPosition(c,POS_FACEDOWN_DEFENSE) and FilterPrivate(c) and CurrentOwner(c)==2 then @@ -2064,6 +2077,10 @@ function CardsEqual(Card1, Card2) return Card1 and Card2 and Card1.cardid==Card2.cardid end +function CardsNotEqual(c1,c2) + return not CardsEqual(c1,c2) +end + function ListHasCard(cards,c) if cards and c then for i=1,#cards do @@ -2074,3 +2091,22 @@ function ListHasCard(cards,c) end return false end + +function ListRemoveCards(cards,rem) + if rem == nil then + return cards + end + if rem.GetCode then + rem = GetCardFromScript(rem) + end + if type(rem) == "table" and rem.id then + rem = {rem} + end + for i=1,#cards do + for j=1,#rem do + if cards[i] and rem[j] and CardsEqual(cards[i],rem[j]) then + table.remove(cards,i) + end + end + end +end diff --git a/ai/mod/AIHelperFunctions2.lua b/ai/mod/AIHelperFunctions2.lua index 7164dfec..00cd584e 100644 --- a/ai/mod/AIHelperFunctions2.lua +++ b/ai/mod/AIHelperFunctions2.lua @@ -8,6 +8,8 @@ function OnAIGoingFirstSecond(name) or name=="AI_Blackwing" or name=="AI_Shaddoll" or name=="AI_Kozmo" + or name=="AI_Lightsworn" + or name=="AI_GladiatorBeast" then player_ai = 1 result = 0 @@ -121,7 +123,8 @@ function HasID(cards,id,skipglobal,desc,loc,pos,filter,opt) for i=1,#cards do local c = cards[i] if (c.id == id - or c.id == 76812113 and c.original_id == id ) + or c.id == 76812113 and c.original_id == id + or c.id == 70902743 and c.original_id == id ) and (desc == nil or c.description == desc) and (loc == nil or bit32.band(c.location,loc)>0) and (pos == nil or bit32.band(c.position,pos)>0) @@ -164,7 +167,8 @@ function HasIDNotNegated(cards,id,skipglobal,desc,loc,pos,filter,opt) for i=1,#cards do local c = cards[i] if (c.id == id - or c.id == 76812113 and c.original_id == id ) + or c.id == 76812113 and c.original_id == id + or c.id == 70902743 and c.original_id == id ) and (desc == nil or c.description == desc) and (loc == nil or bit32.band(c.location,loc)>0) and (pos == nil or bit32.band(c.position,pos)>0) @@ -231,7 +235,7 @@ function AIGetStrongestAttack(skipbonus,filter,opt) and c:is_affected_by(EFFECT_CANNOT_ATTACK)==0 and c.attack>result and FilterCheck(c,filter,opt) - and not (FilterPosition(c,POS_DEFENCE) + and not (FilterPosition(c,POS_DEFENSE) and c.turnid==Duel.GetTurnCount()) then result=c.attack @@ -268,8 +272,8 @@ function OppGetStrongestAttDef(filter,opt,loop) if cards[i].bonus then result=result-cards[i].bonus end - elseif bit32.band(cards[i].position,POS_DEFENCE)>0 and cards[i].defense>result - and (bit32.band(cards[i].position,POS_FACEUP)>0 or bit32.band(cards[i].status,STATUS_IS_PUBLIC)>0) + elseif bit32.band(cards[i].position,POS_DEFENSE)>0 and cards[i].defense>result + and FilterPublic(cards[i]) then result=cards[i].defense end @@ -286,8 +290,8 @@ function OppGetWeakestAttDef() if cards[i] and cards[i]:is_affected_by(EFFECT_CANNOT_BE_BATTLE_TARGET)==0 then if bit32.band(cards[i].position,POS_ATTACK)>0 and cards[i].attack0 and cards[i].defense0 or bit32.band(cards[i].status,STATUS_IS_PUBLIC)>0) + elseif bit32.band(cards[i].position,POS_DEFENSE)>0 and cards[i].defense0 + then return true end end @@ -488,7 +498,7 @@ function RemovalCheckCard(target,category,cardtype,targeted,chainlink,filter,opt end local a=1 local b=Duel.GetCurrentChain() - if chainlink then + if chainlink and type(chainlink)=="number" then a=chainlink b=chainlink end @@ -503,6 +513,11 @@ function RemovalCheckCard(target,category,cardtype,targeted,chainlink,filter,opt if targeted and not tg then return false end + if e and e:GetHandler() + and Negated(e:GetHandler()) + then + return false + end if target==nil then return cg end @@ -592,7 +607,7 @@ function NegateCheckCard(target,type,chainlink,filter,opt) local id = e:GetHandler():GetCode() if id == 82732705 -- Skill Drain then - return FilterAffected(target,TYPE_TRAP) + return Affected(target,TYPE_TRAP) and FilterPosition(target,POS_FACEUP) end if id == 86848580 -- Zerofyne @@ -670,56 +685,53 @@ function BestTargets(cards,count,target,filter,opt,immuneCheck,source) local c = cards[i] c.index = i c.prio = 0 - if bit32.band(c.type,TYPE_MONSTER)>0 then - if bit32.band(c.position, POS_FACEUP)>0 - or bit32.band(c.status,STATUS_IS_PUBLIC)>0 - then - if c:is_affected_by(EFFECT_INDESTRUCTABLE_EFFECT)>0 and target==TARGET_DESTROY - or c:is_affected_by(EFFECT_IMMUNE_EFFECT)>0 + if FilterLocation(c,LOCATION_ONFIELD) then + if FilterType(c,TYPE_MONSTER) then + if FilterPublic(c) then - c.prio = 1 - else c.prio = math.max(c.attack+1,c.defense)+5 - if c.owner==2 and c:is_affected_by(EFFECT_INDESTRUCTABLE_BATTLE)==0 then - c.prio = math.max(5,c.prio-AIAtt*.75) + if c.owner==2 and c:is_affected_by(EFFECT_INDESTRUCTABLE_BATTLE)==0 + and Duel.GetTurnPlayer()==player_ai + and BattlePhaseCheck() + then + c.prio = math.max(1,c.prio-AIAtt*.9) end + else + c.prio = 2 end - else - c.prio = 2 - end - else - if c:is_affected_by(EFFECT_INDESTRUCTABLE_EFFECT)>0 and target==TARGET_DESTROY - or c:is_affected_by(EFFECT_IMMUNE_EFFECT)>0 - or bit32.band(c.status,STATUS_LEAVE_CONFIRMED)>0 - then - c.prio = 0 - else - if bit32.band(c.position, POS_FACEUP)>0 then + else + if FilterPosition(c,POS_FACEUP) then c.prio = 4 else c.prio = 3 end end - end - if c.prio>0 then - if PriorityTarget(c) then - c.prio = c.prio+2 - end - if c.level>4 then - c.prio = c.prio+1 - end - if bit32.band(c.position, POS_FACEUP_ATTACK)>0 then - c.prio = c.prio+1 + if c.prio>0 then + if PriorityTarget(c) then + c.prio = c.prio+2 + end + if c.level>4 then + c.prio = c.prio+1 + end + if FilterPosition(c,POS_FACEUP_ATTACK) then + c.prio = c.prio+1 + end end end + if FilterLocation(c,LOCATION_GRAVE) + and (target==TARGET_BANISH or target==TARGET_TODECK) + then + c.prio=c.prio+GetGraveTargetPriority(c) + end if IgnoreList(c) or (target == TARGET_TOHAND and FilterType(c,TYPE_SPELL+TYPE_TRAP) - and FilterPosition(c,POS_FACEUP)) + and FilterPosition(c,POS_FACEUP) + and FilterLocation(c,LOCATION_ONFIELD)) then c.prio = 1 end - if (bit32.band(c.position, POS_FACEUP)>0 or bit32.band(c.status,STATUS_IS_PUBLIC)>0) + if FilterPublic(c) and (target == TARGET_TOHAND and ToHandBlacklist(c.id) or target == TARGET_DESTROY and DestroyBlacklist(c) or target == TARGET_FACEDOWN and bit32.band(c.type,TYPE_FLIP)>0) @@ -729,7 +741,9 @@ function BestTargets(cards,count,target,filter,opt,immuneCheck,source) if FilterType(c,TYPE_PENDULUM) and HasIDNotNegated(AIST(),05851097,true,nil,nil,POS_FACEUP) then c.prio = -1 end - if immuneCheck and source and not Affected(c,source.type,source.level) then + if immuneCheck and source and not Affected(c,source.type,source.level) + and FilterLocation(c,LOCATION_ONFIELD) + then c.prio = -1 end if CurrentOwner(c) == 1 then @@ -789,6 +803,10 @@ function GlobalTargetSet(c,cards) PrintCallingFunction() return nil end + if type(c) == "number" then + GlobalTargetID = c + return c + end if c.GetCode then c = GetCardFromScript(c,cards) end @@ -800,10 +818,12 @@ function GlobalTargetGet(cards,index) cards = All() end local cardid = GlobalTargetID - GlobalTargetID = nil - local c = FindCard(cardid,cards,index) - if c == nil then - c = FindCard(cardid,All(),index) + --GlobalTargetID = nil --TODO: check if this is safe to not reset + local c = nil + if type(c) == "number" then + c = FindID(cardid,cards,index) + else + c = FindCard(cardid,cards,index) end if c == nil then print("Warning: Null GlobalTargetGet") @@ -828,18 +848,18 @@ function IsMonster(card) end -- fool-proof check, if a card belongs to a specific archetype function IsSetCode(card_set_code, set_code) - local band = bit32.band - local rshift = bit32.rshift - local settype = band(set_code,0xfff); - local setsubtype = band(set_code,0xf000); - local setcode = card_set_code - while setcode and setcode > 0 do - if (band(setcode,0xfff) == settype and band(band(setcode,0xf000),setsubtype) == setsubtype) then - return true - end - setcode = rshift(setcode,16); - end - return false; + local band = bit32.band + local rshift = bit32.rshift + local settype = band(set_code,0xfff); + local setsubtype = band(set_code,0xf000); + local setcode = card_set_code + while setcode and setcode > 0 do + if (band(setcode,0xfff) == settype and band(band(setcode,0xf000),setsubtype) == setsubtype) then + return true + end + setcode = rshift(setcode,16); + end + return false; end OPT={} -- functions to keep track of OPT clauses @@ -876,6 +896,21 @@ function OPTSet(id) end return end +OPD={} +-- same for once per duel +function OPDSet(id) + if type(id)=="table" then + id = GetCardFromScript(id).id + end + OPD[id]=true +end +function OPDCheck(id) + if type(id)=="table" then + id = GetCardFromScript(id).id + end + return not OPT[id] +end + -- used to keep track, if the OPT was reset willingly -- for example if the card was bounced back to the hand function OPTReset(id) @@ -920,8 +955,8 @@ function WinsBattle(source,target) and FilterLocation(target,LOCATION_MZONE) and (target:IsPosition(POS_FACEUP_ATTACK) and source:GetAttack() >= target:GetAttack() - or target:IsPosition(POS_FACEUP_DEFENCE) - and source:GetAttack() > target:GetDefence()) + or target:IsPosition(POS_FACEUP_DEFENSE) + and source:GetAttack() > target:GetDefense()) and source:IsPosition(POS_FACEUP_ATTACK) and not target:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) and not source:IsHasEffect(EFFECT_CANNOT_ATTACK) @@ -990,6 +1025,10 @@ function NotNegated(c) then return false end + if GlobalCoinormaTurn == Duel.GetTurnCount() + then + return PredictionPrincessFilter(c) + end end end GlobalNegatedLoop=false @@ -1004,6 +1043,7 @@ function DestroyFilter(c,nontarget,skipblacklist,skipignore) and (nontarget==true or not FilterAffected(c,EFFECT_CANNOT_BE_EFFECT_TARGET)) and (skipblacklist or not (DestroyBlacklist(c) and FilterPublic(c))) + and (nontarget or not RemovalCheckCard(c)) end function DestroyFilterIgnore(c,nontarget,skipblacklist,skipignore) return DestroyFilter(c,skipblacklist) @@ -1049,12 +1089,23 @@ function FilterRank(c,rank) end end function FilterType(c,type) -- TODO: change all filters to support card script + if c == nil then + print("Warning: FilterLocation null card") + PrintCallingFunction() + end if c.GetCode then return c:IsType(type) else return bit32.band(c.type,type)>0 end end +function FilterNotType(c,type) -- TODO: change all filters to support card script + if c.GetCode then + return not c:IsType(type) + else + return bit32.band(c.type,type)==0 + end +end function FilterAttack(c,attack) local atk = 0 if c.GetCode then @@ -1085,7 +1136,7 @@ end function FilterDefense(c,defense) local def = 0 if c.GetCode then - def = c:GetDefence() + def = c:GetDefense() else def = c.defense end @@ -1094,7 +1145,7 @@ end function FilterDefenseMin(c,defense) local def = 0 if c.GetCode then - def = c:GetDefence() + def = c:GetDefense() else def = c.defense end @@ -1103,7 +1154,7 @@ end function FilterDefenseMax(c,defense) local def = 0 if c.GetCode then - def = c:GetDefence() + def = c:GetDefense() else def = c.defense end @@ -1149,6 +1200,10 @@ function FilterPreviousLocation(c,loc) return bit32.band(c.previous_location,loc)>0 end function FilterStatus(c,status) + if status==nil then + print("Warning: FilterStatus null status") + PrintCallingFunction() + end if c.GetCode then return c:IsStatus(status) else @@ -1163,6 +1218,10 @@ function FilterSummon(c,type) end end function FilterAffected(c,effect) + if c == nil then + print("Warning: FilterAffected null card") + PrintCallingFunction() + end if c.GetCode then return c:IsHasEffect(effect) else @@ -1170,7 +1229,8 @@ function FilterAffected(c,effect) end end function FilterPublic(c) - return FilterStatus(c,STATUS_IS_PUBLIC) + return STATUS_IS_PUBLIC and FilterStatus(c,STATUS_IS_PUBLIC) + or c.is_public and c:is_public() or FilterPosition(c,POS_FACEUP) or FilterSummon(c,SUMMON_TYPE_SPECIAL) -- TODO: find better check end @@ -1198,6 +1258,12 @@ function FilterOPT(c,hard) return OPTCheck(c.cardid) end end +function FilterOPD(c,id) + if id then + return OPDCheck(id) + end + return OPDCheck(c) +end function FilterMaterials(c,count) return c.xyz_material_count>=count end @@ -1211,31 +1277,54 @@ end function FilterPendulum(c) return not FilterType(c,TYPE_PENDULUM+TYPE_TOKEN) end +GlobalEffect = nil +function GetGlobalEffect(c) + if GlobalEffect then + return GlobalEffect + else + c=GetScriptFromCard(c) + GlobalEffect=Effect.CreateEffect(c) + return GlobalEffect + end +end +function FilterRemovable(c) + c=GetScriptFromCard(c) + return c:IsAbleToRemove(GetGlobalEffect(c),0,nil,false,false) +end function FilterRevivable(c,skipcond) - return FilterType(c,TYPE_MONSTER) - and (not FilterStatus(c,STATUS_REVIVE_LIMIT) or FilterStatus(c,STATUS_PROC_COMPLETE)) - and (skipcond or not FilterAffected(c,EFFECT_SPSUMMON_CONDITION)) + c=GetScriptFromCard(c) + return c:IsCanBeSpecialSummoned(GetGlobalEffect(c),0,nil,false,false) end function FilterTuner(c,level) return FilterType(c,TYPE_MONSTER) and FilterType(c,TYPE_TUNER) and (not level or FilterLevel(c,level)) end ---[[function ScaleCheck(p) +function Scale(c) -- backwards compatibility + return c.lscale +end +function ScaleCheck(p) local cards=AIST() local result = 0 - local scale = {} - if p==2 then + local count = 0 + if p == 2 then cards=OppST() end for i=1,#cards do if bit32.band(cards[i].type,TYPE_PENDULUM)>0 then - result = result + 1 - --scale[result]= --missing function? + result = Scale(cards[i]) + count = count + 1 end end - return result -end]] + if count == 0 then + return false + elseif count == 1 then + return result + elseif count == 2 then + return true + end + return nil +end function FilterController(c,player) if not player then player = 1 end c=GetCardFromScript(c) @@ -1246,7 +1335,34 @@ function FilterOwner(c,player) c=GetCardFromScript(c) return c.owner==player end - +function FilterGlobalTarget(c,cards) + local target = GlobalTargetGet(cards) + return CardsEqual(c,target) +end +function FilterPriorityTarget(c) + return PriorityTarget(c) +end +function FilterPendulumSummonable(c,scalecheck) + return FilterType(c,TYPE_MONSTER) + and FilterRevivable(c) + and (FilterLocation(c,LOCATION_HAND) + or FilterLocation(c,LOCATION_EXTRA) + and FilterPosition(c,POS_FACEUP) + and FilterType(c,TYPE_PENDULUM)) + and (not scalecheck) -- TODO: implement scalecheck +end +function FilterFlip(c,checkopt) + return FilterType(c,TYPE_MONSTER) + and FilterType(c,TYPE_FLIP) + and FilterPosition(c,POS_FACEDOWN) + and (not checkopt or OPTCheck(c.id)) +end +function FilterFlipFaceup(c,checkopt) + return FilterType(c,TYPE_MONSTER) + and FilterType(c,TYPE_FLIP) + and FilterPosition(c,POS_FACEUP) + and (not checkopt or OPTCheck(c.id)) +end GlobalTargetList = {} -- function to prevent multiple cards to target the same card in the same chain function TargetCheck(card) @@ -1286,6 +1402,9 @@ end function FindCard(cardid,cards,index) if cards == nil then cards = All() end + if type(cardid)=="table" then + cardid=cardid.cardid + end for i=1,#cards do if cards[i].cardid==cardid then if index then @@ -1300,6 +1419,11 @@ end function FindID(id,cards,index,filter,opt) if cards == nil then cards = All() end + if filter and type(filter) ~= "function" then + print("Warning: FindID invalid filter") + print(filter) + PrintCallingFunction() + end for i=1,#cards do if cards[i].id == id and (filter == nil @@ -1316,6 +1440,15 @@ function FindID(id,cards,index,filter,opt) return nil end +function FindCardByFilter(cards,filter,opt) + for i,c in pairs(cards) do + if FilterCheck(c,filter,opt) then + return c + end + end + return nil +end + function AttackBoostCheck(bonus,malus,player,filter,opt) local source = Duel.GetAttacker() @@ -1335,9 +1468,9 @@ function AttackBoostCheck(bonus,malus,player,filter,opt) and (source:IsPosition(POS_FACEUP_ATTACK) and source:GetAttack() >= target:GetAttack() and source:GetAttack()-malus <= target:GetAttack()+bonus - or source:IsPosition(POS_FACEUP_DEFENCE) - and source:GetDefence() >= target:GetAttack() - and source:GetDefence() <= target:GetAttack()+bonus) + or source:IsPosition(POS_FACEUP_DEFENSE) + and source:GetDefense() >= target:GetAttack() + and source:GetDefense() <= target:GetAttack()+bonus) and not source:IsHasEffect(EFFECT_INDESTRUCTABLE_BATTLE) and (filter == nil or opt == nil and filter(target) @@ -1476,7 +1609,7 @@ function Affected(c,type,level) type = TYPE_SPELL end if level == nil then - level = 0 + level = 12 end if immune and atkdiff == 800 and bit32.band(type,TYPE_SPELL+TYPE_TRAP)==0 @@ -1517,10 +1650,6 @@ PriorityTargetList= 82732705,30241314,81674782,47084486, -- Skill Drain, Macro Cosmos, Dimensional Fissure, Vanity's Fiend 72634965,59509952,58481572,45986603, -- Vanity's Ruler, Archlord Kristya, Dark Law, Snatch Steal } -PriorityGraveTargetList= -{ - 34230233,12538374, -- Grapha, Treeborn -} function PriorityTarget(c,destroycheck,loc,filter,opt) -- preferred target for removal local result = false if loc == nil then loc = LOCATION_ONFIELD end @@ -1547,12 +1676,6 @@ function PriorityTarget(c,destroycheck,loc,filter,opt) -- preferred target for r result = true end result = (result or not AttackBlacklistCheck(c)) - elseif loc == LOCATION_GRAVE then - for i=1,#PriorityGraveTargetList do - if PriorityGraveTargetList[i]==c.id then - result = true - end - end end if result and (not destroycheck or DestroyFilter(c)) and FilterPublic(c) and (filter == nil or (opt==nil and filter(c) or filter(c,opt))) @@ -1777,6 +1900,9 @@ function BattleDamage(c,source,atk,oppatk,oppdef,pierce) if source and source.GetCode then source=GetCardFromScript(source) end + if source == nil then + return 0 + end if atk == nil then atk = source.attack end @@ -1800,7 +1926,7 @@ function BattleDamage(c,source,atk,oppatk,oppdef,pierce) if FilterPosition(c,POS_FACEUP_ATTACK) then return atk-oppatk end - if FilterPosition(c,POS_DEFENCE) and pierce then + if FilterPosition(c,POS_DEFENSE) and pierce then if FilterPublic(c) then return atk-oppdef end @@ -1847,7 +1973,7 @@ function CrashCheck(c) return Targetable(c,TYPE_MONSTER) and Affected(c,TYPE_MONSTER,8) end end - if FilterAffected(c,EFFECT_INDESTRUCTABLE_BATTLE)then + if FilterAffected(c,EFFECT_INDESTRUCTABLE_BATTLE) then return true end if not DestroyCountCheck(c,TYPE_MONSTER,true) @@ -1893,6 +2019,9 @@ function CrashCheck(c) if c.id == 71921856 and HasMaterials(c) then return true -- Nova Caesar end + if c.id == 29357956 and not FilterLocation(c,LOCATION_MZONE) then + return true -- Nerokius + end if CurrentMonOwner(c.cardid) ~= c.owner and StrongerAttackerCheck(c,AIMon()) then @@ -1915,11 +2044,19 @@ end -- function to determine, if a card can attack into another card -- without needing any bonus attack or taking any damage -function CanAttackSafely(c,targets,filter,opt) +function CanAttackSafely(c,targets,damage,filter,opt) + if not targets then targets=OppMon() end + if #targets == 0 then return true end local sub = SubGroup(targets,filter,opt) local atk = c.attack local baseatk = c.attack local usedatk + if damage == true then + damage = 0.2 -- percentage of lp you're willing to lose on an attack + end + if not damage then + damage = 0 + end if c.bonus then baseatk = math.max(0,atk-c.bonus) end @@ -1936,12 +2073,12 @@ function CanAttackSafely(c,targets,filter,opt) local oppatk = target.attack local oppdef = target.defense usedatk = baseatk - if FilterPosition(target,POS_FACEDOWN_DEFENCE) and not FilterPublic(target) then + if FilterPosition(target,POS_FACEDOWN_DEFENSE) and not FilterPublic(target) then oppdef = 1500 end if (FilterPosition(target,POS_ATTACK) and (oppatk0 and not FilterAffected(c,EFFECT_CANNOT_ATTACK) and (not direct or not FilterAffected(c,EFFECT_CANNOT_DIRECT_ATTACK)) @@ -2040,6 +2181,9 @@ end -- function to determine, if a card can deal battle damage to a targets -- for search effects, or just to push damage against battle-immune targets function CanDealBattleDamage(c,targets,ignorebonus,filter,opt) + if not BattlePhaseCheck() then + return false + end if targets == nil then targets = {} end @@ -2105,7 +2249,7 @@ function CanFinishGame(c,target,atk,bonus,malus) local oppatk, oppdef if target.GetCode then oppatk = target:GetAttack() - oppdef = target:GetDefence() + oppdef = target:GetDefense() else oppatk = target.attack oppdef = target.defense @@ -2115,7 +2259,7 @@ function CanFinishGame(c,target,atk,bonus,malus) if FilterPosition(target,POS_FACEUP_ATTACK) then return AI.GetPlayerLP(p)<=atk-oppatk end - if FilterPosition(target,POS_DEFENCE) and FilterAffected(c,EFFECT_PIERCE) then + if FilterPosition(target,POS_DEFENSE) and FilterAffected(c,EFFECT_PIERCE) then if FilterPublic(target) then return AI.GetPlayerLP(p)<=atk-oppatk else @@ -2237,7 +2381,7 @@ function BattlePhaseCheck() local p = Duel.GetCurrentPhase() return (p==PHASE_DRAW or p==PHASE_STANDBY - or p==PHASE_BATTLE) + or IsBattlePhase()) or p==PHASE_MAIN1 and GlobalBPAllowed end @@ -2258,6 +2402,14 @@ function Sequence(c) end function FilterCheck(c,filter,opt) + if not filter then + return c + end + if type(filter)~="function" then + print("Warning: FilterCheck not a valid filter") + print(filter) + PrintCallingFunction() + end return c and (not filter or opt==nil and filter(c) or filter(c,opt)) end @@ -2464,6 +2616,13 @@ function MatchupCheck(id) -- make AI consider matchups then return true end + if id == 58577036 then -- Reasoning + if OppDeckCheck(0xd2) then -- Kozmo + return 8 + elseif OppDeckCheck(0xbb) then -- Infernoid + return 1 + end + end return false end function SpaceCheck(loc,p) @@ -2613,9 +2772,11 @@ function ChainCardNegation(card,targeted,prio,filter,opt,skipnegate) end -function NegateMonk(c,e,source,link) +function NegateDiscardSummon(c,e,source,link) -- like Summoner Monk if not Duel.GetOperationInfo(link, CATEGORY_SPECIAL_SUMMON) then return 0 + else + return 4 end return nil end @@ -2635,8 +2796,14 @@ NegatePriority={ [98645731] = 0, -- Duality [81439173] = 0, -- Foolish [75500286] = 0, -- Gold Sarc +[01845204] = 4, -- Instant Fusion +[79844764] = 5, -- Stormforth + +[00423585] = NegateDiscardSummon, -- Summoner Monk +[95503687] = NegateDiscardSummon, -- Lightsworn Lumina +[90238142] = NegateDiscardSummon, -- Harpie Channeler +[17259470] = NegateDiscardSummon, -- Zombie Master -[00423585] = NegateMonk, [53804307] = NegateDragonRuler, [26400609] = NegateDragonRuler, [89399912] = NegateDragonRuler, @@ -2801,10 +2968,12 @@ function GetNegatePriority(source,link,targeted) end local check = NegatePriority[id] if prio>-1 and check then - if type(check) == "function" - and check(c,e,source) - then - prio=check(c,e,source) + if type(check) == "function" then + if check(c,e,source) then + prio=check(c,e,source) + else + prio=-1 + end else prio=check end @@ -2897,12 +3066,69 @@ function RemoveOnActivation(link,filter,opt) return target end +function PrintList(cards,prio) + print("printing list") + for i,c in pairs(cards) do + local s = "#"..i..": "..GetName(c) + if prio and c.prio then s=s..", prio: "..c.prio end + print(s) + end + print("end list") +end +function CheckSum(cards,sum,filter,opt) + local result = false + local valid = {} + for i,c in pairs(cards) do + if FilterCheck(c,filter,opt) then valid[#valid+1]=c end + end + for i=1,#valid do + local c=valid[i] + if c.level == sum then + result = true + end + for j=math.min(i+1,#valid),#valid do + local c2 = valid[j] + if not CardsEqual(c,c2) and c.level+c2.level == sum then + result = true + end + for k=math.min(j+1,#valid),#valid do + local c3 = valid[k] + if not CardsEqual(c2,c3) and not CardsEqual(c,c3) + and c.level+c2.level+c3.level==sum + then + result=true + end + end + end + end + return result +end +function IsBattlePhase() + local current=Duel.GetCurrentPhase() + local phases = + { + PHASE_BATTLE_START, + PHASE_BATTLE_STEP, + PHASE_DAMAGE, + PHASE_DAMAGE_CAL, + PHASE_BATTLE, + } + local result = false + for i,p in pairs(phases) do + if p and current == p then + result = true + end + end + return result +end - - - +function AITrashTalk(s) -- to make the AI comment its plays. Can be disabled in ai.lua + if TRASHTALK then + AI.Chat(s) + end +end diff --git a/ai/mod/AIOnDeckSelect.lua b/ai/mod/AIOnDeckSelect.lua index c9f2b8fa..9977c7d6 100644 --- a/ai/mod/AIOnDeckSelect.lua +++ b/ai/mod/AIOnDeckSelect.lua @@ -25,7 +25,7 @@ DECK_QLIPHORT = NewDeck("Qliphort" ,65518099) -- Qliphort Tool DECK_NOBLEKNIGHT = NewDeck("Noble Knight" ,59057152) -- Noble Knight Medraut DECK_NEKROZ = NewDeck("Nekroz" ,14735698) -- Nekroz Exomirror DECK_BA = NewDeck("Burning Abyss" ,36006208) -- Fire Lake of the Burning Abyss -DECK_EXODIA = NewDeck("Exodia" ,33396948) -- Exodia the Forbidden One +DECK_EXODIA = NewDeck("Exodia" ,{33396948,70791313}) -- Exodia the Forbidden One, Royal Magical Library DECK_DARKWORLD = NewDeck("Dark World" ,34230233) -- DW Grapha DECK_CONSTELLAR = NewDeck("Constellar" ,78358521) -- Constellar Sombre DECK_BLACKWING = NewDeck("Blackwing" ,91351370) -- Black Whirlwind @@ -101,7 +101,7 @@ end PRIO_TOHAND = 1 PRIO_TOFIELD = 3 PRIO_TOGRAVE = 5 -PRIO_DISCARD,PRIO_TODECK,PRIO_EXTRA = 7,7,7 +PRIO_DISCARD,PRIO_TODECK,PRIO_EXTRA,PRIO_TRIBUTE = 7,7,7,7 PRIO_BANISH = 9 -- priority lists for decks: function PrioritySetup() @@ -116,7 +116,7 @@ function PrioritySetup() SatellarknightPriority() --HEROPriority() BAPriority() - --NekrozPriority() + NekrozPriority() AddPriority({ -- HERO @@ -297,9 +297,8 @@ end function AssignPriority(cards,loc,filter,opt) local index = 0 Multiple = nil - for i=1,#cards do - local c = cards[i] - c.index=i + for i,c in pairs(cards) do + if not c.index then c.index=i end c.prio=GetPriority(c,loc) if loc==PRIO_TOFIELD and c.location==LOCATION_DECK then c.prio=c.prio+2 @@ -323,7 +322,7 @@ function AssignPriority(cards,loc,filter,opt) if Negated(c) then c.prio=c.prio+3 end - if FilterPosition(c,POS_DEFENCE) + if FilterPosition(c,POS_DEFENSE) and c.turnid==Duel.GetTurnCount() and c.attack>c.defense then @@ -336,7 +335,7 @@ function AssignPriority(cards,loc,filter,opt) end end if loc==PRIO_TOHAND and bit32.band(c.location,LOCATION_ONFIELD)>0 - and not DeckCheck(DECK_HARPIE) -- temp + and not DeckCheck(DECK_HARPIE) -- TODO: temp then c.prio=-1 end @@ -380,10 +379,6 @@ function Add(cards,loc,count,filter,opt) local compare = function(a,b) return a.prio>b.prio end AssignPriority(cards,loc,filter,opt) table.sort(cards,compare) - --print("priority list:") - for i=1,#cards do - --print(GetName(cards[i])..", prio:"..cards[i].prio) - end for i=1,count do result[i]=cards[i].index end @@ -394,3 +389,6 @@ function Add(cards,loc,count,filter,opt) end return result end +function SortByPrio(cards) + table.sort(cards,function(a,b) return a.prio>b.prio end) +end diff --git a/ai/mod/DeclareCard.lua b/ai/mod/DeclareCard.lua index 127aa699..d0d7a516 100644 --- a/ai/mod/DeclareCard.lua +++ b/ai/mod/DeclareCard.lua @@ -29,7 +29,7 @@ function OnDeclareCard() if OppHand[i] ~= false then GlobalActivatedCardID = nil Result = OppHand[math.random(#OppHand)].id - AI.Chat("Let's see what card should I chose...") + AITrashTalk("Let's see what card should I chose...") return Result end end diff --git a/ai/mod/SelectBattleCommand.lua b/ai/mod/SelectBattleCommand.lua index 91b08b8e..84c9e52f 100644 --- a/ai/mod/SelectBattleCommand.lua +++ b/ai/mod/SelectBattleCommand.lua @@ -137,6 +137,7 @@ function BestAttackTarget(cards,source,ignorebonus,filter,opt) for i=1,#cards do local c = cards[i] c.index = i + c.prio = 0 if FilterPosition(c,POS_FACEUP_ATTACK) then if c.attack=1500 then c.prio = -1 else @@ -427,7 +428,7 @@ function OnSelectBattleCommand(cards,activatable) if #targets>0 and #cards>0 then for i=1,#cards do for j=1,#targets do - if FilterPosition(targets[j],POS_FACEDOWN_DEFENCE) and (cards[i].attack >= 1500 + if FilterPosition(targets[j],POS_FACEDOWN_DEFENSE) and (cards[i].attack >= 1500 or FilterPublic(targets[j]) and cards[i].attack > targets[j].defense) then return Attack(i) @@ -491,6 +492,9 @@ function OnSelectBattleCommand(cards,activatable) if HasID(activatable,83555666,ChainRoD) then -- Ring of Destruction return 2,CurrentIndex end + if HasID(activatable,83555666,ChainRoD) then -- Ring of Destruction + return 2,CurrentIndex + end local result,result2 = nil,nil local d = DeckCheck() if d and d.Chain then @@ -546,7 +550,7 @@ end function AttackMaiden(c,source) return Negated(c) or ArmadesCheck(source) - or FilterPosition(c,POS_DEFENCE) + or FilterPosition(c,POS_DEFENSE) or CardsMatchingFilter(AIMon(),FilterAttackMin,3000)>0 or not DualityCheck(2) end diff --git a/ai/mod/SelectCard.lua b/ai/mod/SelectCard.lua index f2e2893e..f306c4cc 100644 --- a/ai/mod/SelectCard.lua +++ b/ai/mod/SelectCard.lua @@ -24,7 +24,7 @@ function OnSelectCard(cards, minTargets, maxTargets, triggeringID,triggeringCard -- AI attack target selection -- redirected to SelectBattleComand.lua - if Duel.GetCurrentPhase()==PHASE_BATTLE + if IsBattlePhase() and GlobalAIIsAttacking and Duel.GetCurrentChain()==0 and not triggeringCard @@ -35,6 +35,8 @@ function OnSelectCard(cards, minTargets, maxTargets, triggeringID,triggeringCard return result end + -- Summoning material selection + -- redirected to SelectTribute.lua if not triggeringCard and GlobalMaterial==true and Duel.GetCurrentChain()==0 @@ -44,6 +46,7 @@ function OnSelectCard(cards, minTargets, maxTargets, triggeringID,triggeringCard GlobalSSCardID = nil return OnSelectMaterial(cards,minTargets,maxTargets,id) end + if DeckCheck(DECK_EXODIA) then return ExodiaCard(cards,minTargets,maxTargets,triggeringID,triggeringCard) end @@ -83,10 +86,6 @@ end end result = {} - - - - -------------------------------------------- -- Select minimum number of valid XYZ material monsters, -- with lowest attack as tributes. @@ -974,9 +973,18 @@ end return Add(cards,PRIO_TOGRAVE,minTargets) end - -- Example implementation: always choose the mimimum amount of targets and select the index of the first available targets + + -- always choose the mimimum amount of targets and select random targets + local targets = {} + for i,c in pairs(cards) do + targets[i]=c + c.index=i + end for i=1,minTargets do - result[i]=i + local r=math.random(1,#targets) + local c=targets[r] + table.remove(targets,r) + result[i]=c.index end return result diff --git a/ai/mod/SelectChain.lua b/ai/mod/SelectChain.lua index 8c75c94b..ecb69c39 100644 --- a/ai/mod/SelectChain.lua +++ b/ai/mod/SelectChain.lua @@ -235,18 +235,6 @@ result = 0 end - --------------------------------------------- - -- Activate Gladiator Beast War Chariot, - -- only if Opp controls effect type monsters - --------------------------------------------- - for i=1,#cards do - if cards[i].id == 96216229 then -- Gladiator Beast War Chariot - if Get_Card_Count_Type(OppMon(), TYPE_MONSTER + TYPE_EFFECT, "==", POS_FACEUP) > 0 then - GlobalActivatedCardID = cards[i].id - return 1,i - end - end - end --------------------------------------------- -- AI should activate: Waboku, Negate Attack @@ -292,7 +280,7 @@ result = 0 local AIHand = AIHand() local HandHighestATK = 0 local Result = 0 - if AI.GetCurrentPhase() == PHASE_BATTLE and Duel.GetTurnPlayer() == player_ai + if IsBattlePhase() and Duel.GetTurnPlayer() == player_ai and Get_Card_Count_Type(AIBanish(),TYPE_MONSTER,">",nil) >= 3 and Get_Card_Count(AIMon()) == 0 then @@ -359,7 +347,7 @@ end -- "Amazoness Archers" trap card --------------------------------------------- if Get_Card_Count_ID(OppST(), 67987611, POS_FACEUP) > 0 then - if AI.GetCurrentPhase() == PHASE_BATTLE then + if IsBattlePhase() then Global1PTAArchers = 1 end end diff --git a/ai/mod/SelectEffectYesNo.lua b/ai/mod/SelectEffectYesNo.lua index d6fd4179..5d095122 100644 --- a/ai/mod/SelectEffectYesNo.lua +++ b/ai/mod/SelectEffectYesNo.lua @@ -16,7 +16,11 @@ function OnSelectEffectYesNo(id,triggeringCard) if d and d.EffectYesNo then result = d.EffectYesNo(id,triggeringCard) end - if result then return result end + if result then + if result == true then result = 1 end + if result == false then result = 0 end + return result + end local YesNoFunctions = { FireFistOnSelectEffectYesNo,MermailOnSelectEffectYesNo, GadgetOnSelectEffectYesNo, @@ -32,7 +36,11 @@ function OnSelectEffectYesNo(id,triggeringCard) result = func(id,triggeringCard) end end - if result then return result end + if result then + if result == true then result = 1 end + if result == false then result = 0 end + return result + end if CardIsScripted(id)>0 then result = 0 else diff --git a/ai/mod/SelectInitCommand.lua b/ai/mod/SelectInitCommand.lua index 6088228f..3ab1bf89 100644 --- a/ai/mod/SelectInitCommand.lua +++ b/ai/mod/SelectInitCommand.lua @@ -89,16 +89,22 @@ function OnSelectInitCommand(cards, to_bp_allowed, to_ep_allowed) set_player_turn(true) DeckCheck() GlobalAIIsAttacking = nil + GlobalMaterial = nil ResetOncePerTurnGlobals() GlobalBPAllowed = to_bp_allowed SurrenderCheck() - + --------------------------------------- -- Don't do anything if the AI controls -- a face-up Light and Darkness Dragon. --------------------------------------- + --if player_ai.xyz_material_count > 1 then + --error + --end + if LADDCheck(atk) then + return COMMAND_TO_NEXT_PHASE,1 end @@ -182,6 +188,10 @@ then return DeckCommand[1],DeckCommand[2] end +if HasID(SpSummonableCards,80696379,SummonMeteorburst,1) then + return SynchroSummon() +end + -- If the AI can attack for game, attempt to do so first -- opp has no monsters to defend @@ -212,10 +222,8 @@ then end -- AI can attack for game on an opponent's monster -for i=1,#AIMon() do - for j=1,#OppMon() do - source=AIMon()[i] - target=OppMon()[i] +for i,source in pairs(AIMon()) do + for j,target in pairs(OppMon()) do if CanFinishGame(source,target) and to_bp_allowed and BattlePhaseCheck() @@ -230,8 +238,22 @@ if d and d.Init then end if DeckCommand ~= nil then if type(DeckCommand)=="table" then + if DeckCommand[2]==0 + then + print("Warning: null command for OnSelectInit") + print("attempting to execute deck command: "..DeckCommand[1]..", "..DeckCommand[2]) + PrintCallingFunction() + end + --print("executing deck command: "..DeckCommand[1]..", "..DeckCommand[2]) return DeckCommand[1],DeckCommand[2] else + if DeckCommand2==0 + then + print("Warning: null command for OnSelectInit") + print("attempting to execute deck command: "..DeckCommand..", "..DeckCommand2) + PrintCallingFunction() + end + --print("executing deck command: "..DeckCommand..", "..DeckCommand2) return DeckCommand,DeckCommand2 end end @@ -440,8 +462,8 @@ end ---------------------------------------------------- for i=1,#RepositionableCards do if RepositionableCards[i].id == 14677495 then - if RepositionableCards[i].position == POS_FACEUP_DEFENCE or - RepositionableCards[i].position == POS_FACEDOWN_DEFENCE then + if RepositionableCards[i].position == POS_FACEUP_DEFENSE or + RepositionableCards[i].position == POS_FACEDOWN_DEFENSE then GlobalActivatedCardID = RepositionableCards[i].id return COMMAND_CHANGE_POS,i end @@ -1152,7 +1174,7 @@ end local AIHand = AIHand() local HandHighestATK = 0 local Result = 0 - if AI.GetCurrentPhase() == PHASE_BATTLE and Duel.GetTurnPlayer() == 1-player_ai and + if IsBattlePhase() and Duel.GetTurnPlayer() == 1-player_ai and Get_Card_Count_Type(AIBanish(),TYPE_MONSTER,">",nil) >= 3 and Get_Card_Count(AIMon()) == 0 then return 1,i end @@ -1346,6 +1368,7 @@ end and not FilterType(c,TYPE_FIELD) and CardIsScripted(c.id) == 0 and NotNegated(c) + and c.description ~= 1160 -- Pendulum scale activation then GlobalActivatedCardID = c.id return COMMAND_ACTIVATE,i @@ -1373,7 +1396,7 @@ end -------------------------------------------------- for i=1,#RepositionableCards do if ChangePosToXYZSummon(cards, SummonableCards, RepositionableCards) == 1 then -- Check if any XYZ can be summoned - if RepositionableCards[i].position == POS_FACEDOWN_DEFENCE then -- Only change position of face down monsters + if RepositionableCards[i].position == POS_FACEDOWN_DEFENSE then -- Only change position of face down monsters if isMonLevelEqualToRank(RepositionableCards[i].level,RepositionableCards[i].id) == 1 then -- Check if monster's level is equal to XYZ monsters rank return COMMAND_CHANGE_POS,i end @@ -1386,7 +1409,7 @@ end ----------------------------------------------------- for i=1,#RepositionableCards do if RepositionableCards[i].id == 21502796 then - if RepositionableCards[i].position == POS_FACEDOWN_DEFENCE then + if RepositionableCards[i].position == POS_FACEDOWN_DEFENSE then if Get_Card_Count(AI.GetOppMonsterZones()) > 0 or Get_Card_Count(OppST()) > 0 then return COMMAND_CHANGE_POS,i end @@ -1400,7 +1423,7 @@ end ------------------------------------------- for i=1,#RepositionableCards do if RepositionableCards[i].id == 41872150 then - if RepositionableCards[i].position == POS_FACEDOWN_DEFENCE then + if RepositionableCards[i].position == POS_FACEDOWN_DEFENSE then if Get_Card_Count(OppST()) > 0 then return COMMAND_CHANGE_POS,i end @@ -1416,7 +1439,7 @@ end if RepositionableCards[i].id == 15383415 or -- Swarm of Scarabs RepositionableCards[i].id == 54652250 or -- Man-Eater Bug RepositionableCards[i].id == 52323207 then -- Golem Sentry - if RepositionableCards[i].position == POS_FACEDOWN_DEFENCE then + if RepositionableCards[i].position == POS_FACEDOWN_DEFENSE then if Get_Card_Count(OppST()) > 0 then return COMMAND_CHANGE_POS,i end @@ -1433,7 +1456,7 @@ end RepositionableCards[i].id == 03510565 or -- Stealth Bird RepositionableCards[i].id == 33508719 or -- Morphing Jar RepositionableCards[i].id == 44811425 then -- Worm Linx - if RepositionableCards[i].position == POS_FACEDOWN_DEFENCE then + if RepositionableCards[i].position == POS_FACEDOWN_DEFENSE then return COMMAND_CHANGE_POS,i end end @@ -1654,7 +1677,7 @@ end return COMMAND_SUMMON,CurrentIndex end - if HasID(RepositionableCards,34627841,FilterPosition,POS_FACEDOWN_DEFENCE) + if HasID(RepositionableCards,34627841,FilterPosition,POS_FACEDOWN_DEFENSE) and HasID(AIHand(),89631139,true) then return COMMAND_CHANGE_POS,CurrentIndex @@ -1906,7 +1929,7 @@ end -------------------------------------- -- If it gets this far, set a monster. -------------------------------------- - -- if Get_Card_Count(AIMon()) == 0 then -- AI was limited to set monster only when he had none, instead of building up defence, why ? + -- if Get_Card_Count(AIMon()) == 0 then -- AI was limited to set monster only when he had none, instead of building up defense, why ? for i=1,#cards.monster_setable_cards do if NormalSummonBlacklist(cards.monster_setable_cards[i].id) == 0 then if cards.monster_setable_cards[i].level < 5 then @@ -1929,8 +1952,8 @@ end for i=1,#RepositionableCards do if RepositionableCards[i] ~= false then if isToonUndestroyable(RepositionableCards) == 1 then - if RepositionableCards[i].position == POS_FACEUP_DEFENCE or - RepositionableCards[i].position == POS_FACEDOWN_DEFENCE then + if RepositionableCards[i].position == POS_FACEUP_DEFENSE or + RepositionableCards[i].position == POS_FACEDOWN_DEFENSE then return COMMAND_CHANGE_POS,i end end @@ -1944,7 +1967,7 @@ end for i=1,#RepositionableCards do if RepositionableCards[i] ~= false then if (RepositionableCards[i].id == 88241506 or RepositionableCards[i].id == 15914410) -- Maiden with Eyes of Blue, Mechquipped Angineer - and RepositionableCards[i].position == POS_FACEUP_DEFENCE then + and RepositionableCards[i].position == POS_FACEUP_DEFENSE then return COMMAND_CHANGE_POS,i end end @@ -1952,7 +1975,7 @@ end -------------------------------------------------- -- If AI's monster has less attack than the - -- opponent's strongest monster, turn it to defence position + -- opponent's strongest monster, turn it to defense position -- in MP2. -------------------------------------------------- for i=1,#RepositionableCards do @@ -1989,7 +2012,7 @@ end for i=1,#AIMon() do local c=AIMon()[i] if c.attack > Get_Card_Att_Def(OppMon(),"attack",">",POS_FACEUP_ATTACK,"attack") - and c.attack > Get_Card_Att_Def(OppMon(),"defense",">",POS_FACEUP_DEFENCE,"defense") + and c.attack > Get_Card_Att_Def(OppMon(),"defense",">",POS_FACEUP_DEFENSE,"defense") and Duel.GetCurrentPhase() == PHASE_MAIN1 and GlobalBPAllowed then ChangePosOK = true @@ -1997,7 +2020,7 @@ end end for i=1,#RepositionableCards do local c = RepositionableCards[i] - if FilterPosition(c,POS_DEFENCE) + if FilterPosition(c,POS_DEFENSE) and RepositionBlacklist(c.id)==0 and (ChangePosOK and c.attack > 1000 and c.defense-c.attack < 500 and not FilterAffected(c,EFFECT_CANNOT_ATTACK) diff --git a/ai/mod/SelectNumber.lua b/ai/mod/SelectNumber.lua index 9244fc28..63c3a7fc 100644 --- a/ai/mod/SelectNumber.lua +++ b/ai/mod/SelectNumber.lua @@ -35,7 +35,15 @@ function OnSelectNumber(choices) return 3 end end - + local e,c,id = EffectCheck(1-player_ai) + if e and id == 58577036 then + result = ReasoningNumber() + for i,choice in pairs(choices) do + if choice == result then + return i + end + end + end local d = DeckCheck() if d and d.Number then result = d.Number(id,available) @@ -50,5 +58,4 @@ function OnSelectNumber(choices) -- Example implementation: pick one of the available choices randomly return math.random(#choices) - end diff --git a/ai/mod/SelectPosition.lua b/ai/mod/SelectPosition.lua index 4faa6599..24eb1ceb 100644 --- a/ai/mod/SelectPosition.lua +++ b/ai/mod/SelectPosition.lua @@ -11,8 +11,8 @@ From constants.lua POS_FACEUP_ATTACK =0x1 POS_FACEDOWN_ATTACK =0x2 -POS_FACEUP_DEFENCE =0x4 -POS_FACEDOWN_DEFENCE =0x8 +POS_FACEUP_DEFENSE =0x4 +POS_FACEDOWN_DEFENSE =0x8 --]] function OnSelectPosition(id, available) local result = 0 @@ -26,7 +26,7 @@ function OnSelectPosition(id, available) ------------------------------------------------------- if GlobalActivatedCardID == 27337596 -- Hieratic Dragon King of Atum then - result = POS_FACEUP_DEFENCE + result = POS_FACEUP_DEFENSE GlobalActivatedCardID = nil GlobalTributedCardID = nil end @@ -36,14 +36,14 @@ function OnSelectPosition(id, available) -- or if any actions can be taken to gain advantage over player. -- Then summon or set monster in available position depending on results. ------------------------------------------------------ - if band(POS_FACEDOWN_DEFENCE,available) > 0 and Get_Card_Count_Pos(OppMon(), POS_FACEUP) > 0 then + if band(POS_FACEDOWN_DEFENSE,available) > 0 and Get_Card_Count_Pos(OppMon(), POS_FACEUP) > 0 then if AIMonGetAttackById(id) < Get_Card_Att_Def(OppMon(),"attack",">",POS_FACEUP_ATTACK,"attack") and CanChangeOutcomeSS(id) == 0 and AIMonGetAttackById(id) < 2400 then -- Also check if any action can be taken by CanChangeOutcomeSS - result = POS_FACEDOWN_DEFENCE + result = POS_FACEDOWN_DEFENSE end end - if band(POS_FACEUP_DEFENCE,available) > 0 and Get_Card_Count_Pos(OppMon(), POS_FACEUP) > 0 then + if band(POS_FACEUP_DEFENSE,available) > 0 and Get_Card_Count_Pos(OppMon(), POS_FACEUP) > 0 then if AIMonGetAttackById(id) < Get_Card_Att_Def(OppMon(),"attack",">",POS_FACEUP_ATTACK,"attack") and CanChangeOutcomeSS(id) == 0 and AIMonGetAttackById(id) < 2400 then -- Also check if any action can be taken by CanChangeOutcomeSS - result = POS_FACEUP_DEFENCE + result = POS_FACEUP_DEFENSE end end ------------------------------------------------------- @@ -58,13 +58,13 @@ function OnSelectPosition(id, available) if Get_Card_Count_ID(AIHand(),31036355,nil) == 0 or Get_Card_Count(OppMon()) ~= 1 or Get_Card_Count(AIMon()) ~= 0 then - result = POS_FACEUP_DEFENCE + result = POS_FACEUP_DEFENSE end end ------------------------------------ -- Cards to be always summoned in - -- defence position. + -- defense position. -- Expanding upon the above example. -- More cards to be added later. ------------------------------------ @@ -74,7 +74,7 @@ function OnSelectPosition(id, available) id == 58058134 or id == 10389142 or -- Slacker Magician, Tomahawk id == 46384403 or id == 14677495 then -- Nimble Manta, Tanngnjostr - result = POS_FACEUP_DEFENCE + result = POS_FACEUP_DEFENSE end ------------------------------------ @@ -111,10 +111,10 @@ function OnSelectPosition(id, available) if band(result,available) == 0 then if band(POS_FACEUP_ATTACK,available) > 0 then result = POS_FACEUP_ATTACK - elseif band(POS_FACEUP_DEFENCE,available) > 0 then - result = POS_FACEUP_DEFENCE - elseif band(POS_FACEDOWN_DEFENCE,available) > 0 then - result = POS_FACEDOWN_DEFENCE + elseif band(POS_FACEUP_DEFENSE,available) > 0 then + result = POS_FACEUP_DEFENSE + elseif band(POS_FACEDOWN_DEFENSE,available) > 0 then + result = POS_FACEDOWN_DEFENSE else result = POS_FACEDOWN_ATTACK end diff --git a/ai/mod/SelectYesNo.lua b/ai/mod/SelectYesNo.lua index 511115e8..8fa8684b 100644 --- a/ai/mod/SelectYesNo.lua +++ b/ai/mod/SelectYesNo.lua @@ -22,7 +22,11 @@ function OnSelectYesNo(description_id) if d and d.YesNo then result = d.YesNo(description_id) end - if result~=nil then return result end + if result then + if result == true then result = 1 end + if result == false then result = 0 end + return result + end if description_id == 30 then local cards = nil diff --git a/cards.cdb b/cards.cdb index b8d51a26..2d3e05d8 100644 Binary files a/cards.cdb and b/cards.cdb differ diff --git a/deck/AI_BurningAbyss.ydk b/deck/AI_BurningAbyss.ydk index 74572f22..bd5841d3 100644 --- a/deck/AI_BurningAbyss.ydk +++ b/deck/AI_BurningAbyss.ydk @@ -19,8 +19,8 @@ 12580477 81439173 62835876 -20513882 -20513882 +6780 +6780 36006208 36006208 53582587 diff --git a/deck/AI_DarkWorld.ydk b/deck/AI_DarkWorld.ydk index 2cb71e7f..8230e35d 100644 --- a/deck/AI_DarkWorld.ydk +++ b/deck/AI_DarkWorld.ydk @@ -16,13 +16,12 @@ 10802915 84764038 1475311 +1475311 12580477 16435215 16435215 16435215 70368879 -70368879 -70368879 74117290 74117290 74117290 @@ -40,6 +39,7 @@ 41930553 41930553 82732705 +84749824 #extra 73445448 1639384 diff --git a/deck/AI_GladiatorBeast.ydk b/deck/AI_GladiatorBeast.ydk new file mode 100644 index 00000000..6dc42a33 --- /dev/null +++ b/deck/AI_GladiatorBeast.ydk @@ -0,0 +1,69 @@ +#created by ... +#main +7573135 +7573135 +78868776 +78868776 +89312388 +89312388 +25924653 +25924653 +57731460 +57731460 +41470137 +41470137 +41470137 +612115 +92373006 +92373006 +1845204 +1845204 +8949584 +8949584 +8949584 +12580477 +14087893 +29401950 +40838625 +40838625 +40838625 +53567095 +53567095 +5851097 +97077563 +97077563 +97077563 +40605147 +40605147 +40605147 +84749824 +96216229 +96216229 +96216229 +#extra +27346636 +29357956 +79229522 +79229522 +48156348 +48156348 +17412721 +63519819 +56832966 +84013237 +86848580 +63746411 +82633039 +95169481 +22653490 +!side +7573135 +70095154 +63767246 +1639384 +21044178 +93568288 +1845204 +70368879 +5318639 +43898403 diff --git a/deck/AI_Kozmo.ydk b/deck/AI_Kozmo.ydk index a9bffc08..10d00c01 100644 --- a/deck/AI_Kozmo.ydk +++ b/deck/AI_Kozmo.ydk @@ -1,59 +1,59 @@ #created by ... #main +64063868 55885348 55885348 55885348 20849090 20849090 -20849090 94454495 94454495 -93302695 +94454495 93302695 93302695 67050396 -37742478 -37742478 -31061682 31061682 31061682 56907986 56907986 -23434538 -23434538 +64280356 +64280356 +64280356 +1475311 +1475311 12580477 -58577036 -58577036 -58577036 -73628505 73628505 -5318639 -5318639 -67723438 +43898403 +43898403 67723438 67723438 67237709 67237709 67237709 -5851097 +90452877 +90452877 +90452877 +97077563 +97077563 +97077563 40605147 40605147 40605147 84749824 #extra +1639384 44405066 +91949988 +80117527 10443957 -9272381 56832966 73964868 -34945480 +29669359 58069384 84013237 -31437713 82633039 -95169481 21044178 -12014404 -18326736 31320433 +62709239 +95992081 !side diff --git a/deck/AI_Lightsworn.ydk b/deck/AI_Lightsworn.ydk new file mode 100644 index 00000000..c5eaac54 --- /dev/null +++ b/deck/AI_Lightsworn.ydk @@ -0,0 +1,59 @@ +#created by ... +#main +57774843 +57774843 +57774843 +58996430 +58996430 +58996430 +59019082 +96235275 +77558536 +77558536 +77558536 +22624373 +22624373 +44178886 +73176465 +73176465 +34710660 +95503687 +95503687 +95503687 +40164421 +69764158 +69764158 +2830693 +2830693 +67441435 +691925 +691925 +691925 +1845204 +1845204 +5133471 +5133471 +32807846 +70368879 +81439173 +94886282 +94886282 +66194206 +66194206 +#extra +17412721 +63519819 +52687916 +80666118 +74586817 +4779823 +80696379 +82044279 +73580471 +56832966 +84013237 +82633039 +30100551 +581014 +21044178 +!side diff --git a/deck/AI_Majespecter.ydk b/deck/AI_Majespecter.ydk new file mode 100644 index 00000000..c4370574 --- /dev/null +++ b/deck/AI_Majespecter.ydk @@ -0,0 +1,73 @@ +#created by ... +#main +51531505 +51531505 +51531505 +14920218 +14920218 +14920218 +40318957 +72714461 +94784213 +94784213 +94784213 +645794 +645794 +645794 +68395509 +68395509 +68395509 +31991800 +31991800 +31991800 +5506791 +5506791 +5506791 +12580477 +13972452 +53208660 +53208660 +53208660 +58577036 +49366157 +76473843 +76473843 +76473843 +5650082 +36183881 +36183881 +5851097 +78949372 +2572890 +2572890 +#extra +56832966 +56832966 +84013237 +84013237 +82697249 +31437713 +82633039 +22653490 +88722973 +21044178 +12014404 +93568288 +62709239 +71068247 +85252081 +!side +85239662 +59438930 +19665973 +16195942 +85909450 +31320433 +95992081 +52558805 +88942504 +54447022 +70368879 +43898403 +50755 +78474168 diff --git a/deck/AI_MaskedHERO.ydk b/deck/AI_MaskedHERO.ydk index 1371c4ef..a8ddb76c 100644 --- a/deck/AI_MaskedHERO.ydk +++ b/deck/AI_MaskedHERO.ydk @@ -19,8 +19,6 @@ 12580477 32807846 70368879 -70368879 -70368879 87819421 5318639 5318639 @@ -40,20 +38,22 @@ 97077563 97077563 40605147 +40605147 +40605147 #extra 59642500 29095552 50608164 58481572 58481572 -10443957 -9272381 56832966 -58069384 -56638325 84013237 21501505 +94380860 +63746411 +31437713 82633039 -18326736 +581014 +21044178 6511113 !side diff --git a/deck/AI_Qliphort.ydk b/deck/AI_Qliphort.ydk index a55be293..ad0d9b9a 100644 --- a/deck/AI_Qliphort.ydk +++ b/deck/AI_Qliphort.ydk @@ -28,8 +28,6 @@ 25067275 25789292 25789292 -31222701 -31222701 17639150 4450854 29401950 @@ -40,6 +38,8 @@ 24348804 24348804 82732705 +40605147 +40605147 #extra 91949988 80117527 diff --git a/deck/AI_Shaddoll.ydk b/deck/AI_Shaddoll.ydk index 5f5e2e6c..1bc564d3 100644 --- a/deck/AI_Shaddoll.ydk +++ b/deck/AI_Shaddoll.ydk @@ -1,59 +1,61 @@ #created by ... #main +91501248 +91501248 3717252 -20292186 -20292186 -85103922 -12697630 -12697630 -77723643 -77723643 +3717252 +67503139 77723643 30328508 30328508 -24062258 -4939890 +26517393 +26517393 +95492061 +95492061 +95492061 +31118030 +32231618 +32231618 4939890 4939890 37445295 -37445295 -37445295 +97268402 +94997874 +94997874 +94997874 +1845204 1845204 +13048472 +13048472 +13048472 44394295 44394295 44394295 -5318639 -5318639 -29223325 -29223325 -29223325 -12444060 -12444060 -12444060 -29401950 -53582587 -77505534 -77505534 -77505534 -78474168 -78474168 -94192409 +81439173 +30392583 +30392583 +30392583 +6417578 +43898403 +43898403 4904633 84749824 #extra -20366274 -20366274 -20366274 +74822425 +74822425 +19261966 +74009824 94977269 94977269 -72959823 -8561192 -4779823 -33698022 -31924889 -88033975 -73964868 -29669359 +17412721 +52687916 +95113856 +56832966 +84013237 +63746411 82633039 581014 !side +74586817 +82044279 +64880894 diff --git a/deck/AI_Tellarknight.ydk b/deck/AI_Tellarknight.ydk index 4867bf99..a76ba4e5 100644 --- a/deck/AI_Tellarknight.ydk +++ b/deck/AI_Tellarknight.ydk @@ -42,18 +42,18 @@ 84749824 #extra 17412721 -10443957 56832966 -58069384 +38273745 56638325 56638325 84013237 +21501505 94380860 42589641 48739166 31437713 82633039 +21044178 63504681 -18326736 93568288 !side diff --git a/deck/AI_Yami Yugi's Deck.ydk b/deck/AI_Yami Yugi's Deck.ydk deleted file mode 100644 index 9041a252..00000000 --- a/deck/AI_Yami Yugi's Deck.ydk +++ /dev/null @@ -1,51 +0,0 @@ -#created by ... -#main -72989439 -75347539 -78193831 -46986415 -70781052 -38033122 -28279543 -90876561 -41392891 -39256679 -64788463 -71413901 -11549357 -25652259 -5818798 -99785935 -52077741 -13039848 -95727991 -80344569 -31305911 -40640057 -57116034 -65240384 -83764718 -72302403 -99789342 -25774450 -87880531 -66788016 -5318639 -24094653 -67227834 -72892473 -83746708 -2314238 -19613556 -43434803 -44095762 -44095762 -60082869 -83133491 -62279055 -18807108 -#extra -6150044 -98502114 -66889139 -!side diff --git a/deck/NewCards10337.ydk b/deck/NewCards10337.ydk deleted file mode 100755 index 61197092..00000000 --- a/deck/NewCards10337.ydk +++ /dev/null @@ -1,93 +0,0 @@ -#created by ... -#main -75195825 -23064604 -96570609 -76930964 -42880485 -24573625 -3428069 -61190918 -97588916 -40945356 -67120578 -17330916 -63251695 -37752990 -62312469 -50078320 -64973287 -35818851 -38988538 -98301564 -1580833 -38601126 -14763299 -14541657 -99423156 -645794 -62038047 -89091772 -25795273 -80335817 -2602411 -89113320 -15495787 -59463312 -77152542 -36630403 -41767843 -42002073 -97466438 -95457011 -49823708 -76218313 -78274190 -53724621 -16617334 -54941203 -23851033 -2099841 -15555120 -22842126 -46066477 -83461421 -16494704 -13611090 -14733538 -78348934 -89883517 -77826734 -78161960 -78949372 -#extra -59255742 -86240887 -22638495 -85528209 -83283063 -84305651 -59123194 -11790356 -57288064 -21516908 -75988594 -58901502 -10678778 -27552504 -!side -41940225 -43898403 -77116346 -40005099 -41128647 -3211439 -4333086 -15155568 -40838625 -41554273 -76004142 -16278116 -42776855 -54241725 -40605147 diff --git a/deck/NewCards10337v2.ydk b/deck/NewCards10337v2.ydk deleted file mode 100644 index 8e9ddc3c..00000000 --- a/deck/NewCards10337v2.ydk +++ /dev/null @@ -1,59 +0,0 @@ -#created by ... -#main -58604027 -38517737 -55885348 -55063751 -28674152 -83303851 -19302550 -29491334 -59975920 -93302695 -93124273 -85374678 -99315585 -36704180 -51814159 -72181263 -46796664 -12369277 -63821877 -90432163 -36426778 -56907986 -19580308 -97219708 -36734924 -58753372 -23581825 -40450317 -50692511 -86196216 -45974017 -98153934 -82270047 -10424147 -2376209 -20513882 -24425055 -38761908 -47819246 -98431356 -#extra -8463720 -44852429 -84025439 -23603403 -57031794 -11646785 -62709239 -85252081 -37649320 -!side -64765016 -25542642 -61936647 -64043465 -71069715 -81057455 diff --git a/deck/Saber Force.ydk b/deck/Saber Force.ydk deleted file mode 100644 index 5970701f..00000000 --- a/deck/Saber Force.ydk +++ /dev/null @@ -1,45 +0,0 @@ -#created by ... -#main -43096270 -43096270 -15025844 -15025844 -19221310 -53025096 -52824910 -70095154 -70095154 -66337215 -66337215 -39507162 -39507162 -15960641 -93013676 -93013676 -14506878 -14506878 -60694662 -60694662 -51196174 -53129443 -74848038 -97169186 -5318639 -5318639 -8842266 -70046172 -70046172 -65169794 -99597615 -4206964 -4206964 -44095762 -44509898 -60082869 -60082869 -62279055 -97077563 -97077563 -14315573 -#extra -!side diff --git a/deck/Starter Deck 2014.ydk b/deck/Starter Deck 2014.ydk deleted file mode 100644 index cf766e2a..00000000 --- a/deck/Starter Deck 2014.ydk +++ /dev/null @@ -1,44 +0,0 @@ -#created by ... -#main -87151205 -11091375 -96005454 -32012842 -11321183 -75953262 -44430454 -15025844 -94415058 -20409757 -56804361 -93298460 -29687169 -56681873 -82176812 -28565527 -55969226 -81354330 -28348939 -54747648 -81231742 -17626381 -69162969 -5318639 -73178098 -40619825 -34664411 -74848038 -90928333 -8842266 -4206964 -56120475 -4178474 -60082869 -29267084 -21597117 -92924317 -83968380 -77414722 -3819470 -#extra -!side diff --git a/deck/Starter2013.ydk b/deck/Starter2013.ydk deleted file mode 100644 index 7105cc63..00000000 --- a/deck/Starter2013.ydk +++ /dev/null @@ -1,48 +0,0 @@ -#created by ... -#main -38999506 -14214060 -50930991 -15025844 -44430454 -76080032 -86039057 -12423762 -26082117 -25259669 -94656263 -24291651 -97896503 -98865920 -2460565 -3606728 -94203886 -45141844 -30608985 -22346472 -32807846 -83764718 -95281259 -73178098 -94770493 -403847 -93087299 -13032689 -67775894 -90673413 -18446701 -30585393 -58628539 -59070329 -60082869 -86778566 -21843307 -29267084 -97077563 -77538567 -#extra -56840427 -84013237 -69610924 -78156759 -!side diff --git a/deck/Starter2016.ydk b/deck/Starter2016.ydk new file mode 100644 index 00000000..2720a863 --- /dev/null +++ b/deck/Starter2016.ydk @@ -0,0 +1,44 @@ +#created by ... +#main +43785278 +69247929 +78651105 +16178681 +20403123 +67808837 +70479321 +94415058 +92170894 +88975532 +76066541 +97017120 +15978426 +93892436 +29169993 +20409757 +20281581 +57624336 +41440148 +56675280 +2099841 +68833958 +69162969 +5318639 +14087893 +18027138 +41367003 +44947065 +34664411 +55553602 +4178474 +4923662 +36361633 +36468556 +43250041 +58169731 +77826734 +92958307 +36415522 +77538567 +#extra +!side diff --git a/expansions/latest-link.txt b/expansions/latest-link.txt deleted file mode 100644 index 8aa89366..00000000 --- a/expansions/latest-link.txt +++ /dev/null @@ -1,3 +0,0 @@ -The latest expansion anime files by Michael Lawrence Dee can be downloaded from the ygopro website. - -http://www.ygopro.co/News.aspx \ No newline at end of file diff --git a/expansions/live b/expansions/live deleted file mode 160000 index 5639c2b8..00000000 --- a/expansions/live +++ /dev/null @@ -1 +0,0 @@ -Subproject commit 5639c2b804ecdd50f2db85b9c9445492ff2f5898 diff --git a/expansions/live2016 b/expansions/live2016 new file mode 160000 index 00000000..205583ce --- /dev/null +++ b/expansions/live2016 @@ -0,0 +1 @@ +Subproject commit 205583ce65dafb5a75bf0fb22ad4b9c57fa68e18 diff --git a/language/credits.txt b/language/credits.txt new file mode 100644 index 00000000..173f3de4 --- /dev/null +++ b/language/credits.txt @@ -0,0 +1,8 @@ +German de +Bateriemann +http://bats-ygo.jimdo.com/ +http://www.ygopro.co/tabid/95/g/posts/t/4259/german-translation.aspx + +Spanish es +Clan Phoenix +http://www.torneosphoenix.com/ diff --git a/language/de/cards.cdb b/language/de/cards.cdb new file mode 100644 index 00000000..94d687f8 Binary files /dev/null and b/language/de/cards.cdb differ diff --git a/language/de/strings.conf b/language/de/strings.conf new file mode 100644 index 00000000..7ee95065 --- /dev/null +++ b/language/de/strings.conf @@ -0,0 +1,465 @@ +#The first line is used for comment +#line doesn't start with '!' is also neglected +#system +!system 1 Normale Beschwörung +!system 2 Spezialbeschwörung +!system 3 Flippbeschwörung +!system 4 Normal beschworen +!system 5 Spezial beschworen +!system 6 Flipp beschworen +!system 7 Aktivieren +!system 10 Zählmarke entfernen +!system 11 Zahle LP +!system 12 Entferne Material(ien) +!system 20 Draw Phase +!system 21 Standby Phase +!system 22 Main Phase +!system 23 Ende der Main Phase +!system 24 BattlePhase +!system 25 Ende der Battle Phase +!system 26 End Phase +!system 27 Vor dem Ziehen +!system 28 Beginn der Battle Phase +!system 30 Replay, Angriff wiederholen? +!system 31 Willst du direkt angreifen? +!system 40 Damage Step +!system 41 Schadensberechnung +!system 42 Ende der Damage Step +!system 43 Beginn der Damage Step +!system 60 Kopf +!system 61 Zahl +!system 62 Kopf-Effekt +!system 63 Zahl-Effekt +!system 64 Doppelt Beschworen +!system 70 Monsterkarten +!system 71 Zauberkarten +!system 72 Fallenkarten +!system 80 Battle Phase betreten +!system 81 Ende der End Phase +!system 90 Tributbeschwören? +!system 91 Eine zusätzliche Spezialbeschwörung durchführen? +!system 100 Erster +!system 101 Zweiter +!system 200 Willst du [%ls] [%ls]'s Effekt nutzen? +!system 201 Kein Effekt zum Aktivieren verfügbar +!system 202 Das Spielfeld überprüfen? +!system 203 Eine Karte anketten? +!system 204 Entferne von %d?[%ls] +!system 205 Wählen Sie einen Befehl +!system 206 Bitte Reihenfolge der Kette wählen +!system 207 Enthülle %d Karten: +!system 208 Bestätige %d Karten: +!system 209 Karte hat Voraussetzungen erfüllt +!system 210 Wähle um fortzufahren: +!system 211 Rundenzahl: +!system 212 Bestimme Karte: +!system 213 Bestimme Typ: +!system 214 Bestimme Eigenschaft: +!system 215 Bestimme Anzahl: +!system 500 Wähle ein Monster als Tribut +!system 501 Wähle eine Karte zum Abwerfen +!system 502 Wähle eine Karte zum Zerstören +!system 503 Wähle eine(mehere) Karte(n) zum Verbannen +!system 504 Wähle eine Karte die auf den Friedhof gelegt werden soll +!system 505 Wähle Karte und nimm sie auf die Hand +!system 506 Wähle Karte und füge sie deiner Hand hinzu +!system 507 Karten wählen die ins Deck zurück kommen +!system 508 Karte zum Beschwören wählen +!system 509 Karte zum Spezialbeschwören wählen +!system 510 Wähle Karte zum Flippbeschwören +!system 511 Wähle ein Ziel zum Entfernen +!system 512 Synchromaterial wählen +!system 513 XYZ-Material wählen +!system 514 Side Deck,wähle die Karten zum Austauschen +!system 515 Wähle eine Karte aus dem Side +!system 516 Wähle Monster zum Ändern in die ATK-Position +!system 517 Wähle Monster zum Ändern in die DEF-Position +!system 518 Karte zum Ausrüsten wählen +!system 519 XYZ-Material zum Abhängen wählen +!system 520 Wähle Monster zum Ändern der Position +!system 521 Wähle Karte zum Ersetzen +!system 522 Wähle Monster in ATK-Position +!system 523 Wähle Monster in DEF-Position +!system 524 Wähle angreifendes Monster +!system 525 Wähle verteidigendes Monster +!system 526 Zeige eine Karte +!system 527 Bestimme ein Feld auf dem Spielfeld +!system 528 Wähle Monster zum Tauschen +!system 529 Wähle deine Karte +!system 530 Wähle gegnerische Karte +!system 531 Wähle das Monster mit höchster Stufe für Tribut: +!system 550 Wähle Effekt zum Aktivieren +!system 551 Wähle das Ziel des Effektes +!system 552 Wähle Kopf oder Zahl +!system 553 Wähle Würfelergebnis +!system 554 Wähle eine Kategorie +!system 555 Wähle eine Option +!system 560 Wähle +!system 561 Wähle Kampfposition +!system 562 Wähle Eigenschaft +!system 563 Bestimme Typ +!system 564 Bestimme einen Kartennamen +!system 565 Wähle eine Nummer +!system 566 Wähle Effekt zum Aktivieren +!system 567 Wähle einen Rank +!system 1000 Deck +!system 1001 Hand +!system 1002 Monster Zone +!system 1003 Zauber/Fallen Zone +!system 1004 Friedhof +!system 1005 Verbannte Zone +!system 1006 Extra Deck +!system 1007 Overlay +!system 1010 ERDE +!system 1011 WASSER +!system 1012 FEUER +!system 1013 WIND +!system 1014 LICHT +!system 1015 FINSTERNIS +!system 1016 GOTT +!system 1020 Krieger +!system 1021 Hexer +!system 1022 Fee +!system 1023 Unterweltler +!system 1024 Zombie +!system 1025 Maschine +!system 1026 Aqua +!system 1027 Pyro +!system 1028 Fels +!system 1029 Geflügeltes Ungeheuer +!system 1030 Pflanze +!system 1031 Insekt +!system 1032 Donner +!system 1033 Drache +!system 1034 Ungeheuer +!system 1035 Ungeheuer-Krieger +!system 1036 Dinosaurier +!system 1037 Fisch +!system 1038 Seeschlange +!system 1039 Reptil +!system 1040 Psi +!system 1041 Göttliches-Ungeheuer +!system 1042 Göttlicher Schöpfer +!system 1050 Monster +!system 1051 Zauber +!system 1052 Falle +!system 1053 ??? +!system 1054 Normal +!system 1055 Effekt +!system 1056 Fusion +!system 1057 Ritual +!system 1058 Fallen Monster +!system 1059 Spirit +!system 1060 Union +!system 1061 Zwilling +!system 1062 Empfänger +!system 1063 Synchro +!system 1064 Spielmarke +!system 1065 ??? +!system 1066 Schnellspiel +!system 1067 Permanent +!system 1068 Ausrüstung +!system 1069 Spielfeld +!system 1070 Konter +!system 1071 Flipp +!system 1072 Toon +!system 1073 Xyz +!system 1080 (N/A) +#GUI +!system 1100 Z/F zerstören +!system 1101 Monster zerstören +!system 1102 Verbannen +!system 1103 Friedhof +!system 1104 Auf die Hand +!system 1105 Ins Deck zurück +!system 1106 Handzerstörung +!system 1107 Deckzerstörung +!system 1108 Ziehen +!system 1109 Suchen +!system 1110 Wiederherstellen +!system 1111 Position wechseln +!system 1112 Kontrolle wechseln +!system 1113 Wechsel ATK/DEF +!system 1114 Durchschlag Schaden +!system 1115 Angriff wiederholen +!system 1116 Angriffe beschränken +!system 1117 Direktangriff +!system 1118 Spezialbeschwörung +!system 1119 Spielmarken +!system 1120 Typ-Abhängig +!system 1121 Eigenschaft +!system 1122 LP Schaden +!system 1123 LP wiederherstellen +!system 1124 Zerstören +!system 1125 Wählen +!system 1126 Zählmarke +!system 1127 Zocken +!system 1128 Fusion-Verbunden +!system 1129 Empfänger-Verbunden +!system 1130 Xyz-Verbunden +!system 1131 Effekte annulieren +#actions +!system 1150 Aktivieren +!system 1151 Beschwören +!system 1152 Spez.Beschw. +!system 1153 Setzen +!system 1154 Flippbeschwören +!system 1155 In DEF +!system 1156 In ATK +!system 1157 Angreifen +!system 1158 Zeigen +#menu +!system 1200 LAN Modus +!system 1201 Puzzles +!system 1202 Replays anschauen +!system 1204 Deck bearbeiten +!system 1210 Beenden +!system 1211 OK +!system 1212 Abbrechen +!system 1213 Ja +!system 1214 Nein +!system 1215 Starten +!system 1216 Nachricht +!system 1217 Aktualisieren +!system 1220 Spielername: +!system 1221 HostIP: +!system 1222 Passwort: +!system 1223 Betreten +!system 1224 Erstellen +!system 1225 Erlaubte Karten: +!system 1226 Verbotene Karten: +!system 1227 Duell Modus: +!system 1228 Zusätzliche Optionen +!system 1229 Deck nicht checken +!system 1230 Deck nicht mischen +!system 1231 Start LP: +!system 1232 Start Hand: +!system 1233 Karten pro Zug: +!system 1234 Host Name: +!system 1235 Passwort: +!system 1236 Priorität(TCG) +!system 1237 Zeitlimit： +!system 1240 OCG +!system 1241 TCG +!system 1242 TCG/OCG +!system 1243 Ohne Regeln +!system 1244 Einzel +!system 1245 Match +!system 1246 Tag +!system 1250 Host +!system 1251 →Duellieren +!system 1252 →Zuschauen +!system 1253 Derzeitige Zuschauer: +!system 1254 Wähle Deck +!system 1255 Bereit! +!system 1270 Karteninformation +!system 1271 Log +!system 1272 Lösche Log +!system 1273 Einstellungen +!system 1274 Auto Karten platzieren +!system 1275 Zufällig Karten platzieren +!system 1276 Auto Anketten +!system 1277 Kein Fragen zum Anketten +!system 1280 Standart Duell +!system 1281 Benutzerdefiniert +!system 1290 Gegner stumm +!system 1291 Zuschauer stumm +!system 1300 Bannliste: +!system 1301 Deck: +!system 1302 Speichern +!system 1303 SpeicherAls +!system 1304 Leeren +!system 1305 Sortieren +!system 1306 Beenden +!system 1307 Mischen +!system 1310 (Alle) +!system 1311 Katego.: +!system 1312 Monster +!system 1313 Zauber +!system 1314 Falle +!system 1315 Limit: +!system 1316 Banned +!system 1317 Limited +!system 1318 Semi-limited +!system 1319 Eigens.: +!system 1321 Typ: +!system 1322 ATK: +!system 1323 DEF: +!system 1324 Lvl/Rank: +!system 1325 Suche: +!system 1326 Effekt +!system 1327 Neue Suche +!system 1328 Ergebnis filtern +!system 1330 Deck: +!system 1331 Extra: +!system 1332 Side: +!system 1333 Ergebnis: +!system 1334 Side decking vollständig +!system 1335 erfolgreich gespeichert +!system 1340 Speichere Replay +!system 1341 Speichern +!system 1342 Replays: +!system 1343 Abspielen +!system 1344 Pause +!system 1345 Schritt +!system 1346 Tauschen +!system 1347 Beenden +!system 1348 Lade Replay +!system 1349 Replay abspielen: +!system 1350 Verlassen +!system 1351 Aufgeben +!system 1352 Hauptnachricht： +!system 1353 Starte in Runde： +!system 1390 Warte... +!system 1391 Warte.... +!system 1392 Warte..... +!system 1400 Host kann nicht betreten werden. +!system 1401 Verbindung wurde getrennt. +!system 1402 Es ist ein Fehler aufgetreten. +!system 1403 Host kann nicht betreten werden(IP/Port?) +!system 1404 Passwort ist falsch. +!system 1405 Verbindung zum Host verloren. +!system 1406 Ungültiges Deck +!system 1407 「%ls」 ist nicht erlaubt. Wähle "TCG/OCG" +!system 1408 Side decking fehlgeschlagen +!system 1409 Warte zum Sidedecking... +!system 1410 Side decking Error +!system 1411 Version nicht korrekt(%X.0%X.%X)。 +!system 1500 Duell beendet. +!system 1501 Replay beendet. +!system 1502 Verbindung verloren. +!system 1510 Deine Wähl:[%ls] +!system 1511 Statement des Gegners:[%ls] +!system 1512 Die Wahl des Gegners:[%d] +!system 1600 Alle Karten aktivieren +!system 1601 Setze alle Karten +!system 1602 wähle alle Karten +!system 1603 [%ls]Normalbeschw... +!system 1604 Normalbeschw. erfolgreich +!system 1605 [%ls]Spezialbeschw... +!system 1606 Spezialbeschw. erfolgr. +!system 1607 [%ls]Flippbeschwörung... +!system 1608 Flippbeschw. erfolgreich +!system 1609 [%ls]wurde aktiviert +!system 1610 [%ls](%ls,%d)gewechseltes Ziel +!system 1611 Du ziehst %d Karten +!system 1612 Dein Gegner zieht %d Karten +!system 1613 erhalte %d Schaden +!system 1614 Dein Gegner erhält %d Schaden +!system 1615 erhalte %dLP +!system 1616 Dein Gegner erhält %dLP +!system 1617 [%ls] hat plaziert %d [%ls] +!system 1618 [%ls] wurde entfernt %d [%ls] +!system 1619 [%ls] Angreifen [%ls] +!system 1620 [%ls] Direkt Angreifen +!system 1621 Angriff annulieren +!system 1622 [%ls] LP verloren +!system 1623 Münze zeigt: +!system 1624 Würfel zeigt: +#mod menu strings +!system 2015 FAQ +!system 2016 Hilfe +!system 2017 Haupt +!system 2023 Über +#mod strings +!system 2018 1vs2 +!system 2019 Turbo Duel +!system 2020 Anime +!system 2021 Filter: +!system 2022 NPC Modus +!system 2023 Über Percy +!system 2024 Beschreibung: +!system 2025 Willst du das Deck für immer löschen? +!system 2026 Löschen erfolgreich +!system 2027 Löschen +!system 2028 Volumen +!system 2029 Raum: +!system 2030 Spieler: +!system 2031 Server nicht erreichbar. Bitte später versuchen. +!system 2032 Keine Duell verfügbar +!system 2033 Im Moment werden keine Duelle gehostet. Klicke auf 'Host' zum Duell erstellen. +!system 2034 Neue YGOPro Version +!system 2035 Neue Version %s verfügbar! Auf die Downloadseite gehen? +!system 2036 Verbindungsfehler oder Syntax Error +!system 2037 Fehler beim Öffnen der URL +!system 2038 Fehler beim Analysieren der Serverinfos +!system 2039 Du %s brauchst einen Account, um auf diesem Server spielen zu können. +!system 2040 Soll Webseite zum Registrieren geöffnet werden? http://%s  +!system 2041 Server: +!system 2042 Duell Passwort: +!system 2043 Beitreten / Hosten: +!system 2044 Online Server Liste +!system 2045 Online spielen +!system 2046 Sound Effekte an +!system 2047 Musik an +#victory reason +!victory 0x0 Aufgeben +!victory 0x1 LP erreichen 0 +!victory 0x2 Keine Karte zum Ziehen +!victory 0x3 Zeitlimit erreicht +!victory 0x4 Verbindung verloren +!victory 0x10 Gewonnen durch den Effekt von Exodia +!victory 0x11 Gewonnen durch den Effekt von Final Countdown +!victory 0x12 Gewonnen durch den Effekt von Vennominaga +!victory 0x13 Gewonnen durch den Effekt von Horakhty +!victory 0x14 Gewonnen durch den Effekt von Exodius +!victory 0x15 Gewonnen durch den Effekt von Destiny Board +!victory 0x16 Gewonnen durch den Effekt von Letzter Zug +!victory 0x17 Gewonnen durch den Effekt von  Nummer 88: Gimmick Puppet - Destiny Leo +!victory 0x20 Gewonnen durch den Effekt von 「%ls」 +!victory 0x1a Gewonnen durch den Effekt von Schicksalstafel +#counters +!counter 0x3001 Zauberzählmarke +!counter 0x2 Keilzählmarke +!counter 0x2a Zählmarke(Magischer Reflektor) +!counter 0x3003 Bushido-Zählmarke +!counter 0x3004 Psi-Zählmarke +!counter 0x5 Glanzzählmarke +!counter 0x6 Kristallzählmarke +!counter 0x7 Zählmarke(Koloseum - Käfig der Gladiatorungeheuer) +!counter 0x8 Morph-Zählmarke +!counter 0x9 Gift-Zählmarke +!counter 0xa Genex-Zählmarke +!counter 0x300b Zählmarke(Antikes Antriebsschloss) +!counter 0xc Donner-Zählmarke +!counter 0xd Gier-Zählmarke +!counter 0xe A-Zählmarke +!counter 0xf Wurm-Zählmarke +!counter 0x10 Schwarzfeder-Zählmarke +!counter 0x11 Supergift-Zählmarke +!counter 0x12 Karakuri-Zählmarke +!counter 0x13 Chaos-Zählmarke +!counter 0x14 Zählmarke(Jurawunderei) +!counter 0x15 Eis-Zählmarke +!counter 0x16 Magischer-Stein-Zählmarke +!counter 0x17 Nuss-Zählmarke +!counter 0x18 Blumen-Zählmarke +!counter 0x19 Nebel-Zählmarke +!counter 0x20 Pflanzen-Zählmarke +!counter 0x1a Heimzahlungs-Spielmarke +!counter 0x1b Uhrzählmarke +!counter 0x1c D-Zählmarke +!counter 0x1d Gerümpel Zählmarke +!counter 0x1e Tor-Zählmarke +!counter 0x1f Zählmarke(B.E.S.) +!counter 0x20 Nebel-Zählmarke +!counter 0x21 Wache-Zählmarke +!counter 0x22 Drachen-Zählmarke +!counter 0x23 Ozean-Zählmarke +!counter 0x24 String-Zählmarke +!counter 0x25 Chronikzählmarke +!counter 0x26 Zählmarke(Metallschütze） +!counter 0x27 Zählmarke(Des Moskito) +!counter 0x3028 Zählmarke（Finsterer Katapultierer） +!counter 0x29 Zählmarke（Ballonechse） +!counter 0x2a Counter(Magic Reflector) +!counter 0x302b Schicksal Zählmarke +!counter 0x90 Maiden Zählmarke +!counter 0x91 Tempozähler +!counter 0x2c Roger Zählmarke +!counter 0x2c You Got It Boss! Counter +!counter 0x2d Counter(Kickfire) +!counter 0x2e Shark Counter +!counter 0x302b Destiny Counter +!counter 0x92 Plasma Counter +!counter 0x93 Sacred Beast Counter \ No newline at end of file diff --git a/language/es/cards.cdb b/language/es/cards.cdb new file mode 100644 index 00000000..ccbe7e88 Binary files /dev/null and b/language/es/cards.cdb differ diff --git a/language/es/strings.conf b/language/es/strings.conf new file mode 100644 index 00000000..431767e7 --- /dev/null +++ b/language/es/strings.conf @@ -0,0 +1,464 @@ +#The first line is used for comment +#line doesn't start with '!' is also neglected +#system +!system 1 Invocación Normal +!system 2 Invocación Especial +!system 3 Invocación de Volteo +!system 4 Invocación Normal Exitosa +!system 5 Invocación Especial Exitosa +!system 6 Invocación de Volteo Exitosa +!system 7 Activar +!system 10 Remover Contador(es) +!system 11 Pagar Life Points +!system 12 Remover Material(es) +!system 20 Draw Phase +!system 21 Standby Phase +!system 22 Main Phase +!system 23 Fin de Main Phase +!system 24 Battle Phase +!system 25 Fin de Battle Phase +!system 26 End Phase +!system 27 Antes de la Draw +!system 28 Inicio del Paso Battle Phase +!system 30 Repetición,¿Desea continuar el Ataque? +!system 31 ¿Quieres Atacar directamente? +!system 40 Damage Step +!system 41 Cálculo de Daño +!system 42 Fin de Damage Step +!system 43 Inicio del Damage Step +!system 60 Cara +!system 61 Cruz +!system 62 Activar Efecto +!system 63 Recibir Efecto +!system 64 Recibir vuelve a convocar +!system 70 Cartas de Monstruos +!system 71 Cartas de Mágicas +!system 72 Cartas de Trampas +!system 80 Entrando en Battle Phase +!system 81 Fin del End Phase +!system 90 ¿Invocación de Tributo? +!system 91 ¿Realizar Invocación Especial adicional? +!system 100 Primero en Jugar +!system 101 Segundo en Jugar +!system 200 ¿Activar el efecto desde la [%ls] de [%ls]? +!system 201 Ningún efecto se puede activar en este momento +!system 202 ¿Confirmar? +!system 203 ¿Desea Encadenar? +!system 204 Remover %d [%ls] +!system 205 Por favor, seleccione un tipo de orden +!system 206 Por favor, seleccione la secuencia de la cadena +!system 207 Revelando %d carta(s): +!system 208 Confirmando %d carta(s): +!system 209 La carta cumple los requisitos +!system 210 ¿Seleccione si desea continuar? +!system 211 Número de Ronda: +!system 212 Declare Carta: +!system 213 Declare Tipo: +!system 214 Declare Atributo: +!system 215 Declare Número: +!system 500 Selecciona un monstruo para tributar +!system 501 Selecciona una carta para descartar +!system 502 Selecciona una carta para destruir +!system 503 Selecciona una carta para remover +!system 504 Selecciona una carta para enviar al Cementerio +!system 505 Selecciona una carta para regresar a la mano +!system 506 Selecciona la carta para añadir a tu mano +!system 507 Selecciona la carta(s) para regresar al Deck +!system 508 Selecciona la carta para Invocar +!system 509 Selecciona un Monstruo para Invocación Especial +!system 510 Selecciona una carta para Voltear +!system 511 Selecciona un objetivo para remover +!system 512 Selecciona materiales para Invocación de Sicronía +!system 513 Selecciona materiales para Invocación de Xyz +!system 514 Selecciona una carta del side de tu adversario +!system 515 Selecciona una carta en tu side +!system 516 Selecciona un monstruo en posición de ataque +!system 517 Selecciona un monstruo en posición de defensa +!system 518 Selecciona una carta para equipar +!system 519 Selecciona el material Xyz para separar +!system 520 Selecciona el monstruo para cambiar el control +!system 521 Selecciona la carta para reemplazar +!system 522 Selecciona los monstruos en ataque +!system 523 Selecciona los monstruos en defensa +!system 524 Selecciona el monstruo en ataque +!system 525 Selecciona el monstruo en defensa +!system 526 Carta revelada +!system 527 Selecciona el lugar del campo para colocar la carta +!system 528 Selecciona un monstruo para cambiar +!system 529 Selecciona tu carta +!system 530 Selecciona la carta de tu adversario +!system 531 Selecciona los monstruos de nivel más alto para sacrificar: +!system 550 Selecciona el efecto para activar +!system 551 Selecciona el objetivo del efecto +!system 552 Selecciona Cara o Cruz +!system 553 Selecciona el resultado del dado +!system 554 Selecciona una categoría +!system 555 Selecciona una opción +!system 560 Selecciona +!system 561 Selecciona la posición de batalla +!system 562 Selecciona el atributo +!system 563 Declare el tipo +!system 564 Declare el nombre de la carta +!system 565 Selecciona un número +!system 566 Selecciona el efecto para activar +!system 567 Selecciona un rango +!system 1000 Deck +!system 1001 Mano +!system 1002 Zona de Monstruos +!system 1003 Zona de Mágicas/Trampas +!system 1004 Cementerio +!system 1005 Zona de Removidos +!system 1006 Extra Deck +!system 1007 Superponer +!system 1010 Tierra +!system 1011 Agua +!system 1012 Fuego +!system 1013 Viento +!system 1014 Luz +!system 1015 Oscuridad +!system 1016 Divino +!system 1020 Guerrero +!system 1021 Lanzador +!system 1022 Hada +!system 1023 Demonio +!system 1024 Zombi +!system 1025 Maquina +!system 1026 Aqua +!system 1027 Piro +!system 1028 Roca +!system 1029 Bestia Alada +!system 1030 Planta +!system 1031 Insecto +!system 1032 Trueno +!system 1033 Dragón +!system 1034 Bestia +!system 1035 Guerrero Bestia +!system 1036 Dinosaurio +!system 1037 Pez +!system 1038 Serpiente Marina +!system 1039 Reptil +!system 1040 Psychico +!system 1041 Bestia-Divina +!system 1042 Creator God +!system 1050 Monstruo +!system 1051 Mágica +!system 1052 Trampa +!system 1053 ??? +!system 1054 Normal +!system 1055 Efecto +!system 1056 Fusión +!system 1057 Ritual +!system 1058 Monstruos Trampa +!system 1059 Espíritu +!system 1060 Unión +!system 1061 Gemini +!system 1062 Cantante +!system 1063 Sincronía +!system 1064 Token +!system 1065 ??? +!system 1066 Juego-Rápido +!system 1067 Continua +!system 1068 Equipo +!system 1069 Campo +!system 1070 Contraefecto +!system 1071 Volteo +!system 1072 Toon +!system 1073 Xyz +!system 1080 (N/A) +#GUI +!system 1100 Destruir M/T +!system 1101 Destruir Monstruo +!system 1102 Remover +!system 1103 Enviar Cementerio +!system 1104 Regresar a la Mano +!system 1105 Regresar al Deck +!system 1106 Destruir Mano +!system 1107 Destruir Deck +!system 1108 Robar +!system 1109 Buscar +!system 1110 Añadir +!system 1111 Posición +!system 1112 Control +!system 1113 Cambio ATK/DEF +!system 1114 Piercing +!system 1115 Repetir Ataque +!system 1116 Limitar Ataques +!system 1117 Ataque Directo +!system 1118 Invocación Especial +!system 1119 Token +!system 1120 Tipo-Relacionado +!system 1121 Atributo-Relacionado +!system 1122 Daño LP +!system 1123 Recuperar LP +!system 1124 Destruir +!system 1125 Seleccionar +!system 1126 Contador +!system 1127 Apostar +!system 1128 Fusión-Relacionado +!system 1129 Cantante-Relacionado +!system 1130 Xyz-Relacionado +!system 1131 Negar Efecto +#actions +!system 1150 Activar +!system 1151 Invocar Normal +!system 1152 Invocar Especial +!system 1153 Colocar +!system 1154 Voltear +!system 1155 Defensa +!system 1156 Ataque +!system 1157 Atacar +!system 1158 Ver +#menu +!system 1200 Modo Hamachi +!system 1201 Modo Puzzle +!system 1202 Modo Repetición +!system 1203 N/A +!system 1204 Editar Deck +!system 1210 Salir +!system 1211 OK +!system 1212 Cancelar +!system 1213 Si +!system 1214 No +!system 1215 Comenzar +!system 1216 Mensaje +!system 1217 Actualizar +!system 1220 Nick: +!system 1221 Anfitrión IP: +!system 1222 Contraseña: +!system 1223 Entrar +!system 1224 Anfitrión +!system 1225 Reglas: +!system 1226 Formato: +!system 1227 Modo de Duelo: +!system 1228 ↓ Opciones Adicionales +!system 1229 No comprobar el deck +!system 1230 No mezclar el deck +!system 1231 LP Inicial: +!system 1232 Mano Inicial: +!system 1233 Cartas por robo: +!system 1234 Nombre Partida: +!system 1235 Contraseña: +!system 1236 Permitir Prioridad [TCG] +!system 1237 Tiempo Limite: +!system 1240 OCG +!system 1241 TCG +!system 1242 TCG/OCG +!system 1243 No Especificado +!system 1244 Individual +!system 1245 Match +!system 1246 Equipo +!system 1250 Anfitrión +!system 1251 → Duelo +!system 1252 → Espectador +!system 1253 Espectadores Actuales: +!system 1254 Selecciona Deck +!system 1255 Listo! +!system 1270 Información +!system 1271 Registro +!system 1272 Borrar Registro +!system 1273 Configuración +!system 1274 Posición automática de las cartas +!system 1275 ↑ Ubicación aleatoria +!system 1276 Orden automático de cadenas +!system 1277 Ninguna demora en las cadenas +!system 1280 Duelo Estándar +!system 1281 Duelo Tradicional +!system 1290 Silenciar adversario +!system 1291 Silenciar espectadores +!system 1300 Formato: +!system 1301 Deck's: +!system 1302 Guardar +!system 1303 G. Como +!system 1304 Limpiar +!system 1305 Ordenar +!system 1306 Atrás +!system 1307 Mezclar +!system 1310 (Todo) +!system 1311 Clase: +!system 1312 Monstruo +!system 1313 Mágica +!system 1314 Trampa +!system 1315 Limite: +!system 1316 Prohibidas +!system 1317 Limitadas +!system 1318 Semi Limitadas +!system 1319 Atributo: +!system 1321 Tipo: +!system 1322 ATK: +!system 1323 DEF: +!system 1324 Nivel: +!system 1325 Buscar: +!system 1326 Efectos +!system 1327 Nueva Búsqueda +!system 1328 Resultados Filtro +!system 1330 Main Deck: +!system 1331 Extra Deck: +!system 1332 Side Deck: +!system 1333 Resultados: +!system 1334 Finalizar edición del Side Deck +!system 1335 Guardado con éxito +!system 1340 ¿Guardar Repetición? +!system 1341 Guardar +!system 1342 Repeticiones: +!system 1343 Reproducir +!system 1344 Pausa +!system 1345 Avanzar +!system 1346 Cambiar +!system 1347 Volver +!system 1348 Cargar +!system 1349 Reproducir Repetición +!system 1350 Abandonar +!system 1351 Rendirse +!system 1352 Mensaje principal: +!system 1353 Turno Inicial: +!system 1390 Pensando... +!system 1391 Pensando.... +!system 1392 Pensando..... +!system 1400 No se puede conectar al anfitrión. +!system 1401 Conexión perdida. +!system 1402 Se produjo un error durante la transmisión. +!system 1403 No puede conectarse al anfitrión. +!system 1404 Contraseña incorrecta. +!system 1405 El anfitrión rechazo la conexión. +!system 1406 Deck no valido. +!system 1407 「%ls」 no se admiten. Intenta con "TCG/OCG" +!system 1408 Error al hacer Side Deck +!system 1409 Esperando que se realize el Side Deck... +!system 1410 El número de cartas no coincide. +!system 1411 El adversario no está de acuerdo(%X.0%X.%X)。 +!system 1500 Duelo terminado. +!system 1501 Repetición terminada. +!system 1502 La conexión se ha perdido. +!system 1510 Su elección:[%ls] +!system 1511 Adversario declaro:[%ls] +!system 1512 Elección del oponente:[%d] +!system 1600 Activar una carta +!system 1601 Colocar una carta +!system 1602 Cambiar una carta +!system 1603 [%ls]Invocación Normal... +!system 1604 Invocación Normal Exitosa +!system 1605 [%ls]Invocación Especial... +!system 1606 Invocación Especial Exitosa +!system 1607 [%ls]Invocación de Volteo +!system 1608 Invocación de Volteo Exitosa +!system 1609 [%ls]Esta resolviendose +!system 1610 [%ls](%ls,%d)Objetivo +!system 1611 Robaste %d carta(s) +!system 1612 Tu adversario robo %d carta(s) +!system 1613 Recibes %d daño +!system 1614 Tu adversario recibe %d de daño +!system 1615 Incrementa en %d LP +!system 1616 Tu adversario incrementa %d LP +!system 1617 [%ls] Ha colocado %d [%ls] +!system 1618 [%ls] Ha removido %d [%ls] +!system 1619 [%ls] Ataca [%ls] +!system 1620 [%ls] Ataque Directo +!system 1621 Ataque Negado +!system 1622 [%ls]Has perdido puntos +!system 1623 Resultado de la moneda: +!system 1624 Resultado de los dados: +#mod menu strings +!system 2015 FAQ +!system 2016 Ayuda +!system 2017 Inicio +!system 2023 Informacion +#mod strings +!system 2016 Ayuda +!system 2017 Inicio +!system 2018 1vs2 +!system 2019 Turbo duel +!system 2020 Anime +!system 2021 Filtro: +!system 2022 Modo CPU (beta) +!system 2023 Acerca de +!system 2024 Descripción: +!system 2025 ¿Estas seguro de borrar este deck permanentemente? +!system 2026 Borrado Exitosamente +!system 2027 Borrar +!system 2028 Volumen +!system 2029 Sala: +!system 2030 Duelistas: +!system 2031 Servidor ocupado. Porfavor intente nuevamente mas tarde. +!system 2032 No hay duelos en este momento +!system 2033 Los duelo estan creados en el servidor. Click en 'Anfitrión' para crear un nuevo duelo. +!system 2034 Nuevo version YGOPro Phoenix +!system 2035 Ya esta disponible la versión %s en ingles! Quieres descargarlo de pagina o dirigete a www.torneophoenix.com para descargar la versión en español. +!system 2036 Fallo de Conección o error de Syntaxis +!system 2037 Fallo al abrir la url +!system 2038 Fallo al analizar datos del servidor +!system 2039 El %s servidor requiere una cuenta para crear un duelo. +!system 2040 Abrir registro en la pagina http://%s ? +!system 2041 Servidor: +!system 2042 Contraseña del duelo: +!system 2043 Unirse/Crear duelo: +!system 2044 Jugar en Linea +!system 2045 MultiJugador +!system 2046 Permitir Efectos de Sonido +!system 2047 Permitir Música +#victory reason +!victory 0x0 Se ha Rendido +!victory 0x1 Los Life Points se redujeron a 0 +!victory 0x2 Tu oponente no tiene cartas en el deck +!victory 0x3 Tiempo Terminado. +!victory 0x4 Conexión Perdida. +!victory 0x10 Victoria por el efecto de Exodia +!victory 0x11 Victoria por el efecto de Final Countdown +!victory 0x12 Victoria por el efecto de Vennominaga +!victory 0x13 Victoria por el efecto de Horakhty +!victory 0x14 Victoria por el efecto de Exodius +!victory 0x15 Victoria por el efecto de Destiny Board +!victory 0x16 Victoria por el efecto de Last Turn +!victory 0x17 Victoria por el efecto de Number 88: Gimmick Puppet - Destiny Leo +!victory 0x20 Match ganado por el efecto de 「%ls」 +#counters +!counter 0x3001 Contador Mágico +!counter 0x2 Contador de Cuña +!counter 0x3003 Contador Bushido +!counter 0x3004 Contador Psiquico +!counter 0x5 Contador Shine +!counter 0x6 Contador Gem +!counter 0x7 Contador(Colosseum Cage of the Gladiator Beasts) +!counter 0x8 Contador-D +!counter 0x9 Contador Poision +!counter 0xa Contador Genex +!counter 0x300b Contador(Ancient City) +!counter 0xc Contador Thunder +!counter 0xd Contador Greed +!counter 0xe Contador-A +!counter 0xf Contador Worm +!counter 0x10 Contador Black Feather +!counter 0x11 Contador Hyper Venom +!counter 0x12 Contador Karakuri +!counter 0x13 Contador Chaos +!counter 0x14 Contador(Miracle Jurassic Egg) +!counter 0x15 Contador Ice +!counter 0x16 Contador Spellstone +!counter 0x17 Contador Nut +!counter 0x18 Contador Flower +!counter 0x19 Contador Fog +!counter 0x20 Contador Planta +!counter 0x1a Contador Double +!counter 0x1b Contador Clock +!counter 0x1c Contador D +!counter 0x1d Contador Junk +!counter 0x1e Contador Gate +!counter 0x1f Contador (B.E.S.) +!counter 0x20 Contador Cloudian +!counter 0x21 Contador Guard +!counter 0x22 Contador Dragonic +!counter 0x23 Contador Ocean +!counter 0x24 Contador String +!counter 0x25 Contador Chronicle +!counter 0x26 Contador (Metal Shooter) +!counter 0x27 Contador (Des Mosquito) +!counter 0x3028 Contador (Dar Catapulter) +!counter 0x29 Contador (Balloon Lizard) +!counter 0x2a Contador (Magic Reflector) +!counter 0x2c Contador You Got It Boss! +!counter 0x2d Contador(Kickfire) +!counter 0x2e Contador Shark +!counter 0x302b Contador (Destiny) +!counter 0x90 Contador Maiden +!counter 0x91 Contador de velocidad +!counter 0x92 Cotador Plasma +!counter 0x93 Sacred Beast Counter \ No newline at end of file diff --git a/lflist.conf b/lflist.conf index 19f13811..b77c293a 100644 --- a/lflist.conf +++ b/lflist.conf @@ -1,1030 +1,895 @@ -#[2015.11 TCG][2015.10 OCG][Traditional][Anime] -!2015.11 TCG -#forbidden -27279764 0 --アポクリフォート・キラー -20663556 0 --イレカエル -20366274 0 --エルシャドール・ネフィリム -40044918 0 --E·HERO エアーマン -53804307 0 --焔征竜－ブラスター -44910027 0 --ヴィクトリー・ドラゴン -82301904 0 --混沌帝龍 －終焉の使者－ -79106360 0 --カオスポッド -90411554 0 --巌征竜－レドックス -08903700 0 --儀式魔人リリーサー -26202165 0 --クリッター -78010363 0 --黒き森のウィッチ -40737112 0 --混沌の黒魔術師 -34124316 0 --サイバーポッド -63519819 0 --サウザンド·アイズ·サクリファイス -50321796 0 --氷結界の龍 ブリューナク -81122844 0 --発条空母ゼンマイティ -21593977 0 --処刑人－マキュラ -56570271 0 --D－HERO ディスクガイ -69015963 0 --デビル·フランケン -33184167 0 --同族感染ウィルス -54719828 0 --No.16 色の支配者ショック·ルーラー -90307777 0 --影霊衣の術士 シュリット -34086406 0 --ラヴァルバル・チェイン -26400609 0 --瀑征竜－タイダル -46772449 0 --励輝士 ヴェルズビュート -78706415 0 --ファイバーポッド -93369354 0 --フィッシュボーグ－ガンナー -34206604 0 --魔導サイエンティスト -33508719 0 --メタモルポット -96782886 0 --メンタルマスター -03078576 0 --八汰烏 -89399912 0 --嵐征竜－テンペスト -14878871 0 --レスキューキャット -41482598 0 --悪夢の蜃気楼 -44763025 0 --いたずら好きな双子悪魔 -19613556 0 --大嵐 -17375316 0 --押収 -74191942 0 --苦渋の選択 -42829885 0 --強引な番兵 -45986603 0 --強奪 -55144522 0 --強欲な壺 -04031928 0 --心変わり -23557835 0 --次元融合 -83764718 0 --死者蘇生 -57953380 0 --生還の宝札 -87910978 0 --洗脳－ブレインコントロール -60682203 0 --大寒波 -67169062 0 --貪欲な壺 -27770341 0 --超再生能力 -69243953 0 --蝶の短剣－エルマ -72892473 0 --手札抹殺 -79571449 0 --天使の施し -48130397 0 --超融合 -42703248 0 --ハリケーン -18144506 0 --ハーピィの羽根帚 -70828912 0 --早すぎた埋葬 -34906152 0 --マスドライバー -46448938 0 --魔導書の神判 -77565204 0 --未来融合－フューチャー·フュージョン -27970830 0 --六武の門 -46411259 0 --突然変異 -85602018 0 --遺言状 -27174286 0 --異次元からの帰還 -61740673 0 --王宮の勅命 -93016201 0 --王宮の弾圧 -41420027 0 --神の宣告 -57585212 0 --自爆スイッチ -03280747 0 --第六感 -64697231 0 --ダスト·シュート -35316708 0 --刻の封印 -80604091 0 --血の代償 -28566710 0 --ラストバトル！ -#limit -85103922 1 --アーティファクト－モラルタ -64034255 1 --A·ジェネクス·バードマン -45222299 1 --イビリチュア·ガストクラーケ -11877465 1 --イビリチュア·マインドオーガス -99177923 1 --インフェルニティ·デーモン -68184115 1 --甲虫装機 ダンセル -69207766 1 --甲虫装機 ホーネット -72989439 1 --カオス·ソルジャー －開闢の使者－ -65518099 1 --クリフォート・ツール -12580477 1 --サンダー·ボルト -78868119 1 --深海のディーヴァ -48063985 1 --聖霊獣騎 カンナホーク -59297550 1 --ゼンマイマジシャン -65192027 1 --ダーク·アームド·ドラゴン -15341821 1 --ダンディライオン -90953320 1 --TG ハイパー·ライブラリアン -26674724 1 --ブリューナクの影霊衣 -52687916 1 --氷結界の龍 トリシューラ -14943837 1 --デブリ·ドラゴン -16226786 1 --深淵の暗殺者 -80344569 1 --N·グラン·モール -70583986 1 --氷結界の虎王ドゥローレン -33396948 1 --封印されしエクゾディア -07902349 1 --封印されし者の左腕 -70903634 1 --封印されし者の右腕 -44519536 1 --封印されし者の左足 -08124921 1 --封印されし者の右足 -41386308 1 --マスマティシャン -10802915 1 --魔界発現世行きデスガイド -71564252 1 --ライオウ -85138716 1 --レスキューラビット -88264978 1 --レッドアイズ·ダークネスメタルドラゴン -48976825 1 --異次元からの埋葬 -89463537 1 --ユニコールの影霊衣 -33782437 1 --一時休戦 -66957584 1 --インフェルニティガン -72405967 1 --王家の生け贄 -81439173 1 --おろかな埋葬 -06417578 1 --神の写し身との接触 -96729612 1 --儀式の準備 -45305419 1 --継承の印 -17639150 1 --機殻の生贄 -95308449 1 --終焉のカウントダウン -74845897 1 --真炎の爆発 -37520316 1 --精神操作 -54447022 1 --ソウル・チャージ -14087893 1 --月の書 -81674782 1 --次元の裂け目 -75500286 1 --封印の黄金櫃 -15854426 1 --霞の谷の神風 -20758643 1 --彼岸の悪鬼 グラバースニッチ -43040603 1 --モンスターゲート -01475311 1 --闇の誘惑 -23171610 1 --リミッター解除 -02295440 1 --ワン·フォー·ワン -09059700 1 --インフェルニティ・バリア -05851097 1 --虚無空間 -84749824 1 --神の警告 -94192409 1 --強制脱出装置 -53582587 1 --激流葬 -57728570 1 --死のデッキ破壊ウイルス -82732705 1 --スキルドレイン -32807846 1 --増援 -73599290 1 --ソウルドレイン -29401950 1 --奈落の落とし穴 -83555666 1 --破壊輪 -17078030 1 --光の護封壁 -30241314 1 --マクロコスモス -32723153 1 --マジカル·エクスプロージョン -54974237 1 --闇のデッキ破壊ウイルス -#semi limit -37742478 2 --オネスト -85087012 2 --カードガンナー -74311226 2 --海皇の竜騎隊 -00423585 2 --召喚僧サモンプリースト -98777036 2 --トラゴエディア -28297833 2 --ネクロフェイス -46052429 2 --高等儀式術 -94886282 2 --光の援軍 -57143342 2 --彼岸の悪鬼 ガトルホッグ -53129443 2 --ブラック·ホール -62265044 2 --竜の渓谷 -91623717 2 --連鎖爆撃 -29843091 2 --おジャマトリオ -36468556 2 --停戦協定 - -!2015.10 OCG -#forbidden -20663556 0 --イレカエル -44910027 0 --ヴィクトリー・ドラゴン -20366274 0 --エルシャドール・ネフィリム -53804307 0 --焔征竜－ブラスター -90411554 0 --巌征竜－レドックス -17412721 0 --旧神ノーデン -26202165 0 --クリッター -78010363 0 --黒き森のウィッチ -07391448 0 --ゴヨウ·ガーディアン -34124316 0 --サイバーポッド -63519819 0 --サウザンド·アイズ·サクリファイス -21593977 0 --処刑人－マキュラ -31560081 0 --聖なる魔術師 -16923472 0 --ゼンマイハンター -56570271 0 --D－HERO ディスクガイ -18326736 0 --星守の騎士 プトレマイオス -33184167 0 --同族感染ウィルス -26400609 0 --瀑征竜－タイダル -50321796 0 --氷結界の龍 ブリューナク -78706415 0 --ファイバーポッド -93369354 0 --フィッシュボーグ－ガンナー -34206604 0 --魔導サイエンティスト -96782886 0 --メンタルマスター -03078576 0 --八汰烏 -89399912 0 --嵐征竜－テンペスト -14878871 0 --レスキューキャット -41482598 0 --悪夢の蜃気楼 -44763025 0 --いたずら好きな双子悪魔 -17375316 0 --押収 -19613556 0 --大嵐 -74191942 0 --苦渋の選択 -42829885 0 --強引な番兵 -45986603 0 --強奪 -55144522 0 --強欲な壺 -04031928 0 --心変わり -12580477 0 --サンダー·ボルト -23557835 0 --次元融合 -57953380 0 --生還の宝札 -87910978 0 --洗脳－ブレインコントロール -60682203 0 --大寒波 -69243953 0 --蝶の短剣－エルマ -79571449 0 --天使の施し -70828912 0 --早すぎた埋葬 -42703248 0 --ハリケーン -34906152 0 --マスドライバー -46448938 0 --魔導書の神判 -77565204 0 --未来融合－フューチャー·フュージョン -46411259 0 --突然変異 -85602018 0 --遺言状 -27174286 0 --異次元からの帰還 -93016201 0 --王宮の弾圧 -61740673 0 --王宮の勅命 -03280747 0 --第六感 -64697231 0 --ダスト·シュート -80604091 0 --血の代償 -35316708 0 --刻の封印 -28566710 0 --ラストバトル！ -#limit -85103922 1 --アーティファクト－モラルタ -64034255 1 --A·ジェネクス·バードマン -68184115 1 --甲虫装機 ダンセル -40044918 1 --E·HERO エアーマン -50720316 1 --E・HERO シャドー・ミスト -72989439 1 --カオス·ソルジャー －開闢の使者－ -67441435 1 --グローアップ·バルブ -72714461 1 --慧眼の魔術師 -06602300 1 --重爆撃禽 ボム・フェネクス -28985331 1 --終末の騎士 -00423585 1 --召喚僧サモンプリースト -78868119 1 --深海のディーヴァ -65192027 1 --ダーク·アームド·ドラゴン -15341821 1 --ダンディライオン -90953320 1 --TG ハイパー·ライブラリアン -16226786 1 --深淵の暗殺者 -90307777 1 --影霊衣の術士 シュリット -28297833 1 --ネクロフェイス -52687916 1 --氷結界の龍 トリシューラ -33396948 1 --封印されしエクゾディア -08124921 1 --封印されし者の右足 -70903634 1 --封印されし者の右腕 -44519536 1 --封印されし者の左足 -07902349 1 --封印されし者の左腕 -26674724 1 --ブリューナクの影霊衣 -91110378 1 --光天使スローネ -41386308 1 --マスマティシャン -33508719 1 --メタモルポット -89463537 1 --ユニコールの影霊衣 -88264978 1 --レッドアイズ·ダークネスメタルドラゴン -48976825 1 --異次元からの埋葬 -33782437 1 --一時休戦 -66957584 1 --インフェルニティガン -06417578 1 --神の写し身との接触 -81439173 1 --おろかな埋葬 -96729612 1 --儀式の準備 -45305419 1 --継承の印 -23701465 1 --原初の種 -17639150 1 --機殻の生贄 -83764718 1 --死者蘇生 -32807846 1 --増援 -54447022 1 --ソウル・チャージ -27770341 1 --超再生能力 -48130397 1 --超融合 -72892473 1 --手札抹殺 -67169062 1 --貪欲な壺 -97211663 1 --影霊衣の反魂術 -18144506 1 --ハーピィの羽根帚 -53129443 1 --ブラック·ホール -15854426 1 --霞の谷の神風 -23171610 1 --リミッター解除 -62265044 1 --竜の渓谷 -02295440 1 --ワン·フォー·ワン -84749824 1 --神の警告 -41420027 1 --神の宣告 -05851097 1 --虚無空間 -36468556 1 --停戦協定 -83555666 1 --破壊輪 -17078030 1 --光の護封壁 -32723153 1 --マジカル·エクスプロージョン -#semi limit -45222299 2 --イビリチュア·ガストクラーケ -74311226 2 --海皇の竜騎隊 -16404809 2 --クリバンデット -65518099 2 --クリフォート・ツール -09411399 2 --D－HERO ディアボリックガイ -70583986 2 --氷結界の虎王ドゥローレン -22446869 2 --水精鱗－ディニクアビス -92826944 2 --馬頭鬼 -10028593 2 --輪廻天狗 -37520316 2 --精神操作 -91623717 2 --連鎖爆撃 -14087893 2 --月の書 -94886282 2 --光の援軍 -75500286 2 --封印の黄金櫃 -01475311 2 --闇の誘惑 -41620959 2 --竜の霊廟 -27970830 2 --六武の門 -77505534 2 --堕ち影の蠢き -57728570 2 --死のデッキ破壊ウイルス - - -!Traditional -#forbidden -#limit -27279764 1 --Apoqliphort Towers -53804307 1 --Blaster, Dragon Ruler of Infernos -82301904 1 --Chaos Emperor Dragon - Envoy of the End -34124316 1 --Cyber Jar -69015963 1 --Cyber-Stein -40737112 1 --Dark Magician of Chaos -56570271 1 --Destiny HERO - Disk Commander -50720316 1 --Elemental HERO Shadow Mist -40044918 1 --Elemental HERO Stratos -78706415 1 --Fiber Jar -93369354 1 --Fishborg Blaster -67441435 1 --Glow-Up Bulb -20758643 1 --Graff, Malebranche of the Burning Abyss -21593977 1 --Makyura the Destructor -34206604 1 --Magical Scientist -31560081 1 --Magician of Faith -96782886 1 --Mind Master -33508719 1 --Morphing Jar -79106360 1 --Morphing Jar #2 -90411554 1 --Redox, Dragon Ruler of Boulders -14878871 1 --Rescue Cat -89399912 1 --Tempest, Dragon Ruler of Storms -26400609 1 --Tidal, Dragon Ruler of Waterfalls -33184167 1 --Tribe-Infecting Virus -44910027 1 --Victory Dragon -16923472 1 --Wind-Up Hunter -78010363 1 --Witch of the Black Forest -26202165 1 --Sangan -20663556 1 --Substitoad -03078576 1 --Yata-Garasu -20366274 1 --El Shaddoll Construct -17412721 1 --Elder Entity Norden -48063985 1 --Ritual Beast Ulti-Cannahawk -63519819 1 --Thousand-Eyes Restrict -50321796 1 --Brionac, Dragon of the Ice Barrier -07391448 1 --Goyo Guardian -46772449 1 --Evilswarm Exciton Knight -34086406 1 --Lavalval Chain -54719828 1 --Number 16: Shock Master -18326736 1 --Tellarknight Ptolemaeus -81122844 1 --Wind-Up Carrier Zenmaity -87910978 1 --Brain Control -69243953 1 --Butterfly Dagger - Elma -72892473 1 --Card Destruction -57953380 1 --Card of Safe Return -04031928 1 --Change of Heart -60682203 1 --Cold Wave -17375316 1 --Confiscation -44763025 1 --Delinquent Duo -23557835 1 --Dimension Fusion -77565204 1 --Future Fusion -27970830 1 --Gateway of the Six -42703248 1 --Giant Trunade -79571449 1 --Graceful Charity -18144506 1 --Harpie's Feather Duster -19613556 1 --Heavy Storm -85602018 1 --Last Will -34906152 1 --Mass Driver -46411259 1 --Metamorphosis -41482598 1 --Mirage of Nightmare -83764718 1 --Monster Reborn -74191942 1 --Painful Choice -67169062 1 --Pot of Avarice -55144522 1 --Pot of Greed -70828912 1 --Premature Burial -12580477 1 --Raigeki -45986603 1 --Snatch Steal -46448938 1 --Spellbook of Judgment -48130397 1 --Super Polymerization -27770341 1 --Super Rejuvenation -42829885 1 --The Forceful Sentry -28566710 1 --Last Turn -61740673 1 --Imperial Order -27174286 1 --Return from the Different Dimension -93016201 1 --Royal Oppression -57585212 1 --Self-Destruct Button -03280747 1 --Sixth Sense -41420027 1 --Solemn Judgment -35316708 1 --Time Seal -64697231 1 --Trap Dustshoot -80604091 1 --Ultimate Offering -100000000 1 --Chaos End Ruler -Ruler of the Beginning and the End- -41181774 1 --Earthbound Immortal Wiraqocha Rasca -10000000 1 --Obelisk the Tormentor -511000787 1 --Rose Shaman -10000010 1 --The Winged Dragon of Ra -100000020 1 --After Glow -170000119 1 --Blasting Vein -511000691 1 --Card Exchange -511000207 1 --Card of Burial Magic -511000752 1 --Card of Compensation -511001149 1 --Card of Demise -511000784 1 --Card of Desperation -42664989 1 --Card of Sanctity -511000204 1 --Card of Spell Containment -511000654 1 --Card of Variation -800000002 1 --Chameleon Colors -511000167 1 --Dark Wall of Wind -810000021 1 --Deepest Impact -511000471 1 --Drawber -810000082 1 --Giant Flood -511000554 1 --Heaven's Lost Property -100000083 1 --Illusion Gate -511000504 1 --Magician's Archive -85852291 1 --Magical Mallet -511001133 1 --Mischief of the Time Goddess -93108433 1 --Monster Recovery -511000461 1 --Monster Replace -40703222 1 --Multiply -511000399 1 --Negative Energy Generator -511000270 1 --Nibelung's Treasure -100000247 1 --Philosopher's Stone - Sabatiel -34016756 1 --Riryoku -511001142 1 --Roll of Fate -54447022 1 --Soul Charge -511000171 1 --Spell Sanctuary -511000506 1 --Spellbook Inside the Pot -100000186 1 --Sphere Field -511000180 1 --Surprise Attack from Beyond -170000117 1 --Time Fusion -511000091 1 --Turn Jump -511000084 1 --White Night Fort -200000004 1 --Winning Formula -511001119 1 --Deck Destruction Virus -511000464 1 --Domain of the Dark Ruler -800000000 1 --Forceful Deal -61705417 1 --Graverobber -511000618 1 --Insightful Cards of Reversal -37520316 1 --Mind Control -511000481 1 --Mirror of Duality -511001143 1 --Power Balance -511001505 1 --Rebirth Tablet -511001499 1 --Take One Chance -28985331 1 --Armageddon Knight -85103922 1 --Artifact Moralltach -72989439 1 --Black Luster Soldier - Envoy of the Beginning -15341821 1 --Dandylion -65192027 1 --Dark Armed Dragon -14943837 1 --Debris Dragon -78868119 1 --Deep Sea Diva -33396948 1 --Exodia the Forbidden One -64034255 1 --Genex Ally Birdman -99177923 1 --Infernity Archfiend -72714461 1 --Insight Magician -68184115 1 --Inzektor Dragonfly -69207766 1 --Inzektor Hornet -07902349 1 --Left Arm of the Forbidden One -44519536 1 --Left Leg of the Forbidden One -41386308 1 --Mathematician -28297833 1 --Necroface -80344569 1 --Neo-Spacian Grand Mole -16226786 1 --Night Assailant -65518099 1 --Qliphort Scout -88264978 1 --Red-Eyes Darkness Metal Dragon -85138716 1 --Rescue Rabbit -70903634 1 --Right Arm of the Forbidden One -08124921 1 --Right Leg of the Forbidden One -90307777 1 --Shurit, Strategist of the Nekroz -91110378 1 --Star Seraph Sovereign -00423585 1 --Summoner Monk -71564252 1 --Thunder King Rai-Oh -10802915 1 --Tour Guide From the Underworld -59297550 1 --Wind-Up Magician -06602300 1 --Blaze Fenix, the Burning Bombardment Bird -45222299 1 --Evigishki Gustkraken -11877465 1 --Evigishki Mind Augus -26674724 1 --Nekroz of Brionac -89463537 1 --Nekroz of Unicore -70583986 1 --Dewloren, Tiger King of the Ice Barrier -90953320 1 --T.G. Hyper Librarian -52687916 1 --Trishula, Dragon of the Ice Barrier -01475311 1 --Allure of Darkness -14087893 1 --Book of Moon -48976825 1 --Burial From a Different Dimension -53129443 1 --Dark Hole -81674782 1 --Dimensional Fissure -15854426 1 --Divine Wind of Mist Valley -62265044 1 --Dragon Ravine -06417578 1 --El Shaddoll Fusion -95308449 1 --Final Countdown -81439173 1 --Foolish Burial -75500286 1 --Gold Sarcophagus -66957584 1 --Infernity Launcher -23171610 1 --Limiter Removal -43040603 1 --Monster Gate -97211663 1 --Nekroz Cycle -33782437 1 --One Day of Peace -02295440 1 --One for One -96729612 1 --Preparation of Rites -23701465 1 --Primal Seed -32807846 1 --Reinforcement of the Army -74845897 1 --Rekindling -72405967 1 --Royal Tribute -17639150 1 --Saqlifice -45305419 1 --Symbol of Heritage -29401950 1 --Bottomless Trap Hole -36468556 1 --Ceasefire -94192409 1 --Compulsory Evacuation Device -57728570 1 --Crush Card Virus -54974237 1 --Eradicator Epidemic Virus -09059700 1 --Infernity Barrier -30241314 1 --Macro Cosmos -32723153 1 --Magical Explosion -83555666 1 --Ring of Destruction -82732705 1 --Skill Drain -84749824 1 --Solemn Warning -73599290 1 --Soul Drain -53582587 1 --Torrential Tribute -05851097 1 --Vanity's Emptiness -17078030 1 --Wall of Revealing Light -511001131 1 --Clone Dragon -511000585 1 --Level Jar -67098114 1 --Loki, Lord of the Aesir -100000008 1 --Michion, the Timelord -93483212 1 --Odin, Father of the Aesir -21208154 1 --The Wicked Avatar -62180201 1 --The Wicked Dreadroot -57793869 1 --The Wicked Eraser -30604579 1 --Thor, Lord of the Aesir -6007213 1 --Uria, Lord of Searing Flames -810000032 1 --Depth Eruption -511000598 1 --Fallout -110000102 1 --Living Fossil -511000276 1 --Numeron Direct -500000149 1 --Soul-Binding Gate -62499965 1 --Z-ONE -110000099 1 --Cursed Prison -100000565 1 --Freezing Dance -511000036 1 --Jurassic Impact -100000117 1 --Life Force -810000002 1 --Dark Spell Regeneration -511000418 1 --Beckon to Darkness -500000147 1 --École de Zone -511000443 1 --Path to Destiny -95000000 1 --Boss Duel -95000001 1 --Darkness Outsider/Boss Duel -95000002 1 --Darkness Neosphere/Boss Duel -95000003 1 --Darkness/Boss Duel -95000004 1 --Infinity/Boss Duel -95000005 1 --Zero/Boss Duel -95000006 1 --Darkness 1/Boss Duel -95000007 1 --Darkness 2/Boss Duel -95000008 1 --Darkness 3/Boss Duel -95000009 1 --Toon Gemini Elf/Boss Duel -95000010 1 --Toon Masked Sorcerer/Boss Duel -95000011 1 --Toon Summoned Skull/Boss Duel -95000012 1 --Toon World/Boss Duel -95000013 1 --Comic Hand/Boss Duel -95000014 1 --Relinquished/Boss Duel -95000015 1 --Mimicat/Boss Duel -95000016 1 --Toon Briefcase/Boss Duel -95000017 1 --Numeron Callin/Boss Duel -95000022 1 --Number C1:Numeron Chaos Gate Shunya/Boss Duel -95000023 1 --Numeron Network/Boss Duel -95000024 1 --Numeron Chaos Ritual/Boss Duel -95000025 1 --Number C1000: Numerronius/Boss Duel -95000026 1 --Number iC1000: Numerronius Numerronia/Boss Duel -95000027 1 --Numeron Xyz Revision/Boss Duel -95000028 1 --Numeron Spell Revision/Boss Duel -95000029 1 --Nonexistence/Boss Duel -95000030 1 --Michion, the Timelord/Boss Duel -95000033 1 --Gabrion, the Timelord/Boss Duel -95000036 1 --Sandaion, the Timelord/Boss Duel -95000037 1 --Endless Emptiness/Boss Duel -95000038 1 --Lazion, the Timelord/Boss Duel -95000041 1 --Infinite Light/Boss Duel -95000042 1 --Sephylon, the Ultimate Timelord/Boss Duel -29654737 1 --Amazoness Chain Master -19028307 1 --Beast Machine King Barbaros Ür -110000110 1 --Big Bang Blow -100000704 1 --Darkness Outsider -100000700 1 --Darkness Seed -511000585 1 --Level Jar -170000171 1 --Orichalcos Gigas -31709826 1 --Revival Jam -511000251 1 --Valkyrie of the Nordic Ascendant -10000020 1 --Slifer the Sky Dragon -511001515 1 --Sniping Hazy Type-0 -511001658 1 --Stardust Chronicle Spark Dragon -98045062 1 --Enemy Controller -51100561 1 --Get Your Game On! -511000435 1 --Golden Castle of Stromberg -511000970 1 --Mirror Prison -511001453 1 --Misdirection Wing -511001417 1 --Water of Life -511001125 1 --Life Shaver -511000866 1 --Xyz Trasure Ticket -511001758 1 --Akashic Record -511000729 1 --Berserk Mode -511001186 1 --Contract with Don Thousand -170000170 1 --Divine Serpent -511001307 1 --Energy Drain -17484499 1 --Exchange of the Spirit -13893596 1 --Exodius the Ultimate Forbidden Lord -511000814 1 --Extra Fusion -511000672 1 --Fire Whip -511001629 1 --Graveyard Rebound -511001273 1 --Number 37: Hope Woven Dragon Spider Shark -511000333 1 --Quick Rush -511001582 1 --Performage Hurricane -810000088 1 --Pillager -83555666 1 --Ring of Destruction -29762407 1 --Temple of the Kings -511000736 1 --Wing Requital -100000239 1 --Xyz Treasure -511001726 1 --Ancient Gear Ultimate Hound Dog -511000601 1 --Arcanatic Doomscythe -81480460 1 --Barrel Dragon -511000789 1 --Briar Transplant -511000800 1 --Celestial Bell Tower -511000992 1 --Circle of Terror -511000407 1 --Curse Transfer -32146097 1 --D/D Pandora -100000274 1 --Destiny HERO - The Dark Angel -511001207 1 --Draw Slime -511001583 1 --Fortress of Prophecy -100000474 1 --Fusion Birth -511001627 1 --Galaxy Journey -511000201 1 --Illusion Destruction -511000988 1 --Masahiro the Dark Clown -100000226 1 --Mirror Stage of Discipline -511000544 1 --Mother Spider -511001320 1 --Ninja Commando Kabuki -06387204 1 --Number C6: Chronomaly Chaos Atlandis -511001612 1 --Numbers Exist -100000312 1 --Past Life -110000104 1 --Psychic Armor Head -45950291 1 --Rank-Up-Magic Astral Force -511000829 1 --Re-Xyz -100000470 1 --Soul Fusion -511000809 1 --Spectral Ice Floe -511001614 1 --Spirit Xyz Spark -511001642 1 --Synchro Alliance -511000920 1 --Spell Transfer -100000478 1 --Ties of the Brethren -511000551 1 --Treasures of the Dead -511001172 1 --Underwater Snow Prison -100000239 1 --Xyz Treasure -810000022 1 --Zeta Reticulant -#semi limit -74311226 2 --Atlantean Dragoons -85087012 2 --Card Trooper -57143342 2 --Cir, Malebranche of the Burning Abyss -09411399 2 --Destiny HERO - Malicious -37742478 2 --Honest -16404809 2 --Kuribandit -22446869 2 --Mermail Abyssteus -92826944 2 --Mezuki -10028593 2 --Reborn Tengu -98777036 2 --Tragoedia -46052429 2 --Advanced Ritual Art -91623717 2 --Chain Strike -94886282 2 --Charge of the Light Brigade -41620959 2 --Dragon Shrine -29843091 2 --Ojama Trio -77505534 2 --Sinister Shadow Games -511000494 2 --Effect Shut -511001459 2 --Clear Effector -511001821 2 --Necroid Synchro - -!Anime -#forbidden -27279764 0 --Apoqliphort Towers -53804307 0 --Blaster, Dragon Ruler of Infernos -82301904 0 --Chaos Emperor Dragon - Envoy of the End -34124316 0 --Cyber Jar -69015963 0 --Cyber-Stein -40737112 0 --Dark Magician of Chaos -56570271 0 --Destiny HERO - Disk Commander -08903700 0 --Djinn Releaser of Rituals -40044918 0 --Elemental HERO Stratos -78706415 0 --Fiber Jar -93369354 0 --Fishborg Blaster -21593977 0 --Makyura the Destructor -34206604 0 --Magical Scientist -31560081 0 --Magician of Faith -96782886 0 --Mind Master -33508719 0 --Morphing Jar -79106360 0 --Morphing Jar #2 -90411554 0 --Redox, Dragon Ruler of Boulders -14878871 0 --Rescue Cat -89399912 0 --Tempest, Dragon Ruler of Storms -26400609 0 --Tidal, Dragon Ruler of Waterfalls -33184167 0 --Tribe-Infecting Virus -44910027 0 --Victory Dragon -16923472 0 --Wind-Up Hunter -78010363 0 --Witch of the Black Forest -26202165 0 --Sangan -90307777 0 --Shurit, Strategist of the Nekroz -20663556 0 --Substitoad -03078576 0 --Yata-Garasu -20366274 0 --El Shaddoll Construct -17412721 0 --Elder Entity Norden -63519819 0 --Thousand-Eyes Restrict -50321796 0 --Brionac, Dragon of the Ice Barrier -07391448 0 --Goyo Guardian -46772449 0 --Evilswarm Exciton Knight -34086406 0 --Lavalval Chain -54719828 0 --Number 16: Shock Master -18326736 0 --Tellarknight Ptolemaeus -81122844 0 --Wind-Up Carrier Zenmaity -87910978 0 --Brain Control -69243953 0 --Butterfly Dagger - Elma -72892473 0 --Card Destruction -57953380 0 --Card of Safe Return -04031928 0 --Change of Heart -60682203 0 --Cold Wave -17375316 0 --Confiscation -44763025 0 --Delinquent Duo -23557835 0 --Dimension Fusion -77565204 0 --Future Fusion -27970830 0 --Gateway of the Six -42703248 0 --Giant Trunade -79571449 0 --Graceful Charity -18144506 0 --Harpie's Feather Duster -19613556 0 --Heavy Storm -85602018 0 --Last Will -34906152 0 --Mass Driver -46411259 0 --Metamorphosis -41482598 0 --Mirage of Nightmare -83764718 0 --Monster Reborn -74191942 0 --Painful Choice -67169062 0 --Pot of Avarice -55144522 0 --Pot of Greed -70828912 0 --Premature Burial -12580477 0 --Raigeki -45986603 0 --Snatch Steal -46448938 0 --Spellbook of Judgment -48130397 0 --Super Polymerization -27770341 0 --Super Rejuvenation -42829885 0 --The Forceful Sentry -28566710 0 --Last Turn -61740673 0 --Imperial Order -27174286 0 --Return from the Different Dimension -93016201 0 --Royal Oppression -57585212 0 --Self-Destruct Button -03280747 0 --Sixth Sense -41420027 0 --Solemn Judgment -35316708 0 --Time Seal -64697231 0 --Trap Dustshoot -80604091 0 --Ultimate Offering -100000000 0 --Chaos End Ruler -Ruler of the Beginning and the End- -41181774 0 --Earthbound Immortal Wiraqocha Rasca -10000000 0 --Obelisk the Tormentor -511000787 0 --Rose Shaman -10000010 0 --The Winged Dragon of Ra -100000020 0 --After Glow -170000119 0 --Blasting Vein -511000691 0 --Card Exchange -511000207 0 --Card of Burial Magic -511000752 0 --Card of Compensation -511001149 0 --Card of Demise -511000784 0 --Card of Desperation -42664989 0 --Card of Sanctity -511000204 0 --Card of Spell Containment -511000654 0 --Card of Variation -800000002 0 --Chameleon Colors -511000167 0 --Dark Wall of Wind -810000021 0 --Deepest Impact -511000471 0 --Drawber -810000082 0 --Giant Flood -511000554 0 --Heaven's Lost Property -100000083 0 --Illusion Gate -511000504 0 --Magician's Archive -85852291 0 --Magical Mallet -511001133 0 --Mischief of the Time Goddess -93108433 0 --Monster Recovery -511000461 0 --Monster Replace -40703222 0 --Multiply -511000399 0 --Negative Energy Generator -511000270 0 --Nibelung's Treasure -100000247 0 --Philosopher's Stone - Sabatiel -34016756 0 --Riryoku -511001142 0 --Roll of Fate -54447022 0 --Soul Charge -511000171 0 --Spell Sanctuary -511000506 0 --Spellbook Inside the Pot -100000186 0 --Sphere Field -511000180 0 --Surprise Attack from Beyond -170000117 0 --Time Fusion -511000091 0 --Turn Jump -511000084 0 --White Night Fort -200000004 0 --Winning Formula -511001119 0 --Deck Destruction Virus -511000464 0 --Domain of the Dark Ruler -800000000 0 --Forceful Deal -61705417 0 --Graverobber -511000618 0 --Insightful Cards of Reversal -37520316 0 --Mind Control -511000481 0 --Mirror of Duality -511001143 0 --Power Balance -511001505 0 --Rebirth Tablet -511001499 0 --Take One Chance -29654737 0 --Amazoness Chain Master -19028307 0 --Beast Machine King Barbaros Ür -110000110 0 --Big Bang Blow -100000704 0 --Darkness Outsider -100000700 0 --Darkness Seed -511000585 0 --Level Jar -31709826 0 --Revival Jam -511000251 0 --Valkyrie of the Nordic Ascendant -10000020 0 --Slifer the Sky Dragon -511001515 0 --Sniping Hazy Type-0 -511001658 0 --Stardust Chronicle Spark Dragon -98045062 0 --Enemy Controller -81439173 0 --Foolish Burial -51100561 0 --Get Your Game On! -511000435 0 --Golden Castle of Stromberg -511000970 0 --Mirror Prison -511001453 0 --Misdirection Wing -511001417 0 --Water of Life -511001125 0 --Life Shaver -511000866 0 --Xyz Trasure Ticket -95000000 0 --Boss Duel -511001758 0 --Akashic Record -511000729 0 --Berserk Mode -511001186 0 --Contract with Don Thousand -57728570 0 --Crush Card Virus -170000170 0 --Divine Serpent -511001307 0 --Energy Drain -17484499 0 --Exchange of the Spirit -13893596 0 --Exodius the Ultimate Forbidden Lord -511000814 0 --Extra Fusion -511000672 0 --Fire Whip -511001629 0 --Graveyard Rebound -511001273 0 --Number 37: Hope Woven Dragon Spider Shark -511000333 0 --Quick Rush -511001582 0 --Performage Hurricane -810000088 0 --Pillager -83555666 0 --Ring of Destruction -29762407 0 --Temple of the Kings -511000736 0 --Wing Requital -100000239 0 --Xyz Treasure -#limit -28985331 1 --Armageddon Knight -85103922 1 --Artifact Moralltach -72989439 1 --Black Luster Soldier - Envoy of the Beginning -15341821 1 --Dandylion -65192027 1 --Dark Armed Dragon -14943837 1 --Debris Dragon -78868119 1 --Deep Sea Diva -50720316 1 --Elemental HERO Shadow Mist -33396948 1 --Exodia the Forbidden One -64034255 1 --Genex Ally Birdman -67441435 1 --Glow-Up Bulb -20758643 1 --Graff, Malebranche of the Burning Abyss -99177923 1 --Infernity Archfiend -72714461 1 --Insight Magician -68184115 1 --Inzektor Dragonfly -69207766 1 --Inzektor Hornet -07902349 1 --Left Arm of the Forbidden One -44519536 1 --Left Leg of the Forbidden One -41386308 1 --Mathematician -28297833 1 --Necroface -80344569 1 --Neo-Spacian Grand Mole -16226786 1 --Night Assailant -65518099 1 --Qliphort Scout -88264978 1 --Red-Eyes Darkness Metal Dragon -85138716 1 --Rescue Rabbit -70903634 1 --Right Arm of the Forbidden One -08124921 1 --Right Leg of the Forbidden One -91110378 1 --Star Seraph Sovereign -00423585 1 --Summoner Monk -71564252 1 --Thunder King Rai-Oh -10802915 1 --Tour Guide From the Underworld -59297550 1 --Wind-Up Magician -06602300 1 --Blaze Fenix, the Burning Bombardment Bird -48063985 1 --Ritual Beast Ulti-Cannahawk -45222299 1 --Evigishki Gustkraken -11877465 1 --Evigishki Mind Augus -26674724 1 --Nekroz of Brionac -89463537 1 --Nekroz of Unicore -70583986 1 --Dewloren, Tiger King of the Ice Barrier -90953320 1 --T.G. Hyper Librarian -52687916 1 --Trishula, Dragon of the Ice Barrier -01475311 1 --Allure of Darkness -14087893 1 --Book of Moon -48976825 1 --Burial From a Different Dimension -53129443 1 --Dark Hole -81674782 1 --Dimensional Fissure -15854426 1 --Divine Wind of Mist Valley -62265044 1 --Dragon Ravine -06417578 1 --El Shaddoll Fusion -95308449 1 --Final Countdown -75500286 1 --Gold Sarcophagus -66957584 1 --Infernity Launcher -23171610 1 --Limiter Removal -43040603 1 --Monster Gate -97211663 1 --Nekroz Cycle -33782437 1 --One Day of Peace -02295440 1 --One for One -96729612 1 --Preparation of Rites -23701465 1 --Primal Seed -32807846 1 --Reinforcement of the Army -74845897 1 --Rekindling -72405967 1 --Royal Tribute -17639150 1 --Saqlifice -45305419 1 --Symbol of Heritage -29401950 1 --Bottomless Trap Hole -36468556 1 --Ceasefire -94192409 1 --Compulsory Evacuation Device -54974237 1 --Eradicator Epidemic Virus -09059700 1 --Infernity Barrier -30241314 1 --Macro Cosmos -32723153 1 --Magical Explosion -83555666 1 --Ring of Destruction -82732705 1 --Skill Drain -84749824 1 --Solemn Warning -73599290 1 --Soul Drain -53582587 1 --Torrential Tribute -05851097 1 --Vanity's Emptiness -17078030 1 --Wall of Revealing Light -511001131 1 --Clone Dragon -511000585 1 --Level Jar -67098114 1 --Loki, Lord of the Aesir -100000008 1 --Michion, the Timelord -93483212 1 --Odin, Father of the Aesir -21208154 1 --The Wicked Avatar -62180201 1 --The Wicked Dreadroot -57793869 1 --The Wicked Eraser -30604579 1 --Thor, Lord of the Aesir -6007213 1 --Uria, Lord of Searing Flames -810000032 1 --Depth Eruption -511000598 1 --Fallout -110000102 1 --Living Fossil -511000276 1 --Numeron Direct -500000149 1 --Soul-Binding Gate -62499965 1 --Z-ONE -110000099 1 --Cursed Prison -100000565 1 --Freezing Dance -511000036 1 --Jurassic Impact -100000117 1 --Life Force -810000002 1 --Dark Spell Regeneration -511000418 1 --Beckon to Darkness -500000147 1 --École de Zone -511000443 1 --Path to Destiny -95000001 1 --Darkness Outsider/Boss Duel -95000002 1 --Darkness Neosphere/Boss Duel -95000003 1 --Darkness/Boss Duel -95000004 1 --Infinity/Boss Duel -95000005 1 --Zero/Boss Duel -95000006 1 --Darkness 1/Boss Duel -95000007 1 --Darkness 2/Boss Duel -95000008 1 --Darkness 3/Boss Duel -95000009 1 --Toon Gemini Elf/Boss Duel -95000010 1 --Toon Masked Sorcerer/Boss Duel -95000011 1 --Toon Summoned Skull/Boss Duel -95000012 1 --Toon World/Boss Duel -95000013 1 --Comic Hand/Boss Duel -95000014 1 --Relinquished/Boss Duel -95000015 1 --Mimicat/Boss Duel -95000016 1 --Toon Briefcase/Boss Duel -95000017 1 --Numeron Callin/Boss Duel -95000022 1 --Number C1:Numeron Chaos Gate Shunya/Boss Duel -95000023 1 --Numeron Network/Boss Duel -95000024 1 --Numeron Chaos Ritual/Boss Duel -95000025 1 --Number C1000: Numerronius/Boss Duel -95000026 1 --Number iC1000: Numerronius Numerronia/Boss Duel -95000027 1 --Numeron Xyz Revision/Boss Duel -95000028 1 --Numeron Spell Revision/Boss Duel -95000029 1 --Nonexistence/Boss Duel -95000030 1 --Michion, the Timelord/Boss Duel -95000033 1 --Gabrion, the Timelord/Boss Duel -95000036 1 --Sandaion, the Timelord/Boss Duel -95000037 1 --Endless Emptiness/Boss Duel -95000038 1 --Lazion, the Timelord/Boss Duel -95000041 1 --Infinite Light/Boss Duel -95000042 1 --Sephylon, the Ultimate Timelord/Boss Duel -511001726 1 --Ancient Gear Ultimate Hound Dog -511000601 1 --Arcanatic Doomscythe -81480460 1 --Barrel Dragon -511000789 1 --Briar Transplant -511000800 1 --Celestial Bell Tower -511000992 1 --Circle of Terror -511000407 1 --Curse Transfer -32146097 1 --D/D Pandora -100000274 1 --Destiny HERO - The Dark Angel -511001207 1 --Draw Slime -511001583 1 --Fortress of Prophecy -100000474 1 --Fusion Birth -511001627 1 --Galaxy Journey -511000201 1 --Illusion Destruction -511000988 1 --Masahiro the Dark Clown -100000226 1 --Mirror Stage of Discipline -511000544 1 --Mother Spider -511001320 1 --Ninja Commando Kabuki -06387204 1 --Number C6: Chronomaly Chaos Atlandis -511001612 1 --Numbers Exist -100000312 1 --Past Life -110000104 1 --Psychic Armor Head -45950291 1 --Rank-Up-Magic Astral Force -511000829 1 --Re-Xyz -100000470 1 --Soul Fusion -511000809 1 --Spectral Ice Floe -511001614 1 --Spirit Xyz Spark -511001642 1 --Synchro Alliance -511000920 1 --Spell Transfer -100000478 1 --Ties of the Brethren -511000551 1 --Treasures of the Dead -511001172 1 --Underwater Snow Prison -100000239 1 --Xyz Treasure -810000022 1 --Zeta Reticulant -#semi limit -74311226 2 --Atlantean Dragoons -85087012 2 --Card Trooper -57143342 2 --Cir, Malebranche of the Burning Abyss -09411399 2 --Destiny HERO - Malicious -37742478 2 --Honest -16404809 2 --Kuribandit -22446869 2 --Mermail Abyssteus -92826944 2 --Mezuki -10028593 2 --Reborn Tengu -98777036 2 --Tragoedia -46052429 2 --Advanced Ritual Art -91623717 2 --Chain Strike -94886282 2 --Charge of the Light Brigade -41620959 2 --Dragon Shrine -29843091 2 --Ojama Trio -77505534 2 --Sinister Shadow Games -511000494 2 --Effect Shut -511001459 2 --Clear Effector -511001821 2 --Necroid Synchro +#[2016.4 TCG][2016.7 OCG][2016.4 Traditional][2016.4 Anime] +!2016.4 TCG +#forbidden +07563579 0 --Ｅｍヒグルミ +68819554 0 --Ｅｍダメージ・ジャグラー +18326736 0 --星守の騎士 プトレマイオス +27279764 0 --アポクリフォート・キラー +20663556 0 --イレカエル +20366274 0 --エルシャドール・ネフィリム +40044918 0 --E・HERO エアーマン +53804307 0 --焔征竜－ブラスター +44910027 0 --ヴィクトリー・ドラゴン +82301904 0 --混沌帝龍 －終焉の使者－ +79106360 0 --カオスポッド +90411554 0 --巌征竜－レドックス +08903700 0 --儀式魔人リリーサー +26202165 0 --クリッター +78010363 0 --黒き森のウィッチ +34124316 0 --サイバーポッド +50321796 0 --氷結界の龍 ブリューナク +81122844 0 --発条空母ゼンマイティ +21593977 0 --処刑人－マキュラ +56570271 0 --D－HERO ディスクガイ +69015963 0 --デビル・フランケン +33184167 0 --同族感染ウィルス +54719828 0 --No.16 色の支配者ショック・ルーラー +90307777 0 --影霊衣の術士 シュリット +34086406 0 --ラヴァルバル・チェイン +26400609 0 --瀑征竜－タイダル +46772449 0 --励輝士 ヴェルズビュート +78706415 0 --ファイバーポッド +93369354 0 --フィッシュボーグ－ガンナー +34206604 0 --魔導サイエンティスト +33508719 0 --メタモルポット +96782886 0 --メンタルマスター +03078576 0 --八汰烏 +89399912 0 --嵐征竜－テンペスト +14878871 0 --レスキューキャット +41482598 0 --悪夢の蜃気楼 +44763025 0 --いたずら好きな双子悪魔 +19613556 0 --大嵐 +17375316 0 --押収 +74191942 0 --苦渋の選択 +42829885 0 --強引な番兵 +45986603 0 --強奪 +55144522 0 --強欲な壺 +04031928 0 --心変わり +23557835 0 --次元融合 +83764718 0 --死者蘇生 +57953380 0 --生還の宝札 +87910978 0 --洗脳－ブレインコントロール +60682203 0 --大寒波 +67169062 0 --貪欲な壺 +27770341 0 --超再生能力 +69243953 0 --蝶の短剣－エルマ +72892473 0 --手札抹殺 +79571449 0 --天使の施し +48130397 0 --超融合 +42703248 0 --ハリケーン +18144506 0 --ハーピィの羽根帚 +70828912 0 --早すぎた埋葬 +34906152 0 --マスドライバー +46448938 0 --魔導書の神判 +77565204 0 --未来融合－フューチャー・フュージョン +27970830 0 --六武の門 +46411259 0 --突然変異 +85602018 0 --遺言状 +27174286 0 --異次元からの帰還 +61740673 0 --王宮の勅命 +93016201 0 --王宮の弾圧 +41420027 0 --神の宣告 +57585212 0 --自爆スイッチ +03280747 0 --第六感 +64697231 0 --ダスト・シュート +35316708 0 --刻の封印 +80604091 0 --血の代償 +28566710 0 --ラストバトル！ +18326736 0 --星守の騎士 プトレマイオス +67616300 0 --Chicken Race +31222701 0 --Wavering Eyes +#limit +40318957 1 --ＥＭドクロバット・ジョーカー +17330916 1 --ＥＭモンキーボード +92746535 1 --竜剣士ラスターＰ +85103922 1 --アーティファクト－モラルタ +64034255 1 --A・ジェネクス・バードマン +45222299 1 --イビリチュア・ガストクラーケ +11877465 1 --イビリチュア・マインドオーガス +99177923 1 --インフェルニティ・デーモン +68184115 1 --甲虫装機 ダンセル +69207766 1 --甲虫装機 ホーネット +72989439 1 --カオス・ソルジャー －開闢の使者－ +65518099 1 --クリフォート・ツール +12580477 1 --サンダー・ボルト +78868119 1 --深海のディーヴァ +48063985 1 --聖霊獣騎 カンナホーク +59297550 1 --ゼンマイマジシャン +65192027 1 --ダーク・アームド・ドラゴン +15341821 1 --ダンディライオン +90953320 1 --TG ハイパー・ライブラリアン +26674724 1 --ブリューナクの影霊衣 +52687916 1 --氷結界の龍 トリシューラ +16226786 1 --深淵の暗殺者 +80344569 1 --N・グラン・モール +70583986 1 --氷結界の虎王ドゥローレン +33396948 1 --封印されしエクゾディア +07902349 1 --封印されし者の左腕 +70903634 1 --封印されし者の右腕 +44519536 1 --封印されし者の左足 +08124921 1 --封印されし者の右足 +41386308 1 --マスマティシャン +10802915 1 --魔界発現世行きデスガイド +71564252 1 --ライオウ +85138716 1 --レスキューラビット +88264978 1 --レッドアイズ・ダークネスメタルドラゴン +48976825 1 --異次元からの埋葬 +89463537 1 --ユニコールの影霊衣 +33782437 1 --一時休戦 +66957584 1 --インフェルニティガン +72405967 1 --王家の生け贄 +81439173 1 --おろかな埋葬 +06417578 1 --神の写し身との接触 +96729612 1 --儀式の準備 +45305419 1 --継承の印 +17639150 1 --機殻の生贄 +95308449 1 --終焉のカウントダウン +74845897 1 --真炎の爆発 +37520316 1 --精神操作 +54447022 1 --ソウル・チャージ +14087893 1 --月の書 +81674782 1 --次元の裂け目 +75500286 1 --封印の黄金櫃 +15854426 1 --霞の谷の神風 +20758643 1 --彼岸の悪鬼 グラバースニッチ +43040603 1 --モンスターゲート +23171610 1 --リミッター解除 +02295440 1 --ワン・フォー・ワン +09059700 1 --インフェルニティ・バリア +05851097 1 --虚無空間 +84749824 1 --神の警告 +94192409 1 --強制脱出装置 +53582587 1 --激流葬 +82732705 1 --スキルドレイン +32807846 1 --増援 +73599290 1 --ソウルドレイン +29401950 1 --奈落の落とし穴 +83555666 1 --破壊輪 +17078030 1 --光の護封壁 +30241314 1 --マクロコスモス +32723153 1 --マジカル・エクスプロージョン +54974237 1 --闇のデッキ破壊ウイルス +72714461 1 --慧眼の魔術師 +17412721 1 --旧神ノーデン +63519819 1 --サウザンド・アイズ・サクリファイス +18239909 1 --Ignister Prominence, The Blasting Dracoslayer +14733538 1 --Draco Face-Off +58577036 1 --Reasoning +70368879 1 --Upstart Goblin +#semi limit +37742478 2 --オネスト +85087012 2 --カードガンナー +74311226 2 --海皇の竜騎隊 +00423585 2 --召喚僧サモンプリースト +28297833 2 --ネクロフェイス +94886282 2 --光の援軍 +57143342 2 --彼岸の悪鬼 ガトルホッグ +53129443 2 --ブラック・ホール +62265044 2 --竜の渓谷 +91623717 2 --連鎖爆撃 +29843091 2 --おジャマトリオ +36468556 2 --停戦協定 +67723438 2 --Emergency Teleport +01475311 2 --闇の誘惑 +14943837 2 --デブリ・ドラゴン + +!2016.7 OCG +#forbidden +17178486 0 --Life Equalizer +34086406 0 --ラヴァルバル・チェイン +17330916 0 --Performapal Monkeyboard +54719828 0 --No.16 色の支配者ショック・ルーラー +68819554 0 --Emダメージ・ジャグラー +07563579 0 --Emヒグルミ +20663556 0 --イレカエル +44910027 0 --ヴィクトリー・ドラゴン +20366274 0 --エルシャドール・ネフィリム +53804307 0 --焔征竜－ブラスター +90411554 0 --巌征竜－レドックス +17412721 0 --旧神ノーデン +26202165 0 --クリッター +78010363 0 --黒き森のウィッチ +07391448 0 --ゴヨウ・ガーディアン +34124316 0 --サイバーポッド +63519819 0 --サウザンド・アイズ・サクリファイス +21593977 0 --処刑人－マキュラ +31560081 0 --聖なる魔術師 +16923472 0 --ゼンマイハンター +56570271 0 --D－HERO ディスクガイ +18326736 0 --星守の騎士 プトレマイオス +33184167 0 --同族感染ウィルス +26400609 0 --瀑征竜－タイダル +50321796 0 --氷結界の龍 ブリューナク +78706415 0 --ファイバーポッド +93369354 0 --フィッシュボーグ－ガンナー +34206604 0 --魔導サイエンティスト +96782886 0 --メンタルマスター +03078576 0 --八汰烏 +89399912 0 --嵐征竜－テンペスト +14878871 0 --レスキューキャット +41482598 0 --悪夢の蜃気楼 +44763025 0 --いたずら好きな双子悪魔 +17375316 0 --押収 +19613556 0 --大嵐 +74191942 0 --苦渋の選択 +42829885 0 --強引な番兵 +45986603 0 --強奪 +55144522 0 --強欲な壺 +04031928 0 --心変わり +12580477 0 --サンダー・ボルト +23557835 0 --次元融合 +57953380 0 --生還の宝札 +87910978 0 --洗脳－ブレインコントロール +60682203 0 --大寒波 +69243953 0 --蝶の短剣－エルマ +79571449 0 --天使の施し +70828912 0 --早すぎた埋葬 +42703248 0 --ハリケーン +34906152 0 --マスドライバー +46448938 0 --魔導書の神判 +77565204 0 --未来融合－フューチャー・フュージョン +46411259 0 --突然変異 +85602018 0 --遺言状 +27174286 0 --異次元からの帰還 +93016201 0 --王宮の弾圧 +61740673 0 --王宮の勅命 +03280747 0 --第六感 +64697231 0 --ダスト・シュート +80604091 0 --血の代償 +35316708 0 --刻の封印 +28566710 0 --ラストバトル！ +#limit +92746535 1 --竜剣士ラスターＰ +47075569 1 --Performapal Pendulum Sorcerer +40318957 1 --ＥＭドクロバット・ジョーカー +85103922 1 --アーティファクト－モラルタ +64034255 1 --A・ジェネクス・バードマン +68184115 1 --甲虫装機 ダンセル +40044918 1 --E・HERO エアーマン +50720316 1 --E・HERO シャドー・ミスト +72989439 1 --カオス・ソルジャー －開闢の使者－ +72714461 1 --慧眼の魔術師 +06602300 1 --重爆撃禽 ボム・フェネクス +28985331 1 --終末の騎士 +00423585 1 --召喚僧サモンプリースト +78868119 1 --深海のディーヴァ +65192027 1 --ダーク・アームド・ドラゴン +15341821 1 --ダンディライオン +90953320 1 --TG ハイパー・ライブラリアン +16226786 1 --深淵の暗殺者 +90307777 1 --影霊衣の術士 シュリット +28297833 1 --ネクロフェイス +52687916 1 --氷結界の龍 トリシューラ +33396948 1 --封印されしエクゾディア +08124921 1 --封印されし者の右足 +70903634 1 --封印されし者の右腕 +44519536 1 --封印されし者の左足 +07902349 1 --封印されし者の左腕 +26674724 1 --ブリューナクの影霊衣 +91110378 1 --光天使スローネ +41386308 1 --マスマティシャン +33508719 1 --メタモルポット +89463537 1 --ユニコールの影霊衣 +88264978 1 --レッドアイズ・ダークネスメタルドラゴン +48976825 1 --異次元からの埋葬 +33782437 1 --一時休戦 +66957584 1 --インフェルニティガン +06417578 1 --神の写し身との接触 +81439173 1 --おろかな埋葬 +96729612 1 --儀式の準備 +45305419 1 --継承の印 +23701465 1 --原初の種 +17639150 1 --機殻の生贄 +83764718 1 --死者蘇生 +32807846 1 --増援 +54447022 1 --ソウル・チャージ +48130397 1 --超融合 +72892473 1 --手札抹殺 +67169062 1 --貪欲な壺 +97211663 1 --影霊衣の反魂術 +18144506 1 --ハーピィの羽根帚 +53129443 1 --ブラック・ホール +15854426 1 --霞の谷の神風 +23171610 1 --リミッター解除 +62265044 1 --竜の渓谷 +02295440 1 --ワン・フォー・ワン +84749824 1 --神の警告 +41420027 1 --神の宣告 +05851097 1 --虚無空間 +36468556 1 --停戦協定 +83555666 1 --破壊輪 +32723153 1 --マジカル・エクスプロージョン +84764038 1 --Scarm, Malebranche of the Burning Abyss +10802915 1 --Tour Guide From the Underworld +18239909 1 --Ignister Prominence, The Blasting Dracoslayer +83531441 1 --Dante, Traveler of the Burning Abyss +67723438 1 --Emergency Teleport +84171830 1 --Domain of the True Monarch +22842126 1 --Pantheism of the Monarchs +53208660 1 --Pendulum Call +93600443 1 --Mask Change II +58577036 1 --Reasoning +43040603 1 --Monster Gate +31222701 1 --Wavering Eyes +14733538 1 --Draco Face-Off +#semi limit +45222299 2 --イビリチュア・ガストクラーケ +74311226 2 --海皇の竜騎隊 +65518099 2 --クリフォート・ツール +70583986 2 --氷結界の虎王ドゥローレン +92826944 2 --馬頭鬼 +10028593 2 --輪廻天狗 +91623717 2 --連鎖爆撃 +94886282 2 --光の援軍 +27970830 2 --六武の門 +77505534 2 --堕ち影の蠢き +17078030 2 --光の護封壁 +26202165 2 --Sangan +63519819 2 --Thousand-Eyes Restrict + +!2016.4 Traditional +#forbidden +#limit +07563579 1 --Ｅｍヒグルミ +68819554 1 --Ｅｍダメージ・ジャグラー +18326736 1 --星守の騎士 プトレマイオス +27279764 1 --アポクリフォート・キラー +20663556 1 --イレカエル +20366274 1 --エルシャドール・ネフィリム +40044918 1 --E・HERO エアーマン +53804307 1 --焔征竜－ブラスター +44910027 1 --ヴィクトリー・ドラゴン +82301904 1 --混沌帝龍 －終焉の使者－ +79106360 1 --カオスポッド +90411554 1 --巌征竜－レドックス +08903700 1 --儀式魔人リリーサー +26202165 1 --クリッター +78010363 1 --黒き森のウィッチ +34124316 1 --サイバーポッド +50321796 1 --氷結界の龍 ブリューナク +81122844 1 --発条空母ゼンマイティ +21593977 1 --処刑人－マキュラ +56570271 1 --D－HERO ディスクガイ +69015963 1 --デビル・フランケン +33184167 1 --同族感染ウィルス +54719828 1 --No.16 色の支配者ショック・ルーラー +90307777 1 --影霊衣の術士 シュリット +34086406 1 --ラヴァルバル・チェイン +26400609 1 --瀑征竜－タイダル +46772449 1 --励輝士 ヴェルズビュート +78706415 1 --ファイバーポッド +93369354 1 --フィッシュボーグ－ガンナー +34206604 1 --魔導サイエンティスト +33508719 1 --メタモルポット +96782886 1 --メンタルマスター +03078576 1 --八汰烏 +89399912 1 --嵐征竜－テンペスト +14878871 1 --レスキューキャット +41482598 1 --悪夢の蜃気楼 +44763025 1 --いたずら好きな双子悪魔 +19613556 1 --大嵐 +17375316 1 --押収 +74191942 1 --苦渋の選択 +42829885 1 --強引な番兵 +45986603 1 --強奪 +55144522 1 --強欲な壺 +04031928 1 --心変わり +23557835 1 --次元融合 +83764718 1 --死者蘇生 +57953380 1 --生還の宝札 +87910978 1 --洗脳－ブレインコントロール +60682203 1 --大寒波 +67169062 1 --貪欲な壺 +27770341 1 --超再生能力 +69243953 1 --蝶の短剣－エルマ +72892473 1 --手札抹殺 +79571449 1 --天使の施し +48130397 1 --超融合 +42703248 1 --ハリケーン +18144506 1 --ハーピィの羽根帚 +70828912 1 --早すぎた埋葬 +34906152 1 --マスドライバー +46448938 1 --魔導書の神判 +77565204 1 --未来融合－フューチャー・フュージョン +27970830 1 --六武の門 +46411259 1 --突然変異 +85602018 1 --遺言状 +27174286 1 --異次元からの帰還 +61740673 1 --王宮の勅命 +93016201 1 --王宮の弾圧 +41420027 1 --神の宣告 +57585212 1 --自爆スイッチ +03280747 1 --第六感 +64697231 1 --ダスト・シュート +35316708 1 --刻の封印 +80604091 1 --血の代償 +28566710 1 --ラストバトル！ +18326736 1 --星守の騎士 プトレマイオス +67616300 1 --Chicken Game +31222701 1 --Wavering Eyes +40318957 1 --ＥＭドクロバット・ジョーカー +17330916 1 --ＥＭモンキーボード +92746535 1 --竜剣士ラスターＰ +85103922 1 --アーティファクト－モラルタ +64034255 1 --A・ジェネクス・バードマン +45222299 1 --イビリチュア・ガストクラーケ +11877465 1 --イビリチュア・マインドオーガス +99177923 1 --インフェルニティ・デーモン +68184115 1 --甲虫装機 ダンセル +69207766 1 --甲虫装機 ホーネット +72989439 1 --カオス・ソルジャー －開闢の使者－ +65518099 1 --クリフォート・ツール +12580477 1 --サンダー・ボルト +78868119 1 --深海のディーヴァ +48063985 1 --聖霊獣騎 カンナホーク +59297550 1 --ゼンマイマジシャン +65192027 1 --ダーク・アームド・ドラゴン +15341821 1 --ダンディライオン +90953320 1 --TG ハイパー・ライブラリアン +26674724 1 --ブリューナクの影霊衣 +52687916 1 --氷結界の龍 トリシューラ +16226786 1 --深淵の暗殺者 +80344569 1 --N・グラン・モール +70583986 1 --氷結界の虎王ドゥローレン +33396948 1 --封印されしエクゾディア +07902349 1 --封印されし者の左腕 +70903634 1 --封印されし者の右腕 +44519536 1 --封印されし者の左足 +08124921 1 --封印されし者の右足 +41386308 1 --マスマティシャン +10802915 1 --魔界発現世行きデスガイド +71564252 1 --ライオウ +85138716 1 --レスキューラビット +88264978 1 --レッドアイズ・ダークネスメタルドラゴン +48976825 1 --異次元からの埋葬 +89463537 1 --ユニコールの影霊衣 +33782437 1 --一時休戦 +66957584 1 --インフェルニティガン +72405967 1 --王家の生け贄 +81439173 1 --おろかな埋葬 +06417578 1 --神の写し身との接触 +96729612 1 --儀式の準備 +45305419 1 --継承の印 +17639150 1 --機殻の生贄 +95308449 1 --終焉のカウントダウン +74845897 1 --真炎の爆発 +37520316 1 --精神操作 +54447022 1 --ソウル・チャージ +14087893 1 --月の書 +81674782 1 --次元の裂け目 +75500286 1 --封印の黄金櫃 +15854426 1 --霞の谷の神風 +20758643 1 --彼岸の悪鬼 グラバースニッチ +43040603 1 --モンスターゲート +23171610 1 --リミッター解除 +02295440 1 --ワン・フォー・ワン +09059700 1 --インフェルニティ・バリア +05851097 1 --虚無空間 +84749824 1 --神の警告 +94192409 1 --強制脱出装置 +53582587 1 --激流葬 +82732705 1 --スキルドレイン +32807846 1 --増援 +73599290 1 --ソウルドレイン +29401950 1 --奈落の落とし穴 +83555666 1 --破壊輪 +17078030 1 --光の護封壁 +30241314 1 --マクロコスモス +32723153 1 --マジカル・エクスプロージョン +54974237 1 --闇のデッキ破壊ウイルス +72714461 1 --慧眼の魔術師 +17412721 1 --旧神ノーデン +63519819 1 --サウザンド・アイズ・サクリファイス +18239909 1 --Ignister Prominence, The Blasting Dracoslayer +14733538 1 --Draco Face-Off +58577036 1 --Reasoning +70368879 1 --Upstart Goblin +#semi limit +37742478 2 --オネスト +85087012 2 --カードガンナー +74311226 2 --海皇の竜騎隊 +00423585 2 --召喚僧サモンプリースト +28297833 2 --ネクロフェイス +94886282 2 --光の援軍 +57143342 2 --彼岸の悪鬼 ガトルホッグ +53129443 2 --ブラック・ホール +62265044 2 --竜の渓谷 +91623717 2 --連鎖爆撃 +29843091 2 --おジャマトリオ +36468556 2 --停戦協定 +67723438 2 --Emergency Teleport +01475311 2 --闇の誘惑 +14943837 2 --デブリ・ドラゴン + +!2016.4 Worlds/Anime +#forbidden anime +511000822 0 --Crush Card Virus +511002481 0 --Soul Exchange +511002598 0 --Glow-Up Bulb +511000736 0 --Wing Requital +100000239 0 --Xyz Treasure +100000000 0 --Chaos End Ruler -Ruler of the Beginning and the End- +511000787 0 --Rose Shaman +511000814 0 --Extra Fusion +511000672 0 --Fire Whip +511001629 0 --Graveyard Rebound +511000333 0 --Quick Rush +511001582 0 --Performage Hurricane +810000088 0 --Pillager +511001307 0 --Energy Drain +511000435 0 --Golden Castle of Stromberg +511001417 0 --Water of Life +511001125 0 --Life Shaver +511000866 0 --Xyz Trasure Ticket +95000000 0 --Boss Duel +511001758 0 --Akashic Record +511000729 0 --Berserk Mode +511001186 0 --Contract with Don Thousand +511001143 0 --Power Balance +29654737 0 --Amazoness Chain Master +110000110 0 --Big Bang Blow +100000704 0 --Darkness Outsider +511000585 0 --Level Jar +511000618 0 --Insightful Cards of Reversal +170000119 0 --Blasting Vein +511000691 0 --Card Exchange +511000207 0 --Card of Burial Magic +511000752 0 --Card of Compensation +511001149 0 --Card of Demise +511000784 0 --Card of Desperation +42664989 0 --Card of Sanctity +511000204 0 --Card of Spell Containment +511000654 0 --Card of Variation +810000021 0 --Deepest Impact +511000471 0 --Drawber +810000082 0 --Giant Flood +511000554 0 --Heaven's Lost Property +100000083 0 --Illusion Gate +511000504 0 --Magician's Archive +85852291 0 --Magical Mallet +511001133 0 --Mischief of the Time Goddess +93108433 0 --Monster Recovery +511000461 0 --Monster Replace +40703222 0 --Multiply +511000399 0 --Negative Energy Generator +511000270 0 --Nibelung's Treasure +100000247 0 --Philosopher's Stone - Sabatiel +34016756 0 --Riryoku +511001142 0 --Roll of Fate +54447022 0 --Soul Charge +511000171 0 --Spell Sanctuary +511000506 0 --Spellbook Inside the Pot +100000186 0 --Sphere Field +511000180 0 --Surprise Attack from Beyond +170000117 0 --Time Fusion +511000091 0 --Turn Jump +511000084 0 --White Night Fort +200000004 0 --Winning Formula +511001119 0 --Deck Destruction Virus +511000464 0 --Domain of the Dark Ruler +800000000 0 --Forceful Deal +37520316 0 --Mind Control +57728570 0 --Crush Card Virus +17484499 0 --Exchange of the Spirit +29762407 0 --Temple of the Kings +511000920 0 --Spell Transfer +100000239 0 --Xyz Treasure +100000312 0 --Past Life +511001207 0 --Draw Slime +100000274 0 --Destiny HERO - The Dark Angel +100000474 0 --Fusion Birth +511000407 0 --Curse Transfer +810000032 0 --Depth Eruption +10000020 0 --Slifer the Sky Dragon +10000010 0 --The Winged Dragon of Ra +10000000 0 --Obelisk the Tormentor +450000130 0 --Card of Last Will +512000007 0 --Underworld Circle +512000008 0 --Nibelung's Treasure +513000000 0 --Virus Cannon +511002736 0 --Hell Gift +513000027 0 --Ebon Sun +513000007 0 --Sea of Rebirth +513000009 0 --Crush Card Virus +#forbidden tcg ocg +27279764 0 --Apoqliphort Towers +53804307 0 --Blaster, Dragon Ruler of Infernos +82301904 0 --Chaos Emperor Dragon - Envoy of the End +34124316 0 --Cyber Jar +69015963 0 --Cyber-Stein +56570271 0 --Destiny HERO - Disk Commander +08903700 0 --Djinn Releaser of Rituals +40044918 0 --Elemental HERO Stratos +78706415 0 --Fiber Jar +93369354 0 --Fishborg Blaster +21593977 0 --Makyura the Destructor +34206604 0 --Magical Scientist +31560081 0 --Magician of Faith +96782886 0 --Mind Master +33508719 0 --Morphing Jar +79106360 0 --Morphing Jar #2 +17330916 0 --Performapal Monkeyboard +90411554 0 --Redox, Dragon Ruler of Boulders +14878871 0 --Rescue Cat +89399912 0 --Tempest, Dragon Ruler of Storms +26400609 0 --Tidal, Dragon Ruler of Waterfalls +33184167 0 --Tribe-Infecting Virus +44910027 0 --Victory Dragon +16923472 0 --Wind-Up Hunter +78010363 0 --Witch of the Black Forest +26202165 0 --Sangan +90307777 0 --Shurit, Strategist of the Nekroz +20663556 0 --Substitoad +03078576 0 --Yata-Garasu +20366274 0 --El Shaddoll Construct +17412721 0 --Elder Entity Norden +50321796 0 --Brionac, Dragon of the Ice Barrier +07391448 0 --Goyo Guardian +46772449 0 --Evilswarm Exciton Knight +34086406 0 --Lavalval Chain +54719828 0 --Number 16: Shock Master +18326736 0 --Tellarknight Ptolemaeus +81122844 0 --Wind-Up Carrier Zenmaity +87910978 0 --Brain Control +69243953 0 --Butterfly Dagger - Elma +72892473 0 --Card Destruction +57953380 0 --Card of Safe Return +04031928 0 --Change of Heart +67616300 0 --Chicken Game +60682203 0 --Cold Wave +17375316 0 --Confiscation +44763025 0 --Delinquent Duo +23557835 0 --Dimension Fusion +77565204 0 --Future Fusion +27970830 0 --Gateway of the Six +42703248 0 --Giant Trunade +79571449 0 --Graceful Charity +18144506 0 --Harpie's Feather Duster +19613556 0 --Heavy Storm +85602018 0 --Last Will +17178486 0 --Life Equalizer +34906152 0 --Mass Driver +46411259 0 --Metamorphosis +41482598 0 --Mirage of Nightmare +83764718 0 --Monster Reborn +74191942 0 --Painful Choice +67169062 0 --Pot of Avarice +55144522 0 --Pot of Greed +70828912 0 --Premature Burial +12580477 0 --Raigeki +45986603 0 --Snatch Steal +46448938 0 --Spellbook of Judgment +48130397 0 --Super Polymerization +27770341 0 --Super Rejuvenation +42829885 0 --The Forceful Sentry +31222701 0 --Wavering Eyes +61740673 0 --Imperial Order +28566710 0 --Last Turn +27174286 0 --Return from the Different Dimension +93016201 0 --Royal Oppression +57585212 0 --Self-Destruct Button +03280747 0 --Sixth Sense +41420027 0 --Solemn Judgment +35316708 0 --Time Seal +64697231 0 --Trap Dustshoot +80604091 0 --Ultimate Offering +513000002 0 --Mirror Wall +513000057 0 --Sabatiel - The Philosopher's Stone +68819554 0 --Performage Damage Juggler +7563579 0 --Performage Plushfire +#limit anime +511000680 1 --Ice Age Panic +511001614 1 --Spirit Xyz Spark +511001642 1 --Synchro Alliance +100000478 1 --Ties of the Brethren +511000551 1 --Treasures of the Dead +511001172 1 --Underwater Snow Prison +511000829 1 --Re-Xyz +100000470 1 --Soul Fusion +511000809 1 --Spectral Ice Floe +511001612 1 --Numbers Exist +511001583 1 --Fortress of Prophecy +501000081 1 --Sakyo, Swordsmaster of the Far East +501000080 1 --Kuzunoha, the Onmyojin +501000079 1 --The Twin Kings, Founders of the Empire +501000078 1 --Leonardo's Silver Skyship +501000019 1 --Grandopolis, the Eternal Golden City +501000018 1 --E Hero Pit Boss +501000017 1 --Legendary Magician of Dark +501000016 1 --Legendary Magician of White +501000015 1 --Queen Nereia the Silvercrown +501000014 1 --King Landia the Goldfang +501000013 1 --Grizzly, the Red Star Beast +501000012 1 --Stardust Divinity +501000011 1 --Skuna, the Leonine Rakan +501000010 1 --Aggiba, the Malevolent Sh'nn S'yo +501000009 1 --Lorelei, the Symphonic Arsenal +501000008 1 --Tyr, the Vanquishing Warlord +501000007 1 --Emperor of Lightning +501000006 1 --Chimaera, the Master of Beasts +501000005 1 --Armament of the Lethal Lords +501000004 1 --Testament of the Arcane Lords +501000003 1 --Queen of Fate - Eternia +501000002 1 --King of Destruction - Xexex +501000001 1 --Meteo the Matchless +501000000 1 --Ulevo +511000544 1 --Mother Spider +511000789 1 --Briar Transplant +511000800 1 --Celestial Bell Tower +511000036 1 --Jurassic Impact +810000002 1 --Dark Spell Regeneration +511000418 1 --Beckon to Darkness +500000147 1 --École de Zone +511000443 1 --Path to Destiny +95000001 1 --Darkness Outsider/Boss Duel +95000002 1 --Darkness Neosphere/Boss Duel +95000003 1 --Darkness/Boss Duel +95000004 1 --Infinity/Boss Duel +95000005 1 --Zero/Boss Duel +95000006 1 --Darkness 1/Boss Duel +95000007 1 --Darkness 2/Boss Duel +95000008 1 --Darkness 3/Boss Duel +95000009 1 --Toon Gemini Elf/Boss Duel +95000010 1 --Toon Masked Sorcerer/Boss Duel +95000011 1 --Toon Summoned Skull/Boss Duel +95000012 1 --Toon World/Boss Duel +95000013 1 --Comic Hand/Boss Duel +95000014 1 --Relinquished/Boss Duel +95000015 1 --Mimicat/Boss Duel +95000016 1 --Toon Briefcase/Boss Duel +95000017 1 --Numeron Callin/Boss Duel +95000022 1 --Number C1:Numeron Chaos Gate Shunya/Boss Duel +95000023 1 --Numeron Network/Boss Duel +95000024 1 --Numeron Chaos Ritual/Boss Duel +95000025 1 --Number C1000: Numerronius/Boss Duel +95000026 1 --Number iC1000: Numerronius Numerronia/Boss Duel +95000027 1 --Numeron Xyz Revision/Boss Duel +95000028 1 --Numeron Spell Revision/Boss Duel +95000029 1 --Nonexistence/Boss Duel +95000030 1 --Michion, the Timelord/Boss Duel +95000033 1 --Gabrion, the Timelord/Boss Duel +95000036 1 --Sandaion, the Timelord/Boss Duel +95000037 1 --Endless Emptiness/Boss Duel +95000038 1 --Lazion, the Timelord/Boss Duel +95000041 1 --Infinite Light/Boss Duel +95000042 1 --Sephylon, the Ultimate Timelord/Boss Duel +511001726 1 --Ancient Gear Ultimate Hound Dog +100000565 1 --Freezing Dance +511000598 1 --Fallout +110000102 1 --Living Fossil +511000276 1 --Numeron Direct +100000002 1 --Sandaion, the Timelord +100000003 1 --Hailon, the Timelord +100000004 1 --Raphion, the Timelord +100000005 1 --Gabrion, the Timelord +100000006 1 --Kamion, the Timelord +100000007 1 --Zaphion, the Timelord +100000008 1 --Michion, the Timelord +100000009 1 --Lazion, the Timelord +100000015 1 --Sadion, the Timelord +511001131 1 --Clone Dragon +511001273 1 --Number 37: Hope Woven Dragon Spider Shark +170000170 1 --Divine Serpent +51100561 1 --Get Your Game On! +511000970 1 --Mirror Prison +511000167 1 --Dark Wall of Wind +81439173 1 --Foolish Burial +511001821 1 --Necroid Synchro +511001939 1 --Mimicat +511001785 1 --Spell of Pain +511002604 1 --Seal of Orichalcos +200000002 1 --Creator of Miracles +200000000 1 --Creator of Hope +513000001 1 --Mirror Force +513000031 1 --Shooting Quasar Dragon +513000014 1 --T.G. Halberd Cannon +17078030 1 --Wall of Revealing Light +95200000 1 --Command Duel +#limit tcg ocg +28985331 1 --Armageddon Knight +85103922 1 --Artifact Moralltach +72989439 1 --Black Luster Soldier - Envoy of the Beginning +15341821 1 --Dandylion +65192027 1 --Dark Armed Dragon +78868119 1 --Deep Sea Diva +50720316 1 --Elemental HERO Shadow Mist +33396948 1 --Exodia the Forbidden One +64034255 1 --Genex Ally Birdman +20758643 1 --Graff, Malebranche of the Burning Abyss +99177923 1 --Infernity Archfiend +68184115 1 --Inzektor Dragonfly +69207766 1 --Inzektor Hornet +07902349 1 --Left Arm of the Forbidden One +44519536 1 --Left Leg of the Forbidden One +92746535 1 --Luster Pendulum, the Dracoslayer +41386308 1 --Mathematician +28297833 1 --Necroface +80344569 1 --Neo-Spacian Grand Mole +16226786 1 --Night Assailant +47075569 1 --Performapal Pendulum Sorcerer +40318957 1 --Performapal Skullcrobat Joker +65518099 1 --Qliphort Scout +88264978 1 --Red-Eyes Darkness Metal Dragon +85138716 1 --Rescue Rabbit +70903634 1 --Right Arm of the Forbidden One +08124921 1 --Right Leg of the Forbidden One +84764038 1 --Scarm, Malebranche of the Burning Abyss +91110378 1 --Star Seraph Sovereign +00423585 1 --Summoner Monk +71564252 1 --Thunder King Rai-Oh +10802915 1 --Tour Guide From the Underworld +59297550 1 --Wind-Up Magician +72714461 1 --Wisdom-Eye Magician +06602300 1 --Blaze Fenix, the Burning Bombardment Bird +48063985 1 --Ritual Beast Ulti-Cannahawk +63519819 1 --Thousand-Eyes Restrict +45222299 1 --Evigishki Gustkraken +11877465 1 --Evigishki Mind Augus +26674724 1 --Nekroz of Brionac +89463537 1 --Nekroz of Unicore +70583986 1 --Dewloren, Tiger King of the Ice Barrier +18239909 1 --Ignister Prominence, the Blasting Dracoslayer +90953320 1 --T.G. Hyper Librarian +52687916 1 --Trishula, Dragon of the Ice Barrier +83531441 1 --Dante, Traveler of the Burning Abyss +14087893 1 --Book of Moon +48976825 1 --Burial From a Different Dimension +53129443 1 --Dark Hole +81674782 1 --Dimensional Fissure +15854426 1 --Divine Wind of Mist Valley +84171830 1 --Domain of the True Monarchs +14733538 1 --Draco Face-Off +62265044 1 --Dragon Ravine +06417578 1 --El Shaddoll Fusion +67723438 1 --Emergency Teleport +95308449 1 --Final Countdown +81439173 1 --Foolish Burial +75500286 1 --Gold Sarcophagus +66957584 1 --Infernity Launcher +23171610 1 --Limiter Removal +93600443 1 --Mask Change II +37520316 1 --Mind Control +43040603 1 --Monster Gate +97211663 1 --Nekroz Cycle +33782437 1 --One Day of Peace +02295440 1 --One for One +22842126 1 --Pantheism of the Monarchs +53208660 1 --Pendulum Call +96729612 1 --Preparation of Rites +23701465 1 --Primal Seed +58577036 1 --Reasoning +32807846 1 --Reinforcement of the Army +74845897 1 --Rekindling +72405967 1 --Royal Tribute +17639150 1 --Saqlifice +45305419 1 --Symbol of Heritage +70368879 1 --Upstart Goblin +29401950 1 --Bottomless Trap Hole +36468556 1 --Ceasefire +94192409 1 --Compulsory Evacuation Device +54974237 1 --Eradicator Epidemic Virus +09059700 1 --Infernity Barrier +30241314 1 --Macro Cosmos +32723153 1 --Magical Explosion +83555666 1 --Ring of Destruction +82732705 1 --Skill Drain +84749824 1 --Solemn Warning +73599290 1 --Soul Drain +53582587 1 --Torrential Tribute +05851097 1 --Vanity's Emptiness +#semi limit anime +511000494 2 --Effect Shut +100000020 2 --After Glow +#semi limit tcg ocg +74311226 2 --Atlantean Dragoons +85087012 2 --Card Trooper +57143342 2 --Cir, Malebranche of the Burning Abyss +14943837 2 --Debris Dragon +37742478 2 --Honest +92826944 2 --Mezuki +10028593 2 --Reborn Tengu +01475311 2 --Allure of Darkness +91623717 2 --Chain Strike +94886282 2 --Charge of the Light Brigade +29843091 2 --Ojama Trio +77505534 2 --Sinister Shadow Games diff --git a/pics/10000000.jpg b/pics/10000000.jpg deleted file mode 100644 index 32c48eee..00000000 Binary files a/pics/10000000.jpg and /dev/null differ diff --git a/pics/100000000.jpg b/pics/100000000.jpg deleted file mode 100644 index d92b1043..00000000 Binary files a/pics/100000000.jpg and /dev/null differ diff --git a/pics/100000001.jpg b/pics/100000001.jpg deleted file mode 100644 index faa8b9ae..00000000 Binary files a/pics/100000001.jpg and /dev/null differ diff --git a/pics/100000002.jpg b/pics/100000002.jpg deleted file mode 100644 index 031b90de..00000000 Binary files a/pics/100000002.jpg and /dev/null differ diff --git a/pics/100000003.jpg b/pics/100000003.jpg deleted file mode 100644 index c93801c5..00000000 Binary files a/pics/100000003.jpg and /dev/null differ diff --git a/pics/100000004.jpg b/pics/100000004.jpg deleted file mode 100644 index cace82e9..00000000 Binary files a/pics/100000004.jpg and /dev/null differ diff --git a/pics/100000005.jpg b/pics/100000005.jpg deleted file mode 100644 index f1bf4316..00000000 Binary files a/pics/100000005.jpg and /dev/null differ diff --git a/pics/100000006.jpg b/pics/100000006.jpg deleted file mode 100644 index e6224a9d..00000000 Binary files a/pics/100000006.jpg and /dev/null differ diff --git a/pics/100000007.jpg b/pics/100000007.jpg deleted file mode 100644 index 5789422f..00000000 Binary files a/pics/100000007.jpg and /dev/null differ diff --git a/pics/100000008.jpg b/pics/100000008.jpg deleted file mode 100644 index 5fc20713..00000000 Binary files a/pics/100000008.jpg and /dev/null differ diff --git a/pics/100000009.jpg b/pics/100000009.jpg deleted file mode 100644 index ebe3b8b2..00000000 Binary files a/pics/100000009.jpg and /dev/null differ diff --git a/pics/10000001.jpg b/pics/10000001.jpg deleted file mode 100644 index 429481cc..00000000 Binary files a/pics/10000001.jpg and /dev/null differ diff --git a/pics/100000010.jpg b/pics/100000010.jpg deleted file mode 100644 index b54b5a5d..00000000 Binary files a/pics/100000010.jpg and /dev/null differ diff --git a/pics/100000011.jpg b/pics/100000011.jpg deleted file mode 100644 index 37b88ff0..00000000 Binary files a/pics/100000011.jpg and /dev/null differ diff --git a/pics/100000012.jpg b/pics/100000012.jpg deleted file mode 100644 index 053f66ac..00000000 Binary files a/pics/100000012.jpg and /dev/null differ diff --git a/pics/100000013.jpg b/pics/100000013.jpg deleted file mode 100644 index affcdc00..00000000 Binary files a/pics/100000013.jpg and /dev/null differ diff --git a/pics/100000014.jpg b/pics/100000014.jpg deleted file mode 100644 index de4ad258..00000000 Binary files a/pics/100000014.jpg and /dev/null differ diff --git a/pics/100000015.jpg b/pics/100000015.jpg deleted file mode 100644 index d0d29fbf..00000000 Binary files a/pics/100000015.jpg and /dev/null differ diff --git a/pics/100000020.jpg b/pics/100000020.jpg deleted file mode 100644 index e0748adb..00000000 Binary files a/pics/100000020.jpg and /dev/null differ diff --git a/pics/100000021.jpg b/pics/100000021.jpg deleted file mode 100644 index f8793303..00000000 Binary files a/pics/100000021.jpg and /dev/null differ diff --git a/pics/100000022.jpg b/pics/100000022.jpg deleted file mode 100644 index bf628a90..00000000 Binary files a/pics/100000022.jpg and /dev/null differ diff --git a/pics/100000023.jpg b/pics/100000023.jpg deleted file mode 100644 index 3bf56d13..00000000 Binary files a/pics/100000023.jpg and /dev/null differ diff --git a/pics/100000024.jpg b/pics/100000024.jpg deleted file mode 100644 index 4d4ac000..00000000 Binary files a/pics/100000024.jpg and /dev/null differ diff --git a/pics/100000025.jpg b/pics/100000025.jpg deleted file mode 100644 index d311543c..00000000 Binary files a/pics/100000025.jpg and /dev/null differ diff --git a/pics/100000026.jpg b/pics/100000026.jpg deleted file mode 100644 index 630268e5..00000000 Binary files a/pics/100000026.jpg and /dev/null differ diff --git a/pics/100000027.jpg b/pics/100000027.jpg deleted file mode 100644 index 05cdac9c..00000000 Binary files a/pics/100000027.jpg and /dev/null differ diff --git a/pics/100000028.jpg b/pics/100000028.jpg deleted file mode 100644 index da8f1994..00000000 Binary files a/pics/100000028.jpg and /dev/null differ diff --git a/pics/100000029.jpg b/pics/100000029.jpg deleted file mode 100644 index 00bd3ff8..00000000 Binary files a/pics/100000029.jpg and /dev/null differ diff --git a/pics/100000030.jpg b/pics/100000030.jpg deleted file mode 100644 index 8dc7b682..00000000 Binary files a/pics/100000030.jpg and /dev/null differ diff --git a/pics/100000031.jpg b/pics/100000031.jpg deleted file mode 100644 index 4b060b9d..00000000 Binary files a/pics/100000031.jpg and /dev/null differ diff --git a/pics/100000032.jpg b/pics/100000032.jpg deleted file mode 100644 index d822bf87..00000000 Binary files a/pics/100000032.jpg and /dev/null differ diff --git a/pics/100000033.jpg b/pics/100000033.jpg deleted file mode 100644 index d7ca01f9..00000000 Binary files a/pics/100000033.jpg and /dev/null differ diff --git a/pics/100000034.jpg b/pics/100000034.jpg deleted file mode 100644 index 8b0a74a4..00000000 Binary files a/pics/100000034.jpg and /dev/null differ diff --git a/pics/100000035.jpg b/pics/100000035.jpg deleted file mode 100644 index d752dacc..00000000 Binary files a/pics/100000035.jpg and /dev/null differ diff --git a/pics/100000036.jpg b/pics/100000036.jpg deleted file mode 100644 index a33d3542..00000000 Binary files a/pics/100000036.jpg and /dev/null differ diff --git a/pics/100000037.jpg b/pics/100000037.jpg deleted file mode 100644 index 15e0a003..00000000 Binary files a/pics/100000037.jpg and /dev/null differ diff --git a/pics/100000038.jpg b/pics/100000038.jpg deleted file mode 100644 index ae6bf0dc..00000000 Binary files a/pics/100000038.jpg and /dev/null differ diff --git a/pics/100000039.jpg b/pics/100000039.jpg deleted file mode 100644 index e61a54de..00000000 Binary files a/pics/100000039.jpg and /dev/null differ diff --git a/pics/100000040.jpg b/pics/100000040.jpg deleted file mode 100644 index babf77ec..00000000 Binary files a/pics/100000040.jpg and /dev/null differ diff --git a/pics/100000041.jpg b/pics/100000041.jpg deleted file mode 100644 index 47030b78..00000000 Binary files a/pics/100000041.jpg and /dev/null differ diff --git a/pics/100000042.jpg b/pics/100000042.jpg deleted file mode 100644 index 40ab72b8..00000000 Binary files a/pics/100000042.jpg and /dev/null differ diff --git a/pics/100000043.jpg b/pics/100000043.jpg deleted file mode 100644 index 2f3e385c..00000000 Binary files a/pics/100000043.jpg and /dev/null differ diff --git a/pics/100000044.jpg b/pics/100000044.jpg deleted file mode 100644 index 831b78b2..00000000 Binary files a/pics/100000044.jpg and /dev/null differ diff --git a/pics/100000045.jpg b/pics/100000045.jpg deleted file mode 100644 index e0e14021..00000000 Binary files a/pics/100000045.jpg and /dev/null differ diff --git a/pics/100000046.jpg b/pics/100000046.jpg deleted file mode 100644 index f8350a7f..00000000 Binary files a/pics/100000046.jpg and /dev/null differ diff --git a/pics/100000047.jpg b/pics/100000047.jpg deleted file mode 100644 index 0c37c616..00000000 Binary files a/pics/100000047.jpg and /dev/null differ diff --git a/pics/100000048.jpg b/pics/100000048.jpg deleted file mode 100644 index dedfb31d..00000000 Binary files a/pics/100000048.jpg and /dev/null differ diff --git a/pics/100000049.jpg b/pics/100000049.jpg deleted file mode 100644 index 43909934..00000000 Binary files a/pics/100000049.jpg and /dev/null differ diff --git a/pics/100000050.jpg b/pics/100000050.jpg deleted file mode 100644 index 5448fc39..00000000 Binary files a/pics/100000050.jpg and /dev/null differ diff --git a/pics/100000051.jpg b/pics/100000051.jpg deleted file mode 100644 index ddfaa86d..00000000 Binary files a/pics/100000051.jpg and /dev/null differ diff --git a/pics/100000052.jpg b/pics/100000052.jpg deleted file mode 100644 index 80002cc3..00000000 Binary files a/pics/100000052.jpg and /dev/null differ diff --git a/pics/100000053.jpg b/pics/100000053.jpg deleted file mode 100644 index 60f704b4..00000000 Binary files a/pics/100000053.jpg and /dev/null differ diff --git a/pics/100000054.jpg b/pics/100000054.jpg deleted file mode 100644 index 493f513e..00000000 Binary files a/pics/100000054.jpg and /dev/null differ diff --git a/pics/100000055.jpg b/pics/100000055.jpg deleted file mode 100644 index 671dd1c7..00000000 Binary files a/pics/100000055.jpg and /dev/null differ diff --git a/pics/100000056.jpg b/pics/100000056.jpg deleted file mode 100644 index 3809489e..00000000 Binary files a/pics/100000056.jpg and /dev/null differ diff --git a/pics/100000057.jpg b/pics/100000057.jpg deleted file mode 100644 index ec6dd0df..00000000 Binary files a/pics/100000057.jpg and /dev/null differ diff --git a/pics/100000058.jpg b/pics/100000058.jpg deleted file mode 100644 index d7f94b80..00000000 Binary files a/pics/100000058.jpg and /dev/null differ diff --git a/pics/100000059.jpg b/pics/100000059.jpg deleted file mode 100644 index c86bb133..00000000 Binary files a/pics/100000059.jpg and /dev/null differ diff --git a/pics/100000060.jpg b/pics/100000060.jpg deleted file mode 100644 index 0730a6fc..00000000 Binary files a/pics/100000060.jpg and /dev/null differ diff --git a/pics/100000061.jpg b/pics/100000061.jpg deleted file mode 100644 index 9bfe3b02..00000000 Binary files a/pics/100000061.jpg and /dev/null differ diff --git a/pics/100000062.jpg b/pics/100000062.jpg deleted file mode 100644 index 11de8821..00000000 Binary files a/pics/100000062.jpg and /dev/null differ diff --git a/pics/100000063.jpg b/pics/100000063.jpg deleted file mode 100644 index b3ed9072..00000000 Binary files a/pics/100000063.jpg and /dev/null differ diff --git a/pics/100000064.jpg b/pics/100000064.jpg deleted file mode 100644 index e36b1bed..00000000 Binary files a/pics/100000064.jpg and /dev/null differ diff --git a/pics/100000065.jpg b/pics/100000065.jpg deleted file mode 100644 index 449f8ff2..00000000 Binary files a/pics/100000065.jpg and /dev/null differ diff --git a/pics/100000066.jpg b/pics/100000066.jpg deleted file mode 100644 index 325d836f..00000000 Binary files a/pics/100000066.jpg and /dev/null differ diff --git a/pics/100000067.jpg b/pics/100000067.jpg deleted file mode 100644 index 504947de..00000000 Binary files a/pics/100000067.jpg and /dev/null differ diff --git a/pics/100000068.jpg b/pics/100000068.jpg deleted file mode 100644 index 5722fbdb..00000000 Binary files a/pics/100000068.jpg and /dev/null differ diff --git a/pics/100000069.jpg b/pics/100000069.jpg deleted file mode 100644 index 5e6820ac..00000000 Binary files a/pics/100000069.jpg and /dev/null differ diff --git a/pics/100000070.jpg b/pics/100000070.jpg deleted file mode 100644 index efa06dd1..00000000 Binary files a/pics/100000070.jpg and /dev/null differ diff --git a/pics/100000071.jpg b/pics/100000071.jpg deleted file mode 100644 index d8fadf14..00000000 Binary files a/pics/100000071.jpg and /dev/null differ diff --git a/pics/100000072.jpg b/pics/100000072.jpg deleted file mode 100644 index 9b68d249..00000000 Binary files a/pics/100000072.jpg and /dev/null differ diff --git a/pics/100000073.jpg b/pics/100000073.jpg deleted file mode 100644 index c8013273..00000000 Binary files a/pics/100000073.jpg and /dev/null differ diff --git a/pics/100000074.jpg b/pics/100000074.jpg deleted file mode 100644 index 7890044f..00000000 Binary files a/pics/100000074.jpg and /dev/null differ diff --git a/pics/100000075.jpg b/pics/100000075.jpg deleted file mode 100644 index 760e6443..00000000 Binary files a/pics/100000075.jpg and /dev/null differ diff --git a/pics/100000076.jpg b/pics/100000076.jpg deleted file mode 100644 index 4fc13663..00000000 Binary files a/pics/100000076.jpg and /dev/null differ diff --git a/pics/100000078.jpg b/pics/100000078.jpg deleted file mode 100644 index 3cfae00c..00000000 Binary files a/pics/100000078.jpg and /dev/null differ diff --git a/pics/100000079.jpg b/pics/100000079.jpg deleted file mode 100644 index 682f2e99..00000000 Binary files a/pics/100000079.jpg and /dev/null differ diff --git a/pics/100000080.jpg b/pics/100000080.jpg deleted file mode 100644 index 78a535fd..00000000 Binary files a/pics/100000080.jpg and /dev/null differ diff --git a/pics/100000081.jpg b/pics/100000081.jpg deleted file mode 100644 index be91d3fa..00000000 Binary files a/pics/100000081.jpg and /dev/null differ diff --git a/pics/100000082.jpg b/pics/100000082.jpg deleted file mode 100644 index d268cfb1..00000000 Binary files a/pics/100000082.jpg and /dev/null differ diff --git a/pics/100000083.jpg b/pics/100000083.jpg deleted file mode 100644 index d157c639..00000000 Binary files a/pics/100000083.jpg and /dev/null differ diff --git a/pics/100000084.jpg b/pics/100000084.jpg deleted file mode 100644 index 2f55e096..00000000 Binary files a/pics/100000084.jpg and /dev/null differ diff --git a/pics/100000085.jpg b/pics/100000085.jpg deleted file mode 100644 index 183e464e..00000000 Binary files a/pics/100000085.jpg and /dev/null differ diff --git a/pics/100000086.jpg b/pics/100000086.jpg deleted file mode 100644 index 4d941fa7..00000000 Binary files a/pics/100000086.jpg and /dev/null differ diff --git a/pics/100000087.jpg b/pics/100000087.jpg deleted file mode 100644 index e329e516..00000000 Binary files a/pics/100000087.jpg and /dev/null differ diff --git a/pics/100000088.jpg b/pics/100000088.jpg deleted file mode 100644 index 16f637e7..00000000 Binary files a/pics/100000088.jpg and /dev/null differ diff --git a/pics/100000089.jpg b/pics/100000089.jpg deleted file mode 100644 index 57ed1281..00000000 Binary files a/pics/100000089.jpg and /dev/null differ diff --git a/pics/100000090.jpg b/pics/100000090.jpg deleted file mode 100644 index 712a6e2c..00000000 Binary files a/pics/100000090.jpg and /dev/null differ diff --git a/pics/100000091.jpg b/pics/100000091.jpg deleted file mode 100644 index 8cb8bbf1..00000000 Binary files a/pics/100000091.jpg and /dev/null differ diff --git a/pics/100000092.jpg b/pics/100000092.jpg deleted file mode 100644 index 4cf71db1..00000000 Binary files a/pics/100000092.jpg and /dev/null differ diff --git a/pics/100000093.jpg b/pics/100000093.jpg deleted file mode 100644 index 7736bf1f..00000000 Binary files a/pics/100000093.jpg and /dev/null differ diff --git a/pics/100000094.jpg b/pics/100000094.jpg deleted file mode 100644 index f250f7a8..00000000 Binary files a/pics/100000094.jpg and /dev/null differ diff --git a/pics/100000096.jpg b/pics/100000096.jpg deleted file mode 100644 index 376f71b2..00000000 Binary files a/pics/100000096.jpg and /dev/null differ diff --git a/pics/100000097.jpg b/pics/100000097.jpg deleted file mode 100644 index 9eda4236..00000000 Binary files a/pics/100000097.jpg and /dev/null differ diff --git a/pics/100000098.jpg b/pics/100000098.jpg deleted file mode 100644 index 852165b0..00000000 Binary files a/pics/100000098.jpg and /dev/null differ diff --git a/pics/100000099.jpg b/pics/100000099.jpg deleted file mode 100644 index f556382e..00000000 Binary files a/pics/100000099.jpg and /dev/null differ diff --git a/pics/10000010.jpg b/pics/10000010.jpg deleted file mode 100644 index bc8049c7..00000000 Binary files a/pics/10000010.jpg and /dev/null differ diff --git a/pics/100000100.jpg b/pics/100000100.jpg deleted file mode 100644 index 24eb16d7..00000000 Binary files a/pics/100000100.jpg and /dev/null differ diff --git a/pics/100000101.jpg b/pics/100000101.jpg deleted file mode 100644 index bf25b5a4..00000000 Binary files a/pics/100000101.jpg and /dev/null differ diff --git a/pics/100000102.jpg b/pics/100000102.jpg deleted file mode 100644 index 9e486d6d..00000000 Binary files a/pics/100000102.jpg and /dev/null differ diff --git a/pics/100000103.jpg b/pics/100000103.jpg deleted file mode 100644 index 63774af3..00000000 Binary files a/pics/100000103.jpg and /dev/null differ diff --git a/pics/100000104.jpg b/pics/100000104.jpg deleted file mode 100644 index f49a1d80..00000000 Binary files a/pics/100000104.jpg and /dev/null differ diff --git a/pics/100000105.jpg b/pics/100000105.jpg deleted file mode 100644 index e65cd13e..00000000 Binary files a/pics/100000105.jpg and /dev/null differ diff --git a/pics/100000106.jpg b/pics/100000106.jpg deleted file mode 100644 index 9748e491..00000000 Binary files a/pics/100000106.jpg and /dev/null differ diff --git a/pics/100000107.jpg b/pics/100000107.jpg deleted file mode 100644 index f55a4d3e..00000000 Binary files a/pics/100000107.jpg and /dev/null differ diff --git a/pics/100000108.jpg b/pics/100000108.jpg deleted file mode 100644 index d518fa57..00000000 Binary files a/pics/100000108.jpg and /dev/null differ diff --git a/pics/100000109.jpg b/pics/100000109.jpg deleted file mode 100644 index 7616392a..00000000 Binary files a/pics/100000109.jpg and /dev/null differ diff --git a/pics/10000011.jpg b/pics/10000011.jpg deleted file mode 100644 index 6a9f7e81..00000000 Binary files a/pics/10000011.jpg and /dev/null differ diff --git a/pics/100000110.jpg b/pics/100000110.jpg deleted file mode 100644 index cdbb8fba..00000000 Binary files a/pics/100000110.jpg and /dev/null differ diff --git a/pics/100000111.jpg b/pics/100000111.jpg deleted file mode 100644 index 02e4fce4..00000000 Binary files a/pics/100000111.jpg and /dev/null differ diff --git a/pics/100000112.jpg b/pics/100000112.jpg deleted file mode 100644 index 3f1653f5..00000000 Binary files a/pics/100000112.jpg and /dev/null differ diff --git a/pics/100000113.jpg b/pics/100000113.jpg deleted file mode 100644 index 063e92c2..00000000 Binary files a/pics/100000113.jpg and /dev/null differ diff --git a/pics/100000114.jpg b/pics/100000114.jpg deleted file mode 100644 index 2095f905..00000000 Binary files a/pics/100000114.jpg and /dev/null differ diff --git a/pics/100000115.jpg b/pics/100000115.jpg deleted file mode 100644 index 9c306836..00000000 Binary files a/pics/100000115.jpg and /dev/null differ diff --git a/pics/100000116.jpg b/pics/100000116.jpg deleted file mode 100644 index dc6cf922..00000000 Binary files a/pics/100000116.jpg and /dev/null differ diff --git a/pics/100000117.jpg b/pics/100000117.jpg deleted file mode 100644 index 4c6aa6cc..00000000 Binary files a/pics/100000117.jpg and /dev/null differ diff --git a/pics/100000118.jpg b/pics/100000118.jpg deleted file mode 100644 index a11f81a0..00000000 Binary files a/pics/100000118.jpg and /dev/null differ diff --git a/pics/100000119.jpg b/pics/100000119.jpg deleted file mode 100644 index 6ce3d808..00000000 Binary files a/pics/100000119.jpg and /dev/null differ diff --git a/pics/100000120.jpg b/pics/100000120.jpg deleted file mode 100644 index b1c9efa9..00000000 Binary files a/pics/100000120.jpg and /dev/null differ diff --git a/pics/100000121.jpg b/pics/100000121.jpg deleted file mode 100644 index 7c8861cf..00000000 Binary files a/pics/100000121.jpg and /dev/null differ diff --git a/pics/100000122.jpg b/pics/100000122.jpg deleted file mode 100644 index 93000c72..00000000 Binary files a/pics/100000122.jpg and /dev/null differ diff --git a/pics/100000124.jpg b/pics/100000124.jpg deleted file mode 100644 index f7afce21..00000000 Binary files a/pics/100000124.jpg and /dev/null differ diff --git a/pics/100000125.jpg b/pics/100000125.jpg deleted file mode 100644 index db22e150..00000000 Binary files a/pics/100000125.jpg and /dev/null differ diff --git a/pics/100000126.jpg b/pics/100000126.jpg deleted file mode 100644 index 3934b7c8..00000000 Binary files a/pics/100000126.jpg and /dev/null differ diff --git a/pics/100000127.jpg b/pics/100000127.jpg deleted file mode 100644 index 18d1e166..00000000 Binary files a/pics/100000127.jpg and /dev/null differ diff --git a/pics/100000128.jpg b/pics/100000128.jpg deleted file mode 100644 index 509dded9..00000000 Binary files a/pics/100000128.jpg and /dev/null differ diff --git a/pics/100000129.jpg b/pics/100000129.jpg deleted file mode 100644 index bcaadd69..00000000 Binary files a/pics/100000129.jpg and /dev/null differ diff --git a/pics/100000136.jpg b/pics/100000136.jpg deleted file mode 100644 index 75335b80..00000000 Binary files a/pics/100000136.jpg and /dev/null differ diff --git a/pics/100000137.jpg b/pics/100000137.jpg deleted file mode 100644 index 5af42ddb..00000000 Binary files a/pics/100000137.jpg and /dev/null differ diff --git a/pics/100000138.jpg b/pics/100000138.jpg deleted file mode 100644 index f0fe841f..00000000 Binary files a/pics/100000138.jpg and /dev/null differ diff --git a/pics/100000139.jpg b/pics/100000139.jpg deleted file mode 100644 index 3742833b..00000000 Binary files a/pics/100000139.jpg and /dev/null differ diff --git a/pics/100000140.jpg b/pics/100000140.jpg deleted file mode 100644 index 8d4ac701..00000000 Binary files a/pics/100000140.jpg and /dev/null differ diff --git a/pics/100000141.jpg b/pics/100000141.jpg deleted file mode 100644 index 0bc3d85e..00000000 Binary files a/pics/100000141.jpg and /dev/null differ diff --git a/pics/100000142.jpg b/pics/100000142.jpg deleted file mode 100644 index 836abe31..00000000 Binary files a/pics/100000142.jpg and /dev/null differ diff --git a/pics/100000143.jpg b/pics/100000143.jpg deleted file mode 100644 index 8d05d9db..00000000 Binary files a/pics/100000143.jpg and /dev/null differ diff --git a/pics/100000144.jpg b/pics/100000144.jpg deleted file mode 100644 index 4fa9a08a..00000000 Binary files a/pics/100000144.jpg and /dev/null differ diff --git a/pics/100000145.jpg b/pics/100000145.jpg deleted file mode 100644 index a3097cfc..00000000 Binary files a/pics/100000145.jpg and /dev/null differ diff --git a/pics/100000146.jpg b/pics/100000146.jpg deleted file mode 100644 index b89ab9a1..00000000 Binary files a/pics/100000146.jpg and /dev/null differ diff --git a/pics/100000147.jpg b/pics/100000147.jpg deleted file mode 100644 index f4de5a6b..00000000 Binary files a/pics/100000147.jpg and /dev/null differ diff --git a/pics/100000149.jpg b/pics/100000149.jpg deleted file mode 100644 index 342b7812..00000000 Binary files a/pics/100000149.jpg and /dev/null differ diff --git a/pics/100000150.jpg b/pics/100000150.jpg deleted file mode 100644 index ab59f156..00000000 Binary files a/pics/100000150.jpg and /dev/null differ diff --git a/pics/100000151.jpg b/pics/100000151.jpg deleted file mode 100644 index 12924e59..00000000 Binary files a/pics/100000151.jpg and /dev/null differ diff --git a/pics/100000152.jpg b/pics/100000152.jpg deleted file mode 100755 index 2e8ec421..00000000 Binary files a/pics/100000152.jpg and /dev/null differ diff --git a/pics/100000153.jpg b/pics/100000153.jpg deleted file mode 100755 index 36d319e6..00000000 Binary files a/pics/100000153.jpg and /dev/null differ diff --git a/pics/100000154.jpg b/pics/100000154.jpg deleted file mode 100644 index 5d634b26..00000000 Binary files a/pics/100000154.jpg and /dev/null differ diff --git a/pics/100000155.jpg b/pics/100000155.jpg deleted file mode 100755 index cdd3b026..00000000 Binary files a/pics/100000155.jpg and /dev/null differ diff --git a/pics/100000156.jpg b/pics/100000156.jpg deleted file mode 100755 index 00227417..00000000 Binary files a/pics/100000156.jpg and /dev/null differ diff --git a/pics/100000157.jpg b/pics/100000157.jpg deleted file mode 100644 index 09724edd..00000000 Binary files a/pics/100000157.jpg and /dev/null differ diff --git a/pics/100000158.jpg b/pics/100000158.jpg deleted file mode 100644 index 1e805879..00000000 Binary files a/pics/100000158.jpg and /dev/null differ diff --git a/pics/100000159.jpg b/pics/100000159.jpg deleted file mode 100644 index a07c5cb3..00000000 Binary files a/pics/100000159.jpg and /dev/null differ diff --git a/pics/100000160.jpg b/pics/100000160.jpg deleted file mode 100644 index 3ddd7af2..00000000 Binary files a/pics/100000160.jpg and /dev/null differ diff --git a/pics/100000161.jpg b/pics/100000161.jpg deleted file mode 100644 index aa32ad4f..00000000 Binary files a/pics/100000161.jpg and /dev/null differ diff --git a/pics/100000162.jpg b/pics/100000162.jpg deleted file mode 100644 index cee66ccd..00000000 Binary files a/pics/100000162.jpg and /dev/null differ diff --git a/pics/100000163.jpg b/pics/100000163.jpg deleted file mode 100644 index 355ceddc..00000000 Binary files a/pics/100000163.jpg and /dev/null differ diff --git a/pics/100000164.jpg b/pics/100000164.jpg deleted file mode 100644 index 4db7d8d6..00000000 Binary files a/pics/100000164.jpg and /dev/null differ diff --git a/pics/100000166.jpg b/pics/100000166.jpg deleted file mode 100644 index 37556f74..00000000 Binary files a/pics/100000166.jpg and /dev/null differ diff --git a/pics/100000167.jpg b/pics/100000167.jpg deleted file mode 100644 index 3e347113..00000000 Binary files a/pics/100000167.jpg and /dev/null differ diff --git a/pics/100000168.jpg b/pics/100000168.jpg deleted file mode 100644 index e4cd7443..00000000 Binary files a/pics/100000168.jpg and /dev/null differ diff --git a/pics/100000169.jpg b/pics/100000169.jpg deleted file mode 100644 index 47f3304a..00000000 Binary files a/pics/100000169.jpg and /dev/null differ diff --git a/pics/100000170.jpg b/pics/100000170.jpg deleted file mode 100644 index 110db215..00000000 Binary files a/pics/100000170.jpg and /dev/null differ diff --git a/pics/100000171.jpg b/pics/100000171.jpg deleted file mode 100644 index 027c4b00..00000000 Binary files a/pics/100000171.jpg and /dev/null differ diff --git a/pics/100000172.jpg b/pics/100000172.jpg deleted file mode 100644 index 98f9e960..00000000 Binary files a/pics/100000172.jpg and /dev/null differ diff --git a/pics/100000173.jpg b/pics/100000173.jpg deleted file mode 100644 index eeeec622..00000000 Binary files a/pics/100000173.jpg and /dev/null differ diff --git a/pics/100000174.jpg b/pics/100000174.jpg deleted file mode 100644 index 69ba0e56..00000000 Binary files a/pics/100000174.jpg and /dev/null differ diff --git a/pics/100000175.jpg b/pics/100000175.jpg deleted file mode 100644 index 73506dd5..00000000 Binary files a/pics/100000175.jpg and /dev/null differ diff --git a/pics/100000176.jpg b/pics/100000176.jpg deleted file mode 100644 index 06789acf..00000000 Binary files a/pics/100000176.jpg and /dev/null differ diff --git a/pics/100000177.jpg b/pics/100000177.jpg deleted file mode 100644 index 46a1d651..00000000 Binary files a/pics/100000177.jpg and /dev/null differ diff --git a/pics/100000178.jpg b/pics/100000178.jpg deleted file mode 100644 index 1b67fb63..00000000 Binary files a/pics/100000178.jpg and /dev/null differ diff --git a/pics/100000179.jpg b/pics/100000179.jpg deleted file mode 100644 index a6b8739f..00000000 Binary files a/pics/100000179.jpg and /dev/null differ diff --git a/pics/100000180.jpg b/pics/100000180.jpg deleted file mode 100644 index 383a658f..00000000 Binary files a/pics/100000180.jpg and /dev/null differ diff --git a/pics/100000181.jpg b/pics/100000181.jpg deleted file mode 100644 index 80095528..00000000 Binary files a/pics/100000181.jpg and /dev/null differ diff --git a/pics/100000182.jpg b/pics/100000182.jpg deleted file mode 100644 index 80918d9b..00000000 Binary files a/pics/100000182.jpg and /dev/null differ diff --git a/pics/100000183.jpg b/pics/100000183.jpg deleted file mode 100644 index ddf42828..00000000 Binary files a/pics/100000183.jpg and /dev/null differ diff --git a/pics/100000185.jpg b/pics/100000185.jpg deleted file mode 100644 index d5417061..00000000 Binary files a/pics/100000185.jpg and /dev/null differ diff --git a/pics/100000186.jpg b/pics/100000186.jpg deleted file mode 100644 index e7924704..00000000 Binary files a/pics/100000186.jpg and /dev/null differ diff --git a/pics/100000187.jpg b/pics/100000187.jpg deleted file mode 100644 index 4cd1b62d..00000000 Binary files a/pics/100000187.jpg and /dev/null differ diff --git a/pics/100000188.jpg b/pics/100000188.jpg deleted file mode 100644 index 11d0c932..00000000 Binary files a/pics/100000188.jpg and /dev/null differ diff --git a/pics/100000189.jpg b/pics/100000189.jpg deleted file mode 100644 index b176636f..00000000 Binary files a/pics/100000189.jpg and /dev/null differ diff --git a/pics/100000190.jpg b/pics/100000190.jpg deleted file mode 100644 index f9375a00..00000000 Binary files a/pics/100000190.jpg and /dev/null differ diff --git a/pics/100000191.jpg b/pics/100000191.jpg deleted file mode 100644 index 3940cc5c..00000000 Binary files a/pics/100000191.jpg and /dev/null differ diff --git a/pics/100000192.jpg b/pics/100000192.jpg deleted file mode 100644 index 99eb23ff..00000000 Binary files a/pics/100000192.jpg and /dev/null differ diff --git a/pics/100000193.jpg b/pics/100000193.jpg deleted file mode 100644 index 161a60e8..00000000 Binary files a/pics/100000193.jpg and /dev/null differ diff --git a/pics/100000194.jpg b/pics/100000194.jpg deleted file mode 100644 index c9cff583..00000000 Binary files a/pics/100000194.jpg and /dev/null differ diff --git a/pics/100000195.jpg b/pics/100000195.jpg deleted file mode 100644 index 44ccc45d..00000000 Binary files a/pics/100000195.jpg and /dev/null differ diff --git a/pics/100000196.jpg b/pics/100000196.jpg deleted file mode 100644 index fc310fe7..00000000 Binary files a/pics/100000196.jpg and /dev/null differ diff --git a/pics/100000197.jpg b/pics/100000197.jpg deleted file mode 100644 index f16da88d..00000000 Binary files a/pics/100000197.jpg and /dev/null differ diff --git a/pics/100000198.jpg b/pics/100000198.jpg deleted file mode 100644 index b44e4691..00000000 Binary files a/pics/100000198.jpg and /dev/null differ diff --git a/pics/100000199.jpg b/pics/100000199.jpg deleted file mode 100644 index 9471a77e..00000000 Binary files a/pics/100000199.jpg and /dev/null differ diff --git a/pics/10000020.jpg b/pics/10000020.jpg deleted file mode 100644 index 3aae04b3..00000000 Binary files a/pics/10000020.jpg and /dev/null differ diff --git a/pics/100000200.jpg b/pics/100000200.jpg deleted file mode 100755 index 9c7a0fd4..00000000 Binary files a/pics/100000200.jpg and /dev/null differ diff --git a/pics/100000206.jpg b/pics/100000206.jpg deleted file mode 100755 index 5bb17c87..00000000 Binary files a/pics/100000206.jpg and /dev/null differ diff --git a/pics/100000209.jpg b/pics/100000209.jpg deleted file mode 100755 index d8a2f022..00000000 Binary files a/pics/100000209.jpg and /dev/null differ diff --git a/pics/10000021.jpg b/pics/10000021.jpg deleted file mode 100644 index 7018a858..00000000 Binary files a/pics/10000021.jpg and /dev/null differ diff --git a/pics/100000210.jpg b/pics/100000210.jpg deleted file mode 100755 index 1ce329b1..00000000 Binary files a/pics/100000210.jpg and /dev/null differ diff --git a/pics/100000211.jpg b/pics/100000211.jpg deleted file mode 100755 index 45a7a0d6..00000000 Binary files a/pics/100000211.jpg and /dev/null differ diff --git a/pics/100000212.jpg b/pics/100000212.jpg deleted file mode 100755 index a94228f6..00000000 Binary files a/pics/100000212.jpg and /dev/null differ diff --git a/pics/100000218.jpg b/pics/100000218.jpg deleted file mode 100755 index aed3ac95..00000000 Binary files a/pics/100000218.jpg and /dev/null differ diff --git a/pics/100000219.jpg b/pics/100000219.jpg deleted file mode 100755 index 19026f87..00000000 Binary files a/pics/100000219.jpg and /dev/null differ diff --git a/pics/100000220.jpg b/pics/100000220.jpg deleted file mode 100755 index 620c0239..00000000 Binary files a/pics/100000220.jpg and /dev/null differ diff --git a/pics/100000221.jpg b/pics/100000221.jpg deleted file mode 100755 index 38334027..00000000 Binary files a/pics/100000221.jpg and /dev/null differ diff --git a/pics/100000222.jpg b/pics/100000222.jpg deleted file mode 100755 index 94c36a89..00000000 Binary files a/pics/100000222.jpg and /dev/null differ diff --git a/pics/100000223.jpg b/pics/100000223.jpg deleted file mode 100755 index 0e36b00d..00000000 Binary files a/pics/100000223.jpg and /dev/null differ diff --git a/pics/100000224.jpg b/pics/100000224.jpg deleted file mode 100755 index 0c246c9c..00000000 Binary files a/pics/100000224.jpg and /dev/null differ diff --git a/pics/100000225.jpg b/pics/100000225.jpg deleted file mode 100644 index dcff11ff..00000000 Binary files a/pics/100000225.jpg and /dev/null differ diff --git a/pics/100000226.jpg b/pics/100000226.jpg deleted file mode 100644 index 03cf6e7c..00000000 Binary files a/pics/100000226.jpg and /dev/null differ diff --git a/pics/100000227.jpg b/pics/100000227.jpg deleted file mode 100755 index dab07826..00000000 Binary files a/pics/100000227.jpg and /dev/null differ diff --git a/pics/100000228.jpg b/pics/100000228.jpg deleted file mode 100755 index a81c1253..00000000 Binary files a/pics/100000228.jpg and /dev/null differ diff --git a/pics/100000229.jpg b/pics/100000229.jpg deleted file mode 100644 index 5cb24e33..00000000 Binary files a/pics/100000229.jpg and /dev/null differ diff --git a/pics/100000230.jpg b/pics/100000230.jpg deleted file mode 100644 index 9e341848..00000000 Binary files a/pics/100000230.jpg and /dev/null differ diff --git a/pics/100000233.jpg b/pics/100000233.jpg deleted file mode 100644 index fc4a83a6..00000000 Binary files a/pics/100000233.jpg and /dev/null differ diff --git a/pics/100000234.jpg b/pics/100000234.jpg deleted file mode 100644 index 177a87c0..00000000 Binary files a/pics/100000234.jpg and /dev/null differ diff --git a/pics/100000235.jpg b/pics/100000235.jpg deleted file mode 100644 index b470b7dc..00000000 Binary files a/pics/100000235.jpg and /dev/null differ diff --git a/pics/100000236.jpg b/pics/100000236.jpg deleted file mode 100644 index 5e78b8fa..00000000 Binary files a/pics/100000236.jpg and /dev/null differ diff --git a/pics/100000237.jpg b/pics/100000237.jpg deleted file mode 100644 index 50e68ba6..00000000 Binary files a/pics/100000237.jpg and /dev/null differ diff --git a/pics/100000238.jpg b/pics/100000238.jpg deleted file mode 100644 index d421e112..00000000 Binary files a/pics/100000238.jpg and /dev/null differ diff --git a/pics/100000239.jpg b/pics/100000239.jpg deleted file mode 100644 index 4d8e8b42..00000000 Binary files a/pics/100000239.jpg and /dev/null differ diff --git a/pics/100000240.jpg b/pics/100000240.jpg deleted file mode 100644 index 39d5ea66..00000000 Binary files a/pics/100000240.jpg and /dev/null differ diff --git a/pics/100000241.jpg b/pics/100000241.jpg deleted file mode 100644 index fd60ce92..00000000 Binary files a/pics/100000241.jpg and /dev/null differ diff --git a/pics/100000242.jpg b/pics/100000242.jpg deleted file mode 100644 index 448c8341..00000000 Binary files a/pics/100000242.jpg and /dev/null differ diff --git a/pics/100000243.jpg b/pics/100000243.jpg deleted file mode 100644 index a7433316..00000000 Binary files a/pics/100000243.jpg and /dev/null differ diff --git a/pics/100000244.jpg b/pics/100000244.jpg deleted file mode 100644 index 6826104a..00000000 Binary files a/pics/100000244.jpg and /dev/null differ diff --git a/pics/100000245.jpg b/pics/100000245.jpg deleted file mode 100644 index da30779c..00000000 Binary files a/pics/100000245.jpg and /dev/null differ diff --git a/pics/100000246.jpg b/pics/100000246.jpg deleted file mode 100644 index c549f03a..00000000 Binary files a/pics/100000246.jpg and /dev/null differ diff --git a/pics/100000247.jpg b/pics/100000247.jpg deleted file mode 100755 index 961e98a2..00000000 Binary files a/pics/100000247.jpg and /dev/null differ diff --git a/pics/100000248.jpg b/pics/100000248.jpg deleted file mode 100644 index d961e037..00000000 Binary files a/pics/100000248.jpg and /dev/null differ diff --git a/pics/100000249.jpg b/pics/100000249.jpg deleted file mode 100644 index 6b9f81be..00000000 Binary files a/pics/100000249.jpg and /dev/null differ diff --git a/pics/100000250.jpg b/pics/100000250.jpg deleted file mode 100644 index 2dbf7ac8..00000000 Binary files a/pics/100000250.jpg and /dev/null differ diff --git a/pics/100000251.jpg b/pics/100000251.jpg deleted file mode 100644 index 5ad17cb3..00000000 Binary files a/pics/100000251.jpg and /dev/null differ diff --git a/pics/100000252.jpg b/pics/100000252.jpg deleted file mode 100644 index 5dc21624..00000000 Binary files a/pics/100000252.jpg and /dev/null differ diff --git a/pics/100000253.jpg b/pics/100000253.jpg deleted file mode 100644 index e83963d7..00000000 Binary files a/pics/100000253.jpg and /dev/null differ diff --git a/pics/100000254.jpg b/pics/100000254.jpg deleted file mode 100644 index 66417f6a..00000000 Binary files a/pics/100000254.jpg and /dev/null differ diff --git a/pics/100000255.jpg b/pics/100000255.jpg deleted file mode 100644 index 6607fb5a..00000000 Binary files a/pics/100000255.jpg and /dev/null differ diff --git a/pics/100000256.jpg b/pics/100000256.jpg deleted file mode 100644 index ebf3240a..00000000 Binary files a/pics/100000256.jpg and /dev/null differ diff --git a/pics/100000257.jpg b/pics/100000257.jpg deleted file mode 100644 index 47305e10..00000000 Binary files a/pics/100000257.jpg and /dev/null differ diff --git a/pics/100000258.jpg b/pics/100000258.jpg deleted file mode 100644 index e3f32720..00000000 Binary files a/pics/100000258.jpg and /dev/null differ diff --git a/pics/100000260.jpg b/pics/100000260.jpg deleted file mode 100644 index ee48e6e2..00000000 Binary files a/pics/100000260.jpg and /dev/null differ diff --git a/pics/100000261.jpg b/pics/100000261.jpg deleted file mode 100644 index 83bb88ce..00000000 Binary files a/pics/100000261.jpg and /dev/null differ diff --git a/pics/100000262.jpg b/pics/100000262.jpg deleted file mode 100644 index 60c43755..00000000 Binary files a/pics/100000262.jpg and /dev/null differ diff --git a/pics/100000263.jpg b/pics/100000263.jpg deleted file mode 100755 index d8fb6dcc..00000000 Binary files a/pics/100000263.jpg and /dev/null differ diff --git a/pics/100000264.jpg b/pics/100000264.jpg deleted file mode 100644 index 0dd113f4..00000000 Binary files a/pics/100000264.jpg and /dev/null differ diff --git a/pics/100000265.jpg b/pics/100000265.jpg deleted file mode 100644 index e8fd9432..00000000 Binary files a/pics/100000265.jpg and /dev/null differ diff --git a/pics/100000270.jpg b/pics/100000270.jpg deleted file mode 100644 index 03614fa9..00000000 Binary files a/pics/100000270.jpg and /dev/null differ diff --git a/pics/100000271.jpg b/pics/100000271.jpg deleted file mode 100644 index 5d947ea5..00000000 Binary files a/pics/100000271.jpg and /dev/null differ diff --git a/pics/100000272.jpg b/pics/100000272.jpg deleted file mode 100644 index db781a41..00000000 Binary files a/pics/100000272.jpg and /dev/null differ diff --git a/pics/100000273.jpg b/pics/100000273.jpg deleted file mode 100644 index 98390de2..00000000 Binary files a/pics/100000273.jpg and /dev/null differ diff --git a/pics/100000274.jpg b/pics/100000274.jpg deleted file mode 100644 index 4743e6de..00000000 Binary files a/pics/100000274.jpg and /dev/null differ diff --git a/pics/100000275.jpg b/pics/100000275.jpg deleted file mode 100755 index f4242661..00000000 Binary files a/pics/100000275.jpg and /dev/null differ diff --git a/pics/100000276.jpg b/pics/100000276.jpg deleted file mode 100644 index 51eed28f..00000000 Binary files a/pics/100000276.jpg and /dev/null differ diff --git a/pics/100000277.jpg b/pics/100000277.jpg deleted file mode 100644 index 8c8c3676..00000000 Binary files a/pics/100000277.jpg and /dev/null differ diff --git a/pics/100000278.jpg b/pics/100000278.jpg deleted file mode 100644 index d2529fba..00000000 Binary files a/pics/100000278.jpg and /dev/null differ diff --git a/pics/100000280.jpg b/pics/100000280.jpg deleted file mode 100644 index 04db5292..00000000 Binary files a/pics/100000280.jpg and /dev/null differ diff --git a/pics/100000281.jpg b/pics/100000281.jpg deleted file mode 100644 index d377fb35..00000000 Binary files a/pics/100000281.jpg and /dev/null differ diff --git a/pics/100000282.jpg b/pics/100000282.jpg deleted file mode 100644 index 1128db40..00000000 Binary files a/pics/100000282.jpg and /dev/null differ diff --git a/pics/100000285.jpg b/pics/100000285.jpg deleted file mode 100644 index 1aefa466..00000000 Binary files a/pics/100000285.jpg and /dev/null differ diff --git a/pics/100000286.jpg b/pics/100000286.jpg deleted file mode 100644 index afe8ee3f..00000000 Binary files a/pics/100000286.jpg and /dev/null differ diff --git a/pics/100000287.jpg b/pics/100000287.jpg deleted file mode 100644 index 1cb47e2b..00000000 Binary files a/pics/100000287.jpg and /dev/null differ diff --git a/pics/100000290.jpg b/pics/100000290.jpg deleted file mode 100644 index a7ffcbc5..00000000 Binary files a/pics/100000290.jpg and /dev/null differ diff --git a/pics/100000291.jpg b/pics/100000291.jpg deleted file mode 100644 index 892314af..00000000 Binary files a/pics/100000291.jpg and /dev/null differ diff --git a/pics/100000292.jpg b/pics/100000292.jpg deleted file mode 100644 index 6aeca957..00000000 Binary files a/pics/100000292.jpg and /dev/null differ diff --git a/pics/100000293.jpg b/pics/100000293.jpg deleted file mode 100644 index b5259010..00000000 Binary files a/pics/100000293.jpg and /dev/null differ diff --git a/pics/100000295.jpg b/pics/100000295.jpg deleted file mode 100644 index b5182b47..00000000 Binary files a/pics/100000295.jpg and /dev/null differ diff --git a/pics/100000296.jpg b/pics/100000296.jpg deleted file mode 100644 index 670ac715..00000000 Binary files a/pics/100000296.jpg and /dev/null differ diff --git a/pics/100000297.jpg b/pics/100000297.jpg deleted file mode 100644 index 537c34bc..00000000 Binary files a/pics/100000297.jpg and /dev/null differ diff --git a/pics/100000298.jpg b/pics/100000298.jpg deleted file mode 100644 index bfd5033c..00000000 Binary files a/pics/100000298.jpg and /dev/null differ diff --git a/pics/10000030.jpg b/pics/10000030.jpg deleted file mode 100644 index b5d65966..00000000 Binary files a/pics/10000030.jpg and /dev/null differ diff --git a/pics/100000300.jpg b/pics/100000300.jpg deleted file mode 100644 index 27708951..00000000 Binary files a/pics/100000300.jpg and /dev/null differ diff --git a/pics/100000301.jpg b/pics/100000301.jpg deleted file mode 100644 index e30dd99e..00000000 Binary files a/pics/100000301.jpg and /dev/null differ diff --git a/pics/100000302.jpg b/pics/100000302.jpg deleted file mode 100644 index 4b0c4ee8..00000000 Binary files a/pics/100000302.jpg and /dev/null differ diff --git a/pics/100000303.jpg b/pics/100000303.jpg deleted file mode 100644 index 6ff1be6a..00000000 Binary files a/pics/100000303.jpg and /dev/null differ diff --git a/pics/100000304.jpg b/pics/100000304.jpg deleted file mode 100644 index 543d19ae..00000000 Binary files a/pics/100000304.jpg and /dev/null differ diff --git a/pics/100000307.jpg b/pics/100000307.jpg deleted file mode 100644 index f8d855ce..00000000 Binary files a/pics/100000307.jpg and /dev/null differ diff --git a/pics/100000308.jpg b/pics/100000308.jpg deleted file mode 100644 index d933da27..00000000 Binary files a/pics/100000308.jpg and /dev/null differ diff --git a/pics/100000309.jpg b/pics/100000309.jpg deleted file mode 100644 index e5cfba3c..00000000 Binary files a/pics/100000309.jpg and /dev/null differ diff --git a/pics/100000312.jpg b/pics/100000312.jpg deleted file mode 100644 index ed32d1b2..00000000 Binary files a/pics/100000312.jpg and /dev/null differ diff --git a/pics/100000315.jpg b/pics/100000315.jpg deleted file mode 100644 index ae5d8e65..00000000 Binary files a/pics/100000315.jpg and /dev/null differ diff --git a/pics/100000316.jpg b/pics/100000316.jpg deleted file mode 100644 index e90c7192..00000000 Binary files a/pics/100000316.jpg and /dev/null differ diff --git a/pics/100000317.jpg b/pics/100000317.jpg deleted file mode 100644 index 199f26d7..00000000 Binary files a/pics/100000317.jpg and /dev/null differ diff --git a/pics/100000318.jpg b/pics/100000318.jpg deleted file mode 100644 index 1b12ad77..00000000 Binary files a/pics/100000318.jpg and /dev/null differ diff --git a/pics/100000320.jpg b/pics/100000320.jpg deleted file mode 100644 index 20eebce3..00000000 Binary files a/pics/100000320.jpg and /dev/null differ diff --git a/pics/100000321.jpg b/pics/100000321.jpg deleted file mode 100644 index e1049d39..00000000 Binary files a/pics/100000321.jpg and /dev/null differ diff --git a/pics/100000322.jpg b/pics/100000322.jpg deleted file mode 100644 index fcecfee0..00000000 Binary files a/pics/100000322.jpg and /dev/null differ diff --git a/pics/100000323.jpg b/pics/100000323.jpg deleted file mode 100644 index 631e7676..00000000 Binary files a/pics/100000323.jpg and /dev/null differ diff --git a/pics/100000330.jpg b/pics/100000330.jpg deleted file mode 100644 index dc60dbcf..00000000 Binary files a/pics/100000330.jpg and /dev/null differ diff --git a/pics/100000331.jpg b/pics/100000331.jpg deleted file mode 100644 index 4a265705..00000000 Binary files a/pics/100000331.jpg and /dev/null differ diff --git a/pics/100000332.jpg b/pics/100000332.jpg deleted file mode 100644 index 96a89e52..00000000 Binary files a/pics/100000332.jpg and /dev/null differ diff --git a/pics/100000333.jpg b/pics/100000333.jpg deleted file mode 100644 index 40852ec6..00000000 Binary files a/pics/100000333.jpg and /dev/null differ diff --git a/pics/100000335.jpg b/pics/100000335.jpg deleted file mode 100644 index 987a34d8..00000000 Binary files a/pics/100000335.jpg and /dev/null differ diff --git a/pics/100000336.jpg b/pics/100000336.jpg deleted file mode 100644 index 73b42fb5..00000000 Binary files a/pics/100000336.jpg and /dev/null differ diff --git a/pics/100000340.jpg b/pics/100000340.jpg deleted file mode 100644 index 79bbdea9..00000000 Binary files a/pics/100000340.jpg and /dev/null differ diff --git a/pics/100000341.jpg b/pics/100000341.jpg deleted file mode 100644 index 35831dff..00000000 Binary files a/pics/100000341.jpg and /dev/null differ diff --git a/pics/100000342.jpg b/pics/100000342.jpg deleted file mode 100644 index ff1fcced..00000000 Binary files a/pics/100000342.jpg and /dev/null differ diff --git a/pics/100000343.jpg b/pics/100000343.jpg deleted file mode 100644 index eb1abe63..00000000 Binary files a/pics/100000343.jpg and /dev/null differ diff --git a/pics/100000344.jpg b/pics/100000344.jpg deleted file mode 100644 index 2041beaf..00000000 Binary files a/pics/100000344.jpg and /dev/null differ diff --git a/pics/100000345.jpg b/pics/100000345.jpg deleted file mode 100644 index d9fc5193..00000000 Binary files a/pics/100000345.jpg and /dev/null differ diff --git a/pics/100000346.jpg b/pics/100000346.jpg deleted file mode 100644 index f6362eec..00000000 Binary files a/pics/100000346.jpg and /dev/null differ diff --git a/pics/100000347.jpg b/pics/100000347.jpg deleted file mode 100644 index 1f190177..00000000 Binary files a/pics/100000347.jpg and /dev/null differ diff --git a/pics/100000348.jpg b/pics/100000348.jpg deleted file mode 100644 index b8e38614..00000000 Binary files a/pics/100000348.jpg and /dev/null differ diff --git a/pics/100000349.jpg b/pics/100000349.jpg deleted file mode 100644 index 2de4ee13..00000000 Binary files a/pics/100000349.jpg and /dev/null differ diff --git a/pics/100000350.jpg b/pics/100000350.jpg deleted file mode 100644 index 81aa8df9..00000000 Binary files a/pics/100000350.jpg and /dev/null differ diff --git a/pics/100000351.jpg b/pics/100000351.jpg deleted file mode 100644 index 375e6c0b..00000000 Binary files a/pics/100000351.jpg and /dev/null differ diff --git a/pics/100000355.jpg b/pics/100000355.jpg deleted file mode 100644 index fdc91f80..00000000 Binary files a/pics/100000355.jpg and /dev/null differ diff --git a/pics/100000360.jpg b/pics/100000360.jpg deleted file mode 100644 index 1bf15fe3..00000000 Binary files a/pics/100000360.jpg and /dev/null differ diff --git a/pics/100000361.jpg b/pics/100000361.jpg deleted file mode 100644 index 128d2030..00000000 Binary files a/pics/100000361.jpg and /dev/null differ diff --git a/pics/100000363.jpg b/pics/100000363.jpg deleted file mode 100644 index 00dbb13d..00000000 Binary files a/pics/100000363.jpg and /dev/null differ diff --git a/pics/100000364.jpg b/pics/100000364.jpg deleted file mode 100644 index bebc4ef3..00000000 Binary files a/pics/100000364.jpg and /dev/null differ diff --git a/pics/100000365.jpg b/pics/100000365.jpg deleted file mode 100755 index 9371d125..00000000 Binary files a/pics/100000365.jpg and /dev/null differ diff --git a/pics/100000370.jpg b/pics/100000370.jpg deleted file mode 100644 index adaee7f9..00000000 Binary files a/pics/100000370.jpg and /dev/null differ diff --git a/pics/100000380.jpg b/pics/100000380.jpg deleted file mode 100644 index 885b074d..00000000 Binary files a/pics/100000380.jpg and /dev/null differ diff --git a/pics/100000381.jpg b/pics/100000381.jpg deleted file mode 100644 index 7ea84330..00000000 Binary files a/pics/100000381.jpg and /dev/null differ diff --git a/pics/100000382.jpg b/pics/100000382.jpg deleted file mode 100644 index bc545db8..00000000 Binary files a/pics/100000382.jpg and /dev/null differ diff --git a/pics/100000383.jpg b/pics/100000383.jpg deleted file mode 100644 index d6a86ec7..00000000 Binary files a/pics/100000383.jpg and /dev/null differ diff --git a/pics/100000384.jpg b/pics/100000384.jpg deleted file mode 100644 index 4c62fc20..00000000 Binary files a/pics/100000384.jpg and /dev/null differ diff --git a/pics/100000390.jpg b/pics/100000390.jpg deleted file mode 100644 index 9f951068..00000000 Binary files a/pics/100000390.jpg and /dev/null differ diff --git a/pics/100000391.jpg b/pics/100000391.jpg deleted file mode 100644 index 4dc25856..00000000 Binary files a/pics/100000391.jpg and /dev/null differ diff --git a/pics/10000040.jpg b/pics/10000040.jpg deleted file mode 100644 index 926b301b..00000000 Binary files a/pics/10000040.jpg and /dev/null differ diff --git a/pics/100000410.jpg b/pics/100000410.jpg deleted file mode 100644 index 115302a3..00000000 Binary files a/pics/100000410.jpg and /dev/null differ diff --git a/pics/100000411.jpg b/pics/100000411.jpg deleted file mode 100644 index 7f5c4b55..00000000 Binary files a/pics/100000411.jpg and /dev/null differ diff --git a/pics/100000412.jpg b/pics/100000412.jpg deleted file mode 100644 index 63df80c3..00000000 Binary files a/pics/100000412.jpg and /dev/null differ diff --git a/pics/100000413.jpg b/pics/100000413.jpg deleted file mode 100644 index f2b02cf2..00000000 Binary files a/pics/100000413.jpg and /dev/null differ diff --git a/pics/100000414.jpg b/pics/100000414.jpg deleted file mode 100644 index 2131f901..00000000 Binary files a/pics/100000414.jpg and /dev/null differ diff --git a/pics/100000430.jpg b/pics/100000430.jpg deleted file mode 100644 index a9ab4615..00000000 Binary files a/pics/100000430.jpg and /dev/null differ diff --git a/pics/100000431.jpg b/pics/100000431.jpg deleted file mode 100644 index cc8b03f3..00000000 Binary files a/pics/100000431.jpg and /dev/null differ diff --git a/pics/100000432.jpg b/pics/100000432.jpg deleted file mode 100644 index 1a4f2b03..00000000 Binary files a/pics/100000432.jpg and /dev/null differ diff --git a/pics/100000440.jpg b/pics/100000440.jpg deleted file mode 100644 index e33c9c0a..00000000 Binary files a/pics/100000440.jpg and /dev/null differ diff --git a/pics/100000441.jpg b/pics/100000441.jpg deleted file mode 100644 index f1355b3e..00000000 Binary files a/pics/100000441.jpg and /dev/null differ diff --git a/pics/100000442.jpg b/pics/100000442.jpg deleted file mode 100644 index d723ab1f..00000000 Binary files a/pics/100000442.jpg and /dev/null differ diff --git a/pics/100000444.jpg b/pics/100000444.jpg deleted file mode 100644 index aae966bf..00000000 Binary files a/pics/100000444.jpg and /dev/null differ diff --git a/pics/100000445.jpg b/pics/100000445.jpg deleted file mode 100644 index 5f1f5477..00000000 Binary files a/pics/100000445.jpg and /dev/null differ diff --git a/pics/100000470.jpg b/pics/100000470.jpg deleted file mode 100644 index bf2222af..00000000 Binary files a/pics/100000470.jpg and /dev/null differ diff --git a/pics/100000471.jpg b/pics/100000471.jpg deleted file mode 100644 index 76b28fb6..00000000 Binary files a/pics/100000471.jpg and /dev/null differ diff --git a/pics/100000473.jpg b/pics/100000473.jpg deleted file mode 100644 index 8efd59b1..00000000 Binary files a/pics/100000473.jpg and /dev/null differ diff --git a/pics/100000474.jpg b/pics/100000474.jpg deleted file mode 100644 index 561c2b59..00000000 Binary files a/pics/100000474.jpg and /dev/null differ diff --git a/pics/100000475.jpg b/pics/100000475.jpg deleted file mode 100644 index e38b22bf..00000000 Binary files a/pics/100000475.jpg and /dev/null differ diff --git a/pics/100000478.jpg b/pics/100000478.jpg deleted file mode 100644 index 8015eb19..00000000 Binary files a/pics/100000478.jpg and /dev/null differ diff --git a/pics/100000480.jpg b/pics/100000480.jpg deleted file mode 100644 index ada67e3f..00000000 Binary files a/pics/100000480.jpg and /dev/null differ diff --git a/pics/100000481.jpg b/pics/100000481.jpg deleted file mode 100644 index a3a5535a..00000000 Binary files a/pics/100000481.jpg and /dev/null differ diff --git a/pics/100000482.jpg b/pics/100000482.jpg deleted file mode 100755 index 684776f5..00000000 Binary files a/pics/100000482.jpg and /dev/null differ diff --git a/pics/100000483.jpg b/pics/100000483.jpg deleted file mode 100755 index 74025486..00000000 Binary files a/pics/100000483.jpg and /dev/null differ diff --git a/pics/100000486.jpg b/pics/100000486.jpg deleted file mode 100644 index 42b42bc2..00000000 Binary files a/pics/100000486.jpg and /dev/null differ diff --git a/pics/100000487.jpg b/pics/100000487.jpg deleted file mode 100644 index 3b4e2676..00000000 Binary files a/pics/100000487.jpg and /dev/null differ diff --git a/pics/100000488.jpg b/pics/100000488.jpg deleted file mode 100644 index 80b54fb8..00000000 Binary files a/pics/100000488.jpg and /dev/null differ diff --git a/pics/100000489.jpg b/pics/100000489.jpg deleted file mode 100644 index 5c62f5ed..00000000 Binary files a/pics/100000489.jpg and /dev/null differ diff --git a/pics/100000490.jpg b/pics/100000490.jpg deleted file mode 100644 index 5d07a84f..00000000 Binary files a/pics/100000490.jpg and /dev/null differ diff --git a/pics/100000498.jpg b/pics/100000498.jpg deleted file mode 100644 index 5dafcfd9..00000000 Binary files a/pics/100000498.jpg and /dev/null differ diff --git a/pics/100000500.jpg b/pics/100000500.jpg deleted file mode 100644 index 80aa5f96..00000000 Binary files a/pics/100000500.jpg and /dev/null differ diff --git a/pics/100000501.jpg b/pics/100000501.jpg deleted file mode 100644 index e8af0375..00000000 Binary files a/pics/100000501.jpg and /dev/null differ diff --git a/pics/100000502.jpg b/pics/100000502.jpg deleted file mode 100644 index 610d641e..00000000 Binary files a/pics/100000502.jpg and /dev/null differ diff --git a/pics/100000503.jpg b/pics/100000503.jpg deleted file mode 100644 index beeb39b0..00000000 Binary files a/pics/100000503.jpg and /dev/null differ diff --git a/pics/100000504.jpg b/pics/100000504.jpg deleted file mode 100644 index 3178f679..00000000 Binary files a/pics/100000504.jpg and /dev/null differ diff --git a/pics/100000505.jpg b/pics/100000505.jpg deleted file mode 100644 index d57ebf9c..00000000 Binary files a/pics/100000505.jpg and /dev/null differ diff --git a/pics/100000506.jpg b/pics/100000506.jpg deleted file mode 100644 index a4594b9f..00000000 Binary files a/pics/100000506.jpg and /dev/null differ diff --git a/pics/100000507.jpg b/pics/100000507.jpg deleted file mode 100644 index 7dd1c040..00000000 Binary files a/pics/100000507.jpg and /dev/null differ diff --git a/pics/100000508.jpg b/pics/100000508.jpg deleted file mode 100644 index 844c4596..00000000 Binary files a/pics/100000508.jpg and /dev/null differ diff --git a/pics/100000509.jpg b/pics/100000509.jpg deleted file mode 100644 index fbdf113c..00000000 Binary files a/pics/100000509.jpg and /dev/null differ diff --git a/pics/100000510.jpg b/pics/100000510.jpg deleted file mode 100644 index 76e1c80a..00000000 Binary files a/pics/100000510.jpg and /dev/null differ diff --git a/pics/100000511.jpg b/pics/100000511.jpg deleted file mode 100644 index 3c5afaaa..00000000 Binary files a/pics/100000511.jpg and /dev/null differ diff --git a/pics/100000512.jpg b/pics/100000512.jpg deleted file mode 100644 index 237bfb08..00000000 Binary files a/pics/100000512.jpg and /dev/null differ diff --git a/pics/100000514.jpg b/pics/100000514.jpg deleted file mode 100644 index 670072fd..00000000 Binary files a/pics/100000514.jpg and /dev/null differ diff --git a/pics/100000515.jpg b/pics/100000515.jpg deleted file mode 100644 index c2639926..00000000 Binary files a/pics/100000515.jpg and /dev/null differ diff --git a/pics/100000516.jpg b/pics/100000516.jpg deleted file mode 100644 index 6b69a927..00000000 Binary files a/pics/100000516.jpg and /dev/null differ diff --git a/pics/100000517.jpg b/pics/100000517.jpg deleted file mode 100644 index 95e4d785..00000000 Binary files a/pics/100000517.jpg and /dev/null differ diff --git a/pics/100000518.jpg b/pics/100000518.jpg deleted file mode 100644 index f137247d..00000000 Binary files a/pics/100000518.jpg and /dev/null differ diff --git a/pics/100000520.jpg b/pics/100000520.jpg deleted file mode 100644 index c832f9c4..00000000 Binary files a/pics/100000520.jpg and /dev/null differ diff --git a/pics/100000523.jpg b/pics/100000523.jpg deleted file mode 100644 index c3259127..00000000 Binary files a/pics/100000523.jpg and /dev/null differ diff --git a/pics/100000524.jpg b/pics/100000524.jpg deleted file mode 100644 index 56c844e0..00000000 Binary files a/pics/100000524.jpg and /dev/null differ diff --git a/pics/100000525.jpg b/pics/100000525.jpg deleted file mode 100644 index 39350d44..00000000 Binary files a/pics/100000525.jpg and /dev/null differ diff --git a/pics/100000526.jpg b/pics/100000526.jpg deleted file mode 100644 index e706d0b1..00000000 Binary files a/pics/100000526.jpg and /dev/null differ diff --git a/pics/100000527.jpg b/pics/100000527.jpg deleted file mode 100644 index 91936b92..00000000 Binary files a/pics/100000527.jpg and /dev/null differ diff --git a/pics/100000528.jpg b/pics/100000528.jpg deleted file mode 100644 index f4380670..00000000 Binary files a/pics/100000528.jpg and /dev/null differ diff --git a/pics/100000529.jpg b/pics/100000529.jpg deleted file mode 100644 index 8f0b5530..00000000 Binary files a/pics/100000529.jpg and /dev/null differ diff --git a/pics/100000530.jpg b/pics/100000530.jpg deleted file mode 100644 index 0112ef66..00000000 Binary files a/pics/100000530.jpg and /dev/null differ diff --git a/pics/100000531.jpg b/pics/100000531.jpg deleted file mode 100644 index bfe9662c..00000000 Binary files a/pics/100000531.jpg and /dev/null differ diff --git a/pics/100000532.jpg b/pics/100000532.jpg deleted file mode 100644 index 3767ee0a..00000000 Binary files a/pics/100000532.jpg and /dev/null differ diff --git a/pics/100000533.jpg b/pics/100000533.jpg deleted file mode 100644 index 777076ad..00000000 Binary files a/pics/100000533.jpg and /dev/null differ diff --git a/pics/100000534.jpg b/pics/100000534.jpg deleted file mode 100644 index 613c7fe7..00000000 Binary files a/pics/100000534.jpg and /dev/null differ diff --git a/pics/100000535.jpg b/pics/100000535.jpg deleted file mode 100644 index 07ede91a..00000000 Binary files a/pics/100000535.jpg and /dev/null differ diff --git a/pics/100000536.jpg b/pics/100000536.jpg deleted file mode 100644 index eb382f72..00000000 Binary files a/pics/100000536.jpg and /dev/null differ diff --git a/pics/100000537.jpg b/pics/100000537.jpg deleted file mode 100644 index 78a2e172..00000000 Binary files a/pics/100000537.jpg and /dev/null differ diff --git a/pics/100000538.jpg b/pics/100000538.jpg deleted file mode 100644 index d5f97fa1..00000000 Binary files a/pics/100000538.jpg and /dev/null differ diff --git a/pics/100000539.jpg b/pics/100000539.jpg deleted file mode 100644 index 134f8d6d..00000000 Binary files a/pics/100000539.jpg and /dev/null differ diff --git a/pics/100000540.jpg b/pics/100000540.jpg deleted file mode 100644 index 504cc83c..00000000 Binary files a/pics/100000540.jpg and /dev/null differ diff --git a/pics/100000541.jpg b/pics/100000541.jpg deleted file mode 100644 index 85355eda..00000000 Binary files a/pics/100000541.jpg and /dev/null differ diff --git a/pics/100000542.jpg b/pics/100000542.jpg deleted file mode 100644 index 61a8ab53..00000000 Binary files a/pics/100000542.jpg and /dev/null differ diff --git a/pics/100000543.jpg b/pics/100000543.jpg deleted file mode 100644 index 1b6965bf..00000000 Binary files a/pics/100000543.jpg and /dev/null differ diff --git a/pics/100000544.jpg b/pics/100000544.jpg deleted file mode 100644 index 1d6c88cc..00000000 Binary files a/pics/100000544.jpg and /dev/null differ diff --git a/pics/100000545.jpg b/pics/100000545.jpg deleted file mode 100644 index a5d4c58d..00000000 Binary files a/pics/100000545.jpg and /dev/null differ diff --git a/pics/100000546.jpg b/pics/100000546.jpg deleted file mode 100644 index 9b565542..00000000 Binary files a/pics/100000546.jpg and /dev/null differ diff --git a/pics/100000547.jpg b/pics/100000547.jpg deleted file mode 100644 index d13427f8..00000000 Binary files a/pics/100000547.jpg and /dev/null differ diff --git a/pics/100000548.jpg b/pics/100000548.jpg deleted file mode 100644 index a1d5d9f3..00000000 Binary files a/pics/100000548.jpg and /dev/null differ diff --git a/pics/100000549.jpg b/pics/100000549.jpg deleted file mode 100644 index 3421e6cb..00000000 Binary files a/pics/100000549.jpg and /dev/null differ diff --git a/pics/100000550.jpg b/pics/100000550.jpg deleted file mode 100644 index 0886f7ca..00000000 Binary files a/pics/100000550.jpg and /dev/null differ diff --git a/pics/100000551.jpg b/pics/100000551.jpg deleted file mode 100644 index 7bba3934..00000000 Binary files a/pics/100000551.jpg and /dev/null differ diff --git a/pics/100000552.jpg b/pics/100000552.jpg deleted file mode 100644 index 69ed3018..00000000 Binary files a/pics/100000552.jpg and /dev/null differ diff --git a/pics/100000553.jpg b/pics/100000553.jpg deleted file mode 100644 index 1fb4b13a..00000000 Binary files a/pics/100000553.jpg and /dev/null differ diff --git a/pics/100000554.jpg b/pics/100000554.jpg deleted file mode 100644 index c489b415..00000000 Binary files a/pics/100000554.jpg and /dev/null differ diff --git a/pics/100000555.jpg b/pics/100000555.jpg deleted file mode 100644 index 47836681..00000000 Binary files a/pics/100000555.jpg and /dev/null differ diff --git a/pics/100000556.jpg b/pics/100000556.jpg deleted file mode 100644 index 6fafb832..00000000 Binary files a/pics/100000556.jpg and /dev/null differ diff --git a/pics/100000557.jpg b/pics/100000557.jpg deleted file mode 100644 index 46730368..00000000 Binary files a/pics/100000557.jpg and /dev/null differ diff --git a/pics/100000560.jpg b/pics/100000560.jpg deleted file mode 100644 index cf0da74f..00000000 Binary files a/pics/100000560.jpg and /dev/null differ diff --git a/pics/100000561.jpg b/pics/100000561.jpg deleted file mode 100644 index 9d160d81..00000000 Binary files a/pics/100000561.jpg and /dev/null differ diff --git a/pics/100000562.jpg b/pics/100000562.jpg deleted file mode 100644 index d582e550..00000000 Binary files a/pics/100000562.jpg and /dev/null differ diff --git a/pics/100000563.jpg b/pics/100000563.jpg deleted file mode 100644 index 913cc09d..00000000 Binary files a/pics/100000563.jpg and /dev/null differ diff --git a/pics/100000564.jpg b/pics/100000564.jpg deleted file mode 100644 index e34f7725..00000000 Binary files a/pics/100000564.jpg and /dev/null differ diff --git a/pics/100000565.jpg b/pics/100000565.jpg deleted file mode 100644 index eb0345c7..00000000 Binary files a/pics/100000565.jpg and /dev/null differ diff --git a/pics/100000570.jpg b/pics/100000570.jpg deleted file mode 100644 index 9a053f9e..00000000 Binary files a/pics/100000570.jpg and /dev/null differ diff --git a/pics/100000571.jpg b/pics/100000571.jpg deleted file mode 100644 index 6f06427d..00000000 Binary files a/pics/100000571.jpg and /dev/null differ diff --git a/pics/100000580.jpg b/pics/100000580.jpg deleted file mode 100644 index cfeb8b0b..00000000 Binary files a/pics/100000580.jpg and /dev/null differ diff --git a/pics/100000581.jpg b/pics/100000581.jpg deleted file mode 100644 index f27a23bd..00000000 Binary files a/pics/100000581.jpg and /dev/null differ diff --git a/pics/100000582.jpg b/pics/100000582.jpg deleted file mode 100644 index 33affe02..00000000 Binary files a/pics/100000582.jpg and /dev/null differ diff --git a/pics/100000590.jpg b/pics/100000590.jpg deleted file mode 100644 index aac4bd52..00000000 Binary files a/pics/100000590.jpg and /dev/null differ diff --git a/pics/100000591.jpg b/pics/100000591.jpg deleted file mode 100644 index 3d34e64b..00000000 Binary files a/pics/100000591.jpg and /dev/null differ diff --git a/pics/100000592.jpg b/pics/100000592.jpg deleted file mode 100644 index 21e19b7a..00000000 Binary files a/pics/100000592.jpg and /dev/null differ diff --git a/pics/100000593.jpg b/pics/100000593.jpg deleted file mode 100644 index dd9e5c6c..00000000 Binary files a/pics/100000593.jpg and /dev/null differ diff --git a/pics/100000594.jpg b/pics/100000594.jpg deleted file mode 100644 index f011a138..00000000 Binary files a/pics/100000594.jpg and /dev/null differ diff --git a/pics/100000595.jpg b/pics/100000595.jpg deleted file mode 100644 index 2762d052..00000000 Binary files a/pics/100000595.jpg and /dev/null differ diff --git a/pics/100000600.jpg b/pics/100000600.jpg deleted file mode 100644 index da3183ec..00000000 Binary files a/pics/100000600.jpg and /dev/null differ diff --git a/pics/100000601.jpg b/pics/100000601.jpg deleted file mode 100644 index f4c39a0a..00000000 Binary files a/pics/100000601.jpg and /dev/null differ diff --git a/pics/100000602.jpg b/pics/100000602.jpg deleted file mode 100644 index 9daa3495..00000000 Binary files a/pics/100000602.jpg and /dev/null differ diff --git a/pics/100000603.jpg b/pics/100000603.jpg deleted file mode 100644 index 3cd83c6b..00000000 Binary files a/pics/100000603.jpg and /dev/null differ diff --git a/pics/100000604.jpg b/pics/100000604.jpg deleted file mode 100644 index 0062cdab..00000000 Binary files a/pics/100000604.jpg and /dev/null differ diff --git a/pics/100000620.jpg b/pics/100000620.jpg deleted file mode 100644 index 8f29490b..00000000 Binary files a/pics/100000620.jpg and /dev/null differ diff --git a/pics/100000621.jpg b/pics/100000621.jpg deleted file mode 100644 index 00a37ffa..00000000 Binary files a/pics/100000621.jpg and /dev/null differ diff --git a/pics/100000622.jpg b/pics/100000622.jpg deleted file mode 100644 index 34720d1c..00000000 Binary files a/pics/100000622.jpg and /dev/null differ diff --git a/pics/100000630.jpg b/pics/100000630.jpg deleted file mode 100644 index e88f853a..00000000 Binary files a/pics/100000630.jpg and /dev/null differ diff --git a/pics/100000631.jpg b/pics/100000631.jpg deleted file mode 100644 index 9b10fdda..00000000 Binary files a/pics/100000631.jpg and /dev/null differ diff --git a/pics/100000632.jpg b/pics/100000632.jpg deleted file mode 100644 index 19456d94..00000000 Binary files a/pics/100000632.jpg and /dev/null differ diff --git a/pics/100000633.jpg b/pics/100000633.jpg deleted file mode 100644 index e3b7a7b2..00000000 Binary files a/pics/100000633.jpg and /dev/null differ diff --git a/pics/100000650.jpg b/pics/100000650.jpg deleted file mode 100644 index 4a771ba6..00000000 Binary files a/pics/100000650.jpg and /dev/null differ diff --git a/pics/100000651.jpg b/pics/100000651.jpg deleted file mode 100644 index 1002e930..00000000 Binary files a/pics/100000651.jpg and /dev/null differ diff --git a/pics/100000652.jpg b/pics/100000652.jpg deleted file mode 100644 index d7b0b789..00000000 Binary files a/pics/100000652.jpg and /dev/null differ diff --git a/pics/100000653.jpg b/pics/100000653.jpg deleted file mode 100644 index ad1bba41..00000000 Binary files a/pics/100000653.jpg and /dev/null differ diff --git a/pics/100000654.jpg b/pics/100000654.jpg deleted file mode 100644 index d551d490..00000000 Binary files a/pics/100000654.jpg and /dev/null differ diff --git a/pics/100000655.jpg b/pics/100000655.jpg deleted file mode 100644 index b06172a8..00000000 Binary files a/pics/100000655.jpg and /dev/null differ diff --git a/pics/100000656.jpg b/pics/100000656.jpg deleted file mode 100644 index dc63368d..00000000 Binary files a/pics/100000656.jpg and /dev/null differ diff --git a/pics/100000657.jpg b/pics/100000657.jpg deleted file mode 100644 index 60243908..00000000 Binary files a/pics/100000657.jpg and /dev/null differ diff --git a/pics/100000658.jpg b/pics/100000658.jpg deleted file mode 100644 index 1e44bcc0..00000000 Binary files a/pics/100000658.jpg and /dev/null differ diff --git a/pics/100000659.jpg b/pics/100000659.jpg deleted file mode 100644 index a89f28d3..00000000 Binary files a/pics/100000659.jpg and /dev/null differ diff --git a/pics/100000660.jpg b/pics/100000660.jpg deleted file mode 100644 index 585ed75e..00000000 Binary files a/pics/100000660.jpg and /dev/null differ diff --git a/pics/100000661.jpg b/pics/100000661.jpg deleted file mode 100644 index e7ff7a16..00000000 Binary files a/pics/100000661.jpg and /dev/null differ diff --git a/pics/100000662.jpg b/pics/100000662.jpg deleted file mode 100644 index baca33c3..00000000 Binary files a/pics/100000662.jpg and /dev/null differ diff --git a/pics/100000663.jpg b/pics/100000663.jpg deleted file mode 100644 index ca64c561..00000000 Binary files a/pics/100000663.jpg and /dev/null differ diff --git a/pics/100000664.jpg b/pics/100000664.jpg deleted file mode 100644 index 471bf8b7..00000000 Binary files a/pics/100000664.jpg and /dev/null differ diff --git a/pics/100000700.jpg b/pics/100000700.jpg deleted file mode 100644 index 497e25ab..00000000 Binary files a/pics/100000700.jpg and /dev/null differ diff --git a/pics/100000701.jpg b/pics/100000701.jpg deleted file mode 100644 index bbbfc476..00000000 Binary files a/pics/100000701.jpg and /dev/null differ diff --git a/pics/100000702.jpg b/pics/100000702.jpg deleted file mode 100644 index 970d52e7..00000000 Binary files a/pics/100000702.jpg and /dev/null differ diff --git a/pics/100000703.jpg b/pics/100000703.jpg deleted file mode 100644 index 288df478..00000000 Binary files a/pics/100000703.jpg and /dev/null differ diff --git a/pics/100000704.jpg b/pics/100000704.jpg deleted file mode 100644 index 42c86061..00000000 Binary files a/pics/100000704.jpg and /dev/null differ diff --git a/pics/100000705.jpg b/pics/100000705.jpg deleted file mode 100644 index 71611c9c..00000000 Binary files a/pics/100000705.jpg and /dev/null differ diff --git a/pics/100000706.jpg b/pics/100000706.jpg deleted file mode 100644 index d4c1b838..00000000 Binary files a/pics/100000706.jpg and /dev/null differ diff --git a/pics/10000080.jpg b/pics/10000080.jpg deleted file mode 100644 index 0654e8eb..00000000 Binary files a/pics/10000080.jpg and /dev/null differ diff --git a/pics/10000090.jpg b/pics/10000090.jpg deleted file mode 100755 index 1d839a68..00000000 Binary files a/pics/10000090.jpg and /dev/null differ diff --git a/pics/100001001.jpg b/pics/100001001.jpg deleted file mode 100644 index 973d55e9..00000000 Binary files a/pics/100001001.jpg and /dev/null differ diff --git a/pics/100001002.jpg b/pics/100001002.jpg deleted file mode 100644 index da91ec6c..00000000 Binary files a/pics/100001002.jpg and /dev/null differ diff --git a/pics/100001003.jpg b/pics/100001003.jpg deleted file mode 100644 index c201e438..00000000 Binary files a/pics/100001003.jpg and /dev/null differ diff --git a/pics/100001004.jpg b/pics/100001004.jpg deleted file mode 100644 index 70b6b9f3..00000000 Binary files a/pics/100001004.jpg and /dev/null differ diff --git a/pics/100001005.jpg b/pics/100001005.jpg deleted file mode 100644 index 29ed98d8..00000000 Binary files a/pics/100001005.jpg and /dev/null differ diff --git a/pics/100001006.jpg b/pics/100001006.jpg deleted file mode 100644 index 5a3cd777..00000000 Binary files a/pics/100001006.jpg and /dev/null differ diff --git a/pics/100001007.jpg b/pics/100001007.jpg deleted file mode 100644 index e183f37a..00000000 Binary files a/pics/100001007.jpg and /dev/null differ diff --git a/pics/100001008.jpg b/pics/100001008.jpg deleted file mode 100644 index 020befcf..00000000 Binary files a/pics/100001008.jpg and /dev/null differ diff --git a/pics/100001009.jpg b/pics/100001009.jpg deleted file mode 100644 index 24fb346d..00000000 Binary files a/pics/100001009.jpg and /dev/null differ diff --git a/pics/100001010.jpg b/pics/100001010.jpg deleted file mode 100644 index b1d44e03..00000000 Binary files a/pics/100001010.jpg and /dev/null differ diff --git a/pics/100002001.jpg b/pics/100002001.jpg deleted file mode 100644 index 176c1e24..00000000 Binary files a/pics/100002001.jpg and /dev/null differ diff --git a/pics/100002002.jpg b/pics/100002002.jpg deleted file mode 100644 index 193ca8c8..00000000 Binary files a/pics/100002002.jpg and /dev/null differ diff --git a/pics/100002004.jpg b/pics/100002004.jpg deleted file mode 100644 index 181fe26a..00000000 Binary files a/pics/100002004.jpg and /dev/null differ diff --git a/pics/100003001.jpg b/pics/100003001.jpg deleted file mode 100644 index 94c43b24..00000000 Binary files a/pics/100003001.jpg and /dev/null differ diff --git a/pics/100003002.jpg b/pics/100003002.jpg deleted file mode 100644 index cdf5295b..00000000 Binary files a/pics/100003002.jpg and /dev/null differ diff --git a/pics/100003003.jpg b/pics/100003003.jpg deleted file mode 100644 index 46855a23..00000000 Binary files a/pics/100003003.jpg and /dev/null differ diff --git a/pics/100003004.jpg b/pics/100003004.jpg deleted file mode 100644 index c589ca7a..00000000 Binary files a/pics/100003004.jpg and /dev/null differ diff --git a/pics/100004001.jpg b/pics/100004001.jpg deleted file mode 100644 index 4869bcb9..00000000 Binary files a/pics/100004001.jpg and /dev/null differ diff --git a/pics/100004002.jpg b/pics/100004002.jpg deleted file mode 100644 index 9e72cf37..00000000 Binary files a/pics/100004002.jpg and /dev/null differ diff --git a/pics/100004003.jpg b/pics/100004003.jpg deleted file mode 100644 index ed50e4d1..00000000 Binary files a/pics/100004003.jpg and /dev/null differ diff --git a/pics/100005001.jpg b/pics/100005001.jpg deleted file mode 100644 index 80cd4401..00000000 Binary files a/pics/100005001.jpg and /dev/null differ diff --git a/pics/100005002.jpg b/pics/100005002.jpg deleted file mode 100644 index 8e22f01e..00000000 Binary files a/pics/100005002.jpg and /dev/null differ diff --git a/pics/100006001.jpg b/pics/100006001.jpg deleted file mode 100644 index b4e63e52..00000000 Binary files a/pics/100006001.jpg and /dev/null differ diff --git a/pics/100008001.jpg b/pics/100008001.jpg deleted file mode 100644 index d89fb729..00000000 Binary files a/pics/100008001.jpg and /dev/null differ diff --git a/pics/100010001.jpg b/pics/100010001.jpg deleted file mode 100644 index 6f89f831..00000000 Binary files a/pics/100010001.jpg and /dev/null differ diff --git a/pics/10002346.jpg b/pics/10002346.jpg deleted file mode 100644 index 0cb15cd1..00000000 Binary files a/pics/10002346.jpg and /dev/null differ diff --git a/pics/10004783.jpg b/pics/10004783.jpg deleted file mode 100644 index fbe1693b..00000000 Binary files a/pics/10004783.jpg and /dev/null differ diff --git a/pics/100100001.jpg b/pics/100100001.jpg deleted file mode 100644 index 2c4b2591..00000000 Binary files a/pics/100100001.jpg and /dev/null differ diff --git a/pics/100100002.jpg b/pics/100100002.jpg deleted file mode 100644 index 281d6a2a..00000000 Binary files a/pics/100100002.jpg and /dev/null differ diff --git a/pics/100100003.jpg b/pics/100100003.jpg deleted file mode 100644 index a45b348a..00000000 Binary files a/pics/100100003.jpg and /dev/null differ diff --git a/pics/100100004.jpg b/pics/100100004.jpg deleted file mode 100644 index 3b93f6af..00000000 Binary files a/pics/100100004.jpg and /dev/null differ diff --git a/pics/100100005.jpg b/pics/100100005.jpg deleted file mode 100644 index a8d9f26e..00000000 Binary files a/pics/100100005.jpg and /dev/null differ diff --git a/pics/100100006.jpg b/pics/100100006.jpg deleted file mode 100644 index 48e8a0fb..00000000 Binary files a/pics/100100006.jpg and /dev/null differ diff --git a/pics/100100007.jpg b/pics/100100007.jpg deleted file mode 100644 index 8a769976..00000000 Binary files a/pics/100100007.jpg and /dev/null differ diff --git a/pics/100100008.jpg b/pics/100100008.jpg deleted file mode 100644 index d845aca9..00000000 Binary files a/pics/100100008.jpg and /dev/null differ diff --git a/pics/100100009.jpg b/pics/100100009.jpg deleted file mode 100644 index 4baaa1f6..00000000 Binary files a/pics/100100009.jpg and /dev/null differ diff --git a/pics/100100010.jpg b/pics/100100010.jpg deleted file mode 100644 index 4db73be6..00000000 Binary files a/pics/100100010.jpg and /dev/null differ diff --git a/pics/100100011.jpg b/pics/100100011.jpg deleted file mode 100644 index d5f59f55..00000000 Binary files a/pics/100100011.jpg and /dev/null differ diff --git a/pics/100100012.jpg b/pics/100100012.jpg deleted file mode 100644 index 0b6c02f7..00000000 Binary files a/pics/100100012.jpg and /dev/null differ diff --git a/pics/100100013.jpg b/pics/100100013.jpg deleted file mode 100644 index 486b9185..00000000 Binary files a/pics/100100013.jpg and /dev/null differ diff --git a/pics/100100014.jpg b/pics/100100014.jpg deleted file mode 100644 index 46fcdbfa..00000000 Binary files a/pics/100100014.jpg and /dev/null differ diff --git a/pics/100100015.jpg b/pics/100100015.jpg deleted file mode 100644 index 9acc25cf..00000000 Binary files a/pics/100100015.jpg and /dev/null differ diff --git a/pics/100100016.jpg b/pics/100100016.jpg deleted file mode 100644 index 11c477ec..00000000 Binary files a/pics/100100016.jpg and /dev/null differ diff --git a/pics/100100017.jpg b/pics/100100017.jpg deleted file mode 100644 index 5197ce79..00000000 Binary files a/pics/100100017.jpg and /dev/null differ diff --git a/pics/100100018.jpg b/pics/100100018.jpg deleted file mode 100644 index 9f368380..00000000 Binary files a/pics/100100018.jpg and /dev/null differ diff --git a/pics/100100019.jpg b/pics/100100019.jpg deleted file mode 100644 index 8a22d1b4..00000000 Binary files a/pics/100100019.jpg and /dev/null differ diff --git a/pics/100100020.jpg b/pics/100100020.jpg deleted file mode 100644 index 51621ce0..00000000 Binary files a/pics/100100020.jpg and /dev/null differ diff --git a/pics/100100021.jpg b/pics/100100021.jpg deleted file mode 100644 index e285fd4c..00000000 Binary files a/pics/100100021.jpg and /dev/null differ diff --git a/pics/100100022.jpg b/pics/100100022.jpg deleted file mode 100644 index 10e6036d..00000000 Binary files a/pics/100100022.jpg and /dev/null differ diff --git a/pics/100100023.jpg b/pics/100100023.jpg deleted file mode 100644 index af8042d5..00000000 Binary files a/pics/100100023.jpg and /dev/null differ diff --git a/pics/100100024.jpg b/pics/100100024.jpg deleted file mode 100644 index c84f5735..00000000 Binary files a/pics/100100024.jpg and /dev/null differ diff --git a/pics/100100025.jpg b/pics/100100025.jpg deleted file mode 100644 index 1b718aa5..00000000 Binary files a/pics/100100025.jpg and /dev/null differ diff --git a/pics/100100026.jpg b/pics/100100026.jpg deleted file mode 100644 index a811c0f3..00000000 Binary files a/pics/100100026.jpg and /dev/null differ diff --git a/pics/100100027.jpg b/pics/100100027.jpg deleted file mode 100644 index 67914a2f..00000000 Binary files a/pics/100100027.jpg and /dev/null differ diff --git a/pics/100100028.jpg b/pics/100100028.jpg deleted file mode 100644 index a6c0aeae..00000000 Binary files a/pics/100100028.jpg and /dev/null differ diff --git a/pics/100100029.jpg b/pics/100100029.jpg deleted file mode 100644 index 0384c145..00000000 Binary files a/pics/100100029.jpg and /dev/null differ diff --git a/pics/100100030.jpg b/pics/100100030.jpg deleted file mode 100644 index 64895bc2..00000000 Binary files a/pics/100100030.jpg and /dev/null differ diff --git a/pics/100100031.jpg b/pics/100100031.jpg deleted file mode 100644 index f3461197..00000000 Binary files a/pics/100100031.jpg and /dev/null differ diff --git a/pics/100100032.jpg b/pics/100100032.jpg deleted file mode 100644 index edeeb74c..00000000 Binary files a/pics/100100032.jpg and /dev/null differ diff --git a/pics/100100033.jpg b/pics/100100033.jpg deleted file mode 100644 index 577222c3..00000000 Binary files a/pics/100100033.jpg and /dev/null differ diff --git a/pics/100100034.jpg b/pics/100100034.jpg deleted file mode 100644 index e1f7fa79..00000000 Binary files a/pics/100100034.jpg and /dev/null differ diff --git a/pics/100100035.jpg b/pics/100100035.jpg deleted file mode 100644 index 3d600e1b..00000000 Binary files a/pics/100100035.jpg and /dev/null differ diff --git a/pics/100100036.jpg b/pics/100100036.jpg deleted file mode 100644 index 59186a96..00000000 Binary files a/pics/100100036.jpg and /dev/null differ diff --git a/pics/100100037.jpg b/pics/100100037.jpg deleted file mode 100644 index b269e696..00000000 Binary files a/pics/100100037.jpg and /dev/null differ diff --git a/pics/100100038.jpg b/pics/100100038.jpg deleted file mode 100644 index 5eb3f209..00000000 Binary files a/pics/100100038.jpg and /dev/null differ diff --git a/pics/100100039.jpg b/pics/100100039.jpg deleted file mode 100644 index 622eecf2..00000000 Binary files a/pics/100100039.jpg and /dev/null differ diff --git a/pics/100100040.jpg b/pics/100100040.jpg deleted file mode 100644 index 22f995d4..00000000 Binary files a/pics/100100040.jpg and /dev/null differ diff --git a/pics/100100041.jpg b/pics/100100041.jpg deleted file mode 100644 index 85963fe4..00000000 Binary files a/pics/100100041.jpg and /dev/null differ diff --git a/pics/100100042.jpg b/pics/100100042.jpg deleted file mode 100644 index 21ecca04..00000000 Binary files a/pics/100100042.jpg and /dev/null differ diff --git a/pics/100100043.jpg b/pics/100100043.jpg deleted file mode 100644 index 0a4cbd78..00000000 Binary files a/pics/100100043.jpg and /dev/null differ diff --git a/pics/100100044.jpg b/pics/100100044.jpg deleted file mode 100644 index 72ff922e..00000000 Binary files a/pics/100100044.jpg and /dev/null differ diff --git a/pics/100100045.jpg b/pics/100100045.jpg deleted file mode 100644 index 2ca3bf44..00000000 Binary files a/pics/100100045.jpg and /dev/null differ diff --git a/pics/100100046.jpg b/pics/100100046.jpg deleted file mode 100644 index 23be2b2e..00000000 Binary files a/pics/100100046.jpg and /dev/null differ diff --git a/pics/100100047.jpg b/pics/100100047.jpg deleted file mode 100644 index 3d49c584..00000000 Binary files a/pics/100100047.jpg and /dev/null differ diff --git a/pics/100100048.jpg b/pics/100100048.jpg deleted file mode 100644 index 43825588..00000000 Binary files a/pics/100100048.jpg and /dev/null differ diff --git a/pics/100100049.jpg b/pics/100100049.jpg deleted file mode 100644 index 8a3879f8..00000000 Binary files a/pics/100100049.jpg and /dev/null differ diff --git a/pics/100100050.jpg b/pics/100100050.jpg deleted file mode 100644 index e581ada8..00000000 Binary files a/pics/100100050.jpg and /dev/null differ diff --git a/pics/100100051.jpg b/pics/100100051.jpg deleted file mode 100644 index a50f691f..00000000 Binary files a/pics/100100051.jpg and /dev/null differ diff --git a/pics/100100052.jpg b/pics/100100052.jpg deleted file mode 100644 index c2814c1e..00000000 Binary files a/pics/100100052.jpg and /dev/null differ diff --git a/pics/100100053.jpg b/pics/100100053.jpg deleted file mode 100644 index b1314d39..00000000 Binary files a/pics/100100053.jpg and /dev/null differ diff --git a/pics/100100054.jpg b/pics/100100054.jpg deleted file mode 100644 index a32e8a56..00000000 Binary files a/pics/100100054.jpg and /dev/null differ diff --git a/pics/100100055.jpg b/pics/100100055.jpg deleted file mode 100644 index 342a1b51..00000000 Binary files a/pics/100100055.jpg and /dev/null differ diff --git a/pics/100100056.jpg b/pics/100100056.jpg deleted file mode 100644 index da64b3b1..00000000 Binary files a/pics/100100056.jpg and /dev/null differ diff --git a/pics/100100057.jpg b/pics/100100057.jpg deleted file mode 100644 index a37a0770..00000000 Binary files a/pics/100100057.jpg and /dev/null differ diff --git a/pics/100100058.jpg b/pics/100100058.jpg deleted file mode 100644 index f672e8b9..00000000 Binary files a/pics/100100058.jpg and /dev/null differ diff --git a/pics/100100059.jpg b/pics/100100059.jpg deleted file mode 100644 index 58f8487a..00000000 Binary files a/pics/100100059.jpg and /dev/null differ diff --git a/pics/100100060.jpg b/pics/100100060.jpg deleted file mode 100644 index 49a8a862..00000000 Binary files a/pics/100100060.jpg and /dev/null differ diff --git a/pics/100100061.jpg b/pics/100100061.jpg deleted file mode 100644 index 747baa84..00000000 Binary files a/pics/100100061.jpg and /dev/null differ diff --git a/pics/100100062.jpg b/pics/100100062.jpg deleted file mode 100644 index d62425d4..00000000 Binary files a/pics/100100062.jpg and /dev/null differ diff --git a/pics/100100063.jpg b/pics/100100063.jpg deleted file mode 100644 index 2e5ca8c4..00000000 Binary files a/pics/100100063.jpg and /dev/null differ diff --git a/pics/100100064.jpg b/pics/100100064.jpg deleted file mode 100644 index 771e24ab..00000000 Binary files a/pics/100100064.jpg and /dev/null differ diff --git a/pics/100100065.jpg b/pics/100100065.jpg deleted file mode 100644 index 3dff3d9b..00000000 Binary files a/pics/100100065.jpg and /dev/null differ diff --git a/pics/100100066.jpg b/pics/100100066.jpg deleted file mode 100644 index fef00733..00000000 Binary files a/pics/100100066.jpg and /dev/null differ diff --git a/pics/100100067.jpg b/pics/100100067.jpg deleted file mode 100644 index 351aa6f1..00000000 Binary files a/pics/100100067.jpg and /dev/null differ diff --git a/pics/100100068.jpg b/pics/100100068.jpg deleted file mode 100644 index ed73498f..00000000 Binary files a/pics/100100068.jpg and /dev/null differ diff --git a/pics/100100069.jpg b/pics/100100069.jpg deleted file mode 100644 index 6b7730dc..00000000 Binary files a/pics/100100069.jpg and /dev/null differ diff --git a/pics/100100070.jpg b/pics/100100070.jpg deleted file mode 100644 index 606b4f7e..00000000 Binary files a/pics/100100070.jpg and /dev/null differ diff --git a/pics/100100071.jpg b/pics/100100071.jpg deleted file mode 100644 index 3d1f0e8b..00000000 Binary files a/pics/100100071.jpg and /dev/null differ diff --git a/pics/100100072.jpg b/pics/100100072.jpg deleted file mode 100644 index a868558b..00000000 Binary files a/pics/100100072.jpg and /dev/null differ diff --git a/pics/100100073.jpg b/pics/100100073.jpg deleted file mode 100644 index dbecb61a..00000000 Binary files a/pics/100100073.jpg and /dev/null differ diff --git a/pics/100100074.jpg b/pics/100100074.jpg deleted file mode 100644 index 04f23312..00000000 Binary files a/pics/100100074.jpg and /dev/null differ diff --git a/pics/100100075.jpg b/pics/100100075.jpg deleted file mode 100644 index 83f3acb9..00000000 Binary files a/pics/100100075.jpg and /dev/null differ diff --git a/pics/100100076.jpg b/pics/100100076.jpg deleted file mode 100644 index 97b0d848..00000000 Binary files a/pics/100100076.jpg and /dev/null differ diff --git a/pics/100100077.jpg b/pics/100100077.jpg deleted file mode 100644 index 6b94c005..00000000 Binary files a/pics/100100077.jpg and /dev/null differ diff --git a/pics/100100078.jpg b/pics/100100078.jpg deleted file mode 100644 index d6c0aadf..00000000 Binary files a/pics/100100078.jpg and /dev/null differ diff --git a/pics/100100079.jpg b/pics/100100079.jpg deleted file mode 100644 index 6bb40c73..00000000 Binary files a/pics/100100079.jpg and /dev/null differ diff --git a/pics/100100080.jpg b/pics/100100080.jpg deleted file mode 100644 index e288f94e..00000000 Binary files a/pics/100100080.jpg and /dev/null differ diff --git a/pics/100100081.jpg b/pics/100100081.jpg deleted file mode 100644 index 1b3841e6..00000000 Binary files a/pics/100100081.jpg and /dev/null differ diff --git a/pics/100100082.jpg b/pics/100100082.jpg deleted file mode 100644 index cf38e4b0..00000000 Binary files a/pics/100100082.jpg and /dev/null differ diff --git a/pics/100100083.jpg b/pics/100100083.jpg deleted file mode 100644 index ba05bf57..00000000 Binary files a/pics/100100083.jpg and /dev/null differ diff --git a/pics/100100084.jpg b/pics/100100084.jpg deleted file mode 100644 index 4a205b8f..00000000 Binary files a/pics/100100084.jpg and /dev/null differ diff --git a/pics/100100090.jpg b/pics/100100090.jpg deleted file mode 100644 index 4b497c6a..00000000 Binary files a/pics/100100090.jpg and /dev/null differ diff --git a/pics/100100091.jpg b/pics/100100091.jpg deleted file mode 100644 index 885243b0..00000000 Binary files a/pics/100100091.jpg and /dev/null differ diff --git a/pics/100100100.jpg b/pics/100100100.jpg deleted file mode 100644 index 0dd238a7..00000000 Binary files a/pics/100100100.jpg and /dev/null differ diff --git a/pics/100100101.jpg b/pics/100100101.jpg deleted file mode 100644 index b8bdd96d..00000000 Binary files a/pics/100100101.jpg and /dev/null differ diff --git a/pics/100100102.jpg b/pics/100100102.jpg deleted file mode 100644 index 67c4ff38..00000000 Binary files a/pics/100100102.jpg and /dev/null differ diff --git a/pics/100100103.jpg b/pics/100100103.jpg deleted file mode 100644 index 3f29a30c..00000000 Binary files a/pics/100100103.jpg and /dev/null differ diff --git a/pics/100100104.jpg b/pics/100100104.jpg deleted file mode 100644 index 8b89f8b2..00000000 Binary files a/pics/100100104.jpg and /dev/null differ diff --git a/pics/100100105.jpg b/pics/100100105.jpg deleted file mode 100644 index 616f9f02..00000000 Binary files a/pics/100100105.jpg and /dev/null differ diff --git a/pics/100100106.jpg b/pics/100100106.jpg deleted file mode 100644 index 5f965c71..00000000 Binary files a/pics/100100106.jpg and /dev/null differ diff --git a/pics/100100107.jpg b/pics/100100107.jpg deleted file mode 100644 index 2662c25a..00000000 Binary files a/pics/100100107.jpg and /dev/null differ diff --git a/pics/100100108.jpg b/pics/100100108.jpg deleted file mode 100644 index 80cb2d8f..00000000 Binary files a/pics/100100108.jpg and /dev/null differ diff --git a/pics/100100109.jpg b/pics/100100109.jpg deleted file mode 100644 index 88c5913a..00000000 Binary files a/pics/100100109.jpg and /dev/null differ diff --git a/pics/100100110.jpg b/pics/100100110.jpg deleted file mode 100644 index 299d3cca..00000000 Binary files a/pics/100100110.jpg and /dev/null differ diff --git a/pics/100100111.jpg b/pics/100100111.jpg deleted file mode 100644 index fed5632f..00000000 Binary files a/pics/100100111.jpg and /dev/null differ diff --git a/pics/100100112.jpg b/pics/100100112.jpg deleted file mode 100644 index c77fe819..00000000 Binary files a/pics/100100112.jpg and /dev/null differ diff --git a/pics/100100113.jpg b/pics/100100113.jpg deleted file mode 100644 index fc793784..00000000 Binary files a/pics/100100113.jpg and /dev/null differ diff --git a/pics/100100114.jpg b/pics/100100114.jpg deleted file mode 100644 index 9b5fe7df..00000000 Binary files a/pics/100100114.jpg and /dev/null differ diff --git a/pics/100100115.jpg b/pics/100100115.jpg deleted file mode 100644 index 744216d3..00000000 Binary files a/pics/100100115.jpg and /dev/null differ diff --git a/pics/100100116.jpg b/pics/100100116.jpg deleted file mode 100644 index f8f01bf6..00000000 Binary files a/pics/100100116.jpg and /dev/null differ diff --git a/pics/100100117.jpg b/pics/100100117.jpg deleted file mode 100644 index 99c572a1..00000000 Binary files a/pics/100100117.jpg and /dev/null differ diff --git a/pics/100100118.jpg b/pics/100100118.jpg deleted file mode 100644 index 35658ce1..00000000 Binary files a/pics/100100118.jpg and /dev/null differ diff --git a/pics/100100119.jpg b/pics/100100119.jpg deleted file mode 100644 index 67f6e233..00000000 Binary files a/pics/100100119.jpg and /dev/null differ diff --git a/pics/100100120.jpg b/pics/100100120.jpg deleted file mode 100644 index a7153e40..00000000 Binary files a/pics/100100120.jpg and /dev/null differ diff --git a/pics/100100121.jpg b/pics/100100121.jpg deleted file mode 100644 index f3636156..00000000 Binary files a/pics/100100121.jpg and /dev/null differ diff --git a/pics/100100122.jpg b/pics/100100122.jpg deleted file mode 100644 index b07f75cc..00000000 Binary files a/pics/100100122.jpg and /dev/null differ diff --git a/pics/100100123.jpg b/pics/100100123.jpg deleted file mode 100644 index 90285d49..00000000 Binary files a/pics/100100123.jpg and /dev/null differ diff --git a/pics/100100124.jpg b/pics/100100124.jpg deleted file mode 100644 index 699990f3..00000000 Binary files a/pics/100100124.jpg and /dev/null differ diff --git a/pics/100100125.jpg b/pics/100100125.jpg deleted file mode 100644 index 662921ca..00000000 Binary files a/pics/100100125.jpg and /dev/null differ diff --git a/pics/100100126.jpg b/pics/100100126.jpg deleted file mode 100644 index 795ccc9b..00000000 Binary files a/pics/100100126.jpg and /dev/null differ diff --git a/pics/100100127.jpg b/pics/100100127.jpg deleted file mode 100644 index 7db68277..00000000 Binary files a/pics/100100127.jpg and /dev/null differ diff --git a/pics/100100128.jpg b/pics/100100128.jpg deleted file mode 100644 index c09c9a15..00000000 Binary files a/pics/100100128.jpg and /dev/null differ diff --git a/pics/100100129.jpg b/pics/100100129.jpg deleted file mode 100644 index 8ed87ffa..00000000 Binary files a/pics/100100129.jpg and /dev/null differ diff --git a/pics/100100130.jpg b/pics/100100130.jpg deleted file mode 100644 index d9f9f319..00000000 Binary files a/pics/100100130.jpg and /dev/null differ diff --git a/pics/100100131.jpg b/pics/100100131.jpg deleted file mode 100644 index 083a9d19..00000000 Binary files a/pics/100100131.jpg and /dev/null differ diff --git a/pics/100100132.jpg b/pics/100100132.jpg deleted file mode 100644 index 6bfcec53..00000000 Binary files a/pics/100100132.jpg and /dev/null differ diff --git a/pics/100100133.jpg b/pics/100100133.jpg deleted file mode 100644 index c2179743..00000000 Binary files a/pics/100100133.jpg and /dev/null differ diff --git a/pics/100100150.jpg b/pics/100100150.jpg deleted file mode 100644 index 99169b7f..00000000 Binary files a/pics/100100150.jpg and /dev/null differ diff --git a/pics/100100151.jpg b/pics/100100151.jpg deleted file mode 100644 index ee0179f8..00000000 Binary files a/pics/100100151.jpg and /dev/null differ diff --git a/pics/100100152.jpg b/pics/100100152.jpg deleted file mode 100644 index 577b71b8..00000000 Binary files a/pics/100100152.jpg and /dev/null differ diff --git a/pics/100100153.jpg b/pics/100100153.jpg deleted file mode 100644 index d7a47fe3..00000000 Binary files a/pics/100100153.jpg and /dev/null differ diff --git a/pics/100100154.jpg b/pics/100100154.jpg deleted file mode 100644 index 7388b09b..00000000 Binary files a/pics/100100154.jpg and /dev/null differ diff --git a/pics/100100155.jpg b/pics/100100155.jpg deleted file mode 100644 index b3180375..00000000 Binary files a/pics/100100155.jpg and /dev/null differ diff --git a/pics/100100156.jpg b/pics/100100156.jpg deleted file mode 100644 index 77a6a4a8..00000000 Binary files a/pics/100100156.jpg and /dev/null differ diff --git a/pics/100100500.jpg b/pics/100100500.jpg deleted file mode 100644 index f14de34f..00000000 Binary files a/pics/100100500.jpg and /dev/null differ diff --git a/pics/100100501.jpg b/pics/100100501.jpg deleted file mode 100644 index 7f64dd18..00000000 Binary files a/pics/100100501.jpg and /dev/null differ diff --git a/pics/100100502.jpg b/pics/100100502.jpg deleted file mode 100644 index 275ec9c6..00000000 Binary files a/pics/100100502.jpg and /dev/null differ diff --git a/pics/100100503.jpg b/pics/100100503.jpg deleted file mode 100644 index ec42fa63..00000000 Binary files a/pics/100100503.jpg and /dev/null differ diff --git a/pics/100100504.jpg b/pics/100100504.jpg deleted file mode 100644 index 52f54ade..00000000 Binary files a/pics/100100504.jpg and /dev/null differ diff --git a/pics/100100505.jpg b/pics/100100505.jpg deleted file mode 100644 index bb264151..00000000 Binary files a/pics/100100505.jpg and /dev/null differ diff --git a/pics/100100506.jpg b/pics/100100506.jpg deleted file mode 100644 index 9c0e7cf8..00000000 Binary files a/pics/100100506.jpg and /dev/null differ diff --git a/pics/100100507.jpg b/pics/100100507.jpg deleted file mode 100644 index 917a8ae8..00000000 Binary files a/pics/100100507.jpg and /dev/null differ diff --git a/pics/100100508.jpg b/pics/100100508.jpg deleted file mode 100644 index bc5b6d98..00000000 Binary files a/pics/100100508.jpg and /dev/null differ diff --git a/pics/100100509.jpg b/pics/100100509.jpg deleted file mode 100644 index d7ead7ce..00000000 Binary files a/pics/100100509.jpg and /dev/null differ diff --git a/pics/100100510.jpg b/pics/100100510.jpg deleted file mode 100644 index 51ba4b3d..00000000 Binary files a/pics/100100510.jpg and /dev/null differ diff --git a/pics/100100511.jpg b/pics/100100511.jpg deleted file mode 100644 index f1a714df..00000000 Binary files a/pics/100100511.jpg and /dev/null differ diff --git a/pics/100100512.jpg b/pics/100100512.jpg deleted file mode 100644 index 6afe7a8e..00000000 Binary files a/pics/100100512.jpg and /dev/null differ diff --git a/pics/100100513.jpg b/pics/100100513.jpg deleted file mode 100644 index 7756c234..00000000 Binary files a/pics/100100513.jpg and /dev/null differ diff --git a/pics/100100514.jpg b/pics/100100514.jpg deleted file mode 100644 index fb01df62..00000000 Binary files a/pics/100100514.jpg and /dev/null differ diff --git a/pics/100100515.jpg b/pics/100100515.jpg deleted file mode 100644 index f7a2a6eb..00000000 Binary files a/pics/100100515.jpg and /dev/null differ diff --git a/pics/100100516.jpg b/pics/100100516.jpg deleted file mode 100644 index e86c4613..00000000 Binary files a/pics/100100516.jpg and /dev/null differ diff --git a/pics/100100517.jpg b/pics/100100517.jpg deleted file mode 100644 index 119c7f6f..00000000 Binary files a/pics/100100517.jpg and /dev/null differ diff --git a/pics/100100518.jpg b/pics/100100518.jpg deleted file mode 100644 index 2a9b73f2..00000000 Binary files a/pics/100100518.jpg and /dev/null differ diff --git a/pics/100100519.jpg b/pics/100100519.jpg deleted file mode 100644 index 733909af..00000000 Binary files a/pics/100100519.jpg and /dev/null differ diff --git a/pics/100100520.jpg b/pics/100100520.jpg deleted file mode 100644 index 06774355..00000000 Binary files a/pics/100100520.jpg and /dev/null differ diff --git a/pics/100100521.jpg b/pics/100100521.jpg deleted file mode 100644 index fc8b421f..00000000 Binary files a/pics/100100521.jpg and /dev/null differ diff --git a/pics/100100522.jpg b/pics/100100522.jpg deleted file mode 100644 index 2363bad2..00000000 Binary files a/pics/100100522.jpg and /dev/null differ diff --git a/pics/100100525.jpg b/pics/100100525.jpg deleted file mode 100644 index eaea57f3..00000000 Binary files a/pics/100100525.jpg and /dev/null differ diff --git a/pics/100100700.jpg b/pics/100100700.jpg deleted file mode 100644 index 836e9965..00000000 Binary files a/pics/100100700.jpg and /dev/null differ diff --git a/pics/100101000.jpg b/pics/100101000.jpg deleted file mode 100644 index f0568d8f..00000000 Binary files a/pics/100101000.jpg and /dev/null differ diff --git a/pics/100101001.jpg b/pics/100101001.jpg deleted file mode 100644 index 3166caa5..00000000 Binary files a/pics/100101001.jpg and /dev/null differ diff --git a/pics/100101002.jpg b/pics/100101002.jpg deleted file mode 100644 index 033c0316..00000000 Binary files a/pics/100101002.jpg and /dev/null differ diff --git a/pics/100101003.jpg b/pics/100101003.jpg deleted file mode 100644 index e737777f..00000000 Binary files a/pics/100101003.jpg and /dev/null differ diff --git a/pics/10012614.jpg b/pics/10012614.jpg deleted file mode 100644 index 2c8aa437..00000000 Binary files a/pics/10012614.jpg and /dev/null differ diff --git a/pics/10026986.jpg b/pics/10026986.jpg deleted file mode 100644 index c5731ca5..00000000 Binary files a/pics/10026986.jpg and /dev/null differ diff --git a/pics/10028593.jpg b/pics/10028593.jpg deleted file mode 100644 index 8665545e..00000000 Binary files a/pics/10028593.jpg and /dev/null differ diff --git a/pics/1003028.jpg b/pics/1003028.jpg deleted file mode 100644 index 0fbca2c0..00000000 Binary files a/pics/1003028.jpg and /dev/null differ diff --git a/pics/10032958.jpg b/pics/10032958.jpg deleted file mode 100644 index 6da4f35d..00000000 Binary files a/pics/10032958.jpg and /dev/null differ diff --git a/pics/10035717.jpg b/pics/10035717.jpg deleted file mode 100644 index 447ba818..00000000 Binary files a/pics/10035717.jpg and /dev/null differ diff --git a/pics/1003840.jpg b/pics/1003840.jpg deleted file mode 100644 index f883127c..00000000 Binary files a/pics/1003840.jpg and /dev/null differ diff --git a/pics/1005587.jpg b/pics/1005587.jpg deleted file mode 100755 index 8a61ceb7..00000000 Binary files a/pics/1005587.jpg and /dev/null differ diff --git a/pics/10060427.jpg b/pics/10060427.jpg deleted file mode 100644 index 9c0c2a6e..00000000 Binary files a/pics/10060427.jpg and /dev/null differ diff --git a/pics/1006081.jpg b/pics/1006081.jpg deleted file mode 100755 index 9a919bda..00000000 Binary files a/pics/1006081.jpg and /dev/null differ diff --git a/pics/10069180.jpg b/pics/10069180.jpg deleted file mode 100644 index 404509ef..00000000 Binary files a/pics/10069180.jpg and /dev/null differ diff --git a/pics/10071456.jpg b/pics/10071456.jpg deleted file mode 100644 index a5b8c993..00000000 Binary files a/pics/10071456.jpg and /dev/null differ diff --git a/pics/10080320.jpg b/pics/10080320.jpg deleted file mode 100644 index 4c18c4d9..00000000 Binary files a/pics/10080320.jpg and /dev/null differ diff --git a/pics/10097168.jpg b/pics/10097168.jpg deleted file mode 100644 index 5b5e4350..00000000 Binary files a/pics/10097168.jpg and /dev/null differ diff --git a/pics/10110717.jpg b/pics/10110717.jpg deleted file mode 100644 index 2f85c32c..00000000 Binary files a/pics/10110717.jpg and /dev/null differ diff --git a/pics/10117149.jpg b/pics/10117149.jpg deleted file mode 100755 index 1b2c4b00..00000000 Binary files a/pics/10117149.jpg and /dev/null differ diff --git a/pics/10118318.jpg b/pics/10118318.jpg deleted file mode 100644 index 2b36181f..00000000 Binary files a/pics/10118318.jpg and /dev/null differ diff --git a/pics/10132124.jpg b/pics/10132124.jpg deleted file mode 100644 index cfe55115..00000000 Binary files a/pics/10132124.jpg and /dev/null differ diff --git a/pics/10178757.jpg b/pics/10178757.jpg deleted file mode 100644 index 3ef6b8ef..00000000 Binary files a/pics/10178757.jpg and /dev/null differ diff --git a/pics/10189126.jpg b/pics/10189126.jpg deleted file mode 100644 index 3bf097fc..00000000 Binary files a/pics/10189126.jpg and /dev/null differ diff --git a/pics/10202894.jpg b/pics/10202894.jpg deleted file mode 100644 index 5f2f18a8..00000000 Binary files a/pics/10202894.jpg and /dev/null differ diff --git a/pics/10209545.jpg b/pics/10209545.jpg deleted file mode 100644 index b0b3ccfb..00000000 Binary files a/pics/10209545.jpg and /dev/null differ diff --git a/pics/10236520.jpg b/pics/10236520.jpg deleted file mode 100644 index 87272db2..00000000 Binary files a/pics/10236520.jpg and /dev/null differ diff --git a/pics/102380.jpg b/pics/102380.jpg deleted file mode 100644 index 6017d38e..00000000 Binary files a/pics/102380.jpg and /dev/null differ diff --git a/pics/10239627.jpg b/pics/10239627.jpg deleted file mode 100755 index a678975f..00000000 Binary files a/pics/10239627.jpg and /dev/null differ diff --git a/pics/10248192.jpg b/pics/10248192.jpg deleted file mode 100644 index 33f8a929..00000000 Binary files a/pics/10248192.jpg and /dev/null differ diff --git a/pics/10248389.jpg b/pics/10248389.jpg deleted file mode 100644 index 4312b08d..00000000 Binary files a/pics/10248389.jpg and /dev/null differ diff --git a/pics/10262698.jpg b/pics/10262698.jpg deleted file mode 100644 index 0c9b0a0e..00000000 Binary files a/pics/10262698.jpg and /dev/null differ diff --git a/pics/10275411.jpg b/pics/10275411.jpg deleted file mode 100644 index c29d1c9d..00000000 Binary files a/pics/10275411.jpg and /dev/null differ diff --git a/pics/10282757.jpg b/pics/10282757.jpg deleted file mode 100644 index 186996b9..00000000 Binary files a/pics/10282757.jpg and /dev/null differ diff --git a/pics/10315429.jpg b/pics/10315429.jpg deleted file mode 100644 index 96372f52..00000000 Binary files a/pics/10315429.jpg and /dev/null differ diff --git a/pics/10321588.jpg b/pics/10321588.jpg deleted file mode 100644 index e3fba9cf..00000000 Binary files a/pics/10321588.jpg and /dev/null differ diff --git a/pics/1033312.jpg b/pics/1033312.jpg deleted file mode 100644 index 1d133c2e..00000000 Binary files a/pics/1033312.jpg and /dev/null differ diff --git a/pics/10352095.jpg b/pics/10352095.jpg deleted file mode 100644 index 10cd3bad..00000000 Binary files a/pics/10352095.jpg and /dev/null differ diff --git a/pics/10365322.jpg b/pics/10365322.jpg deleted file mode 100644 index 7c715309..00000000 Binary files a/pics/10365322.jpg and /dev/null differ diff --git a/pics/1036974.jpg b/pics/1036974.jpg deleted file mode 100644 index fe19efe4..00000000 Binary files a/pics/1036974.jpg and /dev/null differ diff --git a/pics/10375182.jpg b/pics/10375182.jpg deleted file mode 100644 index 70743b1f..00000000 Binary files a/pics/10375182.jpg and /dev/null differ diff --git a/pics/10383554.jpg b/pics/10383554.jpg deleted file mode 100644 index 652a96fa..00000000 Binary files a/pics/10383554.jpg and /dev/null differ diff --git a/pics/10389142.jpg b/pics/10389142.jpg deleted file mode 100644 index f3fe3db1..00000000 Binary files a/pics/10389142.jpg and /dev/null differ diff --git a/pics/10389143.jpg b/pics/10389143.jpg deleted file mode 100644 index 2ca3802f..00000000 Binary files a/pics/10389143.jpg and /dev/null differ diff --git a/pics/10389794.jpg b/pics/10389794.jpg deleted file mode 100644 index 75a1da2b..00000000 Binary files a/pics/10389794.jpg and /dev/null differ diff --git a/pics/10406322.jpg b/pics/10406322.jpg deleted file mode 100644 index 29da1ad8..00000000 Binary files a/pics/10406322.jpg and /dev/null differ diff --git a/pics/10424147.jpg b/pics/10424147.jpg deleted file mode 100755 index f38a6da8..00000000 Binary files a/pics/10424147.jpg and /dev/null differ diff --git a/pics/10443957.jpg b/pics/10443957.jpg deleted file mode 100644 index 9236a8ca..00000000 Binary files a/pics/10443957.jpg and /dev/null differ diff --git a/pics/10449150.jpg b/pics/10449150.jpg deleted file mode 100644 index d4442f5c..00000000 Binary files a/pics/10449150.jpg and /dev/null differ diff --git a/pics/1045143.jpg b/pics/1045143.jpg deleted file mode 100644 index aa860212..00000000 Binary files a/pics/1045143.jpg and /dev/null differ diff --git a/pics/10456559.jpg b/pics/10456559.jpg deleted file mode 100644 index 68610d61..00000000 Binary files a/pics/10456559.jpg and /dev/null differ diff --git a/pics/10476868.jpg b/pics/10476868.jpg deleted file mode 100644 index 43e39768..00000000 Binary files a/pics/10476868.jpg and /dev/null differ diff --git a/pics/10485110.jpg b/pics/10485110.jpg deleted file mode 100644 index a479ea66..00000000 Binary files a/pics/10485110.jpg and /dev/null differ diff --git a/pics/10489311.jpg b/pics/10489311.jpg deleted file mode 100644 index f47423e4..00000000 Binary files a/pics/10489311.jpg and /dev/null differ diff --git a/pics/1050186.jpg b/pics/1050186.jpg deleted file mode 100644 index d670f2c8..00000000 Binary files a/pics/1050186.jpg and /dev/null differ diff --git a/pics/1050684.jpg b/pics/1050684.jpg deleted file mode 100644 index fa4d29fb..00000000 Binary files a/pics/1050684.jpg and /dev/null differ diff --git a/pics/10509340.jpg b/pics/10509340.jpg deleted file mode 100644 index 3105d418..00000000 Binary files a/pics/10509340.jpg and /dev/null differ diff --git a/pics/10526791.jpg b/pics/10526791.jpg deleted file mode 100644 index 86578302..00000000 Binary files a/pics/10526791.jpg and /dev/null differ diff --git a/pics/10530913.jpg b/pics/10530913.jpg deleted file mode 100644 index 19689546..00000000 Binary files a/pics/10530913.jpg and /dev/null differ diff --git a/pics/10532969.jpg b/pics/10532969.jpg deleted file mode 100644 index 00077204..00000000 Binary files a/pics/10532969.jpg and /dev/null differ diff --git a/pics/10537981.jpg b/pics/10537981.jpg deleted file mode 100644 index efa21796..00000000 Binary files a/pics/10537981.jpg and /dev/null differ diff --git a/pics/10538007.jpg b/pics/10538007.jpg deleted file mode 100644 index 26f94dba..00000000 Binary files a/pics/10538007.jpg and /dev/null differ diff --git a/pics/10560119.jpg b/pics/10560119.jpg deleted file mode 100644 index 7c6c153b..00000000 Binary files a/pics/10560119.jpg and /dev/null differ diff --git a/pics/10591919.jpg b/pics/10591919.jpg deleted file mode 100644 index 118f2ded..00000000 Binary files a/pics/10591919.jpg and /dev/null differ diff --git a/pics/10598400.jpg b/pics/10598400.jpg deleted file mode 100644 index 72b7c013..00000000 Binary files a/pics/10598400.jpg and /dev/null differ diff --git a/pics/10613952.jpg b/pics/10613952.jpg deleted file mode 100644 index 062ad7be..00000000 Binary files a/pics/10613952.jpg and /dev/null differ diff --git a/pics/10651797.jpg b/pics/10651797.jpg deleted file mode 100644 index 58ff39ee..00000000 Binary files a/pics/10651797.jpg and /dev/null differ diff --git a/pics/10667321.jpg b/pics/10667321.jpg deleted file mode 100644 index 84514037..00000000 Binary files a/pics/10667321.jpg and /dev/null differ diff --git a/pics/10678778.jpg b/pics/10678778.jpg deleted file mode 100755 index 664e6668..00000000 Binary files a/pics/10678778.jpg and /dev/null differ diff --git a/pics/10691144.jpg b/pics/10691144.jpg deleted file mode 100644 index 08fbd80f..00000000 Binary files a/pics/10691144.jpg and /dev/null differ diff --git a/pics/10712320.jpg b/pics/10712320.jpg deleted file mode 100644 index b64cb850..00000000 Binary files a/pics/10712320.jpg and /dev/null differ diff --git a/pics/10719350.jpg b/pics/10719350.jpg deleted file mode 100644 index 9e834552..00000000 Binary files a/pics/10719350.jpg and /dev/null differ diff --git a/pics/10736540.jpg b/pics/10736540.jpg deleted file mode 100644 index 8942eb4c..00000000 Binary files a/pics/10736540.jpg and /dev/null differ diff --git a/pics/1073952.jpg b/pics/1073952.jpg deleted file mode 100644 index df2849cd..00000000 Binary files a/pics/1073952.jpg and /dev/null differ diff --git a/pics/10753491.jpg b/pics/10753491.jpg deleted file mode 100755 index 0f50d13a..00000000 Binary files a/pics/10753491.jpg and /dev/null differ diff --git a/pics/10755153.jpg b/pics/10755153.jpg deleted file mode 100644 index f707e9c0..00000000 Binary files a/pics/10755153.jpg and /dev/null differ diff --git a/pics/10755984.jpg b/pics/10755984.jpg deleted file mode 100644 index 82f1aee4..00000000 Binary files a/pics/10755984.jpg and /dev/null differ diff --git a/pics/10759529.jpg b/pics/10759529.jpg deleted file mode 100644 index 7766d307..00000000 Binary files a/pics/10759529.jpg and /dev/null differ diff --git a/pics/10789972.jpg b/pics/10789972.jpg deleted file mode 100644 index 0e4dac67..00000000 Binary files a/pics/10789972.jpg and /dev/null differ diff --git a/pics/10802915.jpg b/pics/10802915.jpg deleted file mode 100644 index 568018f9..00000000 Binary files a/pics/10802915.jpg and /dev/null differ diff --git a/pics/10809984.jpg b/pics/10809984.jpg deleted file mode 100644 index 498bc913..00000000 Binary files a/pics/10809984.jpg and /dev/null differ diff --git a/pics/10817524.jpg b/pics/10817524.jpg deleted file mode 100644 index ad778129..00000000 Binary files a/pics/10817524.jpg and /dev/null differ diff --git a/pics/1082946.jpg b/pics/1082946.jpg deleted file mode 100644 index 8711ae84..00000000 Binary files a/pics/1082946.jpg and /dev/null differ diff --git a/pics/10859908.jpg b/pics/10859908.jpg deleted file mode 100644 index 909410ed..00000000 Binary files a/pics/10859908.jpg and /dev/null differ diff --git a/pics/10860121.jpg b/pics/10860121.jpg deleted file mode 100644 index ad820580..00000000 Binary files a/pics/10860121.jpg and /dev/null differ diff --git a/pics/10875327.jpg b/pics/10875327.jpg deleted file mode 100644 index 81942633..00000000 Binary files a/pics/10875327.jpg and /dev/null differ diff --git a/pics/10920352.jpg b/pics/10920352.jpg deleted file mode 100644 index c2e43de9..00000000 Binary files a/pics/10920352.jpg and /dev/null differ diff --git a/pics/10925955.jpg b/pics/10925955.jpg deleted file mode 100644 index 676de232..00000000 Binary files a/pics/10925955.jpg and /dev/null differ diff --git a/pics/10960419.jpg b/pics/10960419.jpg deleted file mode 100755 index 41131ae6..00000000 Binary files a/pics/10960419.jpg and /dev/null differ diff --git a/pics/10963799.jpg b/pics/10963799.jpg deleted file mode 100644 index 28e151df..00000000 Binary files a/pics/10963799.jpg and /dev/null differ diff --git a/pics/10979723.jpg b/pics/10979723.jpg deleted file mode 100644 index 9d6d6f7e..00000000 Binary files a/pics/10979723.jpg and /dev/null differ diff --git a/pics/10992251.jpg b/pics/10992251.jpg deleted file mode 100644 index d5f88136..00000000 Binary files a/pics/10992251.jpg and /dev/null differ diff --git a/pics/110000000.jpg b/pics/110000000.jpg deleted file mode 100644 index 91e3c748..00000000 Binary files a/pics/110000000.jpg and /dev/null differ diff --git a/pics/110000010.jpg b/pics/110000010.jpg deleted file mode 100644 index 0917bc68..00000000 Binary files a/pics/110000010.jpg and /dev/null differ diff --git a/pics/110000099.jpg b/pics/110000099.jpg deleted file mode 100644 index 4047454e..00000000 Binary files a/pics/110000099.jpg and /dev/null differ diff --git a/pics/110000100.jpg b/pics/110000100.jpg deleted file mode 100644 index 8f4ad532..00000000 Binary files a/pics/110000100.jpg and /dev/null differ diff --git a/pics/110000101.jpg b/pics/110000101.jpg deleted file mode 100644 index 81663d9b..00000000 Binary files a/pics/110000101.jpg and /dev/null differ diff --git a/pics/110000102.jpg b/pics/110000102.jpg deleted file mode 100644 index 188f5bf0..00000000 Binary files a/pics/110000102.jpg and /dev/null differ diff --git a/pics/110000103.jpg b/pics/110000103.jpg deleted file mode 100644 index c338beca..00000000 Binary files a/pics/110000103.jpg and /dev/null differ diff --git a/pics/110000104.jpg b/pics/110000104.jpg deleted file mode 100644 index 8aac232e..00000000 Binary files a/pics/110000104.jpg and /dev/null differ diff --git a/pics/110000105.jpg b/pics/110000105.jpg deleted file mode 100644 index f26ca6d8..00000000 Binary files a/pics/110000105.jpg and /dev/null differ diff --git a/pics/110000106.jpg b/pics/110000106.jpg deleted file mode 100644 index 1e2cdfe8..00000000 Binary files a/pics/110000106.jpg and /dev/null differ diff --git a/pics/110000107.jpg b/pics/110000107.jpg deleted file mode 100644 index 090dd373..00000000 Binary files a/pics/110000107.jpg and /dev/null differ diff --git a/pics/110000108.jpg b/pics/110000108.jpg deleted file mode 100644 index 3612ee1d..00000000 Binary files a/pics/110000108.jpg and /dev/null differ diff --git a/pics/110000109.jpg b/pics/110000109.jpg deleted file mode 100644 index 9ccdb8d6..00000000 Binary files a/pics/110000109.jpg and /dev/null differ diff --git a/pics/110000110.jpg b/pics/110000110.jpg deleted file mode 100644 index 743c02d7..00000000 Binary files a/pics/110000110.jpg and /dev/null differ diff --git a/pics/110000111.jpg b/pics/110000111.jpg deleted file mode 100644 index 0ca735f9..00000000 Binary files a/pics/110000111.jpg and /dev/null differ diff --git a/pics/110000112.jpg b/pics/110000112.jpg deleted file mode 100644 index 4725824d..00000000 Binary files a/pics/110000112.jpg and /dev/null differ diff --git a/pics/110000113.jpg b/pics/110000113.jpg deleted file mode 100644 index 52c9ff33..00000000 Binary files a/pics/110000113.jpg and /dev/null differ diff --git a/pics/110000114.jpg b/pics/110000114.jpg deleted file mode 100644 index 722b5616..00000000 Binary files a/pics/110000114.jpg and /dev/null differ diff --git a/pics/110000115.jpg b/pics/110000115.jpg deleted file mode 100644 index 781bb7bd..00000000 Binary files a/pics/110000115.jpg and /dev/null differ diff --git a/pics/110000116.jpg b/pics/110000116.jpg deleted file mode 100644 index e5d83c9b..00000000 Binary files a/pics/110000116.jpg and /dev/null differ diff --git a/pics/110000117.jpg b/pics/110000117.jpg deleted file mode 100644 index 9c22f805..00000000 Binary files a/pics/110000117.jpg and /dev/null differ diff --git a/pics/110000120.jpg b/pics/110000120.jpg deleted file mode 100644 index 9ecd54f6..00000000 Binary files a/pics/110000120.jpg and /dev/null differ diff --git a/pics/11012887.jpg b/pics/11012887.jpg deleted file mode 100644 index e634cfb0..00000000 Binary files a/pics/11012887.jpg and /dev/null differ diff --git a/pics/11021521.jpg b/pics/11021521.jpg deleted file mode 100644 index 03618f0f..00000000 Binary files a/pics/11021521.jpg and /dev/null differ diff --git a/pics/1102515.jpg b/pics/1102515.jpg deleted file mode 100644 index f5cfc498..00000000 Binary files a/pics/1102515.jpg and /dev/null differ diff --git a/pics/11039171.jpg b/pics/11039171.jpg deleted file mode 100644 index bd067c31..00000000 Binary files a/pics/11039171.jpg and /dev/null differ diff --git a/pics/11047543.jpg b/pics/11047543.jpg deleted file mode 100644 index 075c25a8..00000000 Binary files a/pics/11047543.jpg and /dev/null differ diff --git a/pics/11052544.jpg b/pics/11052544.jpg deleted file mode 100644 index 5ffc6506..00000000 Binary files a/pics/11052544.jpg and /dev/null differ diff --git a/pics/11066358.jpg b/pics/11066358.jpg deleted file mode 100644 index d7aa621e..00000000 Binary files a/pics/11066358.jpg and /dev/null differ diff --git a/pics/11082056.jpg b/pics/11082056.jpg deleted file mode 100755 index 950548eb..00000000 Binary files a/pics/11082056.jpg and /dev/null differ diff --git a/pics/11091375.jpg b/pics/11091375.jpg deleted file mode 100644 index c757ae85..00000000 Binary files a/pics/11091375.jpg and /dev/null differ diff --git a/pics/111008301.jpg b/pics/111008301.jpg deleted file mode 100644 index ed8f9f73..00000000 Binary files a/pics/111008301.jpg and /dev/null differ diff --git a/pics/111009401.jpg b/pics/111009401.jpg deleted file mode 100644 index 9b706c9e..00000000 Binary files a/pics/111009401.jpg and /dev/null differ diff --git a/pics/111011002.jpg b/pics/111011002.jpg deleted file mode 100644 index 43e1ff9e..00000000 Binary files a/pics/111011002.jpg and /dev/null differ diff --git a/pics/111011401.jpg b/pics/111011401.jpg deleted file mode 100644 index ef579069..00000000 Binary files a/pics/111011401.jpg and /dev/null differ diff --git a/pics/111011501.jpg b/pics/111011501.jpg deleted file mode 100644 index 342b917c..00000000 Binary files a/pics/111011501.jpg and /dev/null differ diff --git a/pics/111011802.jpg b/pics/111011802.jpg deleted file mode 100644 index 0350bf9d..00000000 Binary files a/pics/111011802.jpg and /dev/null differ diff --git a/pics/111011803.jpg b/pics/111011803.jpg deleted file mode 100644 index 3c38ec15..00000000 Binary files a/pics/111011803.jpg and /dev/null differ diff --git a/pics/111011901.jpg b/pics/111011901.jpg deleted file mode 100644 index 2218cd62..00000000 Binary files a/pics/111011901.jpg and /dev/null differ diff --git a/pics/111011903.jpg b/pics/111011903.jpg deleted file mode 100644 index ac7e90c8..00000000 Binary files a/pics/111011903.jpg and /dev/null differ diff --git a/pics/111011904.jpg b/pics/111011904.jpg deleted file mode 100644 index 4aa9f7c2..00000000 Binary files a/pics/111011904.jpg and /dev/null differ diff --git a/pics/111011905.jpg b/pics/111011905.jpg deleted file mode 100644 index 376ef7a4..00000000 Binary files a/pics/111011905.jpg and /dev/null differ diff --git a/pics/111011906.jpg b/pics/111011906.jpg deleted file mode 100644 index 4b437e23..00000000 Binary files a/pics/111011906.jpg and /dev/null differ diff --git a/pics/111012401.jpg b/pics/111012401.jpg deleted file mode 100644 index 5bd3d395..00000000 Binary files a/pics/111012401.jpg and /dev/null differ diff --git a/pics/11102908.jpg b/pics/11102908.jpg deleted file mode 100644 index 4793ce31..00000000 Binary files a/pics/11102908.jpg and /dev/null differ diff --git a/pics/11109820.jpg b/pics/11109820.jpg deleted file mode 100644 index ec86f271..00000000 Binary files a/pics/11109820.jpg and /dev/null differ diff --git a/pics/111203901.jpg b/pics/111203901.jpg deleted file mode 100644 index 5501b254..00000000 Binary files a/pics/111203901.jpg and /dev/null differ diff --git a/pics/111203902.jpg b/pics/111203902.jpg deleted file mode 100644 index 92bbdfcb..00000000 Binary files a/pics/111203902.jpg and /dev/null differ diff --git a/pics/111215001.jpg b/pics/111215001.jpg deleted file mode 100644 index 3b12c399..00000000 Binary files a/pics/111215001.jpg and /dev/null differ diff --git a/pics/111217602.jpg b/pics/111217602.jpg deleted file mode 100644 index f9be2939..00000000 Binary files a/pics/111217602.jpg and /dev/null differ diff --git a/pics/11125718.jpg b/pics/11125718.jpg deleted file mode 100644 index 0ca3bb1a..00000000 Binary files a/pics/11125718.jpg and /dev/null differ diff --git a/pics/111300001.jpg b/pics/111300001.jpg deleted file mode 100644 index 1e69a481..00000000 Binary files a/pics/111300001.jpg and /dev/null differ diff --git a/pics/111302501.jpg b/pics/111302501.jpg deleted file mode 100644 index 58cf4b20..00000000 Binary files a/pics/111302501.jpg and /dev/null differ diff --git a/pics/111310102.jpg b/pics/111310102.jpg deleted file mode 100644 index 09d6eb71..00000000 Binary files a/pics/111310102.jpg and /dev/null differ diff --git a/pics/11136371.jpg b/pics/11136371.jpg deleted file mode 100644 index a8b77681..00000000 Binary files a/pics/11136371.jpg and /dev/null differ diff --git a/pics/11159464.jpg b/pics/11159464.jpg deleted file mode 100644 index 9a95d7b8..00000000 Binary files a/pics/11159464.jpg and /dev/null differ diff --git a/pics/11193246.jpg b/pics/11193246.jpg deleted file mode 100755 index af9ec3f3..00000000 Binary files a/pics/11193246.jpg and /dev/null differ diff --git a/pics/11221418.jpg b/pics/11221418.jpg deleted file mode 100644 index feb8e4d3..00000000 Binary files a/pics/11221418.jpg and /dev/null differ diff --git a/pics/11224103.jpg b/pics/11224103.jpg deleted file mode 100644 index 1391c151..00000000 Binary files a/pics/11224103.jpg and /dev/null differ diff --git a/pics/11224934.jpg b/pics/11224934.jpg deleted file mode 100644 index 3c411b42..00000000 Binary files a/pics/11224934.jpg and /dev/null differ diff --git a/pics/11228035.jpg b/pics/11228035.jpg deleted file mode 100644 index 876e411b..00000000 Binary files a/pics/11228035.jpg and /dev/null differ diff --git a/pics/11232355.jpg b/pics/11232355.jpg deleted file mode 100644 index 37ce3830..00000000 Binary files a/pics/11232355.jpg and /dev/null differ diff --git a/pics/11250655.jpg b/pics/11250655.jpg deleted file mode 100644 index f5b0202b..00000000 Binary files a/pics/11250655.jpg and /dev/null differ diff --git a/pics/11260714.jpg b/pics/11260714.jpg deleted file mode 100644 index 84f0d13c..00000000 Binary files a/pics/11260714.jpg and /dev/null differ diff --git a/pics/11264180.jpg b/pics/11264180.jpg deleted file mode 100644 index c06f8d63..00000000 Binary files a/pics/11264180.jpg and /dev/null differ diff --git a/pics/1127737.jpg b/pics/1127737.jpg deleted file mode 100644 index 9fcb3400..00000000 Binary files a/pics/1127737.jpg and /dev/null differ diff --git a/pics/11287364.jpg b/pics/11287364.jpg deleted file mode 100644 index eb7a3c85..00000000 Binary files a/pics/11287364.jpg and /dev/null differ diff --git a/pics/11317977.jpg b/pics/11317977.jpg deleted file mode 100755 index fc2d7a35..00000000 Binary files a/pics/11317977.jpg and /dev/null differ diff --git a/pics/11321183.jpg b/pics/11321183.jpg deleted file mode 100644 index 69ee7b58..00000000 Binary files a/pics/11321183.jpg and /dev/null differ diff --git a/pics/11324436.jpg b/pics/11324436.jpg deleted file mode 100644 index 505acf3c..00000000 Binary files a/pics/11324436.jpg and /dev/null differ diff --git a/pics/11366199.jpg b/pics/11366199.jpg deleted file mode 100644 index 3b2e8cfa..00000000 Binary files a/pics/11366199.jpg and /dev/null differ diff --git a/pics/11373345.jpg b/pics/11373345.jpg deleted file mode 100644 index 560243bc..00000000 Binary files a/pics/11373345.jpg and /dev/null differ diff --git a/pics/11384280.jpg b/pics/11384280.jpg deleted file mode 100644 index 39fbeef6..00000000 Binary files a/pics/11384280.jpg and /dev/null differ diff --git a/pics/11390349.jpg b/pics/11390349.jpg deleted file mode 100644 index e0e2f4d9..00000000 Binary files a/pics/11390349.jpg and /dev/null differ diff --git a/pics/11398059.jpg b/pics/11398059.jpg deleted file mode 100644 index f1720b7e..00000000 Binary files a/pics/11398059.jpg and /dev/null differ diff --git a/pics/11411223.jpg b/pics/11411223.jpg deleted file mode 100644 index df3ca42a..00000000 Binary files a/pics/11411223.jpg and /dev/null differ diff --git a/pics/11448373.jpg b/pics/11448373.jpg deleted file mode 100644 index 48add84b..00000000 Binary files a/pics/11448373.jpg and /dev/null differ diff --git a/pics/11458071.jpg b/pics/11458071.jpg deleted file mode 100644 index 8af77634..00000000 Binary files a/pics/11458071.jpg and /dev/null differ diff --git a/pics/11460577.jpg b/pics/11460577.jpg deleted file mode 100644 index db9e538b..00000000 Binary files a/pics/11460577.jpg and /dev/null differ diff --git a/pics/11471117.jpg b/pics/11471117.jpg deleted file mode 100644 index fea512b3..00000000 Binary files a/pics/11471117.jpg and /dev/null differ diff --git a/pics/11475049.jpg b/pics/11475049.jpg deleted file mode 100644 index 8e5be942..00000000 Binary files a/pics/11475049.jpg and /dev/null differ diff --git a/pics/1149109.jpg b/pics/1149109.jpg deleted file mode 100644 index e60e4eb7..00000000 Binary files a/pics/1149109.jpg and /dev/null differ diff --git a/pics/114932.jpg b/pics/114932.jpg deleted file mode 100644 index a84eea6e..00000000 Binary files a/pics/114932.jpg and /dev/null differ diff --git a/pics/11501629.jpg b/pics/11501629.jpg deleted file mode 100644 index 07193eca..00000000 Binary files a/pics/11501629.jpg and /dev/null differ diff --git a/pics/11502550.jpg b/pics/11502550.jpg deleted file mode 100644 index 08775465..00000000 Binary files a/pics/11502550.jpg and /dev/null differ diff --git a/pics/11508758.jpg b/pics/11508758.jpg deleted file mode 100644 index 128157fb..00000000 Binary files a/pics/11508758.jpg and /dev/null differ diff --git a/pics/11522979.jpg b/pics/11522979.jpg deleted file mode 100644 index 2e747095..00000000 Binary files a/pics/11522979.jpg and /dev/null differ diff --git a/pics/1154611.jpg b/pics/1154611.jpg deleted file mode 100755 index f9d858f3..00000000 Binary files a/pics/1154611.jpg and /dev/null differ diff --git a/pics/11548522.jpg b/pics/11548522.jpg deleted file mode 100644 index eec5b6e1..00000000 Binary files a/pics/11548522.jpg and /dev/null differ diff --git a/pics/11549357.jpg b/pics/11549357.jpg deleted file mode 100644 index 8491d099..00000000 Binary files a/pics/11549357.jpg and /dev/null differ diff --git a/pics/11556339.jpg b/pics/11556339.jpg deleted file mode 100644 index 030d0e7a..00000000 Binary files a/pics/11556339.jpg and /dev/null differ diff --git a/pics/11593137.jpg b/pics/11593137.jpg deleted file mode 100644 index e080d7f7..00000000 Binary files a/pics/11593137.jpg and /dev/null differ diff --git a/pics/11596936.jpg b/pics/11596936.jpg deleted file mode 100644 index 2fdb7fac..00000000 Binary files a/pics/11596936.jpg and /dev/null differ diff --git a/pics/11609969.jpg b/pics/11609969.jpg deleted file mode 100755 index ff198995..00000000 Binary files a/pics/11609969.jpg and /dev/null differ diff --git a/pics/11613567.jpg b/pics/11613567.jpg deleted file mode 100644 index c7385a74..00000000 Binary files a/pics/11613567.jpg and /dev/null differ diff --git a/pics/11646785.jpg b/pics/11646785.jpg deleted file mode 100755 index fa8374ff..00000000 Binary files a/pics/11646785.jpg and /dev/null differ diff --git a/pics/11662742.jpg b/pics/11662742.jpg deleted file mode 100644 index 2bd3da17..00000000 Binary files a/pics/11662742.jpg and /dev/null differ diff --git a/pics/11678191.jpg b/pics/11678191.jpg deleted file mode 100644 index 276c0577..00000000 Binary files a/pics/11678191.jpg and /dev/null differ diff --git a/pics/11682713.jpg b/pics/11682713.jpg deleted file mode 100644 index 3b9d67ab..00000000 Binary files a/pics/11682713.jpg and /dev/null differ diff --git a/pics/11685347.jpg b/pics/11685347.jpg deleted file mode 100644 index 4cad502f..00000000 Binary files a/pics/11685347.jpg and /dev/null differ diff --git a/pics/11705261.jpg b/pics/11705261.jpg deleted file mode 100644 index d7ba03a0..00000000 Binary files a/pics/11705261.jpg and /dev/null differ diff --git a/pics/11714098.jpg b/pics/11714098.jpg deleted file mode 100644 index 3d937cd3..00000000 Binary files a/pics/11714098.jpg and /dev/null differ diff --git a/pics/11722335.jpg b/pics/11722335.jpg deleted file mode 100644 index 50c96b11..00000000 Binary files a/pics/11722335.jpg and /dev/null differ diff --git a/pics/11741041.jpg b/pics/11741041.jpg deleted file mode 100644 index 58107b47..00000000 Binary files a/pics/11741041.jpg and /dev/null differ diff --git a/pics/11743119.jpg b/pics/11743119.jpg deleted file mode 100644 index 2f569fa5..00000000 Binary files a/pics/11743119.jpg and /dev/null differ diff --git a/pics/11747708.jpg b/pics/11747708.jpg deleted file mode 100644 index d1b422a4..00000000 Binary files a/pics/11747708.jpg and /dev/null differ diff --git a/pics/11760174.jpg b/pics/11760174.jpg deleted file mode 100644 index ac017585..00000000 Binary files a/pics/11760174.jpg and /dev/null differ diff --git a/pics/11761845.jpg b/pics/11761845.jpg deleted file mode 100644 index dc3ce684..00000000 Binary files a/pics/11761845.jpg and /dev/null differ diff --git a/pics/11790356.jpg b/pics/11790356.jpg deleted file mode 100755 index 77341c37..00000000 Binary files a/pics/11790356.jpg and /dev/null differ diff --git a/pics/11793047.jpg b/pics/11793047.jpg deleted file mode 100644 index 26434ce2..00000000 Binary files a/pics/11793047.jpg and /dev/null differ diff --git a/pics/11813722.jpg b/pics/11813722.jpg deleted file mode 100644 index 7217f4ce..00000000 Binary files a/pics/11813722.jpg and /dev/null differ diff --git a/pics/11813953.jpg b/pics/11813953.jpg deleted file mode 100644 index 2ebb4fb8..00000000 Binary files a/pics/11813953.jpg and /dev/null differ diff --git a/pics/11819616.jpg b/pics/11819616.jpg deleted file mode 100644 index 207eddef..00000000 Binary files a/pics/11819616.jpg and /dev/null differ diff --git a/pics/11830996.jpg b/pics/11830996.jpg deleted file mode 100644 index eb12a6cb..00000000 Binary files a/pics/11830996.jpg and /dev/null differ diff --git a/pics/11834972.jpg b/pics/11834972.jpg deleted file mode 100755 index 2579ffa8..00000000 Binary files a/pics/11834972.jpg and /dev/null differ diff --git a/pics/1184620.jpg b/pics/1184620.jpg deleted file mode 100644 index a958fdd7..00000000 Binary files a/pics/1184620.jpg and /dev/null differ diff --git a/pics/11868731.jpg b/pics/11868731.jpg deleted file mode 100644 index 605b3027..00000000 Binary files a/pics/11868731.jpg and /dev/null differ diff --git a/pics/11868825.jpg b/pics/11868825.jpg deleted file mode 100644 index 3ace7286..00000000 Binary files a/pics/11868825.jpg and /dev/null differ diff --git a/pics/11877465.jpg b/pics/11877465.jpg deleted file mode 100644 index 38a7300a..00000000 Binary files a/pics/11877465.jpg and /dev/null differ diff --git a/pics/11901678.jpg b/pics/11901678.jpg deleted file mode 100644 index 0db0ab4f..00000000 Binary files a/pics/11901678.jpg and /dev/null differ diff --git a/pics/11913700.jpg b/pics/11913700.jpg deleted file mode 100644 index cfa4f59f..00000000 Binary files a/pics/11913700.jpg and /dev/null differ diff --git a/pics/11925569.jpg b/pics/11925569.jpg deleted file mode 100644 index 56eef304..00000000 Binary files a/pics/11925569.jpg and /dev/null differ diff --git a/pics/11954712.jpg b/pics/11954712.jpg deleted file mode 100644 index 9da3f75c..00000000 Binary files a/pics/11954712.jpg and /dev/null differ diff --git a/pics/11958188.jpg b/pics/11958188.jpg deleted file mode 100644 index f350ba30..00000000 Binary files a/pics/11958188.jpg and /dev/null differ diff --git a/pics/11961740.jpg b/pics/11961740.jpg deleted file mode 100644 index 79f582a8..00000000 Binary files a/pics/11961740.jpg and /dev/null differ diff --git a/pics/11975962.jpg b/pics/11975962.jpg deleted file mode 100644 index f92804d1..00000000 Binary files a/pics/11975962.jpg and /dev/null differ diff --git a/pics/11987744.jpg b/pics/11987744.jpg deleted file mode 100644 index 9f2dea44..00000000 Binary files a/pics/11987744.jpg and /dev/null differ diff --git a/pics/120000016.jpg b/pics/120000016.jpg deleted file mode 100644 index ea2e62dd..00000000 Binary files a/pics/120000016.jpg and /dev/null differ diff --git a/pics/1200843.jpg b/pics/1200843.jpg deleted file mode 100644 index 7e62ed62..00000000 Binary files a/pics/1200843.jpg and /dev/null differ diff --git a/pics/12014404.jpg b/pics/12014404.jpg deleted file mode 100644 index 8e2db833..00000000 Binary files a/pics/12014404.jpg and /dev/null differ diff --git a/pics/12057781.jpg b/pics/12057781.jpg deleted file mode 100644 index 04a054d9..00000000 Binary files a/pics/12057781.jpg and /dev/null differ diff --git a/pics/12071500.jpg b/pics/12071500.jpg deleted file mode 100644 index 7885d0ee..00000000 Binary files a/pics/12071500.jpg and /dev/null differ diff --git a/pics/12076263.jpg b/pics/12076263.jpg deleted file mode 100644 index fee26aff..00000000 Binary files a/pics/12076263.jpg and /dev/null differ diff --git a/pics/12079734.jpg b/pics/12079734.jpg deleted file mode 100644 index f822980b..00000000 Binary files a/pics/12079734.jpg and /dev/null differ diff --git a/pics/12117532.jpg b/pics/12117532.jpg deleted file mode 100644 index ad599231..00000000 Binary files a/pics/12117532.jpg and /dev/null differ diff --git a/pics/12143771.jpg b/pics/12143771.jpg deleted file mode 100644 index 842b0a5e..00000000 Binary files a/pics/12143771.jpg and /dev/null differ diff --git a/pics/12146024.jpg b/pics/12146024.jpg deleted file mode 100644 index 5cc7c9c9..00000000 Binary files a/pics/12146024.jpg and /dev/null differ diff --git a/pics/12152769.jpg b/pics/12152769.jpg deleted file mode 100644 index 063791c5..00000000 Binary files a/pics/12152769.jpg and /dev/null differ diff --git a/pics/12160911.jpg b/pics/12160911.jpg deleted file mode 100644 index 7c504179..00000000 Binary files a/pics/12160911.jpg and /dev/null differ diff --git a/pics/12171659.jpg b/pics/12171659.jpg deleted file mode 100644 index 136b4ffd..00000000 Binary files a/pics/12171659.jpg and /dev/null differ diff --git a/pics/12174035.jpg b/pics/12174035.jpg deleted file mode 100644 index 4d414aac..00000000 Binary files a/pics/12174035.jpg and /dev/null differ diff --git a/pics/12181376.jpg b/pics/12181376.jpg deleted file mode 100644 index 94eb4849..00000000 Binary files a/pics/12181376.jpg and /dev/null differ diff --git a/pics/12183332.jpg b/pics/12183332.jpg deleted file mode 100644 index 1f240867..00000000 Binary files a/pics/12183332.jpg and /dev/null differ diff --git a/pics/12197543.jpg b/pics/12197543.jpg deleted file mode 100644 index e052ec1f..00000000 Binary files a/pics/12197543.jpg and /dev/null differ diff --git a/pics/12206212.jpg b/pics/12206212.jpg deleted file mode 100644 index cc3a1f03..00000000 Binary files a/pics/12206212.jpg and /dev/null differ diff --git a/pics/12216615.jpg b/pics/12216615.jpg deleted file mode 100644 index 706fbe4c..00000000 Binary files a/pics/12216615.jpg and /dev/null differ diff --git a/pics/12235475.jpg b/pics/12235475.jpg deleted file mode 100644 index ee53aa0f..00000000 Binary files a/pics/12235475.jpg and /dev/null differ diff --git a/pics/12247206.jpg b/pics/12247206.jpg deleted file mode 100644 index 4c8f44d6..00000000 Binary files a/pics/12247206.jpg and /dev/null differ diff --git a/pics/1224927.jpg b/pics/1224927.jpg deleted file mode 100644 index 2a54a1df..00000000 Binary files a/pics/1224927.jpg and /dev/null differ diff --git a/pics/12253117.jpg b/pics/12253117.jpg deleted file mode 100644 index 60c4e374..00000000 Binary files a/pics/12253117.jpg and /dev/null differ diff --git a/pics/12275533.jpg b/pics/12275533.jpg deleted file mode 100644 index 96c19365..00000000 Binary files a/pics/12275533.jpg and /dev/null differ diff --git a/pics/12296376.jpg b/pics/12296376.jpg deleted file mode 100644 index 023cbe54..00000000 Binary files a/pics/12296376.jpg and /dev/null differ diff --git a/pics/12298909.jpg b/pics/12298909.jpg deleted file mode 100644 index 591e1265..00000000 Binary files a/pics/12298909.jpg and /dev/null differ diff --git a/pics/12299841.jpg b/pics/12299841.jpg deleted file mode 100644 index 70d50861..00000000 Binary files a/pics/12299841.jpg and /dev/null differ diff --git a/pics/12324546.jpg b/pics/12324546.jpg deleted file mode 100644 index afd6a81d..00000000 Binary files a/pics/12324546.jpg and /dev/null differ diff --git a/pics/12338068.jpg b/pics/12338068.jpg deleted file mode 100644 index 56498d12..00000000 Binary files a/pics/12338068.jpg and /dev/null differ diff --git a/pics/12369277.jpg b/pics/12369277.jpg deleted file mode 100755 index 7171e6ca..00000000 Binary files a/pics/12369277.jpg and /dev/null differ diff --git a/pics/123709.jpg b/pics/123709.jpg deleted file mode 100644 index 761ff3b4..00000000 Binary files a/pics/123709.jpg and /dev/null differ diff --git a/pics/12398280.jpg b/pics/12398280.jpg deleted file mode 100644 index 66c1a3a0..00000000 Binary files a/pics/12398280.jpg and /dev/null differ diff --git a/pics/12423762.jpg b/pics/12423762.jpg deleted file mode 100644 index 1c66a567..00000000 Binary files a/pics/12423762.jpg and /dev/null differ diff --git a/pics/12435193.jpg b/pics/12435193.jpg deleted file mode 100644 index 6c802e0c..00000000 Binary files a/pics/12435193.jpg and /dev/null differ diff --git a/pics/12436646.jpg b/pics/12436646.jpg deleted file mode 100644 index 19a372c4..00000000 Binary files a/pics/12436646.jpg and /dev/null differ diff --git a/pics/12444060.jpg b/pics/12444060.jpg deleted file mode 100644 index ac742168..00000000 Binary files a/pics/12444060.jpg and /dev/null differ diff --git a/pics/12451640.jpg b/pics/12451640.jpg deleted file mode 100644 index 25cfb1c6..00000000 Binary files a/pics/12451640.jpg and /dev/null differ diff --git a/pics/12467005.jpg b/pics/12467005.jpg deleted file mode 100644 index 91b6bcd6..00000000 Binary files a/pics/12467005.jpg and /dev/null differ diff --git a/pics/12469386.jpg b/pics/12469386.jpg deleted file mode 100644 index 9ba874bf..00000000 Binary files a/pics/12469386.jpg and /dev/null differ diff --git a/pics/12470447.jpg b/pics/12470447.jpg deleted file mode 100644 index 696e7052..00000000 Binary files a/pics/12470447.jpg and /dev/null differ diff --git a/pics/12472242.jpg b/pics/12472242.jpg deleted file mode 100644 index 65b7f93d..00000000 Binary files a/pics/12472242.jpg and /dev/null differ diff --git a/pics/12482652.jpg b/pics/12482652.jpg deleted file mode 100644 index 6dee5ef4..00000000 Binary files a/pics/12482652.jpg and /dev/null differ diff --git a/pics/1248895.jpg b/pics/1248895.jpg deleted file mode 100644 index c61c37b2..00000000 Binary files a/pics/1248895.jpg and /dev/null differ diff --git a/pics/1249315.jpg b/pics/1249315.jpg deleted file mode 100644 index 2b94b3ad..00000000 Binary files a/pics/1249315.jpg and /dev/null differ diff --git a/pics/12493482.jpg b/pics/12493482.jpg deleted file mode 100644 index 6e16fc96..00000000 Binary files a/pics/12493482.jpg and /dev/null differ diff --git a/pics/12503902.jpg b/pics/12503902.jpg deleted file mode 100644 index ebdc9785..00000000 Binary files a/pics/12503902.jpg and /dev/null differ diff --git a/pics/12510878.jpg b/pics/12510878.jpg deleted file mode 100644 index 456b59b8..00000000 Binary files a/pics/12510878.jpg and /dev/null differ diff --git a/pics/12525049.jpg b/pics/12525049.jpg deleted file mode 100644 index e49816e2..00000000 Binary files a/pics/12525049.jpg and /dev/null differ diff --git a/pics/12533811.jpg b/pics/12533811.jpg deleted file mode 100644 index 5667f85d..00000000 Binary files a/pics/12533811.jpg and /dev/null differ diff --git a/pics/12538374.jpg b/pics/12538374.jpg deleted file mode 100644 index e94c1aa5..00000000 Binary files a/pics/12538374.jpg and /dev/null differ diff --git a/pics/12580477.jpg b/pics/12580477.jpg deleted file mode 100644 index 2dbfaa06..00000000 Binary files a/pics/12580477.jpg and /dev/null differ diff --git a/pics/12600382.jpg b/pics/12600382.jpg deleted file mode 100755 index 5d22414e..00000000 Binary files a/pics/12600382.jpg and /dev/null differ diff --git a/pics/12607053.jpg b/pics/12607053.jpg deleted file mode 100644 index 06edacf5..00000000 Binary files a/pics/12607053.jpg and /dev/null differ diff --git a/pics/126218.jpg b/pics/126218.jpg deleted file mode 100644 index 19e26440..00000000 Binary files a/pics/126218.jpg and /dev/null differ diff --git a/pics/12624008.jpg b/pics/12624008.jpg deleted file mode 100644 index 74e9ab35..00000000 Binary files a/pics/12624008.jpg and /dev/null differ diff --git a/pics/1264319.jpg b/pics/1264319.jpg deleted file mode 100644 index 38180113..00000000 Binary files a/pics/1264319.jpg and /dev/null differ diff --git a/pics/12644061.jpg b/pics/12644061.jpg deleted file mode 100644 index f6c7714d..00000000 Binary files a/pics/12644061.jpg and /dev/null differ diff --git a/pics/12652643.jpg b/pics/12652643.jpg deleted file mode 100644 index ed2b28a9..00000000 Binary files a/pics/12652643.jpg and /dev/null differ diff --git a/pics/12670770.jpg b/pics/12670770.jpg deleted file mode 100644 index cb5086eb..00000000 Binary files a/pics/12670770.jpg and /dev/null differ diff --git a/pics/12678870.jpg b/pics/12678870.jpg deleted file mode 100644 index 97938c01..00000000 Binary files a/pics/12678870.jpg and /dev/null differ diff --git a/pics/12694768.jpg b/pics/12694768.jpg deleted file mode 100644 index 5a03c901..00000000 Binary files a/pics/12694768.jpg and /dev/null differ diff --git a/pics/12697630.jpg b/pics/12697630.jpg deleted file mode 100644 index 4d1cf1c4..00000000 Binary files a/pics/12697630.jpg and /dev/null differ diff --git a/pics/12735388.jpg b/pics/12735388.jpg deleted file mode 100644 index 8438065a..00000000 Binary files a/pics/12735388.jpg and /dev/null differ diff --git a/pics/1274455.jpg b/pics/1274455.jpg deleted file mode 100755 index 86ee3bbe..00000000 Binary files a/pics/1274455.jpg and /dev/null differ diff --git a/pics/12744567.jpg b/pics/12744567.jpg deleted file mode 100644 index 16c2f870..00000000 Binary files a/pics/12744567.jpg and /dev/null differ diff --git a/pics/12755462.jpg b/pics/12755462.jpg deleted file mode 100644 index abd0922f..00000000 Binary files a/pics/12755462.jpg and /dev/null differ diff --git a/pics/12800777.jpg b/pics/12800777.jpg deleted file mode 100644 index 8ae7ac47..00000000 Binary files a/pics/12800777.jpg and /dev/null differ diff --git a/pics/1281505.jpg b/pics/1281505.jpg deleted file mode 100644 index b99d0cd5..00000000 Binary files a/pics/1281505.jpg and /dev/null differ diff --git a/pics/12817939.jpg b/pics/12817939.jpg deleted file mode 100644 index 1b89cc81..00000000 Binary files a/pics/12817939.jpg and /dev/null differ diff --git a/pics/12822541.jpg b/pics/12822541.jpg deleted file mode 100644 index 213eaba3..00000000 Binary files a/pics/12822541.jpg and /dev/null differ diff --git a/pics/12829151.jpg b/pics/12829151.jpg deleted file mode 100644 index 564ce0f3..00000000 Binary files a/pics/12829151.jpg and /dev/null differ diff --git a/pics/12836042.jpg b/pics/12836042.jpg deleted file mode 100644 index 9ff8877f..00000000 Binary files a/pics/12836042.jpg and /dev/null differ diff --git a/pics/128454.jpg b/pics/128454.jpg deleted file mode 100644 index 5a687736..00000000 Binary files a/pics/128454.jpg and /dev/null differ diff --git a/pics/12863633.jpg b/pics/12863633.jpg deleted file mode 100644 index de83170f..00000000 Binary files a/pics/12863633.jpg and /dev/null differ diff --git a/pics/1287123.jpg b/pics/1287123.jpg deleted file mode 100644 index 980c925c..00000000 Binary files a/pics/1287123.jpg and /dev/null differ diff --git a/pics/12883044.jpg b/pics/12883044.jpg deleted file mode 100644 index 5e9c594a..00000000 Binary files a/pics/12883044.jpg and /dev/null differ diff --git a/pics/12923641.jpg b/pics/12923641.jpg deleted file mode 100644 index d86b403d..00000000 Binary files a/pics/12923641.jpg and /dev/null differ diff --git a/pics/12927849.jpg b/pics/12927849.jpg deleted file mode 100644 index 1c990a66..00000000 Binary files a/pics/12927849.jpg and /dev/null differ diff --git a/pics/12940613.jpg b/pics/12940613.jpg deleted file mode 100644 index 20fb772e..00000000 Binary files a/pics/12940613.jpg and /dev/null differ diff --git a/pics/12948099.jpg b/pics/12948099.jpg deleted file mode 100644 index 0db12d9e..00000000 Binary files a/pics/12948099.jpg and /dev/null differ diff --git a/pics/12953226.jpg b/pics/12953226.jpg deleted file mode 100644 index 4dfcdad9..00000000 Binary files a/pics/12953226.jpg and /dev/null differ diff --git a/pics/12958919.jpg b/pics/12958919.jpg deleted file mode 100644 index ee313bfb..00000000 Binary files a/pics/12958919.jpg and /dev/null differ diff --git a/pics/12958920.jpg b/pics/12958920.jpg deleted file mode 100644 index 51619e46..00000000 Binary files a/pics/12958920.jpg and /dev/null differ diff --git a/pics/12965761.jpg b/pics/12965761.jpg deleted file mode 100644 index ec46afc3..00000000 Binary files a/pics/12965761.jpg and /dev/null differ diff --git a/pics/12965762.jpg b/pics/12965762.jpg deleted file mode 100644 index 1a107172..00000000 Binary files a/pics/12965762.jpg and /dev/null differ diff --git a/pics/12980373.jpg b/pics/12980373.jpg deleted file mode 100644 index 0cc9bb0c..00000000 Binary files a/pics/12980373.jpg and /dev/null differ diff --git a/pics/12986778.jpg b/pics/12986778.jpg deleted file mode 100644 index ba1e33e4..00000000 Binary files a/pics/12986778.jpg and /dev/null differ diff --git a/pics/12986807.jpg b/pics/12986807.jpg deleted file mode 100644 index 3397f62b..00000000 Binary files a/pics/12986807.jpg and /dev/null differ diff --git a/pics/13002461.jpg b/pics/13002461.jpg deleted file mode 100644 index a3ec38d5..00000000 Binary files a/pics/13002461.jpg and /dev/null differ diff --git a/pics/13026402.jpg b/pics/13026402.jpg deleted file mode 100644 index 91946987..00000000 Binary files a/pics/13026402.jpg and /dev/null differ diff --git a/pics/13030280.jpg b/pics/13030280.jpg deleted file mode 100644 index daf7515f..00000000 Binary files a/pics/13030280.jpg and /dev/null differ diff --git a/pics/13032689.jpg b/pics/13032689.jpg deleted file mode 100644 index a07dcfb2..00000000 Binary files a/pics/13032689.jpg and /dev/null differ diff --git a/pics/13039848.jpg b/pics/13039848.jpg deleted file mode 100644 index 7e12008a..00000000 Binary files a/pics/13039848.jpg and /dev/null differ diff --git a/pics/13069066.jpg b/pics/13069066.jpg deleted file mode 100644 index 9eefaae4..00000000 Binary files a/pics/13069066.jpg and /dev/null differ diff --git a/pics/13073850.jpg b/pics/13073850.jpg deleted file mode 100644 index 76aac950..00000000 Binary files a/pics/13073850.jpg and /dev/null differ diff --git a/pics/13093792.jpg b/pics/13093792.jpg deleted file mode 100644 index 6e407d34..00000000 Binary files a/pics/13093792.jpg and /dev/null differ diff --git a/pics/13108445.jpg b/pics/13108445.jpg deleted file mode 100644 index bb496c84..00000000 Binary files a/pics/13108445.jpg and /dev/null differ diff --git a/pics/131182.jpg b/pics/131182.jpg deleted file mode 100644 index ad548c47..00000000 Binary files a/pics/131182.jpg and /dev/null differ diff --git a/pics/13140300.jpg b/pics/13140300.jpg deleted file mode 100644 index a83942ad..00000000 Binary files a/pics/13140300.jpg and /dev/null differ diff --git a/pics/1315120.jpg b/pics/1315120.jpg deleted file mode 100644 index a9014ab7..00000000 Binary files a/pics/1315120.jpg and /dev/null differ diff --git a/pics/13166204.jpg b/pics/13166204.jpg deleted file mode 100644 index 32cef6bb..00000000 Binary files a/pics/13166204.jpg and /dev/null differ diff --git a/pics/13166648.jpg b/pics/13166648.jpg deleted file mode 100644 index b4fd3bb1..00000000 Binary files a/pics/13166648.jpg and /dev/null differ diff --git a/pics/13179332.jpg b/pics/13179332.jpg deleted file mode 100644 index 1ebf60e3..00000000 Binary files a/pics/13179332.jpg and /dev/null differ diff --git a/pics/13183454.jpg b/pics/13183454.jpg deleted file mode 100644 index 3a5e60c0..00000000 Binary files a/pics/13183454.jpg and /dev/null differ diff --git a/pics/13193642.jpg b/pics/13193642.jpg deleted file mode 100644 index a89825ad..00000000 Binary files a/pics/13193642.jpg and /dev/null differ diff --git a/pics/13210191.jpg b/pics/13210191.jpg deleted file mode 100644 index d1004a59..00000000 Binary files a/pics/13210191.jpg and /dev/null differ diff --git a/pics/13215230.jpg b/pics/13215230.jpg deleted file mode 100644 index cc73b020..00000000 Binary files a/pics/13215230.jpg and /dev/null differ diff --git a/pics/13220032.jpg b/pics/13220032.jpg deleted file mode 100644 index f8e02f5c..00000000 Binary files a/pics/13220032.jpg and /dev/null differ diff --git a/pics/13250922.jpg b/pics/13250922.jpg deleted file mode 100644 index b242143a..00000000 Binary files a/pics/13250922.jpg and /dev/null differ diff --git a/pics/13293158.jpg b/pics/13293158.jpg deleted file mode 100644 index 76ee7d8b..00000000 Binary files a/pics/13293158.jpg and /dev/null differ diff --git a/pics/13313278.jpg b/pics/13313278.jpg deleted file mode 100644 index 543992c3..00000000 Binary files a/pics/13313278.jpg and /dev/null differ diff --git a/pics/13314457.jpg b/pics/13314457.jpg deleted file mode 100644 index 72d2cf3c..00000000 Binary files a/pics/13314457.jpg and /dev/null differ diff --git a/pics/13316346.jpg b/pics/13316346.jpg deleted file mode 100644 index b3d6cf9d..00000000 Binary files a/pics/13316346.jpg and /dev/null differ diff --git a/pics/13317419.jpg b/pics/13317419.jpg deleted file mode 100644 index dd544241..00000000 Binary files a/pics/13317419.jpg and /dev/null differ diff --git a/pics/13361027.jpg b/pics/13361027.jpg deleted file mode 100644 index 713a3cd9..00000000 Binary files a/pics/13361027.jpg and /dev/null differ diff --git a/pics/13386503.jpg b/pics/13386503.jpg deleted file mode 100644 index 45574d0b..00000000 Binary files a/pics/13386503.jpg and /dev/null differ diff --git a/pics/13391185.jpg b/pics/13391185.jpg deleted file mode 100644 index 224e4c43..00000000 Binary files a/pics/13391185.jpg and /dev/null differ diff --git a/pics/13409151.jpg b/pics/13409151.jpg deleted file mode 100644 index b5648d6c..00000000 Binary files a/pics/13409151.jpg and /dev/null differ diff --git a/pics/13429800.jpg b/pics/13429800.jpg deleted file mode 100644 index a89c18ab..00000000 Binary files a/pics/13429800.jpg and /dev/null differ diff --git a/pics/13438207.jpg b/pics/13438207.jpg deleted file mode 100644 index 631f3782..00000000 Binary files a/pics/13438207.jpg and /dev/null differ diff --git a/pics/13455953.jpg b/pics/13455953.jpg deleted file mode 100644 index 8afe1665..00000000 Binary files a/pics/13455953.jpg and /dev/null differ diff --git a/pics/13474291.jpg b/pics/13474291.jpg deleted file mode 100644 index 9d8286df..00000000 Binary files a/pics/13474291.jpg and /dev/null differ diff --git a/pics/13478040.jpg b/pics/13478040.jpg deleted file mode 100644 index 6380cb92..00000000 Binary files a/pics/13478040.jpg and /dev/null differ diff --git a/pics/1347977.jpg b/pics/1347977.jpg deleted file mode 100644 index 27394535..00000000 Binary files a/pics/1347977.jpg and /dev/null differ diff --git a/pics/13492423.jpg b/pics/13492423.jpg deleted file mode 100644 index de53701e..00000000 Binary files a/pics/13492423.jpg and /dev/null differ diff --git a/pics/13504844.jpg b/pics/13504844.jpg deleted file mode 100644 index cb2d1830..00000000 Binary files a/pics/13504844.jpg and /dev/null differ diff --git a/pics/13513663.jpg b/pics/13513663.jpg deleted file mode 100644 index 7341bbde..00000000 Binary files a/pics/13513663.jpg and /dev/null differ diff --git a/pics/13521194.jpg b/pics/13521194.jpg deleted file mode 100644 index 67f3a272..00000000 Binary files a/pics/13521194.jpg and /dev/null differ diff --git a/pics/13522325.jpg b/pics/13522325.jpg deleted file mode 100644 index fd697813..00000000 Binary files a/pics/13522325.jpg and /dev/null differ diff --git a/pics/13532663.jpg b/pics/13532663.jpg deleted file mode 100644 index c3fb3002..00000000 Binary files a/pics/13532663.jpg and /dev/null differ diff --git a/pics/1353770.jpg b/pics/1353770.jpg deleted file mode 100644 index dbe8014f..00000000 Binary files a/pics/1353770.jpg and /dev/null differ diff --git a/pics/135598.jpg b/pics/135598.jpg deleted file mode 100644 index af1440c4..00000000 Binary files a/pics/135598.jpg and /dev/null differ diff --git a/pics/1357146.jpg b/pics/1357146.jpg deleted file mode 100644 index 2b4d3c1f..00000000 Binary files a/pics/1357146.jpg and /dev/null differ diff --git a/pics/13574687.jpg b/pics/13574687.jpg deleted file mode 100644 index e74cb3e2..00000000 Binary files a/pics/13574687.jpg and /dev/null differ diff --git a/pics/13582837.jpg b/pics/13582837.jpg deleted file mode 100644 index 02074055..00000000 Binary files a/pics/13582837.jpg and /dev/null differ diff --git a/pics/13599884.jpg b/pics/13599884.jpg deleted file mode 100644 index 1a7f19d2..00000000 Binary files a/pics/13599884.jpg and /dev/null differ diff --git a/pics/13604200.jpg b/pics/13604200.jpg deleted file mode 100644 index c50f54b5..00000000 Binary files a/pics/13604200.jpg and /dev/null differ diff --git a/pics/13611090.jpg b/pics/13611090.jpg deleted file mode 100755 index f4a2e7ae..00000000 Binary files a/pics/13611090.jpg and /dev/null differ diff --git a/pics/1362589.jpg b/pics/1362589.jpg deleted file mode 100644 index ae6a0b4a..00000000 Binary files a/pics/1362589.jpg and /dev/null differ diff --git a/pics/13626450.jpg b/pics/13626450.jpg deleted file mode 100644 index 7980f993..00000000 Binary files a/pics/13626450.jpg and /dev/null differ diff --git a/pics/13629812.jpg b/pics/13629812.jpg deleted file mode 100644 index 93f457b3..00000000 Binary files a/pics/13629812.jpg and /dev/null differ diff --git a/pics/13647631.jpg b/pics/13647631.jpg deleted file mode 100644 index e834d1a1..00000000 Binary files a/pics/13647631.jpg and /dev/null differ diff --git a/pics/13676474.jpg b/pics/13676474.jpg deleted file mode 100644 index dcae3fd4..00000000 Binary files a/pics/13676474.jpg and /dev/null differ diff --git a/pics/13683298.jpg b/pics/13683298.jpg deleted file mode 100644 index cc11031c..00000000 Binary files a/pics/13683298.jpg and /dev/null differ diff --git a/pics/13685271.jpg b/pics/13685271.jpg deleted file mode 100644 index a0486bfd..00000000 Binary files a/pics/13685271.jpg and /dev/null differ diff --git a/pics/13700000.jpg b/pics/13700000.jpg deleted file mode 100644 index d154c35e..00000000 Binary files a/pics/13700000.jpg and /dev/null differ diff --git a/pics/13700023.jpg b/pics/13700023.jpg deleted file mode 100644 index 99b422cf..00000000 Binary files a/pics/13700023.jpg and /dev/null differ diff --git a/pics/13700028.jpg b/pics/13700028.jpg deleted file mode 100644 index e5e850e2..00000000 Binary files a/pics/13700028.jpg and /dev/null differ diff --git a/pics/13700029.jpg b/pics/13700029.jpg deleted file mode 100644 index 467ee3e4..00000000 Binary files a/pics/13700029.jpg and /dev/null differ diff --git a/pics/13700030.jpg b/pics/13700030.jpg deleted file mode 100644 index 0106997d..00000000 Binary files a/pics/13700030.jpg and /dev/null differ diff --git a/pics/13700031.jpg b/pics/13700031.jpg deleted file mode 100644 index 3bfb0b19..00000000 Binary files a/pics/13700031.jpg and /dev/null differ diff --git a/pics/13700032.jpg b/pics/13700032.jpg deleted file mode 100644 index e54bfcc7..00000000 Binary files a/pics/13700032.jpg and /dev/null differ diff --git a/pics/13700035.jpg b/pics/13700035.jpg deleted file mode 100644 index 1c903bc8..00000000 Binary files a/pics/13700035.jpg and /dev/null differ diff --git a/pics/13700036.jpg b/pics/13700036.jpg deleted file mode 100644 index 1cfeb42e..00000000 Binary files a/pics/13700036.jpg and /dev/null differ diff --git a/pics/13700037.jpg b/pics/13700037.jpg deleted file mode 100644 index 16e76176..00000000 Binary files a/pics/13700037.jpg and /dev/null differ diff --git a/pics/13700039.jpg b/pics/13700039.jpg deleted file mode 100644 index d2b583ee..00000000 Binary files a/pics/13700039.jpg and /dev/null differ diff --git a/pics/13700040.jpg b/pics/13700040.jpg deleted file mode 100644 index 48ec058b..00000000 Binary files a/pics/13700040.jpg and /dev/null differ diff --git a/pics/13700041.jpg b/pics/13700041.jpg deleted file mode 100644 index 2dcef6ba..00000000 Binary files a/pics/13700041.jpg and /dev/null differ diff --git a/pics/13700043.jpg b/pics/13700043.jpg deleted file mode 100644 index 816d8e7d..00000000 Binary files a/pics/13700043.jpg and /dev/null differ diff --git a/pics/13700045.jpg b/pics/13700045.jpg deleted file mode 100644 index 36ef2736..00000000 Binary files a/pics/13700045.jpg and /dev/null differ diff --git a/pics/13700046.jpg b/pics/13700046.jpg deleted file mode 100644 index 68237cae..00000000 Binary files a/pics/13700046.jpg and /dev/null differ diff --git a/pics/13700047.jpg b/pics/13700047.jpg deleted file mode 100644 index c17c2168..00000000 Binary files a/pics/13700047.jpg and /dev/null differ diff --git a/pics/13700048.jpg b/pics/13700048.jpg deleted file mode 100644 index 9b4b5b94..00000000 Binary files a/pics/13700048.jpg and /dev/null differ diff --git a/pics/13700049.jpg b/pics/13700049.jpg deleted file mode 100644 index 24725634..00000000 Binary files a/pics/13700049.jpg and /dev/null differ diff --git a/pics/13700050.jpg b/pics/13700050.jpg deleted file mode 100644 index 5f612c7a..00000000 Binary files a/pics/13700050.jpg and /dev/null differ diff --git a/pics/1370012.jpg b/pics/1370012.jpg deleted file mode 100644 index 7e82cc17..00000000 Binary files a/pics/1370012.jpg and /dev/null differ diff --git a/pics/1370013.jpg b/pics/1370013.jpg deleted file mode 100644 index d0f5b284..00000000 Binary files a/pics/1370013.jpg and /dev/null differ diff --git a/pics/1370014.jpg b/pics/1370014.jpg deleted file mode 100644 index 6c98c9fb..00000000 Binary files a/pics/1370014.jpg and /dev/null differ diff --git a/pics/1370043.jpg b/pics/1370043.jpg deleted file mode 100644 index 0009f0a2..00000000 Binary files a/pics/1370043.jpg and /dev/null differ diff --git a/pics/1370062.jpg b/pics/1370062.jpg deleted file mode 100644 index 3b6ae3a4..00000000 Binary files a/pics/1370062.jpg and /dev/null differ diff --git a/pics/1370063.jpg b/pics/1370063.jpg deleted file mode 100644 index f28e6fa2..00000000 Binary files a/pics/1370063.jpg and /dev/null differ diff --git a/pics/1370064.jpg b/pics/1370064.jpg deleted file mode 100644 index 4c25ea4a..00000000 Binary files a/pics/1370064.jpg and /dev/null differ diff --git a/pics/1370065.jpg b/pics/1370065.jpg deleted file mode 100644 index b6d3a970..00000000 Binary files a/pics/1370065.jpg and /dev/null differ diff --git a/pics/1370066.jpg b/pics/1370066.jpg deleted file mode 100644 index 1ab0cdf0..00000000 Binary files a/pics/1370066.jpg and /dev/null differ diff --git a/pics/13708425.jpg b/pics/13708425.jpg deleted file mode 100644 index 9993ec01..00000000 Binary files a/pics/13708425.jpg and /dev/null differ diff --git a/pics/1371589.jpg b/pics/1371589.jpg deleted file mode 100644 index 576d0794..00000000 Binary files a/pics/1371589.jpg and /dev/null differ diff --git a/pics/13722870.jpg b/pics/13722870.jpg deleted file mode 100644 index ca0cb450..00000000 Binary files a/pics/13722870.jpg and /dev/null differ diff --git a/pics/13723605.jpg b/pics/13723605.jpg deleted file mode 100644 index 4f3081b5..00000000 Binary files a/pics/13723605.jpg and /dev/null differ diff --git a/pics/1372887.jpg b/pics/1372887.jpg deleted file mode 100644 index 28ded8ad..00000000 Binary files a/pics/1372887.jpg and /dev/null differ diff --git a/pics/13756293.jpg b/pics/13756293.jpg deleted file mode 100644 index 57b93138..00000000 Binary files a/pics/13756293.jpg and /dev/null differ diff --git a/pics/13760677.jpg b/pics/13760677.jpg deleted file mode 100644 index e2eab1a4..00000000 Binary files a/pics/13760677.jpg and /dev/null differ diff --git a/pics/13761956.jpg b/pics/13761956.jpg deleted file mode 100644 index d27036f5..00000000 Binary files a/pics/13761956.jpg and /dev/null differ diff --git a/pics/13764881.jpg b/pics/13764881.jpg deleted file mode 100755 index 0d6dc21a..00000000 Binary files a/pics/13764881.jpg and /dev/null differ diff --git a/pics/13803864.jpg b/pics/13803864.jpg deleted file mode 100644 index f7c6bb4f..00000000 Binary files a/pics/13803864.jpg and /dev/null differ diff --git a/pics/13821299.jpg b/pics/13821299.jpg deleted file mode 100644 index c2ca335a..00000000 Binary files a/pics/13821299.jpg and /dev/null differ diff --git a/pics/13839120.jpg b/pics/13839120.jpg deleted file mode 100644 index 53c9e2b5..00000000 Binary files a/pics/13839120.jpg and /dev/null differ diff --git a/pics/13846680.jpg b/pics/13846680.jpg deleted file mode 100644 index adf2d2ce..00000000 Binary files a/pics/13846680.jpg and /dev/null differ diff --git a/pics/13851202.jpg b/pics/13851202.jpg deleted file mode 100644 index e3b05360..00000000 Binary files a/pics/13851202.jpg and /dev/null differ diff --git a/pics/13857930.jpg b/pics/13857930.jpg deleted file mode 100644 index 31205b3d..00000000 Binary files a/pics/13857930.jpg and /dev/null differ diff --git a/pics/13890468.jpg b/pics/13890468.jpg deleted file mode 100644 index 37bdc1fe..00000000 Binary files a/pics/13890468.jpg and /dev/null differ diff --git a/pics/13893596.jpg b/pics/13893596.jpg deleted file mode 100644 index 5a8f34bb..00000000 Binary files a/pics/13893596.jpg and /dev/null differ diff --git a/pics/13944422.jpg b/pics/13944422.jpg deleted file mode 100644 index e2180f56..00000000 Binary files a/pics/13944422.jpg and /dev/null differ diff --git a/pics/13945283.jpg b/pics/13945283.jpg deleted file mode 100644 index 1d722f0c..00000000 Binary files a/pics/13945283.jpg and /dev/null differ diff --git a/pics/13955608.jpg b/pics/13955608.jpg deleted file mode 100644 index addf724a..00000000 Binary files a/pics/13955608.jpg and /dev/null differ diff --git a/pics/13959634.jpg b/pics/13959634.jpg deleted file mode 100644 index 1cbb4959..00000000 Binary files a/pics/13959634.jpg and /dev/null differ diff --git a/pics/13972452.jpg b/pics/13972452.jpg deleted file mode 100755 index 99ca123a..00000000 Binary files a/pics/13972452.jpg and /dev/null differ diff --git a/pics/13974207.jpg b/pics/13974207.jpg deleted file mode 100644 index 181e8483..00000000 Binary files a/pics/13974207.jpg and /dev/null differ diff --git a/pics/13995824.jpg b/pics/13995824.jpg deleted file mode 100644 index 17c90a47..00000000 Binary files a/pics/13995824.jpg and /dev/null differ diff --git a/pics/13997673.jpg b/pics/13997673.jpg deleted file mode 100644 index 3a3dc540..00000000 Binary files a/pics/13997673.jpg and /dev/null differ diff --git a/pics/140000074.jpg b/pics/140000074.jpg deleted file mode 100644 index 26073dad..00000000 Binary files a/pics/140000074.jpg and /dev/null differ diff --git a/pics/140000075.jpg b/pics/140000075.jpg deleted file mode 100644 index 5c494029..00000000 Binary files a/pics/140000075.jpg and /dev/null differ diff --git a/pics/140000076.jpg b/pics/140000076.jpg deleted file mode 100644 index 4b0acdee..00000000 Binary files a/pics/140000076.jpg and /dev/null differ diff --git a/pics/140000082.jpg b/pics/140000082.jpg deleted file mode 100755 index 297cb89d..00000000 Binary files a/pics/140000082.jpg and /dev/null differ diff --git a/pics/140000083.jpg b/pics/140000083.jpg deleted file mode 100755 index bf70132e..00000000 Binary files a/pics/140000083.jpg and /dev/null differ diff --git a/pics/140000085.jpg b/pics/140000085.jpg deleted file mode 100644 index df71eb1b..00000000 Binary files a/pics/140000085.jpg and /dev/null differ diff --git a/pics/140000122.jpg b/pics/140000122.jpg deleted file mode 100644 index 99b6321a..00000000 Binary files a/pics/140000122.jpg and /dev/null differ diff --git a/pics/140000131.jpg b/pics/140000131.jpg deleted file mode 100644 index fa8eacff..00000000 Binary files a/pics/140000131.jpg and /dev/null differ diff --git a/pics/14001430.jpg b/pics/14001430.jpg deleted file mode 100644 index 38c9c110..00000000 Binary files a/pics/14001430.jpg and /dev/null differ diff --git a/pics/14005031.jpg b/pics/14005031.jpg deleted file mode 100644 index 7f0dabff..00000000 Binary files a/pics/14005031.jpg and /dev/null differ diff --git a/pics/14015067.jpg b/pics/14015067.jpg deleted file mode 100644 index 2278a5b5..00000000 Binary files a/pics/14015067.jpg and /dev/null differ diff --git a/pics/14017402.jpg b/pics/14017402.jpg deleted file mode 100644 index 2b3aeb08..00000000 Binary files a/pics/14017402.jpg and /dev/null differ diff --git a/pics/14037717.jpg b/pics/14037717.jpg deleted file mode 100644 index 82472867..00000000 Binary files a/pics/14037717.jpg and /dev/null differ diff --git a/pics/14047624.jpg b/pics/14047624.jpg deleted file mode 100644 index 84405b89..00000000 Binary files a/pics/14047624.jpg and /dev/null differ diff --git a/pics/14057297.jpg b/pics/14057297.jpg deleted file mode 100644 index 941e5ea0..00000000 Binary files a/pics/14057297.jpg and /dev/null differ diff --git a/pics/14087893.jpg b/pics/14087893.jpg deleted file mode 100644 index 49bae0e8..00000000 Binary files a/pics/14087893.jpg and /dev/null differ diff --git a/pics/14089428.jpg b/pics/14089428.jpg deleted file mode 100644 index 3156ed4a..00000000 Binary files a/pics/14089428.jpg and /dev/null differ diff --git a/pics/14089429.jpg b/pics/14089429.jpg deleted file mode 100644 index ebf96b54..00000000 Binary files a/pics/14089429.jpg and /dev/null differ diff --git a/pics/14094090.jpg b/pics/14094090.jpg deleted file mode 100644 index abdb18bb..00000000 Binary files a/pics/14094090.jpg and /dev/null differ diff --git a/pics/1409474.jpg b/pics/1409474.jpg deleted file mode 100644 index 5ac937c2..00000000 Binary files a/pics/1409474.jpg and /dev/null differ diff --git a/pics/1412158.jpg b/pics/1412158.jpg deleted file mode 100644 index 61281100..00000000 Binary files a/pics/1412158.jpg and /dev/null differ diff --git a/pics/14141448.jpg b/pics/14141448.jpg deleted file mode 100644 index ed2becc4..00000000 Binary files a/pics/14141448.jpg and /dev/null differ diff --git a/pics/14148099.jpg b/pics/14148099.jpg deleted file mode 100644 index f8f0f4a9..00000000 Binary files a/pics/14148099.jpg and /dev/null differ diff --git a/pics/14152862.jpg b/pics/14152862.jpg deleted file mode 100644 index 1771bbb1..00000000 Binary files a/pics/14152862.jpg and /dev/null differ diff --git a/pics/14154221.jpg b/pics/14154221.jpg deleted file mode 100644 index 051a3acf..00000000 Binary files a/pics/14154221.jpg and /dev/null differ diff --git a/pics/14181608.jpg b/pics/14181608.jpg deleted file mode 100644 index c3fd458c..00000000 Binary files a/pics/14181608.jpg and /dev/null differ diff --git a/pics/14198496.jpg b/pics/14198496.jpg deleted file mode 100644 index 77329b5a..00000000 Binary files a/pics/14198496.jpg and /dev/null differ diff --git a/pics/14212201.jpg b/pics/14212201.jpg deleted file mode 100644 index 934467cc..00000000 Binary files a/pics/14212201.jpg and /dev/null differ diff --git a/pics/14214060.jpg b/pics/14214060.jpg deleted file mode 100644 index c7bed8a9..00000000 Binary files a/pics/14214060.jpg and /dev/null differ diff --git a/pics/14225239.jpg b/pics/14225239.jpg deleted file mode 100644 index 12efe205..00000000 Binary files a/pics/14225239.jpg and /dev/null differ diff --git a/pics/14235211.jpg b/pics/14235211.jpg deleted file mode 100644 index 684e64e7..00000000 Binary files a/pics/14235211.jpg and /dev/null differ diff --git a/pics/14255590.jpg b/pics/14255590.jpg deleted file mode 100644 index df1919cc..00000000 Binary files a/pics/14255590.jpg and /dev/null differ diff --git a/pics/14258627.jpg b/pics/14258627.jpg deleted file mode 100644 index 6fb4ad51..00000000 Binary files a/pics/14258627.jpg and /dev/null differ diff --git a/pics/14261867.jpg b/pics/14261867.jpg deleted file mode 100644 index 506eff75..00000000 Binary files a/pics/14261867.jpg and /dev/null differ diff --git a/pics/1426714.jpg b/pics/1426714.jpg deleted file mode 100644 index 10c6a887..00000000 Binary files a/pics/1426714.jpg and /dev/null differ diff --git a/pics/1426715.jpg b/pics/1426715.jpg deleted file mode 100644 index e552897e..00000000 Binary files a/pics/1426715.jpg and /dev/null differ diff --git a/pics/14289852.jpg b/pics/14289852.jpg deleted file mode 100644 index 5d3eede2..00000000 Binary files a/pics/14289852.jpg and /dev/null differ diff --git a/pics/14291024.jpg b/pics/14291024.jpg deleted file mode 100644 index 939f39c5..00000000 Binary files a/pics/14291024.jpg and /dev/null differ diff --git a/pics/14306092.jpg b/pics/14306092.jpg deleted file mode 100644 index 91b7b507..00000000 Binary files a/pics/14306092.jpg and /dev/null differ diff --git a/pics/14309486.jpg b/pics/14309486.jpg deleted file mode 100644 index fd3a61bd..00000000 Binary files a/pics/14309486.jpg and /dev/null differ diff --git a/pics/14315573.jpg b/pics/14315573.jpg deleted file mode 100644 index 7b196d3f..00000000 Binary files a/pics/14315573.jpg and /dev/null differ diff --git a/pics/14318794.jpg b/pics/14318794.jpg deleted file mode 100644 index eed1a951..00000000 Binary files a/pics/14318794.jpg and /dev/null differ diff --git a/pics/14342283.jpg b/pics/14342283.jpg deleted file mode 100644 index c60fe6c8..00000000 Binary files a/pics/14342283.jpg and /dev/null differ diff --git a/pics/1434352.jpg b/pics/1434352.jpg deleted file mode 100644 index 506d61c8..00000000 Binary files a/pics/1434352.jpg and /dev/null differ diff --git a/pics/14344682.jpg b/pics/14344682.jpg deleted file mode 100644 index 396e04a0..00000000 Binary files a/pics/14344682.jpg and /dev/null differ diff --git a/pics/1435851.jpg b/pics/1435851.jpg deleted file mode 100644 index e11d780e..00000000 Binary files a/pics/1435851.jpg and /dev/null differ diff --git a/pics/14391920.jpg b/pics/14391920.jpg deleted file mode 100644 index 4ac7941d..00000000 Binary files a/pics/14391920.jpg and /dev/null differ diff --git a/pics/14430063.jpg b/pics/14430063.jpg deleted file mode 100644 index 1a811b6b..00000000 Binary files a/pics/14430063.jpg and /dev/null differ diff --git a/pics/14462257.jpg b/pics/14462257.jpg deleted file mode 100644 index c061a677..00000000 Binary files a/pics/14462257.jpg and /dev/null differ diff --git a/pics/14464864.jpg b/pics/14464864.jpg deleted file mode 100644 index 21692a57..00000000 Binary files a/pics/14464864.jpg and /dev/null differ diff --git a/pics/14466224.jpg b/pics/14466224.jpg deleted file mode 100644 index 8cd48a3b..00000000 Binary files a/pics/14466224.jpg and /dev/null differ diff --git a/pics/14469229.jpg b/pics/14469229.jpg deleted file mode 100644 index 361d2905..00000000 Binary files a/pics/14469229.jpg and /dev/null differ diff --git a/pics/14472500.jpg b/pics/14472500.jpg deleted file mode 100644 index ba6bd083..00000000 Binary files a/pics/14472500.jpg and /dev/null differ diff --git a/pics/14506878.jpg b/pics/14506878.jpg deleted file mode 100644 index 6843ea1a..00000000 Binary files a/pics/14506878.jpg and /dev/null differ diff --git a/pics/14507213.jpg b/pics/14507213.jpg deleted file mode 100644 index 34ab4c0a..00000000 Binary files a/pics/14507213.jpg and /dev/null differ diff --git a/pics/14513016.jpg b/pics/14513016.jpg deleted file mode 100644 index e405413d..00000000 Binary files a/pics/14513016.jpg and /dev/null differ diff --git a/pics/14531242.jpg b/pics/14531242.jpg deleted file mode 100644 index 3562f0ed..00000000 Binary files a/pics/14531242.jpg and /dev/null differ diff --git a/pics/14536035.jpg b/pics/14536035.jpg deleted file mode 100644 index c5407b50..00000000 Binary files a/pics/14536035.jpg and /dev/null differ diff --git a/pics/14541657.jpg b/pics/14541657.jpg deleted file mode 100755 index b1c31e24..00000000 Binary files a/pics/14541657.jpg and /dev/null differ diff --git a/pics/14550855.jpg b/pics/14550855.jpg deleted file mode 100644 index 50012cf9..00000000 Binary files a/pics/14550855.jpg and /dev/null differ diff --git a/pics/14553285.jpg b/pics/14553285.jpg deleted file mode 100644 index 7965025c..00000000 Binary files a/pics/14553285.jpg and /dev/null differ diff --git a/pics/14568951.jpg b/pics/14568951.jpg deleted file mode 100644 index 80451f8f..00000000 Binary files a/pics/14568951.jpg and /dev/null differ diff --git a/pics/14613029.jpg b/pics/14613029.jpg deleted file mode 100644 index 735899e3..00000000 Binary files a/pics/14613029.jpg and /dev/null differ diff --git a/pics/14618326.jpg b/pics/14618326.jpg deleted file mode 100644 index ed0cc426..00000000 Binary files a/pics/14618326.jpg and /dev/null differ diff --git a/pics/14624296.jpg b/pics/14624296.jpg deleted file mode 100644 index eb5ed8d1..00000000 Binary files a/pics/14624296.jpg and /dev/null differ diff --git a/pics/14644902.jpg b/pics/14644902.jpg deleted file mode 100644 index 7a17e044..00000000 Binary files a/pics/14644902.jpg and /dev/null differ diff --git a/pics/14677495.jpg b/pics/14677495.jpg deleted file mode 100644 index d9de1526..00000000 Binary files a/pics/14677495.jpg and /dev/null differ diff --git a/pics/14702066.jpg b/pics/14702066.jpg deleted file mode 100644 index 7a57eef2..00000000 Binary files a/pics/14702066.jpg and /dev/null differ diff --git a/pics/14708569.jpg b/pics/14708569.jpg deleted file mode 100644 index 01a8975e..00000000 Binary files a/pics/14708569.jpg and /dev/null differ diff --git a/pics/14729426.jpg b/pics/14729426.jpg deleted file mode 100644 index 4a5b5805..00000000 Binary files a/pics/14729426.jpg and /dev/null differ diff --git a/pics/14730606.jpg b/pics/14730606.jpg deleted file mode 100644 index 0eae9085..00000000 Binary files a/pics/14730606.jpg and /dev/null differ diff --git a/pics/14731897.jpg b/pics/14731897.jpg deleted file mode 100644 index 96913121..00000000 Binary files a/pics/14731897.jpg and /dev/null differ diff --git a/pics/14733538.jpg b/pics/14733538.jpg deleted file mode 100755 index 1b084cbe..00000000 Binary files a/pics/14733538.jpg and /dev/null differ diff --git a/pics/14735698.jpg b/pics/14735698.jpg deleted file mode 100644 index e8fadfed..00000000 Binary files a/pics/14735698.jpg and /dev/null differ diff --git a/pics/14745409.jpg b/pics/14745409.jpg deleted file mode 100644 index 457535bf..00000000 Binary files a/pics/14745409.jpg and /dev/null differ diff --git a/pics/1474910.jpg b/pics/1474910.jpg deleted file mode 100644 index dfc0df74..00000000 Binary files a/pics/1474910.jpg and /dev/null differ diff --git a/pics/1475311.jpg b/pics/1475311.jpg deleted file mode 100644 index e07a2ce5..00000000 Binary files a/pics/1475311.jpg and /dev/null differ diff --git a/pics/14756848.jpg b/pics/14756848.jpg deleted file mode 100644 index 5bfb9f94..00000000 Binary files a/pics/14756848.jpg and /dev/null differ diff --git a/pics/14759024.jpg b/pics/14759024.jpg deleted file mode 100644 index 5684ffe6..00000000 Binary files a/pics/14759024.jpg and /dev/null differ diff --git a/pics/14763299.jpg b/pics/14763299.jpg deleted file mode 100755 index 5fdfe8be..00000000 Binary files a/pics/14763299.jpg and /dev/null differ diff --git a/pics/14771222.jpg b/pics/14771222.jpg deleted file mode 100644 index 7db5fb98..00000000 Binary files a/pics/14771222.jpg and /dev/null differ diff --git a/pics/14772491.jpg b/pics/14772491.jpg deleted file mode 100644 index 942a213d..00000000 Binary files a/pics/14772491.jpg and /dev/null differ diff --git a/pics/14778250.jpg b/pics/14778250.jpg deleted file mode 100644 index 7cd358c8..00000000 Binary files a/pics/14778250.jpg and /dev/null differ diff --git a/pics/14785765.jpg b/pics/14785765.jpg deleted file mode 100644 index 00cef8bb..00000000 Binary files a/pics/14785765.jpg and /dev/null differ diff --git a/pics/14799437.jpg b/pics/14799437.jpg deleted file mode 100644 index 03413beb..00000000 Binary files a/pics/14799437.jpg and /dev/null differ diff --git a/pics/14812659.jpg b/pics/14812659.jpg deleted file mode 100644 index 8f94bdaa..00000000 Binary files a/pics/14812659.jpg and /dev/null differ diff --git a/pics/14816688.jpg b/pics/14816688.jpg deleted file mode 100644 index d19be11d..00000000 Binary files a/pics/14816688.jpg and /dev/null differ diff --git a/pics/14824019.jpg b/pics/14824019.jpg deleted file mode 100644 index 8f1e2e25..00000000 Binary files a/pics/14824019.jpg and /dev/null differ diff --git a/pics/14851496.jpg b/pics/14851496.jpg deleted file mode 100644 index e6539ff9..00000000 Binary files a/pics/14851496.jpg and /dev/null differ diff --git a/pics/14878871.jpg b/pics/14878871.jpg deleted file mode 100644 index a0371829..00000000 Binary files a/pics/14878871.jpg and /dev/null differ diff --git a/pics/14882493.jpg b/pics/14882493.jpg deleted file mode 100644 index bb24a30d..00000000 Binary files a/pics/14882493.jpg and /dev/null differ diff --git a/pics/14883228.jpg b/pics/14883228.jpg deleted file mode 100644 index 41de3e6a..00000000 Binary files a/pics/14883228.jpg and /dev/null differ diff --git a/pics/14886469.jpg b/pics/14886469.jpg deleted file mode 100755 index 52910a20..00000000 Binary files a/pics/14886469.jpg and /dev/null differ diff --git a/pics/14898066.jpg b/pics/14898066.jpg deleted file mode 100644 index 9a3e10c9..00000000 Binary files a/pics/14898066.jpg and /dev/null differ diff --git a/pics/14898067.jpg b/pics/14898067.jpg deleted file mode 100644 index 13c8ad4c..00000000 Binary files a/pics/14898067.jpg and /dev/null differ diff --git a/pics/14920218.jpg b/pics/14920218.jpg deleted file mode 100644 index afbdc4b7..00000000 Binary files a/pics/14920218.jpg and /dev/null differ diff --git a/pics/14936691.jpg b/pics/14936691.jpg deleted file mode 100644 index 01202706..00000000 Binary files a/pics/14936691.jpg and /dev/null differ diff --git a/pics/14943837.jpg b/pics/14943837.jpg deleted file mode 100644 index 16984d28..00000000 Binary files a/pics/14943837.jpg and /dev/null differ diff --git a/pics/14977074.jpg b/pics/14977074.jpg deleted file mode 100644 index b04e9059..00000000 Binary files a/pics/14977074.jpg and /dev/null differ diff --git a/pics/1498130.jpg b/pics/1498130.jpg deleted file mode 100644 index 3dc0e2ee..00000000 Binary files a/pics/1498130.jpg and /dev/null differ diff --git a/pics/14983497.jpg b/pics/14983497.jpg deleted file mode 100644 index 00c1d1f7..00000000 Binary files a/pics/14983497.jpg and /dev/null differ diff --git a/pics/14989021.jpg b/pics/14989021.jpg deleted file mode 100644 index dde2b2dc..00000000 Binary files a/pics/14989021.jpg and /dev/null differ diff --git a/pics/15000.jpg b/pics/15000.jpg deleted file mode 100644 index 2a8911ca..00000000 Binary files a/pics/15000.jpg and /dev/null differ diff --git a/pics/15013468.jpg b/pics/15013468.jpg deleted file mode 100644 index b7c7ff84..00000000 Binary files a/pics/15013468.jpg and /dev/null differ diff --git a/pics/15023985.jpg b/pics/15023985.jpg deleted file mode 100644 index 49ab6980..00000000 Binary files a/pics/15023985.jpg and /dev/null differ diff --git a/pics/15025844.jpg b/pics/15025844.jpg deleted file mode 100644 index 6f1cf8a1..00000000 Binary files a/pics/15025844.jpg and /dev/null differ diff --git a/pics/15028680.jpg b/pics/15028680.jpg deleted file mode 100644 index 9e7f19b0..00000000 Binary files a/pics/15028680.jpg and /dev/null differ diff --git a/pics/15042735.jpg b/pics/15042735.jpg deleted file mode 100644 index 5ca0c652..00000000 Binary files a/pics/15042735.jpg and /dev/null differ diff --git a/pics/15052462.jpg b/pics/15052462.jpg deleted file mode 100644 index 71755eef..00000000 Binary files a/pics/15052462.jpg and /dev/null differ diff --git a/pics/15083728.jpg b/pics/15083728.jpg deleted file mode 100644 index 17f3f0e8..00000000 Binary files a/pics/15083728.jpg and /dev/null differ diff --git a/pics/15090429.jpg b/pics/15090429.jpg deleted file mode 100644 index 8b693e40..00000000 Binary files a/pics/15090429.jpg and /dev/null differ diff --git a/pics/15100.jpg b/pics/15100.jpg deleted file mode 100644 index ee6c9caa..00000000 Binary files a/pics/15100.jpg and /dev/null differ diff --git a/pics/15103313.jpg b/pics/15103313.jpg deleted file mode 100644 index bc1d9f2e..00000000 Binary files a/pics/15103313.jpg and /dev/null differ diff --git a/pics/15146890.jpg b/pics/15146890.jpg deleted file mode 100755 index ea03aaa0..00000000 Binary files a/pics/15146890.jpg and /dev/null differ diff --git a/pics/15150365.jpg b/pics/15150365.jpg deleted file mode 100644 index 18a6d388..00000000 Binary files a/pics/15150365.jpg and /dev/null differ diff --git a/pics/15150371.jpg b/pics/15150371.jpg deleted file mode 100644 index 366173e6..00000000 Binary files a/pics/15150371.jpg and /dev/null differ diff --git a/pics/15155568.jpg b/pics/15155568.jpg deleted file mode 100755 index 6f6625b5..00000000 Binary files a/pics/15155568.jpg and /dev/null differ diff --git a/pics/1516510.jpg b/pics/1516510.jpg deleted file mode 100644 index 2297050e..00000000 Binary files a/pics/1516510.jpg and /dev/null differ diff --git a/pics/15169262.jpg b/pics/15169262.jpg deleted file mode 100644 index 5174eadb..00000000 Binary files a/pics/15169262.jpg and /dev/null differ diff --git a/pics/15175429.jpg b/pics/15175429.jpg deleted file mode 100644 index a7cf18f9..00000000 Binary files a/pics/15175429.jpg and /dev/null differ diff --git a/pics/15187079.jpg b/pics/15187079.jpg deleted file mode 100644 index a718cb26..00000000 Binary files a/pics/15187079.jpg and /dev/null differ diff --git a/pics/15237615.jpg b/pics/15237615.jpg deleted file mode 100644 index a3028a04..00000000 Binary files a/pics/15237615.jpg and /dev/null differ diff --git a/pics/15240238.jpg b/pics/15240238.jpg deleted file mode 100644 index a5cc9109..00000000 Binary files a/pics/15240238.jpg and /dev/null differ diff --git a/pics/15248873.jpg b/pics/15248873.jpg deleted file mode 100644 index def15088..00000000 Binary files a/pics/15248873.jpg and /dev/null differ diff --git a/pics/1525329.jpg b/pics/1525329.jpg deleted file mode 100644 index 61628544..00000000 Binary files a/pics/1525329.jpg and /dev/null differ diff --git a/pics/15259703.jpg b/pics/15259703.jpg deleted file mode 100644 index 33adef36..00000000 Binary files a/pics/15259703.jpg and /dev/null differ diff --git a/pics/15259704.jpg b/pics/15259704.jpg deleted file mode 100644 index e52bc3cc..00000000 Binary files a/pics/15259704.jpg and /dev/null differ diff --git a/pics/15270885.jpg b/pics/15270885.jpg deleted file mode 100644 index 502545da..00000000 Binary files a/pics/15270885.jpg and /dev/null differ diff --git a/pics/15286412.jpg b/pics/15286412.jpg deleted file mode 100644 index 9b73fb44..00000000 Binary files a/pics/15286412.jpg and /dev/null differ diff --git a/pics/15294090.jpg b/pics/15294090.jpg deleted file mode 100644 index a6d5363c..00000000 Binary files a/pics/15294090.jpg and /dev/null differ diff --git a/pics/15303296.jpg b/pics/15303296.jpg deleted file mode 100644 index 411bc014..00000000 Binary files a/pics/15303296.jpg and /dev/null differ diff --git a/pics/15305240.jpg b/pics/15305240.jpg deleted file mode 100644 index e45bac12..00000000 Binary files a/pics/15305240.jpg and /dev/null differ diff --git a/pics/15310033.jpg b/pics/15310033.jpg deleted file mode 100644 index f3525bb7..00000000 Binary files a/pics/15310033.jpg and /dev/null differ diff --git a/pics/15313433.jpg b/pics/15313433.jpg deleted file mode 100644 index 8a1ebc7b..00000000 Binary files a/pics/15313433.jpg and /dev/null differ diff --git a/pics/15317640.jpg b/pics/15317640.jpg deleted file mode 100644 index 70b01ee1..00000000 Binary files a/pics/15317640.jpg and /dev/null differ diff --git a/pics/1533292.jpg b/pics/1533292.jpg deleted file mode 100644 index 8b186d84..00000000 Binary files a/pics/1533292.jpg and /dev/null differ diff --git a/pics/15335853.jpg b/pics/15335853.jpg deleted file mode 100644 index dccafa5a..00000000 Binary files a/pics/15335853.jpg and /dev/null differ diff --git a/pics/15341821.jpg b/pics/15341821.jpg deleted file mode 100644 index e4d908f1..00000000 Binary files a/pics/15341821.jpg and /dev/null differ diff --git a/pics/15341822.jpg b/pics/15341822.jpg deleted file mode 100644 index 242d9141..00000000 Binary files a/pics/15341822.jpg and /dev/null differ diff --git a/pics/15341823.jpg b/pics/15341823.jpg deleted file mode 100644 index fdadf5fc..00000000 Binary files a/pics/15341823.jpg and /dev/null differ diff --git a/pics/15367030.jpg b/pics/15367030.jpg deleted file mode 100644 index c472d4cf..00000000 Binary files a/pics/15367030.jpg and /dev/null differ diff --git a/pics/15381252.jpg b/pics/15381252.jpg deleted file mode 100644 index e156f7fb..00000000 Binary files a/pics/15381252.jpg and /dev/null differ diff --git a/pics/15383415.jpg b/pics/15383415.jpg deleted file mode 100644 index 21a9a2b1..00000000 Binary files a/pics/15383415.jpg and /dev/null differ diff --git a/pics/1539051.jpg b/pics/1539051.jpg deleted file mode 100644 index bfea947c..00000000 Binary files a/pics/1539051.jpg and /dev/null differ diff --git a/pics/15394083.jpg b/pics/15394083.jpg deleted file mode 100644 index 91847e93..00000000 Binary files a/pics/15394083.jpg and /dev/null differ diff --git a/pics/15394084.jpg b/pics/15394084.jpg deleted file mode 100644 index 30c1efbe..00000000 Binary files a/pics/15394084.jpg and /dev/null differ diff --git a/pics/15401633.jpg b/pics/15401633.jpg deleted file mode 100644 index e1c3bb37..00000000 Binary files a/pics/15401633.jpg and /dev/null differ diff --git a/pics/15452043.jpg b/pics/15452043.jpg deleted file mode 100644 index 23928555..00000000 Binary files a/pics/15452043.jpg and /dev/null differ diff --git a/pics/15458892.jpg b/pics/15458892.jpg deleted file mode 100644 index 32140dde..00000000 Binary files a/pics/15458892.jpg and /dev/null differ diff --git a/pics/1546123.jpg b/pics/1546123.jpg deleted file mode 100644 index 92cc0940..00000000 Binary files a/pics/1546123.jpg and /dev/null differ diff --git a/pics/1546124.jpg b/pics/1546124.jpg deleted file mode 100644 index ee1bc5f1..00000000 Binary files a/pics/1546124.jpg and /dev/null differ diff --git a/pics/15471265.jpg b/pics/15471265.jpg deleted file mode 100644 index 8caafec7..00000000 Binary files a/pics/15471265.jpg and /dev/null differ diff --git a/pics/15475415.jpg b/pics/15475415.jpg deleted file mode 100644 index f05d189b..00000000 Binary files a/pics/15475415.jpg and /dev/null differ diff --git a/pics/15480588.jpg b/pics/15480588.jpg deleted file mode 100644 index 51aedc84..00000000 Binary files a/pics/15480588.jpg and /dev/null differ diff --git a/pics/15495787.jpg b/pics/15495787.jpg deleted file mode 100755 index 31f58f77..00000000 Binary files a/pics/15495787.jpg and /dev/null differ diff --git a/pics/15507080.jpg b/pics/15507080.jpg deleted file mode 100644 index c3a13329..00000000 Binary files a/pics/15507080.jpg and /dev/null differ diff --git a/pics/15510988.jpg b/pics/15510988.jpg deleted file mode 100644 index 55141fb0..00000000 Binary files a/pics/15510988.jpg and /dev/null differ diff --git a/pics/15521027.jpg b/pics/15521027.jpg deleted file mode 100644 index 11497487..00000000 Binary files a/pics/15521027.jpg and /dev/null differ diff --git a/pics/15545291.jpg b/pics/15545291.jpg deleted file mode 100644 index 764820f8..00000000 Binary files a/pics/15545291.jpg and /dev/null differ diff --git a/pics/15552258.jpg b/pics/15552258.jpg deleted file mode 100644 index 4b873a10..00000000 Binary files a/pics/15552258.jpg and /dev/null differ diff --git a/pics/15555120.jpg b/pics/15555120.jpg deleted file mode 100755 index 149069bc..00000000 Binary files a/pics/15555120.jpg and /dev/null differ diff --git a/pics/15561463.jpg b/pics/15561463.jpg deleted file mode 100644 index 22f874a0..00000000 Binary files a/pics/15561463.jpg and /dev/null differ diff --git a/pics/1557341.jpg b/pics/1557341.jpg deleted file mode 100644 index c043b994..00000000 Binary files a/pics/1557341.jpg and /dev/null differ diff --git a/pics/15574615.jpg b/pics/15574615.jpg deleted file mode 100644 index ab39c469..00000000 Binary files a/pics/15574615.jpg and /dev/null differ diff --git a/pics/1557499.jpg b/pics/1557499.jpg deleted file mode 100644 index 725133aa..00000000 Binary files a/pics/1557499.jpg and /dev/null differ diff --git a/pics/15576074.jpg b/pics/15576074.jpg deleted file mode 100644 index 13994c89..00000000 Binary files a/pics/15576074.jpg and /dev/null differ diff --git a/pics/15582767.jpg b/pics/15582767.jpg deleted file mode 100644 index 452fd47d..00000000 Binary files a/pics/15582767.jpg and /dev/null differ diff --git a/pics/15595052.jpg b/pics/15595052.jpg deleted file mode 100644 index e689edad..00000000 Binary files a/pics/15595052.jpg and /dev/null differ diff --git a/pics/15605085.jpg b/pics/15605085.jpg deleted file mode 100644 index 4f5ca34c..00000000 Binary files a/pics/15605085.jpg and /dev/null differ diff --git a/pics/15609017.jpg b/pics/15609017.jpg deleted file mode 100755 index 7a5235dc..00000000 Binary files a/pics/15609017.jpg and /dev/null differ diff --git a/pics/15629801.jpg b/pics/15629801.jpg deleted file mode 100644 index 032bc818..00000000 Binary files a/pics/15629801.jpg and /dev/null differ diff --git a/pics/15629802.jpg b/pics/15629802.jpg deleted file mode 100644 index 52c7e145..00000000 Binary files a/pics/15629802.jpg and /dev/null differ diff --git a/pics/15653824.jpg b/pics/15653824.jpg deleted file mode 100644 index 66e3470b..00000000 Binary files a/pics/15653824.jpg and /dev/null differ diff --git a/pics/15658249.jpg b/pics/15658249.jpg deleted file mode 100644 index c3e56081..00000000 Binary files a/pics/15658249.jpg and /dev/null differ diff --git a/pics/15667446.jpg b/pics/15667446.jpg deleted file mode 100644 index 89e8a7ac..00000000 Binary files a/pics/15667446.jpg and /dev/null differ diff --git a/pics/15684835.jpg b/pics/15684835.jpg deleted file mode 100644 index 15dfe5fe..00000000 Binary files a/pics/15684835.jpg and /dev/null differ diff --git a/pics/15717011.jpg b/pics/15717011.jpg deleted file mode 100644 index 8af741ff..00000000 Binary files a/pics/15717011.jpg and /dev/null differ diff --git a/pics/1571945.jpg b/pics/1571945.jpg deleted file mode 100644 index 598b0f1f..00000000 Binary files a/pics/1571945.jpg and /dev/null differ diff --git a/pics/15721123.jpg b/pics/15721123.jpg deleted file mode 100644 index eca534e0..00000000 Binary files a/pics/15721123.jpg and /dev/null differ diff --git a/pics/15734813.jpg b/pics/15734813.jpg deleted file mode 100644 index 049bd913..00000000 Binary files a/pics/15734813.jpg and /dev/null differ diff --git a/pics/15767889.jpg b/pics/15767889.jpg deleted file mode 100644 index e8e4ee8f..00000000 Binary files a/pics/15767889.jpg and /dev/null differ diff --git a/pics/15800838.jpg b/pics/15800838.jpg deleted file mode 100644 index f6d95588..00000000 Binary files a/pics/15800838.jpg and /dev/null differ diff --git a/pics/1580833.jpg b/pics/1580833.jpg deleted file mode 100755 index 983d2b3c..00000000 Binary files a/pics/1580833.jpg and /dev/null differ diff --git a/pics/15820147.jpg b/pics/15820147.jpg deleted file mode 100644 index 66974752..00000000 Binary files a/pics/15820147.jpg and /dev/null differ diff --git a/pics/15839054.jpg b/pics/15839054.jpg deleted file mode 100644 index 5c6d5c3a..00000000 Binary files a/pics/15839054.jpg and /dev/null differ diff --git a/pics/15854426.jpg b/pics/15854426.jpg deleted file mode 100644 index 0851bb03..00000000 Binary files a/pics/15854426.jpg and /dev/null differ diff --git a/pics/1586457.jpg b/pics/1586457.jpg deleted file mode 100644 index 42afdb66..00000000 Binary files a/pics/1586457.jpg and /dev/null differ diff --git a/pics/15866454.jpg b/pics/15866454.jpg deleted file mode 100644 index fc3a5fc5..00000000 Binary files a/pics/15866454.jpg and /dev/null differ diff --git a/pics/15871676.jpg b/pics/15871676.jpg deleted file mode 100644 index a320026e..00000000 Binary files a/pics/15871676.jpg and /dev/null differ diff --git a/pics/15893860.jpg b/pics/15893860.jpg deleted file mode 100644 index ae500397..00000000 Binary files a/pics/15893860.jpg and /dev/null differ diff --git a/pics/15894048.jpg b/pics/15894048.jpg deleted file mode 100644 index 5c3684a7..00000000 Binary files a/pics/15894048.jpg and /dev/null differ diff --git a/pics/15914410.jpg b/pics/15914410.jpg deleted file mode 100644 index 22eb0d8f..00000000 Binary files a/pics/15914410.jpg and /dev/null differ diff --git a/pics/15935204.jpg b/pics/15935204.jpg deleted file mode 100644 index cbe562cc..00000000 Binary files a/pics/15935204.jpg and /dev/null differ diff --git a/pics/15939229.jpg b/pics/15939229.jpg deleted file mode 100755 index 503889dc..00000000 Binary files a/pics/15939229.jpg and /dev/null differ diff --git a/pics/15939448.jpg b/pics/15939448.jpg deleted file mode 100644 index f28f56a6..00000000 Binary files a/pics/15939448.jpg and /dev/null differ diff --git a/pics/15941690.jpg b/pics/15941690.jpg deleted file mode 100644 index 101eba6c..00000000 Binary files a/pics/15941690.jpg and /dev/null differ diff --git a/pics/15951532.jpg b/pics/15951532.jpg deleted file mode 100644 index bc126e6d..00000000 Binary files a/pics/15951532.jpg and /dev/null differ diff --git a/pics/15960641.jpg b/pics/15960641.jpg deleted file mode 100644 index 711b4ca8..00000000 Binary files a/pics/15960641.jpg and /dev/null differ diff --git a/pics/1596508.jpg b/pics/1596508.jpg deleted file mode 100644 index 4dbc854a..00000000 Binary files a/pics/1596508.jpg and /dev/null differ diff --git a/pics/15978426.jpg b/pics/15978426.jpg deleted file mode 100644 index b62a29d3..00000000 Binary files a/pics/15978426.jpg and /dev/null differ diff --git a/pics/15981690.jpg b/pics/15981690.jpg deleted file mode 100644 index 77942c82..00000000 Binary files a/pics/15981690.jpg and /dev/null differ diff --git a/pics/16008155.jpg b/pics/16008155.jpg deleted file mode 100644 index 5a3afec5..00000000 Binary files a/pics/16008155.jpg and /dev/null differ diff --git a/pics/16021142.jpg b/pics/16021142.jpg deleted file mode 100644 index 2053a662..00000000 Binary files a/pics/16021142.jpg and /dev/null differ diff --git a/pics/16037007.jpg b/pics/16037007.jpg deleted file mode 100644 index 8ad84653..00000000 Binary files a/pics/16037007.jpg and /dev/null differ diff --git a/pics/16051717.jpg b/pics/16051717.jpg deleted file mode 100644 index 78d480b7..00000000 Binary files a/pics/16051717.jpg and /dev/null differ diff --git a/pics/16067089.jpg b/pics/16067089.jpg deleted file mode 100644 index 0f66c04b..00000000 Binary files a/pics/16067089.jpg and /dev/null differ diff --git a/pics/16111820.jpg b/pics/16111820.jpg deleted file mode 100644 index 050d481b..00000000 Binary files a/pics/16111820.jpg and /dev/null differ diff --git a/pics/16114248.jpg b/pics/16114248.jpg deleted file mode 100644 index 2047690b..00000000 Binary files a/pics/16114248.jpg and /dev/null differ diff --git a/pics/16135253.jpg b/pics/16135253.jpg deleted file mode 100644 index c38c2a66..00000000 Binary files a/pics/16135253.jpg and /dev/null differ diff --git a/pics/16157341.jpg b/pics/16157341.jpg deleted file mode 100644 index 36c10a0f..00000000 Binary files a/pics/16157341.jpg and /dev/null differ diff --git a/pics/16178681.jpg b/pics/16178681.jpg deleted file mode 100644 index 4c91c60c..00000000 Binary files a/pics/16178681.jpg and /dev/null differ diff --git a/pics/16191953.jpg b/pics/16191953.jpg deleted file mode 100644 index bdf28617..00000000 Binary files a/pics/16191953.jpg and /dev/null differ diff --git a/pics/16195942.jpg b/pics/16195942.jpg deleted file mode 100644 index 1bbd1ade..00000000 Binary files a/pics/16195942.jpg and /dev/null differ diff --git a/pics/16197610.jpg b/pics/16197610.jpg deleted file mode 100644 index 5f1fb162..00000000 Binary files a/pics/16197610.jpg and /dev/null differ diff --git a/pics/16222645.jpg b/pics/16222645.jpg deleted file mode 100644 index b7a04edf..00000000 Binary files a/pics/16222645.jpg and /dev/null differ diff --git a/pics/16226786.jpg b/pics/16226786.jpg deleted file mode 100644 index 961b674a..00000000 Binary files a/pics/16226786.jpg and /dev/null differ diff --git a/pics/16227556.jpg b/pics/16227556.jpg deleted file mode 100644 index 31e1d8bd..00000000 Binary files a/pics/16227556.jpg and /dev/null differ diff --git a/pics/16229315.jpg b/pics/16229315.jpg deleted file mode 100644 index 099650f8..00000000 Binary files a/pics/16229315.jpg and /dev/null differ diff --git a/pics/16241441.jpg b/pics/16241441.jpg deleted file mode 100644 index e00e31fa..00000000 Binary files a/pics/16241441.jpg and /dev/null differ diff --git a/pics/16246527.jpg b/pics/16246527.jpg deleted file mode 100644 index 892a5034..00000000 Binary files a/pics/16246527.jpg and /dev/null differ diff --git a/pics/16255442.jpg b/pics/16255442.jpg deleted file mode 100644 index 4a7c1448..00000000 Binary files a/pics/16255442.jpg and /dev/null differ diff --git a/pics/16259549.jpg b/pics/16259549.jpg deleted file mode 100644 index 204ca08e..00000000 Binary files a/pics/16259549.jpg and /dev/null differ diff --git a/pics/16268841.jpg b/pics/16268841.jpg deleted file mode 100644 index 3eda3584..00000000 Binary files a/pics/16268841.jpg and /dev/null differ diff --git a/pics/16272453.jpg b/pics/16272453.jpg deleted file mode 100644 index de8be26a..00000000 Binary files a/pics/16272453.jpg and /dev/null differ diff --git a/pics/16278116.jpg b/pics/16278116.jpg deleted file mode 100755 index 3572c4f3..00000000 Binary files a/pics/16278116.jpg and /dev/null differ diff --git a/pics/16279989.jpg b/pics/16279989.jpg deleted file mode 100644 index 9f93e778..00000000 Binary files a/pics/16279989.jpg and /dev/null differ diff --git a/pics/16304628.jpg b/pics/16304628.jpg deleted file mode 100644 index b6831eea..00000000 Binary files a/pics/16304628.jpg and /dev/null differ diff --git a/pics/16308000.jpg b/pics/16308000.jpg deleted file mode 100644 index ede497d7..00000000 Binary files a/pics/16308000.jpg and /dev/null differ diff --git a/pics/16353197.jpg b/pics/16353197.jpg deleted file mode 100644 index 419a5a1b..00000000 Binary files a/pics/16353197.jpg and /dev/null differ diff --git a/pics/16366810.jpg b/pics/16366810.jpg deleted file mode 100644 index 4c15c502..00000000 Binary files a/pics/16366810.jpg and /dev/null differ diff --git a/pics/16366944.jpg b/pics/16366944.jpg deleted file mode 100644 index 52af5bab..00000000 Binary files a/pics/16366944.jpg and /dev/null differ diff --git a/pics/1637760.jpg b/pics/1637760.jpg deleted file mode 100644 index 50c4e719..00000000 Binary files a/pics/1637760.jpg and /dev/null differ diff --git a/pics/16392422.jpg b/pics/16392422.jpg deleted file mode 100644 index 35683ec6..00000000 Binary files a/pics/16392422.jpg and /dev/null differ diff --git a/pics/1639384.jpg b/pics/1639384.jpg deleted file mode 100644 index 33162402..00000000 Binary files a/pics/1639384.jpg and /dev/null differ diff --git a/pics/16404809.jpg b/pics/16404809.jpg deleted file mode 100644 index 6cb18e17..00000000 Binary files a/pics/16404809.jpg and /dev/null differ diff --git a/pics/1641882.jpg b/pics/1641882.jpg deleted file mode 100644 index f7336ecf..00000000 Binary files a/pics/1641882.jpg and /dev/null differ diff --git a/pics/16430187.jpg b/pics/16430187.jpg deleted file mode 100644 index fa479583..00000000 Binary files a/pics/16430187.jpg and /dev/null differ diff --git a/pics/16435215.jpg b/pics/16435215.jpg deleted file mode 100644 index 105a1bc3..00000000 Binary files a/pics/16435215.jpg and /dev/null differ diff --git a/pics/16437822.jpg b/pics/16437822.jpg deleted file mode 100644 index 8ff1ccf8..00000000 Binary files a/pics/16437822.jpg and /dev/null differ diff --git a/pics/1644289.jpg b/pics/1644289.jpg deleted file mode 100644 index b5387749..00000000 Binary files a/pics/1644289.jpg and /dev/null differ diff --git a/pics/16469012.jpg b/pics/16469012.jpg deleted file mode 100644 index 2d5ee75e..00000000 Binary files a/pics/16469012.jpg and /dev/null differ diff --git a/pics/164710.jpg b/pics/164710.jpg deleted file mode 100644 index 2db85af9..00000000 Binary files a/pics/164710.jpg and /dev/null differ diff --git a/pics/16475472.jpg b/pics/16475472.jpg deleted file mode 100644 index 365ae6a1..00000000 Binary files a/pics/16475472.jpg and /dev/null differ diff --git a/pics/16480084.jpg b/pics/16480084.jpg deleted file mode 100644 index 50fc5492..00000000 Binary files a/pics/16480084.jpg and /dev/null differ diff --git a/pics/16494704.jpg b/pics/16494704.jpg deleted file mode 100755 index b90107ad..00000000 Binary files a/pics/16494704.jpg and /dev/null differ diff --git a/pics/16507828.jpg b/pics/16507828.jpg deleted file mode 100644 index d2dc753f..00000000 Binary files a/pics/16507828.jpg and /dev/null differ diff --git a/pics/16509093.jpg b/pics/16509093.jpg deleted file mode 100644 index 256f595f..00000000 Binary files a/pics/16509093.jpg and /dev/null differ diff --git a/pics/16516630.jpg b/pics/16516630.jpg deleted file mode 100644 index 2b5ab9d1..00000000 Binary files a/pics/16516630.jpg and /dev/null differ diff --git a/pics/16527176.jpg b/pics/16527176.jpg deleted file mode 100644 index 67294f03..00000000 Binary files a/pics/16527176.jpg and /dev/null differ diff --git a/pics/16550875.jpg b/pics/16550875.jpg deleted file mode 100644 index b18691cf..00000000 Binary files a/pics/16550875.jpg and /dev/null differ diff --git a/pics/16556849.jpg b/pics/16556849.jpg deleted file mode 100644 index 7f24ae00..00000000 Binary files a/pics/16556849.jpg and /dev/null differ diff --git a/pics/16587243.jpg b/pics/16587243.jpg deleted file mode 100644 index 12a95a41..00000000 Binary files a/pics/16587243.jpg and /dev/null differ diff --git a/pics/16589042.jpg b/pics/16589042.jpg deleted file mode 100644 index f9d1c15a..00000000 Binary files a/pics/16589042.jpg and /dev/null differ diff --git a/pics/16616620.jpg b/pics/16616620.jpg deleted file mode 100644 index 5ca57b9b..00000000 Binary files a/pics/16616620.jpg and /dev/null differ diff --git a/pics/16617334.jpg b/pics/16617334.jpg deleted file mode 100755 index 9e5593c5..00000000 Binary files a/pics/16617334.jpg and /dev/null differ diff --git a/pics/1662004.jpg b/pics/1662004.jpg deleted file mode 100644 index d70a39ba..00000000 Binary files a/pics/1662004.jpg and /dev/null differ diff --git a/pics/16638212.jpg b/pics/16638212.jpg deleted file mode 100644 index 5dc456f0..00000000 Binary files a/pics/16638212.jpg and /dev/null differ diff --git a/pics/16674846.jpg b/pics/16674846.jpg deleted file mode 100644 index 7aff8f40..00000000 Binary files a/pics/16674846.jpg and /dev/null differ diff --git a/pics/16678947.jpg b/pics/16678947.jpg deleted file mode 100644 index aa2bbb6f..00000000 Binary files a/pics/16678947.jpg and /dev/null differ diff --git a/pics/16691074.jpg b/pics/16691074.jpg deleted file mode 100644 index f497f800..00000000 Binary files a/pics/16691074.jpg and /dev/null differ diff --git a/pics/16693254.jpg b/pics/16693254.jpg deleted file mode 100644 index 0693b78c..00000000 Binary files a/pics/16693254.jpg and /dev/null differ diff --git a/pics/1669772.jpg b/pics/1669772.jpg deleted file mode 100644 index 5cd023ea..00000000 Binary files a/pics/1669772.jpg and /dev/null differ diff --git a/pics/16708652.jpg b/pics/16708652.jpg deleted file mode 100644 index 89055ae6..00000000 Binary files a/pics/16708652.jpg and /dev/null differ diff --git a/pics/16719802.jpg b/pics/16719802.jpg deleted file mode 100644 index 942128df..00000000 Binary files a/pics/16719802.jpg and /dev/null differ diff --git a/pics/16725505.jpg b/pics/16725505.jpg deleted file mode 100755 index 36f2c66b..00000000 Binary files a/pics/16725505.jpg and /dev/null differ diff --git a/pics/16751086.jpg b/pics/16751086.jpg deleted file mode 100644 index 9c689211..00000000 Binary files a/pics/16751086.jpg and /dev/null differ diff --git a/pics/16762927.jpg b/pics/16762927.jpg deleted file mode 100644 index 57435722..00000000 Binary files a/pics/16762927.jpg and /dev/null differ diff --git a/pics/16768387.jpg b/pics/16768387.jpg deleted file mode 100644 index ec4384e7..00000000 Binary files a/pics/16768387.jpg and /dev/null differ diff --git a/pics/16796157.jpg b/pics/16796157.jpg deleted file mode 100644 index 1095708f..00000000 Binary files a/pics/16796157.jpg and /dev/null differ diff --git a/pics/16825874.jpg b/pics/16825874.jpg deleted file mode 100644 index eb8f8cad..00000000 Binary files a/pics/16825874.jpg and /dev/null differ diff --git a/pics/16828633.jpg b/pics/16828633.jpg deleted file mode 100644 index de0bf853..00000000 Binary files a/pics/16828633.jpg and /dev/null differ diff --git a/pics/1686814.jpg b/pics/1686814.jpg deleted file mode 100644 index 4eb18561..00000000 Binary files a/pics/1686814.jpg and /dev/null differ diff --git a/pics/16886617.jpg b/pics/16886617.jpg deleted file mode 100644 index 46851557..00000000 Binary files a/pics/16886617.jpg and /dev/null differ diff --git a/pics/16889337.jpg b/pics/16889337.jpg deleted file mode 100644 index 5450a7a1..00000000 Binary files a/pics/16889337.jpg and /dev/null differ diff --git a/pics/168917.jpg b/pics/168917.jpg deleted file mode 100644 index d7736428..00000000 Binary files a/pics/168917.jpg and /dev/null differ diff --git a/pics/1689516.jpg b/pics/1689516.jpg deleted file mode 100644 index 4bcbd95d..00000000 Binary files a/pics/1689516.jpg and /dev/null differ diff --git a/pics/16898077.jpg b/pics/16898077.jpg deleted file mode 100644 index a3115c87..00000000 Binary files a/pics/16898077.jpg and /dev/null differ diff --git a/pics/16899564.jpg b/pics/16899564.jpg deleted file mode 100644 index 34d24735..00000000 Binary files a/pics/16899564.jpg and /dev/null differ diff --git a/pics/16906241.jpg b/pics/16906241.jpg deleted file mode 100644 index 21e7a1d9..00000000 Binary files a/pics/16906241.jpg and /dev/null differ diff --git a/pics/16909657.jpg b/pics/16909657.jpg deleted file mode 100644 index 571b65f5..00000000 Binary files a/pics/16909657.jpg and /dev/null differ diff --git a/pics/16923472.jpg b/pics/16923472.jpg deleted file mode 100644 index d6fe3ffe..00000000 Binary files a/pics/16923472.jpg and /dev/null differ diff --git a/pics/16940215.jpg b/pics/16940215.jpg deleted file mode 100644 index 64819d2e..00000000 Binary files a/pics/16940215.jpg and /dev/null differ diff --git a/pics/16943770.jpg b/pics/16943770.jpg deleted file mode 100644 index a140703d..00000000 Binary files a/pics/16943770.jpg and /dev/null differ diff --git a/pics/16943771.jpg b/pics/16943771.jpg deleted file mode 100644 index 64cb55d0..00000000 Binary files a/pics/16943771.jpg and /dev/null differ diff --git a/pics/16946849.jpg b/pics/16946849.jpg deleted file mode 100644 index d91bb573..00000000 Binary files a/pics/16946849.jpg and /dev/null differ diff --git a/pics/16946850.jpg b/pics/16946850.jpg deleted file mode 100644 index 22a998a9..00000000 Binary files a/pics/16946850.jpg and /dev/null differ diff --git a/pics/16947147.jpg b/pics/16947147.jpg deleted file mode 100755 index 42e11e49..00000000 Binary files a/pics/16947147.jpg and /dev/null differ diff --git a/pics/16956455.jpg b/pics/16956455.jpg deleted file mode 100644 index c0b186ee..00000000 Binary files a/pics/16956455.jpg and /dev/null differ diff --git a/pics/16960351.jpg b/pics/16960351.jpg deleted file mode 100644 index ef778d3d..00000000 Binary files a/pics/16960351.jpg and /dev/null differ diff --git a/pics/16970158.jpg b/pics/16970158.jpg deleted file mode 100644 index f2f49ead..00000000 Binary files a/pics/16970158.jpg and /dev/null differ diff --git a/pics/1697104.jpg b/pics/1697104.jpg deleted file mode 100755 index ed7a7eec..00000000 Binary files a/pics/1697104.jpg and /dev/null differ diff --git a/pics/16972957.jpg b/pics/16972957.jpg deleted file mode 100644 index e6cb1e4e..00000000 Binary files a/pics/16972957.jpg and /dev/null differ diff --git a/pics/16984449.jpg b/pics/16984449.jpg deleted file mode 100644 index 217b9996..00000000 Binary files a/pics/16984449.jpg and /dev/null differ diff --git a/pics/170000111.jpg b/pics/170000111.jpg deleted file mode 100644 index e274df2e..00000000 Binary files a/pics/170000111.jpg and /dev/null differ diff --git a/pics/170000112.jpg b/pics/170000112.jpg deleted file mode 100644 index e3be7653..00000000 Binary files a/pics/170000112.jpg and /dev/null differ diff --git a/pics/170000113.jpg b/pics/170000113.jpg deleted file mode 100644 index db9fae5b..00000000 Binary files a/pics/170000113.jpg and /dev/null differ diff --git a/pics/170000115.jpg b/pics/170000115.jpg deleted file mode 100644 index a7f1b1c9..00000000 Binary files a/pics/170000115.jpg and /dev/null differ diff --git a/pics/170000116.jpg b/pics/170000116.jpg deleted file mode 100644 index 2a671fcf..00000000 Binary files a/pics/170000116.jpg and /dev/null differ diff --git a/pics/170000117.jpg b/pics/170000117.jpg deleted file mode 100644 index 14079629..00000000 Binary files a/pics/170000117.jpg and /dev/null differ diff --git a/pics/170000119.jpg b/pics/170000119.jpg deleted file mode 100644 index 29a91d87..00000000 Binary files a/pics/170000119.jpg and /dev/null differ diff --git a/pics/170000120.jpg b/pics/170000120.jpg deleted file mode 100644 index 33249291..00000000 Binary files a/pics/170000120.jpg and /dev/null differ diff --git a/pics/170000121.jpg b/pics/170000121.jpg deleted file mode 100644 index 16c6927e..00000000 Binary files a/pics/170000121.jpg and /dev/null differ diff --git a/pics/170000122.jpg b/pics/170000122.jpg deleted file mode 100644 index e2729da4..00000000 Binary files a/pics/170000122.jpg and /dev/null differ diff --git a/pics/170000123.jpg b/pics/170000123.jpg deleted file mode 100644 index 83a26325..00000000 Binary files a/pics/170000123.jpg and /dev/null differ diff --git a/pics/170000126.jpg b/pics/170000126.jpg deleted file mode 100644 index 801cfacb..00000000 Binary files a/pics/170000126.jpg and /dev/null differ diff --git a/pics/170000128.jpg b/pics/170000128.jpg deleted file mode 100644 index fbf6ff7c..00000000 Binary files a/pics/170000128.jpg and /dev/null differ diff --git a/pics/170000149.jpg b/pics/170000149.jpg deleted file mode 100644 index 46d1b50e..00000000 Binary files a/pics/170000149.jpg and /dev/null differ diff --git a/pics/170000150.jpg b/pics/170000150.jpg deleted file mode 100644 index 64587103..00000000 Binary files a/pics/170000150.jpg and /dev/null differ diff --git a/pics/170000151.jpg b/pics/170000151.jpg deleted file mode 100644 index 87543986..00000000 Binary files a/pics/170000151.jpg and /dev/null differ diff --git a/pics/170000152.jpg b/pics/170000152.jpg deleted file mode 100644 index 807b325d..00000000 Binary files a/pics/170000152.jpg and /dev/null differ diff --git a/pics/170000153.jpg b/pics/170000153.jpg deleted file mode 100644 index f77bec5a..00000000 Binary files a/pics/170000153.jpg and /dev/null differ diff --git a/pics/170000154.jpg b/pics/170000154.jpg deleted file mode 100644 index 4fdfc5e1..00000000 Binary files a/pics/170000154.jpg and /dev/null differ diff --git a/pics/170000155.jpg b/pics/170000155.jpg deleted file mode 100644 index 5b08593b..00000000 Binary files a/pics/170000155.jpg and /dev/null differ diff --git a/pics/170000156.jpg b/pics/170000156.jpg deleted file mode 100644 index 09f55c20..00000000 Binary files a/pics/170000156.jpg and /dev/null differ diff --git a/pics/170000157.jpg b/pics/170000157.jpg deleted file mode 100644 index 8c0618ca..00000000 Binary files a/pics/170000157.jpg and /dev/null differ diff --git a/pics/170000158.jpg b/pics/170000158.jpg deleted file mode 100644 index d4f67696..00000000 Binary files a/pics/170000158.jpg and /dev/null differ diff --git a/pics/170000166.jpg b/pics/170000166.jpg deleted file mode 100644 index 3d0811c4..00000000 Binary files a/pics/170000166.jpg and /dev/null differ diff --git a/pics/170000167.jpg b/pics/170000167.jpg deleted file mode 100644 index 931ecdec..00000000 Binary files a/pics/170000167.jpg and /dev/null differ diff --git a/pics/170000168.jpg b/pics/170000168.jpg deleted file mode 100644 index 2f22576d..00000000 Binary files a/pics/170000168.jpg and /dev/null differ diff --git a/pics/170000169.jpg b/pics/170000169.jpg deleted file mode 100644 index 42a2b7c2..00000000 Binary files a/pics/170000169.jpg and /dev/null differ diff --git a/pics/170000170.jpg b/pics/170000170.jpg deleted file mode 100644 index 15aa75ab..00000000 Binary files a/pics/170000170.jpg and /dev/null differ diff --git a/pics/170000171.jpg b/pics/170000171.jpg deleted file mode 100644 index b04a343f..00000000 Binary files a/pics/170000171.jpg and /dev/null differ diff --git a/pics/170000172.jpg b/pics/170000172.jpg deleted file mode 100644 index 7a167b95..00000000 Binary files a/pics/170000172.jpg and /dev/null differ diff --git a/pics/170000173.jpg b/pics/170000173.jpg deleted file mode 100644 index 0fe92377..00000000 Binary files a/pics/170000173.jpg and /dev/null differ diff --git a/pics/170000174.jpg b/pics/170000174.jpg deleted file mode 100644 index 9373903a..00000000 Binary files a/pics/170000174.jpg and /dev/null differ diff --git a/pics/170000175.jpg b/pics/170000175.jpg deleted file mode 100644 index e6f920a8..00000000 Binary files a/pics/170000175.jpg and /dev/null differ diff --git a/pics/170000193.jpg b/pics/170000193.jpg deleted file mode 100644 index 62f1d872..00000000 Binary files a/pics/170000193.jpg and /dev/null differ diff --git a/pics/170000194.jpg b/pics/170000194.jpg deleted file mode 100644 index 599f609e..00000000 Binary files a/pics/170000194.jpg and /dev/null differ diff --git a/pics/170000196.jpg b/pics/170000196.jpg deleted file mode 100644 index e3179892..00000000 Binary files a/pics/170000196.jpg and /dev/null differ diff --git a/pics/170000197.jpg b/pics/170000197.jpg deleted file mode 100644 index ab071f7d..00000000 Binary files a/pics/170000197.jpg and /dev/null differ diff --git a/pics/170000201.jpg b/pics/170000201.jpg deleted file mode 100644 index 3dac9b0c..00000000 Binary files a/pics/170000201.jpg and /dev/null differ diff --git a/pics/170000202.jpg b/pics/170000202.jpg deleted file mode 100644 index a40a89e3..00000000 Binary files a/pics/170000202.jpg and /dev/null differ diff --git a/pics/170000203.jpg b/pics/170000203.jpg deleted file mode 100644 index a11d8a47..00000000 Binary files a/pics/170000203.jpg and /dev/null differ diff --git a/pics/170000207.jpg b/pics/170000207.jpg deleted file mode 100644 index 43933153..00000000 Binary files a/pics/170000207.jpg and /dev/null differ diff --git a/pics/170000210.jpg b/pics/170000210.jpg deleted file mode 100644 index 2d83493b..00000000 Binary files a/pics/170000210.jpg and /dev/null differ diff --git a/pics/17016362.jpg b/pics/17016362.jpg deleted file mode 100755 index 13dd923e..00000000 Binary files a/pics/17016362.jpg and /dev/null differ diff --git a/pics/17021204.jpg b/pics/17021204.jpg deleted file mode 100644 index 3799585a..00000000 Binary files a/pics/17021204.jpg and /dev/null differ diff --git a/pics/17032740.jpg b/pics/17032740.jpg deleted file mode 100644 index e4807b70..00000000 Binary files a/pics/17032740.jpg and /dev/null differ diff --git a/pics/17045014.jpg b/pics/17045014.jpg deleted file mode 100644 index 824a6139..00000000 Binary files a/pics/17045014.jpg and /dev/null differ diff --git a/pics/17052477.jpg b/pics/17052477.jpg deleted file mode 100644 index 109c8ed0..00000000 Binary files a/pics/17052477.jpg and /dev/null differ diff --git a/pics/17078030.jpg b/pics/17078030.jpg deleted file mode 100644 index 40d18053..00000000 Binary files a/pics/17078030.jpg and /dev/null differ diff --git a/pics/17086528.jpg b/pics/17086528.jpg deleted file mode 100755 index 6bbc1667..00000000 Binary files a/pics/17086528.jpg and /dev/null differ diff --git a/pics/17092736.jpg b/pics/17092736.jpg deleted file mode 100644 index dc1d532a..00000000 Binary files a/pics/17092736.jpg and /dev/null differ diff --git a/pics/171000111.jpg b/pics/171000111.jpg deleted file mode 100644 index 7500ebff..00000000 Binary files a/pics/171000111.jpg and /dev/null differ diff --git a/pics/1710476.jpg b/pics/1710476.jpg deleted file mode 100644 index 8e94d3a3..00000000 Binary files a/pics/1710476.jpg and /dev/null differ diff --git a/pics/17115745.jpg b/pics/17115745.jpg deleted file mode 100644 index e6c25cd9..00000000 Binary files a/pics/17115745.jpg and /dev/null differ diff --git a/pics/17129783.jpg b/pics/17129783.jpg deleted file mode 100644 index 85396d26..00000000 Binary files a/pics/17129783.jpg and /dev/null differ diff --git a/pics/17132130.jpg b/pics/17132130.jpg deleted file mode 100644 index ca6b1d87..00000000 Binary files a/pics/17132130.jpg and /dev/null differ diff --git a/pics/17178486.jpg b/pics/17178486.jpg deleted file mode 100644 index d0046641..00000000 Binary files a/pics/17178486.jpg and /dev/null differ diff --git a/pics/17183908.jpg b/pics/17183908.jpg deleted file mode 100644 index f43f7552..00000000 Binary files a/pics/17183908.jpg and /dev/null differ diff --git a/pics/17185260.jpg b/pics/17185260.jpg deleted file mode 100644 index 6e9bce06..00000000 Binary files a/pics/17185260.jpg and /dev/null differ diff --git a/pics/17189532.jpg b/pics/17189532.jpg deleted file mode 100644 index c3850991..00000000 Binary files a/pics/17189532.jpg and /dev/null differ diff --git a/pics/17189677.jpg b/pics/17189677.jpg deleted file mode 100644 index 9373e3af..00000000 Binary files a/pics/17189677.jpg and /dev/null differ diff --git a/pics/17192817.jpg b/pics/17192817.jpg deleted file mode 100644 index fc543e20..00000000 Binary files a/pics/17192817.jpg and /dev/null differ diff --git a/pics/17194258.jpg b/pics/17194258.jpg deleted file mode 100644 index 892025e0..00000000 Binary files a/pics/17194258.jpg and /dev/null differ diff --git a/pics/17201174.jpg b/pics/17201174.jpg deleted file mode 100644 index 3267c2b6..00000000 Binary files a/pics/17201174.jpg and /dev/null differ diff --git a/pics/17214465.jpg b/pics/17214465.jpg deleted file mode 100644 index e18ee9a9..00000000 Binary files a/pics/17214465.jpg and /dev/null differ diff --git a/pics/17236839.jpg b/pics/17236839.jpg deleted file mode 100644 index b69e9444..00000000 Binary files a/pics/17236839.jpg and /dev/null differ diff --git a/pics/17238333.jpg b/pics/17238333.jpg deleted file mode 100644 index d5f70822..00000000 Binary files a/pics/17238333.jpg and /dev/null differ diff --git a/pics/17241370.jpg b/pics/17241370.jpg deleted file mode 100644 index 3202ccb5..00000000 Binary files a/pics/17241370.jpg and /dev/null differ diff --git a/pics/17243896.jpg b/pics/17243896.jpg deleted file mode 100644 index 6803c1ca..00000000 Binary files a/pics/17243896.jpg and /dev/null differ diff --git a/pics/17259470.jpg b/pics/17259470.jpg deleted file mode 100644 index ad93be2e..00000000 Binary files a/pics/17259470.jpg and /dev/null differ diff --git a/pics/17264592.jpg b/pics/17264592.jpg deleted file mode 100644 index 0a842964..00000000 Binary files a/pics/17264592.jpg and /dev/null differ diff --git a/pics/17266660.jpg b/pics/17266660.jpg deleted file mode 100644 index fa44a8f8..00000000 Binary files a/pics/17266660.jpg and /dev/null differ diff --git a/pics/17285476.jpg b/pics/17285476.jpg deleted file mode 100644 index 769662da..00000000 Binary files a/pics/17285476.jpg and /dev/null differ diff --git a/pics/17286057.jpg b/pics/17286057.jpg deleted file mode 100644 index 4b7986a1..00000000 Binary files a/pics/17286057.jpg and /dev/null differ diff --git a/pics/17313545.jpg b/pics/17313545.jpg deleted file mode 100644 index 4aa68850..00000000 Binary files a/pics/17313545.jpg and /dev/null differ diff --git a/pics/17330916.jpg b/pics/17330916.jpg deleted file mode 100755 index 07566f7f..00000000 Binary files a/pics/17330916.jpg and /dev/null differ diff --git a/pics/17358176.jpg b/pics/17358176.jpg deleted file mode 100644 index 3793e6d4..00000000 Binary files a/pics/17358176.jpg and /dev/null differ diff --git a/pics/17363041.jpg b/pics/17363041.jpg deleted file mode 100644 index 80d56f1d..00000000 Binary files a/pics/17363041.jpg and /dev/null differ diff --git a/pics/17375316.jpg b/pics/17375316.jpg deleted file mode 100644 index 14ca8163..00000000 Binary files a/pics/17375316.jpg and /dev/null differ diff --git a/pics/17377751.jpg b/pics/17377751.jpg deleted file mode 100644 index 317525bf..00000000 Binary files a/pics/17377751.jpg and /dev/null differ diff --git a/pics/17390179.jpg b/pics/17390179.jpg deleted file mode 100644 index 98a3aaf6..00000000 Binary files a/pics/17390179.jpg and /dev/null differ diff --git a/pics/17393207.jpg b/pics/17393207.jpg deleted file mode 100644 index dff914f3..00000000 Binary files a/pics/17393207.jpg and /dev/null differ diff --git a/pics/17412721.jpg b/pics/17412721.jpg deleted file mode 100644 index 36405459..00000000 Binary files a/pics/17412721.jpg and /dev/null differ diff --git a/pics/17415895.jpg b/pics/17415895.jpg deleted file mode 100644 index 149e560c..00000000 Binary files a/pics/17415895.jpg and /dev/null differ diff --git a/pics/17418744.jpg b/pics/17418744.jpg deleted file mode 100644 index f2aa9163..00000000 Binary files a/pics/17418744.jpg and /dev/null differ diff --git a/pics/17418745.jpg b/pics/17418745.jpg deleted file mode 100644 index a178eb37..00000000 Binary files a/pics/17418745.jpg and /dev/null differ diff --git a/pics/17441953.jpg b/pics/17441953.jpg deleted file mode 100644 index 491cd6a3..00000000 Binary files a/pics/17441953.jpg and /dev/null differ diff --git a/pics/17444133.jpg b/pics/17444133.jpg deleted file mode 100644 index f981cf20..00000000 Binary files a/pics/17444133.jpg and /dev/null differ diff --git a/pics/17449108.jpg b/pics/17449108.jpg deleted file mode 100644 index 3b014f81..00000000 Binary files a/pics/17449108.jpg and /dev/null differ diff --git a/pics/17475251.jpg b/pics/17475251.jpg deleted file mode 100644 index f66750c8..00000000 Binary files a/pics/17475251.jpg and /dev/null differ diff --git a/pics/17484499.jpg b/pics/17484499.jpg deleted file mode 100644 index 73a25b61..00000000 Binary files a/pics/17484499.jpg and /dev/null differ diff --git a/pics/17490535.jpg b/pics/17490535.jpg deleted file mode 100644 index ee53e1f8..00000000 Binary files a/pics/17490535.jpg and /dev/null differ diff --git a/pics/17494901.jpg b/pics/17494901.jpg deleted file mode 100644 index de992941..00000000 Binary files a/pics/17494901.jpg and /dev/null differ diff --git a/pics/17502671.jpg b/pics/17502671.jpg deleted file mode 100644 index a583ac23..00000000 Binary files a/pics/17502671.jpg and /dev/null differ diff --git a/pics/17511156.jpg b/pics/17511156.jpg deleted file mode 100644 index 6ce63f91..00000000 Binary files a/pics/17511156.jpg and /dev/null differ diff --git a/pics/17521642.jpg b/pics/17521642.jpg deleted file mode 100644 index bfcd8c97..00000000 Binary files a/pics/17521642.jpg and /dev/null differ diff --git a/pics/17530001.jpg b/pics/17530001.jpg deleted file mode 100644 index 204f0972..00000000 Binary files a/pics/17530001.jpg and /dev/null differ diff --git a/pics/17535588.jpg b/pics/17535588.jpg deleted file mode 100644 index 11d43f50..00000000 Binary files a/pics/17535588.jpg and /dev/null differ diff --git a/pics/17536995.jpg b/pics/17536995.jpg deleted file mode 100644 index 06d95c04..00000000 Binary files a/pics/17536995.jpg and /dev/null differ diff --git a/pics/17548456.jpg b/pics/17548456.jpg deleted file mode 100644 index fb263226..00000000 Binary files a/pics/17548456.jpg and /dev/null differ diff --git a/pics/17559367.jpg b/pics/17559367.jpg deleted file mode 100644 index 4217eef9..00000000 Binary files a/pics/17559367.jpg and /dev/null differ diff --git a/pics/17573739.jpg b/pics/17573739.jpg deleted file mode 100644 index f3f7a3d6..00000000 Binary files a/pics/17573739.jpg and /dev/null differ diff --git a/pics/17589298.jpg b/pics/17589298.jpg deleted file mode 100644 index 0b735fa3..00000000 Binary files a/pics/17589298.jpg and /dev/null differ diff --git a/pics/17597059.jpg b/pics/17597059.jpg deleted file mode 100644 index 55bdf80d..00000000 Binary files a/pics/17597059.jpg and /dev/null differ diff --git a/pics/17601919.jpg b/pics/17601919.jpg deleted file mode 100644 index 2e8d42af..00000000 Binary files a/pics/17601919.jpg and /dev/null differ diff --git a/pics/1761063.jpg b/pics/1761063.jpg deleted file mode 100644 index 57b24c7f..00000000 Binary files a/pics/1761063.jpg and /dev/null differ diff --git a/pics/17626381.jpg b/pics/17626381.jpg deleted file mode 100644 index 09d36551..00000000 Binary files a/pics/17626381.jpg and /dev/null differ diff --git a/pics/17639150.jpg b/pics/17639150.jpg deleted file mode 100644 index 19c31869..00000000 Binary files a/pics/17639150.jpg and /dev/null differ diff --git a/pics/176392.jpg b/pics/176392.jpg deleted file mode 100644 index 4c51d4ae..00000000 Binary files a/pics/176392.jpg and /dev/null differ diff --git a/pics/176393.jpg b/pics/176393.jpg deleted file mode 100644 index 4c016c7a..00000000 Binary files a/pics/176393.jpg and /dev/null differ diff --git a/pics/17643265.jpg b/pics/17643265.jpg deleted file mode 100644 index 84a3829a..00000000 Binary files a/pics/17643265.jpg and /dev/null differ diff --git a/pics/1764972.jpg b/pics/1764972.jpg deleted file mode 100644 index 61b5bc30..00000000 Binary files a/pics/1764972.jpg and /dev/null differ diff --git a/pics/17649753.jpg b/pics/17649753.jpg deleted file mode 100644 index ab1faa94..00000000 Binary files a/pics/17649753.jpg and /dev/null differ diff --git a/pics/17653779.jpg b/pics/17653779.jpg deleted file mode 100644 index 2c81e8e7..00000000 Binary files a/pics/17653779.jpg and /dev/null differ diff --git a/pics/17655904.jpg b/pics/17655904.jpg deleted file mode 100644 index 2eecdf7a..00000000 Binary files a/pics/17655904.jpg and /dev/null differ diff --git a/pics/17658803.jpg b/pics/17658803.jpg deleted file mode 100644 index b98d5857..00000000 Binary files a/pics/17658803.jpg and /dev/null differ diff --git a/pics/17706537.jpg b/pics/17706537.jpg deleted file mode 100644 index 3a98cc93..00000000 Binary files a/pics/17706537.jpg and /dev/null differ diff --git a/pics/17720747.jpg b/pics/17720747.jpg deleted file mode 100644 index 9577832c..00000000 Binary files a/pics/17720747.jpg and /dev/null differ diff --git a/pics/17732278.jpg b/pics/17732278.jpg deleted file mode 100644 index fcbd5e9f..00000000 Binary files a/pics/17732278.jpg and /dev/null differ diff --git a/pics/17733394.jpg b/pics/17733394.jpg deleted file mode 100644 index d9f61723..00000000 Binary files a/pics/17733394.jpg and /dev/null differ diff --git a/pics/17760003.jpg b/pics/17760003.jpg deleted file mode 100644 index e111842e..00000000 Binary files a/pics/17760003.jpg and /dev/null differ diff --git a/pics/17810268.jpg b/pics/17810268.jpg deleted file mode 100644 index 4ebf4507..00000000 Binary files a/pics/17810268.jpg and /dev/null differ diff --git a/pics/1781310.jpg b/pics/1781310.jpg deleted file mode 100644 index 71d0dc4f..00000000 Binary files a/pics/1781310.jpg and /dev/null differ diff --git a/pics/17814387.jpg b/pics/17814387.jpg deleted file mode 100644 index 5ff897a6..00000000 Binary files a/pics/17814387.jpg and /dev/null differ diff --git a/pics/17841097.jpg b/pics/17841097.jpg deleted file mode 100644 index 7c3c7707..00000000 Binary files a/pics/17841097.jpg and /dev/null differ diff --git a/pics/1784619.jpg b/pics/1784619.jpg deleted file mode 100644 index 95401fbf..00000000 Binary files a/pics/1784619.jpg and /dev/null differ diff --git a/pics/1784686.jpg b/pics/1784686.jpg deleted file mode 100644 index 8eeaa684..00000000 Binary files a/pics/1784686.jpg and /dev/null differ diff --git a/pics/17857780.jpg b/pics/17857780.jpg deleted file mode 100644 index 0132eb59..00000000 Binary files a/pics/17857780.jpg and /dev/null differ diff --git a/pics/17874674.jpg b/pics/17874674.jpg deleted file mode 100644 index cf50be60..00000000 Binary files a/pics/17874674.jpg and /dev/null differ diff --git a/pics/17881964.jpg b/pics/17881964.jpg deleted file mode 100644 index 308580dd..00000000 Binary files a/pics/17881964.jpg and /dev/null differ diff --git a/pics/17896384.jpg b/pics/17896384.jpg deleted file mode 100644 index 62ee28a4..00000000 Binary files a/pics/17896384.jpg and /dev/null differ diff --git a/pics/17932494.jpg b/pics/17932494.jpg deleted file mode 100644 index f75118cc..00000000 Binary files a/pics/17932494.jpg and /dev/null differ diff --git a/pics/17948378.jpg b/pics/17948378.jpg deleted file mode 100644 index f6961a06..00000000 Binary files a/pics/17948378.jpg and /dev/null differ diff --git a/pics/17955766.jpg b/pics/17955766.jpg deleted file mode 100644 index d0e99800..00000000 Binary files a/pics/17955766.jpg and /dev/null differ diff --git a/pics/17968114.jpg b/pics/17968114.jpg deleted file mode 100644 index fbd2aab1..00000000 Binary files a/pics/17968114.jpg and /dev/null differ diff --git a/pics/17979378.jpg b/pics/17979378.jpg deleted file mode 100644 index 34611385..00000000 Binary files a/pics/17979378.jpg and /dev/null differ diff --git a/pics/17985575.jpg b/pics/17985575.jpg deleted file mode 100644 index c3879c93..00000000 Binary files a/pics/17985575.jpg and /dev/null differ diff --git a/pics/1801154.jpg b/pics/1801154.jpg deleted file mode 100644 index e5f59c01..00000000 Binary files a/pics/1801154.jpg and /dev/null differ diff --git a/pics/18013090.jpg b/pics/18013090.jpg deleted file mode 100644 index 927b4f6f..00000000 Binary files a/pics/18013090.jpg and /dev/null differ diff --git a/pics/1802450.jpg b/pics/1802450.jpg deleted file mode 100644 index 45d58d41..00000000 Binary files a/pics/1802450.jpg and /dev/null differ diff --git a/pics/18027138.jpg b/pics/18027138.jpg deleted file mode 100644 index 9a91ebd7..00000000 Binary files a/pics/18027138.jpg and /dev/null differ diff --git a/pics/18027139.jpg b/pics/18027139.jpg deleted file mode 100644 index 9b056d15..00000000 Binary files a/pics/18027139.jpg and /dev/null differ diff --git a/pics/18036057.jpg b/pics/18036057.jpg deleted file mode 100644 index 53c4336b..00000000 Binary files a/pics/18036057.jpg and /dev/null differ diff --git a/pics/1804528.jpg b/pics/1804528.jpg deleted file mode 100644 index 8d842e57..00000000 Binary files a/pics/1804528.jpg and /dev/null differ diff --git a/pics/18060565.jpg b/pics/18060565.jpg deleted file mode 100644 index e2854b85..00000000 Binary files a/pics/18060565.jpg and /dev/null differ diff --git a/pics/18063928.jpg b/pics/18063928.jpg deleted file mode 100644 index ff43b335..00000000 Binary files a/pics/18063928.jpg and /dev/null differ diff --git a/pics/18096222.jpg b/pics/18096222.jpg deleted file mode 100644 index 45cdcf77..00000000 Binary files a/pics/18096222.jpg and /dev/null differ diff --git a/pics/18108166.jpg b/pics/18108166.jpg deleted file mode 100755 index e2cb806b..00000000 Binary files a/pics/18108166.jpg and /dev/null differ diff --git a/pics/18114794.jpg b/pics/18114794.jpg deleted file mode 100644 index 74361733..00000000 Binary files a/pics/18114794.jpg and /dev/null differ diff --git a/pics/18144506.jpg b/pics/18144506.jpg deleted file mode 100644 index a32e794f..00000000 Binary files a/pics/18144506.jpg and /dev/null differ diff --git a/pics/18144507.jpg b/pics/18144507.jpg deleted file mode 100644 index d355cdda..00000000 Binary files a/pics/18144507.jpg and /dev/null differ diff --git a/pics/18158397.jpg b/pics/18158397.jpg deleted file mode 100644 index db48538b..00000000 Binary files a/pics/18158397.jpg and /dev/null differ diff --git a/pics/18161786.jpg b/pics/18161786.jpg deleted file mode 100644 index ff3629ca..00000000 Binary files a/pics/18161786.jpg and /dev/null differ diff --git a/pics/18175965.jpg b/pics/18175965.jpg deleted file mode 100644 index 023becfd..00000000 Binary files a/pics/18175965.jpg and /dev/null differ diff --git a/pics/18180762.jpg b/pics/18180762.jpg deleted file mode 100644 index 5f1a5e3a..00000000 Binary files a/pics/18180762.jpg and /dev/null differ diff --git a/pics/18190572.jpg b/pics/18190572.jpg deleted file mode 100644 index 946eda25..00000000 Binary files a/pics/18190572.jpg and /dev/null differ diff --git a/pics/18205590.jpg b/pics/18205590.jpg deleted file mode 100644 index 3ad0b0be..00000000 Binary files a/pics/18205590.jpg and /dev/null differ diff --git a/pics/18235309.jpg b/pics/18235309.jpg deleted file mode 100644 index 4c00556a..00000000 Binary files a/pics/18235309.jpg and /dev/null differ diff --git a/pics/18235577.jpg b/pics/18235577.jpg deleted file mode 100644 index 75e6597a..00000000 Binary files a/pics/18235577.jpg and /dev/null differ diff --git a/pics/18239909.jpg b/pics/18239909.jpg deleted file mode 100755 index 275dccf7..00000000 Binary files a/pics/18239909.jpg and /dev/null differ diff --git a/pics/18246479.jpg b/pics/18246479.jpg deleted file mode 100644 index 0880cded..00000000 Binary files a/pics/18246479.jpg and /dev/null differ diff --git a/pics/18252559.jpg b/pics/18252559.jpg deleted file mode 100755 index 90d4c3aa..00000000 Binary files a/pics/18252559.jpg and /dev/null differ diff --git a/pics/1826676.jpg b/pics/1826676.jpg deleted file mode 100644 index 0eb91ac4..00000000 Binary files a/pics/1826676.jpg and /dev/null differ diff --git a/pics/18271561.jpg b/pics/18271561.jpg deleted file mode 100644 index 7dc795cb..00000000 Binary files a/pics/18271561.jpg and /dev/null differ diff --git a/pics/18282103.jpg b/pics/18282103.jpg deleted file mode 100644 index 10edb81f..00000000 Binary files a/pics/18282103.jpg and /dev/null differ diff --git a/pics/1828513.jpg b/pics/1828513.jpg deleted file mode 100644 index c4edf47f..00000000 Binary files a/pics/1828513.jpg and /dev/null differ diff --git a/pics/18302224.jpg b/pics/18302224.jpg deleted file mode 100644 index adeda188..00000000 Binary files a/pics/18302224.jpg and /dev/null differ diff --git a/pics/18318842.jpg b/pics/18318842.jpg deleted file mode 100644 index d816437e..00000000 Binary files a/pics/18318842.jpg and /dev/null differ diff --git a/pics/18322364.jpg b/pics/18322364.jpg deleted file mode 100644 index d329a0ec..00000000 Binary files a/pics/18322364.jpg and /dev/null differ diff --git a/pics/18325492.jpg b/pics/18325492.jpg deleted file mode 100644 index f465da23..00000000 Binary files a/pics/18325492.jpg and /dev/null differ diff --git a/pics/18326736.jpg b/pics/18326736.jpg deleted file mode 100644 index 8b3ec0f2..00000000 Binary files a/pics/18326736.jpg and /dev/null differ diff --git a/pics/1833916.jpg b/pics/1833916.jpg deleted file mode 100644 index 3e438e4f..00000000 Binary files a/pics/1833916.jpg and /dev/null differ diff --git a/pics/1834107.jpg b/pics/1834107.jpg deleted file mode 100644 index c4d9d0ec..00000000 Binary files a/pics/1834107.jpg and /dev/null differ diff --git a/pics/1834753.jpg b/pics/1834753.jpg deleted file mode 100644 index 5de98ea9..00000000 Binary files a/pics/1834753.jpg and /dev/null differ diff --git a/pics/18372968.jpg b/pics/18372968.jpg deleted file mode 100644 index b058f099..00000000 Binary files a/pics/18372968.jpg and /dev/null differ diff --git a/pics/18378582.jpg b/pics/18378582.jpg deleted file mode 100644 index 8455c25d..00000000 Binary files a/pics/18378582.jpg and /dev/null differ diff --git a/pics/18386170.jpg b/pics/18386170.jpg deleted file mode 100755 index af16e138..00000000 Binary files a/pics/18386170.jpg and /dev/null differ diff --git a/pics/18407024.jpg b/pics/18407024.jpg deleted file mode 100644 index 2f68f2f6..00000000 Binary files a/pics/18407024.jpg and /dev/null differ diff --git a/pics/18426196.jpg b/pics/18426196.jpg deleted file mode 100644 index 9dc82d83..00000000 Binary files a/pics/18426196.jpg and /dev/null differ diff --git a/pics/18430390.jpg b/pics/18430390.jpg deleted file mode 100644 index 00fedb3e..00000000 Binary files a/pics/18430390.jpg and /dev/null differ diff --git a/pics/18444902.jpg b/pics/18444902.jpg deleted file mode 100644 index f46a22f8..00000000 Binary files a/pics/18444902.jpg and /dev/null differ diff --git a/pics/18446701.jpg b/pics/18446701.jpg deleted file mode 100644 index 02ab6b29..00000000 Binary files a/pics/18446701.jpg and /dev/null differ diff --git a/pics/1845204.jpg b/pics/1845204.jpg deleted file mode 100644 index 814da388..00000000 Binary files a/pics/1845204.jpg and /dev/null differ diff --git a/pics/18482591.jpg b/pics/18482591.jpg deleted file mode 100644 index 7858acb4..00000000 Binary files a/pics/18482591.jpg and /dev/null differ diff --git a/pics/18489208.jpg b/pics/18489208.jpg deleted file mode 100644 index 10f7bdd5..00000000 Binary files a/pics/18489208.jpg and /dev/null differ diff --git a/pics/18511384.jpg b/pics/18511384.jpg deleted file mode 100644 index d6eddaad..00000000 Binary files a/pics/18511384.jpg and /dev/null differ diff --git a/pics/18511599.jpg b/pics/18511599.jpg deleted file mode 100644 index a3a0a226..00000000 Binary files a/pics/18511599.jpg and /dev/null differ diff --git a/pics/18517177.jpg b/pics/18517177.jpg deleted file mode 100644 index 0be53bb9..00000000 Binary files a/pics/18517177.jpg and /dev/null differ diff --git a/pics/1855932.jpg b/pics/1855932.jpg deleted file mode 100644 index 2f0ba096..00000000 Binary files a/pics/1855932.jpg and /dev/null differ diff --git a/pics/18590133.jpg b/pics/18590133.jpg deleted file mode 100644 index f5c6203b..00000000 Binary files a/pics/18590133.jpg and /dev/null differ diff --git a/pics/18591904.jpg b/pics/18591904.jpg deleted file mode 100644 index 2de00cea..00000000 Binary files a/pics/18591904.jpg and /dev/null differ diff --git a/pics/18605135.jpg b/pics/18605135.jpg deleted file mode 100644 index 6a3216cd..00000000 Binary files a/pics/18605135.jpg and /dev/null differ diff --git a/pics/18631392.jpg b/pics/18631392.jpg deleted file mode 100644 index 63f83420..00000000 Binary files a/pics/18631392.jpg and /dev/null differ diff --git a/pics/18634367.jpg b/pics/18634367.jpg deleted file mode 100644 index 218cbba0..00000000 Binary files a/pics/18634367.jpg and /dev/null differ diff --git a/pics/18654201.jpg b/pics/18654201.jpg deleted file mode 100644 index 266525ca..00000000 Binary files a/pics/18654201.jpg and /dev/null differ diff --git a/pics/18658572.jpg b/pics/18658572.jpg deleted file mode 100644 index 784a0ed1..00000000 Binary files a/pics/18658572.jpg and /dev/null differ diff --git a/pics/18698739.jpg b/pics/18698739.jpg deleted file mode 100644 index 3c5859bf..00000000 Binary files a/pics/18698739.jpg and /dev/null differ diff --git a/pics/18710707.jpg b/pics/18710707.jpg deleted file mode 100644 index 9daaefaa..00000000 Binary files a/pics/18710707.jpg and /dev/null differ diff --git a/pics/18712704.jpg b/pics/18712704.jpg deleted file mode 100644 index 95ee25d4..00000000 Binary files a/pics/18712704.jpg and /dev/null differ diff --git a/pics/18724123.jpg b/pics/18724123.jpg deleted file mode 100644 index ffee0d4f..00000000 Binary files a/pics/18724123.jpg and /dev/null differ diff --git a/pics/18739764.jpg b/pics/18739764.jpg deleted file mode 100644 index 3d2e7dd2..00000000 Binary files a/pics/18739764.jpg and /dev/null differ diff --git a/pics/18752707.jpg b/pics/18752707.jpg deleted file mode 100644 index ac89a42a..00000000 Binary files a/pics/18752707.jpg and /dev/null differ diff --git a/pics/18752938.jpg b/pics/18752938.jpg deleted file mode 100644 index 48ee4dbd..00000000 Binary files a/pics/18752938.jpg and /dev/null differ diff --git a/pics/18756904.jpg b/pics/18756904.jpg deleted file mode 100644 index 95dbadf9..00000000 Binary files a/pics/18756904.jpg and /dev/null differ diff --git a/pics/18803791.jpg b/pics/18803791.jpg deleted file mode 100755 index 45e8c516..00000000 Binary files a/pics/18803791.jpg and /dev/null differ diff --git a/pics/18807108.jpg b/pics/18807108.jpg deleted file mode 100644 index e18a74eb..00000000 Binary files a/pics/18807108.jpg and /dev/null differ diff --git a/pics/18816758.jpg b/pics/18816758.jpg deleted file mode 100644 index 37f6f503..00000000 Binary files a/pics/18816758.jpg and /dev/null differ diff --git a/pics/18828179.jpg b/pics/18828179.jpg deleted file mode 100644 index 9b2781c5..00000000 Binary files a/pics/18828179.jpg and /dev/null differ diff --git a/pics/18842395.jpg b/pics/18842395.jpg deleted file mode 100644 index 151767c4..00000000 Binary files a/pics/18842395.jpg and /dev/null differ diff --git a/pics/18865703.jpg b/pics/18865703.jpg deleted file mode 100644 index baff0fda..00000000 Binary files a/pics/18865703.jpg and /dev/null differ diff --git a/pics/18891691.jpg b/pics/18891691.jpg deleted file mode 100644 index 9607c491..00000000 Binary files a/pics/18891691.jpg and /dev/null differ diff --git a/pics/18895832.jpg b/pics/18895832.jpg deleted file mode 100644 index 73f772ef..00000000 Binary files a/pics/18895832.jpg and /dev/null differ diff --git a/pics/18914778.jpg b/pics/18914778.jpg deleted file mode 100644 index 64d13270..00000000 Binary files a/pics/18914778.jpg and /dev/null differ diff --git a/pics/18937875.jpg b/pics/18937875.jpg deleted file mode 100644 index 93ac7091..00000000 Binary files a/pics/18937875.jpg and /dev/null differ diff --git a/pics/18960169.jpg b/pics/18960169.jpg deleted file mode 100644 index 9a0fb621..00000000 Binary files a/pics/18960169.jpg and /dev/null differ diff --git a/pics/1896112.jpg b/pics/1896112.jpg deleted file mode 100644 index fc28eb52..00000000 Binary files a/pics/1896112.jpg and /dev/null differ diff --git a/pics/18964575.jpg b/pics/18964575.jpg deleted file mode 100644 index 4cb55d49..00000000 Binary files a/pics/18964575.jpg and /dev/null differ diff --git a/pics/18988391.jpg b/pics/18988391.jpg deleted file mode 100644 index 497a8795..00000000 Binary files a/pics/18988391.jpg and /dev/null differ diff --git a/pics/19012345.jpg b/pics/19012345.jpg deleted file mode 100644 index bb2122ea..00000000 Binary files a/pics/19012345.jpg and /dev/null differ diff --git a/pics/19019586.jpg b/pics/19019586.jpg deleted file mode 100644 index 21d0baff..00000000 Binary files a/pics/19019586.jpg and /dev/null differ diff --git a/pics/19024706.jpg b/pics/19024706.jpg deleted file mode 100644 index 24f6ced2..00000000 Binary files a/pics/19024706.jpg and /dev/null differ diff --git a/pics/19025379.jpg b/pics/19025379.jpg deleted file mode 100755 index 8176352e..00000000 Binary files a/pics/19025379.jpg and /dev/null differ diff --git a/pics/19028307.jpg b/pics/19028307.jpg deleted file mode 100644 index 1392ba81..00000000 Binary files a/pics/19028307.jpg and /dev/null differ diff --git a/pics/19041767.jpg b/pics/19041767.jpg deleted file mode 100644 index 4a62c381..00000000 Binary files a/pics/19041767.jpg and /dev/null differ diff --git a/pics/19048328.jpg b/pics/19048328.jpg deleted file mode 100644 index 2ab0d79e..00000000 Binary files a/pics/19048328.jpg and /dev/null differ diff --git a/pics/19059929.jpg b/pics/19059929.jpg deleted file mode 100644 index e8e836e2..00000000 Binary files a/pics/19059929.jpg and /dev/null differ diff --git a/pics/19066538.jpg b/pics/19066538.jpg deleted file mode 100644 index 67decbed..00000000 Binary files a/pics/19066538.jpg and /dev/null differ diff --git a/pics/19086954.jpg b/pics/19086954.jpg deleted file mode 100644 index 9dc7a9f5..00000000 Binary files a/pics/19086954.jpg and /dev/null differ diff --git a/pics/19113101.jpg b/pics/19113101.jpg deleted file mode 100644 index 09e7b85f..00000000 Binary files a/pics/19113101.jpg and /dev/null differ diff --git a/pics/19139516.jpg b/pics/19139516.jpg deleted file mode 100644 index 2b16c1ee..00000000 Binary files a/pics/19139516.jpg and /dev/null differ diff --git a/pics/19153634.jpg b/pics/19153634.jpg deleted file mode 100644 index 584fe6f7..00000000 Binary files a/pics/19153634.jpg and /dev/null differ diff --git a/pics/19159413.jpg b/pics/19159413.jpg deleted file mode 100644 index 2fea4500..00000000 Binary files a/pics/19159413.jpg and /dev/null differ diff --git a/pics/19163116.jpg b/pics/19163116.jpg deleted file mode 100644 index 3005e361..00000000 Binary files a/pics/19163116.jpg and /dev/null differ diff --git a/pics/191749.jpg b/pics/191749.jpg deleted file mode 100644 index b959f160..00000000 Binary files a/pics/191749.jpg and /dev/null differ diff --git a/pics/1918087.jpg b/pics/1918087.jpg deleted file mode 100644 index 7da37769..00000000 Binary files a/pics/1918087.jpg and /dev/null differ diff --git a/pics/19182751.jpg b/pics/19182751.jpg deleted file mode 100644 index ab82c8ba..00000000 Binary files a/pics/19182751.jpg and /dev/null differ diff --git a/pics/19204398.jpg b/pics/19204398.jpg deleted file mode 100644 index f89d2d70..00000000 Binary files a/pics/19204398.jpg and /dev/null differ diff --git a/pics/19221310.jpg b/pics/19221310.jpg deleted file mode 100644 index 80d4d9a7..00000000 Binary files a/pics/19221310.jpg and /dev/null differ diff --git a/pics/19230407.jpg b/pics/19230407.jpg deleted file mode 100644 index 5068d563..00000000 Binary files a/pics/19230407.jpg and /dev/null differ diff --git a/pics/19230408.jpg b/pics/19230408.jpg deleted file mode 100644 index 5d4ae722..00000000 Binary files a/pics/19230408.jpg and /dev/null differ diff --git a/pics/19252988.jpg b/pics/19252988.jpg deleted file mode 100644 index 4638b944..00000000 Binary files a/pics/19252988.jpg and /dev/null differ diff --git a/pics/19261966.jpg b/pics/19261966.jpg deleted file mode 100644 index 8b8a4d00..00000000 Binary files a/pics/19261966.jpg and /dev/null differ diff --git a/pics/1929294.jpg b/pics/1929294.jpg deleted file mode 100644 index b6c86ae8..00000000 Binary files a/pics/1929294.jpg and /dev/null differ diff --git a/pics/19302550.jpg b/pics/19302550.jpg deleted file mode 100755 index c1c6f696..00000000 Binary files a/pics/19302550.jpg and /dev/null differ diff --git a/pics/19310321.jpg b/pics/19310321.jpg deleted file mode 100644 index 7b4c3485..00000000 Binary files a/pics/19310321.jpg and /dev/null differ diff --git a/pics/19312169.jpg b/pics/19312169.jpg deleted file mode 100644 index a4b624e3..00000000 Binary files a/pics/19312169.jpg and /dev/null differ diff --git a/pics/19327348.jpg b/pics/19327348.jpg deleted file mode 100644 index b6f3b607..00000000 Binary files a/pics/19327348.jpg and /dev/null differ diff --git a/pics/19333131.jpg b/pics/19333131.jpg deleted file mode 100644 index 520903dd..00000000 Binary files a/pics/19333131.jpg and /dev/null differ diff --git a/pics/19337371.jpg b/pics/19337371.jpg deleted file mode 100644 index 95e0a920..00000000 Binary files a/pics/19337371.jpg and /dev/null differ diff --git a/pics/19353570.jpg b/pics/19353570.jpg deleted file mode 100644 index c0c96c48..00000000 Binary files a/pics/19353570.jpg and /dev/null differ diff --git a/pics/19355597.jpg b/pics/19355597.jpg deleted file mode 100755 index f44f1e74..00000000 Binary files a/pics/19355597.jpg and /dev/null differ diff --git a/pics/19357125.jpg b/pics/19357125.jpg deleted file mode 100644 index 77469460..00000000 Binary files a/pics/19357125.jpg and /dev/null differ diff --git a/pics/19384334.jpg b/pics/19384334.jpg deleted file mode 100644 index 24bb324b..00000000 Binary files a/pics/19384334.jpg and /dev/null differ diff --git a/pics/19394153.jpg b/pics/19394153.jpg deleted file mode 100644 index cc8b62f5..00000000 Binary files a/pics/19394153.jpg and /dev/null differ diff --git a/pics/19406822.jpg b/pics/19406822.jpg deleted file mode 100644 index f2c4146e..00000000 Binary files a/pics/19406822.jpg and /dev/null differ diff --git a/pics/19439119.jpg b/pics/19439119.jpg deleted file mode 100644 index 70010555..00000000 Binary files a/pics/19439119.jpg and /dev/null differ diff --git a/pics/19441018.jpg b/pics/19441018.jpg deleted file mode 100644 index ee6e928b..00000000 Binary files a/pics/19441018.jpg and /dev/null differ diff --git a/pics/19451302.jpg b/pics/19451302.jpg deleted file mode 100644 index 240d93b7..00000000 Binary files a/pics/19451302.jpg and /dev/null differ diff --git a/pics/1945387.jpg b/pics/1945387.jpg deleted file mode 100644 index 38bf1d75..00000000 Binary files a/pics/1945387.jpg and /dev/null differ diff --git a/pics/19474136.jpg b/pics/19474136.jpg deleted file mode 100755 index 688427d9..00000000 Binary files a/pics/19474136.jpg and /dev/null differ diff --git a/pics/19505896.jpg b/pics/19505896.jpg deleted file mode 100644 index 105ca792..00000000 Binary files a/pics/19505896.jpg and /dev/null differ diff --git a/pics/19508728.jpg b/pics/19508728.jpg deleted file mode 100644 index 4597072d..00000000 Binary files a/pics/19508728.jpg and /dev/null differ diff --git a/pics/19523799.jpg b/pics/19523799.jpg deleted file mode 100644 index 0030a0cc..00000000 Binary files a/pics/19523799.jpg and /dev/null differ diff --git a/pics/1953925.jpg b/pics/1953925.jpg deleted file mode 100644 index 29ebaa8b..00000000 Binary files a/pics/1953925.jpg and /dev/null differ diff --git a/pics/19578592.jpg b/pics/19578592.jpg deleted file mode 100644 index c5311e96..00000000 Binary files a/pics/19578592.jpg and /dev/null differ diff --git a/pics/19580308.jpg b/pics/19580308.jpg deleted file mode 100755 index cde39372..00000000 Binary files a/pics/19580308.jpg and /dev/null differ diff --git a/pics/19594506.jpg b/pics/19594506.jpg deleted file mode 100644 index 64eaa242..00000000 Binary files a/pics/19594506.jpg and /dev/null differ diff --git a/pics/19596712.jpg b/pics/19596712.jpg deleted file mode 100644 index ba2152de..00000000 Binary files a/pics/19596712.jpg and /dev/null differ diff --git a/pics/19605133.jpg b/pics/19605133.jpg deleted file mode 100644 index dfada9ff..00000000 Binary files a/pics/19605133.jpg and /dev/null differ diff --git a/pics/19612721.jpg b/pics/19612721.jpg deleted file mode 100644 index 37255836..00000000 Binary files a/pics/19612721.jpg and /dev/null differ diff --git a/pics/19613556.jpg b/pics/19613556.jpg deleted file mode 100644 index fc94effe..00000000 Binary files a/pics/19613556.jpg and /dev/null differ diff --git a/pics/19642774.jpg b/pics/19642774.jpg deleted file mode 100644 index b83974fd..00000000 Binary files a/pics/19642774.jpg and /dev/null differ diff --git a/pics/19642889.jpg b/pics/19642889.jpg deleted file mode 100644 index cbc62c47..00000000 Binary files a/pics/19642889.jpg and /dev/null differ diff --git a/pics/1965724.jpg b/pics/1965724.jpg deleted file mode 100644 index dd7fddc0..00000000 Binary files a/pics/1965724.jpg and /dev/null differ diff --git a/pics/19665973.jpg b/pics/19665973.jpg deleted file mode 100644 index 52cd51dd..00000000 Binary files a/pics/19665973.jpg and /dev/null differ diff --git a/pics/19667590.jpg b/pics/19667590.jpg deleted file mode 100644 index abce5486..00000000 Binary files a/pics/19667590.jpg and /dev/null differ diff --git a/pics/19680539.jpg b/pics/19680539.jpg deleted file mode 100644 index 7ab807df..00000000 Binary files a/pics/19680539.jpg and /dev/null differ diff --git a/pics/19684740.jpg b/pics/19684740.jpg deleted file mode 100644 index c74ddb61..00000000 Binary files a/pics/19684740.jpg and /dev/null differ diff --git a/pics/1969506.jpg b/pics/1969506.jpg deleted file mode 100644 index 42248f80..00000000 Binary files a/pics/1969506.jpg and /dev/null differ diff --git a/pics/19700943.jpg b/pics/19700943.jpg deleted file mode 100644 index f6f480d0..00000000 Binary files a/pics/19700943.jpg and /dev/null differ diff --git a/pics/19733961.jpg b/pics/19733961.jpg deleted file mode 100644 index 99707dfc..00000000 Binary files a/pics/19733961.jpg and /dev/null differ diff --git a/pics/19737320.jpg b/pics/19737320.jpg deleted file mode 100644 index 9cdf0520..00000000 Binary files a/pics/19737320.jpg and /dev/null differ diff --git a/pics/19740112.jpg b/pics/19740112.jpg deleted file mode 100644 index 7e74f7bf..00000000 Binary files a/pics/19740112.jpg and /dev/null differ diff --git a/pics/19747827.jpg b/pics/19747827.jpg deleted file mode 100755 index 56c4ceaf..00000000 Binary files a/pics/19747827.jpg and /dev/null differ diff --git a/pics/19748583.jpg b/pics/19748583.jpg deleted file mode 100644 index 6373839c..00000000 Binary files a/pics/19748583.jpg and /dev/null differ diff --git a/pics/19763315.jpg b/pics/19763315.jpg deleted file mode 100644 index 935a7b70..00000000 Binary files a/pics/19763315.jpg and /dev/null differ diff --git a/pics/19808608.jpg b/pics/19808608.jpg deleted file mode 100755 index 2e8e0b34..00000000 Binary files a/pics/19808608.jpg and /dev/null differ diff --git a/pics/19814508.jpg b/pics/19814508.jpg deleted file mode 100644 index 9ace64c4..00000000 Binary files a/pics/19814508.jpg and /dev/null differ diff --git a/pics/19827717.jpg b/pics/19827717.jpg deleted file mode 100644 index f851a8fc..00000000 Binary files a/pics/19827717.jpg and /dev/null differ diff --git a/pics/19844995.jpg b/pics/19844995.jpg deleted file mode 100644 index 319e8a94..00000000 Binary files a/pics/19844995.jpg and /dev/null differ diff --git a/pics/19847532.jpg b/pics/19847532.jpg deleted file mode 100644 index c72eb87c..00000000 Binary files a/pics/19847532.jpg and /dev/null differ diff --git a/pics/19870120.jpg b/pics/19870120.jpg deleted file mode 100644 index 11dfa39e..00000000 Binary files a/pics/19870120.jpg and /dev/null differ diff --git a/pics/19877898.jpg b/pics/19877898.jpg deleted file mode 100644 index 6781c515..00000000 Binary files a/pics/19877898.jpg and /dev/null differ diff --git a/pics/19891310.jpg b/pics/19891310.jpg deleted file mode 100644 index f896290d..00000000 Binary files a/pics/19891310.jpg and /dev/null differ diff --git a/pics/1992816.jpg b/pics/1992816.jpg deleted file mode 100644 index c640e79d..00000000 Binary files a/pics/1992816.jpg and /dev/null differ diff --git a/pics/19932396.jpg b/pics/19932396.jpg deleted file mode 100644 index 81ff140a..00000000 Binary files a/pics/19932396.jpg and /dev/null differ diff --git a/pics/19959742.jpg b/pics/19959742.jpg deleted file mode 100644 index 16e9d5ef..00000000 Binary files a/pics/19959742.jpg and /dev/null differ diff --git a/pics/1995985.jpg b/pics/1995985.jpg deleted file mode 100644 index f321ff09..00000000 Binary files a/pics/1995985.jpg and /dev/null differ diff --git a/pics/19974580.jpg b/pics/19974580.jpg deleted file mode 100644 index 037a9e89..00000000 Binary files a/pics/19974580.jpg and /dev/null differ diff --git a/pics/19980975.jpg b/pics/19980975.jpg deleted file mode 100644 index 3a570b19..00000000 Binary files a/pics/19980975.jpg and /dev/null differ diff --git a/pics/200000000.jpg b/pics/200000000.jpg deleted file mode 100644 index 15e4e3eb..00000000 Binary files a/pics/200000000.jpg and /dev/null differ diff --git a/pics/200000002.jpg b/pics/200000002.jpg deleted file mode 100644 index 3be3cee1..00000000 Binary files a/pics/200000002.jpg and /dev/null differ diff --git a/pics/200000003.jpg b/pics/200000003.jpg deleted file mode 100644 index 9ea8a581..00000000 Binary files a/pics/200000003.jpg and /dev/null differ diff --git a/pics/200000004.jpg b/pics/200000004.jpg deleted file mode 100644 index e2d5313c..00000000 Binary files a/pics/200000004.jpg and /dev/null differ diff --git a/pics/20003527.jpg b/pics/20003527.jpg deleted file mode 100644 index 5107650e..00000000 Binary files a/pics/20003527.jpg and /dev/null differ diff --git a/pics/20032555.jpg b/pics/20032555.jpg deleted file mode 100644 index 9502b1e6..00000000 Binary files a/pics/20032555.jpg and /dev/null differ diff --git a/pics/20036055.jpg b/pics/20036055.jpg deleted file mode 100644 index d26ff904..00000000 Binary files a/pics/20036055.jpg and /dev/null differ diff --git a/pics/20056760.jpg b/pics/20056760.jpg deleted file mode 100755 index d40fff5d..00000000 Binary files a/pics/20056760.jpg and /dev/null differ diff --git a/pics/20057949.jpg b/pics/20057949.jpg deleted file mode 100644 index 4d518212..00000000 Binary files a/pics/20057949.jpg and /dev/null differ diff --git a/pics/20060230.jpg b/pics/20060230.jpg deleted file mode 100644 index ab2c89f1..00000000 Binary files a/pics/20060230.jpg and /dev/null differ diff --git a/pics/20065322.jpg b/pics/20065322.jpg deleted file mode 100644 index 8b4dedc6..00000000 Binary files a/pics/20065322.jpg and /dev/null differ diff --git a/pics/20065549.jpg b/pics/20065549.jpg deleted file mode 100644 index c356d80a..00000000 Binary files a/pics/20065549.jpg and /dev/null differ diff --git a/pics/2009101.jpg b/pics/2009101.jpg deleted file mode 100644 index 2846f260..00000000 Binary files a/pics/2009101.jpg and /dev/null differ diff --git a/pics/20101223.jpg b/pics/20101223.jpg deleted file mode 100644 index 7d267a88..00000000 Binary files a/pics/20101223.jpg and /dev/null differ diff --git a/pics/20127343.jpg b/pics/20127343.jpg deleted file mode 100644 index 292db60b..00000000 Binary files a/pics/20127343.jpg and /dev/null differ diff --git a/pics/20138923.jpg b/pics/20138923.jpg deleted file mode 100644 index 16cfac9a..00000000 Binary files a/pics/20138923.jpg and /dev/null differ diff --git a/pics/20140382.jpg b/pics/20140382.jpg deleted file mode 100644 index 38c6c8d8..00000000 Binary files a/pics/20140382.jpg and /dev/null differ diff --git a/pics/20154092.jpg b/pics/20154092.jpg deleted file mode 100644 index 1fa384f9..00000000 Binary files a/pics/20154092.jpg and /dev/null differ diff --git a/pics/20174189.jpg b/pics/20174189.jpg deleted file mode 100644 index c9a5fa4d..00000000 Binary files a/pics/20174189.jpg and /dev/null differ diff --git a/pics/20188127.jpg b/pics/20188127.jpg deleted file mode 100644 index 14179b24..00000000 Binary files a/pics/20188127.jpg and /dev/null differ diff --git a/pics/20193924.jpg b/pics/20193924.jpg deleted file mode 100644 index 6a4dea9b..00000000 Binary files a/pics/20193924.jpg and /dev/null differ diff --git a/pics/20210570.jpg b/pics/20210570.jpg deleted file mode 100644 index 63a5fd72..00000000 Binary files a/pics/20210570.jpg and /dev/null differ diff --git a/pics/20228463.jpg b/pics/20228463.jpg deleted file mode 100644 index 69cb3759..00000000 Binary files a/pics/20228463.jpg and /dev/null differ diff --git a/pics/20264508.jpg b/pics/20264508.jpg deleted file mode 100644 index fb982aad..00000000 Binary files a/pics/20264508.jpg and /dev/null differ diff --git a/pics/20277376.jpg b/pics/20277376.jpg deleted file mode 100644 index c8d9d4c4..00000000 Binary files a/pics/20277376.jpg and /dev/null differ diff --git a/pics/20277860.jpg b/pics/20277860.jpg deleted file mode 100644 index 1527086a..00000000 Binary files a/pics/20277860.jpg and /dev/null differ diff --git a/pics/20292186.jpg b/pics/20292186.jpg deleted file mode 100644 index 5d5b4a83..00000000 Binary files a/pics/20292186.jpg and /dev/null differ diff --git a/pics/20315854.jpg b/pics/20315854.jpg deleted file mode 100644 index 6694b93d..00000000 Binary files a/pics/20315854.jpg and /dev/null differ diff --git a/pics/20349913.jpg b/pics/20349913.jpg deleted file mode 100644 index 9eab06c2..00000000 Binary files a/pics/20349913.jpg and /dev/null differ diff --git a/pics/20351153.jpg b/pics/20351153.jpg deleted file mode 100644 index c4460b26..00000000 Binary files a/pics/20351153.jpg and /dev/null differ diff --git a/pics/20358953.jpg b/pics/20358953.jpg deleted file mode 100644 index a9d402e7..00000000 Binary files a/pics/20358953.jpg and /dev/null differ diff --git a/pics/20366274.jpg b/pics/20366274.jpg deleted file mode 100644 index 0c75a797..00000000 Binary files a/pics/20366274.jpg and /dev/null differ diff --git a/pics/20368763.jpg b/pics/20368763.jpg deleted file mode 100644 index c3a07571..00000000 Binary files a/pics/20368763.jpg and /dev/null differ diff --git a/pics/20368764.jpg b/pics/20368764.jpg deleted file mode 100644 index 4bc2126a..00000000 Binary files a/pics/20368764.jpg and /dev/null differ diff --git a/pics/20374351.jpg b/pics/20374351.jpg deleted file mode 100644 index f412e52d..00000000 Binary files a/pics/20374351.jpg and /dev/null differ diff --git a/pics/20374520.jpg b/pics/20374520.jpg deleted file mode 100644 index c4e89477..00000000 Binary files a/pics/20374520.jpg and /dev/null differ diff --git a/pics/20394040.jpg b/pics/20394040.jpg deleted file mode 100644 index c7f4df5e..00000000 Binary files a/pics/20394040.jpg and /dev/null differ diff --git a/pics/20409757.jpg b/pics/20409757.jpg deleted file mode 100644 index cbb402b4..00000000 Binary files a/pics/20409757.jpg and /dev/null differ diff --git a/pics/20426907.jpg b/pics/20426907.jpg deleted file mode 100644 index 6a8e479a..00000000 Binary files a/pics/20426907.jpg and /dev/null differ diff --git a/pics/20436034.jpg b/pics/20436034.jpg deleted file mode 100644 index e6abd503..00000000 Binary files a/pics/20436034.jpg and /dev/null differ diff --git a/pics/20438745.jpg b/pics/20438745.jpg deleted file mode 100644 index 2d2fa4f9..00000000 Binary files a/pics/20438745.jpg and /dev/null differ diff --git a/pics/20450925.jpg b/pics/20450925.jpg deleted file mode 100644 index 5453a9c0..00000000 Binary files a/pics/20450925.jpg and /dev/null differ diff --git a/pics/20457551.jpg b/pics/20457551.jpg deleted file mode 100644 index 01c02c25..00000000 Binary files a/pics/20457551.jpg and /dev/null differ diff --git a/pics/20470500.jpg b/pics/20470500.jpg deleted file mode 100644 index b2614290..00000000 Binary files a/pics/20470500.jpg and /dev/null differ diff --git a/pics/20474741.jpg b/pics/20474741.jpg deleted file mode 100644 index a683c2ea..00000000 Binary files a/pics/20474741.jpg and /dev/null differ diff --git a/pics/2047519.jpg b/pics/2047519.jpg deleted file mode 100644 index 10a792a2..00000000 Binary files a/pics/2047519.jpg and /dev/null differ diff --git a/pics/20513882.jpg b/pics/20513882.jpg deleted file mode 100755 index a50627d6..00000000 Binary files a/pics/20513882.jpg and /dev/null differ diff --git a/pics/20522190.jpg b/pics/20522190.jpg deleted file mode 100644 index 8c550d41..00000000 Binary files a/pics/20522190.jpg and /dev/null differ diff --git a/pics/20529766.jpg b/pics/20529766.jpg deleted file mode 100644 index f1a64487..00000000 Binary files a/pics/20529766.jpg and /dev/null differ diff --git a/pics/20541432.jpg b/pics/20541432.jpg deleted file mode 100644 index df7edad5..00000000 Binary files a/pics/20541432.jpg and /dev/null differ diff --git a/pics/20546916.jpg b/pics/20546916.jpg deleted file mode 100644 index 03bdf906..00000000 Binary files a/pics/20546916.jpg and /dev/null differ diff --git a/pics/2055403.jpg b/pics/2055403.jpg deleted file mode 100644 index e20ccedc..00000000 Binary files a/pics/2055403.jpg and /dev/null differ diff --git a/pics/20563387.jpg b/pics/20563387.jpg deleted file mode 100644 index 06bc1551..00000000 Binary files a/pics/20563387.jpg and /dev/null differ diff --git a/pics/20579538.jpg b/pics/20579538.jpg deleted file mode 100755 index 117b18f2..00000000 Binary files a/pics/20579538.jpg and /dev/null differ diff --git a/pics/20586572.jpg b/pics/20586572.jpg deleted file mode 100644 index 6238b879..00000000 Binary files a/pics/20586572.jpg and /dev/null differ diff --git a/pics/20590784.jpg b/pics/20590784.jpg deleted file mode 100644 index 9d1a5c3f..00000000 Binary files a/pics/20590784.jpg and /dev/null differ diff --git a/pics/2061963.jpg b/pics/2061963.jpg deleted file mode 100644 index ae48e600..00000000 Binary files a/pics/2061963.jpg and /dev/null differ diff --git a/pics/20624263.jpg b/pics/20624263.jpg deleted file mode 100644 index a7cb7521..00000000 Binary files a/pics/20624263.jpg and /dev/null differ diff --git a/pics/20630765.jpg b/pics/20630765.jpg deleted file mode 100644 index 9e58ac5f..00000000 Binary files a/pics/20630765.jpg and /dev/null differ diff --git a/pics/20638610.jpg b/pics/20638610.jpg deleted file mode 100644 index 8751cfa2..00000000 Binary files a/pics/20638610.jpg and /dev/null differ diff --git a/pics/20644748.jpg b/pics/20644748.jpg deleted file mode 100644 index ff7d7af0..00000000 Binary files a/pics/20644748.jpg and /dev/null differ diff --git a/pics/20663556.jpg b/pics/20663556.jpg deleted file mode 100644 index 5b2f2fe7..00000000 Binary files a/pics/20663556.jpg and /dev/null differ diff --git a/pics/2067935.jpg b/pics/2067935.jpg deleted file mode 100644 index c4edb1da..00000000 Binary files a/pics/2067935.jpg and /dev/null differ diff --git a/pics/20686759.jpg b/pics/20686759.jpg deleted file mode 100644 index 70ab3e66..00000000 Binary files a/pics/20686759.jpg and /dev/null differ diff --git a/pics/20700531.jpg b/pics/20700531.jpg deleted file mode 100644 index 422509d2..00000000 Binary files a/pics/20700531.jpg and /dev/null differ diff --git a/pics/20721759.jpg b/pics/20721759.jpg deleted file mode 100644 index 52537a60..00000000 Binary files a/pics/20721759.jpg and /dev/null differ diff --git a/pics/20721928.jpg b/pics/20721928.jpg deleted file mode 100644 index c3cde4f6..00000000 Binary files a/pics/20721928.jpg and /dev/null differ diff --git a/pics/20721929.jpg b/pics/20721929.jpg deleted file mode 100644 index 069e74eb..00000000 Binary files a/pics/20721929.jpg and /dev/null differ diff --git a/pics/20727787.jpg b/pics/20727787.jpg deleted file mode 100644 index b0cd65dc..00000000 Binary files a/pics/20727787.jpg and /dev/null differ diff --git a/pics/20758643.jpg b/pics/20758643.jpg deleted file mode 100644 index 8323f4e7..00000000 Binary files a/pics/20758643.jpg and /dev/null differ diff --git a/pics/20765952.jpg b/pics/20765952.jpg deleted file mode 100644 index d01b25a5..00000000 Binary files a/pics/20765952.jpg and /dev/null differ diff --git a/pics/20773176.jpg b/pics/20773176.jpg deleted file mode 100644 index fe7bed2e..00000000 Binary files a/pics/20773176.jpg and /dev/null differ diff --git a/pics/20781762.jpg b/pics/20781762.jpg deleted file mode 100644 index f7ccf8a3..00000000 Binary files a/pics/20781762.jpg and /dev/null differ diff --git a/pics/20785975.jpg b/pics/20785975.jpg deleted file mode 100644 index 98b7a71a..00000000 Binary files a/pics/20785975.jpg and /dev/null differ diff --git a/pics/20797524.jpg b/pics/20797524.jpg deleted file mode 100644 index 59db969f..00000000 Binary files a/pics/20797524.jpg and /dev/null differ diff --git a/pics/20802187.jpg b/pics/20802187.jpg deleted file mode 100644 index 2cfd64dc..00000000 Binary files a/pics/20802187.jpg and /dev/null differ diff --git a/pics/20822520.jpg b/pics/20822520.jpg deleted file mode 100644 index c75a033a..00000000 Binary files a/pics/20822520.jpg and /dev/null differ diff --git a/pics/20831168.jpg b/pics/20831168.jpg deleted file mode 100644 index 53a288c4..00000000 Binary files a/pics/20831168.jpg and /dev/null differ diff --git a/pics/20838380.jpg b/pics/20838380.jpg deleted file mode 100644 index c99eb263..00000000 Binary files a/pics/20838380.jpg and /dev/null differ diff --git a/pics/2084239.jpg b/pics/2084239.jpg deleted file mode 100644 index 9a337619..00000000 Binary files a/pics/2084239.jpg and /dev/null differ diff --git a/pics/20848593.jpg b/pics/20848593.jpg deleted file mode 100644 index 1547bd79..00000000 Binary files a/pics/20848593.jpg and /dev/null differ diff --git a/pics/20849090.jpg b/pics/20849090.jpg deleted file mode 100755 index bd4cf9e8..00000000 Binary files a/pics/20849090.jpg and /dev/null differ diff --git a/pics/20855340.jpg b/pics/20855340.jpg deleted file mode 100644 index e9b84e44..00000000 Binary files a/pics/20855340.jpg and /dev/null differ diff --git a/pics/20858318.jpg b/pics/20858318.jpg deleted file mode 100644 index e731fa6d..00000000 Binary files a/pics/20858318.jpg and /dev/null differ diff --git a/pics/20871001.jpg b/pics/20871001.jpg deleted file mode 100644 index 3da07a0f..00000000 Binary files a/pics/20871001.jpg and /dev/null differ diff --git a/pics/2088870.jpg b/pics/2088870.jpg deleted file mode 100644 index 9cc5ab6c..00000000 Binary files a/pics/2088870.jpg and /dev/null differ diff --git a/pics/2091298.jpg b/pics/2091298.jpg deleted file mode 100644 index d553eda9..00000000 Binary files a/pics/2091298.jpg and /dev/null differ diff --git a/pics/20932152.jpg b/pics/20932152.jpg deleted file mode 100644 index 9e2533e3..00000000 Binary files a/pics/20932152.jpg and /dev/null differ diff --git a/pics/20939559.jpg b/pics/20939559.jpg deleted file mode 100644 index bcec8b0f..00000000 Binary files a/pics/20939559.jpg and /dev/null differ diff --git a/pics/20951752.jpg b/pics/20951752.jpg deleted file mode 100644 index 11289b35..00000000 Binary files a/pics/20951752.jpg and /dev/null differ diff --git a/pics/2095764.jpg b/pics/2095764.jpg deleted file mode 100644 index 9d7c8475..00000000 Binary files a/pics/2095764.jpg and /dev/null differ diff --git a/pics/20985997.jpg b/pics/20985997.jpg deleted file mode 100644 index 921b1b9f..00000000 Binary files a/pics/20985997.jpg and /dev/null differ diff --git a/pics/2099841.jpg b/pics/2099841.jpg deleted file mode 100755 index d222e455..00000000 Binary files a/pics/2099841.jpg and /dev/null differ diff --git a/pics/21007444.jpg b/pics/21007444.jpg deleted file mode 100644 index 5112bc7d..00000000 Binary files a/pics/21007444.jpg and /dev/null differ diff --git a/pics/21015833.jpg b/pics/21015833.jpg deleted file mode 100644 index a078edf7..00000000 Binary files a/pics/21015833.jpg and /dev/null differ diff --git a/pics/21044178.jpg b/pics/21044178.jpg deleted file mode 100644 index 89260bd4..00000000 Binary files a/pics/21044178.jpg and /dev/null differ diff --git a/pics/21051146.jpg b/pics/21051146.jpg deleted file mode 100644 index 22911cae..00000000 Binary files a/pics/21051146.jpg and /dev/null differ diff --git a/pics/21051977.jpg b/pics/21051977.jpg deleted file mode 100644 index 10a15b64..00000000 Binary files a/pics/21051977.jpg and /dev/null differ diff --git a/pics/21070956.jpg b/pics/21070956.jpg deleted file mode 100644 index b8f3b06d..00000000 Binary files a/pics/21070956.jpg and /dev/null differ diff --git a/pics/21074344.jpg b/pics/21074344.jpg deleted file mode 100644 index f02a8c1a..00000000 Binary files a/pics/21074344.jpg and /dev/null differ diff --git a/pics/21088856.jpg b/pics/21088856.jpg deleted file mode 100644 index 1e5acc69..00000000 Binary files a/pics/21088856.jpg and /dev/null differ diff --git a/pics/21105106.jpg b/pics/21105106.jpg deleted file mode 100644 index 8a585e85..00000000 Binary files a/pics/21105106.jpg and /dev/null differ diff --git a/pics/21113684.jpg b/pics/21113684.jpg deleted file mode 100644 index 09daff6b..00000000 Binary files a/pics/21113684.jpg and /dev/null differ diff --git a/pics/2111707.jpg b/pics/2111707.jpg deleted file mode 100644 index ca9ab0f8..00000000 Binary files a/pics/2111707.jpg and /dev/null differ diff --git a/pics/21143940.jpg b/pics/21143940.jpg deleted file mode 100644 index e3712efb..00000000 Binary files a/pics/21143940.jpg and /dev/null differ diff --git a/pics/21155323.jpg b/pics/21155323.jpg deleted file mode 100644 index 6560a393..00000000 Binary files a/pics/21155323.jpg and /dev/null differ diff --git a/pics/21159309.jpg b/pics/21159309.jpg deleted file mode 100644 index 4f0fe41b..00000000 Binary files a/pics/21159309.jpg and /dev/null differ diff --git a/pics/21175632.jpg b/pics/21175632.jpg deleted file mode 100644 index b470d2d8..00000000 Binary files a/pics/21175632.jpg and /dev/null differ diff --git a/pics/21179143.jpg b/pics/21179143.jpg deleted file mode 100644 index 56e41710..00000000 Binary files a/pics/21179143.jpg and /dev/null differ diff --git a/pics/21179144.jpg b/pics/21179144.jpg deleted file mode 100644 index 31203c87..00000000 Binary files a/pics/21179144.jpg and /dev/null differ diff --git a/pics/2118022.jpg b/pics/2118022.jpg deleted file mode 100644 index 3a5d4161..00000000 Binary files a/pics/2118022.jpg and /dev/null differ diff --git a/pics/21208154.jpg b/pics/21208154.jpg deleted file mode 100644 index 1324cc72..00000000 Binary files a/pics/21208154.jpg and /dev/null differ diff --git a/pics/21219755.jpg b/pics/21219755.jpg deleted file mode 100644 index 87934fdc..00000000 Binary files a/pics/21219755.jpg and /dev/null differ diff --git a/pics/21223277.jpg b/pics/21223277.jpg deleted file mode 100644 index 1b458681..00000000 Binary files a/pics/21223277.jpg and /dev/null differ diff --git a/pics/2122975.jpg b/pics/2122975.jpg deleted file mode 100644 index 3b17e19a..00000000 Binary files a/pics/2122975.jpg and /dev/null differ diff --git a/pics/21237481.jpg b/pics/21237481.jpg deleted file mode 100644 index 4e7f6bef..00000000 Binary files a/pics/21237481.jpg and /dev/null differ diff --git a/pics/21239280.jpg b/pics/21239280.jpg deleted file mode 100644 index 89234e35..00000000 Binary files a/pics/21239280.jpg and /dev/null differ diff --git a/pics/21249921.jpg b/pics/21249921.jpg deleted file mode 100644 index 3db378b9..00000000 Binary files a/pics/21249921.jpg and /dev/null differ diff --git a/pics/21263083.jpg b/pics/21263083.jpg deleted file mode 100644 index 98a67154..00000000 Binary files a/pics/21263083.jpg and /dev/null differ diff --git a/pics/2129638.jpg b/pics/2129638.jpg deleted file mode 100755 index 54db4162..00000000 Binary files a/pics/2129638.jpg and /dev/null differ diff --git a/pics/21296383.jpg b/pics/21296383.jpg deleted file mode 100644 index 810c90bd..00000000 Binary files a/pics/21296383.jpg and /dev/null differ diff --git a/pics/21297224.jpg b/pics/21297224.jpg deleted file mode 100644 index e2a16394..00000000 Binary files a/pics/21297224.jpg and /dev/null differ diff --git a/pics/2130625.jpg b/pics/2130625.jpg deleted file mode 100644 index 3effe031..00000000 Binary files a/pics/2130625.jpg and /dev/null differ diff --git a/pics/21313376.jpg b/pics/21313376.jpg deleted file mode 100644 index 69058703..00000000 Binary files a/pics/21313376.jpg and /dev/null differ diff --git a/pics/21323861.jpg b/pics/21323861.jpg deleted file mode 100644 index 25121274..00000000 Binary files a/pics/21323861.jpg and /dev/null differ diff --git a/pics/213326.jpg b/pics/213326.jpg deleted file mode 100644 index 709d4f62..00000000 Binary files a/pics/213326.jpg and /dev/null differ diff --git a/pics/21340051.jpg b/pics/21340051.jpg deleted file mode 100644 index 3d31fd11..00000000 Binary files a/pics/21340051.jpg and /dev/null differ diff --git a/pics/2134346.jpg b/pics/2134346.jpg deleted file mode 100644 index 8ffd404c..00000000 Binary files a/pics/2134346.jpg and /dev/null differ diff --git a/pics/21347810.jpg b/pics/21347810.jpg deleted file mode 100644 index 01bd95a0..00000000 Binary files a/pics/21347810.jpg and /dev/null differ diff --git a/pics/21350571.jpg b/pics/21350571.jpg deleted file mode 100644 index 0684ed60..00000000 Binary files a/pics/21350571.jpg and /dev/null differ diff --git a/pics/21362970.jpg b/pics/21362970.jpg deleted file mode 100644 index 0cbd64d3..00000000 Binary files a/pics/21362970.jpg and /dev/null differ diff --git a/pics/2137678.jpg b/pics/2137678.jpg deleted file mode 100644 index 06b5f4e9..00000000 Binary files a/pics/2137678.jpg and /dev/null differ diff --git a/pics/21390858.jpg b/pics/21390858.jpg deleted file mode 100644 index 38ede13a..00000000 Binary files a/pics/21390858.jpg and /dev/null differ diff --git a/pics/21414674.jpg b/pics/21414674.jpg deleted file mode 100644 index 6bde3768..00000000 Binary files a/pics/21414674.jpg and /dev/null differ diff --git a/pics/21417692.jpg b/pics/21417692.jpg deleted file mode 100644 index 19cf1425..00000000 Binary files a/pics/21417692.jpg and /dev/null differ diff --git a/pics/21420702.jpg b/pics/21420702.jpg deleted file mode 100644 index 32eb2c9a..00000000 Binary files a/pics/21420702.jpg and /dev/null differ diff --git a/pics/21435914.jpg b/pics/21435914.jpg deleted file mode 100644 index 8de8a93d..00000000 Binary files a/pics/21435914.jpg and /dev/null differ diff --git a/pics/21452275.jpg b/pics/21452275.jpg deleted file mode 100755 index 68dfa009..00000000 Binary files a/pics/21452275.jpg and /dev/null differ diff --git a/pics/21454943.jpg b/pics/21454943.jpg deleted file mode 100644 index a15d43c2..00000000 Binary files a/pics/21454943.jpg and /dev/null differ diff --git a/pics/21466326.jpg b/pics/21466326.jpg deleted file mode 100644 index 22b6822a..00000000 Binary files a/pics/21466326.jpg and /dev/null differ diff --git a/pics/21481146.jpg b/pics/21481146.jpg deleted file mode 100644 index 456a82c9..00000000 Binary files a/pics/21481146.jpg and /dev/null differ diff --git a/pics/21488686.jpg b/pics/21488686.jpg deleted file mode 100644 index 2912570e..00000000 Binary files a/pics/21488686.jpg and /dev/null differ diff --git a/pics/2148918.jpg b/pics/2148918.jpg deleted file mode 100644 index 9f4a594f..00000000 Binary files a/pics/2148918.jpg and /dev/null differ diff --git a/pics/21495657.jpg b/pics/21495657.jpg deleted file mode 100644 index 000dde11..00000000 Binary files a/pics/21495657.jpg and /dev/null differ diff --git a/pics/21496848.jpg b/pics/21496848.jpg deleted file mode 100644 index 2eb19ed1..00000000 Binary files a/pics/21496848.jpg and /dev/null differ diff --git a/pics/21501505.jpg b/pics/21501505.jpg deleted file mode 100644 index bcb55147..00000000 Binary files a/pics/21501505.jpg and /dev/null differ diff --git a/pics/21502796.jpg b/pics/21502796.jpg deleted file mode 100644 index 99bceafb..00000000 Binary files a/pics/21502796.jpg and /dev/null differ diff --git a/pics/21507589.jpg b/pics/21507589.jpg deleted file mode 100644 index dd9d372a..00000000 Binary files a/pics/21507589.jpg and /dev/null differ diff --git a/pics/21516908.jpg b/pics/21516908.jpg deleted file mode 100755 index 457de8d3..00000000 Binary files a/pics/21516908.jpg and /dev/null differ diff --git a/pics/21521304.jpg b/pics/21521304.jpg deleted file mode 100644 index f60dc871..00000000 Binary files a/pics/21521304.jpg and /dev/null differ diff --git a/pics/21524779.jpg b/pics/21524779.jpg deleted file mode 100644 index eb8ee951..00000000 Binary files a/pics/21524779.jpg and /dev/null differ diff --git a/pics/21558682.jpg b/pics/21558682.jpg deleted file mode 100644 index b8599823..00000000 Binary files a/pics/21558682.jpg and /dev/null differ diff --git a/pics/21565445.jpg b/pics/21565445.jpg deleted file mode 100644 index 2d0c2932..00000000 Binary files a/pics/21565445.jpg and /dev/null differ diff --git a/pics/2158562.jpg b/pics/2158562.jpg deleted file mode 100644 index 7753c56a..00000000 Binary files a/pics/2158562.jpg and /dev/null differ diff --git a/pics/21593977.jpg b/pics/21593977.jpg deleted file mode 100644 index 0bd49b65..00000000 Binary files a/pics/21593977.jpg and /dev/null differ diff --git a/pics/21597117.jpg b/pics/21597117.jpg deleted file mode 100644 index dc6c899b..00000000 Binary files a/pics/21597117.jpg and /dev/null differ diff --git a/pics/21598948.jpg b/pics/21598948.jpg deleted file mode 100644 index 50c96575..00000000 Binary files a/pics/21598948.jpg and /dev/null differ diff --git a/pics/21615956.jpg b/pics/21615956.jpg deleted file mode 100644 index 18f726ec..00000000 Binary files a/pics/21615956.jpg and /dev/null differ diff --git a/pics/21620076.jpg b/pics/21620076.jpg deleted file mode 100644 index eb8f6173..00000000 Binary files a/pics/21620076.jpg and /dev/null differ diff --git a/pics/21636650.jpg b/pics/21636650.jpg deleted file mode 100644 index 4dfd429b..00000000 Binary files a/pics/21636650.jpg and /dev/null differ diff --git a/pics/21648584.jpg b/pics/21648584.jpg deleted file mode 100644 index 4e8244ae..00000000 Binary files a/pics/21648584.jpg and /dev/null differ diff --git a/pics/21672573.jpg b/pics/21672573.jpg deleted file mode 100644 index 92abf4ed..00000000 Binary files a/pics/21672573.jpg and /dev/null differ diff --git a/pics/21698716.jpg b/pics/21698716.jpg deleted file mode 100644 index ec7b7d33..00000000 Binary files a/pics/21698716.jpg and /dev/null differ diff --git a/pics/21702241.jpg b/pics/21702241.jpg deleted file mode 100644 index 64ce7e58..00000000 Binary files a/pics/21702241.jpg and /dev/null differ diff --git a/pics/21715135.jpg b/pics/21715135.jpg deleted file mode 100644 index 7b7cdb85..00000000 Binary files a/pics/21715135.jpg and /dev/null differ diff --git a/pics/21767650.jpg b/pics/21767650.jpg deleted file mode 100644 index 44d1e56a..00000000 Binary files a/pics/21767650.jpg and /dev/null differ diff --git a/pics/21768554.jpg b/pics/21768554.jpg deleted file mode 100644 index 421fed47..00000000 Binary files a/pics/21768554.jpg and /dev/null differ diff --git a/pics/21770260.jpg b/pics/21770260.jpg deleted file mode 100644 index b12b8057..00000000 Binary files a/pics/21770260.jpg and /dev/null differ diff --git a/pics/21770261.jpg b/pics/21770261.jpg deleted file mode 100644 index 41af5b6e..00000000 Binary files a/pics/21770261.jpg and /dev/null differ diff --git a/pics/21785144.jpg b/pics/21785144.jpg deleted file mode 100644 index 0836c2e7..00000000 Binary files a/pics/21785144.jpg and /dev/null differ diff --git a/pics/21790410.jpg b/pics/21790410.jpg deleted file mode 100644 index 8d0673c5..00000000 Binary files a/pics/21790410.jpg and /dev/null differ diff --git a/pics/21817254.jpg b/pics/21817254.jpg deleted file mode 100644 index fc3c73c3..00000000 Binary files a/pics/21817254.jpg and /dev/null differ diff --git a/pics/21831848.jpg b/pics/21831848.jpg deleted file mode 100644 index 3f771257..00000000 Binary files a/pics/21831848.jpg and /dev/null differ diff --git a/pics/21840375.jpg b/pics/21840375.jpg deleted file mode 100644 index 967fa704..00000000 Binary files a/pics/21840375.jpg and /dev/null differ diff --git a/pics/21843307.jpg b/pics/21843307.jpg deleted file mode 100644 index fc1c355d..00000000 Binary files a/pics/21843307.jpg and /dev/null differ diff --git a/pics/21844576.jpg b/pics/21844576.jpg deleted file mode 100644 index d9fe4ee8..00000000 Binary files a/pics/21844576.jpg and /dev/null differ diff --git a/pics/21844577.jpg b/pics/21844577.jpg deleted file mode 100644 index b606a19a..00000000 Binary files a/pics/21844577.jpg and /dev/null differ diff --git a/pics/218704.jpg b/pics/218704.jpg deleted file mode 100644 index 833787a9..00000000 Binary files a/pics/218704.jpg and /dev/null differ diff --git a/pics/21879581.jpg b/pics/21879581.jpg deleted file mode 100644 index 21a43202..00000000 Binary files a/pics/21879581.jpg and /dev/null differ diff --git a/pics/21887179.jpg b/pics/21887179.jpg deleted file mode 100644 index 3edf9d0f..00000000 Binary files a/pics/21887179.jpg and /dev/null differ diff --git a/pics/21888494.jpg b/pics/21888494.jpg deleted file mode 100644 index c66211b1..00000000 Binary files a/pics/21888494.jpg and /dev/null differ diff --git a/pics/21900719.jpg b/pics/21900719.jpg deleted file mode 100644 index a0cf7c88..00000000 Binary files a/pics/21900719.jpg and /dev/null differ diff --git a/pics/21908319.jpg b/pics/21908319.jpg deleted file mode 100644 index a1bc3c54..00000000 Binary files a/pics/21908319.jpg and /dev/null differ diff --git a/pics/2191144.jpg b/pics/2191144.jpg deleted file mode 100644 index 9c743b75..00000000 Binary files a/pics/2191144.jpg and /dev/null differ diff --git a/pics/21924381.jpg b/pics/21924381.jpg deleted file mode 100644 index bed5f743..00000000 Binary files a/pics/21924381.jpg and /dev/null differ diff --git a/pics/21947653.jpg b/pics/21947653.jpg deleted file mode 100644 index 5b321ff7..00000000 Binary files a/pics/21947653.jpg and /dev/null differ diff --git a/pics/21954587.jpg b/pics/21954587.jpg deleted file mode 100644 index 3febb350..00000000 Binary files a/pics/21954587.jpg and /dev/null differ diff --git a/pics/2196767.jpg b/pics/2196767.jpg deleted file mode 100644 index ae9a407c..00000000 Binary files a/pics/2196767.jpg and /dev/null differ diff --git a/pics/21970285.jpg b/pics/21970285.jpg deleted file mode 100644 index 6d92241f..00000000 Binary files a/pics/21970285.jpg and /dev/null differ diff --git a/pics/21977828.jpg b/pics/21977828.jpg deleted file mode 100644 index 79c60563..00000000 Binary files a/pics/21977828.jpg and /dev/null differ diff --git a/pics/22009013.jpg b/pics/22009013.jpg deleted file mode 100644 index a9d11ced..00000000 Binary files a/pics/22009013.jpg and /dev/null differ diff --git a/pics/22020907.jpg b/pics/22020907.jpg deleted file mode 100644 index 40c25aba..00000000 Binary files a/pics/22020907.jpg and /dev/null differ diff --git a/pics/22026707.jpg b/pics/22026707.jpg deleted file mode 100644 index 5c617476..00000000 Binary files a/pics/22026707.jpg and /dev/null differ diff --git a/pics/2203790.jpg b/pics/2203790.jpg deleted file mode 100644 index 287939a4..00000000 Binary files a/pics/2203790.jpg and /dev/null differ diff --git a/pics/2204140.jpg b/pics/2204140.jpg deleted file mode 100644 index b5afc6bc..00000000 Binary files a/pics/2204140.jpg and /dev/null differ diff --git a/pics/22046459.jpg b/pics/22046459.jpg deleted file mode 100644 index 6ea48962..00000000 Binary files a/pics/22046459.jpg and /dev/null differ diff --git a/pics/22047978.jpg b/pics/22047978.jpg deleted file mode 100644 index 546479df..00000000 Binary files a/pics/22047978.jpg and /dev/null differ diff --git a/pics/22056710.jpg b/pics/22056710.jpg deleted file mode 100644 index 3607b5bd..00000000 Binary files a/pics/22056710.jpg and /dev/null differ diff --git a/pics/22061412.jpg b/pics/22061412.jpg deleted file mode 100644 index f7b79593..00000000 Binary files a/pics/22061412.jpg and /dev/null differ diff --git a/pics/22076135.jpg b/pics/22076135.jpg deleted file mode 100644 index 6359a08a..00000000 Binary files a/pics/22076135.jpg and /dev/null differ diff --git a/pics/22082163.jpg b/pics/22082163.jpg deleted file mode 100644 index 525ad00d..00000000 Binary files a/pics/22082163.jpg and /dev/null differ diff --git a/pics/22091345.jpg b/pics/22091345.jpg deleted file mode 100644 index bb10dc3a..00000000 Binary files a/pics/22091345.jpg and /dev/null differ diff --git a/pics/22093873.jpg b/pics/22093873.jpg deleted file mode 100644 index 5ab12b89..00000000 Binary files a/pics/22093873.jpg and /dev/null differ diff --git a/pics/22110647.jpg b/pics/22110647.jpg deleted file mode 100644 index 13b625f1..00000000 Binary files a/pics/22110647.jpg and /dev/null differ diff --git a/pics/22110648.jpg b/pics/22110648.jpg deleted file mode 100644 index 7d3d370e..00000000 Binary files a/pics/22110648.jpg and /dev/null differ diff --git a/pics/22123627.jpg b/pics/22123627.jpg deleted file mode 100644 index e56c13d5..00000000 Binary files a/pics/22123627.jpg and /dev/null differ diff --git a/pics/22134079.jpg b/pics/22134079.jpg deleted file mode 100644 index a6cac6d5..00000000 Binary files a/pics/22134079.jpg and /dev/null differ diff --git a/pics/22147147.jpg b/pics/22147147.jpg deleted file mode 100644 index 8993afd8..00000000 Binary files a/pics/22147147.jpg and /dev/null differ diff --git a/pics/22160245.jpg b/pics/22160245.jpg deleted file mode 100644 index 92f6bc79..00000000 Binary files a/pics/22160245.jpg and /dev/null differ diff --git a/pics/22171591.jpg b/pics/22171591.jpg deleted file mode 100644 index 17752d2f..00000000 Binary files a/pics/22171591.jpg and /dev/null differ diff --git a/pics/22174866.jpg b/pics/22174866.jpg deleted file mode 100755 index 7545851c..00000000 Binary files a/pics/22174866.jpg and /dev/null differ diff --git a/pics/22200403.jpg b/pics/22200403.jpg deleted file mode 100644 index fd30c9b6..00000000 Binary files a/pics/22200403.jpg and /dev/null differ diff --git a/pics/22201234.jpg b/pics/22201234.jpg deleted file mode 100644 index 2ba44eac..00000000 Binary files a/pics/22201234.jpg and /dev/null differ diff --git a/pics/22205600.jpg b/pics/22205600.jpg deleted file mode 100644 index 75457736..00000000 Binary files a/pics/22205600.jpg and /dev/null differ diff --git a/pics/22227683.jpg b/pics/22227683.jpg deleted file mode 100644 index 13bf6267..00000000 Binary files a/pics/22227683.jpg and /dev/null differ diff --git a/pics/22318971.jpg b/pics/22318971.jpg deleted file mode 100644 index 50577728..00000000 Binary files a/pics/22318971.jpg and /dev/null differ diff --git a/pics/22339232.jpg b/pics/22339232.jpg deleted file mode 100644 index f1a9fbcd..00000000 Binary files a/pics/22339232.jpg and /dev/null differ diff --git a/pics/22346472.jpg b/pics/22346472.jpg deleted file mode 100644 index 7902baeb..00000000 Binary files a/pics/22346472.jpg and /dev/null differ diff --git a/pics/22359980.jpg b/pics/22359980.jpg deleted file mode 100644 index 6e31344c..00000000 Binary files a/pics/22359980.jpg and /dev/null differ diff --git a/pics/22371016.jpg b/pics/22371016.jpg deleted file mode 100644 index 32afaf7a..00000000 Binary files a/pics/22371016.jpg and /dev/null differ diff --git a/pics/22377815.jpg b/pics/22377815.jpg deleted file mode 100644 index 55125220..00000000 Binary files a/pics/22377815.jpg and /dev/null differ diff --git a/pics/22382087.jpg b/pics/22382087.jpg deleted file mode 100644 index c65f4042..00000000 Binary files a/pics/22382087.jpg and /dev/null differ diff --git a/pics/22386234.jpg b/pics/22386234.jpg deleted file mode 100644 index bec167ab..00000000 Binary files a/pics/22386234.jpg and /dev/null differ diff --git a/pics/22404675.jpg b/pics/22404675.jpg deleted file mode 100644 index f92291f2..00000000 Binary files a/pics/22404675.jpg and /dev/null differ diff --git a/pics/22404676.jpg b/pics/22404676.jpg deleted file mode 100755 index 86d0e77c..00000000 Binary files a/pics/22404676.jpg and /dev/null differ diff --git a/pics/22419772.jpg b/pics/22419772.jpg deleted file mode 100644 index 3d0033ea..00000000 Binary files a/pics/22419772.jpg and /dev/null differ diff --git a/pics/22431243.jpg b/pics/22431243.jpg deleted file mode 100644 index 02345b78..00000000 Binary files a/pics/22431243.jpg and /dev/null differ diff --git a/pics/22446869.jpg b/pics/22446869.jpg deleted file mode 100644 index 95e735f7..00000000 Binary files a/pics/22446869.jpg and /dev/null differ diff --git a/pics/22479888.jpg b/pics/22479888.jpg deleted file mode 100644 index 499cbf45..00000000 Binary files a/pics/22479888.jpg and /dev/null differ diff --git a/pics/22493811.jpg b/pics/22493811.jpg deleted file mode 100644 index 7d6ea831..00000000 Binary files a/pics/22493811.jpg and /dev/null differ diff --git a/pics/22493812.jpg b/pics/22493812.jpg deleted file mode 100644 index 2b714bfa..00000000 Binary files a/pics/22493812.jpg and /dev/null differ diff --git a/pics/22499463.jpg b/pics/22499463.jpg deleted file mode 100644 index b2a51b59..00000000 Binary files a/pics/22499463.jpg and /dev/null differ diff --git a/pics/2250266.jpg b/pics/2250266.jpg deleted file mode 100644 index 434e9e5d..00000000 Binary files a/pics/2250266.jpg and /dev/null differ diff --git a/pics/22512237.jpg b/pics/22512237.jpg deleted file mode 100644 index 75182c02..00000000 Binary files a/pics/22512237.jpg and /dev/null differ diff --git a/pics/22512406.jpg b/pics/22512406.jpg deleted file mode 100644 index c948982d..00000000 Binary files a/pics/22512406.jpg and /dev/null differ diff --git a/pics/22530212.jpg b/pics/22530212.jpg deleted file mode 100644 index c06e8829..00000000 Binary files a/pics/22530212.jpg and /dev/null differ diff --git a/pics/22537443.jpg b/pics/22537443.jpg deleted file mode 100644 index e8e05615..00000000 Binary files a/pics/22537443.jpg and /dev/null differ diff --git a/pics/22539270.jpg b/pics/22539270.jpg deleted file mode 100644 index 024ab89a..00000000 Binary files a/pics/22539270.jpg and /dev/null differ diff --git a/pics/22567609.jpg b/pics/22567609.jpg deleted file mode 100644 index 074c50c3..00000000 Binary files a/pics/22567609.jpg and /dev/null differ diff --git a/pics/22587018.jpg b/pics/22587018.jpg deleted file mode 100644 index 9af6d62e..00000000 Binary files a/pics/22587018.jpg and /dev/null differ diff --git a/pics/22589918.jpg b/pics/22589918.jpg deleted file mode 100644 index 6736cdb7..00000000 Binary files a/pics/22589918.jpg and /dev/null differ diff --git a/pics/22609617.jpg b/pics/22609617.jpg deleted file mode 100644 index 91cd5632..00000000 Binary files a/pics/22609617.jpg and /dev/null differ diff --git a/pics/22610082.jpg b/pics/22610082.jpg deleted file mode 100644 index b17b13d8..00000000 Binary files a/pics/22610082.jpg and /dev/null differ diff --git a/pics/22617205.jpg b/pics/22617205.jpg deleted file mode 100644 index ff8fb166..00000000 Binary files a/pics/22617205.jpg and /dev/null differ diff --git a/pics/22624373.jpg b/pics/22624373.jpg deleted file mode 100644 index 1927fedc..00000000 Binary files a/pics/22624373.jpg and /dev/null differ diff --git a/pics/22628574.jpg b/pics/22628574.jpg deleted file mode 100644 index 255d6ae2..00000000 Binary files a/pics/22628574.jpg and /dev/null differ diff --git a/pics/22638495.jpg b/pics/22638495.jpg deleted file mode 100755 index 2ee5994e..00000000 Binary files a/pics/22638495.jpg and /dev/null differ diff --git a/pics/22653490.jpg b/pics/22653490.jpg deleted file mode 100644 index 66194813..00000000 Binary files a/pics/22653490.jpg and /dev/null differ diff --git a/pics/22657402.jpg b/pics/22657402.jpg deleted file mode 100644 index 850f67b5..00000000 Binary files a/pics/22657402.jpg and /dev/null differ diff --git a/pics/22666164.jpg b/pics/22666164.jpg deleted file mode 100644 index 1e34b922..00000000 Binary files a/pics/22666164.jpg and /dev/null differ diff --git a/pics/22702055.jpg b/pics/22702055.jpg deleted file mode 100644 index 05c3116d..00000000 Binary files a/pics/22702055.jpg and /dev/null differ diff --git a/pics/2273734.jpg b/pics/2273734.jpg deleted file mode 100644 index 462493d6..00000000 Binary files a/pics/2273734.jpg and /dev/null differ diff --git a/pics/22747316.jpg b/pics/22747316.jpg deleted file mode 100644 index 73b4c677..00000000 Binary files a/pics/22747316.jpg and /dev/null differ diff --git a/pics/22751868.jpg b/pics/22751868.jpg deleted file mode 100644 index 0d08ea15..00000000 Binary files a/pics/22751868.jpg and /dev/null differ diff --git a/pics/22754505.jpg b/pics/22754505.jpg deleted file mode 100644 index 7e235bdc..00000000 Binary files a/pics/22754505.jpg and /dev/null differ diff --git a/pics/22765132.jpg b/pics/22765132.jpg deleted file mode 100644 index 88003cb6..00000000 Binary files a/pics/22765132.jpg and /dev/null differ diff --git a/pics/22790789.jpg b/pics/22790789.jpg deleted file mode 100644 index e1d8e2c6..00000000 Binary files a/pics/22790789.jpg and /dev/null differ diff --git a/pics/22796548.jpg b/pics/22796548.jpg deleted file mode 100644 index 232ef815..00000000 Binary files a/pics/22796548.jpg and /dev/null differ diff --git a/pics/22804644.jpg b/pics/22804644.jpg deleted file mode 100755 index 6a62a1b0..00000000 Binary files a/pics/22804644.jpg and /dev/null differ diff --git a/pics/22812068.jpg b/pics/22812068.jpg deleted file mode 100644 index 1840007c..00000000 Binary files a/pics/22812068.jpg and /dev/null differ diff --git a/pics/22835145.jpg b/pics/22835145.jpg deleted file mode 100644 index 8a2f3325..00000000 Binary files a/pics/22835145.jpg and /dev/null differ diff --git a/pics/22837504.jpg b/pics/22837504.jpg deleted file mode 100644 index 4a425c3e..00000000 Binary files a/pics/22837504.jpg and /dev/null differ diff --git a/pics/22842126.jpg b/pics/22842126.jpg deleted file mode 100755 index 0160fec9..00000000 Binary files a/pics/22842126.jpg and /dev/null differ diff --git a/pics/22842214.jpg b/pics/22842214.jpg deleted file mode 100644 index a0883d79..00000000 Binary files a/pics/22842214.jpg and /dev/null differ diff --git a/pics/22855882.jpg b/pics/22855882.jpg deleted file mode 100644 index 6508a16d..00000000 Binary files a/pics/22855882.jpg and /dev/null differ diff --git a/pics/22858242.jpg b/pics/22858242.jpg deleted file mode 100644 index cceb7462..00000000 Binary files a/pics/22858242.jpg and /dev/null differ diff --git a/pics/22869904.jpg b/pics/22869904.jpg deleted file mode 100644 index 15361828..00000000 Binary files a/pics/22869904.jpg and /dev/null differ diff --git a/pics/22873798.jpg b/pics/22873798.jpg deleted file mode 100644 index 94ba5393..00000000 Binary files a/pics/22873798.jpg and /dev/null differ diff --git a/pics/22888900.jpg b/pics/22888900.jpg deleted file mode 100644 index 71b907d7..00000000 Binary files a/pics/22888900.jpg and /dev/null differ diff --git a/pics/22900598.jpg b/pics/22900598.jpg deleted file mode 100644 index 4e62edb4..00000000 Binary files a/pics/22900598.jpg and /dev/null differ diff --git a/pics/22910685.jpg b/pics/22910685.jpg deleted file mode 100644 index c07b7dc9..00000000 Binary files a/pics/22910685.jpg and /dev/null differ diff --git a/pics/22923081.jpg b/pics/22923081.jpg deleted file mode 100644 index b26d94c2..00000000 Binary files a/pics/22923081.jpg and /dev/null differ diff --git a/pics/2295440.jpg b/pics/2295440.jpg deleted file mode 100644 index 336638cb..00000000 Binary files a/pics/2295440.jpg and /dev/null differ diff --git a/pics/2295831.jpg b/pics/2295831.jpg deleted file mode 100644 index 1bd3e964..00000000 Binary files a/pics/2295831.jpg and /dev/null differ diff --git a/pics/22959079.jpg b/pics/22959079.jpg deleted file mode 100644 index feba51fb..00000000 Binary files a/pics/22959079.jpg and /dev/null differ diff --git a/pics/22991179.jpg b/pics/22991179.jpg deleted file mode 100644 index 0877a3c8..00000000 Binary files a/pics/22991179.jpg and /dev/null differ diff --git a/pics/22993208.jpg b/pics/22993208.jpg deleted file mode 100644 index ddf19fb5..00000000 Binary files a/pics/22993208.jpg and /dev/null differ diff --git a/pics/22996376.jpg b/pics/22996376.jpg deleted file mode 100644 index 760224c3..00000000 Binary files a/pics/22996376.jpg and /dev/null differ diff --git a/pics/23008320.jpg b/pics/23008320.jpg deleted file mode 100644 index 1eb40d84..00000000 Binary files a/pics/23008320.jpg and /dev/null differ diff --git a/pics/23015896.jpg b/pics/23015896.jpg deleted file mode 100644 index 137a6617..00000000 Binary files a/pics/23015896.jpg and /dev/null differ diff --git a/pics/23032273.jpg b/pics/23032273.jpg deleted file mode 100644 index e735557d..00000000 Binary files a/pics/23032273.jpg and /dev/null differ diff --git a/pics/23051413.jpg b/pics/23051413.jpg deleted file mode 100644 index c188a044..00000000 Binary files a/pics/23051413.jpg and /dev/null differ diff --git a/pics/23064604.jpg b/pics/23064604.jpg deleted file mode 100755 index d32e2bcc..00000000 Binary files a/pics/23064604.jpg and /dev/null differ diff --git a/pics/23087070.jpg b/pics/23087070.jpg deleted file mode 100644 index 57801e5d..00000000 Binary files a/pics/23087070.jpg and /dev/null differ diff --git a/pics/23093604.jpg b/pics/23093604.jpg deleted file mode 100644 index 209b77bc..00000000 Binary files a/pics/23093604.jpg and /dev/null differ diff --git a/pics/23115241.jpg b/pics/23115241.jpg deleted file mode 100644 index 71d160a3..00000000 Binary files a/pics/23115241.jpg and /dev/null differ diff --git a/pics/2311603.jpg b/pics/2311603.jpg deleted file mode 100644 index 746cae8e..00000000 Binary files a/pics/2311603.jpg and /dev/null differ diff --git a/pics/23116808.jpg b/pics/23116808.jpg deleted file mode 100644 index 2c3381ed..00000000 Binary files a/pics/23116808.jpg and /dev/null differ diff --git a/pics/23116809.jpg b/pics/23116809.jpg deleted file mode 100644 index c30ec8a9..00000000 Binary files a/pics/23116809.jpg and /dev/null differ diff --git a/pics/23118924.jpg b/pics/23118924.jpg deleted file mode 100644 index 187b7975..00000000 Binary files a/pics/23118924.jpg and /dev/null differ diff --git a/pics/23122036.jpg b/pics/23122036.jpg deleted file mode 100644 index 25f43498..00000000 Binary files a/pics/23122036.jpg and /dev/null differ diff --git a/pics/2314238.jpg b/pics/2314238.jpg deleted file mode 100644 index 833b7a9f..00000000 Binary files a/pics/2314238.jpg and /dev/null differ diff --git a/pics/2316186.jpg b/pics/2316186.jpg deleted file mode 100644 index 772951bf..00000000 Binary files a/pics/2316186.jpg and /dev/null differ diff --git a/pics/23166823.jpg b/pics/23166823.jpg deleted file mode 100644 index 68f4304a..00000000 Binary files a/pics/23166823.jpg and /dev/null differ diff --git a/pics/23168060.jpg b/pics/23168060.jpg deleted file mode 100644 index 3ed6fd5f..00000000 Binary files a/pics/23168060.jpg and /dev/null differ diff --git a/pics/23171610.jpg b/pics/23171610.jpg deleted file mode 100644 index 9b9f7bcf..00000000 Binary files a/pics/23171610.jpg and /dev/null differ diff --git a/pics/23187256.jpg b/pics/23187256.jpg deleted file mode 100755 index e0c26146..00000000 Binary files a/pics/23187256.jpg and /dev/null differ diff --git a/pics/23204029.jpg b/pics/23204029.jpg deleted file mode 100644 index 866e0251..00000000 Binary files a/pics/23204029.jpg and /dev/null differ diff --git a/pics/23205979.jpg b/pics/23205979.jpg deleted file mode 100644 index 6ee6b627..00000000 Binary files a/pics/23205979.jpg and /dev/null differ diff --git a/pics/23212990.jpg b/pics/23212990.jpg deleted file mode 100644 index d1db4988..00000000 Binary files a/pics/23212990.jpg and /dev/null differ diff --git a/pics/2322421.jpg b/pics/2322421.jpg deleted file mode 100644 index e1d20086..00000000 Binary files a/pics/2322421.jpg and /dev/null differ diff --git a/pics/23232295.jpg b/pics/23232295.jpg deleted file mode 100644 index bedbef8d..00000000 Binary files a/pics/23232295.jpg and /dev/null differ diff --git a/pics/23234094.jpg b/pics/23234094.jpg deleted file mode 100644 index 8eff44a0..00000000 Binary files a/pics/23234094.jpg and /dev/null differ diff --git a/pics/23265313.jpg b/pics/23265313.jpg deleted file mode 100644 index 86af08c4..00000000 Binary files a/pics/23265313.jpg and /dev/null differ diff --git a/pics/23265594.jpg b/pics/23265594.jpg deleted file mode 100644 index e9d9ed16..00000000 Binary files a/pics/23265594.jpg and /dev/null differ diff --git a/pics/2326738.jpg b/pics/2326738.jpg deleted file mode 100644 index c14fbb2f..00000000 Binary files a/pics/2326738.jpg and /dev/null differ diff --git a/pics/23269426.jpg b/pics/23269426.jpg deleted file mode 100644 index 09e31d69..00000000 Binary files a/pics/23269426.jpg and /dev/null differ diff --git a/pics/23274061.jpg b/pics/23274061.jpg deleted file mode 100644 index 12dfa2fc..00000000 Binary files a/pics/23274061.jpg and /dev/null differ diff --git a/pics/23282832.jpg b/pics/23282832.jpg deleted file mode 100644 index 5d7ea5a9..00000000 Binary files a/pics/23282832.jpg and /dev/null differ diff --git a/pics/23289281.jpg b/pics/23289281.jpg deleted file mode 100644 index 182ed5d9..00000000 Binary files a/pics/23289281.jpg and /dev/null differ diff --git a/pics/23296404.jpg b/pics/23296404.jpg deleted file mode 100755 index 33c333cd..00000000 Binary files a/pics/23296404.jpg and /dev/null differ diff --git a/pics/23297235.jpg b/pics/23297235.jpg deleted file mode 100644 index e331bc7d..00000000 Binary files a/pics/23297235.jpg and /dev/null differ diff --git a/pics/23299957.jpg b/pics/23299957.jpg deleted file mode 100644 index 2bf5f9d6..00000000 Binary files a/pics/23299957.jpg and /dev/null differ diff --git a/pics/23303072.jpg b/pics/23303072.jpg deleted file mode 100644 index e43401d4..00000000 Binary files a/pics/23303072.jpg and /dev/null differ diff --git a/pics/23309606.jpg b/pics/23309606.jpg deleted file mode 100644 index 9748831b..00000000 Binary files a/pics/23309606.jpg and /dev/null differ diff --git a/pics/23323812.jpg b/pics/23323812.jpg deleted file mode 100644 index df931c1b..00000000 Binary files a/pics/23323812.jpg and /dev/null differ diff --git a/pics/23327298.jpg b/pics/23327298.jpg deleted file mode 100644 index b81745fb..00000000 Binary files a/pics/23327298.jpg and /dev/null differ diff --git a/pics/2333365.jpg b/pics/2333365.jpg deleted file mode 100644 index a1f0673f..00000000 Binary files a/pics/2333365.jpg and /dev/null differ diff --git a/pics/23379054.jpg b/pics/23379054.jpg deleted file mode 100644 index 9ec317a0..00000000 Binary files a/pics/23379054.jpg and /dev/null differ diff --git a/pics/23401839.jpg b/pics/23401839.jpg deleted file mode 100644 index 40678499..00000000 Binary files a/pics/23401839.jpg and /dev/null differ diff --git a/pics/23408872.jpg b/pics/23408872.jpg deleted file mode 100644 index 96302b1a..00000000 Binary files a/pics/23408872.jpg and /dev/null differ diff --git a/pics/23421244.jpg b/pics/23421244.jpg deleted file mode 100644 index b637b012..00000000 Binary files a/pics/23421244.jpg and /dev/null differ diff --git a/pics/23424603.jpg b/pics/23424603.jpg deleted file mode 100644 index d23c13a4..00000000 Binary files a/pics/23424603.jpg and /dev/null differ diff --git a/pics/23434538.jpg b/pics/23434538.jpg deleted file mode 100644 index bd752c97..00000000 Binary files a/pics/23434538.jpg and /dev/null differ diff --git a/pics/23440062.jpg b/pics/23440062.jpg deleted file mode 100644 index c7fa39b4..00000000 Binary files a/pics/23440062.jpg and /dev/null differ diff --git a/pics/23440231.jpg b/pics/23440231.jpg deleted file mode 100644 index 40a94cd3..00000000 Binary files a/pics/23440231.jpg and /dev/null differ diff --git a/pics/23454876.jpg b/pics/23454876.jpg deleted file mode 100644 index 56ad49c0..00000000 Binary files a/pics/23454876.jpg and /dev/null differ diff --git a/pics/23471572.jpg b/pics/23471572.jpg deleted file mode 100644 index 3efc1e67..00000000 Binary files a/pics/23471572.jpg and /dev/null differ diff --git a/pics/23516703.jpg b/pics/23516703.jpg deleted file mode 100644 index b6db6be6..00000000 Binary files a/pics/23516703.jpg and /dev/null differ diff --git a/pics/23535429.jpg b/pics/23535429.jpg deleted file mode 100644 index 1ff848c3..00000000 Binary files a/pics/23535429.jpg and /dev/null differ diff --git a/pics/23536866.jpg b/pics/23536866.jpg deleted file mode 100644 index a98c5c3f..00000000 Binary files a/pics/23536866.jpg and /dev/null differ diff --git a/pics/23557835.jpg b/pics/23557835.jpg deleted file mode 100644 index c7222c2c..00000000 Binary files a/pics/23557835.jpg and /dev/null differ diff --git a/pics/23558733.jpg b/pics/23558733.jpg deleted file mode 100644 index a3dfdfc3..00000000 Binary files a/pics/23558733.jpg and /dev/null differ diff --git a/pics/23562407.jpg b/pics/23562407.jpg deleted file mode 100644 index 7f79505c..00000000 Binary files a/pics/23562407.jpg and /dev/null differ diff --git a/pics/2356994.jpg b/pics/2356994.jpg deleted file mode 100644 index ec9ebec8..00000000 Binary files a/pics/2356994.jpg and /dev/null differ diff --git a/pics/23571046.jpg b/pics/23571046.jpg deleted file mode 100644 index 79cfe913..00000000 Binary files a/pics/23571046.jpg and /dev/null differ diff --git a/pics/23581825.jpg b/pics/23581825.jpg deleted file mode 100755 index 98d6a860..00000000 Binary files a/pics/23581825.jpg and /dev/null differ diff --git a/pics/23587624.jpg b/pics/23587624.jpg deleted file mode 100644 index 871110b9..00000000 Binary files a/pics/23587624.jpg and /dev/null differ diff --git a/pics/2359348.jpg b/pics/2359348.jpg deleted file mode 100644 index ad49340c..00000000 Binary files a/pics/2359348.jpg and /dev/null differ diff --git a/pics/23603403.jpg b/pics/23603403.jpg deleted file mode 100755 index ad0be196..00000000 Binary files a/pics/23603403.jpg and /dev/null differ diff --git a/pics/23615409.jpg b/pics/23615409.jpg deleted file mode 100644 index 28cb802b..00000000 Binary files a/pics/23615409.jpg and /dev/null differ diff --git a/pics/23626223.jpg b/pics/23626223.jpg deleted file mode 100644 index d5354415..00000000 Binary files a/pics/23626223.jpg and /dev/null differ diff --git a/pics/2362787.jpg b/pics/2362787.jpg deleted file mode 100644 index c9371b0e..00000000 Binary files a/pics/2362787.jpg and /dev/null differ diff --git a/pics/23635815.jpg b/pics/23635815.jpg deleted file mode 100644 index 1d8a3508..00000000 Binary files a/pics/23635815.jpg and /dev/null differ diff --git a/pics/23639291.jpg b/pics/23639291.jpg deleted file mode 100644 index 7e8e91dc..00000000 Binary files a/pics/23639291.jpg and /dev/null differ diff --git a/pics/23649496.jpg b/pics/23649496.jpg deleted file mode 100644 index 0809d669..00000000 Binary files a/pics/23649496.jpg and /dev/null differ diff --git a/pics/23659124.jpg b/pics/23659124.jpg deleted file mode 100644 index 8b261cc2..00000000 Binary files a/pics/23659124.jpg and /dev/null differ diff --git a/pics/23681456.jpg b/pics/23681456.jpg deleted file mode 100644 index a142d9dd..00000000 Binary files a/pics/23681456.jpg and /dev/null differ diff --git a/pics/23689697.jpg b/pics/23689697.jpg deleted file mode 100644 index 16fa1e27..00000000 Binary files a/pics/23689697.jpg and /dev/null differ diff --git a/pics/23693634.jpg b/pics/23693634.jpg deleted file mode 100644 index fb1ecda2..00000000 Binary files a/pics/23693634.jpg and /dev/null differ diff --git a/pics/2370081.jpg b/pics/2370081.jpg deleted file mode 100644 index 767cd798..00000000 Binary files a/pics/2370081.jpg and /dev/null differ diff --git a/pics/23701465.jpg b/pics/23701465.jpg deleted file mode 100644 index 9a013789..00000000 Binary files a/pics/23701465.jpg and /dev/null differ diff --git a/pics/2371506.jpg b/pics/2371506.jpg deleted file mode 100644 index b9c2e77c..00000000 Binary files a/pics/2371506.jpg and /dev/null differ diff --git a/pics/23740893.jpg b/pics/23740893.jpg deleted file mode 100644 index a47b2bf9..00000000 Binary files a/pics/23740893.jpg and /dev/null differ diff --git a/pics/23756165.jpg b/pics/23756165.jpg deleted file mode 100644 index daa4090f..00000000 Binary files a/pics/23756165.jpg and /dev/null differ diff --git a/pics/2376209.jpg b/pics/2376209.jpg deleted file mode 100755 index caa58800..00000000 Binary files a/pics/2376209.jpg and /dev/null differ diff --git a/pics/23770284.jpg b/pics/23770284.jpg deleted file mode 100644 index bee1d147..00000000 Binary files a/pics/23770284.jpg and /dev/null differ diff --git a/pics/2377034.jpg b/pics/2377034.jpg deleted file mode 100644 index 525cb1f1..00000000 Binary files a/pics/2377034.jpg and /dev/null differ diff --git a/pics/23771716.jpg b/pics/23771716.jpg deleted file mode 100644 index 7ac58925..00000000 Binary files a/pics/23771716.jpg and /dev/null differ diff --git a/pics/23776077.jpg b/pics/23776077.jpg deleted file mode 100644 index 8d6bfcf2..00000000 Binary files a/pics/23776077.jpg and /dev/null differ diff --git a/pics/23782705.jpg b/pics/23782705.jpg deleted file mode 100644 index b62e7e08..00000000 Binary files a/pics/23782705.jpg and /dev/null differ diff --git a/pics/23842445.jpg b/pics/23842445.jpg deleted file mode 100644 index 6c73a35d..00000000 Binary files a/pics/23842445.jpg and /dev/null differ diff --git a/pics/23846921.jpg b/pics/23846921.jpg deleted file mode 100644 index bd889f94..00000000 Binary files a/pics/23846921.jpg and /dev/null differ diff --git a/pics/23851033.jpg b/pics/23851033.jpg deleted file mode 100755 index 6e0ae8e8..00000000 Binary files a/pics/23851033.jpg and /dev/null differ diff --git a/pics/23857661.jpg b/pics/23857661.jpg deleted file mode 100644 index 008c1279..00000000 Binary files a/pics/23857661.jpg and /dev/null differ diff --git a/pics/23869735.jpg b/pics/23869735.jpg deleted file mode 100644 index 3f5f4d28..00000000 Binary files a/pics/23869735.jpg and /dev/null differ diff --git a/pics/23874409.jpg b/pics/23874409.jpg deleted file mode 100644 index 450ce1fd..00000000 Binary files a/pics/23874409.jpg and /dev/null differ diff --git a/pics/23893227.jpg b/pics/23893227.jpg deleted file mode 100644 index c041b677..00000000 Binary files a/pics/23893227.jpg and /dev/null differ diff --git a/pics/23899727.jpg b/pics/23899727.jpg deleted file mode 100644 index 3b8572e7..00000000 Binary files a/pics/23899727.jpg and /dev/null differ diff --git a/pics/23915499.jpg b/pics/23915499.jpg deleted file mode 100644 index d50d1cd3..00000000 Binary files a/pics/23915499.jpg and /dev/null differ diff --git a/pics/23927545.jpg b/pics/23927545.jpg deleted file mode 100644 index 0c23d806..00000000 Binary files a/pics/23927545.jpg and /dev/null differ diff --git a/pics/23927567.jpg b/pics/23927567.jpg deleted file mode 100644 index f01dbe66..00000000 Binary files a/pics/23927567.jpg and /dev/null differ diff --git a/pics/23950192.jpg b/pics/23950192.jpg deleted file mode 100644 index c4144afa..00000000 Binary files a/pics/23950192.jpg and /dev/null differ diff --git a/pics/23965037.jpg b/pics/23965037.jpg deleted file mode 100644 index 21071a2b..00000000 Binary files a/pics/23965037.jpg and /dev/null differ diff --git a/pics/23979249.jpg b/pics/23979249.jpg deleted file mode 100644 index 899047b1..00000000 Binary files a/pics/23979249.jpg and /dev/null differ diff --git a/pics/23995346.jpg b/pics/23995346.jpg deleted file mode 100644 index 83a5e005..00000000 Binary files a/pics/23995346.jpg and /dev/null differ diff --git a/pics/23995347.jpg b/pics/23995347.jpg deleted file mode 100644 index c7fb51d8..00000000 Binary files a/pics/23995347.jpg and /dev/null differ diff --git a/pics/23998625.jpg b/pics/23998625.jpg deleted file mode 100644 index ecb61bba..00000000 Binary files a/pics/23998625.jpg and /dev/null differ diff --git a/pics/24019092.jpg b/pics/24019092.jpg deleted file mode 100755 index 0cbafb0e..00000000 Binary files a/pics/24019092.jpg and /dev/null differ diff --git a/pics/24019261.jpg b/pics/24019261.jpg deleted file mode 100644 index 76563547..00000000 Binary files a/pics/24019261.jpg and /dev/null differ diff --git a/pics/24025620.jpg b/pics/24025620.jpg deleted file mode 100644 index dcaa2f36..00000000 Binary files a/pics/24025620.jpg and /dev/null differ diff --git a/pics/2403771.jpg b/pics/2403771.jpg deleted file mode 100644 index 015f0728..00000000 Binary files a/pics/2403771.jpg and /dev/null differ diff --git a/pics/24040093.jpg b/pics/24040093.jpg deleted file mode 100644 index 66c7b958..00000000 Binary files a/pics/24040093.jpg and /dev/null differ diff --git a/pics/24062258.jpg b/pics/24062258.jpg deleted file mode 100644 index cbc16708..00000000 Binary files a/pics/24062258.jpg and /dev/null differ diff --git a/pics/24068492.jpg b/pics/24068492.jpg deleted file mode 100644 index 80b437e2..00000000 Binary files a/pics/24068492.jpg and /dev/null differ diff --git a/pics/2407147.jpg b/pics/2407147.jpg deleted file mode 100644 index 03a02090..00000000 Binary files a/pics/2407147.jpg and /dev/null differ diff --git a/pics/2407234.jpg b/pics/2407234.jpg deleted file mode 100644 index 9f65b28d..00000000 Binary files a/pics/2407234.jpg and /dev/null differ diff --git a/pics/24082387.jpg b/pics/24082387.jpg deleted file mode 100644 index ce191d8c..00000000 Binary files a/pics/24082387.jpg and /dev/null differ diff --git a/pics/24094653.jpg b/pics/24094653.jpg deleted file mode 100644 index e68016f6..00000000 Binary files a/pics/24094653.jpg and /dev/null differ diff --git a/pics/24094654.jpg b/pics/24094654.jpg deleted file mode 100644 index 7ad053b6..00000000 Binary files a/pics/24094654.jpg and /dev/null differ diff --git a/pics/24096228.jpg b/pics/24096228.jpg deleted file mode 100644 index 5116a63b..00000000 Binary files a/pics/24096228.jpg and /dev/null differ diff --git a/pics/24096499.jpg b/pics/24096499.jpg deleted file mode 100644 index 95466a09..00000000 Binary files a/pics/24096499.jpg and /dev/null differ diff --git a/pics/24101897.jpg b/pics/24101897.jpg deleted file mode 100644 index b0224611..00000000 Binary files a/pics/24101897.jpg and /dev/null differ diff --git a/pics/24103628.jpg b/pics/24103628.jpg deleted file mode 100644 index 526357f0..00000000 Binary files a/pics/24103628.jpg and /dev/null differ diff --git a/pics/24104865.jpg b/pics/24104865.jpg deleted file mode 100644 index 5fa55859..00000000 Binary files a/pics/24104865.jpg and /dev/null differ diff --git a/pics/24128274.jpg b/pics/24128274.jpg deleted file mode 100644 index b05f87b2..00000000 Binary files a/pics/24128274.jpg and /dev/null differ diff --git a/pics/24131534.jpg b/pics/24131534.jpg deleted file mode 100755 index 90f68197..00000000 Binary files a/pics/24131534.jpg and /dev/null differ diff --git a/pics/24137081.jpg b/pics/24137081.jpg deleted file mode 100644 index 283390ea..00000000 Binary files a/pics/24137081.jpg and /dev/null differ diff --git a/pics/24140059.jpg b/pics/24140059.jpg deleted file mode 100644 index 8b218eac..00000000 Binary files a/pics/24140059.jpg and /dev/null differ diff --git a/pics/24150026.jpg b/pics/24150026.jpg deleted file mode 100644 index c868789a..00000000 Binary files a/pics/24150026.jpg and /dev/null differ diff --git a/pics/24184846.jpg b/pics/24184846.jpg deleted file mode 100644 index 557c8a0f..00000000 Binary files a/pics/24184846.jpg and /dev/null differ diff --git a/pics/24194033.jpg b/pics/24194033.jpg deleted file mode 100644 index 65aa5a39..00000000 Binary files a/pics/24194033.jpg and /dev/null differ diff --git a/pics/2420921.jpg b/pics/2420921.jpg deleted file mode 100644 index c484a3be..00000000 Binary files a/pics/2420921.jpg and /dev/null differ diff --git a/pics/24212820.jpg b/pics/24212820.jpg deleted file mode 100755 index 313cd655..00000000 Binary files a/pics/24212820.jpg and /dev/null differ diff --git a/pics/242146.jpg b/pics/242146.jpg deleted file mode 100644 index 2a35bf97..00000000 Binary files a/pics/242146.jpg and /dev/null differ diff --git a/pics/24218047.jpg b/pics/24218047.jpg deleted file mode 100644 index 38f4ba61..00000000 Binary files a/pics/24218047.jpg and /dev/null differ diff --git a/pics/24221739.jpg b/pics/24221739.jpg deleted file mode 100644 index 8e5fbdff..00000000 Binary files a/pics/24221739.jpg and /dev/null differ diff --git a/pics/24221808.jpg b/pics/24221808.jpg deleted file mode 100644 index 426d475f..00000000 Binary files a/pics/24221808.jpg and /dev/null differ diff --git a/pics/24268052.jpg b/pics/24268052.jpg deleted file mode 100644 index a286ee89..00000000 Binary files a/pics/24268052.jpg and /dev/null differ diff --git a/pics/24285858.jpg b/pics/24285858.jpg deleted file mode 100644 index 301325ea..00000000 Binary files a/pics/24285858.jpg and /dev/null differ diff --git a/pics/24291651.jpg b/pics/24291651.jpg deleted file mode 100644 index d7444289..00000000 Binary files a/pics/24291651.jpg and /dev/null differ diff --git a/pics/24294108.jpg b/pics/24294108.jpg deleted file mode 100644 index cfb3135a..00000000 Binary files a/pics/24294108.jpg and /dev/null differ diff --git a/pics/24311372.jpg b/pics/24311372.jpg deleted file mode 100644 index 7a0a0591..00000000 Binary files a/pics/24311372.jpg and /dev/null differ diff --git a/pics/24311595.jpg b/pics/24311595.jpg deleted file mode 100644 index dd8b77ae..00000000 Binary files a/pics/24311595.jpg and /dev/null differ diff --git a/pics/24317029.jpg b/pics/24317029.jpg deleted file mode 100644 index fbd3abc6..00000000 Binary files a/pics/24317029.jpg and /dev/null differ diff --git a/pics/24326617.jpg b/pics/24326617.jpg deleted file mode 100755 index b67b4628..00000000 Binary files a/pics/24326617.jpg and /dev/null differ diff --git a/pics/24348204.jpg b/pics/24348204.jpg deleted file mode 100644 index 8c95325e..00000000 Binary files a/pics/24348204.jpg and /dev/null differ diff --git a/pics/24348804.jpg b/pics/24348804.jpg deleted file mode 100644 index d46b2d71..00000000 Binary files a/pics/24348804.jpg and /dev/null differ diff --git a/pics/24362891.jpg b/pics/24362891.jpg deleted file mode 100644 index 1e6c5c5b..00000000 Binary files a/pics/24362891.jpg and /dev/null differ diff --git a/pics/24384095.jpg b/pics/24384095.jpg deleted file mode 100644 index 79d6c92c..00000000 Binary files a/pics/24384095.jpg and /dev/null differ diff --git a/pics/24419823.jpg b/pics/24419823.jpg deleted file mode 100644 index 32fa8284..00000000 Binary files a/pics/24419823.jpg and /dev/null differ diff --git a/pics/24425055.jpg b/pics/24425055.jpg deleted file mode 100755 index 86ef420f..00000000 Binary files a/pics/24425055.jpg and /dev/null differ diff --git a/pics/24432029.jpg b/pics/24432029.jpg deleted file mode 100644 index 5aa7418b..00000000 Binary files a/pics/24432029.jpg and /dev/null differ diff --git a/pics/24433920.jpg b/pics/24433920.jpg deleted file mode 100644 index 356e5835..00000000 Binary files a/pics/24433920.jpg and /dev/null differ diff --git a/pics/24433921.jpg b/pics/24433921.jpg deleted file mode 100644 index 18128634..00000000 Binary files a/pics/24433921.jpg and /dev/null differ diff --git a/pics/24435369.jpg b/pics/24435369.jpg deleted file mode 100644 index d5bfe762..00000000 Binary files a/pics/24435369.jpg and /dev/null differ diff --git a/pics/24449083.jpg b/pics/24449083.jpg deleted file mode 100644 index 8e4ae506..00000000 Binary files a/pics/24449083.jpg and /dev/null differ diff --git a/pics/24508238.jpg b/pics/24508238.jpg deleted file mode 100644 index 37c3c1e0..00000000 Binary files a/pics/24508238.jpg and /dev/null differ diff --git a/pics/24530661.jpg b/pics/24530661.jpg deleted file mode 100644 index 81092718..00000000 Binary files a/pics/24530661.jpg and /dev/null differ diff --git a/pics/24545464.jpg b/pics/24545464.jpg deleted file mode 100644 index cb54fe1b..00000000 Binary files a/pics/24545464.jpg and /dev/null differ diff --git a/pics/24566654.jpg b/pics/24566654.jpg deleted file mode 100644 index b2850b2d..00000000 Binary files a/pics/24566654.jpg and /dev/null differ diff --git a/pics/24573625.jpg b/pics/24573625.jpg deleted file mode 100755 index 8dc8746e..00000000 Binary files a/pics/24573625.jpg and /dev/null differ diff --git a/pics/24590232.jpg b/pics/24590232.jpg deleted file mode 100755 index 6e5bfbf9..00000000 Binary files a/pics/24590232.jpg and /dev/null differ diff --git a/pics/2460565.jpg b/pics/2460565.jpg deleted file mode 100644 index 849865c0..00000000 Binary files a/pics/2460565.jpg and /dev/null differ diff --git a/pics/24610207.jpg b/pics/24610207.jpg deleted file mode 100644 index 24fa425d..00000000 Binary files a/pics/24610207.jpg and /dev/null differ diff --git a/pics/2461031.jpg b/pics/2461031.jpg deleted file mode 100644 index e158e98f..00000000 Binary files a/pics/2461031.jpg and /dev/null differ diff --git a/pics/24611934.jpg b/pics/24611934.jpg deleted file mode 100644 index d0e2c29f..00000000 Binary files a/pics/24611934.jpg and /dev/null differ diff --git a/pics/24621460.jpg b/pics/24621460.jpg deleted file mode 100644 index 8947cec0..00000000 Binary files a/pics/24621460.jpg and /dev/null differ diff --git a/pics/24623598.jpg b/pics/24623598.jpg deleted file mode 100644 index e85fabf7..00000000 Binary files a/pics/24623598.jpg and /dev/null differ diff --git a/pics/24643836.jpg b/pics/24643836.jpg deleted file mode 100644 index a677ce75..00000000 Binary files a/pics/24643836.jpg and /dev/null differ diff --git a/pics/24644634.jpg b/pics/24644634.jpg deleted file mode 100644 index cd076666..00000000 Binary files a/pics/24644634.jpg and /dev/null differ diff --git a/pics/24658418.jpg b/pics/24658418.jpg deleted file mode 100644 index f3a9a583..00000000 Binary files a/pics/24658418.jpg and /dev/null differ diff --git a/pics/24661486.jpg b/pics/24661486.jpg deleted file mode 100644 index fa5332f3..00000000 Binary files a/pics/24661486.jpg and /dev/null differ diff --git a/pics/24668830.jpg b/pics/24668830.jpg deleted file mode 100644 index 74100654..00000000 Binary files a/pics/24668830.jpg and /dev/null differ diff --git a/pics/24673894.jpg b/pics/24673894.jpg deleted file mode 100644 index b7c26c46..00000000 Binary files a/pics/24673894.jpg and /dev/null differ diff --git a/pics/2468169.jpg b/pics/2468169.jpg deleted file mode 100644 index 598f6140..00000000 Binary files a/pics/2468169.jpg and /dev/null differ diff --git a/pics/24694698.jpg b/pics/24694698.jpg deleted file mode 100644 index 279a0f05..00000000 Binary files a/pics/24694698.jpg and /dev/null differ diff --git a/pics/24696097.jpg b/pics/24696097.jpg deleted file mode 100644 index df79cfe2..00000000 Binary files a/pics/24696097.jpg and /dev/null differ diff --git a/pics/24701235.jpg b/pics/24701235.jpg deleted file mode 100644 index 6c75e624..00000000 Binary files a/pics/24701235.jpg and /dev/null differ diff --git a/pics/24707869.jpg b/pics/24707869.jpg deleted file mode 100644 index 81305d0b..00000000 Binary files a/pics/24707869.jpg and /dev/null differ diff --git a/pics/24725825.jpg b/pics/24725825.jpg deleted file mode 100644 index e49a4871..00000000 Binary files a/pics/24725825.jpg and /dev/null differ diff --git a/pics/24731453.jpg b/pics/24731453.jpg deleted file mode 100644 index b6fc9ac0..00000000 Binary files a/pics/24731453.jpg and /dev/null differ diff --git a/pics/2483611.jpg b/pics/2483611.jpg deleted file mode 100644 index 355ec970..00000000 Binary files a/pics/2483611.jpg and /dev/null differ diff --git a/pics/24838456.jpg b/pics/24838456.jpg deleted file mode 100644 index 983c0dbe..00000000 Binary files a/pics/24838456.jpg and /dev/null differ diff --git a/pics/24845628.jpg b/pics/24845628.jpg deleted file mode 100644 index 657ee6ce..00000000 Binary files a/pics/24845628.jpg and /dev/null differ diff --git a/pics/24857466.jpg b/pics/24857466.jpg deleted file mode 100644 index 056960a3..00000000 Binary files a/pics/24857466.jpg and /dev/null differ diff --git a/pics/24861088.jpg b/pics/24861088.jpg deleted file mode 100644 index a78a057c..00000000 Binary files a/pics/24861088.jpg and /dev/null differ diff --git a/pics/24874630.jpg b/pics/24874630.jpg deleted file mode 100644 index a439b4a5..00000000 Binary files a/pics/24874630.jpg and /dev/null differ diff --git a/pics/24874631.jpg b/pics/24874631.jpg deleted file mode 100644 index 62fa0f42..00000000 Binary files a/pics/24874631.jpg and /dev/null differ diff --git a/pics/24903843.jpg b/pics/24903843.jpg deleted file mode 100755 index 73d5c07d..00000000 Binary files a/pics/24903843.jpg and /dev/null differ diff --git a/pics/24919805.jpg b/pics/24919805.jpg deleted file mode 100644 index 70a1e510..00000000 Binary files a/pics/24919805.jpg and /dev/null differ diff --git a/pics/24920410.jpg b/pics/24920410.jpg deleted file mode 100644 index e214338f..00000000 Binary files a/pics/24920410.jpg and /dev/null differ diff --git a/pics/24943456.jpg b/pics/24943456.jpg deleted file mode 100644 index ea76c4d2..00000000 Binary files a/pics/24943456.jpg and /dev/null differ diff --git a/pics/24996659.jpg b/pics/24996659.jpg deleted file mode 100644 index a52b7dd6..00000000 Binary files a/pics/24996659.jpg and /dev/null differ diff --git a/pics/25005816.jpg b/pics/25005816.jpg deleted file mode 100644 index 744dab08..00000000 Binary files a/pics/25005816.jpg and /dev/null differ diff --git a/pics/25034083.jpg b/pics/25034083.jpg deleted file mode 100644 index a4a3a887..00000000 Binary files a/pics/25034083.jpg and /dev/null differ diff --git a/pics/2504891.jpg b/pics/2504891.jpg deleted file mode 100644 index e6820302..00000000 Binary files a/pics/2504891.jpg and /dev/null differ diff --git a/pics/25050038.jpg b/pics/25050038.jpg deleted file mode 100644 index 283b035c..00000000 Binary files a/pics/25050038.jpg and /dev/null differ diff --git a/pics/25067275.jpg b/pics/25067275.jpg deleted file mode 100644 index 980a7a62..00000000 Binary files a/pics/25067275.jpg and /dev/null differ diff --git a/pics/25090294.jpg b/pics/25090294.jpg deleted file mode 100644 index 18dc44ad..00000000 Binary files a/pics/25090294.jpg and /dev/null differ diff --git a/pics/25109950.jpg b/pics/25109950.jpg deleted file mode 100644 index 751e235d..00000000 Binary files a/pics/25109950.jpg and /dev/null differ diff --git a/pics/2511717.jpg b/pics/2511717.jpg deleted file mode 100644 index ab4ade8f..00000000 Binary files a/pics/2511717.jpg and /dev/null differ diff --git a/pics/25119460.jpg b/pics/25119460.jpg deleted file mode 100644 index 447366a0..00000000 Binary files a/pics/25119460.jpg and /dev/null differ diff --git a/pics/25123082.jpg b/pics/25123082.jpg deleted file mode 100644 index 9f34607d..00000000 Binary files a/pics/25123082.jpg and /dev/null differ diff --git a/pics/25132288.jpg b/pics/25132288.jpg deleted file mode 100644 index 6d678aa5..00000000 Binary files a/pics/25132288.jpg and /dev/null differ diff --git a/pics/25148255.jpg b/pics/25148255.jpg deleted file mode 100644 index a5b3130b..00000000 Binary files a/pics/25148255.jpg and /dev/null differ diff --git a/pics/25148255.png b/pics/25148255.png deleted file mode 100644 index 1248af19..00000000 Binary files a/pics/25148255.png and /dev/null differ diff --git a/pics/25163248.jpg b/pics/25163248.jpg deleted file mode 100644 index f62bed40..00000000 Binary files a/pics/25163248.jpg and /dev/null differ diff --git a/pics/25165047.jpg b/pics/25165047.jpg deleted file mode 100644 index 9eef2fe6..00000000 Binary files a/pics/25165047.jpg and /dev/null differ diff --git a/pics/25171661.jpg b/pics/25171661.jpg deleted file mode 100644 index e163ca5c..00000000 Binary files a/pics/25171661.jpg and /dev/null differ diff --git a/pics/25173686.jpg b/pics/25173686.jpg deleted file mode 100644 index e67fbb3c..00000000 Binary files a/pics/25173686.jpg and /dev/null differ diff --git a/pics/2519690.jpg b/pics/2519690.jpg deleted file mode 100755 index 6f019975..00000000 Binary files a/pics/2519690.jpg and /dev/null differ diff --git a/pics/25206027.jpg b/pics/25206027.jpg deleted file mode 100755 index 79edb7b9..00000000 Binary files a/pics/25206027.jpg and /dev/null differ diff --git a/pics/2521011.jpg b/pics/2521011.jpg deleted file mode 100644 index edfeab98..00000000 Binary files a/pics/2521011.jpg and /dev/null differ diff --git a/pics/25231813.jpg b/pics/25231813.jpg deleted file mode 100644 index 8bcf37da..00000000 Binary files a/pics/25231813.jpg and /dev/null differ diff --git a/pics/25236056.jpg b/pics/25236056.jpg deleted file mode 100644 index 0724760a..00000000 Binary files a/pics/25236056.jpg and /dev/null differ diff --git a/pics/25244515.jpg b/pics/25244515.jpg deleted file mode 100644 index 125d236d..00000000 Binary files a/pics/25244515.jpg and /dev/null differ diff --git a/pics/25247218.jpg b/pics/25247218.jpg deleted file mode 100644 index 1412d97e..00000000 Binary files a/pics/25247218.jpg and /dev/null differ diff --git a/pics/2525268.jpg b/pics/2525268.jpg deleted file mode 100644 index 4f676261..00000000 Binary files a/pics/2525268.jpg and /dev/null differ diff --git a/pics/25259669.jpg b/pics/25259669.jpg deleted file mode 100644 index c2a00b78..00000000 Binary files a/pics/25259669.jpg and /dev/null differ diff --git a/pics/25262697.jpg b/pics/25262697.jpg deleted file mode 100644 index a62907b6..00000000 Binary files a/pics/25262697.jpg and /dev/null differ diff --git a/pics/25280974.jpg b/pics/25280974.jpg deleted file mode 100644 index 8dfcb398..00000000 Binary files a/pics/25280974.jpg and /dev/null differ diff --git a/pics/25290459.jpg b/pics/25290459.jpg deleted file mode 100644 index 0a46f648..00000000 Binary files a/pics/25290459.jpg and /dev/null differ diff --git a/pics/25334372.jpg b/pics/25334372.jpg deleted file mode 100755 index 89f827a1..00000000 Binary files a/pics/25334372.jpg and /dev/null differ diff --git a/pics/25341652.jpg b/pics/25341652.jpg deleted file mode 100644 index db324de5..00000000 Binary files a/pics/25341652.jpg and /dev/null differ diff --git a/pics/25343017.jpg b/pics/25343017.jpg deleted file mode 100644 index 11d7e436..00000000 Binary files a/pics/25343017.jpg and /dev/null differ diff --git a/pics/25343280.jpg b/pics/25343280.jpg deleted file mode 100644 index 5013b2e1..00000000 Binary files a/pics/25343280.jpg and /dev/null differ diff --git a/pics/25345186.jpg b/pics/25345186.jpg deleted file mode 100644 index f5571062..00000000 Binary files a/pics/25345186.jpg and /dev/null differ diff --git a/pics/25366484.jpg b/pics/25366484.jpg deleted file mode 100644 index 08db547c..00000000 Binary files a/pics/25366484.jpg and /dev/null differ diff --git a/pics/25373678.jpg b/pics/25373678.jpg deleted file mode 100644 index abd4e57a..00000000 Binary files a/pics/25373678.jpg and /dev/null differ diff --git a/pics/25377819.jpg b/pics/25377819.jpg deleted file mode 100644 index 34fdf354..00000000 Binary files a/pics/25377819.jpg and /dev/null differ diff --git a/pics/25401880.jpg b/pics/25401880.jpg deleted file mode 100644 index 8fd67b35..00000000 Binary files a/pics/25401880.jpg and /dev/null differ diff --git a/pics/25407406.jpg b/pics/25407406.jpg deleted file mode 100644 index e09fadc5..00000000 Binary files a/pics/25407406.jpg and /dev/null differ diff --git a/pics/25407643.jpg b/pics/25407643.jpg deleted file mode 100644 index 2881cdcd..00000000 Binary files a/pics/25407643.jpg and /dev/null differ diff --git a/pics/2542230.jpg b/pics/2542230.jpg deleted file mode 100755 index c57f4bb6..00000000 Binary files a/pics/2542230.jpg and /dev/null differ diff --git a/pics/25435080.jpg b/pics/25435080.jpg deleted file mode 100644 index e6426265..00000000 Binary files a/pics/25435080.jpg and /dev/null differ diff --git a/pics/25460258.jpg b/pics/25460258.jpg deleted file mode 100644 index 88b4aef1..00000000 Binary files a/pics/25460258.jpg and /dev/null differ diff --git a/pics/25484449.jpg b/pics/25484449.jpg deleted file mode 100644 index fc05e403..00000000 Binary files a/pics/25484449.jpg and /dev/null differ diff --git a/pics/25518020.jpg b/pics/25518020.jpg deleted file mode 100644 index e8a8855d..00000000 Binary files a/pics/25518020.jpg and /dev/null differ diff --git a/pics/25524823.jpg b/pics/25524823.jpg deleted file mode 100644 index d0c2a2ae..00000000 Binary files a/pics/25524823.jpg and /dev/null differ diff --git a/pics/25531465.jpg b/pics/25531465.jpg deleted file mode 100644 index fdef0651..00000000 Binary files a/pics/25531465.jpg and /dev/null differ diff --git a/pics/25542642.jpg b/pics/25542642.jpg deleted file mode 100755 index 54e4a737..00000000 Binary files a/pics/25542642.jpg and /dev/null differ diff --git a/pics/25551951.jpg b/pics/25551951.jpg deleted file mode 100644 index ea70a500..00000000 Binary files a/pics/25551951.jpg and /dev/null differ diff --git a/pics/25573054.jpg b/pics/25573054.jpg deleted file mode 100644 index 6af30637..00000000 Binary files a/pics/25573054.jpg and /dev/null differ diff --git a/pics/25578802.jpg b/pics/25578802.jpg deleted file mode 100644 index e374c53d..00000000 Binary files a/pics/25578802.jpg and /dev/null differ diff --git a/pics/255998.jpg b/pics/255998.jpg deleted file mode 100644 index 5e46e662..00000000 Binary files a/pics/255998.jpg and /dev/null differ diff --git a/pics/2561846.jpg b/pics/2561846.jpg deleted file mode 100644 index af0cc87c..00000000 Binary files a/pics/2561846.jpg and /dev/null differ diff --git a/pics/25642998.jpg b/pics/25642998.jpg deleted file mode 100644 index ecc0cd3e..00000000 Binary files a/pics/25642998.jpg and /dev/null differ diff --git a/pics/25652259.jpg b/pics/25652259.jpg deleted file mode 100644 index 192a4345..00000000 Binary files a/pics/25652259.jpg and /dev/null differ diff --git a/pics/25652655.jpg b/pics/25652655.jpg deleted file mode 100644 index 2a7285d3..00000000 Binary files a/pics/25652655.jpg and /dev/null differ diff --git a/pics/25654671.jpg b/pics/25654671.jpg deleted file mode 100644 index f786633c..00000000 Binary files a/pics/25654671.jpg and /dev/null differ diff --git a/pics/25655502.jpg b/pics/25655502.jpg deleted file mode 100644 index 8677106c..00000000 Binary files a/pics/25655502.jpg and /dev/null differ diff --git a/pics/25682811.jpg b/pics/25682811.jpg deleted file mode 100644 index ff502c4f..00000000 Binary files a/pics/25682811.jpg and /dev/null differ diff --git a/pics/25700114.jpg b/pics/25700114.jpg deleted file mode 100644 index 01f26f97..00000000 Binary files a/pics/25700114.jpg and /dev/null differ diff --git a/pics/25704359.jpg b/pics/25704359.jpg deleted file mode 100644 index 61a23f98..00000000 Binary files a/pics/25704359.jpg and /dev/null differ diff --git a/pics/25716180.jpg b/pics/25716180.jpg deleted file mode 100644 index 8d182a5f..00000000 Binary files a/pics/25716180.jpg and /dev/null differ diff --git a/pics/25727454.jpg b/pics/25727454.jpg deleted file mode 100644 index 8cf32c0b..00000000 Binary files a/pics/25727454.jpg and /dev/null differ diff --git a/pics/2572890.jpg b/pics/2572890.jpg deleted file mode 100755 index ac5a20b1..00000000 Binary files a/pics/2572890.jpg and /dev/null differ diff --git a/pics/25769732.jpg b/pics/25769732.jpg deleted file mode 100644 index ec81014d..00000000 Binary files a/pics/25769732.jpg and /dev/null differ diff --git a/pics/25771826.jpg b/pics/25771826.jpg deleted file mode 100644 index fa49c8f1..00000000 Binary files a/pics/25771826.jpg and /dev/null differ diff --git a/pics/25773409.jpg b/pics/25773409.jpg deleted file mode 100644 index f6ddac61..00000000 Binary files a/pics/25773409.jpg and /dev/null differ diff --git a/pics/25774450.jpg b/pics/25774450.jpg deleted file mode 100644 index 65022bfb..00000000 Binary files a/pics/25774450.jpg and /dev/null differ diff --git a/pics/25788011.jpg b/pics/25788011.jpg deleted file mode 100644 index fda82899..00000000 Binary files a/pics/25788011.jpg and /dev/null differ diff --git a/pics/25789292.jpg b/pics/25789292.jpg deleted file mode 100644 index bd0e985b..00000000 Binary files a/pics/25789292.jpg and /dev/null differ diff --git a/pics/25795273.jpg b/pics/25795273.jpg deleted file mode 100755 index 8fd2f948..00000000 Binary files a/pics/25795273.jpg and /dev/null differ diff --git a/pics/25796442.jpg b/pics/25796442.jpg deleted file mode 100644 index 3980bce6..00000000 Binary files a/pics/25796442.jpg and /dev/null differ diff --git a/pics/25811989.jpg b/pics/25811989.jpg deleted file mode 100644 index dbc24949..00000000 Binary files a/pics/25811989.jpg and /dev/null differ diff --git a/pics/25824484.jpg b/pics/25824484.jpg deleted file mode 100755 index a3f5c5d7..00000000 Binary files a/pics/25824484.jpg and /dev/null differ diff --git a/pics/25833572.jpg b/pics/25833572.jpg deleted file mode 100644 index ee6b233c..00000000 Binary files a/pics/25833572.jpg and /dev/null differ diff --git a/pics/2584136.jpg b/pics/2584136.jpg deleted file mode 100644 index a3284063..00000000 Binary files a/pics/2584136.jpg and /dev/null differ diff --git a/pics/25847467.jpg b/pics/25847467.jpg deleted file mode 100644 index 74031d94..00000000 Binary files a/pics/25847467.jpg and /dev/null differ diff --git a/pics/25853045.jpg b/pics/25853045.jpg deleted file mode 100644 index 8e5ea857..00000000 Binary files a/pics/25853045.jpg and /dev/null differ diff --git a/pics/25857246.jpg b/pics/25857246.jpg deleted file mode 100644 index a20ac621..00000000 Binary files a/pics/25857246.jpg and /dev/null differ diff --git a/pics/25862681.jpg b/pics/25862681.jpg deleted file mode 100644 index 20436d9b..00000000 Binary files a/pics/25862681.jpg and /dev/null differ diff --git a/pics/25866285.jpg b/pics/25866285.jpg deleted file mode 100644 index b6187ed0..00000000 Binary files a/pics/25866285.jpg and /dev/null differ diff --git a/pics/25880422.jpg b/pics/25880422.jpg deleted file mode 100644 index bbc595e8..00000000 Binary files a/pics/25880422.jpg and /dev/null differ diff --git a/pics/25882881.jpg b/pics/25882881.jpg deleted file mode 100644 index 78468e41..00000000 Binary files a/pics/25882881.jpg and /dev/null differ diff --git a/pics/25920413.jpg b/pics/25920413.jpg deleted file mode 100644 index 703af629..00000000 Binary files a/pics/25920413.jpg and /dev/null differ diff --git a/pics/25924653.jpg b/pics/25924653.jpg deleted file mode 100644 index ebf4583d..00000000 Binary files a/pics/25924653.jpg and /dev/null differ diff --git a/pics/259314.jpg b/pics/259314.jpg deleted file mode 100644 index 7211db53..00000000 Binary files a/pics/259314.jpg and /dev/null differ diff --git a/pics/25935625.jpg b/pics/25935625.jpg deleted file mode 100644 index 153960e1..00000000 Binary files a/pics/25935625.jpg and /dev/null differ diff --git a/pics/25955164.jpg b/pics/25955164.jpg deleted file mode 100644 index fe6d707b..00000000 Binary files a/pics/25955164.jpg and /dev/null differ diff --git a/pics/25958491.jpg b/pics/25958491.jpg deleted file mode 100644 index 7aa57eb3..00000000 Binary files a/pics/25958491.jpg and /dev/null differ diff --git a/pics/25988873.jpg b/pics/25988873.jpg deleted file mode 100644 index 8a45c9fe..00000000 Binary files a/pics/25988873.jpg and /dev/null differ diff --git a/pics/26016357.jpg b/pics/26016357.jpg deleted file mode 100644 index 64173288..00000000 Binary files a/pics/26016357.jpg and /dev/null differ diff --git a/pics/26022485.jpg b/pics/26022485.jpg deleted file mode 100644 index ed0b77ed..00000000 Binary files a/pics/26022485.jpg and /dev/null differ diff --git a/pics/2602411.jpg b/pics/2602411.jpg deleted file mode 100755 index b32d0070..00000000 Binary files a/pics/2602411.jpg and /dev/null differ diff --git a/pics/26034577.jpg b/pics/26034577.jpg deleted file mode 100644 index 6838f886..00000000 Binary files a/pics/26034577.jpg and /dev/null differ diff --git a/pics/26046205.jpg b/pics/26046205.jpg deleted file mode 100644 index ca5bf0cf..00000000 Binary files a/pics/26046205.jpg and /dev/null differ diff --git a/pics/26057276.jpg b/pics/26057276.jpg deleted file mode 100644 index 697c6e24..00000000 Binary files a/pics/26057276.jpg and /dev/null differ diff --git a/pics/26082117.jpg b/pics/26082117.jpg deleted file mode 100644 index b961b224..00000000 Binary files a/pics/26082117.jpg and /dev/null differ diff --git a/pics/26082229.jpg b/pics/26082229.jpg deleted file mode 100644 index 97b90c33..00000000 Binary files a/pics/26082229.jpg and /dev/null differ diff --git a/pics/26084285.jpg b/pics/26084285.jpg deleted file mode 100644 index 12e82a17..00000000 Binary files a/pics/26084285.jpg and /dev/null differ diff --git a/pics/26099457.jpg b/pics/26099457.jpg deleted file mode 100644 index 424415e3..00000000 Binary files a/pics/26099457.jpg and /dev/null differ diff --git a/pics/26120084.jpg b/pics/26120084.jpg deleted file mode 100644 index a76d4fce..00000000 Binary files a/pics/26120084.jpg and /dev/null differ diff --git a/pics/26157485.jpg b/pics/26157485.jpg deleted file mode 100644 index 8d78041e..00000000 Binary files a/pics/26157485.jpg and /dev/null differ diff --git a/pics/2618045.jpg b/pics/2618045.jpg deleted file mode 100644 index a6885ddb..00000000 Binary files a/pics/2618045.jpg and /dev/null differ diff --git a/pics/26185991.jpg b/pics/26185991.jpg deleted file mode 100644 index a6196398..00000000 Binary files a/pics/26185991.jpg and /dev/null differ diff --git a/pics/2619149.jpg b/pics/2619149.jpg deleted file mode 100644 index 805384a2..00000000 Binary files a/pics/2619149.jpg and /dev/null differ diff --git a/pics/26202165.jpg b/pics/26202165.jpg deleted file mode 100644 index 136f0e31..00000000 Binary files a/pics/26202165.jpg and /dev/null differ diff --git a/pics/26205777.jpg b/pics/26205777.jpg deleted file mode 100644 index 525df0f5..00000000 Binary files a/pics/26205777.jpg and /dev/null differ diff --git a/pics/26211048.jpg b/pics/26211048.jpg deleted file mode 100644 index c13466cf..00000000 Binary files a/pics/26211048.jpg and /dev/null differ diff --git a/pics/26254876.jpg b/pics/26254876.jpg deleted file mode 100644 index 94a8cc91..00000000 Binary files a/pics/26254876.jpg and /dev/null differ diff --git a/pics/26257572.jpg b/pics/26257572.jpg deleted file mode 100644 index c32ceef3..00000000 Binary files a/pics/26257572.jpg and /dev/null differ diff --git a/pics/26268488.jpg b/pics/26268488.jpg deleted file mode 100644 index 4c46910b..00000000 Binary files a/pics/26268488.jpg and /dev/null differ diff --git a/pics/26270847.jpg b/pics/26270847.jpg deleted file mode 100755 index e7dcb8a8..00000000 Binary files a/pics/26270847.jpg and /dev/null differ diff --git a/pics/26285788.jpg b/pics/26285788.jpg deleted file mode 100644 index f2f48126..00000000 Binary files a/pics/26285788.jpg and /dev/null differ diff --git a/pics/26293219.jpg b/pics/26293219.jpg deleted file mode 100644 index f2dd91b9..00000000 Binary files a/pics/26293219.jpg and /dev/null differ diff --git a/pics/26302522.jpg b/pics/26302522.jpg deleted file mode 100644 index 4c2a547f..00000000 Binary files a/pics/26302522.jpg and /dev/null differ diff --git a/pics/26304459.jpg b/pics/26304459.jpg deleted file mode 100644 index dc93360d..00000000 Binary files a/pics/26304459.jpg and /dev/null differ diff --git a/pics/26329679.jpg b/pics/26329679.jpg deleted file mode 100644 index 945fdca6..00000000 Binary files a/pics/26329679.jpg and /dev/null differ diff --git a/pics/26345570.jpg b/pics/26345570.jpg deleted file mode 100644 index 0bb31536..00000000 Binary files a/pics/26345570.jpg and /dev/null differ diff --git a/pics/26376390.jpg b/pics/26376390.jpg deleted file mode 100644 index 47803209..00000000 Binary files a/pics/26376390.jpg and /dev/null differ diff --git a/pics/26378150.jpg b/pics/26378150.jpg deleted file mode 100644 index 5e6ef282..00000000 Binary files a/pics/26378150.jpg and /dev/null differ diff --git a/pics/26381750.jpg b/pics/26381750.jpg deleted file mode 100644 index 4310cc1e..00000000 Binary files a/pics/26381750.jpg and /dev/null differ diff --git a/pics/26400609.jpg b/pics/26400609.jpg deleted file mode 100644 index 722da671..00000000 Binary files a/pics/26400609.jpg and /dev/null differ diff --git a/pics/26412047.jpg b/pics/26412047.jpg deleted file mode 100644 index 6da175ae..00000000 Binary files a/pics/26412047.jpg and /dev/null differ diff --git a/pics/26439287.jpg b/pics/26439287.jpg deleted file mode 100644 index 23a39844..00000000 Binary files a/pics/26439287.jpg and /dev/null differ diff --git a/pics/2648201.jpg b/pics/2648201.jpg deleted file mode 100644 index c48a15e2..00000000 Binary files a/pics/2648201.jpg and /dev/null differ diff --git a/pics/26493435.jpg b/pics/26493435.jpg deleted file mode 100644 index 58aa85d0..00000000 Binary files a/pics/26493435.jpg and /dev/null differ diff --git a/pics/26495087.jpg b/pics/26495087.jpg deleted file mode 100644 index 2306598a..00000000 Binary files a/pics/26495087.jpg and /dev/null differ diff --git a/pics/26509612.jpg b/pics/26509612.jpg deleted file mode 100644 index dbaa1172..00000000 Binary files a/pics/26509612.jpg and /dev/null differ diff --git a/pics/26533075.jpg b/pics/26533075.jpg deleted file mode 100644 index 3ffafe24..00000000 Binary files a/pics/26533075.jpg and /dev/null differ diff --git a/pics/26556950.jpg b/pics/26556950.jpg deleted file mode 100755 index d7a1bd82..00000000 Binary files a/pics/26556950.jpg and /dev/null differ diff --git a/pics/26563200.jpg b/pics/26563200.jpg deleted file mode 100644 index fabffd3b..00000000 Binary files a/pics/26563200.jpg and /dev/null differ diff --git a/pics/26566878.jpg b/pics/26566878.jpg deleted file mode 100644 index d563d920..00000000 Binary files a/pics/26566878.jpg and /dev/null differ diff --git a/pics/26570480.jpg b/pics/26570480.jpg deleted file mode 100644 index 2a0ceb66..00000000 Binary files a/pics/26570480.jpg and /dev/null differ diff --git a/pics/26586849.jpg b/pics/26586849.jpg deleted file mode 100644 index 9f9b1372..00000000 Binary files a/pics/26586849.jpg and /dev/null differ diff --git a/pics/26593852.jpg b/pics/26593852.jpg deleted file mode 100644 index 428897f6..00000000 Binary files a/pics/26593852.jpg and /dev/null differ diff --git a/pics/26640671.jpg b/pics/26640671.jpg deleted file mode 100644 index aad3b64b..00000000 Binary files a/pics/26640671.jpg and /dev/null differ diff --git a/pics/26647858.jpg b/pics/26647858.jpg deleted file mode 100644 index 68face29..00000000 Binary files a/pics/26647858.jpg and /dev/null differ diff --git a/pics/26669055.jpg b/pics/26669055.jpg deleted file mode 100644 index 8ef8fc18..00000000 Binary files a/pics/26669055.jpg and /dev/null differ diff --git a/pics/26674724.jpg b/pics/26674724.jpg deleted file mode 100644 index 2c65c89d..00000000 Binary files a/pics/26674724.jpg and /dev/null differ diff --git a/pics/26701483.jpg b/pics/26701483.jpg deleted file mode 100644 index 820d7028..00000000 Binary files a/pics/26701483.jpg and /dev/null differ diff --git a/pics/26704411.jpg b/pics/26704411.jpg deleted file mode 100644 index 98f51dda..00000000 Binary files a/pics/26704411.jpg and /dev/null differ diff --git a/pics/26708437.jpg b/pics/26708437.jpg deleted file mode 100644 index dc1cc329..00000000 Binary files a/pics/26708437.jpg and /dev/null differ diff --git a/pics/2671330.jpg b/pics/2671330.jpg deleted file mode 100644 index bfdf8f30..00000000 Binary files a/pics/2671330.jpg and /dev/null differ diff --git a/pics/26722601.jpg b/pics/26722601.jpg deleted file mode 100644 index 3f3b09fe..00000000 Binary files a/pics/26722601.jpg and /dev/null differ diff --git a/pics/26725158.jpg b/pics/26725158.jpg deleted file mode 100644 index 58eb8387..00000000 Binary files a/pics/26725158.jpg and /dev/null differ diff --git a/pics/26732909.jpg b/pics/26732909.jpg deleted file mode 100644 index 1d88c359..00000000 Binary files a/pics/26732909.jpg and /dev/null differ diff --git a/pics/26775203.jpg b/pics/26775203.jpg deleted file mode 100644 index 69953bc1..00000000 Binary files a/pics/26775203.jpg and /dev/null differ diff --git a/pics/26822796.jpg b/pics/26822796.jpg deleted file mode 100644 index 15873f83..00000000 Binary files a/pics/26822796.jpg and /dev/null differ diff --git a/pics/26834022.jpg b/pics/26834022.jpg deleted file mode 100644 index 4e3ca9b2..00000000 Binary files a/pics/26834022.jpg and /dev/null differ diff --git a/pics/26842483.jpg b/pics/26842483.jpg deleted file mode 100644 index 0eb08026..00000000 Binary files a/pics/26842483.jpg and /dev/null differ diff --git a/pics/26864586.jpg b/pics/26864586.jpg deleted file mode 100644 index 5b59ab05..00000000 Binary files a/pics/26864586.jpg and /dev/null differ diff --git a/pics/26885836.jpg b/pics/26885836.jpg deleted file mode 100644 index d6df4a86..00000000 Binary files a/pics/26885836.jpg and /dev/null differ diff --git a/pics/269012.jpg b/pics/269012.jpg deleted file mode 100644 index 5376d21e..00000000 Binary files a/pics/269012.jpg and /dev/null differ diff --git a/pics/26902560.jpg b/pics/26902560.jpg deleted file mode 100644 index 7496d7c9..00000000 Binary files a/pics/26902560.jpg and /dev/null differ diff --git a/pics/26905245.jpg b/pics/26905245.jpg deleted file mode 100644 index ebae5b99..00000000 Binary files a/pics/26905245.jpg and /dev/null differ diff --git a/pics/26920296.jpg b/pics/26920296.jpg deleted file mode 100644 index 71744ab2..00000000 Binary files a/pics/26920296.jpg and /dev/null differ diff --git a/pics/26931058.jpg b/pics/26931058.jpg deleted file mode 100644 index 928d0af1..00000000 Binary files a/pics/26931058.jpg and /dev/null differ diff --git a/pics/26932788.jpg b/pics/26932788.jpg deleted file mode 100644 index 35789cda..00000000 Binary files a/pics/26932788.jpg and /dev/null differ diff --git a/pics/2694423.jpg b/pics/2694423.jpg deleted file mode 100644 index 571aac90..00000000 Binary files a/pics/2694423.jpg and /dev/null differ diff --git a/pics/26949946.jpg b/pics/26949946.jpg deleted file mode 100644 index eafadcd5..00000000 Binary files a/pics/26949946.jpg and /dev/null differ diff --git a/pics/26956670.jpg b/pics/26956670.jpg deleted file mode 100644 index dea2079f..00000000 Binary files a/pics/26956670.jpg and /dev/null differ diff --git a/pics/26976414.jpg b/pics/26976414.jpg deleted file mode 100644 index 2eedefb0..00000000 Binary files a/pics/26976414.jpg and /dev/null differ diff --git a/pics/26993374.jpg b/pics/26993374.jpg deleted file mode 100644 index 3ffd1493..00000000 Binary files a/pics/26993374.jpg and /dev/null differ diff --git a/pics/27004302.jpg b/pics/27004302.jpg deleted file mode 100644 index efa72837..00000000 Binary files a/pics/27004302.jpg and /dev/null differ diff --git a/pics/27053506.jpg b/pics/27053506.jpg deleted file mode 100644 index 102f3112..00000000 Binary files a/pics/27053506.jpg and /dev/null differ diff --git a/pics/27054370.jpg b/pics/27054370.jpg deleted file mode 100644 index b9f9bb05..00000000 Binary files a/pics/27054370.jpg and /dev/null differ diff --git a/pics/27062594.jpg b/pics/27062594.jpg deleted file mode 100644 index e25eba3f..00000000 Binary files a/pics/27062594.jpg and /dev/null differ diff --git a/pics/27068117.jpg b/pics/27068117.jpg deleted file mode 100644 index 7e72fdf1..00000000 Binary files a/pics/27068117.jpg and /dev/null differ diff --git a/pics/27094595.jpg b/pics/27094595.jpg deleted file mode 100644 index aefc6098..00000000 Binary files a/pics/27094595.jpg and /dev/null differ diff --git a/pics/27125110.jpg b/pics/27125110.jpg deleted file mode 100644 index 0a2b2cef..00000000 Binary files a/pics/27125110.jpg and /dev/null differ diff --git a/pics/27126980.jpg b/pics/27126980.jpg deleted file mode 100644 index b8b6ea4a..00000000 Binary files a/pics/27126980.jpg and /dev/null differ diff --git a/pics/27132350.jpg b/pics/27132350.jpg deleted file mode 100644 index 108b622d..00000000 Binary files a/pics/27132350.jpg and /dev/null differ diff --git a/pics/27134689.jpg b/pics/27134689.jpg deleted file mode 100644 index 5896b69b..00000000 Binary files a/pics/27134689.jpg and /dev/null differ diff --git a/pics/27143874.jpg b/pics/27143874.jpg deleted file mode 100644 index 6ec52a1a..00000000 Binary files a/pics/27143874.jpg and /dev/null differ diff --git a/pics/27174286.jpg b/pics/27174286.jpg deleted file mode 100644 index 05c489d9..00000000 Binary files a/pics/27174286.jpg and /dev/null differ diff --git a/pics/27178262.jpg b/pics/27178262.jpg deleted file mode 100644 index 923636ba..00000000 Binary files a/pics/27178262.jpg and /dev/null differ diff --git a/pics/27189308.jpg b/pics/27189308.jpg deleted file mode 100644 index c8ed815a..00000000 Binary files a/pics/27189308.jpg and /dev/null differ diff --git a/pics/27191436.jpg b/pics/27191436.jpg deleted file mode 100644 index e1ba440c..00000000 Binary files a/pics/27191436.jpg and /dev/null differ diff --git a/pics/27196937.jpg b/pics/27196937.jpg deleted file mode 100644 index 56b94f79..00000000 Binary files a/pics/27196937.jpg and /dev/null differ diff --git a/pics/27207573.jpg b/pics/27207573.jpg deleted file mode 100644 index 2c07d2fd..00000000 Binary files a/pics/27207573.jpg and /dev/null differ diff --git a/pics/27243130.jpg b/pics/27243130.jpg deleted file mode 100644 index 5b734e3a..00000000 Binary files a/pics/27243130.jpg and /dev/null differ diff --git a/pics/27279764.jpg b/pics/27279764.jpg deleted file mode 100644 index 2d14211c..00000000 Binary files a/pics/27279764.jpg and /dev/null differ diff --git a/pics/27288416.jpg b/pics/27288416.jpg deleted file mode 100644 index 8294a8b6..00000000 Binary files a/pics/27288416.jpg and /dev/null differ diff --git a/pics/2729285.jpg b/pics/2729285.jpg deleted file mode 100644 index 2c156694..00000000 Binary files a/pics/2729285.jpg and /dev/null differ diff --git a/pics/27315304.jpg b/pics/27315304.jpg deleted file mode 100644 index 95dd222e..00000000 Binary files a/pics/27315304.jpg and /dev/null differ diff --git a/pics/2732323.jpg b/pics/2732323.jpg deleted file mode 100644 index a645b8c6..00000000 Binary files a/pics/2732323.jpg and /dev/null differ diff --git a/pics/27324313.jpg b/pics/27324313.jpg deleted file mode 100644 index eed2be39..00000000 Binary files a/pics/27324313.jpg and /dev/null differ diff --git a/pics/27337596.jpg b/pics/27337596.jpg deleted file mode 100644 index 5781d6c4..00000000 Binary files a/pics/27337596.jpg and /dev/null differ diff --git a/pics/27340877.jpg b/pics/27340877.jpg deleted file mode 100644 index 73900654..00000000 Binary files a/pics/27340877.jpg and /dev/null differ diff --git a/pics/27346636.jpg b/pics/27346636.jpg deleted file mode 100644 index 7703d905..00000000 Binary files a/pics/27346636.jpg and /dev/null differ diff --git a/pics/27383110.jpg b/pics/27383110.jpg deleted file mode 100644 index d8d2015f..00000000 Binary files a/pics/27383110.jpg and /dev/null differ diff --git a/pics/27407330.jpg b/pics/27407330.jpg deleted file mode 100644 index 611026f1..00000000 Binary files a/pics/27407330.jpg and /dev/null differ diff --git a/pics/27408609.jpg b/pics/27408609.jpg deleted file mode 100644 index 8a8aac96..00000000 Binary files a/pics/27408609.jpg and /dev/null differ diff --git a/pics/27415516.jpg b/pics/27415516.jpg deleted file mode 100644 index ff322bff..00000000 Binary files a/pics/27415516.jpg and /dev/null differ diff --git a/pics/27416701.jpg b/pics/27416701.jpg deleted file mode 100644 index 83532d6b..00000000 Binary files a/pics/27416701.jpg and /dev/null differ diff --git a/pics/27450400.jpg b/pics/27450400.jpg deleted file mode 100644 index 5ec7d6e7..00000000 Binary files a/pics/27450400.jpg and /dev/null differ diff --git a/pics/27450401.jpg b/pics/27450401.jpg deleted file mode 100644 index d86cb930..00000000 Binary files a/pics/27450401.jpg and /dev/null differ diff --git a/pics/27491571.jpg b/pics/27491571.jpg deleted file mode 100644 index 489a9fd8..00000000 Binary files a/pics/27491571.jpg and /dev/null differ diff --git a/pics/27527047.jpg b/pics/27527047.jpg deleted file mode 100644 index fbdbf2c5..00000000 Binary files a/pics/27527047.jpg and /dev/null differ diff --git a/pics/27541267.jpg b/pics/27541267.jpg deleted file mode 100644 index 6d03cde4..00000000 Binary files a/pics/27541267.jpg and /dev/null differ diff --git a/pics/27551.jpg b/pics/27551.jpg deleted file mode 100644 index 6b9ef45b..00000000 Binary files a/pics/27551.jpg and /dev/null differ diff --git a/pics/27552504.jpg b/pics/27552504.jpg deleted file mode 100755 index 4726483f..00000000 Binary files a/pics/27552504.jpg and /dev/null differ diff --git a/pics/27564031.jpg b/pics/27564031.jpg deleted file mode 100644 index 2f80fcea..00000000 Binary files a/pics/27564031.jpg and /dev/null differ diff --git a/pics/27581098.jpg b/pics/27581098.jpg deleted file mode 100644 index 0703a58f..00000000 Binary files a/pics/27581098.jpg and /dev/null differ diff --git a/pics/2759860.jpg b/pics/2759860.jpg deleted file mode 100755 index 1eb43a3d..00000000 Binary files a/pics/2759860.jpg and /dev/null differ diff --git a/pics/27618634.jpg b/pics/27618634.jpg deleted file mode 100644 index f6eafa10..00000000 Binary files a/pics/27618634.jpg and /dev/null differ diff --git a/pics/27632240.jpg b/pics/27632240.jpg deleted file mode 100644 index fda95207..00000000 Binary files a/pics/27632240.jpg and /dev/null differ diff --git a/pics/27655513.jpg b/pics/27655513.jpg deleted file mode 100644 index 4ae4b3b5..00000000 Binary files a/pics/27655513.jpg and /dev/null differ diff --git a/pics/27660735.jpg b/pics/27660735.jpg deleted file mode 100755 index 7522c74b..00000000 Binary files a/pics/27660735.jpg and /dev/null differ diff --git a/pics/2766877.jpg b/pics/2766877.jpg deleted file mode 100644 index c5aafe39..00000000 Binary files a/pics/2766877.jpg and /dev/null differ diff --git a/pics/27671321.jpg b/pics/27671321.jpg deleted file mode 100644 index 9bf097d0..00000000 Binary files a/pics/27671321.jpg and /dev/null differ diff --git a/pics/2772236.jpg b/pics/2772236.jpg deleted file mode 100644 index 18e6a2c5..00000000 Binary files a/pics/2772236.jpg and /dev/null differ diff --git a/pics/27744077.jpg b/pics/27744077.jpg deleted file mode 100644 index 988b2d64..00000000 Binary files a/pics/27744077.jpg and /dev/null differ diff --git a/pics/27756115.jpg b/pics/27756115.jpg deleted file mode 100644 index ea7177ea..00000000 Binary files a/pics/27756115.jpg and /dev/null differ diff --git a/pics/27762803.jpg b/pics/27762803.jpg deleted file mode 100644 index 56478bcf..00000000 Binary files a/pics/27762803.jpg and /dev/null differ diff --git a/pics/27769400.jpg b/pics/27769400.jpg deleted file mode 100644 index ecb1b0ca..00000000 Binary files a/pics/27769400.jpg and /dev/null differ diff --git a/pics/27770341.jpg b/pics/27770341.jpg deleted file mode 100644 index d9c4708b..00000000 Binary files a/pics/27770341.jpg and /dev/null differ diff --git a/pics/27782503.jpg b/pics/27782503.jpg deleted file mode 100644 index bb13fa9f..00000000 Binary files a/pics/27782503.jpg and /dev/null differ diff --git a/pics/27796375.jpg b/pics/27796375.jpg deleted file mode 100644 index 16ad5b59..00000000 Binary files a/pics/27796375.jpg and /dev/null differ diff --git a/pics/2779999.jpg b/pics/2779999.jpg deleted file mode 100644 index e8961538..00000000 Binary files a/pics/2779999.jpg and /dev/null differ diff --git a/pics/27813661.jpg b/pics/27813661.jpg deleted file mode 100644 index ae58b288..00000000 Binary files a/pics/27813661.jpg and /dev/null differ diff --git a/pics/27821104.jpg b/pics/27821104.jpg deleted file mode 100644 index 6e19aba1..00000000 Binary files a/pics/27821104.jpg and /dev/null differ diff --git a/pics/27827272.jpg b/pics/27827272.jpg deleted file mode 100644 index 7004fd07..00000000 Binary files a/pics/27827272.jpg and /dev/null differ diff --git a/pics/27827903.jpg b/pics/27827903.jpg deleted file mode 100644 index c42a6f91..00000000 Binary files a/pics/27827903.jpg and /dev/null differ diff --git a/pics/27863269.jpg b/pics/27863269.jpg deleted file mode 100644 index 58c5b67e..00000000 Binary files a/pics/27863269.jpg and /dev/null differ diff --git a/pics/27869883.jpg b/pics/27869883.jpg deleted file mode 100644 index 06a50f4a..00000000 Binary files a/pics/27869883.jpg and /dev/null differ diff --git a/pics/27870033.jpg b/pics/27870033.jpg deleted file mode 100644 index b120df54..00000000 Binary files a/pics/27870033.jpg and /dev/null differ diff --git a/pics/27873305.jpg b/pics/27873305.jpg deleted file mode 100755 index 5a407e10..00000000 Binary files a/pics/27873305.jpg and /dev/null differ diff --git a/pics/27911549.jpg b/pics/27911549.jpg deleted file mode 100644 index ab436111..00000000 Binary files a/pics/27911549.jpg and /dev/null differ diff --git a/pics/27918963.jpg b/pics/27918963.jpg deleted file mode 100644 index d3b37fc6..00000000 Binary files a/pics/27918963.jpg and /dev/null differ diff --git a/pics/2792265.jpg b/pics/2792265.jpg deleted file mode 100644 index 544992d1..00000000 Binary files a/pics/2792265.jpg and /dev/null differ diff --git a/pics/27927359.jpg b/pics/27927359.jpg deleted file mode 100644 index 4e095dea..00000000 Binary files a/pics/27927359.jpg and /dev/null differ diff --git a/pics/27944249.jpg b/pics/27944249.jpg deleted file mode 100644 index 75e23747..00000000 Binary files a/pics/27944249.jpg and /dev/null differ diff --git a/pics/27967615.jpg b/pics/27967615.jpg deleted file mode 100644 index c27762ef..00000000 Binary files a/pics/27967615.jpg and /dev/null differ diff --git a/pics/27970830.jpg b/pics/27970830.jpg deleted file mode 100644 index 6b379237..00000000 Binary files a/pics/27970830.jpg and /dev/null differ diff --git a/pics/27971137.jpg b/pics/27971137.jpg deleted file mode 100644 index 1e391fe3..00000000 Binary files a/pics/27971137.jpg and /dev/null differ diff --git a/pics/27978707.jpg b/pics/27978707.jpg deleted file mode 100644 index 5fd9bc7e..00000000 Binary files a/pics/27978707.jpg and /dev/null differ diff --git a/pics/27980138.jpg b/pics/27980138.jpg deleted file mode 100644 index 14fc33b7..00000000 Binary files a/pics/27980138.jpg and /dev/null differ diff --git a/pics/27995943.jpg b/pics/27995943.jpg deleted file mode 100644 index 8b70522e..00000000 Binary files a/pics/27995943.jpg and /dev/null differ diff --git a/pics/28002611.jpg b/pics/28002611.jpg deleted file mode 100644 index 157c9d10..00000000 Binary files a/pics/28002611.jpg and /dev/null differ diff --git a/pics/28003512.jpg b/pics/28003512.jpg deleted file mode 100644 index a1704e60..00000000 Binary files a/pics/28003512.jpg and /dev/null differ diff --git a/pics/28062325.jpg b/pics/28062325.jpg deleted file mode 100644 index 17284d79..00000000 Binary files a/pics/28062325.jpg and /dev/null differ diff --git a/pics/28062326.jpg b/pics/28062326.jpg deleted file mode 100644 index 001617f8..00000000 Binary files a/pics/28062326.jpg and /dev/null differ diff --git a/pics/28066831.jpg b/pics/28066831.jpg deleted file mode 100644 index 35ba9394..00000000 Binary files a/pics/28066831.jpg and /dev/null differ diff --git a/pics/28106077.jpg b/pics/28106077.jpg deleted file mode 100644 index 236f681b..00000000 Binary files a/pics/28106077.jpg and /dev/null differ diff --git a/pics/2810642.jpg b/pics/2810642.jpg deleted file mode 100755 index 8b42d932..00000000 Binary files a/pics/2810642.jpg and /dev/null differ diff --git a/pics/28112535.jpg b/pics/28112535.jpg deleted file mode 100644 index 28f7edfd..00000000 Binary files a/pics/28112535.jpg and /dev/null differ diff --git a/pics/28118128.jpg b/pics/28118128.jpg deleted file mode 100644 index c21b2381..00000000 Binary files a/pics/28118128.jpg and /dev/null differ diff --git a/pics/28120197.jpg b/pics/28120197.jpg deleted file mode 100644 index 52d10e3b..00000000 Binary files a/pics/28120197.jpg and /dev/null differ diff --git a/pics/28121403.jpg b/pics/28121403.jpg deleted file mode 100644 index e027f06e..00000000 Binary files a/pics/28121403.jpg and /dev/null differ diff --git a/pics/28124263.jpg b/pics/28124263.jpg deleted file mode 100644 index 197c8e3c..00000000 Binary files a/pics/28124263.jpg and /dev/null differ diff --git a/pics/28143906.jpg b/pics/28143906.jpg deleted file mode 100644 index 7626068b..00000000 Binary files a/pics/28143906.jpg and /dev/null differ diff --git a/pics/28150174.jpg b/pics/28150174.jpg deleted file mode 100644 index 9a8e29e0..00000000 Binary files a/pics/28150174.jpg and /dev/null differ diff --git a/pics/28183605.jpg b/pics/28183605.jpg deleted file mode 100644 index 99b661d8..00000000 Binary files a/pics/28183605.jpg and /dev/null differ diff --git a/pics/28190303.jpg b/pics/28190303.jpg deleted file mode 100644 index 39cc89d9..00000000 Binary files a/pics/28190303.jpg and /dev/null differ diff --git a/pics/28194325.jpg b/pics/28194325.jpg deleted file mode 100644 index ef583a04..00000000 Binary files a/pics/28194325.jpg and /dev/null differ diff --git a/pics/28201945.jpg b/pics/28201945.jpg deleted file mode 100644 index 00d6efee..00000000 Binary files a/pics/28201945.jpg and /dev/null differ diff --git a/pics/28265983.jpg b/pics/28265983.jpg deleted file mode 100755 index fd9dd0c4..00000000 Binary files a/pics/28265983.jpg and /dev/null differ diff --git a/pics/28279543.jpg b/pics/28279543.jpg deleted file mode 100644 index df0eb6bb..00000000 Binary files a/pics/28279543.jpg and /dev/null differ diff --git a/pics/28284902.jpg b/pics/28284902.jpg deleted file mode 100644 index ce4708b9..00000000 Binary files a/pics/28284902.jpg and /dev/null differ diff --git a/pics/282886.jpg b/pics/282886.jpg deleted file mode 100644 index 473e74d5..00000000 Binary files a/pics/282886.jpg and /dev/null differ diff --git a/pics/28290705.jpg b/pics/28290705.jpg deleted file mode 100644 index 6042ecd3..00000000 Binary files a/pics/28290705.jpg and /dev/null differ diff --git a/pics/28297833.jpg b/pics/28297833.jpg deleted file mode 100644 index 9df07d31..00000000 Binary files a/pics/28297833.jpg and /dev/null differ diff --git a/pics/2830619.jpg b/pics/2830619.jpg deleted file mode 100644 index c379f518..00000000 Binary files a/pics/2830619.jpg and /dev/null differ diff --git a/pics/2830693.jpg b/pics/2830693.jpg deleted file mode 100644 index 8ef5e1f0..00000000 Binary files a/pics/2830693.jpg and /dev/null differ diff --git a/pics/28325165.jpg b/pics/28325165.jpg deleted file mode 100755 index 7287781d..00000000 Binary files a/pics/28325165.jpg and /dev/null differ diff --git a/pics/2833249.jpg b/pics/2833249.jpg deleted file mode 100644 index 4431cd2c..00000000 Binary files a/pics/2833249.jpg and /dev/null differ diff --git a/pics/28332833.jpg b/pics/28332833.jpg deleted file mode 100644 index bff7dbd0..00000000 Binary files a/pics/28332833.jpg and /dev/null differ diff --git a/pics/28348537.jpg b/pics/28348537.jpg deleted file mode 100644 index 0e060ee7..00000000 Binary files a/pics/28348537.jpg and /dev/null differ diff --git a/pics/28348939.jpg b/pics/28348939.jpg deleted file mode 100644 index c9f79302..00000000 Binary files a/pics/28348939.jpg and /dev/null differ diff --git a/pics/28355718.jpg b/pics/28355718.jpg deleted file mode 100644 index f9d253e8..00000000 Binary files a/pics/28355718.jpg and /dev/null differ diff --git a/pics/28355719.jpg b/pics/28355719.jpg deleted file mode 100644 index 7fc35052..00000000 Binary files a/pics/28355719.jpg and /dev/null differ diff --git a/pics/28357177.jpg b/pics/28357177.jpg deleted file mode 100644 index 39341669..00000000 Binary files a/pics/28357177.jpg and /dev/null differ diff --git a/pics/28358902.jpg b/pics/28358902.jpg deleted file mode 100644 index 367d435b..00000000 Binary files a/pics/28358902.jpg and /dev/null differ diff --git a/pics/28378427.jpg b/pics/28378427.jpg deleted file mode 100644 index f98a57e7..00000000 Binary files a/pics/28378427.jpg and /dev/null differ diff --git a/pics/28388296.jpg b/pics/28388296.jpg deleted file mode 100644 index e4d24445..00000000 Binary files a/pics/28388296.jpg and /dev/null differ diff --git a/pics/28423537.jpg b/pics/28423537.jpg deleted file mode 100644 index 64f763d1..00000000 Binary files a/pics/28423537.jpg and /dev/null differ diff --git a/pics/28429121.jpg b/pics/28429121.jpg deleted file mode 100644 index ab4c72cd..00000000 Binary files a/pics/28429121.jpg and /dev/null differ diff --git a/pics/2843014.jpg b/pics/2843014.jpg deleted file mode 100644 index e2cbb16a..00000000 Binary files a/pics/2843014.jpg and /dev/null differ diff --git a/pics/28450915.jpg b/pics/28450915.jpg deleted file mode 100644 index 37ed9ee0..00000000 Binary files a/pics/28450915.jpg and /dev/null differ diff --git a/pics/28465301.jpg b/pics/28465301.jpg deleted file mode 100644 index d2f334ca..00000000 Binary files a/pics/28465301.jpg and /dev/null differ diff --git a/pics/28470714.jpg b/pics/28470714.jpg deleted file mode 100644 index 8b1ee887..00000000 Binary files a/pics/28470714.jpg and /dev/null differ diff --git a/pics/28493337.jpg b/pics/28493337.jpg deleted file mode 100644 index 9e51ec00..00000000 Binary files a/pics/28493337.jpg and /dev/null differ diff --git a/pics/28506708.jpg b/pics/28506708.jpg deleted file mode 100644 index 16641656..00000000 Binary files a/pics/28506708.jpg and /dev/null differ diff --git a/pics/2851070.jpg b/pics/2851070.jpg deleted file mode 100644 index d566affc..00000000 Binary files a/pics/2851070.jpg and /dev/null differ diff --git a/pics/28529976.jpg b/pics/28529976.jpg deleted file mode 100644 index 65a9adce..00000000 Binary files a/pics/28529976.jpg and /dev/null differ diff --git a/pics/28546905.jpg b/pics/28546905.jpg deleted file mode 100644 index 3ae417ba..00000000 Binary files a/pics/28546905.jpg and /dev/null differ diff --git a/pics/28553439.jpg b/pics/28553439.jpg deleted file mode 100644 index 2fb716a2..00000000 Binary files a/pics/28553439.jpg and /dev/null differ diff --git a/pics/28563545.jpg b/pics/28563545.jpg deleted file mode 100644 index 0e71e968..00000000 Binary files a/pics/28563545.jpg and /dev/null differ diff --git a/pics/28565527.jpg b/pics/28565527.jpg deleted file mode 100644 index 2f9227bc..00000000 Binary files a/pics/28565527.jpg and /dev/null differ diff --git a/pics/28566710.jpg b/pics/28566710.jpg deleted file mode 100644 index 38ac1900..00000000 Binary files a/pics/28566710.jpg and /dev/null differ diff --git a/pics/28573958.jpg b/pics/28573958.jpg deleted file mode 100644 index bbe7c937..00000000 Binary files a/pics/28573958.jpg and /dev/null differ diff --git a/pics/28577986.jpg b/pics/28577986.jpg deleted file mode 100644 index 4d6d07f7..00000000 Binary files a/pics/28577986.jpg and /dev/null differ diff --git a/pics/28593363.jpg b/pics/28593363.jpg deleted file mode 100644 index c77f3590..00000000 Binary files a/pics/28593363.jpg and /dev/null differ diff --git a/pics/28596933.jpg b/pics/28596933.jpg deleted file mode 100644 index 7b95940a..00000000 Binary files a/pics/28596933.jpg and /dev/null differ diff --git a/pics/28601770.jpg b/pics/28601770.jpg deleted file mode 100644 index d95b46f3..00000000 Binary files a/pics/28601770.jpg and /dev/null differ diff --git a/pics/28604635.jpg b/pics/28604635.jpg deleted file mode 100644 index 522787b3..00000000 Binary files a/pics/28604635.jpg and /dev/null differ diff --git a/pics/28630501.jpg b/pics/28630501.jpg deleted file mode 100644 index e607c7fd..00000000 Binary files a/pics/28630501.jpg and /dev/null differ diff --git a/pics/2863439.jpg b/pics/2863439.jpg deleted file mode 100644 index 3b4b0970..00000000 Binary files a/pics/2863439.jpg and /dev/null differ diff --git a/pics/28637168.jpg b/pics/28637168.jpg deleted file mode 100644 index 6fc64427..00000000 Binary files a/pics/28637168.jpg and /dev/null differ diff --git a/pics/286392.jpg b/pics/286392.jpg deleted file mode 100644 index 801954c2..00000000 Binary files a/pics/286392.jpg and /dev/null differ diff --git a/pics/28643791.jpg b/pics/28643791.jpg deleted file mode 100644 index 4d9dc55b..00000000 Binary files a/pics/28643791.jpg and /dev/null differ diff --git a/pics/28649820.jpg b/pics/28649820.jpg deleted file mode 100644 index 24a01662..00000000 Binary files a/pics/28649820.jpg and /dev/null differ diff --git a/pics/28654932.jpg b/pics/28654932.jpg deleted file mode 100644 index fb67dced..00000000 Binary files a/pics/28654932.jpg and /dev/null differ diff --git a/pics/28674152.jpg b/pics/28674152.jpg deleted file mode 100755 index c7ebc5a5..00000000 Binary files a/pics/28674152.jpg and /dev/null differ diff --git a/pics/28674153.jpg b/pics/28674153.jpg deleted file mode 100755 index eb775cfc..00000000 Binary files a/pics/28674153.jpg and /dev/null differ diff --git a/pics/28677304.jpg b/pics/28677304.jpg deleted file mode 100644 index b2426564..00000000 Binary files a/pics/28677304.jpg and /dev/null differ diff --git a/pics/28725004.jpg b/pics/28725004.jpg deleted file mode 100644 index 0b3e9f24..00000000 Binary files a/pics/28725004.jpg and /dev/null differ diff --git a/pics/28741524.jpg b/pics/28741524.jpg deleted file mode 100644 index 91b98536..00000000 Binary files a/pics/28741524.jpg and /dev/null differ diff --git a/pics/28754338.jpg b/pics/28754338.jpg deleted file mode 100644 index 8585472f..00000000 Binary files a/pics/28754338.jpg and /dev/null differ diff --git a/pics/28859794.jpg b/pics/28859794.jpg deleted file mode 100644 index 7b4d77b7..00000000 Binary files a/pics/28859794.jpg and /dev/null differ diff --git a/pics/28865322.jpg b/pics/28865322.jpg deleted file mode 100644 index 652dea87..00000000 Binary files a/pics/28865322.jpg and /dev/null differ diff --git a/pics/28877100.jpg b/pics/28877100.jpg deleted file mode 100644 index 7b487913..00000000 Binary files a/pics/28877100.jpg and /dev/null differ diff --git a/pics/28877602.jpg b/pics/28877602.jpg deleted file mode 100644 index e0922d04..00000000 Binary files a/pics/28877602.jpg and /dev/null differ diff --git a/pics/28884172.jpg b/pics/28884172.jpg deleted file mode 100644 index 99da71bf..00000000 Binary files a/pics/28884172.jpg and /dev/null differ diff --git a/pics/28890974.jpg b/pics/28890974.jpg deleted file mode 100644 index e0af2ed5..00000000 Binary files a/pics/28890974.jpg and /dev/null differ diff --git a/pics/28912357.jpg b/pics/28912357.jpg deleted file mode 100644 index 0811ff81..00000000 Binary files a/pics/28912357.jpg and /dev/null differ diff --git a/pics/28933734.jpg b/pics/28933734.jpg deleted file mode 100644 index 49cec974..00000000 Binary files a/pics/28933734.jpg and /dev/null differ diff --git a/pics/28966434.jpg b/pics/28966434.jpg deleted file mode 100644 index 865f1a8d..00000000 Binary files a/pics/28966434.jpg and /dev/null differ diff --git a/pics/28985331.jpg b/pics/28985331.jpg deleted file mode 100644 index 4d1a0e9d..00000000 Binary files a/pics/28985331.jpg and /dev/null differ diff --git a/pics/28990150.jpg b/pics/28990150.jpg deleted file mode 100644 index 61264691..00000000 Binary files a/pics/28990150.jpg and /dev/null differ diff --git a/pics/29013526.jpg b/pics/29013526.jpg deleted file mode 100644 index 60854873..00000000 Binary files a/pics/29013526.jpg and /dev/null differ diff --git a/pics/2903036.jpg b/pics/2903036.jpg deleted file mode 100644 index b705ded9..00000000 Binary files a/pics/2903036.jpg and /dev/null differ diff --git a/pics/29047353.jpg b/pics/29047353.jpg deleted file mode 100755 index 861f3d41..00000000 Binary files a/pics/29047353.jpg and /dev/null differ diff --git a/pics/29054481.jpg b/pics/29054481.jpg deleted file mode 100644 index 71fd2364..00000000 Binary files a/pics/29054481.jpg and /dev/null differ diff --git a/pics/2906250.jpg b/pics/2906250.jpg deleted file mode 100644 index f15da277..00000000 Binary files a/pics/2906250.jpg and /dev/null differ diff --git a/pics/29071332.jpg b/pics/29071332.jpg deleted file mode 100644 index ee5ac340..00000000 Binary files a/pics/29071332.jpg and /dev/null differ diff --git a/pics/29087919.jpg b/pics/29087919.jpg deleted file mode 100644 index be43630c..00000000 Binary files a/pics/29087919.jpg and /dev/null differ diff --git a/pics/29088922.jpg b/pics/29088922.jpg deleted file mode 100644 index 2fa13328..00000000 Binary files a/pics/29088922.jpg and /dev/null differ diff --git a/pics/29095552.jpg b/pics/29095552.jpg deleted file mode 100644 index 68f203a5..00000000 Binary files a/pics/29095552.jpg and /dev/null differ diff --git a/pics/29116732.jpg b/pics/29116732.jpg deleted file mode 100644 index 17208560..00000000 Binary files a/pics/29116732.jpg and /dev/null differ diff --git a/pics/29139104.jpg b/pics/29139104.jpg deleted file mode 100644 index ea194767..00000000 Binary files a/pics/29139104.jpg and /dev/null differ diff --git a/pics/29143726.jpg b/pics/29143726.jpg deleted file mode 100644 index 109e9221..00000000 Binary files a/pics/29143726.jpg and /dev/null differ diff --git a/pics/29146185.jpg b/pics/29146185.jpg deleted file mode 100644 index b292eb5c..00000000 Binary files a/pics/29146185.jpg and /dev/null differ diff --git a/pics/29155212.jpg b/pics/29155212.jpg deleted file mode 100644 index ce7b7710..00000000 Binary files a/pics/29155212.jpg and /dev/null differ diff --git a/pics/29172562.jpg b/pics/29172562.jpg deleted file mode 100644 index 37ae9bf4..00000000 Binary files a/pics/29172562.jpg and /dev/null differ diff --git a/pics/29216198.jpg b/pics/29216198.jpg deleted file mode 100644 index 7554c3b4..00000000 Binary files a/pics/29216198.jpg and /dev/null differ diff --git a/pics/29216967.jpg b/pics/29216967.jpg deleted file mode 100644 index e661e6a1..00000000 Binary files a/pics/29216967.jpg and /dev/null differ diff --git a/pics/29223325.jpg b/pics/29223325.jpg deleted file mode 100644 index 311d1edd..00000000 Binary files a/pics/29223325.jpg and /dev/null differ diff --git a/pics/29228350.jpg b/pics/29228350.jpg deleted file mode 100644 index 0db33e59..00000000 Binary files a/pics/29228350.jpg and /dev/null differ diff --git a/pics/29228529.jpg b/pics/29228529.jpg deleted file mode 100644 index a236d5ab..00000000 Binary files a/pics/29228529.jpg and /dev/null differ diff --git a/pics/2924048.jpg b/pics/2924048.jpg deleted file mode 100644 index 1f9277cb..00000000 Binary files a/pics/2924048.jpg and /dev/null differ diff --git a/pics/29246354.jpg b/pics/29246354.jpg deleted file mode 100644 index c271eef5..00000000 Binary files a/pics/29246354.jpg and /dev/null differ diff --git a/pics/2926176.jpg b/pics/2926176.jpg deleted file mode 100644 index d7897d9a..00000000 Binary files a/pics/2926176.jpg and /dev/null differ diff --git a/pics/29267084.jpg b/pics/29267084.jpg deleted file mode 100644 index 79748d07..00000000 Binary files a/pics/29267084.jpg and /dev/null differ diff --git a/pics/29307554.jpg b/pics/29307554.jpg deleted file mode 100644 index c4fb4d5e..00000000 Binary files a/pics/29307554.jpg and /dev/null differ diff --git a/pics/29330706.jpg b/pics/29330706.jpg deleted file mode 100644 index 35fc498a..00000000 Binary files a/pics/29330706.jpg and /dev/null differ diff --git a/pics/29343734.jpg b/pics/29343734.jpg deleted file mode 100644 index 6e85fb98..00000000 Binary files a/pics/29343734.jpg and /dev/null differ diff --git a/pics/29353756.jpg b/pics/29353756.jpg deleted file mode 100644 index 09ca7f44..00000000 Binary files a/pics/29353756.jpg and /dev/null differ diff --git a/pics/293542.jpg b/pics/293542.jpg deleted file mode 100644 index bd9f9555..00000000 Binary files a/pics/293542.jpg and /dev/null differ diff --git a/pics/29357956.jpg b/pics/29357956.jpg deleted file mode 100644 index b5a71340..00000000 Binary files a/pics/29357956.jpg and /dev/null differ diff --git a/pics/29380133.jpg b/pics/29380133.jpg deleted file mode 100644 index e11f4091..00000000 Binary files a/pics/29380133.jpg and /dev/null differ diff --git a/pics/29389368.jpg b/pics/29389368.jpg deleted file mode 100644 index 82432429..00000000 Binary files a/pics/29389368.jpg and /dev/null differ diff --git a/pics/29400787.jpg b/pics/29400787.jpg deleted file mode 100644 index 49301561..00000000 Binary files a/pics/29400787.jpg and /dev/null differ diff --git a/pics/29401950.jpg b/pics/29401950.jpg deleted file mode 100644 index 9d0dd388..00000000 Binary files a/pics/29401950.jpg and /dev/null differ diff --git a/pics/29402771.jpg b/pics/29402771.jpg deleted file mode 100644 index 75506ebd..00000000 Binary files a/pics/29402771.jpg and /dev/null differ diff --git a/pics/29417188.jpg b/pics/29417188.jpg deleted file mode 100644 index 229d470d..00000000 Binary files a/pics/29417188.jpg and /dev/null differ diff --git a/pics/29424328.jpg b/pics/29424328.jpg deleted file mode 100644 index cb782d3c..00000000 Binary files a/pics/29424328.jpg and /dev/null differ diff --git a/pics/29436665.jpg b/pics/29436665.jpg deleted file mode 100644 index aaa5afaa..00000000 Binary files a/pics/29436665.jpg and /dev/null differ diff --git a/pics/29455728.jpg b/pics/29455728.jpg deleted file mode 100644 index 35a0a8fe..00000000 Binary files a/pics/29455728.jpg and /dev/null differ diff --git a/pics/2948263.jpg b/pics/2948263.jpg deleted file mode 100644 index cd0a87ed..00000000 Binary files a/pics/2948263.jpg and /dev/null differ diff --git a/pics/29491031.jpg b/pics/29491031.jpg deleted file mode 100644 index 3117043f..00000000 Binary files a/pics/29491031.jpg and /dev/null differ diff --git a/pics/29491334.jpg b/pics/29491334.jpg deleted file mode 100755 index 3d8b7fa5..00000000 Binary files a/pics/29491334.jpg and /dev/null differ diff --git a/pics/29491335.jpg b/pics/29491335.jpg deleted file mode 100755 index a3153426..00000000 Binary files a/pics/29491335.jpg and /dev/null differ diff --git a/pics/29515122.jpg b/pics/29515122.jpg deleted file mode 100644 index 8658cc53..00000000 Binary files a/pics/29515122.jpg and /dev/null differ diff --git a/pics/29549364.jpg b/pics/29549364.jpg deleted file mode 100644 index 5129e86d..00000000 Binary files a/pics/29549364.jpg and /dev/null differ diff --git a/pics/295517.jpg b/pics/295517.jpg deleted file mode 100644 index 07b1a5c6..00000000 Binary files a/pics/295517.jpg and /dev/null differ diff --git a/pics/29552709.jpg b/pics/29552709.jpg deleted file mode 100644 index 4ec42793..00000000 Binary files a/pics/29552709.jpg and /dev/null differ diff --git a/pics/2956282.jpg b/pics/2956282.jpg deleted file mode 100644 index ed17ea67..00000000 Binary files a/pics/2956282.jpg and /dev/null differ diff --git a/pics/2957055.jpg b/pics/2957055.jpg deleted file mode 100644 index 4118f6a2..00000000 Binary files a/pics/2957055.jpg and /dev/null differ diff --git a/pics/29587993.jpg b/pics/29587993.jpg deleted file mode 100644 index 799d9ffb..00000000 Binary files a/pics/29587993.jpg and /dev/null differ diff --git a/pics/29590752.jpg b/pics/29590752.jpg deleted file mode 100644 index e8a744b5..00000000 Binary files a/pics/29590752.jpg and /dev/null differ diff --git a/pics/29590905.jpg b/pics/29590905.jpg deleted file mode 100644 index 752939f6..00000000 Binary files a/pics/29590905.jpg and /dev/null differ diff --git a/pics/29612557.jpg b/pics/29612557.jpg deleted file mode 100644 index 2af58a0f..00000000 Binary files a/pics/29612557.jpg and /dev/null differ diff --git a/pics/29616929.jpg b/pics/29616929.jpg deleted file mode 100644 index d54a1dc0..00000000 Binary files a/pics/29616929.jpg and /dev/null differ diff --git a/pics/29616941.jpg b/pics/29616941.jpg deleted file mode 100644 index fc9fa53d..00000000 Binary files a/pics/29616941.jpg and /dev/null differ diff --git a/pics/29618570.jpg b/pics/29618570.jpg deleted file mode 100644 index 446b324e..00000000 Binary files a/pics/29618570.jpg and /dev/null differ diff --git a/pics/2964201.jpg b/pics/2964201.jpg deleted file mode 100644 index 63e2acdf..00000000 Binary files a/pics/2964201.jpg and /dev/null differ diff --git a/pics/296499.jpg b/pics/296499.jpg deleted file mode 100644 index 7eb5b69c..00000000 Binary files a/pics/296499.jpg and /dev/null differ diff --git a/pics/29654737.jpg b/pics/29654737.jpg deleted file mode 100644 index 84cb36e1..00000000 Binary files a/pics/29654737.jpg and /dev/null differ diff --git a/pics/29669359.jpg b/pics/29669359.jpg deleted file mode 100644 index e69c4dac..00000000 Binary files a/pics/29669359.jpg and /dev/null differ diff --git a/pics/29687169.jpg b/pics/29687169.jpg deleted file mode 100644 index 4a0a5fb6..00000000 Binary files a/pics/29687169.jpg and /dev/null differ diff --git a/pics/29692206.jpg b/pics/29692206.jpg deleted file mode 100644 index 67ff10ae..00000000 Binary files a/pics/29692206.jpg and /dev/null differ diff --git a/pics/2971090.jpg b/pics/2971090.jpg deleted file mode 100644 index 7e755ced..00000000 Binary files a/pics/2971090.jpg and /dev/null differ diff --git a/pics/29726552.jpg b/pics/29726552.jpg deleted file mode 100755 index c45f1951..00000000 Binary files a/pics/29726552.jpg and /dev/null differ diff --git a/pics/29735721.jpg b/pics/29735721.jpg deleted file mode 100644 index 6467af0c..00000000 Binary files a/pics/29735721.jpg and /dev/null differ diff --git a/pics/29762407.jpg b/pics/29762407.jpg deleted file mode 100644 index c3fce42a..00000000 Binary files a/pics/29762407.jpg and /dev/null differ diff --git a/pics/29765339.jpg b/pics/29765339.jpg deleted file mode 100644 index 3f22772e..00000000 Binary files a/pics/29765339.jpg and /dev/null differ diff --git a/pics/2978414.jpg b/pics/2978414.jpg deleted file mode 100644 index 0d5e3bb7..00000000 Binary files a/pics/2978414.jpg and /dev/null differ diff --git a/pics/29795530.jpg b/pics/29795530.jpg deleted file mode 100644 index faf55428..00000000 Binary files a/pics/29795530.jpg and /dev/null differ diff --git a/pics/29802344.jpg b/pics/29802344.jpg deleted file mode 100644 index 6f1e0224..00000000 Binary files a/pics/29802344.jpg and /dev/null differ diff --git a/pics/2980764.jpg b/pics/2980764.jpg deleted file mode 100644 index 6126fd00..00000000 Binary files a/pics/2980764.jpg and /dev/null differ diff --git a/pics/29826127.jpg b/pics/29826127.jpg deleted file mode 100644 index 3e20e925..00000000 Binary files a/pics/29826127.jpg and /dev/null differ diff --git a/pics/29834183.jpg b/pics/29834183.jpg deleted file mode 100755 index 2653bde0..00000000 Binary files a/pics/29834183.jpg and /dev/null differ diff --git a/pics/29843091.jpg b/pics/29843091.jpg deleted file mode 100644 index 76220794..00000000 Binary files a/pics/29843091.jpg and /dev/null differ diff --git a/pics/29843092.jpg b/pics/29843092.jpg deleted file mode 100644 index e5938452..00000000 Binary files a/pics/29843092.jpg and /dev/null differ diff --git a/pics/29843093.jpg b/pics/29843093.jpg deleted file mode 100644 index 2e7b3469..00000000 Binary files a/pics/29843093.jpg and /dev/null differ diff --git a/pics/29843094.jpg b/pics/29843094.jpg deleted file mode 100644 index 0d76a5b3..00000000 Binary files a/pics/29843094.jpg and /dev/null differ diff --git a/pics/29863101.jpg b/pics/29863101.jpg deleted file mode 100644 index 3362f03d..00000000 Binary files a/pics/29863101.jpg and /dev/null differ diff --git a/pics/2986553.jpg b/pics/2986553.jpg deleted file mode 100644 index d32bd39a..00000000 Binary files a/pics/2986553.jpg and /dev/null differ diff --git a/pics/29876529.jpg b/pics/29876529.jpg deleted file mode 100644 index bb2e45cb..00000000 Binary files a/pics/29876529.jpg and /dev/null differ diff --git a/pics/29888389.jpg b/pics/29888389.jpg deleted file mode 100644 index 850cbf3f..00000000 Binary files a/pics/29888389.jpg and /dev/null differ diff --git a/pics/29904964.jpg b/pics/29904964.jpg deleted file mode 100755 index 067d16b5..00000000 Binary files a/pics/29904964.jpg and /dev/null differ diff --git a/pics/29905795.jpg b/pics/29905795.jpg deleted file mode 100644 index 393f075a..00000000 Binary files a/pics/29905795.jpg and /dev/null differ diff --git a/pics/29929832.jpg b/pics/29929832.jpg deleted file mode 100644 index 4d0e99a1..00000000 Binary files a/pics/29929832.jpg and /dev/null differ diff --git a/pics/29934351.jpg b/pics/29934351.jpg deleted file mode 100644 index a1362592..00000000 Binary files a/pics/29934351.jpg and /dev/null differ diff --git a/pics/29947751.jpg b/pics/29947751.jpg deleted file mode 100644 index f2c22e0e..00000000 Binary files a/pics/29947751.jpg and /dev/null differ diff --git a/pics/29948642.jpg b/pics/29948642.jpg deleted file mode 100644 index b5327a52..00000000 Binary files a/pics/29948642.jpg and /dev/null differ diff --git a/pics/29981921.jpg b/pics/29981921.jpg deleted file mode 100644 index 8a1d94d5..00000000 Binary files a/pics/29981921.jpg and /dev/null differ diff --git a/pics/29999161.jpg b/pics/29999161.jpg deleted file mode 100644 index ef8847ba..00000000 Binary files a/pics/29999161.jpg and /dev/null differ diff --git a/pics/30042158.jpg b/pics/30042158.jpg deleted file mode 100644 index d102f510..00000000 Binary files a/pics/30042158.jpg and /dev/null differ diff --git a/pics/30068120.jpg b/pics/30068120.jpg deleted file mode 100644 index 22b35afd..00000000 Binary files a/pics/30068120.jpg and /dev/null differ diff --git a/pics/30069398.jpg b/pics/30069398.jpg deleted file mode 100644 index c8ef59af..00000000 Binary files a/pics/30069398.jpg and /dev/null differ diff --git a/pics/30069399.jpg b/pics/30069399.jpg deleted file mode 100644 index 042947ad..00000000 Binary files a/pics/30069399.jpg and /dev/null differ diff --git a/pics/30079770.jpg b/pics/30079770.jpg deleted file mode 100755 index a5ce92f2..00000000 Binary files a/pics/30079770.jpg and /dev/null differ diff --git a/pics/30090452.jpg b/pics/30090452.jpg deleted file mode 100644 index 82b7fd00..00000000 Binary files a/pics/30090452.jpg and /dev/null differ diff --git a/pics/30100551.jpg b/pics/30100551.jpg deleted file mode 100644 index e0f098fb..00000000 Binary files a/pics/30100551.jpg and /dev/null differ diff --git a/pics/30106950.jpg b/pics/30106950.jpg deleted file mode 100644 index ad72be93..00000000 Binary files a/pics/30106950.jpg and /dev/null differ diff --git a/pics/30113682.jpg b/pics/30113682.jpg deleted file mode 100644 index 926bd349..00000000 Binary files a/pics/30113682.jpg and /dev/null differ diff --git a/pics/30123142.jpg b/pics/30123142.jpg deleted file mode 100644 index 40c34629..00000000 Binary files a/pics/30123142.jpg and /dev/null differ diff --git a/pics/30126992.jpg b/pics/30126992.jpg deleted file mode 100644 index 2da19556..00000000 Binary files a/pics/30126992.jpg and /dev/null differ diff --git a/pics/30127518.jpg b/pics/30127518.jpg deleted file mode 100644 index 695b7c4a..00000000 Binary files a/pics/30127518.jpg and /dev/null differ diff --git a/pics/30155789.jpg b/pics/30155789.jpg deleted file mode 100644 index 0abf6d41..00000000 Binary files a/pics/30155789.jpg and /dev/null differ diff --git a/pics/30170981.jpg b/pics/30170981.jpg deleted file mode 100644 index 6ea6a841..00000000 Binary files a/pics/30170981.jpg and /dev/null differ diff --git a/pics/30190809.jpg b/pics/30190809.jpg deleted file mode 100644 index a98f90af..00000000 Binary files a/pics/30190809.jpg and /dev/null differ diff --git a/pics/3019642.jpg b/pics/3019642.jpg deleted file mode 100644 index 56c5f50f..00000000 Binary files a/pics/3019642.jpg and /dev/null differ diff --git a/pics/30208479.jpg b/pics/30208479.jpg deleted file mode 100644 index 6b057a43..00000000 Binary files a/pics/30208479.jpg and /dev/null differ diff --git a/pics/30213599.jpg b/pics/30213599.jpg deleted file mode 100644 index 93c68f34..00000000 Binary files a/pics/30213599.jpg and /dev/null differ diff --git a/pics/30230789.jpg b/pics/30230789.jpg deleted file mode 100644 index d16f40ea..00000000 Binary files a/pics/30230789.jpg and /dev/null differ diff --git a/pics/30241314.jpg b/pics/30241314.jpg deleted file mode 100644 index 561a86f9..00000000 Binary files a/pics/30241314.jpg and /dev/null differ diff --git a/pics/30243636.jpg b/pics/30243636.jpg deleted file mode 100644 index c38a0b85..00000000 Binary files a/pics/30243636.jpg and /dev/null differ diff --git a/pics/3027001.jpg b/pics/3027001.jpg deleted file mode 100644 index ca19dc1c..00000000 Binary files a/pics/3027001.jpg and /dev/null differ diff --git a/pics/30276969.jpg b/pics/30276969.jpg deleted file mode 100644 index 46e3ad7a..00000000 Binary files a/pics/30276969.jpg and /dev/null differ diff --git a/pics/30299166.jpg b/pics/30299166.jpg deleted file mode 100644 index fb235edb..00000000 Binary files a/pics/30299166.jpg and /dev/null differ diff --git a/pics/3030892.jpg b/pics/3030892.jpg deleted file mode 100644 index 33cb09c6..00000000 Binary files a/pics/3030892.jpg and /dev/null differ diff --git a/pics/30312361.jpg b/pics/30312361.jpg deleted file mode 100644 index 15bd22c4..00000000 Binary files a/pics/30312361.jpg and /dev/null differ diff --git a/pics/30314994.jpg b/pics/30314994.jpg deleted file mode 100644 index 584b2d26..00000000 Binary files a/pics/30314994.jpg and /dev/null differ diff --git a/pics/30325729.jpg b/pics/30325729.jpg deleted file mode 100644 index c38900ec..00000000 Binary files a/pics/30325729.jpg and /dev/null differ diff --git a/pics/30328508.jpg b/pics/30328508.jpg deleted file mode 100644 index 94a43f7b..00000000 Binary files a/pics/30328508.jpg and /dev/null differ diff --git a/pics/30334522.jpg b/pics/30334522.jpg deleted file mode 100644 index 3017b7fa..00000000 Binary files a/pics/30334522.jpg and /dev/null differ diff --git a/pics/30338466.jpg b/pics/30338466.jpg deleted file mode 100644 index c860a93d..00000000 Binary files a/pics/30338466.jpg and /dev/null differ diff --git a/pics/30341772.jpg b/pics/30341772.jpg deleted file mode 100644 index 36946b0a..00000000 Binary files a/pics/30341772.jpg and /dev/null differ diff --git a/pics/30353551.jpg b/pics/30353551.jpg deleted file mode 100644 index 4cec4d03..00000000 Binary files a/pics/30353551.jpg and /dev/null differ diff --git a/pics/303660.jpg b/pics/303660.jpg deleted file mode 100644 index 02ad7fbc..00000000 Binary files a/pics/303660.jpg and /dev/null differ diff --git a/pics/30392583.jpg b/pics/30392583.jpg deleted file mode 100755 index 45384782..00000000 Binary files a/pics/30392583.jpg and /dev/null differ diff --git a/pics/30398342.jpg b/pics/30398342.jpg deleted file mode 100644 index d595958e..00000000 Binary files a/pics/30398342.jpg and /dev/null differ diff --git a/pics/30399511.jpg b/pics/30399511.jpg deleted file mode 100644 index 3be77920..00000000 Binary files a/pics/30399511.jpg and /dev/null differ diff --git a/pics/30435145.jpg b/pics/30435145.jpg deleted file mode 100644 index 652aa151..00000000 Binary files a/pics/30435145.jpg and /dev/null differ diff --git a/pics/30450531.jpg b/pics/30450531.jpg deleted file mode 100644 index 3e48d0c9..00000000 Binary files a/pics/30450531.jpg and /dev/null differ diff --git a/pics/30451366.jpg b/pics/30451366.jpg deleted file mode 100644 index 499092fe..00000000 Binary files a/pics/30451366.jpg and /dev/null differ diff --git a/pics/30459350.jpg b/pics/30459350.jpg deleted file mode 100644 index 20053c15..00000000 Binary files a/pics/30459350.jpg and /dev/null differ diff --git a/pics/30461781.jpg b/pics/30461781.jpg deleted file mode 100644 index 2ca875ff..00000000 Binary files a/pics/30461781.jpg and /dev/null differ diff --git a/pics/30464153.jpg b/pics/30464153.jpg deleted file mode 100644 index f9f08537..00000000 Binary files a/pics/30464153.jpg and /dev/null differ diff --git a/pics/30488793.jpg b/pics/30488793.jpg deleted file mode 100644 index 484d0c9b..00000000 Binary files a/pics/30488793.jpg and /dev/null differ diff --git a/pics/30492798.jpg b/pics/30492798.jpg deleted file mode 100644 index 81939c02..00000000 Binary files a/pics/30492798.jpg and /dev/null differ diff --git a/pics/30494314.jpg b/pics/30494314.jpg deleted file mode 100644 index 87129d97..00000000 Binary files a/pics/30494314.jpg and /dev/null differ diff --git a/pics/30500113.jpg b/pics/30500113.jpg deleted file mode 100755 index 904130dd..00000000 Binary files a/pics/30500113.jpg and /dev/null differ diff --git a/pics/30502181.jpg b/pics/30502181.jpg deleted file mode 100644 index 7ef872ef..00000000 Binary files a/pics/30502181.jpg and /dev/null differ diff --git a/pics/30525991.jpg b/pics/30525991.jpg deleted file mode 100644 index d1172e8c..00000000 Binary files a/pics/30525991.jpg and /dev/null differ diff --git a/pics/30531525.jpg b/pics/30531525.jpg deleted file mode 100644 index c2b0d63d..00000000 Binary files a/pics/30531525.jpg and /dev/null differ diff --git a/pics/30532390.jpg b/pics/30532390.jpg deleted file mode 100644 index 3a2fb85c..00000000 Binary files a/pics/30532390.jpg and /dev/null differ diff --git a/pics/30548775.jpg b/pics/30548775.jpg deleted file mode 100644 index 475a2618..00000000 Binary files a/pics/30548775.jpg and /dev/null differ diff --git a/pics/3055837.jpg b/pics/3055837.jpg deleted file mode 100644 index 30083a04..00000000 Binary files a/pics/3055837.jpg and /dev/null differ diff --git a/pics/30562585.jpg b/pics/30562585.jpg deleted file mode 100644 index 644390fc..00000000 Binary files a/pics/30562585.jpg and /dev/null differ diff --git a/pics/3056267.jpg b/pics/3056267.jpg deleted file mode 100644 index 15a29b65..00000000 Binary files a/pics/3056267.jpg and /dev/null differ diff --git a/pics/30575681.jpg b/pics/30575681.jpg deleted file mode 100644 index 7563a14c..00000000 Binary files a/pics/30575681.jpg and /dev/null differ diff --git a/pics/30585393.jpg b/pics/30585393.jpg deleted file mode 100644 index a1ddc2a0..00000000 Binary files a/pics/30585393.jpg and /dev/null differ diff --git a/pics/30587695.jpg b/pics/30587695.jpg deleted file mode 100644 index 4b271c85..00000000 Binary files a/pics/30587695.jpg and /dev/null differ diff --git a/pics/30600344.jpg b/pics/30600344.jpg deleted file mode 100644 index c85fd804..00000000 Binary files a/pics/30600344.jpg and /dev/null differ diff --git a/pics/30604579.jpg b/pics/30604579.jpg deleted file mode 100644 index 7e8eff8d..00000000 Binary files a/pics/30604579.jpg and /dev/null differ diff --git a/pics/30606547.jpg b/pics/30606547.jpg deleted file mode 100644 index c393f61e..00000000 Binary files a/pics/30606547.jpg and /dev/null differ diff --git a/pics/30608985.jpg b/pics/30608985.jpg deleted file mode 100644 index 57afa001..00000000 Binary files a/pics/30608985.jpg and /dev/null differ diff --git a/pics/30643162.jpg b/pics/30643162.jpg deleted file mode 100644 index 34abeb18..00000000 Binary files a/pics/30643162.jpg and /dev/null differ diff --git a/pics/3064425.jpg b/pics/3064425.jpg deleted file mode 100644 index 9e42f4cc..00000000 Binary files a/pics/3064425.jpg and /dev/null differ diff --git a/pics/30646525.jpg b/pics/30646525.jpg deleted file mode 100644 index a7524922..00000000 Binary files a/pics/30646525.jpg and /dev/null differ diff --git a/pics/30653113.jpg b/pics/30653113.jpg deleted file mode 100644 index b95c37e1..00000000 Binary files a/pics/30653113.jpg and /dev/null differ diff --git a/pics/30655537.jpg b/pics/30655537.jpg deleted file mode 100644 index 86c9c076..00000000 Binary files a/pics/30655537.jpg and /dev/null differ diff --git a/pics/30683373.jpg b/pics/30683373.jpg deleted file mode 100644 index 5b9b78a4..00000000 Binary files a/pics/30683373.jpg and /dev/null differ diff --git a/pics/3070049.jpg b/pics/3070049.jpg deleted file mode 100644 index 19181062..00000000 Binary files a/pics/3070049.jpg and /dev/null differ diff --git a/pics/30707994.jpg b/pics/30707994.jpg deleted file mode 100644 index e64ef1d2..00000000 Binary files a/pics/30707994.jpg and /dev/null differ diff --git a/pics/3072077.jpg b/pics/3072077.jpg deleted file mode 100644 index 49c23b07..00000000 Binary files a/pics/3072077.jpg and /dev/null differ diff --git a/pics/3072808.jpg b/pics/3072808.jpg deleted file mode 100644 index 3a17218f..00000000 Binary files a/pics/3072808.jpg and /dev/null differ diff --git a/pics/30741334.jpg b/pics/30741334.jpg deleted file mode 100644 index 45a68801..00000000 Binary files a/pics/30741334.jpg and /dev/null differ diff --git a/pics/30757396.jpg b/pics/30757396.jpg deleted file mode 100644 index 51068b38..00000000 Binary files a/pics/30757396.jpg and /dev/null differ diff --git a/pics/30770156.jpg b/pics/30770156.jpg deleted file mode 100644 index 3963ad46..00000000 Binary files a/pics/30770156.jpg and /dev/null differ diff --git a/pics/30778711.jpg b/pics/30778711.jpg deleted file mode 100644 index 7f1f84c7..00000000 Binary files a/pics/30778711.jpg and /dev/null differ diff --git a/pics/3078576.jpg b/pics/3078576.jpg deleted file mode 100644 index 942aaacb..00000000 Binary files a/pics/3078576.jpg and /dev/null differ diff --git a/pics/30794966.jpg b/pics/30794966.jpg deleted file mode 100644 index a8c24bfc..00000000 Binary files a/pics/30794966.jpg and /dev/null differ diff --git a/pics/30811116.jpg b/pics/30811116.jpg deleted file mode 100644 index cba049ea..00000000 Binary files a/pics/30811116.jpg and /dev/null differ diff --git a/pics/30811117.jpg b/pics/30811117.jpg deleted file mode 100644 index 24e5b8c9..00000000 Binary files a/pics/30811117.jpg and /dev/null differ diff --git a/pics/30834988.jpg b/pics/30834988.jpg deleted file mode 100644 index 9325e715..00000000 Binary files a/pics/30834988.jpg and /dev/null differ diff --git a/pics/30845999.jpg b/pics/30845999.jpg deleted file mode 100644 index 2f5ad3e5..00000000 Binary files a/pics/30845999.jpg and /dev/null differ diff --git a/pics/30860696.jpg b/pics/30860696.jpg deleted file mode 100644 index a77a4151..00000000 Binary files a/pics/30860696.jpg and /dev/null differ diff --git a/pics/30888983.jpg b/pics/30888983.jpg deleted file mode 100644 index 90a5d81e..00000000 Binary files a/pics/30888983.jpg and /dev/null differ diff --git a/pics/30914564.jpg b/pics/30914564.jpg deleted file mode 100644 index 17f46061..00000000 Binary files a/pics/30914564.jpg and /dev/null differ diff --git a/pics/30915572.jpg b/pics/30915572.jpg deleted file mode 100644 index b5d02b8f..00000000 Binary files a/pics/30915572.jpg and /dev/null differ diff --git a/pics/30922149.jpg b/pics/30922149.jpg deleted file mode 100755 index f94481ce..00000000 Binary files a/pics/30922149.jpg and /dev/null differ diff --git a/pics/30929786.jpg b/pics/30929786.jpg deleted file mode 100644 index 3caa65e4..00000000 Binary files a/pics/30929786.jpg and /dev/null differ diff --git a/pics/30936186.jpg b/pics/30936186.jpg deleted file mode 100644 index 485889e9..00000000 Binary files a/pics/30936186.jpg and /dev/null differ diff --git a/pics/31000575.jpg b/pics/31000575.jpg deleted file mode 100644 index b7bf1b66..00000000 Binary files a/pics/31000575.jpg and /dev/null differ diff --git a/pics/31034919.jpg b/pics/31034919.jpg deleted file mode 100644 index 3beee73c..00000000 Binary files a/pics/31034919.jpg and /dev/null differ diff --git a/pics/31036355.jpg b/pics/31036355.jpg deleted file mode 100644 index c55f0284..00000000 Binary files a/pics/31036355.jpg and /dev/null differ diff --git a/pics/31038159.jpg b/pics/31038159.jpg deleted file mode 100644 index 23578068..00000000 Binary files a/pics/31038159.jpg and /dev/null differ diff --git a/pics/31044787.jpg b/pics/31044787.jpg deleted file mode 100755 index 5efc5aa5..00000000 Binary files a/pics/31044787.jpg and /dev/null differ diff --git a/pics/31053337.jpg b/pics/31053337.jpg deleted file mode 100644 index 057a96ec..00000000 Binary files a/pics/31053337.jpg and /dev/null differ diff --git a/pics/3105404.jpg b/pics/3105404.jpg deleted file mode 100755 index 99109431..00000000 Binary files a/pics/3105404.jpg and /dev/null differ diff --git a/pics/31061682.jpg b/pics/31061682.jpg deleted file mode 100755 index f3bb2865..00000000 Binary files a/pics/31061682.jpg and /dev/null differ diff --git a/pics/31066283.jpg b/pics/31066283.jpg deleted file mode 100644 index e021cc03..00000000 Binary files a/pics/31066283.jpg and /dev/null differ diff --git a/pics/31076103.jpg b/pics/31076103.jpg deleted file mode 100644 index b4470bfe..00000000 Binary files a/pics/31076103.jpg and /dev/null differ diff --git a/pics/31077447.jpg b/pics/31077447.jpg deleted file mode 100644 index b9c25418..00000000 Binary files a/pics/31077447.jpg and /dev/null differ diff --git a/pics/31111109.jpg b/pics/31111109.jpg deleted file mode 100644 index d2dfbb00..00000000 Binary files a/pics/31111109.jpg and /dev/null differ diff --git a/pics/31118030.jpg b/pics/31118030.jpg deleted file mode 100755 index 04d555ba..00000000 Binary files a/pics/31118030.jpg and /dev/null differ diff --git a/pics/31122090.jpg b/pics/31122090.jpg deleted file mode 100644 index b66dca5f..00000000 Binary files a/pics/31122090.jpg and /dev/null differ diff --git a/pics/31122091.jpg b/pics/31122091.jpg deleted file mode 100644 index 11419b41..00000000 Binary files a/pics/31122091.jpg and /dev/null differ diff --git a/pics/3113836.jpg b/pics/3113836.jpg deleted file mode 100644 index 38ab0901..00000000 Binary files a/pics/3113836.jpg and /dev/null differ diff --git a/pics/31173519.jpg b/pics/31173519.jpg deleted file mode 100644 index a860377b..00000000 Binary files a/pics/31173519.jpg and /dev/null differ diff --git a/pics/31175914.jpg b/pics/31175914.jpg deleted file mode 100644 index f0e9405e..00000000 Binary files a/pics/31175914.jpg and /dev/null differ diff --git a/pics/3117804.jpg b/pics/3117804.jpg deleted file mode 100644 index 1b8e9cb0..00000000 Binary files a/pics/3117804.jpg and /dev/null differ diff --git a/pics/31178212.jpg b/pics/31178212.jpg deleted file mode 100755 index 2e7269f4..00000000 Binary files a/pics/31178212.jpg and /dev/null differ diff --git a/pics/31181711.jpg b/pics/31181711.jpg deleted file mode 100644 index 49f2a78c..00000000 Binary files a/pics/31181711.jpg and /dev/null differ diff --git a/pics/31222701.jpg b/pics/31222701.jpg deleted file mode 100755 index 58255a63..00000000 Binary files a/pics/31222701.jpg and /dev/null differ diff --git a/pics/31242786.jpg b/pics/31242786.jpg deleted file mode 100644 index 253cade1..00000000 Binary files a/pics/31242786.jpg and /dev/null differ diff --git a/pics/31245780.jpg b/pics/31245780.jpg deleted file mode 100644 index 9a41701a..00000000 Binary files a/pics/31245780.jpg and /dev/null differ diff --git a/pics/31247589.jpg b/pics/31247589.jpg deleted file mode 100644 index d9209606..00000000 Binary files a/pics/31247589.jpg and /dev/null differ diff --git a/pics/31281980.jpg b/pics/31281980.jpg deleted file mode 100644 index 17b0f90d..00000000 Binary files a/pics/31281980.jpg and /dev/null differ diff --git a/pics/31292357.jpg b/pics/31292357.jpg deleted file mode 100755 index abeb0ca2..00000000 Binary files a/pics/31292357.jpg and /dev/null differ diff --git a/pics/3129635.jpg b/pics/3129635.jpg deleted file mode 100644 index b54a6390..00000000 Binary files a/pics/3129635.jpg and /dev/null differ diff --git a/pics/31303283.jpg b/pics/31303283.jpg deleted file mode 100644 index 3979b0de..00000000 Binary files a/pics/31303283.jpg and /dev/null differ diff --git a/pics/31305911.jpg b/pics/31305911.jpg deleted file mode 100644 index af878ab8..00000000 Binary files a/pics/31305911.jpg and /dev/null differ diff --git a/pics/31314549.jpg b/pics/31314549.jpg deleted file mode 100755 index d1c0177d..00000000 Binary files a/pics/31314549.jpg and /dev/null differ diff --git a/pics/31320433.jpg b/pics/31320433.jpg deleted file mode 100644 index 0d5a0555..00000000 Binary files a/pics/31320433.jpg and /dev/null differ diff --git a/pics/31328739.jpg b/pics/31328739.jpg deleted file mode 100644 index e3d11913..00000000 Binary files a/pics/31328739.jpg and /dev/null differ diff --git a/pics/31339260.jpg b/pics/31339260.jpg deleted file mode 100644 index 4b2bb93e..00000000 Binary files a/pics/31339260.jpg and /dev/null differ diff --git a/pics/3134241.jpg b/pics/3134241.jpg deleted file mode 100644 index 0db8a88f..00000000 Binary files a/pics/3134241.jpg and /dev/null differ diff --git a/pics/313513.jpg b/pics/313513.jpg deleted file mode 100644 index c833b4d3..00000000 Binary files a/pics/313513.jpg and /dev/null differ diff --git a/pics/3136426.jpg b/pics/3136426.jpg deleted file mode 100644 index baf2ef23..00000000 Binary files a/pics/3136426.jpg and /dev/null differ diff --git a/pics/31383545.jpg b/pics/31383545.jpg deleted file mode 100644 index 317bf2b2..00000000 Binary files a/pics/31383545.jpg and /dev/null differ diff --git a/pics/31385077.jpg b/pics/31385077.jpg deleted file mode 100644 index 420320b5..00000000 Binary files a/pics/31385077.jpg and /dev/null differ diff --git a/pics/31386180.jpg b/pics/31386180.jpg deleted file mode 100644 index 0dca0aa2..00000000 Binary files a/pics/31386180.jpg and /dev/null differ diff --git a/pics/31423101.jpg b/pics/31423101.jpg deleted file mode 100644 index 4c0edda1..00000000 Binary files a/pics/31423101.jpg and /dev/null differ diff --git a/pics/31437713.jpg b/pics/31437713.jpg deleted file mode 100644 index 9a76bd02..00000000 Binary files a/pics/31437713.jpg and /dev/null differ diff --git a/pics/31440542.jpg b/pics/31440542.jpg deleted file mode 100644 index 876437ce..00000000 Binary files a/pics/31440542.jpg and /dev/null differ diff --git a/pics/31444249.jpg b/pics/31444249.jpg deleted file mode 100755 index 78c785b3..00000000 Binary files a/pics/31444249.jpg and /dev/null differ diff --git a/pics/31447217.jpg b/pics/31447217.jpg deleted file mode 100644 index 99acf6b3..00000000 Binary files a/pics/31447217.jpg and /dev/null differ diff --git a/pics/31456110.jpg b/pics/31456110.jpg deleted file mode 100644 index b80c8aab..00000000 Binary files a/pics/31456110.jpg and /dev/null differ diff --git a/pics/3146695.jpg b/pics/3146695.jpg deleted file mode 100644 index 353d4f6c..00000000 Binary files a/pics/3146695.jpg and /dev/null differ diff --git a/pics/31467372.jpg b/pics/31467372.jpg deleted file mode 100644 index 04ea4cd9..00000000 Binary files a/pics/31467372.jpg and /dev/null differ diff --git a/pics/31476755.jpg b/pics/31476755.jpg deleted file mode 100644 index 6ccbf407..00000000 Binary files a/pics/31476755.jpg and /dev/null differ diff --git a/pics/31477025.jpg b/pics/31477025.jpg deleted file mode 100644 index 43e3e9ae..00000000 Binary files a/pics/31477025.jpg and /dev/null differ diff --git a/pics/31480215.jpg b/pics/31480215.jpg deleted file mode 100644 index 3cb7ab6b..00000000 Binary files a/pics/31480215.jpg and /dev/null differ diff --git a/pics/31480216.jpg b/pics/31480216.jpg deleted file mode 100644 index d46490d2..00000000 Binary files a/pics/31480216.jpg and /dev/null differ diff --git a/pics/3149764.jpg b/pics/3149764.jpg deleted file mode 100644 index 0140e01e..00000000 Binary files a/pics/3149764.jpg and /dev/null differ diff --git a/pics/31516413.jpg b/pics/31516413.jpg deleted file mode 100644 index 78b08e1d..00000000 Binary files a/pics/31516413.jpg and /dev/null differ diff --git a/pics/31531170.jpg b/pics/31531170.jpg deleted file mode 100644 index d003c7e9..00000000 Binary files a/pics/31531170.jpg and /dev/null differ diff --git a/pics/31533704.jpg b/pics/31533704.jpg deleted file mode 100644 index e8fe7920..00000000 Binary files a/pics/31533704.jpg and /dev/null differ diff --git a/pics/31533705.jpg b/pics/31533705.jpg deleted file mode 100644 index 55623f3a..00000000 Binary files a/pics/31533705.jpg and /dev/null differ diff --git a/pics/31550470.jpg b/pics/31550470.jpg deleted file mode 100644 index ff535480..00000000 Binary files a/pics/31550470.jpg and /dev/null differ diff --git a/pics/31553716.jpg b/pics/31553716.jpg deleted file mode 100644 index 6b84bd9b..00000000 Binary files a/pics/31553716.jpg and /dev/null differ diff --git a/pics/31554054.jpg b/pics/31554054.jpg deleted file mode 100644 index a94f2cb3..00000000 Binary files a/pics/31554054.jpg and /dev/null differ diff --git a/pics/31557782.jpg b/pics/31557782.jpg deleted file mode 100644 index 2813d5eb..00000000 Binary files a/pics/31557782.jpg and /dev/null differ diff --git a/pics/31560081.jpg b/pics/31560081.jpg deleted file mode 100644 index f34136ea..00000000 Binary files a/pics/31560081.jpg and /dev/null differ diff --git a/pics/31563350.jpg b/pics/31563350.jpg deleted file mode 100644 index bd10545f..00000000 Binary files a/pics/31563350.jpg and /dev/null differ diff --git a/pics/31571902.jpg b/pics/31571902.jpg deleted file mode 100644 index 2944739b..00000000 Binary files a/pics/31571902.jpg and /dev/null differ diff --git a/pics/316000124.jpg b/pics/316000124.jpg deleted file mode 100644 index f387bce4..00000000 Binary files a/pics/316000124.jpg and /dev/null differ diff --git a/pics/3160805.jpg b/pics/3160805.jpg deleted file mode 100644 index b9738ef5..00000000 Binary files a/pics/3160805.jpg and /dev/null differ diff --git a/pics/31615285.jpg b/pics/31615285.jpg deleted file mode 100644 index 4c7d8b0e..00000000 Binary files a/pics/31615285.jpg and /dev/null differ diff --git a/pics/31632536.jpg b/pics/31632536.jpg deleted file mode 100644 index fa65e426..00000000 Binary files a/pics/31632536.jpg and /dev/null differ diff --git a/pics/3167573.jpg b/pics/3167573.jpg deleted file mode 100644 index 231102ef..00000000 Binary files a/pics/3167573.jpg and /dev/null differ diff --git a/pics/31677606.jpg b/pics/31677606.jpg deleted file mode 100644 index 8f9f79d3..00000000 Binary files a/pics/31677606.jpg and /dev/null differ diff --git a/pics/31692182.jpg b/pics/31692182.jpg deleted file mode 100644 index 33659096..00000000 Binary files a/pics/31692182.jpg and /dev/null differ diff --git a/pics/3170832.jpg b/pics/3170832.jpg deleted file mode 100644 index d4917bec..00000000 Binary files a/pics/3170832.jpg and /dev/null differ diff --git a/pics/31709826.jpg b/pics/31709826.jpg deleted file mode 100644 index a64c1d77..00000000 Binary files a/pics/31709826.jpg and /dev/null differ diff --git a/pics/3171055.jpg b/pics/3171055.jpg deleted file mode 100644 index 77a35d88..00000000 Binary files a/pics/3171055.jpg and /dev/null differ diff --git a/pics/31764353.jpg b/pics/31764353.jpg deleted file mode 100644 index 3439570c..00000000 Binary files a/pics/31764353.jpg and /dev/null differ diff --git a/pics/31764700.jpg b/pics/31764700.jpg deleted file mode 100644 index d40ed758..00000000 Binary files a/pics/31764700.jpg and /dev/null differ diff --git a/pics/31766317.jpg b/pics/31766317.jpg deleted file mode 100644 index 1ae73244..00000000 Binary files a/pics/31766317.jpg and /dev/null differ diff --git a/pics/31768112.jpg b/pics/31768112.jpg deleted file mode 100644 index 755930f9..00000000 Binary files a/pics/31768112.jpg and /dev/null differ diff --git a/pics/31785398.jpg b/pics/31785398.jpg deleted file mode 100644 index df177c3b..00000000 Binary files a/pics/31785398.jpg and /dev/null differ diff --git a/pics/31786629.jpg b/pics/31786629.jpg deleted file mode 100644 index fb0e0591..00000000 Binary files a/pics/31786629.jpg and /dev/null differ diff --git a/pics/31801517.jpg b/pics/31801517.jpg deleted file mode 100644 index af2f4c4d..00000000 Binary files a/pics/31801517.jpg and /dev/null differ diff --git a/pics/31812496.jpg b/pics/31812496.jpg deleted file mode 100644 index c141bb9f..00000000 Binary files a/pics/31812496.jpg and /dev/null differ diff --git a/pics/31826057.jpg b/pics/31826057.jpg deleted file mode 100644 index e10e41d7..00000000 Binary files a/pics/31826057.jpg and /dev/null differ diff --git a/pics/31828916.jpg b/pics/31828916.jpg deleted file mode 100644 index aab9dfbb..00000000 Binary files a/pics/31828916.jpg and /dev/null differ diff --git a/pics/31829185.jpg b/pics/31829185.jpg deleted file mode 100644 index 4df99ac5..00000000 Binary files a/pics/31829185.jpg and /dev/null differ diff --git a/pics/31849106.jpg b/pics/31849106.jpg deleted file mode 100644 index ac1eeb72..00000000 Binary files a/pics/31849106.jpg and /dev/null differ diff --git a/pics/31863912.jpg b/pics/31863912.jpg deleted file mode 100644 index 94ee249e..00000000 Binary files a/pics/31863912.jpg and /dev/null differ diff --git a/pics/31887905.jpg b/pics/31887905.jpg deleted file mode 100644 index 897dd4ac..00000000 Binary files a/pics/31887905.jpg and /dev/null differ diff --git a/pics/31890399.jpg b/pics/31890399.jpg deleted file mode 100644 index f135e156..00000000 Binary files a/pics/31890399.jpg and /dev/null differ diff --git a/pics/31893528.jpg b/pics/31893528.jpg deleted file mode 100644 index 2ca06ca2..00000000 Binary files a/pics/31893528.jpg and /dev/null differ diff --git a/pics/31904181.jpg b/pics/31904181.jpg deleted file mode 100644 index 66b860a5..00000000 Binary files a/pics/31904181.jpg and /dev/null differ diff --git a/pics/31919988.jpg b/pics/31919988.jpg deleted file mode 100644 index 29df2486..00000000 Binary files a/pics/31919988.jpg and /dev/null differ diff --git a/pics/31924889.jpg b/pics/31924889.jpg deleted file mode 100644 index 56500acc..00000000 Binary files a/pics/31924889.jpg and /dev/null differ diff --git a/pics/31930787.jpg b/pics/31930787.jpg deleted file mode 100644 index 5008dc77..00000000 Binary files a/pics/31930787.jpg and /dev/null differ diff --git a/pics/31975743.jpg b/pics/31975743.jpg deleted file mode 100644 index b44d6d28..00000000 Binary files a/pics/31975743.jpg and /dev/null differ diff --git a/pics/31986288.jpg b/pics/31986288.jpg deleted file mode 100644 index 4594e55e..00000000 Binary files a/pics/31986288.jpg and /dev/null differ diff --git a/pics/31986289.jpg b/pics/31986289.jpg deleted file mode 100644 index 1add2502..00000000 Binary files a/pics/31986289.jpg and /dev/null differ diff --git a/pics/31987274.jpg b/pics/31987274.jpg deleted file mode 100644 index 68070fa2..00000000 Binary files a/pics/31987274.jpg and /dev/null differ diff --git a/pics/31991800.jpg b/pics/31991800.jpg deleted file mode 100755 index 8e48870b..00000000 Binary files a/pics/31991800.jpg and /dev/null differ diff --git a/pics/32003338.jpg b/pics/32003338.jpg deleted file mode 100644 index 3f1537b9..00000000 Binary files a/pics/32003338.jpg and /dev/null differ diff --git a/pics/32003339.jpg b/pics/32003339.jpg deleted file mode 100644 index 3258edef..00000000 Binary files a/pics/32003339.jpg and /dev/null differ diff --git a/pics/32012841.jpg b/pics/32012841.jpg deleted file mode 100644 index 48ffd90c..00000000 Binary files a/pics/32012841.jpg and /dev/null differ diff --git a/pics/32012842.jpg b/pics/32012842.jpg deleted file mode 100644 index 733ce05a..00000000 Binary files a/pics/32012842.jpg and /dev/null differ diff --git a/pics/32013448.jpg b/pics/32013448.jpg deleted file mode 100644 index 3f3f83af..00000000 Binary files a/pics/32013448.jpg and /dev/null differ diff --git a/pics/32015116.jpg b/pics/32015116.jpg deleted file mode 100644 index 3824e674..00000000 Binary files a/pics/32015116.jpg and /dev/null differ diff --git a/pics/32022366.jpg b/pics/32022366.jpg deleted file mode 100644 index 74259d7d..00000000 Binary files a/pics/32022366.jpg and /dev/null differ diff --git a/pics/3204467.jpg b/pics/3204467.jpg deleted file mode 100644 index 46bb10f7..00000000 Binary files a/pics/3204467.jpg and /dev/null differ diff --git a/pics/32061744.jpg b/pics/32061744.jpg deleted file mode 100644 index 4aeeda4d..00000000 Binary files a/pics/32061744.jpg and /dev/null differ diff --git a/pics/32062913.jpg b/pics/32062913.jpg deleted file mode 100644 index ce0d79f5..00000000 Binary files a/pics/32062913.jpg and /dev/null differ diff --git a/pics/32065885.jpg b/pics/32065885.jpg deleted file mode 100644 index 794f54c2..00000000 Binary files a/pics/32065885.jpg and /dev/null differ diff --git a/pics/32086564.jpg b/pics/32086564.jpg deleted file mode 100644 index 8fd3590a..00000000 Binary files a/pics/32086564.jpg and /dev/null differ diff --git a/pics/3211439.jpg b/pics/3211439.jpg deleted file mode 100755 index 07855ff8..00000000 Binary files a/pics/3211439.jpg and /dev/null differ diff --git a/pics/32146097.jpg b/pics/32146097.jpg deleted file mode 100755 index 6e4ff3b7..00000000 Binary files a/pics/32146097.jpg and /dev/null differ diff --git a/pics/32180819.jpg b/pics/32180819.jpg deleted file mode 100644 index 86fcec9d..00000000 Binary files a/pics/32180819.jpg and /dev/null differ diff --git a/pics/32202803.jpg b/pics/32202803.jpg deleted file mode 100644 index 818ef114..00000000 Binary files a/pics/32202803.jpg and /dev/null differ diff --git a/pics/32207100.jpg b/pics/32207100.jpg deleted file mode 100644 index f83bc9be..00000000 Binary files a/pics/32207100.jpg and /dev/null differ diff --git a/pics/32224143.jpg b/pics/32224143.jpg deleted file mode 100644 index 69a3a6a9..00000000 Binary files a/pics/32224143.jpg and /dev/null differ diff --git a/pics/32231618.jpg b/pics/32231618.jpg deleted file mode 100755 index a95b8059..00000000 Binary files a/pics/32231618.jpg and /dev/null differ diff --git a/pics/32233746.jpg b/pics/32233746.jpg deleted file mode 100644 index 04f7d66a..00000000 Binary files a/pics/32233746.jpg and /dev/null differ diff --git a/pics/32240937.jpg b/pics/32240937.jpg deleted file mode 100644 index 522fdc37..00000000 Binary files a/pics/32240937.jpg and /dev/null differ diff --git a/pics/32268901.jpg b/pics/32268901.jpg deleted file mode 100644 index 3d018dd0..00000000 Binary files a/pics/32268901.jpg and /dev/null differ diff --git a/pics/32269855.jpg b/pics/32269855.jpg deleted file mode 100644 index ac9e7913..00000000 Binary files a/pics/32269855.jpg and /dev/null differ diff --git a/pics/32271987.jpg b/pics/32271987.jpg deleted file mode 100644 index 85d5be5f..00000000 Binary files a/pics/32271987.jpg and /dev/null differ diff --git a/pics/32274490.jpg b/pics/32274490.jpg deleted file mode 100644 index 48cb4c32..00000000 Binary files a/pics/32274490.jpg and /dev/null differ diff --git a/pics/32296881.jpg b/pics/32296881.jpg deleted file mode 100644 index 4947366d..00000000 Binary files a/pics/32296881.jpg and /dev/null differ diff --git a/pics/32298781.jpg b/pics/32298781.jpg deleted file mode 100644 index 28781550..00000000 Binary files a/pics/32298781.jpg and /dev/null differ diff --git a/pics/32314730.jpg b/pics/32314730.jpg deleted file mode 100644 index f3027c37..00000000 Binary files a/pics/32314730.jpg and /dev/null differ diff --git a/pics/32339440.jpg b/pics/32339440.jpg deleted file mode 100644 index d3108413..00000000 Binary files a/pics/32339440.jpg and /dev/null differ diff --git a/pics/32344688.jpg b/pics/32344688.jpg deleted file mode 100644 index 3fc0195d..00000000 Binary files a/pics/32344688.jpg and /dev/null differ diff --git a/pics/32354768.jpg b/pics/32354768.jpg deleted file mode 100644 index 4a0a7e76..00000000 Binary files a/pics/32354768.jpg and /dev/null differ diff --git a/pics/32355828.jpg b/pics/32355828.jpg deleted file mode 100644 index 5ac77144..00000000 Binary files a/pics/32355828.jpg and /dev/null differ diff --git a/pics/32362575.jpg b/pics/32362575.jpg deleted file mode 100644 index 79182424..00000000 Binary files a/pics/32362575.jpg and /dev/null differ diff --git a/pics/32391566.jpg b/pics/32391566.jpg deleted file mode 100644 index 953bc536..00000000 Binary files a/pics/32391566.jpg and /dev/null differ diff --git a/pics/32391631.jpg b/pics/32391631.jpg deleted file mode 100644 index 49a4108c..00000000 Binary files a/pics/32391631.jpg and /dev/null differ diff --git a/pics/32393580.jpg b/pics/32393580.jpg deleted file mode 100644 index 334954c6..00000000 Binary files a/pics/32393580.jpg and /dev/null differ diff --git a/pics/32437102.jpg b/pics/32437102.jpg deleted file mode 100644 index a329b561..00000000 Binary files a/pics/32437102.jpg and /dev/null differ diff --git a/pics/32441317.jpg b/pics/32441317.jpg deleted file mode 100644 index b7702fc8..00000000 Binary files a/pics/32441317.jpg and /dev/null differ diff --git a/pics/3244563.jpg b/pics/3244563.jpg deleted file mode 100644 index ab3968cf..00000000 Binary files a/pics/3244563.jpg and /dev/null differ diff --git a/pics/32446630.jpg b/pics/32446630.jpg deleted file mode 100644 index 8ef548bb..00000000 Binary files a/pics/32446630.jpg and /dev/null differ diff --git a/pics/32446631.jpg b/pics/32446631.jpg deleted file mode 100644 index e9bd5588..00000000 Binary files a/pics/32446631.jpg and /dev/null differ diff --git a/pics/32452818.jpg b/pics/32452818.jpg deleted file mode 100644 index 0f145224..00000000 Binary files a/pics/32452818.jpg and /dev/null differ diff --git a/pics/32476434.jpg b/pics/32476434.jpg deleted file mode 100644 index 5e5d4d3f..00000000 Binary files a/pics/32476434.jpg and /dev/null differ diff --git a/pics/32485271.jpg b/pics/32485271.jpg deleted file mode 100644 index 758b8c7b..00000000 Binary files a/pics/32485271.jpg and /dev/null differ diff --git a/pics/32485518.jpg b/pics/32485518.jpg deleted file mode 100644 index 0ae43ec4..00000000 Binary files a/pics/32485518.jpg and /dev/null differ diff --git a/pics/32491822.jpg b/pics/32491822.jpg deleted file mode 100644 index ece83c2a..00000000 Binary files a/pics/32491822.jpg and /dev/null differ diff --git a/pics/32539892.jpg b/pics/32539892.jpg deleted file mode 100644 index b50ff5ef..00000000 Binary files a/pics/32539892.jpg and /dev/null differ diff --git a/pics/32541773.jpg b/pics/32541773.jpg deleted file mode 100644 index cf3e6362..00000000 Binary files a/pics/32541773.jpg and /dev/null differ diff --git a/pics/32542011.jpg b/pics/32542011.jpg deleted file mode 100644 index 5b01a32e..00000000 Binary files a/pics/32542011.jpg and /dev/null differ diff --git a/pics/32543380.jpg b/pics/32543380.jpg deleted file mode 100644 index dffd124a..00000000 Binary files a/pics/32543380.jpg and /dev/null differ diff --git a/pics/32548609.jpg b/pics/32548609.jpg deleted file mode 100644 index ea60f4c0..00000000 Binary files a/pics/32548609.jpg and /dev/null differ diff --git a/pics/32559361.jpg b/pics/32559361.jpg deleted file mode 100644 index c51ed167..00000000 Binary files a/pics/32559361.jpg and /dev/null differ diff --git a/pics/32566831.jpg b/pics/32566831.jpg deleted file mode 100755 index 975572c9..00000000 Binary files a/pics/32566831.jpg and /dev/null differ diff --git a/pics/32569498.jpg b/pics/32569498.jpg deleted file mode 100644 index 50c3e6b4..00000000 Binary files a/pics/32569498.jpg and /dev/null differ diff --git a/pics/32603633.jpg b/pics/32603633.jpg deleted file mode 100644 index ff979a39..00000000 Binary files a/pics/32603633.jpg and /dev/null differ diff --git a/pics/32619583.jpg b/pics/32619583.jpg deleted file mode 100644 index 8b46d930..00000000 Binary files a/pics/32619583.jpg and /dev/null differ diff --git a/pics/32623004.jpg b/pics/32623004.jpg deleted file mode 100644 index fb75e533..00000000 Binary files a/pics/32623004.jpg and /dev/null differ diff --git a/pics/32626733.jpg b/pics/32626733.jpg deleted file mode 100644 index df77f5f1..00000000 Binary files a/pics/32626733.jpg and /dev/null differ diff --git a/pics/32646477.jpg b/pics/32646477.jpg deleted file mode 100644 index 3a3e9d4a..00000000 Binary files a/pics/32646477.jpg and /dev/null differ diff --git a/pics/32663969.jpg b/pics/32663969.jpg deleted file mode 100644 index 999dbff0..00000000 Binary files a/pics/32663969.jpg and /dev/null differ diff --git a/pics/32679370.jpg b/pics/32679370.jpg deleted file mode 100644 index 17f64fac..00000000 Binary files a/pics/32679370.jpg and /dev/null differ diff --git a/pics/32696942.jpg b/pics/32696942.jpg deleted file mode 100644 index 9cd1fd52..00000000 Binary files a/pics/32696942.jpg and /dev/null differ diff --git a/pics/32703716.jpg b/pics/32703716.jpg deleted file mode 100644 index eb00e694..00000000 Binary files a/pics/32703716.jpg and /dev/null differ diff --git a/pics/32710364.jpg b/pics/32710364.jpg deleted file mode 100644 index a875afd9..00000000 Binary files a/pics/32710364.jpg and /dev/null differ diff --git a/pics/32723153.jpg b/pics/32723153.jpg deleted file mode 100644 index e9ff1458..00000000 Binary files a/pics/32723153.jpg and /dev/null differ diff --git a/pics/32744558.jpg b/pics/32744558.jpg deleted file mode 100644 index 35129f0f..00000000 Binary files a/pics/32744558.jpg and /dev/null differ diff --git a/pics/32750341.jpg b/pics/32750341.jpg deleted file mode 100644 index 22c8b02f..00000000 Binary files a/pics/32750341.jpg and /dev/null differ diff --git a/pics/32750510.jpg b/pics/32750510.jpg deleted file mode 100644 index 69b98d7c..00000000 Binary files a/pics/32750510.jpg and /dev/null differ diff --git a/pics/32751480.jpg b/pics/32751480.jpg deleted file mode 100644 index 765be9a2..00000000 Binary files a/pics/32751480.jpg and /dev/null differ diff --git a/pics/32752319.jpg b/pics/32752319.jpg deleted file mode 100644 index b4d5e467..00000000 Binary files a/pics/32752319.jpg and /dev/null differ diff --git a/pics/32754886.jpg b/pics/32754886.jpg deleted file mode 100644 index c84b84a3..00000000 Binary files a/pics/32754886.jpg and /dev/null differ diff --git a/pics/32761286.jpg b/pics/32761286.jpg deleted file mode 100644 index ee794434..00000000 Binary files a/pics/32761286.jpg and /dev/null differ diff --git a/pics/32787239.jpg b/pics/32787239.jpg deleted file mode 100755 index 88b00029..00000000 Binary files a/pics/32787239.jpg and /dev/null differ diff --git a/pics/3280747.jpg b/pics/3280747.jpg deleted file mode 100644 index e60ee50b..00000000 Binary files a/pics/3280747.jpg and /dev/null differ diff --git a/pics/32807846.jpg b/pics/32807846.jpg deleted file mode 100644 index 7ed7ccc9..00000000 Binary files a/pics/32807846.jpg and /dev/null differ diff --git a/pics/32809211.jpg b/pics/32809211.jpg deleted file mode 100644 index 73f9070a..00000000 Binary files a/pics/32809211.jpg and /dev/null differ diff --git a/pics/32835363.jpg b/pics/32835363.jpg deleted file mode 100644 index e1af6fb9..00000000 Binary files a/pics/32835363.jpg and /dev/null differ diff --git a/pics/3283679.jpg b/pics/3283679.jpg deleted file mode 100644 index c501add8..00000000 Binary files a/pics/3283679.jpg and /dev/null differ diff --git a/pics/32854013.jpg b/pics/32854013.jpg deleted file mode 100644 index 11340130..00000000 Binary files a/pics/32854013.jpg and /dev/null differ diff --git a/pics/32864.jpg b/pics/32864.jpg deleted file mode 100644 index 02526dfb..00000000 Binary files a/pics/32864.jpg and /dev/null differ diff --git a/pics/32872833.jpg b/pics/32872833.jpg deleted file mode 100644 index 913e5e3b..00000000 Binary files a/pics/32872833.jpg and /dev/null differ diff --git a/pics/32907538.jpg b/pics/32907538.jpg deleted file mode 100644 index 390514d2..00000000 Binary files a/pics/32907538.jpg and /dev/null differ diff --git a/pics/32918479.jpg b/pics/32918479.jpg deleted file mode 100644 index 626d8f17..00000000 Binary files a/pics/32918479.jpg and /dev/null differ diff --git a/pics/32919136.jpg b/pics/32919136.jpg deleted file mode 100644 index 8abeb02a..00000000 Binary files a/pics/32919136.jpg and /dev/null differ diff --git a/pics/32933942.jpg b/pics/32933942.jpg deleted file mode 100644 index a981ee7f..00000000 Binary files a/pics/32933942.jpg and /dev/null differ diff --git a/pics/32995007.jpg b/pics/32995007.jpg deleted file mode 100644 index d9927082..00000000 Binary files a/pics/32995007.jpg and /dev/null differ diff --git a/pics/32999573.jpg b/pics/32999573.jpg deleted file mode 100644 index 4702295d..00000000 Binary files a/pics/32999573.jpg and /dev/null differ diff --git a/pics/3300267.jpg b/pics/3300267.jpg deleted file mode 100644 index 208e4174..00000000 Binary files a/pics/3300267.jpg and /dev/null differ diff --git a/pics/33017655.jpg b/pics/33017655.jpg deleted file mode 100644 index 14843db3..00000000 Binary files a/pics/33017655.jpg and /dev/null differ diff --git a/pics/33031674.jpg b/pics/33031674.jpg deleted file mode 100644 index 4f085fc1..00000000 Binary files a/pics/33031674.jpg and /dev/null differ diff --git a/pics/33034646.jpg b/pics/33034646.jpg deleted file mode 100644 index abc81a97..00000000 Binary files a/pics/33034646.jpg and /dev/null differ diff --git a/pics/33057951.jpg b/pics/33057951.jpg deleted file mode 100644 index 4eb8c9bc..00000000 Binary files a/pics/33057951.jpg and /dev/null differ diff --git a/pics/33064647.jpg b/pics/33064647.jpg deleted file mode 100644 index d7e81304..00000000 Binary files a/pics/33064647.jpg and /dev/null differ diff --git a/pics/33066139.jpg b/pics/33066139.jpg deleted file mode 100644 index d623a6eb..00000000 Binary files a/pics/33066139.jpg and /dev/null differ diff --git a/pics/33093439.jpg b/pics/33093439.jpg deleted file mode 100644 index c82133e5..00000000 Binary files a/pics/33093439.jpg and /dev/null differ diff --git a/pics/33112041.jpg b/pics/33112041.jpg deleted file mode 100644 index 91d9beb1..00000000 Binary files a/pics/33112041.jpg and /dev/null differ diff --git a/pics/33114323.jpg b/pics/33114323.jpg deleted file mode 100644 index afad3c8a..00000000 Binary files a/pics/33114323.jpg and /dev/null differ diff --git a/pics/33145233.jpg b/pics/33145233.jpg deleted file mode 100644 index c117254b..00000000 Binary files a/pics/33145233.jpg and /dev/null differ diff --git a/pics/33178416.jpg b/pics/33178416.jpg deleted file mode 100644 index 971dec2b..00000000 Binary files a/pics/33178416.jpg and /dev/null differ diff --git a/pics/33184167.jpg b/pics/33184167.jpg deleted file mode 100644 index cedd26b2..00000000 Binary files a/pics/33184167.jpg and /dev/null differ diff --git a/pics/33184236.jpg b/pics/33184236.jpg deleted file mode 100644 index 74e6ce91..00000000 Binary files a/pics/33184236.jpg and /dev/null differ diff --git a/pics/33198837.jpg b/pics/33198837.jpg deleted file mode 100644 index 7f6c5c93..00000000 Binary files a/pics/33198837.jpg and /dev/null differ diff --git a/pics/33225925.jpg b/pics/33225925.jpg deleted file mode 100644 index 89a24683..00000000 Binary files a/pics/33225925.jpg and /dev/null differ diff --git a/pics/33236860.jpg b/pics/33236860.jpg deleted file mode 100644 index 13e3a4c8..00000000 Binary files a/pics/33236860.jpg and /dev/null differ diff --git a/pics/33244944.jpg b/pics/33244944.jpg deleted file mode 100755 index 5036e0fa..00000000 Binary files a/pics/33244944.jpg and /dev/null differ diff --git a/pics/33245030.jpg b/pics/33245030.jpg deleted file mode 100644 index 00b4f4a2..00000000 Binary files a/pics/33245030.jpg and /dev/null differ diff --git a/pics/33248692.jpg b/pics/33248692.jpg deleted file mode 100644 index 2230c106..00000000 Binary files a/pics/33248692.jpg and /dev/null differ diff --git a/pics/33252803.jpg b/pics/33252803.jpg deleted file mode 100644 index 1f06a9f6..00000000 Binary files a/pics/33252803.jpg and /dev/null differ diff --git a/pics/33302407.jpg b/pics/33302407.jpg deleted file mode 100644 index f3661ee7..00000000 Binary files a/pics/33302407.jpg and /dev/null differ diff --git a/pics/33323657.jpg b/pics/33323657.jpg deleted file mode 100644 index 3c6f57d7..00000000 Binary files a/pics/33323657.jpg and /dev/null differ diff --git a/pics/33347467.jpg b/pics/33347467.jpg deleted file mode 100644 index dfe34803..00000000 Binary files a/pics/33347467.jpg and /dev/null differ diff --git a/pics/33365932.jpg b/pics/33365932.jpg deleted file mode 100644 index 43e5cfe2..00000000 Binary files a/pics/33365932.jpg and /dev/null differ diff --git a/pics/33396948.jpg b/pics/33396948.jpg deleted file mode 100755 index 53247b63..00000000 Binary files a/pics/33396948.jpg and /dev/null differ diff --git a/pics/33413279.jpg b/pics/33413279.jpg deleted file mode 100644 index 6a1ff56c..00000000 Binary files a/pics/33413279.jpg and /dev/null differ diff --git a/pics/33413638.jpg b/pics/33413638.jpg deleted file mode 100644 index fd73dd43..00000000 Binary files a/pics/33413638.jpg and /dev/null differ diff --git a/pics/33420078.jpg b/pics/33420078.jpg deleted file mode 100644 index 2ad55d4f..00000000 Binary files a/pics/33420078.jpg and /dev/null differ diff --git a/pics/33423043.jpg b/pics/33423043.jpg deleted file mode 100644 index 9c312b05..00000000 Binary files a/pics/33423043.jpg and /dev/null differ diff --git a/pics/33453260.jpg b/pics/33453260.jpg deleted file mode 100755 index 189d0b53..00000000 Binary files a/pics/33453260.jpg and /dev/null differ diff --git a/pics/33455338.jpg b/pics/33455338.jpg deleted file mode 100644 index b5ef5a26..00000000 Binary files a/pics/33455338.jpg and /dev/null differ diff --git a/pics/33508719.jpg b/pics/33508719.jpg deleted file mode 100644 index 70cc181e..00000000 Binary files a/pics/33508719.jpg and /dev/null differ diff --git a/pics/33537328.jpg b/pics/33537328.jpg deleted file mode 100644 index f1ee0b84..00000000 Binary files a/pics/33537328.jpg and /dev/null differ diff --git a/pics/33550694.jpg b/pics/33550694.jpg deleted file mode 100644 index 9746d506..00000000 Binary files a/pics/33550694.jpg and /dev/null differ diff --git a/pics/33551032.jpg b/pics/33551032.jpg deleted file mode 100644 index f85724f0..00000000 Binary files a/pics/33551032.jpg and /dev/null differ diff --git a/pics/33574806.jpg b/pics/33574806.jpg deleted file mode 100644 index bb5bd4ad..00000000 Binary files a/pics/33574806.jpg and /dev/null differ diff --git a/pics/33609262.jpg b/pics/33609262.jpg deleted file mode 100644 index 5da49cad..00000000 Binary files a/pics/33609262.jpg and /dev/null differ diff --git a/pics/33611061.jpg b/pics/33611061.jpg deleted file mode 100644 index 247f8c77..00000000 Binary files a/pics/33611061.jpg and /dev/null differ diff --git a/pics/33621868.jpg b/pics/33621868.jpg deleted file mode 100644 index 805a4b7f..00000000 Binary files a/pics/33621868.jpg and /dev/null differ diff --git a/pics/33622465.jpg b/pics/33622465.jpg deleted file mode 100755 index b86cb200..00000000 Binary files a/pics/33622465.jpg and /dev/null differ diff --git a/pics/336369.jpg b/pics/336369.jpg deleted file mode 100644 index f7e5ec41..00000000 Binary files a/pics/336369.jpg and /dev/null differ diff --git a/pics/33655493.jpg b/pics/33655493.jpg deleted file mode 100644 index efde9742..00000000 Binary files a/pics/33655493.jpg and /dev/null differ diff --git a/pics/33665663.jpg b/pics/33665663.jpg deleted file mode 100644 index acd2954e..00000000 Binary files a/pics/33665663.jpg and /dev/null differ diff --git a/pics/3366982.jpg b/pics/3366982.jpg deleted file mode 100644 index 5e74d18c..00000000 Binary files a/pics/3366982.jpg and /dev/null differ diff --git a/pics/33691040.jpg b/pics/33691040.jpg deleted file mode 100644 index 7c65c982..00000000 Binary files a/pics/33691040.jpg and /dev/null differ diff --git a/pics/33695750.jpg b/pics/33695750.jpg deleted file mode 100644 index 5e3dd087..00000000 Binary files a/pics/33695750.jpg and /dev/null differ diff --git a/pics/33698022.jpg b/pics/33698022.jpg deleted file mode 100644 index f903f9ff..00000000 Binary files a/pics/33698022.jpg and /dev/null differ diff --git a/pics/3370104.jpg b/pics/3370104.jpg deleted file mode 100644 index 952ab643..00000000 Binary files a/pics/3370104.jpg and /dev/null differ diff --git a/pics/33725002.jpg b/pics/33725002.jpg deleted file mode 100644 index 87d7e182..00000000 Binary files a/pics/33725002.jpg and /dev/null differ diff --git a/pics/33725271.jpg b/pics/33725271.jpg deleted file mode 100644 index 4befc75f..00000000 Binary files a/pics/33725271.jpg and /dev/null differ diff --git a/pics/33731070.jpg b/pics/33731070.jpg deleted file mode 100644 index 3f560fc7..00000000 Binary files a/pics/33731070.jpg and /dev/null differ diff --git a/pics/33734439.jpg b/pics/33734439.jpg deleted file mode 100644 index 9cfa2508..00000000 Binary files a/pics/33734439.jpg and /dev/null differ diff --git a/pics/33737664.jpg b/pics/33737664.jpg deleted file mode 100644 index 3b9e0dc1..00000000 Binary files a/pics/33737664.jpg and /dev/null differ diff --git a/pics/33746252.jpg b/pics/33746252.jpg deleted file mode 100644 index 0fee046e..00000000 Binary files a/pics/33746252.jpg and /dev/null differ diff --git a/pics/33767325.jpg b/pics/33767325.jpg deleted file mode 100644 index 02b20841..00000000 Binary files a/pics/33767325.jpg and /dev/null differ diff --git a/pics/33776734.jpg b/pics/33776734.jpg deleted file mode 100644 index 157adbe0..00000000 Binary files a/pics/33776734.jpg and /dev/null differ diff --git a/pics/33776843.jpg b/pics/33776843.jpg deleted file mode 100644 index 341f06df..00000000 Binary files a/pics/33776843.jpg and /dev/null differ diff --git a/pics/33782437.jpg b/pics/33782437.jpg deleted file mode 100644 index 3b174b58..00000000 Binary files a/pics/33782437.jpg and /dev/null differ diff --git a/pics/33784505.jpg b/pics/33784505.jpg deleted file mode 100644 index 7c461b66..00000000 Binary files a/pics/33784505.jpg and /dev/null differ diff --git a/pics/3381441.jpg b/pics/3381441.jpg deleted file mode 100644 index a2b6f208..00000000 Binary files a/pics/3381441.jpg and /dev/null differ diff --git a/pics/33823832.jpg b/pics/33823832.jpg deleted file mode 100644 index db507b8b..00000000 Binary files a/pics/33823832.jpg and /dev/null differ diff --git a/pics/33846209.jpg b/pics/33846209.jpg deleted file mode 100644 index 4cf75bc1..00000000 Binary files a/pics/33846209.jpg and /dev/null differ diff --git a/pics/33866130.jpg b/pics/33866130.jpg deleted file mode 100644 index 462a9f75..00000000 Binary files a/pics/33866130.jpg and /dev/null differ diff --git a/pics/33875961.jpg b/pics/33875961.jpg deleted file mode 100644 index 9e1b9604..00000000 Binary files a/pics/33875961.jpg and /dev/null differ diff --git a/pics/33878931.jpg b/pics/33878931.jpg deleted file mode 100644 index 03eedfa8..00000000 Binary files a/pics/33878931.jpg and /dev/null differ diff --git a/pics/33883834.jpg b/pics/33883834.jpg deleted file mode 100644 index 81103d1a..00000000 Binary files a/pics/33883834.jpg and /dev/null differ diff --git a/pics/33900648.jpg b/pics/33900648.jpg deleted file mode 100644 index 0e05d710..00000000 Binary files a/pics/33900648.jpg and /dev/null differ diff --git a/pics/33904024.jpg b/pics/33904024.jpg deleted file mode 100644 index a0164dad..00000000 Binary files a/pics/33904024.jpg and /dev/null differ diff --git a/pics/33909817.jpg b/pics/33909817.jpg deleted file mode 100644 index 50ac284e..00000000 Binary files a/pics/33909817.jpg and /dev/null differ diff --git a/pics/33911264.jpg b/pics/33911264.jpg deleted file mode 100644 index a7cfba3b..00000000 Binary files a/pics/33911264.jpg and /dev/null differ diff --git a/pics/33950246.jpg b/pics/33950246.jpg deleted file mode 100644 index 2d138e3d..00000000 Binary files a/pics/33950246.jpg and /dev/null differ diff --git a/pics/33951077.jpg b/pics/33951077.jpg deleted file mode 100644 index 3a9b27e7..00000000 Binary files a/pics/33951077.jpg and /dev/null differ diff --git a/pics/3395226.jpg b/pics/3395226.jpg deleted file mode 100644 index 9d818690..00000000 Binary files a/pics/3395226.jpg and /dev/null differ diff --git a/pics/33970665.jpg b/pics/33970665.jpg deleted file mode 100644 index e74a90cc..00000000 Binary files a/pics/33970665.jpg and /dev/null differ diff --git a/pics/33972299.jpg b/pics/33972299.jpg deleted file mode 100644 index e0c87ff8..00000000 Binary files a/pics/33972299.jpg and /dev/null differ diff --git a/pics/33977496.jpg b/pics/33977496.jpg deleted file mode 100644 index 0fd9e228..00000000 Binary files a/pics/33977496.jpg and /dev/null differ diff --git a/pics/33981008.jpg b/pics/33981008.jpg deleted file mode 100644 index 97d8d2d2..00000000 Binary files a/pics/33981008.jpg and /dev/null differ diff --git a/pics/340002.jpg b/pics/340002.jpg deleted file mode 100644 index 8db8a4c6..00000000 Binary files a/pics/340002.jpg and /dev/null differ diff --git a/pics/34002992.jpg b/pics/34002992.jpg deleted file mode 100644 index 46a28f75..00000000 Binary files a/pics/34002992.jpg and /dev/null differ diff --git a/pics/34004470.jpg b/pics/34004470.jpg deleted file mode 100644 index 93345323..00000000 Binary files a/pics/34004470.jpg and /dev/null differ diff --git a/pics/34016756.jpg b/pics/34016756.jpg deleted file mode 100644 index 7b5cda94..00000000 Binary files a/pics/34016756.jpg and /dev/null differ diff --git a/pics/34022290.jpg b/pics/34022290.jpg deleted file mode 100644 index 5360c65e..00000000 Binary files a/pics/34022290.jpg and /dev/null differ diff --git a/pics/34026662.jpg b/pics/34026662.jpg deleted file mode 100644 index 059de8a9..00000000 Binary files a/pics/34026662.jpg and /dev/null differ diff --git a/pics/34029630.jpg b/pics/34029630.jpg deleted file mode 100644 index e742a439..00000000 Binary files a/pics/34029630.jpg and /dev/null differ diff --git a/pics/34086406.jpg b/pics/34086406.jpg deleted file mode 100644 index 26149edd..00000000 Binary files a/pics/34086406.jpg and /dev/null differ diff --git a/pics/34088136.jpg b/pics/34088136.jpg deleted file mode 100644 index bd1da703..00000000 Binary files a/pics/34088136.jpg and /dev/null differ diff --git a/pics/34100324.jpg b/pics/34100324.jpg deleted file mode 100644 index 519a181f..00000000 Binary files a/pics/34100324.jpg and /dev/null differ diff --git a/pics/34103656.jpg b/pics/34103656.jpg deleted file mode 100644 index dc9299d9..00000000 Binary files a/pics/34103656.jpg and /dev/null differ diff --git a/pics/34109611.jpg b/pics/34109611.jpg deleted file mode 100644 index be8982a2..00000000 Binary files a/pics/34109611.jpg and /dev/null differ diff --git a/pics/34116027.jpg b/pics/34116027.jpg deleted file mode 100644 index 72a0153a..00000000 Binary files a/pics/34116027.jpg and /dev/null differ diff --git a/pics/34124316.jpg b/pics/34124316.jpg deleted file mode 100644 index aa3b5cc8..00000000 Binary files a/pics/34124316.jpg and /dev/null differ diff --git a/pics/34143852.jpg b/pics/34143852.jpg deleted file mode 100644 index 6438f10e..00000000 Binary files a/pics/34143852.jpg and /dev/null differ diff --git a/pics/34149830.jpg b/pics/34149830.jpg deleted file mode 100644 index c85b93f2..00000000 Binary files a/pics/34149830.jpg and /dev/null differ diff --git a/pics/34160055.jpg b/pics/34160055.jpg deleted file mode 100644 index 220b1fba..00000000 Binary files a/pics/34160055.jpg and /dev/null differ diff --git a/pics/34187685.jpg b/pics/34187685.jpg deleted file mode 100644 index a427b145..00000000 Binary files a/pics/34187685.jpg and /dev/null differ diff --git a/pics/34193084.jpg b/pics/34193084.jpg deleted file mode 100644 index 34009703..00000000 Binary files a/pics/34193084.jpg and /dev/null differ diff --git a/pics/34206604.jpg b/pics/34206604.jpg deleted file mode 100644 index 00cfa46a..00000000 Binary files a/pics/34206604.jpg and /dev/null differ diff --git a/pics/34230233.jpg b/pics/34230233.jpg deleted file mode 100644 index 7096d986..00000000 Binary files a/pics/34230233.jpg and /dev/null differ diff --git a/pics/34236961.jpg b/pics/34236961.jpg deleted file mode 100644 index 263b24d4..00000000 Binary files a/pics/34236961.jpg and /dev/null differ diff --git a/pics/34251483.jpg b/pics/34251483.jpg deleted file mode 100644 index aed4fa4d..00000000 Binary files a/pics/34251483.jpg and /dev/null differ diff --git a/pics/34257001.jpg b/pics/34257001.jpg deleted file mode 100644 index 5edf9e7b..00000000 Binary files a/pics/34257001.jpg and /dev/null differ diff --git a/pics/34267821.jpg b/pics/34267821.jpg deleted file mode 100644 index a9f3d1de..00000000 Binary files a/pics/34267821.jpg and /dev/null differ diff --git a/pics/3428069.jpg b/pics/3428069.jpg deleted file mode 100755 index d6bf68b3..00000000 Binary files a/pics/3428069.jpg and /dev/null differ diff --git a/pics/34290067.jpg b/pics/34290067.jpg deleted file mode 100644 index b83a514a..00000000 Binary files a/pics/34290067.jpg and /dev/null differ diff --git a/pics/3429238.jpg b/pics/3429238.jpg deleted file mode 100644 index 4403e7b2..00000000 Binary files a/pics/3429238.jpg and /dev/null differ diff --git a/pics/34294855.jpg b/pics/34294855.jpg deleted file mode 100644 index cb07864a..00000000 Binary files a/pics/34294855.jpg and /dev/null differ diff --git a/pics/3431737.jpg b/pics/3431737.jpg deleted file mode 100644 index 60a871aa..00000000 Binary files a/pics/3431737.jpg and /dev/null differ diff --git a/pics/34320307.jpg b/pics/34320307.jpg deleted file mode 100644 index a9ef3ff4..00000000 Binary files a/pics/34320307.jpg and /dev/null differ diff --git a/pics/34334692.jpg b/pics/34334692.jpg deleted file mode 100644 index b8daa20a..00000000 Binary files a/pics/34334692.jpg and /dev/null differ diff --git a/pics/34351849.jpg b/pics/34351849.jpg deleted file mode 100644 index 3e32d5c6..00000000 Binary files a/pics/34351849.jpg and /dev/null differ diff --git a/pics/34358408.jpg b/pics/34358408.jpg deleted file mode 100644 index 354ebe7b..00000000 Binary files a/pics/34358408.jpg and /dev/null differ diff --git a/pics/34370473.jpg b/pics/34370473.jpg deleted file mode 100644 index 440eef86..00000000 Binary files a/pics/34370473.jpg and /dev/null differ diff --git a/pics/344000000.jpg b/pics/344000000.jpg deleted file mode 100644 index ba18f144..00000000 Binary files a/pics/344000000.jpg and /dev/null differ diff --git a/pics/344000001.jpg b/pics/344000001.jpg deleted file mode 100644 index cd56cbed..00000000 Binary files a/pics/344000001.jpg and /dev/null differ diff --git a/pics/34408491.jpg b/pics/34408491.jpg deleted file mode 100644 index 6938cdd1..00000000 Binary files a/pics/34408491.jpg and /dev/null differ diff --git a/pics/34442949.jpg b/pics/34442949.jpg deleted file mode 100644 index 5aa89394..00000000 Binary files a/pics/34442949.jpg and /dev/null differ diff --git a/pics/34460239.jpg b/pics/34460239.jpg deleted file mode 100644 index 5989d776..00000000 Binary files a/pics/34460239.jpg and /dev/null differ diff --git a/pics/34460851.jpg b/pics/34460851.jpg deleted file mode 100644 index 48eadbfd..00000000 Binary files a/pics/34460851.jpg and /dev/null differ diff --git a/pics/34471458.jpg b/pics/34471458.jpg deleted file mode 100644 index 9068f237..00000000 Binary files a/pics/34471458.jpg and /dev/null differ diff --git a/pics/34475451.jpg b/pics/34475451.jpg deleted file mode 100644 index 8a7baa1c..00000000 Binary files a/pics/34475451.jpg and /dev/null differ diff --git a/pics/34487429.jpg b/pics/34487429.jpg deleted file mode 100644 index 3a4b41c1..00000000 Binary files a/pics/34487429.jpg and /dev/null differ diff --git a/pics/34492631.jpg b/pics/34492631.jpg deleted file mode 100644 index a62b48be..00000000 Binary files a/pics/34492631.jpg and /dev/null differ diff --git a/pics/34507039.jpg b/pics/34507039.jpg deleted file mode 100644 index f625afd7..00000000 Binary files a/pics/34507039.jpg and /dev/null differ diff --git a/pics/34536276.jpg b/pics/34536276.jpg deleted file mode 100644 index 557fdf31..00000000 Binary files a/pics/34536276.jpg and /dev/null differ diff --git a/pics/34541863.jpg b/pics/34541863.jpg deleted file mode 100644 index ca9d85fb..00000000 Binary files a/pics/34541863.jpg and /dev/null differ diff --git a/pics/34545235.jpg b/pics/34545235.jpg deleted file mode 100644 index 7da944e3..00000000 Binary files a/pics/34545235.jpg and /dev/null differ diff --git a/pics/34566435.jpg b/pics/34566435.jpg deleted file mode 100644 index 0bba563d..00000000 Binary files a/pics/34566435.jpg and /dev/null differ diff --git a/pics/34568403.jpg b/pics/34568403.jpg deleted file mode 100644 index 093e9333..00000000 Binary files a/pics/34568403.jpg and /dev/null differ diff --git a/pics/34614289.jpg b/pics/34614289.jpg deleted file mode 100644 index 424b17d8..00000000 Binary files a/pics/34614289.jpg and /dev/null differ diff --git a/pics/34620088.jpg b/pics/34620088.jpg deleted file mode 100644 index d3e1b432..00000000 Binary files a/pics/34620088.jpg and /dev/null differ diff --git a/pics/34627841.jpg b/pics/34627841.jpg deleted file mode 100644 index 4aea7c25..00000000 Binary files a/pics/34627841.jpg and /dev/null differ diff --git a/pics/34646691.jpg b/pics/34646691.jpg deleted file mode 100644 index 46aaaf69..00000000 Binary files a/pics/34646691.jpg and /dev/null differ diff --git a/pics/34659866.jpg b/pics/34659866.jpg deleted file mode 100644 index a33083c7..00000000 Binary files a/pics/34659866.jpg and /dev/null differ diff --git a/pics/34664411.jpg b/pics/34664411.jpg deleted file mode 100644 index 39810b1e..00000000 Binary files a/pics/34664411.jpg and /dev/null differ diff --git a/pics/34680482.jpg b/pics/34680482.jpg deleted file mode 100644 index 167e4d1a..00000000 Binary files a/pics/34680482.jpg and /dev/null differ diff --git a/pics/34688023.jpg b/pics/34688023.jpg deleted file mode 100644 index 85d1c020..00000000 Binary files a/pics/34688023.jpg and /dev/null differ diff --git a/pics/34690519.jpg b/pics/34690519.jpg deleted file mode 100644 index e08b9c88..00000000 Binary files a/pics/34690519.jpg and /dev/null differ diff --git a/pics/34694160.jpg b/pics/34694160.jpg deleted file mode 100644 index 8195a767..00000000 Binary files a/pics/34694160.jpg and /dev/null differ diff --git a/pics/34707034.jpg b/pics/34707034.jpg deleted file mode 100644 index e57c844e..00000000 Binary files a/pics/34707034.jpg and /dev/null differ diff --git a/pics/34710660.jpg b/pics/34710660.jpg deleted file mode 100644 index 688c51d1..00000000 Binary files a/pics/34710660.jpg and /dev/null differ diff --git a/pics/34717238.jpg b/pics/34717238.jpg deleted file mode 100644 index 1764c213..00000000 Binary files a/pics/34717238.jpg and /dev/null differ diff --git a/pics/34743446.jpg b/pics/34743446.jpg deleted file mode 100644 index c30c13aa..00000000 Binary files a/pics/34743446.jpg and /dev/null differ diff --git a/pics/34761062.jpg b/pics/34761062.jpg deleted file mode 100644 index 4b3fea3b..00000000 Binary files a/pics/34761062.jpg and /dev/null differ diff --git a/pics/34796454.jpg b/pics/34796454.jpg deleted file mode 100644 index 180cdb7a..00000000 Binary files a/pics/34796454.jpg and /dev/null differ diff --git a/pics/34815282.jpg b/pics/34815282.jpg deleted file mode 100644 index a149f7ea..00000000 Binary files a/pics/34815282.jpg and /dev/null differ diff --git a/pics/34822850.jpg b/pics/34822850.jpg deleted file mode 100644 index a029a2e8..00000000 Binary files a/pics/34822850.jpg and /dev/null differ diff --git a/pics/34822851.jpg b/pics/34822851.jpg deleted file mode 100644 index b9c2786e..00000000 Binary files a/pics/34822851.jpg and /dev/null differ diff --git a/pics/34830502.jpg b/pics/34830502.jpg deleted file mode 100644 index 8b7ff2d1..00000000 Binary files a/pics/34830502.jpg and /dev/null differ diff --git a/pics/34834619.jpg b/pics/34834619.jpg deleted file mode 100644 index b73d4718..00000000 Binary files a/pics/34834619.jpg and /dev/null differ diff --git a/pics/34838437.jpg b/pics/34838437.jpg deleted file mode 100644 index b02096a9..00000000 Binary files a/pics/34838437.jpg and /dev/null differ diff --git a/pics/34853266.jpg b/pics/34853266.jpg deleted file mode 100644 index dbef4431..00000000 Binary files a/pics/34853266.jpg and /dev/null differ diff --git a/pics/34898052.jpg b/pics/34898052.jpg deleted file mode 100644 index 753972b4..00000000 Binary files a/pics/34898052.jpg and /dev/null differ diff --git a/pics/34906152.jpg b/pics/34906152.jpg deleted file mode 100644 index 632d21f8..00000000 Binary files a/pics/34906152.jpg and /dev/null differ diff --git a/pics/3492538.jpg b/pics/3492538.jpg deleted file mode 100644 index 9a945cd1..00000000 Binary files a/pics/3492538.jpg and /dev/null differ diff --git a/pics/3493058.jpg b/pics/3493058.jpg deleted file mode 100644 index b377dce4..00000000 Binary files a/pics/3493058.jpg and /dev/null differ diff --git a/pics/3493978.jpg b/pics/3493978.jpg deleted file mode 100644 index 236f54d5..00000000 Binary files a/pics/3493978.jpg and /dev/null differ diff --git a/pics/34945480.jpg b/pics/34945480.jpg deleted file mode 100644 index 973c8b8d..00000000 Binary files a/pics/34945480.jpg and /dev/null differ diff --git a/pics/34961968.jpg b/pics/34961968.jpg deleted file mode 100644 index 056f7655..00000000 Binary files a/pics/34961968.jpg and /dev/null differ diff --git a/pics/34968834.jpg b/pics/34968834.jpg deleted file mode 100644 index aa79780d..00000000 Binary files a/pics/34968834.jpg and /dev/null differ diff --git a/pics/35011819.jpg b/pics/35011819.jpg deleted file mode 100644 index 41fbf462..00000000 Binary files a/pics/35011819.jpg and /dev/null differ diff --git a/pics/35014241.jpg b/pics/35014241.jpg deleted file mode 100644 index 7ffaf9d7..00000000 Binary files a/pics/35014241.jpg and /dev/null differ diff --git a/pics/35027493.jpg b/pics/35027493.jpg deleted file mode 100644 index edab3be1..00000000 Binary files a/pics/35027493.jpg and /dev/null differ diff --git a/pics/35035481.jpg b/pics/35035481.jpg deleted file mode 100755 index 252ec5c6..00000000 Binary files a/pics/35035481.jpg and /dev/null differ diff --git a/pics/35037880.jpg b/pics/35037880.jpg deleted file mode 100644 index be9028a6..00000000 Binary files a/pics/35037880.jpg and /dev/null differ diff --git a/pics/35050257.jpg b/pics/35050257.jpg deleted file mode 100644 index fdbbf96c..00000000 Binary files a/pics/35050257.jpg and /dev/null differ diff --git a/pics/35052053.jpg b/pics/35052053.jpg deleted file mode 100644 index 33e36625..00000000 Binary files a/pics/35052053.jpg and /dev/null differ diff --git a/pics/35058857.jpg b/pics/35058857.jpg deleted file mode 100755 index 7f60ad41..00000000 Binary files a/pics/35058857.jpg and /dev/null differ diff --git a/pics/35059553.jpg b/pics/35059553.jpg deleted file mode 100644 index 2861b36d..00000000 Binary files a/pics/35059553.jpg and /dev/null differ diff --git a/pics/35073065.jpg b/pics/35073065.jpg deleted file mode 100644 index 2659dd57..00000000 Binary files a/pics/35073065.jpg and /dev/null differ diff --git a/pics/35089369.jpg b/pics/35089369.jpg deleted file mode 100644 index 6e9e0938..00000000 Binary files a/pics/35089369.jpg and /dev/null differ diff --git a/pics/3510565.jpg b/pics/3510565.jpg deleted file mode 100644 index 6d328d6c..00000000 Binary files a/pics/3510565.jpg and /dev/null differ diff --git a/pics/35112613.jpg b/pics/35112613.jpg deleted file mode 100644 index b2c64a07..00000000 Binary files a/pics/35112613.jpg and /dev/null differ diff --git a/pics/35149085.jpg b/pics/35149085.jpg deleted file mode 100644 index 3b6a5adf..00000000 Binary files a/pics/35149085.jpg and /dev/null differ diff --git a/pics/35183853.jpg b/pics/35183853.jpg deleted file mode 100644 index 90d1ed06..00000000 Binary files a/pics/35183853.jpg and /dev/null differ diff --git a/pics/35195612.jpg b/pics/35195612.jpg deleted file mode 100644 index c687c18e..00000000 Binary files a/pics/35195612.jpg and /dev/null differ diff --git a/pics/35209994.jpg b/pics/35209994.jpg deleted file mode 100644 index e894335a..00000000 Binary files a/pics/35209994.jpg and /dev/null differ diff --git a/pics/35215622.jpg b/pics/35215622.jpg deleted file mode 100644 index 251fd610..00000000 Binary files a/pics/35215622.jpg and /dev/null differ diff --git a/pics/35220244.jpg b/pics/35220244.jpg deleted file mode 100644 index cbe9fe88..00000000 Binary files a/pics/35220244.jpg and /dev/null differ diff --git a/pics/35224440.jpg b/pics/35224440.jpg deleted file mode 100644 index 475d1154..00000000 Binary files a/pics/35224440.jpg and /dev/null differ diff --git a/pics/35255456.jpg b/pics/35255456.jpg deleted file mode 100644 index 9bed4f01..00000000 Binary files a/pics/35255456.jpg and /dev/null differ diff --git a/pics/35262428.jpg b/pics/35262428.jpg deleted file mode 100644 index 1fe395c5..00000000 Binary files a/pics/35262428.jpg and /dev/null differ diff --git a/pics/35268887.jpg b/pics/35268887.jpg deleted file mode 100644 index 8e8aeb91..00000000 Binary files a/pics/35268887.jpg and /dev/null differ diff --git a/pics/35268888.jpg b/pics/35268888.jpg deleted file mode 100644 index f0fbd221..00000000 Binary files a/pics/35268888.jpg and /dev/null differ diff --git a/pics/35282433.jpg b/pics/35282433.jpg deleted file mode 100644 index e2e02eda..00000000 Binary files a/pics/35282433.jpg and /dev/null differ diff --git a/pics/35307484.jpg b/pics/35307484.jpg deleted file mode 100644 index bf4b3117..00000000 Binary files a/pics/35307484.jpg and /dev/null differ diff --git a/pics/35316708.jpg b/pics/35316708.jpg deleted file mode 100644 index 7d293fd6..00000000 Binary files a/pics/35316708.jpg and /dev/null differ diff --git a/pics/35322812.jpg b/pics/35322812.jpg deleted file mode 100644 index 81d6a519..00000000 Binary files a/pics/35322812.jpg and /dev/null differ diff --git a/pics/35329581.jpg b/pics/35329581.jpg deleted file mode 100644 index ffdcff23..00000000 Binary files a/pics/35329581.jpg and /dev/null differ diff --git a/pics/35330871.jpg b/pics/35330871.jpg deleted file mode 100644 index cb210d29..00000000 Binary files a/pics/35330871.jpg and /dev/null differ diff --git a/pics/3534077.jpg b/pics/3534077.jpg deleted file mode 100644 index 78ae8fda..00000000 Binary files a/pics/3534077.jpg and /dev/null differ diff --git a/pics/35346968.jpg b/pics/35346968.jpg deleted file mode 100644 index e6ed9074..00000000 Binary files a/pics/35346968.jpg and /dev/null differ diff --git a/pics/3536537.jpg b/pics/3536537.jpg deleted file mode 100644 index d7beba77..00000000 Binary files a/pics/3536537.jpg and /dev/null differ diff --git a/pics/35419032.jpg b/pics/35419032.jpg deleted file mode 100644 index d71c3454..00000000 Binary files a/pics/35419032.jpg and /dev/null differ diff --git a/pics/35429292.jpg b/pics/35429292.jpg deleted file mode 100644 index 9873cac5..00000000 Binary files a/pics/35429292.jpg and /dev/null differ diff --git a/pics/35448319.jpg b/pics/35448319.jpg deleted file mode 100644 index afff7502..00000000 Binary files a/pics/35448319.jpg and /dev/null differ diff --git a/pics/35464895.jpg b/pics/35464895.jpg deleted file mode 100644 index 02242e38..00000000 Binary files a/pics/35464895.jpg and /dev/null differ diff --git a/pics/35480699.jpg b/pics/35480699.jpg deleted file mode 100644 index df620c07..00000000 Binary files a/pics/35480699.jpg and /dev/null differ diff --git a/pics/35486099.jpg b/pics/35486099.jpg deleted file mode 100644 index bc12c8d7..00000000 Binary files a/pics/35486099.jpg and /dev/null differ diff --git a/pics/3549275.jpg b/pics/3549275.jpg deleted file mode 100644 index bb4ab743..00000000 Binary files a/pics/3549275.jpg and /dev/null differ diff --git a/pics/35514096.jpg b/pics/35514096.jpg deleted file mode 100644 index 0294d2ff..00000000 Binary files a/pics/35514096.jpg and /dev/null differ diff --git a/pics/35514097.jpg b/pics/35514097.jpg deleted file mode 100644 index ce80b6e6..00000000 Binary files a/pics/35514097.jpg and /dev/null differ diff --git a/pics/35537251.jpg b/pics/35537251.jpg deleted file mode 100644 index 3bbee564..00000000 Binary files a/pics/35537251.jpg and /dev/null differ diff --git a/pics/35537860.jpg b/pics/35537860.jpg deleted file mode 100644 index 638c6bb5..00000000 Binary files a/pics/35537860.jpg and /dev/null differ diff --git a/pics/35539880.jpg b/pics/35539880.jpg deleted file mode 100644 index 5ed5fbe3..00000000 Binary files a/pics/35539880.jpg and /dev/null differ diff --git a/pics/35544402.jpg b/pics/35544402.jpg deleted file mode 100644 index 06933615..00000000 Binary files a/pics/35544402.jpg and /dev/null differ diff --git a/pics/35561352.jpg b/pics/35561352.jpg deleted file mode 100644 index 921bf6fa..00000000 Binary files a/pics/35561352.jpg and /dev/null differ diff --git a/pics/35563539.jpg b/pics/35563539.jpg deleted file mode 100644 index 6eaa4770..00000000 Binary files a/pics/35563539.jpg and /dev/null differ diff --git a/pics/35565537.jpg b/pics/35565537.jpg deleted file mode 100644 index 134ac140..00000000 Binary files a/pics/35565537.jpg and /dev/null differ diff --git a/pics/3557275.jpg b/pics/3557275.jpg deleted file mode 100644 index ed998133..00000000 Binary files a/pics/3557275.jpg and /dev/null differ diff --git a/pics/35577420.jpg b/pics/35577420.jpg deleted file mode 100644 index ff723564..00000000 Binary files a/pics/35577420.jpg and /dev/null differ diff --git a/pics/35618486.jpg b/pics/35618486.jpg deleted file mode 100644 index 82857d2b..00000000 Binary files a/pics/35618486.jpg and /dev/null differ diff --git a/pics/35629124.jpg b/pics/35629124.jpg deleted file mode 100644 index b7e9015b..00000000 Binary files a/pics/35629124.jpg and /dev/null differ diff --git a/pics/35631584.jpg b/pics/35631584.jpg deleted file mode 100644 index f3d66e5a..00000000 Binary files a/pics/35631584.jpg and /dev/null differ diff --git a/pics/35638627.jpg b/pics/35638627.jpg deleted file mode 100644 index a23a7ac2..00000000 Binary files a/pics/35638627.jpg and /dev/null differ diff --git a/pics/35686187.jpg b/pics/35686187.jpg deleted file mode 100644 index e880987f..00000000 Binary files a/pics/35686187.jpg and /dev/null differ diff --git a/pics/35686188.jpg b/pics/35686188.jpg deleted file mode 100644 index c5b3ccc2..00000000 Binary files a/pics/35686188.jpg and /dev/null differ diff --git a/pics/35712107.jpg b/pics/35712107.jpg deleted file mode 100644 index 2d9b6305..00000000 Binary files a/pics/35712107.jpg and /dev/null differ diff --git a/pics/3573512.jpg b/pics/3573512.jpg deleted file mode 100644 index a50ac756..00000000 Binary files a/pics/3573512.jpg and /dev/null differ diff --git a/pics/35752363.jpg b/pics/35752363.jpg deleted file mode 100644 index b43ce3c0..00000000 Binary files a/pics/35752363.jpg and /dev/null differ diff --git a/pics/35762283.jpg b/pics/35762283.jpg deleted file mode 100644 index 9dd29fa3..00000000 Binary files a/pics/35762283.jpg and /dev/null differ diff --git a/pics/35781051.jpg b/pics/35781051.jpg deleted file mode 100644 index d5031d04..00000000 Binary files a/pics/35781051.jpg and /dev/null differ diff --git a/pics/35787450.jpg b/pics/35787450.jpg deleted file mode 100644 index 0422941a..00000000 Binary files a/pics/35787450.jpg and /dev/null differ diff --git a/pics/35798491.jpg b/pics/35798491.jpg deleted file mode 100644 index 0c2a25f1..00000000 Binary files a/pics/35798491.jpg and /dev/null differ diff --git a/pics/3580032.jpg b/pics/3580032.jpg deleted file mode 100644 index e02c0457..00000000 Binary files a/pics/3580032.jpg and /dev/null differ diff --git a/pics/35800511.jpg b/pics/35800511.jpg deleted file mode 100644 index e101a99b..00000000 Binary files a/pics/35800511.jpg and /dev/null differ diff --git a/pics/35803249.jpg b/pics/35803249.jpg deleted file mode 100644 index 84b56296..00000000 Binary files a/pics/35803249.jpg and /dev/null differ diff --git a/pics/35809262.jpg b/pics/35809262.jpg deleted file mode 100644 index 0b042bfd..00000000 Binary files a/pics/35809262.jpg and /dev/null differ diff --git a/pics/35818851.jpg b/pics/35818851.jpg deleted file mode 100755 index 12fcf9af..00000000 Binary files a/pics/35818851.jpg and /dev/null differ diff --git a/pics/35842855.jpg b/pics/35842855.jpg deleted file mode 100644 index 1e608ea7..00000000 Binary files a/pics/35842855.jpg and /dev/null differ diff --git a/pics/35848254.jpg b/pics/35848254.jpg deleted file mode 100644 index d5dbc897..00000000 Binary files a/pics/35848254.jpg and /dev/null differ diff --git a/pics/35866404.jpg b/pics/35866404.jpg deleted file mode 100644 index 706a575e..00000000 Binary files a/pics/35866404.jpg and /dev/null differ diff --git a/pics/35884610.jpg b/pics/35884610.jpg deleted file mode 100644 index eb307442..00000000 Binary files a/pics/35884610.jpg and /dev/null differ diff --git a/pics/35950025.jpg b/pics/35950025.jpg deleted file mode 100644 index 606db7ef..00000000 Binary files a/pics/35950025.jpg and /dev/null differ diff --git a/pics/35952884.jpg b/pics/35952884.jpg deleted file mode 100644 index cf7d632f..00000000 Binary files a/pics/35952884.jpg and /dev/null differ diff --git a/pics/35956022.jpg b/pics/35956022.jpg deleted file mode 100644 index d55e8788..00000000 Binary files a/pics/35956022.jpg and /dev/null differ diff --git a/pics/359563.jpg b/pics/359563.jpg deleted file mode 100644 index 1c22bfa7..00000000 Binary files a/pics/359563.jpg and /dev/null differ diff --git a/pics/35975813.jpg b/pics/35975813.jpg deleted file mode 100644 index cc0376ce..00000000 Binary files a/pics/35975813.jpg and /dev/null differ diff --git a/pics/35984222.jpg b/pics/35984222.jpg deleted file mode 100644 index cd765ea2..00000000 Binary files a/pics/35984222.jpg and /dev/null differ diff --git a/pics/36006208.jpg b/pics/36006208.jpg deleted file mode 100644 index d7c0dd2e..00000000 Binary files a/pics/36006208.jpg and /dev/null differ diff --git a/pics/36021814.jpg b/pics/36021814.jpg deleted file mode 100644 index f0632b4e..00000000 Binary files a/pics/36021814.jpg and /dev/null differ diff --git a/pics/36029076.jpg b/pics/36029076.jpg deleted file mode 100644 index 9206ef50..00000000 Binary files a/pics/36029076.jpg and /dev/null differ diff --git a/pics/3603242.jpg b/pics/3603242.jpg deleted file mode 100644 index c1041be2..00000000 Binary files a/pics/3603242.jpg and /dev/null differ diff --git a/pics/36039163.jpg b/pics/36039163.jpg deleted file mode 100644 index 8efbd59c..00000000 Binary files a/pics/36039163.jpg and /dev/null differ diff --git a/pics/36042004.jpg b/pics/36042004.jpg deleted file mode 100644 index b585a014..00000000 Binary files a/pics/36042004.jpg and /dev/null differ diff --git a/pics/36042825.jpg b/pics/36042825.jpg deleted file mode 100644 index cf3d1566..00000000 Binary files a/pics/36042825.jpg and /dev/null differ diff --git a/pics/36045450.jpg b/pics/36045450.jpg deleted file mode 100644 index 1420ed01..00000000 Binary files a/pics/36045450.jpg and /dev/null differ diff --git a/pics/36046926.jpg b/pics/36046926.jpg deleted file mode 100755 index 2a581f7f..00000000 Binary files a/pics/36046926.jpg and /dev/null differ diff --git a/pics/3606209.jpg b/pics/3606209.jpg deleted file mode 100644 index afd27d92..00000000 Binary files a/pics/3606209.jpg and /dev/null differ diff --git a/pics/3606728.jpg b/pics/3606728.jpg deleted file mode 100644 index 7e24a651..00000000 Binary files a/pics/3606728.jpg and /dev/null differ diff --git a/pics/36076683.jpg b/pics/36076683.jpg deleted file mode 100644 index 880b26b1..00000000 Binary files a/pics/36076683.jpg and /dev/null differ diff --git a/pics/36088082.jpg b/pics/36088082.jpg deleted file mode 100644 index 4d0872c7..00000000 Binary files a/pics/36088082.jpg and /dev/null differ diff --git a/pics/36099620.jpg b/pics/36099620.jpg deleted file mode 100644 index 52ab5c3b..00000000 Binary files a/pics/36099620.jpg and /dev/null differ diff --git a/pics/36100154.jpg b/pics/36100154.jpg deleted file mode 100644 index 361e1183..00000000 Binary files a/pics/36100154.jpg and /dev/null differ diff --git a/pics/36107810.jpg b/pics/36107810.jpg deleted file mode 100644 index 61666203..00000000 Binary files a/pics/36107810.jpg and /dev/null differ diff --git a/pics/36119641.jpg b/pics/36119641.jpg deleted file mode 100644 index e74a3754..00000000 Binary files a/pics/36119641.jpg and /dev/null differ diff --git a/pics/36121917.jpg b/pics/36121917.jpg deleted file mode 100644 index 60b9bbaa..00000000 Binary files a/pics/36121917.jpg and /dev/null differ diff --git a/pics/36151751.jpg b/pics/36151751.jpg deleted file mode 100644 index c195eab7..00000000 Binary files a/pics/36151751.jpg and /dev/null differ diff --git a/pics/36183881.jpg b/pics/36183881.jpg deleted file mode 100755 index d7b4db01..00000000 Binary files a/pics/36183881.jpg and /dev/null differ diff --git a/pics/36227804.jpg b/pics/36227804.jpg deleted file mode 100644 index 5c57cb29..00000000 Binary files a/pics/36227804.jpg and /dev/null differ diff --git a/pics/36256625.jpg b/pics/36256625.jpg deleted file mode 100644 index 3c456046..00000000 Binary files a/pics/36256625.jpg and /dev/null differ diff --git a/pics/36261276.jpg b/pics/36261276.jpg deleted file mode 100644 index 185be505..00000000 Binary files a/pics/36261276.jpg and /dev/null differ diff --git a/pics/36262024.jpg b/pics/36262024.jpg deleted file mode 100644 index b5dbde06..00000000 Binary files a/pics/36262024.jpg and /dev/null differ diff --git a/pics/3627449.jpg b/pics/3627449.jpg deleted file mode 100644 index 6fe10b37..00000000 Binary files a/pics/3627449.jpg and /dev/null differ diff --git a/pics/36278828.jpg b/pics/36278828.jpg deleted file mode 100644 index 7ddcad84..00000000 Binary files a/pics/36278828.jpg and /dev/null differ diff --git a/pics/36280194.jpg b/pics/36280194.jpg deleted file mode 100644 index 8e8c6692..00000000 Binary files a/pics/36280194.jpg and /dev/null differ diff --git a/pics/36304921.jpg b/pics/36304921.jpg deleted file mode 100644 index 7f731f9b..00000000 Binary files a/pics/36304921.jpg and /dev/null differ diff --git a/pics/36318200.jpg b/pics/36318200.jpg deleted file mode 100644 index c62e1c65..00000000 Binary files a/pics/36318200.jpg and /dev/null differ diff --git a/pics/36331074.jpg b/pics/36331074.jpg deleted file mode 100644 index 84a93035..00000000 Binary files a/pics/36331074.jpg and /dev/null differ diff --git a/pics/36352429.jpg b/pics/36352429.jpg deleted file mode 100644 index 50f6ef09..00000000 Binary files a/pics/36352429.jpg and /dev/null differ diff --git a/pics/36354007.jpg b/pics/36354007.jpg deleted file mode 100644 index a4bf5176..00000000 Binary files a/pics/36354007.jpg and /dev/null differ diff --git a/pics/36354008.jpg b/pics/36354008.jpg deleted file mode 100644 index 9cc84dba..00000000 Binary files a/pics/36354008.jpg and /dev/null differ diff --git a/pics/36361633.jpg b/pics/36361633.jpg deleted file mode 100644 index 59b268e5..00000000 Binary files a/pics/36361633.jpg and /dev/null differ diff --git a/pics/36376145.jpg b/pics/36376145.jpg deleted file mode 100644 index 39ff83e0..00000000 Binary files a/pics/36376145.jpg and /dev/null differ diff --git a/pics/36378044.jpg b/pics/36378044.jpg deleted file mode 100644 index 68e390b2..00000000 Binary files a/pics/36378044.jpg and /dev/null differ diff --git a/pics/36378213.jpg b/pics/36378213.jpg deleted file mode 100644 index 0741a444..00000000 Binary files a/pics/36378213.jpg and /dev/null differ diff --git a/pics/36405256.jpg b/pics/36405256.jpg deleted file mode 100644 index a15fac4e..00000000 Binary files a/pics/36405256.jpg and /dev/null differ diff --git a/pics/36407615.jpg b/pics/36407615.jpg deleted file mode 100644 index 90163b11..00000000 Binary files a/pics/36407615.jpg and /dev/null differ diff --git a/pics/36415522.jpg b/pics/36415522.jpg deleted file mode 100644 index fa59cfa7..00000000 Binary files a/pics/36415522.jpg and /dev/null differ diff --git a/pics/3642509.jpg b/pics/3642509.jpg deleted file mode 100644 index 67e9272e..00000000 Binary files a/pics/3642509.jpg and /dev/null differ diff --git a/pics/36426778.jpg b/pics/36426778.jpg deleted file mode 100755 index dfc4f8d7..00000000 Binary files a/pics/36426778.jpg and /dev/null differ diff --git a/pics/3643300.jpg b/pics/3643300.jpg deleted file mode 100644 index f404ecd6..00000000 Binary files a/pics/3643300.jpg and /dev/null differ diff --git a/pics/36442179.jpg b/pics/36442179.jpg deleted file mode 100644 index 9cbcf695..00000000 Binary files a/pics/36442179.jpg and /dev/null differ diff --git a/pics/36468556.jpg b/pics/36468556.jpg deleted file mode 100644 index 53a07f7a..00000000 Binary files a/pics/36468556.jpg and /dev/null differ diff --git a/pics/36472900.jpg b/pics/36472900.jpg deleted file mode 100644 index a516d2bb..00000000 Binary files a/pics/36472900.jpg and /dev/null differ diff --git a/pics/3648368.jpg b/pics/3648368.jpg deleted file mode 100644 index 77094d91..00000000 Binary files a/pics/3648368.jpg and /dev/null differ diff --git a/pics/36484016.jpg b/pics/36484016.jpg deleted file mode 100644 index b7551e76..00000000 Binary files a/pics/36484016.jpg and /dev/null differ diff --git a/pics/36499284.jpg b/pics/36499284.jpg deleted file mode 100644 index d6bb3d0f..00000000 Binary files a/pics/36499284.jpg and /dev/null differ diff --git a/pics/36521459.jpg b/pics/36521459.jpg deleted file mode 100644 index 5aa04d53..00000000 Binary files a/pics/36521459.jpg and /dev/null differ diff --git a/pics/36523152.jpg b/pics/36523152.jpg deleted file mode 100644 index 4db16dcb..00000000 Binary files a/pics/36523152.jpg and /dev/null differ diff --git a/pics/36553319.jpg b/pics/36553319.jpg deleted file mode 100644 index 7f0944b4..00000000 Binary files a/pics/36553319.jpg and /dev/null differ diff --git a/pics/36560997.jpg b/pics/36560997.jpg deleted file mode 100644 index f58719a3..00000000 Binary files a/pics/36560997.jpg and /dev/null differ diff --git a/pics/36562627.jpg b/pics/36562627.jpg deleted file mode 100644 index 0dcb0087..00000000 Binary files a/pics/36562627.jpg and /dev/null differ diff --git a/pics/36565699.jpg b/pics/36565699.jpg deleted file mode 100644 index e7746f7e..00000000 Binary files a/pics/36565699.jpg and /dev/null differ diff --git a/pics/36569343.jpg b/pics/36569343.jpg deleted file mode 100644 index de8ab090..00000000 Binary files a/pics/36569343.jpg and /dev/null differ diff --git a/pics/3657444.jpg b/pics/3657444.jpg deleted file mode 100644 index 961056b3..00000000 Binary files a/pics/3657444.jpg and /dev/null differ diff --git a/pics/36584821.jpg b/pics/36584821.jpg deleted file mode 100644 index dae38ee7..00000000 Binary files a/pics/36584821.jpg and /dev/null differ diff --git a/pics/36586443.jpg b/pics/36586443.jpg deleted file mode 100644 index 5a12286d..00000000 Binary files a/pics/36586443.jpg and /dev/null differ diff --git a/pics/3659803.jpg b/pics/3659803.jpg deleted file mode 100644 index 5a438d42..00000000 Binary files a/pics/3659803.jpg and /dev/null differ diff --git a/pics/36607978.jpg b/pics/36607978.jpg deleted file mode 100644 index 5ea017e2..00000000 Binary files a/pics/36607978.jpg and /dev/null differ diff --git a/pics/36623431.jpg b/pics/36623431.jpg deleted file mode 100644 index e42375d6..00000000 Binary files a/pics/36623431.jpg and /dev/null differ diff --git a/pics/36625827.jpg b/pics/36625827.jpg deleted file mode 100644 index dccf8ecf..00000000 Binary files a/pics/36625827.jpg and /dev/null differ diff --git a/pics/36629203.jpg b/pics/36629203.jpg deleted file mode 100644 index caf7d647..00000000 Binary files a/pics/36629203.jpg and /dev/null differ diff --git a/pics/36630403.jpg b/pics/36630403.jpg deleted file mode 100755 index 83160031..00000000 Binary files a/pics/36630403.jpg and /dev/null differ diff --git a/pics/36643046.jpg b/pics/36643046.jpg deleted file mode 100644 index f3c4260d..00000000 Binary files a/pics/36643046.jpg and /dev/null differ diff --git a/pics/36687247.jpg b/pics/36687247.jpg deleted file mode 100644 index f4de3452..00000000 Binary files a/pics/36687247.jpg and /dev/null differ diff --git a/pics/36690018.jpg b/pics/36690018.jpg deleted file mode 100644 index 42bad08f..00000000 Binary files a/pics/36690018.jpg and /dev/null differ diff --git a/pics/36693940.jpg b/pics/36693940.jpg deleted file mode 100644 index 3239cb58..00000000 Binary files a/pics/36693940.jpg and /dev/null differ diff --git a/pics/36704180.jpg b/pics/36704180.jpg deleted file mode 100755 index df9dd4b6..00000000 Binary files a/pics/36704180.jpg and /dev/null differ diff --git a/pics/36708764.jpg b/pics/36708764.jpg deleted file mode 100755 index 9c4635fc..00000000 Binary files a/pics/36708764.jpg and /dev/null differ diff --git a/pics/36717258.jpg b/pics/36717258.jpg deleted file mode 100644 index 5b28e0bf..00000000 Binary files a/pics/36717258.jpg and /dev/null differ diff --git a/pics/36733451.jpg b/pics/36733451.jpg deleted file mode 100644 index 64bb4787..00000000 Binary files a/pics/36733451.jpg and /dev/null differ diff --git a/pics/36734924.jpg b/pics/36734924.jpg deleted file mode 100644 index 619a6ad0..00000000 Binary files a/pics/36734924.jpg and /dev/null differ diff --git a/pics/36736723.jpg b/pics/36736723.jpg deleted file mode 100644 index 6b4f8b68..00000000 Binary files a/pics/36736723.jpg and /dev/null differ diff --git a/pics/36737092.jpg b/pics/36737092.jpg deleted file mode 100644 index b9caa80d..00000000 Binary files a/pics/36737092.jpg and /dev/null differ diff --git a/pics/36750412.jpg b/pics/36750412.jpg deleted file mode 100644 index b331ee6d..00000000 Binary files a/pics/36750412.jpg and /dev/null differ diff --git a/pics/36757171.jpg b/pics/36757171.jpg deleted file mode 100644 index b565e3fe..00000000 Binary files a/pics/36757171.jpg and /dev/null differ diff --git a/pics/36776089.jpg b/pics/36776089.jpg deleted file mode 100644 index 19f0b7dd..00000000 Binary files a/pics/36776089.jpg and /dev/null differ diff --git a/pics/3682106.jpg b/pics/3682106.jpg deleted file mode 100644 index 7fd701c5..00000000 Binary files a/pics/3682106.jpg and /dev/null differ diff --git a/pics/36821538.jpg b/pics/36821538.jpg deleted file mode 100644 index 7fb67a30..00000000 Binary files a/pics/36821538.jpg and /dev/null differ diff --git a/pics/36834155.jpg b/pics/36834155.jpg deleted file mode 100644 index 3d4edf33..00000000 Binary files a/pics/36834155.jpg and /dev/null differ diff --git a/pics/368382.jpg b/pics/368382.jpg deleted file mode 100755 index 9a1f2b61..00000000 Binary files a/pics/368382.jpg and /dev/null differ diff --git a/pics/36857073.jpg b/pics/36857073.jpg deleted file mode 100755 index d1c04968..00000000 Binary files a/pics/36857073.jpg and /dev/null differ diff --git a/pics/36868108.jpg b/pics/36868108.jpg deleted file mode 100644 index 997694c8..00000000 Binary files a/pics/36868108.jpg and /dev/null differ diff --git a/pics/36870345.jpg b/pics/36870345.jpg deleted file mode 100644 index eb0eb9cd..00000000 Binary files a/pics/36870345.jpg and /dev/null differ diff --git a/pics/36898537.jpg b/pics/36898537.jpg deleted file mode 100644 index 33597045..00000000 Binary files a/pics/36898537.jpg and /dev/null differ diff --git a/pics/36904469.jpg b/pics/36904469.jpg deleted file mode 100644 index 1134261f..00000000 Binary files a/pics/36904469.jpg and /dev/null differ diff --git a/pics/36916401.jpg b/pics/36916401.jpg deleted file mode 100644 index 974c9cdf..00000000 Binary files a/pics/36916401.jpg and /dev/null differ diff --git a/pics/36931229.jpg b/pics/36931229.jpg deleted file mode 100644 index ffb36aef..00000000 Binary files a/pics/36931229.jpg and /dev/null differ diff --git a/pics/36935434.jpg b/pics/36935434.jpg deleted file mode 100644 index 095a2036..00000000 Binary files a/pics/36935434.jpg and /dev/null differ diff --git a/pics/36953371.jpg b/pics/36953371.jpg deleted file mode 100755 index 4b63b721..00000000 Binary files a/pics/36953371.jpg and /dev/null differ diff --git a/pics/36970611.jpg b/pics/36970611.jpg deleted file mode 100755 index cdbda507..00000000 Binary files a/pics/36970611.jpg and /dev/null differ diff --git a/pics/36995273.jpg b/pics/36995273.jpg deleted file mode 100644 index a06b301c..00000000 Binary files a/pics/36995273.jpg and /dev/null differ diff --git a/pics/3701074.jpg b/pics/3701074.jpg deleted file mode 100644 index 314be263..00000000 Binary files a/pics/3701074.jpg and /dev/null differ diff --git a/pics/37011715.jpg b/pics/37011715.jpg deleted file mode 100644 index cd4a4d80..00000000 Binary files a/pics/37011715.jpg and /dev/null differ diff --git a/pics/37038993.jpg b/pics/37038993.jpg deleted file mode 100644 index 974040ee..00000000 Binary files a/pics/37038993.jpg and /dev/null differ diff --git a/pics/37043180.jpg b/pics/37043180.jpg deleted file mode 100644 index 1e274819..00000000 Binary files a/pics/37043180.jpg and /dev/null differ diff --git a/pics/37053871.jpg b/pics/37053871.jpg deleted file mode 100644 index c31960de..00000000 Binary files a/pics/37053871.jpg and /dev/null differ diff --git a/pics/37055344.jpg b/pics/37055344.jpg deleted file mode 100644 index 169789ea..00000000 Binary files a/pics/37055344.jpg and /dev/null differ diff --git a/pics/37057012.jpg b/pics/37057012.jpg deleted file mode 100644 index 24f9015e..00000000 Binary files a/pics/37057012.jpg and /dev/null differ diff --git a/pics/37057743.jpg b/pics/37057743.jpg deleted file mode 100644 index 7954ecf5..00000000 Binary files a/pics/37057743.jpg and /dev/null differ diff --git a/pics/37083210.jpg b/pics/37083210.jpg deleted file mode 100644 index 05d7770c..00000000 Binary files a/pics/37083210.jpg and /dev/null differ diff --git a/pics/37101832.jpg b/pics/37101832.jpg deleted file mode 100644 index ac41e188..00000000 Binary files a/pics/37101832.jpg and /dev/null differ diff --git a/pics/37104630.jpg b/pics/37104630.jpg deleted file mode 100644 index 2695afd7..00000000 Binary files a/pics/37104630.jpg and /dev/null differ diff --git a/pics/37115575.jpg b/pics/37115575.jpg deleted file mode 100644 index 6f1916ed..00000000 Binary files a/pics/37115575.jpg and /dev/null differ diff --git a/pics/37115973.jpg b/pics/37115973.jpg deleted file mode 100644 index 67889b13..00000000 Binary files a/pics/37115973.jpg and /dev/null differ diff --git a/pics/37120512.jpg b/pics/37120512.jpg deleted file mode 100644 index c37559bf..00000000 Binary files a/pics/37120512.jpg and /dev/null differ diff --git a/pics/37132349.jpg b/pics/37132349.jpg deleted file mode 100644 index 4bc10468..00000000 Binary files a/pics/37132349.jpg and /dev/null differ diff --git a/pics/37160778.jpg b/pics/37160778.jpg deleted file mode 100644 index 8240f661..00000000 Binary files a/pics/37160778.jpg and /dev/null differ diff --git a/pics/37164373.jpg b/pics/37164373.jpg deleted file mode 100644 index 1c341781..00000000 Binary files a/pics/37164373.jpg and /dev/null differ diff --git a/pics/37168514.jpg b/pics/37168514.jpg deleted file mode 100644 index 2c0f93b3..00000000 Binary files a/pics/37168514.jpg and /dev/null differ diff --git a/pics/37169670.jpg b/pics/37169670.jpg deleted file mode 100644 index 33a401e0..00000000 Binary files a/pics/37169670.jpg and /dev/null differ diff --git a/pics/3717252.jpg b/pics/3717252.jpg deleted file mode 100644 index dc8f3e65..00000000 Binary files a/pics/3717252.jpg and /dev/null differ diff --git a/pics/37192109.jpg b/pics/37192109.jpg deleted file mode 100755 index b6c8463d..00000000 Binary files a/pics/37192109.jpg and /dev/null differ diff --git a/pics/37195861.jpg b/pics/37195861.jpg deleted file mode 100644 index 94f508b7..00000000 Binary files a/pics/37195861.jpg and /dev/null differ diff --git a/pics/37198732.jpg b/pics/37198732.jpg deleted file mode 100644 index b67a7dc9..00000000 Binary files a/pics/37198732.jpg and /dev/null differ diff --git a/pics/37209439.jpg b/pics/37209439.jpg deleted file mode 100755 index 8e5c5456..00000000 Binary files a/pics/37209439.jpg and /dev/null differ diff --git a/pics/37231841.jpg b/pics/37231841.jpg deleted file mode 100644 index a68bcde3..00000000 Binary files a/pics/37231841.jpg and /dev/null differ diff --git a/pics/37241623.jpg b/pics/37241623.jpg deleted file mode 100644 index 6ccef863..00000000 Binary files a/pics/37241623.jpg and /dev/null differ diff --git a/pics/37243151.jpg b/pics/37243151.jpg deleted file mode 100644 index 23dd6191..00000000 Binary files a/pics/37243151.jpg and /dev/null differ diff --git a/pics/37265642.jpg b/pics/37265642.jpg deleted file mode 100644 index 53f473e3..00000000 Binary files a/pics/37265642.jpg and /dev/null differ diff --git a/pics/37267041.jpg b/pics/37267041.jpg deleted file mode 100644 index b65afaff..00000000 Binary files a/pics/37267041.jpg and /dev/null differ diff --git a/pics/37279508.jpg b/pics/37279508.jpg deleted file mode 100755 index e18a1227..00000000 Binary files a/pics/37279508.jpg and /dev/null differ diff --git a/pics/37300735.jpg b/pics/37300735.jpg deleted file mode 100644 index 865ff2a4..00000000 Binary files a/pics/37300735.jpg and /dev/null differ diff --git a/pics/37313348.jpg b/pics/37313348.jpg deleted file mode 100644 index ac9aa8aa..00000000 Binary files a/pics/37313348.jpg and /dev/null differ diff --git a/pics/37313786.jpg b/pics/37313786.jpg deleted file mode 100644 index 61cd5c9c..00000000 Binary files a/pics/37313786.jpg and /dev/null differ diff --git a/pics/37318031.jpg b/pics/37318031.jpg deleted file mode 100644 index e0f0fafd..00000000 Binary files a/pics/37318031.jpg and /dev/null differ diff --git a/pics/37322745.jpg b/pics/37322745.jpg deleted file mode 100644 index 8a960f6f..00000000 Binary files a/pics/37322745.jpg and /dev/null differ diff --git a/pics/3732747.jpg b/pics/3732747.jpg deleted file mode 100644 index ae48bae0..00000000 Binary files a/pics/3732747.jpg and /dev/null differ diff --git a/pics/3734202.jpg b/pics/3734202.jpg deleted file mode 100644 index c31ef67e..00000000 Binary files a/pics/3734202.jpg and /dev/null differ diff --git a/pics/37349495.jpg b/pics/37349495.jpg deleted file mode 100644 index b1cfeda6..00000000 Binary files a/pics/37349495.jpg and /dev/null differ diff --git a/pics/37364101.jpg b/pics/37364101.jpg deleted file mode 100644 index 2c7f89c1..00000000 Binary files a/pics/37364101.jpg and /dev/null differ diff --git a/pics/37383714.jpg b/pics/37383714.jpg deleted file mode 100644 index ddf29a4d..00000000 Binary files a/pics/37383714.jpg and /dev/null differ diff --git a/pics/37390589.jpg b/pics/37390589.jpg deleted file mode 100644 index 20ba6e97..00000000 Binary files a/pics/37390589.jpg and /dev/null differ diff --git a/pics/37390590.jpg b/pics/37390590.jpg deleted file mode 100644 index cb650602..00000000 Binary files a/pics/37390590.jpg and /dev/null differ diff --git a/pics/37406863.jpg b/pics/37406863.jpg deleted file mode 100644 index a87e9334..00000000 Binary files a/pics/37406863.jpg and /dev/null differ diff --git a/pics/37412656.jpg b/pics/37412656.jpg deleted file mode 100644 index 056df584..00000000 Binary files a/pics/37412656.jpg and /dev/null differ diff --git a/pics/37421075.jpg b/pics/37421075.jpg deleted file mode 100644 index ed8262bc..00000000 Binary files a/pics/37421075.jpg and /dev/null differ diff --git a/pics/37421579.jpg b/pics/37421579.jpg deleted file mode 100644 index 32bc7bd6..00000000 Binary files a/pics/37421579.jpg and /dev/null differ diff --git a/pics/37436476.jpg b/pics/37436476.jpg deleted file mode 100644 index 56ae5af0..00000000 Binary files a/pics/37436476.jpg and /dev/null differ diff --git a/pics/37445295.jpg b/pics/37445295.jpg deleted file mode 100644 index 84840ec7..00000000 Binary files a/pics/37445295.jpg and /dev/null differ diff --git a/pics/37457534.jpg b/pics/37457534.jpg deleted file mode 100644 index 009625ea..00000000 Binary files a/pics/37457534.jpg and /dev/null differ diff --git a/pics/37474917.jpg b/pics/37474917.jpg deleted file mode 100644 index 2e926328..00000000 Binary files a/pics/37474917.jpg and /dev/null differ diff --git a/pics/37507488.jpg b/pics/37507488.jpg deleted file mode 100644 index dfe5759e..00000000 Binary files a/pics/37507488.jpg and /dev/null differ diff --git a/pics/37511832.jpg b/pics/37511832.jpg deleted file mode 100644 index 4574e56a..00000000 Binary files a/pics/37511832.jpg and /dev/null differ diff --git a/pics/37520316.jpg b/pics/37520316.jpg deleted file mode 100644 index 6511f64f..00000000 Binary files a/pics/37520316.jpg and /dev/null differ diff --git a/pics/37534148.jpg b/pics/37534148.jpg deleted file mode 100644 index aed03f4a..00000000 Binary files a/pics/37534148.jpg and /dev/null differ diff --git a/pics/37557626.jpg b/pics/37557626.jpg deleted file mode 100644 index 7b546ee7..00000000 Binary files a/pics/37557626.jpg and /dev/null differ diff --git a/pics/37576645.jpg b/pics/37576645.jpg deleted file mode 100644 index 0cb17989..00000000 Binary files a/pics/37576645.jpg and /dev/null differ diff --git a/pics/3758046.jpg b/pics/3758046.jpg deleted file mode 100755 index b3f3efb2..00000000 Binary files a/pics/3758046.jpg and /dev/null differ diff --git a/pics/37580756.jpg b/pics/37580756.jpg deleted file mode 100644 index 2e86e18b..00000000 Binary files a/pics/37580756.jpg and /dev/null differ diff --git a/pics/37620434.jpg b/pics/37620434.jpg deleted file mode 100644 index 53960461..00000000 Binary files a/pics/37620434.jpg and /dev/null differ diff --git a/pics/37630732.jpg b/pics/37630732.jpg deleted file mode 100644 index f263b917..00000000 Binary files a/pics/37630732.jpg and /dev/null differ diff --git a/pics/37649320.jpg b/pics/37649320.jpg deleted file mode 100755 index 054267e2..00000000 Binary files a/pics/37649320.jpg and /dev/null differ diff --git a/pics/37675138.jpg b/pics/37675138.jpg deleted file mode 100644 index 3bd4dce6..00000000 Binary files a/pics/37675138.jpg and /dev/null differ diff --git a/pics/37675907.jpg b/pics/37675907.jpg deleted file mode 100644 index c74d7ef3..00000000 Binary files a/pics/37675907.jpg and /dev/null differ diff --git a/pics/37679169.jpg b/pics/37679169.jpg deleted file mode 100755 index b3f1bf74..00000000 Binary files a/pics/37679169.jpg and /dev/null differ diff --git a/pics/37684215.jpg b/pics/37684215.jpg deleted file mode 100644 index df5485a4..00000000 Binary files a/pics/37684215.jpg and /dev/null differ diff --git a/pics/37694547.jpg b/pics/37694547.jpg deleted file mode 100644 index 89fcd436..00000000 Binary files a/pics/37694547.jpg and /dev/null differ diff --git a/pics/37721209.jpg b/pics/37721209.jpg deleted file mode 100644 index 16b01a42..00000000 Binary files a/pics/37721209.jpg and /dev/null differ diff --git a/pics/3773196.jpg b/pics/3773196.jpg deleted file mode 100644 index 595072d8..00000000 Binary files a/pics/3773196.jpg and /dev/null differ diff --git a/pics/37742478.jpg b/pics/37742478.jpg deleted file mode 100644 index 3ed1dc86..00000000 Binary files a/pics/37742478.jpg and /dev/null differ diff --git a/pics/37744402.jpg b/pics/37744402.jpg deleted file mode 100644 index feee75dc..00000000 Binary files a/pics/37744402.jpg and /dev/null differ diff --git a/pics/37745740.jpg b/pics/37745740.jpg deleted file mode 100644 index 21751152..00000000 Binary files a/pics/37745740.jpg and /dev/null differ diff --git a/pics/37745919.jpg b/pics/37745919.jpg deleted file mode 100644 index 3079abac..00000000 Binary files a/pics/37745919.jpg and /dev/null differ diff --git a/pics/37752990.jpg b/pics/37752990.jpg deleted file mode 100755 index 4289ead0..00000000 Binary files a/pics/37752990.jpg and /dev/null differ diff --git a/pics/37781520.jpg b/pics/37781520.jpg deleted file mode 100644 index 0554b9a3..00000000 Binary files a/pics/37781520.jpg and /dev/null differ diff --git a/pics/37792478.jpg b/pics/37792478.jpg deleted file mode 100644 index 72cb5167..00000000 Binary files a/pics/37792478.jpg and /dev/null differ diff --git a/pics/37798171.jpg b/pics/37798171.jpg deleted file mode 100644 index c0b4c97d..00000000 Binary files a/pics/37798171.jpg and /dev/null differ diff --git a/pics/37803172.jpg b/pics/37803172.jpg deleted file mode 100644 index 6a9f5ace..00000000 Binary files a/pics/37803172.jpg and /dev/null differ diff --git a/pics/37806313.jpg b/pics/37806313.jpg deleted file mode 100644 index dad881b1..00000000 Binary files a/pics/37806313.jpg and /dev/null differ diff --git a/pics/37812118.jpg b/pics/37812118.jpg deleted file mode 100644 index dc45a191..00000000 Binary files a/pics/37812118.jpg and /dev/null differ diff --git a/pics/37820550.jpg b/pics/37820550.jpg deleted file mode 100644 index 2c7ad138..00000000 Binary files a/pics/37820550.jpg and /dev/null differ diff --git a/pics/37829468.jpg b/pics/37829468.jpg deleted file mode 100644 index bad10862..00000000 Binary files a/pics/37829468.jpg and /dev/null differ diff --git a/pics/3784434.jpg b/pics/3784434.jpg deleted file mode 100644 index d46859d5..00000000 Binary files a/pics/3784434.jpg and /dev/null differ diff --git a/pics/37869028.jpg b/pics/37869028.jpg deleted file mode 100644 index b376753d..00000000 Binary files a/pics/37869028.jpg and /dev/null differ diff --git a/pics/3790062.jpg b/pics/3790062.jpg deleted file mode 100644 index 4522f2b9..00000000 Binary files a/pics/3790062.jpg and /dev/null differ diff --git a/pics/37910722.jpg b/pics/37910722.jpg deleted file mode 100644 index 0b9d812f..00000000 Binary files a/pics/37910722.jpg and /dev/null differ diff --git a/pics/37926346.jpg b/pics/37926346.jpg deleted file mode 100644 index be9e772a..00000000 Binary files a/pics/37926346.jpg and /dev/null differ diff --git a/pics/37953640.jpg b/pics/37953640.jpg deleted file mode 100644 index e9f5e946..00000000 Binary files a/pics/37953640.jpg and /dev/null differ diff --git a/pics/37955049.jpg b/pics/37955049.jpg deleted file mode 100644 index efc9128a..00000000 Binary files a/pics/37955049.jpg and /dev/null differ diff --git a/pics/37957847.jpg b/pics/37957847.jpg deleted file mode 100644 index 51371911..00000000 Binary files a/pics/37957847.jpg and /dev/null differ diff --git a/pics/37970940.jpg b/pics/37970940.jpg deleted file mode 100644 index e817bd5f..00000000 Binary files a/pics/37970940.jpg and /dev/null differ diff --git a/pics/3797883.jpg b/pics/3797883.jpg deleted file mode 100644 index f3daf369..00000000 Binary files a/pics/3797883.jpg and /dev/null differ diff --git a/pics/37984162.jpg b/pics/37984162.jpg deleted file mode 100644 index 2a99202e..00000000 Binary files a/pics/37984162.jpg and /dev/null differ diff --git a/pics/37991342.jpg b/pics/37991342.jpg deleted file mode 100644 index 9374ac45..00000000 Binary files a/pics/37991342.jpg and /dev/null differ diff --git a/pics/37993923.jpg b/pics/37993923.jpg deleted file mode 100644 index fc1d24a2..00000000 Binary files a/pics/37993923.jpg and /dev/null differ diff --git a/pics/38007744.jpg b/pics/38007744.jpg deleted file mode 100644 index 0afe3d78..00000000 Binary files a/pics/38007744.jpg and /dev/null differ diff --git a/pics/38033121.jpg b/pics/38033121.jpg deleted file mode 100644 index 5a6fb523..00000000 Binary files a/pics/38033121.jpg and /dev/null differ diff --git a/pics/38033122.jpg b/pics/38033122.jpg deleted file mode 100644 index 4b2dacc1..00000000 Binary files a/pics/38033122.jpg and /dev/null differ diff --git a/pics/38033123.jpg b/pics/38033123.jpg deleted file mode 100644 index 304731be..00000000 Binary files a/pics/38033123.jpg and /dev/null differ diff --git a/pics/38033124.jpg b/pics/38033124.jpg deleted file mode 100644 index aa207b18..00000000 Binary files a/pics/38033124.jpg and /dev/null differ diff --git a/pics/38035986.jpg b/pics/38035986.jpg deleted file mode 100644 index 5a265c89..00000000 Binary files a/pics/38035986.jpg and /dev/null differ diff --git a/pics/38041940.jpg b/pics/38041940.jpg deleted file mode 100644 index fb31f763..00000000 Binary files a/pics/38041940.jpg and /dev/null differ diff --git a/pics/38041941.jpg b/pics/38041941.jpg deleted file mode 100644 index 4fed6718..00000000 Binary files a/pics/38041941.jpg and /dev/null differ diff --git a/pics/38049541.jpg b/pics/38049541.jpg deleted file mode 100644 index 2bbd2163..00000000 Binary files a/pics/38049541.jpg and /dev/null differ diff --git a/pics/38049934.jpg b/pics/38049934.jpg deleted file mode 100644 index 748e6bc2..00000000 Binary files a/pics/38049934.jpg and /dev/null differ diff --git a/pics/3810071.jpg b/pics/3810071.jpg deleted file mode 100644 index 951d95bf..00000000 Binary files a/pics/3810071.jpg and /dev/null differ diff --git a/pics/38107923.jpg b/pics/38107923.jpg deleted file mode 100644 index 244d34fa..00000000 Binary files a/pics/38107923.jpg and /dev/null differ diff --git a/pics/38109772.jpg b/pics/38109772.jpg deleted file mode 100644 index 84b55b56..00000000 Binary files a/pics/38109772.jpg and /dev/null differ diff --git a/pics/38116136.jpg b/pics/38116136.jpg deleted file mode 100644 index 4eb2817f..00000000 Binary files a/pics/38116136.jpg and /dev/null differ diff --git a/pics/38120068.jpg b/pics/38120068.jpg deleted file mode 100644 index 54fb309d..00000000 Binary files a/pics/38120068.jpg and /dev/null differ diff --git a/pics/38124994.jpg b/pics/38124994.jpg deleted file mode 100644 index d80cb55b..00000000 Binary files a/pics/38124994.jpg and /dev/null differ diff --git a/pics/38142739.jpg b/pics/38142739.jpg deleted file mode 100644 index 02a0b6f6..00000000 Binary files a/pics/38142739.jpg and /dev/null differ diff --git a/pics/3814632.jpg b/pics/3814632.jpg deleted file mode 100644 index c46da095..00000000 Binary files a/pics/3814632.jpg and /dev/null differ diff --git a/pics/38167722.jpg b/pics/38167722.jpg deleted file mode 100644 index 67c2f425..00000000 Binary files a/pics/38167722.jpg and /dev/null differ diff --git a/pics/38180759.jpg b/pics/38180759.jpg deleted file mode 100644 index 763a7684..00000000 Binary files a/pics/38180759.jpg and /dev/null differ diff --git a/pics/3819470.jpg b/pics/3819470.jpg deleted file mode 100644 index 691c0381..00000000 Binary files a/pics/3819470.jpg and /dev/null differ diff --git a/pics/38199696.jpg b/pics/38199696.jpg deleted file mode 100644 index ed92ed2c..00000000 Binary files a/pics/38199696.jpg and /dev/null differ diff --git a/pics/38210374.jpg b/pics/38210374.jpg deleted file mode 100644 index 561872c3..00000000 Binary files a/pics/38210374.jpg and /dev/null differ diff --git a/pics/38247752.jpg b/pics/38247752.jpg deleted file mode 100644 index fc687825..00000000 Binary files a/pics/38247752.jpg and /dev/null differ diff --git a/pics/38250531.jpg b/pics/38250531.jpg deleted file mode 100644 index 6eefda06..00000000 Binary files a/pics/38250531.jpg and /dev/null differ diff --git a/pics/3825890.jpg b/pics/3825890.jpg deleted file mode 100644 index 9b203288..00000000 Binary files a/pics/3825890.jpg and /dev/null differ diff --git a/pics/38273745.jpg b/pics/38273745.jpg deleted file mode 100644 index d3a4e2f3..00000000 Binary files a/pics/38273745.jpg and /dev/null differ diff --git a/pics/38275183.jpg b/pics/38275183.jpg deleted file mode 100644 index 3b3850d1..00000000 Binary files a/pics/38275183.jpg and /dev/null differ diff --git a/pics/38277918.jpg b/pics/38277918.jpg deleted file mode 100644 index 23a99066..00000000 Binary files a/pics/38277918.jpg and /dev/null differ diff --git a/pics/38280762.jpg b/pics/38280762.jpg deleted file mode 100644 index 60a1c993..00000000 Binary files a/pics/38280762.jpg and /dev/null differ diff --git a/pics/38289717.jpg b/pics/38289717.jpg deleted file mode 100644 index b78a5256..00000000 Binary files a/pics/38289717.jpg and /dev/null differ diff --git a/pics/38296564.jpg b/pics/38296564.jpg deleted file mode 100644 index ae5953c8..00000000 Binary files a/pics/38296564.jpg and /dev/null differ diff --git a/pics/38299233.jpg b/pics/38299233.jpg deleted file mode 100644 index 241f8a56..00000000 Binary files a/pics/38299233.jpg and /dev/null differ diff --git a/pics/38318146.jpg b/pics/38318146.jpg deleted file mode 100644 index 039f737e..00000000 Binary files a/pics/38318146.jpg and /dev/null differ diff --git a/pics/38331564.jpg b/pics/38331564.jpg deleted file mode 100644 index f022d879..00000000 Binary files a/pics/38331564.jpg and /dev/null differ diff --git a/pics/38354937.jpg b/pics/38354937.jpg deleted file mode 100644 index fe7980d8..00000000 Binary files a/pics/38354937.jpg and /dev/null differ diff --git a/pics/38369349.jpg b/pics/38369349.jpg deleted file mode 100644 index 4ff380dc..00000000 Binary files a/pics/38369349.jpg and /dev/null differ diff --git a/pics/38411870.jpg b/pics/38411870.jpg deleted file mode 100644 index d3866127..00000000 Binary files a/pics/38411870.jpg and /dev/null differ diff --git a/pics/3841833.jpg b/pics/3841833.jpg deleted file mode 100644 index 56267807..00000000 Binary files a/pics/3841833.jpg and /dev/null differ diff --git a/pics/38430673.jpg b/pics/38430673.jpg deleted file mode 100644 index 85fe08cf..00000000 Binary files a/pics/38430673.jpg and /dev/null differ diff --git a/pics/38445524.jpg b/pics/38445524.jpg deleted file mode 100644 index d3d6a143..00000000 Binary files a/pics/38445524.jpg and /dev/null differ diff --git a/pics/38450736.jpg b/pics/38450736.jpg deleted file mode 100644 index 8082c840..00000000 Binary files a/pics/38450736.jpg and /dev/null differ diff --git a/pics/3846170.jpg b/pics/3846170.jpg deleted file mode 100644 index 901f57ed..00000000 Binary files a/pics/3846170.jpg and /dev/null differ diff --git a/pics/38468214.jpg b/pics/38468214.jpg deleted file mode 100644 index 5c2bc54a..00000000 Binary files a/pics/38468214.jpg and /dev/null differ diff --git a/pics/38479725.jpg b/pics/38479725.jpg deleted file mode 100644 index 47dc351a..00000000 Binary files a/pics/38479725.jpg and /dev/null differ diff --git a/pics/38480590.jpg b/pics/38480590.jpg deleted file mode 100644 index 0d64a84f..00000000 Binary files a/pics/38480590.jpg and /dev/null differ diff --git a/pics/38491199.jpg b/pics/38491199.jpg deleted file mode 100755 index 5b16dc8c..00000000 Binary files a/pics/38491199.jpg and /dev/null differ diff --git a/pics/38492752.jpg b/pics/38492752.jpg deleted file mode 100644 index fa856938..00000000 Binary files a/pics/38492752.jpg and /dev/null differ diff --git a/pics/38495396.jpg b/pics/38495396.jpg deleted file mode 100644 index 78efc68b..00000000 Binary files a/pics/38495396.jpg and /dev/null differ diff --git a/pics/38517737.jpg b/pics/38517737.jpg deleted file mode 100755 index b4d85b6f..00000000 Binary files a/pics/38517737.jpg and /dev/null differ diff --git a/pics/38520918.jpg b/pics/38520918.jpg deleted file mode 100644 index 59fd9f75..00000000 Binary files a/pics/38520918.jpg and /dev/null differ diff --git a/pics/38522377.jpg b/pics/38522377.jpg deleted file mode 100644 index 34e507c1..00000000 Binary files a/pics/38522377.jpg and /dev/null differ diff --git a/pics/38525760.jpg b/pics/38525760.jpg deleted file mode 100644 index 335f4222..00000000 Binary files a/pics/38525760.jpg and /dev/null differ diff --git a/pics/38528901.jpg b/pics/38528901.jpg deleted file mode 100644 index 211d9278..00000000 Binary files a/pics/38528901.jpg and /dev/null differ diff --git a/pics/38538445.jpg b/pics/38538445.jpg deleted file mode 100644 index 08907afc..00000000 Binary files a/pics/38538445.jpg and /dev/null differ diff --git a/pics/38552107.jpg b/pics/38552107.jpg deleted file mode 100644 index f0c8a6ab..00000000 Binary files a/pics/38552107.jpg and /dev/null differ diff --git a/pics/38562933.jpg b/pics/38562933.jpg deleted file mode 100644 index aa5f8efe..00000000 Binary files a/pics/38562933.jpg and /dev/null differ diff --git a/pics/38568567.jpg b/pics/38568567.jpg deleted file mode 100644 index a150ecab..00000000 Binary files a/pics/38568567.jpg and /dev/null differ diff --git a/pics/38589847.jpg b/pics/38589847.jpg deleted file mode 100644 index 87f1f205..00000000 Binary files a/pics/38589847.jpg and /dev/null differ diff --git a/pics/38601126.jpg b/pics/38601126.jpg deleted file mode 100755 index 7bbe9ceb..00000000 Binary files a/pics/38601126.jpg and /dev/null differ diff --git a/pics/38643567.jpg b/pics/38643567.jpg deleted file mode 100644 index a327b148..00000000 Binary files a/pics/38643567.jpg and /dev/null differ diff --git a/pics/38667773.jpg b/pics/38667773.jpg deleted file mode 100644 index 6d80dd98..00000000 Binary files a/pics/38667773.jpg and /dev/null differ diff --git a/pics/38670435.jpg b/pics/38670435.jpg deleted file mode 100644 index 0a807eaf..00000000 Binary files a/pics/38670435.jpg and /dev/null differ diff --git a/pics/38679204.jpg b/pics/38679204.jpg deleted file mode 100644 index 4377daae..00000000 Binary files a/pics/38679204.jpg and /dev/null differ diff --git a/pics/38680149.jpg b/pics/38680149.jpg deleted file mode 100644 index 45954a0b..00000000 Binary files a/pics/38680149.jpg and /dev/null differ diff --git a/pics/3868277.jpg b/pics/3868277.jpg deleted file mode 100644 index ee13b6e1..00000000 Binary files a/pics/3868277.jpg and /dev/null differ diff --git a/pics/38699854.jpg b/pics/38699854.jpg deleted file mode 100644 index 1c809247..00000000 Binary files a/pics/38699854.jpg and /dev/null differ diff --git a/pics/38723936.jpg b/pics/38723936.jpg deleted file mode 100644 index 0b6a9926..00000000 Binary files a/pics/38723936.jpg and /dev/null differ diff --git a/pics/387282.jpg b/pics/387282.jpg deleted file mode 100644 index 39c19a24..00000000 Binary files a/pics/387282.jpg and /dev/null differ diff --git a/pics/38730226.jpg b/pics/38730226.jpg deleted file mode 100644 index e0900233..00000000 Binary files a/pics/38730226.jpg and /dev/null differ diff --git a/pics/38737148.jpg b/pics/38737148.jpg deleted file mode 100644 index 220c594e..00000000 Binary files a/pics/38737148.jpg and /dev/null differ diff --git a/pics/38742075.jpg b/pics/38742075.jpg deleted file mode 100644 index 24d34343..00000000 Binary files a/pics/38742075.jpg and /dev/null differ diff --git a/pics/38757297.jpg b/pics/38757297.jpg deleted file mode 100644 index aab9456f..00000000 Binary files a/pics/38757297.jpg and /dev/null differ diff --git a/pics/38761908.jpg b/pics/38761908.jpg deleted file mode 100755 index 8abda587..00000000 Binary files a/pics/38761908.jpg and /dev/null differ diff --git a/pics/38777931.jpg b/pics/38777931.jpg deleted file mode 100644 index ffb2661d..00000000 Binary files a/pics/38777931.jpg and /dev/null differ diff --git a/pics/38814750.jpg b/pics/38814750.jpg deleted file mode 100755 index a1b1a94a..00000000 Binary files a/pics/38814750.jpg and /dev/null differ diff --git a/pics/38815069.jpg b/pics/38815069.jpg deleted file mode 100644 index f1d41eaa..00000000 Binary files a/pics/38815069.jpg and /dev/null differ diff --git a/pics/38834303.jpg b/pics/38834303.jpg deleted file mode 100644 index 07520047..00000000 Binary files a/pics/38834303.jpg and /dev/null differ diff --git a/pics/38837163.jpg b/pics/38837163.jpg deleted file mode 100644 index 043202d6..00000000 Binary files a/pics/38837163.jpg and /dev/null differ diff --git a/pics/38844957.jpg b/pics/38844957.jpg deleted file mode 100644 index abf963c4..00000000 Binary files a/pics/38844957.jpg and /dev/null differ diff --git a/pics/38898779.jpg b/pics/38898779.jpg deleted file mode 100644 index 99422314..00000000 Binary files a/pics/38898779.jpg and /dev/null differ diff --git a/pics/3891471.jpg b/pics/3891471.jpg deleted file mode 100644 index 2cb1bb76..00000000 Binary files a/pics/3891471.jpg and /dev/null differ diff --git a/pics/38916461.jpg b/pics/38916461.jpg deleted file mode 100644 index 764145d2..00000000 Binary files a/pics/38916461.jpg and /dev/null differ diff --git a/pics/38942059.jpg b/pics/38942059.jpg deleted file mode 100644 index f2526305..00000000 Binary files a/pics/38942059.jpg and /dev/null differ diff --git a/pics/3897065.jpg b/pics/3897065.jpg deleted file mode 100644 index 9093c755..00000000 Binary files a/pics/3897065.jpg and /dev/null differ diff --git a/pics/38973775.jpg b/pics/38973775.jpg deleted file mode 100644 index 73d58810..00000000 Binary files a/pics/38973775.jpg and /dev/null differ diff --git a/pics/38975369.jpg b/pics/38975369.jpg deleted file mode 100644 index 0d8591ac..00000000 Binary files a/pics/38975369.jpg and /dev/null differ diff --git a/pics/38981606.jpg b/pics/38981606.jpg deleted file mode 100644 index 48161fd6..00000000 Binary files a/pics/38981606.jpg and /dev/null differ diff --git a/pics/38982356.jpg b/pics/38982356.jpg deleted file mode 100644 index 550ec549..00000000 Binary files a/pics/38982356.jpg and /dev/null differ diff --git a/pics/38988538.jpg b/pics/38988538.jpg deleted file mode 100755 index 3d00cabd..00000000 Binary files a/pics/38988538.jpg and /dev/null differ diff --git a/pics/38992735.jpg b/pics/38992735.jpg deleted file mode 100644 index 15c8e03c..00000000 Binary files a/pics/38992735.jpg and /dev/null differ diff --git a/pics/38999506.jpg b/pics/38999506.jpg deleted file mode 100644 index 8916fd5e..00000000 Binary files a/pics/38999506.jpg and /dev/null differ diff --git a/pics/39004808.jpg b/pics/39004808.jpg deleted file mode 100644 index 41d1c8c5..00000000 Binary files a/pics/39004808.jpg and /dev/null differ diff --git a/pics/3900605.jpg b/pics/3900605.jpg deleted file mode 100644 index dc4688c9..00000000 Binary files a/pics/3900605.jpg and /dev/null differ diff --git a/pics/39019325.jpg b/pics/39019325.jpg deleted file mode 100644 index 68245bfb..00000000 Binary files a/pics/39019325.jpg and /dev/null differ diff --git a/pics/39030163.jpg b/pics/39030163.jpg deleted file mode 100644 index 21f58919..00000000 Binary files a/pics/39030163.jpg and /dev/null differ diff --git a/pics/39037517.jpg b/pics/39037517.jpg deleted file mode 100644 index 4be1b3c5..00000000 Binary files a/pics/39037517.jpg and /dev/null differ diff --git a/pics/39091951.jpg b/pics/39091951.jpg deleted file mode 100644 index 610b211f..00000000 Binary files a/pics/39091951.jpg and /dev/null differ diff --git a/pics/39111158.jpg b/pics/39111158.jpg deleted file mode 100644 index eafc39fe..00000000 Binary files a/pics/39111158.jpg and /dev/null differ diff --git a/pics/39118197.jpg b/pics/39118197.jpg deleted file mode 100644 index b87dc372..00000000 Binary files a/pics/39118197.jpg and /dev/null differ diff --git a/pics/39122311.jpg b/pics/39122311.jpg deleted file mode 100644 index b747aa87..00000000 Binary files a/pics/39122311.jpg and /dev/null differ diff --git a/pics/39131963.jpg b/pics/39131963.jpg deleted file mode 100644 index 9c0df46e..00000000 Binary files a/pics/39131963.jpg and /dev/null differ diff --git a/pics/39139935.jpg b/pics/39139935.jpg deleted file mode 100644 index f52a4c52..00000000 Binary files a/pics/39139935.jpg and /dev/null differ diff --git a/pics/39153655.jpg b/pics/39153655.jpg deleted file mode 100644 index 44f342b9..00000000 Binary files a/pics/39153655.jpg and /dev/null differ diff --git a/pics/39163598.jpg b/pics/39163598.jpg deleted file mode 100644 index 715d8ba6..00000000 Binary files a/pics/39163598.jpg and /dev/null differ diff --git a/pics/39168895.jpg b/pics/39168895.jpg deleted file mode 100644 index 2fb28cb1..00000000 Binary files a/pics/39168895.jpg and /dev/null differ diff --git a/pics/39175982.jpg b/pics/39175982.jpg deleted file mode 100644 index b775859c..00000000 Binary files a/pics/39175982.jpg and /dev/null differ diff --git a/pics/39180960.jpg b/pics/39180960.jpg deleted file mode 100644 index 33916759..00000000 Binary files a/pics/39180960.jpg and /dev/null differ diff --git a/pics/3918345.jpg b/pics/3918345.jpg deleted file mode 100644 index 2d37b974..00000000 Binary files a/pics/3918345.jpg and /dev/null differ diff --git a/pics/39188539.jpg b/pics/39188539.jpg deleted file mode 100644 index b1e8769d..00000000 Binary files a/pics/39188539.jpg and /dev/null differ diff --git a/pics/39191307.jpg b/pics/39191307.jpg deleted file mode 100644 index cfda5a90..00000000 Binary files a/pics/39191307.jpg and /dev/null differ diff --git a/pics/39229392.jpg b/pics/39229392.jpg deleted file mode 100644 index d74c0be4..00000000 Binary files a/pics/39229392.jpg and /dev/null differ diff --git a/pics/39239728.jpg b/pics/39239728.jpg deleted file mode 100644 index 8dc368e6..00000000 Binary files a/pics/39239728.jpg and /dev/null differ diff --git a/pics/39246582.jpg b/pics/39246582.jpg deleted file mode 100644 index b038753a..00000000 Binary files a/pics/39246582.jpg and /dev/null differ diff --git a/pics/39256679.jpg b/pics/39256679.jpg deleted file mode 100644 index 4628515c..00000000 Binary files a/pics/39256679.jpg and /dev/null differ diff --git a/pics/39260991.jpg b/pics/39260991.jpg deleted file mode 100755 index 26d205d7..00000000 Binary files a/pics/39260991.jpg and /dev/null differ diff --git a/pics/39261576.jpg b/pics/39261576.jpg deleted file mode 100644 index 82a88e89..00000000 Binary files a/pics/39261576.jpg and /dev/null differ diff --git a/pics/39272762.jpg b/pics/39272762.jpg deleted file mode 100644 index f5727c4f..00000000 Binary files a/pics/39272762.jpg and /dev/null differ diff --git a/pics/39276790.jpg b/pics/39276790.jpg deleted file mode 100644 index 09dd0a22..00000000 Binary files a/pics/39276790.jpg and /dev/null differ diff --git a/pics/39284521.jpg b/pics/39284521.jpg deleted file mode 100644 index 5b02d58a..00000000 Binary files a/pics/39284521.jpg and /dev/null differ diff --git a/pics/39303359.jpg b/pics/39303359.jpg deleted file mode 100644 index 95fe09eb..00000000 Binary files a/pics/39303359.jpg and /dev/null differ diff --git a/pics/39343610.jpg b/pics/39343610.jpg deleted file mode 100644 index 3122fab6..00000000 Binary files a/pics/39343610.jpg and /dev/null differ diff --git a/pics/39357122.jpg b/pics/39357122.jpg deleted file mode 100755 index 5d740b52..00000000 Binary files a/pics/39357122.jpg and /dev/null differ diff --git a/pics/39387565.jpg b/pics/39387565.jpg deleted file mode 100755 index e7bead39..00000000 Binary files a/pics/39387565.jpg and /dev/null differ diff --git a/pics/39389320.jpg b/pics/39389320.jpg deleted file mode 100644 index f2fbd574..00000000 Binary files a/pics/39389320.jpg and /dev/null differ diff --git a/pics/39399168.jpg b/pics/39399168.jpg deleted file mode 100644 index 6fee0f70..00000000 Binary files a/pics/39399168.jpg and /dev/null differ diff --git a/pics/39402797.jpg b/pics/39402797.jpg deleted file mode 100644 index e2afb6b2..00000000 Binary files a/pics/39402797.jpg and /dev/null differ diff --git a/pics/39432962.jpg b/pics/39432962.jpg deleted file mode 100644 index 0965a1ea..00000000 Binary files a/pics/39432962.jpg and /dev/null differ diff --git a/pics/39439590.jpg b/pics/39439590.jpg deleted file mode 100644 index 058ff0f6..00000000 Binary files a/pics/39439590.jpg and /dev/null differ diff --git a/pics/39440937.jpg b/pics/39440937.jpg deleted file mode 100644 index 299f235c..00000000 Binary files a/pics/39440937.jpg and /dev/null differ diff --git a/pics/39454112.jpg b/pics/39454112.jpg deleted file mode 100644 index defc7343..00000000 Binary files a/pics/39454112.jpg and /dev/null differ diff --git a/pics/39477584.jpg b/pics/39477584.jpg deleted file mode 100644 index ab122c2a..00000000 Binary files a/pics/39477584.jpg and /dev/null differ diff --git a/pics/39507162.jpg b/pics/39507162.jpg deleted file mode 100644 index 33282ee7..00000000 Binary files a/pics/39507162.jpg and /dev/null differ diff --git a/pics/39512984.jpg b/pics/39512984.jpg deleted file mode 100644 index 4059a5dd..00000000 Binary files a/pics/39512984.jpg and /dev/null differ diff --git a/pics/39526584.jpg b/pics/39526584.jpg deleted file mode 100644 index ec101e67..00000000 Binary files a/pics/39526584.jpg and /dev/null differ diff --git a/pics/39531794.jpg b/pics/39531794.jpg deleted file mode 100644 index d029d367..00000000 Binary files a/pics/39531794.jpg and /dev/null differ diff --git a/pics/39537362.jpg b/pics/39537362.jpg deleted file mode 100644 index fa174f3f..00000000 Binary files a/pics/39537362.jpg and /dev/null differ diff --git a/pics/3954901.jpg b/pics/3954901.jpg deleted file mode 100644 index 3d7b6962..00000000 Binary files a/pics/3954901.jpg and /dev/null differ diff --git a/pics/39552864.jpg b/pics/39552864.jpg deleted file mode 100644 index 4343d6db..00000000 Binary files a/pics/39552864.jpg and /dev/null differ diff --git a/pics/39648965.jpg b/pics/39648965.jpg deleted file mode 100644 index f14f6fc6..00000000 Binary files a/pics/39648965.jpg and /dev/null differ diff --git a/pics/39672388.jpg b/pics/39672388.jpg deleted file mode 100644 index 5fff8e33..00000000 Binary files a/pics/39672388.jpg and /dev/null differ diff --git a/pics/39674352.jpg b/pics/39674352.jpg deleted file mode 100644 index ee98d3a3..00000000 Binary files a/pics/39674352.jpg and /dev/null differ diff --git a/pics/39695323.jpg b/pics/39695323.jpg deleted file mode 100644 index 808c165b..00000000 Binary files a/pics/39695323.jpg and /dev/null differ diff --git a/pics/39699564.jpg b/pics/39699564.jpg deleted file mode 100644 index 56e462c9..00000000 Binary files a/pics/39699564.jpg and /dev/null differ diff --git a/pics/39701395.jpg b/pics/39701395.jpg deleted file mode 100644 index 45528fe8..00000000 Binary files a/pics/39701395.jpg and /dev/null differ diff --git a/pics/39703254.jpg b/pics/39703254.jpg deleted file mode 100644 index c1b04778..00000000 Binary files a/pics/39703254.jpg and /dev/null differ diff --git a/pics/39711336.jpg b/pics/39711336.jpg deleted file mode 100644 index 429e7aec..00000000 Binary files a/pics/39711336.jpg and /dev/null differ diff --git a/pics/39712330.jpg b/pics/39712330.jpg deleted file mode 100644 index f77c69e1..00000000 Binary files a/pics/39712330.jpg and /dev/null differ diff --git a/pics/39719977.jpg b/pics/39719977.jpg deleted file mode 100644 index 556d8ce6..00000000 Binary files a/pics/39719977.jpg and /dev/null differ diff --git a/pics/3972721.jpg b/pics/3972721.jpg deleted file mode 100644 index 95f3dbd5..00000000 Binary files a/pics/3972721.jpg and /dev/null differ diff --git a/pics/39751093.jpg b/pics/39751093.jpg deleted file mode 100644 index f7bcd490..00000000 Binary files a/pics/39751093.jpg and /dev/null differ diff --git a/pics/39751094.jpg b/pics/39751094.jpg deleted file mode 100644 index 079dbaf9..00000000 Binary files a/pics/39751094.jpg and /dev/null differ diff --git a/pics/39761138.jpg b/pics/39761138.jpg deleted file mode 100644 index e6848c00..00000000 Binary files a/pics/39761138.jpg and /dev/null differ diff --git a/pics/39765115.jpg b/pics/39765115.jpg deleted file mode 100644 index 33faacfb..00000000 Binary files a/pics/39765115.jpg and /dev/null differ diff --git a/pics/39765958.jpg b/pics/39765958.jpg deleted file mode 100644 index 12d7cf05..00000000 Binary files a/pics/39765958.jpg and /dev/null differ diff --git a/pics/39774685.jpg b/pics/39774685.jpg deleted file mode 100644 index 37709144..00000000 Binary files a/pics/39774685.jpg and /dev/null differ diff --git a/pics/39806198.jpg b/pics/39806198.jpg deleted file mode 100644 index 5e89d4f1..00000000 Binary files a/pics/39806198.jpg and /dev/null differ diff --git a/pics/39823987.jpg b/pics/39823987.jpg deleted file mode 100644 index 8dd0e305..00000000 Binary files a/pics/39823987.jpg and /dev/null differ diff --git a/pics/39829561.jpg b/pics/39829561.jpg deleted file mode 100644 index a5c060dc..00000000 Binary files a/pics/39829561.jpg and /dev/null differ diff --git a/pics/3985011.jpg b/pics/3985011.jpg deleted file mode 100644 index 7ce1d0d5..00000000 Binary files a/pics/3985011.jpg and /dev/null differ diff --git a/pics/39853199.jpg b/pics/39853199.jpg deleted file mode 100644 index 41a4592d..00000000 Binary files a/pics/39853199.jpg and /dev/null differ diff --git a/pics/39872.jpg b/pics/39872.jpg deleted file mode 100755 index e7b1d7e3..00000000 Binary files a/pics/39872.jpg and /dev/null differ diff --git a/pics/39892082.jpg b/pics/39892082.jpg deleted file mode 100644 index 64a84d1a..00000000 Binary files a/pics/39892082.jpg and /dev/null differ diff --git a/pics/3989465.jpg b/pics/3989465.jpg deleted file mode 100644 index d84f805b..00000000 Binary files a/pics/3989465.jpg and /dev/null differ diff --git a/pics/39897277.jpg b/pics/39897277.jpg deleted file mode 100644 index 60f07f99..00000000 Binary files a/pics/39897277.jpg and /dev/null differ diff --git a/pics/39900763.jpg b/pics/39900763.jpg deleted file mode 100644 index feaed0b2..00000000 Binary files a/pics/39900763.jpg and /dev/null differ diff --git a/pics/39905966.jpg b/pics/39905966.jpg deleted file mode 100644 index 6b191d9b..00000000 Binary files a/pics/39905966.jpg and /dev/null differ diff --git a/pics/39910367.jpg b/pics/39910367.jpg deleted file mode 100644 index 6b3f8c37..00000000 Binary files a/pics/39910367.jpg and /dev/null differ diff --git a/pics/39913299.jpg b/pics/39913299.jpg deleted file mode 100755 index 6a4b1ff5..00000000 Binary files a/pics/39913299.jpg and /dev/null differ diff --git a/pics/39956951.jpg b/pics/39956951.jpg deleted file mode 100644 index 597f4173..00000000 Binary files a/pics/39956951.jpg and /dev/null differ diff --git a/pics/39967326.jpg b/pics/39967326.jpg deleted file mode 100644 index 45812d5f..00000000 Binary files a/pics/39967326.jpg and /dev/null differ diff --git a/pics/39972129.jpg b/pics/39972129.jpg deleted file mode 100644 index 8445a495..00000000 Binary files a/pics/39972129.jpg and /dev/null differ diff --git a/pics/39972130.jpg b/pics/39972130.jpg deleted file mode 100644 index dd9ee597..00000000 Binary files a/pics/39972130.jpg and /dev/null differ diff --git a/pics/39978267.jpg b/pics/39978267.jpg deleted file mode 100644 index 0bf62122..00000000 Binary files a/pics/39978267.jpg and /dev/null differ diff --git a/pics/39980304.jpg b/pics/39980304.jpg deleted file mode 100644 index 8744238e..00000000 Binary files a/pics/39980304.jpg and /dev/null differ diff --git a/pics/39984786.jpg b/pics/39984786.jpg deleted file mode 100644 index aabd0286..00000000 Binary files a/pics/39984786.jpg and /dev/null differ diff --git a/pics/39987164.jpg b/pics/39987164.jpg deleted file mode 100644 index be045f86..00000000 Binary files a/pics/39987164.jpg and /dev/null differ diff --git a/pics/40005099.jpg b/pics/40005099.jpg deleted file mode 100755 index 1e48f1c3..00000000 Binary files a/pics/40005099.jpg and /dev/null differ diff --git a/pics/40012727.jpg b/pics/40012727.jpg deleted file mode 100644 index 23a950de..00000000 Binary files a/pics/40012727.jpg and /dev/null differ diff --git a/pics/40028305.jpg b/pics/40028305.jpg deleted file mode 100644 index 6ca57be8..00000000 Binary files a/pics/40028305.jpg and /dev/null differ diff --git a/pics/40044918.jpg b/pics/40044918.jpg deleted file mode 100644 index f7f8d3bb..00000000 Binary files a/pics/40044918.jpg and /dev/null differ diff --git a/pics/40048324.jpg b/pics/40048324.jpg deleted file mode 100644 index a0941606..00000000 Binary files a/pics/40048324.jpg and /dev/null differ diff --git a/pics/40061558.jpg b/pics/40061558.jpg deleted file mode 100644 index 640129d0..00000000 Binary files a/pics/40061558.jpg and /dev/null differ diff --git a/pics/40089744.jpg b/pics/40089744.jpg deleted file mode 100644 index e33ff6b8..00000000 Binary files a/pics/40089744.jpg and /dev/null differ diff --git a/pics/40101111.jpg b/pics/40101111.jpg deleted file mode 100644 index 93450ecb..00000000 Binary files a/pics/40101111.jpg and /dev/null differ diff --git a/pics/40133511.jpg b/pics/40133511.jpg deleted file mode 100644 index 07c7da44..00000000 Binary files a/pics/40133511.jpg and /dev/null differ diff --git a/pics/40143123.jpg b/pics/40143123.jpg deleted file mode 100644 index a92951b0..00000000 Binary files a/pics/40143123.jpg and /dev/null differ diff --git a/pics/40155554.jpg b/pics/40155554.jpg deleted file mode 100644 index 016cbd65..00000000 Binary files a/pics/40155554.jpg and /dev/null differ diff --git a/pics/40159926.jpg b/pics/40159926.jpg deleted file mode 100755 index 164dfe64..00000000 Binary files a/pics/40159926.jpg and /dev/null differ diff --git a/pics/40160226.jpg b/pics/40160226.jpg deleted file mode 100644 index 1d46a619..00000000 Binary files a/pics/40160226.jpg and /dev/null differ diff --git a/pics/40164421.jpg b/pics/40164421.jpg deleted file mode 100644 index 260e943a..00000000 Binary files a/pics/40164421.jpg and /dev/null differ diff --git a/pics/40172183.jpg b/pics/40172183.jpg deleted file mode 100644 index a787a216..00000000 Binary files a/pics/40172183.jpg and /dev/null differ diff --git a/pics/40173854.jpg b/pics/40173854.jpg deleted file mode 100644 index 38a45b72..00000000 Binary files a/pics/40173854.jpg and /dev/null differ diff --git a/pics/40189917.jpg b/pics/40189917.jpg deleted file mode 100644 index 5fe21faa..00000000 Binary files a/pics/40189917.jpg and /dev/null differ diff --git a/pics/40196604.jpg b/pics/40196604.jpg deleted file mode 100644 index 3fd169b8..00000000 Binary files a/pics/40196604.jpg and /dev/null differ diff --git a/pics/40200834.jpg b/pics/40200834.jpg deleted file mode 100644 index 21c93a50..00000000 Binary files a/pics/40200834.jpg and /dev/null differ diff --git a/pics/40213117.jpg b/pics/40213117.jpg deleted file mode 100644 index 033fb10b..00000000 Binary files a/pics/40213117.jpg and /dev/null differ diff --git a/pics/40217358.jpg b/pics/40217358.jpg deleted file mode 100644 index 0f81e147..00000000 Binary files a/pics/40217358.jpg and /dev/null differ diff --git a/pics/40225398.jpg b/pics/40225398.jpg deleted file mode 100644 index 2205e777..00000000 Binary files a/pics/40225398.jpg and /dev/null differ diff --git a/pics/4022819.jpg b/pics/4022819.jpg deleted file mode 100644 index bad500f3..00000000 Binary files a/pics/4022819.jpg and /dev/null differ diff --git a/pics/40230018.jpg b/pics/40230018.jpg deleted file mode 100644 index e7bd8c7b..00000000 Binary files a/pics/40230018.jpg and /dev/null differ diff --git a/pics/40240595.jpg b/pics/40240595.jpg deleted file mode 100644 index c4a71ebf..00000000 Binary files a/pics/40240595.jpg and /dev/null differ diff --git a/pics/40253382.jpg b/pics/40253382.jpg deleted file mode 100644 index f5beb518..00000000 Binary files a/pics/40253382.jpg and /dev/null differ diff --git a/pics/402568.jpg b/pics/402568.jpg deleted file mode 100644 index 57013879..00000000 Binary files a/pics/402568.jpg and /dev/null differ diff --git a/pics/40267580.jpg b/pics/40267580.jpg deleted file mode 100644 index 48a7839d..00000000 Binary files a/pics/40267580.jpg and /dev/null differ diff --git a/pics/40279770.jpg b/pics/40279770.jpg deleted file mode 100644 index ed656e20..00000000 Binary files a/pics/40279770.jpg and /dev/null differ diff --git a/pics/40318957.jpg b/pics/40318957.jpg deleted file mode 100644 index 466197b0..00000000 Binary files a/pics/40318957.jpg and /dev/null differ diff --git a/pics/4031928.jpg b/pics/4031928.jpg deleted file mode 100644 index aa506dbf..00000000 Binary files a/pics/4031928.jpg and /dev/null differ diff --git a/pics/40320754.jpg b/pics/40320754.jpg deleted file mode 100644 index a68ae29d..00000000 Binary files a/pics/40320754.jpg and /dev/null differ diff --git a/pics/40343749.jpg b/pics/40343749.jpg deleted file mode 100644 index e96db74c..00000000 Binary files a/pics/40343749.jpg and /dev/null differ diff --git a/pics/40348946.jpg b/pics/40348946.jpg deleted file mode 100644 index 43883706..00000000 Binary files a/pics/40348946.jpg and /dev/null differ diff --git a/pics/40350910.jpg b/pics/40350910.jpg deleted file mode 100644 index 0176b451..00000000 Binary files a/pics/40350910.jpg and /dev/null differ diff --git a/pics/4035199.jpg b/pics/4035199.jpg deleted file mode 100644 index 50d353c5..00000000 Binary files a/pics/4035199.jpg and /dev/null differ diff --git a/pics/40371092.jpg b/pics/40371092.jpg deleted file mode 100644 index 458c0643..00000000 Binary files a/pics/40371092.jpg and /dev/null differ diff --git a/pics/40374923.jpg b/pics/40374923.jpg deleted file mode 100644 index b787e290..00000000 Binary files a/pics/40374923.jpg and /dev/null differ diff --git a/pics/40383551.jpg b/pics/40383551.jpg deleted file mode 100644 index de59ecf0..00000000 Binary files a/pics/40383551.jpg and /dev/null differ diff --git a/pics/403847.jpg b/pics/403847.jpg deleted file mode 100644 index adb70b69..00000000 Binary files a/pics/403847.jpg and /dev/null differ diff --git a/pics/40384720.jpg b/pics/40384720.jpg deleted file mode 100644 index a22c6260..00000000 Binary files a/pics/40384720.jpg and /dev/null differ diff --git a/pics/40387124.jpg b/pics/40387124.jpg deleted file mode 100644 index b3bfc0b2..00000000 Binary files a/pics/40387124.jpg and /dev/null differ diff --git a/pics/40390147.jpg b/pics/40390147.jpg deleted file mode 100644 index 264179c3..00000000 Binary files a/pics/40390147.jpg and /dev/null differ diff --git a/pics/40391316.jpg b/pics/40391316.jpg deleted file mode 100644 index 1112b12c..00000000 Binary files a/pics/40391316.jpg and /dev/null differ diff --git a/pics/40410110.jpg b/pics/40410110.jpg deleted file mode 100644 index 9d955303..00000000 Binary files a/pics/40410110.jpg and /dev/null differ diff --git a/pics/40418351.jpg b/pics/40418351.jpg deleted file mode 100644 index 18ce53b4..00000000 Binary files a/pics/40418351.jpg and /dev/null differ diff --git a/pics/4041838.jpg b/pics/4041838.jpg deleted file mode 100644 index b46e9268..00000000 Binary files a/pics/4041838.jpg and /dev/null differ diff --git a/pics/4042268.jpg b/pics/4042268.jpg deleted file mode 100644 index 469ebbbe..00000000 Binary files a/pics/4042268.jpg and /dev/null differ diff --git a/pics/40424929.jpg b/pics/40424929.jpg deleted file mode 100644 index 7e2d3b93..00000000 Binary files a/pics/40424929.jpg and /dev/null differ diff --git a/pics/40450317.jpg b/pics/40450317.jpg deleted file mode 100755 index 33775614..00000000 Binary files a/pics/40450317.jpg and /dev/null differ diff --git a/pics/40453765.jpg b/pics/40453765.jpg deleted file mode 100644 index cb2c5226..00000000 Binary files a/pics/40453765.jpg and /dev/null differ diff --git a/pics/40465719.jpg b/pics/40465719.jpg deleted file mode 100644 index fbef2396..00000000 Binary files a/pics/40465719.jpg and /dev/null differ diff --git a/pics/40473581.jpg b/pics/40473581.jpg deleted file mode 100644 index 07469d33..00000000 Binary files a/pics/40473581.jpg and /dev/null differ diff --git a/pics/40502912.jpg b/pics/40502912.jpg deleted file mode 100644 index c4b5153e..00000000 Binary files a/pics/40502912.jpg and /dev/null differ diff --git a/pics/40529384.jpg b/pics/40529384.jpg deleted file mode 100644 index 14263980..00000000 Binary files a/pics/40529384.jpg and /dev/null differ diff --git a/pics/40555959.jpg b/pics/40555959.jpg deleted file mode 100644 index 2bb552f1..00000000 Binary files a/pics/40555959.jpg and /dev/null differ diff --git a/pics/40575313.jpg b/pics/40575313.jpg deleted file mode 100644 index 25d21f2e..00000000 Binary files a/pics/40575313.jpg and /dev/null differ diff --git a/pics/4058065.jpg b/pics/4058065.jpg deleted file mode 100644 index 637559f9..00000000 Binary files a/pics/4058065.jpg and /dev/null differ diff --git a/pics/40583194.jpg b/pics/40583194.jpg deleted file mode 100644 index 508b7566..00000000 Binary files a/pics/40583194.jpg and /dev/null differ diff --git a/pics/40591390.jpg b/pics/40591390.jpg deleted file mode 100644 index c51d0ab9..00000000 Binary files a/pics/40591390.jpg and /dev/null differ diff --git a/pics/40605147.jpg b/pics/40605147.jpg deleted file mode 100755 index 80decae2..00000000 Binary files a/pics/40605147.jpg and /dev/null differ diff --git a/pics/40607210.jpg b/pics/40607210.jpg deleted file mode 100644 index 4839654a..00000000 Binary files a/pics/40607210.jpg and /dev/null differ diff --git a/pics/40619741.jpg b/pics/40619741.jpg deleted file mode 100644 index 72a2069c..00000000 Binary files a/pics/40619741.jpg and /dev/null differ diff --git a/pics/40619825.jpg b/pics/40619825.jpg deleted file mode 100644 index 61287dd5..00000000 Binary files a/pics/40619825.jpg and /dev/null differ diff --git a/pics/40633297.jpg b/pics/40633297.jpg deleted file mode 100644 index a44d2229..00000000 Binary files a/pics/40633297.jpg and /dev/null differ diff --git a/pics/40640057.jpg b/pics/40640057.jpg deleted file mode 100644 index d4ff41a4..00000000 Binary files a/pics/40640057.jpg and /dev/null differ diff --git a/pics/40640058.jpg b/pics/40640058.jpg deleted file mode 100644 index c018c966..00000000 Binary files a/pics/40640058.jpg and /dev/null differ diff --git a/pics/40640059.jpg b/pics/40640059.jpg deleted file mode 100644 index 317656c8..00000000 Binary files a/pics/40640059.jpg and /dev/null differ diff --git a/pics/4064256.jpg b/pics/4064256.jpg deleted file mode 100644 index 1caf4923..00000000 Binary files a/pics/4064256.jpg and /dev/null differ diff --git a/pics/40659562.jpg b/pics/40659562.jpg deleted file mode 100644 index 18fea364..00000000 Binary files a/pics/40659562.jpg and /dev/null differ diff --git a/pics/40666140.jpg b/pics/40666140.jpg deleted file mode 100644 index 20acd2f5..00000000 Binary files a/pics/40666140.jpg and /dev/null differ diff --git a/pics/40672993.jpg b/pics/40672993.jpg deleted file mode 100644 index 9a0d7c83..00000000 Binary files a/pics/40672993.jpg and /dev/null differ diff --git a/pics/4068622.jpg b/pics/4068622.jpg deleted file mode 100644 index 9ff29a8a..00000000 Binary files a/pics/4068622.jpg and /dev/null differ diff --git a/pics/40695128.jpg b/pics/40695128.jpg deleted file mode 100644 index 8b26d069..00000000 Binary files a/pics/40695128.jpg and /dev/null differ diff --git a/pics/40703222.jpg b/pics/40703222.jpg deleted file mode 100644 index 8b52c635..00000000 Binary files a/pics/40703222.jpg and /dev/null differ diff --git a/pics/40703223.jpg b/pics/40703223.jpg deleted file mode 100644 index 339f8942..00000000 Binary files a/pics/40703223.jpg and /dev/null differ diff --git a/pics/40703393.jpg b/pics/40703393.jpg deleted file mode 100644 index b5fa5656..00000000 Binary files a/pics/40703393.jpg and /dev/null differ diff --git a/pics/40732515.jpg b/pics/40732515.jpg deleted file mode 100644 index cfec5c7e..00000000 Binary files a/pics/40732515.jpg and /dev/null differ diff --git a/pics/40736921.jpg b/pics/40736921.jpg deleted file mode 100644 index 11167902..00000000 Binary files a/pics/40736921.jpg and /dev/null differ diff --git a/pics/40737112.jpg b/pics/40737112.jpg deleted file mode 100644 index 1452618f..00000000 Binary files a/pics/40737112.jpg and /dev/null differ diff --git a/pics/4081094.jpg b/pics/4081094.jpg deleted file mode 100644 index ca2a3134..00000000 Binary files a/pics/4081094.jpg and /dev/null differ diff --git a/pics/4081665.jpg b/pics/4081665.jpg deleted file mode 100755 index 5d64c4f2..00000000 Binary files a/pics/4081665.jpg and /dev/null differ diff --git a/pics/40817915.jpg b/pics/40817915.jpg deleted file mode 100644 index 29d46302..00000000 Binary files a/pics/40817915.jpg and /dev/null differ diff --git a/pics/4081825.jpg b/pics/4081825.jpg deleted file mode 100644 index 5a153bee..00000000 Binary files a/pics/4081825.jpg and /dev/null differ diff --git a/pics/40826495.jpg b/pics/40826495.jpg deleted file mode 100644 index fcbea0ed..00000000 Binary files a/pics/40826495.jpg and /dev/null differ diff --git a/pics/40830387.jpg b/pics/40830387.jpg deleted file mode 100644 index 13416142..00000000 Binary files a/pics/40830387.jpg and /dev/null differ diff --git a/pics/40838625.jpg b/pics/40838625.jpg deleted file mode 100755 index a54df4af..00000000 Binary files a/pics/40838625.jpg and /dev/null differ diff --git a/pics/40844552.jpg b/pics/40844552.jpg deleted file mode 100644 index 9cfcd729..00000000 Binary files a/pics/40844552.jpg and /dev/null differ diff --git a/pics/40844553.jpg b/pics/40844553.jpg deleted file mode 100644 index e692edb1..00000000 Binary files a/pics/40844553.jpg and /dev/null differ diff --git a/pics/40854197.jpg b/pics/40854197.jpg deleted file mode 100644 index 3afd1393..00000000 Binary files a/pics/40854197.jpg and /dev/null differ diff --git a/pics/40854824.jpg b/pics/40854824.jpg deleted file mode 100644 index 06c471b9..00000000 Binary files a/pics/40854824.jpg and /dev/null differ diff --git a/pics/40867519.jpg b/pics/40867519.jpg deleted file mode 100644 index e510fa6a..00000000 Binary files a/pics/40867519.jpg and /dev/null differ diff --git a/pics/40884383.jpg b/pics/40884383.jpg deleted file mode 100644 index df5ca483..00000000 Binary files a/pics/40884383.jpg and /dev/null differ diff --git a/pics/40894584.jpg b/pics/40894584.jpg deleted file mode 100644 index 32bb4513..00000000 Binary files a/pics/40894584.jpg and /dev/null differ diff --git a/pics/40907115.jpg b/pics/40907115.jpg deleted file mode 100644 index 72a43154..00000000 Binary files a/pics/40907115.jpg and /dev/null differ diff --git a/pics/40908371.jpg b/pics/40908371.jpg deleted file mode 100644 index a78d73ed..00000000 Binary files a/pics/40908371.jpg and /dev/null differ diff --git a/pics/40916023.jpg b/pics/40916023.jpg deleted file mode 100644 index 3b102359..00000000 Binary files a/pics/40916023.jpg and /dev/null differ diff --git a/pics/40921545.jpg b/pics/40921545.jpg deleted file mode 100644 index e5739053..00000000 Binary files a/pics/40921545.jpg and /dev/null differ diff --git a/pics/40921744.jpg b/pics/40921744.jpg deleted file mode 100644 index 88409771..00000000 Binary files a/pics/40921744.jpg and /dev/null differ diff --git a/pics/40933924.jpg b/pics/40933924.jpg deleted file mode 100644 index 06a07172..00000000 Binary files a/pics/40933924.jpg and /dev/null differ diff --git a/pics/40937767.jpg b/pics/40937767.jpg deleted file mode 100644 index b2db6ad9..00000000 Binary files a/pics/40937767.jpg and /dev/null differ diff --git a/pics/40941889.jpg b/pics/40941889.jpg deleted file mode 100644 index 0f589805..00000000 Binary files a/pics/40941889.jpg and /dev/null differ diff --git a/pics/40945356.jpg b/pics/40945356.jpg deleted file mode 100755 index bb719cee..00000000 Binary files a/pics/40945356.jpg and /dev/null differ diff --git a/pics/40975574.jpg b/pics/40975574.jpg deleted file mode 100755 index f43ac46b..00000000 Binary files a/pics/40975574.jpg and /dev/null differ diff --git a/pics/40991587.jpg b/pics/40991587.jpg deleted file mode 100644 index 6abb4dde..00000000 Binary files a/pics/40991587.jpg and /dev/null differ diff --git a/pics/41006930.jpg b/pics/41006930.jpg deleted file mode 100644 index 4a159099..00000000 Binary files a/pics/41006930.jpg and /dev/null differ diff --git a/pics/41039846.jpg b/pics/41039846.jpg deleted file mode 100644 index 60579604..00000000 Binary files a/pics/41039846.jpg and /dev/null differ diff --git a/pics/41061625.jpg b/pics/41061625.jpg deleted file mode 100644 index f225832b..00000000 Binary files a/pics/41061625.jpg and /dev/null differ diff --git a/pics/41077745.jpg b/pics/41077745.jpg deleted file mode 100644 index 25d7439c..00000000 Binary files a/pics/41077745.jpg and /dev/null differ diff --git a/pics/41089128.jpg b/pics/41089128.jpg deleted file mode 100644 index cd20a0c4..00000000 Binary files a/pics/41089128.jpg and /dev/null differ diff --git a/pics/41090784.jpg b/pics/41090784.jpg deleted file mode 100644 index 0b2cee5d..00000000 Binary files a/pics/41090784.jpg and /dev/null differ diff --git a/pics/41097056.jpg b/pics/41097056.jpg deleted file mode 100755 index 5ffd0ecd..00000000 Binary files a/pics/41097056.jpg and /dev/null differ diff --git a/pics/41098335.jpg b/pics/41098335.jpg deleted file mode 100644 index e9495d97..00000000 Binary files a/pics/41098335.jpg and /dev/null differ diff --git a/pics/41113025.jpg b/pics/41113025.jpg deleted file mode 100644 index 140a9acf..00000000 Binary files a/pics/41113025.jpg and /dev/null differ diff --git a/pics/41128647.jpg b/pics/41128647.jpg deleted file mode 100755 index ee130f66..00000000 Binary files a/pics/41128647.jpg and /dev/null differ diff --git a/pics/41141943.jpg b/pics/41141943.jpg deleted file mode 100644 index 4af5ef50..00000000 Binary files a/pics/41141943.jpg and /dev/null differ diff --git a/pics/41142615.jpg b/pics/41142615.jpg deleted file mode 100644 index b8341733..00000000 Binary files a/pics/41142615.jpg and /dev/null differ diff --git a/pics/41147577.jpg b/pics/41147577.jpg deleted file mode 100644 index d36ff7de..00000000 Binary files a/pics/41147577.jpg and /dev/null differ diff --git a/pics/41158734.jpg b/pics/41158734.jpg deleted file mode 100644 index d432e025..00000000 Binary files a/pics/41158734.jpg and /dev/null differ diff --git a/pics/41160533.jpg b/pics/41160533.jpg deleted file mode 100644 index 515d4f84..00000000 Binary files a/pics/41160533.jpg and /dev/null differ diff --git a/pics/41160595.jpg b/pics/41160595.jpg deleted file mode 100644 index 3403b1b1..00000000 Binary files a/pics/41160595.jpg and /dev/null differ diff --git a/pics/41172955.jpg b/pics/41172955.jpg deleted file mode 100644 index 248f1e4b..00000000 Binary files a/pics/41172955.jpg and /dev/null differ diff --git a/pics/41181774.jpg b/pics/41181774.jpg deleted file mode 100644 index c8447226..00000000 Binary files a/pics/41181774.jpg and /dev/null differ diff --git a/pics/41182875.jpg b/pics/41182875.jpg deleted file mode 100644 index e8995b5a..00000000 Binary files a/pics/41182875.jpg and /dev/null differ diff --git a/pics/41197012.jpg b/pics/41197012.jpg deleted file mode 100644 index 9f16819b..00000000 Binary files a/pics/41197012.jpg and /dev/null differ diff --git a/pics/41201386.jpg b/pics/41201386.jpg deleted file mode 100644 index 067e1a03..00000000 Binary files a/pics/41201386.jpg and /dev/null differ diff --git a/pics/41201555.jpg b/pics/41201555.jpg deleted file mode 100644 index d0dd7b41..00000000 Binary files a/pics/41201555.jpg and /dev/null differ diff --git a/pics/41218256.jpg b/pics/41218256.jpg deleted file mode 100644 index 1cfc5f63..00000000 Binary files a/pics/41218256.jpg and /dev/null differ diff --git a/pics/41224658.jpg b/pics/41224658.jpg deleted file mode 100644 index b53f3cd1..00000000 Binary files a/pics/41224658.jpg and /dev/null differ diff --git a/pics/41230939.jpg b/pics/41230939.jpg deleted file mode 100644 index 566deee2..00000000 Binary files a/pics/41230939.jpg and /dev/null differ diff --git a/pics/41234315.jpg b/pics/41234315.jpg deleted file mode 100644 index 9ac57ab8..00000000 Binary files a/pics/41234315.jpg and /dev/null differ diff --git a/pics/41249545.jpg b/pics/41249545.jpg deleted file mode 100644 index 581bb241..00000000 Binary files a/pics/41249545.jpg and /dev/null differ diff --git a/pics/41269771.jpg b/pics/41269771.jpg deleted file mode 100644 index 93955a08..00000000 Binary files a/pics/41269771.jpg and /dev/null differ diff --git a/pics/4130270.jpg b/pics/4130270.jpg deleted file mode 100644 index 51107b48..00000000 Binary files a/pics/4130270.jpg and /dev/null differ diff --git a/pics/41307269.jpg b/pics/41307269.jpg deleted file mode 100644 index 8d125d26..00000000 Binary files a/pics/41307269.jpg and /dev/null differ diff --git a/pics/41309158.jpg b/pics/41309158.jpg deleted file mode 100644 index 3503906a..00000000 Binary files a/pics/41309158.jpg and /dev/null differ diff --git a/pics/41329458.jpg b/pics/41329458.jpg deleted file mode 100644 index 2e0bd0b5..00000000 Binary files a/pics/41329458.jpg and /dev/null differ diff --git a/pics/41329459.jpg b/pics/41329459.jpg deleted file mode 100644 index f51dbf8b..00000000 Binary files a/pics/41329459.jpg and /dev/null differ diff --git a/pics/41356845.jpg b/pics/41356845.jpg deleted file mode 100644 index 5ef836ea..00000000 Binary files a/pics/41356845.jpg and /dev/null differ diff --git a/pics/41356846.jpg b/pics/41356846.jpg deleted file mode 100644 index 0cb1c419..00000000 Binary files a/pics/41356846.jpg and /dev/null differ diff --git a/pics/41367003.jpg b/pics/41367003.jpg deleted file mode 100644 index dcdb984d..00000000 Binary files a/pics/41367003.jpg and /dev/null differ diff --git a/pics/41382147.jpg b/pics/41382147.jpg deleted file mode 100644 index 09870e57..00000000 Binary files a/pics/41382147.jpg and /dev/null differ diff --git a/pics/41386308.jpg b/pics/41386308.jpg deleted file mode 100644 index f5c86bea..00000000 Binary files a/pics/41386308.jpg and /dev/null differ diff --git a/pics/41392891.jpg b/pics/41392891.jpg deleted file mode 100644 index c7e7f70c..00000000 Binary files a/pics/41392891.jpg and /dev/null differ diff --git a/pics/41396436.jpg b/pics/41396436.jpg deleted file mode 100644 index 83b18c46..00000000 Binary files a/pics/41396436.jpg and /dev/null differ diff --git a/pics/41398771.jpg b/pics/41398771.jpg deleted file mode 100644 index 06a05a0a..00000000 Binary files a/pics/41398771.jpg and /dev/null differ diff --git a/pics/41403766.jpg b/pics/41403766.jpg deleted file mode 100644 index 43fd41b3..00000000 Binary files a/pics/41403766.jpg and /dev/null differ diff --git a/pics/4141820.jpg b/pics/4141820.jpg deleted file mode 100644 index 0504eb0d..00000000 Binary files a/pics/4141820.jpg and /dev/null differ diff --git a/pics/41420027.jpg b/pics/41420027.jpg deleted file mode 100644 index 4d12c1f6..00000000 Binary files a/pics/41420027.jpg and /dev/null differ diff --git a/pics/41422426.jpg b/pics/41422426.jpg deleted file mode 100644 index b2d4974b..00000000 Binary files a/pics/41422426.jpg and /dev/null differ diff --git a/pics/41426869.jpg b/pics/41426869.jpg deleted file mode 100644 index a34f0e46..00000000 Binary files a/pics/41426869.jpg and /dev/null differ diff --git a/pics/41431329.jpg b/pics/41431329.jpg deleted file mode 100644 index 7f585e4e..00000000 Binary files a/pics/41431329.jpg and /dev/null differ diff --git a/pics/41436536.jpg b/pics/41436536.jpg deleted file mode 100644 index fbf5f2a6..00000000 Binary files a/pics/41436536.jpg and /dev/null differ diff --git a/pics/41440148.jpg b/pics/41440148.jpg deleted file mode 100644 index a8ef2e36..00000000 Binary files a/pics/41440148.jpg and /dev/null differ diff --git a/pics/41442341.jpg b/pics/41442341.jpg deleted file mode 100644 index 74ce3628..00000000 Binary files a/pics/41442341.jpg and /dev/null differ diff --git a/pics/41458579.jpg b/pics/41458579.jpg deleted file mode 100644 index 74cc6d85..00000000 Binary files a/pics/41458579.jpg and /dev/null differ diff --git a/pics/41462083.jpg b/pics/41462083.jpg deleted file mode 100644 index 9604db0e..00000000 Binary files a/pics/41462083.jpg and /dev/null differ diff --git a/pics/41462084.jpg b/pics/41462084.jpg deleted file mode 100644 index 857132e9..00000000 Binary files a/pics/41462084.jpg and /dev/null differ diff --git a/pics/41470137.jpg b/pics/41470137.jpg deleted file mode 100644 index 04226465..00000000 Binary files a/pics/41470137.jpg and /dev/null differ diff --git a/pics/41475424.jpg b/pics/41475424.jpg deleted file mode 100644 index 443475bc..00000000 Binary files a/pics/41475424.jpg and /dev/null differ diff --git a/pics/41482598.jpg b/pics/41482598.jpg deleted file mode 100644 index c70d89d7..00000000 Binary files a/pics/41482598.jpg and /dev/null differ diff --git a/pics/41493640.jpg b/pics/41493640.jpg deleted file mode 100644 index 72443a8b..00000000 Binary files a/pics/41493640.jpg and /dev/null differ diff --git a/pics/4149689.jpg b/pics/4149689.jpg deleted file mode 100644 index d3e7cd9b..00000000 Binary files a/pics/4149689.jpg and /dev/null differ diff --git a/pics/41510920.jpg b/pics/41510920.jpg deleted file mode 100644 index 1be56bec..00000000 Binary files a/pics/41510920.jpg and /dev/null differ diff --git a/pics/41517789.jpg b/pics/41517789.jpg deleted file mode 100644 index 0f965942..00000000 Binary files a/pics/41517789.jpg and /dev/null differ diff --git a/pics/41517968.jpg b/pics/41517968.jpg deleted file mode 100644 index 1b1a7031..00000000 Binary files a/pics/41517968.jpg and /dev/null differ diff --git a/pics/41544074.jpg b/pics/41544074.jpg deleted file mode 100644 index 3c627af0..00000000 Binary files a/pics/41544074.jpg and /dev/null differ diff --git a/pics/41554273.jpg b/pics/41554273.jpg deleted file mode 100755 index 1dbeca31..00000000 Binary files a/pics/41554273.jpg and /dev/null differ diff --git a/pics/41587307.jpg b/pics/41587307.jpg deleted file mode 100644 index 83842297..00000000 Binary files a/pics/41587307.jpg and /dev/null differ diff --git a/pics/41589166.jpg b/pics/41589166.jpg deleted file mode 100644 index ea5fd661..00000000 Binary files a/pics/41589166.jpg and /dev/null differ diff --git a/pics/41613948.jpg b/pics/41613948.jpg deleted file mode 100644 index 3652f3fb..00000000 Binary files a/pics/41613948.jpg and /dev/null differ diff --git a/pics/4162088.jpg b/pics/4162088.jpg deleted file mode 100644 index f90944bc..00000000 Binary files a/pics/4162088.jpg and /dev/null differ diff --git a/pics/41620959.jpg b/pics/41620959.jpg deleted file mode 100644 index a255e343..00000000 Binary files a/pics/41620959.jpg and /dev/null differ diff --git a/pics/41628550.jpg b/pics/41628550.jpg deleted file mode 100644 index e929b438..00000000 Binary files a/pics/41628550.jpg and /dev/null differ diff --git a/pics/41639001.jpg b/pics/41639001.jpg deleted file mode 100644 index b0605cf2..00000000 Binary files a/pics/41639001.jpg and /dev/null differ diff --git a/pics/4168871.jpg b/pics/4168871.jpg deleted file mode 100644 index fc1cc96c..00000000 Binary files a/pics/4168871.jpg and /dev/null differ diff --git a/pics/41705642.jpg b/pics/41705642.jpg deleted file mode 100644 index a14e62ff..00000000 Binary files a/pics/41705642.jpg and /dev/null differ diff --git a/pics/41722932.jpg b/pics/41722932.jpg deleted file mode 100644 index 5143e6d6..00000000 Binary files a/pics/41722932.jpg and /dev/null differ diff --git a/pics/41741922.jpg b/pics/41741922.jpg deleted file mode 100644 index 5fecccad..00000000 Binary files a/pics/41741922.jpg and /dev/null differ diff --git a/pics/41753322.jpg b/pics/41753322.jpg deleted file mode 100644 index d89d0261..00000000 Binary files a/pics/41753322.jpg and /dev/null differ diff --git a/pics/41762634.jpg b/pics/41762634.jpg deleted file mode 100644 index ad0e6638..00000000 Binary files a/pics/41762634.jpg and /dev/null differ diff --git a/pics/41767843.jpg b/pics/41767843.jpg deleted file mode 100755 index 5c150dc2..00000000 Binary files a/pics/41767843.jpg and /dev/null differ diff --git a/pics/41777.jpg b/pics/41777.jpg deleted file mode 100644 index 5e51fa11..00000000 Binary files a/pics/41777.jpg and /dev/null differ diff --git a/pics/4178474.jpg b/pics/4178474.jpg deleted file mode 100644 index d30cc52c..00000000 Binary files a/pics/4178474.jpg and /dev/null differ diff --git a/pics/41788781.jpg b/pics/41788781.jpg deleted file mode 100644 index 55d46735..00000000 Binary files a/pics/41788781.jpg and /dev/null differ diff --git a/pics/4179255.jpg b/pics/4179255.jpg deleted file mode 100644 index 5a224b28..00000000 Binary files a/pics/4179255.jpg and /dev/null differ diff --git a/pics/4179849.jpg b/pics/4179849.jpg deleted file mode 100644 index e54b0673..00000000 Binary files a/pics/4179849.jpg and /dev/null differ diff --git a/pics/41855169.jpg b/pics/41855169.jpg deleted file mode 100644 index 291b3a57..00000000 Binary files a/pics/41855169.jpg and /dev/null differ diff --git a/pics/41858121.jpg b/pics/41858121.jpg deleted file mode 100644 index 452146e1..00000000 Binary files a/pics/41858121.jpg and /dev/null differ diff --git a/pics/41859700.jpg b/pics/41859700.jpg deleted file mode 100644 index 5c2037ff..00000000 Binary files a/pics/41859700.jpg and /dev/null differ diff --git a/pics/41872150.jpg b/pics/41872150.jpg deleted file mode 100644 index 5f1172e2..00000000 Binary files a/pics/41872150.jpg and /dev/null differ diff --git a/pics/41902352.jpg b/pics/41902352.jpg deleted file mode 100644 index cadde883..00000000 Binary files a/pics/41902352.jpg and /dev/null differ diff --git a/pics/41925941.jpg b/pics/41925941.jpg deleted file mode 100644 index 5dd5ec94..00000000 Binary files a/pics/41925941.jpg and /dev/null differ diff --git a/pics/4192696.jpg b/pics/4192696.jpg deleted file mode 100644 index 111adbc6..00000000 Binary files a/pics/4192696.jpg and /dev/null differ diff --git a/pics/41930553.jpg b/pics/41930553.jpg deleted file mode 100644 index ea988abb..00000000 Binary files a/pics/41930553.jpg and /dev/null differ diff --git a/pics/41940225.jpg b/pics/41940225.jpg deleted file mode 100755 index 65213e4c..00000000 Binary files a/pics/41940225.jpg and /dev/null differ diff --git a/pics/41949033.jpg b/pics/41949033.jpg deleted file mode 100644 index 4893b685..00000000 Binary files a/pics/41949033.jpg and /dev/null differ diff --git a/pics/41952656.jpg b/pics/41952656.jpg deleted file mode 100644 index 892263ea..00000000 Binary files a/pics/41952656.jpg and /dev/null differ diff --git a/pics/41978142.jpg b/pics/41978142.jpg deleted file mode 100644 index 00485c58..00000000 Binary files a/pics/41978142.jpg and /dev/null differ diff --git a/pics/42002073.jpg b/pics/42002073.jpg deleted file mode 100755 index 33af344f..00000000 Binary files a/pics/42002073.jpg and /dev/null differ diff --git a/pics/42009836.jpg b/pics/42009836.jpg deleted file mode 100644 index fa289c2f..00000000 Binary files a/pics/42009836.jpg and /dev/null differ diff --git a/pics/42015635.jpg b/pics/42015635.jpg deleted file mode 100644 index 7ca79a49..00000000 Binary files a/pics/42015635.jpg and /dev/null differ diff --git a/pics/42024143.jpg b/pics/42024143.jpg deleted file mode 100644 index c88c8270..00000000 Binary files a/pics/42024143.jpg and /dev/null differ diff --git a/pics/42029847.jpg b/pics/42029847.jpg deleted file mode 100644 index cb92aa48..00000000 Binary files a/pics/42029847.jpg and /dev/null differ diff --git a/pics/42035044.jpg b/pics/42035044.jpg deleted file mode 100644 index 0968d54b..00000000 Binary files a/pics/42035044.jpg and /dev/null differ diff --git a/pics/42035045.jpg b/pics/42035045.jpg deleted file mode 100644 index 88549e32..00000000 Binary files a/pics/42035045.jpg and /dev/null differ diff --git a/pics/4206964.jpg b/pics/4206964.jpg deleted file mode 100644 index 03ee02ae..00000000 Binary files a/pics/4206964.jpg and /dev/null differ diff --git a/pics/42071342.jpg b/pics/42071342.jpg deleted file mode 100644 index dd6fd414..00000000 Binary files a/pics/42071342.jpg and /dev/null differ diff --git a/pics/42079445.jpg b/pics/42079445.jpg deleted file mode 100644 index 9b1b1b47..00000000 Binary files a/pics/42079445.jpg and /dev/null differ diff --git a/pics/42082363.jpg b/pics/42082363.jpg deleted file mode 100644 index b4eb1628..00000000 Binary files a/pics/42082363.jpg and /dev/null differ diff --git a/pics/42110434.jpg b/pics/42110434.jpg deleted file mode 100644 index 03b8db52..00000000 Binary files a/pics/42110434.jpg and /dev/null differ diff --git a/pics/42110604.jpg b/pics/42110604.jpg deleted file mode 100755 index 8b569f28..00000000 Binary files a/pics/42110604.jpg and /dev/null differ diff --git a/pics/42129512.jpg b/pics/42129512.jpg deleted file mode 100644 index f2dccbc8..00000000 Binary files a/pics/42129512.jpg and /dev/null differ diff --git a/pics/42155488.jpg b/pics/42155488.jpg deleted file mode 100644 index 0f8257f1..00000000 Binary files a/pics/42155488.jpg and /dev/null differ diff --git a/pics/4215636.jpg b/pics/4215636.jpg deleted file mode 100644 index 7dd87283..00000000 Binary files a/pics/4215636.jpg and /dev/null differ diff --git a/pics/42167046.jpg b/pics/42167046.jpg deleted file mode 100644 index 0bc1130c..00000000 Binary files a/pics/42167046.jpg and /dev/null differ diff --git a/pics/42175079.jpg b/pics/42175079.jpg deleted file mode 100644 index 718b1a7d..00000000 Binary files a/pics/42175079.jpg and /dev/null differ diff --git a/pics/42199039.jpg b/pics/42199039.jpg deleted file mode 100644 index 1e645d9f..00000000 Binary files a/pics/42199039.jpg and /dev/null differ diff --git a/pics/42216237.jpg b/pics/42216237.jpg deleted file mode 100644 index fe021a08..00000000 Binary files a/pics/42216237.jpg and /dev/null differ diff --git a/pics/42233477.jpg b/pics/42233477.jpg deleted file mode 100644 index 9587a347..00000000 Binary files a/pics/42233477.jpg and /dev/null differ diff --git a/pics/42239546.jpg b/pics/42239546.jpg deleted file mode 100644 index 3d6bff93..00000000 Binary files a/pics/42239546.jpg and /dev/null differ diff --git a/pics/42256406.jpg b/pics/42256406.jpg deleted file mode 100755 index 9a048714..00000000 Binary files a/pics/42256406.jpg and /dev/null differ diff --git a/pics/4227096.jpg b/pics/4227096.jpg deleted file mode 100755 index 2cfc4f61..00000000 Binary files a/pics/4227096.jpg and /dev/null differ diff --git a/pics/42280216.jpg b/pics/42280216.jpg deleted file mode 100644 index 43dc45c9..00000000 Binary files a/pics/42280216.jpg and /dev/null differ diff --git a/pics/42303365.jpg b/pics/42303365.jpg deleted file mode 100644 index e8579356..00000000 Binary files a/pics/42303365.jpg and /dev/null differ diff --git a/pics/4230620.jpg b/pics/4230620.jpg deleted file mode 100644 index 3dbef5a1..00000000 Binary files a/pics/4230620.jpg and /dev/null differ diff --git a/pics/42309337.jpg b/pics/42309337.jpg deleted file mode 100644 index da1d4bee..00000000 Binary files a/pics/42309337.jpg and /dev/null differ diff --git a/pics/42314669.jpg b/pics/42314669.jpg deleted file mode 100644 index 9915029e..00000000 Binary files a/pics/42314669.jpg and /dev/null differ diff --git a/pics/42328171.jpg b/pics/42328171.jpg deleted file mode 100644 index 574f67c9..00000000 Binary files a/pics/42328171.jpg and /dev/null differ diff --git a/pics/42338879.jpg b/pics/42338879.jpg deleted file mode 100644 index c89d852c..00000000 Binary files a/pics/42338879.jpg and /dev/null differ diff --git a/pics/42348802.jpg b/pics/42348802.jpg deleted file mode 100644 index 7726058c..00000000 Binary files a/pics/42348802.jpg and /dev/null differ diff --git a/pics/423585.jpg b/pics/423585.jpg deleted file mode 100644 index 623071aa..00000000 Binary files a/pics/423585.jpg and /dev/null differ diff --git a/pics/42364257.jpg b/pics/42364257.jpg deleted file mode 100644 index b0afb638..00000000 Binary files a/pics/42364257.jpg and /dev/null differ diff --git a/pics/42364374.jpg b/pics/42364374.jpg deleted file mode 100644 index ee36f18c..00000000 Binary files a/pics/42364374.jpg and /dev/null differ diff --git a/pics/423705.jpg b/pics/423705.jpg deleted file mode 100644 index eba875f2..00000000 Binary files a/pics/423705.jpg and /dev/null differ diff --git a/pics/42386471.jpg b/pics/42386471.jpg deleted file mode 100644 index 41feccbe..00000000 Binary files a/pics/42386471.jpg and /dev/null differ diff --git a/pics/42391240.jpg b/pics/42391240.jpg deleted file mode 100644 index b8ca0bf4..00000000 Binary files a/pics/42391240.jpg and /dev/null differ diff --git a/pics/4239451.jpg b/pics/4239451.jpg deleted file mode 100644 index 047dd1c8..00000000 Binary files a/pics/4239451.jpg and /dev/null differ diff --git a/pics/42418084.jpg b/pics/42418084.jpg deleted file mode 100644 index 75f16e7e..00000000 Binary files a/pics/42418084.jpg and /dev/null differ diff --git a/pics/42421606.jpg b/pics/42421606.jpg deleted file mode 100644 index 473308ae..00000000 Binary files a/pics/42421606.jpg and /dev/null differ diff --git a/pics/42425831.jpg b/pics/42425831.jpg deleted file mode 100644 index e14a52ec..00000000 Binary files a/pics/42425831.jpg and /dev/null differ diff --git a/pics/42431843.jpg b/pics/42431843.jpg deleted file mode 100644 index c0716c0e..00000000 Binary files a/pics/42431843.jpg and /dev/null differ diff --git a/pics/42463414.jpg b/pics/42463414.jpg deleted file mode 100644 index d536f4b6..00000000 Binary files a/pics/42463414.jpg and /dev/null differ diff --git a/pics/42502956.jpg b/pics/42502956.jpg deleted file mode 100644 index 90394e88..00000000 Binary files a/pics/42502956.jpg and /dev/null differ diff --git a/pics/4252828.jpg b/pics/4252828.jpg deleted file mode 100644 index 035d93b2..00000000 Binary files a/pics/4252828.jpg and /dev/null differ diff --git a/pics/42534368.jpg b/pics/42534368.jpg deleted file mode 100644 index 0645e4ac..00000000 Binary files a/pics/42534368.jpg and /dev/null differ diff --git a/pics/4253484.jpg b/pics/4253484.jpg deleted file mode 100644 index 6093cda1..00000000 Binary files a/pics/4253484.jpg and /dev/null differ diff --git a/pics/42541548.jpg b/pics/42541548.jpg deleted file mode 100644 index db39c4ba..00000000 Binary files a/pics/42541548.jpg and /dev/null differ diff --git a/pics/42548470.jpg b/pics/42548470.jpg deleted file mode 100644 index 9a37f7bb..00000000 Binary files a/pics/42548470.jpg and /dev/null differ diff --git a/pics/42551040.jpg b/pics/42551040.jpg deleted file mode 100644 index f28290ff..00000000 Binary files a/pics/42551040.jpg and /dev/null differ diff --git a/pics/42562690.jpg b/pics/42562690.jpg deleted file mode 100644 index 91dc8681..00000000 Binary files a/pics/42562690.jpg and /dev/null differ diff --git a/pics/42578427.jpg b/pics/42578427.jpg deleted file mode 100644 index 6d4527af..00000000 Binary files a/pics/42578427.jpg and /dev/null differ diff --git a/pics/42589641.jpg b/pics/42589641.jpg deleted file mode 100644 index e5beca05..00000000 Binary files a/pics/42589641.jpg and /dev/null differ diff --git a/pics/4259068.jpg b/pics/4259068.jpg deleted file mode 100644 index d2404203..00000000 Binary files a/pics/4259068.jpg and /dev/null differ diff --git a/pics/42591472.jpg b/pics/42591472.jpg deleted file mode 100644 index 716244ab..00000000 Binary files a/pics/42591472.jpg and /dev/null differ diff --git a/pics/42592719.jpg b/pics/42592719.jpg deleted file mode 100644 index ea7f84e6..00000000 Binary files a/pics/42592719.jpg and /dev/null differ diff --git a/pics/425934.jpg b/pics/425934.jpg deleted file mode 100644 index c30526fa..00000000 Binary files a/pics/425934.jpg and /dev/null differ diff --git a/pics/42598242.jpg b/pics/42598242.jpg deleted file mode 100644 index f0c71367..00000000 Binary files a/pics/42598242.jpg and /dev/null differ diff --git a/pics/42599677.jpg b/pics/42599677.jpg deleted file mode 100644 index 4c988bad..00000000 Binary files a/pics/42599677.jpg and /dev/null differ diff --git a/pics/42625254.jpg b/pics/42625254.jpg deleted file mode 100644 index 6bf337c1..00000000 Binary files a/pics/42625254.jpg and /dev/null differ diff --git a/pics/42647539.jpg b/pics/42647539.jpg deleted file mode 100644 index fab14b78..00000000 Binary files a/pics/42647539.jpg and /dev/null differ diff --git a/pics/42664989.jpg b/pics/42664989.jpg deleted file mode 100644 index e06b32ef..00000000 Binary files a/pics/42664989.jpg and /dev/null differ diff --git a/pics/4266839.jpg b/pics/4266839.jpg deleted file mode 100644 index 30b1935b..00000000 Binary files a/pics/4266839.jpg and /dev/null differ diff --git a/pics/42671151.jpg b/pics/42671151.jpg deleted file mode 100644 index cb6cb440..00000000 Binary files a/pics/42671151.jpg and /dev/null differ diff --git a/pics/42671152.jpg b/pics/42671152.jpg deleted file mode 100644 index 6c55f7ac..00000000 Binary files a/pics/42671152.jpg and /dev/null differ diff --git a/pics/42679662.jpg b/pics/42679662.jpg deleted file mode 100644 index 3a752779..00000000 Binary files a/pics/42679662.jpg and /dev/null differ diff --git a/pics/42682609.jpg b/pics/42682609.jpg deleted file mode 100644 index 4474261b..00000000 Binary files a/pics/42682609.jpg and /dev/null differ diff --git a/pics/42685062.jpg b/pics/42685062.jpg deleted file mode 100644 index 44751663..00000000 Binary files a/pics/42685062.jpg and /dev/null differ diff --git a/pics/42703248.jpg b/pics/42703248.jpg deleted file mode 100644 index 31b1fe07..00000000 Binary files a/pics/42703248.jpg and /dev/null differ diff --git a/pics/42709949.jpg b/pics/42709949.jpg deleted file mode 100644 index 657801c4..00000000 Binary files a/pics/42709949.jpg and /dev/null differ diff --git a/pics/42737833.jpg b/pics/42737833.jpg deleted file mode 100644 index 532220bf..00000000 Binary files a/pics/42737833.jpg and /dev/null differ diff --git a/pics/42752141.jpg b/pics/42752141.jpg deleted file mode 100644 index 417851dd..00000000 Binary files a/pics/42752141.jpg and /dev/null differ diff --git a/pics/42776855.jpg b/pics/42776855.jpg deleted file mode 100755 index d4f0e5e5..00000000 Binary files a/pics/42776855.jpg and /dev/null differ diff --git a/pics/42776960.jpg b/pics/42776960.jpg deleted file mode 100644 index 61f4cf35..00000000 Binary files a/pics/42776960.jpg and /dev/null differ diff --git a/pics/42793609.jpg b/pics/42793609.jpg deleted file mode 100644 index 631e3d3f..00000000 Binary files a/pics/42793609.jpg and /dev/null differ diff --git a/pics/42810973.jpg b/pics/42810973.jpg deleted file mode 100644 index c324c678..00000000 Binary files a/pics/42810973.jpg and /dev/null differ diff --git a/pics/42829885.jpg b/pics/42829885.jpg deleted file mode 100644 index 9c65ae90..00000000 Binary files a/pics/42829885.jpg and /dev/null differ diff --git a/pics/42851643.jpg b/pics/42851643.jpg deleted file mode 100644 index 5930aa5c..00000000 Binary files a/pics/42851643.jpg and /dev/null differ diff --git a/pics/42868711.jpg b/pics/42868711.jpg deleted file mode 100644 index bd859ef2..00000000 Binary files a/pics/42868711.jpg and /dev/null differ diff --git a/pics/42874792.jpg b/pics/42874792.jpg deleted file mode 100644 index 0eebff3e..00000000 Binary files a/pics/42874792.jpg and /dev/null differ diff --git a/pics/42880485.jpg b/pics/42880485.jpg deleted file mode 100755 index d58dc34e..00000000 Binary files a/pics/42880485.jpg and /dev/null differ diff --git a/pics/42883273.jpg b/pics/42883273.jpg deleted file mode 100644 index ecea32f8..00000000 Binary files a/pics/42883273.jpg and /dev/null differ diff --git a/pics/4290468.jpg b/pics/4290468.jpg deleted file mode 100644 index 0d1b4790..00000000 Binary files a/pics/4290468.jpg and /dev/null differ diff --git a/pics/42940404.jpg b/pics/42940404.jpg deleted file mode 100644 index f1cd4800..00000000 Binary files a/pics/42940404.jpg and /dev/null differ diff --git a/pics/42941100.jpg b/pics/42941100.jpg deleted file mode 100644 index 9a0581da..00000000 Binary files a/pics/42941100.jpg and /dev/null differ diff --git a/pics/42945701.jpg b/pics/42945701.jpg deleted file mode 100644 index ae02e73b..00000000 Binary files a/pics/42945701.jpg and /dev/null differ diff --git a/pics/42956963.jpg b/pics/42956963.jpg deleted file mode 100644 index 9fcd4c28..00000000 Binary files a/pics/42956963.jpg and /dev/null differ diff --git a/pics/42956964.jpg b/pics/42956964.jpg deleted file mode 100644 index d696a36f..00000000 Binary files a/pics/42956964.jpg and /dev/null differ diff --git a/pics/42969214.jpg b/pics/42969214.jpg deleted file mode 100644 index 8639dc53..00000000 Binary files a/pics/42969214.jpg and /dev/null differ diff --git a/pics/42994702.jpg b/pics/42994702.jpg deleted file mode 100644 index 010a2391..00000000 Binary files a/pics/42994702.jpg and /dev/null differ diff --git a/pics/43002864.jpg b/pics/43002864.jpg deleted file mode 100644 index ec2a550b..00000000 Binary files a/pics/43002864.jpg and /dev/null differ diff --git a/pics/43014054.jpg b/pics/43014054.jpg deleted file mode 100644 index 14e4d1d0..00000000 Binary files a/pics/43014054.jpg and /dev/null differ diff --git a/pics/43034264.jpg b/pics/43034264.jpg deleted file mode 100644 index 1cb26c6f..00000000 Binary files a/pics/43034264.jpg and /dev/null differ diff --git a/pics/43040603.jpg b/pics/43040603.jpg deleted file mode 100644 index a1ecd054..00000000 Binary files a/pics/43040603.jpg and /dev/null differ diff --git a/pics/43061293.jpg b/pics/43061293.jpg deleted file mode 100644 index e5ea1228..00000000 Binary files a/pics/43061293.jpg and /dev/null differ diff --git a/pics/43096270.jpg b/pics/43096270.jpg deleted file mode 100644 index 5a24ca7a..00000000 Binary files a/pics/43096270.jpg and /dev/null differ diff --git a/pics/43114901.jpg b/pics/43114901.jpg deleted file mode 100644 index 13219b00..00000000 Binary files a/pics/43114901.jpg and /dev/null differ diff --git a/pics/43138260.jpg b/pics/43138260.jpg deleted file mode 100644 index 8ea0a169..00000000 Binary files a/pics/43138260.jpg and /dev/null differ diff --git a/pics/43140791.jpg b/pics/43140791.jpg deleted file mode 100644 index af9699cf..00000000 Binary files a/pics/43140791.jpg and /dev/null differ diff --git a/pics/43140792.jpg b/pics/43140792.jpg deleted file mode 100644 index 4371c4a0..00000000 Binary files a/pics/43140792.jpg and /dev/null differ diff --git a/pics/43175858.jpg b/pics/43175858.jpg deleted file mode 100755 index 8035a35f..00000000 Binary files a/pics/43175858.jpg and /dev/null differ diff --git a/pics/43191636.jpg b/pics/43191636.jpg deleted file mode 100644 index a0a76f19..00000000 Binary files a/pics/43191636.jpg and /dev/null differ diff --git a/pics/43202238.jpg b/pics/43202238.jpg deleted file mode 100644 index fe090fc7..00000000 Binary files a/pics/43202238.jpg and /dev/null differ diff --git a/pics/43225434.jpg b/pics/43225434.jpg deleted file mode 100644 index 5db0b094..00000000 Binary files a/pics/43225434.jpg and /dev/null differ diff --git a/pics/43230671.jpg b/pics/43230671.jpg deleted file mode 100644 index 0c38b0fd..00000000 Binary files a/pics/43230671.jpg and /dev/null differ diff --git a/pics/43237273.jpg b/pics/43237273.jpg deleted file mode 100644 index d69f5993..00000000 Binary files a/pics/43237273.jpg and /dev/null differ diff --git a/pics/43241495.jpg b/pics/43241495.jpg deleted file mode 100644 index 4a368246..00000000 Binary files a/pics/43241495.jpg and /dev/null differ diff --git a/pics/43250041.jpg b/pics/43250041.jpg deleted file mode 100644 index b10b00b5..00000000 Binary files a/pics/43250041.jpg and /dev/null differ diff --git a/pics/43262273.jpg b/pics/43262273.jpg deleted file mode 100644 index df9ef2d1..00000000 Binary files a/pics/43262273.jpg and /dev/null differ diff --git a/pics/43268675.jpg b/pics/43268675.jpg deleted file mode 100755 index 12fcdd79..00000000 Binary files a/pics/43268675.jpg and /dev/null differ diff --git a/pics/43318266.jpg b/pics/43318266.jpg deleted file mode 100644 index d91bba53..00000000 Binary files a/pics/43318266.jpg and /dev/null differ diff --git a/pics/4333086.jpg b/pics/4333086.jpg deleted file mode 100755 index e88edbcf..00000000 Binary files a/pics/4333086.jpg and /dev/null differ diff --git a/pics/43332022.jpg b/pics/43332022.jpg deleted file mode 100644 index b6056041..00000000 Binary files a/pics/43332022.jpg and /dev/null differ diff --git a/pics/43340443.jpg b/pics/43340443.jpg deleted file mode 100644 index 9d835663..00000000 Binary files a/pics/43340443.jpg and /dev/null differ diff --git a/pics/4334811.jpg b/pics/4334811.jpg deleted file mode 100644 index 2744459d..00000000 Binary files a/pics/4334811.jpg and /dev/null differ diff --git a/pics/43352213.jpg b/pics/43352213.jpg deleted file mode 100644 index 1f732654..00000000 Binary files a/pics/43352213.jpg and /dev/null differ diff --git a/pics/4335427.jpg b/pics/4335427.jpg deleted file mode 100644 index 76534e9c..00000000 Binary files a/pics/4335427.jpg and /dev/null differ diff --git a/pics/4335645.jpg b/pics/4335645.jpg deleted file mode 100644 index 515d440a..00000000 Binary files a/pics/4335645.jpg and /dev/null differ diff --git a/pics/43359262.jpg b/pics/43359262.jpg deleted file mode 100644 index d9ba471d..00000000 Binary files a/pics/43359262.jpg and /dev/null differ diff --git a/pics/43366227.jpg b/pics/43366227.jpg deleted file mode 100644 index 25fef6e3..00000000 Binary files a/pics/43366227.jpg and /dev/null differ diff --git a/pics/43378048.jpg b/pics/43378048.jpg deleted file mode 100644 index c4465ee2..00000000 Binary files a/pics/43378048.jpg and /dev/null differ diff --git a/pics/43378076.jpg b/pics/43378076.jpg deleted file mode 100644 index 49b185d1..00000000 Binary files a/pics/43378076.jpg and /dev/null differ diff --git a/pics/43383478.jpg b/pics/43383478.jpg deleted file mode 100755 index a5f051ea..00000000 Binary files a/pics/43383478.jpg and /dev/null differ diff --git a/pics/43385557.jpg b/pics/43385557.jpg deleted file mode 100644 index fb0c2827..00000000 Binary files a/pics/43385557.jpg and /dev/null differ diff --git a/pics/43405287.jpg b/pics/43405287.jpg deleted file mode 100644 index b14df440..00000000 Binary files a/pics/43405287.jpg and /dev/null differ diff --git a/pics/43417563.jpg b/pics/43417563.jpg deleted file mode 100644 index 38a56674..00000000 Binary files a/pics/43417563.jpg and /dev/null differ diff --git a/pics/43422537.jpg b/pics/43422537.jpg deleted file mode 100644 index 6d41501e..00000000 Binary files a/pics/43422537.jpg and /dev/null differ diff --git a/pics/43426903.jpg b/pics/43426903.jpg deleted file mode 100644 index 7b9bec19..00000000 Binary files a/pics/43426903.jpg and /dev/null differ diff --git a/pics/43434803.jpg b/pics/43434803.jpg deleted file mode 100644 index 7c1cbba5..00000000 Binary files a/pics/43434803.jpg and /dev/null differ diff --git a/pics/43436049.jpg b/pics/43436049.jpg deleted file mode 100644 index e418fcbc..00000000 Binary files a/pics/43436049.jpg and /dev/null differ diff --git a/pics/43452193.jpg b/pics/43452193.jpg deleted file mode 100644 index bba837ef..00000000 Binary files a/pics/43452193.jpg and /dev/null differ diff --git a/pics/43455065.jpg b/pics/43455065.jpg deleted file mode 100644 index f6fa7017..00000000 Binary files a/pics/43455065.jpg and /dev/null differ diff --git a/pics/43476205.jpg b/pics/43476205.jpg deleted file mode 100644 index 1571574c..00000000 Binary files a/pics/43476205.jpg and /dev/null differ diff --git a/pics/43487744.jpg b/pics/43487744.jpg deleted file mode 100644 index 4332930a..00000000 Binary files a/pics/43487744.jpg and /dev/null differ diff --git a/pics/43500484.jpg b/pics/43500484.jpg deleted file mode 100644 index 11551fc4..00000000 Binary files a/pics/43500484.jpg and /dev/null differ diff --git a/pics/43509019.jpg b/pics/43509019.jpg deleted file mode 100644 index f3359039..00000000 Binary files a/pics/43509019.jpg and /dev/null differ diff --git a/pics/43513897.jpg b/pics/43513897.jpg deleted file mode 100644 index f384a9b6..00000000 Binary files a/pics/43513897.jpg and /dev/null differ diff --git a/pics/43530283.jpg b/pics/43530283.jpg deleted file mode 100644 index 37278fcd..00000000 Binary files a/pics/43530283.jpg and /dev/null differ diff --git a/pics/43543777.jpg b/pics/43543777.jpg deleted file mode 100644 index 639e0a64..00000000 Binary files a/pics/43543777.jpg and /dev/null differ diff --git a/pics/4357063.jpg b/pics/4357063.jpg deleted file mode 100644 index ba524672..00000000 Binary files a/pics/4357063.jpg and /dev/null differ diff --git a/pics/43573231.jpg b/pics/43573231.jpg deleted file mode 100644 index ec1e83e8..00000000 Binary files a/pics/43573231.jpg and /dev/null differ diff --git a/pics/43577607.jpg b/pics/43577607.jpg deleted file mode 100644 index 15a93ef5..00000000 Binary files a/pics/43577607.jpg and /dev/null differ diff --git a/pics/43580269.jpg b/pics/43580269.jpg deleted file mode 100644 index e4a0057e..00000000 Binary files a/pics/43580269.jpg and /dev/null differ diff --git a/pics/43586926.jpg b/pics/43586926.jpg deleted file mode 100644 index de636f03..00000000 Binary files a/pics/43586926.jpg and /dev/null differ diff --git a/pics/43641473.jpg b/pics/43641473.jpg deleted file mode 100644 index a069372f..00000000 Binary files a/pics/43641473.jpg and /dev/null differ diff --git a/pics/43642620.jpg b/pics/43642620.jpg deleted file mode 100644 index 2bea4f50..00000000 Binary files a/pics/43642620.jpg and /dev/null differ diff --git a/pics/43644025.jpg b/pics/43644025.jpg deleted file mode 100644 index e576a4f7..00000000 Binary files a/pics/43644025.jpg and /dev/null differ diff --git a/pics/43658697.jpg b/pics/43658697.jpg deleted file mode 100644 index 0f615cdf..00000000 Binary files a/pics/43658697.jpg and /dev/null differ diff --git a/pics/43661068.jpg b/pics/43661068.jpg deleted file mode 100644 index 9de40d6f..00000000 Binary files a/pics/43661068.jpg and /dev/null differ diff --git a/pics/43694075.jpg b/pics/43694075.jpg deleted file mode 100644 index 4682d865..00000000 Binary files a/pics/43694075.jpg and /dev/null differ diff --git a/pics/43694481.jpg b/pics/43694481.jpg deleted file mode 100644 index 499f563f..00000000 Binary files a/pics/43694481.jpg and /dev/null differ diff --git a/pics/43697559.jpg b/pics/43697559.jpg deleted file mode 100644 index 089841d6..00000000 Binary files a/pics/43697559.jpg and /dev/null differ diff --git a/pics/43698897.jpg b/pics/43698897.jpg deleted file mode 100644 index 6f77982d..00000000 Binary files a/pics/43698897.jpg and /dev/null differ diff --git a/pics/43708041.jpg b/pics/43708041.jpg deleted file mode 100644 index a9d5c48b..00000000 Binary files a/pics/43708041.jpg and /dev/null differ diff --git a/pics/43708640.jpg b/pics/43708640.jpg deleted file mode 100644 index 0799e7dc..00000000 Binary files a/pics/43708640.jpg and /dev/null differ diff --git a/pics/43711255.jpg b/pics/43711255.jpg deleted file mode 100644 index 7e6d6b12..00000000 Binary files a/pics/43711255.jpg and /dev/null differ diff --git a/pics/43714890.jpg b/pics/43714890.jpg deleted file mode 100644 index 81190774..00000000 Binary files a/pics/43714890.jpg and /dev/null differ diff --git a/pics/43716289.jpg b/pics/43716289.jpg deleted file mode 100644 index a426d024..00000000 Binary files a/pics/43716289.jpg and /dev/null differ diff --git a/pics/43730887.jpg b/pics/43730887.jpg deleted file mode 100755 index 3ba3db5e..00000000 Binary files a/pics/43730887.jpg and /dev/null differ diff --git a/pics/43748308.jpg b/pics/43748308.jpg deleted file mode 100644 index a2bcd178..00000000 Binary files a/pics/43748308.jpg and /dev/null differ diff --git a/pics/43751755.jpg b/pics/43751755.jpg deleted file mode 100644 index 07803d6b..00000000 Binary files a/pics/43751755.jpg and /dev/null differ diff --git a/pics/4376658.jpg b/pics/4376658.jpg deleted file mode 100644 index f131ff15..00000000 Binary files a/pics/4376658.jpg and /dev/null differ diff --git a/pics/43785278.jpg b/pics/43785278.jpg deleted file mode 100644 index d52cd30c..00000000 Binary files a/pics/43785278.jpg and /dev/null differ diff --git a/pics/43791861.jpg b/pics/43791861.jpg deleted file mode 100644 index 9fad857f..00000000 Binary files a/pics/43791861.jpg and /dev/null differ diff --git a/pics/43793530.jpg b/pics/43793530.jpg deleted file mode 100644 index b8572b4f..00000000 Binary files a/pics/43793530.jpg and /dev/null differ diff --git a/pics/43797906.jpg b/pics/43797906.jpg deleted file mode 100644 index 893644f2..00000000 Binary files a/pics/43797906.jpg and /dev/null differ diff --git a/pics/43813459.jpg b/pics/43813459.jpg deleted file mode 100644 index 280fac0f..00000000 Binary files a/pics/43813459.jpg and /dev/null differ diff --git a/pics/43841694.jpg b/pics/43841694.jpg deleted file mode 100644 index b4f9ea5e..00000000 Binary files a/pics/43841694.jpg and /dev/null differ diff --git a/pics/43889633.jpg b/pics/43889633.jpg deleted file mode 100644 index 1ad54252..00000000 Binary files a/pics/43889633.jpg and /dev/null differ diff --git a/pics/43892408.jpg b/pics/43892408.jpg deleted file mode 100644 index 828d6529..00000000 Binary files a/pics/43892408.jpg and /dev/null differ diff --git a/pics/43898403.jpg b/pics/43898403.jpg deleted file mode 100755 index 60967fcb..00000000 Binary files a/pics/43898403.jpg and /dev/null differ diff --git a/pics/43905751.jpg b/pics/43905751.jpg deleted file mode 100644 index 40128c28..00000000 Binary files a/pics/43905751.jpg and /dev/null differ diff --git a/pics/43906884.jpg b/pics/43906884.jpg deleted file mode 100644 index 5e4582c1..00000000 Binary files a/pics/43906884.jpg and /dev/null differ diff --git a/pics/43912676.jpg b/pics/43912676.jpg deleted file mode 100644 index 01c21a07..00000000 Binary files a/pics/43912676.jpg and /dev/null differ diff --git a/pics/4392470.jpg b/pics/4392470.jpg deleted file mode 100644 index 83fff2bd..00000000 Binary files a/pics/4392470.jpg and /dev/null differ diff --git a/pics/43925870.jpg b/pics/43925870.jpg deleted file mode 100644 index 6debbb68..00000000 Binary files a/pics/43925870.jpg and /dev/null differ diff --git a/pics/43932460.jpg b/pics/43932460.jpg deleted file mode 100644 index 9e5e2865..00000000 Binary files a/pics/43932460.jpg and /dev/null differ diff --git a/pics/43973174.jpg b/pics/43973174.jpg deleted file mode 100644 index bc32329f..00000000 Binary files a/pics/43973174.jpg and /dev/null differ diff --git a/pics/44028461.jpg b/pics/44028461.jpg deleted file mode 100644 index 9749accc..00000000 Binary files a/pics/44028461.jpg and /dev/null differ diff --git a/pics/44035031.jpg b/pics/44035031.jpg deleted file mode 100644 index 1a1cce6e..00000000 Binary files a/pics/44035031.jpg and /dev/null differ diff --git a/pics/4404099.jpg b/pics/4404099.jpg deleted file mode 100644 index cf5f9b2c..00000000 Binary files a/pics/4404099.jpg and /dev/null differ diff --git a/pics/44046281.jpg b/pics/44046281.jpg deleted file mode 100644 index db59ba39..00000000 Binary files a/pics/44046281.jpg and /dev/null differ diff --git a/pics/440556.jpg b/pics/440556.jpg deleted file mode 100644 index 89d52369..00000000 Binary files a/pics/440556.jpg and /dev/null differ diff --git a/pics/44072894.jpg b/pics/44072894.jpg deleted file mode 100644 index 56a50684..00000000 Binary files a/pics/44072894.jpg and /dev/null differ diff --git a/pics/44073668.jpg b/pics/44073668.jpg deleted file mode 100644 index 7965b868..00000000 Binary files a/pics/44073668.jpg and /dev/null differ diff --git a/pics/44095762.jpg b/pics/44095762.jpg deleted file mode 100644 index 42f8126e..00000000 Binary files a/pics/44095762.jpg and /dev/null differ diff --git a/pics/44125452.jpg b/pics/44125452.jpg deleted file mode 100644 index c4804a97..00000000 Binary files a/pics/44125452.jpg and /dev/null differ diff --git a/pics/44155002.jpg b/pics/44155002.jpg deleted file mode 100644 index 2299ce8f..00000000 Binary files a/pics/44155002.jpg and /dev/null differ diff --git a/pics/4417407.jpg b/pics/4417407.jpg deleted file mode 100644 index 26d3f97b..00000000 Binary files a/pics/4417407.jpg and /dev/null differ diff --git a/pics/4417408.jpg b/pics/4417408.jpg deleted file mode 100644 index 0067727b..00000000 Binary files a/pics/4417408.jpg and /dev/null differ diff --git a/pics/44178886.jpg b/pics/44178886.jpg deleted file mode 100644 index f0f0d956..00000000 Binary files a/pics/44178886.jpg and /dev/null differ diff --git a/pics/44182827.jpg b/pics/44182827.jpg deleted file mode 100644 index 5d9dbccd..00000000 Binary files a/pics/44182827.jpg and /dev/null differ diff --git a/pics/44186624.jpg b/pics/44186624.jpg deleted file mode 100644 index f77e126d..00000000 Binary files a/pics/44186624.jpg and /dev/null differ diff --git a/pics/44203504.jpg b/pics/44203504.jpg deleted file mode 100644 index 005cd74b..00000000 Binary files a/pics/44203504.jpg and /dev/null differ diff --git a/pics/44209392.jpg b/pics/44209392.jpg deleted file mode 100644 index 9806754d..00000000 Binary files a/pics/44209392.jpg and /dev/null differ diff --git a/pics/44223284.jpg b/pics/44223284.jpg deleted file mode 100644 index 90703dd4..00000000 Binary files a/pics/44223284.jpg and /dev/null differ diff --git a/pics/4423206.jpg b/pics/4423206.jpg deleted file mode 100644 index 2ac4db97..00000000 Binary files a/pics/4423206.jpg and /dev/null differ diff --git a/pics/44236692.jpg b/pics/44236692.jpg deleted file mode 100644 index 003f190f..00000000 Binary files a/pics/44236692.jpg and /dev/null differ diff --git a/pics/44250812.jpg b/pics/44250812.jpg deleted file mode 100644 index 7d4a6b3c..00000000 Binary files a/pics/44250812.jpg and /dev/null differ diff --git a/pics/44256816.jpg b/pics/44256816.jpg deleted file mode 100644 index 387ba07b..00000000 Binary files a/pics/44256816.jpg and /dev/null differ diff --git a/pics/44273680.jpg b/pics/44273680.jpg deleted file mode 100644 index 1bdb691f..00000000 Binary files a/pics/44273680.jpg and /dev/null differ diff --git a/pics/44287299.jpg b/pics/44287299.jpg deleted file mode 100644 index e4a282db..00000000 Binary files a/pics/44287299.jpg and /dev/null differ diff --git a/pics/44311445.jpg b/pics/44311445.jpg deleted file mode 100644 index 1789d864..00000000 Binary files a/pics/44311445.jpg and /dev/null differ diff --git a/pics/44330098.jpg b/pics/44330098.jpg deleted file mode 100644 index e03ed74a..00000000 Binary files a/pics/44330098.jpg and /dev/null differ diff --git a/pics/44330099.jpg b/pics/44330099.jpg deleted file mode 100644 index 03129792..00000000 Binary files a/pics/44330099.jpg and /dev/null differ diff --git a/pics/44341034.jpg b/pics/44341034.jpg deleted file mode 100644 index 50476ac4..00000000 Binary files a/pics/44341034.jpg and /dev/null differ diff --git a/pics/44364077.jpg b/pics/44364077.jpg deleted file mode 100755 index b88a09fe..00000000 Binary files a/pics/44364077.jpg and /dev/null differ diff --git a/pics/44364207.jpg b/pics/44364207.jpg deleted file mode 100644 index 8d83f9f2..00000000 Binary files a/pics/44364207.jpg and /dev/null differ diff --git a/pics/44394295.jpg b/pics/44394295.jpg deleted file mode 100644 index 82d25592..00000000 Binary files a/pics/44394295.jpg and /dev/null differ diff --git a/pics/44397496.jpg b/pics/44397496.jpg deleted file mode 100755 index 07740a54..00000000 Binary files a/pics/44397496.jpg and /dev/null differ diff --git a/pics/44405066.jpg b/pics/44405066.jpg deleted file mode 100755 index cdad71a4..00000000 Binary files a/pics/44405066.jpg and /dev/null differ diff --git a/pics/4440873.jpg b/pics/4440873.jpg deleted file mode 100644 index db8634aa..00000000 Binary files a/pics/4440873.jpg and /dev/null differ diff --git a/pics/44424095.jpg b/pics/44424095.jpg deleted file mode 100644 index 56e360e3..00000000 Binary files a/pics/44424095.jpg and /dev/null differ diff --git a/pics/44430454.jpg b/pics/44430454.jpg deleted file mode 100644 index 1f846de3..00000000 Binary files a/pics/44430454.jpg and /dev/null differ diff --git a/pics/44436472.jpg b/pics/44436472.jpg deleted file mode 100644 index e08de30d..00000000 Binary files a/pics/44436472.jpg and /dev/null differ diff --git a/pics/4446672.jpg b/pics/4446672.jpg deleted file mode 100644 index 9ba8c04d..00000000 Binary files a/pics/4446672.jpg and /dev/null differ diff --git a/pics/44472639.jpg b/pics/44472639.jpg deleted file mode 100644 index 1f7d0432..00000000 Binary files a/pics/44472639.jpg and /dev/null differ diff --git a/pics/44481227.jpg b/pics/44481227.jpg deleted file mode 100755 index 502c429d..00000000 Binary files a/pics/44481227.jpg and /dev/null differ diff --git a/pics/44487250.jpg b/pics/44487250.jpg deleted file mode 100644 index fc1b69f1..00000000 Binary files a/pics/44487250.jpg and /dev/null differ diff --git a/pics/44505297.jpg b/pics/44505297.jpg deleted file mode 100644 index d8ce442d..00000000 Binary files a/pics/44505297.jpg and /dev/null differ diff --git a/pics/44508094.jpg b/pics/44508094.jpg deleted file mode 100644 index eaeb09cf..00000000 Binary files a/pics/44508094.jpg and /dev/null differ diff --git a/pics/4450854.jpg b/pics/4450854.jpg deleted file mode 100644 index e6d8a925..00000000 Binary files a/pics/4450854.jpg and /dev/null differ diff --git a/pics/44509898.jpg b/pics/44509898.jpg deleted file mode 100644 index 7419d418..00000000 Binary files a/pics/44509898.jpg and /dev/null differ diff --git a/pics/44519536.jpg b/pics/44519536.jpg deleted file mode 100644 index 5f3a8643..00000000 Binary files a/pics/44519536.jpg and /dev/null differ diff --git a/pics/44584775.jpg b/pics/44584775.jpg deleted file mode 100644 index 4a85e526..00000000 Binary files a/pics/44584775.jpg and /dev/null differ diff --git a/pics/44595286.jpg b/pics/44595286.jpg deleted file mode 100644 index 83057e82..00000000 Binary files a/pics/44595286.jpg and /dev/null differ diff --git a/pics/44635489.jpg b/pics/44635489.jpg deleted file mode 100644 index 16375d0d..00000000 Binary files a/pics/44635489.jpg and /dev/null differ diff --git a/pics/44656491.jpg b/pics/44656491.jpg deleted file mode 100644 index 7f1711f6..00000000 Binary files a/pics/44656491.jpg and /dev/null differ diff --git a/pics/4466015.jpg b/pics/4466015.jpg deleted file mode 100644 index a6d89301..00000000 Binary files a/pics/4466015.jpg and /dev/null differ diff --git a/pics/44663232.jpg b/pics/44663232.jpg deleted file mode 100644 index 0b44b2fe..00000000 Binary files a/pics/44663232.jpg and /dev/null differ diff --git a/pics/44665365.jpg b/pics/44665365.jpg deleted file mode 100644 index a5f207a0..00000000 Binary files a/pics/44665365.jpg and /dev/null differ diff --git a/pics/44676200.jpg b/pics/44676200.jpg deleted file mode 100644 index 1bba46c4..00000000 Binary files a/pics/44676200.jpg and /dev/null differ diff --git a/pics/44682448.jpg b/pics/44682448.jpg deleted file mode 100644 index 711d85ed..00000000 Binary files a/pics/44682448.jpg and /dev/null differ diff --git a/pics/44689688.jpg b/pics/44689688.jpg deleted file mode 100644 index 90a5a79f..00000000 Binary files a/pics/44689688.jpg and /dev/null differ diff --git a/pics/44689689.jpg b/pics/44689689.jpg deleted file mode 100644 index 747ccd9b..00000000 Binary files a/pics/44689689.jpg and /dev/null differ diff --git a/pics/44702857.jpg b/pics/44702857.jpg deleted file mode 100644 index 38ef3143..00000000 Binary files a/pics/44702857.jpg and /dev/null differ diff --git a/pics/44717069.jpg b/pics/44717069.jpg deleted file mode 100644 index a20b3dec..00000000 Binary files a/pics/44717069.jpg and /dev/null differ diff --git a/pics/44729197.jpg b/pics/44729197.jpg deleted file mode 100644 index c0aebd27..00000000 Binary files a/pics/44729197.jpg and /dev/null differ diff --git a/pics/44762290.jpg b/pics/44762290.jpg deleted file mode 100644 index c6b1b4d4..00000000 Binary files a/pics/44762290.jpg and /dev/null differ diff --git a/pics/44763025.jpg b/pics/44763025.jpg deleted file mode 100644 index 78df9f8b..00000000 Binary files a/pics/44763025.jpg and /dev/null differ diff --git a/pics/44771289.jpg b/pics/44771289.jpg deleted file mode 100644 index 9b84ab1f..00000000 Binary files a/pics/44771289.jpg and /dev/null differ diff --git a/pics/44789585.jpg b/pics/44789585.jpg deleted file mode 100644 index 85682621..00000000 Binary files a/pics/44789585.jpg and /dev/null differ diff --git a/pics/44790889.jpg b/pics/44790889.jpg deleted file mode 100644 index b1b4ee66..00000000 Binary files a/pics/44790889.jpg and /dev/null differ diff --git a/pics/44792253.jpg b/pics/44792253.jpg deleted file mode 100644 index 97ceaced..00000000 Binary files a/pics/44792253.jpg and /dev/null differ diff --git a/pics/44800181.jpg b/pics/44800181.jpg deleted file mode 100644 index e9bc8bd7..00000000 Binary files a/pics/44800181.jpg and /dev/null differ diff --git a/pics/44811425.jpg b/pics/44811425.jpg deleted file mode 100644 index 791283ac..00000000 Binary files a/pics/44811425.jpg and /dev/null differ diff --git a/pics/4483989.jpg b/pics/4483989.jpg deleted file mode 100644 index 0eca20d9..00000000 Binary files a/pics/4483989.jpg and /dev/null differ diff --git a/pics/44852429.jpg b/pics/44852429.jpg deleted file mode 100755 index d2449f3d..00000000 Binary files a/pics/44852429.jpg and /dev/null differ diff --git a/pics/44860890.jpg b/pics/44860890.jpg deleted file mode 100644 index 28ada646..00000000 Binary files a/pics/44860890.jpg and /dev/null differ diff --git a/pics/44865098.jpg b/pics/44865098.jpg deleted file mode 100644 index 0e250ec5..00000000 Binary files a/pics/44865098.jpg and /dev/null differ diff --git a/pics/44877690.jpg b/pics/44877690.jpg deleted file mode 100644 index e97d2c79..00000000 Binary files a/pics/44877690.jpg and /dev/null differ diff --git a/pics/44883600.jpg b/pics/44883600.jpg deleted file mode 100644 index e033013e..00000000 Binary files a/pics/44883600.jpg and /dev/null differ diff --git a/pics/44883830.jpg b/pics/44883830.jpg deleted file mode 100644 index 4894e4fd..00000000 Binary files a/pics/44883830.jpg and /dev/null differ diff --git a/pics/44887817.jpg b/pics/44887817.jpg deleted file mode 100644 index e8c4e38c..00000000 Binary files a/pics/44887817.jpg and /dev/null differ diff --git a/pics/44901281.jpg b/pics/44901281.jpg deleted file mode 100644 index 41d3d4d5..00000000 Binary files a/pics/44901281.jpg and /dev/null differ diff --git a/pics/44910027.jpg b/pics/44910027.jpg deleted file mode 100644 index 74a1efa0..00000000 Binary files a/pics/44910027.jpg and /dev/null differ diff --git a/pics/44913552.jpg b/pics/44913552.jpg deleted file mode 100644 index 17f802d9..00000000 Binary files a/pics/44913552.jpg and /dev/null differ diff --git a/pics/44920699.jpg b/pics/44920699.jpg deleted file mode 100644 index d0b4dec6..00000000 Binary files a/pics/44920699.jpg and /dev/null differ diff --git a/pics/44928016.jpg b/pics/44928016.jpg deleted file mode 100644 index 5faf2c8d..00000000 Binary files a/pics/44928016.jpg and /dev/null differ diff --git a/pics/44947065.jpg b/pics/44947065.jpg deleted file mode 100644 index c5ec121f..00000000 Binary files a/pics/44947065.jpg and /dev/null differ diff --git a/pics/44954628.jpg b/pics/44954628.jpg deleted file mode 100644 index 13cbae33..00000000 Binary files a/pics/44954628.jpg and /dev/null differ diff --git a/pics/44968687.jpg b/pics/44968687.jpg deleted file mode 100644 index 239e0384..00000000 Binary files a/pics/44968687.jpg and /dev/null differ diff --git a/pics/450000000.jpg b/pics/450000000.jpg deleted file mode 100644 index 5ab0c3b1..00000000 Binary files a/pics/450000000.jpg and /dev/null differ diff --git a/pics/450000001.jpg b/pics/450000001.jpg deleted file mode 100644 index f08a1b5f..00000000 Binary files a/pics/450000001.jpg and /dev/null differ diff --git a/pics/450000103.jpg b/pics/450000103.jpg deleted file mode 100644 index 1564f7a8..00000000 Binary files a/pics/450000103.jpg and /dev/null differ diff --git a/pics/450000110.jpg b/pics/450000110.jpg deleted file mode 100644 index 0363ef88..00000000 Binary files a/pics/450000110.jpg and /dev/null differ diff --git a/pics/450000111.jpg b/pics/450000111.jpg deleted file mode 100644 index a7468586..00000000 Binary files a/pics/450000111.jpg and /dev/null differ diff --git a/pics/450000112.jpg b/pics/450000112.jpg deleted file mode 100644 index 39601203..00000000 Binary files a/pics/450000112.jpg and /dev/null differ diff --git a/pics/450000130.jpg b/pics/450000130.jpg deleted file mode 100644 index 3d6fdadf..00000000 Binary files a/pics/450000130.jpg and /dev/null differ diff --git a/pics/450000153.jpg b/pics/450000153.jpg deleted file mode 100644 index 8d4da956..00000000 Binary files a/pics/450000153.jpg and /dev/null differ diff --git a/pics/450000348.jpg b/pics/450000348.jpg deleted file mode 100644 index f8112e6d..00000000 Binary files a/pics/450000348.jpg and /dev/null differ diff --git a/pics/450000349.jpg b/pics/450000349.jpg deleted file mode 100644 index dffa778a..00000000 Binary files a/pics/450000349.jpg and /dev/null differ diff --git a/pics/450000350.jpg b/pics/450000350.jpg deleted file mode 100644 index 79ce28f4..00000000 Binary files a/pics/450000350.jpg and /dev/null differ diff --git a/pics/450000351.jpg b/pics/450000351.jpg deleted file mode 100644 index 855873a0..00000000 Binary files a/pics/450000351.jpg and /dev/null differ diff --git a/pics/450000352.jpg b/pics/450000352.jpg deleted file mode 100644 index 0bb1cb64..00000000 Binary files a/pics/450000352.jpg and /dev/null differ diff --git a/pics/450000357.jpg b/pics/450000357.jpg deleted file mode 100644 index 0f7bf848..00000000 Binary files a/pics/450000357.jpg and /dev/null differ diff --git a/pics/450000410.jpg b/pics/450000410.jpg deleted file mode 100644 index f8dee4f6..00000000 Binary files a/pics/450000410.jpg and /dev/null differ diff --git a/pics/45010690.jpg b/pics/45010690.jpg deleted file mode 100644 index 62978cc8..00000000 Binary files a/pics/45010690.jpg and /dev/null differ diff --git a/pics/45023678.jpg b/pics/45023678.jpg deleted file mode 100644 index c28666c9..00000000 Binary files a/pics/45023678.jpg and /dev/null differ diff --git a/pics/45033006.jpg b/pics/45033006.jpg deleted file mode 100644 index 64a603be..00000000 Binary files a/pics/45033006.jpg and /dev/null differ diff --git a/pics/45037489.jpg b/pics/45037489.jpg deleted file mode 100644 index 9ce6e6be..00000000 Binary files a/pics/45037489.jpg and /dev/null differ diff --git a/pics/45041488.jpg b/pics/45041488.jpg deleted file mode 100644 index 3da17f4e..00000000 Binary files a/pics/45041488.jpg and /dev/null differ diff --git a/pics/45042329.jpg b/pics/45042329.jpg deleted file mode 100644 index f19f894e..00000000 Binary files a/pics/45042329.jpg and /dev/null differ diff --git a/pics/45045866.jpg b/pics/45045866.jpg deleted file mode 100644 index 74155bc2..00000000 Binary files a/pics/45045866.jpg and /dev/null differ diff --git a/pics/45082499.jpg b/pics/45082499.jpg deleted file mode 100644 index 972d3cdc..00000000 Binary files a/pics/45082499.jpg and /dev/null differ diff --git a/pics/45103815.jpg b/pics/45103815.jpg deleted file mode 100755 index 69667c88..00000000 Binary files a/pics/45103815.jpg and /dev/null differ diff --git a/pics/45118716.jpg b/pics/45118716.jpg deleted file mode 100644 index 1d6cba2e..00000000 Binary files a/pics/45118716.jpg and /dev/null differ diff --git a/pics/45121025.jpg b/pics/45121025.jpg deleted file mode 100644 index 3587a2fa..00000000 Binary files a/pics/45121025.jpg and /dev/null differ diff --git a/pics/45133463.jpg b/pics/45133463.jpg deleted file mode 100644 index be9a89e7..00000000 Binary files a/pics/45133463.jpg and /dev/null differ diff --git a/pics/45141013.jpg b/pics/45141013.jpg deleted file mode 100644 index 6507d34b..00000000 Binary files a/pics/45141013.jpg and /dev/null differ diff --git a/pics/45141844.jpg b/pics/45141844.jpg deleted file mode 100644 index ba889689..00000000 Binary files a/pics/45141844.jpg and /dev/null differ diff --git a/pics/45159319.jpg b/pics/45159319.jpg deleted file mode 100644 index ba7f6869..00000000 Binary files a/pics/45159319.jpg and /dev/null differ diff --git a/pics/45170821.jpg b/pics/45170821.jpg deleted file mode 100644 index e5807286..00000000 Binary files a/pics/45170821.jpg and /dev/null differ diff --git a/pics/45178472.jpg b/pics/45178472.jpg deleted file mode 100644 index 0f93cb86..00000000 Binary files a/pics/45178472.jpg and /dev/null differ diff --git a/pics/45184165.jpg b/pics/45184165.jpg deleted file mode 100644 index a30070e4..00000000 Binary files a/pics/45184165.jpg and /dev/null differ diff --git a/pics/45206713.jpg b/pics/45206713.jpg deleted file mode 100644 index e6b396b8..00000000 Binary files a/pics/45206713.jpg and /dev/null differ diff --git a/pics/45215453.jpg b/pics/45215453.jpg deleted file mode 100644 index 88a714ca..00000000 Binary files a/pics/45215453.jpg and /dev/null differ diff --git a/pics/45222299.jpg b/pics/45222299.jpg deleted file mode 100644 index 1091b2a6..00000000 Binary files a/pics/45222299.jpg and /dev/null differ diff --git a/pics/45231177.jpg b/pics/45231177.jpg deleted file mode 100644 index 584e3952..00000000 Binary files a/pics/45231177.jpg and /dev/null differ diff --git a/pics/45247637.jpg b/pics/45247637.jpg deleted file mode 100644 index e14c8d85..00000000 Binary files a/pics/45247637.jpg and /dev/null differ diff --git a/pics/45282603.jpg b/pics/45282603.jpg deleted file mode 100644 index a75e2ae9..00000000 Binary files a/pics/45282603.jpg and /dev/null differ diff --git a/pics/45286019.jpg b/pics/45286019.jpg deleted file mode 100644 index 79ba48e8..00000000 Binary files a/pics/45286019.jpg and /dev/null differ diff --git a/pics/45298492.jpg b/pics/45298492.jpg deleted file mode 100644 index 0bd31bb2..00000000 Binary files a/pics/45298492.jpg and /dev/null differ diff --git a/pics/45305419.jpg b/pics/45305419.jpg deleted file mode 100644 index f5641540..00000000 Binary files a/pics/45305419.jpg and /dev/null differ diff --git a/pics/45311864.jpg b/pics/45311864.jpg deleted file mode 100644 index 7e9b21be..00000000 Binary files a/pics/45311864.jpg and /dev/null differ diff --git a/pics/45349196.jpg b/pics/45349196.jpg deleted file mode 100755 index 8ab389ea..00000000 Binary files a/pics/45349196.jpg and /dev/null differ diff --git a/pics/45358284.jpg b/pics/45358284.jpg deleted file mode 100644 index 513a1960..00000000 Binary files a/pics/45358284.jpg and /dev/null differ diff --git a/pics/45379225.jpg b/pics/45379225.jpg deleted file mode 100644 index 65f01a49..00000000 Binary files a/pics/45379225.jpg and /dev/null differ diff --git a/pics/45410988.jpg b/pics/45410988.jpg deleted file mode 100755 index 892a4b47..00000000 Binary files a/pics/45410988.jpg and /dev/null differ diff --git a/pics/45425051.jpg b/pics/45425051.jpg deleted file mode 100644 index 2f71541a..00000000 Binary files a/pics/45425051.jpg and /dev/null differ diff --git a/pics/4542651.jpg b/pics/4542651.jpg deleted file mode 100644 index 41b9b5ed..00000000 Binary files a/pics/4542651.jpg and /dev/null differ diff --git a/pics/45439263.jpg b/pics/45439263.jpg deleted file mode 100644 index bf01d211..00000000 Binary files a/pics/45439263.jpg and /dev/null differ diff --git a/pics/45450218.jpg b/pics/45450218.jpg deleted file mode 100644 index ee6c282f..00000000 Binary files a/pics/45450218.jpg and /dev/null differ diff --git a/pics/45452224.jpg b/pics/45452224.jpg deleted file mode 100644 index 2072af93..00000000 Binary files a/pics/45452224.jpg and /dev/null differ diff --git a/pics/4545683.jpg b/pics/4545683.jpg deleted file mode 100644 index 5ebdba0a..00000000 Binary files a/pics/4545683.jpg and /dev/null differ diff --git a/pics/45458027.jpg b/pics/45458027.jpg deleted file mode 100644 index e78e1bd1..00000000 Binary files a/pics/45458027.jpg and /dev/null differ diff --git a/pics/4545854.jpg b/pics/4545854.jpg deleted file mode 100644 index 99e49f94..00000000 Binary files a/pics/4545854.jpg and /dev/null differ diff --git a/pics/45462639.jpg b/pics/45462639.jpg deleted file mode 100644 index c4073c29..00000000 Binary files a/pics/45462639.jpg and /dev/null differ diff --git a/pics/4549095.jpg b/pics/4549095.jpg deleted file mode 100644 index a753f7eb..00000000 Binary files a/pics/4549095.jpg and /dev/null differ diff --git a/pics/45496268.jpg b/pics/45496268.jpg deleted file mode 100644 index 66bb328c..00000000 Binary files a/pics/45496268.jpg and /dev/null differ diff --git a/pics/45500495.jpg b/pics/45500495.jpg deleted file mode 100644 index 0e7ba00e..00000000 Binary files a/pics/45500495.jpg and /dev/null differ diff --git a/pics/45533023.jpg b/pics/45533023.jpg deleted file mode 100644 index 9bb6f48d..00000000 Binary files a/pics/45533023.jpg and /dev/null differ diff --git a/pics/45547649.jpg b/pics/45547649.jpg deleted file mode 100644 index 62f4d4d3..00000000 Binary files a/pics/45547649.jpg and /dev/null differ diff --git a/pics/45586855.jpg b/pics/45586855.jpg deleted file mode 100644 index d2c32700..00000000 Binary files a/pics/45586855.jpg and /dev/null differ diff --git a/pics/45593005.jpg b/pics/45593005.jpg deleted file mode 100644 index 60f474a1..00000000 Binary files a/pics/45593005.jpg and /dev/null differ diff --git a/pics/45593826.jpg b/pics/45593826.jpg deleted file mode 100644 index 23d3e06e..00000000 Binary files a/pics/45593826.jpg and /dev/null differ diff --git a/pics/45620686.jpg b/pics/45620686.jpg deleted file mode 100644 index fddc8e13..00000000 Binary files a/pics/45620686.jpg and /dev/null differ diff --git a/pics/45627618.jpg b/pics/45627618.jpg deleted file mode 100755 index b4f68085..00000000 Binary files a/pics/45627618.jpg and /dev/null differ diff --git a/pics/45651298.jpg b/pics/45651298.jpg deleted file mode 100644 index dfda6b04..00000000 Binary files a/pics/45651298.jpg and /dev/null differ diff --git a/pics/45653036.jpg b/pics/45653036.jpg deleted file mode 100644 index d77bd900..00000000 Binary files a/pics/45653036.jpg and /dev/null differ diff --git a/pics/45662855.jpg b/pics/45662855.jpg deleted file mode 100644 index b46a099d..00000000 Binary files a/pics/45662855.jpg and /dev/null differ diff --git a/pics/45688586.jpg b/pics/45688586.jpg deleted file mode 100644 index 87c43868..00000000 Binary files a/pics/45688586.jpg and /dev/null differ diff --git a/pics/45705025.jpg b/pics/45705025.jpg deleted file mode 100644 index 61a58942..00000000 Binary files a/pics/45705025.jpg and /dev/null differ diff --git a/pics/45711266.jpg b/pics/45711266.jpg deleted file mode 100644 index 61f73c4c..00000000 Binary files a/pics/45711266.jpg and /dev/null differ diff --git a/pics/45725480.jpg b/pics/45725480.jpg deleted file mode 100644 index d46f2380..00000000 Binary files a/pics/45725480.jpg and /dev/null differ diff --git a/pics/45742626.jpg b/pics/45742626.jpg deleted file mode 100644 index c51e217a..00000000 Binary files a/pics/45742626.jpg and /dev/null differ diff --git a/pics/45778932.jpg b/pics/45778932.jpg deleted file mode 100644 index a5db92ac..00000000 Binary files a/pics/45778932.jpg and /dev/null differ diff --git a/pics/45801022.jpg b/pics/45801022.jpg deleted file mode 100644 index b94cb483..00000000 Binary files a/pics/45801022.jpg and /dev/null differ diff --git a/pics/45803070.jpg b/pics/45803070.jpg deleted file mode 100644 index 986c5dd4..00000000 Binary files a/pics/45803070.jpg and /dev/null differ diff --git a/pics/45809008.jpg b/pics/45809008.jpg deleted file mode 100644 index ed7f34d5..00000000 Binary files a/pics/45809008.jpg and /dev/null differ diff --git a/pics/45812361.jpg b/pics/45812361.jpg deleted file mode 100644 index 5ccd3385..00000000 Binary files a/pics/45812361.jpg and /dev/null differ diff --git a/pics/45815891.jpg b/pics/45815891.jpg deleted file mode 100644 index ab370132..00000000 Binary files a/pics/45815891.jpg and /dev/null differ diff --git a/pics/45869829.jpg b/pics/45869829.jpg deleted file mode 100644 index 6587da4f..00000000 Binary files a/pics/45869829.jpg and /dev/null differ diff --git a/pics/45871897.jpg b/pics/45871897.jpg deleted file mode 100644 index 68a59fd6..00000000 Binary files a/pics/45871897.jpg and /dev/null differ diff --git a/pics/4587638.jpg b/pics/4587638.jpg deleted file mode 100644 index f9c8d1b3..00000000 Binary files a/pics/4587638.jpg and /dev/null differ diff --git a/pics/45894482.jpg b/pics/45894482.jpg deleted file mode 100644 index 70afebe7..00000000 Binary files a/pics/45894482.jpg and /dev/null differ diff --git a/pics/45895206.jpg b/pics/45895206.jpg deleted file mode 100644 index c6ca2170..00000000 Binary files a/pics/45895206.jpg and /dev/null differ diff --git a/pics/45898858.jpg b/pics/45898858.jpg deleted file mode 100644 index 999b2e0a..00000000 Binary files a/pics/45898858.jpg and /dev/null differ diff --git a/pics/45906428.jpg b/pics/45906428.jpg deleted file mode 100644 index d3cfecad..00000000 Binary files a/pics/45906428.jpg and /dev/null differ diff --git a/pics/45909477.jpg b/pics/45909477.jpg deleted file mode 100644 index 152fe843..00000000 Binary files a/pics/45909477.jpg and /dev/null differ diff --git a/pics/45939611.jpg b/pics/45939611.jpg deleted file mode 100644 index 41ed069a..00000000 Binary files a/pics/45939611.jpg and /dev/null differ diff --git a/pics/45939841.jpg b/pics/45939841.jpg deleted file mode 100644 index 69804782..00000000 Binary files a/pics/45939841.jpg and /dev/null differ diff --git a/pics/45945685.jpg b/pics/45945685.jpg deleted file mode 100644 index 03e5aeb3..00000000 Binary files a/pics/45945685.jpg and /dev/null differ diff --git a/pics/45950291.jpg b/pics/45950291.jpg deleted file mode 100644 index d6b7eff2..00000000 Binary files a/pics/45950291.jpg and /dev/null differ diff --git a/pics/45974017.jpg b/pics/45974017.jpg deleted file mode 100755 index 6d24cb69..00000000 Binary files a/pics/45974017.jpg and /dev/null differ diff --git a/pics/45985838.jpg b/pics/45985838.jpg deleted file mode 100644 index b50c0467..00000000 Binary files a/pics/45985838.jpg and /dev/null differ diff --git a/pics/45986603.jpg b/pics/45986603.jpg deleted file mode 100644 index be308224..00000000 Binary files a/pics/45986603.jpg and /dev/null differ diff --git a/pics/46008667.jpg b/pics/46008667.jpg deleted file mode 100644 index 19bde5ec..00000000 Binary files a/pics/46008667.jpg and /dev/null differ diff --git a/pics/46009906.jpg b/pics/46009906.jpg deleted file mode 100644 index 4f3f12e2..00000000 Binary files a/pics/46009906.jpg and /dev/null differ diff --git a/pics/46031686.jpg b/pics/46031686.jpg deleted file mode 100644 index 7611be73..00000000 Binary files a/pics/46031686.jpg and /dev/null differ diff --git a/pics/46037213.jpg b/pics/46037213.jpg deleted file mode 100644 index 9736e178..00000000 Binary files a/pics/46037213.jpg and /dev/null differ diff --git a/pics/46044841.jpg b/pics/46044841.jpg deleted file mode 100644 index 231e76e8..00000000 Binary files a/pics/46044841.jpg and /dev/null differ diff --git a/pics/46052429.jpg b/pics/46052429.jpg deleted file mode 100644 index 466438df..00000000 Binary files a/pics/46052429.jpg and /dev/null differ diff --git a/pics/46066477.jpg b/pics/46066477.jpg deleted file mode 100755 index a7580e90..00000000 Binary files a/pics/46066477.jpg and /dev/null differ diff --git a/pics/46083380.jpg b/pics/46083380.jpg deleted file mode 100644 index fbb3b221..00000000 Binary files a/pics/46083380.jpg and /dev/null differ diff --git a/pics/46089249.jpg b/pics/46089249.jpg deleted file mode 100644 index 03227401..00000000 Binary files a/pics/46089249.jpg and /dev/null differ diff --git a/pics/4611269.jpg b/pics/4611269.jpg deleted file mode 100644 index 66e7dcc2..00000000 Binary files a/pics/4611269.jpg and /dev/null differ diff --git a/pics/46128076.jpg b/pics/46128076.jpg deleted file mode 100644 index 55b9d429..00000000 Binary files a/pics/46128076.jpg and /dev/null differ diff --git a/pics/46130346.jpg b/pics/46130346.jpg deleted file mode 100644 index ae9cda8a..00000000 Binary files a/pics/46130346.jpg and /dev/null differ diff --git a/pics/46132282.jpg b/pics/46132282.jpg deleted file mode 100644 index b40656c4..00000000 Binary files a/pics/46132282.jpg and /dev/null differ diff --git a/pics/4614116.jpg b/pics/4614116.jpg deleted file mode 100644 index 3d6305af..00000000 Binary files a/pics/4614116.jpg and /dev/null differ diff --git a/pics/46145256.jpg b/pics/46145256.jpg deleted file mode 100644 index 2ca30ce3..00000000 Binary files a/pics/46145256.jpg and /dev/null differ diff --git a/pics/46159582.jpg b/pics/46159582.jpg deleted file mode 100644 index cef1db15..00000000 Binary files a/pics/46159582.jpg and /dev/null differ diff --git a/pics/46173679.jpg b/pics/46173679.jpg deleted file mode 100644 index 0db3e391..00000000 Binary files a/pics/46173679.jpg and /dev/null differ diff --git a/pics/46173680.jpg b/pics/46173680.jpg deleted file mode 100644 index f262cbc2..00000000 Binary files a/pics/46173680.jpg and /dev/null differ diff --git a/pics/46173681.jpg b/pics/46173681.jpg deleted file mode 100644 index 75977026..00000000 Binary files a/pics/46173681.jpg and /dev/null differ diff --git a/pics/46181000.jpg b/pics/46181000.jpg deleted file mode 100644 index d959aa21..00000000 Binary files a/pics/46181000.jpg and /dev/null differ diff --git a/pics/46195773.jpg b/pics/46195773.jpg deleted file mode 100644 index a363ec43..00000000 Binary files a/pics/46195773.jpg and /dev/null differ diff --git a/pics/46232525.jpg b/pics/46232525.jpg deleted file mode 100755 index f4de66a3..00000000 Binary files a/pics/46232525.jpg and /dev/null differ diff --git a/pics/46237548.jpg b/pics/46237548.jpg deleted file mode 100644 index 10da832e..00000000 Binary files a/pics/46237548.jpg and /dev/null differ diff --git a/pics/46239604.jpg b/pics/46239604.jpg deleted file mode 100644 index 0ea2c03f..00000000 Binary files a/pics/46239604.jpg and /dev/null differ diff --git a/pics/46247516.jpg b/pics/46247516.jpg deleted file mode 100644 index 702db87a..00000000 Binary files a/pics/46247516.jpg and /dev/null differ diff --git a/pics/46259438.jpg b/pics/46259438.jpg deleted file mode 100755 index 771f8a17..00000000 Binary files a/pics/46259438.jpg and /dev/null differ diff --git a/pics/46263076.jpg b/pics/46263076.jpg deleted file mode 100644 index d422838e..00000000 Binary files a/pics/46263076.jpg and /dev/null differ diff --git a/pics/46272804.jpg b/pics/46272804.jpg deleted file mode 100644 index 8f04d1a4..00000000 Binary files a/pics/46272804.jpg and /dev/null differ diff --git a/pics/46291010.jpg b/pics/46291010.jpg deleted file mode 100644 index 2f3ec78a..00000000 Binary files a/pics/46291010.jpg and /dev/null differ diff --git a/pics/46303688.jpg b/pics/46303688.jpg deleted file mode 100644 index d35bafce..00000000 Binary files a/pics/46303688.jpg and /dev/null differ diff --git a/pics/46337945.jpg b/pics/46337945.jpg deleted file mode 100644 index c95f5fd3..00000000 Binary files a/pics/46337945.jpg and /dev/null differ diff --git a/pics/46354113.jpg b/pics/46354113.jpg deleted file mode 100755 index bfc35330..00000000 Binary files a/pics/46354113.jpg and /dev/null differ diff --git a/pics/46363422.jpg b/pics/46363422.jpg deleted file mode 100644 index ff62f852..00000000 Binary files a/pics/46363422.jpg and /dev/null differ diff --git a/pics/46372010.jpg b/pics/46372010.jpg deleted file mode 100755 index 0993a879..00000000 Binary files a/pics/46372010.jpg and /dev/null differ diff --git a/pics/4638410.jpg b/pics/4638410.jpg deleted file mode 100644 index 02ede383..00000000 Binary files a/pics/4638410.jpg and /dev/null differ diff --git a/pics/46384403.jpg b/pics/46384403.jpg deleted file mode 100644 index ec3626d0..00000000 Binary files a/pics/46384403.jpg and /dev/null differ diff --git a/pics/46384672.jpg b/pics/46384672.jpg deleted file mode 100644 index 0d031d7c..00000000 Binary files a/pics/46384672.jpg and /dev/null differ diff --git a/pics/46404281.jpg b/pics/46404281.jpg deleted file mode 100644 index 7c47bdd2..00000000 Binary files a/pics/46404281.jpg and /dev/null differ diff --git a/pics/46411259.jpg b/pics/46411259.jpg deleted file mode 100644 index 2e430d36..00000000 Binary files a/pics/46411259.jpg and /dev/null differ diff --git a/pics/46427957.jpg b/pics/46427957.jpg deleted file mode 100644 index 59d1fb4d..00000000 Binary files a/pics/46427957.jpg and /dev/null differ diff --git a/pics/464362.jpg b/pics/464362.jpg deleted file mode 100644 index ef9e706f..00000000 Binary files a/pics/464362.jpg and /dev/null differ diff --git a/pics/46448938.jpg b/pics/46448938.jpg deleted file mode 100644 index d1b63e72..00000000 Binary files a/pics/46448938.jpg and /dev/null differ diff --git a/pics/46457856.jpg b/pics/46457856.jpg deleted file mode 100644 index 1c1afacb..00000000 Binary files a/pics/46457856.jpg and /dev/null differ diff --git a/pics/46461247.jpg b/pics/46461247.jpg deleted file mode 100644 index 2ebaf640..00000000 Binary files a/pics/46461247.jpg and /dev/null differ diff --git a/pics/46474915.jpg b/pics/46474915.jpg deleted file mode 100644 index 9402bb69..00000000 Binary files a/pics/46474915.jpg and /dev/null differ diff --git a/pics/46480475.jpg b/pics/46480475.jpg deleted file mode 100644 index 1853350d..00000000 Binary files a/pics/46480475.jpg and /dev/null differ diff --git a/pics/46502013.jpg b/pics/46502013.jpg deleted file mode 100644 index 6a9a39ac..00000000 Binary files a/pics/46502013.jpg and /dev/null differ diff --git a/pics/46502744.jpg b/pics/46502744.jpg deleted file mode 100755 index ce313bbd..00000000 Binary files a/pics/46502744.jpg and /dev/null differ diff --git a/pics/46508640.jpg b/pics/46508640.jpg deleted file mode 100644 index f66dd57f..00000000 Binary files a/pics/46508640.jpg and /dev/null differ diff --git a/pics/46534755.jpg b/pics/46534755.jpg deleted file mode 100644 index c95d3b67..00000000 Binary files a/pics/46534755.jpg and /dev/null differ diff --git a/pics/46565218.jpg b/pics/46565218.jpg deleted file mode 100644 index f76dc73f..00000000 Binary files a/pics/46565218.jpg and /dev/null differ diff --git a/pics/46571052.jpg b/pics/46571052.jpg deleted file mode 100644 index f4f7c252..00000000 Binary files a/pics/46571052.jpg and /dev/null differ diff --git a/pics/46572756.jpg b/pics/46572756.jpg deleted file mode 100644 index 2ac6c9ff..00000000 Binary files a/pics/46572756.jpg and /dev/null differ diff --git a/pics/46609443.jpg b/pics/46609443.jpg deleted file mode 100644 index a64cf399..00000000 Binary files a/pics/46609443.jpg and /dev/null differ diff --git a/pics/46652477.jpg b/pics/46652477.jpg deleted file mode 100644 index 21b12ed8..00000000 Binary files a/pics/46652477.jpg and /dev/null differ diff --git a/pics/46656406.jpg b/pics/46656406.jpg deleted file mode 100644 index d0f17cde..00000000 Binary files a/pics/46656406.jpg and /dev/null differ diff --git a/pics/46657337.jpg b/pics/46657337.jpg deleted file mode 100644 index 8c1aa70b..00000000 Binary files a/pics/46657337.jpg and /dev/null differ diff --git a/pics/46659709.jpg b/pics/46659709.jpg deleted file mode 100644 index 506c322f..00000000 Binary files a/pics/46659709.jpg and /dev/null differ diff --git a/pics/46668237.jpg b/pics/46668237.jpg deleted file mode 100644 index b4f1db8e..00000000 Binary files a/pics/46668237.jpg and /dev/null differ diff --git a/pics/46696593.jpg b/pics/46696593.jpg deleted file mode 100644 index 9c128178..00000000 Binary files a/pics/46696593.jpg and /dev/null differ diff --git a/pics/46700124.jpg b/pics/46700124.jpg deleted file mode 100644 index 3ad3ab78..00000000 Binary files a/pics/46700124.jpg and /dev/null differ diff --git a/pics/46710683.jpg b/pics/46710683.jpg deleted file mode 100644 index e15f4d97..00000000 Binary files a/pics/46710683.jpg and /dev/null differ diff --git a/pics/46718686.jpg b/pics/46718686.jpg deleted file mode 100644 index 202a1619..00000000 Binary files a/pics/46718686.jpg and /dev/null differ diff --git a/pics/46759931.jpg b/pics/46759931.jpg deleted file mode 100644 index 9dbd8740..00000000 Binary files a/pics/46759931.jpg and /dev/null differ diff --git a/pics/46772449.jpg b/pics/46772449.jpg deleted file mode 100644 index 2d768fdf..00000000 Binary files a/pics/46772449.jpg and /dev/null differ diff --git a/pics/46796664.jpg b/pics/46796664.jpg deleted file mode 100755 index d99dfeb6..00000000 Binary files a/pics/46796664.jpg and /dev/null differ diff --git a/pics/46820049.jpg b/pics/46820049.jpg deleted file mode 100644 index 88571e98..00000000 Binary files a/pics/46820049.jpg and /dev/null differ diff --git a/pics/46821314.jpg b/pics/46821314.jpg deleted file mode 100644 index 77642495..00000000 Binary files a/pics/46821314.jpg and /dev/null differ diff --git a/pics/46833854.jpg b/pics/46833854.jpg deleted file mode 100644 index f146e1f4..00000000 Binary files a/pics/46833854.jpg and /dev/null differ diff --git a/pics/46848859.jpg b/pics/46848859.jpg deleted file mode 100644 index d839c234..00000000 Binary files a/pics/46848859.jpg and /dev/null differ diff --git a/pics/46864967.jpg b/pics/46864967.jpg deleted file mode 100644 index 0e88ab13..00000000 Binary files a/pics/46864967.jpg and /dev/null differ diff --git a/pics/46871387.jpg b/pics/46871387.jpg deleted file mode 100644 index a7cdad03..00000000 Binary files a/pics/46871387.jpg and /dev/null differ diff --git a/pics/46874015.jpg b/pics/46874015.jpg deleted file mode 100644 index 0bbdb8d7..00000000 Binary files a/pics/46874015.jpg and /dev/null differ diff --git a/pics/46895036.jpg b/pics/46895036.jpg deleted file mode 100644 index d23fbfa9..00000000 Binary files a/pics/46895036.jpg and /dev/null differ diff --git a/pics/46897277.jpg b/pics/46897277.jpg deleted file mode 100644 index 0f644f2c..00000000 Binary files a/pics/46897277.jpg and /dev/null differ diff --git a/pics/46910446.jpg b/pics/46910446.jpg deleted file mode 100644 index f10bdf6a..00000000 Binary files a/pics/46910446.jpg and /dev/null differ diff --git a/pics/46918794.jpg b/pics/46918794.jpg deleted file mode 100644 index ea5dc2c7..00000000 Binary files a/pics/46918794.jpg and /dev/null differ diff --git a/pics/46925518.jpg b/pics/46925518.jpg deleted file mode 100644 index b45da8aa..00000000 Binary files a/pics/46925518.jpg and /dev/null differ diff --git a/pics/4694209.jpg b/pics/4694209.jpg deleted file mode 100644 index dd828687..00000000 Binary files a/pics/4694209.jpg and /dev/null differ diff --git a/pics/46955770.jpg b/pics/46955770.jpg deleted file mode 100644 index 8796e5f5..00000000 Binary files a/pics/46955770.jpg and /dev/null differ diff --git a/pics/46961802.jpg b/pics/46961802.jpg deleted file mode 100644 index 5234d055..00000000 Binary files a/pics/46961802.jpg and /dev/null differ diff --git a/pics/46967601.jpg b/pics/46967601.jpg deleted file mode 100644 index 7f3aaff8..00000000 Binary files a/pics/46967601.jpg and /dev/null differ diff --git a/pics/46986414.jpg b/pics/46986414.jpg deleted file mode 100644 index 7a72e5af..00000000 Binary files a/pics/46986414.jpg and /dev/null differ diff --git a/pics/46986415.jpg b/pics/46986415.jpg deleted file mode 100644 index f1004b02..00000000 Binary files a/pics/46986415.jpg and /dev/null differ diff --git a/pics/46986416.jpg b/pics/46986416.jpg deleted file mode 100644 index ca57d770..00000000 Binary files a/pics/46986416.jpg and /dev/null differ diff --git a/pics/46986417.jpg b/pics/46986417.jpg deleted file mode 100644 index 03ef0593..00000000 Binary files a/pics/46986417.jpg and /dev/null differ diff --git a/pics/46986418.jpg b/pics/46986418.jpg deleted file mode 100644 index b91886f2..00000000 Binary files a/pics/46986418.jpg and /dev/null differ diff --git a/pics/46986419.jpg b/pics/46986419.jpg deleted file mode 100644 index 1175b290..00000000 Binary files a/pics/46986419.jpg and /dev/null differ diff --git a/pics/47013502.jpg b/pics/47013502.jpg deleted file mode 100644 index c4b0f364..00000000 Binary files a/pics/47013502.jpg and /dev/null differ diff --git a/pics/47017574.jpg b/pics/47017574.jpg deleted file mode 100644 index 29a8964c..00000000 Binary files a/pics/47017574.jpg and /dev/null differ diff --git a/pics/47025270.jpg b/pics/47025270.jpg deleted file mode 100644 index 39fdb88d..00000000 Binary files a/pics/47025270.jpg and /dev/null differ diff --git a/pics/47030842.jpg b/pics/47030842.jpg deleted file mode 100644 index e5c951ee..00000000 Binary files a/pics/47030842.jpg and /dev/null differ diff --git a/pics/47060154.jpg b/pics/47060154.jpg deleted file mode 100644 index 6255ebf4..00000000 Binary files a/pics/47060154.jpg and /dev/null differ diff --git a/pics/47060347.jpg b/pics/47060347.jpg deleted file mode 100644 index 7a7e797a..00000000 Binary files a/pics/47060347.jpg and /dev/null differ diff --git a/pics/47075569.jpg b/pics/47075569.jpg deleted file mode 100644 index 06b47569..00000000 Binary files a/pics/47075569.jpg and /dev/null differ diff --git a/pics/47077318.jpg b/pics/47077318.jpg deleted file mode 100644 index f98de926..00000000 Binary files a/pics/47077318.jpg and /dev/null differ diff --git a/pics/47084486.jpg b/pics/47084486.jpg deleted file mode 100644 index 9fec7104..00000000 Binary files a/pics/47084486.jpg and /dev/null differ diff --git a/pics/47106439.jpg b/pics/47106439.jpg deleted file mode 100644 index 328280dc..00000000 Binary files a/pics/47106439.jpg and /dev/null differ diff --git a/pics/47111934.jpg b/pics/47111934.jpg deleted file mode 100644 index c8338314..00000000 Binary files a/pics/47111934.jpg and /dev/null differ diff --git a/pics/47120245.jpg b/pics/47120245.jpg deleted file mode 100644 index a8e155da..00000000 Binary files a/pics/47120245.jpg and /dev/null differ diff --git a/pics/47121070.jpg b/pics/47121070.jpg deleted file mode 100644 index c04b0b6b..00000000 Binary files a/pics/47121070.jpg and /dev/null differ diff --git a/pics/47126872.jpg b/pics/47126872.jpg deleted file mode 100644 index da8b64d9..00000000 Binary files a/pics/47126872.jpg and /dev/null differ diff --git a/pics/47150851.jpg b/pics/47150851.jpg deleted file mode 100644 index e9dc7820..00000000 Binary files a/pics/47150851.jpg and /dev/null differ diff --git a/pics/47198668.jpg b/pics/47198668.jpg deleted file mode 100644 index d2fa6d8e..00000000 Binary files a/pics/47198668.jpg and /dev/null differ diff --git a/pics/47217354.jpg b/pics/47217354.jpg deleted file mode 100644 index 6807158f..00000000 Binary files a/pics/47217354.jpg and /dev/null differ diff --git a/pics/4722253.jpg b/pics/4722253.jpg deleted file mode 100644 index d7ea10ba..00000000 Binary files a/pics/4722253.jpg and /dev/null differ diff --git a/pics/47228077.jpg b/pics/47228077.jpg deleted file mode 100644 index 8997a932..00000000 Binary files a/pics/47228077.jpg and /dev/null differ diff --git a/pics/47233801.jpg b/pics/47233801.jpg deleted file mode 100644 index 836dd49b..00000000 Binary files a/pics/47233801.jpg and /dev/null differ diff --git a/pics/47247413.jpg b/pics/47247413.jpg deleted file mode 100644 index e801852b..00000000 Binary files a/pics/47247413.jpg and /dev/null differ diff --git a/pics/47264717.jpg b/pics/47264717.jpg deleted file mode 100644 index 3d8cb9f3..00000000 Binary files a/pics/47264717.jpg and /dev/null differ diff --git a/pics/47274077.jpg b/pics/47274077.jpg deleted file mode 100644 index be1d1438..00000000 Binary files a/pics/47274077.jpg and /dev/null differ diff --git a/pics/47295267.jpg b/pics/47295267.jpg deleted file mode 100644 index d5f727f1..00000000 Binary files a/pics/47295267.jpg and /dev/null differ diff --git a/pics/47297616.jpg b/pics/47297616.jpg deleted file mode 100644 index 3ab7ba0b..00000000 Binary files a/pics/47297616.jpg and /dev/null differ diff --git a/pics/47319141.jpg b/pics/47319141.jpg deleted file mode 100644 index 6162bb4d..00000000 Binary files a/pics/47319141.jpg and /dev/null differ diff --git a/pics/4732017.jpg b/pics/4732017.jpg deleted file mode 100644 index 129998ac..00000000 Binary files a/pics/4732017.jpg and /dev/null differ diff --git a/pics/47325505.jpg b/pics/47325505.jpg deleted file mode 100644 index cf829b47..00000000 Binary files a/pics/47325505.jpg and /dev/null differ diff --git a/pics/47346845.jpg b/pics/47346845.jpg deleted file mode 100644 index eb0f2b80..00000000 Binary files a/pics/47346845.jpg and /dev/null differ diff --git a/pics/473469.jpg b/pics/473469.jpg deleted file mode 100644 index 234299a6..00000000 Binary files a/pics/473469.jpg and /dev/null differ diff --git a/pics/47349310.jpg b/pics/47349310.jpg deleted file mode 100644 index 9a7345d7..00000000 Binary files a/pics/47349310.jpg and /dev/null differ diff --git a/pics/47355498.jpg b/pics/47355498.jpg deleted file mode 100644 index 0a5c3cae..00000000 Binary files a/pics/47355498.jpg and /dev/null differ diff --git a/pics/47360060.jpg b/pics/47360060.jpg deleted file mode 100644 index f0325b1f..00000000 Binary files a/pics/47360060.jpg and /dev/null differ diff --git a/pics/47372349.jpg b/pics/47372349.jpg deleted file mode 100644 index 813d8e31..00000000 Binary files a/pics/47372349.jpg and /dev/null differ diff --git a/pics/47387961.jpg b/pics/47387961.jpg deleted file mode 100644 index 44d35830..00000000 Binary files a/pics/47387961.jpg and /dev/null differ diff --git a/pics/47395382.jpg b/pics/47395382.jpg deleted file mode 100644 index 5d58a9fb..00000000 Binary files a/pics/47395382.jpg and /dev/null differ diff --git a/pics/47408488.jpg b/pics/47408488.jpg deleted file mode 100644 index bd5e3bf1..00000000 Binary files a/pics/47408488.jpg and /dev/null differ diff --git a/pics/47415292.jpg b/pics/47415292.jpg deleted file mode 100644 index 42ab534c..00000000 Binary files a/pics/47415292.jpg and /dev/null differ diff --git a/pics/47421985.jpg b/pics/47421985.jpg deleted file mode 100644 index c38fff4b..00000000 Binary files a/pics/47421985.jpg and /dev/null differ diff --git a/pics/47432275.jpg b/pics/47432275.jpg deleted file mode 100644 index 8ec5f097..00000000 Binary files a/pics/47432275.jpg and /dev/null differ diff --git a/pics/47436247.jpg b/pics/47436247.jpg deleted file mode 100644 index 046dd6e9..00000000 Binary files a/pics/47436247.jpg and /dev/null differ diff --git a/pics/47453433.jpg b/pics/47453433.jpg deleted file mode 100644 index 05335b6c..00000000 Binary files a/pics/47453433.jpg and /dev/null differ diff --git a/pics/47459126.jpg b/pics/47459126.jpg deleted file mode 100644 index edd581a6..00000000 Binary files a/pics/47459126.jpg and /dev/null differ diff --git a/pics/47480070.jpg b/pics/47480070.jpg deleted file mode 100644 index 08d440c5..00000000 Binary files a/pics/47480070.jpg and /dev/null differ diff --git a/pics/47506081.jpg b/pics/47506081.jpg deleted file mode 100644 index fb20369e..00000000 Binary files a/pics/47506081.jpg and /dev/null differ diff --git a/pics/47507260.jpg b/pics/47507260.jpg deleted file mode 100644 index c92bc501..00000000 Binary files a/pics/47507260.jpg and /dev/null differ diff --git a/pics/47529357.jpg b/pics/47529357.jpg deleted file mode 100644 index 7d29128f..00000000 Binary files a/pics/47529357.jpg and /dev/null differ diff --git a/pics/4756629.jpg b/pics/4756629.jpg deleted file mode 100644 index c7991bfc..00000000 Binary files a/pics/4756629.jpg and /dev/null differ diff --git a/pics/47579719.jpg b/pics/47579719.jpg deleted file mode 100644 index fb0478fa..00000000 Binary files a/pics/47579719.jpg and /dev/null differ diff --git a/pics/47594192.jpg b/pics/47594192.jpg deleted file mode 100644 index ee2eda39..00000000 Binary files a/pics/47594192.jpg and /dev/null differ diff --git a/pics/47594939.jpg b/pics/47594939.jpg deleted file mode 100644 index 5abf8efb..00000000 Binary files a/pics/47594939.jpg and /dev/null differ diff --git a/pics/47596607.jpg b/pics/47596607.jpg deleted file mode 100644 index 69239151..00000000 Binary files a/pics/47596607.jpg and /dev/null differ diff --git a/pics/47606319.jpg b/pics/47606319.jpg deleted file mode 100644 index 8147bfc8..00000000 Binary files a/pics/47606319.jpg and /dev/null differ diff --git a/pics/47611119.jpg b/pics/47611119.jpg deleted file mode 100644 index f52a173a..00000000 Binary files a/pics/47611119.jpg and /dev/null differ diff --git a/pics/47658964.jpg b/pics/47658964.jpg deleted file mode 100644 index 0314af34..00000000 Binary files a/pics/47658964.jpg and /dev/null differ diff --git a/pics/47658965.jpg b/pics/47658965.jpg deleted file mode 100644 index dc89bb69..00000000 Binary files a/pics/47658965.jpg and /dev/null differ diff --git a/pics/47660516.jpg b/pics/47660516.jpg deleted file mode 100644 index 70c239d2..00000000 Binary files a/pics/47660516.jpg and /dev/null differ diff --git a/pics/47664723.jpg b/pics/47664723.jpg deleted file mode 100644 index 5a06d82e..00000000 Binary files a/pics/47664723.jpg and /dev/null differ diff --git a/pics/47687766.jpg b/pics/47687766.jpg deleted file mode 100644 index ccb0bf60..00000000 Binary files a/pics/47687766.jpg and /dev/null differ diff --git a/pics/47693640.jpg b/pics/47693640.jpg deleted file mode 100644 index ba12d025..00000000 Binary files a/pics/47693640.jpg and /dev/null differ diff --git a/pics/47695416.jpg b/pics/47695416.jpg deleted file mode 100644 index 6c6c1c8d..00000000 Binary files a/pics/47695416.jpg and /dev/null differ diff --git a/pics/47728740.jpg b/pics/47728740.jpg deleted file mode 100644 index 544147da..00000000 Binary files a/pics/47728740.jpg and /dev/null differ diff --git a/pics/47731128.jpg b/pics/47731128.jpg deleted file mode 100644 index c83e7fd5..00000000 Binary files a/pics/47731128.jpg and /dev/null differ diff --git a/pics/47737087.jpg b/pics/47737087.jpg deleted file mode 100644 index 5e61ee46..00000000 Binary files a/pics/47737087.jpg and /dev/null differ diff --git a/pics/47741109.jpg b/pics/47741109.jpg deleted file mode 100644 index 65937d65..00000000 Binary files a/pics/47741109.jpg and /dev/null differ diff --git a/pics/47754278.jpg b/pics/47754278.jpg deleted file mode 100644 index b1eac4e5..00000000 Binary files a/pics/47754278.jpg and /dev/null differ diff --git a/pics/47766694.jpg b/pics/47766694.jpg deleted file mode 100644 index 720e41c3..00000000 Binary files a/pics/47766694.jpg and /dev/null differ diff --git a/pics/47778083.jpg b/pics/47778083.jpg deleted file mode 100644 index 06564fcf..00000000 Binary files a/pics/47778083.jpg and /dev/null differ diff --git a/pics/4779091.jpg b/pics/4779091.jpg deleted file mode 100644 index 9749fe16..00000000 Binary files a/pics/4779091.jpg and /dev/null differ diff --git a/pics/47795344.jpg b/pics/47795344.jpg deleted file mode 100644 index 996c48d3..00000000 Binary files a/pics/47795344.jpg and /dev/null differ diff --git a/pics/4779823.jpg b/pics/4779823.jpg deleted file mode 100644 index f158145e..00000000 Binary files a/pics/4779823.jpg and /dev/null differ diff --git a/pics/47805931.jpg b/pics/47805931.jpg deleted file mode 100644 index 5de2d26e..00000000 Binary files a/pics/47805931.jpg and /dev/null differ diff --git a/pics/47819246.jpg b/pics/47819246.jpg deleted file mode 100755 index 864ae66c..00000000 Binary files a/pics/47819246.jpg and /dev/null differ diff --git a/pics/47826112.jpg b/pics/47826112.jpg deleted file mode 100644 index 843e20d6..00000000 Binary files a/pics/47826112.jpg and /dev/null differ diff --git a/pics/47829960.jpg b/pics/47829960.jpg deleted file mode 100644 index 5febe6ce..00000000 Binary files a/pics/47829960.jpg and /dev/null differ diff --git a/pics/47852924.jpg b/pics/47852924.jpg deleted file mode 100644 index 1c7f4dd0..00000000 Binary files a/pics/47852924.jpg and /dev/null differ diff --git a/pics/47852925.jpg b/pics/47852925.jpg deleted file mode 100644 index 9af37f2c..00000000 Binary files a/pics/47852925.jpg and /dev/null differ diff --git a/pics/4786063.jpg b/pics/4786063.jpg deleted file mode 100644 index 35ca2672..00000000 Binary files a/pics/4786063.jpg and /dev/null differ diff --git a/pics/47863787.jpg b/pics/47863787.jpg deleted file mode 100644 index 94e5a013..00000000 Binary files a/pics/47863787.jpg and /dev/null differ diff --git a/pics/47879985.jpg b/pics/47879985.jpg deleted file mode 100644 index 65c09db6..00000000 Binary files a/pics/47879985.jpg and /dev/null differ diff --git a/pics/47922711.jpg b/pics/47922711.jpg deleted file mode 100644 index c9f08ff4..00000000 Binary files a/pics/47922711.jpg and /dev/null differ diff --git a/pics/47929865.jpg b/pics/47929865.jpg deleted file mode 100644 index 56c0357c..00000000 Binary files a/pics/47929865.jpg and /dev/null differ diff --git a/pics/47942531.jpg b/pics/47942531.jpg deleted file mode 100644 index 2729ac5b..00000000 Binary files a/pics/47942531.jpg and /dev/null differ diff --git a/pics/4796100.jpg b/pics/4796100.jpg deleted file mode 100644 index b0439dd8..00000000 Binary files a/pics/4796100.jpg and /dev/null differ diff --git a/pics/47961808.jpg b/pics/47961808.jpg deleted file mode 100644 index 3f7870b5..00000000 Binary files a/pics/47961808.jpg and /dev/null differ diff --git a/pics/47985614.jpg b/pics/47985614.jpg deleted file mode 100644 index e9ea7b6c..00000000 Binary files a/pics/47985614.jpg and /dev/null differ diff --git a/pics/47986555.jpg b/pics/47986555.jpg deleted file mode 100644 index a4a48aa3..00000000 Binary files a/pics/47986555.jpg and /dev/null differ diff --git a/pics/48009503.jpg b/pics/48009503.jpg deleted file mode 100644 index f1b8e665..00000000 Binary files a/pics/48009503.jpg and /dev/null differ diff --git a/pics/48017809.jpg b/pics/48017809.jpg deleted file mode 100644 index ab5237bf..00000000 Binary files a/pics/48017809.jpg and /dev/null differ diff --git a/pics/48049769.jpg b/pics/48049769.jpg deleted file mode 100644 index 95e8ccd2..00000000 Binary files a/pics/48049769.jpg and /dev/null differ diff --git a/pics/48063985.jpg b/pics/48063985.jpg deleted file mode 100644 index 963b4b35..00000000 Binary files a/pics/48063985.jpg and /dev/null differ diff --git a/pics/4807253.jpg b/pics/4807253.jpg deleted file mode 100755 index d9e42c4c..00000000 Binary files a/pics/4807253.jpg and /dev/null differ diff --git a/pics/48086335.jpg b/pics/48086335.jpg deleted file mode 100644 index 7e625196..00000000 Binary files a/pics/48086335.jpg and /dev/null differ diff --git a/pics/48092532.jpg b/pics/48092532.jpg deleted file mode 100644 index ea172b4a..00000000 Binary files a/pics/48092532.jpg and /dev/null differ diff --git a/pics/48094997.jpg b/pics/48094997.jpg deleted file mode 100644 index 05193637..00000000 Binary files a/pics/48094997.jpg and /dev/null differ diff --git a/pics/48109103.jpg b/pics/48109103.jpg deleted file mode 100644 index 94cc06e5..00000000 Binary files a/pics/48109103.jpg and /dev/null differ diff --git a/pics/48115277.jpg b/pics/48115277.jpg deleted file mode 100644 index 9cade56c..00000000 Binary files a/pics/48115277.jpg and /dev/null differ diff --git a/pics/48115278.jpg b/pics/48115278.jpg deleted file mode 100644 index 224d915f..00000000 Binary files a/pics/48115278.jpg and /dev/null differ diff --git a/pics/48130397.jpg b/pics/48130397.jpg deleted file mode 100644 index 483a4f55..00000000 Binary files a/pics/48130397.jpg and /dev/null differ diff --git a/pics/48135190.jpg b/pics/48135190.jpg deleted file mode 100644 index 940a0e94..00000000 Binary files a/pics/48135190.jpg and /dev/null differ diff --git a/pics/48144509.jpg b/pics/48144509.jpg deleted file mode 100644 index 24894582..00000000 Binary files a/pics/48144509.jpg and /dev/null differ diff --git a/pics/48148828.jpg b/pics/48148828.jpg deleted file mode 100644 index dc6038ae..00000000 Binary files a/pics/48148828.jpg and /dev/null differ diff --git a/pics/48156348.jpg b/pics/48156348.jpg deleted file mode 100644 index 88683381..00000000 Binary files a/pics/48156348.jpg and /dev/null differ diff --git a/pics/48179391.jpg b/pics/48179391.jpg deleted file mode 100644 index 651cb46e..00000000 Binary files a/pics/48179391.jpg and /dev/null differ diff --git a/pics/48202661.jpg b/pics/48202661.jpg deleted file mode 100644 index c47816e3..00000000 Binary files a/pics/48202661.jpg and /dev/null differ diff --git a/pics/48206762.jpg b/pics/48206762.jpg deleted file mode 100644 index fe740257..00000000 Binary files a/pics/48206762.jpg and /dev/null differ diff --git a/pics/4820694.jpg b/pics/4820694.jpg deleted file mode 100644 index a1875fe6..00000000 Binary files a/pics/4820694.jpg and /dev/null differ diff --git a/pics/48210156.jpg b/pics/48210156.jpg deleted file mode 100644 index 3a627cf9..00000000 Binary files a/pics/48210156.jpg and /dev/null differ diff --git a/pics/48216773.jpg b/pics/48216773.jpg deleted file mode 100644 index 26ccc717..00000000 Binary files a/pics/48216773.jpg and /dev/null differ diff --git a/pics/48229808.jpg b/pics/48229808.jpg deleted file mode 100644 index 9a09663a..00000000 Binary files a/pics/48229808.jpg and /dev/null differ diff --git a/pics/48252330.jpg b/pics/48252330.jpg deleted file mode 100644 index 4b118311..00000000 Binary files a/pics/48252330.jpg and /dev/null differ diff --git a/pics/48276469.jpg b/pics/48276469.jpg deleted file mode 100644 index 9631613f..00000000 Binary files a/pics/48276469.jpg and /dev/null differ diff --git a/pics/48305365.jpg b/pics/48305365.jpg deleted file mode 100644 index e161d4a8..00000000 Binary files a/pics/48305365.jpg and /dev/null differ diff --git a/pics/48333324.jpg b/pics/48333324.jpg deleted file mode 100644 index 51a6c54d..00000000 Binary files a/pics/48333324.jpg and /dev/null differ diff --git a/pics/48343627.jpg b/pics/48343627.jpg deleted file mode 100644 index 3fbb6845..00000000 Binary files a/pics/48343627.jpg and /dev/null differ diff --git a/pics/48356796.jpg b/pics/48356796.jpg deleted file mode 100644 index 1069b5f8..00000000 Binary files a/pics/48356796.jpg and /dev/null differ diff --git a/pics/48357738.jpg b/pics/48357738.jpg deleted file mode 100644 index 6df724c2..00000000 Binary files a/pics/48357738.jpg and /dev/null differ diff --git a/pics/48365709.jpg b/pics/48365709.jpg deleted file mode 100644 index 489e90c1..00000000 Binary files a/pics/48365709.jpg and /dev/null differ diff --git a/pics/48370501.jpg b/pics/48370501.jpg deleted file mode 100644 index 7e54f835..00000000 Binary files a/pics/48370501.jpg and /dev/null differ diff --git a/pics/48381268.jpg b/pics/48381268.jpg deleted file mode 100644 index f5ddf2ff..00000000 Binary files a/pics/48381268.jpg and /dev/null differ diff --git a/pics/48411996.jpg b/pics/48411996.jpg deleted file mode 100644 index 2ff2a8d3..00000000 Binary files a/pics/48411996.jpg and /dev/null differ diff --git a/pics/48411997.jpg b/pics/48411997.jpg deleted file mode 100644 index 1478f747..00000000 Binary files a/pics/48411997.jpg and /dev/null differ diff --git a/pics/48422921.jpg b/pics/48422921.jpg deleted file mode 100644 index b1d4ffea..00000000 Binary files a/pics/48422921.jpg and /dev/null differ diff --git a/pics/48424886.jpg b/pics/48424886.jpg deleted file mode 100644 index 3e50bd0c..00000000 Binary files a/pics/48424886.jpg and /dev/null differ diff --git a/pics/48427163.jpg b/pics/48427163.jpg deleted file mode 100755 index e9fd7c01..00000000 Binary files a/pics/48427163.jpg and /dev/null differ diff --git a/pics/48439321.jpg b/pics/48439321.jpg deleted file mode 100644 index 540e4f63..00000000 Binary files a/pics/48439321.jpg and /dev/null differ diff --git a/pics/48445393.jpg b/pics/48445393.jpg deleted file mode 100644 index 29bf261a..00000000 Binary files a/pics/48445393.jpg and /dev/null differ diff --git a/pics/48447192.jpg b/pics/48447192.jpg deleted file mode 100644 index 2c33ce07..00000000 Binary files a/pics/48447192.jpg and /dev/null differ diff --git a/pics/48453776.jpg b/pics/48453776.jpg deleted file mode 100644 index bf2a1809..00000000 Binary files a/pics/48453776.jpg and /dev/null differ diff --git a/pics/4849037.jpg b/pics/4849037.jpg deleted file mode 100644 index 30fb64dc..00000000 Binary files a/pics/4849037.jpg and /dev/null differ diff --git a/pics/48497555.jpg b/pics/48497555.jpg deleted file mode 100644 index 5858709d..00000000 Binary files a/pics/48497555.jpg and /dev/null differ diff --git a/pics/48505422.jpg b/pics/48505422.jpg deleted file mode 100644 index d8dce30c..00000000 Binary files a/pics/48505422.jpg and /dev/null differ diff --git a/pics/48531733.jpg b/pics/48531733.jpg deleted file mode 100644 index d6c67f31..00000000 Binary files a/pics/48531733.jpg and /dev/null differ diff --git a/pics/48539234.jpg b/pics/48539234.jpg deleted file mode 100644 index 64ba02ab..00000000 Binary files a/pics/48539234.jpg and /dev/null differ diff --git a/pics/48546368.jpg b/pics/48546368.jpg deleted file mode 100644 index 2ea0f2b0..00000000 Binary files a/pics/48546368.jpg and /dev/null differ diff --git a/pics/48568432.jpg b/pics/48568432.jpg deleted file mode 100644 index 15e1f23a..00000000 Binary files a/pics/48568432.jpg and /dev/null differ diff --git a/pics/4857085.jpg b/pics/4857085.jpg deleted file mode 100644 index 1feeec15..00000000 Binary files a/pics/4857085.jpg and /dev/null differ diff --git a/pics/48576971.jpg b/pics/48576971.jpg deleted file mode 100644 index cde942eb..00000000 Binary files a/pics/48576971.jpg and /dev/null differ diff --git a/pics/48579379.jpg b/pics/48579379.jpg deleted file mode 100644 index a9705687..00000000 Binary files a/pics/48579379.jpg and /dev/null differ diff --git a/pics/48582558.jpg b/pics/48582558.jpg deleted file mode 100644 index dfff87de..00000000 Binary files a/pics/48582558.jpg and /dev/null differ diff --git a/pics/48588176.jpg b/pics/48588176.jpg deleted file mode 100644 index 26d74f8a..00000000 Binary files a/pics/48588176.jpg and /dev/null differ diff --git a/pics/4861205.jpg b/pics/4861205.jpg deleted file mode 100644 index 1f6486d1..00000000 Binary files a/pics/4861205.jpg and /dev/null differ diff --git a/pics/48642904.jpg b/pics/48642904.jpg deleted file mode 100644 index 89ca34b3..00000000 Binary files a/pics/48642904.jpg and /dev/null differ diff --git a/pics/48649353.jpg b/pics/48649353.jpg deleted file mode 100644 index 76c19803..00000000 Binary files a/pics/48649353.jpg and /dev/null differ diff --git a/pics/48653261.jpg b/pics/48653261.jpg deleted file mode 100644 index 96565be1..00000000 Binary files a/pics/48653261.jpg and /dev/null differ diff --git a/pics/48659020.jpg b/pics/48659020.jpg deleted file mode 100644 index bb9454b4..00000000 Binary files a/pics/48659020.jpg and /dev/null differ diff --git a/pics/48675364.jpg b/pics/48675364.jpg deleted file mode 100644 index 0339c6e5..00000000 Binary files a/pics/48675364.jpg and /dev/null differ diff --git a/pics/48680970.jpg b/pics/48680970.jpg deleted file mode 100644 index a862a9c4..00000000 Binary files a/pics/48680970.jpg and /dev/null differ diff --git a/pics/48686504.jpg b/pics/48686504.jpg deleted file mode 100644 index 233a8dff..00000000 Binary files a/pics/48686504.jpg and /dev/null differ diff --git a/pics/4869446.jpg b/pics/4869446.jpg deleted file mode 100644 index 1d7db654..00000000 Binary files a/pics/4869446.jpg and /dev/null differ diff --git a/pics/48700891.jpg b/pics/48700891.jpg deleted file mode 100644 index 05b855aa..00000000 Binary files a/pics/48700891.jpg and /dev/null differ diff --git a/pics/48712195.jpg b/pics/48712195.jpg deleted file mode 100644 index a688a0e7..00000000 Binary files a/pics/48712195.jpg and /dev/null differ diff --git a/pics/48716139.jpg b/pics/48716139.jpg deleted file mode 100644 index ca29d7d7..00000000 Binary files a/pics/48716139.jpg and /dev/null differ diff --git a/pics/48716527.jpg b/pics/48716527.jpg deleted file mode 100644 index 56f40a71..00000000 Binary files a/pics/48716527.jpg and /dev/null differ diff --git a/pics/48737767.jpg b/pics/48737767.jpg deleted file mode 100644 index 32838ed5..00000000 Binary files a/pics/48737767.jpg and /dev/null differ diff --git a/pics/48739166.jpg b/pics/48739166.jpg deleted file mode 100644 index cef4cf6a..00000000 Binary files a/pics/48739166.jpg and /dev/null differ diff --git a/pics/487395.jpg b/pics/487395.jpg deleted file mode 100644 index b8838e64..00000000 Binary files a/pics/487395.jpg and /dev/null differ diff --git a/pics/48742406.jpg b/pics/48742406.jpg deleted file mode 100644 index e045c595..00000000 Binary files a/pics/48742406.jpg and /dev/null differ diff --git a/pics/48766543.jpg b/pics/48766543.jpg deleted file mode 100644 index 56028362..00000000 Binary files a/pics/48766543.jpg and /dev/null differ diff --git a/pics/48768179.jpg b/pics/48768179.jpg deleted file mode 100644 index efd6a006..00000000 Binary files a/pics/48768179.jpg and /dev/null differ diff --git a/pics/48783998.jpg b/pics/48783998.jpg deleted file mode 100644 index 8cf1f02a..00000000 Binary files a/pics/48783998.jpg and /dev/null differ diff --git a/pics/48800175.jpg b/pics/48800175.jpg deleted file mode 100644 index d7472e15..00000000 Binary files a/pics/48800175.jpg and /dev/null differ diff --git a/pics/48868994.jpg b/pics/48868994.jpg deleted file mode 100644 index e01a41e5..00000000 Binary files a/pics/48868994.jpg and /dev/null differ diff --git a/pics/48928529.jpg b/pics/48928529.jpg deleted file mode 100644 index b39b6251..00000000 Binary files a/pics/48928529.jpg and /dev/null differ diff --git a/pics/48934760.jpg b/pics/48934760.jpg deleted file mode 100644 index 223bfa39..00000000 Binary files a/pics/48934760.jpg and /dev/null differ diff --git a/pics/48940337.jpg b/pics/48940337.jpg deleted file mode 100644 index 0233aacf..00000000 Binary files a/pics/48940337.jpg and /dev/null differ diff --git a/pics/48948935.jpg b/pics/48948935.jpg deleted file mode 100644 index bca17c61..00000000 Binary files a/pics/48948935.jpg and /dev/null differ diff --git a/pics/48964966.jpg b/pics/48964966.jpg deleted file mode 100644 index f25c1792..00000000 Binary files a/pics/48964966.jpg and /dev/null differ diff --git a/pics/4896788.jpg b/pics/4896788.jpg deleted file mode 100644 index 65fd67ea..00000000 Binary files a/pics/4896788.jpg and /dev/null differ diff --git a/pics/48976825.jpg b/pics/48976825.jpg deleted file mode 100644 index 26f7b705..00000000 Binary files a/pics/48976825.jpg and /dev/null differ diff --git a/pics/48995978.jpg b/pics/48995978.jpg deleted file mode 100644 index ad1e6e4a..00000000 Binary files a/pics/48995978.jpg and /dev/null differ diff --git a/pics/48996569.jpg b/pics/48996569.jpg deleted file mode 100644 index 4faa67d6..00000000 Binary files a/pics/48996569.jpg and /dev/null differ diff --git a/pics/49003308.jpg b/pics/49003308.jpg deleted file mode 100644 index fc45672e..00000000 Binary files a/pics/49003308.jpg and /dev/null differ diff --git a/pics/49003716.jpg b/pics/49003716.jpg deleted file mode 100644 index c81ff096..00000000 Binary files a/pics/49003716.jpg and /dev/null differ diff --git a/pics/49010598.jpg b/pics/49010598.jpg deleted file mode 100644 index c66fb041..00000000 Binary files a/pics/49010598.jpg and /dev/null differ diff --git a/pics/49032236.jpg b/pics/49032236.jpg deleted file mode 100644 index daf1edab..00000000 Binary files a/pics/49032236.jpg and /dev/null differ diff --git a/pics/49033797.jpg b/pics/49033797.jpg deleted file mode 100644 index 55af5877..00000000 Binary files a/pics/49033797.jpg and /dev/null differ diff --git a/pics/49036338.jpg b/pics/49036338.jpg deleted file mode 100755 index 50b6b446..00000000 Binary files a/pics/49036338.jpg and /dev/null differ diff --git a/pics/4904633.jpg b/pics/4904633.jpg deleted file mode 100644 index 0b9cae2e..00000000 Binary files a/pics/4904633.jpg and /dev/null differ diff --git a/pics/4904812.jpg b/pics/4904812.jpg deleted file mode 100644 index 66395daa..00000000 Binary files a/pics/4904812.jpg and /dev/null differ diff --git a/pics/4906301.jpg b/pics/4906301.jpg deleted file mode 100644 index abdc82e5..00000000 Binary files a/pics/4906301.jpg and /dev/null differ diff --git a/pics/49064413.jpg b/pics/49064413.jpg deleted file mode 100644 index 23a2dff3..00000000 Binary files a/pics/49064413.jpg and /dev/null differ diff --git a/pics/49080532.jpg b/pics/49080532.jpg deleted file mode 100644 index e85e1fb4..00000000 Binary files a/pics/49080532.jpg and /dev/null differ diff --git a/pics/49127943.jpg b/pics/49127943.jpg deleted file mode 100644 index a5654154..00000000 Binary files a/pics/49127943.jpg and /dev/null differ diff --git a/pics/49140998.jpg b/pics/49140998.jpg deleted file mode 100644 index a8933aec..00000000 Binary files a/pics/49140998.jpg and /dev/null differ diff --git a/pics/49144107.jpg b/pics/49144107.jpg deleted file mode 100644 index 00a259eb..00000000 Binary files a/pics/49144107.jpg and /dev/null differ diff --git a/pics/49191560.jpg b/pics/49191560.jpg deleted file mode 100644 index 3309e0d5..00000000 Binary files a/pics/49191560.jpg and /dev/null differ diff --git a/pics/49195710.jpg b/pics/49195710.jpg deleted file mode 100644 index 9706de3b..00000000 Binary files a/pics/49195710.jpg and /dev/null differ diff --git a/pics/4920010.jpg b/pics/4920010.jpg deleted file mode 100644 index 3464e118..00000000 Binary files a/pics/4920010.jpg and /dev/null differ diff --git a/pics/49202331.jpg b/pics/49202331.jpg deleted file mode 100644 index 7fb36f06..00000000 Binary files a/pics/49202331.jpg and /dev/null differ diff --git a/pics/49204190.jpg b/pics/49204190.jpg deleted file mode 100644 index b6b41c01..00000000 Binary files a/pics/49204190.jpg and /dev/null differ diff --git a/pics/49217579.jpg b/pics/49217579.jpg deleted file mode 100644 index 3f17f16a..00000000 Binary files a/pics/49217579.jpg and /dev/null differ diff --git a/pics/49218300.jpg b/pics/49218300.jpg deleted file mode 100644 index 0c8359e5..00000000 Binary files a/pics/49218300.jpg and /dev/null differ diff --git a/pics/49221191.jpg b/pics/49221191.jpg deleted file mode 100644 index 77fde346..00000000 Binary files a/pics/49221191.jpg and /dev/null differ diff --git a/pics/4923662.jpg b/pics/4923662.jpg deleted file mode 100644 index 9818e821..00000000 Binary files a/pics/4923662.jpg and /dev/null differ diff --git a/pics/49249907.jpg b/pics/49249907.jpg deleted file mode 100644 index 6f3c669e..00000000 Binary files a/pics/49249907.jpg and /dev/null differ diff --git a/pics/49251811.jpg b/pics/49251811.jpg deleted file mode 100644 index c5c8715c..00000000 Binary files a/pics/49251811.jpg and /dev/null differ diff --git a/pics/49258578.jpg b/pics/49258578.jpg deleted file mode 100644 index d97ed238..00000000 Binary files a/pics/49258578.jpg and /dev/null differ diff --git a/pics/49267971.jpg b/pics/49267971.jpg deleted file mode 100644 index db193503..00000000 Binary files a/pics/49267971.jpg and /dev/null differ diff --git a/pics/4929256.jpg b/pics/4929256.jpg deleted file mode 100644 index 09f11dd9..00000000 Binary files a/pics/4929256.jpg and /dev/null differ diff --git a/pics/4931562.jpg b/pics/4931562.jpg deleted file mode 100644 index e19f0c78..00000000 Binary files a/pics/4931562.jpg and /dev/null differ diff --git a/pics/49328340.jpg b/pics/49328340.jpg deleted file mode 100644 index 7d1119a1..00000000 Binary files a/pics/49328340.jpg and /dev/null differ diff --git a/pics/49352945.jpg b/pics/49352945.jpg deleted file mode 100644 index c2cfa544..00000000 Binary files a/pics/49352945.jpg and /dev/null differ diff --git a/pics/49366157.jpg b/pics/49366157.jpg deleted file mode 100755 index 8e7ce3da..00000000 Binary files a/pics/49366157.jpg and /dev/null differ diff --git a/pics/49370026.jpg b/pics/49370026.jpg deleted file mode 100644 index 30206ca4..00000000 Binary files a/pics/49370026.jpg and /dev/null differ diff --git a/pics/49374988.jpg b/pics/49374988.jpg deleted file mode 100644 index 45f737ca..00000000 Binary files a/pics/49374988.jpg and /dev/null differ diff --git a/pics/49375719.jpg b/pics/49375719.jpg deleted file mode 100644 index f6b8f382..00000000 Binary files a/pics/49375719.jpg and /dev/null differ diff --git a/pics/49389523.jpg b/pics/49389523.jpg deleted file mode 100644 index bacbe23d..00000000 Binary files a/pics/49389523.jpg and /dev/null differ diff --git a/pics/49398568.jpg b/pics/49398568.jpg deleted file mode 100644 index ca34a7a8..00000000 Binary files a/pics/49398568.jpg and /dev/null differ diff --git a/pics/4939890.jpg b/pics/4939890.jpg deleted file mode 100644 index 2ef80fe4..00000000 Binary files a/pics/4939890.jpg and /dev/null differ diff --git a/pics/4941482.jpg b/pics/4941482.jpg deleted file mode 100644 index 285d3a81..00000000 Binary files a/pics/4941482.jpg and /dev/null differ diff --git a/pics/49417509.jpg b/pics/49417509.jpg deleted file mode 100644 index 012e828b..00000000 Binary files a/pics/49417509.jpg and /dev/null differ diff --git a/pics/49441499.jpg b/pics/49441499.jpg deleted file mode 100644 index b8efea75..00000000 Binary files a/pics/49441499.jpg and /dev/null differ diff --git a/pics/49456901.jpg b/pics/49456901.jpg deleted file mode 100644 index 40963196..00000000 Binary files a/pics/49456901.jpg and /dev/null differ diff --git a/pics/49460512.jpg b/pics/49460512.jpg deleted file mode 100644 index b6d47846..00000000 Binary files a/pics/49460512.jpg and /dev/null differ diff --git a/pics/49469105.jpg b/pics/49469105.jpg deleted file mode 100644 index 97557564..00000000 Binary files a/pics/49469105.jpg and /dev/null differ diff --git a/pics/49479374.jpg b/pics/49479374.jpg deleted file mode 100644 index d50ae705..00000000 Binary files a/pics/49479374.jpg and /dev/null differ diff --git a/pics/494922.jpg b/pics/494922.jpg deleted file mode 100644 index c8f8ae13..00000000 Binary files a/pics/494922.jpg and /dev/null differ diff --git a/pics/49514333.jpg b/pics/49514333.jpg deleted file mode 100644 index 0fec2480..00000000 Binary files a/pics/49514333.jpg and /dev/null differ diff --git a/pics/49522489.jpg b/pics/49522489.jpg deleted file mode 100644 index 61e8dcd6..00000000 Binary files a/pics/49522489.jpg and /dev/null differ diff --git a/pics/49551909.jpg b/pics/49551909.jpg deleted file mode 100644 index 848696bb..00000000 Binary files a/pics/49551909.jpg and /dev/null differ diff --git a/pics/49563947.jpg b/pics/49563947.jpg deleted file mode 100644 index 7d706ebd..00000000 Binary files a/pics/49563947.jpg and /dev/null differ diff --git a/pics/49587034.jpg b/pics/49587034.jpg deleted file mode 100644 index f7ada088..00000000 Binary files a/pics/49587034.jpg and /dev/null differ diff --git a/pics/49587396.jpg b/pics/49587396.jpg deleted file mode 100644 index c725601b..00000000 Binary files a/pics/49587396.jpg and /dev/null differ diff --git a/pics/49597193.jpg b/pics/49597193.jpg deleted file mode 100644 index b3a1a599..00000000 Binary files a/pics/49597193.jpg and /dev/null differ diff --git a/pics/49600724.jpg b/pics/49600724.jpg deleted file mode 100644 index 9050b449..00000000 Binary files a/pics/49600724.jpg and /dev/null differ diff --git a/pics/49633574.jpg b/pics/49633574.jpg deleted file mode 100644 index 2c1b1711..00000000 Binary files a/pics/49633574.jpg and /dev/null differ diff --git a/pics/49645921.jpg b/pics/49645921.jpg deleted file mode 100644 index 9f505621..00000000 Binary files a/pics/49645921.jpg and /dev/null differ diff --git a/pics/49669730.jpg b/pics/49669730.jpg deleted file mode 100644 index e406be0a..00000000 Binary files a/pics/49669730.jpg and /dev/null differ diff --git a/pics/49674183.jpg b/pics/49674183.jpg deleted file mode 100644 index 882ef7f7..00000000 Binary files a/pics/49674183.jpg and /dev/null differ diff --git a/pics/49678559.jpg b/pics/49678559.jpg deleted file mode 100644 index 48a6d44d..00000000 Binary files a/pics/49678559.jpg and /dev/null differ diff --git a/pics/49680980.jpg b/pics/49680980.jpg deleted file mode 100644 index dc4aea73..00000000 Binary files a/pics/49680980.jpg and /dev/null differ diff --git a/pics/49681811.jpg b/pics/49681811.jpg deleted file mode 100644 index ea8711a9..00000000 Binary files a/pics/49681811.jpg and /dev/null differ diff --git a/pics/49702428.jpg b/pics/49702428.jpg deleted file mode 100644 index 45eb0531..00000000 Binary files a/pics/49702428.jpg and /dev/null differ diff --git a/pics/49721904.jpg b/pics/49721904.jpg deleted file mode 100644 index 4ad95f83..00000000 Binary files a/pics/49721904.jpg and /dev/null differ diff --git a/pics/49771608.jpg b/pics/49771608.jpg deleted file mode 100644 index b8003e88..00000000 Binary files a/pics/49771608.jpg and /dev/null differ diff --git a/pics/49785720.jpg b/pics/49785720.jpg deleted file mode 100644 index a431a74a..00000000 Binary files a/pics/49785720.jpg and /dev/null differ diff --git a/pics/49791927.jpg b/pics/49791927.jpg deleted file mode 100644 index 50f25e25..00000000 Binary files a/pics/49791927.jpg and /dev/null differ diff --git a/pics/49791928.jpg b/pics/49791928.jpg deleted file mode 100644 index ccaead30..00000000 Binary files a/pics/49791928.jpg and /dev/null differ diff --git a/pics/49808196.jpg b/pics/49808196.jpg deleted file mode 100644 index 1317bb28..00000000 Binary files a/pics/49808196.jpg and /dev/null differ diff --git a/pics/49808197.jpg b/pics/49808197.jpg deleted file mode 100644 index d7e67ed7..00000000 Binary files a/pics/49808197.jpg and /dev/null differ diff --git a/pics/49814180.jpg b/pics/49814180.jpg deleted file mode 100644 index 430303d8..00000000 Binary files a/pics/49814180.jpg and /dev/null differ diff --git a/pics/49823708.jpg b/pics/49823708.jpg deleted file mode 100755 index c848c9fa..00000000 Binary files a/pics/49823708.jpg and /dev/null differ diff --git a/pics/49826746.jpg b/pics/49826746.jpg deleted file mode 100644 index 6a1b735d..00000000 Binary files a/pics/49826746.jpg and /dev/null differ diff --git a/pics/49833312.jpg b/pics/49833312.jpg deleted file mode 100644 index d9382ff5..00000000 Binary files a/pics/49833312.jpg and /dev/null differ diff --git a/pics/49838105.jpg b/pics/49838105.jpg deleted file mode 100644 index da946d9f..00000000 Binary files a/pics/49838105.jpg and /dev/null differ diff --git a/pics/49868263.jpg b/pics/49868263.jpg deleted file mode 100644 index ce9ebb24..00000000 Binary files a/pics/49868263.jpg and /dev/null differ diff --git a/pics/49879995.jpg b/pics/49879995.jpg deleted file mode 100644 index cfa4dd7a..00000000 Binary files a/pics/49879995.jpg and /dev/null differ diff --git a/pics/49881766.jpg b/pics/49881766.jpg deleted file mode 100644 index 2582c91d..00000000 Binary files a/pics/49881766.jpg and /dev/null differ diff --git a/pics/49885567.jpg b/pics/49885567.jpg deleted file mode 100644 index 84089eeb..00000000 Binary files a/pics/49885567.jpg and /dev/null differ diff --git a/pics/49888191.jpg b/pics/49888191.jpg deleted file mode 100644 index a6efa473..00000000 Binary files a/pics/49888191.jpg and /dev/null differ diff --git a/pics/49905576.jpg b/pics/49905576.jpg deleted file mode 100644 index 2bb6f3bd..00000000 Binary files a/pics/49905576.jpg and /dev/null differ diff --git a/pics/49919798.jpg b/pics/49919798.jpg deleted file mode 100755 index b09ca53c..00000000 Binary files a/pics/49919798.jpg and /dev/null differ diff --git a/pics/49959355.jpg b/pics/49959355.jpg deleted file mode 100644 index 4b894e5e..00000000 Binary files a/pics/49959355.jpg and /dev/null differ diff --git a/pics/49966595.jpg b/pics/49966595.jpg deleted file mode 100755 index d5fdc835..00000000 Binary files a/pics/49966595.jpg and /dev/null differ diff --git a/pics/49980185.jpg b/pics/49980185.jpg deleted file mode 100644 index c2fded9b..00000000 Binary files a/pics/49980185.jpg and /dev/null differ diff --git a/pics/49998907.jpg b/pics/49998907.jpg deleted file mode 100644 index 6839d379..00000000 Binary files a/pics/49998907.jpg and /dev/null differ diff --git a/pics/500000006.jpg b/pics/500000006.jpg deleted file mode 100644 index d2df70e1..00000000 Binary files a/pics/500000006.jpg and /dev/null differ diff --git a/pics/500000008.jpg b/pics/500000008.jpg deleted file mode 100644 index a87d1cce..00000000 Binary files a/pics/500000008.jpg and /dev/null differ diff --git a/pics/500000051.jpg b/pics/500000051.jpg deleted file mode 100644 index 916c5583..00000000 Binary files a/pics/500000051.jpg and /dev/null differ diff --git a/pics/500000090.jpg b/pics/500000090.jpg deleted file mode 100644 index 8005b7b0..00000000 Binary files a/pics/500000090.jpg and /dev/null differ diff --git a/pics/500000124.jpg b/pics/500000124.jpg deleted file mode 100644 index f27e568e..00000000 Binary files a/pics/500000124.jpg and /dev/null differ diff --git a/pics/500000140.jpg b/pics/500000140.jpg deleted file mode 100644 index 4f032537..00000000 Binary files a/pics/500000140.jpg and /dev/null differ diff --git a/pics/500000141.jpg b/pics/500000141.jpg deleted file mode 100644 index 72d061d1..00000000 Binary files a/pics/500000141.jpg and /dev/null differ diff --git a/pics/500000142.jpg b/pics/500000142.jpg deleted file mode 100644 index 041648d1..00000000 Binary files a/pics/500000142.jpg and /dev/null differ diff --git a/pics/500000143.jpg b/pics/500000143.jpg deleted file mode 100644 index f0f1ac78..00000000 Binary files a/pics/500000143.jpg and /dev/null differ diff --git a/pics/500000147.jpg b/pics/500000147.jpg deleted file mode 100644 index dbec7bcc..00000000 Binary files a/pics/500000147.jpg and /dev/null differ diff --git a/pics/500000148.jpg b/pics/500000148.jpg deleted file mode 100644 index e41aaf19..00000000 Binary files a/pics/500000148.jpg and /dev/null differ diff --git a/pics/500000149.jpg b/pics/500000149.jpg deleted file mode 100644 index 4fb6987c..00000000 Binary files a/pics/500000149.jpg and /dev/null differ diff --git a/pics/500000152.jpg b/pics/500000152.jpg deleted file mode 100644 index 468feef0..00000000 Binary files a/pics/500000152.jpg and /dev/null differ diff --git a/pics/500008302.jpg b/pics/500008302.jpg deleted file mode 100644 index f7a2927d..00000000 Binary files a/pics/500008302.jpg and /dev/null differ diff --git a/pics/500008902.jpg b/pics/500008902.jpg deleted file mode 100644 index 585bdf37..00000000 Binary files a/pics/500008902.jpg and /dev/null differ diff --git a/pics/50005633.jpg b/pics/50005633.jpg deleted file mode 100644 index 6e5ac897..00000000 Binary files a/pics/50005633.jpg and /dev/null differ diff --git a/pics/500313101.jpg b/pics/500313101.jpg deleted file mode 100644 index 8d5f8100..00000000 Binary files a/pics/500313101.jpg and /dev/null differ diff --git a/pics/500314601.jpg b/pics/500314601.jpg deleted file mode 100644 index caa32923..00000000 Binary files a/pics/500314601.jpg and /dev/null differ diff --git a/pics/500314701.jpg b/pics/500314701.jpg deleted file mode 100644 index 6cc6c757..00000000 Binary files a/pics/500314701.jpg and /dev/null differ diff --git a/pics/50032342.jpg b/pics/50032342.jpg deleted file mode 100644 index 531a9598..00000000 Binary files a/pics/50032342.jpg and /dev/null differ diff --git a/pics/50045299.jpg b/pics/50045299.jpg deleted file mode 100644 index 2eab3f6d..00000000 Binary files a/pics/50045299.jpg and /dev/null differ diff --git a/pics/50074392.jpg b/pics/50074392.jpg deleted file mode 100644 index 0386aae4..00000000 Binary files a/pics/50074392.jpg and /dev/null differ diff --git a/pics/50074522.jpg b/pics/50074522.jpg deleted file mode 100644 index 0de41cde..00000000 Binary files a/pics/50074522.jpg and /dev/null differ diff --git a/pics/50078320.jpg b/pics/50078320.jpg deleted file mode 100755 index 00d3bd5d..00000000 Binary files a/pics/50078320.jpg and /dev/null differ diff --git a/pics/50078509.jpg b/pics/50078509.jpg deleted file mode 100644 index ff224adb..00000000 Binary files a/pics/50078509.jpg and /dev/null differ diff --git a/pics/50088247.jpg b/pics/50088247.jpg deleted file mode 100644 index 19d23ea0..00000000 Binary files a/pics/50088247.jpg and /dev/null differ diff --git a/pics/50091196.jpg b/pics/50091196.jpg deleted file mode 100644 index 18847400..00000000 Binary files a/pics/50091196.jpg and /dev/null differ diff --git a/pics/501000000.jpg b/pics/501000000.jpg deleted file mode 100644 index df91ff1c..00000000 Binary files a/pics/501000000.jpg and /dev/null differ diff --git a/pics/501000001.jpg b/pics/501000001.jpg deleted file mode 100644 index 5355496f..00000000 Binary files a/pics/501000001.jpg and /dev/null differ diff --git a/pics/501000002.jpg b/pics/501000002.jpg deleted file mode 100644 index 9d276f1f..00000000 Binary files a/pics/501000002.jpg and /dev/null differ diff --git a/pics/501000003.jpg b/pics/501000003.jpg deleted file mode 100644 index 886f6ca9..00000000 Binary files a/pics/501000003.jpg and /dev/null differ diff --git a/pics/501000004.jpg b/pics/501000004.jpg deleted file mode 100644 index 3215b693..00000000 Binary files a/pics/501000004.jpg and /dev/null differ diff --git a/pics/501000005.jpg b/pics/501000005.jpg deleted file mode 100644 index 3a9f97e0..00000000 Binary files a/pics/501000005.jpg and /dev/null differ diff --git a/pics/501000006.jpg b/pics/501000006.jpg deleted file mode 100644 index 2eca87fb..00000000 Binary files a/pics/501000006.jpg and /dev/null differ diff --git a/pics/501000007.jpg b/pics/501000007.jpg deleted file mode 100644 index 9e579722..00000000 Binary files a/pics/501000007.jpg and /dev/null differ diff --git a/pics/501000008.jpg b/pics/501000008.jpg deleted file mode 100644 index 7377323a..00000000 Binary files a/pics/501000008.jpg and /dev/null differ diff --git a/pics/501000009.jpg b/pics/501000009.jpg deleted file mode 100644 index 89170edf..00000000 Binary files a/pics/501000009.jpg and /dev/null differ diff --git a/pics/501000010.jpg b/pics/501000010.jpg deleted file mode 100644 index af83f55b..00000000 Binary files a/pics/501000010.jpg and /dev/null differ diff --git a/pics/501000011.jpg b/pics/501000011.jpg deleted file mode 100644 index a472f0c2..00000000 Binary files a/pics/501000011.jpg and /dev/null differ diff --git a/pics/501000012.jpg b/pics/501000012.jpg deleted file mode 100644 index 04a50915..00000000 Binary files a/pics/501000012.jpg and /dev/null differ diff --git a/pics/501000013.jpg b/pics/501000013.jpg deleted file mode 100644 index 04465694..00000000 Binary files a/pics/501000013.jpg and /dev/null differ diff --git a/pics/501000014.jpg b/pics/501000014.jpg deleted file mode 100644 index a2ca5985..00000000 Binary files a/pics/501000014.jpg and /dev/null differ diff --git a/pics/501000015.jpg b/pics/501000015.jpg deleted file mode 100644 index 27dfd9da..00000000 Binary files a/pics/501000015.jpg and /dev/null differ diff --git a/pics/501000016.jpg b/pics/501000016.jpg deleted file mode 100644 index e7e02ac8..00000000 Binary files a/pics/501000016.jpg and /dev/null differ diff --git a/pics/501000017.jpg b/pics/501000017.jpg deleted file mode 100644 index 5c655624..00000000 Binary files a/pics/501000017.jpg and /dev/null differ diff --git a/pics/501000018.jpg b/pics/501000018.jpg deleted file mode 100644 index b7b2d2dd..00000000 Binary files a/pics/501000018.jpg and /dev/null differ diff --git a/pics/501000019.jpg b/pics/501000019.jpg deleted file mode 100644 index 10654a04..00000000 Binary files a/pics/501000019.jpg and /dev/null differ diff --git a/pics/501000078.jpg b/pics/501000078.jpg deleted file mode 100755 index 067bb198..00000000 Binary files a/pics/501000078.jpg and /dev/null differ diff --git a/pics/501000079.jpg b/pics/501000079.jpg deleted file mode 100755 index 9cd0ae4b..00000000 Binary files a/pics/501000079.jpg and /dev/null differ diff --git a/pics/501000080.jpg b/pics/501000080.jpg deleted file mode 100755 index 499f89fe..00000000 Binary files a/pics/501000080.jpg and /dev/null differ diff --git a/pics/501000081.jpg b/pics/501000081.jpg deleted file mode 100755 index 93bad6a6..00000000 Binary files a/pics/501000081.jpg and /dev/null differ diff --git a/pics/5010422.jpg b/pics/5010422.jpg deleted file mode 100755 index 89214fc9..00000000 Binary files a/pics/5010422.jpg and /dev/null differ diff --git a/pics/50122883.jpg b/pics/50122883.jpg deleted file mode 100644 index a484cbde..00000000 Binary files a/pics/50122883.jpg and /dev/null differ diff --git a/pics/50140163.jpg b/pics/50140163.jpg deleted file mode 100644 index 473b290b..00000000 Binary files a/pics/50140163.jpg and /dev/null differ diff --git a/pics/5014629.jpg b/pics/5014629.jpg deleted file mode 100644 index af8c9012..00000000 Binary files a/pics/5014629.jpg and /dev/null differ diff --git a/pics/50152549.jpg b/pics/50152549.jpg deleted file mode 100644 index 0365e51e..00000000 Binary files a/pics/50152549.jpg and /dev/null differ diff --git a/pics/50155385.jpg b/pics/50155385.jpg deleted file mode 100644 index e7f3d453..00000000 Binary files a/pics/50155385.jpg and /dev/null differ diff --git a/pics/50164989.jpg b/pics/50164989.jpg deleted file mode 100644 index 9e3ce1aa..00000000 Binary files a/pics/50164989.jpg and /dev/null differ diff --git a/pics/50176820.jpg b/pics/50176820.jpg deleted file mode 100644 index aeb685bf..00000000 Binary files a/pics/50176820.jpg and /dev/null differ diff --git a/pics/50185950.jpg b/pics/50185950.jpg deleted file mode 100755 index 35855ad8..00000000 Binary files a/pics/50185950.jpg and /dev/null differ diff --git a/pics/50215517.jpg b/pics/50215517.jpg deleted file mode 100644 index 225dc2c7..00000000 Binary files a/pics/50215517.jpg and /dev/null differ diff --git a/pics/50243722.jpg b/pics/50243722.jpg deleted file mode 100644 index e3898a8b..00000000 Binary files a/pics/50243722.jpg and /dev/null differ diff --git a/pics/50259460.jpg b/pics/50259460.jpg deleted file mode 100644 index 70798d21..00000000 Binary files a/pics/50259460.jpg and /dev/null differ diff --git a/pics/50260683.jpg b/pics/50260683.jpg deleted file mode 100644 index bcd53250..00000000 Binary files a/pics/50260683.jpg and /dev/null differ diff --git a/pics/5026221.jpg b/pics/5026221.jpg deleted file mode 100644 index 81ab460e..00000000 Binary files a/pics/5026221.jpg and /dev/null differ diff --git a/pics/50263751.jpg b/pics/50263751.jpg deleted file mode 100644 index baba1c1a..00000000 Binary files a/pics/50263751.jpg and /dev/null differ diff --git a/pics/50277973.jpg b/pics/50277973.jpg deleted file mode 100644 index ef4abaa7..00000000 Binary files a/pics/50277973.jpg and /dev/null differ diff --git a/pics/50278554.jpg b/pics/50278554.jpg deleted file mode 100644 index cbf941d0..00000000 Binary files a/pics/50278554.jpg and /dev/null differ diff --git a/pics/50282757.jpg b/pics/50282757.jpg deleted file mode 100644 index a0db46c8..00000000 Binary files a/pics/50282757.jpg and /dev/null differ diff --git a/pics/50287060.jpg b/pics/50287060.jpg deleted file mode 100644 index 40813778..00000000 Binary files a/pics/50287060.jpg and /dev/null differ diff --git a/pics/50292967.jpg b/pics/50292967.jpg deleted file mode 100644 index ba5c2680..00000000 Binary files a/pics/50292967.jpg and /dev/null differ diff --git a/pics/50304345.jpg b/pics/50304345.jpg deleted file mode 100644 index a9977143..00000000 Binary files a/pics/50304345.jpg and /dev/null differ diff --git a/pics/50319138.jpg b/pics/50319138.jpg deleted file mode 100644 index 8adb5796..00000000 Binary files a/pics/50319138.jpg and /dev/null differ diff --git a/pics/50321796.jpg b/pics/50321796.jpg deleted file mode 100644 index 8de59917..00000000 Binary files a/pics/50321796.jpg and /dev/null differ diff --git a/pics/50323155.jpg b/pics/50323155.jpg deleted file mode 100644 index 1fe13232..00000000 Binary files a/pics/50323155.jpg and /dev/null differ diff --git a/pics/5037726.jpg b/pics/5037726.jpg deleted file mode 100644 index c974a58a..00000000 Binary files a/pics/5037726.jpg and /dev/null differ diff --git a/pics/50400231.jpg b/pics/50400231.jpg deleted file mode 100644 index 6df8fd14..00000000 Binary files a/pics/50400231.jpg and /dev/null differ diff --git a/pics/50407691.jpg b/pics/50407691.jpg deleted file mode 100755 index fa9b1618..00000000 Binary files a/pics/50407691.jpg and /dev/null differ diff --git a/pics/50412166.jpg b/pics/50412166.jpg deleted file mode 100644 index b063702a..00000000 Binary files a/pics/50412166.jpg and /dev/null differ diff --git a/pics/50418970.jpg b/pics/50418970.jpg deleted file mode 100644 index 4dfea30d..00000000 Binary files a/pics/50418970.jpg and /dev/null differ diff --git a/pics/50427388.jpg b/pics/50427388.jpg deleted file mode 100644 index 4fcb10a0..00000000 Binary files a/pics/50427388.jpg and /dev/null differ diff --git a/pics/50433147.jpg b/pics/50433147.jpg deleted file mode 100644 index c4c8cc29..00000000 Binary files a/pics/50433147.jpg and /dev/null differ diff --git a/pics/50449881.jpg b/pics/50449881.jpg deleted file mode 100644 index 63018951..00000000 Binary files a/pics/50449881.jpg and /dev/null differ diff --git a/pics/50457953.jpg b/pics/50457953.jpg deleted file mode 100644 index a1dab767..00000000 Binary files a/pics/50457953.jpg and /dev/null differ diff --git a/pics/50470982.jpg b/pics/50470982.jpg deleted file mode 100644 index 47746db9..00000000 Binary files a/pics/50470982.jpg and /dev/null differ diff --git a/pics/50474354.jpg b/pics/50474354.jpg deleted file mode 100644 index 668472e7..00000000 Binary files a/pics/50474354.jpg and /dev/null differ diff --git a/pics/50485594.jpg b/pics/50485594.jpg deleted file mode 100644 index a8accf17..00000000 Binary files a/pics/50485594.jpg and /dev/null differ diff --git a/pics/50491121.jpg b/pics/50491121.jpg deleted file mode 100644 index 2d5a0109..00000000 Binary files a/pics/50491121.jpg and /dev/null differ diff --git a/pics/5050644.jpg b/pics/5050644.jpg deleted file mode 100755 index 79ddb872..00000000 Binary files a/pics/5050644.jpg and /dev/null differ diff --git a/pics/5052212.jpg b/pics/5052212.jpg deleted file mode 100644 index 5481d25d..00000000 Binary files a/pics/5052212.jpg and /dev/null differ diff --git a/pics/50527144.jpg b/pics/50527144.jpg deleted file mode 100644 index 6c3f8ab0..00000000 Binary files a/pics/50527144.jpg and /dev/null differ diff --git a/pics/5053103.jpg b/pics/5053103.jpg deleted file mode 100644 index d00693f9..00000000 Binary files a/pics/5053103.jpg and /dev/null differ diff --git a/pics/50532786.jpg b/pics/50532786.jpg deleted file mode 100644 index 7192fcc0..00000000 Binary files a/pics/50532786.jpg and /dev/null differ diff --git a/pics/50584941.jpg b/pics/50584941.jpg deleted file mode 100755 index 05d3f3c2..00000000 Binary files a/pics/50584941.jpg and /dev/null differ diff --git a/pics/50593156.jpg b/pics/50593156.jpg deleted file mode 100644 index cd98274f..00000000 Binary files a/pics/50593156.jpg and /dev/null differ diff --git a/pics/50604950.jpg b/pics/50604950.jpg deleted file mode 100644 index aa67f9e8..00000000 Binary files a/pics/50604950.jpg and /dev/null differ diff --git a/pics/50608164.jpg b/pics/50608164.jpg deleted file mode 100644 index d7071195..00000000 Binary files a/pics/50608164.jpg and /dev/null differ diff --git a/pics/50608164.png b/pics/50608164.png deleted file mode 100644 index 13212f80..00000000 Binary files a/pics/50608164.png and /dev/null differ diff --git a/pics/50613779.jpg b/pics/50613779.jpg deleted file mode 100644 index d1449376..00000000 Binary files a/pics/50613779.jpg and /dev/null differ diff --git a/pics/50615578.jpg b/pics/50615578.jpg deleted file mode 100644 index 9e34cebf..00000000 Binary files a/pics/50615578.jpg and /dev/null differ diff --git a/pics/50621530.jpg b/pics/50621530.jpg deleted file mode 100644 index 8db6f957..00000000 Binary files a/pics/50621530.jpg and /dev/null differ diff --git a/pics/50684552.jpg b/pics/50684552.jpg deleted file mode 100644 index 86e3981a..00000000 Binary files a/pics/50684552.jpg and /dev/null differ diff --git a/pics/50692511.jpg b/pics/50692511.jpg deleted file mode 100755 index ab79c7a9..00000000 Binary files a/pics/50692511.jpg and /dev/null differ diff --git a/pics/50702124.jpg b/pics/50702124.jpg deleted file mode 100644 index 45c3aca4..00000000 Binary files a/pics/50702124.jpg and /dev/null differ diff --git a/pics/50705071.jpg b/pics/50705071.jpg deleted file mode 100644 index c30cb980..00000000 Binary files a/pics/50705071.jpg and /dev/null differ diff --git a/pics/50712728.jpg b/pics/50712728.jpg deleted file mode 100644 index dbbf26cd..00000000 Binary files a/pics/50712728.jpg and /dev/null differ diff --git a/pics/50720316.jpg b/pics/50720316.jpg deleted file mode 100644 index 3eb95b4b..00000000 Binary files a/pics/50720316.jpg and /dev/null differ diff --git a/pics/50725996.jpg b/pics/50725996.jpg deleted file mode 100644 index 893131d2..00000000 Binary files a/pics/50725996.jpg and /dev/null differ diff --git a/pics/50732780.jpg b/pics/50732780.jpg deleted file mode 100644 index 573a0857..00000000 Binary files a/pics/50732780.jpg and /dev/null differ diff --git a/pics/50755.jpg b/pics/50755.jpg deleted file mode 100644 index 68ac9550..00000000 Binary files a/pics/50755.jpg and /dev/null differ diff --git a/pics/50766506.jpg b/pics/50766506.jpg deleted file mode 100644 index ce67676b..00000000 Binary files a/pics/50766506.jpg and /dev/null differ diff --git a/pics/50781944.jpg b/pics/50781944.jpg deleted file mode 100644 index 4f2c1559..00000000 Binary files a/pics/50781944.jpg and /dev/null differ diff --git a/pics/50785356.jpg b/pics/50785356.jpg deleted file mode 100644 index 666b2c91..00000000 Binary files a/pics/50785356.jpg and /dev/null differ diff --git a/pics/50789693.jpg b/pics/50789693.jpg deleted file mode 100644 index 2f660aa9..00000000 Binary files a/pics/50789693.jpg and /dev/null differ diff --git a/pics/50823978.jpg b/pics/50823978.jpg deleted file mode 100644 index ceb18e03..00000000 Binary files a/pics/50823978.jpg and /dev/null differ diff --git a/pics/50866755.jpg b/pics/50866755.jpg deleted file mode 100644 index 85d4ce1b..00000000 Binary files a/pics/50866755.jpg and /dev/null differ diff --git a/pics/50893987.jpg b/pics/50893987.jpg deleted file mode 100644 index ffdbec58..00000000 Binary files a/pics/50893987.jpg and /dev/null differ diff --git a/pics/50896944.jpg b/pics/50896944.jpg deleted file mode 100644 index e0ce7ab6..00000000 Binary files a/pics/50896944.jpg and /dev/null differ diff --git a/pics/50903514.jpg b/pics/50903514.jpg deleted file mode 100644 index bd850c39..00000000 Binary files a/pics/50903514.jpg and /dev/null differ diff --git a/pics/50913601.jpg b/pics/50913601.jpg deleted file mode 100644 index 45ea3d51..00000000 Binary files a/pics/50913601.jpg and /dev/null differ diff --git a/pics/50916353.jpg b/pics/50916353.jpg deleted file mode 100644 index e3851b4a..00000000 Binary files a/pics/50916353.jpg and /dev/null differ diff --git a/pics/50920465.jpg b/pics/50920465.jpg deleted file mode 100644 index 827983af..00000000 Binary files a/pics/50920465.jpg and /dev/null differ diff --git a/pics/50930991.jpg b/pics/50930991.jpg deleted file mode 100644 index 4bbaf4cf..00000000 Binary files a/pics/50930991.jpg and /dev/null differ diff --git a/pics/50933533.jpg b/pics/50933533.jpg deleted file mode 100644 index 47052fb5..00000000 Binary files a/pics/50933533.jpg and /dev/null differ diff --git a/pics/50939127.jpg b/pics/50939127.jpg deleted file mode 100644 index 956cc302..00000000 Binary files a/pics/50939127.jpg and /dev/null differ diff --git a/pics/50951359.jpg b/pics/50951359.jpg deleted file mode 100644 index b62ad9a6..00000000 Binary files a/pics/50951359.jpg and /dev/null differ diff --git a/pics/50957346.jpg b/pics/50957346.jpg deleted file mode 100644 index 0e3ef45f..00000000 Binary files a/pics/50957346.jpg and /dev/null differ diff --git a/pics/51020079.jpg b/pics/51020079.jpg deleted file mode 100644 index 6df6894f..00000000 Binary files a/pics/51020079.jpg and /dev/null differ diff --git a/pics/51043053.jpg b/pics/51043053.jpg deleted file mode 100644 index a503faff..00000000 Binary files a/pics/51043053.jpg and /dev/null differ diff --git a/pics/51043243.jpg b/pics/51043243.jpg deleted file mode 100644 index fbb34bc6..00000000 Binary files a/pics/51043243.jpg and /dev/null differ diff --git a/pics/51047350.jpg b/pics/51047350.jpg deleted file mode 100644 index f6a8f0fc..00000000 Binary files a/pics/51047350.jpg and /dev/null differ diff --git a/pics/51085303.jpg b/pics/51085303.jpg deleted file mode 100644 index b9544bb2..00000000 Binary files a/pics/51085303.jpg and /dev/null differ diff --git a/pics/51099515.jpg b/pics/51099515.jpg deleted file mode 100644 index f1de093e..00000000 Binary files a/pics/51099515.jpg and /dev/null differ diff --git a/pics/511000000.jpg b/pics/511000000.jpg deleted file mode 100644 index 954f655f..00000000 Binary files a/pics/511000000.jpg and /dev/null differ diff --git a/pics/511000001.jpg b/pics/511000001.jpg deleted file mode 100644 index ee665a8e..00000000 Binary files a/pics/511000001.jpg and /dev/null differ diff --git a/pics/511000002.jpg b/pics/511000002.jpg deleted file mode 100644 index 1f6e42e1..00000000 Binary files a/pics/511000002.jpg and /dev/null differ diff --git a/pics/511000003.jpg b/pics/511000003.jpg deleted file mode 100644 index 861bfdc6..00000000 Binary files a/pics/511000003.jpg and /dev/null differ diff --git a/pics/511000004.jpg b/pics/511000004.jpg deleted file mode 100644 index 203e953c..00000000 Binary files a/pics/511000004.jpg and /dev/null differ diff --git a/pics/511000005.jpg b/pics/511000005.jpg deleted file mode 100644 index ee2ffd9e..00000000 Binary files a/pics/511000005.jpg and /dev/null differ diff --git a/pics/511000006.jpg b/pics/511000006.jpg deleted file mode 100644 index 0f4cec38..00000000 Binary files a/pics/511000006.jpg and /dev/null differ diff --git a/pics/511000007.jpg b/pics/511000007.jpg deleted file mode 100644 index 132a0e13..00000000 Binary files a/pics/511000007.jpg and /dev/null differ diff --git a/pics/511000008.jpg b/pics/511000008.jpg deleted file mode 100644 index 54dfbb94..00000000 Binary files a/pics/511000008.jpg and /dev/null differ diff --git a/pics/511000009.jpg b/pics/511000009.jpg deleted file mode 100644 index 165cb981..00000000 Binary files a/pics/511000009.jpg and /dev/null differ diff --git a/pics/511000010.jpg b/pics/511000010.jpg deleted file mode 100644 index 2721650f..00000000 Binary files a/pics/511000010.jpg and /dev/null differ diff --git a/pics/511000011.jpg b/pics/511000011.jpg deleted file mode 100644 index 27e030b4..00000000 Binary files a/pics/511000011.jpg and /dev/null differ diff --git a/pics/511000012.jpg b/pics/511000012.jpg deleted file mode 100644 index 0636eacc..00000000 Binary files a/pics/511000012.jpg and /dev/null differ diff --git a/pics/511000013.jpg b/pics/511000013.jpg deleted file mode 100644 index dcbf2001..00000000 Binary files a/pics/511000013.jpg and /dev/null differ diff --git a/pics/511000014.jpg b/pics/511000014.jpg deleted file mode 100644 index e3455777..00000000 Binary files a/pics/511000014.jpg and /dev/null differ diff --git a/pics/511000015.jpg b/pics/511000015.jpg deleted file mode 100644 index 93b81402..00000000 Binary files a/pics/511000015.jpg and /dev/null differ diff --git a/pics/511000016.jpg b/pics/511000016.jpg deleted file mode 100644 index e5161462..00000000 Binary files a/pics/511000016.jpg and /dev/null differ diff --git a/pics/511000017.jpg b/pics/511000017.jpg deleted file mode 100644 index e0bd6e63..00000000 Binary files a/pics/511000017.jpg and /dev/null differ diff --git a/pics/511000018.jpg b/pics/511000018.jpg deleted file mode 100644 index ba12d647..00000000 Binary files a/pics/511000018.jpg and /dev/null differ diff --git a/pics/511000019.jpg b/pics/511000019.jpg deleted file mode 100644 index 06e18e91..00000000 Binary files a/pics/511000019.jpg and /dev/null differ diff --git a/pics/511000021.jpg b/pics/511000021.jpg deleted file mode 100644 index 555217cf..00000000 Binary files a/pics/511000021.jpg and /dev/null differ diff --git a/pics/511000022.jpg b/pics/511000022.jpg deleted file mode 100644 index 1baf4161..00000000 Binary files a/pics/511000022.jpg and /dev/null differ diff --git a/pics/511000023.jpg b/pics/511000023.jpg deleted file mode 100644 index da555a97..00000000 Binary files a/pics/511000023.jpg and /dev/null differ diff --git a/pics/511000024.jpg b/pics/511000024.jpg deleted file mode 100644 index fb0e7170..00000000 Binary files a/pics/511000024.jpg and /dev/null differ diff --git a/pics/511000025.jpg b/pics/511000025.jpg deleted file mode 100644 index 3406165f..00000000 Binary files a/pics/511000025.jpg and /dev/null differ diff --git a/pics/511000026.jpg b/pics/511000026.jpg deleted file mode 100644 index 8e033b17..00000000 Binary files a/pics/511000026.jpg and /dev/null differ diff --git a/pics/511000027.jpg b/pics/511000027.jpg deleted file mode 100644 index 2a3480c6..00000000 Binary files a/pics/511000027.jpg and /dev/null differ diff --git a/pics/511000028.jpg b/pics/511000028.jpg deleted file mode 100644 index f888ce5c..00000000 Binary files a/pics/511000028.jpg and /dev/null differ diff --git a/pics/511000029.jpg b/pics/511000029.jpg deleted file mode 100644 index 4b11aaa8..00000000 Binary files a/pics/511000029.jpg and /dev/null differ diff --git a/pics/511000030.jpg b/pics/511000030.jpg deleted file mode 100644 index bc43587f..00000000 Binary files a/pics/511000030.jpg and /dev/null differ diff --git a/pics/511000031.jpg b/pics/511000031.jpg deleted file mode 100644 index 59c0a05c..00000000 Binary files a/pics/511000031.jpg and /dev/null differ diff --git a/pics/511000032.jpg b/pics/511000032.jpg deleted file mode 100644 index b5441732..00000000 Binary files a/pics/511000032.jpg and /dev/null differ diff --git a/pics/511000033.jpg b/pics/511000033.jpg deleted file mode 100644 index c3fe3fb1..00000000 Binary files a/pics/511000033.jpg and /dev/null differ diff --git a/pics/511000034.jpg b/pics/511000034.jpg deleted file mode 100644 index 312bb9c0..00000000 Binary files a/pics/511000034.jpg and /dev/null differ diff --git a/pics/511000035.jpg b/pics/511000035.jpg deleted file mode 100644 index 7d0c2bb0..00000000 Binary files a/pics/511000035.jpg and /dev/null differ diff --git a/pics/511000036.jpg b/pics/511000036.jpg deleted file mode 100644 index d9ec214b..00000000 Binary files a/pics/511000036.jpg and /dev/null differ diff --git a/pics/511000037.jpg b/pics/511000037.jpg deleted file mode 100644 index 771b05c1..00000000 Binary files a/pics/511000037.jpg and /dev/null differ diff --git a/pics/511000038.jpg b/pics/511000038.jpg deleted file mode 100644 index 38331b9a..00000000 Binary files a/pics/511000038.jpg and /dev/null differ diff --git a/pics/511000039.jpg b/pics/511000039.jpg deleted file mode 100644 index 7ed2686c..00000000 Binary files a/pics/511000039.jpg and /dev/null differ diff --git a/pics/511000040.jpg b/pics/511000040.jpg deleted file mode 100644 index 44072205..00000000 Binary files a/pics/511000040.jpg and /dev/null differ diff --git a/pics/511000041.jpg b/pics/511000041.jpg deleted file mode 100644 index b5310a68..00000000 Binary files a/pics/511000041.jpg and /dev/null differ diff --git a/pics/511000042.jpg b/pics/511000042.jpg deleted file mode 100644 index 15bbd201..00000000 Binary files a/pics/511000042.jpg and /dev/null differ diff --git a/pics/511000043.jpg b/pics/511000043.jpg deleted file mode 100644 index 96d77a65..00000000 Binary files a/pics/511000043.jpg and /dev/null differ diff --git a/pics/511000044.jpg b/pics/511000044.jpg deleted file mode 100644 index 75baa3dd..00000000 Binary files a/pics/511000044.jpg and /dev/null differ diff --git a/pics/511000045.jpg b/pics/511000045.jpg deleted file mode 100644 index 9a8159ce..00000000 Binary files a/pics/511000045.jpg and /dev/null differ diff --git a/pics/511000046.jpg b/pics/511000046.jpg deleted file mode 100644 index b6a9f5cf..00000000 Binary files a/pics/511000046.jpg and /dev/null differ diff --git a/pics/511000047.jpg b/pics/511000047.jpg deleted file mode 100644 index 1875a75c..00000000 Binary files a/pics/511000047.jpg and /dev/null differ diff --git a/pics/511000048.jpg b/pics/511000048.jpg deleted file mode 100644 index 54ecfda4..00000000 Binary files a/pics/511000048.jpg and /dev/null differ diff --git a/pics/511000049.jpg b/pics/511000049.jpg deleted file mode 100644 index e0e8c99f..00000000 Binary files a/pics/511000049.jpg and /dev/null differ diff --git a/pics/511000050.jpg b/pics/511000050.jpg deleted file mode 100644 index f98db512..00000000 Binary files a/pics/511000050.jpg and /dev/null differ diff --git a/pics/511000051.jpg b/pics/511000051.jpg deleted file mode 100644 index 4ec1d04c..00000000 Binary files a/pics/511000051.jpg and /dev/null differ diff --git a/pics/511000052.jpg b/pics/511000052.jpg deleted file mode 100644 index 2367ee71..00000000 Binary files a/pics/511000052.jpg and /dev/null differ diff --git a/pics/511000053.jpg b/pics/511000053.jpg deleted file mode 100644 index 4bacfea5..00000000 Binary files a/pics/511000053.jpg and /dev/null differ diff --git a/pics/511000054.jpg b/pics/511000054.jpg deleted file mode 100644 index 7ce35ad2..00000000 Binary files a/pics/511000054.jpg and /dev/null differ diff --git a/pics/511000055.jpg b/pics/511000055.jpg deleted file mode 100644 index 8406f12a..00000000 Binary files a/pics/511000055.jpg and /dev/null differ diff --git a/pics/511000056.jpg b/pics/511000056.jpg deleted file mode 100644 index 4362600b..00000000 Binary files a/pics/511000056.jpg and /dev/null differ diff --git a/pics/511000059.jpg b/pics/511000059.jpg deleted file mode 100644 index 2be70d44..00000000 Binary files a/pics/511000059.jpg and /dev/null differ diff --git a/pics/511000060.jpg b/pics/511000060.jpg deleted file mode 100644 index 22653172..00000000 Binary files a/pics/511000060.jpg and /dev/null differ diff --git a/pics/511000061.jpg b/pics/511000061.jpg deleted file mode 100644 index 419f03ee..00000000 Binary files a/pics/511000061.jpg and /dev/null differ diff --git a/pics/511000062.jpg b/pics/511000062.jpg deleted file mode 100644 index 5790e782..00000000 Binary files a/pics/511000062.jpg and /dev/null differ diff --git a/pics/511000063.jpg b/pics/511000063.jpg deleted file mode 100644 index e2391c74..00000000 Binary files a/pics/511000063.jpg and /dev/null differ diff --git a/pics/511000064.jpg b/pics/511000064.jpg deleted file mode 100644 index c4ed17a1..00000000 Binary files a/pics/511000064.jpg and /dev/null differ diff --git a/pics/511000065.jpg b/pics/511000065.jpg deleted file mode 100644 index 867eab07..00000000 Binary files a/pics/511000065.jpg and /dev/null differ diff --git a/pics/511000066.jpg b/pics/511000066.jpg deleted file mode 100644 index 0f274073..00000000 Binary files a/pics/511000066.jpg and /dev/null differ diff --git a/pics/511000067.jpg b/pics/511000067.jpg deleted file mode 100644 index 3eb90996..00000000 Binary files a/pics/511000067.jpg and /dev/null differ diff --git a/pics/511000068.jpg b/pics/511000068.jpg deleted file mode 100644 index 83811aca..00000000 Binary files a/pics/511000068.jpg and /dev/null differ diff --git a/pics/511000069.jpg b/pics/511000069.jpg deleted file mode 100644 index 8264f0dc..00000000 Binary files a/pics/511000069.jpg and /dev/null differ diff --git a/pics/511000070.jpg b/pics/511000070.jpg deleted file mode 100644 index 2ebb06b8..00000000 Binary files a/pics/511000070.jpg and /dev/null differ diff --git a/pics/511000071.jpg b/pics/511000071.jpg deleted file mode 100644 index dba8c46a..00000000 Binary files a/pics/511000071.jpg and /dev/null differ diff --git a/pics/511000072.jpg b/pics/511000072.jpg deleted file mode 100644 index 278a4f8f..00000000 Binary files a/pics/511000072.jpg and /dev/null differ diff --git a/pics/511000073.jpg b/pics/511000073.jpg deleted file mode 100644 index 89d2e0a1..00000000 Binary files a/pics/511000073.jpg and /dev/null differ diff --git a/pics/511000074.jpg b/pics/511000074.jpg deleted file mode 100644 index c42c75d8..00000000 Binary files a/pics/511000074.jpg and /dev/null differ diff --git a/pics/511000075.jpg b/pics/511000075.jpg deleted file mode 100644 index 82495628..00000000 Binary files a/pics/511000075.jpg and /dev/null differ diff --git a/pics/511000076.jpg b/pics/511000076.jpg deleted file mode 100644 index 19da4f6f..00000000 Binary files a/pics/511000076.jpg and /dev/null differ diff --git a/pics/511000077.jpg b/pics/511000077.jpg deleted file mode 100644 index 8cac4d43..00000000 Binary files a/pics/511000077.jpg and /dev/null differ diff --git a/pics/511000078.jpg b/pics/511000078.jpg deleted file mode 100644 index 761d2983..00000000 Binary files a/pics/511000078.jpg and /dev/null differ diff --git a/pics/511000079.jpg b/pics/511000079.jpg deleted file mode 100644 index bf279e33..00000000 Binary files a/pics/511000079.jpg and /dev/null differ diff --git a/pics/511000080.jpg b/pics/511000080.jpg deleted file mode 100644 index 1bd3ee50..00000000 Binary files a/pics/511000080.jpg and /dev/null differ diff --git a/pics/511000081.jpg b/pics/511000081.jpg deleted file mode 100755 index f9a799ce..00000000 Binary files a/pics/511000081.jpg and /dev/null differ diff --git a/pics/511000082.jpg b/pics/511000082.jpg deleted file mode 100644 index 6ebcd439..00000000 Binary files a/pics/511000082.jpg and /dev/null differ diff --git a/pics/511000083.jpg b/pics/511000083.jpg deleted file mode 100644 index bc5501d8..00000000 Binary files a/pics/511000083.jpg and /dev/null differ diff --git a/pics/511000084.jpg b/pics/511000084.jpg deleted file mode 100644 index 12c38a2a..00000000 Binary files a/pics/511000084.jpg and /dev/null differ diff --git a/pics/511000085.jpg b/pics/511000085.jpg deleted file mode 100644 index e3797d40..00000000 Binary files a/pics/511000085.jpg and /dev/null differ diff --git a/pics/511000086.jpg b/pics/511000086.jpg deleted file mode 100644 index 63c58b21..00000000 Binary files a/pics/511000086.jpg and /dev/null differ diff --git a/pics/511000087.jpg b/pics/511000087.jpg deleted file mode 100644 index 1a344bc7..00000000 Binary files a/pics/511000087.jpg and /dev/null differ diff --git a/pics/511000088.jpg b/pics/511000088.jpg deleted file mode 100644 index 9747329c..00000000 Binary files a/pics/511000088.jpg and /dev/null differ diff --git a/pics/511000089.jpg b/pics/511000089.jpg deleted file mode 100644 index fa4dc330..00000000 Binary files a/pics/511000089.jpg and /dev/null differ diff --git a/pics/511000090.jpg b/pics/511000090.jpg deleted file mode 100644 index 0a1b4616..00000000 Binary files a/pics/511000090.jpg and /dev/null differ diff --git a/pics/511000091.jpg b/pics/511000091.jpg deleted file mode 100644 index 1768d3b5..00000000 Binary files a/pics/511000091.jpg and /dev/null differ diff --git a/pics/511000092.jpg b/pics/511000092.jpg deleted file mode 100644 index 6ddac13e..00000000 Binary files a/pics/511000092.jpg and /dev/null differ diff --git a/pics/511000093.jpg b/pics/511000093.jpg deleted file mode 100644 index 759e5229..00000000 Binary files a/pics/511000093.jpg and /dev/null differ diff --git a/pics/511000094.jpg b/pics/511000094.jpg deleted file mode 100644 index 206097b5..00000000 Binary files a/pics/511000094.jpg and /dev/null differ diff --git a/pics/511000095.jpg b/pics/511000095.jpg deleted file mode 100644 index ae1144ea..00000000 Binary files a/pics/511000095.jpg and /dev/null differ diff --git a/pics/511000096.jpg b/pics/511000096.jpg deleted file mode 100644 index f9f25174..00000000 Binary files a/pics/511000096.jpg and /dev/null differ diff --git a/pics/511000097.jpg b/pics/511000097.jpg deleted file mode 100644 index bbffd472..00000000 Binary files a/pics/511000097.jpg and /dev/null differ diff --git a/pics/511000098.jpg b/pics/511000098.jpg deleted file mode 100644 index 47389ae1..00000000 Binary files a/pics/511000098.jpg and /dev/null differ diff --git a/pics/511000099.jpg b/pics/511000099.jpg deleted file mode 100644 index 8af96905..00000000 Binary files a/pics/511000099.jpg and /dev/null differ diff --git a/pics/511000100.jpg b/pics/511000100.jpg deleted file mode 100644 index e29590cb..00000000 Binary files a/pics/511000100.jpg and /dev/null differ diff --git a/pics/511000101.jpg b/pics/511000101.jpg deleted file mode 100644 index e4a18e3d..00000000 Binary files a/pics/511000101.jpg and /dev/null differ diff --git a/pics/511000102.jpg b/pics/511000102.jpg deleted file mode 100644 index 6e6989f1..00000000 Binary files a/pics/511000102.jpg and /dev/null differ diff --git a/pics/511000103.jpg b/pics/511000103.jpg deleted file mode 100644 index 45b54ad5..00000000 Binary files a/pics/511000103.jpg and /dev/null differ diff --git a/pics/511000104.jpg b/pics/511000104.jpg deleted file mode 100644 index 1897d05d..00000000 Binary files a/pics/511000104.jpg and /dev/null differ diff --git a/pics/511000105.jpg b/pics/511000105.jpg deleted file mode 100755 index 9b890e93..00000000 Binary files a/pics/511000105.jpg and /dev/null differ diff --git a/pics/511000106.jpg b/pics/511000106.jpg deleted file mode 100755 index dccd7f79..00000000 Binary files a/pics/511000106.jpg and /dev/null differ diff --git a/pics/511000107.jpg b/pics/511000107.jpg deleted file mode 100755 index 6c6c52fe..00000000 Binary files a/pics/511000107.jpg and /dev/null differ diff --git a/pics/511000108.jpg b/pics/511000108.jpg deleted file mode 100755 index e7fe71cc..00000000 Binary files a/pics/511000108.jpg and /dev/null differ diff --git a/pics/511000109.jpg b/pics/511000109.jpg deleted file mode 100755 index 45ea57f4..00000000 Binary files a/pics/511000109.jpg and /dev/null differ diff --git a/pics/511000110.jpg b/pics/511000110.jpg deleted file mode 100755 index 595874ef..00000000 Binary files a/pics/511000110.jpg and /dev/null differ diff --git a/pics/511000111.jpg b/pics/511000111.jpg deleted file mode 100755 index 21889509..00000000 Binary files a/pics/511000111.jpg and /dev/null differ diff --git a/pics/511000112.jpg b/pics/511000112.jpg deleted file mode 100755 index 371e072a..00000000 Binary files a/pics/511000112.jpg and /dev/null differ diff --git a/pics/511000113.jpg b/pics/511000113.jpg deleted file mode 100644 index 907740e8..00000000 Binary files a/pics/511000113.jpg and /dev/null differ diff --git a/pics/511000114.jpg b/pics/511000114.jpg deleted file mode 100644 index 03727b8d..00000000 Binary files a/pics/511000114.jpg and /dev/null differ diff --git a/pics/511000115.jpg b/pics/511000115.jpg deleted file mode 100644 index 8dd8b242..00000000 Binary files a/pics/511000115.jpg and /dev/null differ diff --git a/pics/511000116.jpg b/pics/511000116.jpg deleted file mode 100644 index 74b89393..00000000 Binary files a/pics/511000116.jpg and /dev/null differ diff --git a/pics/511000117.jpg b/pics/511000117.jpg deleted file mode 100755 index 17525e88..00000000 Binary files a/pics/511000117.jpg and /dev/null differ diff --git a/pics/511000118.jpg b/pics/511000118.jpg deleted file mode 100644 index 45c3b001..00000000 Binary files a/pics/511000118.jpg and /dev/null differ diff --git a/pics/511000119.jpg b/pics/511000119.jpg deleted file mode 100644 index 97b6867e..00000000 Binary files a/pics/511000119.jpg and /dev/null differ diff --git a/pics/511000120.jpg b/pics/511000120.jpg deleted file mode 100644 index 2a21f729..00000000 Binary files a/pics/511000120.jpg and /dev/null differ diff --git a/pics/511000121.jpg b/pics/511000121.jpg deleted file mode 100644 index 9cb39913..00000000 Binary files a/pics/511000121.jpg and /dev/null differ diff --git a/pics/511000122.jpg b/pics/511000122.jpg deleted file mode 100644 index 829f6de5..00000000 Binary files a/pics/511000122.jpg and /dev/null differ diff --git a/pics/511000123.jpg b/pics/511000123.jpg deleted file mode 100644 index c082969f..00000000 Binary files a/pics/511000123.jpg and /dev/null differ diff --git a/pics/511000124.jpg b/pics/511000124.jpg deleted file mode 100644 index 0d6a2632..00000000 Binary files a/pics/511000124.jpg and /dev/null differ diff --git a/pics/511000125.jpg b/pics/511000125.jpg deleted file mode 100644 index ae0713ab..00000000 Binary files a/pics/511000125.jpg and /dev/null differ diff --git a/pics/511000126.jpg b/pics/511000126.jpg deleted file mode 100644 index 1bdfb450..00000000 Binary files a/pics/511000126.jpg and /dev/null differ diff --git a/pics/511000127.jpg b/pics/511000127.jpg deleted file mode 100644 index a7b09760..00000000 Binary files a/pics/511000127.jpg and /dev/null differ diff --git a/pics/511000128.jpg b/pics/511000128.jpg deleted file mode 100644 index 7571d575..00000000 Binary files a/pics/511000128.jpg and /dev/null differ diff --git a/pics/511000129.jpg b/pics/511000129.jpg deleted file mode 100644 index 3fe76b33..00000000 Binary files a/pics/511000129.jpg and /dev/null differ diff --git a/pics/511000130.jpg b/pics/511000130.jpg deleted file mode 100644 index a1636276..00000000 Binary files a/pics/511000130.jpg and /dev/null differ diff --git a/pics/511000131.jpg b/pics/511000131.jpg deleted file mode 100644 index ce6d1e3a..00000000 Binary files a/pics/511000131.jpg and /dev/null differ diff --git a/pics/511000132.jpg b/pics/511000132.jpg deleted file mode 100644 index 61b15a9e..00000000 Binary files a/pics/511000132.jpg and /dev/null differ diff --git a/pics/511000133.jpg b/pics/511000133.jpg deleted file mode 100644 index 785173c7..00000000 Binary files a/pics/511000133.jpg and /dev/null differ diff --git a/pics/511000134.jpg b/pics/511000134.jpg deleted file mode 100644 index 1d3fd409..00000000 Binary files a/pics/511000134.jpg and /dev/null differ diff --git a/pics/511000135.jpg b/pics/511000135.jpg deleted file mode 100644 index a3e3c3a6..00000000 Binary files a/pics/511000135.jpg and /dev/null differ diff --git a/pics/511000136.jpg b/pics/511000136.jpg deleted file mode 100644 index 9cfdb035..00000000 Binary files a/pics/511000136.jpg and /dev/null differ diff --git a/pics/511000137.jpg b/pics/511000137.jpg deleted file mode 100644 index 897eb8d2..00000000 Binary files a/pics/511000137.jpg and /dev/null differ diff --git a/pics/511000138.jpg b/pics/511000138.jpg deleted file mode 100644 index b5a8550c..00000000 Binary files a/pics/511000138.jpg and /dev/null differ diff --git a/pics/511000139.jpg b/pics/511000139.jpg deleted file mode 100644 index 322a0aea..00000000 Binary files a/pics/511000139.jpg and /dev/null differ diff --git a/pics/511000140.jpg b/pics/511000140.jpg deleted file mode 100755 index 901521f9..00000000 Binary files a/pics/511000140.jpg and /dev/null differ diff --git a/pics/511000141.jpg b/pics/511000141.jpg deleted file mode 100755 index fa8901ff..00000000 Binary files a/pics/511000141.jpg and /dev/null differ diff --git a/pics/511000142.jpg b/pics/511000142.jpg deleted file mode 100755 index a67fe14a..00000000 Binary files a/pics/511000142.jpg and /dev/null differ diff --git a/pics/511000143.jpg b/pics/511000143.jpg deleted file mode 100644 index ec604edd..00000000 Binary files a/pics/511000143.jpg and /dev/null differ diff --git a/pics/511000145.jpg b/pics/511000145.jpg deleted file mode 100644 index 0f5060c1..00000000 Binary files a/pics/511000145.jpg and /dev/null differ diff --git a/pics/511000146.jpg b/pics/511000146.jpg deleted file mode 100644 index 74f63f37..00000000 Binary files a/pics/511000146.jpg and /dev/null differ diff --git a/pics/511000147.jpg b/pics/511000147.jpg deleted file mode 100644 index 73272b20..00000000 Binary files a/pics/511000147.jpg and /dev/null differ diff --git a/pics/511000148.jpg b/pics/511000148.jpg deleted file mode 100644 index 0577c011..00000000 Binary files a/pics/511000148.jpg and /dev/null differ diff --git a/pics/511000149.jpg b/pics/511000149.jpg deleted file mode 100644 index c96838c4..00000000 Binary files a/pics/511000149.jpg and /dev/null differ diff --git a/pics/511000150.jpg b/pics/511000150.jpg deleted file mode 100644 index 5e3a4a1e..00000000 Binary files a/pics/511000150.jpg and /dev/null differ diff --git a/pics/511000151.jpg b/pics/511000151.jpg deleted file mode 100644 index c0dd355d..00000000 Binary files a/pics/511000151.jpg and /dev/null differ diff --git a/pics/511000152.jpg b/pics/511000152.jpg deleted file mode 100644 index 5118d1ba..00000000 Binary files a/pics/511000152.jpg and /dev/null differ diff --git a/pics/511000153.jpg b/pics/511000153.jpg deleted file mode 100644 index 1df5282a..00000000 Binary files a/pics/511000153.jpg and /dev/null differ diff --git a/pics/511000154.jpg b/pics/511000154.jpg deleted file mode 100644 index 2334eaa5..00000000 Binary files a/pics/511000154.jpg and /dev/null differ diff --git a/pics/511000155.jpg b/pics/511000155.jpg deleted file mode 100644 index 11592fe8..00000000 Binary files a/pics/511000155.jpg and /dev/null differ diff --git a/pics/511000156.jpg b/pics/511000156.jpg deleted file mode 100644 index 4e28ece0..00000000 Binary files a/pics/511000156.jpg and /dev/null differ diff --git a/pics/511000157.jpg b/pics/511000157.jpg deleted file mode 100644 index d2577ac9..00000000 Binary files a/pics/511000157.jpg and /dev/null differ diff --git a/pics/511000158.jpg b/pics/511000158.jpg deleted file mode 100644 index 0b3f1930..00000000 Binary files a/pics/511000158.jpg and /dev/null differ diff --git a/pics/511000159.jpg b/pics/511000159.jpg deleted file mode 100644 index b95c5f69..00000000 Binary files a/pics/511000159.jpg and /dev/null differ diff --git a/pics/511000160.jpg b/pics/511000160.jpg deleted file mode 100644 index f3867b12..00000000 Binary files a/pics/511000160.jpg and /dev/null differ diff --git a/pics/511000161.jpg b/pics/511000161.jpg deleted file mode 100644 index 37e3f8bd..00000000 Binary files a/pics/511000161.jpg and /dev/null differ diff --git a/pics/511000162.jpg b/pics/511000162.jpg deleted file mode 100644 index 1703ca27..00000000 Binary files a/pics/511000162.jpg and /dev/null differ diff --git a/pics/511000163.jpg b/pics/511000163.jpg deleted file mode 100644 index c43cd1bd..00000000 Binary files a/pics/511000163.jpg and /dev/null differ diff --git a/pics/511000164.jpg b/pics/511000164.jpg deleted file mode 100644 index 5af3aecc..00000000 Binary files a/pics/511000164.jpg and /dev/null differ diff --git a/pics/511000165.jpg b/pics/511000165.jpg deleted file mode 100644 index 0b55d02b..00000000 Binary files a/pics/511000165.jpg and /dev/null differ diff --git a/pics/511000166.jpg b/pics/511000166.jpg deleted file mode 100644 index 77cc4c0e..00000000 Binary files a/pics/511000166.jpg and /dev/null differ diff --git a/pics/511000167.jpg b/pics/511000167.jpg deleted file mode 100644 index 8b2aca47..00000000 Binary files a/pics/511000167.jpg and /dev/null differ diff --git a/pics/511000168.jpg b/pics/511000168.jpg deleted file mode 100644 index 8915aec7..00000000 Binary files a/pics/511000168.jpg and /dev/null differ diff --git a/pics/511000169.jpg b/pics/511000169.jpg deleted file mode 100644 index c776a6de..00000000 Binary files a/pics/511000169.jpg and /dev/null differ diff --git a/pics/511000170.jpg b/pics/511000170.jpg deleted file mode 100644 index 24773fd4..00000000 Binary files a/pics/511000170.jpg and /dev/null differ diff --git a/pics/511000171.jpg b/pics/511000171.jpg deleted file mode 100644 index 2f1bfd64..00000000 Binary files a/pics/511000171.jpg and /dev/null differ diff --git a/pics/511000172.jpg b/pics/511000172.jpg deleted file mode 100644 index 0c983484..00000000 Binary files a/pics/511000172.jpg and /dev/null differ diff --git a/pics/511000173.jpg b/pics/511000173.jpg deleted file mode 100644 index a8f923ee..00000000 Binary files a/pics/511000173.jpg and /dev/null differ diff --git a/pics/511000174.jpg b/pics/511000174.jpg deleted file mode 100644 index 30d81830..00000000 Binary files a/pics/511000174.jpg and /dev/null differ diff --git a/pics/511000175.jpg b/pics/511000175.jpg deleted file mode 100644 index cdae591a..00000000 Binary files a/pics/511000175.jpg and /dev/null differ diff --git a/pics/511000176.jpg b/pics/511000176.jpg deleted file mode 100644 index 5c8f12a4..00000000 Binary files a/pics/511000176.jpg and /dev/null differ diff --git a/pics/511000177.jpg b/pics/511000177.jpg deleted file mode 100644 index 1331c234..00000000 Binary files a/pics/511000177.jpg and /dev/null differ diff --git a/pics/511000178.jpg b/pics/511000178.jpg deleted file mode 100644 index 64ad0237..00000000 Binary files a/pics/511000178.jpg and /dev/null differ diff --git a/pics/511000179.jpg b/pics/511000179.jpg deleted file mode 100644 index d595ee59..00000000 Binary files a/pics/511000179.jpg and /dev/null differ diff --git a/pics/511000180.jpg b/pics/511000180.jpg deleted file mode 100644 index 42af0340..00000000 Binary files a/pics/511000180.jpg and /dev/null differ diff --git a/pics/511000181.jpg b/pics/511000181.jpg deleted file mode 100644 index 6ed4b74b..00000000 Binary files a/pics/511000181.jpg and /dev/null differ diff --git a/pics/511000182.jpg b/pics/511000182.jpg deleted file mode 100644 index bb4f9968..00000000 Binary files a/pics/511000182.jpg and /dev/null differ diff --git a/pics/511000183.jpg b/pics/511000183.jpg deleted file mode 100644 index 4f35339a..00000000 Binary files a/pics/511000183.jpg and /dev/null differ diff --git a/pics/511000184.jpg b/pics/511000184.jpg deleted file mode 100644 index 05289ca5..00000000 Binary files a/pics/511000184.jpg and /dev/null differ diff --git a/pics/511000185.jpg b/pics/511000185.jpg deleted file mode 100644 index 7040d7b4..00000000 Binary files a/pics/511000185.jpg and /dev/null differ diff --git a/pics/511000187.jpg b/pics/511000187.jpg deleted file mode 100644 index 78cbb122..00000000 Binary files a/pics/511000187.jpg and /dev/null differ diff --git a/pics/511000188.jpg b/pics/511000188.jpg deleted file mode 100644 index 8282109e..00000000 Binary files a/pics/511000188.jpg and /dev/null differ diff --git a/pics/511000189.jpg b/pics/511000189.jpg deleted file mode 100644 index dcb0993c..00000000 Binary files a/pics/511000189.jpg and /dev/null differ diff --git a/pics/511000190.jpg b/pics/511000190.jpg deleted file mode 100644 index 390b13a2..00000000 Binary files a/pics/511000190.jpg and /dev/null differ diff --git a/pics/511000191.jpg b/pics/511000191.jpg deleted file mode 100644 index 3db41dad..00000000 Binary files a/pics/511000191.jpg and /dev/null differ diff --git a/pics/511000192.jpg b/pics/511000192.jpg deleted file mode 100644 index 44125bd3..00000000 Binary files a/pics/511000192.jpg and /dev/null differ diff --git a/pics/511000197.jpg b/pics/511000197.jpg deleted file mode 100644 index 82d694ec..00000000 Binary files a/pics/511000197.jpg and /dev/null differ diff --git a/pics/511000198.jpg b/pics/511000198.jpg deleted file mode 100644 index 84bb51fb..00000000 Binary files a/pics/511000198.jpg and /dev/null differ diff --git a/pics/511000199.jpg b/pics/511000199.jpg deleted file mode 100644 index be83dd42..00000000 Binary files a/pics/511000199.jpg and /dev/null differ diff --git a/pics/511000200.jpg b/pics/511000200.jpg deleted file mode 100644 index 3d86d87c..00000000 Binary files a/pics/511000200.jpg and /dev/null differ diff --git a/pics/511000201.jpg b/pics/511000201.jpg deleted file mode 100644 index 2eec72e5..00000000 Binary files a/pics/511000201.jpg and /dev/null differ diff --git a/pics/511000202.jpg b/pics/511000202.jpg deleted file mode 100644 index 38acfa86..00000000 Binary files a/pics/511000202.jpg and /dev/null differ diff --git a/pics/511000203.jpg b/pics/511000203.jpg deleted file mode 100644 index 70eb0bd4..00000000 Binary files a/pics/511000203.jpg and /dev/null differ diff --git a/pics/511000204.jpg b/pics/511000204.jpg deleted file mode 100644 index 01726ed7..00000000 Binary files a/pics/511000204.jpg and /dev/null differ diff --git a/pics/511000205.jpg b/pics/511000205.jpg deleted file mode 100644 index 39379937..00000000 Binary files a/pics/511000205.jpg and /dev/null differ diff --git a/pics/511000206.jpg b/pics/511000206.jpg deleted file mode 100644 index 1b1c2950..00000000 Binary files a/pics/511000206.jpg and /dev/null differ diff --git a/pics/511000207.jpg b/pics/511000207.jpg deleted file mode 100644 index ac63546d..00000000 Binary files a/pics/511000207.jpg and /dev/null differ diff --git a/pics/511000208.jpg b/pics/511000208.jpg deleted file mode 100644 index b61d8d8e..00000000 Binary files a/pics/511000208.jpg and /dev/null differ diff --git a/pics/511000209.jpg b/pics/511000209.jpg deleted file mode 100644 index 99dfa5ee..00000000 Binary files a/pics/511000209.jpg and /dev/null differ diff --git a/pics/511000210.jpg b/pics/511000210.jpg deleted file mode 100644 index 62aa076e..00000000 Binary files a/pics/511000210.jpg and /dev/null differ diff --git a/pics/511000211.jpg b/pics/511000211.jpg deleted file mode 100644 index b0388b6b..00000000 Binary files a/pics/511000211.jpg and /dev/null differ diff --git a/pics/511000212.jpg b/pics/511000212.jpg deleted file mode 100644 index 2d7fcfe0..00000000 Binary files a/pics/511000212.jpg and /dev/null differ diff --git a/pics/511000213.jpg b/pics/511000213.jpg deleted file mode 100644 index 79aef9c5..00000000 Binary files a/pics/511000213.jpg and /dev/null differ diff --git a/pics/511000214.jpg b/pics/511000214.jpg deleted file mode 100644 index ba07c69a..00000000 Binary files a/pics/511000214.jpg and /dev/null differ diff --git a/pics/511000215.jpg b/pics/511000215.jpg deleted file mode 100644 index a154a85a..00000000 Binary files a/pics/511000215.jpg and /dev/null differ diff --git a/pics/511000217.jpg b/pics/511000217.jpg deleted file mode 100644 index 0453e12a..00000000 Binary files a/pics/511000217.jpg and /dev/null differ diff --git a/pics/511000218.jpg b/pics/511000218.jpg deleted file mode 100644 index 0a6eedce..00000000 Binary files a/pics/511000218.jpg and /dev/null differ diff --git a/pics/511000219.jpg b/pics/511000219.jpg deleted file mode 100644 index 928d9b49..00000000 Binary files a/pics/511000219.jpg and /dev/null differ diff --git a/pics/511000220.jpg b/pics/511000220.jpg deleted file mode 100644 index 7cecc216..00000000 Binary files a/pics/511000220.jpg and /dev/null differ diff --git a/pics/511000221.jpg b/pics/511000221.jpg deleted file mode 100644 index 3a3491be..00000000 Binary files a/pics/511000221.jpg and /dev/null differ diff --git a/pics/511000222.jpg b/pics/511000222.jpg deleted file mode 100644 index decbefee..00000000 Binary files a/pics/511000222.jpg and /dev/null differ diff --git a/pics/511000223.jpg b/pics/511000223.jpg deleted file mode 100644 index eca0780d..00000000 Binary files a/pics/511000223.jpg and /dev/null differ diff --git a/pics/511000225.jpg b/pics/511000225.jpg deleted file mode 100644 index 78d9eff4..00000000 Binary files a/pics/511000225.jpg and /dev/null differ diff --git a/pics/511000226.jpg b/pics/511000226.jpg deleted file mode 100644 index 088e218c..00000000 Binary files a/pics/511000226.jpg and /dev/null differ diff --git a/pics/511000227.jpg b/pics/511000227.jpg deleted file mode 100644 index eb6ed0d8..00000000 Binary files a/pics/511000227.jpg and /dev/null differ diff --git a/pics/511000228.jpg b/pics/511000228.jpg deleted file mode 100644 index 14266b4b..00000000 Binary files a/pics/511000228.jpg and /dev/null differ diff --git a/pics/511000229.jpg b/pics/511000229.jpg deleted file mode 100644 index e253cce3..00000000 Binary files a/pics/511000229.jpg and /dev/null differ diff --git a/pics/511000230.jpg b/pics/511000230.jpg deleted file mode 100644 index 280c24a6..00000000 Binary files a/pics/511000230.jpg and /dev/null differ diff --git a/pics/511000231.jpg b/pics/511000231.jpg deleted file mode 100644 index 62ae2671..00000000 Binary files a/pics/511000231.jpg and /dev/null differ diff --git a/pics/511000232.jpg b/pics/511000232.jpg deleted file mode 100644 index fbfc5cf8..00000000 Binary files a/pics/511000232.jpg and /dev/null differ diff --git a/pics/511000233.jpg b/pics/511000233.jpg deleted file mode 100644 index f6f87dd6..00000000 Binary files a/pics/511000233.jpg and /dev/null differ diff --git a/pics/511000234.jpg b/pics/511000234.jpg deleted file mode 100644 index f7aa5c43..00000000 Binary files a/pics/511000234.jpg and /dev/null differ diff --git a/pics/511000235.jpg b/pics/511000235.jpg deleted file mode 100644 index 1e0a193f..00000000 Binary files a/pics/511000235.jpg and /dev/null differ diff --git a/pics/511000237.jpg b/pics/511000237.jpg deleted file mode 100644 index 884722a3..00000000 Binary files a/pics/511000237.jpg and /dev/null differ diff --git a/pics/511000238.jpg b/pics/511000238.jpg deleted file mode 100644 index 2ef96eca..00000000 Binary files a/pics/511000238.jpg and /dev/null differ diff --git a/pics/511000239.jpg b/pics/511000239.jpg deleted file mode 100644 index ac4711f0..00000000 Binary files a/pics/511000239.jpg and /dev/null differ diff --git a/pics/511000240.jpg b/pics/511000240.jpg deleted file mode 100644 index 95f2a575..00000000 Binary files a/pics/511000240.jpg and /dev/null differ diff --git a/pics/511000241.jpg b/pics/511000241.jpg deleted file mode 100644 index 810047e0..00000000 Binary files a/pics/511000241.jpg and /dev/null differ diff --git a/pics/511000242.jpg b/pics/511000242.jpg deleted file mode 100644 index f66a64aa..00000000 Binary files a/pics/511000242.jpg and /dev/null differ diff --git a/pics/511000243.jpg b/pics/511000243.jpg deleted file mode 100644 index ebd41b05..00000000 Binary files a/pics/511000243.jpg and /dev/null differ diff --git a/pics/511000244.jpg b/pics/511000244.jpg deleted file mode 100644 index c3fe91c0..00000000 Binary files a/pics/511000244.jpg and /dev/null differ diff --git a/pics/511000245.jpg b/pics/511000245.jpg deleted file mode 100644 index c96ca82c..00000000 Binary files a/pics/511000245.jpg and /dev/null differ diff --git a/pics/511000246.jpg b/pics/511000246.jpg deleted file mode 100644 index 5daa49dd..00000000 Binary files a/pics/511000246.jpg and /dev/null differ diff --git a/pics/511000247.jpg b/pics/511000247.jpg deleted file mode 100644 index 73c76e69..00000000 Binary files a/pics/511000247.jpg and /dev/null differ diff --git a/pics/511000248.jpg b/pics/511000248.jpg deleted file mode 100644 index 713a7182..00000000 Binary files a/pics/511000248.jpg and /dev/null differ diff --git a/pics/511000249.jpg b/pics/511000249.jpg deleted file mode 100644 index e55f951e..00000000 Binary files a/pics/511000249.jpg and /dev/null differ diff --git a/pics/511000250.jpg b/pics/511000250.jpg deleted file mode 100644 index 72f10e03..00000000 Binary files a/pics/511000250.jpg and /dev/null differ diff --git a/pics/511000251.jpg b/pics/511000251.jpg deleted file mode 100644 index 4d6ee7b1..00000000 Binary files a/pics/511000251.jpg and /dev/null differ diff --git a/pics/511000252.jpg b/pics/511000252.jpg deleted file mode 100644 index f04d00da..00000000 Binary files a/pics/511000252.jpg and /dev/null differ diff --git a/pics/511000253.jpg b/pics/511000253.jpg deleted file mode 100755 index 4ac1e9dd..00000000 Binary files a/pics/511000253.jpg and /dev/null differ diff --git a/pics/511000254.jpg b/pics/511000254.jpg deleted file mode 100644 index 81586a14..00000000 Binary files a/pics/511000254.jpg and /dev/null differ diff --git a/pics/511000255.jpg b/pics/511000255.jpg deleted file mode 100644 index 40235633..00000000 Binary files a/pics/511000255.jpg and /dev/null differ diff --git a/pics/511000256.jpg b/pics/511000256.jpg deleted file mode 100644 index b471c0e1..00000000 Binary files a/pics/511000256.jpg and /dev/null differ diff --git a/pics/511000257.jpg b/pics/511000257.jpg deleted file mode 100644 index 3c8da672..00000000 Binary files a/pics/511000257.jpg and /dev/null differ diff --git a/pics/511000258.jpg b/pics/511000258.jpg deleted file mode 100644 index e688c187..00000000 Binary files a/pics/511000258.jpg and /dev/null differ diff --git a/pics/511000259.jpg b/pics/511000259.jpg deleted file mode 100644 index 46b73dae..00000000 Binary files a/pics/511000259.jpg and /dev/null differ diff --git a/pics/511000260.jpg b/pics/511000260.jpg deleted file mode 100644 index 77874642..00000000 Binary files a/pics/511000260.jpg and /dev/null differ diff --git a/pics/511000261.jpg b/pics/511000261.jpg deleted file mode 100644 index 04fc6142..00000000 Binary files a/pics/511000261.jpg and /dev/null differ diff --git a/pics/511000262.jpg b/pics/511000262.jpg deleted file mode 100644 index bb432e91..00000000 Binary files a/pics/511000262.jpg and /dev/null differ diff --git a/pics/511000263.jpg b/pics/511000263.jpg deleted file mode 100644 index de728638..00000000 Binary files a/pics/511000263.jpg and /dev/null differ diff --git a/pics/511000264.jpg b/pics/511000264.jpg deleted file mode 100644 index ac1aad26..00000000 Binary files a/pics/511000264.jpg and /dev/null differ diff --git a/pics/511000265.jpg b/pics/511000265.jpg deleted file mode 100644 index b8d62ceb..00000000 Binary files a/pics/511000265.jpg and /dev/null differ diff --git a/pics/511000266.jpg b/pics/511000266.jpg deleted file mode 100644 index 8b44973a..00000000 Binary files a/pics/511000266.jpg and /dev/null differ diff --git a/pics/511000267.jpg b/pics/511000267.jpg deleted file mode 100644 index 2fafbea1..00000000 Binary files a/pics/511000267.jpg and /dev/null differ diff --git a/pics/511000268.jpg b/pics/511000268.jpg deleted file mode 100644 index b653c7e6..00000000 Binary files a/pics/511000268.jpg and /dev/null differ diff --git a/pics/511000269.jpg b/pics/511000269.jpg deleted file mode 100644 index f52325a5..00000000 Binary files a/pics/511000269.jpg and /dev/null differ diff --git a/pics/511000270.jpg b/pics/511000270.jpg deleted file mode 100644 index 85d188ed..00000000 Binary files a/pics/511000270.jpg and /dev/null differ diff --git a/pics/511000271.jpg b/pics/511000271.jpg deleted file mode 100644 index c88056ee..00000000 Binary files a/pics/511000271.jpg and /dev/null differ diff --git a/pics/511000272.jpg b/pics/511000272.jpg deleted file mode 100644 index 0d6f8bda..00000000 Binary files a/pics/511000272.jpg and /dev/null differ diff --git a/pics/511000273.jpg b/pics/511000273.jpg deleted file mode 100644 index 77c4eb50..00000000 Binary files a/pics/511000273.jpg and /dev/null differ diff --git a/pics/511000274.jpg b/pics/511000274.jpg deleted file mode 100644 index a5dc77d4..00000000 Binary files a/pics/511000274.jpg and /dev/null differ diff --git a/pics/511000275.jpg b/pics/511000275.jpg deleted file mode 100644 index 9ab55a09..00000000 Binary files a/pics/511000275.jpg and /dev/null differ diff --git a/pics/511000276.jpg b/pics/511000276.jpg deleted file mode 100644 index 82890627..00000000 Binary files a/pics/511000276.jpg and /dev/null differ diff --git a/pics/511000277.jpg b/pics/511000277.jpg deleted file mode 100644 index 3f9b5621..00000000 Binary files a/pics/511000277.jpg and /dev/null differ diff --git a/pics/511000278.jpg b/pics/511000278.jpg deleted file mode 100755 index e35c839b..00000000 Binary files a/pics/511000278.jpg and /dev/null differ diff --git a/pics/511000279.jpg b/pics/511000279.jpg deleted file mode 100644 index 5cbd62d6..00000000 Binary files a/pics/511000279.jpg and /dev/null differ diff --git a/pics/511000280.jpg b/pics/511000280.jpg deleted file mode 100644 index 58219c1b..00000000 Binary files a/pics/511000280.jpg and /dev/null differ diff --git a/pics/511000281.jpg b/pics/511000281.jpg deleted file mode 100644 index 626af083..00000000 Binary files a/pics/511000281.jpg and /dev/null differ diff --git a/pics/511000283.jpg b/pics/511000283.jpg deleted file mode 100644 index 929ae402..00000000 Binary files a/pics/511000283.jpg and /dev/null differ diff --git a/pics/511000284.jpg b/pics/511000284.jpg deleted file mode 100644 index 5f5b1b73..00000000 Binary files a/pics/511000284.jpg and /dev/null differ diff --git a/pics/511000285.jpg b/pics/511000285.jpg deleted file mode 100644 index 4253d278..00000000 Binary files a/pics/511000285.jpg and /dev/null differ diff --git a/pics/511000286.jpg b/pics/511000286.jpg deleted file mode 100644 index 2f61191e..00000000 Binary files a/pics/511000286.jpg and /dev/null differ diff --git a/pics/511000287.jpg b/pics/511000287.jpg deleted file mode 100644 index 2f699bc1..00000000 Binary files a/pics/511000287.jpg and /dev/null differ diff --git a/pics/511000288.jpg b/pics/511000288.jpg deleted file mode 100644 index be2bf0ca19..00000000 Binary files a/pics/511000288.jpg and /dev/null differ diff --git a/pics/511000289.jpg b/pics/511000289.jpg deleted file mode 100644 index 8e17ecbb..00000000 Binary files a/pics/511000289.jpg and /dev/null differ diff --git a/pics/511000290.jpg b/pics/511000290.jpg deleted file mode 100644 index 49c2e42f..00000000 Binary files a/pics/511000290.jpg and /dev/null differ diff --git a/pics/511000291.jpg b/pics/511000291.jpg deleted file mode 100644 index 46b0be68..00000000 Binary files a/pics/511000291.jpg and /dev/null differ diff --git a/pics/511000292.jpg b/pics/511000292.jpg deleted file mode 100644 index e798d5d5..00000000 Binary files a/pics/511000292.jpg and /dev/null differ diff --git a/pics/511000293.jpg b/pics/511000293.jpg deleted file mode 100644 index 25208ca2..00000000 Binary files a/pics/511000293.jpg and /dev/null differ diff --git a/pics/511000294.jpg b/pics/511000294.jpg deleted file mode 100644 index 3f6ca419..00000000 Binary files a/pics/511000294.jpg and /dev/null differ diff --git a/pics/511000295.jpg b/pics/511000295.jpg deleted file mode 100644 index d0c9da6e..00000000 Binary files a/pics/511000295.jpg and /dev/null differ diff --git a/pics/511000296.jpg b/pics/511000296.jpg deleted file mode 100644 index f69e7d45..00000000 Binary files a/pics/511000296.jpg and /dev/null differ diff --git a/pics/511000297.jpg b/pics/511000297.jpg deleted file mode 100644 index 1a4b2361..00000000 Binary files a/pics/511000297.jpg and /dev/null differ diff --git a/pics/511000298.jpg b/pics/511000298.jpg deleted file mode 100644 index e07a3aeb..00000000 Binary files a/pics/511000298.jpg and /dev/null differ diff --git a/pics/511000299.jpg b/pics/511000299.jpg deleted file mode 100644 index 5254745b..00000000 Binary files a/pics/511000299.jpg and /dev/null differ diff --git a/pics/511000300.jpg b/pics/511000300.jpg deleted file mode 100644 index b1cf0a8a..00000000 Binary files a/pics/511000300.jpg and /dev/null differ diff --git a/pics/511000301.jpg b/pics/511000301.jpg deleted file mode 100644 index 405050c5..00000000 Binary files a/pics/511000301.jpg and /dev/null differ diff --git a/pics/511000302.jpg b/pics/511000302.jpg deleted file mode 100644 index 3a17d67b..00000000 Binary files a/pics/511000302.jpg and /dev/null differ diff --git a/pics/511000303.jpg b/pics/511000303.jpg deleted file mode 100644 index e0cb293d..00000000 Binary files a/pics/511000303.jpg and /dev/null differ diff --git a/pics/511000304.jpg b/pics/511000304.jpg deleted file mode 100644 index dd1b61b7..00000000 Binary files a/pics/511000304.jpg and /dev/null differ diff --git a/pics/511000305.jpg b/pics/511000305.jpg deleted file mode 100644 index 28ef360b..00000000 Binary files a/pics/511000305.jpg and /dev/null differ diff --git a/pics/511000306.jpg b/pics/511000306.jpg deleted file mode 100644 index 34344771..00000000 Binary files a/pics/511000306.jpg and /dev/null differ diff --git a/pics/511000307.jpg b/pics/511000307.jpg deleted file mode 100644 index d9869f9e..00000000 Binary files a/pics/511000307.jpg and /dev/null differ diff --git a/pics/511000308.jpg b/pics/511000308.jpg deleted file mode 100644 index 11d12f4d..00000000 Binary files a/pics/511000308.jpg and /dev/null differ diff --git a/pics/511000309.jpg b/pics/511000309.jpg deleted file mode 100644 index 5eb07b30..00000000 Binary files a/pics/511000309.jpg and /dev/null differ diff --git a/pics/511000310.jpg b/pics/511000310.jpg deleted file mode 100644 index 7dbbe540..00000000 Binary files a/pics/511000310.jpg and /dev/null differ diff --git a/pics/511000311.jpg b/pics/511000311.jpg deleted file mode 100644 index dae13ee5..00000000 Binary files a/pics/511000311.jpg and /dev/null differ diff --git a/pics/511000312.jpg b/pics/511000312.jpg deleted file mode 100644 index bb738323..00000000 Binary files a/pics/511000312.jpg and /dev/null differ diff --git a/pics/511000313.jpg b/pics/511000313.jpg deleted file mode 100644 index 02c1fd8c..00000000 Binary files a/pics/511000313.jpg and /dev/null differ diff --git a/pics/511000314.jpg b/pics/511000314.jpg deleted file mode 100644 index ee8cf5ae..00000000 Binary files a/pics/511000314.jpg and /dev/null differ diff --git a/pics/511000315.jpg b/pics/511000315.jpg deleted file mode 100644 index cff1abd6..00000000 Binary files a/pics/511000315.jpg and /dev/null differ diff --git a/pics/511000316.jpg b/pics/511000316.jpg deleted file mode 100644 index 5bee69d8..00000000 Binary files a/pics/511000316.jpg and /dev/null differ diff --git a/pics/511000317.jpg b/pics/511000317.jpg deleted file mode 100644 index 52b88ff1..00000000 Binary files a/pics/511000317.jpg and /dev/null differ diff --git a/pics/511000318.jpg b/pics/511000318.jpg deleted file mode 100644 index 313fa1c5..00000000 Binary files a/pics/511000318.jpg and /dev/null differ diff --git a/pics/511000319.jpg b/pics/511000319.jpg deleted file mode 100644 index e7145336..00000000 Binary files a/pics/511000319.jpg and /dev/null differ diff --git a/pics/511000320.jpg b/pics/511000320.jpg deleted file mode 100644 index ecf5f5df..00000000 Binary files a/pics/511000320.jpg and /dev/null differ diff --git a/pics/511000321.jpg b/pics/511000321.jpg deleted file mode 100644 index 938ec881..00000000 Binary files a/pics/511000321.jpg and /dev/null differ diff --git a/pics/511000322.jpg b/pics/511000322.jpg deleted file mode 100644 index b1d9da30..00000000 Binary files a/pics/511000322.jpg and /dev/null differ diff --git a/pics/511000323.jpg b/pics/511000323.jpg deleted file mode 100644 index cb281162..00000000 Binary files a/pics/511000323.jpg and /dev/null differ diff --git a/pics/511000324.jpg b/pics/511000324.jpg deleted file mode 100644 index 833708e5..00000000 Binary files a/pics/511000324.jpg and /dev/null differ diff --git a/pics/511000325.jpg b/pics/511000325.jpg deleted file mode 100644 index 28af06a7..00000000 Binary files a/pics/511000325.jpg and /dev/null differ diff --git a/pics/511000326.jpg b/pics/511000326.jpg deleted file mode 100644 index b2b9d338..00000000 Binary files a/pics/511000326.jpg and /dev/null differ diff --git a/pics/511000328.jpg b/pics/511000328.jpg deleted file mode 100644 index 39f51541..00000000 Binary files a/pics/511000328.jpg and /dev/null differ diff --git a/pics/511000329.jpg b/pics/511000329.jpg deleted file mode 100644 index 5e840ff2..00000000 Binary files a/pics/511000329.jpg and /dev/null differ diff --git a/pics/511000330.jpg b/pics/511000330.jpg deleted file mode 100644 index 51d08011..00000000 Binary files a/pics/511000330.jpg and /dev/null differ diff --git a/pics/511000331.jpg b/pics/511000331.jpg deleted file mode 100644 index 75437970..00000000 Binary files a/pics/511000331.jpg and /dev/null differ diff --git a/pics/511000332.jpg b/pics/511000332.jpg deleted file mode 100644 index 9ba60737..00000000 Binary files a/pics/511000332.jpg and /dev/null differ diff --git a/pics/511000333.jpg b/pics/511000333.jpg deleted file mode 100644 index 64735f9d..00000000 Binary files a/pics/511000333.jpg and /dev/null differ diff --git a/pics/511000334.jpg b/pics/511000334.jpg deleted file mode 100644 index c36c156e..00000000 Binary files a/pics/511000334.jpg and /dev/null differ diff --git a/pics/511000335.jpg b/pics/511000335.jpg deleted file mode 100644 index dab478fe..00000000 Binary files a/pics/511000335.jpg and /dev/null differ diff --git a/pics/511000336.jpg b/pics/511000336.jpg deleted file mode 100644 index 9f84f3d1..00000000 Binary files a/pics/511000336.jpg and /dev/null differ diff --git a/pics/511000337.jpg b/pics/511000337.jpg deleted file mode 100644 index 271a3221..00000000 Binary files a/pics/511000337.jpg and /dev/null differ diff --git a/pics/511000338.jpg b/pics/511000338.jpg deleted file mode 100644 index 17f53680..00000000 Binary files a/pics/511000338.jpg and /dev/null differ diff --git a/pics/511000339.jpg b/pics/511000339.jpg deleted file mode 100644 index 4d1d562d..00000000 Binary files a/pics/511000339.jpg and /dev/null differ diff --git a/pics/511000340.jpg b/pics/511000340.jpg deleted file mode 100644 index 93eb994b..00000000 Binary files a/pics/511000340.jpg and /dev/null differ diff --git a/pics/511000341.jpg b/pics/511000341.jpg deleted file mode 100644 index 33486e33..00000000 Binary files a/pics/511000341.jpg and /dev/null differ diff --git a/pics/511000342.jpg b/pics/511000342.jpg deleted file mode 100644 index 42661033..00000000 Binary files a/pics/511000342.jpg and /dev/null differ diff --git a/pics/511000343.jpg b/pics/511000343.jpg deleted file mode 100644 index 5d5dae58..00000000 Binary files a/pics/511000343.jpg and /dev/null differ diff --git a/pics/511000344.jpg b/pics/511000344.jpg deleted file mode 100644 index 78a05051..00000000 Binary files a/pics/511000344.jpg and /dev/null differ diff --git a/pics/511000345.jpg b/pics/511000345.jpg deleted file mode 100644 index fa7d2a17..00000000 Binary files a/pics/511000345.jpg and /dev/null differ diff --git a/pics/511000346.jpg b/pics/511000346.jpg deleted file mode 100644 index 6aabebb2..00000000 Binary files a/pics/511000346.jpg and /dev/null differ diff --git a/pics/511000347.jpg b/pics/511000347.jpg deleted file mode 100644 index 15b877ec..00000000 Binary files a/pics/511000347.jpg and /dev/null differ diff --git a/pics/511000348.jpg b/pics/511000348.jpg deleted file mode 100644 index 4eec20e1..00000000 Binary files a/pics/511000348.jpg and /dev/null differ diff --git a/pics/511000349.jpg b/pics/511000349.jpg deleted file mode 100644 index bce01e7d..00000000 Binary files a/pics/511000349.jpg and /dev/null differ diff --git a/pics/511000350.jpg b/pics/511000350.jpg deleted file mode 100644 index d777a0fd..00000000 Binary files a/pics/511000350.jpg and /dev/null differ diff --git a/pics/511000351.jpg b/pics/511000351.jpg deleted file mode 100644 index 8ba08283..00000000 Binary files a/pics/511000351.jpg and /dev/null differ diff --git a/pics/511000352.jpg b/pics/511000352.jpg deleted file mode 100644 index 80ffc280..00000000 Binary files a/pics/511000352.jpg and /dev/null differ diff --git a/pics/511000353.jpg b/pics/511000353.jpg deleted file mode 100644 index 9e5abc59..00000000 Binary files a/pics/511000353.jpg and /dev/null differ diff --git a/pics/511000354.jpg b/pics/511000354.jpg deleted file mode 100644 index 01c9ec93..00000000 Binary files a/pics/511000354.jpg and /dev/null differ diff --git a/pics/511000355.jpg b/pics/511000355.jpg deleted file mode 100644 index a88d8265..00000000 Binary files a/pics/511000355.jpg and /dev/null differ diff --git a/pics/511000356.jpg b/pics/511000356.jpg deleted file mode 100644 index 807686c6..00000000 Binary files a/pics/511000356.jpg and /dev/null differ diff --git a/pics/511000357.jpg b/pics/511000357.jpg deleted file mode 100644 index b9799d15..00000000 Binary files a/pics/511000357.jpg and /dev/null differ diff --git a/pics/511000358.jpg b/pics/511000358.jpg deleted file mode 100644 index bcb05b3c..00000000 Binary files a/pics/511000358.jpg and /dev/null differ diff --git a/pics/511000359.jpg b/pics/511000359.jpg deleted file mode 100644 index 89182ff6..00000000 Binary files a/pics/511000359.jpg and /dev/null differ diff --git a/pics/511000360.jpg b/pics/511000360.jpg deleted file mode 100644 index 90125cc6..00000000 Binary files a/pics/511000360.jpg and /dev/null differ diff --git a/pics/511000361.jpg b/pics/511000361.jpg deleted file mode 100644 index 35c6c097..00000000 Binary files a/pics/511000361.jpg and /dev/null differ diff --git a/pics/511000362.jpg b/pics/511000362.jpg deleted file mode 100644 index e6494b32..00000000 Binary files a/pics/511000362.jpg and /dev/null differ diff --git a/pics/511000363.jpg b/pics/511000363.jpg deleted file mode 100644 index 46060fee..00000000 Binary files a/pics/511000363.jpg and /dev/null differ diff --git a/pics/511000364.jpg b/pics/511000364.jpg deleted file mode 100644 index 78d8a3d1..00000000 Binary files a/pics/511000364.jpg and /dev/null differ diff --git a/pics/511000365.jpg b/pics/511000365.jpg deleted file mode 100644 index 5bac7fbf..00000000 Binary files a/pics/511000365.jpg and /dev/null differ diff --git a/pics/511000366.jpg b/pics/511000366.jpg deleted file mode 100644 index 9fdc7019..00000000 Binary files a/pics/511000366.jpg and /dev/null differ diff --git a/pics/511000367.jpg b/pics/511000367.jpg deleted file mode 100644 index cd4afba9..00000000 Binary files a/pics/511000367.jpg and /dev/null differ diff --git a/pics/511000368.jpg b/pics/511000368.jpg deleted file mode 100644 index c656de36..00000000 Binary files a/pics/511000368.jpg and /dev/null differ diff --git a/pics/511000369.jpg b/pics/511000369.jpg deleted file mode 100644 index fff164ef..00000000 Binary files a/pics/511000369.jpg and /dev/null differ diff --git a/pics/511000370.jpg b/pics/511000370.jpg deleted file mode 100644 index f14485ea..00000000 Binary files a/pics/511000370.jpg and /dev/null differ diff --git a/pics/511000371.jpg b/pics/511000371.jpg deleted file mode 100644 index cde4f192..00000000 Binary files a/pics/511000371.jpg and /dev/null differ diff --git a/pics/511000372.jpg b/pics/511000372.jpg deleted file mode 100644 index 6da7f823..00000000 Binary files a/pics/511000372.jpg and /dev/null differ diff --git a/pics/511000373.jpg b/pics/511000373.jpg deleted file mode 100644 index fccaa6cf..00000000 Binary files a/pics/511000373.jpg and /dev/null differ diff --git a/pics/511000374.jpg b/pics/511000374.jpg deleted file mode 100644 index 7f2cb18c..00000000 Binary files a/pics/511000374.jpg and /dev/null differ diff --git a/pics/511000375.jpg b/pics/511000375.jpg deleted file mode 100755 index 98e51bfe..00000000 Binary files a/pics/511000375.jpg and /dev/null differ diff --git a/pics/511000376.jpg b/pics/511000376.jpg deleted file mode 100644 index d7119e9b..00000000 Binary files a/pics/511000376.jpg and /dev/null differ diff --git a/pics/511000377.jpg b/pics/511000377.jpg deleted file mode 100644 index 3acbb701..00000000 Binary files a/pics/511000377.jpg and /dev/null differ diff --git a/pics/511000378.jpg b/pics/511000378.jpg deleted file mode 100644 index ccab239f..00000000 Binary files a/pics/511000378.jpg and /dev/null differ diff --git a/pics/511000379.jpg b/pics/511000379.jpg deleted file mode 100644 index bf2a5ff3..00000000 Binary files a/pics/511000379.jpg and /dev/null differ diff --git a/pics/511000380.jpg b/pics/511000380.jpg deleted file mode 100644 index f2434d0c..00000000 Binary files a/pics/511000380.jpg and /dev/null differ diff --git a/pics/511000381.jpg b/pics/511000381.jpg deleted file mode 100644 index 3696ef00..00000000 Binary files a/pics/511000381.jpg and /dev/null differ diff --git a/pics/511000382.jpg b/pics/511000382.jpg deleted file mode 100644 index 8f2f2a92..00000000 Binary files a/pics/511000382.jpg and /dev/null differ diff --git a/pics/511000383.jpg b/pics/511000383.jpg deleted file mode 100644 index 14b9e8cb..00000000 Binary files a/pics/511000383.jpg and /dev/null differ diff --git a/pics/511000384.jpg b/pics/511000384.jpg deleted file mode 100644 index 007d450a..00000000 Binary files a/pics/511000384.jpg and /dev/null differ diff --git a/pics/511000385.jpg b/pics/511000385.jpg deleted file mode 100644 index bace6541..00000000 Binary files a/pics/511000385.jpg and /dev/null differ diff --git a/pics/511000386.jpg b/pics/511000386.jpg deleted file mode 100644 index 381004ba..00000000 Binary files a/pics/511000386.jpg and /dev/null differ diff --git a/pics/511000387.jpg b/pics/511000387.jpg deleted file mode 100644 index 3a2c5cb9..00000000 Binary files a/pics/511000387.jpg and /dev/null differ diff --git a/pics/511000388.jpg b/pics/511000388.jpg deleted file mode 100644 index d9e98b10..00000000 Binary files a/pics/511000388.jpg and /dev/null differ diff --git a/pics/511000389.jpg b/pics/511000389.jpg deleted file mode 100644 index 2c2d79ee..00000000 Binary files a/pics/511000389.jpg and /dev/null differ diff --git a/pics/511000390.jpg b/pics/511000390.jpg deleted file mode 100644 index 8ab3bd34..00000000 Binary files a/pics/511000390.jpg and /dev/null differ diff --git a/pics/511000391.jpg b/pics/511000391.jpg deleted file mode 100644 index 56b7c5a4..00000000 Binary files a/pics/511000391.jpg and /dev/null differ diff --git a/pics/511000392.jpg b/pics/511000392.jpg deleted file mode 100644 index c2067a3c..00000000 Binary files a/pics/511000392.jpg and /dev/null differ diff --git a/pics/511000393.jpg b/pics/511000393.jpg deleted file mode 100644 index 198c16b7..00000000 Binary files a/pics/511000393.jpg and /dev/null differ diff --git a/pics/511000394.jpg b/pics/511000394.jpg deleted file mode 100644 index caf2e82e..00000000 Binary files a/pics/511000394.jpg and /dev/null differ diff --git a/pics/511000395.jpg b/pics/511000395.jpg deleted file mode 100644 index b0045601..00000000 Binary files a/pics/511000395.jpg and /dev/null differ diff --git a/pics/511000396.jpg b/pics/511000396.jpg deleted file mode 100644 index 19167903..00000000 Binary files a/pics/511000396.jpg and /dev/null differ diff --git a/pics/511000397.jpg b/pics/511000397.jpg deleted file mode 100644 index 4e53d411..00000000 Binary files a/pics/511000397.jpg and /dev/null differ diff --git a/pics/511000399.jpg b/pics/511000399.jpg deleted file mode 100644 index 40243aa7..00000000 Binary files a/pics/511000399.jpg and /dev/null differ diff --git a/pics/511000400.jpg b/pics/511000400.jpg deleted file mode 100644 index 8a516484..00000000 Binary files a/pics/511000400.jpg and /dev/null differ diff --git a/pics/511000401.jpg b/pics/511000401.jpg deleted file mode 100644 index cbd56947..00000000 Binary files a/pics/511000401.jpg and /dev/null differ diff --git a/pics/511000402.jpg b/pics/511000402.jpg deleted file mode 100644 index 597aaa11..00000000 Binary files a/pics/511000402.jpg and /dev/null differ diff --git a/pics/511000403.jpg b/pics/511000403.jpg deleted file mode 100644 index cfbd6290..00000000 Binary files a/pics/511000403.jpg and /dev/null differ diff --git a/pics/511000404.jpg b/pics/511000404.jpg deleted file mode 100644 index dea31a12..00000000 Binary files a/pics/511000404.jpg and /dev/null differ diff --git a/pics/511000405.jpg b/pics/511000405.jpg deleted file mode 100644 index 0a039193..00000000 Binary files a/pics/511000405.jpg and /dev/null differ diff --git a/pics/511000406.jpg b/pics/511000406.jpg deleted file mode 100644 index 98cdd2e4..00000000 Binary files a/pics/511000406.jpg and /dev/null differ diff --git a/pics/511000407.jpg b/pics/511000407.jpg deleted file mode 100644 index 73ffbbd9..00000000 Binary files a/pics/511000407.jpg and /dev/null differ diff --git a/pics/511000408.jpg b/pics/511000408.jpg deleted file mode 100644 index 64ed33bf..00000000 Binary files a/pics/511000408.jpg and /dev/null differ diff --git a/pics/511000410.jpg b/pics/511000410.jpg deleted file mode 100644 index 71734c54..00000000 Binary files a/pics/511000410.jpg and /dev/null differ diff --git a/pics/511000411.jpg b/pics/511000411.jpg deleted file mode 100644 index c7895e83..00000000 Binary files a/pics/511000411.jpg and /dev/null differ diff --git a/pics/511000412.jpg b/pics/511000412.jpg deleted file mode 100644 index 62b41583..00000000 Binary files a/pics/511000412.jpg and /dev/null differ diff --git a/pics/511000413.jpg b/pics/511000413.jpg deleted file mode 100644 index 88964f9f..00000000 Binary files a/pics/511000413.jpg and /dev/null differ diff --git a/pics/511000414.jpg b/pics/511000414.jpg deleted file mode 100644 index 91c3f9c7..00000000 Binary files a/pics/511000414.jpg and /dev/null differ diff --git a/pics/511000415.jpg b/pics/511000415.jpg deleted file mode 100644 index 117b0619..00000000 Binary files a/pics/511000415.jpg and /dev/null differ diff --git a/pics/511000416.jpg b/pics/511000416.jpg deleted file mode 100644 index 2b3312c9..00000000 Binary files a/pics/511000416.jpg and /dev/null differ diff --git a/pics/511000417.jpg b/pics/511000417.jpg deleted file mode 100644 index 9b494601..00000000 Binary files a/pics/511000417.jpg and /dev/null differ diff --git a/pics/511000418.jpg b/pics/511000418.jpg deleted file mode 100644 index 5f391999..00000000 Binary files a/pics/511000418.jpg and /dev/null differ diff --git a/pics/511000419.jpg b/pics/511000419.jpg deleted file mode 100644 index b244a513..00000000 Binary files a/pics/511000419.jpg and /dev/null differ diff --git a/pics/511000420.jpg b/pics/511000420.jpg deleted file mode 100644 index 48ca70fa..00000000 Binary files a/pics/511000420.jpg and /dev/null differ diff --git a/pics/511000421.jpg b/pics/511000421.jpg deleted file mode 100644 index 99dcfe96..00000000 Binary files a/pics/511000421.jpg and /dev/null differ diff --git a/pics/511000422.jpg b/pics/511000422.jpg deleted file mode 100644 index d4e087f0..00000000 Binary files a/pics/511000422.jpg and /dev/null differ diff --git a/pics/511000423.jpg b/pics/511000423.jpg deleted file mode 100644 index ff708273..00000000 Binary files a/pics/511000423.jpg and /dev/null differ diff --git a/pics/511000424.jpg b/pics/511000424.jpg deleted file mode 100644 index ed416325..00000000 Binary files a/pics/511000424.jpg and /dev/null differ diff --git a/pics/511000426.jpg b/pics/511000426.jpg deleted file mode 100644 index 008aa7d6..00000000 Binary files a/pics/511000426.jpg and /dev/null differ diff --git a/pics/511000427.jpg b/pics/511000427.jpg deleted file mode 100644 index 2e84b0cd..00000000 Binary files a/pics/511000427.jpg and /dev/null differ diff --git a/pics/511000428.jpg b/pics/511000428.jpg deleted file mode 100644 index 28b70072..00000000 Binary files a/pics/511000428.jpg and /dev/null differ diff --git a/pics/511000429.jpg b/pics/511000429.jpg deleted file mode 100644 index b35fd5c1..00000000 Binary files a/pics/511000429.jpg and /dev/null differ diff --git a/pics/511000430.jpg b/pics/511000430.jpg deleted file mode 100644 index 6a337642..00000000 Binary files a/pics/511000430.jpg and /dev/null differ diff --git a/pics/511000431.jpg b/pics/511000431.jpg deleted file mode 100644 index 197ba322..00000000 Binary files a/pics/511000431.jpg and /dev/null differ diff --git a/pics/511000432.jpg b/pics/511000432.jpg deleted file mode 100644 index 01a929db..00000000 Binary files a/pics/511000432.jpg and /dev/null differ diff --git a/pics/511000433.jpg b/pics/511000433.jpg deleted file mode 100644 index 90453e0d..00000000 Binary files a/pics/511000433.jpg and /dev/null differ diff --git a/pics/511000434.jpg b/pics/511000434.jpg deleted file mode 100644 index d0e64913..00000000 Binary files a/pics/511000434.jpg and /dev/null differ diff --git a/pics/511000435.jpg b/pics/511000435.jpg deleted file mode 100644 index eb6ee1bc..00000000 Binary files a/pics/511000435.jpg and /dev/null differ diff --git a/pics/511000436.jpg b/pics/511000436.jpg deleted file mode 100644 index 0d977eec..00000000 Binary files a/pics/511000436.jpg and /dev/null differ diff --git a/pics/511000437.jpg b/pics/511000437.jpg deleted file mode 100644 index 3bf98157..00000000 Binary files a/pics/511000437.jpg and /dev/null differ diff --git a/pics/511000438.jpg b/pics/511000438.jpg deleted file mode 100644 index 2a1b1827..00000000 Binary files a/pics/511000438.jpg and /dev/null differ diff --git a/pics/511000439.jpg b/pics/511000439.jpg deleted file mode 100644 index d2f8f46a..00000000 Binary files a/pics/511000439.jpg and /dev/null differ diff --git a/pics/511000440.jpg b/pics/511000440.jpg deleted file mode 100644 index 4680eca1..00000000 Binary files a/pics/511000440.jpg and /dev/null differ diff --git a/pics/511000441.jpg b/pics/511000441.jpg deleted file mode 100644 index 78459589..00000000 Binary files a/pics/511000441.jpg and /dev/null differ diff --git a/pics/511000442.jpg b/pics/511000442.jpg deleted file mode 100644 index 1f80a98d..00000000 Binary files a/pics/511000442.jpg and /dev/null differ diff --git a/pics/511000443.jpg b/pics/511000443.jpg deleted file mode 100644 index da62a4d3..00000000 Binary files a/pics/511000443.jpg and /dev/null differ diff --git a/pics/511000444.jpg b/pics/511000444.jpg deleted file mode 100755 index 8876ae4e..00000000 Binary files a/pics/511000444.jpg and /dev/null differ diff --git a/pics/511000445.jpg b/pics/511000445.jpg deleted file mode 100644 index 4d6a0737..00000000 Binary files a/pics/511000445.jpg and /dev/null differ diff --git a/pics/511000446.jpg b/pics/511000446.jpg deleted file mode 100644 index e42b600b..00000000 Binary files a/pics/511000446.jpg and /dev/null differ diff --git a/pics/511000447.jpg b/pics/511000447.jpg deleted file mode 100644 index 7e0ba52d..00000000 Binary files a/pics/511000447.jpg and /dev/null differ diff --git a/pics/511000448.jpg b/pics/511000448.jpg deleted file mode 100644 index b1f3cc65..00000000 Binary files a/pics/511000448.jpg and /dev/null differ diff --git a/pics/511000449.jpg b/pics/511000449.jpg deleted file mode 100644 index ba68638c..00000000 Binary files a/pics/511000449.jpg and /dev/null differ diff --git a/pics/511000450.jpg b/pics/511000450.jpg deleted file mode 100644 index 27b951bf..00000000 Binary files a/pics/511000450.jpg and /dev/null differ diff --git a/pics/511000451.jpg b/pics/511000451.jpg deleted file mode 100644 index 4815950a..00000000 Binary files a/pics/511000451.jpg and /dev/null differ diff --git a/pics/511000452.jpg b/pics/511000452.jpg deleted file mode 100644 index bfd52757..00000000 Binary files a/pics/511000452.jpg and /dev/null differ diff --git a/pics/511000453.jpg b/pics/511000453.jpg deleted file mode 100644 index e2947fcc..00000000 Binary files a/pics/511000453.jpg and /dev/null differ diff --git a/pics/511000454.jpg b/pics/511000454.jpg deleted file mode 100644 index 875aca48..00000000 Binary files a/pics/511000454.jpg and /dev/null differ diff --git a/pics/511000455.jpg b/pics/511000455.jpg deleted file mode 100644 index 12050a98..00000000 Binary files a/pics/511000455.jpg and /dev/null differ diff --git a/pics/511000456.jpg b/pics/511000456.jpg deleted file mode 100644 index 4c56c20c..00000000 Binary files a/pics/511000456.jpg and /dev/null differ diff --git a/pics/511000457.jpg b/pics/511000457.jpg deleted file mode 100644 index 9e97fef7..00000000 Binary files a/pics/511000457.jpg and /dev/null differ diff --git a/pics/511000458.jpg b/pics/511000458.jpg deleted file mode 100644 index b7241e91..00000000 Binary files a/pics/511000458.jpg and /dev/null differ diff --git a/pics/511000460.jpg b/pics/511000460.jpg deleted file mode 100644 index de967577..00000000 Binary files a/pics/511000460.jpg and /dev/null differ diff --git a/pics/511000461.jpg b/pics/511000461.jpg deleted file mode 100644 index 402c39f1..00000000 Binary files a/pics/511000461.jpg and /dev/null differ diff --git a/pics/511000462.jpg b/pics/511000462.jpg deleted file mode 100644 index acbe558a..00000000 Binary files a/pics/511000462.jpg and /dev/null differ diff --git a/pics/511000463.jpg b/pics/511000463.jpg deleted file mode 100644 index 00eb62ea..00000000 Binary files a/pics/511000463.jpg and /dev/null differ diff --git a/pics/511000464.jpg b/pics/511000464.jpg deleted file mode 100644 index b846bfe6..00000000 Binary files a/pics/511000464.jpg and /dev/null differ diff --git a/pics/511000465.jpg b/pics/511000465.jpg deleted file mode 100644 index fd1864d9..00000000 Binary files a/pics/511000465.jpg and /dev/null differ diff --git a/pics/511000466.jpg b/pics/511000466.jpg deleted file mode 100644 index e47cdf77..00000000 Binary files a/pics/511000466.jpg and /dev/null differ diff --git a/pics/511000467.jpg b/pics/511000467.jpg deleted file mode 100644 index 46ddb5b4..00000000 Binary files a/pics/511000467.jpg and /dev/null differ diff --git a/pics/511000468.jpg b/pics/511000468.jpg deleted file mode 100644 index acd8a689..00000000 Binary files a/pics/511000468.jpg and /dev/null differ diff --git a/pics/511000469.jpg b/pics/511000469.jpg deleted file mode 100644 index 35546550..00000000 Binary files a/pics/511000469.jpg and /dev/null differ diff --git a/pics/511000470.jpg b/pics/511000470.jpg deleted file mode 100644 index 05bc6def..00000000 Binary files a/pics/511000470.jpg and /dev/null differ diff --git a/pics/511000471.jpg b/pics/511000471.jpg deleted file mode 100644 index f9d9971f..00000000 Binary files a/pics/511000471.jpg and /dev/null differ diff --git a/pics/511000472.jpg b/pics/511000472.jpg deleted file mode 100644 index e6b06a14..00000000 Binary files a/pics/511000472.jpg and /dev/null differ diff --git a/pics/511000474.jpg b/pics/511000474.jpg deleted file mode 100644 index 6af74f2b..00000000 Binary files a/pics/511000474.jpg and /dev/null differ diff --git a/pics/511000475.jpg b/pics/511000475.jpg deleted file mode 100644 index 7b637a9d..00000000 Binary files a/pics/511000475.jpg and /dev/null differ diff --git a/pics/511000476.jpg b/pics/511000476.jpg deleted file mode 100644 index 0bcfe765..00000000 Binary files a/pics/511000476.jpg and /dev/null differ diff --git a/pics/511000477.jpg b/pics/511000477.jpg deleted file mode 100644 index 8c432ca2..00000000 Binary files a/pics/511000477.jpg and /dev/null differ diff --git a/pics/511000478.jpg b/pics/511000478.jpg deleted file mode 100644 index b9dcfa44..00000000 Binary files a/pics/511000478.jpg and /dev/null differ diff --git a/pics/511000479.jpg b/pics/511000479.jpg deleted file mode 100644 index 1f3dfd25..00000000 Binary files a/pics/511000479.jpg and /dev/null differ diff --git a/pics/511000480.jpg b/pics/511000480.jpg deleted file mode 100644 index 98363b5a..00000000 Binary files a/pics/511000480.jpg and /dev/null differ diff --git a/pics/511000481.jpg b/pics/511000481.jpg deleted file mode 100644 index e5292f60..00000000 Binary files a/pics/511000481.jpg and /dev/null differ diff --git a/pics/511000482.jpg b/pics/511000482.jpg deleted file mode 100644 index b1699a41..00000000 Binary files a/pics/511000482.jpg and /dev/null differ diff --git a/pics/511000483.jpg b/pics/511000483.jpg deleted file mode 100644 index daadb6dc..00000000 Binary files a/pics/511000483.jpg and /dev/null differ diff --git a/pics/511000484.jpg b/pics/511000484.jpg deleted file mode 100644 index c3687d6b..00000000 Binary files a/pics/511000484.jpg and /dev/null differ diff --git a/pics/511000485.jpg b/pics/511000485.jpg deleted file mode 100644 index 3aba4ea6..00000000 Binary files a/pics/511000485.jpg and /dev/null differ diff --git a/pics/511000486.jpg b/pics/511000486.jpg deleted file mode 100644 index f6ac6fd7..00000000 Binary files a/pics/511000486.jpg and /dev/null differ diff --git a/pics/511000487.jpg b/pics/511000487.jpg deleted file mode 100644 index cbd36f41..00000000 Binary files a/pics/511000487.jpg and /dev/null differ diff --git a/pics/511000488.jpg b/pics/511000488.jpg deleted file mode 100644 index e7e28669..00000000 Binary files a/pics/511000488.jpg and /dev/null differ diff --git a/pics/511000489.jpg b/pics/511000489.jpg deleted file mode 100644 index e873fa3b..00000000 Binary files a/pics/511000489.jpg and /dev/null differ diff --git a/pics/511000490.jpg b/pics/511000490.jpg deleted file mode 100644 index 09b29a3a..00000000 Binary files a/pics/511000490.jpg and /dev/null differ diff --git a/pics/511000491.jpg b/pics/511000491.jpg deleted file mode 100644 index 0a949827..00000000 Binary files a/pics/511000491.jpg and /dev/null differ diff --git a/pics/511000492.jpg b/pics/511000492.jpg deleted file mode 100644 index 56f1a046..00000000 Binary files a/pics/511000492.jpg and /dev/null differ diff --git a/pics/511000493.jpg b/pics/511000493.jpg deleted file mode 100644 index be946bc5..00000000 Binary files a/pics/511000493.jpg and /dev/null differ diff --git a/pics/511000494.jpg b/pics/511000494.jpg deleted file mode 100644 index c99787cf..00000000 Binary files a/pics/511000494.jpg and /dev/null differ diff --git a/pics/511000495.jpg b/pics/511000495.jpg deleted file mode 100644 index 453bcbb8..00000000 Binary files a/pics/511000495.jpg and /dev/null differ diff --git a/pics/511000496.jpg b/pics/511000496.jpg deleted file mode 100644 index 3a2e893b..00000000 Binary files a/pics/511000496.jpg and /dev/null differ diff --git a/pics/511000497.jpg b/pics/511000497.jpg deleted file mode 100644 index d59e5d9d..00000000 Binary files a/pics/511000497.jpg and /dev/null differ diff --git a/pics/511000498.jpg b/pics/511000498.jpg deleted file mode 100644 index d45a6ccc..00000000 Binary files a/pics/511000498.jpg and /dev/null differ diff --git a/pics/511000499.jpg b/pics/511000499.jpg deleted file mode 100644 index bc8f1a49..00000000 Binary files a/pics/511000499.jpg and /dev/null differ diff --git a/pics/511000500.jpg b/pics/511000500.jpg deleted file mode 100644 index 81e01acc..00000000 Binary files a/pics/511000500.jpg and /dev/null differ diff --git a/pics/511000501.jpg b/pics/511000501.jpg deleted file mode 100644 index db2bcadd..00000000 Binary files a/pics/511000501.jpg and /dev/null differ diff --git a/pics/511000502.jpg b/pics/511000502.jpg deleted file mode 100644 index 1d02dd3b..00000000 Binary files a/pics/511000502.jpg and /dev/null differ diff --git a/pics/511000503.jpg b/pics/511000503.jpg deleted file mode 100644 index f9388657..00000000 Binary files a/pics/511000503.jpg and /dev/null differ diff --git a/pics/511000504.jpg b/pics/511000504.jpg deleted file mode 100644 index ba5bf50b..00000000 Binary files a/pics/511000504.jpg and /dev/null differ diff --git a/pics/511000505.jpg b/pics/511000505.jpg deleted file mode 100644 index b49f5470..00000000 Binary files a/pics/511000505.jpg and /dev/null differ diff --git a/pics/511000506.jpg b/pics/511000506.jpg deleted file mode 100644 index 6d9c9bb3..00000000 Binary files a/pics/511000506.jpg and /dev/null differ diff --git a/pics/511000507.jpg b/pics/511000507.jpg deleted file mode 100644 index 45f31587..00000000 Binary files a/pics/511000507.jpg and /dev/null differ diff --git a/pics/511000508.jpg b/pics/511000508.jpg deleted file mode 100644 index 5d65bd85..00000000 Binary files a/pics/511000508.jpg and /dev/null differ diff --git a/pics/511000509.jpg b/pics/511000509.jpg deleted file mode 100644 index be335367..00000000 Binary files a/pics/511000509.jpg and /dev/null differ diff --git a/pics/511000510.jpg b/pics/511000510.jpg deleted file mode 100644 index fa987875..00000000 Binary files a/pics/511000510.jpg and /dev/null differ diff --git a/pics/511000511.jpg b/pics/511000511.jpg deleted file mode 100644 index b708e180..00000000 Binary files a/pics/511000511.jpg and /dev/null differ diff --git a/pics/511000512.jpg b/pics/511000512.jpg deleted file mode 100644 index 2af23499..00000000 Binary files a/pics/511000512.jpg and /dev/null differ diff --git a/pics/511000513.jpg b/pics/511000513.jpg deleted file mode 100644 index ba4f3cf7..00000000 Binary files a/pics/511000513.jpg and /dev/null differ diff --git a/pics/511000514.jpg b/pics/511000514.jpg deleted file mode 100644 index 7758af3f..00000000 Binary files a/pics/511000514.jpg and /dev/null differ diff --git a/pics/511000515.jpg b/pics/511000515.jpg deleted file mode 100644 index 2490c7af..00000000 Binary files a/pics/511000515.jpg and /dev/null differ diff --git a/pics/511000516.jpg b/pics/511000516.jpg deleted file mode 100644 index 792824e1..00000000 Binary files a/pics/511000516.jpg and /dev/null differ diff --git a/pics/511000518.jpg b/pics/511000518.jpg deleted file mode 100644 index 6ed73efb..00000000 Binary files a/pics/511000518.jpg and /dev/null differ diff --git a/pics/511000519.jpg b/pics/511000519.jpg deleted file mode 100644 index a0489e71..00000000 Binary files a/pics/511000519.jpg and /dev/null differ diff --git a/pics/511000520.jpg b/pics/511000520.jpg deleted file mode 100644 index 9827d614..00000000 Binary files a/pics/511000520.jpg and /dev/null differ diff --git a/pics/511000521.jpg b/pics/511000521.jpg deleted file mode 100644 index 6fa3885a..00000000 Binary files a/pics/511000521.jpg and /dev/null differ diff --git a/pics/511000522.jpg b/pics/511000522.jpg deleted file mode 100644 index 13ae77c0..00000000 Binary files a/pics/511000522.jpg and /dev/null differ diff --git a/pics/511000523.jpg b/pics/511000523.jpg deleted file mode 100644 index 7014b592..00000000 Binary files a/pics/511000523.jpg and /dev/null differ diff --git a/pics/511000524.jpg b/pics/511000524.jpg deleted file mode 100644 index 90ee0725..00000000 Binary files a/pics/511000524.jpg and /dev/null differ diff --git a/pics/511000525.jpg b/pics/511000525.jpg deleted file mode 100644 index 6a51fbee..00000000 Binary files a/pics/511000525.jpg and /dev/null differ diff --git a/pics/511000526.jpg b/pics/511000526.jpg deleted file mode 100644 index 483aa8a0..00000000 Binary files a/pics/511000526.jpg and /dev/null differ diff --git a/pics/511000527.jpg b/pics/511000527.jpg deleted file mode 100644 index 2971f353..00000000 Binary files a/pics/511000527.jpg and /dev/null differ diff --git a/pics/511000531.jpg b/pics/511000531.jpg deleted file mode 100644 index 08d8f6c4..00000000 Binary files a/pics/511000531.jpg and /dev/null differ diff --git a/pics/511000532.jpg b/pics/511000532.jpg deleted file mode 100644 index d9b30c19..00000000 Binary files a/pics/511000532.jpg and /dev/null differ diff --git a/pics/511000533.jpg b/pics/511000533.jpg deleted file mode 100644 index b01ebd44..00000000 Binary files a/pics/511000533.jpg and /dev/null differ diff --git a/pics/511000534.jpg b/pics/511000534.jpg deleted file mode 100644 index 36860a8c..00000000 Binary files a/pics/511000534.jpg and /dev/null differ diff --git a/pics/511000535.jpg b/pics/511000535.jpg deleted file mode 100644 index 25f50080..00000000 Binary files a/pics/511000535.jpg and /dev/null differ diff --git a/pics/511000536.jpg b/pics/511000536.jpg deleted file mode 100644 index 3fb8e68e..00000000 Binary files a/pics/511000536.jpg and /dev/null differ diff --git a/pics/511000537.jpg b/pics/511000537.jpg deleted file mode 100755 index 6ea698a2..00000000 Binary files a/pics/511000537.jpg and /dev/null differ diff --git a/pics/511000538.jpg b/pics/511000538.jpg deleted file mode 100644 index fe2e1565..00000000 Binary files a/pics/511000538.jpg and /dev/null differ diff --git a/pics/511000539.jpg b/pics/511000539.jpg deleted file mode 100644 index 0116651c..00000000 Binary files a/pics/511000539.jpg and /dev/null differ diff --git a/pics/511000540.jpg b/pics/511000540.jpg deleted file mode 100644 index 22a126e3..00000000 Binary files a/pics/511000540.jpg and /dev/null differ diff --git a/pics/511000541.jpg b/pics/511000541.jpg deleted file mode 100644 index 014f3500..00000000 Binary files a/pics/511000541.jpg and /dev/null differ diff --git a/pics/511000542.jpg b/pics/511000542.jpg deleted file mode 100644 index 9f123a18..00000000 Binary files a/pics/511000542.jpg and /dev/null differ diff --git a/pics/511000543.jpg b/pics/511000543.jpg deleted file mode 100644 index 8fa17837..00000000 Binary files a/pics/511000543.jpg and /dev/null differ diff --git a/pics/511000544.jpg b/pics/511000544.jpg deleted file mode 100644 index 8f34b4e4..00000000 Binary files a/pics/511000544.jpg and /dev/null differ diff --git a/pics/511000545.jpg b/pics/511000545.jpg deleted file mode 100644 index 9dfff6ba..00000000 Binary files a/pics/511000545.jpg and /dev/null differ diff --git a/pics/511000546.jpg b/pics/511000546.jpg deleted file mode 100644 index 95327541..00000000 Binary files a/pics/511000546.jpg and /dev/null differ diff --git a/pics/511000548.jpg b/pics/511000548.jpg deleted file mode 100644 index a274e062..00000000 Binary files a/pics/511000548.jpg and /dev/null differ diff --git a/pics/511000549.jpg b/pics/511000549.jpg deleted file mode 100644 index 4d6d015a..00000000 Binary files a/pics/511000549.jpg and /dev/null differ diff --git a/pics/511000550.jpg b/pics/511000550.jpg deleted file mode 100644 index 7d4ab680..00000000 Binary files a/pics/511000550.jpg and /dev/null differ diff --git a/pics/511000551.jpg b/pics/511000551.jpg deleted file mode 100644 index ac0638ba..00000000 Binary files a/pics/511000551.jpg and /dev/null differ diff --git a/pics/511000552.jpg b/pics/511000552.jpg deleted file mode 100644 index 9d6346cf..00000000 Binary files a/pics/511000552.jpg and /dev/null differ diff --git a/pics/511000553.jpg b/pics/511000553.jpg deleted file mode 100644 index 44efc137..00000000 Binary files a/pics/511000553.jpg and /dev/null differ diff --git a/pics/511000554.jpg b/pics/511000554.jpg deleted file mode 100644 index ffb8d717..00000000 Binary files a/pics/511000554.jpg and /dev/null differ diff --git a/pics/511000555.jpg b/pics/511000555.jpg deleted file mode 100644 index e7641cbd..00000000 Binary files a/pics/511000555.jpg and /dev/null differ diff --git a/pics/511000556.jpg b/pics/511000556.jpg deleted file mode 100644 index b79209df..00000000 Binary files a/pics/511000556.jpg and /dev/null differ diff --git a/pics/511000557.jpg b/pics/511000557.jpg deleted file mode 100644 index 11f9be74..00000000 Binary files a/pics/511000557.jpg and /dev/null differ diff --git a/pics/511000558.jpg b/pics/511000558.jpg deleted file mode 100644 index 674c2b39..00000000 Binary files a/pics/511000558.jpg and /dev/null differ diff --git a/pics/511000576.jpg b/pics/511000576.jpg deleted file mode 100644 index ae1f3594..00000000 Binary files a/pics/511000576.jpg and /dev/null differ diff --git a/pics/511000577.jpg b/pics/511000577.jpg deleted file mode 100644 index d5afa55b..00000000 Binary files a/pics/511000577.jpg and /dev/null differ diff --git a/pics/511000578.jpg b/pics/511000578.jpg deleted file mode 100644 index bd7ac0d3..00000000 Binary files a/pics/511000578.jpg and /dev/null differ diff --git a/pics/511000579.jpg b/pics/511000579.jpg deleted file mode 100644 index 7e255c6b..00000000 Binary files a/pics/511000579.jpg and /dev/null differ diff --git a/pics/511000580.jpg b/pics/511000580.jpg deleted file mode 100644 index abd8633c..00000000 Binary files a/pics/511000580.jpg and /dev/null differ diff --git a/pics/511000581.jpg b/pics/511000581.jpg deleted file mode 100644 index 8eceddf5..00000000 Binary files a/pics/511000581.jpg and /dev/null differ diff --git a/pics/511000582.jpg b/pics/511000582.jpg deleted file mode 100644 index 78462729..00000000 Binary files a/pics/511000582.jpg and /dev/null differ diff --git a/pics/511000583.jpg b/pics/511000583.jpg deleted file mode 100644 index f95a554e..00000000 Binary files a/pics/511000583.jpg and /dev/null differ diff --git a/pics/511000584.jpg b/pics/511000584.jpg deleted file mode 100644 index dbecf8e9..00000000 Binary files a/pics/511000584.jpg and /dev/null differ diff --git a/pics/511000585.jpg b/pics/511000585.jpg deleted file mode 100644 index 36d5da91..00000000 Binary files a/pics/511000585.jpg and /dev/null differ diff --git a/pics/511000586.jpg b/pics/511000586.jpg deleted file mode 100644 index 4c8a2343..00000000 Binary files a/pics/511000586.jpg and /dev/null differ diff --git a/pics/511000587.jpg b/pics/511000587.jpg deleted file mode 100644 index 5d14fd83..00000000 Binary files a/pics/511000587.jpg and /dev/null differ diff --git a/pics/511000589.jpg b/pics/511000589.jpg deleted file mode 100644 index 4f2b724c..00000000 Binary files a/pics/511000589.jpg and /dev/null differ diff --git a/pics/511000592.jpg b/pics/511000592.jpg deleted file mode 100644 index 4327e5e3..00000000 Binary files a/pics/511000592.jpg and /dev/null differ diff --git a/pics/511000593.jpg b/pics/511000593.jpg deleted file mode 100644 index f0f79806..00000000 Binary files a/pics/511000593.jpg and /dev/null differ diff --git a/pics/511000594.jpg b/pics/511000594.jpg deleted file mode 100644 index c2f3dc0e..00000000 Binary files a/pics/511000594.jpg and /dev/null differ diff --git a/pics/511000595.jpg b/pics/511000595.jpg deleted file mode 100644 index a7df5fd6..00000000 Binary files a/pics/511000595.jpg and /dev/null differ diff --git a/pics/511000596.jpg b/pics/511000596.jpg deleted file mode 100644 index 9d63bcd6..00000000 Binary files a/pics/511000596.jpg and /dev/null differ diff --git a/pics/511000597.jpg b/pics/511000597.jpg deleted file mode 100644 index 1b8ffc09..00000000 Binary files a/pics/511000597.jpg and /dev/null differ diff --git a/pics/511000598.jpg b/pics/511000598.jpg deleted file mode 100644 index e290fcfa..00000000 Binary files a/pics/511000598.jpg and /dev/null differ diff --git a/pics/511000599.jpg b/pics/511000599.jpg deleted file mode 100644 index e5745d86..00000000 Binary files a/pics/511000599.jpg and /dev/null differ diff --git a/pics/511000600.jpg b/pics/511000600.jpg deleted file mode 100644 index b505b9aa..00000000 Binary files a/pics/511000600.jpg and /dev/null differ diff --git a/pics/511000601.jpg b/pics/511000601.jpg deleted file mode 100644 index f6e2eb31..00000000 Binary files a/pics/511000601.jpg and /dev/null differ diff --git a/pics/511000602.jpg b/pics/511000602.jpg deleted file mode 100644 index 538cbc40..00000000 Binary files a/pics/511000602.jpg and /dev/null differ diff --git a/pics/511000603.jpg b/pics/511000603.jpg deleted file mode 100644 index a56c0b06..00000000 Binary files a/pics/511000603.jpg and /dev/null differ diff --git a/pics/511000604.jpg b/pics/511000604.jpg deleted file mode 100755 index 5be696dd..00000000 Binary files a/pics/511000604.jpg and /dev/null differ diff --git a/pics/511000605.jpg b/pics/511000605.jpg deleted file mode 100644 index 1c32d704..00000000 Binary files a/pics/511000605.jpg and /dev/null differ diff --git a/pics/511000606.jpg b/pics/511000606.jpg deleted file mode 100644 index 4002b9fe..00000000 Binary files a/pics/511000606.jpg and /dev/null differ diff --git a/pics/511000607.jpg b/pics/511000607.jpg deleted file mode 100644 index 8e744e0b..00000000 Binary files a/pics/511000607.jpg and /dev/null differ diff --git a/pics/511000608.jpg b/pics/511000608.jpg deleted file mode 100644 index a0cae4b3..00000000 Binary files a/pics/511000608.jpg and /dev/null differ diff --git a/pics/511000609.jpg b/pics/511000609.jpg deleted file mode 100644 index ca909872..00000000 Binary files a/pics/511000609.jpg and /dev/null differ diff --git a/pics/511000610.jpg b/pics/511000610.jpg deleted file mode 100644 index b838187c..00000000 Binary files a/pics/511000610.jpg and /dev/null differ diff --git a/pics/511000611.jpg b/pics/511000611.jpg deleted file mode 100644 index 5569b1ee..00000000 Binary files a/pics/511000611.jpg and /dev/null differ diff --git a/pics/511000612.jpg b/pics/511000612.jpg deleted file mode 100644 index 89967dee..00000000 Binary files a/pics/511000612.jpg and /dev/null differ diff --git a/pics/511000613.jpg b/pics/511000613.jpg deleted file mode 100644 index 03df7a02..00000000 Binary files a/pics/511000613.jpg and /dev/null differ diff --git a/pics/511000614.jpg b/pics/511000614.jpg deleted file mode 100644 index 78c9a816..00000000 Binary files a/pics/511000614.jpg and /dev/null differ diff --git a/pics/511000615.jpg b/pics/511000615.jpg deleted file mode 100644 index d0f8ec6f..00000000 Binary files a/pics/511000615.jpg and /dev/null differ diff --git a/pics/511000616.jpg b/pics/511000616.jpg deleted file mode 100644 index 591d8557..00000000 Binary files a/pics/511000616.jpg and /dev/null differ diff --git a/pics/511000617.jpg b/pics/511000617.jpg deleted file mode 100644 index fcf9c91e..00000000 Binary files a/pics/511000617.jpg and /dev/null differ diff --git a/pics/511000618.jpg b/pics/511000618.jpg deleted file mode 100644 index 47f38d8c..00000000 Binary files a/pics/511000618.jpg and /dev/null differ diff --git a/pics/511000619.jpg b/pics/511000619.jpg deleted file mode 100644 index 83f3d77c..00000000 Binary files a/pics/511000619.jpg and /dev/null differ diff --git a/pics/511000620.jpg b/pics/511000620.jpg deleted file mode 100644 index 16fa911f..00000000 Binary files a/pics/511000620.jpg and /dev/null differ diff --git a/pics/511000621.jpg b/pics/511000621.jpg deleted file mode 100644 index 6cb70a4f..00000000 Binary files a/pics/511000621.jpg and /dev/null differ diff --git a/pics/511000622.jpg b/pics/511000622.jpg deleted file mode 100644 index e3b1c1b1..00000000 Binary files a/pics/511000622.jpg and /dev/null differ diff --git a/pics/511000623.jpg b/pics/511000623.jpg deleted file mode 100644 index 2eb50257..00000000 Binary files a/pics/511000623.jpg and /dev/null differ diff --git a/pics/511000624.jpg b/pics/511000624.jpg deleted file mode 100755 index 281696eb..00000000 Binary files a/pics/511000624.jpg and /dev/null differ diff --git a/pics/511000625.jpg b/pics/511000625.jpg deleted file mode 100644 index f21d95b7..00000000 Binary files a/pics/511000625.jpg and /dev/null differ diff --git a/pics/511000626.jpg b/pics/511000626.jpg deleted file mode 100644 index 756f7f85..00000000 Binary files a/pics/511000626.jpg and /dev/null differ diff --git a/pics/511000627.jpg b/pics/511000627.jpg deleted file mode 100644 index 30aea81f..00000000 Binary files a/pics/511000627.jpg and /dev/null differ diff --git a/pics/511000628.jpg b/pics/511000628.jpg deleted file mode 100644 index 53fa9493..00000000 Binary files a/pics/511000628.jpg and /dev/null differ diff --git a/pics/511000629.jpg b/pics/511000629.jpg deleted file mode 100644 index 3a1ae270..00000000 Binary files a/pics/511000629.jpg and /dev/null differ diff --git a/pics/511000630.jpg b/pics/511000630.jpg deleted file mode 100644 index 4571549b..00000000 Binary files a/pics/511000630.jpg and /dev/null differ diff --git a/pics/511000631.jpg b/pics/511000631.jpg deleted file mode 100644 index 79fcac84..00000000 Binary files a/pics/511000631.jpg and /dev/null differ diff --git a/pics/511000632.jpg b/pics/511000632.jpg deleted file mode 100644 index db6be7cc..00000000 Binary files a/pics/511000632.jpg and /dev/null differ diff --git a/pics/511000633.jpg b/pics/511000633.jpg deleted file mode 100644 index 60be95b5..00000000 Binary files a/pics/511000633.jpg and /dev/null differ diff --git a/pics/511000634.jpg b/pics/511000634.jpg deleted file mode 100644 index 6d3048db..00000000 Binary files a/pics/511000634.jpg and /dev/null differ diff --git a/pics/511000635.jpg b/pics/511000635.jpg deleted file mode 100644 index 5520eff2..00000000 Binary files a/pics/511000635.jpg and /dev/null differ diff --git a/pics/511000636.jpg b/pics/511000636.jpg deleted file mode 100644 index 800aee26..00000000 Binary files a/pics/511000636.jpg and /dev/null differ diff --git a/pics/511000637.jpg b/pics/511000637.jpg deleted file mode 100644 index a0f18612..00000000 Binary files a/pics/511000637.jpg and /dev/null differ diff --git a/pics/511000638.jpg b/pics/511000638.jpg deleted file mode 100644 index a3aac647..00000000 Binary files a/pics/511000638.jpg and /dev/null differ diff --git a/pics/511000639.jpg b/pics/511000639.jpg deleted file mode 100644 index 8cd9ed57..00000000 Binary files a/pics/511000639.jpg and /dev/null differ diff --git a/pics/511000640.jpg b/pics/511000640.jpg deleted file mode 100755 index 60feafe6..00000000 Binary files a/pics/511000640.jpg and /dev/null differ diff --git a/pics/511000641.jpg b/pics/511000641.jpg deleted file mode 100644 index 69b1090d..00000000 Binary files a/pics/511000641.jpg and /dev/null differ diff --git a/pics/511000642.jpg b/pics/511000642.jpg deleted file mode 100644 index c7131dcf..00000000 Binary files a/pics/511000642.jpg and /dev/null differ diff --git a/pics/511000643.jpg b/pics/511000643.jpg deleted file mode 100644 index 6f2db500..00000000 Binary files a/pics/511000643.jpg and /dev/null differ diff --git a/pics/511000644.jpg b/pics/511000644.jpg deleted file mode 100644 index f31bbb73..00000000 Binary files a/pics/511000644.jpg and /dev/null differ diff --git a/pics/511000645.jpg b/pics/511000645.jpg deleted file mode 100644 index 03dc69e0..00000000 Binary files a/pics/511000645.jpg and /dev/null differ diff --git a/pics/511000646.jpg b/pics/511000646.jpg deleted file mode 100644 index 5898f63d..00000000 Binary files a/pics/511000646.jpg and /dev/null differ diff --git a/pics/511000647.jpg b/pics/511000647.jpg deleted file mode 100644 index b94b19bb..00000000 Binary files a/pics/511000647.jpg and /dev/null differ diff --git a/pics/511000648.jpg b/pics/511000648.jpg deleted file mode 100644 index a91456dd..00000000 Binary files a/pics/511000648.jpg and /dev/null differ diff --git a/pics/511000649.jpg b/pics/511000649.jpg deleted file mode 100644 index e0b74786..00000000 Binary files a/pics/511000649.jpg and /dev/null differ diff --git a/pics/511000650.jpg b/pics/511000650.jpg deleted file mode 100644 index 05fc2bfe..00000000 Binary files a/pics/511000650.jpg and /dev/null differ diff --git a/pics/511000651.jpg b/pics/511000651.jpg deleted file mode 100644 index cd35da96..00000000 Binary files a/pics/511000651.jpg and /dev/null differ diff --git a/pics/511000652.jpg b/pics/511000652.jpg deleted file mode 100644 index 5ea2d9bf..00000000 Binary files a/pics/511000652.jpg and /dev/null differ diff --git a/pics/511000653.jpg b/pics/511000653.jpg deleted file mode 100644 index 6d2dc65a..00000000 Binary files a/pics/511000653.jpg and /dev/null differ diff --git a/pics/511000654.jpg b/pics/511000654.jpg deleted file mode 100644 index ccffc6c4..00000000 Binary files a/pics/511000654.jpg and /dev/null differ diff --git a/pics/511000655.jpg b/pics/511000655.jpg deleted file mode 100644 index 3b9c297c..00000000 Binary files a/pics/511000655.jpg and /dev/null differ diff --git a/pics/511000656.jpg b/pics/511000656.jpg deleted file mode 100644 index ed73d2c5..00000000 Binary files a/pics/511000656.jpg and /dev/null differ diff --git a/pics/511000657.jpg b/pics/511000657.jpg deleted file mode 100644 index ab18ade4..00000000 Binary files a/pics/511000657.jpg and /dev/null differ diff --git a/pics/511000658.jpg b/pics/511000658.jpg deleted file mode 100644 index 060cea45..00000000 Binary files a/pics/511000658.jpg and /dev/null differ diff --git a/pics/511000659.jpg b/pics/511000659.jpg deleted file mode 100644 index fb368c6f..00000000 Binary files a/pics/511000659.jpg and /dev/null differ diff --git a/pics/511000660.jpg b/pics/511000660.jpg deleted file mode 100644 index 301938d6..00000000 Binary files a/pics/511000660.jpg and /dev/null differ diff --git a/pics/511000661.jpg b/pics/511000661.jpg deleted file mode 100644 index 1021bf63..00000000 Binary files a/pics/511000661.jpg and /dev/null differ diff --git a/pics/511000662.jpg b/pics/511000662.jpg deleted file mode 100644 index 41bd5778..00000000 Binary files a/pics/511000662.jpg and /dev/null differ diff --git a/pics/511000664.jpg b/pics/511000664.jpg deleted file mode 100644 index 8ffefa40..00000000 Binary files a/pics/511000664.jpg and /dev/null differ diff --git a/pics/511000665.jpg b/pics/511000665.jpg deleted file mode 100644 index b1f49223..00000000 Binary files a/pics/511000665.jpg and /dev/null differ diff --git a/pics/511000666.jpg b/pics/511000666.jpg deleted file mode 100644 index 3cbefdd1..00000000 Binary files a/pics/511000666.jpg and /dev/null differ diff --git a/pics/511000667.jpg b/pics/511000667.jpg deleted file mode 100644 index 69d72e79..00000000 Binary files a/pics/511000667.jpg and /dev/null differ diff --git a/pics/511000668.jpg b/pics/511000668.jpg deleted file mode 100644 index 7aefca5e..00000000 Binary files a/pics/511000668.jpg and /dev/null differ diff --git a/pics/511000669.jpg b/pics/511000669.jpg deleted file mode 100644 index 2c82edb6..00000000 Binary files a/pics/511000669.jpg and /dev/null differ diff --git a/pics/511000670.jpg b/pics/511000670.jpg deleted file mode 100644 index 3c4c422e..00000000 Binary files a/pics/511000670.jpg and /dev/null differ diff --git a/pics/511000671.jpg b/pics/511000671.jpg deleted file mode 100644 index e2b897d0..00000000 Binary files a/pics/511000671.jpg and /dev/null differ diff --git a/pics/511000672.jpg b/pics/511000672.jpg deleted file mode 100644 index 31750802..00000000 Binary files a/pics/511000672.jpg and /dev/null differ diff --git a/pics/511000673.jpg b/pics/511000673.jpg deleted file mode 100644 index 7aa0430f..00000000 Binary files a/pics/511000673.jpg and /dev/null differ diff --git a/pics/511000674.jpg b/pics/511000674.jpg deleted file mode 100644 index 9bf14eaa..00000000 Binary files a/pics/511000674.jpg and /dev/null differ diff --git a/pics/511000675.jpg b/pics/511000675.jpg deleted file mode 100644 index ae777306..00000000 Binary files a/pics/511000675.jpg and /dev/null differ diff --git a/pics/511000676.jpg b/pics/511000676.jpg deleted file mode 100644 index a747305d..00000000 Binary files a/pics/511000676.jpg and /dev/null differ diff --git a/pics/511000677.jpg b/pics/511000677.jpg deleted file mode 100644 index 3249c8f8..00000000 Binary files a/pics/511000677.jpg and /dev/null differ diff --git a/pics/511000678.jpg b/pics/511000678.jpg deleted file mode 100644 index 97fdbfb3..00000000 Binary files a/pics/511000678.jpg and /dev/null differ diff --git a/pics/511000679.jpg b/pics/511000679.jpg deleted file mode 100644 index e788972e..00000000 Binary files a/pics/511000679.jpg and /dev/null differ diff --git a/pics/511000680.jpg b/pics/511000680.jpg deleted file mode 100644 index d7f679b5..00000000 Binary files a/pics/511000680.jpg and /dev/null differ diff --git a/pics/511000681.jpg b/pics/511000681.jpg deleted file mode 100644 index 4594c965..00000000 Binary files a/pics/511000681.jpg and /dev/null differ diff --git a/pics/511000682.jpg b/pics/511000682.jpg deleted file mode 100644 index e33fffe6..00000000 Binary files a/pics/511000682.jpg and /dev/null differ diff --git a/pics/511000683.jpg b/pics/511000683.jpg deleted file mode 100644 index f90b95a9..00000000 Binary files a/pics/511000683.jpg and /dev/null differ diff --git a/pics/511000684.jpg b/pics/511000684.jpg deleted file mode 100644 index 452a1dce..00000000 Binary files a/pics/511000684.jpg and /dev/null differ diff --git a/pics/511000685.jpg b/pics/511000685.jpg deleted file mode 100644 index 3666383d..00000000 Binary files a/pics/511000685.jpg and /dev/null differ diff --git a/pics/511000686.jpg b/pics/511000686.jpg deleted file mode 100644 index 18538bab..00000000 Binary files a/pics/511000686.jpg and /dev/null differ diff --git a/pics/511000687.jpg b/pics/511000687.jpg deleted file mode 100644 index ff0167f7..00000000 Binary files a/pics/511000687.jpg and /dev/null differ diff --git a/pics/511000688.jpg b/pics/511000688.jpg deleted file mode 100644 index 3882b145..00000000 Binary files a/pics/511000688.jpg and /dev/null differ diff --git a/pics/511000689.jpg b/pics/511000689.jpg deleted file mode 100644 index 4f95e665..00000000 Binary files a/pics/511000689.jpg and /dev/null differ diff --git a/pics/511000690.jpg b/pics/511000690.jpg deleted file mode 100644 index 8e70d717..00000000 Binary files a/pics/511000690.jpg and /dev/null differ diff --git a/pics/511000691.jpg b/pics/511000691.jpg deleted file mode 100644 index 8ece518f..00000000 Binary files a/pics/511000691.jpg and /dev/null differ diff --git a/pics/511000692.jpg b/pics/511000692.jpg deleted file mode 100644 index 8ef15355..00000000 Binary files a/pics/511000692.jpg and /dev/null differ diff --git a/pics/511000693.jpg b/pics/511000693.jpg deleted file mode 100644 index c03a0691..00000000 Binary files a/pics/511000693.jpg and /dev/null differ diff --git a/pics/511000694.jpg b/pics/511000694.jpg deleted file mode 100644 index be79f496..00000000 Binary files a/pics/511000694.jpg and /dev/null differ diff --git a/pics/511000695.jpg b/pics/511000695.jpg deleted file mode 100644 index 1ab5f81f..00000000 Binary files a/pics/511000695.jpg and /dev/null differ diff --git a/pics/511000696.jpg b/pics/511000696.jpg deleted file mode 100644 index 62c69f31..00000000 Binary files a/pics/511000696.jpg and /dev/null differ diff --git a/pics/511000697.jpg b/pics/511000697.jpg deleted file mode 100644 index 856dcbef..00000000 Binary files a/pics/511000697.jpg and /dev/null differ diff --git a/pics/511000698.jpg b/pics/511000698.jpg deleted file mode 100644 index c39e5fb6..00000000 Binary files a/pics/511000698.jpg and /dev/null differ diff --git a/pics/511000699.jpg b/pics/511000699.jpg deleted file mode 100644 index 5d9d07a2..00000000 Binary files a/pics/511000699.jpg and /dev/null differ diff --git a/pics/511000700.jpg b/pics/511000700.jpg deleted file mode 100644 index 92193787..00000000 Binary files a/pics/511000700.jpg and /dev/null differ diff --git a/pics/511000701.jpg b/pics/511000701.jpg deleted file mode 100644 index eab316cc..00000000 Binary files a/pics/511000701.jpg and /dev/null differ diff --git a/pics/511000702.jpg b/pics/511000702.jpg deleted file mode 100644 index 5c3dedc7..00000000 Binary files a/pics/511000702.jpg and /dev/null differ diff --git a/pics/511000703.jpg b/pics/511000703.jpg deleted file mode 100644 index 1fdfb60e..00000000 Binary files a/pics/511000703.jpg and /dev/null differ diff --git a/pics/511000704.jpg b/pics/511000704.jpg deleted file mode 100644 index 680520eb..00000000 Binary files a/pics/511000704.jpg and /dev/null differ diff --git a/pics/511000705.jpg b/pics/511000705.jpg deleted file mode 100644 index e840bddd..00000000 Binary files a/pics/511000705.jpg and /dev/null differ diff --git a/pics/511000706.jpg b/pics/511000706.jpg deleted file mode 100644 index 0247bf51..00000000 Binary files a/pics/511000706.jpg and /dev/null differ diff --git a/pics/511000707.jpg b/pics/511000707.jpg deleted file mode 100644 index 25e182de..00000000 Binary files a/pics/511000707.jpg and /dev/null differ diff --git a/pics/511000708.jpg b/pics/511000708.jpg deleted file mode 100644 index 95cf7e95..00000000 Binary files a/pics/511000708.jpg and /dev/null differ diff --git a/pics/511000709.jpg b/pics/511000709.jpg deleted file mode 100644 index 3d6b82e2..00000000 Binary files a/pics/511000709.jpg and /dev/null differ diff --git a/pics/511000710.jpg b/pics/511000710.jpg deleted file mode 100644 index fa472798..00000000 Binary files a/pics/511000710.jpg and /dev/null differ diff --git a/pics/511000711.jpg b/pics/511000711.jpg deleted file mode 100644 index 8622a595..00000000 Binary files a/pics/511000711.jpg and /dev/null differ diff --git a/pics/511000712.jpg b/pics/511000712.jpg deleted file mode 100644 index 116406bc..00000000 Binary files a/pics/511000712.jpg and /dev/null differ diff --git a/pics/511000713.jpg b/pics/511000713.jpg deleted file mode 100644 index 3087e05b..00000000 Binary files a/pics/511000713.jpg and /dev/null differ diff --git a/pics/511000714.jpg b/pics/511000714.jpg deleted file mode 100644 index 09b93778..00000000 Binary files a/pics/511000714.jpg and /dev/null differ diff --git a/pics/511000715.jpg b/pics/511000715.jpg deleted file mode 100644 index 04c872db..00000000 Binary files a/pics/511000715.jpg and /dev/null differ diff --git a/pics/511000716.jpg b/pics/511000716.jpg deleted file mode 100755 index e2e43327..00000000 Binary files a/pics/511000716.jpg and /dev/null differ diff --git a/pics/511000717.jpg b/pics/511000717.jpg deleted file mode 100644 index 99ced9b5..00000000 Binary files a/pics/511000717.jpg and /dev/null differ diff --git a/pics/511000718.jpg b/pics/511000718.jpg deleted file mode 100644 index f2b2347c..00000000 Binary files a/pics/511000718.jpg and /dev/null differ diff --git a/pics/511000719.jpg b/pics/511000719.jpg deleted file mode 100644 index 7e4539d5..00000000 Binary files a/pics/511000719.jpg and /dev/null differ diff --git a/pics/511000720.jpg b/pics/511000720.jpg deleted file mode 100644 index 300a7a4b..00000000 Binary files a/pics/511000720.jpg and /dev/null differ diff --git a/pics/511000721.jpg b/pics/511000721.jpg deleted file mode 100755 index 03a257b3..00000000 Binary files a/pics/511000721.jpg and /dev/null differ diff --git a/pics/511000722.jpg b/pics/511000722.jpg deleted file mode 100644 index 40dab0e6..00000000 Binary files a/pics/511000722.jpg and /dev/null differ diff --git a/pics/511000723.jpg b/pics/511000723.jpg deleted file mode 100644 index 766ed05a..00000000 Binary files a/pics/511000723.jpg and /dev/null differ diff --git a/pics/511000724.jpg b/pics/511000724.jpg deleted file mode 100644 index 9ed5055c..00000000 Binary files a/pics/511000724.jpg and /dev/null differ diff --git a/pics/511000725.jpg b/pics/511000725.jpg deleted file mode 100644 index 0425ebd4..00000000 Binary files a/pics/511000725.jpg and /dev/null differ diff --git a/pics/511000726.jpg b/pics/511000726.jpg deleted file mode 100755 index 43ca6f70..00000000 Binary files a/pics/511000726.jpg and /dev/null differ diff --git a/pics/511000727.jpg b/pics/511000727.jpg deleted file mode 100644 index 2025c3c2..00000000 Binary files a/pics/511000727.jpg and /dev/null differ diff --git a/pics/511000728.jpg b/pics/511000728.jpg deleted file mode 100644 index a1c358bc..00000000 Binary files a/pics/511000728.jpg and /dev/null differ diff --git a/pics/511000729.jpg b/pics/511000729.jpg deleted file mode 100644 index c057f869..00000000 Binary files a/pics/511000729.jpg and /dev/null differ diff --git a/pics/511000730.jpg b/pics/511000730.jpg deleted file mode 100644 index 4a95a64d..00000000 Binary files a/pics/511000730.jpg and /dev/null differ diff --git a/pics/511000731.jpg b/pics/511000731.jpg deleted file mode 100644 index 5af5f470..00000000 Binary files a/pics/511000731.jpg and /dev/null differ diff --git a/pics/511000732.jpg b/pics/511000732.jpg deleted file mode 100644 index d32c9cf2..00000000 Binary files a/pics/511000732.jpg and /dev/null differ diff --git a/pics/511000733.jpg b/pics/511000733.jpg deleted file mode 100644 index fea822f4..00000000 Binary files a/pics/511000733.jpg and /dev/null differ diff --git a/pics/511000734.jpg b/pics/511000734.jpg deleted file mode 100644 index 10023c2f..00000000 Binary files a/pics/511000734.jpg and /dev/null differ diff --git a/pics/511000735.jpg b/pics/511000735.jpg deleted file mode 100644 index 792aa3d8..00000000 Binary files a/pics/511000735.jpg and /dev/null differ diff --git a/pics/511000736.jpg b/pics/511000736.jpg deleted file mode 100644 index 8db3449a..00000000 Binary files a/pics/511000736.jpg and /dev/null differ diff --git a/pics/511000737.jpg b/pics/511000737.jpg deleted file mode 100644 index 0f0b0182..00000000 Binary files a/pics/511000737.jpg and /dev/null differ diff --git a/pics/511000738.jpg b/pics/511000738.jpg deleted file mode 100644 index 94346432..00000000 Binary files a/pics/511000738.jpg and /dev/null differ diff --git a/pics/511000739.jpg b/pics/511000739.jpg deleted file mode 100644 index 8d1dd3ab..00000000 Binary files a/pics/511000739.jpg and /dev/null differ diff --git a/pics/511000740.jpg b/pics/511000740.jpg deleted file mode 100644 index 1a82f92a..00000000 Binary files a/pics/511000740.jpg and /dev/null differ diff --git a/pics/511000741.jpg b/pics/511000741.jpg deleted file mode 100644 index e2c4cc9d..00000000 Binary files a/pics/511000741.jpg and /dev/null differ diff --git a/pics/511000742.jpg b/pics/511000742.jpg deleted file mode 100644 index faf5ff09..00000000 Binary files a/pics/511000742.jpg and /dev/null differ diff --git a/pics/511000743.jpg b/pics/511000743.jpg deleted file mode 100644 index 12a82393..00000000 Binary files a/pics/511000743.jpg and /dev/null differ diff --git a/pics/511000744.jpg b/pics/511000744.jpg deleted file mode 100644 index af82b03c..00000000 Binary files a/pics/511000744.jpg and /dev/null differ diff --git a/pics/511000745.jpg b/pics/511000745.jpg deleted file mode 100644 index ee9adeef..00000000 Binary files a/pics/511000745.jpg and /dev/null differ diff --git a/pics/511000746.jpg b/pics/511000746.jpg deleted file mode 100644 index 79a02eb1..00000000 Binary files a/pics/511000746.jpg and /dev/null differ diff --git a/pics/511000747.jpg b/pics/511000747.jpg deleted file mode 100644 index 240633de..00000000 Binary files a/pics/511000747.jpg and /dev/null differ diff --git a/pics/511000748.jpg b/pics/511000748.jpg deleted file mode 100644 index bc355f21..00000000 Binary files a/pics/511000748.jpg and /dev/null differ diff --git a/pics/511000749.jpg b/pics/511000749.jpg deleted file mode 100644 index b4445357..00000000 Binary files a/pics/511000749.jpg and /dev/null differ diff --git a/pics/511000750.jpg b/pics/511000750.jpg deleted file mode 100644 index 47ffe866..00000000 Binary files a/pics/511000750.jpg and /dev/null differ diff --git a/pics/511000751.jpg b/pics/511000751.jpg deleted file mode 100644 index 725c61d4..00000000 Binary files a/pics/511000751.jpg and /dev/null differ diff --git a/pics/511000752.jpg b/pics/511000752.jpg deleted file mode 100644 index bfd97807..00000000 Binary files a/pics/511000752.jpg and /dev/null differ diff --git a/pics/511000753.jpg b/pics/511000753.jpg deleted file mode 100644 index 3b7bba23..00000000 Binary files a/pics/511000753.jpg and /dev/null differ diff --git a/pics/511000754.jpg b/pics/511000754.jpg deleted file mode 100644 index 7bac0fca..00000000 Binary files a/pics/511000754.jpg and /dev/null differ diff --git a/pics/511000755.jpg b/pics/511000755.jpg deleted file mode 100644 index 18cab899..00000000 Binary files a/pics/511000755.jpg and /dev/null differ diff --git a/pics/511000756.jpg b/pics/511000756.jpg deleted file mode 100644 index f48de0a8..00000000 Binary files a/pics/511000756.jpg and /dev/null differ diff --git a/pics/511000757.jpg b/pics/511000757.jpg deleted file mode 100644 index dc9694a9..00000000 Binary files a/pics/511000757.jpg and /dev/null differ diff --git a/pics/511000758.jpg b/pics/511000758.jpg deleted file mode 100644 index e0333ef3..00000000 Binary files a/pics/511000758.jpg and /dev/null differ diff --git a/pics/511000759.jpg b/pics/511000759.jpg deleted file mode 100644 index 3f62d46c..00000000 Binary files a/pics/511000759.jpg and /dev/null differ diff --git a/pics/511000760.jpg b/pics/511000760.jpg deleted file mode 100644 index f2e7c8a8..00000000 Binary files a/pics/511000760.jpg and /dev/null differ diff --git a/pics/511000761.jpg b/pics/511000761.jpg deleted file mode 100644 index 563ca03b..00000000 Binary files a/pics/511000761.jpg and /dev/null differ diff --git a/pics/511000762.jpg b/pics/511000762.jpg deleted file mode 100644 index 0aa5f92c..00000000 Binary files a/pics/511000762.jpg and /dev/null differ diff --git a/pics/511000763.jpg b/pics/511000763.jpg deleted file mode 100644 index 746fb67d..00000000 Binary files a/pics/511000763.jpg and /dev/null differ diff --git a/pics/511000764.jpg b/pics/511000764.jpg deleted file mode 100644 index 5833b242..00000000 Binary files a/pics/511000764.jpg and /dev/null differ diff --git a/pics/511000765.jpg b/pics/511000765.jpg deleted file mode 100644 index 19714e4c..00000000 Binary files a/pics/511000765.jpg and /dev/null differ diff --git a/pics/511000767.jpg b/pics/511000767.jpg deleted file mode 100644 index 5bc0b5a7..00000000 Binary files a/pics/511000767.jpg and /dev/null differ diff --git a/pics/511000769.jpg b/pics/511000769.jpg deleted file mode 100644 index 93ef4029..00000000 Binary files a/pics/511000769.jpg and /dev/null differ diff --git a/pics/511000770.jpg b/pics/511000770.jpg deleted file mode 100644 index 36cba563..00000000 Binary files a/pics/511000770.jpg and /dev/null differ diff --git a/pics/511000772.jpg b/pics/511000772.jpg deleted file mode 100644 index 91cb9b05..00000000 Binary files a/pics/511000772.jpg and /dev/null differ diff --git a/pics/511000773.jpg b/pics/511000773.jpg deleted file mode 100755 index 9e233057..00000000 Binary files a/pics/511000773.jpg and /dev/null differ diff --git a/pics/511000774.jpg b/pics/511000774.jpg deleted file mode 100644 index 6e701165..00000000 Binary files a/pics/511000774.jpg and /dev/null differ diff --git a/pics/511000775.jpg b/pics/511000775.jpg deleted file mode 100644 index 6f965069..00000000 Binary files a/pics/511000775.jpg and /dev/null differ diff --git a/pics/511000776.jpg b/pics/511000776.jpg deleted file mode 100644 index 027f24e9..00000000 Binary files a/pics/511000776.jpg and /dev/null differ diff --git a/pics/511000777.jpg b/pics/511000777.jpg deleted file mode 100644 index d21f35ac..00000000 Binary files a/pics/511000777.jpg and /dev/null differ diff --git a/pics/511000778.jpg b/pics/511000778.jpg deleted file mode 100644 index d6a218b3..00000000 Binary files a/pics/511000778.jpg and /dev/null differ diff --git a/pics/511000779.jpg b/pics/511000779.jpg deleted file mode 100644 index c6970052..00000000 Binary files a/pics/511000779.jpg and /dev/null differ diff --git a/pics/511000780.jpg b/pics/511000780.jpg deleted file mode 100644 index a1616f73..00000000 Binary files a/pics/511000780.jpg and /dev/null differ diff --git a/pics/511000781.jpg b/pics/511000781.jpg deleted file mode 100644 index 572e49c7..00000000 Binary files a/pics/511000781.jpg and /dev/null differ diff --git a/pics/511000782.jpg b/pics/511000782.jpg deleted file mode 100644 index 322e8590..00000000 Binary files a/pics/511000782.jpg and /dev/null differ diff --git a/pics/511000783.jpg b/pics/511000783.jpg deleted file mode 100644 index d64a26a9..00000000 Binary files a/pics/511000783.jpg and /dev/null differ diff --git a/pics/511000784.jpg b/pics/511000784.jpg deleted file mode 100644 index c467be8a..00000000 Binary files a/pics/511000784.jpg and /dev/null differ diff --git a/pics/511000785.jpg b/pics/511000785.jpg deleted file mode 100644 index 55a8c628..00000000 Binary files a/pics/511000785.jpg and /dev/null differ diff --git a/pics/511000786.jpg b/pics/511000786.jpg deleted file mode 100644 index 00cb0543..00000000 Binary files a/pics/511000786.jpg and /dev/null differ diff --git a/pics/511000787.jpg b/pics/511000787.jpg deleted file mode 100644 index a06ad4c9..00000000 Binary files a/pics/511000787.jpg and /dev/null differ diff --git a/pics/511000788.jpg b/pics/511000788.jpg deleted file mode 100644 index 339f9a3c..00000000 Binary files a/pics/511000788.jpg and /dev/null differ diff --git a/pics/511000789.jpg b/pics/511000789.jpg deleted file mode 100644 index bf781aef..00000000 Binary files a/pics/511000789.jpg and /dev/null differ diff --git a/pics/511000790.jpg b/pics/511000790.jpg deleted file mode 100644 index 37554969..00000000 Binary files a/pics/511000790.jpg and /dev/null differ diff --git a/pics/511000791.jpg b/pics/511000791.jpg deleted file mode 100644 index c923bc74..00000000 Binary files a/pics/511000791.jpg and /dev/null differ diff --git a/pics/511000792.jpg b/pics/511000792.jpg deleted file mode 100644 index 24846855..00000000 Binary files a/pics/511000792.jpg and /dev/null differ diff --git a/pics/511000793.jpg b/pics/511000793.jpg deleted file mode 100644 index f9b1adc6..00000000 Binary files a/pics/511000793.jpg and /dev/null differ diff --git a/pics/511000794.jpg b/pics/511000794.jpg deleted file mode 100644 index 10cd8638..00000000 Binary files a/pics/511000794.jpg and /dev/null differ diff --git a/pics/511000795.jpg b/pics/511000795.jpg deleted file mode 100644 index 592939a9..00000000 Binary files a/pics/511000795.jpg and /dev/null differ diff --git a/pics/511000796.jpg b/pics/511000796.jpg deleted file mode 100644 index 11328b67..00000000 Binary files a/pics/511000796.jpg and /dev/null differ diff --git a/pics/511000797.jpg b/pics/511000797.jpg deleted file mode 100644 index 7c21d919..00000000 Binary files a/pics/511000797.jpg and /dev/null differ diff --git a/pics/511000798.jpg b/pics/511000798.jpg deleted file mode 100644 index f572ff94..00000000 Binary files a/pics/511000798.jpg and /dev/null differ diff --git a/pics/511000799.jpg b/pics/511000799.jpg deleted file mode 100644 index 0786242d..00000000 Binary files a/pics/511000799.jpg and /dev/null differ diff --git a/pics/511000800.jpg b/pics/511000800.jpg deleted file mode 100644 index fc9be16a..00000000 Binary files a/pics/511000800.jpg and /dev/null differ diff --git a/pics/511000801.jpg b/pics/511000801.jpg deleted file mode 100644 index 805d9e30..00000000 Binary files a/pics/511000801.jpg and /dev/null differ diff --git a/pics/511000802.jpg b/pics/511000802.jpg deleted file mode 100644 index d44997d2..00000000 Binary files a/pics/511000802.jpg and /dev/null differ diff --git a/pics/511000803.jpg b/pics/511000803.jpg deleted file mode 100644 index d13683a5..00000000 Binary files a/pics/511000803.jpg and /dev/null differ diff --git a/pics/511000804.jpg b/pics/511000804.jpg deleted file mode 100644 index f8eb435e..00000000 Binary files a/pics/511000804.jpg and /dev/null differ diff --git a/pics/511000805.jpg b/pics/511000805.jpg deleted file mode 100644 index d942cfa0..00000000 Binary files a/pics/511000805.jpg and /dev/null differ diff --git a/pics/511000806.jpg b/pics/511000806.jpg deleted file mode 100644 index 2f615fd8..00000000 Binary files a/pics/511000806.jpg and /dev/null differ diff --git a/pics/511000807.jpg b/pics/511000807.jpg deleted file mode 100644 index 6159ce2e..00000000 Binary files a/pics/511000807.jpg and /dev/null differ diff --git a/pics/511000808.jpg b/pics/511000808.jpg deleted file mode 100644 index 42a0d8a9..00000000 Binary files a/pics/511000808.jpg and /dev/null differ diff --git a/pics/511000809.jpg b/pics/511000809.jpg deleted file mode 100644 index ec8f7fb1..00000000 Binary files a/pics/511000809.jpg and /dev/null differ diff --git a/pics/511000810.jpg b/pics/511000810.jpg deleted file mode 100644 index 4ed41891..00000000 Binary files a/pics/511000810.jpg and /dev/null differ diff --git a/pics/511000811.jpg b/pics/511000811.jpg deleted file mode 100644 index 4462e714..00000000 Binary files a/pics/511000811.jpg and /dev/null differ diff --git a/pics/511000812.jpg b/pics/511000812.jpg deleted file mode 100644 index 80098c09..00000000 Binary files a/pics/511000812.jpg and /dev/null differ diff --git a/pics/511000813.jpg b/pics/511000813.jpg deleted file mode 100644 index 741d6bae..00000000 Binary files a/pics/511000813.jpg and /dev/null differ diff --git a/pics/511000814.jpg b/pics/511000814.jpg deleted file mode 100644 index fc7dcbd6..00000000 Binary files a/pics/511000814.jpg and /dev/null differ diff --git a/pics/511000815.jpg b/pics/511000815.jpg deleted file mode 100644 index b849b69c..00000000 Binary files a/pics/511000815.jpg and /dev/null differ diff --git a/pics/511000816.jpg b/pics/511000816.jpg deleted file mode 100644 index 77b61df7..00000000 Binary files a/pics/511000816.jpg and /dev/null differ diff --git a/pics/511000817.jpg b/pics/511000817.jpg deleted file mode 100644 index b6564b8b..00000000 Binary files a/pics/511000817.jpg and /dev/null differ diff --git a/pics/511000818.jpg b/pics/511000818.jpg deleted file mode 100644 index bb4a34b3..00000000 Binary files a/pics/511000818.jpg and /dev/null differ diff --git a/pics/511000819.jpg b/pics/511000819.jpg deleted file mode 100644 index 20100af1..00000000 Binary files a/pics/511000819.jpg and /dev/null differ diff --git a/pics/511000820.jpg b/pics/511000820.jpg deleted file mode 100644 index c12005df..00000000 Binary files a/pics/511000820.jpg and /dev/null differ diff --git a/pics/511000821.jpg b/pics/511000821.jpg deleted file mode 100644 index d2950f65..00000000 Binary files a/pics/511000821.jpg and /dev/null differ diff --git a/pics/511000822.jpg b/pics/511000822.jpg deleted file mode 100644 index ce58659b..00000000 Binary files a/pics/511000822.jpg and /dev/null differ diff --git a/pics/511000823.jpg b/pics/511000823.jpg deleted file mode 100644 index 2c19adcb..00000000 Binary files a/pics/511000823.jpg and /dev/null differ diff --git a/pics/511000824.jpg b/pics/511000824.jpg deleted file mode 100644 index 05409681..00000000 Binary files a/pics/511000824.jpg and /dev/null differ diff --git a/pics/511000825.jpg b/pics/511000825.jpg deleted file mode 100644 index 1e18068e..00000000 Binary files a/pics/511000825.jpg and /dev/null differ diff --git a/pics/511000826.jpg b/pics/511000826.jpg deleted file mode 100644 index de505525..00000000 Binary files a/pics/511000826.jpg and /dev/null differ diff --git a/pics/511000827.jpg b/pics/511000827.jpg deleted file mode 100644 index 29a9a2e6..00000000 Binary files a/pics/511000827.jpg and /dev/null differ diff --git a/pics/511000828.jpg b/pics/511000828.jpg deleted file mode 100644 index a04ec0b4..00000000 Binary files a/pics/511000828.jpg and /dev/null differ diff --git a/pics/511000829.jpg b/pics/511000829.jpg deleted file mode 100755 index ad4d5fb0..00000000 Binary files a/pics/511000829.jpg and /dev/null differ diff --git a/pics/511000830.jpg b/pics/511000830.jpg deleted file mode 100644 index 84fc039f..00000000 Binary files a/pics/511000830.jpg and /dev/null differ diff --git a/pics/511000831.jpg b/pics/511000831.jpg deleted file mode 100644 index 770e7c3b..00000000 Binary files a/pics/511000831.jpg and /dev/null differ diff --git a/pics/511000832.jpg b/pics/511000832.jpg deleted file mode 100644 index 14f52ef8..00000000 Binary files a/pics/511000832.jpg and /dev/null differ diff --git a/pics/511000833.jpg b/pics/511000833.jpg deleted file mode 100644 index 5e9b9dc9..00000000 Binary files a/pics/511000833.jpg and /dev/null differ diff --git a/pics/511000834.jpg b/pics/511000834.jpg deleted file mode 100644 index d0a938ec..00000000 Binary files a/pics/511000834.jpg and /dev/null differ diff --git a/pics/511000835.jpg b/pics/511000835.jpg deleted file mode 100644 index 188cf11e..00000000 Binary files a/pics/511000835.jpg and /dev/null differ diff --git a/pics/511000836.jpg b/pics/511000836.jpg deleted file mode 100755 index 80a64f83..00000000 Binary files a/pics/511000836.jpg and /dev/null differ diff --git a/pics/511000837.jpg b/pics/511000837.jpg deleted file mode 100644 index ef898326..00000000 Binary files a/pics/511000837.jpg and /dev/null differ diff --git a/pics/511000838.jpg b/pics/511000838.jpg deleted file mode 100644 index ee86fcf0..00000000 Binary files a/pics/511000838.jpg and /dev/null differ diff --git a/pics/511000839.jpg b/pics/511000839.jpg deleted file mode 100644 index cf2e8402..00000000 Binary files a/pics/511000839.jpg and /dev/null differ diff --git a/pics/511000840.jpg b/pics/511000840.jpg deleted file mode 100755 index 452bac19..00000000 Binary files a/pics/511000840.jpg and /dev/null differ diff --git a/pics/511000841.jpg b/pics/511000841.jpg deleted file mode 100644 index 561958d4..00000000 Binary files a/pics/511000841.jpg and /dev/null differ diff --git a/pics/511000842.jpg b/pics/511000842.jpg deleted file mode 100644 index d9e11663..00000000 Binary files a/pics/511000842.jpg and /dev/null differ diff --git a/pics/511000843.jpg b/pics/511000843.jpg deleted file mode 100644 index 3b2b637e..00000000 Binary files a/pics/511000843.jpg and /dev/null differ diff --git a/pics/511000844.jpg b/pics/511000844.jpg deleted file mode 100644 index c2439d93..00000000 Binary files a/pics/511000844.jpg and /dev/null differ diff --git a/pics/511000845.jpg b/pics/511000845.jpg deleted file mode 100644 index 5373800e..00000000 Binary files a/pics/511000845.jpg and /dev/null differ diff --git a/pics/511000846.jpg b/pics/511000846.jpg deleted file mode 100755 index 4e2f4f03..00000000 Binary files a/pics/511000846.jpg and /dev/null differ diff --git a/pics/511000847.jpg b/pics/511000847.jpg deleted file mode 100644 index 20e213ce..00000000 Binary files a/pics/511000847.jpg and /dev/null differ diff --git a/pics/511000848.jpg b/pics/511000848.jpg deleted file mode 100644 index db6fa08d..00000000 Binary files a/pics/511000848.jpg and /dev/null differ diff --git a/pics/511000849.jpg b/pics/511000849.jpg deleted file mode 100644 index 95303bb9..00000000 Binary files a/pics/511000849.jpg and /dev/null differ diff --git a/pics/511000850.jpg b/pics/511000850.jpg deleted file mode 100644 index c37e4edd..00000000 Binary files a/pics/511000850.jpg and /dev/null differ diff --git a/pics/511000851.jpg b/pics/511000851.jpg deleted file mode 100644 index 7df8dbdd..00000000 Binary files a/pics/511000851.jpg and /dev/null differ diff --git a/pics/511000852.jpg b/pics/511000852.jpg deleted file mode 100644 index 564a514d..00000000 Binary files a/pics/511000852.jpg and /dev/null differ diff --git a/pics/511000853.jpg b/pics/511000853.jpg deleted file mode 100644 index 1dcecc47..00000000 Binary files a/pics/511000853.jpg and /dev/null differ diff --git a/pics/511000854.jpg b/pics/511000854.jpg deleted file mode 100644 index 0c944a02..00000000 Binary files a/pics/511000854.jpg and /dev/null differ diff --git a/pics/511000855.jpg b/pics/511000855.jpg deleted file mode 100644 index 9d2acd5e..00000000 Binary files a/pics/511000855.jpg and /dev/null differ diff --git a/pics/511000856.jpg b/pics/511000856.jpg deleted file mode 100644 index 1006b4fc..00000000 Binary files a/pics/511000856.jpg and /dev/null differ diff --git a/pics/511000857.jpg b/pics/511000857.jpg deleted file mode 100644 index cd6645ae..00000000 Binary files a/pics/511000857.jpg and /dev/null differ diff --git a/pics/511000858.jpg b/pics/511000858.jpg deleted file mode 100644 index a829875c..00000000 Binary files a/pics/511000858.jpg and /dev/null differ diff --git a/pics/511000859.jpg b/pics/511000859.jpg deleted file mode 100644 index 106776c1..00000000 Binary files a/pics/511000859.jpg and /dev/null differ diff --git a/pics/511000860.jpg b/pics/511000860.jpg deleted file mode 100644 index f6a7ea72..00000000 Binary files a/pics/511000860.jpg and /dev/null differ diff --git a/pics/511000861.jpg b/pics/511000861.jpg deleted file mode 100644 index bb7316b5..00000000 Binary files a/pics/511000861.jpg and /dev/null differ diff --git a/pics/511000862.jpg b/pics/511000862.jpg deleted file mode 100644 index ab26bfb3..00000000 Binary files a/pics/511000862.jpg and /dev/null differ diff --git a/pics/511000863.jpg b/pics/511000863.jpg deleted file mode 100644 index 190bb5f0..00000000 Binary files a/pics/511000863.jpg and /dev/null differ diff --git a/pics/511000864.jpg b/pics/511000864.jpg deleted file mode 100644 index 4af8d6ac..00000000 Binary files a/pics/511000864.jpg and /dev/null differ diff --git a/pics/511000865.jpg b/pics/511000865.jpg deleted file mode 100644 index 099aea44..00000000 Binary files a/pics/511000865.jpg and /dev/null differ diff --git a/pics/511000866.jpg b/pics/511000866.jpg deleted file mode 100644 index 40b02737..00000000 Binary files a/pics/511000866.jpg and /dev/null differ diff --git a/pics/511000867.jpg b/pics/511000867.jpg deleted file mode 100644 index 642edeb4..00000000 Binary files a/pics/511000867.jpg and /dev/null differ diff --git a/pics/511000868.jpg b/pics/511000868.jpg deleted file mode 100644 index eba147e2..00000000 Binary files a/pics/511000868.jpg and /dev/null differ diff --git a/pics/511000869.jpg b/pics/511000869.jpg deleted file mode 100644 index fd374fc9..00000000 Binary files a/pics/511000869.jpg and /dev/null differ diff --git a/pics/511000870.jpg b/pics/511000870.jpg deleted file mode 100755 index 8420e649..00000000 Binary files a/pics/511000870.jpg and /dev/null differ diff --git a/pics/511000871.jpg b/pics/511000871.jpg deleted file mode 100644 index d1c7d5b4..00000000 Binary files a/pics/511000871.jpg and /dev/null differ diff --git a/pics/511000872.jpg b/pics/511000872.jpg deleted file mode 100644 index e18eeaed..00000000 Binary files a/pics/511000872.jpg and /dev/null differ diff --git a/pics/511000873.jpg b/pics/511000873.jpg deleted file mode 100644 index 589694c8..00000000 Binary files a/pics/511000873.jpg and /dev/null differ diff --git a/pics/511000874.jpg b/pics/511000874.jpg deleted file mode 100644 index 59bd9b4b..00000000 Binary files a/pics/511000874.jpg and /dev/null differ diff --git a/pics/511000875.jpg b/pics/511000875.jpg deleted file mode 100644 index 205c8ae7..00000000 Binary files a/pics/511000875.jpg and /dev/null differ diff --git a/pics/511000876.jpg b/pics/511000876.jpg deleted file mode 100644 index 035eb93f..00000000 Binary files a/pics/511000876.jpg and /dev/null differ diff --git a/pics/511000877.jpg b/pics/511000877.jpg deleted file mode 100644 index 754eb6fb..00000000 Binary files a/pics/511000877.jpg and /dev/null differ diff --git a/pics/511000878.jpg b/pics/511000878.jpg deleted file mode 100644 index 01956d59..00000000 Binary files a/pics/511000878.jpg and /dev/null differ diff --git a/pics/511000879.jpg b/pics/511000879.jpg deleted file mode 100644 index 7a08e7b1..00000000 Binary files a/pics/511000879.jpg and /dev/null differ diff --git a/pics/511000880.jpg b/pics/511000880.jpg deleted file mode 100644 index 2a03898e..00000000 Binary files a/pics/511000880.jpg and /dev/null differ diff --git a/pics/511000881.jpg b/pics/511000881.jpg deleted file mode 100644 index cc90fe76..00000000 Binary files a/pics/511000881.jpg and /dev/null differ diff --git a/pics/511000882.jpg b/pics/511000882.jpg deleted file mode 100644 index e9bcfaac..00000000 Binary files a/pics/511000882.jpg and /dev/null differ diff --git a/pics/511000883.jpg b/pics/511000883.jpg deleted file mode 100644 index 287a8b45..00000000 Binary files a/pics/511000883.jpg and /dev/null differ diff --git a/pics/511000884.jpg b/pics/511000884.jpg deleted file mode 100644 index 43ee10d3..00000000 Binary files a/pics/511000884.jpg and /dev/null differ diff --git a/pics/511000885.jpg b/pics/511000885.jpg deleted file mode 100755 index f546d9fd..00000000 Binary files a/pics/511000885.jpg and /dev/null differ diff --git a/pics/511000886.jpg b/pics/511000886.jpg deleted file mode 100644 index f77c2e9d..00000000 Binary files a/pics/511000886.jpg and /dev/null differ diff --git a/pics/511000887.jpg b/pics/511000887.jpg deleted file mode 100644 index 7f541f11..00000000 Binary files a/pics/511000887.jpg and /dev/null differ diff --git a/pics/511000888.jpg b/pics/511000888.jpg deleted file mode 100644 index 33afb47f..00000000 Binary files a/pics/511000888.jpg and /dev/null differ diff --git a/pics/511000889.jpg b/pics/511000889.jpg deleted file mode 100644 index 88fd03ee..00000000 Binary files a/pics/511000889.jpg and /dev/null differ diff --git a/pics/511000890.jpg b/pics/511000890.jpg deleted file mode 100644 index 88710164..00000000 Binary files a/pics/511000890.jpg and /dev/null differ diff --git a/pics/511000891.jpg b/pics/511000891.jpg deleted file mode 100644 index b51ecc6b..00000000 Binary files a/pics/511000891.jpg and /dev/null differ diff --git a/pics/511000892.jpg b/pics/511000892.jpg deleted file mode 100644 index 41806da1..00000000 Binary files a/pics/511000892.jpg and /dev/null differ diff --git a/pics/511000893.jpg b/pics/511000893.jpg deleted file mode 100644 index 6f780993..00000000 Binary files a/pics/511000893.jpg and /dev/null differ diff --git a/pics/511000894.jpg b/pics/511000894.jpg deleted file mode 100644 index 4f0ec033..00000000 Binary files a/pics/511000894.jpg and /dev/null differ diff --git a/pics/511000895.jpg b/pics/511000895.jpg deleted file mode 100644 index 43077fbc..00000000 Binary files a/pics/511000895.jpg and /dev/null differ diff --git a/pics/511000896.jpg b/pics/511000896.jpg deleted file mode 100755 index 651f7677..00000000 Binary files a/pics/511000896.jpg and /dev/null differ diff --git a/pics/511000897.jpg b/pics/511000897.jpg deleted file mode 100644 index 4fcde3d7..00000000 Binary files a/pics/511000897.jpg and /dev/null differ diff --git a/pics/511000898.jpg b/pics/511000898.jpg deleted file mode 100644 index 7007acca..00000000 Binary files a/pics/511000898.jpg and /dev/null differ diff --git a/pics/511000899.jpg b/pics/511000899.jpg deleted file mode 100644 index 655e88ea..00000000 Binary files a/pics/511000899.jpg and /dev/null differ diff --git a/pics/511000900.jpg b/pics/511000900.jpg deleted file mode 100644 index 637417e3..00000000 Binary files a/pics/511000900.jpg and /dev/null differ diff --git a/pics/511000901.jpg b/pics/511000901.jpg deleted file mode 100644 index e50671e8..00000000 Binary files a/pics/511000901.jpg and /dev/null differ diff --git a/pics/511000902.jpg b/pics/511000902.jpg deleted file mode 100644 index d6b77f11..00000000 Binary files a/pics/511000902.jpg and /dev/null differ diff --git a/pics/511000903.jpg b/pics/511000903.jpg deleted file mode 100644 index 7f86777d..00000000 Binary files a/pics/511000903.jpg and /dev/null differ diff --git a/pics/511000904.jpg b/pics/511000904.jpg deleted file mode 100644 index be4f4bdb..00000000 Binary files a/pics/511000904.jpg and /dev/null differ diff --git a/pics/511000905.jpg b/pics/511000905.jpg deleted file mode 100644 index bd869ba7..00000000 Binary files a/pics/511000905.jpg and /dev/null differ diff --git a/pics/511000906.jpg b/pics/511000906.jpg deleted file mode 100644 index 33e0cc27..00000000 Binary files a/pics/511000906.jpg and /dev/null differ diff --git a/pics/511000907.jpg b/pics/511000907.jpg deleted file mode 100644 index 9765c0a6..00000000 Binary files a/pics/511000907.jpg and /dev/null differ diff --git a/pics/511000908.jpg b/pics/511000908.jpg deleted file mode 100644 index b0be8832..00000000 Binary files a/pics/511000908.jpg and /dev/null differ diff --git a/pics/511000909.jpg b/pics/511000909.jpg deleted file mode 100644 index e9824841..00000000 Binary files a/pics/511000909.jpg and /dev/null differ diff --git a/pics/511000910.jpg b/pics/511000910.jpg deleted file mode 100644 index 35900708..00000000 Binary files a/pics/511000910.jpg and /dev/null differ diff --git a/pics/511000911.jpg b/pics/511000911.jpg deleted file mode 100644 index fa277acd..00000000 Binary files a/pics/511000911.jpg and /dev/null differ diff --git a/pics/511000912.jpg b/pics/511000912.jpg deleted file mode 100644 index 5307125a..00000000 Binary files a/pics/511000912.jpg and /dev/null differ diff --git a/pics/511000913.jpg b/pics/511000913.jpg deleted file mode 100644 index cf78a15e..00000000 Binary files a/pics/511000913.jpg and /dev/null differ diff --git a/pics/511000914.jpg b/pics/511000914.jpg deleted file mode 100644 index b14eb3cb..00000000 Binary files a/pics/511000914.jpg and /dev/null differ diff --git a/pics/511000915.jpg b/pics/511000915.jpg deleted file mode 100644 index b4bf700e..00000000 Binary files a/pics/511000915.jpg and /dev/null differ diff --git a/pics/511000916.jpg b/pics/511000916.jpg deleted file mode 100644 index bd0c17b2..00000000 Binary files a/pics/511000916.jpg and /dev/null differ diff --git a/pics/511000917.jpg b/pics/511000917.jpg deleted file mode 100644 index fa7d3b3b..00000000 Binary files a/pics/511000917.jpg and /dev/null differ diff --git a/pics/511000918.jpg b/pics/511000918.jpg deleted file mode 100644 index ea676a21..00000000 Binary files a/pics/511000918.jpg and /dev/null differ diff --git a/pics/511000919.jpg b/pics/511000919.jpg deleted file mode 100644 index 8a3d6197..00000000 Binary files a/pics/511000919.jpg and /dev/null differ diff --git a/pics/511000920.jpg b/pics/511000920.jpg deleted file mode 100644 index 51436be6..00000000 Binary files a/pics/511000920.jpg and /dev/null differ diff --git a/pics/511000921.jpg b/pics/511000921.jpg deleted file mode 100644 index 171d0285..00000000 Binary files a/pics/511000921.jpg and /dev/null differ diff --git a/pics/511000922.jpg b/pics/511000922.jpg deleted file mode 100644 index 83a660ea..00000000 Binary files a/pics/511000922.jpg and /dev/null differ diff --git a/pics/511000923.jpg b/pics/511000923.jpg deleted file mode 100644 index f5871899..00000000 Binary files a/pics/511000923.jpg and /dev/null differ diff --git a/pics/511000924.jpg b/pics/511000924.jpg deleted file mode 100644 index 213d11e3..00000000 Binary files a/pics/511000924.jpg and /dev/null differ diff --git a/pics/511000925.jpg b/pics/511000925.jpg deleted file mode 100644 index 46129e2d..00000000 Binary files a/pics/511000925.jpg and /dev/null differ diff --git a/pics/511000926.jpg b/pics/511000926.jpg deleted file mode 100644 index c1b97fe8..00000000 Binary files a/pics/511000926.jpg and /dev/null differ diff --git a/pics/511000927.jpg b/pics/511000927.jpg deleted file mode 100644 index 6a1989ce..00000000 Binary files a/pics/511000927.jpg and /dev/null differ diff --git a/pics/511000928.jpg b/pics/511000928.jpg deleted file mode 100644 index bcf2ec86..00000000 Binary files a/pics/511000928.jpg and /dev/null differ diff --git a/pics/511000929.jpg b/pics/511000929.jpg deleted file mode 100644 index ef7394e9..00000000 Binary files a/pics/511000929.jpg and /dev/null differ diff --git a/pics/511000930.jpg b/pics/511000930.jpg deleted file mode 100644 index 57142e0b..00000000 Binary files a/pics/511000930.jpg and /dev/null differ diff --git a/pics/511000931.jpg b/pics/511000931.jpg deleted file mode 100644 index b320e60a..00000000 Binary files a/pics/511000931.jpg and /dev/null differ diff --git a/pics/511000932.jpg b/pics/511000932.jpg deleted file mode 100644 index b7f2828c..00000000 Binary files a/pics/511000932.jpg and /dev/null differ diff --git a/pics/511000933.jpg b/pics/511000933.jpg deleted file mode 100644 index caabeab3..00000000 Binary files a/pics/511000933.jpg and /dev/null differ diff --git a/pics/511000934.jpg b/pics/511000934.jpg deleted file mode 100644 index 319f6d89..00000000 Binary files a/pics/511000934.jpg and /dev/null differ diff --git a/pics/511000935.jpg b/pics/511000935.jpg deleted file mode 100644 index db92cefa..00000000 Binary files a/pics/511000935.jpg and /dev/null differ diff --git a/pics/511000936.jpg b/pics/511000936.jpg deleted file mode 100755 index ac9d8b16..00000000 Binary files a/pics/511000936.jpg and /dev/null differ diff --git a/pics/511000937.jpg b/pics/511000937.jpg deleted file mode 100755 index ab5cef60..00000000 Binary files a/pics/511000937.jpg and /dev/null differ diff --git a/pics/511000938.jpg b/pics/511000938.jpg deleted file mode 100644 index 1807cd6e..00000000 Binary files a/pics/511000938.jpg and /dev/null differ diff --git a/pics/511000939.jpg b/pics/511000939.jpg deleted file mode 100644 index 9e58160e..00000000 Binary files a/pics/511000939.jpg and /dev/null differ diff --git a/pics/511000940.jpg b/pics/511000940.jpg deleted file mode 100644 index ca7dd144..00000000 Binary files a/pics/511000940.jpg and /dev/null differ diff --git a/pics/511000941.jpg b/pics/511000941.jpg deleted file mode 100644 index f9bbc1ee..00000000 Binary files a/pics/511000941.jpg and /dev/null differ diff --git a/pics/511000942.jpg b/pics/511000942.jpg deleted file mode 100644 index c949e7f3..00000000 Binary files a/pics/511000942.jpg and /dev/null differ diff --git a/pics/511000943.jpg b/pics/511000943.jpg deleted file mode 100644 index c2862cc4..00000000 Binary files a/pics/511000943.jpg and /dev/null differ diff --git a/pics/511000944.jpg b/pics/511000944.jpg deleted file mode 100644 index 74117ea4..00000000 Binary files a/pics/511000944.jpg and /dev/null differ diff --git a/pics/511000945.jpg b/pics/511000945.jpg deleted file mode 100644 index ce477704..00000000 Binary files a/pics/511000945.jpg and /dev/null differ diff --git a/pics/511000946.jpg b/pics/511000946.jpg deleted file mode 100644 index b04a68b2..00000000 Binary files a/pics/511000946.jpg and /dev/null differ diff --git a/pics/511000947.jpg b/pics/511000947.jpg deleted file mode 100644 index 4dcd9471..00000000 Binary files a/pics/511000947.jpg and /dev/null differ diff --git a/pics/511000948.jpg b/pics/511000948.jpg deleted file mode 100644 index b75b9d40..00000000 Binary files a/pics/511000948.jpg and /dev/null differ diff --git a/pics/511000949.jpg b/pics/511000949.jpg deleted file mode 100644 index c3dfed68..00000000 Binary files a/pics/511000949.jpg and /dev/null differ diff --git a/pics/511000950.jpg b/pics/511000950.jpg deleted file mode 100644 index 37c30ff7..00000000 Binary files a/pics/511000950.jpg and /dev/null differ diff --git a/pics/511000951.jpg b/pics/511000951.jpg deleted file mode 100644 index 1660d00c..00000000 Binary files a/pics/511000951.jpg and /dev/null differ diff --git a/pics/511000952.jpg b/pics/511000952.jpg deleted file mode 100644 index 97d93b8c..00000000 Binary files a/pics/511000952.jpg and /dev/null differ diff --git a/pics/511000953.jpg b/pics/511000953.jpg deleted file mode 100644 index d591226c..00000000 Binary files a/pics/511000953.jpg and /dev/null differ diff --git a/pics/511000954.jpg b/pics/511000954.jpg deleted file mode 100644 index f85cb02c..00000000 Binary files a/pics/511000954.jpg and /dev/null differ diff --git a/pics/511000955.jpg b/pics/511000955.jpg deleted file mode 100644 index 669d0e8b..00000000 Binary files a/pics/511000955.jpg and /dev/null differ diff --git a/pics/511000956.jpg b/pics/511000956.jpg deleted file mode 100644 index 1e755ba3..00000000 Binary files a/pics/511000956.jpg and /dev/null differ diff --git a/pics/511000957.jpg b/pics/511000957.jpg deleted file mode 100644 index 61a9e7ca..00000000 Binary files a/pics/511000957.jpg and /dev/null differ diff --git a/pics/511000958.jpg b/pics/511000958.jpg deleted file mode 100644 index a1cb504b..00000000 Binary files a/pics/511000958.jpg and /dev/null differ diff --git a/pics/511000959.jpg b/pics/511000959.jpg deleted file mode 100644 index 15f09de5..00000000 Binary files a/pics/511000959.jpg and /dev/null differ diff --git a/pics/511000960.jpg b/pics/511000960.jpg deleted file mode 100644 index 2a7bf7d2..00000000 Binary files a/pics/511000960.jpg and /dev/null differ diff --git a/pics/511000961.jpg b/pics/511000961.jpg deleted file mode 100644 index 7cec68e7..00000000 Binary files a/pics/511000961.jpg and /dev/null differ diff --git a/pics/511000962.jpg b/pics/511000962.jpg deleted file mode 100644 index 3e64a99a..00000000 Binary files a/pics/511000962.jpg and /dev/null differ diff --git a/pics/511000963.jpg b/pics/511000963.jpg deleted file mode 100644 index 78c3a641..00000000 Binary files a/pics/511000963.jpg and /dev/null differ diff --git a/pics/511000964.jpg b/pics/511000964.jpg deleted file mode 100644 index 6914c0d9..00000000 Binary files a/pics/511000964.jpg and /dev/null differ diff --git a/pics/511000965.jpg b/pics/511000965.jpg deleted file mode 100644 index bc2b14e1..00000000 Binary files a/pics/511000965.jpg and /dev/null differ diff --git a/pics/511000966.jpg b/pics/511000966.jpg deleted file mode 100644 index 3e6ce651..00000000 Binary files a/pics/511000966.jpg and /dev/null differ diff --git a/pics/511000967.jpg b/pics/511000967.jpg deleted file mode 100644 index c356ef64..00000000 Binary files a/pics/511000967.jpg and /dev/null differ diff --git a/pics/511000968.jpg b/pics/511000968.jpg deleted file mode 100644 index 7d97c148..00000000 Binary files a/pics/511000968.jpg and /dev/null differ diff --git a/pics/511000969.jpg b/pics/511000969.jpg deleted file mode 100644 index 51469d32..00000000 Binary files a/pics/511000969.jpg and /dev/null differ diff --git a/pics/511000970.jpg b/pics/511000970.jpg deleted file mode 100644 index 1d8a6d4d..00000000 Binary files a/pics/511000970.jpg and /dev/null differ diff --git a/pics/511000971.jpg b/pics/511000971.jpg deleted file mode 100644 index 6b018838..00000000 Binary files a/pics/511000971.jpg and /dev/null differ diff --git a/pics/511000972.jpg b/pics/511000972.jpg deleted file mode 100644 index 3ce1038a..00000000 Binary files a/pics/511000972.jpg and /dev/null differ diff --git a/pics/511000973.jpg b/pics/511000973.jpg deleted file mode 100644 index 28063782..00000000 Binary files a/pics/511000973.jpg and /dev/null differ diff --git a/pics/511000974.jpg b/pics/511000974.jpg deleted file mode 100644 index 646f4ff5..00000000 Binary files a/pics/511000974.jpg and /dev/null differ diff --git a/pics/511000975.jpg b/pics/511000975.jpg deleted file mode 100644 index 77af83a5..00000000 Binary files a/pics/511000975.jpg and /dev/null differ diff --git a/pics/511000976.jpg b/pics/511000976.jpg deleted file mode 100644 index 4818716d..00000000 Binary files a/pics/511000976.jpg and /dev/null differ diff --git a/pics/511000977.jpg b/pics/511000977.jpg deleted file mode 100644 index a956700d..00000000 Binary files a/pics/511000977.jpg and /dev/null differ diff --git a/pics/511000978.jpg b/pics/511000978.jpg deleted file mode 100644 index 41c01eda..00000000 Binary files a/pics/511000978.jpg and /dev/null differ diff --git a/pics/511000979.jpg b/pics/511000979.jpg deleted file mode 100644 index 198968fc..00000000 Binary files a/pics/511000979.jpg and /dev/null differ diff --git a/pics/511000980.jpg b/pics/511000980.jpg deleted file mode 100644 index 8a8333ed..00000000 Binary files a/pics/511000980.jpg and /dev/null differ diff --git a/pics/511000981.jpg b/pics/511000981.jpg deleted file mode 100644 index 09d68602..00000000 Binary files a/pics/511000981.jpg and /dev/null differ diff --git a/pics/511000982.jpg b/pics/511000982.jpg deleted file mode 100644 index 96488da7..00000000 Binary files a/pics/511000982.jpg and /dev/null differ diff --git a/pics/511000983.jpg b/pics/511000983.jpg deleted file mode 100644 index 7dbc62b0..00000000 Binary files a/pics/511000983.jpg and /dev/null differ diff --git a/pics/511000984.jpg b/pics/511000984.jpg deleted file mode 100644 index 79db9b47..00000000 Binary files a/pics/511000984.jpg and /dev/null differ diff --git a/pics/511000985.jpg b/pics/511000985.jpg deleted file mode 100644 index a79b74c6..00000000 Binary files a/pics/511000985.jpg and /dev/null differ diff --git a/pics/511000986.jpg b/pics/511000986.jpg deleted file mode 100644 index b6bbedf8..00000000 Binary files a/pics/511000986.jpg and /dev/null differ diff --git a/pics/511000987.jpg b/pics/511000987.jpg deleted file mode 100644 index 79dee560..00000000 Binary files a/pics/511000987.jpg and /dev/null differ diff --git a/pics/511000988.jpg b/pics/511000988.jpg deleted file mode 100644 index 7796f21a..00000000 Binary files a/pics/511000988.jpg and /dev/null differ diff --git a/pics/511000989.jpg b/pics/511000989.jpg deleted file mode 100644 index 7fc48d47..00000000 Binary files a/pics/511000989.jpg and /dev/null differ diff --git a/pics/511000990.jpg b/pics/511000990.jpg deleted file mode 100644 index 863252c0..00000000 Binary files a/pics/511000990.jpg and /dev/null differ diff --git a/pics/511000991.jpg b/pics/511000991.jpg deleted file mode 100644 index 86ae1858..00000000 Binary files a/pics/511000991.jpg and /dev/null differ diff --git a/pics/511000992.jpg b/pics/511000992.jpg deleted file mode 100644 index b2cb9770..00000000 Binary files a/pics/511000992.jpg and /dev/null differ diff --git a/pics/511000993.jpg b/pics/511000993.jpg deleted file mode 100644 index c21191c5..00000000 Binary files a/pics/511000993.jpg and /dev/null differ diff --git a/pics/511000994.jpg b/pics/511000994.jpg deleted file mode 100644 index 71edd0c9..00000000 Binary files a/pics/511000994.jpg and /dev/null differ diff --git a/pics/511000995.jpg b/pics/511000995.jpg deleted file mode 100644 index 9181d3bb..00000000 Binary files a/pics/511000995.jpg and /dev/null differ diff --git a/pics/511000996.jpg b/pics/511000996.jpg deleted file mode 100644 index 0cbebbd5..00000000 Binary files a/pics/511000996.jpg and /dev/null differ diff --git a/pics/511000997.jpg b/pics/511000997.jpg deleted file mode 100644 index fc4833c6..00000000 Binary files a/pics/511000997.jpg and /dev/null differ diff --git a/pics/511000998.jpg b/pics/511000998.jpg deleted file mode 100644 index 96da9f24..00000000 Binary files a/pics/511000998.jpg and /dev/null differ diff --git a/pics/511000999.jpg b/pics/511000999.jpg deleted file mode 100644 index c90b4dd9..00000000 Binary files a/pics/511000999.jpg and /dev/null differ diff --git a/pics/511001000.jpg b/pics/511001000.jpg deleted file mode 100644 index a62d8694..00000000 Binary files a/pics/511001000.jpg and /dev/null differ diff --git a/pics/511001001.jpg b/pics/511001001.jpg deleted file mode 100644 index bd30a21c..00000000 Binary files a/pics/511001001.jpg and /dev/null differ diff --git a/pics/511001002.jpg b/pics/511001002.jpg deleted file mode 100644 index 89e670f5..00000000 Binary files a/pics/511001002.jpg and /dev/null differ diff --git a/pics/511001003.jpg b/pics/511001003.jpg deleted file mode 100644 index 530f2c79..00000000 Binary files a/pics/511001003.jpg and /dev/null differ diff --git a/pics/511001004.jpg b/pics/511001004.jpg deleted file mode 100644 index bc283e6a..00000000 Binary files a/pics/511001004.jpg and /dev/null differ diff --git a/pics/511001005.jpg b/pics/511001005.jpg deleted file mode 100644 index f41dbeec..00000000 Binary files a/pics/511001005.jpg and /dev/null differ diff --git a/pics/511001006.jpg b/pics/511001006.jpg deleted file mode 100644 index 3898157f..00000000 Binary files a/pics/511001006.jpg and /dev/null differ diff --git a/pics/511001007.jpg b/pics/511001007.jpg deleted file mode 100644 index 382fe76f..00000000 Binary files a/pics/511001007.jpg and /dev/null differ diff --git a/pics/511001010.jpg b/pics/511001010.jpg deleted file mode 100644 index 3ab64115..00000000 Binary files a/pics/511001010.jpg and /dev/null differ diff --git a/pics/511001011.jpg b/pics/511001011.jpg deleted file mode 100644 index b1d208f1..00000000 Binary files a/pics/511001011.jpg and /dev/null differ diff --git a/pics/511001013.jpg b/pics/511001013.jpg deleted file mode 100644 index 16a682bd..00000000 Binary files a/pics/511001013.jpg and /dev/null differ diff --git a/pics/511001014.jpg b/pics/511001014.jpg deleted file mode 100644 index 44883830..00000000 Binary files a/pics/511001014.jpg and /dev/null differ diff --git a/pics/511001015.jpg b/pics/511001015.jpg deleted file mode 100644 index 5a240f36..00000000 Binary files a/pics/511001015.jpg and /dev/null differ diff --git a/pics/511001016.jpg b/pics/511001016.jpg deleted file mode 100644 index 461e3194..00000000 Binary files a/pics/511001016.jpg and /dev/null differ diff --git a/pics/511001017.jpg b/pics/511001017.jpg deleted file mode 100644 index f6242efd..00000000 Binary files a/pics/511001017.jpg and /dev/null differ diff --git a/pics/511001018.jpg b/pics/511001018.jpg deleted file mode 100644 index e7744baf..00000000 Binary files a/pics/511001018.jpg and /dev/null differ diff --git a/pics/511001019.jpg b/pics/511001019.jpg deleted file mode 100644 index 4da6edd2..00000000 Binary files a/pics/511001019.jpg and /dev/null differ diff --git a/pics/511001020.jpg b/pics/511001020.jpg deleted file mode 100644 index 98619d1c..00000000 Binary files a/pics/511001020.jpg and /dev/null differ diff --git a/pics/511001021.jpg b/pics/511001021.jpg deleted file mode 100644 index b3561c0c..00000000 Binary files a/pics/511001021.jpg and /dev/null differ diff --git a/pics/511001022.jpg b/pics/511001022.jpg deleted file mode 100644 index a788fd73..00000000 Binary files a/pics/511001022.jpg and /dev/null differ diff --git a/pics/511001023.jpg b/pics/511001023.jpg deleted file mode 100644 index 768a7a45..00000000 Binary files a/pics/511001023.jpg and /dev/null differ diff --git a/pics/511001024.jpg b/pics/511001024.jpg deleted file mode 100644 index 7a1ef692..00000000 Binary files a/pics/511001024.jpg and /dev/null differ diff --git a/pics/511001025.jpg b/pics/511001025.jpg deleted file mode 100644 index 283bd32c..00000000 Binary files a/pics/511001025.jpg and /dev/null differ diff --git a/pics/511001026.jpg b/pics/511001026.jpg deleted file mode 100644 index 8d91149c..00000000 Binary files a/pics/511001026.jpg and /dev/null differ diff --git a/pics/511001027.jpg b/pics/511001027.jpg deleted file mode 100644 index 285faf65..00000000 Binary files a/pics/511001027.jpg and /dev/null differ diff --git a/pics/511001028.jpg b/pics/511001028.jpg deleted file mode 100644 index d560f5e6..00000000 Binary files a/pics/511001028.jpg and /dev/null differ diff --git a/pics/511001029.jpg b/pics/511001029.jpg deleted file mode 100644 index bd315f31..00000000 Binary files a/pics/511001029.jpg and /dev/null differ diff --git a/pics/511001030.jpg b/pics/511001030.jpg deleted file mode 100644 index 6931902f..00000000 Binary files a/pics/511001030.jpg and /dev/null differ diff --git a/pics/511001031.jpg b/pics/511001031.jpg deleted file mode 100644 index da936b83..00000000 Binary files a/pics/511001031.jpg and /dev/null differ diff --git a/pics/511001032.jpg b/pics/511001032.jpg deleted file mode 100644 index c9c8abd2..00000000 Binary files a/pics/511001032.jpg and /dev/null differ diff --git a/pics/511001033.jpg b/pics/511001033.jpg deleted file mode 100644 index 0c6caa58..00000000 Binary files a/pics/511001033.jpg and /dev/null differ diff --git a/pics/511001034.jpg b/pics/511001034.jpg deleted file mode 100644 index a69a1698..00000000 Binary files a/pics/511001034.jpg and /dev/null differ diff --git a/pics/511001035.jpg b/pics/511001035.jpg deleted file mode 100644 index 26f4dd35..00000000 Binary files a/pics/511001035.jpg and /dev/null differ diff --git a/pics/511001036.jpg b/pics/511001036.jpg deleted file mode 100644 index 4fc44231..00000000 Binary files a/pics/511001036.jpg and /dev/null differ diff --git a/pics/511001037.jpg b/pics/511001037.jpg deleted file mode 100644 index 6dee4dc1..00000000 Binary files a/pics/511001037.jpg and /dev/null differ diff --git a/pics/511001038.jpg b/pics/511001038.jpg deleted file mode 100644 index 93153207..00000000 Binary files a/pics/511001038.jpg and /dev/null differ diff --git a/pics/511001039.jpg b/pics/511001039.jpg deleted file mode 100644 index 45ac3583..00000000 Binary files a/pics/511001039.jpg and /dev/null differ diff --git a/pics/511001040.jpg b/pics/511001040.jpg deleted file mode 100644 index f2e85b49..00000000 Binary files a/pics/511001040.jpg and /dev/null differ diff --git a/pics/511001041.jpg b/pics/511001041.jpg deleted file mode 100644 index fbd37be2..00000000 Binary files a/pics/511001041.jpg and /dev/null differ diff --git a/pics/511001042.jpg b/pics/511001042.jpg deleted file mode 100644 index cddb4e33..00000000 Binary files a/pics/511001042.jpg and /dev/null differ diff --git a/pics/511001043.jpg b/pics/511001043.jpg deleted file mode 100644 index e03d620b..00000000 Binary files a/pics/511001043.jpg and /dev/null differ diff --git a/pics/511001044.jpg b/pics/511001044.jpg deleted file mode 100644 index 0c2a4070..00000000 Binary files a/pics/511001044.jpg and /dev/null differ diff --git a/pics/511001045.jpg b/pics/511001045.jpg deleted file mode 100644 index 095a74c6..00000000 Binary files a/pics/511001045.jpg and /dev/null differ diff --git a/pics/511001048.jpg b/pics/511001048.jpg deleted file mode 100644 index 53de52ee..00000000 Binary files a/pics/511001048.jpg and /dev/null differ diff --git a/pics/511001049.jpg b/pics/511001049.jpg deleted file mode 100644 index b7eb3255..00000000 Binary files a/pics/511001049.jpg and /dev/null differ diff --git a/pics/511001050.jpg b/pics/511001050.jpg deleted file mode 100644 index 957e78c7..00000000 Binary files a/pics/511001050.jpg and /dev/null differ diff --git a/pics/511001051.jpg b/pics/511001051.jpg deleted file mode 100644 index 4fa17b2a..00000000 Binary files a/pics/511001051.jpg and /dev/null differ diff --git a/pics/511001052.jpg b/pics/511001052.jpg deleted file mode 100644 index 95928630..00000000 Binary files a/pics/511001052.jpg and /dev/null differ diff --git a/pics/511001053.jpg b/pics/511001053.jpg deleted file mode 100644 index 94c07e88..00000000 Binary files a/pics/511001053.jpg and /dev/null differ diff --git a/pics/511001054.jpg b/pics/511001054.jpg deleted file mode 100644 index bfc70005..00000000 Binary files a/pics/511001054.jpg and /dev/null differ diff --git a/pics/511001055.jpg b/pics/511001055.jpg deleted file mode 100644 index 1d8d6ed9..00000000 Binary files a/pics/511001055.jpg and /dev/null differ diff --git a/pics/511001056.jpg b/pics/511001056.jpg deleted file mode 100644 index a940f91b..00000000 Binary files a/pics/511001056.jpg and /dev/null differ diff --git a/pics/511001057.jpg b/pics/511001057.jpg deleted file mode 100644 index 31f4f2ef..00000000 Binary files a/pics/511001057.jpg and /dev/null differ diff --git a/pics/511001058.jpg b/pics/511001058.jpg deleted file mode 100644 index b80f8295..00000000 Binary files a/pics/511001058.jpg and /dev/null differ diff --git a/pics/511001059.jpg b/pics/511001059.jpg deleted file mode 100644 index 2fe56967..00000000 Binary files a/pics/511001059.jpg and /dev/null differ diff --git a/pics/511001060.jpg b/pics/511001060.jpg deleted file mode 100644 index b1cbfced..00000000 Binary files a/pics/511001060.jpg and /dev/null differ diff --git a/pics/511001061.jpg b/pics/511001061.jpg deleted file mode 100644 index b83ab180..00000000 Binary files a/pics/511001061.jpg and /dev/null differ diff --git a/pics/511001062.jpg b/pics/511001062.jpg deleted file mode 100755 index 56f2325d..00000000 Binary files a/pics/511001062.jpg and /dev/null differ diff --git a/pics/511001063.jpg b/pics/511001063.jpg deleted file mode 100755 index 05463c0a..00000000 Binary files a/pics/511001063.jpg and /dev/null differ diff --git a/pics/511001064.jpg b/pics/511001064.jpg deleted file mode 100644 index 2a0035d6..00000000 Binary files a/pics/511001064.jpg and /dev/null differ diff --git a/pics/511001065.jpg b/pics/511001065.jpg deleted file mode 100644 index 2fa43a3e..00000000 Binary files a/pics/511001065.jpg and /dev/null differ diff --git a/pics/511001066.jpg b/pics/511001066.jpg deleted file mode 100644 index 7a1f7819..00000000 Binary files a/pics/511001066.jpg and /dev/null differ diff --git a/pics/511001067.jpg b/pics/511001067.jpg deleted file mode 100644 index 06a7f1ff..00000000 Binary files a/pics/511001067.jpg and /dev/null differ diff --git a/pics/511001068.jpg b/pics/511001068.jpg deleted file mode 100644 index 407c72e1..00000000 Binary files a/pics/511001068.jpg and /dev/null differ diff --git a/pics/511001069.jpg b/pics/511001069.jpg deleted file mode 100644 index 637fbd09..00000000 Binary files a/pics/511001069.jpg and /dev/null differ diff --git a/pics/511001070.jpg b/pics/511001070.jpg deleted file mode 100644 index dc511779..00000000 Binary files a/pics/511001070.jpg and /dev/null differ diff --git a/pics/511001071.jpg b/pics/511001071.jpg deleted file mode 100644 index 407c3d63..00000000 Binary files a/pics/511001071.jpg and /dev/null differ diff --git a/pics/511001072.jpg b/pics/511001072.jpg deleted file mode 100644 index 53c0b94d..00000000 Binary files a/pics/511001072.jpg and /dev/null differ diff --git a/pics/511001073.jpg b/pics/511001073.jpg deleted file mode 100644 index 7477069d..00000000 Binary files a/pics/511001073.jpg and /dev/null differ diff --git a/pics/511001074.jpg b/pics/511001074.jpg deleted file mode 100644 index 34197170..00000000 Binary files a/pics/511001074.jpg and /dev/null differ diff --git a/pics/511001075.jpg b/pics/511001075.jpg deleted file mode 100644 index f291b0a1..00000000 Binary files a/pics/511001075.jpg and /dev/null differ diff --git a/pics/511001076.jpg b/pics/511001076.jpg deleted file mode 100644 index c5f01ef9..00000000 Binary files a/pics/511001076.jpg and /dev/null differ diff --git a/pics/511001077.jpg b/pics/511001077.jpg deleted file mode 100644 index 8e6ed363..00000000 Binary files a/pics/511001077.jpg and /dev/null differ diff --git a/pics/511001078.jpg b/pics/511001078.jpg deleted file mode 100644 index 2d8488eb..00000000 Binary files a/pics/511001078.jpg and /dev/null differ diff --git a/pics/511001079.jpg b/pics/511001079.jpg deleted file mode 100644 index 6b7f2620..00000000 Binary files a/pics/511001079.jpg and /dev/null differ diff --git a/pics/511001080.jpg b/pics/511001080.jpg deleted file mode 100644 index 8ef3e384..00000000 Binary files a/pics/511001080.jpg and /dev/null differ diff --git a/pics/511001081.jpg b/pics/511001081.jpg deleted file mode 100644 index 9f933737..00000000 Binary files a/pics/511001081.jpg and /dev/null differ diff --git a/pics/511001082.jpg b/pics/511001082.jpg deleted file mode 100644 index ef96f0f4..00000000 Binary files a/pics/511001082.jpg and /dev/null differ diff --git a/pics/511001083.jpg b/pics/511001083.jpg deleted file mode 100644 index df51111d..00000000 Binary files a/pics/511001083.jpg and /dev/null differ diff --git a/pics/511001084.jpg b/pics/511001084.jpg deleted file mode 100644 index 7fe8e4b4..00000000 Binary files a/pics/511001084.jpg and /dev/null differ diff --git a/pics/511001085.jpg b/pics/511001085.jpg deleted file mode 100644 index ecb1b732..00000000 Binary files a/pics/511001085.jpg and /dev/null differ diff --git a/pics/511001086.jpg b/pics/511001086.jpg deleted file mode 100644 index a7d5f8b1..00000000 Binary files a/pics/511001086.jpg and /dev/null differ diff --git a/pics/511001087.jpg b/pics/511001087.jpg deleted file mode 100644 index daa7daea..00000000 Binary files a/pics/511001087.jpg and /dev/null differ diff --git a/pics/511001088.jpg b/pics/511001088.jpg deleted file mode 100644 index f63e0e87..00000000 Binary files a/pics/511001088.jpg and /dev/null differ diff --git a/pics/511001089.jpg b/pics/511001089.jpg deleted file mode 100644 index 09622d83..00000000 Binary files a/pics/511001089.jpg and /dev/null differ diff --git a/pics/511001090.jpg b/pics/511001090.jpg deleted file mode 100644 index 8fb0e02e..00000000 Binary files a/pics/511001090.jpg and /dev/null differ diff --git a/pics/511001091.jpg b/pics/511001091.jpg deleted file mode 100644 index a5f38788..00000000 Binary files a/pics/511001091.jpg and /dev/null differ diff --git a/pics/511001092.jpg b/pics/511001092.jpg deleted file mode 100644 index ce796b11..00000000 Binary files a/pics/511001092.jpg and /dev/null differ diff --git a/pics/511001093.jpg b/pics/511001093.jpg deleted file mode 100644 index d782c31f..00000000 Binary files a/pics/511001093.jpg and /dev/null differ diff --git a/pics/511001094.jpg b/pics/511001094.jpg deleted file mode 100644 index af0051e6..00000000 Binary files a/pics/511001094.jpg and /dev/null differ diff --git a/pics/511001095.jpg b/pics/511001095.jpg deleted file mode 100644 index 57734542..00000000 Binary files a/pics/511001095.jpg and /dev/null differ diff --git a/pics/511001096.jpg b/pics/511001096.jpg deleted file mode 100644 index c5c6c18a..00000000 Binary files a/pics/511001096.jpg and /dev/null differ diff --git a/pics/511001097.jpg b/pics/511001097.jpg deleted file mode 100644 index 6ef7fe2a..00000000 Binary files a/pics/511001097.jpg and /dev/null differ diff --git a/pics/511001098.jpg b/pics/511001098.jpg deleted file mode 100644 index 32fb4bc6..00000000 Binary files a/pics/511001098.jpg and /dev/null differ diff --git a/pics/511001099.jpg b/pics/511001099.jpg deleted file mode 100644 index f349e269..00000000 Binary files a/pics/511001099.jpg and /dev/null differ diff --git a/pics/511001100.jpg b/pics/511001100.jpg deleted file mode 100644 index 34988866..00000000 Binary files a/pics/511001100.jpg and /dev/null differ diff --git a/pics/511001101.jpg b/pics/511001101.jpg deleted file mode 100644 index dd843604..00000000 Binary files a/pics/511001101.jpg and /dev/null differ diff --git a/pics/511001102.jpg b/pics/511001102.jpg deleted file mode 100644 index 90bca8d3..00000000 Binary files a/pics/511001102.jpg and /dev/null differ diff --git a/pics/511001103.jpg b/pics/511001103.jpg deleted file mode 100644 index e00522be..00000000 Binary files a/pics/511001103.jpg and /dev/null differ diff --git a/pics/511001104.jpg b/pics/511001104.jpg deleted file mode 100644 index 383066bc..00000000 Binary files a/pics/511001104.jpg and /dev/null differ diff --git a/pics/511001105.jpg b/pics/511001105.jpg deleted file mode 100644 index 83049048..00000000 Binary files a/pics/511001105.jpg and /dev/null differ diff --git a/pics/511001106.jpg b/pics/511001106.jpg deleted file mode 100644 index b181c4b1..00000000 Binary files a/pics/511001106.jpg and /dev/null differ diff --git a/pics/511001107.jpg b/pics/511001107.jpg deleted file mode 100644 index e0ee24d4..00000000 Binary files a/pics/511001107.jpg and /dev/null differ diff --git a/pics/511001108.jpg b/pics/511001108.jpg deleted file mode 100644 index 21d95a9c..00000000 Binary files a/pics/511001108.jpg and /dev/null differ diff --git a/pics/511001109.jpg b/pics/511001109.jpg deleted file mode 100644 index 3805df94..00000000 Binary files a/pics/511001109.jpg and /dev/null differ diff --git a/pics/511001111.jpg b/pics/511001111.jpg deleted file mode 100644 index 29072c52..00000000 Binary files a/pics/511001111.jpg and /dev/null differ diff --git a/pics/511001112.jpg b/pics/511001112.jpg deleted file mode 100644 index 2c61a94a..00000000 Binary files a/pics/511001112.jpg and /dev/null differ diff --git a/pics/511001113.jpg b/pics/511001113.jpg deleted file mode 100644 index f7098e8a..00000000 Binary files a/pics/511001113.jpg and /dev/null differ diff --git a/pics/511001114.jpg b/pics/511001114.jpg deleted file mode 100644 index 31ad242e..00000000 Binary files a/pics/511001114.jpg and /dev/null differ diff --git a/pics/511001115.jpg b/pics/511001115.jpg deleted file mode 100644 index 9a724e70..00000000 Binary files a/pics/511001115.jpg and /dev/null differ diff --git a/pics/511001116.jpg b/pics/511001116.jpg deleted file mode 100644 index c3372101..00000000 Binary files a/pics/511001116.jpg and /dev/null differ diff --git a/pics/511001117.jpg b/pics/511001117.jpg deleted file mode 100644 index 032db3c3..00000000 Binary files a/pics/511001117.jpg and /dev/null differ diff --git a/pics/511001118.jpg b/pics/511001118.jpg deleted file mode 100644 index 6ce2c7b1..00000000 Binary files a/pics/511001118.jpg and /dev/null differ diff --git a/pics/511001119.jpg b/pics/511001119.jpg deleted file mode 100644 index 0b9f64cb..00000000 Binary files a/pics/511001119.jpg and /dev/null differ diff --git a/pics/511001120.jpg b/pics/511001120.jpg deleted file mode 100644 index 1f12ff9c..00000000 Binary files a/pics/511001120.jpg and /dev/null differ diff --git a/pics/511001121.jpg b/pics/511001121.jpg deleted file mode 100644 index 5a00636c..00000000 Binary files a/pics/511001121.jpg and /dev/null differ diff --git a/pics/511001122.jpg b/pics/511001122.jpg deleted file mode 100644 index 97e33bf8..00000000 Binary files a/pics/511001122.jpg and /dev/null differ diff --git a/pics/511001123.jpg b/pics/511001123.jpg deleted file mode 100644 index b70ca964..00000000 Binary files a/pics/511001123.jpg and /dev/null differ diff --git a/pics/511001124.jpg b/pics/511001124.jpg deleted file mode 100644 index da58d676..00000000 Binary files a/pics/511001124.jpg and /dev/null differ diff --git a/pics/511001125.jpg b/pics/511001125.jpg deleted file mode 100644 index 17471c9e..00000000 Binary files a/pics/511001125.jpg and /dev/null differ diff --git a/pics/511001126.jpg b/pics/511001126.jpg deleted file mode 100644 index e6bf7c71..00000000 Binary files a/pics/511001126.jpg and /dev/null differ diff --git a/pics/511001127.jpg b/pics/511001127.jpg deleted file mode 100644 index 5b8f8f1c..00000000 Binary files a/pics/511001127.jpg and /dev/null differ diff --git a/pics/511001128.jpg b/pics/511001128.jpg deleted file mode 100644 index b57e46d6..00000000 Binary files a/pics/511001128.jpg and /dev/null differ diff --git a/pics/511001129.jpg b/pics/511001129.jpg deleted file mode 100755 index d10bf29a..00000000 Binary files a/pics/511001129.jpg and /dev/null differ diff --git a/pics/511001130.jpg b/pics/511001130.jpg deleted file mode 100644 index 24497472..00000000 Binary files a/pics/511001130.jpg and /dev/null differ diff --git a/pics/511001131.jpg b/pics/511001131.jpg deleted file mode 100644 index b205ce3b..00000000 Binary files a/pics/511001131.jpg and /dev/null differ diff --git a/pics/511001132.jpg b/pics/511001132.jpg deleted file mode 100644 index 61a96981..00000000 Binary files a/pics/511001132.jpg and /dev/null differ diff --git a/pics/511001133.jpg b/pics/511001133.jpg deleted file mode 100644 index 9c527119..00000000 Binary files a/pics/511001133.jpg and /dev/null differ diff --git a/pics/511001134.jpg b/pics/511001134.jpg deleted file mode 100644 index 9ca1252d..00000000 Binary files a/pics/511001134.jpg and /dev/null differ diff --git a/pics/511001135.jpg b/pics/511001135.jpg deleted file mode 100644 index d7fe1c12..00000000 Binary files a/pics/511001135.jpg and /dev/null differ diff --git a/pics/511001136.jpg b/pics/511001136.jpg deleted file mode 100755 index baeeb490..00000000 Binary files a/pics/511001136.jpg and /dev/null differ diff --git a/pics/511001137.jpg b/pics/511001137.jpg deleted file mode 100644 index 3fecc38c..00000000 Binary files a/pics/511001137.jpg and /dev/null differ diff --git a/pics/511001138.jpg b/pics/511001138.jpg deleted file mode 100644 index 897f30d6..00000000 Binary files a/pics/511001138.jpg and /dev/null differ diff --git a/pics/511001139.jpg b/pics/511001139.jpg deleted file mode 100644 index 6fe9cd85..00000000 Binary files a/pics/511001139.jpg and /dev/null differ diff --git a/pics/511001140.jpg b/pics/511001140.jpg deleted file mode 100755 index 86df3d9a..00000000 Binary files a/pics/511001140.jpg and /dev/null differ diff --git a/pics/511001141.jpg b/pics/511001141.jpg deleted file mode 100644 index 559aea5a..00000000 Binary files a/pics/511001141.jpg and /dev/null differ diff --git a/pics/511001142.jpg b/pics/511001142.jpg deleted file mode 100644 index 394c841c..00000000 Binary files a/pics/511001142.jpg and /dev/null differ diff --git a/pics/511001143.jpg b/pics/511001143.jpg deleted file mode 100644 index 0f9b0b32..00000000 Binary files a/pics/511001143.jpg and /dev/null differ diff --git a/pics/511001144.jpg b/pics/511001144.jpg deleted file mode 100644 index ece080e5..00000000 Binary files a/pics/511001144.jpg and /dev/null differ diff --git a/pics/511001145.jpg b/pics/511001145.jpg deleted file mode 100644 index bbc95cc1..00000000 Binary files a/pics/511001145.jpg and /dev/null differ diff --git a/pics/511001146.jpg b/pics/511001146.jpg deleted file mode 100644 index b3cae327..00000000 Binary files a/pics/511001146.jpg and /dev/null differ diff --git a/pics/511001147.jpg b/pics/511001147.jpg deleted file mode 100644 index da1f21eb..00000000 Binary files a/pics/511001147.jpg and /dev/null differ diff --git a/pics/511001148.jpg b/pics/511001148.jpg deleted file mode 100644 index a5a65ab4..00000000 Binary files a/pics/511001148.jpg and /dev/null differ diff --git a/pics/511001149.jpg b/pics/511001149.jpg deleted file mode 100644 index 13280e81..00000000 Binary files a/pics/511001149.jpg and /dev/null differ diff --git a/pics/511001150.jpg b/pics/511001150.jpg deleted file mode 100644 index 4ee2e650..00000000 Binary files a/pics/511001150.jpg and /dev/null differ diff --git a/pics/511001151.jpg b/pics/511001151.jpg deleted file mode 100644 index e11a4941..00000000 Binary files a/pics/511001151.jpg and /dev/null differ diff --git a/pics/511001152.jpg b/pics/511001152.jpg deleted file mode 100644 index 190e1114..00000000 Binary files a/pics/511001152.jpg and /dev/null differ diff --git a/pics/511001153.jpg b/pics/511001153.jpg deleted file mode 100644 index 6a5f8296..00000000 Binary files a/pics/511001153.jpg and /dev/null differ diff --git a/pics/511001154.jpg b/pics/511001154.jpg deleted file mode 100644 index 9d8d01f4..00000000 Binary files a/pics/511001154.jpg and /dev/null differ diff --git a/pics/511001155.jpg b/pics/511001155.jpg deleted file mode 100644 index 495e28be..00000000 Binary files a/pics/511001155.jpg and /dev/null differ diff --git a/pics/511001156.jpg b/pics/511001156.jpg deleted file mode 100644 index 2667f41f..00000000 Binary files a/pics/511001156.jpg and /dev/null differ diff --git a/pics/511001157.jpg b/pics/511001157.jpg deleted file mode 100644 index b0295bc4..00000000 Binary files a/pics/511001157.jpg and /dev/null differ diff --git a/pics/511001158.jpg b/pics/511001158.jpg deleted file mode 100644 index af3803d2..00000000 Binary files a/pics/511001158.jpg and /dev/null differ diff --git a/pics/511001159.jpg b/pics/511001159.jpg deleted file mode 100644 index ce27a6f4..00000000 Binary files a/pics/511001159.jpg and /dev/null differ diff --git a/pics/511001160.jpg b/pics/511001160.jpg deleted file mode 100644 index 488c9167..00000000 Binary files a/pics/511001160.jpg and /dev/null differ diff --git a/pics/511001161.jpg b/pics/511001161.jpg deleted file mode 100644 index 3f1ef482..00000000 Binary files a/pics/511001161.jpg and /dev/null differ diff --git a/pics/511001162.jpg b/pics/511001162.jpg deleted file mode 100644 index 08cca8bf..00000000 Binary files a/pics/511001162.jpg and /dev/null differ diff --git a/pics/511001163.jpg b/pics/511001163.jpg deleted file mode 100644 index a9ce90a6..00000000 Binary files a/pics/511001163.jpg and /dev/null differ diff --git a/pics/511001164.jpg b/pics/511001164.jpg deleted file mode 100644 index b13dbf02..00000000 Binary files a/pics/511001164.jpg and /dev/null differ diff --git a/pics/511001165.jpg b/pics/511001165.jpg deleted file mode 100644 index 75d29d6a..00000000 Binary files a/pics/511001165.jpg and /dev/null differ diff --git a/pics/511001166.jpg b/pics/511001166.jpg deleted file mode 100644 index e488fbca..00000000 Binary files a/pics/511001166.jpg and /dev/null differ diff --git a/pics/511001167.jpg b/pics/511001167.jpg deleted file mode 100644 index f3fb18f4..00000000 Binary files a/pics/511001167.jpg and /dev/null differ diff --git a/pics/511001168.jpg b/pics/511001168.jpg deleted file mode 100644 index 5eecfbf9..00000000 Binary files a/pics/511001168.jpg and /dev/null differ diff --git a/pics/511001169.jpg b/pics/511001169.jpg deleted file mode 100644 index 494056c1..00000000 Binary files a/pics/511001169.jpg and /dev/null differ diff --git a/pics/511001170.jpg b/pics/511001170.jpg deleted file mode 100644 index 3c40bf20..00000000 Binary files a/pics/511001170.jpg and /dev/null differ diff --git a/pics/511001171.jpg b/pics/511001171.jpg deleted file mode 100644 index 5a7c88ab..00000000 Binary files a/pics/511001171.jpg and /dev/null differ diff --git a/pics/511001172.jpg b/pics/511001172.jpg deleted file mode 100644 index 7ce81f82..00000000 Binary files a/pics/511001172.jpg and /dev/null differ diff --git a/pics/511001173.jpg b/pics/511001173.jpg deleted file mode 100644 index fd669e7f..00000000 Binary files a/pics/511001173.jpg and /dev/null differ diff --git a/pics/511001174.jpg b/pics/511001174.jpg deleted file mode 100644 index b4066215..00000000 Binary files a/pics/511001174.jpg and /dev/null differ diff --git a/pics/511001175.jpg b/pics/511001175.jpg deleted file mode 100644 index 057be355..00000000 Binary files a/pics/511001175.jpg and /dev/null differ diff --git a/pics/511001176.jpg b/pics/511001176.jpg deleted file mode 100644 index e9c3f253..00000000 Binary files a/pics/511001176.jpg and /dev/null differ diff --git a/pics/511001177.jpg b/pics/511001177.jpg deleted file mode 100644 index 21979836..00000000 Binary files a/pics/511001177.jpg and /dev/null differ diff --git a/pics/511001178.jpg b/pics/511001178.jpg deleted file mode 100644 index 76d2066c..00000000 Binary files a/pics/511001178.jpg and /dev/null differ diff --git a/pics/511001179.jpg b/pics/511001179.jpg deleted file mode 100644 index 0fdba3ed..00000000 Binary files a/pics/511001179.jpg and /dev/null differ diff --git a/pics/511001180.jpg b/pics/511001180.jpg deleted file mode 100644 index 3a5e3def..00000000 Binary files a/pics/511001180.jpg and /dev/null differ diff --git a/pics/511001181.jpg b/pics/511001181.jpg deleted file mode 100644 index 324259ee..00000000 Binary files a/pics/511001181.jpg and /dev/null differ diff --git a/pics/511001182.jpg b/pics/511001182.jpg deleted file mode 100644 index 391cf4cb..00000000 Binary files a/pics/511001182.jpg and /dev/null differ diff --git a/pics/511001183.jpg b/pics/511001183.jpg deleted file mode 100644 index fdb7b510..00000000 Binary files a/pics/511001183.jpg and /dev/null differ diff --git a/pics/511001184.jpg b/pics/511001184.jpg deleted file mode 100644 index d80afcf2..00000000 Binary files a/pics/511001184.jpg and /dev/null differ diff --git a/pics/511001185.jpg b/pics/511001185.jpg deleted file mode 100644 index 1e4cd3a9..00000000 Binary files a/pics/511001185.jpg and /dev/null differ diff --git a/pics/511001186.jpg b/pics/511001186.jpg deleted file mode 100644 index 69f16faf..00000000 Binary files a/pics/511001186.jpg and /dev/null differ diff --git a/pics/511001187.jpg b/pics/511001187.jpg deleted file mode 100644 index 8cd9937e..00000000 Binary files a/pics/511001187.jpg and /dev/null differ diff --git a/pics/511001188.jpg b/pics/511001188.jpg deleted file mode 100644 index 00f70f1d..00000000 Binary files a/pics/511001188.jpg and /dev/null differ diff --git a/pics/511001189.jpg b/pics/511001189.jpg deleted file mode 100644 index 166a5477..00000000 Binary files a/pics/511001189.jpg and /dev/null differ diff --git a/pics/511001190.jpg b/pics/511001190.jpg deleted file mode 100644 index 5f5ed68d..00000000 Binary files a/pics/511001190.jpg and /dev/null differ diff --git a/pics/511001191.jpg b/pics/511001191.jpg deleted file mode 100644 index ea108b8e..00000000 Binary files a/pics/511001191.jpg and /dev/null differ diff --git a/pics/511001192.jpg b/pics/511001192.jpg deleted file mode 100644 index 60e08be5..00000000 Binary files a/pics/511001192.jpg and /dev/null differ diff --git a/pics/511001193.jpg b/pics/511001193.jpg deleted file mode 100644 index 4bb3f484..00000000 Binary files a/pics/511001193.jpg and /dev/null differ diff --git a/pics/511001194.jpg b/pics/511001194.jpg deleted file mode 100644 index 7615ccc7..00000000 Binary files a/pics/511001194.jpg and /dev/null differ diff --git a/pics/511001195.jpg b/pics/511001195.jpg deleted file mode 100644 index 51fe685f..00000000 Binary files a/pics/511001195.jpg and /dev/null differ diff --git a/pics/511001196.jpg b/pics/511001196.jpg deleted file mode 100644 index b2d34062..00000000 Binary files a/pics/511001196.jpg and /dev/null differ diff --git a/pics/511001197.jpg b/pics/511001197.jpg deleted file mode 100644 index c3b697ff..00000000 Binary files a/pics/511001197.jpg and /dev/null differ diff --git a/pics/511001198.jpg b/pics/511001198.jpg deleted file mode 100644 index 65a7d00f..00000000 Binary files a/pics/511001198.jpg and /dev/null differ diff --git a/pics/511001199.jpg b/pics/511001199.jpg deleted file mode 100644 index 45555d60..00000000 Binary files a/pics/511001199.jpg and /dev/null differ diff --git a/pics/511001200.jpg b/pics/511001200.jpg deleted file mode 100644 index 9eaaaa30..00000000 Binary files a/pics/511001200.jpg and /dev/null differ diff --git a/pics/511001201.jpg b/pics/511001201.jpg deleted file mode 100644 index 704888f1..00000000 Binary files a/pics/511001201.jpg and /dev/null differ diff --git a/pics/511001202.jpg b/pics/511001202.jpg deleted file mode 100644 index 8ca6af6f..00000000 Binary files a/pics/511001202.jpg and /dev/null differ diff --git a/pics/511001203.jpg b/pics/511001203.jpg deleted file mode 100644 index 40fc6201..00000000 Binary files a/pics/511001203.jpg and /dev/null differ diff --git a/pics/511001204.jpg b/pics/511001204.jpg deleted file mode 100644 index 31e89488..00000000 Binary files a/pics/511001204.jpg and /dev/null differ diff --git a/pics/511001205.jpg b/pics/511001205.jpg deleted file mode 100644 index acb04f43..00000000 Binary files a/pics/511001205.jpg and /dev/null differ diff --git a/pics/511001206.jpg b/pics/511001206.jpg deleted file mode 100644 index 576f78d9..00000000 Binary files a/pics/511001206.jpg and /dev/null differ diff --git a/pics/511001207.jpg b/pics/511001207.jpg deleted file mode 100644 index f7dffd56..00000000 Binary files a/pics/511001207.jpg and /dev/null differ diff --git a/pics/511001208.jpg b/pics/511001208.jpg deleted file mode 100644 index dcf14819..00000000 Binary files a/pics/511001208.jpg and /dev/null differ diff --git a/pics/511001209.jpg b/pics/511001209.jpg deleted file mode 100644 index 37bc452f..00000000 Binary files a/pics/511001209.jpg and /dev/null differ diff --git a/pics/511001210.jpg b/pics/511001210.jpg deleted file mode 100644 index 3421ff05..00000000 Binary files a/pics/511001210.jpg and /dev/null differ diff --git a/pics/511001211.jpg b/pics/511001211.jpg deleted file mode 100644 index 2c6a6dbe..00000000 Binary files a/pics/511001211.jpg and /dev/null differ diff --git a/pics/511001212.jpg b/pics/511001212.jpg deleted file mode 100644 index 5b812b79..00000000 Binary files a/pics/511001212.jpg and /dev/null differ diff --git a/pics/511001213.jpg b/pics/511001213.jpg deleted file mode 100644 index 814f8adb..00000000 Binary files a/pics/511001213.jpg and /dev/null differ diff --git a/pics/511001214.jpg b/pics/511001214.jpg deleted file mode 100644 index cca61ec2..00000000 Binary files a/pics/511001214.jpg and /dev/null differ diff --git a/pics/511001215.jpg b/pics/511001215.jpg deleted file mode 100644 index 6fd6374a..00000000 Binary files a/pics/511001215.jpg and /dev/null differ diff --git a/pics/511001216.jpg b/pics/511001216.jpg deleted file mode 100644 index 83268438..00000000 Binary files a/pics/511001216.jpg and /dev/null differ diff --git a/pics/511001217.jpg b/pics/511001217.jpg deleted file mode 100644 index bd24a1af..00000000 Binary files a/pics/511001217.jpg and /dev/null differ diff --git a/pics/511001218.jpg b/pics/511001218.jpg deleted file mode 100644 index 0d921da5..00000000 Binary files a/pics/511001218.jpg and /dev/null differ diff --git a/pics/511001219.jpg b/pics/511001219.jpg deleted file mode 100644 index b15c3b89..00000000 Binary files a/pics/511001219.jpg and /dev/null differ diff --git a/pics/511001220.jpg b/pics/511001220.jpg deleted file mode 100644 index 3c866489..00000000 Binary files a/pics/511001220.jpg and /dev/null differ diff --git a/pics/511001221.jpg b/pics/511001221.jpg deleted file mode 100644 index d9082f72..00000000 Binary files a/pics/511001221.jpg and /dev/null differ diff --git a/pics/511001222.jpg b/pics/511001222.jpg deleted file mode 100644 index 00e6455d..00000000 Binary files a/pics/511001222.jpg and /dev/null differ diff --git a/pics/511001223.jpg b/pics/511001223.jpg deleted file mode 100644 index 52111db9..00000000 Binary files a/pics/511001223.jpg and /dev/null differ diff --git a/pics/511001224.jpg b/pics/511001224.jpg deleted file mode 100644 index dd8547dc..00000000 Binary files a/pics/511001224.jpg and /dev/null differ diff --git a/pics/511001225.jpg b/pics/511001225.jpg deleted file mode 100644 index 0a6f7a1f..00000000 Binary files a/pics/511001225.jpg and /dev/null differ diff --git a/pics/511001226.jpg b/pics/511001226.jpg deleted file mode 100644 index d02ba28b..00000000 Binary files a/pics/511001226.jpg and /dev/null differ diff --git a/pics/511001227.jpg b/pics/511001227.jpg deleted file mode 100644 index 3dff9f00..00000000 Binary files a/pics/511001227.jpg and /dev/null differ diff --git a/pics/511001228.jpg b/pics/511001228.jpg deleted file mode 100644 index ea56a3f8..00000000 Binary files a/pics/511001228.jpg and /dev/null differ diff --git a/pics/511001229.jpg b/pics/511001229.jpg deleted file mode 100644 index cb8f34fb..00000000 Binary files a/pics/511001229.jpg and /dev/null differ diff --git a/pics/511001230.jpg b/pics/511001230.jpg deleted file mode 100644 index 6ec37288..00000000 Binary files a/pics/511001230.jpg and /dev/null differ diff --git a/pics/511001231.jpg b/pics/511001231.jpg deleted file mode 100644 index a4fdca0e..00000000 Binary files a/pics/511001231.jpg and /dev/null differ diff --git a/pics/511001232.jpg b/pics/511001232.jpg deleted file mode 100644 index f4c0e951..00000000 Binary files a/pics/511001232.jpg and /dev/null differ diff --git a/pics/511001233.jpg b/pics/511001233.jpg deleted file mode 100644 index f1568b81..00000000 Binary files a/pics/511001233.jpg and /dev/null differ diff --git a/pics/511001234.jpg b/pics/511001234.jpg deleted file mode 100644 index 4ad09d81..00000000 Binary files a/pics/511001234.jpg and /dev/null differ diff --git a/pics/511001235.jpg b/pics/511001235.jpg deleted file mode 100644 index 0ed15b5a..00000000 Binary files a/pics/511001235.jpg and /dev/null differ diff --git a/pics/511001236.jpg b/pics/511001236.jpg deleted file mode 100644 index ac1a0cec..00000000 Binary files a/pics/511001236.jpg and /dev/null differ diff --git a/pics/511001237.jpg b/pics/511001237.jpg deleted file mode 100644 index 4a8cd04f..00000000 Binary files a/pics/511001237.jpg and /dev/null differ diff --git a/pics/511001238.jpg b/pics/511001238.jpg deleted file mode 100644 index 4a68f42c..00000000 Binary files a/pics/511001238.jpg and /dev/null differ diff --git a/pics/511001239.jpg b/pics/511001239.jpg deleted file mode 100644 index 1f267032..00000000 Binary files a/pics/511001239.jpg and /dev/null differ diff --git a/pics/511001240.jpg b/pics/511001240.jpg deleted file mode 100644 index 1f7f9600..00000000 Binary files a/pics/511001240.jpg and /dev/null differ diff --git a/pics/511001241.jpg b/pics/511001241.jpg deleted file mode 100644 index 217fec00..00000000 Binary files a/pics/511001241.jpg and /dev/null differ diff --git a/pics/511001242.jpg b/pics/511001242.jpg deleted file mode 100644 index c031f731..00000000 Binary files a/pics/511001242.jpg and /dev/null differ diff --git a/pics/511001243.jpg b/pics/511001243.jpg deleted file mode 100644 index 20fcdbaa..00000000 Binary files a/pics/511001243.jpg and /dev/null differ diff --git a/pics/511001244.jpg b/pics/511001244.jpg deleted file mode 100644 index 83db1bcb..00000000 Binary files a/pics/511001244.jpg and /dev/null differ diff --git a/pics/511001245.jpg b/pics/511001245.jpg deleted file mode 100644 index f97f4dbd..00000000 Binary files a/pics/511001245.jpg and /dev/null differ diff --git a/pics/511001246.jpg b/pics/511001246.jpg deleted file mode 100644 index 70d38c80..00000000 Binary files a/pics/511001246.jpg and /dev/null differ diff --git a/pics/511001247.jpg b/pics/511001247.jpg deleted file mode 100644 index 08198fd6..00000000 Binary files a/pics/511001247.jpg and /dev/null differ diff --git a/pics/511001248.jpg b/pics/511001248.jpg deleted file mode 100644 index bb14a88e..00000000 Binary files a/pics/511001248.jpg and /dev/null differ diff --git a/pics/511001249.jpg b/pics/511001249.jpg deleted file mode 100644 index 6aa6dcfa..00000000 Binary files a/pics/511001249.jpg and /dev/null differ diff --git a/pics/511001250.jpg b/pics/511001250.jpg deleted file mode 100644 index e80d85d0..00000000 Binary files a/pics/511001250.jpg and /dev/null differ diff --git a/pics/511001251.jpg b/pics/511001251.jpg deleted file mode 100644 index 472fc219..00000000 Binary files a/pics/511001251.jpg and /dev/null differ diff --git a/pics/511001252.jpg b/pics/511001252.jpg deleted file mode 100644 index e9f49d09..00000000 Binary files a/pics/511001252.jpg and /dev/null differ diff --git a/pics/511001253.jpg b/pics/511001253.jpg deleted file mode 100644 index 1d2d26d5..00000000 Binary files a/pics/511001253.jpg and /dev/null differ diff --git a/pics/511001254.jpg b/pics/511001254.jpg deleted file mode 100644 index e802ee74..00000000 Binary files a/pics/511001254.jpg and /dev/null differ diff --git a/pics/511001255.jpg b/pics/511001255.jpg deleted file mode 100644 index cf35634b..00000000 Binary files a/pics/511001255.jpg and /dev/null differ diff --git a/pics/511001256.jpg b/pics/511001256.jpg deleted file mode 100644 index a860102b..00000000 Binary files a/pics/511001256.jpg and /dev/null differ diff --git a/pics/511001257.jpg b/pics/511001257.jpg deleted file mode 100644 index 08c08003..00000000 Binary files a/pics/511001257.jpg and /dev/null differ diff --git a/pics/511001258.jpg b/pics/511001258.jpg deleted file mode 100644 index efe3a395..00000000 Binary files a/pics/511001258.jpg and /dev/null differ diff --git a/pics/511001259.jpg b/pics/511001259.jpg deleted file mode 100644 index 8b79833b..00000000 Binary files a/pics/511001259.jpg and /dev/null differ diff --git a/pics/511001260.jpg b/pics/511001260.jpg deleted file mode 100644 index 3de03709..00000000 Binary files a/pics/511001260.jpg and /dev/null differ diff --git a/pics/511001261.jpg b/pics/511001261.jpg deleted file mode 100644 index 953c7996..00000000 Binary files a/pics/511001261.jpg and /dev/null differ diff --git a/pics/511001262.jpg b/pics/511001262.jpg deleted file mode 100644 index 5b741031..00000000 Binary files a/pics/511001262.jpg and /dev/null differ diff --git a/pics/511001263.jpg b/pics/511001263.jpg deleted file mode 100644 index 42d74ef5..00000000 Binary files a/pics/511001263.jpg and /dev/null differ diff --git a/pics/511001264.jpg b/pics/511001264.jpg deleted file mode 100644 index 25814889..00000000 Binary files a/pics/511001264.jpg and /dev/null differ diff --git a/pics/511001265.jpg b/pics/511001265.jpg deleted file mode 100644 index 9d7362e6..00000000 Binary files a/pics/511001265.jpg and /dev/null differ diff --git a/pics/511001266.jpg b/pics/511001266.jpg deleted file mode 100644 index 43476037..00000000 Binary files a/pics/511001266.jpg and /dev/null differ diff --git a/pics/511001267.jpg b/pics/511001267.jpg deleted file mode 100644 index 2b96778a..00000000 Binary files a/pics/511001267.jpg and /dev/null differ diff --git a/pics/511001268.jpg b/pics/511001268.jpg deleted file mode 100644 index bc8e5819..00000000 Binary files a/pics/511001268.jpg and /dev/null differ diff --git a/pics/511001269.jpg b/pics/511001269.jpg deleted file mode 100644 index 8fd1c4bf..00000000 Binary files a/pics/511001269.jpg and /dev/null differ diff --git a/pics/511001270.jpg b/pics/511001270.jpg deleted file mode 100644 index 7a074704..00000000 Binary files a/pics/511001270.jpg and /dev/null differ diff --git a/pics/511001271.jpg b/pics/511001271.jpg deleted file mode 100644 index 1bdf7d22..00000000 Binary files a/pics/511001271.jpg and /dev/null differ diff --git a/pics/511001272.jpg b/pics/511001272.jpg deleted file mode 100644 index a59c8eea..00000000 Binary files a/pics/511001272.jpg and /dev/null differ diff --git a/pics/511001273.jpg b/pics/511001273.jpg deleted file mode 100644 index 58c0215a..00000000 Binary files a/pics/511001273.jpg and /dev/null differ diff --git a/pics/511001274.jpg b/pics/511001274.jpg deleted file mode 100644 index 6f1f28a5..00000000 Binary files a/pics/511001274.jpg and /dev/null differ diff --git a/pics/511001275.jpg b/pics/511001275.jpg deleted file mode 100644 index a3cf44a4..00000000 Binary files a/pics/511001275.jpg and /dev/null differ diff --git a/pics/511001276.jpg b/pics/511001276.jpg deleted file mode 100644 index 382aba3a..00000000 Binary files a/pics/511001276.jpg and /dev/null differ diff --git a/pics/511001277.jpg b/pics/511001277.jpg deleted file mode 100644 index 191f51c3..00000000 Binary files a/pics/511001277.jpg and /dev/null differ diff --git a/pics/511001278.jpg b/pics/511001278.jpg deleted file mode 100644 index cffbf070..00000000 Binary files a/pics/511001278.jpg and /dev/null differ diff --git a/pics/511001279.jpg b/pics/511001279.jpg deleted file mode 100644 index d0cc431f..00000000 Binary files a/pics/511001279.jpg and /dev/null differ diff --git a/pics/511001280.jpg b/pics/511001280.jpg deleted file mode 100644 index 9c6d62b6..00000000 Binary files a/pics/511001280.jpg and /dev/null differ diff --git a/pics/511001281.jpg b/pics/511001281.jpg deleted file mode 100755 index 3181fe3b..00000000 Binary files a/pics/511001281.jpg and /dev/null differ diff --git a/pics/511001282.jpg b/pics/511001282.jpg deleted file mode 100644 index 026a4dc6..00000000 Binary files a/pics/511001282.jpg and /dev/null differ diff --git a/pics/511001283.jpg b/pics/511001283.jpg deleted file mode 100644 index c94237e9..00000000 Binary files a/pics/511001283.jpg and /dev/null differ diff --git a/pics/511001284.jpg b/pics/511001284.jpg deleted file mode 100644 index e5bf5207..00000000 Binary files a/pics/511001284.jpg and /dev/null differ diff --git a/pics/511001285.jpg b/pics/511001285.jpg deleted file mode 100644 index 5eadf5a6..00000000 Binary files a/pics/511001285.jpg and /dev/null differ diff --git a/pics/511001286.jpg b/pics/511001286.jpg deleted file mode 100644 index af1c7a57..00000000 Binary files a/pics/511001286.jpg and /dev/null differ diff --git a/pics/511001287.jpg b/pics/511001287.jpg deleted file mode 100644 index 3dd472d6..00000000 Binary files a/pics/511001287.jpg and /dev/null differ diff --git a/pics/511001288.jpg b/pics/511001288.jpg deleted file mode 100644 index 9fb88269..00000000 Binary files a/pics/511001288.jpg and /dev/null differ diff --git a/pics/511001289.jpg b/pics/511001289.jpg deleted file mode 100644 index cb3b7f1c..00000000 Binary files a/pics/511001289.jpg and /dev/null differ diff --git a/pics/511001290.jpg b/pics/511001290.jpg deleted file mode 100644 index c89731e5..00000000 Binary files a/pics/511001290.jpg and /dev/null differ diff --git a/pics/511001291.jpg b/pics/511001291.jpg deleted file mode 100644 index 9fedd4af..00000000 Binary files a/pics/511001291.jpg and /dev/null differ diff --git a/pics/511001292.jpg b/pics/511001292.jpg deleted file mode 100644 index 8389350c..00000000 Binary files a/pics/511001292.jpg and /dev/null differ diff --git a/pics/511001293.jpg b/pics/511001293.jpg deleted file mode 100644 index 6efecb07..00000000 Binary files a/pics/511001293.jpg and /dev/null differ diff --git a/pics/511001294.jpg b/pics/511001294.jpg deleted file mode 100644 index 07713217..00000000 Binary files a/pics/511001294.jpg and /dev/null differ diff --git a/pics/511001295.jpg b/pics/511001295.jpg deleted file mode 100644 index b1ef3b09..00000000 Binary files a/pics/511001295.jpg and /dev/null differ diff --git a/pics/511001296.jpg b/pics/511001296.jpg deleted file mode 100644 index 464cc267..00000000 Binary files a/pics/511001296.jpg and /dev/null differ diff --git a/pics/511001297.jpg b/pics/511001297.jpg deleted file mode 100644 index c8719e03..00000000 Binary files a/pics/511001297.jpg and /dev/null differ diff --git a/pics/511001298.jpg b/pics/511001298.jpg deleted file mode 100644 index 27362da8..00000000 Binary files a/pics/511001298.jpg and /dev/null differ diff --git a/pics/511001299.jpg b/pics/511001299.jpg deleted file mode 100644 index 985ab57d..00000000 Binary files a/pics/511001299.jpg and /dev/null differ diff --git a/pics/511001300.jpg b/pics/511001300.jpg deleted file mode 100644 index 9c9dc343..00000000 Binary files a/pics/511001300.jpg and /dev/null differ diff --git a/pics/511001301.jpg b/pics/511001301.jpg deleted file mode 100644 index bf8f1f2d..00000000 Binary files a/pics/511001301.jpg and /dev/null differ diff --git a/pics/511001302.jpg b/pics/511001302.jpg deleted file mode 100644 index b83963db..00000000 Binary files a/pics/511001302.jpg and /dev/null differ diff --git a/pics/511001303.jpg b/pics/511001303.jpg deleted file mode 100644 index 559c8205..00000000 Binary files a/pics/511001303.jpg and /dev/null differ diff --git a/pics/511001304.jpg b/pics/511001304.jpg deleted file mode 100644 index 38c30cc5..00000000 Binary files a/pics/511001304.jpg and /dev/null differ diff --git a/pics/511001305.jpg b/pics/511001305.jpg deleted file mode 100644 index 2779c1d8..00000000 Binary files a/pics/511001305.jpg and /dev/null differ diff --git a/pics/511001306.jpg b/pics/511001306.jpg deleted file mode 100644 index 2a4b13a9..00000000 Binary files a/pics/511001306.jpg and /dev/null differ diff --git a/pics/511001307.jpg b/pics/511001307.jpg deleted file mode 100644 index 3f7c7a90..00000000 Binary files a/pics/511001307.jpg and /dev/null differ diff --git a/pics/511001308.jpg b/pics/511001308.jpg deleted file mode 100644 index a334feb6..00000000 Binary files a/pics/511001308.jpg and /dev/null differ diff --git a/pics/511001309.jpg b/pics/511001309.jpg deleted file mode 100644 index c06f83b7..00000000 Binary files a/pics/511001309.jpg and /dev/null differ diff --git a/pics/511001310.jpg b/pics/511001310.jpg deleted file mode 100644 index 357fa437..00000000 Binary files a/pics/511001310.jpg and /dev/null differ diff --git a/pics/511001311.jpg b/pics/511001311.jpg deleted file mode 100644 index 24cbac48..00000000 Binary files a/pics/511001311.jpg and /dev/null differ diff --git a/pics/511001312.jpg b/pics/511001312.jpg deleted file mode 100644 index a457e639..00000000 Binary files a/pics/511001312.jpg and /dev/null differ diff --git a/pics/511001313.jpg b/pics/511001313.jpg deleted file mode 100644 index 8e2cfe0b..00000000 Binary files a/pics/511001313.jpg and /dev/null differ diff --git a/pics/511001314.jpg b/pics/511001314.jpg deleted file mode 100644 index db0e834f..00000000 Binary files a/pics/511001314.jpg and /dev/null differ diff --git a/pics/511001315.jpg b/pics/511001315.jpg deleted file mode 100644 index 9a36639f..00000000 Binary files a/pics/511001315.jpg and /dev/null differ diff --git a/pics/511001316.jpg b/pics/511001316.jpg deleted file mode 100644 index 9185a5b2..00000000 Binary files a/pics/511001316.jpg and /dev/null differ diff --git a/pics/511001317.jpg b/pics/511001317.jpg deleted file mode 100644 index f4b7fbc1..00000000 Binary files a/pics/511001317.jpg and /dev/null differ diff --git a/pics/511001318.jpg b/pics/511001318.jpg deleted file mode 100644 index db044207..00000000 Binary files a/pics/511001318.jpg and /dev/null differ diff --git a/pics/511001319.jpg b/pics/511001319.jpg deleted file mode 100644 index c5c67a65..00000000 Binary files a/pics/511001319.jpg and /dev/null differ diff --git a/pics/511001320.jpg b/pics/511001320.jpg deleted file mode 100644 index 7b42259d..00000000 Binary files a/pics/511001320.jpg and /dev/null differ diff --git a/pics/511001321.jpg b/pics/511001321.jpg deleted file mode 100644 index 41384030..00000000 Binary files a/pics/511001321.jpg and /dev/null differ diff --git a/pics/511001322.jpg b/pics/511001322.jpg deleted file mode 100644 index b9b13903..00000000 Binary files a/pics/511001322.jpg and /dev/null differ diff --git a/pics/511001323.jpg b/pics/511001323.jpg deleted file mode 100644 index 7cbef1c9..00000000 Binary files a/pics/511001323.jpg and /dev/null differ diff --git a/pics/511001324.jpg b/pics/511001324.jpg deleted file mode 100644 index e66547d1..00000000 Binary files a/pics/511001324.jpg and /dev/null differ diff --git a/pics/511001325.jpg b/pics/511001325.jpg deleted file mode 100644 index ce62777f..00000000 Binary files a/pics/511001325.jpg and /dev/null differ diff --git a/pics/511001326.jpg b/pics/511001326.jpg deleted file mode 100755 index 1c9b711f..00000000 Binary files a/pics/511001326.jpg and /dev/null differ diff --git a/pics/511001327.jpg b/pics/511001327.jpg deleted file mode 100644 index d757790f..00000000 Binary files a/pics/511001327.jpg and /dev/null differ diff --git a/pics/511001328.jpg b/pics/511001328.jpg deleted file mode 100644 index 90374eae..00000000 Binary files a/pics/511001328.jpg and /dev/null differ diff --git a/pics/511001329.jpg b/pics/511001329.jpg deleted file mode 100644 index a4d5a257..00000000 Binary files a/pics/511001329.jpg and /dev/null differ diff --git a/pics/511001330.jpg b/pics/511001330.jpg deleted file mode 100644 index 8d9facc7..00000000 Binary files a/pics/511001330.jpg and /dev/null differ diff --git a/pics/511001331.jpg b/pics/511001331.jpg deleted file mode 100644 index f7fc8ae8..00000000 Binary files a/pics/511001331.jpg and /dev/null differ diff --git a/pics/511001332.jpg b/pics/511001332.jpg deleted file mode 100644 index 9415157a..00000000 Binary files a/pics/511001332.jpg and /dev/null differ diff --git a/pics/511001333.jpg b/pics/511001333.jpg deleted file mode 100644 index 28034aa8..00000000 Binary files a/pics/511001333.jpg and /dev/null differ diff --git a/pics/511001334.jpg b/pics/511001334.jpg deleted file mode 100644 index b4933a0c..00000000 Binary files a/pics/511001334.jpg and /dev/null differ diff --git a/pics/511001335.jpg b/pics/511001335.jpg deleted file mode 100644 index c3164e8a..00000000 Binary files a/pics/511001335.jpg and /dev/null differ diff --git a/pics/511001336.jpg b/pics/511001336.jpg deleted file mode 100644 index 4b68a19b..00000000 Binary files a/pics/511001336.jpg and /dev/null differ diff --git a/pics/511001337.jpg b/pics/511001337.jpg deleted file mode 100644 index 58f296c0..00000000 Binary files a/pics/511001337.jpg and /dev/null differ diff --git a/pics/511001338.jpg b/pics/511001338.jpg deleted file mode 100644 index 1ed2f952..00000000 Binary files a/pics/511001338.jpg and /dev/null differ diff --git a/pics/511001339.jpg b/pics/511001339.jpg deleted file mode 100644 index b04d6009..00000000 Binary files a/pics/511001339.jpg and /dev/null differ diff --git a/pics/511001340.jpg b/pics/511001340.jpg deleted file mode 100644 index 70eb61e9..00000000 Binary files a/pics/511001340.jpg and /dev/null differ diff --git a/pics/511001341.jpg b/pics/511001341.jpg deleted file mode 100644 index 67b71b23..00000000 Binary files a/pics/511001341.jpg and /dev/null differ diff --git a/pics/511001342.jpg b/pics/511001342.jpg deleted file mode 100644 index 41373b71..00000000 Binary files a/pics/511001342.jpg and /dev/null differ diff --git a/pics/511001343.jpg b/pics/511001343.jpg deleted file mode 100644 index 7a10b39b..00000000 Binary files a/pics/511001343.jpg and /dev/null differ diff --git a/pics/511001344.jpg b/pics/511001344.jpg deleted file mode 100644 index a7597fe3..00000000 Binary files a/pics/511001344.jpg and /dev/null differ diff --git a/pics/511001345.jpg b/pics/511001345.jpg deleted file mode 100644 index eb805e25..00000000 Binary files a/pics/511001345.jpg and /dev/null differ diff --git a/pics/511001346.jpg b/pics/511001346.jpg deleted file mode 100644 index 2c23f0b2..00000000 Binary files a/pics/511001346.jpg and /dev/null differ diff --git a/pics/511001347.jpg b/pics/511001347.jpg deleted file mode 100644 index c4bfd8e5..00000000 Binary files a/pics/511001347.jpg and /dev/null differ diff --git a/pics/511001348.jpg b/pics/511001348.jpg deleted file mode 100644 index 1893c984..00000000 Binary files a/pics/511001348.jpg and /dev/null differ diff --git a/pics/511001349.jpg b/pics/511001349.jpg deleted file mode 100644 index 67c288af..00000000 Binary files a/pics/511001349.jpg and /dev/null differ diff --git a/pics/511001350.jpg b/pics/511001350.jpg deleted file mode 100644 index db601678..00000000 Binary files a/pics/511001350.jpg and /dev/null differ diff --git a/pics/511001351.jpg b/pics/511001351.jpg deleted file mode 100644 index 0749183b..00000000 Binary files a/pics/511001351.jpg and /dev/null differ diff --git a/pics/511001352.jpg b/pics/511001352.jpg deleted file mode 100644 index 05759a3d..00000000 Binary files a/pics/511001352.jpg and /dev/null differ diff --git a/pics/511001353.jpg b/pics/511001353.jpg deleted file mode 100644 index 7329430f..00000000 Binary files a/pics/511001353.jpg and /dev/null differ diff --git a/pics/511001354.jpg b/pics/511001354.jpg deleted file mode 100644 index 9f629be8..00000000 Binary files a/pics/511001354.jpg and /dev/null differ diff --git a/pics/511001355.jpg b/pics/511001355.jpg deleted file mode 100644 index 1d55771d..00000000 Binary files a/pics/511001355.jpg and /dev/null differ diff --git a/pics/511001356.jpg b/pics/511001356.jpg deleted file mode 100644 index 1051ad31..00000000 Binary files a/pics/511001356.jpg and /dev/null differ diff --git a/pics/511001357.jpg b/pics/511001357.jpg deleted file mode 100644 index 27d6d5de..00000000 Binary files a/pics/511001357.jpg and /dev/null differ diff --git a/pics/511001358.jpg b/pics/511001358.jpg deleted file mode 100644 index e9b1409c..00000000 Binary files a/pics/511001358.jpg and /dev/null differ diff --git a/pics/511001359.jpg b/pics/511001359.jpg deleted file mode 100644 index 30866279..00000000 Binary files a/pics/511001359.jpg and /dev/null differ diff --git a/pics/511001360.jpg b/pics/511001360.jpg deleted file mode 100644 index f3f4ff1f..00000000 Binary files a/pics/511001360.jpg and /dev/null differ diff --git a/pics/511001361.jpg b/pics/511001361.jpg deleted file mode 100644 index 69910359..00000000 Binary files a/pics/511001361.jpg and /dev/null differ diff --git a/pics/511001362.jpg b/pics/511001362.jpg deleted file mode 100644 index 3892499b..00000000 Binary files a/pics/511001362.jpg and /dev/null differ diff --git a/pics/511001363.jpg b/pics/511001363.jpg deleted file mode 100644 index d245c31e..00000000 Binary files a/pics/511001363.jpg and /dev/null differ diff --git a/pics/511001364.jpg b/pics/511001364.jpg deleted file mode 100644 index 7b747843..00000000 Binary files a/pics/511001364.jpg and /dev/null differ diff --git a/pics/511001365.jpg b/pics/511001365.jpg deleted file mode 100644 index 327e93d8..00000000 Binary files a/pics/511001365.jpg and /dev/null differ diff --git a/pics/511001366.jpg b/pics/511001366.jpg deleted file mode 100644 index 5fd8c846..00000000 Binary files a/pics/511001366.jpg and /dev/null differ diff --git a/pics/511001367.jpg b/pics/511001367.jpg deleted file mode 100644 index 00958079..00000000 Binary files a/pics/511001367.jpg and /dev/null differ diff --git a/pics/511001368.jpg b/pics/511001368.jpg deleted file mode 100644 index 536bd70a..00000000 Binary files a/pics/511001368.jpg and /dev/null differ diff --git a/pics/511001369.jpg b/pics/511001369.jpg deleted file mode 100644 index 7589de53..00000000 Binary files a/pics/511001369.jpg and /dev/null differ diff --git a/pics/511001370.jpg b/pics/511001370.jpg deleted file mode 100644 index c9d443e9..00000000 Binary files a/pics/511001370.jpg and /dev/null differ diff --git a/pics/511001371.jpg b/pics/511001371.jpg deleted file mode 100644 index 7afe175d..00000000 Binary files a/pics/511001371.jpg and /dev/null differ diff --git a/pics/511001372.jpg b/pics/511001372.jpg deleted file mode 100644 index 931afe2b..00000000 Binary files a/pics/511001372.jpg and /dev/null differ diff --git a/pics/511001373.jpg b/pics/511001373.jpg deleted file mode 100644 index 372259f3..00000000 Binary files a/pics/511001373.jpg and /dev/null differ diff --git a/pics/511001374.jpg b/pics/511001374.jpg deleted file mode 100644 index e79fb608..00000000 Binary files a/pics/511001374.jpg and /dev/null differ diff --git a/pics/511001375.jpg b/pics/511001375.jpg deleted file mode 100644 index b9a08001..00000000 Binary files a/pics/511001375.jpg and /dev/null differ diff --git a/pics/511001376.jpg b/pics/511001376.jpg deleted file mode 100644 index bdcad75b..00000000 Binary files a/pics/511001376.jpg and /dev/null differ diff --git a/pics/511001377.jpg b/pics/511001377.jpg deleted file mode 100644 index 83d6985e..00000000 Binary files a/pics/511001377.jpg and /dev/null differ diff --git a/pics/511001378.jpg b/pics/511001378.jpg deleted file mode 100644 index 61ff6606..00000000 Binary files a/pics/511001378.jpg and /dev/null differ diff --git a/pics/511001379.jpg b/pics/511001379.jpg deleted file mode 100644 index 45bb2468..00000000 Binary files a/pics/511001379.jpg and /dev/null differ diff --git a/pics/511001380.jpg b/pics/511001380.jpg deleted file mode 100644 index ccf2ffce..00000000 Binary files a/pics/511001380.jpg and /dev/null differ diff --git a/pics/511001381.jpg b/pics/511001381.jpg deleted file mode 100644 index d8cc95ec..00000000 Binary files a/pics/511001381.jpg and /dev/null differ diff --git a/pics/511001382.jpg b/pics/511001382.jpg deleted file mode 100644 index de47e9b0..00000000 Binary files a/pics/511001382.jpg and /dev/null differ diff --git a/pics/511001383.jpg b/pics/511001383.jpg deleted file mode 100644 index 5c118de1..00000000 Binary files a/pics/511001383.jpg and /dev/null differ diff --git a/pics/511001384.jpg b/pics/511001384.jpg deleted file mode 100644 index 75ee9f11..00000000 Binary files a/pics/511001384.jpg and /dev/null differ diff --git a/pics/511001385.jpg b/pics/511001385.jpg deleted file mode 100644 index d6772e04..00000000 Binary files a/pics/511001385.jpg and /dev/null differ diff --git a/pics/511001386.jpg b/pics/511001386.jpg deleted file mode 100644 index 3e655635..00000000 Binary files a/pics/511001386.jpg and /dev/null differ diff --git a/pics/511001387.jpg b/pics/511001387.jpg deleted file mode 100644 index 13a31c72..00000000 Binary files a/pics/511001387.jpg and /dev/null differ diff --git a/pics/511001388.jpg b/pics/511001388.jpg deleted file mode 100644 index 2a42dac3..00000000 Binary files a/pics/511001388.jpg and /dev/null differ diff --git a/pics/511001389.jpg b/pics/511001389.jpg deleted file mode 100644 index 33f9860e..00000000 Binary files a/pics/511001389.jpg and /dev/null differ diff --git a/pics/511001390.jpg b/pics/511001390.jpg deleted file mode 100644 index 09bceccd..00000000 Binary files a/pics/511001390.jpg and /dev/null differ diff --git a/pics/511001391.jpg b/pics/511001391.jpg deleted file mode 100644 index e68636cd..00000000 Binary files a/pics/511001391.jpg and /dev/null differ diff --git a/pics/511001392.jpg b/pics/511001392.jpg deleted file mode 100644 index e3de7093..00000000 Binary files a/pics/511001392.jpg and /dev/null differ diff --git a/pics/511001393.jpg b/pics/511001393.jpg deleted file mode 100644 index 9d0ea137..00000000 Binary files a/pics/511001393.jpg and /dev/null differ diff --git a/pics/511001394.jpg b/pics/511001394.jpg deleted file mode 100644 index eff88772..00000000 Binary files a/pics/511001394.jpg and /dev/null differ diff --git a/pics/511001395.jpg b/pics/511001395.jpg deleted file mode 100644 index 994f7752..00000000 Binary files a/pics/511001395.jpg and /dev/null differ diff --git a/pics/511001396.jpg b/pics/511001396.jpg deleted file mode 100644 index e41617c7..00000000 Binary files a/pics/511001396.jpg and /dev/null differ diff --git a/pics/511001397.jpg b/pics/511001397.jpg deleted file mode 100644 index aa190692..00000000 Binary files a/pics/511001397.jpg and /dev/null differ diff --git a/pics/511001398.jpg b/pics/511001398.jpg deleted file mode 100644 index 34fbe941..00000000 Binary files a/pics/511001398.jpg and /dev/null differ diff --git a/pics/511001399.jpg b/pics/511001399.jpg deleted file mode 100644 index 78deb4f4..00000000 Binary files a/pics/511001399.jpg and /dev/null differ diff --git a/pics/511001400.jpg b/pics/511001400.jpg deleted file mode 100644 index 747a6d21..00000000 Binary files a/pics/511001400.jpg and /dev/null differ diff --git a/pics/511001401.jpg b/pics/511001401.jpg deleted file mode 100644 index 2bf1b9cf..00000000 Binary files a/pics/511001401.jpg and /dev/null differ diff --git a/pics/511001402.jpg b/pics/511001402.jpg deleted file mode 100644 index 2e844d68..00000000 Binary files a/pics/511001402.jpg and /dev/null differ diff --git a/pics/511001403.jpg b/pics/511001403.jpg deleted file mode 100644 index 51ca41df..00000000 Binary files a/pics/511001403.jpg and /dev/null differ diff --git a/pics/511001404.jpg b/pics/511001404.jpg deleted file mode 100644 index 1cdf0397..00000000 Binary files a/pics/511001404.jpg and /dev/null differ diff --git a/pics/511001405.jpg b/pics/511001405.jpg deleted file mode 100644 index aca137a6..00000000 Binary files a/pics/511001405.jpg and /dev/null differ diff --git a/pics/511001406.jpg b/pics/511001406.jpg deleted file mode 100644 index 1323e265..00000000 Binary files a/pics/511001406.jpg and /dev/null differ diff --git a/pics/511001407.jpg b/pics/511001407.jpg deleted file mode 100644 index 456a57a7..00000000 Binary files a/pics/511001407.jpg and /dev/null differ diff --git a/pics/511001408.jpg b/pics/511001408.jpg deleted file mode 100644 index af9198b5..00000000 Binary files a/pics/511001408.jpg and /dev/null differ diff --git a/pics/511001409.jpg b/pics/511001409.jpg deleted file mode 100644 index 18e3fce2..00000000 Binary files a/pics/511001409.jpg and /dev/null differ diff --git a/pics/511001410.jpg b/pics/511001410.jpg deleted file mode 100644 index 97107a6f..00000000 Binary files a/pics/511001410.jpg and /dev/null differ diff --git a/pics/511001411.jpg b/pics/511001411.jpg deleted file mode 100644 index 27f85cd4..00000000 Binary files a/pics/511001411.jpg and /dev/null differ diff --git a/pics/511001412.jpg b/pics/511001412.jpg deleted file mode 100644 index 36d8cdfb..00000000 Binary files a/pics/511001412.jpg and /dev/null differ diff --git a/pics/511001413.jpg b/pics/511001413.jpg deleted file mode 100644 index 614eadc4..00000000 Binary files a/pics/511001413.jpg and /dev/null differ diff --git a/pics/511001414.jpg b/pics/511001414.jpg deleted file mode 100644 index 8e37b26e..00000000 Binary files a/pics/511001414.jpg and /dev/null differ diff --git a/pics/511001415.jpg b/pics/511001415.jpg deleted file mode 100644 index fd4153bc..00000000 Binary files a/pics/511001415.jpg and /dev/null differ diff --git a/pics/511001416.jpg b/pics/511001416.jpg deleted file mode 100644 index ca606f0a..00000000 Binary files a/pics/511001416.jpg and /dev/null differ diff --git a/pics/511001417.jpg b/pics/511001417.jpg deleted file mode 100644 index f299bc9f..00000000 Binary files a/pics/511001417.jpg and /dev/null differ diff --git a/pics/511001418.jpg b/pics/511001418.jpg deleted file mode 100644 index dbc51dfa..00000000 Binary files a/pics/511001418.jpg and /dev/null differ diff --git a/pics/511001419.jpg b/pics/511001419.jpg deleted file mode 100644 index 5190effc..00000000 Binary files a/pics/511001419.jpg and /dev/null differ diff --git a/pics/511001420.jpg b/pics/511001420.jpg deleted file mode 100644 index 527956cd..00000000 Binary files a/pics/511001420.jpg and /dev/null differ diff --git a/pics/511001421.jpg b/pics/511001421.jpg deleted file mode 100644 index 21e62408..00000000 Binary files a/pics/511001421.jpg and /dev/null differ diff --git a/pics/511001422.jpg b/pics/511001422.jpg deleted file mode 100644 index 29b9c308..00000000 Binary files a/pics/511001422.jpg and /dev/null differ diff --git a/pics/511001423.jpg b/pics/511001423.jpg deleted file mode 100644 index 36282e5c..00000000 Binary files a/pics/511001423.jpg and /dev/null differ diff --git a/pics/511001424.jpg b/pics/511001424.jpg deleted file mode 100644 index 06c2619c..00000000 Binary files a/pics/511001424.jpg and /dev/null differ diff --git a/pics/511001425.jpg b/pics/511001425.jpg deleted file mode 100644 index 51bfc518..00000000 Binary files a/pics/511001425.jpg and /dev/null differ diff --git a/pics/511001426.jpg b/pics/511001426.jpg deleted file mode 100644 index 106f08a3..00000000 Binary files a/pics/511001426.jpg and /dev/null differ diff --git a/pics/511001427.jpg b/pics/511001427.jpg deleted file mode 100644 index 79e37f36..00000000 Binary files a/pics/511001427.jpg and /dev/null differ diff --git a/pics/511001428.jpg b/pics/511001428.jpg deleted file mode 100644 index f1e52334..00000000 Binary files a/pics/511001428.jpg and /dev/null differ diff --git a/pics/511001429.jpg b/pics/511001429.jpg deleted file mode 100644 index 99b657ae..00000000 Binary files a/pics/511001429.jpg and /dev/null differ diff --git a/pics/511001430.jpg b/pics/511001430.jpg deleted file mode 100644 index e7293ee3..00000000 Binary files a/pics/511001430.jpg and /dev/null differ diff --git a/pics/511001431.jpg b/pics/511001431.jpg deleted file mode 100644 index 80d70583..00000000 Binary files a/pics/511001431.jpg and /dev/null differ diff --git a/pics/511001432.jpg b/pics/511001432.jpg deleted file mode 100644 index 4167a06f..00000000 Binary files a/pics/511001432.jpg and /dev/null differ diff --git a/pics/511001433.jpg b/pics/511001433.jpg deleted file mode 100644 index f653b1a8..00000000 Binary files a/pics/511001433.jpg and /dev/null differ diff --git a/pics/511001434.jpg b/pics/511001434.jpg deleted file mode 100644 index 3e9883d1..00000000 Binary files a/pics/511001434.jpg and /dev/null differ diff --git a/pics/511001435.jpg b/pics/511001435.jpg deleted file mode 100644 index 35900d85..00000000 Binary files a/pics/511001435.jpg and /dev/null differ diff --git a/pics/511001436.jpg b/pics/511001436.jpg deleted file mode 100644 index 1679b2bf..00000000 Binary files a/pics/511001436.jpg and /dev/null differ diff --git a/pics/511001437.jpg b/pics/511001437.jpg deleted file mode 100644 index c5d46082..00000000 Binary files a/pics/511001437.jpg and /dev/null differ diff --git a/pics/511001438.jpg b/pics/511001438.jpg deleted file mode 100644 index 4527bb3a..00000000 Binary files a/pics/511001438.jpg and /dev/null differ diff --git a/pics/511001439.jpg b/pics/511001439.jpg deleted file mode 100644 index e13d38ba..00000000 Binary files a/pics/511001439.jpg and /dev/null differ diff --git a/pics/511001440.jpg b/pics/511001440.jpg deleted file mode 100644 index a9fccded..00000000 Binary files a/pics/511001440.jpg and /dev/null differ diff --git a/pics/511001441.jpg b/pics/511001441.jpg deleted file mode 100644 index 30d3359b..00000000 Binary files a/pics/511001441.jpg and /dev/null differ diff --git a/pics/511001442.jpg b/pics/511001442.jpg deleted file mode 100644 index 2cc8f345..00000000 Binary files a/pics/511001442.jpg and /dev/null differ diff --git a/pics/511001443.jpg b/pics/511001443.jpg deleted file mode 100644 index e7489eb3..00000000 Binary files a/pics/511001443.jpg and /dev/null differ diff --git a/pics/511001444.jpg b/pics/511001444.jpg deleted file mode 100644 index 6cc97fa8..00000000 Binary files a/pics/511001444.jpg and /dev/null differ diff --git a/pics/511001445.jpg b/pics/511001445.jpg deleted file mode 100644 index 19fb807d..00000000 Binary files a/pics/511001445.jpg and /dev/null differ diff --git a/pics/511001446.jpg b/pics/511001446.jpg deleted file mode 100644 index d0fc95f0..00000000 Binary files a/pics/511001446.jpg and /dev/null differ diff --git a/pics/511001447.jpg b/pics/511001447.jpg deleted file mode 100644 index e9a73ecb..00000000 Binary files a/pics/511001447.jpg and /dev/null differ diff --git a/pics/511001448.jpg b/pics/511001448.jpg deleted file mode 100644 index 965b8738..00000000 Binary files a/pics/511001448.jpg and /dev/null differ diff --git a/pics/511001449.jpg b/pics/511001449.jpg deleted file mode 100644 index 059db970..00000000 Binary files a/pics/511001449.jpg and /dev/null differ diff --git a/pics/511001450.jpg b/pics/511001450.jpg deleted file mode 100644 index f13c6d2c..00000000 Binary files a/pics/511001450.jpg and /dev/null differ diff --git a/pics/511001451.jpg b/pics/511001451.jpg deleted file mode 100644 index fe120c91..00000000 Binary files a/pics/511001451.jpg and /dev/null differ diff --git a/pics/511001452.jpg b/pics/511001452.jpg deleted file mode 100644 index c6c54972..00000000 Binary files a/pics/511001452.jpg and /dev/null differ diff --git a/pics/511001453.jpg b/pics/511001453.jpg deleted file mode 100644 index 9c1f4d00..00000000 Binary files a/pics/511001453.jpg and /dev/null differ diff --git a/pics/511001454.jpg b/pics/511001454.jpg deleted file mode 100644 index 6edd2689..00000000 Binary files a/pics/511001454.jpg and /dev/null differ diff --git a/pics/511001455.jpg b/pics/511001455.jpg deleted file mode 100644 index 7ba20338..00000000 Binary files a/pics/511001455.jpg and /dev/null differ diff --git a/pics/511001456.jpg b/pics/511001456.jpg deleted file mode 100644 index 414aee68..00000000 Binary files a/pics/511001456.jpg and /dev/null differ diff --git a/pics/511001458.jpg b/pics/511001458.jpg deleted file mode 100644 index 6b4a5642..00000000 Binary files a/pics/511001458.jpg and /dev/null differ diff --git a/pics/511001459.jpg b/pics/511001459.jpg deleted file mode 100755 index 01a2cfb0..00000000 Binary files a/pics/511001459.jpg and /dev/null differ diff --git a/pics/511001460.jpg b/pics/511001460.jpg deleted file mode 100644 index 5ab5e7cd..00000000 Binary files a/pics/511001460.jpg and /dev/null differ diff --git a/pics/511001461.jpg b/pics/511001461.jpg deleted file mode 100644 index 14222b93..00000000 Binary files a/pics/511001461.jpg and /dev/null differ diff --git a/pics/511001462.jpg b/pics/511001462.jpg deleted file mode 100644 index 89fa904e..00000000 Binary files a/pics/511001462.jpg and /dev/null differ diff --git a/pics/511001463.jpg b/pics/511001463.jpg deleted file mode 100644 index 5ef8c00c..00000000 Binary files a/pics/511001463.jpg and /dev/null differ diff --git a/pics/511001464.jpg b/pics/511001464.jpg deleted file mode 100644 index 2714e771..00000000 Binary files a/pics/511001464.jpg and /dev/null differ diff --git a/pics/511001465.jpg b/pics/511001465.jpg deleted file mode 100644 index a753add9..00000000 Binary files a/pics/511001465.jpg and /dev/null differ diff --git a/pics/511001466.jpg b/pics/511001466.jpg deleted file mode 100644 index 9760700a..00000000 Binary files a/pics/511001466.jpg and /dev/null differ diff --git a/pics/511001467.jpg b/pics/511001467.jpg deleted file mode 100644 index b0e60f8f..00000000 Binary files a/pics/511001467.jpg and /dev/null differ diff --git a/pics/511001468.jpg b/pics/511001468.jpg deleted file mode 100644 index 4f7e7628..00000000 Binary files a/pics/511001468.jpg and /dev/null differ diff --git a/pics/511001469.jpg b/pics/511001469.jpg deleted file mode 100644 index eadef81e..00000000 Binary files a/pics/511001469.jpg and /dev/null differ diff --git a/pics/511001470.jpg b/pics/511001470.jpg deleted file mode 100644 index d5b5ae61..00000000 Binary files a/pics/511001470.jpg and /dev/null differ diff --git a/pics/511001471.jpg b/pics/511001471.jpg deleted file mode 100644 index fb2d771d..00000000 Binary files a/pics/511001471.jpg and /dev/null differ diff --git a/pics/511001472.jpg b/pics/511001472.jpg deleted file mode 100644 index 8bf76429..00000000 Binary files a/pics/511001472.jpg and /dev/null differ diff --git a/pics/511001473.jpg b/pics/511001473.jpg deleted file mode 100644 index 0d7cd229..00000000 Binary files a/pics/511001473.jpg and /dev/null differ diff --git a/pics/511001474.jpg b/pics/511001474.jpg deleted file mode 100644 index 27dd91fe..00000000 Binary files a/pics/511001474.jpg and /dev/null differ diff --git a/pics/511001475.jpg b/pics/511001475.jpg deleted file mode 100644 index fc8657d8..00000000 Binary files a/pics/511001475.jpg and /dev/null differ diff --git a/pics/511001476.jpg b/pics/511001476.jpg deleted file mode 100644 index 8b6e9b02..00000000 Binary files a/pics/511001476.jpg and /dev/null differ diff --git a/pics/511001477.jpg b/pics/511001477.jpg deleted file mode 100644 index 40bc91a3..00000000 Binary files a/pics/511001477.jpg and /dev/null differ diff --git a/pics/511001478.jpg b/pics/511001478.jpg deleted file mode 100644 index 7cebce96..00000000 Binary files a/pics/511001478.jpg and /dev/null differ diff --git a/pics/511001479.jpg b/pics/511001479.jpg deleted file mode 100644 index 56427f19..00000000 Binary files a/pics/511001479.jpg and /dev/null differ diff --git a/pics/511001480.jpg b/pics/511001480.jpg deleted file mode 100644 index a90a5d56..00000000 Binary files a/pics/511001480.jpg and /dev/null differ diff --git a/pics/511001481.jpg b/pics/511001481.jpg deleted file mode 100644 index 8f347e57..00000000 Binary files a/pics/511001481.jpg and /dev/null differ diff --git a/pics/511001482.jpg b/pics/511001482.jpg deleted file mode 100644 index 113ba32f..00000000 Binary files a/pics/511001482.jpg and /dev/null differ diff --git a/pics/511001483.jpg b/pics/511001483.jpg deleted file mode 100644 index a2cf4f8d..00000000 Binary files a/pics/511001483.jpg and /dev/null differ diff --git a/pics/511001484.jpg b/pics/511001484.jpg deleted file mode 100644 index 234bb1b0..00000000 Binary files a/pics/511001484.jpg and /dev/null differ diff --git a/pics/511001485.jpg b/pics/511001485.jpg deleted file mode 100644 index 34fb3981..00000000 Binary files a/pics/511001485.jpg and /dev/null differ diff --git a/pics/511001486.jpg b/pics/511001486.jpg deleted file mode 100644 index 4c38d596..00000000 Binary files a/pics/511001486.jpg and /dev/null differ diff --git a/pics/511001487.jpg b/pics/511001487.jpg deleted file mode 100644 index ee3a2d5f..00000000 Binary files a/pics/511001487.jpg and /dev/null differ diff --git a/pics/511001488.jpg b/pics/511001488.jpg deleted file mode 100644 index 188c34cd..00000000 Binary files a/pics/511001488.jpg and /dev/null differ diff --git a/pics/511001489.jpg b/pics/511001489.jpg deleted file mode 100644 index 6cc2ea11..00000000 Binary files a/pics/511001489.jpg and /dev/null differ diff --git a/pics/511001490.jpg b/pics/511001490.jpg deleted file mode 100644 index 1bb10fb1..00000000 Binary files a/pics/511001490.jpg and /dev/null differ diff --git a/pics/511001491.jpg b/pics/511001491.jpg deleted file mode 100644 index c6e64b52..00000000 Binary files a/pics/511001491.jpg and /dev/null differ diff --git a/pics/511001492.jpg b/pics/511001492.jpg deleted file mode 100644 index dc4aab81..00000000 Binary files a/pics/511001492.jpg and /dev/null differ diff --git a/pics/511001493.jpg b/pics/511001493.jpg deleted file mode 100644 index d827ddea..00000000 Binary files a/pics/511001493.jpg and /dev/null differ diff --git a/pics/511001494.jpg b/pics/511001494.jpg deleted file mode 100644 index dc4db47f..00000000 Binary files a/pics/511001494.jpg and /dev/null differ diff --git a/pics/511001495.jpg b/pics/511001495.jpg deleted file mode 100644 index e92807b8..00000000 Binary files a/pics/511001495.jpg and /dev/null differ diff --git a/pics/511001496.jpg b/pics/511001496.jpg deleted file mode 100644 index fbce7bb3..00000000 Binary files a/pics/511001496.jpg and /dev/null differ diff --git a/pics/511001497.jpg b/pics/511001497.jpg deleted file mode 100644 index 6619ba90..00000000 Binary files a/pics/511001497.jpg and /dev/null differ diff --git a/pics/511001498.jpg b/pics/511001498.jpg deleted file mode 100644 index a186f744..00000000 Binary files a/pics/511001498.jpg and /dev/null differ diff --git a/pics/511001499.jpg b/pics/511001499.jpg deleted file mode 100644 index 9ef2ecc8..00000000 Binary files a/pics/511001499.jpg and /dev/null differ diff --git a/pics/511001500.jpg b/pics/511001500.jpg deleted file mode 100644 index 144d69fb..00000000 Binary files a/pics/511001500.jpg and /dev/null differ diff --git a/pics/511001501.jpg b/pics/511001501.jpg deleted file mode 100644 index e2259c96..00000000 Binary files a/pics/511001501.jpg and /dev/null differ diff --git a/pics/511001502.jpg b/pics/511001502.jpg deleted file mode 100644 index d05f8dbd..00000000 Binary files a/pics/511001502.jpg and /dev/null differ diff --git a/pics/511001503.jpg b/pics/511001503.jpg deleted file mode 100644 index fc3dc8da..00000000 Binary files a/pics/511001503.jpg and /dev/null differ diff --git a/pics/511001504.jpg b/pics/511001504.jpg deleted file mode 100644 index b708f33e..00000000 Binary files a/pics/511001504.jpg and /dev/null differ diff --git a/pics/511001505.jpg b/pics/511001505.jpg deleted file mode 100644 index cfa3e5d5..00000000 Binary files a/pics/511001505.jpg and /dev/null differ diff --git a/pics/511001506.jpg b/pics/511001506.jpg deleted file mode 100644 index fdeea077..00000000 Binary files a/pics/511001506.jpg and /dev/null differ diff --git a/pics/511001507.jpg b/pics/511001507.jpg deleted file mode 100644 index 149cdd9d..00000000 Binary files a/pics/511001507.jpg and /dev/null differ diff --git a/pics/511001508.jpg b/pics/511001508.jpg deleted file mode 100644 index 28f12ce9..00000000 Binary files a/pics/511001508.jpg and /dev/null differ diff --git a/pics/511001509.jpg b/pics/511001509.jpg deleted file mode 100644 index acf5e094..00000000 Binary files a/pics/511001509.jpg and /dev/null differ diff --git a/pics/511001510.jpg b/pics/511001510.jpg deleted file mode 100644 index f8197cea..00000000 Binary files a/pics/511001510.jpg and /dev/null differ diff --git a/pics/511001511.jpg b/pics/511001511.jpg deleted file mode 100644 index 89e9bde4..00000000 Binary files a/pics/511001511.jpg and /dev/null differ diff --git a/pics/511001512.jpg b/pics/511001512.jpg deleted file mode 100644 index 5212b0e9..00000000 Binary files a/pics/511001512.jpg and /dev/null differ diff --git a/pics/511001513.jpg b/pics/511001513.jpg deleted file mode 100644 index 72d9af91..00000000 Binary files a/pics/511001513.jpg and /dev/null differ diff --git a/pics/511001514.jpg b/pics/511001514.jpg deleted file mode 100644 index c48b4fe3..00000000 Binary files a/pics/511001514.jpg and /dev/null differ diff --git a/pics/511001515.jpg b/pics/511001515.jpg deleted file mode 100644 index 86e7377b..00000000 Binary files a/pics/511001515.jpg and /dev/null differ diff --git a/pics/511001516.jpg b/pics/511001516.jpg deleted file mode 100644 index ec3687c4..00000000 Binary files a/pics/511001516.jpg and /dev/null differ diff --git a/pics/511001517.jpg b/pics/511001517.jpg deleted file mode 100644 index f122bfa6..00000000 Binary files a/pics/511001517.jpg and /dev/null differ diff --git a/pics/511001518.jpg b/pics/511001518.jpg deleted file mode 100644 index 5f9708cf..00000000 Binary files a/pics/511001518.jpg and /dev/null differ diff --git a/pics/511001519.jpg b/pics/511001519.jpg deleted file mode 100644 index 5e9dd9b1..00000000 Binary files a/pics/511001519.jpg and /dev/null differ diff --git a/pics/511001520.jpg b/pics/511001520.jpg deleted file mode 100644 index f0a5f927..00000000 Binary files a/pics/511001520.jpg and /dev/null differ diff --git a/pics/511001521.jpg b/pics/511001521.jpg deleted file mode 100644 index ed92e29e..00000000 Binary files a/pics/511001521.jpg and /dev/null differ diff --git a/pics/511001522.jpg b/pics/511001522.jpg deleted file mode 100644 index 04991a3d..00000000 Binary files a/pics/511001522.jpg and /dev/null differ diff --git a/pics/511001523.jpg b/pics/511001523.jpg deleted file mode 100755 index 6c26bd51..00000000 Binary files a/pics/511001523.jpg and /dev/null differ diff --git a/pics/511001524.jpg b/pics/511001524.jpg deleted file mode 100644 index 389e24be..00000000 Binary files a/pics/511001524.jpg and /dev/null differ diff --git a/pics/511001525.jpg b/pics/511001525.jpg deleted file mode 100644 index 0bb2f7ed..00000000 Binary files a/pics/511001525.jpg and /dev/null differ diff --git a/pics/511001526.jpg b/pics/511001526.jpg deleted file mode 100644 index f2d55d59..00000000 Binary files a/pics/511001526.jpg and /dev/null differ diff --git a/pics/511001527.jpg b/pics/511001527.jpg deleted file mode 100644 index c45b039b..00000000 Binary files a/pics/511001527.jpg and /dev/null differ diff --git a/pics/511001528.jpg b/pics/511001528.jpg deleted file mode 100644 index a1effda6..00000000 Binary files a/pics/511001528.jpg and /dev/null differ diff --git a/pics/511001529.jpg b/pics/511001529.jpg deleted file mode 100644 index 0632326b..00000000 Binary files a/pics/511001529.jpg and /dev/null differ diff --git a/pics/511001530.jpg b/pics/511001530.jpg deleted file mode 100644 index a3f5d01d..00000000 Binary files a/pics/511001530.jpg and /dev/null differ diff --git a/pics/511001531.jpg b/pics/511001531.jpg deleted file mode 100644 index 52ad8d26..00000000 Binary files a/pics/511001531.jpg and /dev/null differ diff --git a/pics/511001532.jpg b/pics/511001532.jpg deleted file mode 100644 index 4e00752c..00000000 Binary files a/pics/511001532.jpg and /dev/null differ diff --git a/pics/511001533.jpg b/pics/511001533.jpg deleted file mode 100644 index a9ecf8ed..00000000 Binary files a/pics/511001533.jpg and /dev/null differ diff --git a/pics/511001534.jpg b/pics/511001534.jpg deleted file mode 100644 index 78a9446a..00000000 Binary files a/pics/511001534.jpg and /dev/null differ diff --git a/pics/511001535.jpg b/pics/511001535.jpg deleted file mode 100644 index a14918a8..00000000 Binary files a/pics/511001535.jpg and /dev/null differ diff --git a/pics/511001536.jpg b/pics/511001536.jpg deleted file mode 100644 index dcb64dfb..00000000 Binary files a/pics/511001536.jpg and /dev/null differ diff --git a/pics/511001537.jpg b/pics/511001537.jpg deleted file mode 100644 index f7000f19..00000000 Binary files a/pics/511001537.jpg and /dev/null differ diff --git a/pics/511001538.jpg b/pics/511001538.jpg deleted file mode 100644 index 031941f4..00000000 Binary files a/pics/511001538.jpg and /dev/null differ diff --git a/pics/511001539.jpg b/pics/511001539.jpg deleted file mode 100644 index 2cca4db1..00000000 Binary files a/pics/511001539.jpg and /dev/null differ diff --git a/pics/511001540.jpg b/pics/511001540.jpg deleted file mode 100644 index a9d06816..00000000 Binary files a/pics/511001540.jpg and /dev/null differ diff --git a/pics/511001541.jpg b/pics/511001541.jpg deleted file mode 100644 index 368e7443..00000000 Binary files a/pics/511001541.jpg and /dev/null differ diff --git a/pics/511001542.jpg b/pics/511001542.jpg deleted file mode 100644 index 7c216417..00000000 Binary files a/pics/511001542.jpg and /dev/null differ diff --git a/pics/511001543.jpg b/pics/511001543.jpg deleted file mode 100644 index 55421560..00000000 Binary files a/pics/511001543.jpg and /dev/null differ diff --git a/pics/511001544.jpg b/pics/511001544.jpg deleted file mode 100644 index 8fff95a5..00000000 Binary files a/pics/511001544.jpg and /dev/null differ diff --git a/pics/511001545.jpg b/pics/511001545.jpg deleted file mode 100644 index 6e096845..00000000 Binary files a/pics/511001545.jpg and /dev/null differ diff --git a/pics/511001546.jpg b/pics/511001546.jpg deleted file mode 100644 index 1d83ded9..00000000 Binary files a/pics/511001546.jpg and /dev/null differ diff --git a/pics/511001547.jpg b/pics/511001547.jpg deleted file mode 100644 index 7f5a774c..00000000 Binary files a/pics/511001547.jpg and /dev/null differ diff --git a/pics/511001548.jpg b/pics/511001548.jpg deleted file mode 100644 index 1890f144..00000000 Binary files a/pics/511001548.jpg and /dev/null differ diff --git a/pics/511001549.jpg b/pics/511001549.jpg deleted file mode 100644 index 2d462ce5..00000000 Binary files a/pics/511001549.jpg and /dev/null differ diff --git a/pics/511001550.jpg b/pics/511001550.jpg deleted file mode 100644 index 2d160826..00000000 Binary files a/pics/511001550.jpg and /dev/null differ diff --git a/pics/511001551.jpg b/pics/511001551.jpg deleted file mode 100644 index eb3df3fa..00000000 Binary files a/pics/511001551.jpg and /dev/null differ diff --git a/pics/511001552.jpg b/pics/511001552.jpg deleted file mode 100644 index 1957948d..00000000 Binary files a/pics/511001552.jpg and /dev/null differ diff --git a/pics/511001553.jpg b/pics/511001553.jpg deleted file mode 100644 index ef176c1a..00000000 Binary files a/pics/511001553.jpg and /dev/null differ diff --git a/pics/511001554.jpg b/pics/511001554.jpg deleted file mode 100644 index ea51ca7a..00000000 Binary files a/pics/511001554.jpg and /dev/null differ diff --git a/pics/511001555.jpg b/pics/511001555.jpg deleted file mode 100644 index 0a0d520a..00000000 Binary files a/pics/511001555.jpg and /dev/null differ diff --git a/pics/511001556.jpg b/pics/511001556.jpg deleted file mode 100644 index 53a1ecc9..00000000 Binary files a/pics/511001556.jpg and /dev/null differ diff --git a/pics/511001557.jpg b/pics/511001557.jpg deleted file mode 100644 index 3c60ec5c..00000000 Binary files a/pics/511001557.jpg and /dev/null differ diff --git a/pics/511001558.jpg b/pics/511001558.jpg deleted file mode 100644 index 60aec56b..00000000 Binary files a/pics/511001558.jpg and /dev/null differ diff --git a/pics/511001559.jpg b/pics/511001559.jpg deleted file mode 100644 index 43ea728c..00000000 Binary files a/pics/511001559.jpg and /dev/null differ diff --git a/pics/511001560.jpg b/pics/511001560.jpg deleted file mode 100644 index 4cf03445..00000000 Binary files a/pics/511001560.jpg and /dev/null differ diff --git a/pics/511001561.jpg b/pics/511001561.jpg deleted file mode 100644 index b15cde3c..00000000 Binary files a/pics/511001561.jpg and /dev/null differ diff --git a/pics/511001562.jpg b/pics/511001562.jpg deleted file mode 100644 index 6687f961..00000000 Binary files a/pics/511001562.jpg and /dev/null differ diff --git a/pics/511001563.jpg b/pics/511001563.jpg deleted file mode 100644 index 7e5b6a35..00000000 Binary files a/pics/511001563.jpg and /dev/null differ diff --git a/pics/511001564.jpg b/pics/511001564.jpg deleted file mode 100644 index 5118e3ed..00000000 Binary files a/pics/511001564.jpg and /dev/null differ diff --git a/pics/511001565.jpg b/pics/511001565.jpg deleted file mode 100644 index 5d61863b..00000000 Binary files a/pics/511001565.jpg and /dev/null differ diff --git a/pics/511001566.jpg b/pics/511001566.jpg deleted file mode 100644 index f2243aa0..00000000 Binary files a/pics/511001566.jpg and /dev/null differ diff --git a/pics/511001567.jpg b/pics/511001567.jpg deleted file mode 100644 index 4edaf0c7..00000000 Binary files a/pics/511001567.jpg and /dev/null differ diff --git a/pics/511001568.jpg b/pics/511001568.jpg deleted file mode 100644 index 03e84cf1..00000000 Binary files a/pics/511001568.jpg and /dev/null differ diff --git a/pics/511001569.jpg b/pics/511001569.jpg deleted file mode 100644 index 91dbbcf9..00000000 Binary files a/pics/511001569.jpg and /dev/null differ diff --git a/pics/511001570.jpg b/pics/511001570.jpg deleted file mode 100644 index 32491da3..00000000 Binary files a/pics/511001570.jpg and /dev/null differ diff --git a/pics/511001571.jpg b/pics/511001571.jpg deleted file mode 100644 index b4869493..00000000 Binary files a/pics/511001571.jpg and /dev/null differ diff --git a/pics/511001572.jpg b/pics/511001572.jpg deleted file mode 100644 index fb7f0f86..00000000 Binary files a/pics/511001572.jpg and /dev/null differ diff --git a/pics/511001573.jpg b/pics/511001573.jpg deleted file mode 100644 index 2469acae..00000000 Binary files a/pics/511001573.jpg and /dev/null differ diff --git a/pics/511001574.jpg b/pics/511001574.jpg deleted file mode 100644 index 1e057e2f..00000000 Binary files a/pics/511001574.jpg and /dev/null differ diff --git a/pics/511001575.jpg b/pics/511001575.jpg deleted file mode 100644 index 0e85693f..00000000 Binary files a/pics/511001575.jpg and /dev/null differ diff --git a/pics/511001576.jpg b/pics/511001576.jpg deleted file mode 100644 index a91e4eaa..00000000 Binary files a/pics/511001576.jpg and /dev/null differ diff --git a/pics/511001577.jpg b/pics/511001577.jpg deleted file mode 100644 index 47b2b1ee..00000000 Binary files a/pics/511001577.jpg and /dev/null differ diff --git a/pics/511001578.jpg b/pics/511001578.jpg deleted file mode 100644 index cabc0da8..00000000 Binary files a/pics/511001578.jpg and /dev/null differ diff --git a/pics/511001579.jpg b/pics/511001579.jpg deleted file mode 100644 index fc5689ba..00000000 Binary files a/pics/511001579.jpg and /dev/null differ diff --git a/pics/511001580.jpg b/pics/511001580.jpg deleted file mode 100644 index 5e9d58a3..00000000 Binary files a/pics/511001580.jpg and /dev/null differ diff --git a/pics/511001581.jpg b/pics/511001581.jpg deleted file mode 100644 index be49d2a1..00000000 Binary files a/pics/511001581.jpg and /dev/null differ diff --git a/pics/511001582.jpg b/pics/511001582.jpg deleted file mode 100644 index 8dc0d90a..00000000 Binary files a/pics/511001582.jpg and /dev/null differ diff --git a/pics/511001583.jpg b/pics/511001583.jpg deleted file mode 100644 index 9af59cc2..00000000 Binary files a/pics/511001583.jpg and /dev/null differ diff --git a/pics/511001584.jpg b/pics/511001584.jpg deleted file mode 100644 index 68ed124f..00000000 Binary files a/pics/511001584.jpg and /dev/null differ diff --git a/pics/511001585.jpg b/pics/511001585.jpg deleted file mode 100644 index 808b4c7e..00000000 Binary files a/pics/511001585.jpg and /dev/null differ diff --git a/pics/511001586.jpg b/pics/511001586.jpg deleted file mode 100644 index 9deb7680..00000000 Binary files a/pics/511001586.jpg and /dev/null differ diff --git a/pics/511001587.jpg b/pics/511001587.jpg deleted file mode 100644 index 9ae7d77c..00000000 Binary files a/pics/511001587.jpg and /dev/null differ diff --git a/pics/511001588.jpg b/pics/511001588.jpg deleted file mode 100644 index 2ce65b41..00000000 Binary files a/pics/511001588.jpg and /dev/null differ diff --git a/pics/511001589.jpg b/pics/511001589.jpg deleted file mode 100644 index e3153c3c..00000000 Binary files a/pics/511001589.jpg and /dev/null differ diff --git a/pics/511001590.jpg b/pics/511001590.jpg deleted file mode 100644 index d8ddc566..00000000 Binary files a/pics/511001590.jpg and /dev/null differ diff --git a/pics/511001591.jpg b/pics/511001591.jpg deleted file mode 100644 index 7aceb9d9..00000000 Binary files a/pics/511001591.jpg and /dev/null differ diff --git a/pics/511001592.jpg b/pics/511001592.jpg deleted file mode 100644 index 5028f3f1..00000000 Binary files a/pics/511001592.jpg and /dev/null differ diff --git a/pics/511001593.jpg b/pics/511001593.jpg deleted file mode 100644 index 58f8bff6..00000000 Binary files a/pics/511001593.jpg and /dev/null differ diff --git a/pics/511001594.jpg b/pics/511001594.jpg deleted file mode 100644 index f8150b1a..00000000 Binary files a/pics/511001594.jpg and /dev/null differ diff --git a/pics/511001595.jpg b/pics/511001595.jpg deleted file mode 100644 index 40c87455..00000000 Binary files a/pics/511001595.jpg and /dev/null differ diff --git a/pics/511001596.jpg b/pics/511001596.jpg deleted file mode 100644 index 188e8192..00000000 Binary files a/pics/511001596.jpg and /dev/null differ diff --git a/pics/511001597.jpg b/pics/511001597.jpg deleted file mode 100644 index 58a0e030..00000000 Binary files a/pics/511001597.jpg and /dev/null differ diff --git a/pics/511001598.jpg b/pics/511001598.jpg deleted file mode 100644 index da61d9ea..00000000 Binary files a/pics/511001598.jpg and /dev/null differ diff --git a/pics/511001599.jpg b/pics/511001599.jpg deleted file mode 100644 index 326c4296..00000000 Binary files a/pics/511001599.jpg and /dev/null differ diff --git a/pics/511001600.jpg b/pics/511001600.jpg deleted file mode 100644 index 8f3837ce..00000000 Binary files a/pics/511001600.jpg and /dev/null differ diff --git a/pics/511001601.jpg b/pics/511001601.jpg deleted file mode 100644 index 3faf5fba..00000000 Binary files a/pics/511001601.jpg and /dev/null differ diff --git a/pics/511001602.jpg b/pics/511001602.jpg deleted file mode 100644 index c8f1f38a..00000000 Binary files a/pics/511001602.jpg and /dev/null differ diff --git a/pics/511001603.jpg b/pics/511001603.jpg deleted file mode 100644 index c365b5b5..00000000 Binary files a/pics/511001603.jpg and /dev/null differ diff --git a/pics/511001604.jpg b/pics/511001604.jpg deleted file mode 100644 index 87aa5877..00000000 Binary files a/pics/511001604.jpg and /dev/null differ diff --git a/pics/511001605.jpg b/pics/511001605.jpg deleted file mode 100644 index 69d600e2..00000000 Binary files a/pics/511001605.jpg and /dev/null differ diff --git a/pics/511001606.jpg b/pics/511001606.jpg deleted file mode 100644 index 1aba88d0..00000000 Binary files a/pics/511001606.jpg and /dev/null differ diff --git a/pics/511001607.jpg b/pics/511001607.jpg deleted file mode 100644 index b9b7c63b..00000000 Binary files a/pics/511001607.jpg and /dev/null differ diff --git a/pics/511001608.jpg b/pics/511001608.jpg deleted file mode 100644 index 51c0681d..00000000 Binary files a/pics/511001608.jpg and /dev/null differ diff --git a/pics/511001609.jpg b/pics/511001609.jpg deleted file mode 100644 index dcb2cc1e..00000000 Binary files a/pics/511001609.jpg and /dev/null differ diff --git a/pics/511001610.jpg b/pics/511001610.jpg deleted file mode 100644 index 745aac52..00000000 Binary files a/pics/511001610.jpg and /dev/null differ diff --git a/pics/511001611.jpg b/pics/511001611.jpg deleted file mode 100644 index e59c2e2c..00000000 Binary files a/pics/511001611.jpg and /dev/null differ diff --git a/pics/511001612.jpg b/pics/511001612.jpg deleted file mode 100644 index 7458d6fe..00000000 Binary files a/pics/511001612.jpg and /dev/null differ diff --git a/pics/511001613.jpg b/pics/511001613.jpg deleted file mode 100644 index 31ae531f..00000000 Binary files a/pics/511001613.jpg and /dev/null differ diff --git a/pics/511001614.jpg b/pics/511001614.jpg deleted file mode 100644 index 1bd1bb44..00000000 Binary files a/pics/511001614.jpg and /dev/null differ diff --git a/pics/511001615.jpg b/pics/511001615.jpg deleted file mode 100644 index e4e0ab78..00000000 Binary files a/pics/511001615.jpg and /dev/null differ diff --git a/pics/511001616.jpg b/pics/511001616.jpg deleted file mode 100644 index 843a7c7e..00000000 Binary files a/pics/511001616.jpg and /dev/null differ diff --git a/pics/511001617.jpg b/pics/511001617.jpg deleted file mode 100644 index 569c3bb4..00000000 Binary files a/pics/511001617.jpg and /dev/null differ diff --git a/pics/511001618.jpg b/pics/511001618.jpg deleted file mode 100644 index 7654a314..00000000 Binary files a/pics/511001618.jpg and /dev/null differ diff --git a/pics/511001619.jpg b/pics/511001619.jpg deleted file mode 100644 index 114b43d3..00000000 Binary files a/pics/511001619.jpg and /dev/null differ diff --git a/pics/511001620.jpg b/pics/511001620.jpg deleted file mode 100644 index 5c9237c1..00000000 Binary files a/pics/511001620.jpg and /dev/null differ diff --git a/pics/511001621.jpg b/pics/511001621.jpg deleted file mode 100644 index 78a37f63..00000000 Binary files a/pics/511001621.jpg and /dev/null differ diff --git a/pics/511001622.jpg b/pics/511001622.jpg deleted file mode 100644 index 54fa6567..00000000 Binary files a/pics/511001622.jpg and /dev/null differ diff --git a/pics/511001623.jpg b/pics/511001623.jpg deleted file mode 100644 index bc7fdc7e..00000000 Binary files a/pics/511001623.jpg and /dev/null differ diff --git a/pics/511001624.jpg b/pics/511001624.jpg deleted file mode 100644 index dc6cb652..00000000 Binary files a/pics/511001624.jpg and /dev/null differ diff --git a/pics/511001625.jpg b/pics/511001625.jpg deleted file mode 100644 index e0a1dbc2..00000000 Binary files a/pics/511001625.jpg and /dev/null differ diff --git a/pics/511001627.jpg b/pics/511001627.jpg deleted file mode 100644 index bcc1c0c5..00000000 Binary files a/pics/511001627.jpg and /dev/null differ diff --git a/pics/511001628.jpg b/pics/511001628.jpg deleted file mode 100644 index c346bc80..00000000 Binary files a/pics/511001628.jpg and /dev/null differ diff --git a/pics/511001629.jpg b/pics/511001629.jpg deleted file mode 100644 index 77e3fa30..00000000 Binary files a/pics/511001629.jpg and /dev/null differ diff --git a/pics/511001630.jpg b/pics/511001630.jpg deleted file mode 100644 index 95d3f7e7..00000000 Binary files a/pics/511001630.jpg and /dev/null differ diff --git a/pics/511001631.jpg b/pics/511001631.jpg deleted file mode 100644 index 3d6ea1d9..00000000 Binary files a/pics/511001631.jpg and /dev/null differ diff --git a/pics/511001632.jpg b/pics/511001632.jpg deleted file mode 100644 index 8e517dec..00000000 Binary files a/pics/511001632.jpg and /dev/null differ diff --git a/pics/511001633.jpg b/pics/511001633.jpg deleted file mode 100644 index 0f480f3e..00000000 Binary files a/pics/511001633.jpg and /dev/null differ diff --git a/pics/511001634.jpg b/pics/511001634.jpg deleted file mode 100644 index 40b4e295..00000000 Binary files a/pics/511001634.jpg and /dev/null differ diff --git a/pics/511001635.jpg b/pics/511001635.jpg deleted file mode 100644 index 6fe189e0..00000000 Binary files a/pics/511001635.jpg and /dev/null differ diff --git a/pics/511001636.jpg b/pics/511001636.jpg deleted file mode 100644 index 4cf02ec8..00000000 Binary files a/pics/511001636.jpg and /dev/null differ diff --git a/pics/511001637.jpg b/pics/511001637.jpg deleted file mode 100644 index c2f21f1f..00000000 Binary files a/pics/511001637.jpg and /dev/null differ diff --git a/pics/511001638.jpg b/pics/511001638.jpg deleted file mode 100644 index 94836e7b..00000000 Binary files a/pics/511001638.jpg and /dev/null differ diff --git a/pics/511001639.jpg b/pics/511001639.jpg deleted file mode 100644 index fa9d7204..00000000 Binary files a/pics/511001639.jpg and /dev/null differ diff --git a/pics/511001640.jpg b/pics/511001640.jpg deleted file mode 100644 index 8a45ec47..00000000 Binary files a/pics/511001640.jpg and /dev/null differ diff --git a/pics/511001641.jpg b/pics/511001641.jpg deleted file mode 100644 index a44bd077..00000000 Binary files a/pics/511001641.jpg and /dev/null differ diff --git a/pics/511001642.jpg b/pics/511001642.jpg deleted file mode 100644 index 043fd230..00000000 Binary files a/pics/511001642.jpg and /dev/null differ diff --git a/pics/511001643.jpg b/pics/511001643.jpg deleted file mode 100644 index 8108c4e9..00000000 Binary files a/pics/511001643.jpg and /dev/null differ diff --git a/pics/511001644.jpg b/pics/511001644.jpg deleted file mode 100644 index 44860839..00000000 Binary files a/pics/511001644.jpg and /dev/null differ diff --git a/pics/511001645.jpg b/pics/511001645.jpg deleted file mode 100644 index fb513308..00000000 Binary files a/pics/511001645.jpg and /dev/null differ diff --git a/pics/511001646.jpg b/pics/511001646.jpg deleted file mode 100644 index aaf0f001..00000000 Binary files a/pics/511001646.jpg and /dev/null differ diff --git a/pics/511001647.jpg b/pics/511001647.jpg deleted file mode 100644 index eb754da7..00000000 Binary files a/pics/511001647.jpg and /dev/null differ diff --git a/pics/511001648.jpg b/pics/511001648.jpg deleted file mode 100644 index 76b24b56..00000000 Binary files a/pics/511001648.jpg and /dev/null differ diff --git a/pics/511001649.jpg b/pics/511001649.jpg deleted file mode 100644 index 565466e3..00000000 Binary files a/pics/511001649.jpg and /dev/null differ diff --git a/pics/511001650.jpg b/pics/511001650.jpg deleted file mode 100644 index 3e72598d..00000000 Binary files a/pics/511001650.jpg and /dev/null differ diff --git a/pics/511001651.jpg b/pics/511001651.jpg deleted file mode 100644 index 00090a1a..00000000 Binary files a/pics/511001651.jpg and /dev/null differ diff --git a/pics/511001652.jpg b/pics/511001652.jpg deleted file mode 100644 index 239c0c4e..00000000 Binary files a/pics/511001652.jpg and /dev/null differ diff --git a/pics/511001653.jpg b/pics/511001653.jpg deleted file mode 100644 index bd841a17..00000000 Binary files a/pics/511001653.jpg and /dev/null differ diff --git a/pics/511001654.jpg b/pics/511001654.jpg deleted file mode 100644 index 599d38ff..00000000 Binary files a/pics/511001654.jpg and /dev/null differ diff --git a/pics/511001655.jpg b/pics/511001655.jpg deleted file mode 100644 index 14ff7fee..00000000 Binary files a/pics/511001655.jpg and /dev/null differ diff --git a/pics/511001656.jpg b/pics/511001656.jpg deleted file mode 100644 index b48d1528..00000000 Binary files a/pics/511001656.jpg and /dev/null differ diff --git a/pics/511001657.jpg b/pics/511001657.jpg deleted file mode 100644 index 69616505..00000000 Binary files a/pics/511001657.jpg and /dev/null differ diff --git a/pics/511001658.jpg b/pics/511001658.jpg deleted file mode 100644 index de89deff..00000000 Binary files a/pics/511001658.jpg and /dev/null differ diff --git a/pics/511001659.jpg b/pics/511001659.jpg deleted file mode 100644 index d02221e4..00000000 Binary files a/pics/511001659.jpg and /dev/null differ diff --git a/pics/511001660.jpg b/pics/511001660.jpg deleted file mode 100644 index 6427864d..00000000 Binary files a/pics/511001660.jpg and /dev/null differ diff --git a/pics/511001661.jpg b/pics/511001661.jpg deleted file mode 100644 index 63b244b3..00000000 Binary files a/pics/511001661.jpg and /dev/null differ diff --git a/pics/511001662.jpg b/pics/511001662.jpg deleted file mode 100644 index 6c94d6fb..00000000 Binary files a/pics/511001662.jpg and /dev/null differ diff --git a/pics/511001663.jpg b/pics/511001663.jpg deleted file mode 100644 index fcef071d..00000000 Binary files a/pics/511001663.jpg and /dev/null differ diff --git a/pics/511001664.jpg b/pics/511001664.jpg deleted file mode 100644 index f3443159..00000000 Binary files a/pics/511001664.jpg and /dev/null differ diff --git a/pics/511001665.jpg b/pics/511001665.jpg deleted file mode 100644 index 80fa225d..00000000 Binary files a/pics/511001665.jpg and /dev/null differ diff --git a/pics/511001666.jpg b/pics/511001666.jpg deleted file mode 100644 index 15a363b5..00000000 Binary files a/pics/511001666.jpg and /dev/null differ diff --git a/pics/511001667.jpg b/pics/511001667.jpg deleted file mode 100644 index 4e4b6e4d..00000000 Binary files a/pics/511001667.jpg and /dev/null differ diff --git a/pics/511001668.jpg b/pics/511001668.jpg deleted file mode 100644 index 993bfa3d..00000000 Binary files a/pics/511001668.jpg and /dev/null differ diff --git a/pics/511001669.jpg b/pics/511001669.jpg deleted file mode 100644 index bc5d4388..00000000 Binary files a/pics/511001669.jpg and /dev/null differ diff --git a/pics/511001670.jpg b/pics/511001670.jpg deleted file mode 100644 index 70f347ee..00000000 Binary files a/pics/511001670.jpg and /dev/null differ diff --git a/pics/511001671.jpg b/pics/511001671.jpg deleted file mode 100644 index cd48b037..00000000 Binary files a/pics/511001671.jpg and /dev/null differ diff --git a/pics/511001672.jpg b/pics/511001672.jpg deleted file mode 100644 index e65639e3..00000000 Binary files a/pics/511001672.jpg and /dev/null differ diff --git a/pics/511001673.jpg b/pics/511001673.jpg deleted file mode 100644 index c378ba15..00000000 Binary files a/pics/511001673.jpg and /dev/null differ diff --git a/pics/511001674.jpg b/pics/511001674.jpg deleted file mode 100644 index e67b258c..00000000 Binary files a/pics/511001674.jpg and /dev/null differ diff --git a/pics/511001675.jpg b/pics/511001675.jpg deleted file mode 100644 index 27bd1b56..00000000 Binary files a/pics/511001675.jpg and /dev/null differ diff --git a/pics/511001676.jpg b/pics/511001676.jpg deleted file mode 100644 index 0e2cf013..00000000 Binary files a/pics/511001676.jpg and /dev/null differ diff --git a/pics/511001677.jpg b/pics/511001677.jpg deleted file mode 100644 index c55f08ff..00000000 Binary files a/pics/511001677.jpg and /dev/null differ diff --git a/pics/511001678.jpg b/pics/511001678.jpg deleted file mode 100644 index f9cd0700..00000000 Binary files a/pics/511001678.jpg and /dev/null differ diff --git a/pics/511001679.jpg b/pics/511001679.jpg deleted file mode 100644 index d3880d58..00000000 Binary files a/pics/511001679.jpg and /dev/null differ diff --git a/pics/511001680.jpg b/pics/511001680.jpg deleted file mode 100644 index dff83441..00000000 Binary files a/pics/511001680.jpg and /dev/null differ diff --git a/pics/511001681.jpg b/pics/511001681.jpg deleted file mode 100644 index b9e44ac9..00000000 Binary files a/pics/511001681.jpg and /dev/null differ diff --git a/pics/511001682.jpg b/pics/511001682.jpg deleted file mode 100644 index 4618c6d6..00000000 Binary files a/pics/511001682.jpg and /dev/null differ diff --git a/pics/511001683.jpg b/pics/511001683.jpg deleted file mode 100644 index be69e353..00000000 Binary files a/pics/511001683.jpg and /dev/null differ diff --git a/pics/511001684.jpg b/pics/511001684.jpg deleted file mode 100644 index 538d3dfd..00000000 Binary files a/pics/511001684.jpg and /dev/null differ diff --git a/pics/511001685.jpg b/pics/511001685.jpg deleted file mode 100644 index f750a1b9..00000000 Binary files a/pics/511001685.jpg and /dev/null differ diff --git a/pics/511001686.jpg b/pics/511001686.jpg deleted file mode 100644 index 94e58090..00000000 Binary files a/pics/511001686.jpg and /dev/null differ diff --git a/pics/511001687.jpg b/pics/511001687.jpg deleted file mode 100644 index b9fd4faa..00000000 Binary files a/pics/511001687.jpg and /dev/null differ diff --git a/pics/511001688.jpg b/pics/511001688.jpg deleted file mode 100644 index 53627248..00000000 Binary files a/pics/511001688.jpg and /dev/null differ diff --git a/pics/511001689.jpg b/pics/511001689.jpg deleted file mode 100644 index c6f577c7..00000000 Binary files a/pics/511001689.jpg and /dev/null differ diff --git a/pics/511001690.jpg b/pics/511001690.jpg deleted file mode 100644 index ace10108..00000000 Binary files a/pics/511001690.jpg and /dev/null differ diff --git a/pics/511001691.jpg b/pics/511001691.jpg deleted file mode 100644 index 07e19518..00000000 Binary files a/pics/511001691.jpg and /dev/null differ diff --git a/pics/511001692.jpg b/pics/511001692.jpg deleted file mode 100644 index 40aa5012..00000000 Binary files a/pics/511001692.jpg and /dev/null differ diff --git a/pics/511001693.jpg b/pics/511001693.jpg deleted file mode 100644 index 53754c19..00000000 Binary files a/pics/511001693.jpg and /dev/null differ diff --git a/pics/511001694.jpg b/pics/511001694.jpg deleted file mode 100644 index 6c5fca59..00000000 Binary files a/pics/511001694.jpg and /dev/null differ diff --git a/pics/511001695.jpg b/pics/511001695.jpg deleted file mode 100644 index fb66bea0..00000000 Binary files a/pics/511001695.jpg and /dev/null differ diff --git a/pics/511001696.jpg b/pics/511001696.jpg deleted file mode 100644 index 9636fcc1..00000000 Binary files a/pics/511001696.jpg and /dev/null differ diff --git a/pics/511001697.jpg b/pics/511001697.jpg deleted file mode 100644 index 8fd21e57..00000000 Binary files a/pics/511001697.jpg and /dev/null differ diff --git a/pics/511001698.jpg b/pics/511001698.jpg deleted file mode 100644 index 2fc40dce..00000000 Binary files a/pics/511001698.jpg and /dev/null differ diff --git a/pics/511001699.jpg b/pics/511001699.jpg deleted file mode 100644 index b4ec6b63..00000000 Binary files a/pics/511001699.jpg and /dev/null differ diff --git a/pics/511001700.jpg b/pics/511001700.jpg deleted file mode 100644 index cdc730ca..00000000 Binary files a/pics/511001700.jpg and /dev/null differ diff --git a/pics/511001701.jpg b/pics/511001701.jpg deleted file mode 100644 index 03319390..00000000 Binary files a/pics/511001701.jpg and /dev/null differ diff --git a/pics/511001702.jpg b/pics/511001702.jpg deleted file mode 100644 index 98749c64..00000000 Binary files a/pics/511001702.jpg and /dev/null differ diff --git a/pics/511001703.jpg b/pics/511001703.jpg deleted file mode 100644 index 78dd8b41..00000000 Binary files a/pics/511001703.jpg and /dev/null differ diff --git a/pics/511001704.jpg b/pics/511001704.jpg deleted file mode 100644 index a71c7f12..00000000 Binary files a/pics/511001704.jpg and /dev/null differ diff --git a/pics/511001705.jpg b/pics/511001705.jpg deleted file mode 100644 index aefc070b..00000000 Binary files a/pics/511001705.jpg and /dev/null differ diff --git a/pics/511001706.jpg b/pics/511001706.jpg deleted file mode 100644 index 16956bcc..00000000 Binary files a/pics/511001706.jpg and /dev/null differ diff --git a/pics/511001707.jpg b/pics/511001707.jpg deleted file mode 100644 index 352258a4..00000000 Binary files a/pics/511001707.jpg and /dev/null differ diff --git a/pics/511001708.jpg b/pics/511001708.jpg deleted file mode 100644 index 60e42dae..00000000 Binary files a/pics/511001708.jpg and /dev/null differ diff --git a/pics/511001709.jpg b/pics/511001709.jpg deleted file mode 100644 index 7fd98de9..00000000 Binary files a/pics/511001709.jpg and /dev/null differ diff --git a/pics/511001710.jpg b/pics/511001710.jpg deleted file mode 100644 index 7922910f..00000000 Binary files a/pics/511001710.jpg and /dev/null differ diff --git a/pics/511001711.jpg b/pics/511001711.jpg deleted file mode 100644 index 508aaec0..00000000 Binary files a/pics/511001711.jpg and /dev/null differ diff --git a/pics/511001712.jpg b/pics/511001712.jpg deleted file mode 100644 index 618f1f46..00000000 Binary files a/pics/511001712.jpg and /dev/null differ diff --git a/pics/511001713.jpg b/pics/511001713.jpg deleted file mode 100644 index f75d15aa..00000000 Binary files a/pics/511001713.jpg and /dev/null differ diff --git a/pics/511001714.jpg b/pics/511001714.jpg deleted file mode 100644 index 7f006026..00000000 Binary files a/pics/511001714.jpg and /dev/null differ diff --git a/pics/511001715.jpg b/pics/511001715.jpg deleted file mode 100644 index acf086a2..00000000 Binary files a/pics/511001715.jpg and /dev/null differ diff --git a/pics/511001716.jpg b/pics/511001716.jpg deleted file mode 100644 index 55768ebf..00000000 Binary files a/pics/511001716.jpg and /dev/null differ diff --git a/pics/511001717.jpg b/pics/511001717.jpg deleted file mode 100644 index d0da63da..00000000 Binary files a/pics/511001717.jpg and /dev/null differ diff --git a/pics/511001718.jpg b/pics/511001718.jpg deleted file mode 100644 index 9c64a7cf..00000000 Binary files a/pics/511001718.jpg and /dev/null differ diff --git a/pics/511001719.jpg b/pics/511001719.jpg deleted file mode 100644 index b87d963f..00000000 Binary files a/pics/511001719.jpg and /dev/null differ diff --git a/pics/511001720.jpg b/pics/511001720.jpg deleted file mode 100644 index 6ec23447..00000000 Binary files a/pics/511001720.jpg and /dev/null differ diff --git a/pics/511001721.jpg b/pics/511001721.jpg deleted file mode 100644 index f6e2a0d0..00000000 Binary files a/pics/511001721.jpg and /dev/null differ diff --git a/pics/511001722.jpg b/pics/511001722.jpg deleted file mode 100644 index de3ff755..00000000 Binary files a/pics/511001722.jpg and /dev/null differ diff --git a/pics/511001723.jpg b/pics/511001723.jpg deleted file mode 100644 index bef30f8b..00000000 Binary files a/pics/511001723.jpg and /dev/null differ diff --git a/pics/511001724.jpg b/pics/511001724.jpg deleted file mode 100644 index fc260f78..00000000 Binary files a/pics/511001724.jpg and /dev/null differ diff --git a/pics/511001725.jpg b/pics/511001725.jpg deleted file mode 100644 index ef120f93..00000000 Binary files a/pics/511001725.jpg and /dev/null differ diff --git a/pics/511001726.jpg b/pics/511001726.jpg deleted file mode 100755 index 42d239e7..00000000 Binary files a/pics/511001726.jpg and /dev/null differ diff --git a/pics/511001727.jpg b/pics/511001727.jpg deleted file mode 100644 index f792d8e7..00000000 Binary files a/pics/511001727.jpg and /dev/null differ diff --git a/pics/511001728.jpg b/pics/511001728.jpg deleted file mode 100644 index ca7d5072..00000000 Binary files a/pics/511001728.jpg and /dev/null differ diff --git a/pics/511001729.jpg b/pics/511001729.jpg deleted file mode 100644 index 2ae917a8..00000000 Binary files a/pics/511001729.jpg and /dev/null differ diff --git a/pics/511001730.jpg b/pics/511001730.jpg deleted file mode 100644 index 0a821f1a..00000000 Binary files a/pics/511001730.jpg and /dev/null differ diff --git a/pics/511001731.jpg b/pics/511001731.jpg deleted file mode 100755 index 41910fe3..00000000 Binary files a/pics/511001731.jpg and /dev/null differ diff --git a/pics/511001732.jpg b/pics/511001732.jpg deleted file mode 100755 index cf59ad5d..00000000 Binary files a/pics/511001732.jpg and /dev/null differ diff --git a/pics/511001733.jpg b/pics/511001733.jpg deleted file mode 100755 index 17c75cf0..00000000 Binary files a/pics/511001733.jpg and /dev/null differ diff --git a/pics/511001734.jpg b/pics/511001734.jpg deleted file mode 100755 index a789b3c0..00000000 Binary files a/pics/511001734.jpg and /dev/null differ diff --git a/pics/511001735.jpg b/pics/511001735.jpg deleted file mode 100755 index b404229a..00000000 Binary files a/pics/511001735.jpg and /dev/null differ diff --git a/pics/511001736.jpg b/pics/511001736.jpg deleted file mode 100755 index d09c6017..00000000 Binary files a/pics/511001736.jpg and /dev/null differ diff --git a/pics/511001737.jpg b/pics/511001737.jpg deleted file mode 100755 index 6ef4029e..00000000 Binary files a/pics/511001737.jpg and /dev/null differ diff --git a/pics/511001738.jpg b/pics/511001738.jpg deleted file mode 100755 index 72ff424b..00000000 Binary files a/pics/511001738.jpg and /dev/null differ diff --git a/pics/511001739.jpg b/pics/511001739.jpg deleted file mode 100755 index 6a28e365..00000000 Binary files a/pics/511001739.jpg and /dev/null differ diff --git a/pics/511001740.jpg b/pics/511001740.jpg deleted file mode 100755 index bf1b2c13..00000000 Binary files a/pics/511001740.jpg and /dev/null differ diff --git a/pics/511001742.jpg b/pics/511001742.jpg deleted file mode 100755 index 67f7b39d..00000000 Binary files a/pics/511001742.jpg and /dev/null differ diff --git a/pics/511001743.jpg b/pics/511001743.jpg deleted file mode 100755 index 5175fa5b..00000000 Binary files a/pics/511001743.jpg and /dev/null differ diff --git a/pics/511001744.jpg b/pics/511001744.jpg deleted file mode 100755 index 4a85ffa7..00000000 Binary files a/pics/511001744.jpg and /dev/null differ diff --git a/pics/511001745.jpg b/pics/511001745.jpg deleted file mode 100755 index c6e232e8..00000000 Binary files a/pics/511001745.jpg and /dev/null differ diff --git a/pics/511001746.jpg b/pics/511001746.jpg deleted file mode 100755 index f5828b51..00000000 Binary files a/pics/511001746.jpg and /dev/null differ diff --git a/pics/511001747.jpg b/pics/511001747.jpg deleted file mode 100755 index 05017e21..00000000 Binary files a/pics/511001747.jpg and /dev/null differ diff --git a/pics/511001748.jpg b/pics/511001748.jpg deleted file mode 100755 index 7bc21cfd..00000000 Binary files a/pics/511001748.jpg and /dev/null differ diff --git a/pics/511001749.jpg b/pics/511001749.jpg deleted file mode 100755 index 66ae127b..00000000 Binary files a/pics/511001749.jpg and /dev/null differ diff --git a/pics/511001750.jpg b/pics/511001750.jpg deleted file mode 100755 index 5e920654..00000000 Binary files a/pics/511001750.jpg and /dev/null differ diff --git a/pics/511001751.jpg b/pics/511001751.jpg deleted file mode 100755 index 65b5da57..00000000 Binary files a/pics/511001751.jpg and /dev/null differ diff --git a/pics/511001752.jpg b/pics/511001752.jpg deleted file mode 100755 index c61e6e77..00000000 Binary files a/pics/511001752.jpg and /dev/null differ diff --git a/pics/511001753.jpg b/pics/511001753.jpg deleted file mode 100755 index 0bd85d15..00000000 Binary files a/pics/511001753.jpg and /dev/null differ diff --git a/pics/511001754.jpg b/pics/511001754.jpg deleted file mode 100755 index d9fafe18..00000000 Binary files a/pics/511001754.jpg and /dev/null differ diff --git a/pics/511001755.jpg b/pics/511001755.jpg deleted file mode 100755 index 90b52c1d..00000000 Binary files a/pics/511001755.jpg and /dev/null differ diff --git a/pics/511001756.jpg b/pics/511001756.jpg deleted file mode 100755 index 7d8ba7d8..00000000 Binary files a/pics/511001756.jpg and /dev/null differ diff --git a/pics/511001757.jpg b/pics/511001757.jpg deleted file mode 100755 index cbd8723a..00000000 Binary files a/pics/511001757.jpg and /dev/null differ diff --git a/pics/511001758.jpg b/pics/511001758.jpg deleted file mode 100755 index 49927f3d..00000000 Binary files a/pics/511001758.jpg and /dev/null differ diff --git a/pics/511001759.jpg b/pics/511001759.jpg deleted file mode 100755 index 51e62d22..00000000 Binary files a/pics/511001759.jpg and /dev/null differ diff --git a/pics/511001760.jpg b/pics/511001760.jpg deleted file mode 100755 index 6764ebc6..00000000 Binary files a/pics/511001760.jpg and /dev/null differ diff --git a/pics/511001761.jpg b/pics/511001761.jpg deleted file mode 100755 index c8ba14a9..00000000 Binary files a/pics/511001761.jpg and /dev/null differ diff --git a/pics/511001762.jpg b/pics/511001762.jpg deleted file mode 100755 index 5e80c6d7..00000000 Binary files a/pics/511001762.jpg and /dev/null differ diff --git a/pics/511001763.jpg b/pics/511001763.jpg deleted file mode 100755 index 0053e537..00000000 Binary files a/pics/511001763.jpg and /dev/null differ diff --git a/pics/511001764.jpg b/pics/511001764.jpg deleted file mode 100755 index 894c2cba..00000000 Binary files a/pics/511001764.jpg and /dev/null differ diff --git a/pics/511001765.jpg b/pics/511001765.jpg deleted file mode 100755 index 3abbf6ac..00000000 Binary files a/pics/511001765.jpg and /dev/null differ diff --git a/pics/511001766.jpg b/pics/511001766.jpg deleted file mode 100755 index 9af9569a..00000000 Binary files a/pics/511001766.jpg and /dev/null differ diff --git a/pics/511001767.jpg b/pics/511001767.jpg deleted file mode 100755 index 0c6f6258..00000000 Binary files a/pics/511001767.jpg and /dev/null differ diff --git a/pics/511001768.jpg b/pics/511001768.jpg deleted file mode 100755 index a429d75d..00000000 Binary files a/pics/511001768.jpg and /dev/null differ diff --git a/pics/511001769.jpg b/pics/511001769.jpg deleted file mode 100755 index f41638dc..00000000 Binary files a/pics/511001769.jpg and /dev/null differ diff --git a/pics/511001770.jpg b/pics/511001770.jpg deleted file mode 100755 index 6e4a898b..00000000 Binary files a/pics/511001770.jpg and /dev/null differ diff --git a/pics/511001771.jpg b/pics/511001771.jpg deleted file mode 100755 index 806f0677..00000000 Binary files a/pics/511001771.jpg and /dev/null differ diff --git a/pics/511001772.jpg b/pics/511001772.jpg deleted file mode 100755 index 0105bf5e..00000000 Binary files a/pics/511001772.jpg and /dev/null differ diff --git a/pics/511001773.jpg b/pics/511001773.jpg deleted file mode 100755 index d0a119fb..00000000 Binary files a/pics/511001773.jpg and /dev/null differ diff --git a/pics/511001774.jpg b/pics/511001774.jpg deleted file mode 100755 index 3ac4aab9..00000000 Binary files a/pics/511001774.jpg and /dev/null differ diff --git a/pics/511001775.jpg b/pics/511001775.jpg deleted file mode 100755 index 0ad3d36b..00000000 Binary files a/pics/511001775.jpg and /dev/null differ diff --git a/pics/511001776.jpg b/pics/511001776.jpg deleted file mode 100755 index 2d4ee523..00000000 Binary files a/pics/511001776.jpg and /dev/null differ diff --git a/pics/511001777.jpg b/pics/511001777.jpg deleted file mode 100755 index 3afd8c3e..00000000 Binary files a/pics/511001777.jpg and /dev/null differ diff --git a/pics/511001778.jpg b/pics/511001778.jpg deleted file mode 100755 index 54c1e292..00000000 Binary files a/pics/511001778.jpg and /dev/null differ diff --git a/pics/511001779.jpg b/pics/511001779.jpg deleted file mode 100755 index 8fc92d11..00000000 Binary files a/pics/511001779.jpg and /dev/null differ diff --git a/pics/511001780.jpg b/pics/511001780.jpg deleted file mode 100755 index 38d58bc9..00000000 Binary files a/pics/511001780.jpg and /dev/null differ diff --git a/pics/511001781.jpg b/pics/511001781.jpg deleted file mode 100755 index 53ab1a63..00000000 Binary files a/pics/511001781.jpg and /dev/null differ diff --git a/pics/511001782.jpg b/pics/511001782.jpg deleted file mode 100755 index 008dc084..00000000 Binary files a/pics/511001782.jpg and /dev/null differ diff --git a/pics/511001783.jpg b/pics/511001783.jpg deleted file mode 100755 index d5e09005..00000000 Binary files a/pics/511001783.jpg and /dev/null differ diff --git a/pics/511001784.jpg b/pics/511001784.jpg deleted file mode 100755 index b7c9cef2..00000000 Binary files a/pics/511001784.jpg and /dev/null differ diff --git a/pics/511001785.jpg b/pics/511001785.jpg deleted file mode 100755 index 5daea533..00000000 Binary files a/pics/511001785.jpg and /dev/null differ diff --git a/pics/511001786.jpg b/pics/511001786.jpg deleted file mode 100755 index caa7320e..00000000 Binary files a/pics/511001786.jpg and /dev/null differ diff --git a/pics/511001787.jpg b/pics/511001787.jpg deleted file mode 100755 index 08c9a994..00000000 Binary files a/pics/511001787.jpg and /dev/null differ diff --git a/pics/511001788.jpg b/pics/511001788.jpg deleted file mode 100755 index d4f372d1..00000000 Binary files a/pics/511001788.jpg and /dev/null differ diff --git a/pics/511001789.jpg b/pics/511001789.jpg deleted file mode 100755 index 35c7373d..00000000 Binary files a/pics/511001789.jpg and /dev/null differ diff --git a/pics/511001790.jpg b/pics/511001790.jpg deleted file mode 100755 index 139e898e..00000000 Binary files a/pics/511001790.jpg and /dev/null differ diff --git a/pics/511001791.jpg b/pics/511001791.jpg deleted file mode 100755 index 55d607f0..00000000 Binary files a/pics/511001791.jpg and /dev/null differ diff --git a/pics/511001792.jpg b/pics/511001792.jpg deleted file mode 100755 index be42752c..00000000 Binary files a/pics/511001792.jpg and /dev/null differ diff --git a/pics/511001793.jpg b/pics/511001793.jpg deleted file mode 100755 index 7069e803..00000000 Binary files a/pics/511001793.jpg and /dev/null differ diff --git a/pics/511001794.jpg b/pics/511001794.jpg deleted file mode 100755 index 6618e379..00000000 Binary files a/pics/511001794.jpg and /dev/null differ diff --git a/pics/511001795.jpg b/pics/511001795.jpg deleted file mode 100755 index c95c211f..00000000 Binary files a/pics/511001795.jpg and /dev/null differ diff --git a/pics/511001796.jpg b/pics/511001796.jpg deleted file mode 100755 index b6b61e74..00000000 Binary files a/pics/511001796.jpg and /dev/null differ diff --git a/pics/511001797.jpg b/pics/511001797.jpg deleted file mode 100755 index 28abe316..00000000 Binary files a/pics/511001797.jpg and /dev/null differ diff --git a/pics/511001798.jpg b/pics/511001798.jpg deleted file mode 100755 index 12b00c8c..00000000 Binary files a/pics/511001798.jpg and /dev/null differ diff --git a/pics/511001799.jpg b/pics/511001799.jpg deleted file mode 100755 index be32bb55..00000000 Binary files a/pics/511001799.jpg and /dev/null differ diff --git a/pics/511001800.jpg b/pics/511001800.jpg deleted file mode 100755 index 17389a50..00000000 Binary files a/pics/511001800.jpg and /dev/null differ diff --git a/pics/511001801.jpg b/pics/511001801.jpg deleted file mode 100755 index ea816577..00000000 Binary files a/pics/511001801.jpg and /dev/null differ diff --git a/pics/511001802.jpg b/pics/511001802.jpg deleted file mode 100755 index 59ddaa06..00000000 Binary files a/pics/511001802.jpg and /dev/null differ diff --git a/pics/511001803.jpg b/pics/511001803.jpg deleted file mode 100755 index 0705449c..00000000 Binary files a/pics/511001803.jpg and /dev/null differ diff --git a/pics/511001804.jpg b/pics/511001804.jpg deleted file mode 100755 index f598e3ad..00000000 Binary files a/pics/511001804.jpg and /dev/null differ diff --git a/pics/511001805.jpg b/pics/511001805.jpg deleted file mode 100755 index 76c0234a..00000000 Binary files a/pics/511001805.jpg and /dev/null differ diff --git a/pics/511001806.jpg b/pics/511001806.jpg deleted file mode 100755 index 3dd3ef41..00000000 Binary files a/pics/511001806.jpg and /dev/null differ diff --git a/pics/511001807.jpg b/pics/511001807.jpg deleted file mode 100755 index a84d540d..00000000 Binary files a/pics/511001807.jpg and /dev/null differ diff --git a/pics/511001808.jpg b/pics/511001808.jpg deleted file mode 100755 index 13adce1c..00000000 Binary files a/pics/511001808.jpg and /dev/null differ diff --git a/pics/511001809.jpg b/pics/511001809.jpg deleted file mode 100755 index 869ad841..00000000 Binary files a/pics/511001809.jpg and /dev/null differ diff --git a/pics/511001810.jpg b/pics/511001810.jpg deleted file mode 100755 index ab542b73..00000000 Binary files a/pics/511001810.jpg and /dev/null differ diff --git a/pics/511001811.jpg b/pics/511001811.jpg deleted file mode 100755 index c2de9d91..00000000 Binary files a/pics/511001811.jpg and /dev/null differ diff --git a/pics/511001812.jpg b/pics/511001812.jpg deleted file mode 100755 index 1564b12c..00000000 Binary files a/pics/511001812.jpg and /dev/null differ diff --git a/pics/511001813.jpg b/pics/511001813.jpg deleted file mode 100755 index 0d9c1012..00000000 Binary files a/pics/511001813.jpg and /dev/null differ diff --git a/pics/511001814.jpg b/pics/511001814.jpg deleted file mode 100755 index 72f50579..00000000 Binary files a/pics/511001814.jpg and /dev/null differ diff --git a/pics/511001815.jpg b/pics/511001815.jpg deleted file mode 100755 index 2c0e6579..00000000 Binary files a/pics/511001815.jpg and /dev/null differ diff --git a/pics/511001816.jpg b/pics/511001816.jpg deleted file mode 100755 index 343e84a4..00000000 Binary files a/pics/511001816.jpg and /dev/null differ diff --git a/pics/511001817.jpg b/pics/511001817.jpg deleted file mode 100755 index 1c766461..00000000 Binary files a/pics/511001817.jpg and /dev/null differ diff --git a/pics/511001818.jpg b/pics/511001818.jpg deleted file mode 100755 index da3824bb..00000000 Binary files a/pics/511001818.jpg and /dev/null differ diff --git a/pics/511001819.jpg b/pics/511001819.jpg deleted file mode 100755 index d1c8701a..00000000 Binary files a/pics/511001819.jpg and /dev/null differ diff --git a/pics/511001820.jpg b/pics/511001820.jpg deleted file mode 100755 index 82030a27..00000000 Binary files a/pics/511001820.jpg and /dev/null differ diff --git a/pics/511001821.jpg b/pics/511001821.jpg deleted file mode 100755 index 6625f6ea..00000000 Binary files a/pics/511001821.jpg and /dev/null differ diff --git a/pics/511001822.jpg b/pics/511001822.jpg deleted file mode 100755 index 1b58d712..00000000 Binary files a/pics/511001822.jpg and /dev/null differ diff --git a/pics/511001823.jpg b/pics/511001823.jpg deleted file mode 100755 index f879b8e7..00000000 Binary files a/pics/511001823.jpg and /dev/null differ diff --git a/pics/511001824.jpg b/pics/511001824.jpg deleted file mode 100755 index eaa7c7c9..00000000 Binary files a/pics/511001824.jpg and /dev/null differ diff --git a/pics/511001825.jpg b/pics/511001825.jpg deleted file mode 100755 index 24a3b083..00000000 Binary files a/pics/511001825.jpg and /dev/null differ diff --git a/pics/511001826.jpg b/pics/511001826.jpg deleted file mode 100755 index 73a49e6a..00000000 Binary files a/pics/511001826.jpg and /dev/null differ diff --git a/pics/511001827.jpg b/pics/511001827.jpg deleted file mode 100755 index 4d53e897..00000000 Binary files a/pics/511001827.jpg and /dev/null differ diff --git a/pics/511001828.jpg b/pics/511001828.jpg deleted file mode 100755 index a57b2c19..00000000 Binary files a/pics/511001828.jpg and /dev/null differ diff --git a/pics/511001829.jpg b/pics/511001829.jpg deleted file mode 100755 index 5accca2a..00000000 Binary files a/pics/511001829.jpg and /dev/null differ diff --git a/pics/511001830.jpg b/pics/511001830.jpg deleted file mode 100755 index b0b71505..00000000 Binary files a/pics/511001830.jpg and /dev/null differ diff --git a/pics/511001846.jpg b/pics/511001846.jpg deleted file mode 100755 index 6d61caf8..00000000 Binary files a/pics/511001846.jpg and /dev/null differ diff --git a/pics/511001847.jpg b/pics/511001847.jpg deleted file mode 100755 index 55dd1ca3..00000000 Binary files a/pics/511001847.jpg and /dev/null differ diff --git a/pics/511001857.jpg b/pics/511001857.jpg deleted file mode 100755 index 463cd7aa..00000000 Binary files a/pics/511001857.jpg and /dev/null differ diff --git a/pics/511001858.jpg b/pics/511001858.jpg deleted file mode 100755 index b1de9176..00000000 Binary files a/pics/511001858.jpg and /dev/null differ diff --git a/pics/511001859.jpg b/pics/511001859.jpg deleted file mode 100755 index 270b89ce..00000000 Binary files a/pics/511001859.jpg and /dev/null differ diff --git a/pics/511001860.jpg b/pics/511001860.jpg deleted file mode 100755 index d1e71fe0..00000000 Binary files a/pics/511001860.jpg and /dev/null differ diff --git a/pics/511001861.jpg b/pics/511001861.jpg deleted file mode 100755 index 7b9b59a9..00000000 Binary files a/pics/511001861.jpg and /dev/null differ diff --git a/pics/511001862.jpg b/pics/511001862.jpg deleted file mode 100755 index c5386ddb..00000000 Binary files a/pics/511001862.jpg and /dev/null differ diff --git a/pics/511001863.jpg b/pics/511001863.jpg deleted file mode 100755 index ea03d5ae..00000000 Binary files a/pics/511001863.jpg and /dev/null differ diff --git a/pics/511001864.jpg b/pics/511001864.jpg deleted file mode 100755 index 218ba358..00000000 Binary files a/pics/511001864.jpg and /dev/null differ diff --git a/pics/511001865.jpg b/pics/511001865.jpg deleted file mode 100755 index a9439884..00000000 Binary files a/pics/511001865.jpg and /dev/null differ diff --git a/pics/511001866.jpg b/pics/511001866.jpg deleted file mode 100755 index b8eb2228..00000000 Binary files a/pics/511001866.jpg and /dev/null differ diff --git a/pics/511001867.jpg b/pics/511001867.jpg deleted file mode 100755 index cec09f1a..00000000 Binary files a/pics/511001867.jpg and /dev/null differ diff --git a/pics/511001868.jpg b/pics/511001868.jpg deleted file mode 100755 index 6fdd2e5c..00000000 Binary files a/pics/511001868.jpg and /dev/null differ diff --git a/pics/511001869.jpg b/pics/511001869.jpg deleted file mode 100755 index 71be0243..00000000 Binary files a/pics/511001869.jpg and /dev/null differ diff --git a/pics/511001870.jpg b/pics/511001870.jpg deleted file mode 100755 index 7ec742ad..00000000 Binary files a/pics/511001870.jpg and /dev/null differ diff --git a/pics/511001871.jpg b/pics/511001871.jpg deleted file mode 100755 index 418fbad9..00000000 Binary files a/pics/511001871.jpg and /dev/null differ diff --git a/pics/511001872.jpg b/pics/511001872.jpg deleted file mode 100755 index 34ddbda2..00000000 Binary files a/pics/511001872.jpg and /dev/null differ diff --git a/pics/511001873.jpg b/pics/511001873.jpg deleted file mode 100755 index 2b0676fd..00000000 Binary files a/pics/511001873.jpg and /dev/null differ diff --git a/pics/511001874.jpg b/pics/511001874.jpg deleted file mode 100755 index e932f672..00000000 Binary files a/pics/511001874.jpg and /dev/null differ diff --git a/pics/511001875.jpg b/pics/511001875.jpg deleted file mode 100755 index 23e5150c..00000000 Binary files a/pics/511001875.jpg and /dev/null differ diff --git a/pics/511001876.jpg b/pics/511001876.jpg deleted file mode 100755 index d0eed537..00000000 Binary files a/pics/511001876.jpg and /dev/null differ diff --git a/pics/511001877.jpg b/pics/511001877.jpg deleted file mode 100755 index 20ccf83a..00000000 Binary files a/pics/511001877.jpg and /dev/null differ diff --git a/pics/511001878.jpg b/pics/511001878.jpg deleted file mode 100755 index 99c261c9..00000000 Binary files a/pics/511001878.jpg and /dev/null differ diff --git a/pics/511001879.jpg b/pics/511001879.jpg deleted file mode 100755 index ad749c33..00000000 Binary files a/pics/511001879.jpg and /dev/null differ diff --git a/pics/511001880.jpg b/pics/511001880.jpg deleted file mode 100755 index ee08de86..00000000 Binary files a/pics/511001880.jpg and /dev/null differ diff --git a/pics/511001881.jpg b/pics/511001881.jpg deleted file mode 100755 index 5b802eb9..00000000 Binary files a/pics/511001881.jpg and /dev/null differ diff --git a/pics/511001882.jpg b/pics/511001882.jpg deleted file mode 100755 index 8df1e182..00000000 Binary files a/pics/511001882.jpg and /dev/null differ diff --git a/pics/511001883.jpg b/pics/511001883.jpg deleted file mode 100755 index 5066115e..00000000 Binary files a/pics/511001883.jpg and /dev/null differ diff --git a/pics/511001884.jpg b/pics/511001884.jpg deleted file mode 100755 index e527d649..00000000 Binary files a/pics/511001884.jpg and /dev/null differ diff --git a/pics/511001885.jpg b/pics/511001885.jpg deleted file mode 100755 index 3d54a3f3..00000000 Binary files a/pics/511001885.jpg and /dev/null differ diff --git a/pics/511001886.jpg b/pics/511001886.jpg deleted file mode 100755 index afac9a8b..00000000 Binary files a/pics/511001886.jpg and /dev/null differ diff --git a/pics/511001887.jpg b/pics/511001887.jpg deleted file mode 100755 index 80f8b95d..00000000 Binary files a/pics/511001887.jpg and /dev/null differ diff --git a/pics/511001888.jpg b/pics/511001888.jpg deleted file mode 100755 index 9d3ab6b4..00000000 Binary files a/pics/511001888.jpg and /dev/null differ diff --git a/pics/511001889.jpg b/pics/511001889.jpg deleted file mode 100755 index 5a078358..00000000 Binary files a/pics/511001889.jpg and /dev/null differ diff --git a/pics/511001890.jpg b/pics/511001890.jpg deleted file mode 100755 index a0f2265c..00000000 Binary files a/pics/511001890.jpg and /dev/null differ diff --git a/pics/511001891.jpg b/pics/511001891.jpg deleted file mode 100755 index 8171aec3..00000000 Binary files a/pics/511001891.jpg and /dev/null differ diff --git a/pics/511001892.jpg b/pics/511001892.jpg deleted file mode 100755 index 6f225253..00000000 Binary files a/pics/511001892.jpg and /dev/null differ diff --git a/pics/511001893.jpg b/pics/511001893.jpg deleted file mode 100755 index 235872f1..00000000 Binary files a/pics/511001893.jpg and /dev/null differ diff --git a/pics/511001894.jpg b/pics/511001894.jpg deleted file mode 100755 index c87a9a01..00000000 Binary files a/pics/511001894.jpg and /dev/null differ diff --git a/pics/511001895.jpg b/pics/511001895.jpg deleted file mode 100755 index e0bc7ef5..00000000 Binary files a/pics/511001895.jpg and /dev/null differ diff --git a/pics/511001896.jpg b/pics/511001896.jpg deleted file mode 100755 index acb7801c..00000000 Binary files a/pics/511001896.jpg and /dev/null differ diff --git a/pics/511001897.jpg b/pics/511001897.jpg deleted file mode 100755 index af62c370..00000000 Binary files a/pics/511001897.jpg and /dev/null differ diff --git a/pics/511001898.jpg b/pics/511001898.jpg deleted file mode 100755 index acffeac7..00000000 Binary files a/pics/511001898.jpg and /dev/null differ diff --git a/pics/511001899.jpg b/pics/511001899.jpg deleted file mode 100755 index 67d7818b..00000000 Binary files a/pics/511001899.jpg and /dev/null differ diff --git a/pics/511001900.jpg b/pics/511001900.jpg deleted file mode 100755 index 4597f30d..00000000 Binary files a/pics/511001900.jpg and /dev/null differ diff --git a/pics/511001901.jpg b/pics/511001901.jpg deleted file mode 100755 index dc4d62c4..00000000 Binary files a/pics/511001901.jpg and /dev/null differ diff --git a/pics/511001902.jpg b/pics/511001902.jpg deleted file mode 100755 index 123dcd96..00000000 Binary files a/pics/511001902.jpg and /dev/null differ diff --git a/pics/511001903.jpg b/pics/511001903.jpg deleted file mode 100755 index b1b01c19..00000000 Binary files a/pics/511001903.jpg and /dev/null differ diff --git a/pics/511001904.jpg b/pics/511001904.jpg deleted file mode 100755 index a625b0d7..00000000 Binary files a/pics/511001904.jpg and /dev/null differ diff --git a/pics/511001905.jpg b/pics/511001905.jpg deleted file mode 100755 index af8f1778..00000000 Binary files a/pics/511001905.jpg and /dev/null differ diff --git a/pics/511001906.jpg b/pics/511001906.jpg deleted file mode 100755 index cf61ada8..00000000 Binary files a/pics/511001906.jpg and /dev/null differ diff --git a/pics/511001907.jpg b/pics/511001907.jpg deleted file mode 100755 index e478e262..00000000 Binary files a/pics/511001907.jpg and /dev/null differ diff --git a/pics/511001908.jpg b/pics/511001908.jpg deleted file mode 100755 index 61c1cd6c..00000000 Binary files a/pics/511001908.jpg and /dev/null differ diff --git a/pics/511001909.jpg b/pics/511001909.jpg deleted file mode 100755 index e3276a00..00000000 Binary files a/pics/511001909.jpg and /dev/null differ diff --git a/pics/511001910.jpg b/pics/511001910.jpg deleted file mode 100755 index d0fa0e09..00000000 Binary files a/pics/511001910.jpg and /dev/null differ diff --git a/pics/511001911.jpg b/pics/511001911.jpg deleted file mode 100755 index 354803ef..00000000 Binary files a/pics/511001911.jpg and /dev/null differ diff --git a/pics/511001912.jpg b/pics/511001912.jpg deleted file mode 100755 index ac799800..00000000 Binary files a/pics/511001912.jpg and /dev/null differ diff --git a/pics/511001913.jpg b/pics/511001913.jpg deleted file mode 100755 index ed1514dd..00000000 Binary files a/pics/511001913.jpg and /dev/null differ diff --git a/pics/511001914.jpg b/pics/511001914.jpg deleted file mode 100755 index ed17cbe6..00000000 Binary files a/pics/511001914.jpg and /dev/null differ diff --git a/pics/511001915.jpg b/pics/511001915.jpg deleted file mode 100755 index 7f932b5b..00000000 Binary files a/pics/511001915.jpg and /dev/null differ diff --git a/pics/511001916.jpg b/pics/511001916.jpg deleted file mode 100755 index ba4d945d..00000000 Binary files a/pics/511001916.jpg and /dev/null differ diff --git a/pics/511001917.jpg b/pics/511001917.jpg deleted file mode 100755 index f30ceb74..00000000 Binary files a/pics/511001917.jpg and /dev/null differ diff --git a/pics/511001918.jpg b/pics/511001918.jpg deleted file mode 100755 index d64e21cd..00000000 Binary files a/pics/511001918.jpg and /dev/null differ diff --git a/pics/511001919.jpg b/pics/511001919.jpg deleted file mode 100755 index 2015b190..00000000 Binary files a/pics/511001919.jpg and /dev/null differ diff --git a/pics/511001920.jpg b/pics/511001920.jpg deleted file mode 100755 index 035d7b9e..00000000 Binary files a/pics/511001920.jpg and /dev/null differ diff --git a/pics/511001921.jpg b/pics/511001921.jpg deleted file mode 100755 index 89c2a61d..00000000 Binary files a/pics/511001921.jpg and /dev/null differ diff --git a/pics/511001922.jpg b/pics/511001922.jpg deleted file mode 100755 index 990c232c..00000000 Binary files a/pics/511001922.jpg and /dev/null differ diff --git a/pics/511001923.jpg b/pics/511001923.jpg deleted file mode 100755 index 92475c78..00000000 Binary files a/pics/511001923.jpg and /dev/null differ diff --git a/pics/511001924.jpg b/pics/511001924.jpg deleted file mode 100755 index fe29692a..00000000 Binary files a/pics/511001924.jpg and /dev/null differ diff --git a/pics/511001925.jpg b/pics/511001925.jpg deleted file mode 100755 index 823d6cdb..00000000 Binary files a/pics/511001925.jpg and /dev/null differ diff --git a/pics/511001926.jpg b/pics/511001926.jpg deleted file mode 100755 index 35850210..00000000 Binary files a/pics/511001926.jpg and /dev/null differ diff --git a/pics/511001927.jpg b/pics/511001927.jpg deleted file mode 100755 index f79e282b..00000000 Binary files a/pics/511001927.jpg and /dev/null differ diff --git a/pics/511001928.jpg b/pics/511001928.jpg deleted file mode 100755 index 75097f72..00000000 Binary files a/pics/511001928.jpg and /dev/null differ diff --git a/pics/511001929.jpg b/pics/511001929.jpg deleted file mode 100755 index aeb1cf6a..00000000 Binary files a/pics/511001929.jpg and /dev/null differ diff --git a/pics/511001930.jpg b/pics/511001930.jpg deleted file mode 100755 index 8850859f..00000000 Binary files a/pics/511001930.jpg and /dev/null differ diff --git a/pics/511001931.jpg b/pics/511001931.jpg deleted file mode 100755 index d86d4cf4..00000000 Binary files a/pics/511001931.jpg and /dev/null differ diff --git a/pics/511001932.jpg b/pics/511001932.jpg deleted file mode 100755 index d7287c27..00000000 Binary files a/pics/511001932.jpg and /dev/null differ diff --git a/pics/511001933.jpg b/pics/511001933.jpg deleted file mode 100755 index cf9beff2..00000000 Binary files a/pics/511001933.jpg and /dev/null differ diff --git a/pics/511001934.jpg b/pics/511001934.jpg deleted file mode 100755 index fe716c45..00000000 Binary files a/pics/511001934.jpg and /dev/null differ diff --git a/pics/511001935.jpg b/pics/511001935.jpg deleted file mode 100755 index 94909243..00000000 Binary files a/pics/511001935.jpg and /dev/null differ diff --git a/pics/511001936.jpg b/pics/511001936.jpg deleted file mode 100755 index 77c05b0a..00000000 Binary files a/pics/511001936.jpg and /dev/null differ diff --git a/pics/511001937.jpg b/pics/511001937.jpg deleted file mode 100755 index f578897e..00000000 Binary files a/pics/511001937.jpg and /dev/null differ diff --git a/pics/511001938.jpg b/pics/511001938.jpg deleted file mode 100755 index 38a86a1a..00000000 Binary files a/pics/511001938.jpg and /dev/null differ diff --git a/pics/511001939.jpg b/pics/511001939.jpg deleted file mode 100755 index 926aa961..00000000 Binary files a/pics/511001939.jpg and /dev/null differ diff --git a/pics/511001941.jpg b/pics/511001941.jpg deleted file mode 100644 index 8ff0bc1f..00000000 Binary files a/pics/511001941.jpg and /dev/null differ diff --git a/pics/511001942.jpg b/pics/511001942.jpg deleted file mode 100644 index b0aa347b..00000000 Binary files a/pics/511001942.jpg and /dev/null differ diff --git a/pics/511001943.jpg b/pics/511001943.jpg deleted file mode 100644 index bb0bc6f1..00000000 Binary files a/pics/511001943.jpg and /dev/null differ diff --git a/pics/511001944.jpg b/pics/511001944.jpg deleted file mode 100644 index 334c1463..00000000 Binary files a/pics/511001944.jpg and /dev/null differ diff --git a/pics/511001945.jpg b/pics/511001945.jpg deleted file mode 100644 index ea0ec7e6..00000000 Binary files a/pics/511001945.jpg and /dev/null differ diff --git a/pics/511001946.jpg b/pics/511001946.jpg deleted file mode 100644 index f92f0f2f..00000000 Binary files a/pics/511001946.jpg and /dev/null differ diff --git a/pics/511001947.jpg b/pics/511001947.jpg deleted file mode 100644 index 8c8328a9..00000000 Binary files a/pics/511001947.jpg and /dev/null differ diff --git a/pics/511001948.jpg b/pics/511001948.jpg deleted file mode 100644 index 9508eeda..00000000 Binary files a/pics/511001948.jpg and /dev/null differ diff --git a/pics/511001949.jpg b/pics/511001949.jpg deleted file mode 100644 index c7385a42..00000000 Binary files a/pics/511001949.jpg and /dev/null differ diff --git a/pics/511001950.jpg b/pics/511001950.jpg deleted file mode 100644 index c063095d..00000000 Binary files a/pics/511001950.jpg and /dev/null differ diff --git a/pics/511001951.jpg b/pics/511001951.jpg deleted file mode 100644 index e0d89a7b..00000000 Binary files a/pics/511001951.jpg and /dev/null differ diff --git a/pics/511001952.jpg b/pics/511001952.jpg deleted file mode 100644 index 88ad28fd..00000000 Binary files a/pics/511001952.jpg and /dev/null differ diff --git a/pics/511001953.jpg b/pics/511001953.jpg deleted file mode 100644 index 7c56a91f..00000000 Binary files a/pics/511001953.jpg and /dev/null differ diff --git a/pics/511001954.jpg b/pics/511001954.jpg deleted file mode 100644 index 8aeeadcc..00000000 Binary files a/pics/511001954.jpg and /dev/null differ diff --git a/pics/511001955.jpg b/pics/511001955.jpg deleted file mode 100644 index c1b76486..00000000 Binary files a/pics/511001955.jpg and /dev/null differ diff --git a/pics/511001956.jpg b/pics/511001956.jpg deleted file mode 100644 index 1a3aa415..00000000 Binary files a/pics/511001956.jpg and /dev/null differ diff --git a/pics/511001957.jpg b/pics/511001957.jpg deleted file mode 100644 index 513480eb..00000000 Binary files a/pics/511001957.jpg and /dev/null differ diff --git a/pics/511001958.jpg b/pics/511001958.jpg deleted file mode 100644 index b782fe91..00000000 Binary files a/pics/511001958.jpg and /dev/null differ diff --git a/pics/511001959.jpg b/pics/511001959.jpg deleted file mode 100644 index bc2b570c..00000000 Binary files a/pics/511001959.jpg and /dev/null differ diff --git a/pics/511001960.jpg b/pics/511001960.jpg deleted file mode 100644 index 10e30ebe..00000000 Binary files a/pics/511001960.jpg and /dev/null differ diff --git a/pics/511001961.jpg b/pics/511001961.jpg deleted file mode 100644 index 5acb7acb..00000000 Binary files a/pics/511001961.jpg and /dev/null differ diff --git a/pics/511001962.jpg b/pics/511001962.jpg deleted file mode 100644 index 1ca6da76..00000000 Binary files a/pics/511001962.jpg and /dev/null differ diff --git a/pics/511001963.jpg b/pics/511001963.jpg deleted file mode 100644 index 91f4132f..00000000 Binary files a/pics/511001963.jpg and /dev/null differ diff --git a/pics/511001964.jpg b/pics/511001964.jpg deleted file mode 100644 index 626fddf4..00000000 Binary files a/pics/511001964.jpg and /dev/null differ diff --git a/pics/511001965.jpg b/pics/511001965.jpg deleted file mode 100644 index 71c707c8..00000000 Binary files a/pics/511001965.jpg and /dev/null differ diff --git a/pics/511001966.jpg b/pics/511001966.jpg deleted file mode 100644 index c3ec285f..00000000 Binary files a/pics/511001966.jpg and /dev/null differ diff --git a/pics/511001967.jpg b/pics/511001967.jpg deleted file mode 100644 index d71a3277..00000000 Binary files a/pics/511001967.jpg and /dev/null differ diff --git a/pics/511001968.jpg b/pics/511001968.jpg deleted file mode 100644 index 72f0dcae..00000000 Binary files a/pics/511001968.jpg and /dev/null differ diff --git a/pics/511001969.jpg b/pics/511001969.jpg deleted file mode 100644 index 03e12b00..00000000 Binary files a/pics/511001969.jpg and /dev/null differ diff --git a/pics/511001970.jpg b/pics/511001970.jpg deleted file mode 100644 index c622c462..00000000 Binary files a/pics/511001970.jpg and /dev/null differ diff --git a/pics/511001971.jpg b/pics/511001971.jpg deleted file mode 100644 index 61314f0e..00000000 Binary files a/pics/511001971.jpg and /dev/null differ diff --git a/pics/511001972.jpg b/pics/511001972.jpg deleted file mode 100644 index 7d53ca32..00000000 Binary files a/pics/511001972.jpg and /dev/null differ diff --git a/pics/511001973.jpg b/pics/511001973.jpg deleted file mode 100644 index 5ea15542..00000000 Binary files a/pics/511001973.jpg and /dev/null differ diff --git a/pics/511001974.jpg b/pics/511001974.jpg deleted file mode 100644 index 89d2a31b..00000000 Binary files a/pics/511001974.jpg and /dev/null differ diff --git a/pics/511001975.jpg b/pics/511001975.jpg deleted file mode 100644 index 53c24581..00000000 Binary files a/pics/511001975.jpg and /dev/null differ diff --git a/pics/511001976.jpg b/pics/511001976.jpg deleted file mode 100644 index 2ea22564..00000000 Binary files a/pics/511001976.jpg and /dev/null differ diff --git a/pics/511001977.jpg b/pics/511001977.jpg deleted file mode 100644 index ca5488d3..00000000 Binary files a/pics/511001977.jpg and /dev/null differ diff --git a/pics/511001978.jpg b/pics/511001978.jpg deleted file mode 100644 index 4c83f389..00000000 Binary files a/pics/511001978.jpg and /dev/null differ diff --git a/pics/511001979.jpg b/pics/511001979.jpg deleted file mode 100644 index 8db374d7..00000000 Binary files a/pics/511001979.jpg and /dev/null differ diff --git a/pics/511001980.jpg b/pics/511001980.jpg deleted file mode 100644 index 9027357e..00000000 Binary files a/pics/511001980.jpg and /dev/null differ diff --git a/pics/511001981.jpg b/pics/511001981.jpg deleted file mode 100644 index 9a5907df..00000000 Binary files a/pics/511001981.jpg and /dev/null differ diff --git a/pics/511001982.jpg b/pics/511001982.jpg deleted file mode 100644 index cde4d28b..00000000 Binary files a/pics/511001982.jpg and /dev/null differ diff --git a/pics/511001983.jpg b/pics/511001983.jpg deleted file mode 100644 index 3e4f60ba..00000000 Binary files a/pics/511001983.jpg and /dev/null differ diff --git a/pics/511001984.jpg b/pics/511001984.jpg deleted file mode 100644 index a1cbb889..00000000 Binary files a/pics/511001984.jpg and /dev/null differ diff --git a/pics/511001985.jpg b/pics/511001985.jpg deleted file mode 100644 index c2ba368e..00000000 Binary files a/pics/511001985.jpg and /dev/null differ diff --git a/pics/511001986.jpg b/pics/511001986.jpg deleted file mode 100644 index 7e4af3fb..00000000 Binary files a/pics/511001986.jpg and /dev/null differ diff --git a/pics/511001987.jpg b/pics/511001987.jpg deleted file mode 100644 index c312591c..00000000 Binary files a/pics/511001987.jpg and /dev/null differ diff --git a/pics/511001988.jpg b/pics/511001988.jpg deleted file mode 100644 index 74663f40..00000000 Binary files a/pics/511001988.jpg and /dev/null differ diff --git a/pics/511001989.jpg b/pics/511001989.jpg deleted file mode 100644 index d7869206..00000000 Binary files a/pics/511001989.jpg and /dev/null differ diff --git a/pics/511001990.jpg b/pics/511001990.jpg deleted file mode 100644 index b4ae6054..00000000 Binary files a/pics/511001990.jpg and /dev/null differ diff --git a/pics/511001991.jpg b/pics/511001991.jpg deleted file mode 100644 index 4c3c5e2b..00000000 Binary files a/pics/511001991.jpg and /dev/null differ diff --git a/pics/511001992.jpg b/pics/511001992.jpg deleted file mode 100644 index 8dd53117..00000000 Binary files a/pics/511001992.jpg and /dev/null differ diff --git a/pics/511001993.jpg b/pics/511001993.jpg deleted file mode 100644 index ffad88c5..00000000 Binary files a/pics/511001993.jpg and /dev/null differ diff --git a/pics/511001994.jpg b/pics/511001994.jpg deleted file mode 100644 index 24eb29e8..00000000 Binary files a/pics/511001994.jpg and /dev/null differ diff --git a/pics/511001995.jpg b/pics/511001995.jpg deleted file mode 100644 index e3f567ff..00000000 Binary files a/pics/511001995.jpg and /dev/null differ diff --git a/pics/511001996.jpg b/pics/511001996.jpg deleted file mode 100644 index aa6dea8e..00000000 Binary files a/pics/511001996.jpg and /dev/null differ diff --git a/pics/511001997.jpg b/pics/511001997.jpg deleted file mode 100644 index c3409be1..00000000 Binary files a/pics/511001997.jpg and /dev/null differ diff --git a/pics/511001998.jpg b/pics/511001998.jpg deleted file mode 100644 index 986bf69a..00000000 Binary files a/pics/511001998.jpg and /dev/null differ diff --git a/pics/511001999.jpg b/pics/511001999.jpg deleted file mode 100644 index ed5f460c..00000000 Binary files a/pics/511001999.jpg and /dev/null differ diff --git a/pics/511002000.jpg b/pics/511002000.jpg deleted file mode 100644 index e54b1c57..00000000 Binary files a/pics/511002000.jpg and /dev/null differ diff --git a/pics/511002001.jpg b/pics/511002001.jpg deleted file mode 100644 index f5032b05..00000000 Binary files a/pics/511002001.jpg and /dev/null differ diff --git a/pics/511002002.jpg b/pics/511002002.jpg deleted file mode 100644 index adf21514..00000000 Binary files a/pics/511002002.jpg and /dev/null differ diff --git a/pics/511002003.jpg b/pics/511002003.jpg deleted file mode 100644 index a679aadf..00000000 Binary files a/pics/511002003.jpg and /dev/null differ diff --git a/pics/511002004.jpg b/pics/511002004.jpg deleted file mode 100644 index 8cc58151..00000000 Binary files a/pics/511002004.jpg and /dev/null differ diff --git a/pics/511002005.jpg b/pics/511002005.jpg deleted file mode 100644 index 429d75d5..00000000 Binary files a/pics/511002005.jpg and /dev/null differ diff --git a/pics/511002006.jpg b/pics/511002006.jpg deleted file mode 100644 index 9a9f82c3..00000000 Binary files a/pics/511002006.jpg and /dev/null differ diff --git a/pics/511002007.jpg b/pics/511002007.jpg deleted file mode 100644 index f19b3cf0..00000000 Binary files a/pics/511002007.jpg and /dev/null differ diff --git a/pics/511002008.jpg b/pics/511002008.jpg deleted file mode 100644 index 1e6829a3..00000000 Binary files a/pics/511002008.jpg and /dev/null differ diff --git a/pics/511002009.jpg b/pics/511002009.jpg deleted file mode 100644 index 87f1e599..00000000 Binary files a/pics/511002009.jpg and /dev/null differ diff --git a/pics/511002010.jpg b/pics/511002010.jpg deleted file mode 100644 index 70266b17..00000000 Binary files a/pics/511002010.jpg and /dev/null differ diff --git a/pics/511002011.jpg b/pics/511002011.jpg deleted file mode 100644 index ed0c0b29..00000000 Binary files a/pics/511002011.jpg and /dev/null differ diff --git a/pics/511002012.jpg b/pics/511002012.jpg deleted file mode 100644 index 199e0b72..00000000 Binary files a/pics/511002012.jpg and /dev/null differ diff --git a/pics/511002013.jpg b/pics/511002013.jpg deleted file mode 100644 index 3be5a1af..00000000 Binary files a/pics/511002013.jpg and /dev/null differ diff --git a/pics/511002014.jpg b/pics/511002014.jpg deleted file mode 100644 index a036fe92..00000000 Binary files a/pics/511002014.jpg and /dev/null differ diff --git a/pics/511002015.jpg b/pics/511002015.jpg deleted file mode 100644 index 80883537..00000000 Binary files a/pics/511002015.jpg and /dev/null differ diff --git a/pics/511002016.jpg b/pics/511002016.jpg deleted file mode 100644 index ee6b63f3..00000000 Binary files a/pics/511002016.jpg and /dev/null differ diff --git a/pics/511002017.jpg b/pics/511002017.jpg deleted file mode 100644 index 012d0289..00000000 Binary files a/pics/511002017.jpg and /dev/null differ diff --git a/pics/511002018.jpg b/pics/511002018.jpg deleted file mode 100644 index d218ac18..00000000 Binary files a/pics/511002018.jpg and /dev/null differ diff --git a/pics/511002019.jpg b/pics/511002019.jpg deleted file mode 100644 index 773f7c7e..00000000 Binary files a/pics/511002019.jpg and /dev/null differ diff --git a/pics/511002020.jpg b/pics/511002020.jpg deleted file mode 100644 index 671f2135..00000000 Binary files a/pics/511002020.jpg and /dev/null differ diff --git a/pics/511002021.jpg b/pics/511002021.jpg deleted file mode 100644 index a0a78007..00000000 Binary files a/pics/511002021.jpg and /dev/null differ diff --git a/pics/511002022.jpg b/pics/511002022.jpg deleted file mode 100644 index 25711233..00000000 Binary files a/pics/511002022.jpg and /dev/null differ diff --git a/pics/511002023.jpg b/pics/511002023.jpg deleted file mode 100644 index ade4575c..00000000 Binary files a/pics/511002023.jpg and /dev/null differ diff --git a/pics/511002024.jpg b/pics/511002024.jpg deleted file mode 100644 index 002e0e69..00000000 Binary files a/pics/511002024.jpg and /dev/null differ diff --git a/pics/511002027.jpg b/pics/511002027.jpg deleted file mode 100644 index 1247f5cc..00000000 Binary files a/pics/511002027.jpg and /dev/null differ diff --git a/pics/511002029.jpg b/pics/511002029.jpg deleted file mode 100644 index fca1ad0a..00000000 Binary files a/pics/511002029.jpg and /dev/null differ diff --git a/pics/511002030.jpg b/pics/511002030.jpg deleted file mode 100644 index fa7f3e72..00000000 Binary files a/pics/511002030.jpg and /dev/null differ diff --git a/pics/511002031.jpg b/pics/511002031.jpg deleted file mode 100644 index a9c847c8..00000000 Binary files a/pics/511002031.jpg and /dev/null differ diff --git a/pics/511002032.jpg b/pics/511002032.jpg deleted file mode 100644 index c761da01..00000000 Binary files a/pics/511002032.jpg and /dev/null differ diff --git a/pics/511002033.jpg b/pics/511002033.jpg deleted file mode 100644 index bcddf1bd..00000000 Binary files a/pics/511002033.jpg and /dev/null differ diff --git a/pics/511002034.jpg b/pics/511002034.jpg deleted file mode 100644 index 96ebb93a..00000000 Binary files a/pics/511002034.jpg and /dev/null differ diff --git a/pics/511002035.jpg b/pics/511002035.jpg deleted file mode 100644 index 58df7356..00000000 Binary files a/pics/511002035.jpg and /dev/null differ diff --git a/pics/511002036.jpg b/pics/511002036.jpg deleted file mode 100644 index fc0c445d..00000000 Binary files a/pics/511002036.jpg and /dev/null differ diff --git a/pics/511002037.jpg b/pics/511002037.jpg deleted file mode 100644 index e837886b..00000000 Binary files a/pics/511002037.jpg and /dev/null differ diff --git a/pics/511002038.jpg b/pics/511002038.jpg deleted file mode 100644 index 35982ce8..00000000 Binary files a/pics/511002038.jpg and /dev/null differ diff --git a/pics/511002039.jpg b/pics/511002039.jpg deleted file mode 100644 index fcf21030..00000000 Binary files a/pics/511002039.jpg and /dev/null differ diff --git a/pics/511002040.jpg b/pics/511002040.jpg deleted file mode 100644 index 0c28c95f..00000000 Binary files a/pics/511002040.jpg and /dev/null differ diff --git a/pics/511002041.jpg b/pics/511002041.jpg deleted file mode 100644 index 2be81971..00000000 Binary files a/pics/511002041.jpg and /dev/null differ diff --git a/pics/511002042.jpg b/pics/511002042.jpg deleted file mode 100644 index 5dcf5fc8..00000000 Binary files a/pics/511002042.jpg and /dev/null differ diff --git a/pics/511002043.jpg b/pics/511002043.jpg deleted file mode 100644 index 53dc8a4e..00000000 Binary files a/pics/511002043.jpg and /dev/null differ diff --git a/pics/511002044.jpg b/pics/511002044.jpg deleted file mode 100644 index baed7e97..00000000 Binary files a/pics/511002044.jpg and /dev/null differ diff --git a/pics/511002045.jpg b/pics/511002045.jpg deleted file mode 100644 index 850d33ba..00000000 Binary files a/pics/511002045.jpg and /dev/null differ diff --git a/pics/511002046.jpg b/pics/511002046.jpg deleted file mode 100644 index 5fb1741b..00000000 Binary files a/pics/511002046.jpg and /dev/null differ diff --git a/pics/511002047.jpg b/pics/511002047.jpg deleted file mode 100644 index 34d32258..00000000 Binary files a/pics/511002047.jpg and /dev/null differ diff --git a/pics/511002048.jpg b/pics/511002048.jpg deleted file mode 100644 index 5ecfcd65..00000000 Binary files a/pics/511002048.jpg and /dev/null differ diff --git a/pics/511002049.jpg b/pics/511002049.jpg deleted file mode 100644 index e981de40..00000000 Binary files a/pics/511002049.jpg and /dev/null differ diff --git a/pics/511002050.jpg b/pics/511002050.jpg deleted file mode 100644 index 1e6d9444..00000000 Binary files a/pics/511002050.jpg and /dev/null differ diff --git a/pics/511002051.jpg b/pics/511002051.jpg deleted file mode 100644 index 7389c71a..00000000 Binary files a/pics/511002051.jpg and /dev/null differ diff --git a/pics/511002052.jpg b/pics/511002052.jpg deleted file mode 100644 index 3d8ee707..00000000 Binary files a/pics/511002052.jpg and /dev/null differ diff --git a/pics/511002053.jpg b/pics/511002053.jpg deleted file mode 100644 index b8f4bffd..00000000 Binary files a/pics/511002053.jpg and /dev/null differ diff --git a/pics/511002054.jpg b/pics/511002054.jpg deleted file mode 100644 index c28359b0..00000000 Binary files a/pics/511002054.jpg and /dev/null differ diff --git a/pics/511002055.jpg b/pics/511002055.jpg deleted file mode 100644 index 9232d281..00000000 Binary files a/pics/511002055.jpg and /dev/null differ diff --git a/pics/511002056.jpg b/pics/511002056.jpg deleted file mode 100644 index 4b5a62da..00000000 Binary files a/pics/511002056.jpg and /dev/null differ diff --git a/pics/511002057.jpg b/pics/511002057.jpg deleted file mode 100644 index 5f6f5a11..00000000 Binary files a/pics/511002057.jpg and /dev/null differ diff --git a/pics/511002058.jpg b/pics/511002058.jpg deleted file mode 100644 index 685f087f..00000000 Binary files a/pics/511002058.jpg and /dev/null differ diff --git a/pics/511002059.jpg b/pics/511002059.jpg deleted file mode 100644 index 0d36616a..00000000 Binary files a/pics/511002059.jpg and /dev/null differ diff --git a/pics/511002060.jpg b/pics/511002060.jpg deleted file mode 100644 index c6616973..00000000 Binary files a/pics/511002060.jpg and /dev/null differ diff --git a/pics/511002061.jpg b/pics/511002061.jpg deleted file mode 100644 index 9793a78e..00000000 Binary files a/pics/511002061.jpg and /dev/null differ diff --git a/pics/511002062.jpg b/pics/511002062.jpg deleted file mode 100644 index 1f1a1865..00000000 Binary files a/pics/511002062.jpg and /dev/null differ diff --git a/pics/511002063.jpg b/pics/511002063.jpg deleted file mode 100644 index 409d33ce..00000000 Binary files a/pics/511002063.jpg and /dev/null differ diff --git a/pics/511002064.jpg b/pics/511002064.jpg deleted file mode 100644 index 4d5526e6..00000000 Binary files a/pics/511002064.jpg and /dev/null differ diff --git a/pics/511002065.jpg b/pics/511002065.jpg deleted file mode 100644 index 33a1e504..00000000 Binary files a/pics/511002065.jpg and /dev/null differ diff --git a/pics/511002066.jpg b/pics/511002066.jpg deleted file mode 100644 index d8312eff..00000000 Binary files a/pics/511002066.jpg and /dev/null differ diff --git a/pics/511002067.jpg b/pics/511002067.jpg deleted file mode 100644 index 07fbaef5..00000000 Binary files a/pics/511002067.jpg and /dev/null differ diff --git a/pics/511002068.jpg b/pics/511002068.jpg deleted file mode 100644 index 66893243..00000000 Binary files a/pics/511002068.jpg and /dev/null differ diff --git a/pics/511002069.jpg b/pics/511002069.jpg deleted file mode 100644 index 8f248c26..00000000 Binary files a/pics/511002069.jpg and /dev/null differ diff --git a/pics/511002070.jpg b/pics/511002070.jpg deleted file mode 100644 index 678d88fb..00000000 Binary files a/pics/511002070.jpg and /dev/null differ diff --git a/pics/511002071.jpg b/pics/511002071.jpg deleted file mode 100644 index c6281219..00000000 Binary files a/pics/511002071.jpg and /dev/null differ diff --git a/pics/511002072.jpg b/pics/511002072.jpg deleted file mode 100644 index 11b3439a..00000000 Binary files a/pics/511002072.jpg and /dev/null differ diff --git a/pics/511002073.jpg b/pics/511002073.jpg deleted file mode 100644 index 5bef9b04..00000000 Binary files a/pics/511002073.jpg and /dev/null differ diff --git a/pics/511002074.jpg b/pics/511002074.jpg deleted file mode 100644 index 38f3ef1f..00000000 Binary files a/pics/511002074.jpg and /dev/null differ diff --git a/pics/511002075.jpg b/pics/511002075.jpg deleted file mode 100644 index 51d8f51b..00000000 Binary files a/pics/511002075.jpg and /dev/null differ diff --git a/pics/511002076.jpg b/pics/511002076.jpg deleted file mode 100644 index e1020c80..00000000 Binary files a/pics/511002076.jpg and /dev/null differ diff --git a/pics/511002077.jpg b/pics/511002077.jpg deleted file mode 100644 index 39182323..00000000 Binary files a/pics/511002077.jpg and /dev/null differ diff --git a/pics/511002078.jpg b/pics/511002078.jpg deleted file mode 100644 index c44dcafd..00000000 Binary files a/pics/511002078.jpg and /dev/null differ diff --git a/pics/511002079.jpg b/pics/511002079.jpg deleted file mode 100644 index 93c10a2c..00000000 Binary files a/pics/511002079.jpg and /dev/null differ diff --git a/pics/511002080.jpg b/pics/511002080.jpg deleted file mode 100644 index 1e2d2fe4..00000000 Binary files a/pics/511002080.jpg and /dev/null differ diff --git a/pics/511002081.jpg b/pics/511002081.jpg deleted file mode 100644 index 9e5c1dcc..00000000 Binary files a/pics/511002081.jpg and /dev/null differ diff --git a/pics/511002083.jpg b/pics/511002083.jpg deleted file mode 100644 index b1cd6df3..00000000 Binary files a/pics/511002083.jpg and /dev/null differ diff --git a/pics/511002084.jpg b/pics/511002084.jpg deleted file mode 100644 index d197ace9..00000000 Binary files a/pics/511002084.jpg and /dev/null differ diff --git a/pics/511002085.jpg b/pics/511002085.jpg deleted file mode 100644 index 35b91483..00000000 Binary files a/pics/511002085.jpg and /dev/null differ diff --git a/pics/511002086.jpg b/pics/511002086.jpg deleted file mode 100644 index ace24e38..00000000 Binary files a/pics/511002086.jpg and /dev/null differ diff --git a/pics/511002087.jpg b/pics/511002087.jpg deleted file mode 100644 index 21328ca5..00000000 Binary files a/pics/511002087.jpg and /dev/null differ diff --git a/pics/511002088.jpg b/pics/511002088.jpg deleted file mode 100644 index cabc941a..00000000 Binary files a/pics/511002088.jpg and /dev/null differ diff --git a/pics/511002089.jpg b/pics/511002089.jpg deleted file mode 100644 index cc167195..00000000 Binary files a/pics/511002089.jpg and /dev/null differ diff --git a/pics/511002090.jpg b/pics/511002090.jpg deleted file mode 100644 index 47d1ca35..00000000 Binary files a/pics/511002090.jpg and /dev/null differ diff --git a/pics/511002091.jpg b/pics/511002091.jpg deleted file mode 100644 index df260e09..00000000 Binary files a/pics/511002091.jpg and /dev/null differ diff --git a/pics/511002092.jpg b/pics/511002092.jpg deleted file mode 100644 index 7ce39b51..00000000 Binary files a/pics/511002092.jpg and /dev/null differ diff --git a/pics/511002093.jpg b/pics/511002093.jpg deleted file mode 100644 index 98e62160..00000000 Binary files a/pics/511002093.jpg and /dev/null differ diff --git a/pics/511002094.jpg b/pics/511002094.jpg deleted file mode 100644 index 34cd2796..00000000 Binary files a/pics/511002094.jpg and /dev/null differ diff --git a/pics/511002095.jpg b/pics/511002095.jpg deleted file mode 100644 index 5a144fd1..00000000 Binary files a/pics/511002095.jpg and /dev/null differ diff --git a/pics/511002096.jpg b/pics/511002096.jpg deleted file mode 100644 index 0cf47fe5..00000000 Binary files a/pics/511002096.jpg and /dev/null differ diff --git a/pics/511002097.jpg b/pics/511002097.jpg deleted file mode 100644 index 2c91e8dc..00000000 Binary files a/pics/511002097.jpg and /dev/null differ diff --git a/pics/511002098.jpg b/pics/511002098.jpg deleted file mode 100644 index dde640bb..00000000 Binary files a/pics/511002098.jpg and /dev/null differ diff --git a/pics/511002099.jpg b/pics/511002099.jpg deleted file mode 100644 index c9d58463..00000000 Binary files a/pics/511002099.jpg and /dev/null differ diff --git a/pics/511002100.jpg b/pics/511002100.jpg deleted file mode 100644 index 42da45de..00000000 Binary files a/pics/511002100.jpg and /dev/null differ diff --git a/pics/511002101.jpg b/pics/511002101.jpg deleted file mode 100644 index c7931394..00000000 Binary files a/pics/511002101.jpg and /dev/null differ diff --git a/pics/511002102.jpg b/pics/511002102.jpg deleted file mode 100644 index 8afa5cf5..00000000 Binary files a/pics/511002102.jpg and /dev/null differ diff --git a/pics/511002103.jpg b/pics/511002103.jpg deleted file mode 100644 index f23360f4..00000000 Binary files a/pics/511002103.jpg and /dev/null differ diff --git a/pics/511002104.jpg b/pics/511002104.jpg deleted file mode 100644 index 5f322ca8..00000000 Binary files a/pics/511002104.jpg and /dev/null differ diff --git a/pics/511002105.jpg b/pics/511002105.jpg deleted file mode 100644 index 1f07edf9..00000000 Binary files a/pics/511002105.jpg and /dev/null differ diff --git a/pics/511002106.jpg b/pics/511002106.jpg deleted file mode 100644 index 748e7bbd..00000000 Binary files a/pics/511002106.jpg and /dev/null differ diff --git a/pics/511002107.jpg b/pics/511002107.jpg deleted file mode 100644 index 5633fe7c..00000000 Binary files a/pics/511002107.jpg and /dev/null differ diff --git a/pics/511002108.jpg b/pics/511002108.jpg deleted file mode 100644 index b6eab9b9..00000000 Binary files a/pics/511002108.jpg and /dev/null differ diff --git a/pics/511002109.jpg b/pics/511002109.jpg deleted file mode 100644 index e4453049..00000000 Binary files a/pics/511002109.jpg and /dev/null differ diff --git a/pics/511002110.jpg b/pics/511002110.jpg deleted file mode 100644 index 1959ac62..00000000 Binary files a/pics/511002110.jpg and /dev/null differ diff --git a/pics/511002111.jpg b/pics/511002111.jpg deleted file mode 100644 index c9318095..00000000 Binary files a/pics/511002111.jpg and /dev/null differ diff --git a/pics/511002112.jpg b/pics/511002112.jpg deleted file mode 100644 index d2716ac3..00000000 Binary files a/pics/511002112.jpg and /dev/null differ diff --git a/pics/511002113.jpg b/pics/511002113.jpg deleted file mode 100644 index bb55d908..00000000 Binary files a/pics/511002113.jpg and /dev/null differ diff --git a/pics/511002114.jpg b/pics/511002114.jpg deleted file mode 100644 index 23c0d523..00000000 Binary files a/pics/511002114.jpg and /dev/null differ diff --git a/pics/511002115.jpg b/pics/511002115.jpg deleted file mode 100644 index b091a0e5..00000000 Binary files a/pics/511002115.jpg and /dev/null differ diff --git a/pics/511002116.jpg b/pics/511002116.jpg deleted file mode 100644 index e1c56784..00000000 Binary files a/pics/511002116.jpg and /dev/null differ diff --git a/pics/511002117.jpg b/pics/511002117.jpg deleted file mode 100644 index 64193f51..00000000 Binary files a/pics/511002117.jpg and /dev/null differ diff --git a/pics/511002118.jpg b/pics/511002118.jpg deleted file mode 100644 index 27baa9da..00000000 Binary files a/pics/511002118.jpg and /dev/null differ diff --git a/pics/511002119.jpg b/pics/511002119.jpg deleted file mode 100644 index 5302c40d..00000000 Binary files a/pics/511002119.jpg and /dev/null differ diff --git a/pics/511002120.jpg b/pics/511002120.jpg deleted file mode 100644 index 7d61fc70..00000000 Binary files a/pics/511002120.jpg and /dev/null differ diff --git a/pics/511002121.jpg b/pics/511002121.jpg deleted file mode 100644 index ba5f35dc..00000000 Binary files a/pics/511002121.jpg and /dev/null differ diff --git a/pics/511002122.jpg b/pics/511002122.jpg deleted file mode 100644 index 2a36152e..00000000 Binary files a/pics/511002122.jpg and /dev/null differ diff --git a/pics/511002123.jpg b/pics/511002123.jpg deleted file mode 100644 index 43b6c879..00000000 Binary files a/pics/511002123.jpg and /dev/null differ diff --git a/pics/511002124.jpg b/pics/511002124.jpg deleted file mode 100644 index c14fd08a..00000000 Binary files a/pics/511002124.jpg and /dev/null differ diff --git a/pics/511002125.jpg b/pics/511002125.jpg deleted file mode 100644 index eea59c4f..00000000 Binary files a/pics/511002125.jpg and /dev/null differ diff --git a/pics/511002126.jpg b/pics/511002126.jpg deleted file mode 100644 index 3e37dd0d..00000000 Binary files a/pics/511002126.jpg and /dev/null differ diff --git a/pics/511002127.jpg b/pics/511002127.jpg deleted file mode 100644 index 297e9127..00000000 Binary files a/pics/511002127.jpg and /dev/null differ diff --git a/pics/511002128.jpg b/pics/511002128.jpg deleted file mode 100644 index c6aeb90a..00000000 Binary files a/pics/511002128.jpg and /dev/null differ diff --git a/pics/511002129.jpg b/pics/511002129.jpg deleted file mode 100644 index 5badbe34..00000000 Binary files a/pics/511002129.jpg and /dev/null differ diff --git a/pics/511002130.jpg b/pics/511002130.jpg deleted file mode 100644 index 8cf0cffd..00000000 Binary files a/pics/511002130.jpg and /dev/null differ diff --git a/pics/511002131.jpg b/pics/511002131.jpg deleted file mode 100644 index 963719c8..00000000 Binary files a/pics/511002131.jpg and /dev/null differ diff --git a/pics/511002132.jpg b/pics/511002132.jpg deleted file mode 100644 index 967e069d..00000000 Binary files a/pics/511002132.jpg and /dev/null differ diff --git a/pics/511002133.jpg b/pics/511002133.jpg deleted file mode 100644 index 7b069633..00000000 Binary files a/pics/511002133.jpg and /dev/null differ diff --git a/pics/511002134.jpg b/pics/511002134.jpg deleted file mode 100644 index 4d82bdbb..00000000 Binary files a/pics/511002134.jpg and /dev/null differ diff --git a/pics/511002135.jpg b/pics/511002135.jpg deleted file mode 100644 index bbe1a231..00000000 Binary files a/pics/511002135.jpg and /dev/null differ diff --git a/pics/511002136.jpg b/pics/511002136.jpg deleted file mode 100644 index 2712162e..00000000 Binary files a/pics/511002136.jpg and /dev/null differ diff --git a/pics/511002137.jpg b/pics/511002137.jpg deleted file mode 100644 index fc00d8b6..00000000 Binary files a/pics/511002137.jpg and /dev/null differ diff --git a/pics/511002138.jpg b/pics/511002138.jpg deleted file mode 100644 index c5bda8a9..00000000 Binary files a/pics/511002138.jpg and /dev/null differ diff --git a/pics/511002139.jpg b/pics/511002139.jpg deleted file mode 100644 index 3a2cf0af..00000000 Binary files a/pics/511002139.jpg and /dev/null differ diff --git a/pics/511002140.jpg b/pics/511002140.jpg deleted file mode 100644 index fe313491..00000000 Binary files a/pics/511002140.jpg and /dev/null differ diff --git a/pics/511002141.jpg b/pics/511002141.jpg deleted file mode 100644 index 62277acc..00000000 Binary files a/pics/511002141.jpg and /dev/null differ diff --git a/pics/511002142.jpg b/pics/511002142.jpg deleted file mode 100644 index 4ca2c343..00000000 Binary files a/pics/511002142.jpg and /dev/null differ diff --git a/pics/511002143.jpg b/pics/511002143.jpg deleted file mode 100644 index 2d3bff64..00000000 Binary files a/pics/511002143.jpg and /dev/null differ diff --git a/pics/511002144.jpg b/pics/511002144.jpg deleted file mode 100644 index 85728684..00000000 Binary files a/pics/511002144.jpg and /dev/null differ diff --git a/pics/511002145.jpg b/pics/511002145.jpg deleted file mode 100644 index 906fdbfb..00000000 Binary files a/pics/511002145.jpg and /dev/null differ diff --git a/pics/511002146.jpg b/pics/511002146.jpg deleted file mode 100644 index e17755a2..00000000 Binary files a/pics/511002146.jpg and /dev/null differ diff --git a/pics/511002147.jpg b/pics/511002147.jpg deleted file mode 100644 index 6dd9c45a..00000000 Binary files a/pics/511002147.jpg and /dev/null differ diff --git a/pics/511002148.jpg b/pics/511002148.jpg deleted file mode 100644 index 037f6016..00000000 Binary files a/pics/511002148.jpg and /dev/null differ diff --git a/pics/511002149.jpg b/pics/511002149.jpg deleted file mode 100644 index 6f79034c..00000000 Binary files a/pics/511002149.jpg and /dev/null differ diff --git a/pics/511002150.jpg b/pics/511002150.jpg deleted file mode 100644 index 1f735141..00000000 Binary files a/pics/511002150.jpg and /dev/null differ diff --git a/pics/511002151.jpg b/pics/511002151.jpg deleted file mode 100644 index d123837c..00000000 Binary files a/pics/511002151.jpg and /dev/null differ diff --git a/pics/511002152.jpg b/pics/511002152.jpg deleted file mode 100644 index ebd357e4..00000000 Binary files a/pics/511002152.jpg and /dev/null differ diff --git a/pics/511002153.jpg b/pics/511002153.jpg deleted file mode 100644 index 8e73b3b1..00000000 Binary files a/pics/511002153.jpg and /dev/null differ diff --git a/pics/511002154.jpg b/pics/511002154.jpg deleted file mode 100644 index cacc1fa7..00000000 Binary files a/pics/511002154.jpg and /dev/null differ diff --git a/pics/511002155.jpg b/pics/511002155.jpg deleted file mode 100644 index 06d85875..00000000 Binary files a/pics/511002155.jpg and /dev/null differ diff --git a/pics/511002156.jpg b/pics/511002156.jpg deleted file mode 100644 index c8ba9b21..00000000 Binary files a/pics/511002156.jpg and /dev/null differ diff --git a/pics/511002157.jpg b/pics/511002157.jpg deleted file mode 100644 index 9c928157..00000000 Binary files a/pics/511002157.jpg and /dev/null differ diff --git a/pics/511002158.jpg b/pics/511002158.jpg deleted file mode 100644 index b15bb391..00000000 Binary files a/pics/511002158.jpg and /dev/null differ diff --git a/pics/511002159.jpg b/pics/511002159.jpg deleted file mode 100644 index 16577893..00000000 Binary files a/pics/511002159.jpg and /dev/null differ diff --git a/pics/511002160.jpg b/pics/511002160.jpg deleted file mode 100644 index ddd2f08b..00000000 Binary files a/pics/511002160.jpg and /dev/null differ diff --git a/pics/511002161.jpg b/pics/511002161.jpg deleted file mode 100644 index 54798e9b..00000000 Binary files a/pics/511002161.jpg and /dev/null differ diff --git a/pics/511002162.jpg b/pics/511002162.jpg deleted file mode 100644 index c58b7670..00000000 Binary files a/pics/511002162.jpg and /dev/null differ diff --git a/pics/511002163.jpg b/pics/511002163.jpg deleted file mode 100644 index aab260e1..00000000 Binary files a/pics/511002163.jpg and /dev/null differ diff --git a/pics/511002164.jpg b/pics/511002164.jpg deleted file mode 100644 index c390887e..00000000 Binary files a/pics/511002164.jpg and /dev/null differ diff --git a/pics/511002165.jpg b/pics/511002165.jpg deleted file mode 100644 index cf73585d..00000000 Binary files a/pics/511002165.jpg and /dev/null differ diff --git a/pics/511002166.jpg b/pics/511002166.jpg deleted file mode 100644 index 12339998..00000000 Binary files a/pics/511002166.jpg and /dev/null differ diff --git a/pics/511002167.jpg b/pics/511002167.jpg deleted file mode 100644 index 72cfb1ff..00000000 Binary files a/pics/511002167.jpg and /dev/null differ diff --git a/pics/511002168.jpg b/pics/511002168.jpg deleted file mode 100644 index 1fd2723e..00000000 Binary files a/pics/511002168.jpg and /dev/null differ diff --git a/pics/511002169.jpg b/pics/511002169.jpg deleted file mode 100644 index 3ef11b05..00000000 Binary files a/pics/511002169.jpg and /dev/null differ diff --git a/pics/511002170.jpg b/pics/511002170.jpg deleted file mode 100644 index f164ac9f..00000000 Binary files a/pics/511002170.jpg and /dev/null differ diff --git a/pics/511002171.jpg b/pics/511002171.jpg deleted file mode 100644 index 8a88730a..00000000 Binary files a/pics/511002171.jpg and /dev/null differ diff --git a/pics/511002172.jpg b/pics/511002172.jpg deleted file mode 100644 index 041e74ee..00000000 Binary files a/pics/511002172.jpg and /dev/null differ diff --git a/pics/511002173.jpg b/pics/511002173.jpg deleted file mode 100644 index 2c1bba0d..00000000 Binary files a/pics/511002173.jpg and /dev/null differ diff --git a/pics/511002174.jpg b/pics/511002174.jpg deleted file mode 100644 index b58389e0..00000000 Binary files a/pics/511002174.jpg and /dev/null differ diff --git a/pics/511002175.jpg b/pics/511002175.jpg deleted file mode 100644 index e8a61de7..00000000 Binary files a/pics/511002175.jpg and /dev/null differ diff --git a/pics/511002176.jpg b/pics/511002176.jpg deleted file mode 100644 index c0b106c8..00000000 Binary files a/pics/511002176.jpg and /dev/null differ diff --git a/pics/511002177.jpg b/pics/511002177.jpg deleted file mode 100644 index 1fcede61..00000000 Binary files a/pics/511002177.jpg and /dev/null differ diff --git a/pics/511002178.jpg b/pics/511002178.jpg deleted file mode 100644 index cdd1c983..00000000 Binary files a/pics/511002178.jpg and /dev/null differ diff --git a/pics/511002179.jpg b/pics/511002179.jpg deleted file mode 100644 index 112f38be..00000000 Binary files a/pics/511002179.jpg and /dev/null differ diff --git a/pics/511002180.jpg b/pics/511002180.jpg deleted file mode 100644 index de668579..00000000 Binary files a/pics/511002180.jpg and /dev/null differ diff --git a/pics/511002181.jpg b/pics/511002181.jpg deleted file mode 100644 index 48f98b06..00000000 Binary files a/pics/511002181.jpg and /dev/null differ diff --git a/pics/511002182.jpg b/pics/511002182.jpg deleted file mode 100644 index e715d461..00000000 Binary files a/pics/511002182.jpg and /dev/null differ diff --git a/pics/511002183.jpg b/pics/511002183.jpg deleted file mode 100644 index ad62f64d..00000000 Binary files a/pics/511002183.jpg and /dev/null differ diff --git a/pics/511002184.jpg b/pics/511002184.jpg deleted file mode 100644 index 8b55e28e..00000000 Binary files a/pics/511002184.jpg and /dev/null differ diff --git a/pics/511002185.jpg b/pics/511002185.jpg deleted file mode 100644 index 215ad467..00000000 Binary files a/pics/511002185.jpg and /dev/null differ diff --git a/pics/511002186.jpg b/pics/511002186.jpg deleted file mode 100644 index db53be82..00000000 Binary files a/pics/511002186.jpg and /dev/null differ diff --git a/pics/511002187.jpg b/pics/511002187.jpg deleted file mode 100644 index 7a5198fa..00000000 Binary files a/pics/511002187.jpg and /dev/null differ diff --git a/pics/511002188.jpg b/pics/511002188.jpg deleted file mode 100644 index 98d4f4e3..00000000 Binary files a/pics/511002188.jpg and /dev/null differ diff --git a/pics/511002189.jpg b/pics/511002189.jpg deleted file mode 100644 index 7357b7ea..00000000 Binary files a/pics/511002189.jpg and /dev/null differ diff --git a/pics/511002190.jpg b/pics/511002190.jpg deleted file mode 100644 index b09e23ba..00000000 Binary files a/pics/511002190.jpg and /dev/null differ diff --git a/pics/51100236.jpg b/pics/51100236.jpg deleted file mode 100644 index e1a9deb1..00000000 Binary files a/pics/51100236.jpg and /dev/null differ diff --git a/pics/51100561.jpg b/pics/51100561.jpg deleted file mode 100644 index cd0999a0..00000000 Binary files a/pics/51100561.jpg and /dev/null differ diff --git a/pics/51101940.jpg b/pics/51101940.jpg deleted file mode 100755 index 9002e922..00000000 Binary files a/pics/51101940.jpg and /dev/null differ diff --git a/pics/51102025.jpg b/pics/51102025.jpg deleted file mode 100644 index c630d892..00000000 Binary files a/pics/51102025.jpg and /dev/null differ diff --git a/pics/51102026.jpg b/pics/51102026.jpg deleted file mode 100644 index 4ca59758..00000000 Binary files a/pics/51102026.jpg and /dev/null differ diff --git a/pics/51102028.jpg b/pics/51102028.jpg deleted file mode 100644 index 32cf1d50..00000000 Binary files a/pics/51102028.jpg and /dev/null differ diff --git a/pics/51119924.jpg b/pics/51119924.jpg deleted file mode 100644 index dc6462d8..00000000 Binary files a/pics/51119924.jpg and /dev/null differ diff --git a/pics/51124303.jpg b/pics/51124303.jpg deleted file mode 100644 index 444f2506..00000000 Binary files a/pics/51124303.jpg and /dev/null differ diff --git a/pics/51126152.jpg b/pics/51126152.jpg deleted file mode 100644 index 96c95834..00000000 Binary files a/pics/51126152.jpg and /dev/null differ diff --git a/pics/51192573.jpg b/pics/51192573.jpg deleted file mode 100644 index 7a18b05e..00000000 Binary files a/pics/51192573.jpg and /dev/null differ diff --git a/pics/51194046.jpg b/pics/51194046.jpg deleted file mode 100644 index d9f18b43..00000000 Binary files a/pics/51194046.jpg and /dev/null differ diff --git a/pics/51196174.jpg b/pics/51196174.jpg deleted file mode 100644 index d401e6a4..00000000 Binary files a/pics/51196174.jpg and /dev/null differ diff --git a/pics/51196805.jpg b/pics/51196805.jpg deleted file mode 100644 index 23fe7b74..00000000 Binary files a/pics/51196805.jpg and /dev/null differ diff --git a/pics/51228280.jpg b/pics/51228280.jpg deleted file mode 100644 index cda004fb..00000000 Binary files a/pics/51228280.jpg and /dev/null differ diff --git a/pics/51232472.jpg b/pics/51232472.jpg deleted file mode 100644 index 6dd7eb80..00000000 Binary files a/pics/51232472.jpg and /dev/null differ diff --git a/pics/51254277.jpg b/pics/51254277.jpg deleted file mode 100644 index 55c71097..00000000 Binary files a/pics/51254277.jpg and /dev/null differ diff --git a/pics/51254980.jpg b/pics/51254980.jpg deleted file mode 100644 index 468f400c..00000000 Binary files a/pics/51254980.jpg and /dev/null differ diff --git a/pics/5126490.jpg b/pics/5126490.jpg deleted file mode 100644 index c6e977b8..00000000 Binary files a/pics/5126490.jpg and /dev/null differ diff --git a/pics/51267887.jpg b/pics/51267887.jpg deleted file mode 100644 index 2be2504d..00000000 Binary files a/pics/51267887.jpg and /dev/null differ diff --git a/pics/51275027.jpg b/pics/51275027.jpg deleted file mode 100644 index fa24ac2f..00000000 Binary files a/pics/51275027.jpg and /dev/null differ diff --git a/pics/51282878.jpg b/pics/51282878.jpg deleted file mode 100644 index 8be03b6c..00000000 Binary files a/pics/51282878.jpg and /dev/null differ diff --git a/pics/5128859.jpg b/pics/5128859.jpg deleted file mode 100644 index f082fa75..00000000 Binary files a/pics/5128859.jpg and /dev/null differ diff --git a/pics/51316684.jpg b/pics/51316684.jpg deleted file mode 100644 index 76effc68..00000000 Binary files a/pics/51316684.jpg and /dev/null differ diff --git a/pics/51324455.jpg b/pics/51324455.jpg deleted file mode 100644 index e7b29e80..00000000 Binary files a/pics/51324455.jpg and /dev/null differ diff --git a/pics/5133471.jpg b/pics/5133471.jpg deleted file mode 100644 index 4bc812d6..00000000 Binary files a/pics/5133471.jpg and /dev/null differ diff --git a/pics/51345461.jpg b/pics/51345461.jpg deleted file mode 100644 index f34bbbb3..00000000 Binary files a/pics/51345461.jpg and /dev/null differ diff --git a/pics/51351302.jpg b/pics/51351302.jpg deleted file mode 100644 index df7681a4..00000000 Binary files a/pics/51351302.jpg and /dev/null differ diff --git a/pics/51355346.jpg b/pics/51355346.jpg deleted file mode 100644 index 4befa579..00000000 Binary files a/pics/51355346.jpg and /dev/null differ diff --git a/pics/51365514.jpg b/pics/51365514.jpg deleted file mode 100644 index 3e477c1e..00000000 Binary files a/pics/51365514.jpg and /dev/null differ diff --git a/pics/51371017.jpg b/pics/51371017.jpg deleted file mode 100644 index 7604dba6..00000000 Binary files a/pics/51371017.jpg and /dev/null differ diff --git a/pics/51394546.jpg b/pics/51394546.jpg deleted file mode 100644 index 1ba0d9cf..00000000 Binary files a/pics/51394546.jpg and /dev/null differ diff --git a/pics/51402177.jpg b/pics/51402177.jpg deleted file mode 100644 index b59340b1..00000000 Binary files a/pics/51402177.jpg and /dev/null differ diff --git a/pics/51402908.jpg b/pics/51402908.jpg deleted file mode 100644 index de9849a3..00000000 Binary files a/pics/51402908.jpg and /dev/null differ diff --git a/pics/51405049.jpg b/pics/51405049.jpg deleted file mode 100644 index 6cc5706f..00000000 Binary files a/pics/51405049.jpg and /dev/null differ diff --git a/pics/51435705.jpg b/pics/51435705.jpg deleted file mode 100644 index a2e401f4..00000000 Binary files a/pics/51435705.jpg and /dev/null differ diff --git a/pics/51447164.jpg b/pics/51447164.jpg deleted file mode 100644 index 86ecd63c..00000000 Binary files a/pics/51447164.jpg and /dev/null differ diff --git a/pics/51449743.jpg b/pics/51449743.jpg deleted file mode 100644 index 1ecd9e98..00000000 Binary files a/pics/51449743.jpg and /dev/null differ diff --git a/pics/51452091.jpg b/pics/51452091.jpg deleted file mode 100644 index e32af0c0..00000000 Binary files a/pics/51452091.jpg and /dev/null differ diff --git a/pics/51481927.jpg b/pics/51481927.jpg deleted file mode 100644 index a75135d3..00000000 Binary files a/pics/51481927.jpg and /dev/null differ diff --git a/pics/51482758.jpg b/pics/51482758.jpg deleted file mode 100644 index d3bfb311..00000000 Binary files a/pics/51482758.jpg and /dev/null differ diff --git a/pics/51531505.jpg b/pics/51531505.jpg deleted file mode 100755 index 19fb38b3..00000000 Binary files a/pics/51531505.jpg and /dev/null differ diff --git a/pics/51534754.jpg b/pics/51534754.jpg deleted file mode 100644 index 924700e2..00000000 Binary files a/pics/51534754.jpg and /dev/null differ diff --git a/pics/51543904.jpg b/pics/51543904.jpg deleted file mode 100644 index 8b1421c2..00000000 Binary files a/pics/51543904.jpg and /dev/null differ diff --git a/pics/51549976.jpg b/pics/51549976.jpg deleted file mode 100644 index 34147a6a..00000000 Binary files a/pics/51549976.jpg and /dev/null differ diff --git a/pics/51554871.jpg b/pics/51554871.jpg deleted file mode 100644 index af05dbf0..00000000 Binary files a/pics/51554871.jpg and /dev/null differ diff --git a/pics/51555725.jpg b/pics/51555725.jpg deleted file mode 100644 index 74364178..00000000 Binary files a/pics/51555725.jpg and /dev/null differ diff --git a/pics/51562916.jpg b/pics/51562916.jpg deleted file mode 100644 index 95d48590..00000000 Binary files a/pics/51562916.jpg and /dev/null differ diff --git a/pics/51566770.jpg b/pics/51566770.jpg deleted file mode 100644 index f559449c..00000000 Binary files a/pics/51566770.jpg and /dev/null differ diff --git a/pics/51589188.jpg b/pics/51589188.jpg deleted file mode 100644 index e6696341..00000000 Binary files a/pics/51589188.jpg and /dev/null differ diff --git a/pics/51606429.jpg b/pics/51606429.jpg deleted file mode 100755 index 44314ada..00000000 Binary files a/pics/51606429.jpg and /dev/null differ diff --git a/pics/51616747.jpg b/pics/51616747.jpg deleted file mode 100644 index c2d657b6..00000000 Binary files a/pics/51616747.jpg and /dev/null differ diff --git a/pics/51617185.jpg b/pics/51617185.jpg deleted file mode 100644 index 65c2a9b4..00000000 Binary files a/pics/51617185.jpg and /dev/null differ diff --git a/pics/51630558.jpg b/pics/51630558.jpg deleted file mode 100644 index 2937490b..00000000 Binary files a/pics/51630558.jpg and /dev/null differ diff --git a/pics/51632798.jpg b/pics/51632798.jpg deleted file mode 100644 index c86b35a8..00000000 Binary files a/pics/51632798.jpg and /dev/null differ diff --git a/pics/51638941.jpg b/pics/51638941.jpg deleted file mode 100644 index afcc5131..00000000 Binary files a/pics/51638941.jpg and /dev/null differ diff --git a/pics/51670553.jpg b/pics/51670553.jpg deleted file mode 100644 index b2ae17d2..00000000 Binary files a/pics/51670553.jpg and /dev/null differ diff --git a/pics/51701885.jpg b/pics/51701885.jpg deleted file mode 100644 index 2f11751e..00000000 Binary files a/pics/51701885.jpg and /dev/null differ diff --git a/pics/51717541.jpg b/pics/51717541.jpg deleted file mode 100644 index e05ae031..00000000 Binary files a/pics/51717541.jpg and /dev/null differ diff --git a/pics/51735257.jpg b/pics/51735257.jpg deleted file mode 100644 index b7dbf240..00000000 Binary files a/pics/51735257.jpg and /dev/null differ diff --git a/pics/51773900.jpg b/pics/51773900.jpg deleted file mode 100644 index 1f6d1fa3..00000000 Binary files a/pics/51773900.jpg and /dev/null differ diff --git a/pics/51790181.jpg b/pics/51790181.jpg deleted file mode 100644 index b60e00c4..00000000 Binary files a/pics/51790181.jpg and /dev/null differ diff --git a/pics/51808422.jpg b/pics/51808422.jpg deleted file mode 100644 index b0fb6edc..00000000 Binary files a/pics/51808422.jpg and /dev/null differ diff --git a/pics/51814159.jpg b/pics/51814159.jpg deleted file mode 100755 index 72854e49..00000000 Binary files a/pics/51814159.jpg and /dev/null differ diff --git a/pics/51827737.jpg b/pics/51827737.jpg deleted file mode 100644 index 85f5e56c..00000000 Binary files a/pics/51827737.jpg and /dev/null differ diff --git a/pics/51828629.jpg b/pics/51828629.jpg deleted file mode 100644 index b99d6295..00000000 Binary files a/pics/51828629.jpg and /dev/null differ diff --git a/pics/5183693.jpg b/pics/5183693.jpg deleted file mode 100644 index db5513bc..00000000 Binary files a/pics/5183693.jpg and /dev/null differ diff --git a/pics/51838385.jpg b/pics/51838385.jpg deleted file mode 100644 index b40c2e16..00000000 Binary files a/pics/51838385.jpg and /dev/null differ diff --git a/pics/51852507.jpg b/pics/51852507.jpg deleted file mode 100644 index 8fc28b9f..00000000 Binary files a/pics/51852507.jpg and /dev/null differ diff --git a/pics/51855378.jpg b/pics/51855378.jpg deleted file mode 100644 index ee94eb6d..00000000 Binary files a/pics/51855378.jpg and /dev/null differ diff --git a/pics/51858306.jpg b/pics/51858306.jpg deleted file mode 100644 index 5e9098f1..00000000 Binary files a/pics/51858306.jpg and /dev/null differ diff --git a/pics/51865604.jpg b/pics/51865604.jpg deleted file mode 100644 index 2dcedd2a..00000000 Binary files a/pics/51865604.jpg and /dev/null differ diff --git a/pics/5186893.jpg b/pics/5186893.jpg deleted file mode 100644 index 87d37937..00000000 Binary files a/pics/5186893.jpg and /dev/null differ diff --git a/pics/51912531.jpg b/pics/51912531.jpg deleted file mode 100644 index 246e0678..00000000 Binary files a/pics/51912531.jpg and /dev/null differ diff --git a/pics/51916032.jpg b/pics/51916032.jpg deleted file mode 100644 index c9359109..00000000 Binary files a/pics/51916032.jpg and /dev/null differ diff --git a/pics/51925772.jpg b/pics/51925772.jpg deleted file mode 100644 index 1b1e1bda..00000000 Binary files a/pics/51925772.jpg and /dev/null differ diff --git a/pics/51934376.jpg b/pics/51934376.jpg deleted file mode 100644 index 0a4f9cbc..00000000 Binary files a/pics/51934376.jpg and /dev/null differ diff --git a/pics/51945556.jpg b/pics/51945556.jpg deleted file mode 100644 index 5ae8aa8e..00000000 Binary files a/pics/51945556.jpg and /dev/null differ diff --git a/pics/51960178.jpg b/pics/51960178.jpg deleted file mode 100644 index bc22763d..00000000 Binary files a/pics/51960178.jpg and /dev/null differ diff --git a/pics/51962254.jpg b/pics/51962254.jpg deleted file mode 100644 index 4b61c69d..00000000 Binary files a/pics/51962254.jpg and /dev/null differ diff --git a/pics/51976476.jpg b/pics/51976476.jpg deleted file mode 100644 index 8e918df2..00000000 Binary files a/pics/51976476.jpg and /dev/null differ diff --git a/pics/51987571.jpg b/pics/51987571.jpg deleted file mode 100644 index 4ec3b01a..00000000 Binary files a/pics/51987571.jpg and /dev/null differ diff --git a/pics/51987572.jpg b/pics/51987572.jpg deleted file mode 100644 index 1130dda3..00000000 Binary files a/pics/51987572.jpg and /dev/null differ diff --git a/pics/52031567.jpg b/pics/52031567.jpg deleted file mode 100644 index 2c54ac0c..00000000 Binary files a/pics/52031567.jpg and /dev/null differ diff --git a/pics/52035300.jpg b/pics/52035300.jpg deleted file mode 100644 index 45a76be1..00000000 Binary files a/pics/52035300.jpg and /dev/null differ diff --git a/pics/52038272.jpg b/pics/52038272.jpg deleted file mode 100644 index 613e4aee..00000000 Binary files a/pics/52038272.jpg and /dev/null differ diff --git a/pics/52040216.jpg b/pics/52040216.jpg deleted file mode 100644 index ab13f72e..00000000 Binary files a/pics/52040216.jpg and /dev/null differ diff --git a/pics/52068432.jpg b/pics/52068432.jpg deleted file mode 100644 index bc8268be..00000000 Binary files a/pics/52068432.jpg and /dev/null differ diff --git a/pics/52077741.jpg b/pics/52077741.jpg deleted file mode 100644 index 4bd354b0..00000000 Binary files a/pics/52077741.jpg and /dev/null differ diff --git a/pics/52085072.jpg b/pics/52085072.jpg deleted file mode 100644 index 5d069719..00000000 Binary files a/pics/52085072.jpg and /dev/null differ diff --git a/pics/52090844.jpg b/pics/52090844.jpg deleted file mode 100644 index a594d553..00000000 Binary files a/pics/52090844.jpg and /dev/null differ diff --git a/pics/52097679.jpg b/pics/52097679.jpg deleted file mode 100644 index f83309fa..00000000 Binary files a/pics/52097679.jpg and /dev/null differ diff --git a/pics/52098461.jpg b/pics/52098461.jpg deleted file mode 100644 index 8ead2cea..00000000 Binary files a/pics/52098461.jpg and /dev/null differ diff --git a/pics/52101615.jpg b/pics/52101615.jpg deleted file mode 100644 index 0eacab2a..00000000 Binary files a/pics/52101615.jpg and /dev/null differ diff --git a/pics/52105192.jpg b/pics/52105192.jpg deleted file mode 100644 index c9fc60b3..00000000 Binary files a/pics/52105192.jpg and /dev/null differ diff --git a/pics/52112003.jpg b/pics/52112003.jpg deleted file mode 100755 index ea765044..00000000 Binary files a/pics/52112003.jpg and /dev/null differ diff --git a/pics/52121290.jpg b/pics/52121290.jpg deleted file mode 100644 index c73ff557..00000000 Binary files a/pics/52121290.jpg and /dev/null differ diff --git a/pics/52128900.jpg b/pics/52128900.jpg deleted file mode 100644 index 7f8eef88..00000000 Binary files a/pics/52128900.jpg and /dev/null differ diff --git a/pics/52140003.jpg b/pics/52140003.jpg deleted file mode 100644 index 9ae97e5b..00000000 Binary files a/pics/52140003.jpg and /dev/null differ diff --git a/pics/52145422.jpg b/pics/52145422.jpg deleted file mode 100755 index edbcf3a6..00000000 Binary files a/pics/52145422.jpg and /dev/null differ diff --git a/pics/52158283.jpg b/pics/52158283.jpg deleted file mode 100644 index 5bc6cc92..00000000 Binary files a/pics/52158283.jpg and /dev/null differ diff --git a/pics/52182715.jpg b/pics/52182715.jpg deleted file mode 100644 index 33ad96a3..00000000 Binary files a/pics/52182715.jpg and /dev/null differ diff --git a/pics/52198054.jpg b/pics/52198054.jpg deleted file mode 100644 index baeddaf3..00000000 Binary files a/pics/52198054.jpg and /dev/null differ diff --git a/pics/5220687.jpg b/pics/5220687.jpg deleted file mode 100644 index 5acc425f..00000000 Binary files a/pics/5220687.jpg and /dev/null differ diff --git a/pics/52222372.jpg b/pics/52222372.jpg deleted file mode 100644 index 72670457..00000000 Binary files a/pics/52222372.jpg and /dev/null differ diff --git a/pics/52228131.jpg b/pics/52228131.jpg deleted file mode 100644 index b8209fd9..00000000 Binary files a/pics/52228131.jpg and /dev/null differ diff --git a/pics/52248570.jpg b/pics/52248570.jpg deleted file mode 100644 index b74e140b..00000000 Binary files a/pics/52248570.jpg and /dev/null differ diff --git a/pics/52263685.jpg b/pics/52263685.jpg deleted file mode 100644 index e3aa04c5..00000000 Binary files a/pics/52263685.jpg and /dev/null differ diff --git a/pics/52265835.jpg b/pics/52265835.jpg deleted file mode 100644 index eb6a9d43..00000000 Binary files a/pics/52265835.jpg and /dev/null differ diff --git a/pics/52286175.jpg b/pics/52286175.jpg deleted file mode 100644 index 0d3e9a71..00000000 Binary files a/pics/52286175.jpg and /dev/null differ diff --git a/pics/52319752.jpg b/pics/52319752.jpg deleted file mode 100644 index 3e2e1fd3..00000000 Binary files a/pics/52319752.jpg and /dev/null differ diff --git a/pics/52323207.jpg b/pics/52323207.jpg deleted file mode 100644 index 3b6b4fa5..00000000 Binary files a/pics/52323207.jpg and /dev/null differ diff --git a/pics/52323874.jpg b/pics/52323874.jpg deleted file mode 100644 index 90ffcd3f..00000000 Binary files a/pics/52323874.jpg and /dev/null differ diff --git a/pics/52339733.jpg b/pics/52339733.jpg deleted file mode 100644 index 92c5ef08..00000000 Binary files a/pics/52339733.jpg and /dev/null differ diff --git a/pics/52340274.jpg b/pics/52340274.jpg deleted file mode 100644 index 5eae827f..00000000 Binary files a/pics/52340274.jpg and /dev/null differ diff --git a/pics/52346240.jpg b/pics/52346240.jpg deleted file mode 100644 index e2bbfcba..00000000 Binary files a/pics/52346240.jpg and /dev/null differ diff --git a/pics/52352005.jpg b/pics/52352005.jpg deleted file mode 100644 index e0c2b49a..00000000 Binary files a/pics/52352005.jpg and /dev/null differ diff --git a/pics/52367652.jpg b/pics/52367652.jpg deleted file mode 100644 index 89c13597..00000000 Binary files a/pics/52367652.jpg and /dev/null differ diff --git a/pics/52370835.jpg b/pics/52370835.jpg deleted file mode 100644 index 54fef0b6..00000000 Binary files a/pics/52370835.jpg and /dev/null differ diff --git a/pics/5237827.jpg b/pics/5237827.jpg deleted file mode 100644 index f9eaa543..00000000 Binary files a/pics/5237827.jpg and /dev/null differ diff --git a/pics/52404456.jpg b/pics/52404456.jpg deleted file mode 100644 index a501f171..00000000 Binary files a/pics/52404456.jpg and /dev/null differ diff --git a/pics/52417194.jpg b/pics/52417194.jpg deleted file mode 100644 index 2364b226..00000000 Binary files a/pics/52417194.jpg and /dev/null differ diff --git a/pics/52430902.jpg b/pics/52430902.jpg deleted file mode 100644 index 8dee8f5e..00000000 Binary files a/pics/52430902.jpg and /dev/null differ diff --git a/pics/5244497.jpg b/pics/5244497.jpg deleted file mode 100644 index 55473632..00000000 Binary files a/pics/5244497.jpg and /dev/null differ diff --git a/pics/52496105.jpg b/pics/52496105.jpg deleted file mode 100644 index 326ec78a..00000000 Binary files a/pics/52496105.jpg and /dev/null differ diff --git a/pics/52497105.jpg b/pics/52497105.jpg deleted file mode 100644 index d0b57d21..00000000 Binary files a/pics/52497105.jpg and /dev/null differ diff --git a/pics/52503575.jpg b/pics/52503575.jpg deleted file mode 100644 index 2c23d741..00000000 Binary files a/pics/52503575.jpg and /dev/null differ diff --git a/pics/525110.jpg b/pics/525110.jpg deleted file mode 100644 index 16b52a25..00000000 Binary files a/pics/525110.jpg and /dev/null differ diff --git a/pics/52512994.jpg b/pics/52512994.jpg deleted file mode 100644 index dbc3b02d..00000000 Binary files a/pics/52512994.jpg and /dev/null differ diff --git a/pics/52518793.jpg b/pics/52518793.jpg deleted file mode 100644 index 709310d2..00000000 Binary files a/pics/52518793.jpg and /dev/null differ diff --git a/pics/5255013.jpg b/pics/5255013.jpg deleted file mode 100644 index ebd6d19b..00000000 Binary files a/pics/5255013.jpg and /dev/null differ diff --git a/pics/52550973.jpg b/pics/52550973.jpg deleted file mode 100644 index 4b0c910f..00000000 Binary files a/pics/52550973.jpg and /dev/null differ diff --git a/pics/52551211.jpg b/pics/52551211.jpg deleted file mode 100644 index a88028bd..00000000 Binary files a/pics/52551211.jpg and /dev/null differ diff --git a/pics/52558805.jpg b/pics/52558805.jpg deleted file mode 100644 index 76eba299..00000000 Binary files a/pics/52558805.jpg and /dev/null differ diff --git a/pics/52571838.jpg b/pics/52571838.jpg deleted file mode 100644 index 339a44c1..00000000 Binary files a/pics/52571838.jpg and /dev/null differ diff --git a/pics/52575195.jpg b/pics/52575195.jpg deleted file mode 100644 index 2f002491..00000000 Binary files a/pics/52575195.jpg and /dev/null differ diff --git a/pics/5257687.jpg b/pics/5257687.jpg deleted file mode 100644 index 8bf9fd43..00000000 Binary files a/pics/5257687.jpg and /dev/null differ diff --git a/pics/52584282.jpg b/pics/52584282.jpg deleted file mode 100644 index f039e8a0..00000000 Binary files a/pics/52584282.jpg and /dev/null differ diff --git a/pics/52601736.jpg b/pics/52601736.jpg deleted file mode 100644 index 4688bcd1..00000000 Binary files a/pics/52601736.jpg and /dev/null differ diff --git a/pics/52624755.jpg b/pics/52624755.jpg deleted file mode 100644 index 0dcadd71..00000000 Binary files a/pics/52624755.jpg and /dev/null differ diff --git a/pics/52628687.jpg b/pics/52628687.jpg deleted file mode 100644 index 053b49d9..00000000 Binary files a/pics/52628687.jpg and /dev/null differ diff --git a/pics/52639377.jpg b/pics/52639377.jpg deleted file mode 100644 index 64fc97de..00000000 Binary files a/pics/52639377.jpg and /dev/null differ diff --git a/pics/52648457.jpg b/pics/52648457.jpg deleted file mode 100644 index ebd4c2aa..00000000 Binary files a/pics/52648457.jpg and /dev/null differ diff --git a/pics/52653092.jpg b/pics/52653092.jpg deleted file mode 100644 index f8c4f823..00000000 Binary files a/pics/52653092.jpg and /dev/null differ diff --git a/pics/5265750.jpg b/pics/5265750.jpg deleted file mode 100644 index 4076453a..00000000 Binary files a/pics/5265750.jpg and /dev/null differ diff --git a/pics/52665542.jpg b/pics/52665542.jpg deleted file mode 100644 index d8eb7690..00000000 Binary files a/pics/52665542.jpg and /dev/null differ diff --git a/pics/52675689.jpg b/pics/52675689.jpg deleted file mode 100644 index 668f6858..00000000 Binary files a/pics/52675689.jpg and /dev/null differ diff --git a/pics/52684508.jpg b/pics/52684508.jpg deleted file mode 100644 index 416d1d3b..00000000 Binary files a/pics/52684508.jpg and /dev/null differ diff --git a/pics/52687916.jpg b/pics/52687916.jpg deleted file mode 100644 index 80b66b68..00000000 Binary files a/pics/52687916.jpg and /dev/null differ diff --git a/pics/52702748.jpg b/pics/52702748.jpg deleted file mode 100644 index 7ff1b49c..00000000 Binary files a/pics/52702748.jpg and /dev/null differ diff --git a/pics/52709508.jpg b/pics/52709508.jpg deleted file mode 100644 index bbb801e1..00000000 Binary files a/pics/52709508.jpg and /dev/null differ diff --git a/pics/52738610.jpg b/pics/52738610.jpg deleted file mode 100644 index b911e47d..00000000 Binary files a/pics/52738610.jpg and /dev/null differ diff --git a/pics/52768103.jpg b/pics/52768103.jpg deleted file mode 100644 index 90729b0c..00000000 Binary files a/pics/52768103.jpg and /dev/null differ diff --git a/pics/52786469.jpg b/pics/52786469.jpg deleted file mode 100644 index 25338203..00000000 Binary files a/pics/52786469.jpg and /dev/null differ diff --git a/pics/52800428.jpg b/pics/52800428.jpg deleted file mode 100644 index 3bcce130..00000000 Binary files a/pics/52800428.jpg and /dev/null differ diff --git a/pics/52817046.jpg b/pics/52817046.jpg deleted file mode 100644 index efa7620e..00000000 Binary files a/pics/52817046.jpg and /dev/null differ diff --git a/pics/52823314.jpg b/pics/52823314.jpg deleted file mode 100644 index abb52008..00000000 Binary files a/pics/52823314.jpg and /dev/null differ diff --git a/pics/52824910.jpg b/pics/52824910.jpg deleted file mode 100644 index cc1bac6c..00000000 Binary files a/pics/52824910.jpg and /dev/null differ diff --git a/pics/52833089.jpg b/pics/52833089.jpg deleted file mode 100644 index fd7d6c2e..00000000 Binary files a/pics/52833089.jpg and /dev/null differ diff --git a/pics/52840598.jpg b/pics/52840598.jpg deleted file mode 100644 index fd143590..00000000 Binary files a/pics/52840598.jpg and /dev/null differ diff --git a/pics/5284653.jpg b/pics/5284653.jpg deleted file mode 100644 index 1c11ad49..00000000 Binary files a/pics/5284653.jpg and /dev/null differ diff --git a/pics/52846880.jpg b/pics/52846880.jpg deleted file mode 100644 index de500c27..00000000 Binary files a/pics/52846880.jpg and /dev/null differ diff --git a/pics/5285665.jpg b/pics/5285665.jpg deleted file mode 100644 index 9b048574..00000000 Binary files a/pics/5285665.jpg and /dev/null differ diff --git a/pics/52860176.jpg b/pics/52860176.jpg deleted file mode 100644 index 401a0798..00000000 Binary files a/pics/52860176.jpg and /dev/null differ diff --git a/pics/52869807.jpg b/pics/52869807.jpg deleted file mode 100644 index 27dbdd33..00000000 Binary files a/pics/52869807.jpg and /dev/null differ diff --git a/pics/52875873.jpg b/pics/52875873.jpg deleted file mode 100644 index 79cbddda..00000000 Binary files a/pics/52875873.jpg and /dev/null differ diff --git a/pics/5288597.jpg b/pics/5288597.jpg deleted file mode 100644 index af64a0e1..00000000 Binary files a/pics/5288597.jpg and /dev/null differ diff --git a/pics/52900379.jpg b/pics/52900379.jpg deleted file mode 100644 index f00a9658..00000000 Binary files a/pics/52900379.jpg and /dev/null differ diff --git a/pics/52913738.jpg b/pics/52913738.jpg deleted file mode 100644 index 8e03324e..00000000 Binary files a/pics/52913738.jpg and /dev/null differ diff --git a/pics/5291803.jpg b/pics/5291803.jpg deleted file mode 100644 index bd38ba3f..00000000 Binary files a/pics/5291803.jpg and /dev/null differ diff --git a/pics/52963531.jpg b/pics/52963531.jpg deleted file mode 100644 index d174e013..00000000 Binary files a/pics/52963531.jpg and /dev/null differ diff --git a/pics/52971673.jpg b/pics/52971673.jpg deleted file mode 100644 index f368a262..00000000 Binary files a/pics/52971673.jpg and /dev/null differ diff --git a/pics/52971944.jpg b/pics/52971944.jpg deleted file mode 100644 index c6171c3d..00000000 Binary files a/pics/52971944.jpg and /dev/null differ diff --git a/pics/52977572.jpg b/pics/52977572.jpg deleted file mode 100644 index 56eee566..00000000 Binary files a/pics/52977572.jpg and /dev/null differ diff --git a/pics/53025096.jpg b/pics/53025096.jpg deleted file mode 100644 index 2af4bcca..00000000 Binary files a/pics/53025096.jpg and /dev/null differ diff --git a/pics/53027855.jpg b/pics/53027855.jpg deleted file mode 100644 index 81f64d58..00000000 Binary files a/pics/53027855.jpg and /dev/null differ diff --git a/pics/53039326.jpg b/pics/53039326.jpg deleted file mode 100644 index e1d0321e..00000000 Binary files a/pics/53039326.jpg and /dev/null differ diff --git a/pics/53046408.jpg b/pics/53046408.jpg deleted file mode 100644 index 176257c5..00000000 Binary files a/pics/53046408.jpg and /dev/null differ diff --git a/pics/53054833.jpg b/pics/53054833.jpg deleted file mode 100755 index 59fa7ff7..00000000 Binary files a/pics/53054833.jpg and /dev/null differ diff --git a/pics/53063039.jpg b/pics/53063039.jpg deleted file mode 100644 index 6f6c98b2..00000000 Binary files a/pics/53063039.jpg and /dev/null differ diff --git a/pics/53090623.jpg b/pics/53090623.jpg deleted file mode 100644 index 9250a4b3..00000000 Binary files a/pics/53090623.jpg and /dev/null differ diff --git a/pics/5309481.jpg b/pics/5309481.jpg deleted file mode 100644 index 29e33c8f..00000000 Binary files a/pics/5309481.jpg and /dev/null differ diff --git a/pics/53100061.jpg b/pics/53100061.jpg deleted file mode 100644 index 03205bea..00000000 Binary files a/pics/53100061.jpg and /dev/null differ diff --git a/pics/53112492.jpg b/pics/53112492.jpg deleted file mode 100644 index 0f84a5a6..00000000 Binary files a/pics/53112492.jpg and /dev/null differ diff --git a/pics/53116300.jpg b/pics/53116300.jpg deleted file mode 100644 index 3ae8c3ea..00000000 Binary files a/pics/53116300.jpg and /dev/null differ diff --git a/pics/53119267.jpg b/pics/53119267.jpg deleted file mode 100644 index 43091db5..00000000 Binary files a/pics/53119267.jpg and /dev/null differ diff --git a/pics/53129443.jpg b/pics/53129443.jpg deleted file mode 100644 index 6de86e2c..00000000 Binary files a/pics/53129443.jpg and /dev/null differ diff --git a/pics/53136004.jpg b/pics/53136004.jpg deleted file mode 100644 index 839c2ac2..00000000 Binary files a/pics/53136004.jpg and /dev/null differ diff --git a/pics/53152590.jpg b/pics/53152590.jpg deleted file mode 100644 index 58907d88..00000000 Binary files a/pics/53152590.jpg and /dev/null differ diff --git a/pics/53153481.jpg b/pics/53153481.jpg deleted file mode 100644 index ed6f49a8..00000000 Binary files a/pics/53153481.jpg and /dev/null differ diff --git a/pics/53162898.jpg b/pics/53162898.jpg deleted file mode 100644 index 563d2ea9..00000000 Binary files a/pics/53162898.jpg and /dev/null differ diff --git a/pics/53180020.jpg b/pics/53180020.jpg deleted file mode 100644 index 60328a31..00000000 Binary files a/pics/53180020.jpg and /dev/null differ diff --git a/pics/53183600.jpg b/pics/53183600.jpg deleted file mode 100644 index 52f85924..00000000 Binary files a/pics/53183600.jpg and /dev/null differ diff --git a/pics/5318639.jpg b/pics/5318639.jpg deleted file mode 100644 index 3112658a..00000000 Binary files a/pics/5318639.jpg and /dev/null differ diff --git a/pics/53193261.jpg b/pics/53193261.jpg deleted file mode 100644 index cfaec67f..00000000 Binary files a/pics/53193261.jpg and /dev/null differ diff --git a/pics/53199020.jpg b/pics/53199020.jpg deleted file mode 100644 index b848fc75..00000000 Binary files a/pics/53199020.jpg and /dev/null differ diff --git a/pics/53208660.jpg b/pics/53208660.jpg deleted file mode 100644 index d9a5ac6a..00000000 Binary files a/pics/53208660.jpg and /dev/null differ diff --git a/pics/53239672.jpg b/pics/53239672.jpg deleted file mode 100644 index 9441af65..00000000 Binary files a/pics/53239672.jpg and /dev/null differ diff --git a/pics/53244294.jpg b/pics/53244294.jpg deleted file mode 100644 index 26328357..00000000 Binary files a/pics/53244294.jpg and /dev/null differ diff --git a/pics/53251824.jpg b/pics/53251824.jpg deleted file mode 100644 index 72f37ed6..00000000 Binary files a/pics/53251824.jpg and /dev/null differ diff --git a/pics/5325424.jpg b/pics/5325424.jpg deleted file mode 100644 index dc206ae6..00000000 Binary files a/pics/5325424.jpg and /dev/null differ diff --git a/pics/53257892.jpg b/pics/53257892.jpg deleted file mode 100644 index 35fc868d..00000000 Binary files a/pics/53257892.jpg and /dev/null differ diff --git a/pics/53262004.jpg b/pics/53262004.jpg deleted file mode 100644 index 4d6ebc8d..00000000 Binary files a/pics/53262004.jpg and /dev/null differ diff --git a/pics/53274132.jpg b/pics/53274132.jpg deleted file mode 100644 index 544d6764..00000000 Binary files a/pics/53274132.jpg and /dev/null differ diff --git a/pics/53291093.jpg b/pics/53291093.jpg deleted file mode 100644 index 7968feb0..00000000 Binary files a/pics/53291093.jpg and /dev/null differ diff --git a/pics/53293545.jpg b/pics/53293545.jpg deleted file mode 100644 index 78a692fb..00000000 Binary files a/pics/53293545.jpg and /dev/null differ diff --git a/pics/53315891.jpg b/pics/53315891.jpg deleted file mode 100755 index 9fe04734..00000000 Binary files a/pics/53315891.jpg and /dev/null differ diff --git a/pics/53334471.jpg b/pics/53334471.jpg deleted file mode 100644 index c84353e3..00000000 Binary files a/pics/53334471.jpg and /dev/null differ diff --git a/pics/53334641.jpg b/pics/53334641.jpg deleted file mode 100644 index 0c2d162e..00000000 Binary files a/pics/53334641.jpg and /dev/null differ diff --git a/pics/53341729.jpg b/pics/53341729.jpg deleted file mode 100644 index 3ab40ea0..00000000 Binary files a/pics/53341729.jpg and /dev/null differ diff --git a/pics/53347303.jpg b/pics/53347303.jpg deleted file mode 100644 index 73646c86..00000000 Binary files a/pics/53347303.jpg and /dev/null differ diff --git a/pics/53375573.jpg b/pics/53375573.jpg deleted file mode 100644 index 7f5f4422..00000000 Binary files a/pics/53375573.jpg and /dev/null differ diff --git a/pics/5338223.jpg b/pics/5338223.jpg deleted file mode 100644 index 67f57a2a..00000000 Binary files a/pics/5338223.jpg and /dev/null differ diff --git a/pics/53388413.jpg b/pics/53388413.jpg deleted file mode 100644 index fbe406ae..00000000 Binary files a/pics/53388413.jpg and /dev/null differ diff --git a/pics/53408006.jpg b/pics/53408006.jpg deleted file mode 100644 index 5db45d1c..00000000 Binary files a/pics/53408006.jpg and /dev/null differ diff --git a/pics/53451824.jpg b/pics/53451824.jpg deleted file mode 100644 index 8a763863..00000000 Binary files a/pics/53451824.jpg and /dev/null differ diff --git a/pics/53461122.jpg b/pics/53461122.jpg deleted file mode 100644 index 86a51b16..00000000 Binary files a/pics/53461122.jpg and /dev/null differ diff --git a/pics/53466826.jpg b/pics/53466826.jpg deleted file mode 100644 index 01386e33..00000000 Binary files a/pics/53466826.jpg and /dev/null differ diff --git a/pics/53485634.jpg b/pics/53485634.jpg deleted file mode 100644 index 7cfbc246..00000000 Binary files a/pics/53485634.jpg and /dev/null differ diff --git a/pics/53493204.jpg b/pics/53493204.jpg deleted file mode 100644 index 7915fdec..00000000 Binary files a/pics/53493204.jpg and /dev/null differ diff --git a/pics/53519297.jpg b/pics/53519297.jpg deleted file mode 100644 index 61d03ffb..00000000 Binary files a/pics/53519297.jpg and /dev/null differ diff --git a/pics/53527835.jpg b/pics/53527835.jpg deleted file mode 100644 index 18503310..00000000 Binary files a/pics/53527835.jpg and /dev/null differ diff --git a/pics/53530069.jpg b/pics/53530069.jpg deleted file mode 100644 index 23d5cfcc..00000000 Binary files a/pics/53530069.jpg and /dev/null differ diff --git a/pics/53539634.jpg b/pics/53539634.jpg deleted file mode 100644 index 6ff7f92f..00000000 Binary files a/pics/53539634.jpg and /dev/null differ diff --git a/pics/53540729.jpg b/pics/53540729.jpg deleted file mode 100644 index 3a8de75e..00000000 Binary files a/pics/53540729.jpg and /dev/null differ diff --git a/pics/53550467.jpg b/pics/53550467.jpg deleted file mode 100644 index e873f7b1..00000000 Binary files a/pics/53550467.jpg and /dev/null differ diff --git a/pics/53567095.jpg b/pics/53567095.jpg deleted file mode 100644 index cb48858b..00000000 Binary files a/pics/53567095.jpg and /dev/null differ diff --git a/pics/53569894.jpg b/pics/53569894.jpg deleted file mode 100644 index 0fc935dd..00000000 Binary files a/pics/53569894.jpg and /dev/null differ diff --git a/pics/53573406.jpg b/pics/53573406.jpg deleted file mode 100644 index 9cd21f7e..00000000 Binary files a/pics/53573406.jpg and /dev/null differ diff --git a/pics/53581214.jpg b/pics/53581214.jpg deleted file mode 100644 index 089f0e9b..00000000 Binary files a/pics/53581214.jpg and /dev/null differ diff --git a/pics/53582587.jpg b/pics/53582587.jpg deleted file mode 100644 index 1e6a196e..00000000 Binary files a/pics/53582587.jpg and /dev/null differ diff --git a/pics/53586134.jpg b/pics/53586134.jpg deleted file mode 100644 index e7b34489..00000000 Binary files a/pics/53586134.jpg and /dev/null differ diff --git a/pics/53606874.jpg b/pics/53606874.jpg deleted file mode 100644 index 7d2b11d1..00000000 Binary files a/pics/53606874.jpg and /dev/null differ diff --git a/pics/53610653.jpg b/pics/53610653.jpg deleted file mode 100644 index 9267915f..00000000 Binary files a/pics/53610653.jpg and /dev/null differ diff --git a/pics/5361647.jpg b/pics/5361647.jpg deleted file mode 100644 index fbe7492f..00000000 Binary files a/pics/5361647.jpg and /dev/null differ diff --git a/pics/53623827.jpg b/pics/53623827.jpg deleted file mode 100644 index 9ca9db14..00000000 Binary files a/pics/53623827.jpg and /dev/null differ diff --git a/pics/53656677.jpg b/pics/53656677.jpg deleted file mode 100644 index 6b1720ef..00000000 Binary files a/pics/53656677.jpg and /dev/null differ diff --git a/pics/53670497.jpg b/pics/53670497.jpg deleted file mode 100644 index ca47a5ee..00000000 Binary files a/pics/53670497.jpg and /dev/null differ diff --git a/pics/53678698.jpg b/pics/53678698.jpg deleted file mode 100644 index 366e7b8c..00000000 Binary files a/pics/53678698.jpg and /dev/null differ diff --git a/pics/5368615.jpg b/pics/5368615.jpg deleted file mode 100644 index 924f83c5..00000000 Binary files a/pics/5368615.jpg and /dev/null differ diff --git a/pics/53693416.jpg b/pics/53693416.jpg deleted file mode 100644 index 53a5ecae..00000000 Binary files a/pics/53693416.jpg and /dev/null differ diff --git a/pics/53713014.jpg b/pics/53713014.jpg deleted file mode 100644 index f9e3f304..00000000 Binary files a/pics/53713014.jpg and /dev/null differ diff --git a/pics/53714009.jpg b/pics/53714009.jpg deleted file mode 100644 index 8e1a14a3..00000000 Binary files a/pics/53714009.jpg and /dev/null differ diff --git a/pics/5371656.jpg b/pics/5371656.jpg deleted file mode 100644 index 73146bbd..00000000 Binary files a/pics/5371656.jpg and /dev/null differ diff --git a/pics/53724621.jpg b/pics/53724621.jpg deleted file mode 100755 index 4cb51d9d..00000000 Binary files a/pics/53724621.jpg and /dev/null differ diff --git a/pics/5373478.jpg b/pics/5373478.jpg deleted file mode 100644 index d51ed503..00000000 Binary files a/pics/5373478.jpg and /dev/null differ diff --git a/pics/53776525.jpg b/pics/53776525.jpg deleted file mode 100644 index 134a9b6d..00000000 Binary files a/pics/53776525.jpg and /dev/null differ diff --git a/pics/53778229.jpg b/pics/53778229.jpg deleted file mode 100644 index 44a551b3..00000000 Binary files a/pics/53778229.jpg and /dev/null differ diff --git a/pics/53797637.jpg b/pics/53797637.jpg deleted file mode 100644 index 9bce88eb..00000000 Binary files a/pics/53797637.jpg and /dev/null differ diff --git a/pics/53804307.jpg b/pics/53804307.jpg deleted file mode 100644 index 34cf32e2..00000000 Binary files a/pics/53804307.jpg and /dev/null differ diff --git a/pics/53819808.jpg b/pics/53819808.jpg deleted file mode 100644 index e45ed868..00000000 Binary files a/pics/53819808.jpg and /dev/null differ diff --git a/pics/53828396.jpg b/pics/53828396.jpg deleted file mode 100644 index b0ea6500..00000000 Binary files a/pics/53828396.jpg and /dev/null differ diff --git a/pics/53829412.jpg b/pics/53829412.jpg deleted file mode 100644 index f0ad46d0..00000000 Binary files a/pics/53829412.jpg and /dev/null differ diff --git a/pics/53830602.jpg b/pics/53830602.jpg deleted file mode 100644 index b31321c5..00000000 Binary files a/pics/53830602.jpg and /dev/null differ diff --git a/pics/53832650.jpg b/pics/53832650.jpg deleted file mode 100644 index 6e2285d6..00000000 Binary files a/pics/53832650.jpg and /dev/null differ diff --git a/pics/53839837.jpg b/pics/53839837.jpg deleted file mode 100644 index 3b126f44..00000000 Binary files a/pics/53839837.jpg and /dev/null differ diff --git a/pics/53855409.jpg b/pics/53855409.jpg deleted file mode 100644 index 7e596393..00000000 Binary files a/pics/53855409.jpg and /dev/null differ diff --git a/pics/53855410.jpg b/pics/53855410.jpg deleted file mode 100644 index fb480002..00000000 Binary files a/pics/53855410.jpg and /dev/null differ diff --git a/pics/53855411.jpg b/pics/53855411.jpg deleted file mode 100644 index f33e34ce..00000000 Binary files a/pics/53855411.jpg and /dev/null differ diff --git a/pics/5388481.jpg b/pics/5388481.jpg deleted file mode 100644 index 544f002b..00000000 Binary files a/pics/5388481.jpg and /dev/null differ diff --git a/pics/53890795.jpg b/pics/53890795.jpg deleted file mode 100644 index 6769ebbd..00000000 Binary files a/pics/53890795.jpg and /dev/null differ diff --git a/pics/53921056.jpg b/pics/53921056.jpg deleted file mode 100644 index 12595225..00000000 Binary files a/pics/53921056.jpg and /dev/null differ diff --git a/pics/53927679.jpg b/pics/53927679.jpg deleted file mode 100644 index 6c122d6b..00000000 Binary files a/pics/53927679.jpg and /dev/null differ diff --git a/pics/53932291.jpg b/pics/53932291.jpg deleted file mode 100755 index c71a6c10..00000000 Binary files a/pics/53932291.jpg and /dev/null differ diff --git a/pics/53944920.jpg b/pics/53944920.jpg deleted file mode 100644 index 90495ca2..00000000 Binary files a/pics/53944920.jpg and /dev/null differ diff --git a/pics/53981499.jpg b/pics/53981499.jpg deleted file mode 100644 index 10b3adc5..00000000 Binary files a/pics/53981499.jpg and /dev/null differ diff --git a/pics/53982768.jpg b/pics/53982768.jpg deleted file mode 100644 index 037f2f44..00000000 Binary files a/pics/53982768.jpg and /dev/null differ diff --git a/pics/5399521.jpg b/pics/5399521.jpg deleted file mode 100644 index 258851db..00000000 Binary files a/pics/5399521.jpg and /dev/null differ diff --git a/pics/54031490.jpg b/pics/54031490.jpg deleted file mode 100644 index 2a80e6d9..00000000 Binary files a/pics/54031490.jpg and /dev/null differ diff --git a/pics/54040221.jpg b/pics/54040221.jpg deleted file mode 100644 index f98a53bd..00000000 Binary files a/pics/54040221.jpg and /dev/null differ diff --git a/pics/54048462.jpg b/pics/54048462.jpg deleted file mode 100644 index c860da01..00000000 Binary files a/pics/54048462.jpg and /dev/null differ diff --git a/pics/5405694.jpg b/pics/5405694.jpg deleted file mode 100644 index 54445458..00000000 Binary files a/pics/5405694.jpg and /dev/null differ diff --git a/pics/54059040.jpg b/pics/54059040.jpg deleted file mode 100644 index 14c450f4..00000000 Binary files a/pics/54059040.jpg and /dev/null differ diff --git a/pics/54063868.jpg b/pics/54063868.jpg deleted file mode 100755 index 116dfc7f..00000000 Binary files a/pics/54063868.jpg and /dev/null differ diff --git a/pics/54094821.jpg b/pics/54094821.jpg deleted file mode 100644 index 8b9256f7..00000000 Binary files a/pics/54094821.jpg and /dev/null differ diff --git a/pics/54098121.jpg b/pics/54098121.jpg deleted file mode 100644 index 4d128e2c..00000000 Binary files a/pics/54098121.jpg and /dev/null differ diff --git a/pics/54109233.jpg b/pics/54109233.jpg deleted file mode 100644 index dd58a97b..00000000 Binary files a/pics/54109233.jpg and /dev/null differ diff --git a/pics/54149433.jpg b/pics/54149433.jpg deleted file mode 100644 index 5853dd1f..00000000 Binary files a/pics/54149433.jpg and /dev/null differ diff --git a/pics/54161401.jpg b/pics/54161401.jpg deleted file mode 100644 index 7dcbcded..00000000 Binary files a/pics/54161401.jpg and /dev/null differ diff --git a/pics/54178050.jpg b/pics/54178050.jpg deleted file mode 100644 index 19616d2c..00000000 Binary files a/pics/54178050.jpg and /dev/null differ diff --git a/pics/54241725.jpg b/pics/54241725.jpg deleted file mode 100755 index 5d35bb27..00000000 Binary files a/pics/54241725.jpg and /dev/null differ diff --git a/pics/54248491.jpg b/pics/54248491.jpg deleted file mode 100644 index 3835eab6..00000000 Binary files a/pics/54248491.jpg and /dev/null differ diff --git a/pics/54250060.jpg b/pics/54250060.jpg deleted file mode 100644 index 52270168..00000000 Binary files a/pics/54250060.jpg and /dev/null differ diff --git a/pics/54266211.jpg b/pics/54266211.jpg deleted file mode 100644 index e5bcd2d4..00000000 Binary files a/pics/54266211.jpg and /dev/null differ diff --git a/pics/54283059.jpg b/pics/54283059.jpg deleted file mode 100644 index 5942ce98..00000000 Binary files a/pics/54283059.jpg and /dev/null differ diff --git a/pics/54289683.jpg b/pics/54289683.jpg deleted file mode 100644 index c3918764..00000000 Binary files a/pics/54289683.jpg and /dev/null differ diff --git a/pics/54306223.jpg b/pics/54306223.jpg deleted file mode 100644 index 5d06986b..00000000 Binary files a/pics/54306223.jpg and /dev/null differ diff --git a/pics/54320860.jpg b/pics/54320860.jpg deleted file mode 100755 index 751a31f3..00000000 Binary files a/pics/54320860.jpg and /dev/null differ diff --git a/pics/54326448.jpg b/pics/54326448.jpg deleted file mode 100644 index 224a39b7..00000000 Binary files a/pics/54326448.jpg and /dev/null differ diff --git a/pics/54338958.jpg b/pics/54338958.jpg deleted file mode 100644 index 2278b86c..00000000 Binary files a/pics/54338958.jpg and /dev/null differ diff --git a/pics/5434080.jpg b/pics/5434080.jpg deleted file mode 100644 index 816429a1..00000000 Binary files a/pics/5434080.jpg and /dev/null differ diff --git a/pics/54343893.jpg b/pics/54343893.jpg deleted file mode 100644 index 91ec3430..00000000 Binary files a/pics/54343893.jpg and /dev/null differ diff --git a/pics/54351224.jpg b/pics/54351224.jpg deleted file mode 100644 index f30ca4b9..00000000 Binary files a/pics/54351224.jpg and /dev/null differ diff --git a/pics/54359696.jpg b/pics/54359696.jpg deleted file mode 100644 index add06032..00000000 Binary files a/pics/54359696.jpg and /dev/null differ diff --git a/pics/54360049.jpg b/pics/54360049.jpg deleted file mode 100644 index 55eb06dc..00000000 Binary files a/pics/54360049.jpg and /dev/null differ diff --git a/pics/54366836.jpg b/pics/54366836.jpg deleted file mode 100644 index e2c04db8..00000000 Binary files a/pics/54366836.jpg and /dev/null differ diff --git a/pics/5438492.jpg b/pics/5438492.jpg deleted file mode 100644 index d09e492e..00000000 Binary files a/pics/5438492.jpg and /dev/null differ diff --git a/pics/54407825.jpg b/pics/54407825.jpg deleted file mode 100644 index 01b60282..00000000 Binary files a/pics/54407825.jpg and /dev/null differ diff --git a/pics/54415063.jpg b/pics/54415063.jpg deleted file mode 100644 index 099f6cd5..00000000 Binary files a/pics/54415063.jpg and /dev/null differ diff --git a/pics/54447022.jpg b/pics/54447022.jpg deleted file mode 100644 index e6921c33..00000000 Binary files a/pics/54447022.jpg and /dev/null differ diff --git a/pics/54451023.jpg b/pics/54451023.jpg deleted file mode 100644 index 8df28b5e..00000000 Binary files a/pics/54451023.jpg and /dev/null differ diff --git a/pics/54455435.jpg b/pics/54455435.jpg deleted file mode 100644 index 4b651df6..00000000 Binary files a/pics/54455435.jpg and /dev/null differ diff --git a/pics/54455664.jpg b/pics/54455664.jpg deleted file mode 100644 index 2a4415e7..00000000 Binary files a/pics/54455664.jpg and /dev/null differ diff --git a/pics/54484652.jpg b/pics/54484652.jpg deleted file mode 100644 index ed2b2a24..00000000 Binary files a/pics/54484652.jpg and /dev/null differ diff --git a/pics/54490275.jpg b/pics/54490275.jpg deleted file mode 100644 index c938e933..00000000 Binary files a/pics/54490275.jpg and /dev/null differ diff --git a/pics/54493213.jpg b/pics/54493213.jpg deleted file mode 100644 index 716f8013..00000000 Binary files a/pics/54493213.jpg and /dev/null differ diff --git a/pics/54497620.jpg b/pics/54497620.jpg deleted file mode 100644 index c3eb541d..00000000 Binary files a/pics/54497620.jpg and /dev/null differ diff --git a/pics/54512827.jpg b/pics/54512827.jpg deleted file mode 100644 index a8f2db5c..00000000 Binary files a/pics/54512827.jpg and /dev/null differ diff --git a/pics/54514594.jpg b/pics/54514594.jpg deleted file mode 100644 index 5fe693e2..00000000 Binary files a/pics/54514594.jpg and /dev/null differ diff --git a/pics/54520292.jpg b/pics/54520292.jpg deleted file mode 100644 index 6538e558..00000000 Binary files a/pics/54520292.jpg and /dev/null differ diff --git a/pics/54537489.jpg b/pics/54537489.jpg deleted file mode 100644 index c879e540..00000000 Binary files a/pics/54537489.jpg and /dev/null differ diff --git a/pics/54537490.jpg b/pics/54537490.jpg deleted file mode 100644 index 8cc033da..00000000 Binary files a/pics/54537490.jpg and /dev/null differ diff --git a/pics/54539105.jpg b/pics/54539105.jpg deleted file mode 100644 index 887bb534..00000000 Binary files a/pics/54539105.jpg and /dev/null differ diff --git a/pics/54541900.jpg b/pics/54541900.jpg deleted file mode 100644 index caa04100..00000000 Binary files a/pics/54541900.jpg and /dev/null differ diff --git a/pics/54578613.jpg b/pics/54578613.jpg deleted file mode 100644 index e0b31e9c..00000000 Binary files a/pics/54578613.jpg and /dev/null differ diff --git a/pics/54579801.jpg b/pics/54579801.jpg deleted file mode 100644 index 5e63b17b..00000000 Binary files a/pics/54579801.jpg and /dev/null differ diff --git a/pics/54582424.jpg b/pics/54582424.jpg deleted file mode 100644 index 8519f34a..00000000 Binary files a/pics/54582424.jpg and /dev/null differ diff --git a/pics/54591086.jpg b/pics/54591086.jpg deleted file mode 100644 index f562f896..00000000 Binary files a/pics/54591086.jpg and /dev/null differ diff --git a/pics/54615781.jpg b/pics/54615781.jpg deleted file mode 100644 index 4e1ec005..00000000 Binary files a/pics/54615781.jpg and /dev/null differ diff --git a/pics/54620698.jpg b/pics/54620698.jpg deleted file mode 100644 index 51dc6534..00000000 Binary files a/pics/54620698.jpg and /dev/null differ diff --git a/pics/54622031.jpg b/pics/54622031.jpg deleted file mode 100644 index f867550e..00000000 Binary files a/pics/54622031.jpg and /dev/null differ diff --git a/pics/54629413.jpg b/pics/54629413.jpg deleted file mode 100644 index 8fbe325b..00000000 Binary files a/pics/54629413.jpg and /dev/null differ diff --git a/pics/54631834.jpg b/pics/54631834.jpg deleted file mode 100644 index b8f62e17..00000000 Binary files a/pics/54631834.jpg and /dev/null differ diff --git a/pics/54635862.jpg b/pics/54635862.jpg deleted file mode 100644 index ff1d9b75..00000000 Binary files a/pics/54635862.jpg and /dev/null differ diff --git a/pics/5464695.jpg b/pics/5464695.jpg deleted file mode 100644 index 8f0b77e1..00000000 Binary files a/pics/5464695.jpg and /dev/null differ diff --git a/pics/54652250.jpg b/pics/54652250.jpg deleted file mode 100644 index ad97f070..00000000 Binary files a/pics/54652250.jpg and /dev/null differ diff --git a/pics/54702678.jpg b/pics/54702678.jpg deleted file mode 100644 index 3c9f9af4..00000000 Binary files a/pics/54702678.jpg and /dev/null differ diff --git a/pics/54704216.jpg b/pics/54704216.jpg deleted file mode 100644 index c89a8706..00000000 Binary files a/pics/54704216.jpg and /dev/null differ diff --git a/pics/54706054.jpg b/pics/54706054.jpg deleted file mode 100644 index 0838ae55..00000000 Binary files a/pics/54706054.jpg and /dev/null differ diff --git a/pics/54719828.jpg b/pics/54719828.jpg deleted file mode 100644 index 4ab62f55..00000000 Binary files a/pics/54719828.jpg and /dev/null differ diff --git a/pics/54747648.jpg b/pics/54747648.jpg deleted file mode 100644 index f29d3524..00000000 Binary files a/pics/54747648.jpg and /dev/null differ diff --git a/pics/54749427.jpg b/pics/54749427.jpg deleted file mode 100644 index cf881935..00000000 Binary files a/pics/54749427.jpg and /dev/null differ diff --git a/pics/54752875.jpg b/pics/54752875.jpg deleted file mode 100644 index aa305e66..00000000 Binary files a/pics/54752875.jpg and /dev/null differ diff --git a/pics/54762426.jpg b/pics/54762426.jpg deleted file mode 100644 index 91d91ac9..00000000 Binary files a/pics/54762426.jpg and /dev/null differ diff --git a/pics/54766667.jpg b/pics/54766667.jpg deleted file mode 100644 index aca1f838..00000000 Binary files a/pics/54766667.jpg and /dev/null differ diff --git a/pics/54773234.jpg b/pics/54773234.jpg deleted file mode 100644 index 37b9f9c2..00000000 Binary files a/pics/54773234.jpg and /dev/null differ diff --git a/pics/5479217.jpg b/pics/5479217.jpg deleted file mode 100644 index 4993b735..00000000 Binary files a/pics/5479217.jpg and /dev/null differ diff --git a/pics/54813225.jpg b/pics/54813225.jpg deleted file mode 100644 index ecf44b88..00000000 Binary files a/pics/54813225.jpg and /dev/null differ diff --git a/pics/54844990.jpg b/pics/54844990.jpg deleted file mode 100644 index e6fd3450..00000000 Binary files a/pics/54844990.jpg and /dev/null differ diff --git a/pics/54860010.jpg b/pics/54860010.jpg deleted file mode 100644 index f2365e4b..00000000 Binary files a/pics/54860010.jpg and /dev/null differ diff --git a/pics/54878498.jpg b/pics/54878498.jpg deleted file mode 100644 index eb447d8d..00000000 Binary files a/pics/54878498.jpg and /dev/null differ diff --git a/pics/54903668.jpg b/pics/54903668.jpg deleted file mode 100644 index 98b33ece..00000000 Binary files a/pics/54903668.jpg and /dev/null differ diff --git a/pics/54912977.jpg b/pics/54912977.jpg deleted file mode 100644 index 24e4c71b..00000000 Binary files a/pics/54912977.jpg and /dev/null differ diff --git a/pics/54913680.jpg b/pics/54913680.jpg deleted file mode 100644 index 971b7a20..00000000 Binary files a/pics/54913680.jpg and /dev/null differ diff --git a/pics/54936498.jpg b/pics/54936498.jpg deleted file mode 100644 index 4b777aec..00000000 Binary files a/pics/54936498.jpg and /dev/null differ diff --git a/pics/54941203.jpg b/pics/54941203.jpg deleted file mode 100755 index 5f50fd7a..00000000 Binary files a/pics/54941203.jpg and /dev/null differ diff --git a/pics/549481.jpg b/pics/549481.jpg deleted file mode 100644 index d831067b..00000000 Binary files a/pics/549481.jpg and /dev/null differ diff --git a/pics/5494820.jpg b/pics/5494820.jpg deleted file mode 100644 index 8c975d53..00000000 Binary files a/pics/5494820.jpg and /dev/null differ diff --git a/pics/54959865.jpg b/pics/54959865.jpg deleted file mode 100644 index c1518792..00000000 Binary files a/pics/54959865.jpg and /dev/null differ diff --git a/pics/54974237.jpg b/pics/54974237.jpg deleted file mode 100644 index 304d2669..00000000 Binary files a/pics/54974237.jpg and /dev/null differ diff --git a/pics/54976796.jpg b/pics/54976796.jpg deleted file mode 100644 index add5fb8f..00000000 Binary files a/pics/54976796.jpg and /dev/null differ diff --git a/pics/54977057.jpg b/pics/54977057.jpg deleted file mode 100644 index fe50b162..00000000 Binary files a/pics/54977057.jpg and /dev/null differ diff --git a/pics/5498296.jpg b/pics/5498296.jpg deleted file mode 100644 index 43a3061e..00000000 Binary files a/pics/5498296.jpg and /dev/null differ diff --git a/pics/55001420.jpg b/pics/55001420.jpg deleted file mode 100644 index 5b656acf..00000000 Binary files a/pics/55001420.jpg and /dev/null differ diff --git a/pics/55008284.jpg b/pics/55008284.jpg deleted file mode 100644 index fa3ecf40..00000000 Binary files a/pics/55008284.jpg and /dev/null differ diff --git a/pics/55013285.jpg b/pics/55013285.jpg deleted file mode 100644 index 40c4d35d..00000000 Binary files a/pics/55013285.jpg and /dev/null differ diff --git a/pics/55014050.jpg b/pics/55014050.jpg deleted file mode 100644 index f023e03b..00000000 Binary files a/pics/55014050.jpg and /dev/null differ diff --git a/pics/55046718.jpg b/pics/55046718.jpg deleted file mode 100644 index e66d5a03..00000000 Binary files a/pics/55046718.jpg and /dev/null differ diff --git a/pics/55063681.jpg b/pics/55063681.jpg deleted file mode 100644 index 265acb25..00000000 Binary files a/pics/55063681.jpg and /dev/null differ diff --git a/pics/55063751.jpg b/pics/55063751.jpg deleted file mode 100755 index c8c58628..00000000 Binary files a/pics/55063751.jpg and /dev/null differ diff --git a/pics/55067058.jpg b/pics/55067058.jpg deleted file mode 100644 index dc3fe1aa..00000000 Binary files a/pics/55067058.jpg and /dev/null differ diff --git a/pics/5506791.jpg b/pics/5506791.jpg deleted file mode 100755 index 68afdfd8..00000000 Binary files a/pics/5506791.jpg and /dev/null differ diff --git a/pics/55099248.jpg b/pics/55099248.jpg deleted file mode 100644 index edfe50b2..00000000 Binary files a/pics/55099248.jpg and /dev/null differ diff --git a/pics/55106249.jpg b/pics/55106249.jpg deleted file mode 100644 index bfa400dd..00000000 Binary files a/pics/55106249.jpg and /dev/null differ diff --git a/pics/55117418.jpg b/pics/55117418.jpg deleted file mode 100644 index 8810b0bf..00000000 Binary files a/pics/55117418.jpg and /dev/null differ diff --git a/pics/55119278.jpg b/pics/55119278.jpg deleted file mode 100644 index b0f8836e..00000000 Binary files a/pics/55119278.jpg and /dev/null differ diff --git a/pics/55136228.jpg b/pics/55136228.jpg deleted file mode 100644 index f5627c35..00000000 Binary files a/pics/55136228.jpg and /dev/null differ diff --git a/pics/55144522.jpg b/pics/55144522.jpg deleted file mode 100644 index 1c8ffc90..00000000 Binary files a/pics/55144522.jpg and /dev/null differ diff --git a/pics/55154048.jpg b/pics/55154048.jpg deleted file mode 100644 index f1685aea..00000000 Binary files a/pics/55154048.jpg and /dev/null differ diff --git a/pics/55171412.jpg b/pics/55171412.jpg deleted file mode 100644 index 9f61cb4e..00000000 Binary files a/pics/55171412.jpg and /dev/null differ diff --git a/pics/5519829.jpg b/pics/5519829.jpg deleted file mode 100644 index 747e7cbd..00000000 Binary files a/pics/5519829.jpg and /dev/null differ diff --git a/pics/55204071.jpg b/pics/55204071.jpg deleted file mode 100644 index bf3aca5b..00000000 Binary files a/pics/55204071.jpg and /dev/null differ diff --git a/pics/55210709.jpg b/pics/55210709.jpg deleted file mode 100644 index acf68ea9..00000000 Binary files a/pics/55210709.jpg and /dev/null differ diff --git a/pics/55226821.jpg b/pics/55226821.jpg deleted file mode 100644 index 6876d015..00000000 Binary files a/pics/55226821.jpg and /dev/null differ diff --git a/pics/55256016.jpg b/pics/55256016.jpg deleted file mode 100644 index de96d3f0..00000000 Binary files a/pics/55256016.jpg and /dev/null differ diff --git a/pics/55271628.jpg b/pics/55271628.jpg deleted file mode 100644 index 12a7b5e3..00000000 Binary files a/pics/55271628.jpg and /dev/null differ diff --git a/pics/55277252.jpg b/pics/55277252.jpg deleted file mode 100644 index 91dd1219..00000000 Binary files a/pics/55277252.jpg and /dev/null differ diff --git a/pics/55291359.jpg b/pics/55291359.jpg deleted file mode 100644 index 329f0392..00000000 Binary files a/pics/55291359.jpg and /dev/null differ diff --git a/pics/55321970.jpg b/pics/55321970.jpg deleted file mode 100644 index 08ffd79a..00000000 Binary files a/pics/55321970.jpg and /dev/null differ diff --git a/pics/55337339.jpg b/pics/55337339.jpg deleted file mode 100644 index c1d600e8..00000000 Binary files a/pics/55337339.jpg and /dev/null differ diff --git a/pics/55343236.jpg b/pics/55343236.jpg deleted file mode 100644 index 9dd7180b..00000000 Binary files a/pics/55343236.jpg and /dev/null differ diff --git a/pics/55348096.jpg b/pics/55348096.jpg deleted file mode 100644 index 2fac7da3..00000000 Binary files a/pics/55348096.jpg and /dev/null differ diff --git a/pics/55375684.jpg b/pics/55375684.jpg deleted file mode 100644 index c5f4d122..00000000 Binary files a/pics/55375684.jpg and /dev/null differ diff --git a/pics/55401221.jpg b/pics/55401221.jpg deleted file mode 100644 index 458a8445..00000000 Binary files a/pics/55401221.jpg and /dev/null differ diff --git a/pics/55416843.jpg b/pics/55416843.jpg deleted file mode 100644 index 1eb35276..00000000 Binary files a/pics/55416843.jpg and /dev/null differ diff --git a/pics/55424270.jpg b/pics/55424270.jpg deleted file mode 100644 index 5fcca73b..00000000 Binary files a/pics/55424270.jpg and /dev/null differ diff --git a/pics/55428242.jpg b/pics/55428242.jpg deleted file mode 100644 index 10702b1a..00000000 Binary files a/pics/55428242.jpg and /dev/null differ diff --git a/pics/55428811.jpg b/pics/55428811.jpg deleted file mode 100644 index 1bec11ca..00000000 Binary files a/pics/55428811.jpg and /dev/null differ diff --git a/pics/55444629.jpg b/pics/55444629.jpg deleted file mode 100644 index 87e3ede2..00000000 Binary files a/pics/55444629.jpg and /dev/null differ diff --git a/pics/55461064.jpg b/pics/55461064.jpg deleted file mode 100644 index 57e54640..00000000 Binary files a/pics/55461064.jpg and /dev/null differ diff --git a/pics/55465441.jpg b/pics/55465441.jpg deleted file mode 100644 index 37fcd053..00000000 Binary files a/pics/55465441.jpg and /dev/null differ diff --git a/pics/55488859.jpg b/pics/55488859.jpg deleted file mode 100644 index c56a313d..00000000 Binary files a/pics/55488859.jpg and /dev/null differ diff --git a/pics/55501446.jpg b/pics/55501446.jpg deleted file mode 100644 index d81a0b9b..00000000 Binary files a/pics/55501446.jpg and /dev/null differ diff --git a/pics/5554990.jpg b/pics/5554990.jpg deleted file mode 100644 index 9d3dce70..00000000 Binary files a/pics/5554990.jpg and /dev/null differ diff --git a/pics/55550921.jpg b/pics/55550921.jpg deleted file mode 100644 index 0fdfc577..00000000 Binary files a/pics/55550921.jpg and /dev/null differ diff --git a/pics/5556499.jpg b/pics/5556499.jpg deleted file mode 100644 index f12e0e9b..00000000 Binary files a/pics/5556499.jpg and /dev/null differ diff --git a/pics/5556668.jpg b/pics/5556668.jpg deleted file mode 100644 index 89a9375d..00000000 Binary files a/pics/5556668.jpg and /dev/null differ diff --git a/pics/55567161.jpg b/pics/55567161.jpg deleted file mode 100644 index 681a87d7..00000000 Binary files a/pics/55567161.jpg and /dev/null differ diff --git a/pics/55569674.jpg b/pics/55569674.jpg deleted file mode 100644 index 30fe9741..00000000 Binary files a/pics/55569674.jpg and /dev/null differ diff --git a/pics/55586621.jpg b/pics/55586621.jpg deleted file mode 100644 index d86a6797..00000000 Binary files a/pics/55586621.jpg and /dev/null differ diff --git a/pics/55589254.jpg b/pics/55589254.jpg deleted file mode 100644 index 24ed9d12..00000000 Binary files a/pics/55589254.jpg and /dev/null differ diff --git a/pics/55599882.jpg b/pics/55599882.jpg deleted file mode 100644 index 5bbb4843..00000000 Binary files a/pics/55599882.jpg and /dev/null differ diff --git a/pics/55608151.jpg b/pics/55608151.jpg deleted file mode 100644 index 529f7c5f..00000000 Binary files a/pics/55608151.jpg and /dev/null differ diff --git a/pics/55610595.jpg b/pics/55610595.jpg deleted file mode 100644 index 4b88fc1c..00000000 Binary files a/pics/55610595.jpg and /dev/null differ diff --git a/pics/55615891.jpg b/pics/55615891.jpg deleted file mode 100644 index 1190c875..00000000 Binary files a/pics/55615891.jpg and /dev/null differ diff --git a/pics/5562461.jpg b/pics/5562461.jpg deleted file mode 100644 index 152ff643..00000000 Binary files a/pics/5562461.jpg and /dev/null differ diff --git a/pics/55624610.jpg b/pics/55624610.jpg deleted file mode 100644 index 12494ffd..00000000 Binary files a/pics/55624610.jpg and /dev/null differ diff --git a/pics/55673611.jpg b/pics/55673611.jpg deleted file mode 100644 index da730262..00000000 Binary files a/pics/55673611.jpg and /dev/null differ diff --git a/pics/55690251.jpg b/pics/55690251.jpg deleted file mode 100644 index 0231aa1d..00000000 Binary files a/pics/55690251.jpg and /dev/null differ diff --git a/pics/55691901.jpg b/pics/55691901.jpg deleted file mode 100644 index 7d8715e9..00000000 Binary files a/pics/55691901.jpg and /dev/null differ diff --git a/pics/55696885.jpg b/pics/55696885.jpg deleted file mode 100644 index d0efd33c..00000000 Binary files a/pics/55696885.jpg and /dev/null differ diff --git a/pics/55713623.jpg b/pics/55713623.jpg deleted file mode 100644 index 5a32f0ba..00000000 Binary files a/pics/55713623.jpg and /dev/null differ diff --git a/pics/55727845.jpg b/pics/55727845.jpg deleted file mode 100644 index 7d645a1e..00000000 Binary files a/pics/55727845.jpg and /dev/null differ diff --git a/pics/55735315.jpg b/pics/55735315.jpg deleted file mode 100644 index 7abd18d9..00000000 Binary files a/pics/55735315.jpg and /dev/null differ diff --git a/pics/55737443.jpg b/pics/55737443.jpg deleted file mode 100644 index 00612a2d..00000000 Binary files a/pics/55737443.jpg and /dev/null differ diff --git a/pics/55742055.jpg b/pics/55742055.jpg deleted file mode 100644 index fe960f6f..00000000 Binary files a/pics/55742055.jpg and /dev/null differ diff --git a/pics/55758589.jpg b/pics/55758589.jpg deleted file mode 100644 index 8a0ebcdd..00000000 Binary files a/pics/55758589.jpg and /dev/null differ diff --git a/pics/55761792.jpg b/pics/55761792.jpg deleted file mode 100644 index 4931d6db..00000000 Binary files a/pics/55761792.jpg and /dev/null differ diff --git a/pics/55763552.jpg b/pics/55763552.jpg deleted file mode 100644 index a7a27d20..00000000 Binary files a/pics/55763552.jpg and /dev/null differ diff --git a/pics/55773067.jpg b/pics/55773067.jpg deleted file mode 100644 index d2e37c74..00000000 Binary files a/pics/55773067.jpg and /dev/null differ diff --git a/pics/5577649.jpg b/pics/5577649.jpg deleted file mode 100644 index 19f6397c..00000000 Binary files a/pics/5577649.jpg and /dev/null differ diff --git a/pics/55784832.jpg b/pics/55784832.jpg deleted file mode 100644 index 8b1f9902..00000000 Binary files a/pics/55784832.jpg and /dev/null differ diff --git a/pics/55794644.jpg b/pics/55794644.jpg deleted file mode 100644 index 98422b4c..00000000 Binary files a/pics/55794644.jpg and /dev/null differ diff --git a/pics/55818463.jpg b/pics/55818463.jpg deleted file mode 100644 index c80bb3a4..00000000 Binary files a/pics/55818463.jpg and /dev/null differ diff --git a/pics/55821894.jpg b/pics/55821894.jpg deleted file mode 100644 index 0bc5f9e2..00000000 Binary files a/pics/55821894.jpg and /dev/null differ diff --git a/pics/55824220.jpg b/pics/55824220.jpg deleted file mode 100644 index 41eccf6e..00000000 Binary files a/pics/55824220.jpg and /dev/null differ diff --git a/pics/55863245.jpg b/pics/55863245.jpg deleted file mode 100755 index 1344cd63..00000000 Binary files a/pics/55863245.jpg and /dev/null differ diff --git a/pics/55875323.jpg b/pics/55875323.jpg deleted file mode 100644 index e760cee9..00000000 Binary files a/pics/55875323.jpg and /dev/null differ diff --git a/pics/55885348.jpg b/pics/55885348.jpg deleted file mode 100755 index b155445e..00000000 Binary files a/pics/55885348.jpg and /dev/null differ diff --git a/pics/55888045.jpg b/pics/55888045.jpg deleted file mode 100644 index 0236fa66..00000000 Binary files a/pics/55888045.jpg and /dev/null differ diff --git a/pics/5592689.jpg b/pics/5592689.jpg deleted file mode 100644 index b38907d7..00000000 Binary files a/pics/5592689.jpg and /dev/null differ diff --git a/pics/55935416.jpg b/pics/55935416.jpg deleted file mode 100644 index ab8810fb..00000000 Binary files a/pics/55935416.jpg and /dev/null differ diff --git a/pics/55948544.jpg b/pics/55948544.jpg deleted file mode 100644 index 80339c1b..00000000 Binary files a/pics/55948544.jpg and /dev/null differ diff --git a/pics/55969226.jpg b/pics/55969226.jpg deleted file mode 100644 index 339ea7bc..00000000 Binary files a/pics/55969226.jpg and /dev/null differ diff --git a/pics/55982698.jpg b/pics/55982698.jpg deleted file mode 100644 index e12fac44..00000000 Binary files a/pics/55982698.jpg and /dev/null differ diff --git a/pics/55985014.jpg b/pics/55985014.jpg deleted file mode 100644 index b2a1a642..00000000 Binary files a/pics/55985014.jpg and /dev/null differ diff --git a/pics/55991637.jpg b/pics/55991637.jpg deleted file mode 100644 index 4c519916..00000000 Binary files a/pics/55991637.jpg and /dev/null differ diff --git a/pics/55998462.jpg b/pics/55998462.jpg deleted file mode 100644 index 01583c59..00000000 Binary files a/pics/55998462.jpg and /dev/null differ diff --git a/pics/5600127.jpg b/pics/5600127.jpg deleted file mode 100644 index 2c468f80..00000000 Binary files a/pics/5600127.jpg and /dev/null differ diff --git a/pics/56043446.jpg b/pics/56043446.jpg deleted file mode 100644 index b03b56d2..00000000 Binary files a/pics/56043446.jpg and /dev/null differ diff --git a/pics/56043447.jpg b/pics/56043447.jpg deleted file mode 100644 index e30599db..00000000 Binary files a/pics/56043447.jpg and /dev/null differ diff --git a/pics/56051086.jpg b/pics/56051086.jpg deleted file mode 100644 index a1759826..00000000 Binary files a/pics/56051086.jpg and /dev/null differ diff --git a/pics/56051648.jpg b/pics/56051648.jpg deleted file mode 100644 index d8f2f728..00000000 Binary files a/pics/56051648.jpg and /dev/null differ diff --git a/pics/56051649.jpg b/pics/56051649.jpg deleted file mode 100644 index 9e96704d..00000000 Binary files a/pics/56051649.jpg and /dev/null differ diff --git a/pics/56052205.jpg b/pics/56052205.jpg deleted file mode 100644 index 77f8a44c..00000000 Binary files a/pics/56052205.jpg and /dev/null differ diff --git a/pics/56058888.jpg b/pics/56058888.jpg deleted file mode 100644 index 056b8757..00000000 Binary files a/pics/56058888.jpg and /dev/null differ diff --git a/pics/5606466.jpg b/pics/5606466.jpg deleted file mode 100644 index 60eba849..00000000 Binary files a/pics/5606466.jpg and /dev/null differ diff --git a/pics/56074358.jpg b/pics/56074358.jpg deleted file mode 100644 index dd791ef0..00000000 Binary files a/pics/56074358.jpg and /dev/null differ diff --git a/pics/5609226.jpg b/pics/5609226.jpg deleted file mode 100644 index 7f126850..00000000 Binary files a/pics/5609226.jpg and /dev/null differ diff --git a/pics/56094445.jpg b/pics/56094445.jpg deleted file mode 100644 index f19078cf..00000000 Binary files a/pics/56094445.jpg and /dev/null differ diff --git a/pics/56105047.jpg b/pics/56105047.jpg deleted file mode 100644 index 91781a54..00000000 Binary files a/pics/56105047.jpg and /dev/null differ diff --git a/pics/56111151.jpg b/pics/56111151.jpg deleted file mode 100755 index 8f4c5078..00000000 Binary files a/pics/56111151.jpg and /dev/null differ diff --git a/pics/56120475.jpg b/pics/56120475.jpg deleted file mode 100644 index 0edae965..00000000 Binary files a/pics/56120475.jpg and /dev/null differ diff --git a/pics/5616412.jpg b/pics/5616412.jpg deleted file mode 100644 index 8b402e10..00000000 Binary files a/pics/5616412.jpg and /dev/null differ diff --git a/pics/56174248.jpg b/pics/56174248.jpg deleted file mode 100644 index c753e034..00000000 Binary files a/pics/56174248.jpg and /dev/null differ diff --git a/pics/56209279.jpg b/pics/56209279.jpg deleted file mode 100644 index 58e6f99c..00000000 Binary files a/pics/56209279.jpg and /dev/null differ diff --git a/pics/56223084.jpg b/pics/56223084.jpg deleted file mode 100644 index 1ddd79bf..00000000 Binary files a/pics/56223084.jpg and /dev/null differ diff --git a/pics/56240989.jpg b/pics/56240989.jpg deleted file mode 100644 index c6b761c2..00000000 Binary files a/pics/56240989.jpg and /dev/null differ diff --git a/pics/56246017.jpg b/pics/56246017.jpg deleted file mode 100644 index 76626de0..00000000 Binary files a/pics/56246017.jpg and /dev/null differ diff --git a/pics/56252810.jpg b/pics/56252810.jpg deleted file mode 100644 index 47ac14fe..00000000 Binary files a/pics/56252810.jpg and /dev/null differ diff --git a/pics/56260110.jpg b/pics/56260110.jpg deleted file mode 100644 index b597e246..00000000 Binary files a/pics/56260110.jpg and /dev/null differ diff --git a/pics/5628232.jpg b/pics/5628232.jpg deleted file mode 100644 index eaeeed77..00000000 Binary files a/pics/5628232.jpg and /dev/null differ diff --git a/pics/56283725.jpg b/pics/56283725.jpg deleted file mode 100644 index 25d710b3..00000000 Binary files a/pics/56283725.jpg and /dev/null differ diff --git a/pics/56286179.jpg b/pics/56286179.jpg deleted file mode 100644 index ace51bfe..00000000 Binary files a/pics/56286179.jpg and /dev/null differ diff --git a/pics/56321639.jpg b/pics/56321639.jpg deleted file mode 100644 index 0a65a82c..00000000 Binary files a/pics/56321639.jpg and /dev/null differ diff --git a/pics/56339050.jpg b/pics/56339050.jpg deleted file mode 100644 index 732a689e..00000000 Binary files a/pics/56339050.jpg and /dev/null differ diff --git a/pics/56342351.jpg b/pics/56342351.jpg deleted file mode 100644 index 5377acbd..00000000 Binary files a/pics/56342351.jpg and /dev/null differ diff --git a/pics/56350972.jpg b/pics/56350972.jpg deleted file mode 100644 index a4c69342..00000000 Binary files a/pics/56350972.jpg and /dev/null differ diff --git a/pics/56369281.jpg b/pics/56369281.jpg deleted file mode 100644 index 284a9386..00000000 Binary files a/pics/56369281.jpg and /dev/null differ diff --git a/pics/56387350.jpg b/pics/56387350.jpg deleted file mode 100644 index 266211f7..00000000 Binary files a/pics/56387350.jpg and /dev/null differ diff --git a/pics/56399890.jpg b/pics/56399890.jpg deleted file mode 100644 index 0764bdd8..00000000 Binary files a/pics/56399890.jpg and /dev/null differ diff --git a/pics/5640330.jpg b/pics/5640330.jpg deleted file mode 100644 index 58dabb68..00000000 Binary files a/pics/5640330.jpg and /dev/null differ diff --git a/pics/56410040.jpg b/pics/56410040.jpg deleted file mode 100644 index 77d4970f..00000000 Binary files a/pics/56410040.jpg and /dev/null differ diff --git a/pics/56413937.jpg b/pics/56413937.jpg deleted file mode 100644 index ad6c99c6..00000000 Binary files a/pics/56413937.jpg and /dev/null differ diff --git a/pics/56421754.jpg b/pics/56421754.jpg deleted file mode 100644 index 17d0fe1c..00000000 Binary files a/pics/56421754.jpg and /dev/null differ diff --git a/pics/56427559.jpg b/pics/56427559.jpg deleted file mode 100644 index 2142fa13..00000000 Binary files a/pics/56427559.jpg and /dev/null differ diff --git a/pics/56433456.jpg b/pics/56433456.jpg deleted file mode 100644 index 29fc273b..00000000 Binary files a/pics/56433456.jpg and /dev/null differ diff --git a/pics/5645210.jpg b/pics/5645210.jpg deleted file mode 100644 index d431ccc5..00000000 Binary files a/pics/5645210.jpg and /dev/null differ diff --git a/pics/564541.jpg b/pics/564541.jpg deleted file mode 100644 index b304c76a..00000000 Binary files a/pics/564541.jpg and /dev/null differ diff --git a/pics/56460688.jpg b/pics/56460688.jpg deleted file mode 100644 index 1095b640..00000000 Binary files a/pics/56460688.jpg and /dev/null differ diff --git a/pics/5650082.jpg b/pics/5650082.jpg deleted file mode 100755 index c964457e..00000000 Binary files a/pics/5650082.jpg and /dev/null differ diff --git a/pics/56511382.jpg b/pics/56511382.jpg deleted file mode 100644 index 639de12a..00000000 Binary files a/pics/56511382.jpg and /dev/null differ diff --git a/pics/56514812.jpg b/pics/56514812.jpg deleted file mode 100644 index 80a8313d..00000000 Binary files a/pics/56514812.jpg and /dev/null differ diff --git a/pics/56524813.jpg b/pics/56524813.jpg deleted file mode 100644 index 8122d5ff..00000000 Binary files a/pics/56524813.jpg and /dev/null differ diff --git a/pics/56532632.jpg b/pics/56532632.jpg deleted file mode 100644 index 7714d17d..00000000 Binary files a/pics/56532632.jpg and /dev/null differ diff --git a/pics/56535497.jpg b/pics/56535497.jpg deleted file mode 100644 index cbd5470c..00000000 Binary files a/pics/56535497.jpg and /dev/null differ diff --git a/pics/56570271.jpg b/pics/56570271.jpg deleted file mode 100644 index 6de011c1..00000000 Binary files a/pics/56570271.jpg and /dev/null differ diff --git a/pics/56574543.jpg b/pics/56574543.jpg deleted file mode 100644 index 2aebf314..00000000 Binary files a/pics/56574543.jpg and /dev/null differ diff --git a/pics/56585883.jpg b/pics/56585883.jpg deleted file mode 100644 index 2b504e00..00000000 Binary files a/pics/56585883.jpg and /dev/null differ diff --git a/pics/56594520.jpg b/pics/56594520.jpg deleted file mode 100644 index dfaa3ec4..00000000 Binary files a/pics/56594520.jpg and /dev/null differ diff --git a/pics/56597272.jpg b/pics/56597272.jpg deleted file mode 100644 index 9e978608..00000000 Binary files a/pics/56597272.jpg and /dev/null differ diff --git a/pics/56597273.jpg b/pics/56597273.jpg deleted file mode 100644 index 0ad83d4c..00000000 Binary files a/pics/56597273.jpg and /dev/null differ diff --git a/pics/56605802.jpg b/pics/56605802.jpg deleted file mode 100644 index 6575e3c1..00000000 Binary files a/pics/56605802.jpg and /dev/null differ diff --git a/pics/56606928.jpg b/pics/56606928.jpg deleted file mode 100644 index bcf9e217..00000000 Binary files a/pics/56606928.jpg and /dev/null differ diff --git a/pics/56611470.jpg b/pics/56611470.jpg deleted file mode 100644 index ff856441..00000000 Binary files a/pics/56611470.jpg and /dev/null differ diff --git a/pics/56619314.jpg b/pics/56619314.jpg deleted file mode 100644 index f895edfb..00000000 Binary files a/pics/56619314.jpg and /dev/null differ diff --git a/pics/56638325.jpg b/pics/56638325.jpg deleted file mode 100644 index 19f714f0..00000000 Binary files a/pics/56638325.jpg and /dev/null differ diff --git a/pics/56641453.jpg b/pics/56641453.jpg deleted file mode 100644 index aa48576d..00000000 Binary files a/pics/56641453.jpg and /dev/null differ diff --git a/pics/56647086.jpg b/pics/56647086.jpg deleted file mode 100644 index 9231c455..00000000 Binary files a/pics/56647086.jpg and /dev/null differ diff --git a/pics/56655675.jpg b/pics/56655675.jpg deleted file mode 100644 index 51af2c60..00000000 Binary files a/pics/56655675.jpg and /dev/null differ diff --git a/pics/56681873.jpg b/pics/56681873.jpg deleted file mode 100644 index 271a4d92..00000000 Binary files a/pics/56681873.jpg and /dev/null differ diff --git a/pics/56704140.jpg b/pics/56704140.jpg deleted file mode 100644 index 09f6ad9b..00000000 Binary files a/pics/56704140.jpg and /dev/null differ diff --git a/pics/56713552.jpg b/pics/56713552.jpg deleted file mode 100644 index 22cd68d7..00000000 Binary files a/pics/56713552.jpg and /dev/null differ diff --git a/pics/5672432.jpg b/pics/5672432.jpg deleted file mode 100644 index c61d0f4a..00000000 Binary files a/pics/5672432.jpg and /dev/null differ diff --git a/pics/56746202.jpg b/pics/56746202.jpg deleted file mode 100644 index 2af133b9..00000000 Binary files a/pics/56746202.jpg and /dev/null differ diff --git a/pics/56747793.jpg b/pics/56747793.jpg deleted file mode 100644 index b2b431dd..00000000 Binary files a/pics/56747793.jpg and /dev/null differ diff --git a/pics/56768355.jpg b/pics/56768355.jpg deleted file mode 100644 index 8caf0f8f..00000000 Binary files a/pics/56768355.jpg and /dev/null differ diff --git a/pics/56769674.jpg b/pics/56769674.jpg deleted file mode 100644 index 4104eb47..00000000 Binary files a/pics/56769674.jpg and /dev/null differ diff --git a/pics/5677.jpg b/pics/5677.jpg deleted file mode 100644 index 005ad845..00000000 Binary files a/pics/5677.jpg and /dev/null differ diff --git a/pics/5678.jpg b/pics/5678.jpg deleted file mode 100644 index f9641970..00000000 Binary files a/pics/5678.jpg and /dev/null differ diff --git a/pics/56784842.jpg b/pics/56784842.jpg deleted file mode 100644 index 9f740283..00000000 Binary files a/pics/56784842.jpg and /dev/null differ diff --git a/pics/56789759.jpg b/pics/56789759.jpg deleted file mode 100644 index 405392f9..00000000 Binary files a/pics/56789759.jpg and /dev/null differ diff --git a/pics/5679.jpg b/pics/5679.jpg deleted file mode 100644 index 9e2860a7..00000000 Binary files a/pics/5679.jpg and /dev/null differ diff --git a/pics/5680.jpg b/pics/5680.jpg deleted file mode 100644 index 16b2c28c..00000000 Binary files a/pics/5680.jpg and /dev/null differ diff --git a/pics/56804361.jpg b/pics/56804361.jpg deleted file mode 100644 index efad9c0a..00000000 Binary files a/pics/56804361.jpg and /dev/null differ diff --git a/pics/56830749.jpg b/pics/56830749.jpg deleted file mode 100644 index b7e2944b..00000000 Binary files a/pics/56830749.jpg and /dev/null differ diff --git a/pics/56832966.jpg b/pics/56832966.jpg deleted file mode 100644 index f7cd949f..00000000 Binary files a/pics/56832966.jpg and /dev/null differ diff --git a/pics/56839613.jpg b/pics/56839613.jpg deleted file mode 100644 index 5dd9a83e..00000000 Binary files a/pics/56839613.jpg and /dev/null differ diff --git a/pics/56840427.jpg b/pics/56840427.jpg deleted file mode 100644 index 52636d3b..00000000 Binary files a/pics/56840427.jpg and /dev/null differ diff --git a/pics/56840658.jpg b/pics/56840658.jpg deleted file mode 100644 index eff3f2be..00000000 Binary files a/pics/56840658.jpg and /dev/null differ diff --git a/pics/56856951.jpg b/pics/56856951.jpg deleted file mode 100644 index 74949876..00000000 Binary files a/pics/56856951.jpg and /dev/null differ diff --git a/pics/56897896.jpg b/pics/56897896.jpg deleted file mode 100644 index 8fdcafff..00000000 Binary files a/pics/56897896.jpg and /dev/null differ diff --git a/pics/56907389.jpg b/pics/56907389.jpg deleted file mode 100644 index 4d474eee..00000000 Binary files a/pics/56907389.jpg and /dev/null differ diff --git a/pics/56907986.jpg b/pics/56907986.jpg deleted file mode 100755 index 843be493..00000000 Binary files a/pics/56907986.jpg and /dev/null differ diff --git a/pics/56910167.jpg b/pics/56910167.jpg deleted file mode 100644 index 04a5de77..00000000 Binary files a/pics/56910167.jpg and /dev/null differ diff --git a/pics/56916805.jpg b/pics/56916805.jpg deleted file mode 100644 index b57c70bf..00000000 Binary files a/pics/56916805.jpg and /dev/null differ diff --git a/pics/56921677.jpg b/pics/56921677.jpg deleted file mode 100644 index 263192ae..00000000 Binary files a/pics/56921677.jpg and /dev/null differ diff --git a/pics/56931015.jpg b/pics/56931015.jpg deleted file mode 100644 index f216bf8b..00000000 Binary files a/pics/56931015.jpg and /dev/null differ diff --git a/pics/56948373.jpg b/pics/56948373.jpg deleted file mode 100644 index 69e36044..00000000 Binary files a/pics/56948373.jpg and /dev/null differ diff --git a/pics/56981417.jpg b/pics/56981417.jpg deleted file mode 100644 index 5fe33752..00000000 Binary files a/pics/56981417.jpg and /dev/null differ diff --git a/pics/56993276.jpg b/pics/56993276.jpg deleted file mode 100644 index c5fc8a69..00000000 Binary files a/pics/56993276.jpg and /dev/null differ diff --git a/pics/56995655.jpg b/pics/56995655.jpg deleted file mode 100644 index c9f85388..00000000 Binary files a/pics/56995655.jpg and /dev/null differ diff --git a/pics/57006589.jpg b/pics/57006589.jpg deleted file mode 100644 index 21e8b0d3..00000000 Binary files a/pics/57006589.jpg and /dev/null differ diff --git a/pics/57019473.jpg b/pics/57019473.jpg deleted file mode 100644 index e40cdab3..00000000 Binary files a/pics/57019473.jpg and /dev/null differ diff --git a/pics/57031794.jpg b/pics/57031794.jpg deleted file mode 100755 index 27b2aa3e..00000000 Binary files a/pics/57031794.jpg and /dev/null differ diff --git a/pics/57036718.jpg b/pics/57036718.jpg deleted file mode 100644 index bd17a91f..00000000 Binary files a/pics/57036718.jpg and /dev/null differ diff --git a/pics/5703682.jpg b/pics/5703682.jpg deleted file mode 100644 index fd24d922..00000000 Binary files a/pics/5703682.jpg and /dev/null differ diff --git a/pics/57043117.jpg b/pics/57043117.jpg deleted file mode 100644 index 127ee5b4..00000000 Binary files a/pics/57043117.jpg and /dev/null differ diff --git a/pics/57046845.jpg b/pics/57046845.jpg deleted file mode 100644 index a4e967ef..00000000 Binary files a/pics/57046845.jpg and /dev/null differ diff --git a/pics/57047293.jpg b/pics/57047293.jpg deleted file mode 100644 index 2d60c54c..00000000 Binary files a/pics/57047293.jpg and /dev/null differ diff --git a/pics/57062206.jpg b/pics/57062206.jpg deleted file mode 100644 index 473f79c9..00000000 Binary files a/pics/57062206.jpg and /dev/null differ diff --git a/pics/57069605.jpg b/pics/57069605.jpg deleted file mode 100644 index 6af68285..00000000 Binary files a/pics/57069605.jpg and /dev/null differ diff --git a/pics/57103969.jpg b/pics/57103969.jpg deleted file mode 100644 index 170b767b..00000000 Binary files a/pics/57103969.jpg and /dev/null differ diff --git a/pics/57108202.jpg b/pics/57108202.jpg deleted file mode 100644 index c1996907..00000000 Binary files a/pics/57108202.jpg and /dev/null differ diff --git a/pics/57115864.jpg b/pics/57115864.jpg deleted file mode 100644 index 825bc68d..00000000 Binary files a/pics/57115864.jpg and /dev/null differ diff --git a/pics/57116033.jpg b/pics/57116033.jpg deleted file mode 100644 index 6f484454..00000000 Binary files a/pics/57116033.jpg and /dev/null differ diff --git a/pics/57116034.jpg b/pics/57116034.jpg deleted file mode 100644 index 29986fc9..00000000 Binary files a/pics/57116034.jpg and /dev/null differ diff --git a/pics/57139487.jpg b/pics/57139487.jpg deleted file mode 100644 index e0e236bd..00000000 Binary files a/pics/57139487.jpg and /dev/null differ diff --git a/pics/57143342.jpg b/pics/57143342.jpg deleted file mode 100644 index 9dd1adfe..00000000 Binary files a/pics/57143342.jpg and /dev/null differ diff --git a/pics/57182235.jpg b/pics/57182235.jpg deleted file mode 100644 index 1cb1ab4f..00000000 Binary files a/pics/57182235.jpg and /dev/null differ diff --git a/pics/57201737.jpg b/pics/57201737.jpg deleted file mode 100644 index c9025c01..00000000 Binary files a/pics/57201737.jpg and /dev/null differ diff --git a/pics/57238939.jpg b/pics/57238939.jpg deleted file mode 100644 index c79db6a5..00000000 Binary files a/pics/57238939.jpg and /dev/null differ diff --git a/pics/57270476.jpg b/pics/57270476.jpg deleted file mode 100644 index a8183986..00000000 Binary files a/pics/57270476.jpg and /dev/null differ diff --git a/pics/57272170.jpg b/pics/57272170.jpg deleted file mode 100644 index cc3a145f..00000000 Binary files a/pics/57272170.jpg and /dev/null differ diff --git a/pics/57274196.jpg b/pics/57274196.jpg deleted file mode 100644 index a5ac9b26..00000000 Binary files a/pics/57274196.jpg and /dev/null differ diff --git a/pics/5728014.jpg b/pics/5728014.jpg deleted file mode 100644 index e7fb75ce..00000000 Binary files a/pics/5728014.jpg and /dev/null differ diff --git a/pics/57281778.jpg b/pics/57281778.jpg deleted file mode 100644 index 6f0e3ee5..00000000 Binary files a/pics/57281778.jpg and /dev/null differ diff --git a/pics/57288064.jpg b/pics/57288064.jpg deleted file mode 100755 index a50ccdc9..00000000 Binary files a/pics/57288064.jpg and /dev/null differ diff --git a/pics/57305373.jpg b/pics/57305373.jpg deleted file mode 100644 index 25441f5d..00000000 Binary files a/pics/57305373.jpg and /dev/null differ diff --git a/pics/57308711.jpg b/pics/57308711.jpg deleted file mode 100644 index 6e7bd6fc..00000000 Binary files a/pics/57308711.jpg and /dev/null differ diff --git a/pics/57319935.jpg b/pics/57319935.jpg deleted file mode 100644 index 9e3f0427..00000000 Binary files a/pics/57319935.jpg and /dev/null differ diff --git a/pics/57346400.jpg b/pics/57346400.jpg deleted file mode 100644 index 9bdda117..00000000 Binary files a/pics/57346400.jpg and /dev/null differ diff --git a/pics/57355219.jpg b/pics/57355219.jpg deleted file mode 100644 index 9cda00d6..00000000 Binary files a/pics/57355219.jpg and /dev/null differ diff --git a/pics/57384901.jpg b/pics/57384901.jpg deleted file mode 100644 index e8be5324..00000000 Binary files a/pics/57384901.jpg and /dev/null differ diff --git a/pics/57405307.jpg b/pics/57405307.jpg deleted file mode 100644 index c7ab4a81..00000000 Binary files a/pics/57405307.jpg and /dev/null differ diff --git a/pics/57409948.jpg b/pics/57409948.jpg deleted file mode 100644 index a17aeffd..00000000 Binary files a/pics/57409948.jpg and /dev/null differ diff --git a/pics/57421866.jpg b/pics/57421866.jpg deleted file mode 100644 index 7d64cbc8..00000000 Binary files a/pics/57421866.jpg and /dev/null differ diff --git a/pics/57441100.jpg b/pics/57441100.jpg deleted file mode 100644 index 545c73cf..00000000 Binary files a/pics/57441100.jpg and /dev/null differ diff --git a/pics/57470761.jpg b/pics/57470761.jpg deleted file mode 100755 index 8a13160b..00000000 Binary files a/pics/57470761.jpg and /dev/null differ diff --git a/pics/57473560.jpg b/pics/57473560.jpg deleted file mode 100644 index 333340a3..00000000 Binary files a/pics/57473560.jpg and /dev/null differ diff --git a/pics/57477163.jpg b/pics/57477163.jpg deleted file mode 100644 index ee5d5c44..00000000 Binary files a/pics/57477163.jpg and /dev/null differ diff --git a/pics/57482479.jpg b/pics/57482479.jpg deleted file mode 100644 index a207bd01..00000000 Binary files a/pics/57482479.jpg and /dev/null differ diff --git a/pics/57543573.jpg b/pics/57543573.jpg deleted file mode 100644 index d1fc4c3a..00000000 Binary files a/pics/57543573.jpg and /dev/null differ diff --git a/pics/57549932.jpg b/pics/57549932.jpg deleted file mode 100644 index cf17ca66..00000000 Binary files a/pics/57549932.jpg and /dev/null differ diff --git a/pics/575512.jpg b/pics/575512.jpg deleted file mode 100755 index b714f7b9..00000000 Binary files a/pics/575512.jpg and /dev/null differ diff --git a/pics/57554544.jpg b/pics/57554544.jpg deleted file mode 100644 index 789bac59..00000000 Binary files a/pics/57554544.jpg and /dev/null differ diff --git a/pics/57568840.jpg b/pics/57568840.jpg deleted file mode 100644 index 8b0dddaa..00000000 Binary files a/pics/57568840.jpg and /dev/null differ diff --git a/pics/57579381.jpg b/pics/57579381.jpg deleted file mode 100644 index 7eddfca6..00000000 Binary files a/pics/57579381.jpg and /dev/null differ diff --git a/pics/5758500.jpg b/pics/5758500.jpg deleted file mode 100644 index 62fb411b..00000000 Binary files a/pics/5758500.jpg and /dev/null differ diff --git a/pics/57585212.jpg b/pics/57585212.jpg deleted file mode 100644 index 9a79ee8b..00000000 Binary files a/pics/57585212.jpg and /dev/null differ diff --git a/pics/57594700.jpg b/pics/57594700.jpg deleted file mode 100644 index cb92484c..00000000 Binary files a/pics/57594700.jpg and /dev/null differ diff --git a/pics/57610714.jpg b/pics/57610714.jpg deleted file mode 100644 index b1763e2b..00000000 Binary files a/pics/57610714.jpg and /dev/null differ diff --git a/pics/57617178.jpg b/pics/57617178.jpg deleted file mode 100644 index 7f20b443..00000000 Binary files a/pics/57617178.jpg and /dev/null differ diff --git a/pics/57624336.jpg b/pics/57624336.jpg deleted file mode 100755 index 8f714c1a..00000000 Binary files a/pics/57624336.jpg and /dev/null differ diff --git a/pics/5763020.jpg b/pics/5763020.jpg deleted file mode 100644 index ab14a936..00000000 Binary files a/pics/5763020.jpg and /dev/null differ diff --git a/pics/57662975.jpg b/pics/57662975.jpg deleted file mode 100644 index 653be1e7..00000000 Binary files a/pics/57662975.jpg and /dev/null differ diff --git a/pics/57666212.jpg b/pics/57666212.jpg deleted file mode 100644 index dc81194f..00000000 Binary files a/pics/57666212.jpg and /dev/null differ diff --git a/pics/57690191.jpg b/pics/57690191.jpg deleted file mode 100644 index e4743fa2..00000000 Binary files a/pics/57690191.jpg and /dev/null differ diff --git a/pics/57707471.jpg b/pics/57707471.jpg deleted file mode 100644 index ce2939ec..00000000 Binary files a/pics/57707471.jpg and /dev/null differ diff --git a/pics/57728570.jpg b/pics/57728570.jpg deleted file mode 100644 index e8a4f3c6..00000000 Binary files a/pics/57728570.jpg and /dev/null differ diff --git a/pics/57728571.jpg b/pics/57728571.jpg deleted file mode 100644 index b45af25b..00000000 Binary files a/pics/57728571.jpg and /dev/null differ diff --git a/pics/57731460.jpg b/pics/57731460.jpg deleted file mode 100644 index 1c5b857b..00000000 Binary files a/pics/57731460.jpg and /dev/null differ diff --git a/pics/57734012.jpg b/pics/57734012.jpg deleted file mode 100644 index d8053a1f..00000000 Binary files a/pics/57734012.jpg and /dev/null differ diff --git a/pics/57753602.jpg b/pics/57753602.jpg deleted file mode 100644 index 041e08b0..00000000 Binary files a/pics/57753602.jpg and /dev/null differ diff --git a/pics/57774843.jpg b/pics/57774843.jpg deleted file mode 100644 index b5f5f0a1..00000000 Binary files a/pics/57774843.jpg and /dev/null differ diff --git a/pics/57777714.jpg b/pics/57777714.jpg deleted file mode 100644 index 242b29db..00000000 Binary files a/pics/57777714.jpg and /dev/null differ diff --git a/pics/57782164.jpg b/pics/57782164.jpg deleted file mode 100644 index 4c5743eb..00000000 Binary files a/pics/57782164.jpg and /dev/null differ diff --git a/pics/57784563.jpg b/pics/57784563.jpg deleted file mode 100644 index abad24b5..00000000 Binary files a/pics/57784563.jpg and /dev/null differ diff --git a/pics/57793869.jpg b/pics/57793869.jpg deleted file mode 100644 index 2e355cd5..00000000 Binary files a/pics/57793869.jpg and /dev/null differ diff --git a/pics/5780210.jpg b/pics/5780210.jpg deleted file mode 100644 index 6ef10ff6..00000000 Binary files a/pics/5780210.jpg and /dev/null differ diff --git a/pics/57815601.jpg b/pics/57815601.jpg deleted file mode 100644 index 19132a58..00000000 Binary files a/pics/57815601.jpg and /dev/null differ diff --git a/pics/57827484.jpg b/pics/57827484.jpg deleted file mode 100644 index 79a38b15..00000000 Binary files a/pics/57827484.jpg and /dev/null differ diff --git a/pics/57836546.jpg b/pics/57836546.jpg deleted file mode 100644 index 871eb8dc..00000000 Binary files a/pics/57836546.jpg and /dev/null differ diff --git a/pics/57839750.jpg b/pics/57839750.jpg deleted file mode 100644 index 57638f41..00000000 Binary files a/pics/57839750.jpg and /dev/null differ diff --git a/pics/57844634.jpg b/pics/57844634.jpg deleted file mode 100644 index 86cf17d6..00000000 Binary files a/pics/57844634.jpg and /dev/null differ diff --git a/pics/57882509.jpg b/pics/57882509.jpg deleted file mode 100644 index aaeed0eb..00000000 Binary files a/pics/57882509.jpg and /dev/null differ diff --git a/pics/57902193.jpg b/pics/57902193.jpg deleted file mode 100644 index 10b3d4ed..00000000 Binary files a/pics/57902193.jpg and /dev/null differ diff --git a/pics/57902462.jpg b/pics/57902462.jpg deleted file mode 100644 index 3d3e1adc..00000000 Binary files a/pics/57902462.jpg and /dev/null differ diff --git a/pics/57935140.jpg b/pics/57935140.jpg deleted file mode 100644 index dd23cc1c..00000000 Binary files a/pics/57935140.jpg and /dev/null differ diff --git a/pics/57953380.jpg b/pics/57953380.jpg deleted file mode 100644 index 8d37d41b..00000000 Binary files a/pics/57953380.jpg and /dev/null differ diff --git a/pics/5795980.jpg b/pics/5795980.jpg deleted file mode 100644 index 0f50223a..00000000 Binary files a/pics/5795980.jpg and /dev/null differ diff --git a/pics/57962537.jpg b/pics/57962537.jpg deleted file mode 100644 index 71e252b9..00000000 Binary files a/pics/57962537.jpg and /dev/null differ diff --git a/pics/57996334.jpg b/pics/57996334.jpg deleted file mode 100644 index b1c545b6..00000000 Binary files a/pics/57996334.jpg and /dev/null differ diff --git a/pics/58012107.jpg b/pics/58012107.jpg deleted file mode 100644 index 0281f97c..00000000 Binary files a/pics/58012107.jpg and /dev/null differ diff --git a/pics/58015506.jpg b/pics/58015506.jpg deleted file mode 100644 index 3bb506e7..00000000 Binary files a/pics/58015506.jpg and /dev/null differ diff --git a/pics/58016954.jpg b/pics/58016954.jpg deleted file mode 100644 index ac69a766..00000000 Binary files a/pics/58016954.jpg and /dev/null differ diff --git a/pics/58054262.jpg b/pics/58054262.jpg deleted file mode 100644 index 78d71aea..00000000 Binary files a/pics/58054262.jpg and /dev/null differ diff --git a/pics/58058134.jpg b/pics/58058134.jpg deleted file mode 100644 index ff693f2a..00000000 Binary files a/pics/58058134.jpg and /dev/null differ diff --git a/pics/58069384.jpg b/pics/58069384.jpg deleted file mode 100644 index 16f53a92..00000000 Binary files a/pics/58069384.jpg and /dev/null differ diff --git a/pics/58071123.jpg b/pics/58071123.jpg deleted file mode 100644 index 1d891ba8..00000000 Binary files a/pics/58071123.jpg and /dev/null differ diff --git a/pics/58074572.jpg b/pics/58074572.jpg deleted file mode 100644 index 53e0f218..00000000 Binary files a/pics/58074572.jpg and /dev/null differ diff --git a/pics/58098303.jpg b/pics/58098303.jpg deleted file mode 100644 index 01d0b4e7..00000000 Binary files a/pics/58098303.jpg and /dev/null differ diff --git a/pics/581014.jpg b/pics/581014.jpg deleted file mode 100644 index ea9561e8..00000000 Binary files a/pics/581014.jpg and /dev/null differ diff --git a/pics/58120309.jpg b/pics/58120309.jpg deleted file mode 100644 index 8b305955..00000000 Binary files a/pics/58120309.jpg and /dev/null differ diff --git a/pics/58131925.jpg b/pics/58131925.jpg deleted file mode 100644 index 66d38ec5..00000000 Binary files a/pics/58131925.jpg and /dev/null differ diff --git a/pics/58132856.jpg b/pics/58132856.jpg deleted file mode 100644 index 93db0b45..00000000 Binary files a/pics/58132856.jpg and /dev/null differ diff --git a/pics/58139128.jpg b/pics/58139128.jpg deleted file mode 100644 index 47eb43ff..00000000 Binary files a/pics/58139128.jpg and /dev/null differ diff --git a/pics/58147549.jpg b/pics/58147549.jpg deleted file mode 100644 index a10b4a0d..00000000 Binary files a/pics/58147549.jpg and /dev/null differ diff --git a/pics/58165765.jpg b/pics/58165765.jpg deleted file mode 100644 index a1e802d6..00000000 Binary files a/pics/58165765.jpg and /dev/null differ diff --git a/pics/58169731.jpg b/pics/58169731.jpg deleted file mode 100644 index 1042564d..00000000 Binary files a/pics/58169731.jpg and /dev/null differ diff --git a/pics/5817857.jpg b/pics/5817857.jpg deleted file mode 100644 index eaffe296..00000000 Binary files a/pics/5817857.jpg and /dev/null differ diff --git a/pics/5818294.jpg b/pics/5818294.jpg deleted file mode 100644 index 0efd7fc6..00000000 Binary files a/pics/5818294.jpg and /dev/null differ diff --git a/pics/58185394.jpg b/pics/58185394.jpg deleted file mode 100644 index 878fabd0..00000000 Binary files a/pics/58185394.jpg and /dev/null differ diff --git a/pics/5818798.jpg b/pics/5818798.jpg deleted file mode 100644 index c2123b21..00000000 Binary files a/pics/5818798.jpg and /dev/null differ diff --git a/pics/58192742.jpg b/pics/58192742.jpg deleted file mode 100644 index b8b134b1..00000000 Binary files a/pics/58192742.jpg and /dev/null differ diff --git a/pics/58199906.jpg b/pics/58199906.jpg deleted file mode 100644 index ab1b0e85..00000000 Binary files a/pics/58199906.jpg and /dev/null differ diff --git a/pics/58206034.jpg b/pics/58206034.jpg deleted file mode 100644 index 62f0a24a..00000000 Binary files a/pics/58206034.jpg and /dev/null differ diff --git a/pics/58242947.jpg b/pics/58242947.jpg deleted file mode 100644 index 9788f537..00000000 Binary files a/pics/58242947.jpg and /dev/null differ diff --git a/pics/58258899.jpg b/pics/58258899.jpg deleted file mode 100644 index a1679045..00000000 Binary files a/pics/58258899.jpg and /dev/null differ diff --git a/pics/58268433.jpg b/pics/58268433.jpg deleted file mode 100644 index 9e51b54f..00000000 Binary files a/pics/58268433.jpg and /dev/null differ diff --git a/pics/58272005.jpg b/pics/58272005.jpg deleted file mode 100644 index 3abb697c..00000000 Binary files a/pics/58272005.jpg and /dev/null differ diff --git a/pics/58293343.jpg b/pics/58293343.jpg deleted file mode 100755 index e36e5ab6..00000000 Binary files a/pics/58293343.jpg and /dev/null differ diff --git a/pics/58314394.jpg b/pics/58314394.jpg deleted file mode 100644 index 3240c436..00000000 Binary files a/pics/58314394.jpg and /dev/null differ diff --git a/pics/58324930.jpg b/pics/58324930.jpg deleted file mode 100644 index 55c1b5d9..00000000 Binary files a/pics/58324930.jpg and /dev/null differ diff --git a/pics/5832914.jpg b/pics/5832914.jpg deleted file mode 100755 index a5159da0..00000000 Binary files a/pics/5832914.jpg and /dev/null differ diff --git a/pics/58332301.jpg b/pics/58332301.jpg deleted file mode 100644 index ca3728fb..00000000 Binary files a/pics/58332301.jpg and /dev/null differ diff --git a/pics/58369990.jpg b/pics/58369990.jpg deleted file mode 100644 index 271efd80..00000000 Binary files a/pics/58369990.jpg and /dev/null differ diff --git a/pics/58392024.jpg b/pics/58392024.jpg deleted file mode 100644 index 16f34efc..00000000 Binary files a/pics/58392024.jpg and /dev/null differ diff --git a/pics/58419204.jpg b/pics/58419204.jpg deleted file mode 100644 index 46b9c703..00000000 Binary files a/pics/58419204.jpg and /dev/null differ diff --git a/pics/58441120.jpg b/pics/58441120.jpg deleted file mode 100644 index 740a9157..00000000 Binary files a/pics/58441120.jpg and /dev/null differ diff --git a/pics/58446973.jpg b/pics/58446973.jpg deleted file mode 100755 index b120445f..00000000 Binary files a/pics/58446973.jpg and /dev/null differ diff --git a/pics/58453942.jpg b/pics/58453942.jpg deleted file mode 100644 index db55a7a0..00000000 Binary files a/pics/58453942.jpg and /dev/null differ diff --git a/pics/58471134.jpg b/pics/58471134.jpg deleted file mode 100644 index 75e1e657..00000000 Binary files a/pics/58471134.jpg and /dev/null differ diff --git a/pics/58475908.jpg b/pics/58475908.jpg deleted file mode 100644 index f06f65fe..00000000 Binary files a/pics/58475908.jpg and /dev/null differ diff --git a/pics/58477767.jpg b/pics/58477767.jpg deleted file mode 100644 index 1c5649d5..00000000 Binary files a/pics/58477767.jpg and /dev/null differ diff --git a/pics/58481572.jpg b/pics/58481572.jpg deleted file mode 100644 index 9b496c58..00000000 Binary files a/pics/58481572.jpg and /dev/null differ diff --git a/pics/58494728.jpg b/pics/58494728.jpg deleted file mode 100644 index d38895f5..00000000 Binary files a/pics/58494728.jpg and /dev/null differ diff --git a/pics/58504745.jpg b/pics/58504745.jpg deleted file mode 100644 index a0744ccc..00000000 Binary files a/pics/58504745.jpg and /dev/null differ diff --git a/pics/5851097.jpg b/pics/5851097.jpg deleted file mode 100644 index 535d8b47..00000000 Binary files a/pics/5851097.jpg and /dev/null differ diff --git a/pics/58528964.jpg b/pics/58528964.jpg deleted file mode 100644 index fb352a15..00000000 Binary files a/pics/58528964.jpg and /dev/null differ diff --git a/pics/58531587.jpg b/pics/58531587.jpg deleted file mode 100644 index e6ac7435..00000000 Binary files a/pics/58531587.jpg and /dev/null differ diff --git a/pics/58538870.jpg b/pics/58538870.jpg deleted file mode 100644 index bdf516fd..00000000 Binary files a/pics/58538870.jpg and /dev/null differ diff --git a/pics/58551308.jpg b/pics/58551308.jpg deleted file mode 100644 index 40f7b7eb..00000000 Binary files a/pics/58551308.jpg and /dev/null differ diff --git a/pics/58554959.jpg b/pics/58554959.jpg deleted file mode 100644 index 62b75a1a..00000000 Binary files a/pics/58554959.jpg and /dev/null differ diff --git a/pics/58569561.jpg b/pics/58569561.jpg deleted file mode 100755 index 4716e814..00000000 Binary files a/pics/58569561.jpg and /dev/null differ diff --git a/pics/58577036.jpg b/pics/58577036.jpg deleted file mode 100644 index 458b8d90..00000000 Binary files a/pics/58577036.jpg and /dev/null differ diff --git a/pics/58601383.jpg b/pics/58601383.jpg deleted file mode 100644 index 18ecef6a..00000000 Binary files a/pics/58601383.jpg and /dev/null differ diff --git a/pics/58604027.jpg b/pics/58604027.jpg deleted file mode 100755 index 72a70d08..00000000 Binary files a/pics/58604027.jpg and /dev/null differ diff --git a/pics/58607704.jpg b/pics/58607704.jpg deleted file mode 100644 index d63ee4d2..00000000 Binary files a/pics/58607704.jpg and /dev/null differ diff --git a/pics/58616392.jpg b/pics/58616392.jpg deleted file mode 100644 index 0222734c..00000000 Binary files a/pics/58616392.jpg and /dev/null differ diff --git a/pics/5861892.jpg b/pics/5861892.jpg deleted file mode 100644 index 3926cc0e..00000000 Binary files a/pics/5861892.jpg and /dev/null differ diff --git a/pics/58621589.jpg b/pics/58621589.jpg deleted file mode 100644 index 8ea0f3c0..00000000 Binary files a/pics/58621589.jpg and /dev/null differ diff --git a/pics/58628539.jpg b/pics/58628539.jpg deleted file mode 100644 index 8591ff80..00000000 Binary files a/pics/58628539.jpg and /dev/null differ diff --git a/pics/58641905.jpg b/pics/58641905.jpg deleted file mode 100644 index a7341427..00000000 Binary files a/pics/58641905.jpg and /dev/null differ diff --git a/pics/5866.jpg b/pics/5866.jpg deleted file mode 100755 index 7a39c8b6..00000000 Binary files a/pics/5866.jpg and /dev/null differ diff --git a/pics/58685438.jpg b/pics/58685438.jpg deleted file mode 100644 index c05ba60b..00000000 Binary files a/pics/58685438.jpg and /dev/null differ diff --git a/pics/58695102.jpg b/pics/58695102.jpg deleted file mode 100644 index 240ea678..00000000 Binary files a/pics/58695102.jpg and /dev/null differ diff --git a/pics/58696829.jpg b/pics/58696829.jpg deleted file mode 100644 index 51d6224c..00000000 Binary files a/pics/58696829.jpg and /dev/null differ diff --git a/pics/58712976.jpg b/pics/58712976.jpg deleted file mode 100644 index 81902ad0..00000000 Binary files a/pics/58712976.jpg and /dev/null differ diff --git a/pics/58753372.jpg b/pics/58753372.jpg deleted file mode 100755 index c18bb139..00000000 Binary files a/pics/58753372.jpg and /dev/null differ diff --git a/pics/58760121.jpg b/pics/58760121.jpg deleted file mode 100644 index 1e257f60..00000000 Binary files a/pics/58760121.jpg and /dev/null differ diff --git a/pics/58775978.jpg b/pics/58775978.jpg deleted file mode 100644 index 6ff9c20d..00000000 Binary files a/pics/58775978.jpg and /dev/null differ diff --git a/pics/58786132.jpg b/pics/58786132.jpg deleted file mode 100644 index c2da0f6d..00000000 Binary files a/pics/58786132.jpg and /dev/null differ diff --git a/pics/58807980.jpg b/pics/58807980.jpg deleted file mode 100644 index aa842e87..00000000 Binary files a/pics/58807980.jpg and /dev/null differ diff --git a/pics/58818411.jpg b/pics/58818411.jpg deleted file mode 100644 index cd15f7d1..00000000 Binary files a/pics/58818411.jpg and /dev/null differ diff --git a/pics/58820853.jpg b/pics/58820853.jpg deleted file mode 100644 index 01037c19..00000000 Binary files a/pics/58820853.jpg and /dev/null differ diff --git a/pics/58820923.jpg b/pics/58820923.jpg deleted file mode 100644 index befdedea..00000000 Binary files a/pics/58820923.jpg and /dev/null differ diff --git a/pics/58831685.jpg b/pics/58831685.jpg deleted file mode 100644 index 87a215e7..00000000 Binary files a/pics/58831685.jpg and /dev/null differ diff --git a/pics/58843503.jpg b/pics/58843503.jpg deleted file mode 100644 index a3a5630b..00000000 Binary files a/pics/58843503.jpg and /dev/null differ diff --git a/pics/58851034.jpg b/pics/58851034.jpg deleted file mode 100644 index 29cf7325..00000000 Binary files a/pics/58851034.jpg and /dev/null differ diff --git a/pics/58859575.jpg b/pics/58859575.jpg deleted file mode 100644 index bd2fdc73..00000000 Binary files a/pics/58859575.jpg and /dev/null differ diff --git a/pics/58861941.jpg b/pics/58861941.jpg deleted file mode 100644 index 402bc775..00000000 Binary files a/pics/58861941.jpg and /dev/null differ diff --git a/pics/58873391.jpg b/pics/58873391.jpg deleted file mode 100644 index a73d141b..00000000 Binary files a/pics/58873391.jpg and /dev/null differ diff --git a/pics/58901502.jpg b/pics/58901502.jpg deleted file mode 100755 index ddd3895e..00000000 Binary files a/pics/58901502.jpg and /dev/null differ diff --git a/pics/58911105.jpg b/pics/58911105.jpg deleted file mode 100644 index e08dc08c..00000000 Binary files a/pics/58911105.jpg and /dev/null differ diff --git a/pics/58921041.jpg b/pics/58921041.jpg deleted file mode 100644 index ccec3322..00000000 Binary files a/pics/58921041.jpg and /dev/null differ diff --git a/pics/58924378.jpg b/pics/58924378.jpg deleted file mode 100644 index c862f6a9..00000000 Binary files a/pics/58924378.jpg and /dev/null differ diff --git a/pics/58932615.jpg b/pics/58932615.jpg deleted file mode 100644 index 49332a77..00000000 Binary files a/pics/58932615.jpg and /dev/null differ diff --git a/pics/58932616.jpg b/pics/58932616.jpg deleted file mode 100644 index 3261494c..00000000 Binary files a/pics/58932616.jpg and /dev/null differ diff --git a/pics/58947797.jpg b/pics/58947797.jpg deleted file mode 100644 index 393565be..00000000 Binary files a/pics/58947797.jpg and /dev/null differ diff --git a/pics/58990362.jpg b/pics/58990362.jpg deleted file mode 100644 index ecea1c07..00000000 Binary files a/pics/58990362.jpg and /dev/null differ diff --git a/pics/58990631.jpg b/pics/58990631.jpg deleted file mode 100644 index c79a90b1..00000000 Binary files a/pics/58990631.jpg and /dev/null differ diff --git a/pics/58996430.jpg b/pics/58996430.jpg deleted file mode 100644 index 088dfdb7..00000000 Binary files a/pics/58996430.jpg and /dev/null differ diff --git a/pics/5901497.jpg b/pics/5901497.jpg deleted file mode 100644 index c866872c..00000000 Binary files a/pics/5901497.jpg and /dev/null differ diff --git a/pics/59019082.jpg b/pics/59019082.jpg deleted file mode 100644 index 02121ef6..00000000 Binary files a/pics/59019082.jpg and /dev/null differ diff --git a/pics/59023523.jpg b/pics/59023523.jpg deleted file mode 100644 index 3cfe5ce9..00000000 Binary files a/pics/59023523.jpg and /dev/null differ diff --git a/pics/59036972.jpg b/pics/59036972.jpg deleted file mode 100644 index b7d104a9..00000000 Binary files a/pics/59036972.jpg and /dev/null differ diff --git a/pics/59042331.jpg b/pics/59042331.jpg deleted file mode 100644 index 142cac66..00000000 Binary files a/pics/59042331.jpg and /dev/null differ diff --git a/pics/59048135.jpg b/pics/59048135.jpg deleted file mode 100644 index 8ef2d599..00000000 Binary files a/pics/59048135.jpg and /dev/null differ diff --git a/pics/59053232.jpg b/pics/59053232.jpg deleted file mode 100644 index 93c42d25..00000000 Binary files a/pics/59053232.jpg and /dev/null differ diff --git a/pics/59057152.jpg b/pics/59057152.jpg deleted file mode 100644 index 8f83b118..00000000 Binary files a/pics/59057152.jpg and /dev/null differ diff --git a/pics/59070329.jpg b/pics/59070329.jpg deleted file mode 100644 index e4611eb0..00000000 Binary files a/pics/59070329.jpg and /dev/null differ diff --git a/pics/5908650.jpg b/pics/5908650.jpg deleted file mode 100644 index 3113d7cd..00000000 Binary files a/pics/5908650.jpg and /dev/null differ diff --git a/pics/59123194.jpg b/pics/59123194.jpg deleted file mode 100755 index c1305a22..00000000 Binary files a/pics/59123194.jpg and /dev/null differ diff --git a/pics/5914184.jpg b/pics/5914184.jpg deleted file mode 100644 index e21792b0..00000000 Binary files a/pics/5914184.jpg and /dev/null differ diff --git a/pics/5915629.jpg b/pics/5915629.jpg deleted file mode 100644 index ac87ec3a..00000000 Binary files a/pics/5915629.jpg and /dev/null differ diff --git a/pics/59156966.jpg b/pics/59156966.jpg deleted file mode 100644 index f75c4c6d..00000000 Binary files a/pics/59156966.jpg and /dev/null differ diff --git a/pics/59170782.jpg b/pics/59170782.jpg deleted file mode 100644 index 5322ad9c..00000000 Binary files a/pics/59170782.jpg and /dev/null differ diff --git a/pics/59197169.jpg b/pics/59197169.jpg deleted file mode 100644 index 0fecb346..00000000 Binary files a/pics/59197169.jpg and /dev/null differ diff --git a/pics/59235795.jpg b/pics/59235795.jpg deleted file mode 100644 index d0e10249..00000000 Binary files a/pics/59235795.jpg and /dev/null differ diff --git a/pics/59237154.jpg b/pics/59237154.jpg deleted file mode 100644 index 253b30b7..00000000 Binary files a/pics/59237154.jpg and /dev/null differ diff --git a/pics/59251766.jpg b/pics/59251766.jpg deleted file mode 100644 index 2666042b..00000000 Binary files a/pics/59251766.jpg and /dev/null differ diff --git a/pics/59255742.jpg b/pics/59255742.jpg deleted file mode 100755 index d6816f30..00000000 Binary files a/pics/59255742.jpg and /dev/null differ diff --git a/pics/59258334.jpg b/pics/59258334.jpg deleted file mode 100644 index 09473464..00000000 Binary files a/pics/59258334.jpg and /dev/null differ diff --git a/pics/59281922.jpg b/pics/59281922.jpg deleted file mode 100644 index 5fa54f89..00000000 Binary files a/pics/59281922.jpg and /dev/null differ diff --git a/pics/59290628.jpg b/pics/59290628.jpg deleted file mode 100644 index 7517da37..00000000 Binary files a/pics/59290628.jpg and /dev/null differ diff --git a/pics/59297550.jpg b/pics/59297550.jpg deleted file mode 100644 index 7ea5dfe6..00000000 Binary files a/pics/59297550.jpg and /dev/null differ diff --git a/pics/5929801.jpg b/pics/5929801.jpg deleted file mode 100755 index d14e5ddc..00000000 Binary files a/pics/5929801.jpg and /dev/null differ diff --git a/pics/59305593.jpg b/pics/59305593.jpg deleted file mode 100644 index a4efe547..00000000 Binary files a/pics/59305593.jpg and /dev/null differ diff --git a/pics/59312550.jpg b/pics/59312550.jpg deleted file mode 100644 index adccc840..00000000 Binary files a/pics/59312550.jpg and /dev/null differ diff --git a/pics/59344077.jpg b/pics/59344077.jpg deleted file mode 100644 index e7cd66b0..00000000 Binary files a/pics/59344077.jpg and /dev/null differ diff --git a/pics/59364406.jpg b/pics/59364406.jpg deleted file mode 100644 index 09234855..00000000 Binary files a/pics/59364406.jpg and /dev/null differ diff --git a/pics/59368956.jpg b/pics/59368956.jpg deleted file mode 100644 index 11e3e39b..00000000 Binary files a/pics/59368956.jpg and /dev/null differ diff --git a/pics/59371387.jpg b/pics/59371387.jpg deleted file mode 100644 index f46922f4..00000000 Binary files a/pics/59371387.jpg and /dev/null differ diff --git a/pics/59380081.jpg b/pics/59380081.jpg deleted file mode 100644 index 4074a592..00000000 Binary files a/pics/59380081.jpg and /dev/null differ diff --git a/pics/59383041.jpg b/pics/59383041.jpg deleted file mode 100644 index bfe9ed83..00000000 Binary files a/pics/59383041.jpg and /dev/null differ diff --git a/pics/59385322.jpg b/pics/59385322.jpg deleted file mode 100644 index f063a1e4..00000000 Binary files a/pics/59385322.jpg and /dev/null differ diff --git a/pics/59388357.jpg b/pics/59388357.jpg deleted file mode 100644 index c32db27e..00000000 Binary files a/pics/59388357.jpg and /dev/null differ diff --git a/pics/59438930.jpg b/pics/59438930.jpg deleted file mode 100644 index eeec18a4..00000000 Binary files a/pics/59438930.jpg and /dev/null differ diff --git a/pics/59463312.jpg b/pics/59463312.jpg deleted file mode 100755 index 503edeb0..00000000 Binary files a/pics/59463312.jpg and /dev/null differ diff --git a/pics/59464593.jpg b/pics/59464593.jpg deleted file mode 100644 index 6e00a6b2..00000000 Binary files a/pics/59464593.jpg and /dev/null differ diff --git a/pics/59482302.jpg b/pics/59482302.jpg deleted file mode 100644 index aad7954e..00000000 Binary files a/pics/59482302.jpg and /dev/null differ diff --git a/pics/59509952.jpg b/pics/59509952.jpg deleted file mode 100644 index 014cc334..00000000 Binary files a/pics/59509952.jpg and /dev/null differ diff --git a/pics/59546528.jpg b/pics/59546528.jpg deleted file mode 100644 index 75b3d354..00000000 Binary files a/pics/59546528.jpg and /dev/null differ diff --git a/pics/59546797.jpg b/pics/59546797.jpg deleted file mode 100644 index 8536b58c..00000000 Binary files a/pics/59546797.jpg and /dev/null differ diff --git a/pics/59560625.jpg b/pics/59560625.jpg deleted file mode 100644 index a9526248..00000000 Binary files a/pics/59560625.jpg and /dev/null differ diff --git a/pics/59563768.jpg b/pics/59563768.jpg deleted file mode 100644 index 43e3cc7e..00000000 Binary files a/pics/59563768.jpg and /dev/null differ diff --git a/pics/59575539.jpg b/pics/59575539.jpg deleted file mode 100644 index f47182a2..00000000 Binary files a/pics/59575539.jpg and /dev/null differ diff --git a/pics/59593925.jpg b/pics/59593925.jpg deleted file mode 100644 index 7809ddb7..00000000 Binary files a/pics/59593925.jpg and /dev/null differ diff --git a/pics/596051.jpg b/pics/596051.jpg deleted file mode 100644 index f86e7f34..00000000 Binary files a/pics/596051.jpg and /dev/null differ diff --git a/pics/59616123.jpg b/pics/59616123.jpg deleted file mode 100644 index 450c1d31..00000000 Binary files a/pics/59616123.jpg and /dev/null differ diff --git a/pics/59627393.jpg b/pics/59627393.jpg deleted file mode 100644 index d29d28ba..00000000 Binary files a/pics/59627393.jpg and /dev/null differ diff --git a/pics/59642500.jpg b/pics/59642500.jpg deleted file mode 100644 index ac6c1426..00000000 Binary files a/pics/59642500.jpg and /dev/null differ diff --git a/pics/59644958.jpg b/pics/59644958.jpg deleted file mode 100644 index f992c398..00000000 Binary files a/pics/59644958.jpg and /dev/null differ diff --git a/pics/59650656.jpg b/pics/59650656.jpg deleted file mode 100644 index 0a2bfa01..00000000 Binary files a/pics/59650656.jpg and /dev/null differ diff --git a/pics/59695933.jpg b/pics/59695933.jpg deleted file mode 100644 index 34b2210a..00000000 Binary files a/pics/59695933.jpg and /dev/null differ diff --git a/pics/59699355.jpg b/pics/59699355.jpg deleted file mode 100644 index 0430acef..00000000 Binary files a/pics/59699355.jpg and /dev/null differ diff --git a/pics/59708927.jpg b/pics/59708927.jpg deleted file mode 100644 index 20b90484..00000000 Binary files a/pics/59708927.jpg and /dev/null differ diff --git a/pics/59718521.jpg b/pics/59718521.jpg deleted file mode 100644 index 71f7180a..00000000 Binary files a/pics/59718521.jpg and /dev/null differ diff --git a/pics/5972394.jpg b/pics/5972394.jpg deleted file mode 100644 index 30488649..00000000 Binary files a/pics/5972394.jpg and /dev/null differ diff --git a/pics/5973663.jpg b/pics/5973663.jpg deleted file mode 100644 index c8f2bc80..00000000 Binary files a/pics/5973663.jpg and /dev/null differ diff --git a/pics/59744639.jpg b/pics/59744639.jpg deleted file mode 100644 index 1aa2ace3..00000000 Binary files a/pics/59744639.jpg and /dev/null differ diff --git a/pics/5975022.jpg b/pics/5975022.jpg deleted file mode 100644 index 81cdcd3a..00000000 Binary files a/pics/5975022.jpg and /dev/null differ diff --git a/pics/59750328.jpg b/pics/59750328.jpg deleted file mode 100755 index 9b3b3f29..00000000 Binary files a/pics/59750328.jpg and /dev/null differ diff --git a/pics/59755122.jpg b/pics/59755122.jpg deleted file mode 100644 index cb46cf83..00000000 Binary files a/pics/59755122.jpg and /dev/null differ diff --git a/pics/59771339.jpg b/pics/59771339.jpg deleted file mode 100644 index 3c5943e5..00000000 Binary files a/pics/59771339.jpg and /dev/null differ diff --git a/pics/59784896.jpg b/pics/59784896.jpg deleted file mode 100644 index 486fc73b..00000000 Binary files a/pics/59784896.jpg and /dev/null differ diff --git a/pics/59785059.jpg b/pics/59785059.jpg deleted file mode 100755 index 6355fcfa..00000000 Binary files a/pics/59785059.jpg and /dev/null differ diff --git a/pics/59793705.jpg b/pics/59793705.jpg deleted file mode 100644 index dea6992c..00000000 Binary files a/pics/59793705.jpg and /dev/null differ diff --git a/pics/59797187.jpg b/pics/59797187.jpg deleted file mode 100644 index 46ab5190..00000000 Binary files a/pics/59797187.jpg and /dev/null differ diff --git a/pics/59808784.jpg b/pics/59808784.jpg deleted file mode 100644 index 1998b245..00000000 Binary files a/pics/59808784.jpg and /dev/null differ diff --git a/pics/59811955.jpg b/pics/59811955.jpg deleted file mode 100644 index 270eabed..00000000 Binary files a/pics/59811955.jpg and /dev/null differ diff --git a/pics/59820352.jpg b/pics/59820352.jpg deleted file mode 100644 index 6430eb03..00000000 Binary files a/pics/59820352.jpg and /dev/null differ diff --git a/pics/59834564.jpg b/pics/59834564.jpg deleted file mode 100644 index 70791c2a..00000000 Binary files a/pics/59834564.jpg and /dev/null differ diff --git a/pics/59839761.jpg b/pics/59839761.jpg deleted file mode 100644 index 399ba471..00000000 Binary files a/pics/59839761.jpg and /dev/null differ diff --git a/pics/598988.jpg b/pics/598988.jpg deleted file mode 100644 index 21ac5b57..00000000 Binary files a/pics/598988.jpg and /dev/null differ diff --git a/pics/5990062.jpg b/pics/5990062.jpg deleted file mode 100644 index 6ef1209c..00000000 Binary files a/pics/5990062.jpg and /dev/null differ diff --git a/pics/59905358.jpg b/pics/59905358.jpg deleted file mode 100644 index f8ed1ed7..00000000 Binary files a/pics/59905358.jpg and /dev/null differ diff --git a/pics/59907935.jpg b/pics/59907935.jpg deleted file mode 100644 index 9f383cb3..00000000 Binary files a/pics/59907935.jpg and /dev/null differ diff --git a/pics/59911557.jpg b/pics/59911557.jpg deleted file mode 100644 index 76fb541f..00000000 Binary files a/pics/59911557.jpg and /dev/null differ diff --git a/pics/59951714.jpg b/pics/59951714.jpg deleted file mode 100644 index 4ccddc4c..00000000 Binary files a/pics/59951714.jpg and /dev/null differ diff --git a/pics/59957503.jpg b/pics/59957503.jpg deleted file mode 100644 index 488baf37..00000000 Binary files a/pics/59957503.jpg and /dev/null differ diff --git a/pics/59965151.jpg b/pics/59965151.jpg deleted file mode 100644 index 780571b5..00000000 Binary files a/pics/59965151.jpg and /dev/null differ diff --git a/pics/59969392.jpg b/pics/59969392.jpg deleted file mode 100644 index 92216c4a..00000000 Binary files a/pics/59969392.jpg and /dev/null differ diff --git a/pics/59975920.jpg b/pics/59975920.jpg deleted file mode 100755 index 3ad4348a..00000000 Binary files a/pics/59975920.jpg and /dev/null differ diff --git a/pics/59983499.jpg b/pics/59983499.jpg deleted file mode 100644 index 9f005cff..00000000 Binary files a/pics/59983499.jpg and /dev/null differ diff --git a/pics/5998840.jpg b/pics/5998840.jpg deleted file mode 100644 index 0f5a0db1..00000000 Binary files a/pics/5998840.jpg and /dev/null differ diff --git a/pics/60004971.jpg b/pics/60004971.jpg deleted file mode 100644 index 634daa3a..00000000 Binary files a/pics/60004971.jpg and /dev/null differ diff --git a/pics/6007213.jpg b/pics/6007213.jpg deleted file mode 100644 index b08df9ce..00000000 Binary files a/pics/6007213.jpg and /dev/null differ diff --git a/pics/60080151.jpg b/pics/60080151.jpg deleted file mode 100644 index fb2441b4..00000000 Binary files a/pics/60080151.jpg and /dev/null differ diff --git a/pics/60082869.jpg b/pics/60082869.jpg deleted file mode 100644 index 6a947702..00000000 Binary files a/pics/60082869.jpg and /dev/null differ diff --git a/pics/60102563.jpg b/pics/60102563.jpg deleted file mode 100644 index 3d307bf7..00000000 Binary files a/pics/60102563.jpg and /dev/null differ diff --git a/pics/601193.jpg b/pics/601193.jpg deleted file mode 100644 index 588aaf9b..00000000 Binary files a/pics/601193.jpg and /dev/null differ diff --git a/pics/60161788.jpg b/pics/60161788.jpg deleted file mode 100644 index ccf9d051..00000000 Binary files a/pics/60161788.jpg and /dev/null differ diff --git a/pics/60181553.jpg b/pics/60181553.jpg deleted file mode 100644 index 8d89a6bb..00000000 Binary files a/pics/60181553.jpg and /dev/null differ diff --git a/pics/60187739.jpg b/pics/60187739.jpg deleted file mode 100644 index ec49b5ef..00000000 Binary files a/pics/60187739.jpg and /dev/null differ diff --git a/pics/60202749.jpg b/pics/60202749.jpg deleted file mode 100644 index 39a2a33e..00000000 Binary files a/pics/60202749.jpg and /dev/null differ diff --git a/pics/6021033.jpg b/pics/6021033.jpg deleted file mode 100644 index 790fbe3c..00000000 Binary files a/pics/6021033.jpg and /dev/null differ diff --git a/pics/60222582.jpg b/pics/60222582.jpg deleted file mode 100644 index 6832fbe4..00000000 Binary files a/pics/60222582.jpg and /dev/null differ diff --git a/pics/60226558.jpg b/pics/60226558.jpg deleted file mode 100644 index b4bae3de..00000000 Binary files a/pics/60226558.jpg and /dev/null differ diff --git a/pics/60228941.jpg b/pics/60228941.jpg deleted file mode 100644 index 614e2181..00000000 Binary files a/pics/60228941.jpg and /dev/null differ diff --git a/pics/60229110.jpg b/pics/60229110.jpg deleted file mode 100644 index 6c82413f..00000000 Binary files a/pics/60229110.jpg and /dev/null differ diff --git a/pics/60234913.jpg b/pics/60234913.jpg deleted file mode 100644 index 122094b1..00000000 Binary files a/pics/60234913.jpg and /dev/null differ diff --git a/pics/60246171.jpg b/pics/60246171.jpg deleted file mode 100644 index 70f47794..00000000 Binary files a/pics/60246171.jpg and /dev/null differ diff --git a/pics/60258960.jpg b/pics/60258960.jpg deleted file mode 100644 index 080381b3..00000000 Binary files a/pics/60258960.jpg and /dev/null differ diff --git a/pics/60306104.jpg b/pics/60306104.jpg deleted file mode 100644 index 7773bc10..00000000 Binary files a/pics/60306104.jpg and /dev/null differ diff --git a/pics/60312997.jpg b/pics/60312997.jpg deleted file mode 100644 index 728cb93d..00000000 Binary files a/pics/60312997.jpg and /dev/null differ diff --git a/pics/60316373.jpg b/pics/60316373.jpg deleted file mode 100644 index f7202860..00000000 Binary files a/pics/60316373.jpg and /dev/null differ diff --git a/pics/60365591.jpg b/pics/60365591.jpg deleted file mode 100644 index 39292c13..00000000 Binary files a/pics/60365591.jpg and /dev/null differ diff --git a/pics/60369732.jpg b/pics/60369732.jpg deleted file mode 100644 index 2417492c..00000000 Binary files a/pics/60369732.jpg and /dev/null differ diff --git a/pics/60391791.jpg b/pics/60391791.jpg deleted file mode 100644 index 00daca45..00000000 Binary files a/pics/60391791.jpg and /dev/null differ diff --git a/pics/60398723.jpg b/pics/60398723.jpg deleted file mode 100644 index d2fee98f..00000000 Binary files a/pics/60398723.jpg and /dev/null differ diff --git a/pics/60399954.jpg b/pics/60399954.jpg deleted file mode 100644 index 9d577a2a..00000000 Binary files a/pics/60399954.jpg and /dev/null differ diff --git a/pics/60406591.jpg b/pics/60406591.jpg deleted file mode 100644 index c18a9052..00000000 Binary files a/pics/60406591.jpg and /dev/null differ diff --git a/pics/60406592.jpg b/pics/60406592.jpg deleted file mode 100644 index a2eed87b..00000000 Binary files a/pics/60406592.jpg and /dev/null differ diff --git a/pics/60410769.jpg b/pics/60410769.jpg deleted file mode 100644 index 4e4229d3..00000000 Binary files a/pics/60410769.jpg and /dev/null differ diff --git a/pics/60417395.jpg b/pics/60417395.jpg deleted file mode 100644 index b1215e94..00000000 Binary files a/pics/60417395.jpg and /dev/null differ diff --git a/pics/60434101.jpg b/pics/60434101.jpg deleted file mode 100644 index 46e61474..00000000 Binary files a/pics/60434101.jpg and /dev/null differ diff --git a/pics/60434189.jpg b/pics/60434189.jpg deleted file mode 100644 index 20c408d4..00000000 Binary files a/pics/60434189.jpg and /dev/null differ diff --git a/pics/60470713.jpg b/pics/60470713.jpg deleted file mode 100644 index 1da6f804..00000000 Binary files a/pics/60470713.jpg and /dev/null differ diff --git a/pics/60482781.jpg b/pics/60482781.jpg deleted file mode 100644 index f6858acc..00000000 Binary files a/pics/60482781.jpg and /dev/null differ diff --git a/pics/60493189.jpg b/pics/60493189.jpg deleted file mode 100644 index ec7080ac..00000000 Binary files a/pics/60493189.jpg and /dev/null differ diff --git a/pics/60519422.jpg b/pics/60519422.jpg deleted file mode 100644 index 50902bf8..00000000 Binary files a/pics/60519422.jpg and /dev/null differ diff --git a/pics/60530944.jpg b/pics/60530944.jpg deleted file mode 100644 index 99fd43bb..00000000 Binary files a/pics/60530944.jpg and /dev/null differ diff --git a/pics/60534585.jpg b/pics/60534585.jpg deleted file mode 100644 index c083760d..00000000 Binary files a/pics/60534585.jpg and /dev/null differ diff --git a/pics/60549248.jpg b/pics/60549248.jpg deleted file mode 100644 index 0025a451..00000000 Binary files a/pics/60549248.jpg and /dev/null differ diff --git a/pics/60551528.jpg b/pics/60551528.jpg deleted file mode 100644 index 5213ebdb..00000000 Binary files a/pics/60551528.jpg and /dev/null differ diff --git a/pics/60577362.jpg b/pics/60577362.jpg deleted file mode 100644 index 34c69297..00000000 Binary files a/pics/60577362.jpg and /dev/null differ diff --git a/pics/60589682.jpg b/pics/60589682.jpg deleted file mode 100644 index 7991a5fb..00000000 Binary files a/pics/60589682.jpg and /dev/null differ diff --git a/pics/60606759.jpg b/pics/60606759.jpg deleted file mode 100644 index a21593f2..00000000 Binary files a/pics/60606759.jpg and /dev/null differ diff --git a/pics/6061630.jpg b/pics/6061630.jpg deleted file mode 100644 index 013fdd3d..00000000 Binary files a/pics/6061630.jpg and /dev/null differ diff --git a/pics/60621361.jpg b/pics/60621361.jpg deleted file mode 100644 index 64aa9112..00000000 Binary files a/pics/60621361.jpg and /dev/null differ diff --git a/pics/60627999.jpg b/pics/60627999.jpg deleted file mode 100644 index 2a02341e..00000000 Binary files a/pics/60627999.jpg and /dev/null differ diff --git a/pics/60634565.jpg b/pics/60634565.jpg deleted file mode 100644 index 5236e555..00000000 Binary files a/pics/60634565.jpg and /dev/null differ diff --git a/pics/60645181.jpg b/pics/60645181.jpg deleted file mode 100644 index c2c0ec70..00000000 Binary files a/pics/60645181.jpg and /dev/null differ diff --git a/pics/60666820.jpg b/pics/60666820.jpg deleted file mode 100644 index b6b66141..00000000 Binary files a/pics/60666820.jpg and /dev/null differ diff --git a/pics/60668166.jpg b/pics/60668166.jpg deleted file mode 100644 index 7ad8d609..00000000 Binary files a/pics/60668166.jpg and /dev/null differ diff --git a/pics/60682203.jpg b/pics/60682203.jpg deleted file mode 100644 index 4d37ffcf..00000000 Binary files a/pics/60682203.jpg and /dev/null differ diff --git a/pics/60694662.jpg b/pics/60694662.jpg deleted file mode 100644 index 9eaf65ea..00000000 Binary files a/pics/60694662.jpg and /dev/null differ diff --git a/pics/60715406.jpg b/pics/60715406.jpg deleted file mode 100644 index 86172c38..00000000 Binary files a/pics/60715406.jpg and /dev/null differ diff --git a/pics/60718396.jpg b/pics/60718396.jpg deleted file mode 100644 index f7b81180..00000000 Binary files a/pics/60718396.jpg and /dev/null differ diff --git a/pics/60728397.jpg b/pics/60728397.jpg deleted file mode 100644 index 37866e0d..00000000 Binary files a/pics/60728397.jpg and /dev/null differ diff --git a/pics/60741115.jpg b/pics/60741115.jpg deleted file mode 100644 index 5c94b65c..00000000 Binary files a/pics/60741115.jpg and /dev/null differ diff --git a/pics/60743819.jpg b/pics/60743819.jpg deleted file mode 100644 index d1e21487..00000000 Binary files a/pics/60743819.jpg and /dev/null differ diff --git a/pics/60764581.jpg b/pics/60764581.jpg deleted file mode 100644 index 814dbd32..00000000 Binary files a/pics/60764581.jpg and /dev/null differ diff --git a/pics/60764582.jpg b/pics/60764582.jpg deleted file mode 100644 index 1eae1804..00000000 Binary files a/pics/60764582.jpg and /dev/null differ diff --git a/pics/60764583.jpg b/pics/60764583.jpg deleted file mode 100644 index 1e8a8225..00000000 Binary files a/pics/60764583.jpg and /dev/null differ diff --git a/pics/6077601.jpg b/pics/6077601.jpg deleted file mode 100644 index fe00841a..00000000 Binary files a/pics/6077601.jpg and /dev/null differ diff --git a/pics/60800381.jpg b/pics/60800381.jpg deleted file mode 100644 index ff10310b..00000000 Binary files a/pics/60800381.jpg and /dev/null differ diff --git a/pics/60802233.jpg b/pics/60802233.jpg deleted file mode 100644 index c710d6ae..00000000 Binary files a/pics/60802233.jpg and /dev/null differ diff --git a/pics/60806437.jpg b/pics/60806437.jpg deleted file mode 100644 index 8c823c11..00000000 Binary files a/pics/60806437.jpg and /dev/null differ diff --git a/pics/60862676.jpg b/pics/60862676.jpg deleted file mode 100644 index ff942f6d..00000000 Binary files a/pics/60862676.jpg and /dev/null differ diff --git a/pics/60866277.jpg b/pics/60866277.jpg deleted file mode 100644 index 6140d2b7..00000000 Binary files a/pics/60866277.jpg and /dev/null differ diff --git a/pics/60876124.jpg b/pics/60876124.jpg deleted file mode 100644 index 45286963..00000000 Binary files a/pics/60876124.jpg and /dev/null differ diff --git a/pics/60879050.jpg b/pics/60879050.jpg deleted file mode 100644 index 1a26b48c..00000000 Binary files a/pics/60879050.jpg and /dev/null differ diff --git a/pics/60912752.jpg b/pics/60912752.jpg deleted file mode 100644 index d7f526e7..00000000 Binary files a/pics/60912752.jpg and /dev/null differ diff --git a/pics/60930169.jpg b/pics/60930169.jpg deleted file mode 100644 index 3feb4618..00000000 Binary files a/pics/60930169.jpg and /dev/null differ diff --git a/pics/60946968.jpg b/pics/60946968.jpg deleted file mode 100644 index 3dd6dc5f..00000000 Binary files a/pics/60946968.jpg and /dev/null differ diff --git a/pics/60950180.jpg b/pics/60950180.jpg deleted file mode 100644 index 41c981e6..00000000 Binary files a/pics/60950180.jpg and /dev/null differ diff --git a/pics/60953118.jpg b/pics/60953118.jpg deleted file mode 100644 index df06ad1d..00000000 Binary files a/pics/60953118.jpg and /dev/null differ diff --git a/pics/60953949.jpg b/pics/60953949.jpg deleted file mode 100644 index b4637094..00000000 Binary files a/pics/60953949.jpg and /dev/null differ diff --git a/pics/60990740.jpg b/pics/60990740.jpg deleted file mode 100644 index 4332990a..00000000 Binary files a/pics/60990740.jpg and /dev/null differ diff --git a/pics/60992105.jpg b/pics/60992105.jpg deleted file mode 100755 index 698a527f..00000000 Binary files a/pics/60992105.jpg and /dev/null differ diff --git a/pics/60992364.jpg b/pics/60992364.jpg deleted file mode 100644 index 5ab0c12e..00000000 Binary files a/pics/60992364.jpg and /dev/null differ diff --git a/pics/60999392.jpg b/pics/60999392.jpg deleted file mode 100644 index 31305079..00000000 Binary files a/pics/60999392.jpg and /dev/null differ diff --git a/pics/61011311.jpg b/pics/61011311.jpg deleted file mode 100644 index c32c1de2..00000000 Binary files a/pics/61011311.jpg and /dev/null differ diff --git a/pics/61019812.jpg b/pics/61019812.jpg deleted file mode 100644 index e4da0919..00000000 Binary files a/pics/61019812.jpg and /dev/null differ diff --git a/pics/6103114.jpg b/pics/6103114.jpg deleted file mode 100644 index dd967582..00000000 Binary files a/pics/6103114.jpg and /dev/null differ diff --git a/pics/61032879.jpg b/pics/61032879.jpg deleted file mode 100644 index 674684cc..00000000 Binary files a/pics/61032879.jpg and /dev/null differ diff --git a/pics/6103294.jpg b/pics/6103294.jpg deleted file mode 100644 index 436823a8..00000000 Binary files a/pics/6103294.jpg and /dev/null differ diff --git a/pics/61044390.jpg b/pics/61044390.jpg deleted file mode 100644 index 0e81e4ee..00000000 Binary files a/pics/61044390.jpg and /dev/null differ diff --git a/pics/61049315.jpg b/pics/61049315.jpg deleted file mode 100644 index f8b7c851..00000000 Binary files a/pics/61049315.jpg and /dev/null differ diff --git a/pics/6104968.jpg b/pics/6104968.jpg deleted file mode 100644 index 17524854..00000000 Binary files a/pics/6104968.jpg and /dev/null differ diff --git a/pics/61068510.jpg b/pics/61068510.jpg deleted file mode 100644 index 4af8dc0f..00000000 Binary files a/pics/61068510.jpg and /dev/null differ diff --git a/pics/6108.jpg b/pics/6108.jpg deleted file mode 100755 index 73136a0d..00000000 Binary files a/pics/6108.jpg and /dev/null differ diff --git a/pics/6111.jpg b/pics/6111.jpg deleted file mode 100644 index 3fa2466e..00000000 Binary files a/pics/6111.jpg and /dev/null differ diff --git a/pics/6112401.jpg b/pics/6112401.jpg deleted file mode 100644 index 7e4be915..00000000 Binary files a/pics/6112401.jpg and /dev/null differ diff --git a/pics/61127349.jpg b/pics/61127349.jpg deleted file mode 100644 index 395770ed..00000000 Binary files a/pics/61127349.jpg and /dev/null differ diff --git a/pics/61132951.jpg b/pics/61132951.jpg deleted file mode 100644 index 02bd26d7..00000000 Binary files a/pics/61132951.jpg and /dev/null differ diff --git a/pics/6114.jpg b/pics/6114.jpg deleted file mode 100755 index 5da18419..00000000 Binary files a/pics/6114.jpg and /dev/null differ diff --git a/pics/6115.jpg b/pics/6115.jpg deleted file mode 100755 index 0c036008..00000000 Binary files a/pics/6115.jpg and /dev/null differ diff --git a/pics/61156777.jpg b/pics/61156777.jpg deleted file mode 100644 index ed29ab7b..00000000 Binary files a/pics/61156777.jpg and /dev/null differ diff --git a/pics/6116.jpg b/pics/6116.jpg deleted file mode 100755 index 4e9d38f5..00000000 Binary files a/pics/6116.jpg and /dev/null differ diff --git a/pics/61166988.jpg b/pics/61166988.jpg deleted file mode 100644 index dbbb774f..00000000 Binary files a/pics/61166988.jpg and /dev/null differ diff --git a/pics/6117.jpg b/pics/6117.jpg deleted file mode 100755 index ef462612..00000000 Binary files a/pics/6117.jpg and /dev/null differ diff --git a/pics/61173621.jpg b/pics/61173621.jpg deleted file mode 100644 index ba994312..00000000 Binary files a/pics/61173621.jpg and /dev/null differ diff --git a/pics/61175706.jpg b/pics/61175706.jpg deleted file mode 100644 index 9a192f17..00000000 Binary files a/pics/61175706.jpg and /dev/null differ diff --git a/pics/61181383.jpg b/pics/61181383.jpg deleted file mode 100644 index c962d2f2..00000000 Binary files a/pics/61181383.jpg and /dev/null differ diff --git a/pics/61190918.jpg b/pics/61190918.jpg deleted file mode 100755 index 6c1e75b8..00000000 Binary files a/pics/61190918.jpg and /dev/null differ diff --git a/pics/61201220.jpg b/pics/61201220.jpg deleted file mode 100644 index 35af9466..00000000 Binary files a/pics/61201220.jpg and /dev/null differ diff --git a/pics/61204971.jpg b/pics/61204971.jpg deleted file mode 100644 index bfe39934..00000000 Binary files a/pics/61204971.jpg and /dev/null differ diff --git a/pics/612115.jpg b/pics/612115.jpg deleted file mode 100644 index 664506f1..00000000 Binary files a/pics/612115.jpg and /dev/null differ diff --git a/pics/61231400.jpg b/pics/61231400.jpg deleted file mode 100644 index 27247515..00000000 Binary files a/pics/61231400.jpg and /dev/null differ diff --git a/pics/61254509.jpg b/pics/61254509.jpg deleted file mode 100644 index c5aaf7aa..00000000 Binary files a/pics/61254509.jpg and /dev/null differ diff --git a/pics/61257789.jpg b/pics/61257789.jpg deleted file mode 100644 index ab0e4335..00000000 Binary files a/pics/61257789.jpg and /dev/null differ diff --git a/pics/61258740.jpg b/pics/61258740.jpg deleted file mode 100644 index ad5e4e13..00000000 Binary files a/pics/61258740.jpg and /dev/null differ diff --git a/pics/61307542.jpg b/pics/61307542.jpg deleted file mode 100755 index fd132d41..00000000 Binary files a/pics/61307542.jpg and /dev/null differ diff --git a/pics/61314842.jpg b/pics/61314842.jpg deleted file mode 100644 index f0bca93f..00000000 Binary files a/pics/61314842.jpg and /dev/null differ diff --git a/pics/61318483.jpg b/pics/61318483.jpg deleted file mode 100644 index 249edd2f..00000000 Binary files a/pics/61318483.jpg and /dev/null differ diff --git a/pics/6133894.jpg b/pics/6133894.jpg deleted file mode 100644 index b362b300..00000000 Binary files a/pics/6133894.jpg and /dev/null differ diff --git a/pics/61344030.jpg b/pics/61344030.jpg deleted file mode 100644 index eaee2673..00000000 Binary files a/pics/61344030.jpg and /dev/null differ diff --git a/pics/61370518.jpg b/pics/61370518.jpg deleted file mode 100644 index 02709a9e..00000000 Binary files a/pics/61370518.jpg and /dev/null differ diff --git a/pics/6137095.jpg b/pics/6137095.jpg deleted file mode 100644 index b25d7391..00000000 Binary files a/pics/6137095.jpg and /dev/null differ diff --git a/pics/61380658.jpg b/pics/61380658.jpg deleted file mode 100644 index 8cef6c92..00000000 Binary files a/pics/61380658.jpg and /dev/null differ diff --git a/pics/61405855.jpg b/pics/61405855.jpg deleted file mode 100644 index 783b7387..00000000 Binary files a/pics/61405855.jpg and /dev/null differ diff --git a/pics/61411502.jpg b/pics/61411502.jpg deleted file mode 100644 index 99f2bd8f..00000000 Binary files a/pics/61411502.jpg and /dev/null differ diff --git a/pics/61420130.jpg b/pics/61420130.jpg deleted file mode 100755 index 8e8e2ec9..00000000 Binary files a/pics/61420130.jpg and /dev/null differ diff --git a/pics/6142213.jpg b/pics/6142213.jpg deleted file mode 100644 index d4cae61d..00000000 Binary files a/pics/6142213.jpg and /dev/null differ diff --git a/pics/6142488.jpg b/pics/6142488.jpg deleted file mode 100755 index bf437be4..00000000 Binary files a/pics/6142488.jpg and /dev/null differ diff --git a/pics/61441708.jpg b/pics/61441708.jpg deleted file mode 100644 index ce04dc89..00000000 Binary files a/pics/61441708.jpg and /dev/null differ diff --git a/pics/61454890.jpg b/pics/61454890.jpg deleted file mode 100644 index fd6c5aa1..00000000 Binary files a/pics/61454890.jpg and /dev/null differ diff --git a/pics/61466310.jpg b/pics/61466310.jpg deleted file mode 100644 index 43de1880..00000000 Binary files a/pics/61466310.jpg and /dev/null differ diff --git a/pics/61468779.jpg b/pics/61468779.jpg deleted file mode 100644 index 1ecc6a63..00000000 Binary files a/pics/61468779.jpg and /dev/null differ diff --git a/pics/6148016.jpg b/pics/6148016.jpg deleted file mode 100644 index 70fba57c..00000000 Binary files a/pics/6148016.jpg and /dev/null differ diff --git a/pics/61488417.jpg b/pics/61488417.jpg deleted file mode 100644 index 0f065161..00000000 Binary files a/pics/61488417.jpg and /dev/null differ diff --git a/pics/6150044.jpg b/pics/6150044.jpg deleted file mode 100644 index 36a0ff7c..00000000 Binary files a/pics/6150044.jpg and /dev/null differ diff --git a/pics/61505339.jpg b/pics/61505339.jpg deleted file mode 100644 index d36b6dc2..00000000 Binary files a/pics/61505339.jpg and /dev/null differ diff --git a/pics/61528025.jpg b/pics/61528025.jpg deleted file mode 100644 index bf4ad844..00000000 Binary files a/pics/61528025.jpg and /dev/null differ diff --git a/pics/61538782.jpg b/pics/61538782.jpg deleted file mode 100644 index fb00726e..00000000 Binary files a/pics/61538782.jpg and /dev/null differ diff --git a/pics/61587183.jpg b/pics/61587183.jpg deleted file mode 100644 index 947a187d..00000000 Binary files a/pics/61587183.jpg and /dev/null differ diff --git a/pics/61592395.jpg b/pics/61592395.jpg deleted file mode 100644 index c47323f6..00000000 Binary files a/pics/61592395.jpg and /dev/null differ diff --git a/pics/61613388.jpg b/pics/61613388.jpg deleted file mode 100644 index 06bc0044..00000000 Binary files a/pics/61613388.jpg and /dev/null differ diff --git a/pics/61622107.jpg b/pics/61622107.jpg deleted file mode 100644 index c2cad1d7..00000000 Binary files a/pics/61622107.jpg and /dev/null differ diff --git a/pics/61623148.jpg b/pics/61623148.jpg deleted file mode 100644 index 1266c00f..00000000 Binary files a/pics/61623148.jpg and /dev/null differ diff --git a/pics/61632317.jpg b/pics/61632317.jpg deleted file mode 100644 index 94055282..00000000 Binary files a/pics/61632317.jpg and /dev/null differ diff --git a/pics/61639289.jpg b/pics/61639289.jpg deleted file mode 100755 index aeea1e9f..00000000 Binary files a/pics/61639289.jpg and /dev/null differ diff --git a/pics/61650133.jpg b/pics/61650133.jpg deleted file mode 100644 index 116c09a7..00000000 Binary files a/pics/61650133.jpg and /dev/null differ diff --git a/pics/6165656.jpg b/pics/6165656.jpg deleted file mode 100644 index 5a58f3bd..00000000 Binary files a/pics/6165656.jpg and /dev/null differ diff --git a/pics/61656650.jpg b/pics/61656650.jpg deleted file mode 100644 index 7d070302..00000000 Binary files a/pics/61656650.jpg and /dev/null differ diff --git a/pics/61679541.jpg b/pics/61679541.jpg deleted file mode 100644 index fcae2476..00000000 Binary files a/pics/61679541.jpg and /dev/null differ diff --git a/pics/61692648.jpg b/pics/61692648.jpg deleted file mode 100644 index efab99bf..00000000 Binary files a/pics/61692648.jpg and /dev/null differ diff --git a/pics/61705417.jpg b/pics/61705417.jpg deleted file mode 100644 index 652379b3..00000000 Binary files a/pics/61705417.jpg and /dev/null differ diff --git a/pics/6172122.jpg b/pics/6172122.jpg deleted file mode 100755 index cf7cc237..00000000 Binary files a/pics/6172122.jpg and /dev/null differ diff --git a/pics/61737116.jpg b/pics/61737116.jpg deleted file mode 100644 index 67863ff9..00000000 Binary files a/pics/61737116.jpg and /dev/null differ diff --git a/pics/61740673.jpg b/pics/61740673.jpg deleted file mode 100644 index 6bb83297..00000000 Binary files a/pics/61740673.jpg and /dev/null differ diff --git a/pics/61757117.jpg b/pics/61757117.jpg deleted file mode 100644 index 74879804..00000000 Binary files a/pics/61757117.jpg and /dev/null differ diff --git a/pics/61777313.jpg b/pics/61777313.jpg deleted file mode 100644 index 9fcd161b..00000000 Binary files a/pics/61777313.jpg and /dev/null differ diff --git a/pics/6178850.jpg b/pics/6178850.jpg deleted file mode 100644 index 104eeb77..00000000 Binary files a/pics/6178850.jpg and /dev/null differ diff --git a/pics/61791132.jpg b/pics/61791132.jpg deleted file mode 100644 index 8d99ea5d..00000000 Binary files a/pics/61791132.jpg and /dev/null differ diff --git a/pics/61802346.jpg b/pics/61802346.jpg deleted file mode 100644 index 195e07fd..00000000 Binary files a/pics/61802346.jpg and /dev/null differ diff --git a/pics/61807040.jpg b/pics/61807040.jpg deleted file mode 100644 index 3e4b9d85..00000000 Binary files a/pics/61807040.jpg and /dev/null differ diff --git a/pics/61831093.jpg b/pics/61831093.jpg deleted file mode 100644 index 0906d5cf..00000000 Binary files a/pics/61831093.jpg and /dev/null differ diff --git a/pics/61840587.jpg b/pics/61840587.jpg deleted file mode 100644 index 1b211d0f..00000000 Binary files a/pics/61840587.jpg and /dev/null differ diff --git a/pics/61844784.jpg b/pics/61844784.jpg deleted file mode 100644 index c9fa1f00..00000000 Binary files a/pics/61844784.jpg and /dev/null differ diff --git a/pics/61850482.jpg b/pics/61850482.jpg deleted file mode 100644 index d314b5f5..00000000 Binary files a/pics/61850482.jpg and /dev/null differ diff --git a/pics/61854111.jpg b/pics/61854111.jpg deleted file mode 100644 index f7af92ea..00000000 Binary files a/pics/61854111.jpg and /dev/null differ diff --git a/pics/61864793.jpg b/pics/61864793.jpg deleted file mode 100644 index 3c2cf8f3..00000000 Binary files a/pics/61864793.jpg and /dev/null differ diff --git a/pics/61901281.jpg b/pics/61901281.jpg deleted file mode 100644 index eff1004a..00000000 Binary files a/pics/61901281.jpg and /dev/null differ diff --git a/pics/61936647.jpg b/pics/61936647.jpg deleted file mode 100755 index 499d874d..00000000 Binary files a/pics/61936647.jpg and /dev/null differ diff --git a/pics/61948106.jpg b/pics/61948106.jpg deleted file mode 100644 index 06d5860e..00000000 Binary files a/pics/61948106.jpg and /dev/null differ diff --git a/pics/61962135.jpg b/pics/61962135.jpg deleted file mode 100644 index 5af3f4a5..00000000 Binary files a/pics/61962135.jpg and /dev/null differ diff --git a/pics/61965407.jpg b/pics/61965407.jpg deleted file mode 100644 index ebf906a5..00000000 Binary files a/pics/61965407.jpg and /dev/null differ diff --git a/pics/61968753.jpg b/pics/61968753.jpg deleted file mode 100644 index 7a1254cf..00000000 Binary files a/pics/61968753.jpg and /dev/null differ diff --git a/pics/62007535.jpg b/pics/62007535.jpg deleted file mode 100644 index bce2eae4..00000000 Binary files a/pics/62007535.jpg and /dev/null differ diff --git a/pics/62017867.jpg b/pics/62017867.jpg deleted file mode 100644 index de111aed..00000000 Binary files a/pics/62017867.jpg and /dev/null differ diff --git a/pics/62023839.jpg b/pics/62023839.jpg deleted file mode 100644 index 7a26531b..00000000 Binary files a/pics/62023839.jpg and /dev/null differ diff --git a/pics/62038047.jpg b/pics/62038047.jpg deleted file mode 100755 index 2294fb4f..00000000 Binary files a/pics/62038047.jpg and /dev/null differ diff --git a/pics/62054060.jpg b/pics/62054060.jpg deleted file mode 100644 index ed611503..00000000 Binary files a/pics/62054060.jpg and /dev/null differ diff --git a/pics/62070231.jpg b/pics/62070231.jpg deleted file mode 100644 index 446764f9..00000000 Binary files a/pics/62070231.jpg and /dev/null differ diff --git a/pics/62107612.jpg b/pics/62107612.jpg deleted file mode 100644 index abb39d4d..00000000 Binary files a/pics/62107612.jpg and /dev/null differ diff --git a/pics/62107981.jpg b/pics/62107981.jpg deleted file mode 100644 index f35d250a..00000000 Binary files a/pics/62107981.jpg and /dev/null differ diff --git a/pics/62113340.jpg b/pics/62113340.jpg deleted file mode 100644 index 14d5ff16..00000000 Binary files a/pics/62113340.jpg and /dev/null differ diff --git a/pics/62121.jpg b/pics/62121.jpg deleted file mode 100644 index c5e613b8..00000000 Binary files a/pics/62121.jpg and /dev/null differ diff --git a/pics/62125438.jpg b/pics/62125438.jpg deleted file mode 100644 index d62347ae..00000000 Binary files a/pics/62125438.jpg and /dev/null differ diff --git a/pics/62125439.jpg b/pics/62125439.jpg deleted file mode 100644 index a3e1ffe2..00000000 Binary files a/pics/62125439.jpg and /dev/null differ diff --git a/pics/6214884.jpg b/pics/6214884.jpg deleted file mode 100644 index 261adedd..00000000 Binary files a/pics/6214884.jpg and /dev/null differ diff --git a/pics/62154416.jpg b/pics/62154416.jpg deleted file mode 100644 index 600da590..00000000 Binary files a/pics/62154416.jpg and /dev/null differ diff --git a/pics/62161698.jpg b/pics/62161698.jpg deleted file mode 100644 index c3f36be9..00000000 Binary files a/pics/62161698.jpg and /dev/null differ diff --git a/pics/62180201.jpg b/pics/62180201.jpg deleted file mode 100644 index f3b1d68b..00000000 Binary files a/pics/62180201.jpg and /dev/null differ diff --git a/pics/62188962.jpg b/pics/62188962.jpg deleted file mode 100644 index 81013e32..00000000 Binary files a/pics/62188962.jpg and /dev/null differ diff --git a/pics/62193699.jpg b/pics/62193699.jpg deleted file mode 100644 index 000b0403..00000000 Binary files a/pics/62193699.jpg and /dev/null differ diff --git a/pics/62210247.jpg b/pics/62210247.jpg deleted file mode 100644 index 18fbb69c..00000000 Binary files a/pics/62210247.jpg and /dev/null differ diff --git a/pics/62242678.jpg b/pics/62242678.jpg deleted file mode 100755 index 7f4fc77b..00000000 Binary files a/pics/62242678.jpg and /dev/null differ diff --git a/pics/62265044.jpg b/pics/62265044.jpg deleted file mode 100644 index 7b986191..00000000 Binary files a/pics/62265044.jpg and /dev/null differ diff --git a/pics/62271284.jpg b/pics/62271284.jpg deleted file mode 100644 index ac49d585..00000000 Binary files a/pics/62271284.jpg and /dev/null differ diff --git a/pics/62279055.jpg b/pics/62279055.jpg deleted file mode 100644 index 13f7aa8e..00000000 Binary files a/pics/62279055.jpg and /dev/null differ diff --git a/pics/62312469.jpg b/pics/62312469.jpg deleted file mode 100755 index 012aacc3..00000000 Binary files a/pics/62312469.jpg and /dev/null differ diff --git a/pics/62315111.jpg b/pics/62315111.jpg deleted file mode 100644 index eec5b3c5..00000000 Binary files a/pics/62315111.jpg and /dev/null differ diff --git a/pics/62325062.jpg b/pics/62325062.jpg deleted file mode 100644 index 4e92630d..00000000 Binary files a/pics/62325062.jpg and /dev/null differ diff --git a/pics/62327910.jpg b/pics/62327910.jpg deleted file mode 100644 index 8dbf0a65..00000000 Binary files a/pics/62327910.jpg and /dev/null differ diff --git a/pics/62337487.jpg b/pics/62337487.jpg deleted file mode 100644 index 8ffa3691..00000000 Binary files a/pics/62337487.jpg and /dev/null differ diff --git a/pics/62340868.jpg b/pics/62340868.jpg deleted file mode 100644 index b6c1e2a2..00000000 Binary files a/pics/62340868.jpg and /dev/null differ diff --git a/pics/62379337.jpg b/pics/62379337.jpg deleted file mode 100644 index e00df837..00000000 Binary files a/pics/62379337.jpg and /dev/null differ diff --git a/pics/62397231.jpg b/pics/62397231.jpg deleted file mode 100644 index a3dc2243..00000000 Binary files a/pics/62397231.jpg and /dev/null differ diff --git a/pics/62403074.jpg b/pics/62403074.jpg deleted file mode 100644 index 9134b075..00000000 Binary files a/pics/62403074.jpg and /dev/null differ diff --git a/pics/62420419.jpg b/pics/62420419.jpg deleted file mode 100644 index 74275cb2..00000000 Binary files a/pics/62420419.jpg and /dev/null differ diff --git a/pics/62434031.jpg b/pics/62434031.jpg deleted file mode 100644 index ee97f379..00000000 Binary files a/pics/62434031.jpg and /dev/null differ diff --git a/pics/62437430.jpg b/pics/62437430.jpg deleted file mode 100644 index 621af105..00000000 Binary files a/pics/62437430.jpg and /dev/null differ diff --git a/pics/62437709.jpg b/pics/62437709.jpg deleted file mode 100644 index 84a2e197..00000000 Binary files a/pics/62437709.jpg and /dev/null differ diff --git a/pics/62472614.jpg b/pics/62472614.jpg deleted file mode 100644 index 6b36d213..00000000 Binary files a/pics/62472614.jpg and /dev/null differ diff --git a/pics/62473983.jpg b/pics/62473983.jpg deleted file mode 100644 index 01258b05..00000000 Binary files a/pics/62473983.jpg and /dev/null differ diff --git a/pics/62476197.jpg b/pics/62476197.jpg deleted file mode 100644 index e1cd1e94..00000000 Binary files a/pics/62476197.jpg and /dev/null differ diff --git a/pics/62476815.jpg b/pics/62476815.jpg deleted file mode 100644 index d99f9aa6..00000000 Binary files a/pics/62476815.jpg and /dev/null differ diff --git a/pics/62499965.jpg b/pics/62499965.jpg deleted file mode 100644 index ca06ebf2..00000000 Binary files a/pics/62499965.jpg and /dev/null differ diff --git a/pics/62514770.jpg b/pics/62514770.jpg deleted file mode 100644 index dda3c278..00000000 Binary files a/pics/62514770.jpg and /dev/null differ diff --git a/pics/62541668.jpg b/pics/62541668.jpg deleted file mode 100755 index 8a6f32ca..00000000 Binary files a/pics/62541668.jpg and /dev/null differ diff --git a/pics/62543393.jpg b/pics/62543393.jpg deleted file mode 100644 index 35639da1..00000000 Binary files a/pics/62543393.jpg and /dev/null differ diff --git a/pics/62543394.jpg b/pics/62543394.jpg deleted file mode 100644 index e2fb4a9e..00000000 Binary files a/pics/62543394.jpg and /dev/null differ diff --git a/pics/62560742.jpg b/pics/62560742.jpg deleted file mode 100644 index 7a55140c..00000000 Binary files a/pics/62560742.jpg and /dev/null differ diff --git a/pics/6256844.jpg b/pics/6256844.jpg deleted file mode 100644 index a0df42d0..00000000 Binary files a/pics/6256844.jpg and /dev/null differ diff --git a/pics/6260554.jpg b/pics/6260554.jpg deleted file mode 100644 index ee3155e4..00000000 Binary files a/pics/6260554.jpg and /dev/null differ diff --git a/pics/62624486.jpg b/pics/62624486.jpg deleted file mode 100644 index 8f2921ce..00000000 Binary files a/pics/62624486.jpg and /dev/null differ diff --git a/pics/62633180.jpg b/pics/62633180.jpg deleted file mode 100644 index a7dd2850..00000000 Binary files a/pics/62633180.jpg and /dev/null differ diff --git a/pics/62651957.jpg b/pics/62651957.jpg deleted file mode 100644 index abd58723..00000000 Binary files a/pics/62651957.jpg and /dev/null differ diff --git a/pics/62671448.jpg b/pics/62671448.jpg deleted file mode 100644 index 43e0d85e..00000000 Binary files a/pics/62671448.jpg and /dev/null differ diff --git a/pics/62681049.jpg b/pics/62681049.jpg deleted file mode 100644 index 624c9c8e..00000000 Binary files a/pics/62681049.jpg and /dev/null differ diff --git a/pics/62701967.jpg b/pics/62701967.jpg deleted file mode 100644 index b1a04105..00000000 Binary files a/pics/62701967.jpg and /dev/null differ diff --git a/pics/62709239.jpg b/pics/62709239.jpg deleted file mode 100755 index 4c1a2ab2..00000000 Binary files a/pics/62709239.jpg and /dev/null differ diff --git a/pics/62729173.jpg b/pics/62729173.jpg deleted file mode 100644 index 8d5a7c5f..00000000 Binary files a/pics/62729173.jpg and /dev/null differ diff --git a/pics/62742651.jpg b/pics/62742651.jpg deleted file mode 100644 index bbf4f7f5..00000000 Binary files a/pics/62742651.jpg and /dev/null differ diff --git a/pics/62762898.jpg b/pics/62762898.jpg deleted file mode 100644 index a4f9a559..00000000 Binary files a/pics/62762898.jpg and /dev/null differ diff --git a/pics/6276588.jpg b/pics/6276588.jpg deleted file mode 100644 index 0c85a740..00000000 Binary files a/pics/6276588.jpg and /dev/null differ diff --git a/pics/62782218.jpg b/pics/62782218.jpg deleted file mode 100644 index 983f1eb7..00000000 Binary files a/pics/62782218.jpg and /dev/null differ diff --git a/pics/62784717.jpg b/pics/62784717.jpg deleted file mode 100644 index 2e4d57e3..00000000 Binary files a/pics/62784717.jpg and /dev/null differ diff --git a/pics/62793020.jpg b/pics/62793020.jpg deleted file mode 100644 index 3e962ee5..00000000 Binary files a/pics/62793020.jpg and /dev/null differ diff --git a/pics/62829077.jpg b/pics/62829077.jpg deleted file mode 100755 index d97f11b6..00000000 Binary files a/pics/62829077.jpg and /dev/null differ diff --git a/pics/62835876.jpg b/pics/62835876.jpg deleted file mode 100644 index 4cc03804..00000000 Binary files a/pics/62835876.jpg and /dev/null differ diff --git a/pics/6285791.jpg b/pics/6285791.jpg deleted file mode 100644 index 5c4681bc..00000000 Binary files a/pics/6285791.jpg and /dev/null differ diff --git a/pics/62867251.jpg b/pics/62867251.jpg deleted file mode 100644 index 88385ef0..00000000 Binary files a/pics/62867251.jpg and /dev/null differ diff --git a/pics/62868900.jpg b/pics/62868900.jpg deleted file mode 100644 index 96735900..00000000 Binary files a/pics/62868900.jpg and /dev/null differ diff --git a/pics/62873545.jpg b/pics/62873545.jpg deleted file mode 100644 index 39552aba..00000000 Binary files a/pics/62873545.jpg and /dev/null differ diff --git a/pics/62878208.jpg b/pics/62878208.jpg deleted file mode 100644 index fe1c583e..00000000 Binary files a/pics/62878208.jpg and /dev/null differ diff --git a/pics/62892347.jpg b/pics/62892347.jpg deleted file mode 100644 index ed91c15e..00000000 Binary files a/pics/62892347.jpg and /dev/null differ diff --git a/pics/62895219.jpg b/pics/62895219.jpg deleted file mode 100644 index 4807cc4b..00000000 Binary files a/pics/62895219.jpg and /dev/null differ diff --git a/pics/62896588.jpg b/pics/62896588.jpg deleted file mode 100644 index 99ec3aeb..00000000 Binary files a/pics/62896588.jpg and /dev/null differ diff --git a/pics/62950604.jpg b/pics/62950604.jpg deleted file mode 100644 index 7bc0a695..00000000 Binary files a/pics/62950604.jpg and /dev/null differ diff --git a/pics/62953041.jpg b/pics/62953041.jpg deleted file mode 100644 index a7dd0bea..00000000 Binary files a/pics/62953041.jpg and /dev/null differ diff --git a/pics/62957424.jpg b/pics/62957424.jpg deleted file mode 100644 index 75edd370..00000000 Binary files a/pics/62957424.jpg and /dev/null differ diff --git a/pics/62966332.jpg b/pics/62966332.jpg deleted file mode 100644 index 22523fc3..00000000 Binary files a/pics/62966332.jpg and /dev/null differ diff --git a/pics/6297941.jpg b/pics/6297941.jpg deleted file mode 100644 index 9e3b5f66..00000000 Binary files a/pics/6297941.jpg and /dev/null differ diff --git a/pics/62980542.jpg b/pics/62980542.jpg deleted file mode 100644 index 1c0cd6fc..00000000 Binary files a/pics/62980542.jpg and /dev/null differ diff --git a/pics/62991886.jpg b/pics/62991886.jpg deleted file mode 100644 index d7c13c56..00000000 Binary files a/pics/62991886.jpg and /dev/null differ diff --git a/pics/63012333.jpg b/pics/63012333.jpg deleted file mode 100644 index 012b8f41..00000000 Binary files a/pics/63012333.jpg and /dev/null differ diff --git a/pics/63014935.jpg b/pics/63014935.jpg deleted file mode 100644 index 88e471fa..00000000 Binary files a/pics/63014935.jpg and /dev/null differ diff --git a/pics/63018036.jpg b/pics/63018036.jpg deleted file mode 100644 index 17d75ac4..00000000 Binary files a/pics/63018036.jpg and /dev/null differ diff --git a/pics/63018132.jpg b/pics/63018132.jpg deleted file mode 100644 index 8395aec7..00000000 Binary files a/pics/63018132.jpg and /dev/null differ diff --git a/pics/63035430.jpg b/pics/63035430.jpg deleted file mode 100644 index 6b00f2cd..00000000 Binary files a/pics/63035430.jpg and /dev/null differ diff --git a/pics/63049052.jpg b/pics/63049052.jpg deleted file mode 100644 index 0545c0bc..00000000 Binary files a/pics/63049052.jpg and /dev/null differ diff --git a/pics/63060238.jpg b/pics/63060238.jpg deleted file mode 100644 index 5f9d04c2..00000000 Binary files a/pics/63060238.jpg and /dev/null differ diff --git a/pics/63101919.jpg b/pics/63101919.jpg deleted file mode 100644 index a820f15b..00000000 Binary files a/pics/63101919.jpg and /dev/null differ diff --git a/pics/63102017.jpg b/pics/63102017.jpg deleted file mode 100644 index ab9f1987..00000000 Binary files a/pics/63102017.jpg and /dev/null differ diff --git a/pics/63120904.jpg b/pics/63120904.jpg deleted file mode 100644 index 98ae42ad..00000000 Binary files a/pics/63120904.jpg and /dev/null differ diff --git a/pics/63125616.jpg b/pics/63125616.jpg deleted file mode 100644 index cc9e8c33..00000000 Binary files a/pics/63125616.jpg and /dev/null differ diff --git a/pics/6313.jpg b/pics/6313.jpg deleted file mode 100755 index 36be90d8..00000000 Binary files a/pics/6313.jpg and /dev/null differ diff --git a/pics/63142001.jpg b/pics/63142001.jpg deleted file mode 100644 index 7823d4f9..00000000 Binary files a/pics/63142001.jpg and /dev/null differ diff --git a/pics/63162310.jpg b/pics/63162310.jpg deleted file mode 100644 index 8313f6e3..00000000 Binary files a/pics/63162310.jpg and /dev/null differ diff --git a/pics/6317.jpg b/pics/6317.jpg deleted file mode 100755 index 9858a642..00000000 Binary files a/pics/6317.jpg and /dev/null differ diff --git a/pics/63175639.jpg b/pics/63175639.jpg deleted file mode 100644 index 8096b2ae..00000000 Binary files a/pics/63175639.jpg and /dev/null differ diff --git a/pics/63176202.jpg b/pics/63176202.jpg deleted file mode 100644 index c3e4647e..00000000 Binary files a/pics/63176202.jpg and /dev/null differ diff --git a/pics/63193536.jpg b/pics/63193536.jpg deleted file mode 100644 index 36b0515f..00000000 Binary files a/pics/63193536.jpg and /dev/null differ diff --git a/pics/63193879.jpg b/pics/63193879.jpg deleted file mode 100644 index 491af9c1..00000000 Binary files a/pics/63193879.jpg and /dev/null differ diff --git a/pics/6320631.jpg b/pics/6320631.jpg deleted file mode 100644 index 899ee4c9..00000000 Binary files a/pics/6320631.jpg and /dev/null differ diff --git a/pics/63211608.jpg b/pics/63211608.jpg deleted file mode 100644 index 731f0ae7..00000000 Binary files a/pics/63211608.jpg and /dev/null differ diff --git a/pics/63223260.jpg b/pics/63223260.jpg deleted file mode 100644 index d9c0de64..00000000 Binary files a/pics/63223260.jpg and /dev/null differ diff --git a/pics/63223467.jpg b/pics/63223467.jpg deleted file mode 100644 index b0556e9d..00000000 Binary files a/pics/63223467.jpg and /dev/null differ diff --git a/pics/63224564.jpg b/pics/63224564.jpg deleted file mode 100644 index 6fe4f7b3..00000000 Binary files a/pics/63224564.jpg and /dev/null differ diff --git a/pics/63227401.jpg b/pics/63227401.jpg deleted file mode 100644 index 4d5b02f9..00000000 Binary files a/pics/63227401.jpg and /dev/null differ diff --git a/pics/63251695.jpg b/pics/63251695.jpg deleted file mode 100755 index 8ee9a61a..00000000 Binary files a/pics/63251695.jpg and /dev/null differ diff --git a/pics/63253763.jpg b/pics/63253763.jpg deleted file mode 100644 index f6bc2b69..00000000 Binary files a/pics/63253763.jpg and /dev/null differ diff --git a/pics/63257623.jpg b/pics/63257623.jpg deleted file mode 100644 index 85b6c189..00000000 Binary files a/pics/63257623.jpg and /dev/null differ diff --git a/pics/63259351.jpg b/pics/63259351.jpg deleted file mode 100644 index ef106885..00000000 Binary files a/pics/63259351.jpg and /dev/null differ diff --git a/pics/63274863.jpg b/pics/63274863.jpg deleted file mode 100644 index 8debac58..00000000 Binary files a/pics/63274863.jpg and /dev/null differ diff --git a/pics/63300440.jpg b/pics/63300440.jpg deleted file mode 100644 index 327f102b..00000000 Binary files a/pics/63300440.jpg and /dev/null differ diff --git a/pics/6330307.jpg b/pics/6330307.jpg deleted file mode 100644 index abae9099..00000000 Binary files a/pics/6330307.jpg and /dev/null differ diff --git a/pics/63308047.jpg b/pics/63308047.jpg deleted file mode 100644 index c36123b2..00000000 Binary files a/pics/63308047.jpg and /dev/null differ diff --git a/pics/63323539.jpg b/pics/63323539.jpg deleted file mode 100644 index 020e0320..00000000 Binary files a/pics/63323539.jpg and /dev/null differ diff --git a/pics/63356631.jpg b/pics/63356631.jpg deleted file mode 100644 index 48204e91..00000000 Binary files a/pics/63356631.jpg and /dev/null differ diff --git a/pics/63364266.jpg b/pics/63364266.jpg deleted file mode 100755 index b826a682..00000000 Binary files a/pics/63364266.jpg and /dev/null differ diff --git a/pics/6337436.jpg b/pics/6337436.jpg deleted file mode 100644 index 7f88c3b4..00000000 Binary files a/pics/6337436.jpg and /dev/null differ diff --git a/pics/63391643.jpg b/pics/63391643.jpg deleted file mode 100644 index 9d8a39c8..00000000 Binary files a/pics/63391643.jpg and /dev/null differ diff --git a/pics/63394872.jpg b/pics/63394872.jpg deleted file mode 100644 index 8695ba2d..00000000 Binary files a/pics/63394872.jpg and /dev/null differ diff --git a/pics/63422098.jpg b/pics/63422098.jpg deleted file mode 100644 index 3c68fce8..00000000 Binary files a/pics/63422098.jpg and /dev/null differ diff --git a/pics/63432835.jpg b/pics/63432835.jpg deleted file mode 100644 index 0d5ef9e4..00000000 Binary files a/pics/63432835.jpg and /dev/null differ diff --git a/pics/6343408.jpg b/pics/6343408.jpg deleted file mode 100644 index 9a7e54ff..00000000 Binary files a/pics/6343408.jpg and /dev/null differ diff --git a/pics/63442604.jpg b/pics/63442604.jpg deleted file mode 100644 index ea62b7c2..00000000 Binary files a/pics/63442604.jpg and /dev/null differ diff --git a/pics/63442605.jpg b/pics/63442605.jpg deleted file mode 100644 index d9b0df02..00000000 Binary files a/pics/63442605.jpg and /dev/null differ diff --git a/pics/63465535.jpg b/pics/63465535.jpg deleted file mode 100644 index 4e039038..00000000 Binary files a/pics/63465535.jpg and /dev/null differ diff --git a/pics/63468625.jpg b/pics/63468625.jpg deleted file mode 100644 index b19999eb..00000000 Binary files a/pics/63468625.jpg and /dev/null differ diff --git a/pics/63477921.jpg b/pics/63477921.jpg deleted file mode 100644 index a01daf77..00000000 Binary files a/pics/63477921.jpg and /dev/null differ diff --git a/pics/63485233.jpg b/pics/63485233.jpg deleted file mode 100644 index 279b1d67..00000000 Binary files a/pics/63485233.jpg and /dev/null differ diff --git a/pics/63487632.jpg b/pics/63487632.jpg deleted file mode 100644 index 4865f15d..00000000 Binary files a/pics/63487632.jpg and /dev/null differ diff --git a/pics/63504681.jpg b/pics/63504681.jpg deleted file mode 100644 index 97aa4c39..00000000 Binary files a/pics/63504681.jpg and /dev/null differ diff --git a/pics/6351548.jpg b/pics/6351548.jpg deleted file mode 100644 index 937f9ab8..00000000 Binary files a/pics/6351548.jpg and /dev/null differ diff --git a/pics/63515678.jpg b/pics/63515678.jpg deleted file mode 100644 index c5cfdaf3..00000000 Binary files a/pics/63515678.jpg and /dev/null differ diff --git a/pics/63516460.jpg b/pics/63516460.jpg deleted file mode 100644 index ad71d413..00000000 Binary files a/pics/63516460.jpg and /dev/null differ diff --git a/pics/63519819.jpg b/pics/63519819.jpg deleted file mode 100644 index d945fe74..00000000 Binary files a/pics/63519819.jpg and /dev/null differ diff --git a/pics/6353603.jpg b/pics/6353603.jpg deleted file mode 100644 index 4d00bc7a..00000000 Binary files a/pics/6353603.jpg and /dev/null differ diff --git a/pics/63545455.jpg b/pics/63545455.jpg deleted file mode 100644 index 76fa0cbe..00000000 Binary files a/pics/63545455.jpg and /dev/null differ diff --git a/pics/63545861.jpg b/pics/63545861.jpg deleted file mode 100644 index 0905bff1..00000000 Binary files a/pics/63545861.jpg and /dev/null differ diff --git a/pics/63571750.jpg b/pics/63571750.jpg deleted file mode 100644 index a8ab4ee2..00000000 Binary files a/pics/63571750.jpg and /dev/null differ diff --git a/pics/63583431.jpg b/pics/63583431.jpg deleted file mode 100644 index fda96342..00000000 Binary files a/pics/63583431.jpg and /dev/null differ diff --git a/pics/63595262.jpg b/pics/63595262.jpg deleted file mode 100644 index 483317e0..00000000 Binary files a/pics/63595262.jpg and /dev/null differ diff --git a/pics/63612442.jpg b/pics/63612442.jpg deleted file mode 100644 index c7a0a4d0..00000000 Binary files a/pics/63612442.jpg and /dev/null differ diff --git a/pics/63630268.jpg b/pics/63630268.jpg deleted file mode 100644 index a7c367f1..00000000 Binary files a/pics/63630268.jpg and /dev/null differ diff --git a/pics/63665606.jpg b/pics/63665606.jpg deleted file mode 100644 index b4ea9a3c..00000000 Binary files a/pics/63665606.jpg and /dev/null differ diff --git a/pics/63665875.jpg b/pics/63665875.jpg deleted file mode 100644 index 819a423e..00000000 Binary files a/pics/63665875.jpg and /dev/null differ diff --git a/pics/63676256.jpg b/pics/63676256.jpg deleted file mode 100644 index ce1b4a35..00000000 Binary files a/pics/63676256.jpg and /dev/null differ diff --git a/pics/6367785.jpg b/pics/6367785.jpg deleted file mode 100644 index 25736173..00000000 Binary files a/pics/6367785.jpg and /dev/null differ diff --git a/pics/6368038.jpg b/pics/6368038.jpg deleted file mode 100644 index 638f40d6..00000000 Binary files a/pics/6368038.jpg and /dev/null differ diff --git a/pics/6368039.jpg b/pics/6368039.jpg deleted file mode 100644 index 3d59f98c..00000000 Binary files a/pics/6368039.jpg and /dev/null differ diff --git a/pics/63689843.jpg b/pics/63689843.jpg deleted file mode 100644 index 0aff53e3..00000000 Binary files a/pics/63689843.jpg and /dev/null differ diff --git a/pics/63695531.jpg b/pics/63695531.jpg deleted file mode 100644 index 59e60493..00000000 Binary files a/pics/63695531.jpg and /dev/null differ diff --git a/pics/63703130.jpg b/pics/63703130.jpg deleted file mode 100644 index 7af7de26..00000000 Binary files a/pics/63703130.jpg and /dev/null differ diff --git a/pics/63730624.jpg b/pics/63730624.jpg deleted file mode 100644 index 85dcc236..00000000 Binary files a/pics/63730624.jpg and /dev/null differ diff --git a/pics/63741331.jpg b/pics/63741331.jpg deleted file mode 100644 index edcb7f95..00000000 Binary files a/pics/63741331.jpg and /dev/null differ diff --git a/pics/63746411.jpg b/pics/63746411.jpg deleted file mode 100644 index aaa7a1da..00000000 Binary files a/pics/63746411.jpg and /dev/null differ diff --git a/pics/63749102.jpg b/pics/63749102.jpg deleted file mode 100644 index 4677947c..00000000 Binary files a/pics/63749102.jpg and /dev/null differ diff --git a/pics/63767246.jpg b/pics/63767246.jpg deleted file mode 100755 index afa6e7ad..00000000 Binary files a/pics/63767246.jpg and /dev/null differ diff --git a/pics/63789924.jpg b/pics/63789924.jpg deleted file mode 100644 index 002d90d0..00000000 Binary files a/pics/63789924.jpg and /dev/null differ diff --git a/pics/63804637.jpg b/pics/63804637.jpg deleted file mode 100644 index 48df74b0..00000000 Binary files a/pics/63804637.jpg and /dev/null differ diff --git a/pics/63804806.jpg b/pics/63804806.jpg deleted file mode 100644 index f4b76af2..00000000 Binary files a/pics/63804806.jpg and /dev/null differ diff --git a/pics/63806265.jpg b/pics/63806265.jpg deleted file mode 100644 index 60aa2641..00000000 Binary files a/pics/63806265.jpg and /dev/null differ diff --git a/pics/63821877.jpg b/pics/63821877.jpg deleted file mode 100755 index 7d3adc73..00000000 Binary files a/pics/63821877.jpg and /dev/null differ diff --git a/pics/63851864.jpg b/pics/63851864.jpg deleted file mode 100644 index 8c29e8e4..00000000 Binary files a/pics/63851864.jpg and /dev/null differ diff --git a/pics/6387204.jpg b/pics/6387204.jpg deleted file mode 100644 index 6620a134..00000000 Binary files a/pics/6387204.jpg and /dev/null differ diff --git a/pics/63881033.jpg b/pics/63881033.jpg deleted file mode 100644 index 149d30b5..00000000 Binary files a/pics/63881033.jpg and /dev/null differ diff --git a/pics/63883999.jpg b/pics/63883999.jpg deleted file mode 100644 index 0d572751..00000000 Binary files a/pics/63883999.jpg and /dev/null differ diff --git a/pics/6390406.jpg b/pics/6390406.jpg deleted file mode 100644 index 50ef094c..00000000 Binary files a/pics/6390406.jpg and /dev/null differ diff --git a/pics/63941210.jpg b/pics/63941210.jpg deleted file mode 100755 index 23154035..00000000 Binary files a/pics/63941210.jpg and /dev/null differ diff --git a/pics/63942761.jpg b/pics/63942761.jpg deleted file mode 100644 index dd0de2db..00000000 Binary files a/pics/63942761.jpg and /dev/null differ diff --git a/pics/63948258.jpg b/pics/63948258.jpg deleted file mode 100644 index 3d49f4ea..00000000 Binary files a/pics/63948258.jpg and /dev/null differ diff --git a/pics/6395.jpg b/pics/6395.jpg deleted file mode 100755 index 42eef4e9..00000000 Binary files a/pics/6395.jpg and /dev/null differ diff --git a/pics/6396.jpg b/pics/6396.jpg deleted file mode 100755 index 45197596..00000000 Binary files a/pics/6396.jpg and /dev/null differ diff --git a/pics/6397.jpg b/pics/6397.jpg deleted file mode 100755 index 99a9e9ef..00000000 Binary files a/pics/6397.jpg and /dev/null differ diff --git a/pics/63977008.jpg b/pics/63977008.jpg deleted file mode 100644 index 36207483..00000000 Binary files a/pics/63977008.jpg and /dev/null differ diff --git a/pics/6398.jpg b/pics/6398.jpg deleted file mode 100755 index d40314a5..00000000 Binary files a/pics/6398.jpg and /dev/null differ diff --git a/pics/6399.jpg b/pics/6399.jpg deleted file mode 100755 index 6d561cd0..00000000 Binary files a/pics/6399.jpg and /dev/null differ diff --git a/pics/63995093.jpg b/pics/63995093.jpg deleted file mode 100644 index 9e9e192c..00000000 Binary files a/pics/63995093.jpg and /dev/null differ diff --git a/pics/6400512.jpg b/pics/6400512.jpg deleted file mode 100644 index 4df2fc71..00000000 Binary files a/pics/6400512.jpg and /dev/null differ diff --git a/pics/6401.jpg b/pics/6401.jpg deleted file mode 100755 index b547c6b5..00000000 Binary files a/pics/6401.jpg and /dev/null differ diff --git a/pics/6402.jpg b/pics/6402.jpg deleted file mode 100755 index d5b575c4..00000000 Binary files a/pics/6402.jpg and /dev/null differ diff --git a/pics/6403.jpg b/pics/6403.jpg deleted file mode 100755 index 7b9878eb..00000000 Binary files a/pics/6403.jpg and /dev/null differ diff --git a/pics/64034255.jpg b/pics/64034255.jpg deleted file mode 100644 index 6cc3ef1a..00000000 Binary files a/pics/64034255.jpg and /dev/null differ diff --git a/pics/64038662.jpg b/pics/64038662.jpg deleted file mode 100644 index f5c4c7fd..00000000 Binary files a/pics/64038662.jpg and /dev/null differ diff --git a/pics/6404.jpg b/pics/6404.jpg deleted file mode 100755 index 2b42361a..00000000 Binary files a/pics/6404.jpg and /dev/null differ diff --git a/pics/64043465.jpg b/pics/64043465.jpg deleted file mode 100755 index 4cfe60e2..00000000 Binary files a/pics/64043465.jpg and /dev/null differ diff --git a/pics/64047146.jpg b/pics/64047146.jpg deleted file mode 100644 index a5036af0..00000000 Binary files a/pics/64047146.jpg and /dev/null differ diff --git a/pics/6405.jpg b/pics/6405.jpg deleted file mode 100755 index d7b94fb0..00000000 Binary files a/pics/6405.jpg and /dev/null differ diff --git a/pics/6406.jpg b/pics/6406.jpg deleted file mode 100644 index 6af341c9..00000000 Binary files a/pics/6406.jpg and /dev/null differ diff --git a/pics/6407.jpg b/pics/6407.jpg deleted file mode 100644 index 904263f2..00000000 Binary files a/pics/6407.jpg and /dev/null differ diff --git a/pics/6408.jpg b/pics/6408.jpg deleted file mode 100755 index bc024046..00000000 Binary files a/pics/6408.jpg and /dev/null differ diff --git a/pics/6410.jpg b/pics/6410.jpg deleted file mode 100755 index 0ea2803b..00000000 Binary files a/pics/6410.jpg and /dev/null differ diff --git a/pics/64107820.jpg b/pics/64107820.jpg deleted file mode 100644 index 7b3e0dc4..00000000 Binary files a/pics/64107820.jpg and /dev/null differ diff --git a/pics/6411.jpg b/pics/6411.jpg deleted file mode 100755 index 5eb1291f..00000000 Binary files a/pics/6411.jpg and /dev/null differ diff --git a/pics/6412.jpg b/pics/6412.jpg deleted file mode 100755 index 5757fd52..00000000 Binary files a/pics/6412.jpg and /dev/null differ diff --git a/pics/6413.jpg b/pics/6413.jpg deleted file mode 100644 index e10f979c..00000000 Binary files a/pics/6413.jpg and /dev/null differ diff --git a/pics/6414.jpg b/pics/6414.jpg deleted file mode 100644 index d0d573ac..00000000 Binary files a/pics/6414.jpg and /dev/null differ diff --git a/pics/64145892.jpg b/pics/64145892.jpg deleted file mode 100644 index 30b91323..00000000 Binary files a/pics/64145892.jpg and /dev/null differ diff --git a/pics/6415.jpg b/pics/6415.jpg deleted file mode 100644 index 84ba1aba..00000000 Binary files a/pics/6415.jpg and /dev/null differ diff --git a/pics/64154377.jpg b/pics/64154377.jpg deleted file mode 100644 index c03ee9fc..00000000 Binary files a/pics/64154377.jpg and /dev/null differ diff --git a/pics/6416.jpg b/pics/6416.jpg deleted file mode 100755 index 5d4a8d96..00000000 Binary files a/pics/6416.jpg and /dev/null differ diff --git a/pics/64160836.jpg b/pics/64160836.jpg deleted file mode 100644 index 4ebe8de4..00000000 Binary files a/pics/64160836.jpg and /dev/null differ diff --git a/pics/64161630.jpg b/pics/64161630.jpg deleted file mode 100644 index 26def915..00000000 Binary files a/pics/64161630.jpg and /dev/null differ diff --git a/pics/64163367.jpg b/pics/64163367.jpg deleted file mode 100644 index 7690dcea..00000000 Binary files a/pics/64163367.jpg and /dev/null differ diff --git a/pics/6417.jpg b/pics/6417.jpg deleted file mode 100755 index 514e5249..00000000 Binary files a/pics/6417.jpg and /dev/null differ diff --git a/pics/6417578.jpg b/pics/6417578.jpg deleted file mode 100644 index 125fbe8b..00000000 Binary files a/pics/6417578.jpg and /dev/null differ diff --git a/pics/6418.jpg b/pics/6418.jpg deleted file mode 100755 index e410546b..00000000 Binary files a/pics/6418.jpg and /dev/null differ diff --git a/pics/64187086.jpg b/pics/64187086.jpg deleted file mode 100644 index 6639f67e..00000000 Binary files a/pics/64187086.jpg and /dev/null differ diff --git a/pics/6419.jpg b/pics/6419.jpg deleted file mode 100755 index 490def0d..00000000 Binary files a/pics/6419.jpg and /dev/null differ diff --git a/pics/64203620.jpg b/pics/64203620.jpg deleted file mode 100644 index 84515e45..00000000 Binary files a/pics/64203620.jpg and /dev/null differ diff --git a/pics/6422.jpg b/pics/6422.jpg deleted file mode 100644 index 49968e9d..00000000 Binary files a/pics/6422.jpg and /dev/null differ diff --git a/pics/64238008.jpg b/pics/64238008.jpg deleted file mode 100644 index b901c822..00000000 Binary files a/pics/64238008.jpg and /dev/null differ diff --git a/pics/64245689.jpg b/pics/64245689.jpg deleted file mode 100644 index 374c070a..00000000 Binary files a/pics/64245689.jpg and /dev/null differ diff --git a/pics/6425.jpg b/pics/6425.jpg deleted file mode 100644 index 2c0dad6f..00000000 Binary files a/pics/6425.jpg and /dev/null differ diff --git a/pics/64262809.jpg b/pics/64262809.jpg deleted file mode 100644 index a704f564..00000000 Binary files a/pics/64262809.jpg and /dev/null differ diff --git a/pics/64268668.jpg b/pics/64268668.jpg deleted file mode 100644 index fecf65c1..00000000 Binary files a/pics/64268668.jpg and /dev/null differ diff --git a/pics/64271667.jpg b/pics/64271667.jpg deleted file mode 100644 index b1138474..00000000 Binary files a/pics/64271667.jpg and /dev/null differ diff --git a/pics/64274292.jpg b/pics/64274292.jpg deleted file mode 100644 index cd9c50b3..00000000 Binary files a/pics/64274292.jpg and /dev/null differ diff --git a/pics/6428.jpg b/pics/6428.jpg deleted file mode 100644 index 49992afc..00000000 Binary files a/pics/6428.jpg and /dev/null differ diff --git a/pics/64280356.jpg b/pics/64280356.jpg deleted file mode 100755 index eb2fe234..00000000 Binary files a/pics/64280356.jpg and /dev/null differ diff --git a/pics/64283880.jpg b/pics/64283880.jpg deleted file mode 100644 index 2883a69d..00000000 Binary files a/pics/64283880.jpg and /dev/null differ diff --git a/pics/6429.jpg b/pics/6429.jpg deleted file mode 100755 index 63353c18..00000000 Binary files a/pics/6429.jpg and /dev/null differ diff --git a/pics/6430.jpg b/pics/6430.jpg deleted file mode 100755 index 4f7cdd92..00000000 Binary files a/pics/6430.jpg and /dev/null differ diff --git a/pics/64306248.jpg b/pics/64306248.jpg deleted file mode 100644 index ab502bd8..00000000 Binary files a/pics/64306248.jpg and /dev/null differ diff --git a/pics/6430659.jpg b/pics/6430659.jpg deleted file mode 100644 index 7b9b13f6..00000000 Binary files a/pics/6430659.jpg and /dev/null differ diff --git a/pics/6431.jpg b/pics/6431.jpg deleted file mode 100755 index 817a7fba..00000000 Binary files a/pics/6431.jpg and /dev/null differ diff --git a/pics/64319467.jpg b/pics/64319467.jpg deleted file mode 100644 index 9c24c443..00000000 Binary files a/pics/64319467.jpg and /dev/null differ diff --git a/pics/6432.jpg b/pics/6432.jpg deleted file mode 100755 index e8d95760..00000000 Binary files a/pics/6432.jpg and /dev/null differ diff --git a/pics/6433.jpg b/pics/6433.jpg deleted file mode 100755 index abb76eb0..00000000 Binary files a/pics/6433.jpg and /dev/null differ diff --git a/pics/64332231.jpg b/pics/64332231.jpg deleted file mode 100644 index 1830f66f..00000000 Binary files a/pics/64332231.jpg and /dev/null differ diff --git a/pics/64335804.jpg b/pics/64335804.jpg deleted file mode 100644 index db9225f1..00000000 Binary files a/pics/64335804.jpg and /dev/null differ diff --git a/pics/64335805.jpg b/pics/64335805.jpg deleted file mode 100644 index 85a343a2..00000000 Binary files a/pics/64335805.jpg and /dev/null differ diff --git a/pics/6434.jpg b/pics/6434.jpg deleted file mode 100644 index a4a8f847..00000000 Binary files a/pics/6434.jpg and /dev/null differ diff --git a/pics/64342551.jpg b/pics/64342551.jpg deleted file mode 100644 index b6472ee4..00000000 Binary files a/pics/64342551.jpg and /dev/null differ diff --git a/pics/6435.jpg b/pics/6435.jpg deleted file mode 100755 index a117ab5e..00000000 Binary files a/pics/6435.jpg and /dev/null differ diff --git a/pics/6436.jpg b/pics/6436.jpg deleted file mode 100755 index a67bbe50..00000000 Binary files a/pics/6436.jpg and /dev/null differ diff --git a/pics/6437.jpg b/pics/6437.jpg deleted file mode 100755 index 6d98dc01..00000000 Binary files a/pics/6437.jpg and /dev/null differ diff --git a/pics/64373401.jpg b/pics/64373401.jpg deleted file mode 100644 index ae0a51a9..00000000 Binary files a/pics/64373401.jpg and /dev/null differ diff --git a/pics/64379261.jpg b/pics/64379261.jpg deleted file mode 100644 index 26ee6bdb..00000000 Binary files a/pics/64379261.jpg and /dev/null differ diff --git a/pics/64379430.jpg b/pics/64379430.jpg deleted file mode 100644 index 5a90cd7b..00000000 Binary files a/pics/64379430.jpg and /dev/null differ diff --git a/pics/6438.jpg b/pics/6438.jpg deleted file mode 100755 index 01787ebf..00000000 Binary files a/pics/6438.jpg and /dev/null differ diff --git a/pics/64382839.jpg b/pics/64382839.jpg deleted file mode 100644 index e5c03306..00000000 Binary files a/pics/64382839.jpg and /dev/null differ diff --git a/pics/64382840.jpg b/pics/64382840.jpg deleted file mode 100644 index 75a5b6c9..00000000 Binary files a/pics/64382840.jpg and /dev/null differ diff --git a/pics/64382841.jpg b/pics/64382841.jpg deleted file mode 100644 index 5fa66ffa..00000000 Binary files a/pics/64382841.jpg and /dev/null differ diff --git a/pics/64389297.jpg b/pics/64389297.jpg deleted file mode 100644 index 1d957212..00000000 Binary files a/pics/64389297.jpg and /dev/null differ diff --git a/pics/6439.jpg b/pics/6439.jpg deleted file mode 100755 index d05021aa..00000000 Binary files a/pics/6439.jpg and /dev/null differ diff --git a/pics/64398890.jpg b/pics/64398890.jpg deleted file mode 100644 index 2460a9c2..00000000 Binary files a/pics/64398890.jpg and /dev/null differ diff --git a/pics/6440.jpg b/pics/6440.jpg deleted file mode 100644 index 1c616656..00000000 Binary files a/pics/6440.jpg and /dev/null differ diff --git a/pics/6441.jpg b/pics/6441.jpg deleted file mode 100755 index c1075602..00000000 Binary files a/pics/6441.jpg and /dev/null differ diff --git a/pics/64428736.jpg b/pics/64428736.jpg deleted file mode 100644 index 92af8e2b..00000000 Binary files a/pics/64428736.jpg and /dev/null differ diff --git a/pics/6442944.jpg b/pics/6442944.jpg deleted file mode 100644 index 6d0330ff..00000000 Binary files a/pics/6442944.jpg and /dev/null differ diff --git a/pics/64437633.jpg b/pics/64437633.jpg deleted file mode 100644 index 8145d84d..00000000 Binary files a/pics/64437633.jpg and /dev/null differ diff --git a/pics/6445.jpg b/pics/6445.jpg deleted file mode 100755 index fdf3ca1e..00000000 Binary files a/pics/6445.jpg and /dev/null differ diff --git a/pics/64463828.jpg b/pics/64463828.jpg deleted file mode 100644 index 54322c16..00000000 Binary files a/pics/64463828.jpg and /dev/null differ diff --git a/pics/64496451.jpg b/pics/64496451.jpg deleted file mode 100644 index 82fe2f84..00000000 Binary files a/pics/64496451.jpg and /dev/null differ diff --git a/pics/64500000.jpg b/pics/64500000.jpg deleted file mode 100644 index 50013d4a..00000000 Binary files a/pics/64500000.jpg and /dev/null differ diff --git a/pics/64501875.jpg b/pics/64501875.jpg deleted file mode 100644 index 260477a5..00000000 Binary files a/pics/64501875.jpg and /dev/null differ diff --git a/pics/64511793.jpg b/pics/64511793.jpg deleted file mode 100644 index 42196443..00000000 Binary files a/pics/64511793.jpg and /dev/null differ diff --git a/pics/64514622.jpg b/pics/64514622.jpg deleted file mode 100644 index 4da0e630..00000000 Binary files a/pics/64514622.jpg and /dev/null differ diff --git a/pics/64538655.jpg b/pics/64538655.jpg deleted file mode 100644 index 751116f8..00000000 Binary files a/pics/64538655.jpg and /dev/null differ diff --git a/pics/64550682.jpg b/pics/64550682.jpg deleted file mode 100644 index c96aaf8d..00000000 Binary files a/pics/64550682.jpg and /dev/null differ diff --git a/pics/64554883.jpg b/pics/64554883.jpg deleted file mode 100644 index 10dacde3..00000000 Binary files a/pics/64554883.jpg and /dev/null differ diff --git a/pics/645794.jpg b/pics/645794.jpg deleted file mode 100755 index 8d355e07..00000000 Binary files a/pics/645794.jpg and /dev/null differ diff --git a/pics/6459419.jpg b/pics/6459419.jpg deleted file mode 100644 index 81c51e15..00000000 Binary files a/pics/6459419.jpg and /dev/null differ diff --git a/pics/64599569.jpg b/pics/64599569.jpg deleted file mode 100644 index 5b5708c6..00000000 Binary files a/pics/64599569.jpg and /dev/null differ diff --git a/pics/64605089.jpg b/pics/64605089.jpg deleted file mode 100644 index 2378edbd..00000000 Binary files a/pics/64605089.jpg and /dev/null differ diff --git a/pics/64627453.jpg b/pics/64627453.jpg deleted file mode 100644 index 4b2bddb9..00000000 Binary files a/pics/64627453.jpg and /dev/null differ diff --git a/pics/64631466.jpg b/pics/64631466.jpg deleted file mode 100644 index d06e4aba..00000000 Binary files a/pics/64631466.jpg and /dev/null differ diff --git a/pics/64662453.jpg b/pics/64662453.jpg deleted file mode 100644 index df68eb04..00000000 Binary files a/pics/64662453.jpg and /dev/null differ diff --git a/pics/64681263.jpg b/pics/64681263.jpg deleted file mode 100644 index d38454b0..00000000 Binary files a/pics/64681263.jpg and /dev/null differ diff --git a/pics/64681432.jpg b/pics/64681432.jpg deleted file mode 100644 index 6af1626c..00000000 Binary files a/pics/64681432.jpg and /dev/null differ diff --git a/pics/64689404.jpg b/pics/64689404.jpg deleted file mode 100644 index 2e31e083..00000000 Binary files a/pics/64689404.jpg and /dev/null differ diff --git a/pics/64697231.jpg b/pics/64697231.jpg deleted file mode 100644 index ad183138..00000000 Binary files a/pics/64697231.jpg and /dev/null differ diff --git a/pics/64726269.jpg b/pics/64726269.jpg deleted file mode 100644 index 51412ba8..00000000 Binary files a/pics/64726269.jpg and /dev/null differ diff --git a/pics/64734090.jpg b/pics/64734090.jpg deleted file mode 100644 index 8d42dda8..00000000 Binary files a/pics/64734090.jpg and /dev/null differ diff --git a/pics/64734921.jpg b/pics/64734921.jpg deleted file mode 100644 index 50ad9a49..00000000 Binary files a/pics/64734921.jpg and /dev/null differ diff --git a/pics/64751286.jpg b/pics/64751286.jpg deleted file mode 100644 index aa26e24f..00000000 Binary files a/pics/64751286.jpg and /dev/null differ diff --git a/pics/64752646.jpg b/pics/64752646.jpg deleted file mode 100644 index 740fae10..00000000 Binary files a/pics/64752646.jpg and /dev/null differ diff --git a/pics/64765016.jpg b/pics/64765016.jpg deleted file mode 100755 index 961a2903..00000000 Binary files a/pics/64765016.jpg and /dev/null differ diff --git a/pics/64788463.jpg b/pics/64788463.jpg deleted file mode 100644 index d03e01bc..00000000 Binary files a/pics/64788463.jpg and /dev/null differ diff --git a/pics/64801562.jpg b/pics/64801562.jpg deleted file mode 100644 index 35357515..00000000 Binary files a/pics/64801562.jpg and /dev/null differ diff --git a/pics/6480253.jpg b/pics/6480253.jpg deleted file mode 100644 index 72fb2226..00000000 Binary files a/pics/6480253.jpg and /dev/null differ diff --git a/pics/64815084.jpg b/pics/64815084.jpg deleted file mode 100644 index b0f4a840..00000000 Binary files a/pics/64815084.jpg and /dev/null differ diff --git a/pics/6483224.jpg b/pics/6483224.jpg deleted file mode 100644 index 0a47c46d..00000000 Binary files a/pics/6483224.jpg and /dev/null differ diff --git a/pics/64880894.jpg b/pics/64880894.jpg deleted file mode 100755 index 8274d11b..00000000 Binary files a/pics/64880894.jpg and /dev/null differ diff --git a/pics/64892035.jpg b/pics/64892035.jpg deleted file mode 100644 index d6eef069..00000000 Binary files a/pics/64892035.jpg and /dev/null differ diff --git a/pics/64898834.jpg b/pics/64898834.jpg deleted file mode 100644 index 7bc6d1a6..00000000 Binary files a/pics/64898834.jpg and /dev/null differ diff --git a/pics/64910482.jpg b/pics/64910482.jpg deleted file mode 100644 index cf6078c8..00000000 Binary files a/pics/64910482.jpg and /dev/null differ diff --git a/pics/64926005.jpg b/pics/64926005.jpg deleted file mode 100644 index ceb35ac0..00000000 Binary files a/pics/64926005.jpg and /dev/null differ diff --git a/pics/64952266.jpg b/pics/64952266.jpg deleted file mode 100644 index c8ca4da8..00000000 Binary files a/pics/64952266.jpg and /dev/null differ diff --git a/pics/64973287.jpg b/pics/64973287.jpg deleted file mode 100755 index b5acef36..00000000 Binary files a/pics/64973287.jpg and /dev/null differ diff --git a/pics/64973456.jpg b/pics/64973456.jpg deleted file mode 100644 index 2c0908d5..00000000 Binary files a/pics/64973456.jpg and /dev/null differ diff --git a/pics/64990807.jpg b/pics/64990807.jpg deleted file mode 100644 index ca170f5c..00000000 Binary files a/pics/64990807.jpg and /dev/null differ diff --git a/pics/6500.jpg b/pics/6500.jpg deleted file mode 100644 index e02b6920..00000000 Binary files a/pics/6500.jpg and /dev/null differ diff --git a/pics/65025250.jpg b/pics/65025250.jpg deleted file mode 100644 index 77414769..00000000 Binary files a/pics/65025250.jpg and /dev/null differ diff --git a/pics/65026212.jpg b/pics/65026212.jpg deleted file mode 100644 index 3cf18c49..00000000 Binary files a/pics/65026212.jpg and /dev/null differ diff --git a/pics/6504.jpg b/pics/6504.jpg deleted file mode 100755 index bf318896..00000000 Binary files a/pics/6504.jpg and /dev/null differ diff --git a/pics/65056481.jpg b/pics/65056481.jpg deleted file mode 100644 index 9d62bb75..00000000 Binary files a/pics/65056481.jpg and /dev/null differ diff --git a/pics/6506.jpg b/pics/6506.jpg deleted file mode 100755 index 27ac0ad7..00000000 Binary files a/pics/6506.jpg and /dev/null differ diff --git a/pics/65064143.jpg b/pics/65064143.jpg deleted file mode 100644 index 97563fa3..00000000 Binary files a/pics/65064143.jpg and /dev/null differ diff --git a/pics/65079854.jpg b/pics/65079854.jpg deleted file mode 100644 index 292c7736..00000000 Binary files a/pics/65079854.jpg and /dev/null differ diff --git a/pics/6509.jpg b/pics/6509.jpg deleted file mode 100755 index 952e1227..00000000 Binary files a/pics/6509.jpg and /dev/null differ diff --git a/pics/6511113.jpg b/pics/6511113.jpg deleted file mode 100755 index 252b0f9e..00000000 Binary files a/pics/6511113.jpg and /dev/null differ diff --git a/pics/6514.jpg b/pics/6514.jpg deleted file mode 100755 index 5bf29501..00000000 Binary files a/pics/6514.jpg and /dev/null differ diff --git a/pics/65149697.jpg b/pics/65149697.jpg deleted file mode 100644 index ab234000..00000000 Binary files a/pics/65149697.jpg and /dev/null differ diff --git a/pics/6515.jpg b/pics/6515.jpg deleted file mode 100755 index 92696c9d..00000000 Binary files a/pics/6515.jpg and /dev/null differ diff --git a/pics/65150219.jpg b/pics/65150219.jpg deleted file mode 100644 index 4258fc18..00000000 Binary files a/pics/65150219.jpg and /dev/null differ diff --git a/pics/65156847.jpg b/pics/65156847.jpg deleted file mode 100644 index 5e9ed121..00000000 Binary files a/pics/65156847.jpg and /dev/null differ diff --git a/pics/65169794.jpg b/pics/65169794.jpg deleted file mode 100644 index b3e4d183..00000000 Binary files a/pics/65169794.jpg and /dev/null differ diff --git a/pics/65192027.jpg b/pics/65192027.jpg deleted file mode 100644 index 957bc491..00000000 Binary files a/pics/65192027.jpg and /dev/null differ diff --git a/pics/65195959.jpg b/pics/65195959.jpg deleted file mode 100644 index 254b86b3..00000000 Binary files a/pics/65195959.jpg and /dev/null differ diff --git a/pics/65196094.jpg b/pics/65196094.jpg deleted file mode 100644 index b7e3acf2..00000000 Binary files a/pics/65196094.jpg and /dev/null differ diff --git a/pics/652362.jpg b/pics/652362.jpg deleted file mode 100644 index 92e81413..00000000 Binary files a/pics/652362.jpg and /dev/null differ diff --git a/pics/6524.jpg b/pics/6524.jpg deleted file mode 100755 index 0a8ef7ce..00000000 Binary files a/pics/6524.jpg and /dev/null differ diff --git a/pics/65240384.jpg b/pics/65240384.jpg deleted file mode 100644 index f06a0b93..00000000 Binary files a/pics/65240384.jpg and /dev/null differ diff --git a/pics/65247798.jpg b/pics/65247798.jpg deleted file mode 100644 index bb237d7d..00000000 Binary files a/pics/65247798.jpg and /dev/null differ diff --git a/pics/6525.jpg b/pics/6525.jpg deleted file mode 100755 index 047f49ee..00000000 Binary files a/pics/6525.jpg and /dev/null differ diff --git a/pics/65260293.jpg b/pics/65260293.jpg deleted file mode 100644 index e74d440e..00000000 Binary files a/pics/65260293.jpg and /dev/null differ diff --git a/pics/6527.jpg b/pics/6527.jpg deleted file mode 100755 index cc7b3444..00000000 Binary files a/pics/6527.jpg and /dev/null differ diff --git a/pics/65277087.jpg b/pics/65277087.jpg deleted file mode 100644 index 18a11a96..00000000 Binary files a/pics/65277087.jpg and /dev/null differ diff --git a/pics/6528.jpg b/pics/6528.jpg deleted file mode 100755 index a4a6acad..00000000 Binary files a/pics/6528.jpg and /dev/null differ diff --git a/pics/65282484.jpg b/pics/65282484.jpg deleted file mode 100644 index c3ed304a..00000000 Binary files a/pics/65282484.jpg and /dev/null differ diff --git a/pics/65287621.jpg b/pics/65287621.jpg deleted file mode 100644 index dc1ad0c9..00000000 Binary files a/pics/65287621.jpg and /dev/null differ diff --git a/pics/65301952.jpg b/pics/65301952.jpg deleted file mode 100644 index 397ee0f7..00000000 Binary files a/pics/65301952.jpg and /dev/null differ diff --git a/pics/65303664.jpg b/pics/65303664.jpg deleted file mode 100644 index f8954985..00000000 Binary files a/pics/65303664.jpg and /dev/null differ diff --git a/pics/65305468.jpg b/pics/65305468.jpg deleted file mode 100644 index b9aa9ec1..00000000 Binary files a/pics/65305468.jpg and /dev/null differ diff --git a/pics/65331686.jpg b/pics/65331686.jpg deleted file mode 100644 index ceb8720c..00000000 Binary files a/pics/65331686.jpg and /dev/null differ diff --git a/pics/65338781.jpg b/pics/65338781.jpg deleted file mode 100644 index e7a2b5eb..00000000 Binary files a/pics/65338781.jpg and /dev/null differ diff --git a/pics/6534.jpg b/pics/6534.jpg deleted file mode 100644 index 0b8af7b0..00000000 Binary files a/pics/6534.jpg and /dev/null differ diff --git a/pics/6536.jpg b/pics/6536.jpg deleted file mode 100755 index fc5d59ff..00000000 Binary files a/pics/6536.jpg and /dev/null differ diff --git a/pics/65367484.jpg b/pics/65367484.jpg deleted file mode 100644 index 036a9fe4..00000000 Binary files a/pics/65367484.jpg and /dev/null differ diff --git a/pics/6537.jpg b/pics/6537.jpg deleted file mode 100755 index 7e9e03ab..00000000 Binary files a/pics/6537.jpg and /dev/null differ diff --git a/pics/65384019.jpg b/pics/65384019.jpg deleted file mode 100644 index c06f619f..00000000 Binary files a/pics/65384019.jpg and /dev/null differ diff --git a/pics/65384188.jpg b/pics/65384188.jpg deleted file mode 100644 index 35936274..00000000 Binary files a/pics/65384188.jpg and /dev/null differ diff --git a/pics/6539.jpg b/pics/6539.jpg deleted file mode 100755 index 985d3bb8..00000000 Binary files a/pics/6539.jpg and /dev/null differ diff --git a/pics/65393205.jpg b/pics/65393205.jpg deleted file mode 100644 index 480c1803..00000000 Binary files a/pics/65393205.jpg and /dev/null differ diff --git a/pics/65396880.jpg b/pics/65396880.jpg deleted file mode 100644 index f568a5e7..00000000 Binary files a/pics/65396880.jpg and /dev/null differ diff --git a/pics/65403020.jpg b/pics/65403020.jpg deleted file mode 100644 index 37f640b6..00000000 Binary files a/pics/65403020.jpg and /dev/null differ diff --git a/pics/6540606.jpg b/pics/6540606.jpg deleted file mode 100644 index 4a31b3e5..00000000 Binary files a/pics/6540606.jpg and /dev/null differ diff --git a/pics/65422840.jpg b/pics/65422840.jpg deleted file mode 100644 index 43a2246d..00000000 Binary files a/pics/65422840.jpg and /dev/null differ diff --git a/pics/6544078.jpg b/pics/6544078.jpg deleted file mode 100644 index cdbb2098..00000000 Binary files a/pics/6544078.jpg and /dev/null differ diff --git a/pics/65446452.jpg b/pics/65446452.jpg deleted file mode 100755 index 183b03b4..00000000 Binary files a/pics/65446452.jpg and /dev/null differ diff --git a/pics/65450690.jpg b/pics/65450690.jpg deleted file mode 100644 index 0fbba3e6..00000000 Binary files a/pics/65450690.jpg and /dev/null differ diff --git a/pics/65458948.jpg b/pics/65458948.jpg deleted file mode 100644 index 52092fd8..00000000 Binary files a/pics/65458948.jpg and /dev/null differ diff --git a/pics/65472618.jpg b/pics/65472618.jpg deleted file mode 100644 index 3c5a080d..00000000 Binary files a/pics/65472618.jpg and /dev/null differ diff --git a/pics/65475294.jpg b/pics/65475294.jpg deleted file mode 100644 index e7b5aec9..00000000 Binary files a/pics/65475294.jpg and /dev/null differ diff --git a/pics/65496056.jpg b/pics/65496056.jpg deleted file mode 100644 index 24dd5d05..00000000 Binary files a/pics/65496056.jpg and /dev/null differ diff --git a/pics/6550.jpg b/pics/6550.jpg deleted file mode 100755 index 5a0c3d11..00000000 Binary files a/pics/6550.jpg and /dev/null differ diff --git a/pics/65503206.jpg b/pics/65503206.jpg deleted file mode 100644 index aeb1785b..00000000 Binary files a/pics/65503206.jpg and /dev/null differ diff --git a/pics/65518099.jpg b/pics/65518099.jpg deleted file mode 100644 index 66ea30c5..00000000 Binary files a/pics/65518099.jpg and /dev/null differ diff --git a/pics/6552.jpg b/pics/6552.jpg deleted file mode 100755 index dd0fc27b..00000000 Binary files a/pics/6552.jpg and /dev/null differ diff --git a/pics/65549080.jpg b/pics/65549080.jpg deleted file mode 100644 index 480fa208..00000000 Binary files a/pics/65549080.jpg and /dev/null differ diff --git a/pics/65570596.jpg b/pics/65570596.jpg deleted file mode 100644 index 9e392f1c..00000000 Binary files a/pics/65570596.jpg and /dev/null differ diff --git a/pics/65591858.jpg b/pics/65591858.jpg deleted file mode 100644 index e38d34d3..00000000 Binary files a/pics/65591858.jpg and /dev/null differ diff --git a/pics/6560.jpg b/pics/6560.jpg deleted file mode 100644 index 1934d78e..00000000 Binary files a/pics/6560.jpg and /dev/null differ diff --git a/pics/65612386.jpg b/pics/65612386.jpg deleted file mode 100755 index 5c3c7e5a..00000000 Binary files a/pics/65612386.jpg and /dev/null differ diff --git a/pics/65612454.jpg b/pics/65612454.jpg deleted file mode 100644 index 1e30ae0d..00000000 Binary files a/pics/65612454.jpg and /dev/null differ diff --git a/pics/65622692.jpg b/pics/65622692.jpg deleted file mode 100644 index df0c4907..00000000 Binary files a/pics/65622692.jpg and /dev/null differ diff --git a/pics/65623423.jpg b/pics/65623423.jpg deleted file mode 100644 index f3a60f74..00000000 Binary files a/pics/65623423.jpg and /dev/null differ diff --git a/pics/65659181.jpg b/pics/65659181.jpg deleted file mode 100644 index f890b7a8..00000000 Binary files a/pics/65659181.jpg and /dev/null differ diff --git a/pics/65676461.jpg b/pics/65676461.jpg deleted file mode 100644 index d1bc148c..00000000 Binary files a/pics/65676461.jpg and /dev/null differ diff --git a/pics/65685470.jpg b/pics/65685470.jpg deleted file mode 100644 index 365d5836..00000000 Binary files a/pics/65685470.jpg and /dev/null differ diff --git a/pics/65703851.jpg b/pics/65703851.jpg deleted file mode 100644 index 13296484..00000000 Binary files a/pics/65703851.jpg and /dev/null differ diff --git a/pics/65737274.jpg b/pics/65737274.jpg deleted file mode 100644 index 5472dce3..00000000 Binary files a/pics/65737274.jpg and /dev/null differ diff --git a/pics/65743242.jpg b/pics/65743242.jpg deleted file mode 100644 index ba48cee4..00000000 Binary files a/pics/65743242.jpg and /dev/null differ diff --git a/pics/65749035.jpg b/pics/65749035.jpg deleted file mode 100644 index cedcce24..00000000 Binary files a/pics/65749035.jpg and /dev/null differ diff --git a/pics/65758454.jpg b/pics/65758454.jpg deleted file mode 100644 index 5afa3ead..00000000 Binary files a/pics/65758454.jpg and /dev/null differ diff --git a/pics/6581.jpg b/pics/6581.jpg deleted file mode 100644 index 57c98cc9..00000000 Binary files a/pics/6581.jpg and /dev/null differ diff --git a/pics/65810489.jpg b/pics/65810489.jpg deleted file mode 100644 index 9bddf4d4..00000000 Binary files a/pics/65810489.jpg and /dev/null differ diff --git a/pics/65810490.jpg b/pics/65810490.jpg deleted file mode 100644 index e1110cf0..00000000 Binary files a/pics/65810490.jpg and /dev/null differ diff --git a/pics/6582.jpg b/pics/6582.jpg deleted file mode 100644 index 08aa26c5..00000000 Binary files a/pics/6582.jpg and /dev/null differ diff --git a/pics/65824822.jpg b/pics/65824822.jpg deleted file mode 100644 index 2000f8f1..00000000 Binary files a/pics/65824822.jpg and /dev/null differ diff --git a/pics/6583.jpg b/pics/6583.jpg deleted file mode 100644 index ac04188e..00000000 Binary files a/pics/6583.jpg and /dev/null differ diff --git a/pics/65830223.jpg b/pics/65830223.jpg deleted file mode 100644 index 07bab6a3..00000000 Binary files a/pics/65830223.jpg and /dev/null differ diff --git a/pics/6584.jpg b/pics/6584.jpg deleted file mode 100644 index 1269a369..00000000 Binary files a/pics/6584.jpg and /dev/null differ diff --git a/pics/65844845.jpg b/pics/65844845.jpg deleted file mode 100644 index f9fa7ce5..00000000 Binary files a/pics/65844845.jpg and /dev/null differ diff --git a/pics/65848811.jpg b/pics/65848811.jpg deleted file mode 100644 index 1b7f2490..00000000 Binary files a/pics/65848811.jpg and /dev/null differ diff --git a/pics/6586.jpg b/pics/6586.jpg deleted file mode 100644 index 8abbede1..00000000 Binary files a/pics/6586.jpg and /dev/null differ diff --git a/pics/65872270.jpg b/pics/65872270.jpg deleted file mode 100755 index 790de5e4..00000000 Binary files a/pics/65872270.jpg and /dev/null differ diff --git a/pics/65878864.jpg b/pics/65878864.jpg deleted file mode 100644 index 0787993c..00000000 Binary files a/pics/65878864.jpg and /dev/null differ diff --git a/pics/65884091.jpg b/pics/65884091.jpg deleted file mode 100644 index c5d92db6..00000000 Binary files a/pics/65884091.jpg and /dev/null differ diff --git a/pics/6588580.jpg b/pics/6588580.jpg deleted file mode 100644 index 35b95007..00000000 Binary files a/pics/6588580.jpg and /dev/null differ diff --git a/pics/6595475.jpg b/pics/6595475.jpg deleted file mode 100644 index b566916e..00000000 Binary files a/pics/6595475.jpg and /dev/null differ diff --git a/pics/65957473.jpg b/pics/65957473.jpg deleted file mode 100644 index 9988c3be..00000000 Binary files a/pics/65957473.jpg and /dev/null differ diff --git a/pics/65961085.jpg b/pics/65961085.jpg deleted file mode 100644 index 32424bb4..00000000 Binary files a/pics/65961085.jpg and /dev/null differ diff --git a/pics/65961683.jpg b/pics/65961683.jpg deleted file mode 100644 index 353ea351..00000000 Binary files a/pics/65961683.jpg and /dev/null differ diff --git a/pics/65984457.jpg b/pics/65984457.jpg deleted file mode 100644 index 8d6da8e3..00000000 Binary files a/pics/65984457.jpg and /dev/null differ diff --git a/pics/6601.jpg b/pics/6601.jpg deleted file mode 100755 index d8e80089..00000000 Binary files a/pics/6601.jpg and /dev/null differ diff --git a/pics/6602.jpg b/pics/6602.jpg deleted file mode 100755 index 9ee3db51..00000000 Binary files a/pics/6602.jpg and /dev/null differ diff --git a/pics/6602300.jpg b/pics/6602300.jpg deleted file mode 100644 index a5b671ba..00000000 Binary files a/pics/6602300.jpg and /dev/null differ diff --git a/pics/6603.jpg b/pics/6603.jpg deleted file mode 100644 index de53a8bc..00000000 Binary files a/pics/6603.jpg and /dev/null differ diff --git a/pics/6604.jpg b/pics/6604.jpg deleted file mode 100755 index bb914e2c..00000000 Binary files a/pics/6604.jpg and /dev/null differ diff --git a/pics/66066482.jpg b/pics/66066482.jpg deleted file mode 100644 index cfbec800..00000000 Binary files a/pics/66066482.jpg and /dev/null differ diff --git a/pics/66073051.jpg b/pics/66073051.jpg deleted file mode 100644 index dbbcbb86..00000000 Binary files a/pics/66073051.jpg and /dev/null differ diff --git a/pics/66084673.jpg b/pics/66084673.jpg deleted file mode 100644 index d38dc014..00000000 Binary files a/pics/66084673.jpg and /dev/null differ diff --git a/pics/66094973.jpg b/pics/66094973.jpg deleted file mode 100644 index f355c9ef..00000000 Binary files a/pics/66094973.jpg and /dev/null differ diff --git a/pics/66100045.jpg b/pics/66100045.jpg deleted file mode 100644 index f9e9dbe7..00000000 Binary files a/pics/66100045.jpg and /dev/null differ diff --git a/pics/66127916.jpg b/pics/66127916.jpg deleted file mode 100644 index 94dca540..00000000 Binary files a/pics/66127916.jpg and /dev/null differ diff --git a/pics/6614.jpg b/pics/6614.jpg deleted file mode 100644 index 72658cb8..00000000 Binary files a/pics/6614.jpg and /dev/null differ diff --git a/pics/6614221.jpg b/pics/6614221.jpg deleted file mode 100644 index ff39527f..00000000 Binary files a/pics/6614221.jpg and /dev/null differ diff --git a/pics/6616.jpg b/pics/6616.jpg deleted file mode 100644 index dc84a0dc..00000000 Binary files a/pics/6616.jpg and /dev/null differ diff --git a/pics/66165755.jpg b/pics/66165755.jpg deleted file mode 100644 index 14b8689c..00000000 Binary files a/pics/66165755.jpg and /dev/null differ diff --git a/pics/6618.jpg b/pics/6618.jpg deleted file mode 100644 index 18b47350..00000000 Binary files a/pics/6618.jpg and /dev/null differ diff --git a/pics/6619.jpg b/pics/6619.jpg deleted file mode 100644 index 024c853d..00000000 Binary files a/pics/6619.jpg and /dev/null differ diff --git a/pics/66194206.jpg b/pics/66194206.jpg deleted file mode 100644 index d0ab169a..00000000 Binary files a/pics/66194206.jpg and /dev/null differ diff --git a/pics/6620.jpg b/pics/6620.jpg deleted file mode 100644 index 396b4872..00000000 Binary files a/pics/6620.jpg and /dev/null differ diff --git a/pics/66200210.jpg b/pics/66200210.jpg deleted file mode 100644 index 250799cf..00000000 Binary files a/pics/66200210.jpg and /dev/null differ diff --git a/pics/66200211.jpg b/pics/66200211.jpg deleted file mode 100644 index cc25908e..00000000 Binary files a/pics/66200211.jpg and /dev/null differ diff --git a/pics/6621.jpg b/pics/6621.jpg deleted file mode 100644 index e83a8e94..00000000 Binary files a/pics/6621.jpg and /dev/null differ diff --git a/pics/66214679.jpg b/pics/66214679.jpg deleted file mode 100644 index 4f00d4af..00000000 Binary files a/pics/66214679.jpg and /dev/null differ diff --git a/pics/6622.jpg b/pics/6622.jpg deleted file mode 100644 index 8d2308a5..00000000 Binary files a/pics/6622.jpg and /dev/null differ diff --git a/pics/6623.jpg b/pics/6623.jpg deleted file mode 100644 index 41715c50..00000000 Binary files a/pics/6623.jpg and /dev/null differ diff --git a/pics/66235877.jpg b/pics/66235877.jpg deleted file mode 100644 index 4e302888..00000000 Binary files a/pics/66235877.jpg and /dev/null differ diff --git a/pics/6625096.jpg b/pics/6625096.jpg deleted file mode 100644 index e64837f8..00000000 Binary files a/pics/6625096.jpg and /dev/null differ diff --git a/pics/6628.jpg b/pics/6628.jpg deleted file mode 100644 index 5b5f04ad..00000000 Binary files a/pics/6628.jpg and /dev/null differ diff --git a/pics/6628343.jpg b/pics/6628343.jpg deleted file mode 100644 index 8dfbf8b1..00000000 Binary files a/pics/6628343.jpg and /dev/null differ diff --git a/pics/66288028.jpg b/pics/66288028.jpg deleted file mode 100644 index 1f650f1b..00000000 Binary files a/pics/66288028.jpg and /dev/null differ diff --git a/pics/6630.jpg b/pics/6630.jpg deleted file mode 100644 index 2a0e866a..00000000 Binary files a/pics/6630.jpg and /dev/null differ diff --git a/pics/6631034.jpg b/pics/6631034.jpg deleted file mode 100644 index b16da4ee..00000000 Binary files a/pics/6631034.jpg and /dev/null differ diff --git a/pics/6632.jpg b/pics/6632.jpg deleted file mode 100644 index 1e7f70c2..00000000 Binary files a/pics/6632.jpg and /dev/null differ diff --git a/pics/6633.jpg b/pics/6633.jpg deleted file mode 100644 index 5bcc710e..00000000 Binary files a/pics/6633.jpg and /dev/null differ diff --git a/pics/66331855.jpg b/pics/66331855.jpg deleted file mode 100644 index 9f133c66..00000000 Binary files a/pics/66331855.jpg and /dev/null differ diff --git a/pics/66337215.jpg b/pics/66337215.jpg deleted file mode 100644 index a648e708..00000000 Binary files a/pics/66337215.jpg and /dev/null differ diff --git a/pics/6634.jpg b/pics/6634.jpg deleted file mode 100644 index 171de680..00000000 Binary files a/pics/6634.jpg and /dev/null differ diff --git a/pics/6635.jpg b/pics/6635.jpg deleted file mode 100644 index ea78fe33..00000000 Binary files a/pics/6635.jpg and /dev/null differ diff --git a/pics/6636.jpg b/pics/6636.jpg deleted file mode 100644 index 3af275d3..00000000 Binary files a/pics/6636.jpg and /dev/null differ diff --git a/pics/66362965.jpg b/pics/66362965.jpg deleted file mode 100644 index d712cdb3..00000000 Binary files a/pics/66362965.jpg and /dev/null differ diff --git a/pics/66378485.jpg b/pics/66378485.jpg deleted file mode 100644 index 7f0ec2ba..00000000 Binary files a/pics/66378485.jpg and /dev/null differ diff --git a/pics/6639.jpg b/pics/6639.jpg deleted file mode 100644 index 0372521d..00000000 Binary files a/pics/6639.jpg and /dev/null differ diff --git a/pics/66395299.jpg b/pics/66395299.jpg deleted file mode 100644 index 4fa84927..00000000 Binary files a/pics/66395299.jpg and /dev/null differ diff --git a/pics/66399675.jpg b/pics/66399675.jpg deleted file mode 100644 index 559b7fe1..00000000 Binary files a/pics/66399675.jpg and /dev/null differ diff --git a/pics/6641.jpg b/pics/6641.jpg deleted file mode 100755 index be954713..00000000 Binary files a/pics/6641.jpg and /dev/null differ diff --git a/pics/66413481.jpg b/pics/66413481.jpg deleted file mode 100644 index c11f23f4..00000000 Binary files a/pics/66413481.jpg and /dev/null differ diff --git a/pics/6642.jpg b/pics/6642.jpg deleted file mode 100644 index 150f1857..00000000 Binary files a/pics/6642.jpg and /dev/null differ diff --git a/pics/6643.jpg b/pics/6643.jpg deleted file mode 100644 index a692cab6..00000000 Binary files a/pics/6643.jpg and /dev/null differ diff --git a/pics/66436257.jpg b/pics/66436257.jpg deleted file mode 100644 index 61e60e5a..00000000 Binary files a/pics/66436257.jpg and /dev/null differ diff --git a/pics/66451379.jpg b/pics/66451379.jpg deleted file mode 100755 index b0c1c8c4..00000000 Binary files a/pics/66451379.jpg and /dev/null differ diff --git a/pics/66457138.jpg b/pics/66457138.jpg deleted file mode 100644 index 4b86b8f0..00000000 Binary files a/pics/66457138.jpg and /dev/null differ diff --git a/pics/66457407.jpg b/pics/66457407.jpg deleted file mode 100644 index bc32b44e..00000000 Binary files a/pics/66457407.jpg and /dev/null differ diff --git a/pics/6646.jpg b/pics/6646.jpg deleted file mode 100644 index 6675a2ba..00000000 Binary files a/pics/6646.jpg and /dev/null differ diff --git a/pics/6647.jpg b/pics/6647.jpg deleted file mode 100644 index 03e370f2..00000000 Binary files a/pics/6647.jpg and /dev/null differ diff --git a/pics/6648.jpg b/pics/6648.jpg deleted file mode 100644 index 5c2e6ab5..00000000 Binary files a/pics/6648.jpg and /dev/null differ diff --git a/pics/66499018.jpg b/pics/66499018.jpg deleted file mode 100644 index 79dd78b8..00000000 Binary files a/pics/66499018.jpg and /dev/null differ diff --git a/pics/66500065.jpg b/pics/66500065.jpg deleted file mode 100644 index c7b19f36..00000000 Binary files a/pics/66500065.jpg and /dev/null differ diff --git a/pics/66506689.jpg b/pics/66506689.jpg deleted file mode 100644 index 8460f8a5..00000000 Binary files a/pics/66506689.jpg and /dev/null differ diff --git a/pics/6651.jpg b/pics/6651.jpg deleted file mode 100644 index 180a9c23..00000000 Binary files a/pics/6651.jpg and /dev/null differ diff --git a/pics/66516792.jpg b/pics/66516792.jpg deleted file mode 100644 index 6d5e318a..00000000 Binary files a/pics/66516792.jpg and /dev/null differ diff --git a/pics/66518841.jpg b/pics/66518841.jpg deleted file mode 100644 index 99819cc4..00000000 Binary files a/pics/66518841.jpg and /dev/null differ diff --git a/pics/66523544.jpg b/pics/66523544.jpg deleted file mode 100644 index 1cab5c63..00000000 Binary files a/pics/66523544.jpg and /dev/null differ diff --git a/pics/66526672.jpg b/pics/66526672.jpg deleted file mode 100644 index 62ed0390..00000000 Binary files a/pics/66526672.jpg and /dev/null differ diff --git a/pics/66540884.jpg b/pics/66540884.jpg deleted file mode 100644 index 9c61d578..00000000 Binary files a/pics/66540884.jpg and /dev/null differ diff --git a/pics/66547759.jpg b/pics/66547759.jpg deleted file mode 100644 index a02cfbe1..00000000 Binary files a/pics/66547759.jpg and /dev/null differ diff --git a/pics/6656.jpg b/pics/6656.jpg deleted file mode 100644 index 5bc1fa69..00000000 Binary files a/pics/6656.jpg and /dev/null differ diff --git a/pics/66574418.jpg b/pics/66574418.jpg deleted file mode 100755 index 16d37a85..00000000 Binary files a/pics/66574418.jpg and /dev/null differ diff --git a/pics/66602787.jpg b/pics/66602787.jpg deleted file mode 100644 index 549f3f2a..00000000 Binary files a/pics/66602787.jpg and /dev/null differ diff --git a/pics/66604523.jpg b/pics/66604523.jpg deleted file mode 100644 index 8e5a7e43..00000000 Binary files a/pics/66604523.jpg and /dev/null differ diff --git a/pics/66607691.jpg b/pics/66607691.jpg deleted file mode 100644 index 0a2ea50e..00000000 Binary files a/pics/66607691.jpg and /dev/null differ diff --git a/pics/6662.jpg b/pics/6662.jpg deleted file mode 100644 index e3d2059d..00000000 Binary files a/pics/6662.jpg and /dev/null differ diff --git a/pics/66625883.jpg b/pics/66625883.jpg deleted file mode 100644 index 108957c9..00000000 Binary files a/pics/66625883.jpg and /dev/null differ diff --git a/pics/6665.jpg b/pics/6665.jpg deleted file mode 100644 index e7477876..00000000 Binary files a/pics/6665.jpg and /dev/null differ diff --git a/pics/66661678.jpg b/pics/66661678.jpg deleted file mode 100644 index 53e2c372..00000000 Binary files a/pics/66661678.jpg and /dev/null differ diff --git a/pics/66661679.jpg b/pics/66661679.jpg deleted file mode 100644 index 8168588f..00000000 Binary files a/pics/66661679.jpg and /dev/null differ diff --git a/pics/66668900.jpg b/pics/66668900.jpg deleted file mode 100755 index a48eec9d..00000000 Binary files a/pics/66668900.jpg and /dev/null differ diff --git a/pics/66672569.jpg b/pics/66672569.jpg deleted file mode 100644 index a9f90925..00000000 Binary files a/pics/66672569.jpg and /dev/null differ diff --git a/pics/6668.jpg b/pics/6668.jpg deleted file mode 100644 index 9c077931..00000000 Binary files a/pics/6668.jpg and /dev/null differ diff --git a/pics/66690411.jpg b/pics/66690411.jpg deleted file mode 100644 index 02acb1c5..00000000 Binary files a/pics/66690411.jpg and /dev/null differ diff --git a/pics/6670.jpg b/pics/6670.jpg deleted file mode 100644 index 3bcb1e75..00000000 Binary files a/pics/6670.jpg and /dev/null differ diff --git a/pics/66707058.jpg b/pics/66707058.jpg deleted file mode 100644 index 6aec018b..00000000 Binary files a/pics/66707058.jpg and /dev/null differ diff --git a/pics/6671.jpg b/pics/6671.jpg deleted file mode 100644 index 3c5196e3..00000000 Binary files a/pics/6671.jpg and /dev/null differ diff --git a/pics/66712593.jpg b/pics/66712593.jpg deleted file mode 100644 index 9d6e1c7f..00000000 Binary files a/pics/66712593.jpg and /dev/null differ diff --git a/pics/66719324.jpg b/pics/66719324.jpg deleted file mode 100644 index 6f382050..00000000 Binary files a/pics/66719324.jpg and /dev/null differ diff --git a/pics/66727115.jpg b/pics/66727115.jpg deleted file mode 100644 index b06d5e5e..00000000 Binary files a/pics/66727115.jpg and /dev/null differ diff --git a/pics/66729231.jpg b/pics/66729231.jpg deleted file mode 100644 index 493a6d13..00000000 Binary files a/pics/66729231.jpg and /dev/null differ diff --git a/pics/6674.jpg b/pics/6674.jpg deleted file mode 100644 index cd06a5bd..00000000 Binary files a/pics/6674.jpg and /dev/null differ diff --git a/pics/66742250.jpg b/pics/66742250.jpg deleted file mode 100644 index 2a3daac4..00000000 Binary files a/pics/66742250.jpg and /dev/null differ diff --git a/pics/66752837.jpg b/pics/66752837.jpg deleted file mode 100755 index 63915c0c..00000000 Binary files a/pics/66752837.jpg and /dev/null differ diff --git a/pics/66762372.jpg b/pics/66762372.jpg deleted file mode 100644 index 9dd7107a..00000000 Binary files a/pics/66762372.jpg and /dev/null differ diff --git a/pics/66788016.jpg b/pics/66788016.jpg deleted file mode 100644 index e93086f5..00000000 Binary files a/pics/66788016.jpg and /dev/null differ diff --git a/pics/66789970.jpg b/pics/66789970.jpg deleted file mode 100644 index db4d0456..00000000 Binary files a/pics/66789970.jpg and /dev/null differ diff --git a/pics/66816282.jpg b/pics/66816282.jpg deleted file mode 100644 index 940ec87a..00000000 Binary files a/pics/66816282.jpg and /dev/null differ diff --git a/pics/66818682.jpg b/pics/66818682.jpg deleted file mode 100644 index 7db664a9..00000000 Binary files a/pics/66818682.jpg and /dev/null differ diff --git a/pics/66835946.jpg b/pics/66835946.jpg deleted file mode 100644 index 37f1a920..00000000 Binary files a/pics/66835946.jpg and /dev/null differ diff --git a/pics/66836598.jpg b/pics/66836598.jpg deleted file mode 100644 index 02c6a6e4..00000000 Binary files a/pics/66836598.jpg and /dev/null differ diff --git a/pics/66853752.jpg b/pics/66853752.jpg deleted file mode 100644 index 3f72becd..00000000 Binary files a/pics/66853752.jpg and /dev/null differ diff --git a/pics/66865880.jpg b/pics/66865880.jpg deleted file mode 100644 index abadfecc..00000000 Binary files a/pics/66865880.jpg and /dev/null differ diff --git a/pics/66889139.jpg b/pics/66889139.jpg deleted file mode 100644 index a297f83d..00000000 Binary files a/pics/66889139.jpg and /dev/null differ diff --git a/pics/6691.jpg b/pics/6691.jpg deleted file mode 100644 index 61e22be1..00000000 Binary files a/pics/6691.jpg and /dev/null differ diff --git a/pics/6691855.jpg b/pics/6691855.jpg deleted file mode 100644 index 99680676..00000000 Binary files a/pics/6691855.jpg and /dev/null differ diff --git a/pics/66926224.jpg b/pics/66926224.jpg deleted file mode 100644 index 2f727255..00000000 Binary files a/pics/66926224.jpg and /dev/null differ diff --git a/pics/66927994.jpg b/pics/66927994.jpg deleted file mode 100644 index fb4f1b16..00000000 Binary files a/pics/66927994.jpg and /dev/null differ diff --git a/pics/66947414.jpg b/pics/66947414.jpg deleted file mode 100644 index a71acaa4..00000000 Binary files a/pics/66947414.jpg and /dev/null differ diff --git a/pics/66957584.jpg b/pics/66957584.jpg deleted file mode 100644 index 02af204d..00000000 Binary files a/pics/66957584.jpg and /dev/null differ diff --git a/pics/66970002.jpg b/pics/66970002.jpg deleted file mode 100644 index b8fe3dab..00000000 Binary files a/pics/66970002.jpg and /dev/null differ diff --git a/pics/66970385.jpg b/pics/66970385.jpg deleted file mode 100644 index f2628b62..00000000 Binary files a/pics/66970385.jpg and /dev/null differ diff --git a/pics/66973070.jpg b/pics/66973070.jpg deleted file mode 100644 index 33abc6ae..00000000 Binary files a/pics/66973070.jpg and /dev/null differ diff --git a/pics/66976526.jpg b/pics/66976526.jpg deleted file mode 100644 index 6b96a9ec..00000000 Binary files a/pics/66976526.jpg and /dev/null differ diff --git a/pics/66989694.jpg b/pics/66989694.jpg deleted file mode 100644 index 01f2e089..00000000 Binary files a/pics/66989694.jpg and /dev/null differ diff --git a/pics/66994718.jpg b/pics/66994718.jpg deleted file mode 100755 index cb927fcb..00000000 Binary files a/pics/66994718.jpg and /dev/null differ diff --git a/pics/6700.jpg b/pics/6700.jpg deleted file mode 100755 index 27fa7a7f..00000000 Binary files a/pics/6700.jpg and /dev/null differ diff --git a/pics/6701.jpg b/pics/6701.jpg deleted file mode 100755 index 7105ef84..00000000 Binary files a/pics/6701.jpg and /dev/null differ diff --git a/pics/6702.jpg b/pics/6702.jpg deleted file mode 100755 index b0424288..00000000 Binary files a/pics/6702.jpg and /dev/null differ diff --git a/pics/6703.jpg b/pics/6703.jpg deleted file mode 100755 index 25b34e08..00000000 Binary files a/pics/6703.jpg and /dev/null differ diff --git a/pics/67030233.jpg b/pics/67030233.jpg deleted file mode 100644 index d06ccbc1..00000000 Binary files a/pics/67030233.jpg and /dev/null differ diff --git a/pics/67038874.jpg b/pics/67038874.jpg deleted file mode 100644 index ad026f78..00000000 Binary files a/pics/67038874.jpg and /dev/null differ diff --git a/pics/67045174.jpg b/pics/67045174.jpg deleted file mode 100644 index 3177dc4b..00000000 Binary files a/pics/67045174.jpg and /dev/null differ diff --git a/pics/67048711.jpg b/pics/67048711.jpg deleted file mode 100644 index f839ce5e..00000000 Binary files a/pics/67048711.jpg and /dev/null differ diff --git a/pics/67049542.jpg b/pics/67049542.jpg deleted file mode 100644 index 19fb1454..00000000 Binary files a/pics/67049542.jpg and /dev/null differ diff --git a/pics/67050396.jpg b/pics/67050396.jpg deleted file mode 100755 index c240cc6e..00000000 Binary files a/pics/67050396.jpg and /dev/null differ diff --git a/pics/67095270.jpg b/pics/67095270.jpg deleted file mode 100644 index 01c2a120..00000000 Binary files a/pics/67095270.jpg and /dev/null differ diff --git a/pics/67098114.jpg b/pics/67098114.jpg deleted file mode 100644 index 23d3cc03..00000000 Binary files a/pics/67098114.jpg and /dev/null differ diff --git a/pics/67105242.jpg b/pics/67105242.jpg deleted file mode 100644 index 30755bb6..00000000 Binary files a/pics/67105242.jpg and /dev/null differ diff --git a/pics/67111213.jpg b/pics/67111213.jpg deleted file mode 100644 index 2fa1ba1b..00000000 Binary files a/pics/67111213.jpg and /dev/null differ diff --git a/pics/67113830.jpg b/pics/67113830.jpg deleted file mode 100644 index 8f381faf..00000000 Binary files a/pics/67113830.jpg and /dev/null differ diff --git a/pics/67120578.jpg b/pics/67120578.jpg deleted file mode 100755 index 80826935..00000000 Binary files a/pics/67120578.jpg and /dev/null differ diff --git a/pics/6713443.jpg b/pics/6713443.jpg deleted file mode 100644 index d9c83b28..00000000 Binary files a/pics/6713443.jpg and /dev/null differ diff --git a/pics/67136033.jpg b/pics/67136033.jpg deleted file mode 100644 index aa0821be..00000000 Binary files a/pics/67136033.jpg and /dev/null differ diff --git a/pics/67159705.jpg b/pics/67159705.jpg deleted file mode 100644 index dce658b9..00000000 Binary files a/pics/67159705.jpg and /dev/null differ diff --git a/pics/67169062.jpg b/pics/67169062.jpg deleted file mode 100644 index d5f555bc..00000000 Binary files a/pics/67169062.jpg and /dev/null differ diff --git a/pics/67173574.jpg b/pics/67173574.jpg deleted file mode 100644 index eb9c5e54..00000000 Binary files a/pics/67173574.jpg and /dev/null differ diff --git a/pics/67196946.jpg b/pics/67196946.jpg deleted file mode 100644 index b856c296..00000000 Binary files a/pics/67196946.jpg and /dev/null differ diff --git a/pics/67211766.jpg b/pics/67211766.jpg deleted file mode 100644 index eee33893..00000000 Binary files a/pics/67211766.jpg and /dev/null differ diff --git a/pics/67223587.jpg b/pics/67223587.jpg deleted file mode 100644 index 32a3b728..00000000 Binary files a/pics/67223587.jpg and /dev/null differ diff --git a/pics/67227834.jpg b/pics/67227834.jpg deleted file mode 100644 index 44792fe9..00000000 Binary files a/pics/67227834.jpg and /dev/null differ diff --git a/pics/6723.jpg b/pics/6723.jpg deleted file mode 100755 index e5da6c88..00000000 Binary files a/pics/6723.jpg and /dev/null differ diff --git a/pics/67232306.jpg b/pics/67232306.jpg deleted file mode 100644 index 666195eb..00000000 Binary files a/pics/67232306.jpg and /dev/null differ diff --git a/pics/67234805.jpg b/pics/67234805.jpg deleted file mode 100644 index b35d659a..00000000 Binary files a/pics/67234805.jpg and /dev/null differ diff --git a/pics/67237709.jpg b/pics/67237709.jpg deleted file mode 100755 index 9aa2bdc4..00000000 Binary files a/pics/67237709.jpg and /dev/null differ diff --git a/pics/67249508.jpg b/pics/67249508.jpg deleted file mode 100644 index 030a5e56..00000000 Binary files a/pics/67249508.jpg and /dev/null differ diff --git a/pics/67270095.jpg b/pics/67270095.jpg deleted file mode 100644 index 7a2ce4b2..00000000 Binary files a/pics/67270095.jpg and /dev/null differ diff --git a/pics/67273917.jpg b/pics/67273917.jpg deleted file mode 100644 index 8061144c..00000000 Binary files a/pics/67273917.jpg and /dev/null differ diff --git a/pics/67284908.jpg b/pics/67284908.jpg deleted file mode 100644 index b5ff89eb..00000000 Binary files a/pics/67284908.jpg and /dev/null differ diff --git a/pics/67287533.jpg b/pics/67287533.jpg deleted file mode 100644 index be461d11..00000000 Binary files a/pics/67287533.jpg and /dev/null differ diff --git a/pics/67300516.jpg b/pics/67300516.jpg deleted file mode 100644 index da437a38..00000000 Binary files a/pics/67300516.jpg and /dev/null differ diff --git a/pics/67310848.jpg b/pics/67310848.jpg deleted file mode 100644 index db990137..00000000 Binary files a/pics/67310848.jpg and /dev/null differ diff --git a/pics/67316075.jpg b/pics/67316075.jpg deleted file mode 100644 index 13713f7e..00000000 Binary files a/pics/67316075.jpg and /dev/null differ diff --git a/pics/67328336.jpg b/pics/67328336.jpg deleted file mode 100644 index ce691867..00000000 Binary files a/pics/67328336.jpg and /dev/null differ diff --git a/pics/6733059.jpg b/pics/6733059.jpg deleted file mode 100644 index 9ddaa27a..00000000 Binary files a/pics/6733059.jpg and /dev/null differ diff --git a/pics/6734.jpg b/pics/6734.jpg deleted file mode 100755 index af5e2b2e..00000000 Binary files a/pics/6734.jpg and /dev/null differ diff --git a/pics/67371383.jpg b/pics/67371383.jpg deleted file mode 100644 index ab523e8d..00000000 Binary files a/pics/67371383.jpg and /dev/null differ diff --git a/pics/67381587.jpg b/pics/67381587.jpg deleted file mode 100755 index f7815d4c..00000000 Binary files a/pics/67381587.jpg and /dev/null differ diff --git a/pics/6740720.jpg b/pics/6740720.jpg deleted file mode 100644 index bf5660d7..00000000 Binary files a/pics/6740720.jpg and /dev/null differ diff --git a/pics/67441435.jpg b/pics/67441435.jpg deleted file mode 100644 index a93138e9..00000000 Binary files a/pics/67441435.jpg and /dev/null differ diff --git a/pics/67443336.jpg b/pics/67443336.jpg deleted file mode 100755 index 112552ff..00000000 Binary files a/pics/67443336.jpg and /dev/null differ diff --git a/pics/67445676.jpg b/pics/67445676.jpg deleted file mode 100644 index 7e5f1f34..00000000 Binary files a/pics/67445676.jpg and /dev/null differ diff --git a/pics/674561.jpg b/pics/674561.jpg deleted file mode 100644 index 21c1b0e4..00000000 Binary files a/pics/674561.jpg and /dev/null differ diff --git a/pics/67464807.jpg b/pics/67464807.jpg deleted file mode 100644 index 47e9d7e7..00000000 Binary files a/pics/67464807.jpg and /dev/null differ diff --git a/pics/67468948.jpg b/pics/67468948.jpg deleted file mode 100644 index 5b9036d3..00000000 Binary files a/pics/67468948.jpg and /dev/null differ diff --git a/pics/67483216.jpg b/pics/67483216.jpg deleted file mode 100644 index 02dc360b..00000000 Binary files a/pics/67483216.jpg and /dev/null differ diff --git a/pics/67489919.jpg b/pics/67489919.jpg deleted file mode 100644 index 03d87ed7..00000000 Binary files a/pics/67489919.jpg and /dev/null differ diff --git a/pics/67489920.jpg b/pics/67489920.jpg deleted file mode 100644 index 04c8bf06..00000000 Binary files a/pics/67489920.jpg and /dev/null differ diff --git a/pics/67494157.jpg b/pics/67494157.jpg deleted file mode 100644 index 351fc016..00000000 Binary files a/pics/67494157.jpg and /dev/null differ diff --git a/pics/6750.jpg b/pics/6750.jpg deleted file mode 100755 index b6f0097e..00000000 Binary files a/pics/6750.jpg and /dev/null differ diff --git a/pics/67503139.jpg b/pics/67503139.jpg deleted file mode 100755 index 3dbcff2d..00000000 Binary files a/pics/67503139.jpg and /dev/null differ diff --git a/pics/67511500.jpg b/pics/67511500.jpg deleted file mode 100644 index d6d9efee..00000000 Binary files a/pics/67511500.jpg and /dev/null differ diff --git a/pics/67532912.jpg b/pics/67532912.jpg deleted file mode 100644 index 676dceff..00000000 Binary files a/pics/67532912.jpg and /dev/null differ diff --git a/pics/67556500.jpg b/pics/67556500.jpg deleted file mode 100644 index 94d04575..00000000 Binary files a/pics/67556500.jpg and /dev/null differ diff --git a/pics/67559101.jpg b/pics/67559101.jpg deleted file mode 100644 index c6c8ea76..00000000 Binary files a/pics/67559101.jpg and /dev/null differ diff --git a/pics/67616300.jpg b/pics/67616300.jpg deleted file mode 100755 index d22fd865..00000000 Binary files a/pics/67616300.jpg and /dev/null differ diff --git a/pics/67629977.jpg b/pics/67629977.jpg deleted file mode 100644 index 8ec844a6..00000000 Binary files a/pics/67629977.jpg and /dev/null differ diff --git a/pics/67630339.jpg b/pics/67630339.jpg deleted file mode 100644 index 6c0b0ddc..00000000 Binary files a/pics/67630339.jpg and /dev/null differ diff --git a/pics/67646312.jpg b/pics/67646312.jpg deleted file mode 100644 index 38ec3d94..00000000 Binary files a/pics/67646312.jpg and /dev/null differ diff --git a/pics/67675300.jpg b/pics/67675300.jpg deleted file mode 100644 index c6038706..00000000 Binary files a/pics/67675300.jpg and /dev/null differ diff --git a/pics/67688478.jpg b/pics/67688478.jpg deleted file mode 100644 index a9037931..00000000 Binary files a/pics/67688478.jpg and /dev/null differ diff --git a/pics/67692580.jpg b/pics/67692580.jpg deleted file mode 100644 index ec355c21..00000000 Binary files a/pics/67692580.jpg and /dev/null differ diff --git a/pics/67696066.jpg b/pics/67696066.jpg deleted file mode 100755 index 9940e890..00000000 Binary files a/pics/67696066.jpg and /dev/null differ diff --git a/pics/67723438.jpg b/pics/67723438.jpg deleted file mode 100644 index e4cfec21..00000000 Binary files a/pics/67723438.jpg and /dev/null differ diff --git a/pics/67724379.jpg b/pics/67724379.jpg deleted file mode 100644 index 2356dfcc..00000000 Binary files a/pics/67724379.jpg and /dev/null differ diff --git a/pics/67750322.jpg b/pics/67750322.jpg deleted file mode 100644 index ecf98010..00000000 Binary files a/pics/67750322.jpg and /dev/null differ diff --git a/pics/67757079.jpg b/pics/67757079.jpg deleted file mode 100644 index 5231d54f..00000000 Binary files a/pics/67757079.jpg and /dev/null differ diff --git a/pics/67775894.jpg b/pics/67775894.jpg deleted file mode 100644 index c8aa2a54..00000000 Binary files a/pics/67775894.jpg and /dev/null differ diff --git a/pics/67779172.jpg b/pics/67779172.jpg deleted file mode 100644 index 2eb35c90..00000000 Binary files a/pics/67779172.jpg and /dev/null differ diff --git a/pics/6781.jpg b/pics/6781.jpg deleted file mode 100755 index 211f55c1..00000000 Binary files a/pics/6781.jpg and /dev/null differ diff --git a/pics/6782.jpg b/pics/6782.jpg deleted file mode 100755 index 653a823b..00000000 Binary files a/pics/6782.jpg and /dev/null differ diff --git a/pics/67829249.jpg b/pics/67829249.jpg deleted file mode 100644 index e6cc722b..00000000 Binary files a/pics/67829249.jpg and /dev/null differ diff --git a/pics/6783.jpg b/pics/6783.jpg deleted file mode 100755 index 732e1f3a..00000000 Binary files a/pics/6783.jpg and /dev/null differ diff --git a/pics/6784.jpg b/pics/6784.jpg deleted file mode 100755 index 6ce47ed8..00000000 Binary files a/pics/6784.jpg and /dev/null differ diff --git a/pics/67841515.jpg b/pics/67841515.jpg deleted file mode 100644 index ef13733a..00000000 Binary files a/pics/67841515.jpg and /dev/null differ diff --git a/pics/6785.jpg b/pics/6785.jpg deleted file mode 100755 index 42eeab8e..00000000 Binary files a/pics/6785.jpg and /dev/null differ diff --git a/pics/6786.jpg b/pics/6786.jpg deleted file mode 100755 index e42093f2..00000000 Binary files a/pics/6786.jpg and /dev/null differ diff --git a/pics/6789.jpg b/pics/6789.jpg deleted file mode 100755 index 2a17b9b2..00000000 Binary files a/pics/6789.jpg and /dev/null differ diff --git a/pics/67904682.jpg b/pics/67904682.jpg deleted file mode 100644 index 0e917ce0..00000000 Binary files a/pics/67904682.jpg and /dev/null differ diff --git a/pics/67922702.jpg b/pics/67922702.jpg deleted file mode 100644 index c8d4695e..00000000 Binary files a/pics/67922702.jpg and /dev/null differ diff --git a/pics/67922703.jpg b/pics/67922703.jpg deleted file mode 100644 index f6d57626..00000000 Binary files a/pics/67922703.jpg and /dev/null differ diff --git a/pics/67926903.jpg b/pics/67926903.jpg deleted file mode 100644 index 6398a29b..00000000 Binary files a/pics/67926903.jpg and /dev/null differ diff --git a/pics/67934141.jpg b/pics/67934141.jpg deleted file mode 100644 index 3714a246..00000000 Binary files a/pics/67934141.jpg and /dev/null differ diff --git a/pics/67949763.jpg b/pics/67949763.jpg deleted file mode 100644 index c90f01c4..00000000 Binary files a/pics/67949763.jpg and /dev/null differ diff --git a/pics/67949764.jpg b/pics/67949764.jpg deleted file mode 100644 index 6a54d30b..00000000 Binary files a/pics/67949764.jpg and /dev/null differ diff --git a/pics/67951831.jpg b/pics/67951831.jpg deleted file mode 100644 index c156eee1..00000000 Binary files a/pics/67951831.jpg and /dev/null differ diff --git a/pics/6795211.jpg b/pics/6795211.jpg deleted file mode 100644 index a5f5f80e..00000000 Binary files a/pics/6795211.jpg and /dev/null differ diff --git a/pics/67957315.jpg b/pics/67957315.jpg deleted file mode 100644 index 23dd58f3..00000000 Binary files a/pics/67957315.jpg and /dev/null differ diff --git a/pics/67959180.jpg b/pics/67959180.jpg deleted file mode 100644 index 7c79d5f8..00000000 Binary files a/pics/67959180.jpg and /dev/null differ diff --git a/pics/67964209.jpg b/pics/67964209.jpg deleted file mode 100644 index 4d1d2e1d..00000000 Binary files a/pics/67964209.jpg and /dev/null differ diff --git a/pics/67968069.jpg b/pics/67968069.jpg deleted file mode 100644 index 9ae54068..00000000 Binary files a/pics/67968069.jpg and /dev/null differ diff --git a/pics/67985943.jpg b/pics/67985943.jpg deleted file mode 100644 index fb5c7c5c..00000000 Binary files a/pics/67985943.jpg and /dev/null differ diff --git a/pics/67987302.jpg b/pics/67987302.jpg deleted file mode 100644 index 6831a0e2..00000000 Binary files a/pics/67987302.jpg and /dev/null differ diff --git a/pics/67987611.jpg b/pics/67987611.jpg deleted file mode 100644 index 2d4884b7..00000000 Binary files a/pics/67987611.jpg and /dev/null differ diff --git a/pics/6799227.jpg b/pics/6799227.jpg deleted file mode 100644 index cdbc9420..00000000 Binary files a/pics/6799227.jpg and /dev/null differ diff --git a/pics/6800.jpg b/pics/6800.jpg deleted file mode 100755 index 5a5b35c4..00000000 Binary files a/pics/6800.jpg and /dev/null differ diff --git a/pics/68005187.jpg b/pics/68005187.jpg deleted file mode 100644 index 36ab8e35..00000000 Binary files a/pics/68005187.jpg and /dev/null differ diff --git a/pics/68007326.jpg b/pics/68007326.jpg deleted file mode 100644 index 9f227bc1..00000000 Binary files a/pics/68007326.jpg and /dev/null differ diff --git a/pics/68018709.jpg b/pics/68018709.jpg deleted file mode 100644 index 1d49646e..00000000 Binary files a/pics/68018709.jpg and /dev/null differ diff --git a/pics/6803.jpg b/pics/6803.jpg deleted file mode 100755 index ecd6dba3..00000000 Binary files a/pics/6803.jpg and /dev/null differ diff --git a/pics/68049471.jpg b/pics/68049471.jpg deleted file mode 100644 index ab72cc8e..00000000 Binary files a/pics/68049471.jpg and /dev/null differ diff --git a/pics/6805.jpg b/pics/6805.jpg deleted file mode 100755 index aac5754d..00000000 Binary files a/pics/6805.jpg and /dev/null differ diff --git a/pics/68054593.jpg b/pics/68054593.jpg deleted file mode 100644 index ad25894b..00000000 Binary files a/pics/68054593.jpg and /dev/null differ diff --git a/pics/68057622.jpg b/pics/68057622.jpg deleted file mode 100644 index 9ab47bec..00000000 Binary files a/pics/68057622.jpg and /dev/null differ diff --git a/pics/68073522.jpg b/pics/68073522.jpg deleted file mode 100644 index 8995cdc7..00000000 Binary files a/pics/68073522.jpg and /dev/null differ diff --git a/pics/68084557.jpg b/pics/68084557.jpg deleted file mode 100644 index 3a9df9f9..00000000 Binary files a/pics/68084557.jpg and /dev/null differ diff --git a/pics/68087897.jpg b/pics/68087897.jpg deleted file mode 100644 index 4ec80855..00000000 Binary files a/pics/68087897.jpg and /dev/null differ diff --git a/pics/6810.jpg b/pics/6810.jpg deleted file mode 100755 index a011d913..00000000 Binary files a/pics/6810.jpg and /dev/null differ diff --git a/pics/6811.jpg b/pics/6811.jpg deleted file mode 100755 index 602975f5..00000000 Binary files a/pics/6811.jpg and /dev/null differ diff --git a/pics/6812.jpg b/pics/6812.jpg deleted file mode 100755 index 5b17ffb5..00000000 Binary files a/pics/6812.jpg and /dev/null differ diff --git a/pics/68120130.jpg b/pics/68120130.jpg deleted file mode 100644 index 555d6dcf..00000000 Binary files a/pics/68120130.jpg and /dev/null differ diff --git a/pics/68124775.jpg b/pics/68124775.jpg deleted file mode 100644 index 27af24db..00000000 Binary files a/pics/68124775.jpg and /dev/null differ diff --git a/pics/68140974.jpg b/pics/68140974.jpg deleted file mode 100644 index 8faab2b8..00000000 Binary files a/pics/68140974.jpg and /dev/null differ diff --git a/pics/68144350.jpg b/pics/68144350.jpg deleted file mode 100644 index 919ec529..00000000 Binary files a/pics/68144350.jpg and /dev/null differ diff --git a/pics/6815.jpg b/pics/6815.jpg deleted file mode 100755 index 1e969460..00000000 Binary files a/pics/6815.jpg and /dev/null differ diff --git a/pics/68167124.jpg b/pics/68167124.jpg deleted file mode 100644 index e3c9f74f..00000000 Binary files a/pics/68167124.jpg and /dev/null differ diff --git a/pics/6817.jpg b/pics/6817.jpg deleted file mode 100755 index fa8850f9..00000000 Binary files a/pics/6817.jpg and /dev/null differ diff --git a/pics/68170903.jpg b/pics/68170903.jpg deleted file mode 100644 index f8caca54..00000000 Binary files a/pics/68170903.jpg and /dev/null differ diff --git a/pics/68171737.jpg b/pics/68171737.jpg deleted file mode 100644 index 73b8d1d9..00000000 Binary files a/pics/68171737.jpg and /dev/null differ diff --git a/pics/68182934.jpg b/pics/68182934.jpg deleted file mode 100755 index cbe2199a..00000000 Binary files a/pics/68182934.jpg and /dev/null differ diff --git a/pics/68184115.jpg b/pics/68184115.jpg deleted file mode 100644 index e7a7afaa..00000000 Binary files a/pics/68184115.jpg and /dev/null differ diff --git a/pics/68191243.jpg b/pics/68191243.jpg deleted file mode 100644 index 862889c7..00000000 Binary files a/pics/68191243.jpg and /dev/null differ diff --git a/pics/68215963.jpg b/pics/68215963.jpg deleted file mode 100644 index a2f579af..00000000 Binary files a/pics/68215963.jpg and /dev/null differ diff --git a/pics/68226653.jpg b/pics/68226653.jpg deleted file mode 100644 index f41c1e7f..00000000 Binary files a/pics/68226653.jpg and /dev/null differ diff --git a/pics/68280530.jpg b/pics/68280530.jpg deleted file mode 100644 index 0633f1e1..00000000 Binary files a/pics/68280530.jpg and /dev/null differ diff --git a/pics/68304813.jpg b/pics/68304813.jpg deleted file mode 100644 index 29d59c2a..00000000 Binary files a/pics/68304813.jpg and /dev/null differ diff --git a/pics/6831.jpg b/pics/6831.jpg deleted file mode 100755 index 5865c322..00000000 Binary files a/pics/6831.jpg and /dev/null differ diff --git a/pics/68319538.jpg b/pics/68319538.jpg deleted file mode 100644 index e142a811..00000000 Binary files a/pics/68319538.jpg and /dev/null differ diff --git a/pics/68334074.jpg b/pics/68334074.jpg deleted file mode 100644 index 9273a170..00000000 Binary files a/pics/68334074.jpg and /dev/null differ diff --git a/pics/68339286.jpg b/pics/68339286.jpg deleted file mode 100644 index bea146f9..00000000 Binary files a/pics/68339286.jpg and /dev/null differ diff --git a/pics/6836211.jpg b/pics/6836211.jpg deleted file mode 100644 index 1a49bc5b..00000000 Binary files a/pics/6836211.jpg and /dev/null differ diff --git a/pics/68366996.jpg b/pics/68366996.jpg deleted file mode 100644 index c1f6e3f0..00000000 Binary files a/pics/68366996.jpg and /dev/null differ diff --git a/pics/68371799.jpg b/pics/68371799.jpg deleted file mode 100644 index 38c5f151..00000000 Binary files a/pics/68371799.jpg and /dev/null differ diff --git a/pics/68392533.jpg b/pics/68392533.jpg deleted file mode 100644 index b9a790b1..00000000 Binary files a/pics/68392533.jpg and /dev/null differ diff --git a/pics/68395509.jpg b/pics/68395509.jpg deleted file mode 100755 index 104cff1e..00000000 Binary files a/pics/68395509.jpg and /dev/null differ diff --git a/pics/68396121.jpg b/pics/68396121.jpg deleted file mode 100644 index 4404f5ae..00000000 Binary files a/pics/68396121.jpg and /dev/null differ diff --git a/pics/68396778.jpg b/pics/68396778.jpg deleted file mode 100644 index 5459709f..00000000 Binary files a/pics/68396778.jpg and /dev/null differ diff --git a/pics/68400115.jpg b/pics/68400115.jpg deleted file mode 100644 index 5fd9c23c..00000000 Binary files a/pics/68400115.jpg and /dev/null differ diff --git a/pics/68401546.jpg b/pics/68401546.jpg deleted file mode 100644 index f1bfd9d5..00000000 Binary files a/pics/68401546.jpg and /dev/null differ diff --git a/pics/6840573.jpg b/pics/6840573.jpg deleted file mode 100644 index 435dd385..00000000 Binary files a/pics/6840573.jpg and /dev/null differ diff --git a/pics/68427465.jpg b/pics/68427465.jpg deleted file mode 100644 index c8cafc38..00000000 Binary files a/pics/68427465.jpg and /dev/null differ diff --git a/pics/6843.jpg b/pics/6843.jpg deleted file mode 100755 index 066d77db..00000000 Binary files a/pics/6843.jpg and /dev/null differ diff --git a/pics/6844.jpg b/pics/6844.jpg deleted file mode 100755 index dc9c3d50..00000000 Binary files a/pics/6844.jpg and /dev/null differ diff --git a/pics/68450517.jpg b/pics/68450517.jpg deleted file mode 100644 index 98665829..00000000 Binary files a/pics/68450517.jpg and /dev/null differ diff --git a/pics/68456353.jpg b/pics/68456353.jpg deleted file mode 100644 index 5ccb0c24..00000000 Binary files a/pics/68456353.jpg and /dev/null differ diff --git a/pics/68462976.jpg b/pics/68462976.jpg deleted file mode 100644 index c7d78b2a..00000000 Binary files a/pics/68462976.jpg and /dev/null differ diff --git a/pics/68473226.jpg b/pics/68473226.jpg deleted file mode 100644 index 68dafb74..00000000 Binary files a/pics/68473226.jpg and /dev/null differ diff --git a/pics/6849042.jpg b/pics/6849042.jpg deleted file mode 100644 index 8f4d54db..00000000 Binary files a/pics/6849042.jpg and /dev/null differ diff --git a/pics/6850209.jpg b/pics/6850209.jpg deleted file mode 100644 index 916c2e37..00000000 Binary files a/pics/6850209.jpg and /dev/null differ diff --git a/pics/68505803.jpg b/pics/68505803.jpg deleted file mode 100644 index cd4a4df7..00000000 Binary files a/pics/68505803.jpg and /dev/null differ diff --git a/pics/68516705.jpg b/pics/68516705.jpg deleted file mode 100644 index 0be5ea2d..00000000 Binary files a/pics/68516705.jpg and /dev/null differ diff --git a/pics/6853.jpg b/pics/6853.jpg deleted file mode 100755 index 70cd9e4b..00000000 Binary files a/pics/6853.jpg and /dev/null differ diff --git a/pics/68535320.jpg b/pics/68535320.jpg deleted file mode 100644 index 44d3a446..00000000 Binary files a/pics/68535320.jpg and /dev/null differ diff --git a/pics/68540058.jpg b/pics/68540058.jpg deleted file mode 100644 index 31063c99..00000000 Binary files a/pics/68540058.jpg and /dev/null differ diff --git a/pics/68540059.jpg b/pics/68540059.jpg deleted file mode 100644 index a97ffd7f..00000000 Binary files a/pics/68540059.jpg and /dev/null differ diff --git a/pics/68543408.jpg b/pics/68543408.jpg deleted file mode 100644 index 9339c24a..00000000 Binary files a/pics/68543408.jpg and /dev/null differ diff --git a/pics/6859683.jpg b/pics/6859683.jpg deleted file mode 100644 index 9ac275bb..00000000 Binary files a/pics/6859683.jpg and /dev/null differ diff --git a/pics/68597372.jpg b/pics/68597372.jpg deleted file mode 100644 index 5c315165..00000000 Binary files a/pics/68597372.jpg and /dev/null differ diff --git a/pics/68601507.jpg b/pics/68601507.jpg deleted file mode 100644 index ffa85df3..00000000 Binary files a/pics/68601507.jpg and /dev/null differ diff --git a/pics/6861.jpg b/pics/6861.jpg deleted file mode 100755 index 030973bc..00000000 Binary files a/pics/6861.jpg and /dev/null differ diff --git a/pics/68618157.jpg b/pics/68618157.jpg deleted file mode 100644 index 5bd3773f..00000000 Binary files a/pics/68618157.jpg and /dev/null differ diff --git a/pics/68625727.jpg b/pics/68625727.jpg deleted file mode 100755 index 9aef5f84..00000000 Binary files a/pics/68625727.jpg and /dev/null differ diff --git a/pics/68638985.jpg b/pics/68638985.jpg deleted file mode 100644 index eaae8b80..00000000 Binary files a/pics/68638985.jpg and /dev/null differ diff --git a/pics/68658728.jpg b/pics/68658728.jpg deleted file mode 100644 index c437118e..00000000 Binary files a/pics/68658728.jpg and /dev/null differ diff --git a/pics/6866.jpg b/pics/6866.jpg deleted file mode 100755 index 0a62b1d5..00000000 Binary files a/pics/6866.jpg and /dev/null differ diff --git a/pics/68661341.jpg b/pics/68661341.jpg deleted file mode 100644 index 66e134f8..00000000 Binary files a/pics/68661341.jpg and /dev/null differ diff --git a/pics/68663748.jpg b/pics/68663748.jpg deleted file mode 100644 index 9ae5c1d5..00000000 Binary files a/pics/68663748.jpg and /dev/null differ diff --git a/pics/68670547.jpg b/pics/68670547.jpg deleted file mode 100644 index d1d3ed9e..00000000 Binary files a/pics/68670547.jpg and /dev/null differ diff --git a/pics/6869.jpg b/pics/6869.jpg deleted file mode 100755 index 45e30c7a..00000000 Binary files a/pics/6869.jpg and /dev/null differ diff --git a/pics/6871.jpg b/pics/6871.jpg deleted file mode 100755 index edfe2fb5..00000000 Binary files a/pics/6871.jpg and /dev/null differ diff --git a/pics/68722455.jpg b/pics/68722455.jpg deleted file mode 100644 index 7c9a4f30..00000000 Binary files a/pics/68722455.jpg and /dev/null differ diff --git a/pics/68745629.jpg b/pics/68745629.jpg deleted file mode 100644 index f6a99fdf..00000000 Binary files a/pics/68745629.jpg and /dev/null differ diff --git a/pics/68762510.jpg b/pics/68762510.jpg deleted file mode 100644 index fc7c9e03..00000000 Binary files a/pics/68762510.jpg and /dev/null differ diff --git a/pics/68774379.jpg b/pics/68774379.jpg deleted file mode 100644 index 1209b59f..00000000 Binary files a/pics/68774379.jpg and /dev/null differ diff --git a/pics/68786330.jpg b/pics/68786330.jpg deleted file mode 100644 index 3b033ead..00000000 Binary files a/pics/68786330.jpg and /dev/null differ diff --git a/pics/68809475.jpg b/pics/68809475.jpg deleted file mode 100644 index 49c8ef09..00000000 Binary files a/pics/68809475.jpg and /dev/null differ diff --git a/pics/6881.jpg b/pics/6881.jpg deleted file mode 100755 index f184f778..00000000 Binary files a/pics/6881.jpg and /dev/null differ diff --git a/pics/68811206.jpg b/pics/68811206.jpg deleted file mode 100644 index 57e5580d..00000000 Binary files a/pics/68811206.jpg and /dev/null differ diff --git a/pics/68812773.jpg b/pics/68812773.jpg deleted file mode 100644 index 823476db..00000000 Binary files a/pics/68812773.jpg and /dev/null differ diff --git a/pics/68815132.jpg b/pics/68815132.jpg deleted file mode 100644 index 60c4cfc8..00000000 Binary files a/pics/68815132.jpg and /dev/null differ diff --git a/pics/68815401.jpg b/pics/68815401.jpg deleted file mode 100644 index 736efe02..00000000 Binary files a/pics/68815401.jpg and /dev/null differ diff --git a/pics/68815402.jpg b/pics/68815402.jpg deleted file mode 100644 index 771a111f..00000000 Binary files a/pics/68815402.jpg and /dev/null differ diff --git a/pics/68819554.jpg b/pics/68819554.jpg deleted file mode 100755 index 0a4efdab..00000000 Binary files a/pics/68819554.jpg and /dev/null differ diff --git a/pics/68833958.jpg b/pics/68833958.jpg deleted file mode 100755 index aaefe1d8..00000000 Binary files a/pics/68833958.jpg and /dev/null differ diff --git a/pics/68836428.jpg b/pics/68836428.jpg deleted file mode 100644 index 3912258e..00000000 Binary files a/pics/68836428.jpg and /dev/null differ diff --git a/pics/68846917.jpg b/pics/68846917.jpg deleted file mode 100644 index fbd32554..00000000 Binary files a/pics/68846917.jpg and /dev/null differ diff --git a/pics/6887.jpg b/pics/6887.jpg deleted file mode 100755 index a53d30bf..00000000 Binary files a/pics/6887.jpg and /dev/null differ diff --git a/pics/68870276.jpg b/pics/68870276.jpg deleted file mode 100644 index 936c6793..00000000 Binary files a/pics/68870276.jpg and /dev/null differ diff --git a/pics/68875140.jpg b/pics/68875140.jpg deleted file mode 100644 index b1c861a4..00000000 Binary files a/pics/68875140.jpg and /dev/null differ diff --git a/pics/68881649.jpg b/pics/68881649.jpg deleted file mode 100644 index 8a9367c2..00000000 Binary files a/pics/68881649.jpg and /dev/null differ diff --git a/pics/68928540.jpg b/pics/68928540.jpg deleted file mode 100644 index f8f65061..00000000 Binary files a/pics/68928540.jpg and /dev/null differ diff --git a/pics/68933343.jpg b/pics/68933343.jpg deleted file mode 100644 index 91043b8b..00000000 Binary files a/pics/68933343.jpg and /dev/null differ diff --git a/pics/68937720.jpg b/pics/68937720.jpg deleted file mode 100644 index 096b68f9..00000000 Binary files a/pics/68937720.jpg and /dev/null differ diff --git a/pics/68963107.jpg b/pics/68963107.jpg deleted file mode 100644 index fb1117c8..00000000 Binary files a/pics/68963107.jpg and /dev/null differ diff --git a/pics/69000994.jpg b/pics/69000994.jpg deleted file mode 100644 index 1ffb348d..00000000 Binary files a/pics/69000994.jpg and /dev/null differ diff --git a/pics/6901008.jpg b/pics/6901008.jpg deleted file mode 100644 index 754f3d26..00000000 Binary files a/pics/6901008.jpg and /dev/null differ diff --git a/pics/69015963.jpg b/pics/69015963.jpg deleted file mode 100644 index 5780dc4c..00000000 Binary files a/pics/69015963.jpg and /dev/null differ diff --git a/pics/69023354.jpg b/pics/69023354.jpg deleted file mode 100644 index f351d167..00000000 Binary files a/pics/69023354.jpg and /dev/null differ diff --git a/pics/69025477.jpg b/pics/69025477.jpg deleted file mode 100644 index 0da1b18e..00000000 Binary files a/pics/69025477.jpg and /dev/null differ diff --git a/pics/69031175.jpg b/pics/69031175.jpg deleted file mode 100644 index a5dc8c8a..00000000 Binary files a/pics/69031175.jpg and /dev/null differ diff --git a/pics/69035382.jpg b/pics/69035382.jpg deleted file mode 100644 index 54e715a1..00000000 Binary files a/pics/69035382.jpg and /dev/null differ diff --git a/pics/6903857.jpg b/pics/6903857.jpg deleted file mode 100644 index b01a6396..00000000 Binary files a/pics/6903857.jpg and /dev/null differ diff --git a/pics/6904.jpg b/pics/6904.jpg deleted file mode 100755 index 172b527c..00000000 Binary files a/pics/6904.jpg and /dev/null differ diff --git a/pics/69042950.jpg b/pics/69042950.jpg deleted file mode 100644 index 3c980f35..00000000 Binary files a/pics/69042950.jpg and /dev/null differ diff --git a/pics/69058960.jpg b/pics/69058960.jpg deleted file mode 100644 index 351e7f89..00000000 Binary files a/pics/69058960.jpg and /dev/null differ diff --git a/pics/6906.jpg b/pics/6906.jpg deleted file mode 100755 index 683f95ed..00000000 Binary files a/pics/6906.jpg and /dev/null differ diff --git a/pics/69069911.jpg b/pics/69069911.jpg deleted file mode 100644 index 68d3b9df..00000000 Binary files a/pics/69069911.jpg and /dev/null differ diff --git a/pics/6907.jpg b/pics/6907.jpg deleted file mode 100755 index ddcfa4e2..00000000 Binary files a/pics/6907.jpg and /dev/null differ diff --git a/pics/6908.jpg b/pics/6908.jpg deleted file mode 100755 index e8291e3d..00000000 Binary files a/pics/6908.jpg and /dev/null differ diff --git a/pics/69091732.jpg b/pics/69091732.jpg deleted file mode 100644 index 12fad015..00000000 Binary files a/pics/69091732.jpg and /dev/null differ diff --git a/pics/69112325.jpg b/pics/69112325.jpg deleted file mode 100644 index 691793c5..00000000 Binary files a/pics/69112325.jpg and /dev/null differ diff --git a/pics/6912.jpg b/pics/6912.jpg deleted file mode 100755 index 6a74bc89..00000000 Binary files a/pics/6912.jpg and /dev/null differ diff --git a/pics/69122763.jpg b/pics/69122763.jpg deleted file mode 100644 index 2e918704..00000000 Binary files a/pics/69122763.jpg and /dev/null differ diff --git a/pics/69123138.jpg b/pics/69123138.jpg deleted file mode 100644 index e31b73d6..00000000 Binary files a/pics/69123138.jpg and /dev/null differ diff --git a/pics/6913.jpg b/pics/6913.jpg deleted file mode 100755 index 9e0e18f0..00000000 Binary files a/pics/6913.jpg and /dev/null differ diff --git a/pics/69140098.jpg b/pics/69140098.jpg deleted file mode 100644 index bacd6daa..00000000 Binary files a/pics/69140098.jpg and /dev/null differ diff --git a/pics/69140099.jpg b/pics/69140099.jpg deleted file mode 100644 index a36db5ed..00000000 Binary files a/pics/69140099.jpg and /dev/null differ diff --git a/pics/69155991.jpg b/pics/69155991.jpg deleted file mode 100644 index 1f2b9d1d..00000000 Binary files a/pics/69155991.jpg and /dev/null differ diff --git a/pics/6916.jpg b/pics/6916.jpg deleted file mode 100755 index bb483241..00000000 Binary files a/pics/6916.jpg and /dev/null differ diff --git a/pics/69162969.jpg b/pics/69162969.jpg deleted file mode 100644 index 8d48868b..00000000 Binary files a/pics/69162969.jpg and /dev/null differ diff --git a/pics/69170557.jpg b/pics/69170557.jpg deleted file mode 100644 index 38b71421..00000000 Binary files a/pics/69170557.jpg and /dev/null differ diff --git a/pics/69176131.jpg b/pics/69176131.jpg deleted file mode 100644 index 27ae2b32..00000000 Binary files a/pics/69176131.jpg and /dev/null differ diff --git a/pics/6918.jpg b/pics/6918.jpg deleted file mode 100755 index d3df5d2b..00000000 Binary files a/pics/6918.jpg and /dev/null differ diff --git a/pics/6919.jpg b/pics/6919.jpg deleted file mode 100755 index d75ce553..00000000 Binary files a/pics/6919.jpg and /dev/null differ diff --git a/pics/691925.jpg b/pics/691925.jpg deleted file mode 100644 index 8284fa99..00000000 Binary files a/pics/691925.jpg and /dev/null differ diff --git a/pics/69196160.jpg b/pics/69196160.jpg deleted file mode 100644 index ac9852ff..00000000 Binary files a/pics/69196160.jpg and /dev/null differ diff --git a/pics/6920.jpg b/pics/6920.jpg deleted file mode 100755 index 1000fc1d..00000000 Binary files a/pics/6920.jpg and /dev/null differ diff --git a/pics/69207766.jpg b/pics/69207766.jpg deleted file mode 100644 index dba24819..00000000 Binary files a/pics/69207766.jpg and /dev/null differ diff --git a/pics/6921.jpg b/pics/6921.jpg deleted file mode 100755 index b1bedb61..00000000 Binary files a/pics/6921.jpg and /dev/null differ diff --git a/pics/69211541.jpg b/pics/69211541.jpg deleted file mode 100644 index 097e01b2..00000000 Binary files a/pics/69211541.jpg and /dev/null differ diff --git a/pics/6922.jpg b/pics/6922.jpg deleted file mode 100755 index 5e982f2f..00000000 Binary files a/pics/6922.jpg and /dev/null differ diff --git a/pics/69230391.jpg b/pics/69230391.jpg deleted file mode 100644 index 33abcf51..00000000 Binary files a/pics/69230391.jpg and /dev/null differ diff --git a/pics/69243722.jpg b/pics/69243722.jpg deleted file mode 100644 index 71173fa3..00000000 Binary files a/pics/69243722.jpg and /dev/null differ diff --git a/pics/69243953.jpg b/pics/69243953.jpg deleted file mode 100644 index 021d1bba..00000000 Binary files a/pics/69243953.jpg and /dev/null differ diff --git a/pics/69247929.jpg b/pics/69247929.jpg deleted file mode 100644 index 5589903a..00000000 Binary files a/pics/69247929.jpg and /dev/null differ diff --git a/pics/6924874.jpg b/pics/6924874.jpg deleted file mode 100644 index e5a18738..00000000 Binary files a/pics/6924874.jpg and /dev/null differ diff --git a/pics/69257165.jpg b/pics/69257165.jpg deleted file mode 100644 index 32dc0a7d..00000000 Binary files a/pics/69257165.jpg and /dev/null differ diff --git a/pics/6927.jpg b/pics/6927.jpg deleted file mode 100755 index 490c324d..00000000 Binary files a/pics/6927.jpg and /dev/null differ diff --git a/pics/69270537.jpg b/pics/69270537.jpg deleted file mode 100644 index ca9f65df..00000000 Binary files a/pics/69270537.jpg and /dev/null differ diff --git a/pics/69279219.jpg b/pics/69279219.jpg deleted file mode 100644 index bdf48a8b..00000000 Binary files a/pics/69279219.jpg and /dev/null differ diff --git a/pics/6928.jpg b/pics/6928.jpg deleted file mode 100755 index 84648679..00000000 Binary files a/pics/6928.jpg and /dev/null differ diff --git a/pics/6929.jpg b/pics/6929.jpg deleted file mode 100755 index 36e9debe..00000000 Binary files a/pics/6929.jpg and /dev/null differ diff --git a/pics/69293721.jpg b/pics/69293721.jpg deleted file mode 100644 index 68bfe7dd..00000000 Binary files a/pics/69293721.jpg and /dev/null differ diff --git a/pics/69296555.jpg b/pics/69296555.jpg deleted file mode 100644 index 3f765711..00000000 Binary files a/pics/69296555.jpg and /dev/null differ diff --git a/pics/6930.jpg b/pics/6930.jpg deleted file mode 100755 index 62a3fe2a..00000000 Binary files a/pics/6930.jpg and /dev/null differ diff --git a/pics/69303178.jpg b/pics/69303178.jpg deleted file mode 100644 index 87b820fb..00000000 Binary files a/pics/69303178.jpg and /dev/null differ diff --git a/pics/69304426.jpg b/pics/69304426.jpg deleted file mode 100644 index 3fe61915..00000000 Binary files a/pics/69304426.jpg and /dev/null differ diff --git a/pics/6930746.jpg b/pics/6930746.jpg deleted file mode 100644 index 2c4d6e64..00000000 Binary files a/pics/6930746.jpg and /dev/null differ diff --git a/pics/6931.jpg b/pics/6931.jpg deleted file mode 100755 index 65c74a00..00000000 Binary files a/pics/6931.jpg and /dev/null differ diff --git a/pics/69313735.jpg b/pics/69313735.jpg deleted file mode 100644 index cd466966..00000000 Binary files a/pics/69313735.jpg and /dev/null differ diff --git a/pics/6932.jpg b/pics/6932.jpg deleted file mode 100755 index 7f8aa288..00000000 Binary files a/pics/6932.jpg and /dev/null differ diff --git a/pics/69320362.jpg b/pics/69320362.jpg deleted file mode 100644 index d50f014d..00000000 Binary files a/pics/69320362.jpg and /dev/null differ diff --git a/pics/69327790.jpg b/pics/69327790.jpg deleted file mode 100644 index 9b40e7c3..00000000 Binary files a/pics/69327790.jpg and /dev/null differ diff --git a/pics/6933.jpg b/pics/6933.jpg deleted file mode 100755 index 1b161b2a..00000000 Binary files a/pics/6933.jpg and /dev/null differ diff --git a/pics/6934.jpg b/pics/6934.jpg deleted file mode 100755 index 8dcce97a..00000000 Binary files a/pics/6934.jpg and /dev/null differ diff --git a/pics/6935.jpg b/pics/6935.jpg deleted file mode 100755 index f22b8441..00000000 Binary files a/pics/6935.jpg and /dev/null differ diff --git a/pics/6936.jpg b/pics/6936.jpg deleted file mode 100755 index ffaf958a..00000000 Binary files a/pics/6936.jpg and /dev/null differ diff --git a/pics/6937.jpg b/pics/6937.jpg deleted file mode 100755 index a0b87204..00000000 Binary files a/pics/6937.jpg and /dev/null differ diff --git a/pics/6938.jpg b/pics/6938.jpg deleted file mode 100755 index 024936c9..00000000 Binary files a/pics/6938.jpg and /dev/null differ diff --git a/pics/69380702.jpg b/pics/69380702.jpg deleted file mode 100644 index 7737b841..00000000 Binary files a/pics/69380702.jpg and /dev/null differ diff --git a/pics/6939.jpg b/pics/6939.jpg deleted file mode 100755 index 62942fcf..00000000 Binary files a/pics/6939.jpg and /dev/null differ diff --git a/pics/69402394.jpg b/pics/69402394.jpg deleted file mode 100644 index 765339ab..00000000 Binary files a/pics/69402394.jpg and /dev/null differ diff --git a/pics/69408987.jpg b/pics/69408987.jpg deleted file mode 100644 index e192d9da..00000000 Binary files a/pics/69408987.jpg and /dev/null differ diff --git a/pics/6941.jpg b/pics/6941.jpg deleted file mode 100755 index c24737c3..00000000 Binary files a/pics/6941.jpg and /dev/null differ diff --git a/pics/69448290.jpg b/pics/69448290.jpg deleted file mode 100644 index baf8c659..00000000 Binary files a/pics/69448290.jpg and /dev/null differ diff --git a/pics/6945.jpg b/pics/6945.jpg deleted file mode 100755 index 6e5c0d78..00000000 Binary files a/pics/6945.jpg and /dev/null differ diff --git a/pics/69455834.jpg b/pics/69455834.jpg deleted file mode 100644 index be48f446..00000000 Binary files a/pics/69455834.jpg and /dev/null differ diff --git a/pics/69456283.jpg b/pics/69456283.jpg deleted file mode 100644 index ceca89c6..00000000 Binary files a/pics/69456283.jpg and /dev/null differ diff --git a/pics/6946.jpg b/pics/6946.jpg deleted file mode 100755 index 2acc38de..00000000 Binary files a/pics/6946.jpg and /dev/null differ diff --git a/pics/69461394.jpg b/pics/69461394.jpg deleted file mode 100644 index 24947f26..00000000 Binary files a/pics/69461394.jpg and /dev/null differ diff --git a/pics/6947.jpg b/pics/6947.jpg deleted file mode 100755 index 953de2a1..00000000 Binary files a/pics/6947.jpg and /dev/null differ diff --git a/pics/6948.jpg b/pics/6948.jpg deleted file mode 100755 index 64e0c72a..00000000 Binary files a/pics/6948.jpg and /dev/null differ diff --git a/pics/69488544.jpg b/pics/69488544.jpg deleted file mode 100644 index ab04aee0..00000000 Binary files a/pics/69488544.jpg and /dev/null differ diff --git a/pics/6949.jpg b/pics/6949.jpg deleted file mode 100755 index bae1aecc..00000000 Binary files a/pics/6949.jpg and /dev/null differ diff --git a/pics/6950.jpg b/pics/6950.jpg deleted file mode 100755 index 3ee73e2e..00000000 Binary files a/pics/6950.jpg and /dev/null differ diff --git a/pics/6951.jpg b/pics/6951.jpg deleted file mode 100755 index e5792728..00000000 Binary files a/pics/6951.jpg and /dev/null differ diff --git a/pics/69512157.jpg b/pics/69512157.jpg deleted file mode 100755 index 86d39dc3..00000000 Binary files a/pics/69512157.jpg and /dev/null differ diff --git a/pics/69514125.jpg b/pics/69514125.jpg deleted file mode 100644 index a661a65d..00000000 Binary files a/pics/69514125.jpg and /dev/null differ diff --git a/pics/6952.jpg b/pics/6952.jpg deleted file mode 100755 index 7b7216b4..00000000 Binary files a/pics/6952.jpg and /dev/null differ diff --git a/pics/69529567.jpg b/pics/69529567.jpg deleted file mode 100644 index 73cf8c81..00000000 Binary files a/pics/69529567.jpg and /dev/null differ diff --git a/pics/6953.jpg b/pics/6953.jpg deleted file mode 100755 index 2df58608..00000000 Binary files a/pics/6953.jpg and /dev/null differ diff --git a/pics/69537999.jpg b/pics/69537999.jpg deleted file mode 100644 index 06a6b0d3..00000000 Binary files a/pics/69537999.jpg and /dev/null differ diff --git a/pics/6954.jpg b/pics/6954.jpg deleted file mode 100755 index 7c686342..00000000 Binary files a/pics/6954.jpg and /dev/null differ diff --git a/pics/69542930.jpg b/pics/69542930.jpg deleted file mode 100644 index e8863ef0..00000000 Binary files a/pics/69542930.jpg and /dev/null differ diff --git a/pics/6955.jpg b/pics/6955.jpg deleted file mode 100755 index 8c946c6f..00000000 Binary files a/pics/6955.jpg and /dev/null differ diff --git a/pics/6956.jpg b/pics/6956.jpg deleted file mode 100755 index 05a2e190..00000000 Binary files a/pics/6956.jpg and /dev/null differ diff --git a/pics/6957.jpg b/pics/6957.jpg deleted file mode 100755 index 840cbb4a..00000000 Binary files a/pics/6957.jpg and /dev/null differ diff --git a/pics/69572024.jpg b/pics/69572024.jpg deleted file mode 100644 index 95d49650..00000000 Binary files a/pics/69572024.jpg and /dev/null differ diff --git a/pics/69572169.jpg b/pics/69572169.jpg deleted file mode 100644 index 4c65f77a..00000000 Binary files a/pics/69572169.jpg and /dev/null differ diff --git a/pics/69579761.jpg b/pics/69579761.jpg deleted file mode 100644 index 571d4f67..00000000 Binary files a/pics/69579761.jpg and /dev/null differ diff --git a/pics/6958.jpg b/pics/6958.jpg deleted file mode 100755 index ad688364..00000000 Binary files a/pics/6958.jpg and /dev/null differ diff --git a/pics/69584564.jpg b/pics/69584564.jpg deleted file mode 100644 index 378ea351..00000000 Binary files a/pics/69584564.jpg and /dev/null differ diff --git a/pics/6958551.jpg b/pics/6958551.jpg deleted file mode 100755 index 7bad795d..00000000 Binary files a/pics/6958551.jpg and /dev/null differ diff --git a/pics/6959.jpg b/pics/6959.jpg deleted file mode 100755 index 98616a49..00000000 Binary files a/pics/6959.jpg and /dev/null differ diff --git a/pics/6960.jpg b/pics/6960.jpg deleted file mode 100755 index f0171a17..00000000 Binary files a/pics/6960.jpg and /dev/null differ diff --git a/pics/69610924.jpg b/pics/69610924.jpg deleted file mode 100644 index da03ecb2..00000000 Binary files a/pics/69610924.jpg and /dev/null differ diff --git a/pics/6963.jpg b/pics/6963.jpg deleted file mode 100755 index 89881fb3..00000000 Binary files a/pics/6963.jpg and /dev/null differ diff --git a/pics/69632396.jpg b/pics/69632396.jpg deleted file mode 100644 index 3043f539..00000000 Binary files a/pics/69632396.jpg and /dev/null differ diff --git a/pics/69633792.jpg b/pics/69633792.jpg deleted file mode 100644 index ce468328..00000000 Binary files a/pics/69633792.jpg and /dev/null differ diff --git a/pics/6964.jpg b/pics/6964.jpg deleted file mode 100755 index 2f466f3c..00000000 Binary files a/pics/6964.jpg and /dev/null differ diff --git a/pics/6965.jpg b/pics/6965.jpg deleted file mode 100755 index 71cd7317..00000000 Binary files a/pics/6965.jpg and /dev/null differ diff --git a/pics/69669405.jpg b/pics/69669405.jpg deleted file mode 100644 index a11a0f54..00000000 Binary files a/pics/69669405.jpg and /dev/null differ diff --git a/pics/6967.jpg b/pics/6967.jpg deleted file mode 100755 index 1918b80b..00000000 Binary files a/pics/6967.jpg and /dev/null differ diff --git a/pics/6967870.jpg b/pics/6967870.jpg deleted file mode 100644 index 7fef3dc5..00000000 Binary files a/pics/6967870.jpg and /dev/null differ diff --git a/pics/6968.jpg b/pics/6968.jpg deleted file mode 100755 index e1068fd4..00000000 Binary files a/pics/6968.jpg and /dev/null differ diff --git a/pics/69695704.jpg b/pics/69695704.jpg deleted file mode 100644 index ae9e776b..00000000 Binary files a/pics/69695704.jpg and /dev/null differ diff --git a/pics/6970.jpg b/pics/6970.jpg deleted file mode 100755 index b23030bb..00000000 Binary files a/pics/6970.jpg and /dev/null differ diff --git a/pics/69723159.jpg b/pics/69723159.jpg deleted file mode 100644 index 5c9b3fbe..00000000 Binary files a/pics/69723159.jpg and /dev/null differ diff --git a/pics/69724380.jpg b/pics/69724380.jpg deleted file mode 100644 index 1a512609..00000000 Binary files a/pics/69724380.jpg and /dev/null differ diff --git a/pics/6974.jpg b/pics/6974.jpg deleted file mode 100755 index 8bd5967c..00000000 Binary files a/pics/6974.jpg and /dev/null differ diff --git a/pics/6975.jpg b/pics/6975.jpg deleted file mode 100755 index fff07fd1..00000000 Binary files a/pics/6975.jpg and /dev/null differ diff --git a/pics/69750536.jpg b/pics/69750536.jpg deleted file mode 100644 index 117b1413..00000000 Binary files a/pics/69750536.jpg and /dev/null differ diff --git a/pics/69750546.jpg b/pics/69750546.jpg deleted file mode 100644 index a72d0dc7..00000000 Binary files a/pics/69750546.jpg and /dev/null differ diff --git a/pics/69757518.jpg b/pics/69757518.jpg deleted file mode 100644 index a19c493c..00000000 Binary files a/pics/69757518.jpg and /dev/null differ diff --git a/pics/6976.jpg b/pics/6976.jpg deleted file mode 100755 index 6ef25c44..00000000 Binary files a/pics/6976.jpg and /dev/null differ diff --git a/pics/69764158.jpg b/pics/69764158.jpg deleted file mode 100644 index f66aab48..00000000 Binary files a/pics/69764158.jpg and /dev/null differ diff --git a/pics/6977.jpg b/pics/6977.jpg deleted file mode 100755 index 29a96292..00000000 Binary files a/pics/6977.jpg and /dev/null differ diff --git a/pics/6978.jpg b/pics/6978.jpg deleted file mode 100755 index f6a70773..00000000 Binary files a/pics/6978.jpg and /dev/null differ diff --git a/pics/69780745.jpg b/pics/69780745.jpg deleted file mode 100644 index 3dfa0bb7..00000000 Binary files a/pics/69780745.jpg and /dev/null differ diff --git a/pics/6979.jpg b/pics/6979.jpg deleted file mode 100755 index f7cd5b03..00000000 Binary files a/pics/6979.jpg and /dev/null differ diff --git a/pics/6979239.jpg b/pics/6979239.jpg deleted file mode 100644 index 0edbc941..00000000 Binary files a/pics/6979239.jpg and /dev/null differ diff --git a/pics/69831560.jpg b/pics/69831560.jpg deleted file mode 100644 index 382d9545..00000000 Binary files a/pics/69831560.jpg and /dev/null differ diff --git a/pics/69832741.jpg b/pics/69832741.jpg deleted file mode 100644 index 410d7bd8..00000000 Binary files a/pics/69832741.jpg and /dev/null differ diff --git a/pics/69838592.jpg b/pics/69838592.jpg deleted file mode 100644 index 1863db26..00000000 Binary files a/pics/69838592.jpg and /dev/null differ diff --git a/pics/69840739.jpg b/pics/69840739.jpg deleted file mode 100644 index dc85b516..00000000 Binary files a/pics/69840739.jpg and /dev/null differ diff --git a/pics/69846323.jpg b/pics/69846323.jpg deleted file mode 100644 index 509d2373..00000000 Binary files a/pics/69846323.jpg and /dev/null differ diff --git a/pics/69865139.jpg b/pics/69865139.jpg deleted file mode 100644 index 0e5a6c93..00000000 Binary files a/pics/69865139.jpg and /dev/null differ diff --git a/pics/698785.jpg b/pics/698785.jpg deleted file mode 100644 index 2a2d7038..00000000 Binary files a/pics/698785.jpg and /dev/null differ diff --git a/pics/69884162.jpg b/pics/69884162.jpg deleted file mode 100644 index f28a38e3..00000000 Binary files a/pics/69884162.jpg and /dev/null differ diff --git a/pics/69890967.jpg b/pics/69890967.jpg deleted file mode 100644 index fc69fab1..00000000 Binary files a/pics/69890967.jpg and /dev/null differ diff --git a/pics/69890968.jpg b/pics/69890968.jpg deleted file mode 100644 index bd1583f7..00000000 Binary files a/pics/69890968.jpg and /dev/null differ diff --git a/pics/69893315.jpg b/pics/69893315.jpg deleted file mode 100644 index 8da9a818..00000000 Binary files a/pics/69893315.jpg and /dev/null differ diff --git a/pics/69931927.jpg b/pics/69931927.jpg deleted file mode 100644 index 86111051..00000000 Binary files a/pics/69931927.jpg and /dev/null differ diff --git a/pics/69933858.jpg b/pics/69933858.jpg deleted file mode 100644 index 6cfb6a01..00000000 Binary files a/pics/69933858.jpg and /dev/null differ diff --git a/pics/69937550.jpg b/pics/69937550.jpg deleted file mode 100644 index 51d725f1..00000000 Binary files a/pics/69937550.jpg and /dev/null differ diff --git a/pics/69954399.jpg b/pics/69954399.jpg deleted file mode 100644 index cabb03a0..00000000 Binary files a/pics/69954399.jpg and /dev/null differ diff --git a/pics/69982329.jpg b/pics/69982329.jpg deleted file mode 100644 index 007c3622..00000000 Binary files a/pics/69982329.jpg and /dev/null differ diff --git a/pics/6999.jpg b/pics/6999.jpg deleted file mode 100755 index fc2b2f90..00000000 Binary files a/pics/6999.jpg and /dev/null differ diff --git a/pics/69992868.jpg b/pics/69992868.jpg deleted file mode 100644 index 3109f572..00000000 Binary files a/pics/69992868.jpg and /dev/null differ diff --git a/pics/700000000.jpg b/pics/700000000.jpg deleted file mode 100755 index b8ef07bd..00000000 Binary files a/pics/700000000.jpg and /dev/null differ diff --git a/pics/700000001.jpg b/pics/700000001.jpg deleted file mode 100755 index d82efe4c..00000000 Binary files a/pics/700000001.jpg and /dev/null differ diff --git a/pics/700000002.jpg b/pics/700000002.jpg deleted file mode 100755 index 84645a02..00000000 Binary files a/pics/700000002.jpg and /dev/null differ diff --git a/pics/700000003.jpg b/pics/700000003.jpg deleted file mode 100755 index 900ed9a7..00000000 Binary files a/pics/700000003.jpg and /dev/null differ diff --git a/pics/700000004.jpg b/pics/700000004.jpg deleted file mode 100755 index d5fb46dc..00000000 Binary files a/pics/700000004.jpg and /dev/null differ diff --git a/pics/700000007.jpg b/pics/700000007.jpg deleted file mode 100755 index 67a8b2c2..00000000 Binary files a/pics/700000007.jpg and /dev/null differ diff --git a/pics/700000009.jpg b/pics/700000009.jpg deleted file mode 100755 index bf4aa08e..00000000 Binary files a/pics/700000009.jpg and /dev/null differ diff --git a/pics/700000010.jpg b/pics/700000010.jpg deleted file mode 100755 index 0b67ef39..00000000 Binary files a/pics/700000010.jpg and /dev/null differ diff --git a/pics/700000011.jpg b/pics/700000011.jpg deleted file mode 100755 index 718fead7..00000000 Binary files a/pics/700000011.jpg and /dev/null differ diff --git a/pics/700000012.jpg b/pics/700000012.jpg deleted file mode 100755 index 85c33df8..00000000 Binary files a/pics/700000012.jpg and /dev/null differ diff --git a/pics/700000013.jpg b/pics/700000013.jpg deleted file mode 100755 index 14b3da8b..00000000 Binary files a/pics/700000013.jpg and /dev/null differ diff --git a/pics/700000014.jpg b/pics/700000014.jpg deleted file mode 100755 index 07573754..00000000 Binary files a/pics/700000014.jpg and /dev/null differ diff --git a/pics/700000015.jpg b/pics/700000015.jpg deleted file mode 100755 index d2dfe033..00000000 Binary files a/pics/700000015.jpg and /dev/null differ diff --git a/pics/700000016.jpg b/pics/700000016.jpg deleted file mode 100755 index 5dda9285..00000000 Binary files a/pics/700000016.jpg and /dev/null differ diff --git a/pics/700000017.jpg b/pics/700000017.jpg deleted file mode 100755 index 8ed520e4..00000000 Binary files a/pics/700000017.jpg and /dev/null differ diff --git a/pics/700000018.jpg b/pics/700000018.jpg deleted file mode 100755 index 9a7862e0..00000000 Binary files a/pics/700000018.jpg and /dev/null differ diff --git a/pics/700000019.jpg b/pics/700000019.jpg deleted file mode 100755 index 50e13cfd..00000000 Binary files a/pics/700000019.jpg and /dev/null differ diff --git a/pics/700000020.jpg b/pics/700000020.jpg deleted file mode 100755 index 46eebc6b..00000000 Binary files a/pics/700000020.jpg and /dev/null differ diff --git a/pics/700000021.jpg b/pics/700000021.jpg deleted file mode 100755 index b28a2b44..00000000 Binary files a/pics/700000021.jpg and /dev/null differ diff --git a/pics/700000022.jpg b/pics/700000022.jpg deleted file mode 100755 index 044df72a..00000000 Binary files a/pics/700000022.jpg and /dev/null differ diff --git a/pics/700000023.jpg b/pics/700000023.jpg deleted file mode 100644 index 6422e5af..00000000 Binary files a/pics/700000023.jpg and /dev/null differ diff --git a/pics/700000024.jpg b/pics/700000024.jpg deleted file mode 100644 index ca29dbb6..00000000 Binary files a/pics/700000024.jpg and /dev/null differ diff --git a/pics/700000025.jpg b/pics/700000025.jpg deleted file mode 100644 index 32a86777..00000000 Binary files a/pics/700000025.jpg and /dev/null differ diff --git a/pics/700000026.jpg b/pics/700000026.jpg deleted file mode 100644 index ff2e7cf3..00000000 Binary files a/pics/700000026.jpg and /dev/null differ diff --git a/pics/700000027.jpg b/pics/700000027.jpg deleted file mode 100755 index 5af7108c..00000000 Binary files a/pics/700000027.jpg and /dev/null differ diff --git a/pics/700000028.jpg b/pics/700000028.jpg deleted file mode 100644 index 2df57d49..00000000 Binary files a/pics/700000028.jpg and /dev/null differ diff --git a/pics/700000029.jpg b/pics/700000029.jpg deleted file mode 100755 index a8117536..00000000 Binary files a/pics/700000029.jpg and /dev/null differ diff --git a/pics/700000030.jpg b/pics/700000030.jpg deleted file mode 100755 index 295865cd..00000000 Binary files a/pics/700000030.jpg and /dev/null differ diff --git a/pics/700000031.jpg b/pics/700000031.jpg deleted file mode 100755 index 48a827c9..00000000 Binary files a/pics/700000031.jpg and /dev/null differ diff --git a/pics/700000032.jpg b/pics/700000032.jpg deleted file mode 100644 index 9532b13c..00000000 Binary files a/pics/700000032.jpg and /dev/null differ diff --git a/pics/700000033.jpg b/pics/700000033.jpg deleted file mode 100755 index 3339b59d..00000000 Binary files a/pics/700000033.jpg and /dev/null differ diff --git a/pics/70000776.jpg b/pics/70000776.jpg deleted file mode 100644 index 55789bbd..00000000 Binary files a/pics/70000776.jpg and /dev/null differ diff --git a/pics/70026064.jpg b/pics/70026064.jpg deleted file mode 100644 index 2b9a01ed..00000000 Binary files a/pics/70026064.jpg and /dev/null differ diff --git a/pics/7004.jpg b/pics/7004.jpg deleted file mode 100755 index 199ea29f..00000000 Binary files a/pics/7004.jpg and /dev/null differ diff --git a/pics/70043345.jpg b/pics/70043345.jpg deleted file mode 100644 index cef20616..00000000 Binary files a/pics/70043345.jpg and /dev/null differ diff --git a/pics/70046172.jpg b/pics/70046172.jpg deleted file mode 100644 index 270774b4..00000000 Binary files a/pics/70046172.jpg and /dev/null differ diff --git a/pics/70050374.jpg b/pics/70050374.jpg deleted file mode 100644 index aef93702..00000000 Binary files a/pics/70050374.jpg and /dev/null differ diff --git a/pics/70054514.jpg b/pics/70054514.jpg deleted file mode 100644 index 7e841939..00000000 Binary files a/pics/70054514.jpg and /dev/null differ diff --git a/pics/70074904.jpg b/pics/70074904.jpg deleted file mode 100644 index f4bc537d..00000000 Binary files a/pics/70074904.jpg and /dev/null differ diff --git a/pics/70083592.jpg b/pics/70083592.jpg deleted file mode 100644 index 6b45daba..00000000 Binary files a/pics/70083592.jpg and /dev/null differ diff --git a/pics/70083723.jpg b/pics/70083723.jpg deleted file mode 100644 index b59245ea..00000000 Binary files a/pics/70083723.jpg and /dev/null differ diff --git a/pics/70084224.jpg b/pics/70084224.jpg deleted file mode 100644 index 4a6f1f57..00000000 Binary files a/pics/70084224.jpg and /dev/null differ diff --git a/pics/70089580.jpg b/pics/70089580.jpg deleted file mode 100644 index e300e958..00000000 Binary files a/pics/70089580.jpg and /dev/null differ diff --git a/pics/70095154.jpg b/pics/70095154.jpg deleted file mode 100644 index 5faf1dfe..00000000 Binary files a/pics/70095154.jpg and /dev/null differ diff --git a/pics/70095155.jpg b/pics/70095155.jpg deleted file mode 100644 index 0f04ae61..00000000 Binary files a/pics/70095155.jpg and /dev/null differ diff --git a/pics/70101178.jpg b/pics/70101178.jpg deleted file mode 100644 index c7ba1723..00000000 Binary files a/pics/70101178.jpg and /dev/null differ diff --git a/pics/70124586.jpg b/pics/70124586.jpg deleted file mode 100755 index 27dbd132..00000000 Binary files a/pics/70124586.jpg and /dev/null differ diff --git a/pics/70138455.jpg b/pics/70138455.jpg deleted file mode 100644 index 212fbbdc..00000000 Binary files a/pics/70138455.jpg and /dev/null differ diff --git a/pics/70156997.jpg b/pics/70156997.jpg deleted file mode 100644 index 14813880..00000000 Binary files a/pics/70156997.jpg and /dev/null differ diff --git a/pics/70187958.jpg b/pics/70187958.jpg deleted file mode 100644 index dcab0f39..00000000 Binary files a/pics/70187958.jpg and /dev/null differ diff --git a/pics/70194827.jpg b/pics/70194827.jpg deleted file mode 100644 index eb508c65..00000000 Binary files a/pics/70194827.jpg and /dev/null differ diff --git a/pics/7019529.jpg b/pics/7019529.jpg deleted file mode 100644 index 388372ea..00000000 Binary files a/pics/7019529.jpg and /dev/null differ diff --git a/pics/70222318.jpg b/pics/70222318.jpg deleted file mode 100644 index adbb33a9..00000000 Binary files a/pics/70222318.jpg and /dev/null differ diff --git a/pics/70231910.jpg b/pics/70231910.jpg deleted file mode 100644 index 3736370e..00000000 Binary files a/pics/70231910.jpg and /dev/null differ diff --git a/pics/70245411.jpg b/pics/70245411.jpg deleted file mode 100644 index ce8fff62..00000000 Binary files a/pics/70245411.jpg and /dev/null differ diff --git a/pics/7025445.jpg b/pics/7025445.jpg deleted file mode 100644 index 100372c6..00000000 Binary files a/pics/7025445.jpg and /dev/null differ diff --git a/pics/70261145.jpg b/pics/70261145.jpg deleted file mode 100644 index e0ba7d09..00000000 Binary files a/pics/70261145.jpg and /dev/null differ diff --git a/pics/70271583.jpg b/pics/70271583.jpg deleted file mode 100644 index ec1ac3b2..00000000 Binary files a/pics/70271583.jpg and /dev/null differ diff --git a/pics/70278545.jpg b/pics/70278545.jpg deleted file mode 100644 index c66548e3..00000000 Binary files a/pics/70278545.jpg and /dev/null differ diff --git a/pics/70284332.jpg b/pics/70284332.jpg deleted file mode 100644 index ac3898ec..00000000 Binary files a/pics/70284332.jpg and /dev/null differ diff --git a/pics/7030340.jpg b/pics/7030340.jpg deleted file mode 100644 index 5adc4bb3..00000000 Binary files a/pics/7030340.jpg and /dev/null differ diff --git a/pics/70307656.jpg b/pics/70307656.jpg deleted file mode 100644 index 6655197b..00000000 Binary files a/pics/70307656.jpg and /dev/null differ diff --git a/pics/70329348.jpg b/pics/70329348.jpg deleted file mode 100644 index b4c30e14..00000000 Binary files a/pics/70329348.jpg and /dev/null differ diff --git a/pics/70342110.jpg b/pics/70342110.jpg deleted file mode 100644 index 395825f6..00000000 Binary files a/pics/70342110.jpg and /dev/null differ diff --git a/pics/70344351.jpg b/pics/70344351.jpg deleted file mode 100644 index dc391c35..00000000 Binary files a/pics/70344351.jpg and /dev/null differ diff --git a/pics/70345785.jpg b/pics/70345785.jpg deleted file mode 100644 index fb9bebeb..00000000 Binary files a/pics/70345785.jpg and /dev/null differ diff --git a/pics/70355994.jpg b/pics/70355994.jpg deleted file mode 100644 index 8acccd1e..00000000 Binary files a/pics/70355994.jpg and /dev/null differ diff --git a/pics/70368879.jpg b/pics/70368879.jpg deleted file mode 100644 index 0d213b4c..00000000 Binary files a/pics/70368879.jpg and /dev/null differ diff --git a/pics/70391588.jpg b/pics/70391588.jpg deleted file mode 100644 index 3375f595..00000000 Binary files a/pics/70391588.jpg and /dev/null differ diff --git a/pics/70391589.jpg b/pics/70391589.jpg deleted file mode 100644 index d5fdafb4..00000000 Binary files a/pics/70391589.jpg and /dev/null differ diff --git a/pics/70406920.jpg b/pics/70406920.jpg deleted file mode 100644 index 15a0c2ed..00000000 Binary files a/pics/70406920.jpg and /dev/null differ diff --git a/pics/70422863.jpg b/pics/70422863.jpg deleted file mode 100644 index 6432e131..00000000 Binary files a/pics/70422863.jpg and /dev/null differ diff --git a/pics/70423794.jpg b/pics/70423794.jpg deleted file mode 100644 index 76463208..00000000 Binary files a/pics/70423794.jpg and /dev/null differ diff --git a/pics/70456282.jpg b/pics/70456282.jpg deleted file mode 100755 index bf320aee..00000000 Binary files a/pics/70456282.jpg and /dev/null differ diff --git a/pics/70458081.jpg b/pics/70458081.jpg deleted file mode 100644 index 19b7ee62..00000000 Binary files a/pics/70458081.jpg and /dev/null differ diff --git a/pics/70479321.jpg b/pics/70479321.jpg deleted file mode 100755 index 69a2f544..00000000 Binary files a/pics/70479321.jpg and /dev/null differ diff --git a/pics/70546737.jpg b/pics/70546737.jpg deleted file mode 100644 index cad72433..00000000 Binary files a/pics/70546737.jpg and /dev/null differ diff --git a/pics/70560957.jpg b/pics/70560957.jpg deleted file mode 100755 index 9ad8aafc..00000000 Binary files a/pics/70560957.jpg and /dev/null differ diff --git a/pics/70583986.jpg b/pics/70583986.jpg deleted file mode 100644 index bd0442a8..00000000 Binary files a/pics/70583986.jpg and /dev/null differ diff --git a/pics/70595331.jpg b/pics/70595331.jpg deleted file mode 100644 index b2ee55be..00000000 Binary files a/pics/70595331.jpg and /dev/null differ diff --git a/pics/70624184.jpg b/pics/70624184.jpg deleted file mode 100644 index acb06fae..00000000 Binary files a/pics/70624184.jpg and /dev/null differ diff --git a/pics/70630741.jpg b/pics/70630741.jpg deleted file mode 100644 index a25f548c..00000000 Binary files a/pics/70630741.jpg and /dev/null differ diff --git a/pics/70655556.jpg b/pics/70655556.jpg deleted file mode 100644 index 06f6a576..00000000 Binary files a/pics/70655556.jpg and /dev/null differ diff --git a/pics/70668285.jpg b/pics/70668285.jpg deleted file mode 100644 index 49f066f8..00000000 Binary files a/pics/70668285.jpg and /dev/null differ diff --git a/pics/70676581.jpg b/pics/70676581.jpg deleted file mode 100644 index c5c0ca65..00000000 Binary files a/pics/70676581.jpg and /dev/null differ diff --git a/pics/70681994.jpg b/pics/70681994.jpg deleted file mode 100644 index 170382e3..00000000 Binary files a/pics/70681994.jpg and /dev/null differ diff --git a/pics/706925.jpg b/pics/706925.jpg deleted file mode 100644 index cfb38004..00000000 Binary files a/pics/706925.jpg and /dev/null differ diff --git a/pics/7076131.jpg b/pics/7076131.jpg deleted file mode 100644 index 2fc534c4..00000000 Binary files a/pics/7076131.jpg and /dev/null differ diff --git a/pics/70780151.jpg b/pics/70780151.jpg deleted file mode 100644 index 42d235c9..00000000 Binary files a/pics/70780151.jpg and /dev/null differ diff --git a/pics/70781052.jpg b/pics/70781052.jpg deleted file mode 100644 index 969d6dde..00000000 Binary files a/pics/70781052.jpg and /dev/null differ diff --git a/pics/70781053.jpg b/pics/70781053.jpg deleted file mode 100644 index 3aaf3105..00000000 Binary files a/pics/70781053.jpg and /dev/null differ diff --git a/pics/70781054.jpg b/pics/70781054.jpg deleted file mode 100644 index f6cc6ab2..00000000 Binary files a/pics/70781054.jpg and /dev/null differ diff --git a/pics/70781055.jpg b/pics/70781055.jpg deleted file mode 100644 index 40cf0152..00000000 Binary files a/pics/70781055.jpg and /dev/null differ diff --git a/pics/70791313.jpg b/pics/70791313.jpg deleted file mode 100644 index 94319be7..00000000 Binary files a/pics/70791313.jpg and /dev/null differ diff --git a/pics/70797118.jpg b/pics/70797118.jpg deleted file mode 100644 index 8afabd63..00000000 Binary files a/pics/70797118.jpg and /dev/null differ diff --git a/pics/7080743.jpg b/pics/7080743.jpg deleted file mode 100644 index 2dc56e6e..00000000 Binary files a/pics/7080743.jpg and /dev/null differ diff --git a/pics/70821187.jpg b/pics/70821187.jpg deleted file mode 100644 index defdfb7f..00000000 Binary files a/pics/70821187.jpg and /dev/null differ diff --git a/pics/70828912.jpg b/pics/70828912.jpg deleted file mode 100644 index dc650aba..00000000 Binary files a/pics/70828912.jpg and /dev/null differ diff --git a/pics/70832512.jpg b/pics/70832512.jpg deleted file mode 100644 index 8395e198..00000000 Binary files a/pics/70832512.jpg and /dev/null differ diff --git a/pics/70861343.jpg b/pics/70861343.jpg deleted file mode 100644 index 9c7c45d0..00000000 Binary files a/pics/70861343.jpg and /dev/null differ diff --git a/pics/70865988.jpg b/pics/70865988.jpg deleted file mode 100644 index 2e1c5ffe..00000000 Binary files a/pics/70865988.jpg and /dev/null differ diff --git a/pics/70875955.jpg b/pics/70875955.jpg deleted file mode 100644 index 2dadb950..00000000 Binary files a/pics/70875955.jpg and /dev/null differ diff --git a/pics/70875956.jpg b/pics/70875956.jpg deleted file mode 100644 index 3c96d67a..00000000 Binary files a/pics/70875956.jpg and /dev/null differ diff --git a/pics/7089711.jpg b/pics/7089711.jpg deleted file mode 100644 index 86965fcb..00000000 Binary files a/pics/7089711.jpg and /dev/null differ diff --git a/pics/70899775.jpg b/pics/70899775.jpg deleted file mode 100755 index 27074603..00000000 Binary files a/pics/70899775.jpg and /dev/null differ diff --git a/pics/70902743.jpg b/pics/70902743.jpg deleted file mode 100644 index 323948f0..00000000 Binary files a/pics/70902743.jpg and /dev/null differ diff --git a/pics/70903634.jpg b/pics/70903634.jpg deleted file mode 100644 index c566b85a..00000000 Binary files a/pics/70903634.jpg and /dev/null differ diff --git a/pics/70908596.jpg b/pics/70908596.jpg deleted file mode 100644 index 963ca6f6..00000000 Binary files a/pics/70908596.jpg and /dev/null differ diff --git a/pics/70913714.jpg b/pics/70913714.jpg deleted file mode 100644 index 33899a60..00000000 Binary files a/pics/70913714.jpg and /dev/null differ diff --git a/pics/7092142.jpg b/pics/7092142.jpg deleted file mode 100644 index 0d676db6..00000000 Binary files a/pics/7092142.jpg and /dev/null differ diff --git a/pics/70924884.jpg b/pics/70924884.jpg deleted file mode 100644 index c6522463..00000000 Binary files a/pics/70924884.jpg and /dev/null differ diff --git a/pics/7093411.jpg b/pics/7093411.jpg deleted file mode 100644 index 058da68f..00000000 Binary files a/pics/7093411.jpg and /dev/null differ diff --git a/pics/70946699.jpg b/pics/70946699.jpg deleted file mode 100644 index d8cdd51b..00000000 Binary files a/pics/70946699.jpg and /dev/null differ diff --git a/pics/70948327.jpg b/pics/70948327.jpg deleted file mode 100644 index e5f76731..00000000 Binary files a/pics/70948327.jpg and /dev/null differ diff --git a/pics/70969517.jpg b/pics/70969517.jpg deleted file mode 100644 index bb1180e8..00000000 Binary files a/pics/70969517.jpg and /dev/null differ diff --git a/pics/71015787.jpg b/pics/71015787.jpg deleted file mode 100644 index 5daf0fdd..00000000 Binary files a/pics/71015787.jpg and /dev/null differ diff --git a/pics/71044499.jpg b/pics/71044499.jpg deleted file mode 100644 index b1e4fc8f..00000000 Binary files a/pics/71044499.jpg and /dev/null differ diff --git a/pics/71060915.jpg b/pics/71060915.jpg deleted file mode 100644 index 7d722162..00000000 Binary files a/pics/71060915.jpg and /dev/null differ diff --git a/pics/71068247.jpg b/pics/71068247.jpg deleted file mode 100644 index a977ca25..00000000 Binary files a/pics/71068247.jpg and /dev/null differ diff --git a/pics/71068263.jpg b/pics/71068263.jpg deleted file mode 100644 index a22ff968..00000000 Binary files a/pics/71068263.jpg and /dev/null differ diff --git a/pics/71069715.jpg b/pics/71069715.jpg deleted file mode 100755 index b2c77c3f..00000000 Binary files a/pics/71069715.jpg and /dev/null differ diff --git a/pics/71071546.jpg b/pics/71071546.jpg deleted file mode 100644 index 55126795..00000000 Binary files a/pics/71071546.jpg and /dev/null differ diff --git a/pics/71098407.jpg b/pics/71098407.jpg deleted file mode 100644 index 5004fc1c..00000000 Binary files a/pics/71098407.jpg and /dev/null differ diff --git a/pics/71106375.jpg b/pics/71106375.jpg deleted file mode 100644 index a8611e74..00000000 Binary files a/pics/71106375.jpg and /dev/null differ diff --git a/pics/71107816.jpg b/pics/71107816.jpg deleted file mode 100644 index 759b0afa..00000000 Binary files a/pics/71107816.jpg and /dev/null differ diff --git a/pics/71175527.jpg b/pics/71175527.jpg deleted file mode 100644 index bc43bb9c..00000000 Binary files a/pics/71175527.jpg and /dev/null differ diff --git a/pics/71181155.jpg b/pics/71181155.jpg deleted file mode 100644 index 15fa8b42..00000000 Binary files a/pics/71181155.jpg and /dev/null differ diff --git a/pics/71200730.jpg b/pics/71200730.jpg deleted file mode 100644 index 6f2d1b02..00000000 Binary files a/pics/71200730.jpg and /dev/null differ diff --git a/pics/71203602.jpg b/pics/71203602.jpg deleted file mode 100644 index 58469871..00000000 Binary files a/pics/71203602.jpg and /dev/null differ diff --git a/pics/71209500.jpg b/pics/71209500.jpg deleted file mode 100644 index bf715082..00000000 Binary files a/pics/71209500.jpg and /dev/null differ diff --git a/pics/71218746.jpg b/pics/71218746.jpg deleted file mode 100644 index 549ce6ea..00000000 Binary files a/pics/71218746.jpg and /dev/null differ diff --git a/pics/71233859.jpg b/pics/71233859.jpg deleted file mode 100644 index adb5a639..00000000 Binary files a/pics/71233859.jpg and /dev/null differ diff --git a/pics/71249758.jpg b/pics/71249758.jpg deleted file mode 100644 index 0fb3e587..00000000 Binary files a/pics/71249758.jpg and /dev/null differ diff --git a/pics/712559.jpg b/pics/712559.jpg deleted file mode 100644 index f0d3325b..00000000 Binary files a/pics/712559.jpg and /dev/null differ diff --git a/pics/71272951.jpg b/pics/71272951.jpg deleted file mode 100644 index 49419a13..00000000 Binary files a/pics/71272951.jpg and /dev/null differ diff --git a/pics/71279983.jpg b/pics/71279983.jpg deleted file mode 100644 index 5c0951b9..00000000 Binary files a/pics/71279983.jpg and /dev/null differ diff --git a/pics/71280811.jpg b/pics/71280811.jpg deleted file mode 100644 index 92ee358d..00000000 Binary files a/pics/71280811.jpg and /dev/null differ diff --git a/pics/71283180.jpg b/pics/71283180.jpg deleted file mode 100644 index 87519c2f..00000000 Binary files a/pics/71283180.jpg and /dev/null differ diff --git a/pics/71315423.jpg b/pics/71315423.jpg deleted file mode 100644 index 011f7e93..00000000 Binary files a/pics/71315423.jpg and /dev/null differ diff --git a/pics/71341529.jpg b/pics/71341529.jpg deleted file mode 100644 index 57543c0f..00000000 Binary files a/pics/71341529.jpg and /dev/null differ diff --git a/pics/71345905.jpg b/pics/71345905.jpg deleted file mode 100644 index c6cf3c18..00000000 Binary files a/pics/71345905.jpg and /dev/null differ diff --git a/pics/71353388.jpg b/pics/71353388.jpg deleted file mode 100644 index e1ef1b36..00000000 Binary files a/pics/71353388.jpg and /dev/null differ diff --git a/pics/71395725.jpg b/pics/71395725.jpg deleted file mode 100644 index 21f04897..00000000 Binary files a/pics/71395725.jpg and /dev/null differ diff --git a/pics/71407486.jpg b/pics/71407486.jpg deleted file mode 100644 index c95ee420..00000000 Binary files a/pics/71407486.jpg and /dev/null differ diff --git a/pics/71408082.jpg b/pics/71408082.jpg deleted file mode 100755 index b12e608a..00000000 Binary files a/pics/71408082.jpg and /dev/null differ diff --git a/pics/71411377.jpg b/pics/71411377.jpg deleted file mode 100644 index cf02564a..00000000 Binary files a/pics/71411377.jpg and /dev/null differ diff --git a/pics/71413901.jpg b/pics/71413901.jpg deleted file mode 100644 index 5a480b16..00000000 Binary files a/pics/71413901.jpg and /dev/null differ diff --git a/pics/71415349.jpg b/pics/71415349.jpg deleted file mode 100644 index 25536c6d..00000000 Binary files a/pics/71415349.jpg and /dev/null differ diff --git a/pics/71417170.jpg b/pics/71417170.jpg deleted file mode 100644 index f1d0dae8..00000000 Binary files a/pics/71417170.jpg and /dev/null differ diff --git a/pics/71422989.jpg b/pics/71422989.jpg deleted file mode 100755 index e9fd0f9c..00000000 Binary files a/pics/71422989.jpg and /dev/null differ diff --git a/pics/71438011.jpg b/pics/71438011.jpg deleted file mode 100644 index f0df4ceb..00000000 Binary files a/pics/71438011.jpg and /dev/null differ diff --git a/pics/71453557.jpg b/pics/71453557.jpg deleted file mode 100644 index ea41c66a..00000000 Binary files a/pics/71453557.jpg and /dev/null differ diff --git a/pics/71466592.jpg b/pics/71466592.jpg deleted file mode 100644 index 96bd664f..00000000 Binary files a/pics/71466592.jpg and /dev/null differ diff --git a/pics/71490127.jpg b/pics/71490127.jpg deleted file mode 100644 index cd3bcafe..00000000 Binary files a/pics/71490127.jpg and /dev/null differ diff --git a/pics/71519605.jpg b/pics/71519605.jpg deleted file mode 100644 index c20b5129..00000000 Binary files a/pics/71519605.jpg and /dev/null differ diff --git a/pics/7152333.jpg b/pics/7152333.jpg deleted file mode 100644 index 27a2fe0d..00000000 Binary files a/pics/7152333.jpg and /dev/null differ diff --git a/pics/7153114.jpg b/pics/7153114.jpg deleted file mode 100644 index 1b10b2a1..00000000 Binary files a/pics/7153114.jpg and /dev/null differ diff --git a/pics/71541986.jpg b/pics/71541986.jpg deleted file mode 100644 index c0226f00..00000000 Binary files a/pics/71541986.jpg and /dev/null differ diff --git a/pics/71544954.jpg b/pics/71544954.jpg deleted file mode 100644 index 5ad84e3f..00000000 Binary files a/pics/71544954.jpg and /dev/null differ diff --git a/pics/71564150.jpg b/pics/71564150.jpg deleted file mode 100644 index 1cd5d489..00000000 Binary files a/pics/71564150.jpg and /dev/null differ diff --git a/pics/71564252.jpg b/pics/71564252.jpg deleted file mode 100644 index 3eddb17e..00000000 Binary files a/pics/71564252.jpg and /dev/null differ diff --git a/pics/71578874.jpg b/pics/71578874.jpg deleted file mode 100644 index 4878cfc2..00000000 Binary files a/pics/71578874.jpg and /dev/null differ diff --git a/pics/71587526.jpg b/pics/71587526.jpg deleted file mode 100644 index e592789a..00000000 Binary files a/pics/71587526.jpg and /dev/null differ diff --git a/pics/71594310.jpg b/pics/71594310.jpg deleted file mode 100644 index c1904e32..00000000 Binary files a/pics/71594310.jpg and /dev/null differ diff --git a/pics/71612253.jpg b/pics/71612253.jpg deleted file mode 100755 index d9928afd..00000000 Binary files a/pics/71612253.jpg and /dev/null differ diff --git a/pics/71616908.jpg b/pics/71616908.jpg deleted file mode 100644 index a8ef70dc..00000000 Binary files a/pics/71616908.jpg and /dev/null differ diff --git a/pics/71625222.jpg b/pics/71625222.jpg deleted file mode 100644 index 44f2c8cc..00000000 Binary files a/pics/71625222.jpg and /dev/null differ diff --git a/pics/71628381.jpg b/pics/71628381.jpg deleted file mode 100644 index baf65259..00000000 Binary files a/pics/71628381.jpg and /dev/null differ diff --git a/pics/71645242.jpg b/pics/71645242.jpg deleted file mode 100644 index 21799ccd..00000000 Binary files a/pics/71645242.jpg and /dev/null differ diff --git a/pics/71645243.jpg b/pics/71645243.jpg deleted file mode 100644 index dbf82d7b..00000000 Binary files a/pics/71645243.jpg and /dev/null differ diff --git a/pics/7165085.jpg b/pics/7165085.jpg deleted file mode 100644 index 8d772212..00000000 Binary files a/pics/7165085.jpg and /dev/null differ diff --git a/pics/71652522.jpg b/pics/71652522.jpg deleted file mode 100644 index 9c20788d..00000000 Binary files a/pics/71652522.jpg and /dev/null differ diff --git a/pics/71692913.jpg b/pics/71692913.jpg deleted file mode 100755 index e92b7f04..00000000 Binary files a/pics/71692913.jpg and /dev/null differ diff --git a/pics/71705144.jpg b/pics/71705144.jpg deleted file mode 100644 index 3555bc53..00000000 Binary files a/pics/71705144.jpg and /dev/null differ diff --git a/pics/7171149.jpg b/pics/7171149.jpg deleted file mode 100755 index a4779105..00000000 Binary files a/pics/7171149.jpg and /dev/null differ diff --git a/pics/71717923.jpg b/pics/71717923.jpg deleted file mode 100644 index 8d3fee4f..00000000 Binary files a/pics/71717923.jpg and /dev/null differ diff --git a/pics/71746462.jpg b/pics/71746462.jpg deleted file mode 100644 index 96ef1f41..00000000 Binary files a/pics/71746462.jpg and /dev/null differ diff --git a/pics/71759912.jpg b/pics/71759912.jpg deleted file mode 100644 index 3350a199..00000000 Binary files a/pics/71759912.jpg and /dev/null differ diff --git a/pics/71782404.jpg b/pics/71782404.jpg deleted file mode 100755 index 116a43d5..00000000 Binary files a/pics/71782404.jpg and /dev/null differ diff --git a/pics/71786742.jpg b/pics/71786742.jpg deleted file mode 100644 index 4a51f915..00000000 Binary files a/pics/71786742.jpg and /dev/null differ diff --git a/pics/71799173.jpg b/pics/71799173.jpg deleted file mode 100644 index e18a8958..00000000 Binary files a/pics/71799173.jpg and /dev/null differ diff --git a/pics/7180418.jpg b/pics/7180418.jpg deleted file mode 100644 index 68d47899..00000000 Binary files a/pics/7180418.jpg and /dev/null differ diff --git a/pics/71829750.jpg b/pics/71829750.jpg deleted file mode 100644 index 3c8d23c8..00000000 Binary files a/pics/71829750.jpg and /dev/null differ diff --git a/pics/7183277.jpg b/pics/7183277.jpg deleted file mode 100644 index 152ac238..00000000 Binary files a/pics/7183277.jpg and /dev/null differ diff --git a/pics/71870152.jpg b/pics/71870152.jpg deleted file mode 100644 index fc29c789..00000000 Binary files a/pics/71870152.jpg and /dev/null differ diff --git a/pics/71880877.jpg b/pics/71880877.jpg deleted file mode 100644 index 22a24a4d..00000000 Binary files a/pics/71880877.jpg and /dev/null differ diff --git a/pics/71921856.jpg b/pics/71921856.jpg deleted file mode 100644 index 958377c0..00000000 Binary files a/pics/71921856.jpg and /dev/null differ diff --git a/pics/71923655.jpg b/pics/71923655.jpg deleted file mode 100644 index 3ba5f997..00000000 Binary files a/pics/71923655.jpg and /dev/null differ diff --git a/pics/71930383.jpg b/pics/71930383.jpg deleted file mode 100644 index 421d092f..00000000 Binary files a/pics/71930383.jpg and /dev/null differ diff --git a/pics/71934924.jpg b/pics/71934924.jpg deleted file mode 100644 index f77b35d7..00000000 Binary files a/pics/71934924.jpg and /dev/null differ diff --git a/pics/7194917.jpg b/pics/7194917.jpg deleted file mode 100644 index 41367307..00000000 Binary files a/pics/7194917.jpg and /dev/null differ diff --git a/pics/71950093.jpg b/pics/71950093.jpg deleted file mode 100644 index e0685951..00000000 Binary files a/pics/71950093.jpg and /dev/null differ diff --git a/pics/71971554.jpg b/pics/71971554.jpg deleted file mode 100644 index b5aaac98..00000000 Binary files a/pics/71971554.jpg and /dev/null differ diff --git a/pics/71983925.jpg b/pics/71983925.jpg deleted file mode 100644 index 9cbe59e9..00000000 Binary files a/pics/71983925.jpg and /dev/null differ diff --git a/pics/7200041.jpg b/pics/7200041.jpg deleted file mode 100644 index 545d68af..00000000 Binary files a/pics/7200041.jpg and /dev/null differ diff --git a/pics/72022087.jpg b/pics/72022087.jpg deleted file mode 100644 index 0378e146..00000000 Binary files a/pics/72022087.jpg and /dev/null differ diff --git a/pics/72029628.jpg b/pics/72029628.jpg deleted file mode 100644 index 7b4fcb3c..00000000 Binary files a/pics/72029628.jpg and /dev/null differ diff --git a/pics/72044448.jpg b/pics/72044448.jpg deleted file mode 100644 index 917c62d3..00000000 Binary files a/pics/72044448.jpg and /dev/null differ diff --git a/pics/72053645.jpg b/pics/72053645.jpg deleted file mode 100644 index 6b00ea25..00000000 Binary files a/pics/72053645.jpg and /dev/null differ diff --git a/pics/72056560.jpg b/pics/72056560.jpg deleted file mode 100644 index 09f0e6c7..00000000 Binary files a/pics/72056560.jpg and /dev/null differ diff --git a/pics/72076281.jpg b/pics/72076281.jpg deleted file mode 100644 index 18dbda69..00000000 Binary files a/pics/72076281.jpg and /dev/null differ diff --git a/pics/72142276.jpg b/pics/72142276.jpg deleted file mode 100644 index 5555da97..00000000 Binary files a/pics/72142276.jpg and /dev/null differ diff --git a/pics/72144675.jpg b/pics/72144675.jpg deleted file mode 100644 index bed6fc24..00000000 Binary files a/pics/72144675.jpg and /dev/null differ diff --git a/pics/72150572.jpg b/pics/72150572.jpg deleted file mode 100644 index 394af265..00000000 Binary files a/pics/72150572.jpg and /dev/null differ diff --git a/pics/72167543.jpg b/pics/72167543.jpg deleted file mode 100644 index 9f5bbf9b..00000000 Binary files a/pics/72167543.jpg and /dev/null differ diff --git a/pics/72181263.jpg b/pics/72181263.jpg deleted file mode 100755 index d1e9d2c4..00000000 Binary files a/pics/72181263.jpg and /dev/null differ diff --git a/pics/72192100.jpg b/pics/72192100.jpg deleted file mode 100644 index 0aa61232..00000000 Binary files a/pics/72192100.jpg and /dev/null differ diff --git a/pics/72204747.jpg b/pics/72204747.jpg deleted file mode 100644 index 50ccd31a..00000000 Binary files a/pics/72204747.jpg and /dev/null differ diff --git a/pics/72237166.jpg b/pics/72237166.jpg deleted file mode 100644 index 9e04383f..00000000 Binary files a/pics/72237166.jpg and /dev/null differ diff --git a/pics/7225792.jpg b/pics/7225792.jpg deleted file mode 100644 index 3cf23f82..00000000 Binary files a/pics/7225792.jpg and /dev/null differ diff --git a/pics/72258771.jpg b/pics/72258771.jpg deleted file mode 100644 index cbeb0911..00000000 Binary files a/pics/72258771.jpg and /dev/null differ diff --git a/pics/72269672.jpg b/pics/72269672.jpg deleted file mode 100644 index 53e5d440..00000000 Binary files a/pics/72269672.jpg and /dev/null differ diff --git a/pics/72278479.jpg b/pics/72278479.jpg deleted file mode 100644 index 7b225182..00000000 Binary files a/pics/72278479.jpg and /dev/null differ diff --git a/pics/72287557.jpg b/pics/72287557.jpg deleted file mode 100644 index c17eed07..00000000 Binary files a/pics/72287557.jpg and /dev/null differ diff --git a/pics/72291078.jpg b/pics/72291078.jpg deleted file mode 100644 index 081f6f03..00000000 Binary files a/pics/72291078.jpg and /dev/null differ diff --git a/pics/72291079.jpg b/pics/72291079.jpg deleted file mode 100644 index 29a185a5..00000000 Binary files a/pics/72291079.jpg and /dev/null differ diff --git a/pics/72291412.jpg b/pics/72291412.jpg deleted file mode 100644 index 98b08684..00000000 Binary files a/pics/72291412.jpg and /dev/null differ diff --git a/pics/72299832.jpg b/pics/72299832.jpg deleted file mode 100644 index 43c60cc9..00000000 Binary files a/pics/72299832.jpg and /dev/null differ diff --git a/pics/72302403.jpg b/pics/72302403.jpg deleted file mode 100644 index 77dfd919..00000000 Binary files a/pics/72302403.jpg and /dev/null differ diff --git a/pics/72328962.jpg b/pics/72328962.jpg deleted file mode 100644 index dfee08f7..00000000 Binary files a/pics/72328962.jpg and /dev/null differ diff --git a/pics/72345736.jpg b/pics/72345736.jpg deleted file mode 100644 index daaf910f..00000000 Binary files a/pics/72345736.jpg and /dev/null differ diff --git a/pics/72355441.jpg b/pics/72355441.jpg deleted file mode 100644 index 6728cdf8..00000000 Binary files a/pics/72355441.jpg and /dev/null differ diff --git a/pics/72370114.jpg b/pics/72370114.jpg deleted file mode 100644 index 09a23ffc..00000000 Binary files a/pics/72370114.jpg and /dev/null differ diff --git a/pics/72378329.jpg b/pics/72378329.jpg deleted file mode 100644 index de8d18c2..00000000 Binary files a/pics/72378329.jpg and /dev/null differ diff --git a/pics/72403299.jpg b/pics/72403299.jpg deleted file mode 100644 index 13763b47..00000000 Binary files a/pics/72403299.jpg and /dev/null differ diff --git a/pics/72405967.jpg b/pics/72405967.jpg deleted file mode 100644 index d76d9337..00000000 Binary files a/pics/72405967.jpg and /dev/null differ diff --git a/pics/7241272.jpg b/pics/7241272.jpg deleted file mode 100755 index 8356e324..00000000 Binary files a/pics/7241272.jpg and /dev/null differ diff --git a/pics/72413000.jpg b/pics/72413000.jpg deleted file mode 100755 index 9ebd0dc3..00000000 Binary files a/pics/72413000.jpg and /dev/null differ diff --git a/pics/72426662.jpg b/pics/72426662.jpg deleted file mode 100644 index 7aba8adb..00000000 Binary files a/pics/72426662.jpg and /dev/null differ diff --git a/pics/72429240.jpg b/pics/72429240.jpg deleted file mode 100644 index a318d97c..00000000 Binary files a/pics/72429240.jpg and /dev/null differ diff --git a/pics/7243511.jpg b/pics/7243511.jpg deleted file mode 100644 index e178f26b..00000000 Binary files a/pics/7243511.jpg and /dev/null differ diff --git a/pics/72439556.jpg b/pics/72439556.jpg deleted file mode 100644 index dc92dbc8..00000000 Binary files a/pics/72439556.jpg and /dev/null differ diff --git a/pics/72443568.jpg b/pics/72443568.jpg deleted file mode 100644 index 9360b64f..00000000 Binary files a/pics/72443568.jpg and /dev/null differ diff --git a/pics/72446038.jpg b/pics/72446038.jpg deleted file mode 100644 index e1d11776..00000000 Binary files a/pics/72446038.jpg and /dev/null differ diff --git a/pics/72491806.jpg b/pics/72491806.jpg deleted file mode 100644 index 2d872c05..00000000 Binary files a/pics/72491806.jpg and /dev/null differ diff --git a/pics/72497366.jpg b/pics/72497366.jpg deleted file mode 100644 index 4c816e35..00000000 Binary files a/pics/72497366.jpg and /dev/null differ diff --git a/pics/72502414.jpg b/pics/72502414.jpg deleted file mode 100644 index b3da8373..00000000 Binary files a/pics/72502414.jpg and /dev/null differ diff --git a/pics/72520073.jpg b/pics/72520073.jpg deleted file mode 100644 index 699ddfb2..00000000 Binary files a/pics/72520073.jpg and /dev/null differ diff --git a/pics/72537897.jpg b/pics/72537897.jpg deleted file mode 100644 index d05f1e01..00000000 Binary files a/pics/72537897.jpg and /dev/null differ diff --git a/pics/72549351.jpg b/pics/72549351.jpg deleted file mode 100644 index fa306836..00000000 Binary files a/pics/72549351.jpg and /dev/null differ diff --git a/pics/72563071.jpg b/pics/72563071.jpg deleted file mode 100644 index 38172bf6..00000000 Binary files a/pics/72563071.jpg and /dev/null differ diff --git a/pics/72575145.jpg b/pics/72575145.jpg deleted file mode 100644 index 33438c7f..00000000 Binary files a/pics/72575145.jpg and /dev/null differ diff --git a/pics/72580321.jpg b/pics/72580321.jpg deleted file mode 100644 index df7c153f..00000000 Binary files a/pics/72580321.jpg and /dev/null differ diff --git a/pics/72621670.jpg b/pics/72621670.jpg deleted file mode 100755 index e356fb06..00000000 Binary files a/pics/72621670.jpg and /dev/null differ diff --git a/pics/72630549.jpg b/pics/72630549.jpg deleted file mode 100644 index 137e105a..00000000 Binary files a/pics/72630549.jpg and /dev/null differ diff --git a/pics/72631243.jpg b/pics/72631243.jpg deleted file mode 100644 index 31d4e2b7..00000000 Binary files a/pics/72631243.jpg and /dev/null differ diff --git a/pics/72634965.jpg b/pics/72634965.jpg deleted file mode 100644 index a72fa3a9..00000000 Binary files a/pics/72634965.jpg and /dev/null differ diff --git a/pics/72648577.jpg b/pics/72648577.jpg deleted file mode 100644 index c4a2e8c3..00000000 Binary files a/pics/72648577.jpg and /dev/null differ diff --git a/pics/7264861.jpg b/pics/7264861.jpg deleted file mode 100644 index 58cfc63c..00000000 Binary files a/pics/7264861.jpg and /dev/null differ diff --git a/pics/72657739.jpg b/pics/72657739.jpg deleted file mode 100644 index e1d50c99..00000000 Binary files a/pics/72657739.jpg and /dev/null differ diff --git a/pics/72677437.jpg b/pics/72677437.jpg deleted file mode 100644 index 54045be9..00000000 Binary files a/pics/72677437.jpg and /dev/null differ diff --git a/pics/72709014.jpg b/pics/72709014.jpg deleted file mode 100644 index 3a06c811..00000000 Binary files a/pics/72709014.jpg and /dev/null differ diff --git a/pics/72710085.jpg b/pics/72710085.jpg deleted file mode 100644 index dc54bb91..00000000 Binary files a/pics/72710085.jpg and /dev/null differ diff --git a/pics/72714226.jpg b/pics/72714226.jpg deleted file mode 100644 index 86e899a8..00000000 Binary files a/pics/72714226.jpg and /dev/null differ diff --git a/pics/72714392.jpg b/pics/72714392.jpg deleted file mode 100644 index 6faf2bea..00000000 Binary files a/pics/72714392.jpg and /dev/null differ diff --git a/pics/72714461.jpg b/pics/72714461.jpg deleted file mode 100644 index 794fb31f..00000000 Binary files a/pics/72714461.jpg and /dev/null differ diff --git a/pics/72767833.jpg b/pics/72767833.jpg deleted file mode 100644 index b414be1f..00000000 Binary files a/pics/72767833.jpg and /dev/null differ diff --git a/pics/72837335.jpg b/pics/72837335.jpg deleted file mode 100644 index b31fc10a..00000000 Binary files a/pics/72837335.jpg and /dev/null differ diff --git a/pics/72842870.jpg b/pics/72842870.jpg deleted file mode 100644 index a9755b2e..00000000 Binary files a/pics/72842870.jpg and /dev/null differ diff --git a/pics/72845813.jpg b/pics/72845813.jpg deleted file mode 100644 index c31ad25f..00000000 Binary files a/pics/72845813.jpg and /dev/null differ diff --git a/pics/72869010.jpg b/pics/72869010.jpg deleted file mode 100644 index b3ad6e4e..00000000 Binary files a/pics/72869010.jpg and /dev/null differ diff --git a/pics/72881007.jpg b/pics/72881007.jpg deleted file mode 100644 index e63bd538..00000000 Binary files a/pics/72881007.jpg and /dev/null differ diff --git a/pics/72885174.jpg b/pics/72885174.jpg deleted file mode 100644 index e2b9ab51..00000000 Binary files a/pics/72885174.jpg and /dev/null differ diff --git a/pics/72892473.jpg b/pics/72892473.jpg deleted file mode 100644 index 400e2fec..00000000 Binary files a/pics/72892473.jpg and /dev/null differ diff --git a/pics/72896720.jpg b/pics/72896720.jpg deleted file mode 100644 index 6be213a8..00000000 Binary files a/pics/72896720.jpg and /dev/null differ diff --git a/pics/72903645.jpg b/pics/72903645.jpg deleted file mode 100644 index 8ea3c330..00000000 Binary files a/pics/72903645.jpg and /dev/null differ diff --git a/pics/72913666.jpg b/pics/72913666.jpg deleted file mode 100644 index 67c099eb..00000000 Binary files a/pics/72913666.jpg and /dev/null differ diff --git a/pics/72926163.jpg b/pics/72926163.jpg deleted file mode 100644 index 8d2e6fe6..00000000 Binary files a/pics/72926163.jpg and /dev/null differ diff --git a/pics/72929454.jpg b/pics/72929454.jpg deleted file mode 100644 index fa15c973..00000000 Binary files a/pics/72929454.jpg and /dev/null differ diff --git a/pics/72930878.jpg b/pics/72930878.jpg deleted file mode 100644 index 5ff9a73b..00000000 Binary files a/pics/72930878.jpg and /dev/null differ diff --git a/pics/72932673.jpg b/pics/72932673.jpg deleted file mode 100644 index 26a5843d..00000000 Binary files a/pics/72932673.jpg and /dev/null differ diff --git a/pics/72959823.jpg b/pics/72959823.jpg deleted file mode 100644 index 35d40eb1..00000000 Binary files a/pics/72959823.jpg and /dev/null differ diff --git a/pics/72989439.jpg b/pics/72989439.jpg deleted file mode 100644 index 9d23af4f..00000000 Binary files a/pics/72989439.jpg and /dev/null differ diff --git a/pics/72992744.jpg b/pics/72992744.jpg deleted file mode 100644 index 2acd18f4..00000000 Binary files a/pics/72992744.jpg and /dev/null differ diff --git a/pics/73001017.jpg b/pics/73001017.jpg deleted file mode 100644 index fb584ffa..00000000 Binary files a/pics/73001017.jpg and /dev/null differ diff --git a/pics/73018302.jpg b/pics/73018302.jpg deleted file mode 100644 index fd85d80f..00000000 Binary files a/pics/73018302.jpg and /dev/null differ diff --git a/pics/73026394.jpg b/pics/73026394.jpg deleted file mode 100644 index e264904f..00000000 Binary files a/pics/73026394.jpg and /dev/null differ diff --git a/pics/73040500.jpg b/pics/73040500.jpg deleted file mode 100644 index ce54ca88..00000000 Binary files a/pics/73040500.jpg and /dev/null differ diff --git a/pics/7304544.jpg b/pics/7304544.jpg deleted file mode 100644 index 510aae96..00000000 Binary files a/pics/7304544.jpg and /dev/null differ diff --git a/pics/73048641.jpg b/pics/73048641.jpg deleted file mode 100644 index 21473fc1..00000000 Binary files a/pics/73048641.jpg and /dev/null differ diff --git a/pics/73051941.jpg b/pics/73051941.jpg deleted file mode 100644 index 94edffbc..00000000 Binary files a/pics/73051941.jpg and /dev/null differ diff --git a/pics/73061465.jpg b/pics/73061465.jpg deleted file mode 100644 index ed994c12..00000000 Binary files a/pics/73061465.jpg and /dev/null differ diff --git a/pics/73079365.jpg b/pics/73079365.jpg deleted file mode 100644 index aa8faf21..00000000 Binary files a/pics/73079365.jpg and /dev/null differ diff --git a/pics/73081602.jpg b/pics/73081602.jpg deleted file mode 100644 index d5c46941..00000000 Binary files a/pics/73081602.jpg and /dev/null differ diff --git a/pics/73125233.jpg b/pics/73125233.jpg deleted file mode 100644 index b025c623..00000000 Binary files a/pics/73125233.jpg and /dev/null differ diff --git a/pics/73130445.jpg b/pics/73130445.jpg deleted file mode 100644 index 92ae18b7..00000000 Binary files a/pics/73130445.jpg and /dev/null differ diff --git a/pics/73134081.jpg b/pics/73134081.jpg deleted file mode 100644 index 42503cf1..00000000 Binary files a/pics/73134081.jpg and /dev/null differ diff --git a/pics/73134082.jpg b/pics/73134082.jpg deleted file mode 100644 index c9b49868..00000000 Binary files a/pics/73134082.jpg and /dev/null differ diff --git a/pics/73136204.jpg b/pics/73136204.jpg deleted file mode 100644 index e554ace1..00000000 Binary files a/pics/73136204.jpg and /dev/null differ diff --git a/pics/73146473.jpg b/pics/73146473.jpg deleted file mode 100644 index dd52f713..00000000 Binary files a/pics/73146473.jpg and /dev/null differ diff --git a/pics/73148972.jpg b/pics/73148972.jpg deleted file mode 100644 index d05aaf47..00000000 Binary files a/pics/73148972.jpg and /dev/null differ diff --git a/pics/73176465.jpg b/pics/73176465.jpg deleted file mode 100644 index bdba0358..00000000 Binary files a/pics/73176465.jpg and /dev/null differ diff --git a/pics/73178098.jpg b/pics/73178098.jpg deleted file mode 100644 index c264c5d3..00000000 Binary files a/pics/73178098.jpg and /dev/null differ diff --git a/pics/73199638.jpg b/pics/73199638.jpg deleted file mode 100644 index 2ffa10eb..00000000 Binary files a/pics/73199638.jpg and /dev/null differ diff --git a/pics/73206827.jpg b/pics/73206827.jpg deleted file mode 100644 index 836f1bd0..00000000 Binary files a/pics/73206827.jpg and /dev/null differ diff --git a/pics/73213494.jpg b/pics/73213494.jpg deleted file mode 100644 index 9bd73d7c..00000000 Binary files a/pics/73213494.jpg and /dev/null differ diff --git a/pics/73216412.jpg b/pics/73216412.jpg deleted file mode 100644 index 194c725e..00000000 Binary files a/pics/73216412.jpg and /dev/null differ diff --git a/pics/73219648.jpg b/pics/73219648.jpg deleted file mode 100644 index c4134673..00000000 Binary files a/pics/73219648.jpg and /dev/null differ diff --git a/pics/732302.jpg b/pics/732302.jpg deleted file mode 100644 index 8798381f..00000000 Binary files a/pics/732302.jpg and /dev/null differ diff --git a/pics/73262676.jpg b/pics/73262676.jpg deleted file mode 100644 index c12f7215..00000000 Binary files a/pics/73262676.jpg and /dev/null differ diff --git a/pics/73285669.jpg b/pics/73285669.jpg deleted file mode 100644 index b37cf9ce..00000000 Binary files a/pics/73285669.jpg and /dev/null differ diff --git a/pics/73289035.jpg b/pics/73289035.jpg deleted file mode 100644 index 8f7b4b49..00000000 Binary files a/pics/73289035.jpg and /dev/null differ diff --git a/pics/73318863.jpg b/pics/73318863.jpg deleted file mode 100644 index 1d6df4c1..00000000 Binary files a/pics/73318863.jpg and /dev/null differ diff --git a/pics/73333463.jpg b/pics/73333463.jpg deleted file mode 100644 index 475a2a0c..00000000 Binary files a/pics/73333463.jpg and /dev/null differ diff --git a/pics/73347079.jpg b/pics/73347079.jpg deleted file mode 100644 index d23117a4..00000000 Binary files a/pics/73347079.jpg and /dev/null differ diff --git a/pics/73356503.jpg b/pics/73356503.jpg deleted file mode 100644 index a0757b81..00000000 Binary files a/pics/73356503.jpg and /dev/null differ diff --git a/pics/73359475.jpg b/pics/73359475.jpg deleted file mode 100644 index d640206a..00000000 Binary files a/pics/73359475.jpg and /dev/null differ diff --git a/pics/73360025.jpg b/pics/73360025.jpg deleted file mode 100755 index da653c4e..00000000 Binary files a/pics/73360025.jpg and /dev/null differ diff --git a/pics/73398797.jpg b/pics/73398797.jpg deleted file mode 100644 index 635ee55c..00000000 Binary files a/pics/73398797.jpg and /dev/null differ diff --git a/pics/73414375.jpg b/pics/73414375.jpg deleted file mode 100644 index ba197044..00000000 Binary files a/pics/73414375.jpg and /dev/null differ diff --git a/pics/73417207.jpg b/pics/73417207.jpg deleted file mode 100644 index 790dc1ba..00000000 Binary files a/pics/73417207.jpg and /dev/null differ diff --git a/pics/73428497.jpg b/pics/73428497.jpg deleted file mode 100644 index 2ff43263..00000000 Binary files a/pics/73428497.jpg and /dev/null differ diff --git a/pics/73431236.jpg b/pics/73431236.jpg deleted file mode 100644 index 0c26ba91..00000000 Binary files a/pics/73431236.jpg and /dev/null differ diff --git a/pics/73445448.jpg b/pics/73445448.jpg deleted file mode 100644 index 1604c8d1..00000000 Binary files a/pics/73445448.jpg and /dev/null differ diff --git a/pics/734741.jpg b/pics/734741.jpg deleted file mode 100644 index fabc8573..00000000 Binary files a/pics/734741.jpg and /dev/null differ diff --git a/pics/73481154.jpg b/pics/73481154.jpg deleted file mode 100644 index 25a73ca8..00000000 Binary files a/pics/73481154.jpg and /dev/null differ diff --git a/pics/73483491.jpg b/pics/73483491.jpg deleted file mode 100644 index 735f356e..00000000 Binary files a/pics/73483491.jpg and /dev/null differ diff --git a/pics/73507661.jpg b/pics/73507661.jpg deleted file mode 100644 index cc999058..00000000 Binary files a/pics/73507661.jpg and /dev/null differ diff --git a/pics/73544866.jpg b/pics/73544866.jpg deleted file mode 100644 index f50a6dc9..00000000 Binary files a/pics/73544866.jpg and /dev/null differ diff --git a/pics/73551138.jpg b/pics/73551138.jpg deleted file mode 100644 index 8858cd54..00000000 Binary files a/pics/73551138.jpg and /dev/null differ diff --git a/pics/73567374.jpg b/pics/73567374.jpg deleted file mode 100644 index 815423cf..00000000 Binary files a/pics/73567374.jpg and /dev/null differ diff --git a/pics/73574678.jpg b/pics/73574678.jpg deleted file mode 100644 index bed40045..00000000 Binary files a/pics/73574678.jpg and /dev/null differ diff --git a/pics/73578229.jpg b/pics/73578229.jpg deleted file mode 100644 index c1777e0b..00000000 Binary files a/pics/73578229.jpg and /dev/null differ diff --git a/pics/73580471.jpg b/pics/73580471.jpg deleted file mode 100644 index b22a3979..00000000 Binary files a/pics/73580471.jpg and /dev/null differ diff --git a/pics/7359741.jpg b/pics/7359741.jpg deleted file mode 100644 index 9aa35a26..00000000 Binary files a/pics/7359741.jpg and /dev/null differ diff --git a/pics/73599290.jpg b/pics/73599290.jpg deleted file mode 100644 index a3fa5723..00000000 Binary files a/pics/73599290.jpg and /dev/null differ diff --git a/pics/73625877.jpg b/pics/73625877.jpg deleted file mode 100644 index 21b393c1..00000000 Binary files a/pics/73625877.jpg and /dev/null differ diff --git a/pics/73628505.jpg b/pics/73628505.jpg deleted file mode 100644 index bdc9978a..00000000 Binary files a/pics/73628505.jpg and /dev/null differ diff --git a/pics/73632127.jpg b/pics/73632127.jpg deleted file mode 100644 index 7e76dd27..00000000 Binary files a/pics/73632127.jpg and /dev/null differ diff --git a/pics/73648243.jpg b/pics/73648243.jpg deleted file mode 100644 index cc17917f..00000000 Binary files a/pics/73648243.jpg and /dev/null differ diff --git a/pics/73652465.jpg b/pics/73652465.jpg deleted file mode 100644 index ab203006..00000000 Binary files a/pics/73652465.jpg and /dev/null differ diff --git a/pics/73659078.jpg b/pics/73659078.jpg deleted file mode 100644 index abc18621..00000000 Binary files a/pics/73659078.jpg and /dev/null differ diff --git a/pics/73665146.jpg b/pics/73665146.jpg deleted file mode 100644 index cfffccd5..00000000 Binary files a/pics/73665146.jpg and /dev/null differ diff --git a/pics/73680966.jpg b/pics/73680966.jpg deleted file mode 100644 index 63b8d759..00000000 Binary files a/pics/73680966.jpg and /dev/null differ diff --git a/pics/7369217.jpg b/pics/7369217.jpg deleted file mode 100644 index dfd514b7..00000000 Binary files a/pics/7369217.jpg and /dev/null differ diff --git a/pics/73694478.jpg b/pics/73694478.jpg deleted file mode 100644 index 901dc645..00000000 Binary files a/pics/73694478.jpg and /dev/null differ diff --git a/pics/73698349.jpg b/pics/73698349.jpg deleted file mode 100644 index 915585a8..00000000 Binary files a/pics/73698349.jpg and /dev/null differ diff --git a/pics/73702909.jpg b/pics/73702909.jpg deleted file mode 100644 index d60d3d4a..00000000 Binary files a/pics/73702909.jpg and /dev/null differ diff --git a/pics/73729209.jpg b/pics/73729209.jpg deleted file mode 100644 index 6a13e825..00000000 Binary files a/pics/73729209.jpg and /dev/null differ diff --git a/pics/73752131.jpg b/pics/73752131.jpg deleted file mode 100644 index dd99cf3b..00000000 Binary files a/pics/73752131.jpg and /dev/null differ diff --git a/pics/73776643.jpg b/pics/73776643.jpg deleted file mode 100644 index 31053fc7..00000000 Binary files a/pics/73776643.jpg and /dev/null differ diff --git a/pics/73778008.jpg b/pics/73778008.jpg deleted file mode 100644 index 5a8d85b7..00000000 Binary files a/pics/73778008.jpg and /dev/null differ diff --git a/pics/73779005.jpg b/pics/73779005.jpg deleted file mode 100644 index 48167196..00000000 Binary files a/pics/73779005.jpg and /dev/null differ diff --git a/pics/73783043.jpg b/pics/73783043.jpg deleted file mode 100644 index 266c68de..00000000 Binary files a/pics/73783043.jpg and /dev/null differ diff --git a/pics/73787254.jpg b/pics/73787254.jpg deleted file mode 100644 index 5a1f313d..00000000 Binary files a/pics/73787254.jpg and /dev/null differ diff --git a/pics/73837870.jpg b/pics/73837870.jpg deleted file mode 100644 index 068878ad..00000000 Binary files a/pics/73837870.jpg and /dev/null differ diff --git a/pics/73853830.jpg b/pics/73853830.jpg deleted file mode 100644 index 8974993b..00000000 Binary files a/pics/73853830.jpg and /dev/null differ diff --git a/pics/73866096.jpg b/pics/73866096.jpg deleted file mode 100644 index f16f5e63..00000000 Binary files a/pics/73866096.jpg and /dev/null differ diff --git a/pics/73872164.jpg b/pics/73872164.jpg deleted file mode 100644 index 55c64fbe..00000000 Binary files a/pics/73872164.jpg and /dev/null differ diff --git a/pics/73879377.jpg b/pics/73879377.jpg deleted file mode 100644 index 443a80ea..00000000 Binary files a/pics/73879377.jpg and /dev/null differ diff --git a/pics/73887236.jpg b/pics/73887236.jpg deleted file mode 100644 index 5685cc10..00000000 Binary files a/pics/73887236.jpg and /dev/null differ diff --git a/pics/73891874.jpg b/pics/73891874.jpg deleted file mode 100644 index 821d0c94..00000000 Binary files a/pics/73891874.jpg and /dev/null differ diff --git a/pics/73899015.jpg b/pics/73899015.jpg deleted file mode 100644 index 5492713e..00000000 Binary files a/pics/73899015.jpg and /dev/null differ diff --git a/pics/73906480.jpg b/pics/73906480.jpg deleted file mode 100644 index 78e360d8..00000000 Binary files a/pics/73906480.jpg and /dev/null differ diff --git a/pics/73911410.jpg b/pics/73911410.jpg deleted file mode 100644 index 006e3f80..00000000 Binary files a/pics/73911410.jpg and /dev/null differ diff --git a/pics/7391448.jpg b/pics/7391448.jpg deleted file mode 100644 index 4371d41e..00000000 Binary files a/pics/7391448.jpg and /dev/null differ diff --git a/pics/73915051.jpg b/pics/73915051.jpg deleted file mode 100644 index 5ae283a2..00000000 Binary files a/pics/73915051.jpg and /dev/null differ diff --git a/pics/73915052.jpg b/pics/73915052.jpg deleted file mode 100644 index 6486cce0..00000000 Binary files a/pics/73915052.jpg and /dev/null differ diff --git a/pics/73915053.jpg b/pics/73915053.jpg deleted file mode 100644 index 8bfa91ac..00000000 Binary files a/pics/73915053.jpg and /dev/null differ diff --git a/pics/73915054.jpg b/pics/73915054.jpg deleted file mode 100644 index 217fb644..00000000 Binary files a/pics/73915054.jpg and /dev/null differ diff --git a/pics/73915055.jpg b/pics/73915055.jpg deleted file mode 100644 index bcb2fb06..00000000 Binary files a/pics/73915055.jpg and /dev/null differ diff --git a/pics/7392745.jpg b/pics/7392745.jpg deleted file mode 100644 index 1a9bcf90..00000000 Binary files a/pics/7392745.jpg and /dev/null differ diff --git a/pics/7392746.jpg b/pics/7392746.jpg deleted file mode 100644 index c44419f9..00000000 Binary files a/pics/7392746.jpg and /dev/null differ diff --git a/pics/7394770.jpg b/pics/7394770.jpg deleted file mode 100755 index 37bb9b5a..00000000 Binary files a/pics/7394770.jpg and /dev/null differ diff --git a/pics/73964868.jpg b/pics/73964868.jpg deleted file mode 100644 index d2a9402f..00000000 Binary files a/pics/73964868.jpg and /dev/null differ diff --git a/pics/73988674.jpg b/pics/73988674.jpg deleted file mode 100644 index 8a949691..00000000 Binary files a/pics/73988674.jpg and /dev/null differ diff --git a/pics/74009824.jpg b/pics/74009824.jpg deleted file mode 100644 index 2aa0a239..00000000 Binary files a/pics/74009824.jpg and /dev/null differ diff --git a/pics/74010769.jpg b/pics/74010769.jpg deleted file mode 100644 index 649d42be..00000000 Binary files a/pics/74010769.jpg and /dev/null differ diff --git a/pics/74029853.jpg b/pics/74029853.jpg deleted file mode 100644 index 83b92c32..00000000 Binary files a/pics/74029853.jpg and /dev/null differ diff --git a/pics/7405310.jpg b/pics/7405310.jpg deleted file mode 100644 index a4b8d453..00000000 Binary files a/pics/7405310.jpg and /dev/null differ diff --git a/pics/74064212.jpg b/pics/74064212.jpg deleted file mode 100644 index 81117c70..00000000 Binary files a/pics/74064212.jpg and /dev/null differ diff --git a/pics/74069667.jpg b/pics/74069667.jpg deleted file mode 100644 index bde46f99..00000000 Binary files a/pics/74069667.jpg and /dev/null differ diff --git a/pics/74093656.jpg b/pics/74093656.jpg deleted file mode 100644 index a930609f..00000000 Binary files a/pics/74093656.jpg and /dev/null differ diff --git a/pics/74094021.jpg b/pics/74094021.jpg deleted file mode 100644 index 3f694ac5..00000000 Binary files a/pics/74094021.jpg and /dev/null differ diff --git a/pics/74095602.jpg b/pics/74095602.jpg deleted file mode 100644 index 6ca1d58a..00000000 Binary files a/pics/74095602.jpg and /dev/null differ diff --git a/pics/7409792.jpg b/pics/7409792.jpg deleted file mode 100644 index 19ca4e4f..00000000 Binary files a/pics/7409792.jpg and /dev/null differ diff --git a/pics/74100225.jpg b/pics/74100225.jpg deleted file mode 100644 index efc03a97..00000000 Binary files a/pics/74100225.jpg and /dev/null differ diff --git a/pics/74115234.jpg b/pics/74115234.jpg deleted file mode 100644 index d2d43f37..00000000 Binary files a/pics/74115234.jpg and /dev/null differ diff --git a/pics/74117290.jpg b/pics/74117290.jpg deleted file mode 100644 index aab8a09e..00000000 Binary files a/pics/74117290.jpg and /dev/null differ diff --git a/pics/74122412.jpg b/pics/74122412.jpg deleted file mode 100644 index 2a589303..00000000 Binary files a/pics/74122412.jpg and /dev/null differ diff --git a/pics/74130411.jpg b/pics/74130411.jpg deleted file mode 100644 index a7bf54d3..00000000 Binary files a/pics/74130411.jpg and /dev/null differ diff --git a/pics/74131780.jpg b/pics/74131780.jpg deleted file mode 100644 index 941a8ae7..00000000 Binary files a/pics/74131780.jpg and /dev/null differ diff --git a/pics/74137509.jpg b/pics/74137509.jpg deleted file mode 100644 index 793d461c..00000000 Binary files a/pics/74137509.jpg and /dev/null differ diff --git a/pics/74153887.jpg b/pics/74153887.jpg deleted file mode 100644 index 6afdc769..00000000 Binary files a/pics/74153887.jpg and /dev/null differ diff --git a/pics/74157028.jpg b/pics/74157028.jpg deleted file mode 100644 index 099899c1..00000000 Binary files a/pics/74157028.jpg and /dev/null differ diff --git a/pics/74168099.jpg b/pics/74168099.jpg deleted file mode 100644 index a10bbfd5..00000000 Binary files a/pics/74168099.jpg and /dev/null differ diff --git a/pics/74191942.jpg b/pics/74191942.jpg deleted file mode 100644 index 3c03b733..00000000 Binary files a/pics/74191942.jpg and /dev/null differ diff --git a/pics/74203495.jpg b/pics/74203495.jpg deleted file mode 100755 index 7306e6e2..00000000 Binary files a/pics/74203495.jpg and /dev/null differ diff --git a/pics/74270067.jpg b/pics/74270067.jpg deleted file mode 100644 index 362132b8..00000000 Binary files a/pics/74270067.jpg and /dev/null differ diff --git a/pics/74277583.jpg b/pics/74277583.jpg deleted file mode 100644 index 3e17a99f..00000000 Binary files a/pics/74277583.jpg and /dev/null differ diff --git a/pics/74294676.jpg b/pics/74294676.jpg deleted file mode 100644 index b4cb737a..00000000 Binary files a/pics/74294676.jpg and /dev/null differ diff --git a/pics/74298287.jpg b/pics/74298287.jpg deleted file mode 100644 index 220fe076..00000000 Binary files a/pics/74298287.jpg and /dev/null differ diff --git a/pics/74311226.jpg b/pics/74311226.jpg deleted file mode 100644 index 3d52dc4c..00000000 Binary files a/pics/74311226.jpg and /dev/null differ diff --git a/pics/74329404.jpg b/pics/74329404.jpg deleted file mode 100644 index 09dc2edc..00000000 Binary files a/pics/74329404.jpg and /dev/null differ diff --git a/pics/74335036.jpg b/pics/74335036.jpg deleted file mode 100644 index 3c730fbb..00000000 Binary files a/pics/74335036.jpg and /dev/null differ diff --git a/pics/74364659.jpg b/pics/74364659.jpg deleted file mode 100644 index efa8ac49..00000000 Binary files a/pics/74364659.jpg and /dev/null differ diff --git a/pics/74367458.jpg b/pics/74367458.jpg deleted file mode 100644 index 6cf03348..00000000 Binary files a/pics/74367458.jpg and /dev/null differ diff --git a/pics/74371660.jpg b/pics/74371660.jpg deleted file mode 100644 index 76172c84..00000000 Binary files a/pics/74371660.jpg and /dev/null differ diff --git a/pics/74388798.jpg b/pics/74388798.jpg deleted file mode 100644 index c4d3695d..00000000 Binary files a/pics/74388798.jpg and /dev/null differ diff --git a/pics/74402414.jpg b/pics/74402414.jpg deleted file mode 100644 index a18a3b67..00000000 Binary files a/pics/74402414.jpg and /dev/null differ diff --git a/pics/74416026.jpg b/pics/74416026.jpg deleted file mode 100644 index 6b76d000..00000000 Binary files a/pics/74416026.jpg and /dev/null differ diff --git a/pics/74416224.jpg b/pics/74416224.jpg deleted file mode 100644 index 005b2a24..00000000 Binary files a/pics/74416224.jpg and /dev/null differ diff --git a/pics/74439492.jpg b/pics/74439492.jpg deleted file mode 100644 index 57ebd1af..00000000 Binary files a/pics/74439492.jpg and /dev/null differ diff --git a/pics/74440055.jpg b/pics/74440055.jpg deleted file mode 100644 index 0fef614d..00000000 Binary files a/pics/74440055.jpg and /dev/null differ diff --git a/pics/74440056.jpg b/pics/74440056.jpg deleted file mode 100644 index 73f6cb64..00000000 Binary files a/pics/74440056.jpg and /dev/null differ diff --git a/pics/74458486.jpg b/pics/74458486.jpg deleted file mode 100644 index cd53c82c..00000000 Binary files a/pics/74458486.jpg and /dev/null differ diff --git a/pics/74506079.jpg b/pics/74506079.jpg deleted file mode 100644 index 3c5043df..00000000 Binary files a/pics/74506079.jpg and /dev/null differ diff --git a/pics/74509280.jpg b/pics/74509280.jpg deleted file mode 100644 index feb97715..00000000 Binary files a/pics/74509280.jpg and /dev/null differ diff --git a/pics/74519184.jpg b/pics/74519184.jpg deleted file mode 100644 index 93380a4f..00000000 Binary files a/pics/74519184.jpg and /dev/null differ diff --git a/pics/7452945.jpg b/pics/7452945.jpg deleted file mode 100644 index eb1f4603..00000000 Binary files a/pics/7452945.jpg and /dev/null differ diff --git a/pics/74530899.jpg b/pics/74530899.jpg deleted file mode 100644 index 70f4e343..00000000 Binary files a/pics/74530899.jpg and /dev/null differ diff --git a/pics/74576482.jpg b/pics/74576482.jpg deleted file mode 100644 index 1eef771a..00000000 Binary files a/pics/74576482.jpg and /dev/null differ diff --git a/pics/74583607.jpg b/pics/74583607.jpg deleted file mode 100755 index 0fbf7bf1..00000000 Binary files a/pics/74583607.jpg and /dev/null differ diff --git a/pics/74586817.jpg b/pics/74586817.jpg deleted file mode 100755 index 004dd240..00000000 Binary files a/pics/74586817.jpg and /dev/null differ diff --git a/pics/7459013.jpg b/pics/7459013.jpg deleted file mode 100644 index ddc5b830..00000000 Binary files a/pics/7459013.jpg and /dev/null differ diff --git a/pics/74591968.jpg b/pics/74591968.jpg deleted file mode 100644 index b06bcbb6..00000000 Binary files a/pics/74591968.jpg and /dev/null differ diff --git a/pics/74593218.jpg b/pics/74593218.jpg deleted file mode 100644 index 437a83b3..00000000 Binary files a/pics/74593218.jpg and /dev/null differ diff --git a/pics/74605254.jpg b/pics/74605254.jpg deleted file mode 100755 index c2135811..00000000 Binary files a/pics/74605254.jpg and /dev/null differ diff --git a/pics/74611888.jpg b/pics/74611888.jpg deleted file mode 100644 index f4dbe101..00000000 Binary files a/pics/74611888.jpg and /dev/null differ diff --git a/pics/74637266.jpg b/pics/74637266.jpg deleted file mode 100644 index f5cd4df3..00000000 Binary files a/pics/74637266.jpg and /dev/null differ diff --git a/pics/74641045.jpg b/pics/74641045.jpg deleted file mode 100644 index a1660284..00000000 Binary files a/pics/74641045.jpg and /dev/null differ diff --git a/pics/74657662.jpg b/pics/74657662.jpg deleted file mode 100644 index 579c836a..00000000 Binary files a/pics/74657662.jpg and /dev/null differ diff --git a/pics/74677422.jpg b/pics/74677422.jpg deleted file mode 100644 index e6f87811..00000000 Binary files a/pics/74677422.jpg and /dev/null differ diff --git a/pics/74677423.jpg b/pics/74677423.jpg deleted file mode 100644 index 974183d0..00000000 Binary files a/pics/74677423.jpg and /dev/null differ diff --git a/pics/74677424.jpg b/pics/74677424.jpg deleted file mode 100644 index ef954024..00000000 Binary files a/pics/74677424.jpg and /dev/null differ diff --git a/pics/74677425.jpg b/pics/74677425.jpg deleted file mode 100644 index 903a394b..00000000 Binary files a/pics/74677425.jpg and /dev/null differ diff --git a/pics/74677426.jpg b/pics/74677426.jpg deleted file mode 100644 index 2d2fc41e..00000000 Binary files a/pics/74677426.jpg and /dev/null differ diff --git a/pics/74694807.jpg b/pics/74694807.jpg deleted file mode 100644 index 5f32c747..00000000 Binary files a/pics/74694807.jpg and /dev/null differ diff --git a/pics/74701381.jpg b/pics/74701381.jpg deleted file mode 100644 index 0cb5ccb6..00000000 Binary files a/pics/74701381.jpg and /dev/null differ diff --git a/pics/74703140.jpg b/pics/74703140.jpg deleted file mode 100644 index e350e578..00000000 Binary files a/pics/74703140.jpg and /dev/null differ diff --git a/pics/74711057.jpg b/pics/74711057.jpg deleted file mode 100644 index 21bc2933..00000000 Binary files a/pics/74711057.jpg and /dev/null differ diff --git a/pics/74713516.jpg b/pics/74713516.jpg deleted file mode 100644 index bb2de1ec..00000000 Binary files a/pics/74713516.jpg and /dev/null differ diff --git a/pics/74717840.jpg b/pics/74717840.jpg deleted file mode 100644 index 81d65acc..00000000 Binary files a/pics/74717840.jpg and /dev/null differ diff --git a/pics/74728028.jpg b/pics/74728028.jpg deleted file mode 100644 index d73f2c79..00000000 Binary files a/pics/74728028.jpg and /dev/null differ diff --git a/pics/74730899.jpg b/pics/74730899.jpg deleted file mode 100644 index c44ed993..00000000 Binary files a/pics/74730899.jpg and /dev/null differ diff --git a/pics/74741494.jpg b/pics/74741494.jpg deleted file mode 100644 index d29c0349..00000000 Binary files a/pics/74741494.jpg and /dev/null differ diff --git a/pics/7478431.jpg b/pics/7478431.jpg deleted file mode 100644 index e3080b46..00000000 Binary files a/pics/7478431.jpg and /dev/null differ diff --git a/pics/74822425.jpg b/pics/74822425.jpg deleted file mode 100644 index 3e407378..00000000 Binary files a/pics/74822425.jpg and /dev/null differ diff --git a/pics/74823665.jpg b/pics/74823665.jpg deleted file mode 100644 index 7754c1ca..00000000 Binary files a/pics/74823665.jpg and /dev/null differ diff --git a/pics/74825788.jpg b/pics/74825788.jpg deleted file mode 100644 index 0b4c9626..00000000 Binary files a/pics/74825788.jpg and /dev/null differ diff --git a/pics/74841885.jpg b/pics/74841885.jpg deleted file mode 100644 index 3c3cc27e..00000000 Binary files a/pics/74841885.jpg and /dev/null differ diff --git a/pics/74845897.jpg b/pics/74845897.jpg deleted file mode 100644 index 3d376759..00000000 Binary files a/pics/74845897.jpg and /dev/null differ diff --git a/pics/74848038.jpg b/pics/74848038.jpg deleted file mode 100644 index e351ba03..00000000 Binary files a/pics/74848038.jpg and /dev/null differ diff --git a/pics/74852097.jpg b/pics/74852097.jpg deleted file mode 100644 index dfcd59f9..00000000 Binary files a/pics/74852097.jpg and /dev/null differ diff --git a/pics/74852810.jpg b/pics/74852810.jpg deleted file mode 100644 index 064a8660..00000000 Binary files a/pics/74852810.jpg and /dev/null differ diff --git a/pics/74854609.jpg b/pics/74854609.jpg deleted file mode 100644 index 244d8422..00000000 Binary files a/pics/74854609.jpg and /dev/null differ diff --git a/pics/74860293.jpg b/pics/74860293.jpg deleted file mode 100644 index 8d15915e..00000000 Binary files a/pics/74860293.jpg and /dev/null differ diff --git a/pics/74875003.jpg b/pics/74875003.jpg deleted file mode 100644 index 2f44e680..00000000 Binary files a/pics/74875003.jpg and /dev/null differ diff --git a/pics/74892653.jpg b/pics/74892653.jpg deleted file mode 100644 index 8e9439db..00000000 Binary files a/pics/74892653.jpg and /dev/null differ diff --git a/pics/7489323.jpg b/pics/7489323.jpg deleted file mode 100644 index fccc6607..00000000 Binary files a/pics/7489323.jpg and /dev/null differ diff --git a/pics/74923978.jpg b/pics/74923978.jpg deleted file mode 100644 index 72e869a1..00000000 Binary files a/pics/74923978.jpg and /dev/null differ diff --git a/pics/74926274.jpg b/pics/74926274.jpg deleted file mode 100644 index b5f0a34b..00000000 Binary files a/pics/74926274.jpg and /dev/null differ diff --git a/pics/74952447.jpg b/pics/74952447.jpg deleted file mode 100644 index ad59cae5..00000000 Binary files a/pics/74952447.jpg and /dev/null differ diff --git a/pics/74968065.jpg b/pics/74968065.jpg deleted file mode 100644 index 78f752ed..00000000 Binary files a/pics/74968065.jpg and /dev/null differ diff --git a/pics/74976215.jpg b/pics/74976215.jpg deleted file mode 100644 index 4d1b6f30..00000000 Binary files a/pics/74976215.jpg and /dev/null differ diff --git a/pics/74983881.jpg b/pics/74983881.jpg deleted file mode 100644 index 3b1a3b53..00000000 Binary files a/pics/74983881.jpg and /dev/null differ diff --git a/pics/74983882.jpg b/pics/74983882.jpg deleted file mode 100644 index 9f97df78..00000000 Binary files a/pics/74983882.jpg and /dev/null differ diff --git a/pics/7500772.jpg b/pics/7500772.jpg deleted file mode 100644 index 3b4f0993..00000000 Binary files a/pics/7500772.jpg and /dev/null differ diff --git a/pics/75014062.jpg b/pics/75014062.jpg deleted file mode 100644 index 083ffe8a..00000000 Binary files a/pics/75014062.jpg and /dev/null differ diff --git a/pics/75041269.jpg b/pics/75041269.jpg deleted file mode 100644 index 8f7d8911..00000000 Binary files a/pics/75041269.jpg and /dev/null differ diff --git a/pics/75043725.jpg b/pics/75043725.jpg deleted file mode 100644 index a082a6cb..00000000 Binary files a/pics/75043725.jpg and /dev/null differ diff --git a/pics/75064463.jpg b/pics/75064463.jpg deleted file mode 100644 index b5e8cf92..00000000 Binary files a/pics/75064463.jpg and /dev/null differ diff --git a/pics/75078585.jpg b/pics/75078585.jpg deleted file mode 100644 index a033dcce..00000000 Binary files a/pics/75078585.jpg and /dev/null differ diff --git a/pics/75081613.jpg b/pics/75081613.jpg deleted file mode 100644 index a86b51d0..00000000 Binary files a/pics/75081613.jpg and /dev/null differ diff --git a/pics/75105429.jpg b/pics/75105429.jpg deleted file mode 100644 index 616c934f..00000000 Binary files a/pics/75105429.jpg and /dev/null differ diff --git a/pics/75109441.jpg b/pics/75109441.jpg deleted file mode 100644 index 6d8aa6f8..00000000 Binary files a/pics/75109441.jpg and /dev/null differ diff --git a/pics/75116619.jpg b/pics/75116619.jpg deleted file mode 100644 index fdf3a68a..00000000 Binary files a/pics/75116619.jpg and /dev/null differ diff --git a/pics/7512044.jpg b/pics/7512044.jpg deleted file mode 100644 index eafaca44..00000000 Binary files a/pics/7512044.jpg and /dev/null differ diff --git a/pics/75132317.jpg b/pics/75132317.jpg deleted file mode 100644 index 7c7015e5..00000000 Binary files a/pics/75132317.jpg and /dev/null differ diff --git a/pics/75141056.jpg b/pics/75141056.jpg deleted file mode 100644 index 65545e10..00000000 Binary files a/pics/75141056.jpg and /dev/null differ diff --git a/pics/75162696.jpg b/pics/75162696.jpg deleted file mode 100644 index d7209727..00000000 Binary files a/pics/75162696.jpg and /dev/null differ diff --git a/pics/75180828.jpg b/pics/75180828.jpg deleted file mode 100644 index 127b95da..00000000 Binary files a/pics/75180828.jpg and /dev/null differ diff --git a/pics/75190122.jpg b/pics/75190122.jpg deleted file mode 100644 index 37afbfd0..00000000 Binary files a/pics/75190122.jpg and /dev/null differ diff --git a/pics/75195825.jpg b/pics/75195825.jpg deleted file mode 100755 index 33f79a49..00000000 Binary files a/pics/75195825.jpg and /dev/null differ diff --git a/pics/75198893.jpg b/pics/75198893.jpg deleted file mode 100644 index 00e0cd95..00000000 Binary files a/pics/75198893.jpg and /dev/null differ diff --git a/pics/75209824.jpg b/pics/75209824.jpg deleted file mode 100644 index fb7223a8..00000000 Binary files a/pics/75209824.jpg and /dev/null differ diff --git a/pics/75214390.jpg b/pics/75214390.jpg deleted file mode 100644 index 1e1f7217..00000000 Binary files a/pics/75214390.jpg and /dev/null differ diff --git a/pics/75249652.jpg b/pics/75249652.jpg deleted file mode 100644 index c2f34c3c..00000000 Binary files a/pics/75249652.jpg and /dev/null differ diff --git a/pics/75252099.jpg b/pics/75252099.jpg deleted file mode 100644 index 349d2b01..00000000 Binary files a/pics/75252099.jpg and /dev/null differ diff --git a/pics/75253697.jpg b/pics/75253697.jpg deleted file mode 100644 index b9faee66..00000000 Binary files a/pics/75253697.jpg and /dev/null differ diff --git a/pics/7526150.jpg b/pics/7526150.jpg deleted file mode 100644 index d74b573b..00000000 Binary files a/pics/7526150.jpg and /dev/null differ diff --git a/pics/75285069.jpg b/pics/75285069.jpg deleted file mode 100644 index c8d0cd9c..00000000 Binary files a/pics/75285069.jpg and /dev/null differ diff --git a/pics/75292259.jpg b/pics/75292259.jpg deleted file mode 100644 index b4b7f222..00000000 Binary files a/pics/75292259.jpg and /dev/null differ diff --git a/pics/75304793.jpg b/pics/75304793.jpg deleted file mode 100644 index 37e9fef6..00000000 Binary files a/pics/75304793.jpg and /dev/null differ diff --git a/pics/75326861.jpg b/pics/75326861.jpg deleted file mode 100644 index c41ca3a4..00000000 Binary files a/pics/75326861.jpg and /dev/null differ diff --git a/pics/75347539.jpg b/pics/75347539.jpg deleted file mode 100644 index dd7efd51..00000000 Binary files a/pics/75347539.jpg and /dev/null differ diff --git a/pics/75356564.jpg b/pics/75356564.jpg deleted file mode 100644 index ab5374d0..00000000 Binary files a/pics/75356564.jpg and /dev/null differ diff --git a/pics/75361204.jpg b/pics/75361204.jpg deleted file mode 100755 index f23ec714..00000000 Binary files a/pics/75361204.jpg and /dev/null differ diff --git a/pics/75363626.jpg b/pics/75363626.jpg deleted file mode 100644 index ee9086f2..00000000 Binary files a/pics/75363626.jpg and /dev/null differ diff --git a/pics/75367227.jpg b/pics/75367227.jpg deleted file mode 100644 index 32f3159b..00000000 Binary files a/pics/75367227.jpg and /dev/null differ diff --git a/pics/75372290.jpg b/pics/75372290.jpg deleted file mode 100644 index 6d43bc27..00000000 Binary files a/pics/75372290.jpg and /dev/null differ diff --git a/pics/75375465.jpg b/pics/75375465.jpg deleted file mode 100644 index 86325f46..00000000 Binary files a/pics/75375465.jpg and /dev/null differ diff --git a/pics/75376965.jpg b/pics/75376965.jpg deleted file mode 100644 index 586f541a..00000000 Binary files a/pics/75376965.jpg and /dev/null differ diff --git a/pics/75380687.jpg b/pics/75380687.jpg deleted file mode 100644 index f92f6d69..00000000 Binary files a/pics/75380687.jpg and /dev/null differ diff --git a/pics/75390004.jpg b/pics/75390004.jpg deleted file mode 100644 index 5ea4d0f4..00000000 Binary files a/pics/75390004.jpg and /dev/null differ diff --git a/pics/75392615.jpg b/pics/75392615.jpg deleted file mode 100644 index 20180034..00000000 Binary files a/pics/75392615.jpg and /dev/null differ diff --git a/pics/7541475.jpg b/pics/7541475.jpg deleted file mode 100644 index f6f61907..00000000 Binary files a/pics/7541475.jpg and /dev/null differ diff --git a/pics/75417459.jpg b/pics/75417459.jpg deleted file mode 100644 index f63a8d1d..00000000 Binary files a/pics/75417459.jpg and /dev/null differ diff --git a/pics/75421661.jpg b/pics/75421661.jpg deleted file mode 100644 index 831c4819..00000000 Binary files a/pics/75421661.jpg and /dev/null differ diff --git a/pics/75425043.jpg b/pics/75425043.jpg deleted file mode 100755 index 87441a54..00000000 Binary files a/pics/75425043.jpg and /dev/null differ diff --git a/pics/75433814.jpg b/pics/75433814.jpg deleted file mode 100644 index e9897b23..00000000 Binary files a/pics/75433814.jpg and /dev/null differ diff --git a/pics/75434695.jpg b/pics/75434695.jpg deleted file mode 100644 index 552e2f4a..00000000 Binary files a/pics/75434695.jpg and /dev/null differ diff --git a/pics/75457624.jpg b/pics/75457624.jpg deleted file mode 100644 index 2043d436..00000000 Binary files a/pics/75457624.jpg and /dev/null differ diff --git a/pics/75487237.jpg b/pics/75487237.jpg deleted file mode 100644 index 28d5c4ae..00000000 Binary files a/pics/75487237.jpg and /dev/null differ diff --git a/pics/75498415.jpg b/pics/75498415.jpg deleted file mode 100644 index 5a9d8782..00000000 Binary files a/pics/75498415.jpg and /dev/null differ diff --git a/pics/75499502.jpg b/pics/75499502.jpg deleted file mode 100644 index adc4ad42..00000000 Binary files a/pics/75499502.jpg and /dev/null differ diff --git a/pics/75500286.jpg b/pics/75500286.jpg deleted file mode 100644 index 268b285a..00000000 Binary files a/pics/75500286.jpg and /dev/null differ diff --git a/pics/75524092.jpg b/pics/75524092.jpg deleted file mode 100644 index 37a72c49..00000000 Binary files a/pics/75524092.jpg and /dev/null differ diff --git a/pics/75524093.jpg b/pics/75524093.jpg deleted file mode 100644 index fff3534e..00000000 Binary files a/pics/75524093.jpg and /dev/null differ diff --git a/pics/75525309.jpg b/pics/75525309.jpg deleted file mode 100644 index 380087cc..00000000 Binary files a/pics/75525309.jpg and /dev/null differ diff --git a/pics/75539614.jpg b/pics/75539614.jpg deleted file mode 100644 index 7fe324d5..00000000 Binary files a/pics/75539614.jpg and /dev/null differ diff --git a/pics/75559356.jpg b/pics/75559356.jpg deleted file mode 100644 index 755b6bfd..00000000 Binary files a/pics/75559356.jpg and /dev/null differ diff --git a/pics/75560629.jpg b/pics/75560629.jpg deleted file mode 100644 index 7d67df1c..00000000 Binary files a/pics/75560629.jpg and /dev/null differ diff --git a/pics/75574498.jpg b/pics/75574498.jpg deleted file mode 100644 index 6ad5fa91..00000000 Binary files a/pics/75574498.jpg and /dev/null differ diff --git a/pics/75582395.jpg b/pics/75582395.jpg deleted file mode 100644 index 60221d02..00000000 Binary files a/pics/75582395.jpg and /dev/null differ diff --git a/pics/75620895.jpg b/pics/75620895.jpg deleted file mode 100644 index 97679020..00000000 Binary files a/pics/75620895.jpg and /dev/null differ diff --git a/pics/75622824.jpg b/pics/75622824.jpg deleted file mode 100644 index 7bebe7a6..00000000 Binary files a/pics/75622824.jpg and /dev/null differ diff --git a/pics/75622825.jpg b/pics/75622825.jpg deleted file mode 100644 index 83da7042..00000000 Binary files a/pics/75622825.jpg and /dev/null differ diff --git a/pics/7562372.jpg b/pics/7562372.jpg deleted file mode 100644 index c974031d..00000000 Binary files a/pics/7562372.jpg and /dev/null differ diff --git a/pics/7563579.jpg b/pics/7563579.jpg deleted file mode 100644 index ed717c05..00000000 Binary files a/pics/7563579.jpg and /dev/null differ diff --git a/pics/75646173.jpg b/pics/75646173.jpg deleted file mode 100644 index 0d7cb734..00000000 Binary files a/pics/75646173.jpg and /dev/null differ diff --git a/pics/75646520.jpg b/pics/75646520.jpg deleted file mode 100644 index 4445233c..00000000 Binary files a/pics/75646520.jpg and /dev/null differ diff --git a/pics/75652080.jpg b/pics/75652080.jpg deleted file mode 100644 index 1bb9d6bd..00000000 Binary files a/pics/75652080.jpg and /dev/null differ diff --git a/pics/7565547.jpg b/pics/7565547.jpg deleted file mode 100644 index b490e31b..00000000 Binary files a/pics/7565547.jpg and /dev/null differ diff --git a/pics/756652.jpg b/pics/756652.jpg deleted file mode 100644 index 0dd6c69e..00000000 Binary files a/pics/756652.jpg and /dev/null differ diff --git a/pics/75673220.jpg b/pics/75673220.jpg deleted file mode 100644 index c4d5f07a..00000000 Binary files a/pics/75673220.jpg and /dev/null differ diff --git a/pics/75675029.jpg b/pics/75675029.jpg deleted file mode 100644 index f1d79ea2..00000000 Binary files a/pics/75675029.jpg and /dev/null differ diff --git a/pics/7572887.jpg b/pics/7572887.jpg deleted file mode 100644 index 8b52c430..00000000 Binary files a/pics/7572887.jpg and /dev/null differ diff --git a/pics/7573135.jpg b/pics/7573135.jpg deleted file mode 100644 index f166372f..00000000 Binary files a/pics/7573135.jpg and /dev/null differ diff --git a/pics/75732622.jpg b/pics/75732622.jpg deleted file mode 100644 index 8d104550..00000000 Binary files a/pics/75732622.jpg and /dev/null differ diff --git a/pics/75732623.jpg b/pics/75732623.jpg deleted file mode 100644 index 50a8b86b..00000000 Binary files a/pics/75732623.jpg and /dev/null differ diff --git a/pics/75733063.jpg b/pics/75733063.jpg deleted file mode 100644 index b48cc0ce..00000000 Binary files a/pics/75733063.jpg and /dev/null differ diff --git a/pics/75745607.jpg b/pics/75745607.jpg deleted file mode 100644 index ee14b64c..00000000 Binary files a/pics/75745607.jpg and /dev/null differ diff --git a/pics/7576264.jpg b/pics/7576264.jpg deleted file mode 100644 index e4437d99..00000000 Binary files a/pics/7576264.jpg and /dev/null differ diff --git a/pics/75775867.jpg b/pics/75775867.jpg deleted file mode 100644 index bc592d54..00000000 Binary files a/pics/75775867.jpg and /dev/null differ diff --git a/pics/75779210.jpg b/pics/75779210.jpg deleted file mode 100644 index bb663fde..00000000 Binary files a/pics/75779210.jpg and /dev/null differ diff --git a/pics/75782277.jpg b/pics/75782277.jpg deleted file mode 100644 index 3f1fd7ce..00000000 Binary files a/pics/75782277.jpg and /dev/null differ diff --git a/pics/75797046.jpg b/pics/75797046.jpg deleted file mode 100644 index 0337e44a..00000000 Binary files a/pics/75797046.jpg and /dev/null differ diff --git a/pics/7582066.jpg b/pics/7582066.jpg deleted file mode 100644 index 800fcec1..00000000 Binary files a/pics/7582066.jpg and /dev/null differ diff --git a/pics/75830094.jpg b/pics/75830094.jpg deleted file mode 100644 index b9a50c2f..00000000 Binary files a/pics/75830094.jpg and /dev/null differ diff --git a/pics/75833426.jpg b/pics/75833426.jpg deleted file mode 100644 index 72a04c09..00000000 Binary files a/pics/75833426.jpg and /dev/null differ diff --git a/pics/75840616.jpg b/pics/75840616.jpg deleted file mode 100644 index 4d64a610..00000000 Binary files a/pics/75840616.jpg and /dev/null differ diff --git a/pics/75850803.jpg b/pics/75850803.jpg deleted file mode 100644 index 89cd40a8..00000000 Binary files a/pics/75850803.jpg and /dev/null differ diff --git a/pics/75878039.jpg b/pics/75878039.jpg deleted file mode 100644 index 7464ed9e..00000000 Binary files a/pics/75878039.jpg and /dev/null differ diff --git a/pics/75886890.jpg b/pics/75886890.jpg deleted file mode 100644 index 1ceace5a..00000000 Binary files a/pics/75886890.jpg and /dev/null differ diff --git a/pics/75889523.jpg b/pics/75889523.jpg deleted file mode 100644 index aa49609e..00000000 Binary files a/pics/75889523.jpg and /dev/null differ diff --git a/pics/75902998.jpg b/pics/75902998.jpg deleted file mode 100755 index 5050ba10..00000000 Binary files a/pics/75902998.jpg and /dev/null differ diff --git a/pics/75917088.jpg b/pics/75917088.jpg deleted file mode 100644 index d5b942bc..00000000 Binary files a/pics/75917088.jpg and /dev/null differ diff --git a/pics/75923050.jpg b/pics/75923050.jpg deleted file mode 100644 index db3bbe8e..00000000 Binary files a/pics/75923050.jpg and /dev/null differ diff --git a/pics/75937826.jpg b/pics/75937826.jpg deleted file mode 100644 index b754fc05..00000000 Binary files a/pics/75937826.jpg and /dev/null differ diff --git a/pics/759393.jpg b/pics/759393.jpg deleted file mode 100644 index ec239e9b..00000000 Binary files a/pics/759393.jpg and /dev/null differ diff --git a/pics/75944053.jpg b/pics/75944053.jpg deleted file mode 100644 index f9347466..00000000 Binary files a/pics/75944053.jpg and /dev/null differ diff --git a/pics/75946257.jpg b/pics/75946257.jpg deleted file mode 100644 index 6c6509e6..00000000 Binary files a/pics/75946257.jpg and /dev/null differ diff --git a/pics/75953262.jpg b/pics/75953262.jpg deleted file mode 100644 index dc77c9b6..00000000 Binary files a/pics/75953262.jpg and /dev/null differ diff --git a/pics/75967082.jpg b/pics/75967082.jpg deleted file mode 100644 index 8cb70622..00000000 Binary files a/pics/75967082.jpg and /dev/null differ diff --git a/pics/75987257.jpg b/pics/75987257.jpg deleted file mode 100644 index 2ac25d99..00000000 Binary files a/pics/75987257.jpg and /dev/null differ diff --git a/pics/75988594.jpg b/pics/75988594.jpg deleted file mode 100755 index b147e23c..00000000 Binary files a/pics/75988594.jpg and /dev/null differ diff --git a/pics/75991898.jpg b/pics/75991898.jpg deleted file mode 100644 index fda09e67..00000000 Binary files a/pics/75991898.jpg and /dev/null differ diff --git a/pics/76004142.jpg b/pics/76004142.jpg deleted file mode 100755 index 25dde534..00000000 Binary files a/pics/76004142.jpg and /dev/null differ diff --git a/pics/7602840.jpg b/pics/7602840.jpg deleted file mode 100644 index 761d2eaf..00000000 Binary files a/pics/7602840.jpg and /dev/null differ diff --git a/pics/76039636.jpg b/pics/76039636.jpg deleted file mode 100644 index 4e95bbe3..00000000 Binary files a/pics/76039636.jpg and /dev/null differ diff --git a/pics/76052811.jpg b/pics/76052811.jpg deleted file mode 100644 index 8c1bed84..00000000 Binary files a/pics/76052811.jpg and /dev/null differ diff --git a/pics/76066541.jpg b/pics/76066541.jpg deleted file mode 100644 index 3df3cd9b..00000000 Binary files a/pics/76066541.jpg and /dev/null differ diff --git a/pics/76067258.jpg b/pics/76067258.jpg deleted file mode 100644 index b2f8c16f..00000000 Binary files a/pics/76067258.jpg and /dev/null differ diff --git a/pics/76075810.jpg b/pics/76075810.jpg deleted file mode 100644 index 8d4a7037..00000000 Binary files a/pics/76075810.jpg and /dev/null differ diff --git a/pics/76080032.jpg b/pics/76080032.jpg deleted file mode 100644 index 4975ba80..00000000 Binary files a/pics/76080032.jpg and /dev/null differ diff --git a/pics/76103675.jpg b/pics/76103675.jpg deleted file mode 100644 index 613d59dd..00000000 Binary files a/pics/76103675.jpg and /dev/null differ diff --git a/pics/76136345.jpg b/pics/76136345.jpg deleted file mode 100644 index 1a4f6333..00000000 Binary files a/pics/76136345.jpg and /dev/null differ diff --git a/pics/76137276.jpg b/pics/76137276.jpg deleted file mode 100644 index 08d7f564..00000000 Binary files a/pics/76137276.jpg and /dev/null differ diff --git a/pics/76137614.jpg b/pics/76137614.jpg deleted file mode 100644 index bd905677..00000000 Binary files a/pics/76137614.jpg and /dev/null differ diff --git a/pics/7617062.jpg b/pics/7617062.jpg deleted file mode 100644 index a3969de5..00000000 Binary files a/pics/7617062.jpg and /dev/null differ diff --git a/pics/7617253.jpg b/pics/7617253.jpg deleted file mode 100644 index 8f2a2ac9..00000000 Binary files a/pics/7617253.jpg and /dev/null differ diff --git a/pics/76184692.jpg b/pics/76184692.jpg deleted file mode 100644 index 18bf381b..00000000 Binary files a/pics/76184692.jpg and /dev/null differ diff --git a/pics/76202610.jpg b/pics/76202610.jpg deleted file mode 100644 index 20fdc0c4..00000000 Binary files a/pics/76202610.jpg and /dev/null differ diff --git a/pics/76203291.jpg b/pics/76203291.jpg deleted file mode 100644 index 2164d487..00000000 Binary files a/pics/76203291.jpg and /dev/null differ diff --git a/pics/76211194.jpg b/pics/76211194.jpg deleted file mode 100644 index 732261de..00000000 Binary files a/pics/76211194.jpg and /dev/null differ diff --git a/pics/76214441.jpg b/pics/76214441.jpg deleted file mode 100644 index 9267629b..00000000 Binary files a/pics/76214441.jpg and /dev/null differ diff --git a/pics/76218313.jpg b/pics/76218313.jpg deleted file mode 100755 index fe02cc16..00000000 Binary files a/pics/76218313.jpg and /dev/null differ diff --git a/pics/76218643.jpg b/pics/76218643.jpg deleted file mode 100644 index e970c926..00000000 Binary files a/pics/76218643.jpg and /dev/null differ diff --git a/pics/76224717.jpg b/pics/76224717.jpg deleted file mode 100644 index 85c12209..00000000 Binary files a/pics/76224717.jpg and /dev/null differ diff --git a/pics/76232340.jpg b/pics/76232340.jpg deleted file mode 100644 index f5523ea8..00000000 Binary files a/pics/76232340.jpg and /dev/null differ diff --git a/pics/7623640.jpg b/pics/7623640.jpg deleted file mode 100644 index 74ffc188..00000000 Binary files a/pics/7623640.jpg and /dev/null differ diff --git a/pics/7625614.jpg b/pics/7625614.jpg deleted file mode 100644 index ff68499d..00000000 Binary files a/pics/7625614.jpg and /dev/null differ diff --git a/pics/76263644.jpg b/pics/76263644.jpg deleted file mode 100644 index 2d3145b9..00000000 Binary files a/pics/76263644.jpg and /dev/null differ diff --git a/pics/76297408.jpg b/pics/76297408.jpg deleted file mode 100644 index 43c53690..00000000 Binary files a/pics/76297408.jpg and /dev/null differ diff --git a/pics/76305638.jpg b/pics/76305638.jpg deleted file mode 100644 index a4e0358e..00000000 Binary files a/pics/76305638.jpg and /dev/null differ diff --git a/pics/76321376.jpg b/pics/76321376.jpg deleted file mode 100644 index d4fdd14c..00000000 Binary files a/pics/76321376.jpg and /dev/null differ diff --git a/pics/7634581.jpg b/pics/7634581.jpg deleted file mode 100644 index dba39b87..00000000 Binary files a/pics/7634581.jpg and /dev/null differ diff --git a/pics/76348260.jpg b/pics/76348260.jpg deleted file mode 100644 index 01ac8702..00000000 Binary files a/pics/76348260.jpg and /dev/null differ diff --git a/pics/76372778.jpg b/pics/76372778.jpg deleted file mode 100644 index 5f83e448..00000000 Binary files a/pics/76372778.jpg and /dev/null differ diff --git a/pics/76384284.jpg b/pics/76384284.jpg deleted file mode 100644 index 80c1decb..00000000 Binary files a/pics/76384284.jpg and /dev/null differ diff --git a/pics/76407432.jpg b/pics/76407432.jpg deleted file mode 100644 index 85c06b9d..00000000 Binary files a/pics/76407432.jpg and /dev/null differ diff --git a/pics/76419637.jpg b/pics/76419637.jpg deleted file mode 100644 index cc2b3cfd..00000000 Binary files a/pics/76419637.jpg and /dev/null differ diff --git a/pics/76436988.jpg b/pics/76436988.jpg deleted file mode 100644 index 3c9c2421..00000000 Binary files a/pics/76436988.jpg and /dev/null differ diff --git a/pics/76442347.jpg b/pics/76442347.jpg deleted file mode 100644 index 08da8f14..00000000 Binary files a/pics/76442347.jpg and /dev/null differ diff --git a/pics/76442616.jpg b/pics/76442616.jpg deleted file mode 100644 index 9ba2aef9..00000000 Binary files a/pics/76442616.jpg and /dev/null differ diff --git a/pics/76446915.jpg b/pics/76446915.jpg deleted file mode 100644 index 352b7c2d..00000000 Binary files a/pics/76446915.jpg and /dev/null differ diff --git a/pics/76459806.jpg b/pics/76459806.jpg deleted file mode 100644 index 583a833e..00000000 Binary files a/pics/76459806.jpg and /dev/null differ diff --git a/pics/76473843.jpg b/pics/76473843.jpg deleted file mode 100755 index 35301092..00000000 Binary files a/pics/76473843.jpg and /dev/null differ diff --git a/pics/76512652.jpg b/pics/76512652.jpg deleted file mode 100644 index cabae9a0..00000000 Binary files a/pics/76512652.jpg and /dev/null differ diff --git a/pics/76515293.jpg b/pics/76515293.jpg deleted file mode 100644 index a2ce3674..00000000 Binary files a/pics/76515293.jpg and /dev/null differ diff --git a/pics/76520646.jpg b/pics/76520646.jpg deleted file mode 100644 index 15b53117..00000000 Binary files a/pics/76520646.jpg and /dev/null differ diff --git a/pics/7653207.jpg b/pics/7653207.jpg deleted file mode 100644 index fd86f98e..00000000 Binary files a/pics/7653207.jpg and /dev/null differ diff --git a/pics/76532077.jpg b/pics/76532077.jpg deleted file mode 100644 index 6603ea4c..00000000 Binary files a/pics/76532077.jpg and /dev/null differ diff --git a/pics/76539047.jpg b/pics/76539047.jpg deleted file mode 100644 index 04d7a255..00000000 Binary files a/pics/76539047.jpg and /dev/null differ diff --git a/pics/76543119.jpg b/pics/76543119.jpg deleted file mode 100644 index a2c71f8e..00000000 Binary files a/pics/76543119.jpg and /dev/null differ diff --git a/pics/76547525.jpg b/pics/76547525.jpg deleted file mode 100755 index 90b3b42a..00000000 Binary files a/pics/76547525.jpg and /dev/null differ diff --git a/pics/76573247.jpg b/pics/76573247.jpg deleted file mode 100644 index 5ffef1e9..00000000 Binary files a/pics/76573247.jpg and /dev/null differ diff --git a/pics/76589815.jpg b/pics/76589815.jpg deleted file mode 100644 index d3d94eb6..00000000 Binary files a/pics/76589815.jpg and /dev/null differ diff --git a/pics/76614003.jpg b/pics/76614003.jpg deleted file mode 100644 index 1e8e6e8d..00000000 Binary files a/pics/76614003.jpg and /dev/null differ diff --git a/pics/76614340.jpg b/pics/76614340.jpg deleted file mode 100644 index 0ca65423..00000000 Binary files a/pics/76614340.jpg and /dev/null differ diff --git a/pics/76634149.jpg b/pics/76634149.jpg deleted file mode 100644 index 3c7fd776..00000000 Binary files a/pics/76634149.jpg and /dev/null differ diff --git a/pics/76641981.jpg b/pics/76641981.jpg deleted file mode 100644 index e60ad25b..00000000 Binary files a/pics/76641981.jpg and /dev/null differ diff --git a/pics/76650663.jpg b/pics/76650663.jpg deleted file mode 100644 index 04b1db66..00000000 Binary files a/pics/76650663.jpg and /dev/null differ diff --git a/pics/76660409.jpg b/pics/76660409.jpg deleted file mode 100644 index bff70912..00000000 Binary files a/pics/76660409.jpg and /dev/null differ diff --git a/pics/76683171.jpg b/pics/76683171.jpg deleted file mode 100644 index 1e42ff47..00000000 Binary files a/pics/76683171.jpg and /dev/null differ diff --git a/pics/76704943.jpg b/pics/76704943.jpg deleted file mode 100644 index 04a74a9e..00000000 Binary files a/pics/76704943.jpg and /dev/null differ diff --git a/pics/7670542.jpg b/pics/7670542.jpg deleted file mode 100644 index e8b1b57a..00000000 Binary files a/pics/7670542.jpg and /dev/null differ diff --git a/pics/76714458.jpg b/pics/76714458.jpg deleted file mode 100644 index 706a3a59..00000000 Binary files a/pics/76714458.jpg and /dev/null differ diff --git a/pics/76721030.jpg b/pics/76721030.jpg deleted file mode 100644 index beb84ec5..00000000 Binary files a/pics/76721030.jpg and /dev/null differ diff --git a/pics/7672244.jpg b/pics/7672244.jpg deleted file mode 100644 index 71eb8cb8..00000000 Binary files a/pics/7672244.jpg and /dev/null differ diff --git a/pics/76751255.jpg b/pics/76751255.jpg deleted file mode 100644 index dc65a9d5..00000000 Binary files a/pics/76751255.jpg and /dev/null differ diff --git a/pics/76754619.jpg b/pics/76754619.jpg deleted file mode 100644 index 54ddf528..00000000 Binary files a/pics/76754619.jpg and /dev/null differ diff --git a/pics/76763417.jpg b/pics/76763417.jpg deleted file mode 100644 index 954a9b19..00000000 Binary files a/pics/76763417.jpg and /dev/null differ diff --git a/pics/76766706.jpg b/pics/76766706.jpg deleted file mode 100644 index 20f22295..00000000 Binary files a/pics/76766706.jpg and /dev/null differ diff --git a/pics/76774528.jpg b/pics/76774528.jpg deleted file mode 100644 index 338d2046..00000000 Binary files a/pics/76774528.jpg and /dev/null differ diff --git a/pics/76775123.jpg b/pics/76775123.jpg deleted file mode 100644 index e1bda5a0..00000000 Binary files a/pics/76775123.jpg and /dev/null differ diff --git a/pics/76792184.jpg b/pics/76792184.jpg deleted file mode 100644 index f7586b74..00000000 Binary files a/pics/76792184.jpg and /dev/null differ diff --git a/pics/76806714.jpg b/pics/76806714.jpg deleted file mode 100644 index 3dcc6919..00000000 Binary files a/pics/76806714.jpg and /dev/null differ diff --git a/pics/76812113.jpg b/pics/76812113.jpg deleted file mode 100644 index 8cc18f87..00000000 Binary files a/pics/76812113.jpg and /dev/null differ diff --git a/pics/76848240.jpg b/pics/76848240.jpg deleted file mode 100644 index 0d838973..00000000 Binary files a/pics/76848240.jpg and /dev/null differ diff --git a/pics/76862289.jpg b/pics/76862289.jpg deleted file mode 100644 index 00b2caa0..00000000 Binary files a/pics/76862289.jpg and /dev/null differ diff --git a/pics/76865611.jpg b/pics/76865611.jpg deleted file mode 100644 index 78ef4824..00000000 Binary files a/pics/76865611.jpg and /dev/null differ diff --git a/pics/76891401.jpg b/pics/76891401.jpg deleted file mode 100644 index 05be369f..00000000 Binary files a/pics/76891401.jpg and /dev/null differ diff --git a/pics/76895648.jpg b/pics/76895648.jpg deleted file mode 100644 index 7869b71b..00000000 Binary files a/pics/76895648.jpg and /dev/null differ diff --git a/pics/76902476.jpg b/pics/76902476.jpg deleted file mode 100644 index 096dfe78..00000000 Binary files a/pics/76902476.jpg and /dev/null differ diff --git a/pics/76908448.jpg b/pics/76908448.jpg deleted file mode 100644 index bb31410e..00000000 Binary files a/pics/76908448.jpg and /dev/null differ diff --git a/pics/76909279.jpg b/pics/76909279.jpg deleted file mode 100644 index fc0b8706..00000000 Binary files a/pics/76909279.jpg and /dev/null differ diff --git a/pics/76913983.jpg b/pics/76913983.jpg deleted file mode 100644 index 8fb19986..00000000 Binary files a/pics/76913983.jpg and /dev/null differ diff --git a/pics/76922029.jpg b/pics/76922029.jpg deleted file mode 100644 index 54c5ab66..00000000 Binary files a/pics/76922029.jpg and /dev/null differ diff --git a/pics/76925842.jpg b/pics/76925842.jpg deleted file mode 100644 index e7a1379e..00000000 Binary files a/pics/76925842.jpg and /dev/null differ diff --git a/pics/76930964.jpg b/pics/76930964.jpg deleted file mode 100755 index 6158aa4a..00000000 Binary files a/pics/76930964.jpg and /dev/null differ diff --git a/pics/76972801.jpg b/pics/76972801.jpg deleted file mode 100644 index 808b265a..00000000 Binary files a/pics/76972801.jpg and /dev/null differ diff --git a/pics/76986005.jpg b/pics/76986005.jpg deleted file mode 100644 index cd93bef0..00000000 Binary files a/pics/76986005.jpg and /dev/null differ diff --git a/pics/76990617.jpg b/pics/76990617.jpg deleted file mode 100644 index 3f5969a3..00000000 Binary files a/pics/76990617.jpg and /dev/null differ diff --git a/pics/7700132.jpg b/pics/7700132.jpg deleted file mode 100644 index ddfb0bac..00000000 Binary files a/pics/7700132.jpg and /dev/null differ diff --git a/pics/77007920.jpg b/pics/77007920.jpg deleted file mode 100644 index d7d27349..00000000 Binary files a/pics/77007920.jpg and /dev/null differ diff --git a/pics/77013169.jpg b/pics/77013169.jpg deleted file mode 100644 index 236e3118..00000000 Binary files a/pics/77013169.jpg and /dev/null differ diff --git a/pics/77027445.jpg b/pics/77027445.jpg deleted file mode 100644 index e067cad9..00000000 Binary files a/pics/77027445.jpg and /dev/null differ diff --git a/pics/77036039.jpg b/pics/77036039.jpg deleted file mode 100644 index 72358689..00000000 Binary files a/pics/77036039.jpg and /dev/null differ diff --git a/pics/770365.jpg b/pics/770365.jpg deleted file mode 100644 index 9a3c3430..00000000 Binary files a/pics/770365.jpg and /dev/null differ diff --git a/pics/77044671.jpg b/pics/77044671.jpg deleted file mode 100644 index 5c93ac85..00000000 Binary files a/pics/77044671.jpg and /dev/null differ diff --git a/pics/77060848.jpg b/pics/77060848.jpg deleted file mode 100644 index b85f0b81..00000000 Binary files a/pics/77060848.jpg and /dev/null differ diff --git a/pics/77084837.jpg b/pics/77084837.jpg deleted file mode 100644 index a1c525e1..00000000 Binary files a/pics/77084837.jpg and /dev/null differ diff --git a/pics/77087109.jpg b/pics/77087109.jpg deleted file mode 100644 index 3fb91cce..00000000 Binary files a/pics/77087109.jpg and /dev/null differ diff --git a/pics/77098449.jpg b/pics/77098449.jpg deleted file mode 100644 index 68e8ae93..00000000 Binary files a/pics/77098449.jpg and /dev/null differ diff --git a/pics/77116346.jpg b/pics/77116346.jpg deleted file mode 100755 index 958c9a47..00000000 Binary files a/pics/77116346.jpg and /dev/null differ diff --git a/pics/77121851.jpg b/pics/77121851.jpg deleted file mode 100644 index 97d427f5..00000000 Binary files a/pics/77121851.jpg and /dev/null differ diff --git a/pics/77135531.jpg b/pics/77135531.jpg deleted file mode 100644 index 9e3530ad..00000000 Binary files a/pics/77135531.jpg and /dev/null differ diff --git a/pics/77152542.jpg b/pics/77152542.jpg deleted file mode 100755 index e021d888..00000000 Binary files a/pics/77152542.jpg and /dev/null differ diff --git a/pics/77153811.jpg b/pics/77153811.jpg deleted file mode 100644 index 7a53281b..00000000 Binary files a/pics/77153811.jpg and /dev/null differ diff --git a/pics/77205367.jpg b/pics/77205367.jpg deleted file mode 100644 index 9e242efb..00000000 Binary files a/pics/77205367.jpg and /dev/null differ diff --git a/pics/77207191.jpg b/pics/77207191.jpg deleted file mode 100644 index b75e6360..00000000 Binary files a/pics/77207191.jpg and /dev/null differ diff --git a/pics/77229910.jpg b/pics/77229910.jpg deleted file mode 100644 index 0f57d724..00000000 Binary files a/pics/77229910.jpg and /dev/null differ diff --git a/pics/77252217.jpg b/pics/77252217.jpg deleted file mode 100644 index 58e36961..00000000 Binary files a/pics/77252217.jpg and /dev/null differ diff --git a/pics/77330185.jpg b/pics/77330185.jpg deleted file mode 100644 index b5e5a89f..00000000 Binary files a/pics/77330185.jpg and /dev/null differ diff --git a/pics/77334267.jpg b/pics/77334267.jpg deleted file mode 100644 index aa89597a..00000000 Binary files a/pics/77334267.jpg and /dev/null differ diff --git a/pics/77336644.jpg b/pics/77336644.jpg deleted file mode 100644 index e355bcf7..00000000 Binary files a/pics/77336644.jpg and /dev/null differ diff --git a/pics/77360173.jpg b/pics/77360173.jpg deleted file mode 100755 index 60feed0b..00000000 Binary files a/pics/77360173.jpg and /dev/null differ diff --git a/pics/7736719.jpg b/pics/7736719.jpg deleted file mode 100644 index ce4625a0..00000000 Binary files a/pics/7736719.jpg and /dev/null differ diff --git a/pics/77372241.jpg b/pics/77372241.jpg deleted file mode 100644 index 724c2d4b..00000000 Binary files a/pics/77372241.jpg and /dev/null differ diff --git a/pics/77379481.jpg b/pics/77379481.jpg deleted file mode 100644 index 11d0956e..00000000 Binary files a/pics/77379481.jpg and /dev/null differ diff --git a/pics/77414722.jpg b/pics/77414722.jpg deleted file mode 100644 index 76f0b898..00000000 Binary files a/pics/77414722.jpg and /dev/null differ diff --git a/pics/77428945.jpg b/pics/77428945.jpg deleted file mode 100644 index d4856979..00000000 Binary files a/pics/77428945.jpg and /dev/null differ diff --git a/pics/77454922.jpg b/pics/77454922.jpg deleted file mode 100644 index b01abb95..00000000 Binary files a/pics/77454922.jpg and /dev/null differ diff --git a/pics/77456781.jpg b/pics/77456781.jpg deleted file mode 100644 index 6cdad452..00000000 Binary files a/pics/77456781.jpg and /dev/null differ diff --git a/pics/77462146.jpg b/pics/77462146.jpg deleted file mode 100755 index 9f8e892d..00000000 Binary files a/pics/77462146.jpg and /dev/null differ diff --git a/pics/77491079.jpg b/pics/77491079.jpg deleted file mode 100644 index e07dc469..00000000 Binary files a/pics/77491079.jpg and /dev/null differ diff --git a/pics/77498348.jpg b/pics/77498348.jpg deleted file mode 100644 index e1042168..00000000 Binary files a/pics/77498348.jpg and /dev/null differ diff --git a/pics/77505534.jpg b/pics/77505534.jpg deleted file mode 100644 index 4c600624..00000000 Binary files a/pics/77505534.jpg and /dev/null differ diff --git a/pics/77506119.jpg b/pics/77506119.jpg deleted file mode 100644 index 89446469..00000000 Binary files a/pics/77506119.jpg and /dev/null differ diff --git a/pics/77527210.jpg b/pics/77527210.jpg deleted file mode 100644 index dbddd3aa..00000000 Binary files a/pics/77527210.jpg and /dev/null differ diff --git a/pics/77538567.jpg b/pics/77538567.jpg deleted file mode 100644 index 3c351c32..00000000 Binary files a/pics/77538567.jpg and /dev/null differ diff --git a/pics/77542832.jpg b/pics/77542832.jpg deleted file mode 100644 index 2f157634..00000000 Binary files a/pics/77542832.jpg and /dev/null differ diff --git a/pics/77558536.jpg b/pics/77558536.jpg deleted file mode 100644 index 306c7e7d..00000000 Binary files a/pics/77558536.jpg and /dev/null differ diff --git a/pics/77561728.jpg b/pics/77561728.jpg deleted file mode 100644 index eaf9b9a4..00000000 Binary files a/pics/77561728.jpg and /dev/null differ diff --git a/pics/77565204.jpg b/pics/77565204.jpg deleted file mode 100644 index 59df67b0..00000000 Binary files a/pics/77565204.jpg and /dev/null differ diff --git a/pics/77568553.jpg b/pics/77568553.jpg deleted file mode 100644 index ebe6c213..00000000 Binary files a/pics/77568553.jpg and /dev/null differ diff --git a/pics/77581312.jpg b/pics/77581312.jpg deleted file mode 100644 index b5de987c..00000000 Binary files a/pics/77581312.jpg and /dev/null differ diff --git a/pics/77584012.jpg b/pics/77584012.jpg deleted file mode 100644 index c0974e50..00000000 Binary files a/pics/77584012.jpg and /dev/null differ diff --git a/pics/77585513.jpg b/pics/77585513.jpg deleted file mode 100644 index d4a7b8dd..00000000 Binary files a/pics/77585513.jpg and /dev/null differ diff --git a/pics/77585514.jpg b/pics/77585514.jpg deleted file mode 100644 index a35c2294..00000000 Binary files a/pics/77585514.jpg and /dev/null differ diff --git a/pics/77600660.jpg b/pics/77600660.jpg deleted file mode 100644 index 78195b3a..00000000 Binary files a/pics/77600660.jpg and /dev/null differ diff --git a/pics/77603950.jpg b/pics/77603950.jpg deleted file mode 100644 index 312ae66c..00000000 Binary files a/pics/77603950.jpg and /dev/null differ diff --git a/pics/77608643.jpg b/pics/77608643.jpg deleted file mode 100644 index a77673d5..00000000 Binary files a/pics/77608643.jpg and /dev/null differ diff --git a/pics/77622396.jpg b/pics/77622396.jpg deleted file mode 100644 index fa3cdab0..00000000 Binary files a/pics/77622396.jpg and /dev/null differ diff --git a/pics/77625948.jpg b/pics/77625948.jpg deleted file mode 100644 index 47d11f86..00000000 Binary files a/pics/77625948.jpg and /dev/null differ diff --git a/pics/77631175.jpg b/pics/77631175.jpg deleted file mode 100644 index 7b8a88bc..00000000 Binary files a/pics/77631175.jpg and /dev/null differ diff --git a/pics/77642288.jpg b/pics/77642288.jpg deleted file mode 100644 index dfa12b31..00000000 Binary files a/pics/77642288.jpg and /dev/null differ diff --git a/pics/77679716.jpg b/pics/77679716.jpg deleted file mode 100644 index 3caa9843..00000000 Binary files a/pics/77679716.jpg and /dev/null differ diff --git a/pics/77700347.jpg b/pics/77700347.jpg deleted file mode 100644 index 78ca9aaf..00000000 Binary files a/pics/77700347.jpg and /dev/null differ diff --git a/pics/77723643.jpg b/pics/77723643.jpg deleted file mode 100644 index 26d4fab9..00000000 Binary files a/pics/77723643.jpg and /dev/null differ diff --git a/pics/77754944.jpg b/pics/77754944.jpg deleted file mode 100644 index ed24ff62..00000000 Binary files a/pics/77754944.jpg and /dev/null differ diff --git a/pics/77754945.jpg b/pics/77754945.jpg deleted file mode 100644 index 1809d34a..00000000 Binary files a/pics/77754945.jpg and /dev/null differ diff --git a/pics/77778835.jpg b/pics/77778835.jpg deleted file mode 100644 index 7e019ef8..00000000 Binary files a/pics/77778835.jpg and /dev/null differ diff --git a/pics/77783947.jpg b/pics/77783947.jpg deleted file mode 100644 index 5746fb4b..00000000 Binary files a/pics/77783947.jpg and /dev/null differ diff --git a/pics/77797992.jpg b/pics/77797992.jpg deleted file mode 100644 index 86bbd82f..00000000 Binary files a/pics/77797992.jpg and /dev/null differ diff --git a/pics/77799846.jpg b/pics/77799846.jpg deleted file mode 100644 index 12cdbdad..00000000 Binary files a/pics/77799846.jpg and /dev/null differ diff --git a/pics/77826734.jpg b/pics/77826734.jpg deleted file mode 100755 index ea9ab0c6..00000000 Binary files a/pics/77826734.jpg and /dev/null differ diff --git a/pics/77827521.jpg b/pics/77827521.jpg deleted file mode 100644 index 8cccfd01..00000000 Binary files a/pics/77827521.jpg and /dev/null differ diff --git a/pics/77841719.jpg b/pics/77841719.jpg deleted file mode 100644 index 870b8ff0..00000000 Binary files a/pics/77841719.jpg and /dev/null differ diff --git a/pics/77847678.jpg b/pics/77847678.jpg deleted file mode 100644 index e10bc221..00000000 Binary files a/pics/77847678.jpg and /dev/null differ diff --git a/pics/77859858.jpg b/pics/77859858.jpg deleted file mode 100644 index a3bd93ff..00000000 Binary files a/pics/77859858.jpg and /dev/null differ diff --git a/pics/77864539.jpg b/pics/77864539.jpg deleted file mode 100644 index 0662d616..00000000 Binary files a/pics/77864539.jpg and /dev/null differ diff --git a/pics/77876207.jpg b/pics/77876207.jpg deleted file mode 100644 index 0d21ee1f..00000000 Binary files a/pics/77876207.jpg and /dev/null differ diff --git a/pics/77901552.jpg b/pics/77901552.jpg deleted file mode 100644 index b165a8b1..00000000 Binary files a/pics/77901552.jpg and /dev/null differ diff --git a/pics/77910045.jpg b/pics/77910045.jpg deleted file mode 100644 index 1109ce83..00000000 Binary files a/pics/77910045.jpg and /dev/null differ diff --git a/pics/77936940.jpg b/pics/77936940.jpg deleted file mode 100644 index a03fa9eb..00000000 Binary files a/pics/77936940.jpg and /dev/null differ diff --git a/pics/77972406.jpg b/pics/77972406.jpg deleted file mode 100644 index 588adb54..00000000 Binary files a/pics/77972406.jpg and /dev/null differ diff --git a/pics/77998771.jpg b/pics/77998771.jpg deleted file mode 100644 index b1caac4d..00000000 Binary files a/pics/77998771.jpg and /dev/null differ diff --git a/pics/78004197.jpg b/pics/78004197.jpg deleted file mode 100644 index 532c42a8..00000000 Binary files a/pics/78004197.jpg and /dev/null differ diff --git a/pics/78009994.jpg b/pics/78009994.jpg deleted file mode 100644 index e0fcc23c..00000000 Binary files a/pics/78009994.jpg and /dev/null differ diff --git a/pics/78010363.jpg b/pics/78010363.jpg deleted file mode 100644 index 5983ec81..00000000 Binary files a/pics/78010363.jpg and /dev/null differ diff --git a/pics/7802006.jpg b/pics/7802006.jpg deleted file mode 100644 index 52d13d31..00000000 Binary files a/pics/7802006.jpg and /dev/null differ diff --git a/pics/78033100.jpg b/pics/78033100.jpg deleted file mode 100644 index 0ba50099..00000000 Binary files a/pics/78033100.jpg and /dev/null differ diff --git a/pics/7805359.jpg b/pics/7805359.jpg deleted file mode 100644 index 16016f37..00000000 Binary files a/pics/7805359.jpg and /dev/null differ diff --git a/pics/78053598.jpg b/pics/78053598.jpg deleted file mode 100644 index 26857d79..00000000 Binary files a/pics/78053598.jpg and /dev/null differ diff --git a/pics/78060096.jpg b/pics/78060096.jpg deleted file mode 100644 index a456692e..00000000 Binary files a/pics/78060096.jpg and /dev/null differ diff --git a/pics/78082039.jpg b/pics/78082039.jpg deleted file mode 100644 index 36ba798b..00000000 Binary files a/pics/78082039.jpg and /dev/null differ diff --git a/pics/7811875.jpg b/pics/7811875.jpg deleted file mode 100644 index 348ef2be..00000000 Binary files a/pics/7811875.jpg and /dev/null differ diff --git a/pics/78121572.jpg b/pics/78121572.jpg deleted file mode 100644 index 9e854b36..00000000 Binary files a/pics/78121572.jpg and /dev/null differ diff --git a/pics/78156759.jpg b/pics/78156759.jpg deleted file mode 100644 index b6ab9b4f..00000000 Binary files a/pics/78156759.jpg and /dev/null differ diff --git a/pics/78161960.jpg b/pics/78161960.jpg deleted file mode 100755 index 6b032449..00000000 Binary files a/pics/78161960.jpg and /dev/null differ diff --git a/pics/7817703.jpg b/pics/7817703.jpg deleted file mode 100644 index 0b0cf1df..00000000 Binary files a/pics/7817703.jpg and /dev/null differ diff --git a/pics/78184733.jpg b/pics/78184733.jpg deleted file mode 100644 index 6a9d5dd1..00000000 Binary files a/pics/78184733.jpg and /dev/null differ diff --git a/pics/78193831.jpg b/pics/78193831.jpg deleted file mode 100755 index d3ca4092..00000000 Binary files a/pics/78193831.jpg and /dev/null differ diff --git a/pics/78193832.jpg b/pics/78193832.jpg deleted file mode 100755 index b037f3b5..00000000 Binary files a/pics/78193832.jpg and /dev/null differ diff --git a/pics/78211862.jpg b/pics/78211862.jpg deleted file mode 100644 index 98459c50..00000000 Binary files a/pics/78211862.jpg and /dev/null differ diff --git a/pics/78243409.jpg b/pics/78243409.jpg deleted file mode 100644 index e96b7e07..00000000 Binary files a/pics/78243409.jpg and /dev/null differ diff --git a/pics/78266168.jpg b/pics/78266168.jpg deleted file mode 100644 index 16efe874..00000000 Binary files a/pics/78266168.jpg and /dev/null differ diff --git a/pics/78274190.jpg b/pics/78274190.jpg deleted file mode 100755 index ea22c5f1..00000000 Binary files a/pics/78274190.jpg and /dev/null differ diff --git a/pics/78275321.jpg b/pics/78275321.jpg deleted file mode 100644 index 12860f24..00000000 Binary files a/pics/78275321.jpg and /dev/null differ diff --git a/pics/78348934.jpg b/pics/78348934.jpg deleted file mode 100755 index cde4d602..00000000 Binary files a/pics/78348934.jpg and /dev/null differ diff --git a/pics/78349103.jpg b/pics/78349103.jpg deleted file mode 100644 index 0b3a4a0a..00000000 Binary files a/pics/78349103.jpg and /dev/null differ diff --git a/pics/78358521.jpg b/pics/78358521.jpg deleted file mode 100644 index 5ceac0ef..00000000 Binary files a/pics/78358521.jpg and /dev/null differ diff --git a/pics/78364470.jpg b/pics/78364470.jpg deleted file mode 100644 index f50106c2..00000000 Binary files a/pics/78364470.jpg and /dev/null differ diff --git a/pics/78371393.jpg b/pics/78371393.jpg deleted file mode 100644 index 58a9dd50..00000000 Binary files a/pics/78371393.jpg and /dev/null differ diff --git a/pics/78387742.jpg b/pics/78387742.jpg deleted file mode 100644 index afbd600a..00000000 Binary files a/pics/78387742.jpg and /dev/null differ diff --git a/pics/78391364.jpg b/pics/78391364.jpg deleted file mode 100644 index 622b20ff..00000000 Binary files a/pics/78391364.jpg and /dev/null differ diff --git a/pics/78402798.jpg b/pics/78402798.jpg deleted file mode 100644 index df787685..00000000 Binary files a/pics/78402798.jpg and /dev/null differ diff --git a/pics/7841112.jpg b/pics/7841112.jpg deleted file mode 100644 index a955cbb6..00000000 Binary files a/pics/7841112.jpg and /dev/null differ diff --git a/pics/7841921.jpg b/pics/7841921.jpg deleted file mode 100644 index 15ed5a18..00000000 Binary files a/pics/7841921.jpg and /dev/null differ diff --git a/pics/78422252.jpg b/pics/78422252.jpg deleted file mode 100644 index 661bc8df..00000000 Binary files a/pics/78422252.jpg and /dev/null differ diff --git a/pics/78423643.jpg b/pics/78423643.jpg deleted file mode 100644 index 674d5aac..00000000 Binary files a/pics/78423643.jpg and /dev/null differ diff --git a/pics/7845138.jpg b/pics/7845138.jpg deleted file mode 100644 index 32bacbb0..00000000 Binary files a/pics/7845138.jpg and /dev/null differ diff --git a/pics/78474168.jpg b/pics/78474168.jpg deleted file mode 100644 index c9045ba2..00000000 Binary files a/pics/78474168.jpg and /dev/null differ diff --git a/pics/78486968.jpg b/pics/78486968.jpg deleted file mode 100644 index c14b29b5..00000000 Binary files a/pics/78486968.jpg and /dev/null differ diff --git a/pics/78512663.jpg b/pics/78512663.jpg deleted file mode 100644 index a9c9bdcf..00000000 Binary files a/pics/78512663.jpg and /dev/null differ diff --git a/pics/7852878.jpg b/pics/7852878.jpg deleted file mode 100644 index c8ce4d2c..00000000 Binary files a/pics/7852878.jpg and /dev/null differ diff --git a/pics/78540593.jpg b/pics/78540593.jpg deleted file mode 100644 index 41211c00..00000000 Binary files a/pics/78540593.jpg and /dev/null differ diff --git a/pics/78552773.jpg b/pics/78552773.jpg deleted file mode 100644 index 559b7418..00000000 Binary files a/pics/78552773.jpg and /dev/null differ diff --git a/pics/78556320.jpg b/pics/78556320.jpg deleted file mode 100644 index d678b254..00000000 Binary files a/pics/78556320.jpg and /dev/null differ diff --git a/pics/78564023.jpg b/pics/78564023.jpg deleted file mode 100644 index 52cfc87d..00000000 Binary files a/pics/78564023.jpg and /dev/null differ diff --git a/pics/78574395.jpg b/pics/78574395.jpg deleted file mode 100644 index c045047b..00000000 Binary files a/pics/78574395.jpg and /dev/null differ diff --git a/pics/78577570.jpg b/pics/78577570.jpg deleted file mode 100644 index 555cd36d..00000000 Binary files a/pics/78577570.jpg and /dev/null differ diff --git a/pics/78586116.jpg b/pics/78586116.jpg deleted file mode 100644 index 0989ff76..00000000 Binary files a/pics/78586116.jpg and /dev/null differ diff --git a/pics/78610936.jpg b/pics/78610936.jpg deleted file mode 100644 index a49dbc7d..00000000 Binary files a/pics/78610936.jpg and /dev/null differ diff --git a/pics/78613627.jpg b/pics/78613627.jpg deleted file mode 100644 index bfa6c043..00000000 Binary files a/pics/78613627.jpg and /dev/null differ diff --git a/pics/78621186.jpg b/pics/78621186.jpg deleted file mode 100644 index 6fb68181..00000000 Binary files a/pics/78621186.jpg and /dev/null differ diff --git a/pics/78636495.jpg b/pics/78636495.jpg deleted file mode 100644 index 22bc0b96..00000000 Binary files a/pics/78636495.jpg and /dev/null differ diff --git a/pics/78637313.jpg b/pics/78637313.jpg deleted file mode 100644 index fd56ef44..00000000 Binary files a/pics/78637313.jpg and /dev/null differ diff --git a/pics/7864030.jpg b/pics/7864030.jpg deleted file mode 100755 index 0eef8463..00000000 Binary files a/pics/7864030.jpg and /dev/null differ diff --git a/pics/78651105.jpg b/pics/78651105.jpg deleted file mode 100644 index 48e2f29f..00000000 Binary files a/pics/78651105.jpg and /dev/null differ diff --git a/pics/78658564.jpg b/pics/78658564.jpg deleted file mode 100644 index 3850089b..00000000 Binary files a/pics/78658564.jpg and /dev/null differ diff --git a/pics/78663366.jpg b/pics/78663366.jpg deleted file mode 100644 index 92c73ca7..00000000 Binary files a/pics/78663366.jpg and /dev/null differ diff --git a/pics/78697395.jpg b/pics/78697395.jpg deleted file mode 100644 index fbc5762a..00000000 Binary files a/pics/78697395.jpg and /dev/null differ diff --git a/pics/78700060.jpg b/pics/78700060.jpg deleted file mode 100644 index 4a51fcb0..00000000 Binary files a/pics/78700060.jpg and /dev/null differ diff --git a/pics/78706415.jpg b/pics/78706415.jpg deleted file mode 100644 index d4d12fb9..00000000 Binary files a/pics/78706415.jpg and /dev/null differ diff --git a/pics/78734254.jpg b/pics/78734254.jpg deleted file mode 100644 index 1734d7c5..00000000 Binary files a/pics/78734254.jpg and /dev/null differ diff --git a/pics/78748366.jpg b/pics/78748366.jpg deleted file mode 100644 index 0750e955..00000000 Binary files a/pics/78748366.jpg and /dev/null differ diff --git a/pics/78780140.jpg b/pics/78780140.jpg deleted file mode 100644 index 00fc0ad7..00000000 Binary files a/pics/78780140.jpg and /dev/null differ diff --git a/pics/78783370.jpg b/pics/78783370.jpg deleted file mode 100644 index a0268dfa..00000000 Binary files a/pics/78783370.jpg and /dev/null differ diff --git a/pics/78792195.jpg b/pics/78792195.jpg deleted file mode 100644 index aa8aca9c..00000000 Binary files a/pics/78792195.jpg and /dev/null differ diff --git a/pics/78794994.jpg b/pics/78794994.jpg deleted file mode 100644 index 29e449a7..00000000 Binary files a/pics/78794994.jpg and /dev/null differ diff --git a/pics/78811937.jpg b/pics/78811937.jpg deleted file mode 100644 index 85ab6de0..00000000 Binary files a/pics/78811937.jpg and /dev/null differ diff --git a/pics/78835747.jpg b/pics/78835747.jpg deleted file mode 100644 index 87e18c2b..00000000 Binary files a/pics/78835747.jpg and /dev/null differ diff --git a/pics/78845026.jpg b/pics/78845026.jpg deleted file mode 100644 index c3ff1f64..00000000 Binary files a/pics/78845026.jpg and /dev/null differ diff --git a/pics/78861134.jpg b/pics/78861134.jpg deleted file mode 100644 index bdd88c39..00000000 Binary files a/pics/78861134.jpg and /dev/null differ diff --git a/pics/78864369.jpg b/pics/78864369.jpg deleted file mode 100644 index 0f1abf18..00000000 Binary files a/pics/78864369.jpg and /dev/null differ diff --git a/pics/78868119.jpg b/pics/78868119.jpg deleted file mode 100644 index d9818a61..00000000 Binary files a/pics/78868119.jpg and /dev/null differ diff --git a/pics/78868776.jpg b/pics/78868776.jpg deleted file mode 100644 index 9dec6692..00000000 Binary files a/pics/78868776.jpg and /dev/null differ diff --git a/pics/78910579.jpg b/pics/78910579.jpg deleted file mode 100644 index 5d5d9c8f..00000000 Binary files a/pics/78910579.jpg and /dev/null differ diff --git a/pics/7892180.jpg b/pics/7892180.jpg deleted file mode 100644 index 5766f0cd..00000000 Binary files a/pics/7892180.jpg and /dev/null differ diff --git a/pics/78922939.jpg b/pics/78922939.jpg deleted file mode 100644 index f194326a..00000000 Binary files a/pics/78922939.jpg and /dev/null differ diff --git a/pics/78933589.jpg b/pics/78933589.jpg deleted file mode 100644 index 3b962f3e..00000000 Binary files a/pics/78933589.jpg and /dev/null differ diff --git a/pics/78949372.jpg b/pics/78949372.jpg deleted file mode 100755 index f0254af5..00000000 Binary files a/pics/78949372.jpg and /dev/null differ diff --git a/pics/78984772.jpg b/pics/78984772.jpg deleted file mode 100644 index a0e052ae..00000000 Binary files a/pics/78984772.jpg and /dev/null differ diff --git a/pics/78986941.jpg b/pics/78986941.jpg deleted file mode 100644 index 2491a0c4..00000000 Binary files a/pics/78986941.jpg and /dev/null differ diff --git a/pics/7902349.jpg b/pics/7902349.jpg deleted file mode 100644 index e70c453e..00000000 Binary files a/pics/7902349.jpg and /dev/null differ diff --git a/pics/79068663.jpg b/pics/79068663.jpg deleted file mode 100644 index 2316c018..00000000 Binary files a/pics/79068663.jpg and /dev/null differ diff --git a/pics/79080761.jpg b/pics/79080761.jpg deleted file mode 100644 index f3335906..00000000 Binary files a/pics/79080761.jpg and /dev/null differ diff --git a/pics/79106360.jpg b/pics/79106360.jpg deleted file mode 100644 index f7229f50..00000000 Binary files a/pics/79106360.jpg and /dev/null differ diff --git a/pics/79109599.jpg b/pics/79109599.jpg deleted file mode 100644 index 4c0cf90b..00000000 Binary files a/pics/79109599.jpg and /dev/null differ diff --git a/pics/79126789.jpg b/pics/79126789.jpg deleted file mode 100644 index 26e26fe7..00000000 Binary files a/pics/79126789.jpg and /dev/null differ diff --git a/pics/7914843.jpg b/pics/7914843.jpg deleted file mode 100644 index 712ec877..00000000 Binary files a/pics/7914843.jpg and /dev/null differ diff --git a/pics/79155167.jpg b/pics/79155167.jpg deleted file mode 100644 index 22add49d..00000000 Binary files a/pics/79155167.jpg and /dev/null differ diff --git a/pics/79161790.jpg b/pics/79161790.jpg deleted file mode 100644 index 9bb81b12..00000000 Binary files a/pics/79161790.jpg and /dev/null differ diff --git a/pics/79178930.jpg b/pics/79178930.jpg deleted file mode 100644 index a790fbca..00000000 Binary files a/pics/79178930.jpg and /dev/null differ diff --git a/pics/79182538.jpg b/pics/79182538.jpg deleted file mode 100644 index fcdd4cba..00000000 Binary files a/pics/79182538.jpg and /dev/null differ diff --git a/pics/79185500.jpg b/pics/79185500.jpg deleted file mode 100644 index 2c4207a8..00000000 Binary files a/pics/79185500.jpg and /dev/null differ diff --git a/pics/79205581.jpg b/pics/79205581.jpg deleted file mode 100644 index f3f79689..00000000 Binary files a/pics/79205581.jpg and /dev/null differ diff --git a/pics/79206750.jpg b/pics/79206750.jpg deleted file mode 100644 index 8a0725fc..00000000 Binary files a/pics/79206750.jpg and /dev/null differ diff --git a/pics/79229522.jpg b/pics/79229522.jpg deleted file mode 100644 index f9d0b667..00000000 Binary files a/pics/79229522.jpg and /dev/null differ diff --git a/pics/79234734.jpg b/pics/79234734.jpg deleted file mode 100644 index f671043b..00000000 Binary files a/pics/79234734.jpg and /dev/null differ diff --git a/pics/79279397.jpg b/pics/79279397.jpg deleted file mode 100644 index ca527dad..00000000 Binary files a/pics/79279397.jpg and /dev/null differ diff --git a/pics/79306385.jpg b/pics/79306385.jpg deleted file mode 100644 index 782079ff..00000000 Binary files a/pics/79306385.jpg and /dev/null differ diff --git a/pics/79323590.jpg b/pics/79323590.jpg deleted file mode 100644 index 2759639b..00000000 Binary files a/pics/79323590.jpg and /dev/null differ diff --git a/pics/79333300.jpg b/pics/79333300.jpg deleted file mode 100644 index e236a1e2..00000000 Binary files a/pics/79333300.jpg and /dev/null differ diff --git a/pics/79335209.jpg b/pics/79335209.jpg deleted file mode 100644 index b30ae17b..00000000 Binary files a/pics/79335209.jpg and /dev/null differ diff --git a/pics/79337169.jpg b/pics/79337169.jpg deleted file mode 100644 index a726517f..00000000 Binary files a/pics/79337169.jpg and /dev/null differ diff --git a/pics/7935043.jpg b/pics/7935043.jpg deleted file mode 100644 index d82e8bf5..00000000 Binary files a/pics/7935043.jpg and /dev/null differ diff --git a/pics/79407975.jpg b/pics/79407975.jpg deleted file mode 100644 index acf567db..00000000 Binary files a/pics/79407975.jpg and /dev/null differ diff --git a/pics/79409334.jpg b/pics/79409334.jpg deleted file mode 100644 index c7ff88bc..00000000 Binary files a/pics/79409334.jpg and /dev/null differ diff --git a/pics/79418153.jpg b/pics/79418153.jpg deleted file mode 100644 index c55b890e..00000000 Binary files a/pics/79418153.jpg and /dev/null differ diff --git a/pics/79444933.jpg b/pics/79444933.jpg deleted file mode 100644 index 234bfb57..00000000 Binary files a/pics/79444933.jpg and /dev/null differ diff --git a/pics/79447365.jpg b/pics/79447365.jpg deleted file mode 100755 index fef6c7ca..00000000 Binary files a/pics/79447365.jpg and /dev/null differ diff --git a/pics/79473793.jpg b/pics/79473793.jpg deleted file mode 100644 index efd73cca..00000000 Binary files a/pics/79473793.jpg and /dev/null differ diff --git a/pics/79491903.jpg b/pics/79491903.jpg deleted file mode 100644 index 12993b13..00000000 Binary files a/pics/79491903.jpg and /dev/null differ diff --git a/pics/79514956.jpg b/pics/79514956.jpg deleted file mode 100644 index a22127c4..00000000 Binary files a/pics/79514956.jpg and /dev/null differ diff --git a/pics/79531196.jpg b/pics/79531196.jpg deleted file mode 100755 index e862f520..00000000 Binary files a/pics/79531196.jpg and /dev/null differ diff --git a/pics/7953868.jpg b/pics/7953868.jpg deleted file mode 100644 index 8d5a7ccb..00000000 Binary files a/pics/7953868.jpg and /dev/null differ diff --git a/pics/79544790.jpg b/pics/79544790.jpg deleted file mode 100644 index 7598cd6f..00000000 Binary files a/pics/79544790.jpg and /dev/null differ diff --git a/pics/79555535.jpg b/pics/79555535.jpg deleted file mode 100755 index e73f3c7e..00000000 Binary files a/pics/79555535.jpg and /dev/null differ diff --git a/pics/79569173.jpg b/pics/79569173.jpg deleted file mode 100644 index 345f261c..00000000 Binary files a/pics/79569173.jpg and /dev/null differ diff --git a/pics/79571449.jpg b/pics/79571449.jpg deleted file mode 100644 index 7e27ef53..00000000 Binary files a/pics/79571449.jpg and /dev/null differ diff --git a/pics/79575620.jpg b/pics/79575620.jpg deleted file mode 100644 index 3f0c1fc8..00000000 Binary files a/pics/79575620.jpg and /dev/null differ diff --git a/pics/79580323.jpg b/pics/79580323.jpg deleted file mode 100644 index 80db018e..00000000 Binary files a/pics/79580323.jpg and /dev/null differ diff --git a/pics/79606837.jpg b/pics/79606837.jpg deleted file mode 100644 index a3f9e8c8..00000000 Binary files a/pics/79606837.jpg and /dev/null differ diff --git a/pics/79629370.jpg b/pics/79629370.jpg deleted file mode 100644 index cbbbd66a..00000000 Binary files a/pics/79629370.jpg and /dev/null differ diff --git a/pics/79636594.jpg b/pics/79636594.jpg deleted file mode 100644 index e35e1aca..00000000 Binary files a/pics/79636594.jpg and /dev/null differ diff --git a/pics/79649195.jpg b/pics/79649195.jpg deleted file mode 100644 index a1d3ef53..00000000 Binary files a/pics/79649195.jpg and /dev/null differ diff --git a/pics/79703905.jpg b/pics/79703905.jpg deleted file mode 100644 index 2ee87020..00000000 Binary files a/pics/79703905.jpg and /dev/null differ diff --git a/pics/79707116.jpg b/pics/79707116.jpg deleted file mode 100644 index 080d0037..00000000 Binary files a/pics/79707116.jpg and /dev/null differ diff --git a/pics/79718768.jpg b/pics/79718768.jpg deleted file mode 100644 index d613f20c..00000000 Binary files a/pics/79718768.jpg and /dev/null differ diff --git a/pics/79757784.jpg b/pics/79757784.jpg deleted file mode 100755 index 0507ce3b..00000000 Binary files a/pics/79757784.jpg and /dev/null differ diff --git a/pics/79759367.jpg b/pics/79759367.jpg deleted file mode 100644 index 0cb14436..00000000 Binary files a/pics/79759367.jpg and /dev/null differ diff --git a/pics/79759861.jpg b/pics/79759861.jpg deleted file mode 100644 index f30c0c87..00000000 Binary files a/pics/79759861.jpg and /dev/null differ diff --git a/pics/79766336.jpg b/pics/79766336.jpg deleted file mode 100644 index 5fbb956e..00000000 Binary files a/pics/79766336.jpg and /dev/null differ diff --git a/pics/79777187.jpg b/pics/79777187.jpg deleted file mode 100755 index 5fff2f33..00000000 Binary files a/pics/79777187.jpg and /dev/null differ diff --git a/pics/79785958.jpg b/pics/79785958.jpg deleted file mode 100644 index b716a073..00000000 Binary files a/pics/79785958.jpg and /dev/null differ diff --git a/pics/79796561.jpg b/pics/79796561.jpg deleted file mode 100644 index 0873c046..00000000 Binary files a/pics/79796561.jpg and /dev/null differ diff --git a/pics/79798060.jpg b/pics/79798060.jpg deleted file mode 100644 index 5e696338..00000000 Binary files a/pics/79798060.jpg and /dev/null differ diff --git a/pics/79814787.jpg b/pics/79814787.jpg deleted file mode 100644 index 47534048..00000000 Binary files a/pics/79814787.jpg and /dev/null differ diff --git a/pics/79816536.jpg b/pics/79816536.jpg deleted file mode 100644 index ae184e6c..00000000 Binary files a/pics/79816536.jpg and /dev/null differ diff --git a/pics/79844764.jpg b/pics/79844764.jpg deleted file mode 100644 index a54814fe..00000000 Binary files a/pics/79844764.jpg and /dev/null differ diff --git a/pics/79850798.jpg b/pics/79850798.jpg deleted file mode 100644 index bba3f71b..00000000 Binary files a/pics/79850798.jpg and /dev/null differ diff --git a/pics/79852326.jpg b/pics/79852326.jpg deleted file mode 100644 index e115b682..00000000 Binary files a/pics/79852326.jpg and /dev/null differ diff --git a/pics/79853073.jpg b/pics/79853073.jpg deleted file mode 100644 index 2daa9bff..00000000 Binary files a/pics/79853073.jpg and /dev/null differ diff --git a/pics/79856792.jpg b/pics/79856792.jpg deleted file mode 100644 index a1ebaac6..00000000 Binary files a/pics/79856792.jpg and /dev/null differ diff --git a/pics/79861914.jpg b/pics/79861914.jpg deleted file mode 100644 index 885d0569..00000000 Binary files a/pics/79861914.jpg and /dev/null differ diff --git a/pics/79867938.jpg b/pics/79867938.jpg deleted file mode 100644 index 78e9fc69..00000000 Binary files a/pics/79867938.jpg and /dev/null differ diff --git a/pics/79870141.jpg b/pics/79870141.jpg deleted file mode 100644 index 605ea4ae..00000000 Binary files a/pics/79870141.jpg and /dev/null differ diff --git a/pics/79875176.jpg b/pics/79875176.jpg deleted file mode 100644 index eae1728d..00000000 Binary files a/pics/79875176.jpg and /dev/null differ diff --git a/pics/799183.jpg b/pics/799183.jpg deleted file mode 100644 index 03ef2b35..00000000 Binary files a/pics/799183.jpg and /dev/null differ diff --git a/pics/79965360.jpg b/pics/79965360.jpg deleted file mode 100644 index 367acd8d..00000000 Binary files a/pics/79965360.jpg and /dev/null differ diff --git a/pics/79967395.jpg b/pics/79967395.jpg deleted file mode 100644 index 1a4e54ea..00000000 Binary files a/pics/79967395.jpg and /dev/null differ diff --git a/pics/79972330.jpg b/pics/79972330.jpg deleted file mode 100644 index 256d80f4..00000000 Binary files a/pics/79972330.jpg and /dev/null differ diff --git a/pics/79979666.jpg b/pics/79979666.jpg deleted file mode 100644 index 8e569b4e..00000000 Binary files a/pics/79979666.jpg and /dev/null differ diff --git a/pics/79997591.jpg b/pics/79997591.jpg deleted file mode 100644 index 4a3bf43d..00000000 Binary files a/pics/79997591.jpg and /dev/null differ diff --git a/pics/800000000.jpg b/pics/800000000.jpg deleted file mode 100644 index 0aeb2a79..00000000 Binary files a/pics/800000000.jpg and /dev/null differ diff --git a/pics/800000001.jpg b/pics/800000001.jpg deleted file mode 100644 index 96994020..00000000 Binary files a/pics/800000001.jpg and /dev/null differ diff --git a/pics/800000002.jpg b/pics/800000002.jpg deleted file mode 100644 index ff74f752..00000000 Binary files a/pics/800000002.jpg and /dev/null differ diff --git a/pics/800000004.jpg b/pics/800000004.jpg deleted file mode 100644 index d1fea71a..00000000 Binary files a/pics/800000004.jpg and /dev/null differ diff --git a/pics/800000005.jpg b/pics/800000005.jpg deleted file mode 100644 index 5ba2e083..00000000 Binary files a/pics/800000005.jpg and /dev/null differ diff --git a/pics/800000006.jpg b/pics/800000006.jpg deleted file mode 100644 index 4f93eb15..00000000 Binary files a/pics/800000006.jpg and /dev/null differ diff --git a/pics/800000007.jpg b/pics/800000007.jpg deleted file mode 100755 index 3c733d63..00000000 Binary files a/pics/800000007.jpg and /dev/null differ diff --git a/pics/800000008.jpg b/pics/800000008.jpg deleted file mode 100644 index 2d05a40f..00000000 Binary files a/pics/800000008.jpg and /dev/null differ diff --git a/pics/800000009.jpg b/pics/800000009.jpg deleted file mode 100644 index b7e6241d..00000000 Binary files a/pics/800000009.jpg and /dev/null differ diff --git a/pics/800000010.jpg b/pics/800000010.jpg deleted file mode 100644 index 1c665dfd..00000000 Binary files a/pics/800000010.jpg and /dev/null differ diff --git a/pics/800000011.jpg b/pics/800000011.jpg deleted file mode 100644 index 045d93b7..00000000 Binary files a/pics/800000011.jpg and /dev/null differ diff --git a/pics/800000012.jpg b/pics/800000012.jpg deleted file mode 100644 index d9a6f34e..00000000 Binary files a/pics/800000012.jpg and /dev/null differ diff --git a/pics/800000014.jpg b/pics/800000014.jpg deleted file mode 100644 index c55b3ffe..00000000 Binary files a/pics/800000014.jpg and /dev/null differ diff --git a/pics/80019195.jpg b/pics/80019195.jpg deleted file mode 100644 index 88d893c0..00000000 Binary files a/pics/80019195.jpg and /dev/null differ diff --git a/pics/80032567.jpg b/pics/80032567.jpg deleted file mode 100644 index 6eadf3de..00000000 Binary files a/pics/80032567.jpg and /dev/null differ diff --git a/pics/80033124.jpg b/pics/80033124.jpg deleted file mode 100644 index 5a1cb25a..00000000 Binary files a/pics/80033124.jpg and /dev/null differ diff --git a/pics/80036543.jpg b/pics/80036543.jpg deleted file mode 100644 index 9618163d..00000000 Binary files a/pics/80036543.jpg and /dev/null differ diff --git a/pics/80045583.jpg b/pics/80045583.jpg deleted file mode 100644 index 231d13e1..00000000 Binary files a/pics/80045583.jpg and /dev/null differ diff --git a/pics/80071763.jpg b/pics/80071763.jpg deleted file mode 100644 index 0dc61e66..00000000 Binary files a/pics/80071763.jpg and /dev/null differ diff --git a/pics/80075749.jpg b/pics/80075749.jpg deleted file mode 100644 index 7ae0391e..00000000 Binary files a/pics/80075749.jpg and /dev/null differ diff --git a/pics/80102359.jpg b/pics/80102359.jpg deleted file mode 100644 index c3202344..00000000 Binary files a/pics/80102359.jpg and /dev/null differ diff --git a/pics/80108118.jpg b/pics/80108118.jpg deleted file mode 100644 index 28599eb7..00000000 Binary files a/pics/80108118.jpg and /dev/null differ diff --git a/pics/80117527.jpg b/pics/80117527.jpg deleted file mode 100644 index 6df91068..00000000 Binary files a/pics/80117527.jpg and /dev/null differ diff --git a/pics/80141480.jpg b/pics/80141480.jpg deleted file mode 100644 index 1f8257f8..00000000 Binary files a/pics/80141480.jpg and /dev/null differ diff --git a/pics/80159717.jpg b/pics/80159717.jpg deleted file mode 100644 index ddb4f76b..00000000 Binary files a/pics/80159717.jpg and /dev/null differ diff --git a/pics/80161395.jpg b/pics/80161395.jpg deleted file mode 100644 index 3e01a9e2..00000000 Binary files a/pics/80161395.jpg and /dev/null differ diff --git a/pics/80163754.jpg b/pics/80163754.jpg deleted file mode 100644 index 58d906c1..00000000 Binary files a/pics/80163754.jpg and /dev/null differ diff --git a/pics/80168720.jpg b/pics/80168720.jpg deleted file mode 100644 index 34d26b17..00000000 Binary files a/pics/80168720.jpg and /dev/null differ diff --git a/pics/80186010.jpg b/pics/80186010.jpg deleted file mode 100644 index f33eabf6..00000000 Binary files a/pics/80186010.jpg and /dev/null differ diff --git a/pics/80190753.jpg b/pics/80190753.jpg deleted file mode 100644 index 562a1c91..00000000 Binary files a/pics/80190753.jpg and /dev/null differ diff --git a/pics/80193355.jpg b/pics/80193355.jpg deleted file mode 100644 index 5d3c5ccc..00000000 Binary files a/pics/80193355.jpg and /dev/null differ diff --git a/pics/80204957.jpg b/pics/80204957.jpg deleted file mode 100644 index 5c7ab1ea..00000000 Binary files a/pics/80204957.jpg and /dev/null differ diff --git a/pics/80208158.jpg b/pics/80208158.jpg deleted file mode 100644 index 4ce54ca6..00000000 Binary files a/pics/80208158.jpg and /dev/null differ diff --git a/pics/80208323.jpg b/pics/80208323.jpg deleted file mode 100644 index 7aeacb73..00000000 Binary files a/pics/80208323.jpg and /dev/null differ diff --git a/pics/80233946.jpg b/pics/80233946.jpg deleted file mode 100644 index cc1b5e15..00000000 Binary files a/pics/80233946.jpg and /dev/null differ diff --git a/pics/80234301.jpg b/pics/80234301.jpg deleted file mode 100644 index d241b2fb..00000000 Binary files a/pics/80234301.jpg and /dev/null differ diff --git a/pics/80244114.jpg b/pics/80244114.jpg deleted file mode 100644 index ec0222a8..00000000 Binary files a/pics/80244114.jpg and /dev/null differ diff --git a/pics/80280737.jpg b/pics/80280737.jpg deleted file mode 100644 index 234220a0..00000000 Binary files a/pics/80280737.jpg and /dev/null differ diff --git a/pics/80304126.jpg b/pics/80304126.jpg deleted file mode 100644 index 20759eba..00000000 Binary files a/pics/80304126.jpg and /dev/null differ diff --git a/pics/80316585.jpg b/pics/80316585.jpg deleted file mode 100644 index 5229cc47..00000000 Binary files a/pics/80316585.jpg and /dev/null differ diff --git a/pics/80321197.jpg b/pics/80321197.jpg deleted file mode 100644 index 6244b7d1..00000000 Binary files a/pics/80321197.jpg and /dev/null differ diff --git a/pics/80335817.jpg b/pics/80335817.jpg deleted file mode 100755 index 523e5446..00000000 Binary files a/pics/80335817.jpg and /dev/null differ diff --git a/pics/80344569.jpg b/pics/80344569.jpg deleted file mode 100644 index 94e579fc..00000000 Binary files a/pics/80344569.jpg and /dev/null differ diff --git a/pics/8034697.jpg b/pics/8034697.jpg deleted file mode 100644 index 5b8b1723..00000000 Binary files a/pics/8034697.jpg and /dev/null differ diff --git a/pics/80367387.jpg b/pics/80367387.jpg deleted file mode 100644 index 11386b05..00000000 Binary files a/pics/80367387.jpg and /dev/null differ diff --git a/pics/80368942.jpg b/pics/80368942.jpg deleted file mode 100644 index b6e48b25..00000000 Binary files a/pics/80368942.jpg and /dev/null differ diff --git a/pics/8038143.jpg b/pics/8038143.jpg deleted file mode 100644 index 25559c84..00000000 Binary files a/pics/8038143.jpg and /dev/null differ diff --git a/pics/80402389.jpg b/pics/80402389.jpg deleted file mode 100644 index 35d1f8f2..00000000 Binary files a/pics/80402389.jpg and /dev/null differ diff --git a/pics/8041569.jpg b/pics/8041569.jpg deleted file mode 100644 index a9ae2251..00000000 Binary files a/pics/8041569.jpg and /dev/null differ diff --git a/pics/80441106.jpg b/pics/80441106.jpg deleted file mode 100644 index 7d4517dc..00000000 Binary files a/pics/80441106.jpg and /dev/null differ diff --git a/pics/80457744.jpg b/pics/80457744.jpg deleted file mode 100644 index d15df105..00000000 Binary files a/pics/80457744.jpg and /dev/null differ diff --git a/pics/80485722.jpg b/pics/80485722.jpg deleted file mode 100644 index d51f4dbc..00000000 Binary files a/pics/80485722.jpg and /dev/null differ diff --git a/pics/80495985.jpg b/pics/80495985.jpg deleted file mode 100644 index eb14fd8d..00000000 Binary files a/pics/80495985.jpg and /dev/null differ diff --git a/pics/80513550.jpg b/pics/80513550.jpg deleted file mode 100644 index 7c353640..00000000 Binary files a/pics/80513550.jpg and /dev/null differ diff --git a/pics/80516007.jpg b/pics/80516007.jpg deleted file mode 100644 index 3911b4dd..00000000 Binary files a/pics/80516007.jpg and /dev/null differ diff --git a/pics/80532587.jpg b/pics/80532587.jpg deleted file mode 100644 index ea7ebd99..00000000 Binary files a/pics/80532587.jpg and /dev/null differ diff --git a/pics/80538728.jpg b/pics/80538728.jpg deleted file mode 100644 index 1e0ff144..00000000 Binary files a/pics/80538728.jpg and /dev/null differ diff --git a/pics/80549379.jpg b/pics/80549379.jpg deleted file mode 100644 index 7d655224..00000000 Binary files a/pics/80549379.jpg and /dev/null differ diff --git a/pics/80551130.jpg b/pics/80551130.jpg deleted file mode 100644 index 23edb92e..00000000 Binary files a/pics/80551130.jpg and /dev/null differ diff --git a/pics/80555062.jpg b/pics/80555062.jpg deleted file mode 100644 index 48c35393..00000000 Binary files a/pics/80555062.jpg and /dev/null differ diff --git a/pics/80555116.jpg b/pics/80555116.jpg deleted file mode 100644 index 9a1fe779..00000000 Binary files a/pics/80555116.jpg and /dev/null differ diff --git a/pics/80559548.jpg b/pics/80559548.jpg deleted file mode 100755 index b57db65f..00000000 Binary files a/pics/80559548.jpg and /dev/null differ diff --git a/pics/80566312.jpg b/pics/80566312.jpg deleted file mode 100644 index 2746e409..00000000 Binary files a/pics/80566312.jpg and /dev/null differ diff --git a/pics/8057630.jpg b/pics/8057630.jpg deleted file mode 100644 index d311365c..00000000 Binary files a/pics/8057630.jpg and /dev/null differ diff --git a/pics/8058240.jpg b/pics/8058240.jpg deleted file mode 100644 index b34b2431..00000000 Binary files a/pics/8058240.jpg and /dev/null differ diff --git a/pics/80600490.jpg b/pics/80600490.jpg deleted file mode 100644 index 217f3de4..00000000 Binary files a/pics/80600490.jpg and /dev/null differ diff --git a/pics/80604091.jpg b/pics/80604091.jpg deleted file mode 100644 index b7e55b23..00000000 Binary files a/pics/80604091.jpg and /dev/null differ diff --git a/pics/80604092.jpg b/pics/80604092.jpg deleted file mode 100644 index 7b95469d..00000000 Binary files a/pics/80604092.jpg and /dev/null differ diff --git a/pics/8062132.jpg b/pics/8062132.jpg deleted file mode 100644 index 6ae91a02..00000000 Binary files a/pics/8062132.jpg and /dev/null differ diff --git a/pics/80637190.jpg b/pics/80637190.jpg deleted file mode 100644 index 13774377..00000000 Binary files a/pics/80637190.jpg and /dev/null differ diff --git a/pics/80651316.jpg b/pics/80651316.jpg deleted file mode 100644 index 4dbde7b6..00000000 Binary files a/pics/80651316.jpg and /dev/null differ diff --git a/pics/80666118.jpg b/pics/80666118.jpg deleted file mode 100644 index cc80566c..00000000 Binary files a/pics/80666118.jpg and /dev/null differ diff --git a/pics/80678380.jpg b/pics/80678380.jpg deleted file mode 100644 index e592b739..00000000 Binary files a/pics/80678380.jpg and /dev/null differ diff --git a/pics/80696379.jpg b/pics/80696379.jpg deleted file mode 100644 index b5a0bde6..00000000 Binary files a/pics/80696379.jpg and /dev/null differ diff --git a/pics/80723580.jpg b/pics/80723580.jpg deleted file mode 100644 index d95dfc06..00000000 Binary files a/pics/80723580.jpg and /dev/null differ diff --git a/pics/80727036.jpg b/pics/80727036.jpg deleted file mode 100644 index c4550c5e..00000000 Binary files a/pics/80727036.jpg and /dev/null differ diff --git a/pics/80727721.jpg b/pics/80727721.jpg deleted file mode 100644 index cec05bdf..00000000 Binary files a/pics/80727721.jpg and /dev/null differ diff --git a/pics/80741828.jpg b/pics/80741828.jpg deleted file mode 100644 index 9808c00f..00000000 Binary files a/pics/80741828.jpg and /dev/null differ diff --git a/pics/80744121.jpg b/pics/80744121.jpg deleted file mode 100644 index 0f03bb3e..00000000 Binary files a/pics/80744121.jpg and /dev/null differ diff --git a/pics/80764541.jpg b/pics/80764541.jpg deleted file mode 100644 index 9e42b886..00000000 Binary files a/pics/80764541.jpg and /dev/null differ diff --git a/pics/80769747.jpg b/pics/80769747.jpg deleted file mode 100644 index c0ebb9fe..00000000 Binary files a/pics/80769747.jpg and /dev/null differ diff --git a/pics/80770678.jpg b/pics/80770678.jpg deleted file mode 100644 index 17f14cff..00000000 Binary files a/pics/80770678.jpg and /dev/null differ diff --git a/pics/8078366.jpg b/pics/8078366.jpg deleted file mode 100644 index 2295fee9..00000000 Binary files a/pics/8078366.jpg and /dev/null differ diff --git a/pics/80802524.jpg b/pics/80802524.jpg deleted file mode 100644 index e18e77a5..00000000 Binary files a/pics/80802524.jpg and /dev/null differ diff --git a/pics/80811661.jpg b/pics/80811661.jpg deleted file mode 100644 index 65c38d35..00000000 Binary files a/pics/80811661.jpg and /dev/null differ diff --git a/pics/80813021.jpg b/pics/80813021.jpg deleted file mode 100644 index cde8b0fb..00000000 Binary files a/pics/80813021.jpg and /dev/null differ diff --git a/pics/80825553.jpg b/pics/80825553.jpg deleted file mode 100644 index 8fc05792..00000000 Binary files a/pics/80825553.jpg and /dev/null differ diff --git a/pics/80831721.jpg b/pics/80831721.jpg deleted file mode 100644 index 41a1668d..00000000 Binary files a/pics/80831721.jpg and /dev/null differ diff --git a/pics/80863132.jpg b/pics/80863132.jpg deleted file mode 100644 index f5f785f9..00000000 Binary files a/pics/80863132.jpg and /dev/null differ diff --git a/pics/80885284.jpg b/pics/80885284.jpg deleted file mode 100644 index 998d8522..00000000 Binary files a/pics/80885284.jpg and /dev/null differ diff --git a/pics/80885324.jpg b/pics/80885324.jpg deleted file mode 100644 index ebf3ba5d..00000000 Binary files a/pics/80885324.jpg and /dev/null differ diff --git a/pics/80887714.jpg b/pics/80887714.jpg deleted file mode 100644 index 188ba643..00000000 Binary files a/pics/80887714.jpg and /dev/null differ diff --git a/pics/80887952.jpg b/pics/80887952.jpg deleted file mode 100644 index 343d2aad..00000000 Binary files a/pics/80887952.jpg and /dev/null differ diff --git a/pics/80889750.jpg b/pics/80889750.jpg deleted file mode 100644 index 7000e949..00000000 Binary files a/pics/80889750.jpg and /dev/null differ diff --git a/pics/80908502.jpg b/pics/80908502.jpg deleted file mode 100644 index 0db6c7da..00000000 Binary files a/pics/80908502.jpg and /dev/null differ diff --git a/pics/8091563.jpg b/pics/8091563.jpg deleted file mode 100644 index d75e5cef..00000000 Binary files a/pics/8091563.jpg and /dev/null differ diff --git a/pics/80921533.jpg b/pics/80921533.jpg deleted file mode 100644 index e5a70460..00000000 Binary files a/pics/80921533.jpg and /dev/null differ diff --git a/pics/80925836.jpg b/pics/80925836.jpg deleted file mode 100644 index 9ca40f35..00000000 Binary files a/pics/80925836.jpg and /dev/null differ diff --git a/pics/80955168.jpg b/pics/80955168.jpg deleted file mode 100644 index 1436ca39..00000000 Binary files a/pics/80955168.jpg and /dev/null differ diff --git a/pics/80978111.jpg b/pics/80978111.jpg deleted file mode 100644 index 9da33bd5..00000000 Binary files a/pics/80978111.jpg and /dev/null differ diff --git a/pics/80987696.jpg b/pics/80987696.jpg deleted file mode 100644 index 5d9231db..00000000 Binary files a/pics/80987696.jpg and /dev/null differ diff --git a/pics/810000001.jpg b/pics/810000001.jpg deleted file mode 100644 index 1ae90398..00000000 Binary files a/pics/810000001.jpg and /dev/null differ diff --git a/pics/810000002.jpg b/pics/810000002.jpg deleted file mode 100644 index 35645d25..00000000 Binary files a/pics/810000002.jpg and /dev/null differ diff --git a/pics/810000003.jpg b/pics/810000003.jpg deleted file mode 100644 index 80128d44..00000000 Binary files a/pics/810000003.jpg and /dev/null differ diff --git a/pics/810000005.jpg b/pics/810000005.jpg deleted file mode 100644 index 589505e1..00000000 Binary files a/pics/810000005.jpg and /dev/null differ diff --git a/pics/810000006.jpg b/pics/810000006.jpg deleted file mode 100644 index df3eb506..00000000 Binary files a/pics/810000006.jpg and /dev/null differ diff --git a/pics/810000007.jpg b/pics/810000007.jpg deleted file mode 100644 index fb968a61..00000000 Binary files a/pics/810000007.jpg and /dev/null differ diff --git a/pics/810000008.jpg b/pics/810000008.jpg deleted file mode 100755 index d1fad7b8..00000000 Binary files a/pics/810000008.jpg and /dev/null differ diff --git a/pics/810000009.jpg b/pics/810000009.jpg deleted file mode 100755 index 4015dd6c..00000000 Binary files a/pics/810000009.jpg and /dev/null differ diff --git a/pics/810000011.jpg b/pics/810000011.jpg deleted file mode 100644 index f9e16d78..00000000 Binary files a/pics/810000011.jpg and /dev/null differ diff --git a/pics/810000012.jpg b/pics/810000012.jpg deleted file mode 100644 index 45affa22..00000000 Binary files a/pics/810000012.jpg and /dev/null differ diff --git a/pics/810000014.jpg b/pics/810000014.jpg deleted file mode 100644 index c7ebac76..00000000 Binary files a/pics/810000014.jpg and /dev/null differ diff --git a/pics/810000016.jpg b/pics/810000016.jpg deleted file mode 100755 index 22506f1c..00000000 Binary files a/pics/810000016.jpg and /dev/null differ diff --git a/pics/810000017.jpg b/pics/810000017.jpg deleted file mode 100644 index ed4c7549..00000000 Binary files a/pics/810000017.jpg and /dev/null differ diff --git a/pics/810000018.jpg b/pics/810000018.jpg deleted file mode 100644 index c91578f0..00000000 Binary files a/pics/810000018.jpg and /dev/null differ diff --git a/pics/810000019.jpg b/pics/810000019.jpg deleted file mode 100644 index acbac716..00000000 Binary files a/pics/810000019.jpg and /dev/null differ diff --git a/pics/810000020.jpg b/pics/810000020.jpg deleted file mode 100644 index 192ef573..00000000 Binary files a/pics/810000020.jpg and /dev/null differ diff --git a/pics/810000021.jpg b/pics/810000021.jpg deleted file mode 100644 index 5f15e692..00000000 Binary files a/pics/810000021.jpg and /dev/null differ diff --git a/pics/810000022.jpg b/pics/810000022.jpg deleted file mode 100644 index 87b3eabb..00000000 Binary files a/pics/810000022.jpg and /dev/null differ diff --git a/pics/810000023.jpg b/pics/810000023.jpg deleted file mode 100644 index 06770ade..00000000 Binary files a/pics/810000023.jpg and /dev/null differ diff --git a/pics/810000025.jpg b/pics/810000025.jpg deleted file mode 100644 index 5c8297ca..00000000 Binary files a/pics/810000025.jpg and /dev/null differ diff --git a/pics/810000026.jpg b/pics/810000026.jpg deleted file mode 100644 index a9d8a080..00000000 Binary files a/pics/810000026.jpg and /dev/null differ diff --git a/pics/810000027.jpg b/pics/810000027.jpg deleted file mode 100755 index e430480b..00000000 Binary files a/pics/810000027.jpg and /dev/null differ diff --git a/pics/810000028.jpg b/pics/810000028.jpg deleted file mode 100755 index de864d86..00000000 Binary files a/pics/810000028.jpg and /dev/null differ diff --git a/pics/810000029.jpg b/pics/810000029.jpg deleted file mode 100644 index 4693f088..00000000 Binary files a/pics/810000029.jpg and /dev/null differ diff --git a/pics/810000030.jpg b/pics/810000030.jpg deleted file mode 100755 index 25da1856..00000000 Binary files a/pics/810000030.jpg and /dev/null differ diff --git a/pics/810000031.jpg b/pics/810000031.jpg deleted file mode 100644 index e6e446c8..00000000 Binary files a/pics/810000031.jpg and /dev/null differ diff --git a/pics/810000032.jpg b/pics/810000032.jpg deleted file mode 100644 index 99d298ef..00000000 Binary files a/pics/810000032.jpg and /dev/null differ diff --git a/pics/810000033.jpg b/pics/810000033.jpg deleted file mode 100644 index c65ced46..00000000 Binary files a/pics/810000033.jpg and /dev/null differ diff --git a/pics/810000034.jpg b/pics/810000034.jpg deleted file mode 100755 index a0a78d8c..00000000 Binary files a/pics/810000034.jpg and /dev/null differ diff --git a/pics/810000036.jpg b/pics/810000036.jpg deleted file mode 100644 index 4bf17330..00000000 Binary files a/pics/810000036.jpg and /dev/null differ diff --git a/pics/810000038.jpg b/pics/810000038.jpg deleted file mode 100644 index 8af21d21..00000000 Binary files a/pics/810000038.jpg and /dev/null differ diff --git a/pics/810000039.jpg b/pics/810000039.jpg deleted file mode 100644 index c850046e..00000000 Binary files a/pics/810000039.jpg and /dev/null differ diff --git a/pics/810000040.jpg b/pics/810000040.jpg deleted file mode 100644 index 3f448326..00000000 Binary files a/pics/810000040.jpg and /dev/null differ diff --git a/pics/810000042.jpg b/pics/810000042.jpg deleted file mode 100644 index cb82e6e1..00000000 Binary files a/pics/810000042.jpg and /dev/null differ diff --git a/pics/810000044.jpg b/pics/810000044.jpg deleted file mode 100644 index e5afe7d0..00000000 Binary files a/pics/810000044.jpg and /dev/null differ diff --git a/pics/810000045.jpg b/pics/810000045.jpg deleted file mode 100644 index f02130d1..00000000 Binary files a/pics/810000045.jpg and /dev/null differ diff --git a/pics/810000046.jpg b/pics/810000046.jpg deleted file mode 100644 index 7f119dd0..00000000 Binary files a/pics/810000046.jpg and /dev/null differ diff --git a/pics/810000049.jpg b/pics/810000049.jpg deleted file mode 100644 index be069dad..00000000 Binary files a/pics/810000049.jpg and /dev/null differ diff --git a/pics/810000050.jpg b/pics/810000050.jpg deleted file mode 100644 index 857bc389..00000000 Binary files a/pics/810000050.jpg and /dev/null differ diff --git a/pics/810000051.jpg b/pics/810000051.jpg deleted file mode 100644 index 624b633d..00000000 Binary files a/pics/810000051.jpg and /dev/null differ diff --git a/pics/810000052.jpg b/pics/810000052.jpg deleted file mode 100644 index 43f77ba0..00000000 Binary files a/pics/810000052.jpg and /dev/null differ diff --git a/pics/810000054.jpg b/pics/810000054.jpg deleted file mode 100644 index 7a657746..00000000 Binary files a/pics/810000054.jpg and /dev/null differ diff --git a/pics/810000055.jpg b/pics/810000055.jpg deleted file mode 100755 index 3852f7fd..00000000 Binary files a/pics/810000055.jpg and /dev/null differ diff --git a/pics/810000056.jpg b/pics/810000056.jpg deleted file mode 100644 index 324505f2..00000000 Binary files a/pics/810000056.jpg and /dev/null differ diff --git a/pics/810000057.jpg b/pics/810000057.jpg deleted file mode 100644 index 22bc6327..00000000 Binary files a/pics/810000057.jpg and /dev/null differ diff --git a/pics/810000058.jpg b/pics/810000058.jpg deleted file mode 100644 index 8fb13c22..00000000 Binary files a/pics/810000058.jpg and /dev/null differ diff --git a/pics/810000059.jpg b/pics/810000059.jpg deleted file mode 100644 index 6db05b86..00000000 Binary files a/pics/810000059.jpg and /dev/null differ diff --git a/pics/810000060.jpg b/pics/810000060.jpg deleted file mode 100644 index bdc149ac..00000000 Binary files a/pics/810000060.jpg and /dev/null differ diff --git a/pics/810000061.jpg b/pics/810000061.jpg deleted file mode 100644 index 9e58f3bd..00000000 Binary files a/pics/810000061.jpg and /dev/null differ diff --git a/pics/810000062.jpg b/pics/810000062.jpg deleted file mode 100644 index 1cc79116..00000000 Binary files a/pics/810000062.jpg and /dev/null differ diff --git a/pics/810000063.jpg b/pics/810000063.jpg deleted file mode 100644 index 0123a269..00000000 Binary files a/pics/810000063.jpg and /dev/null differ diff --git a/pics/810000064.jpg b/pics/810000064.jpg deleted file mode 100644 index 7c19002e..00000000 Binary files a/pics/810000064.jpg and /dev/null differ diff --git a/pics/810000068.jpg b/pics/810000068.jpg deleted file mode 100644 index 7b04e6e0..00000000 Binary files a/pics/810000068.jpg and /dev/null differ diff --git a/pics/810000069.jpg b/pics/810000069.jpg deleted file mode 100644 index 787ab7f3..00000000 Binary files a/pics/810000069.jpg and /dev/null differ diff --git a/pics/810000070.jpg b/pics/810000070.jpg deleted file mode 100644 index 1a2d8d30..00000000 Binary files a/pics/810000070.jpg and /dev/null differ diff --git a/pics/810000071.jpg b/pics/810000071.jpg deleted file mode 100644 index c98dd7d3..00000000 Binary files a/pics/810000071.jpg and /dev/null differ diff --git a/pics/810000072.jpg b/pics/810000072.jpg deleted file mode 100644 index f42fcbb0..00000000 Binary files a/pics/810000072.jpg and /dev/null differ diff --git a/pics/810000073.jpg b/pics/810000073.jpg deleted file mode 100644 index ad4fc7f8..00000000 Binary files a/pics/810000073.jpg and /dev/null differ diff --git a/pics/810000074.jpg b/pics/810000074.jpg deleted file mode 100644 index 1704c9bb..00000000 Binary files a/pics/810000074.jpg and /dev/null differ diff --git a/pics/810000075.jpg b/pics/810000075.jpg deleted file mode 100644 index 1dbb10cc..00000000 Binary files a/pics/810000075.jpg and /dev/null differ diff --git a/pics/810000076.jpg b/pics/810000076.jpg deleted file mode 100644 index c263094b..00000000 Binary files a/pics/810000076.jpg and /dev/null differ diff --git a/pics/810000077.jpg b/pics/810000077.jpg deleted file mode 100644 index ddb4bb09..00000000 Binary files a/pics/810000077.jpg and /dev/null differ diff --git a/pics/810000078.jpg b/pics/810000078.jpg deleted file mode 100644 index bbfdcde2..00000000 Binary files a/pics/810000078.jpg and /dev/null differ diff --git a/pics/810000079.jpg b/pics/810000079.jpg deleted file mode 100644 index 8f1bdc5b..00000000 Binary files a/pics/810000079.jpg and /dev/null differ diff --git a/pics/810000080.jpg b/pics/810000080.jpg deleted file mode 100644 index aec7b4dc..00000000 Binary files a/pics/810000080.jpg and /dev/null differ diff --git a/pics/810000081.jpg b/pics/810000081.jpg deleted file mode 100644 index 189880b5..00000000 Binary files a/pics/810000081.jpg and /dev/null differ diff --git a/pics/810000082.jpg b/pics/810000082.jpg deleted file mode 100644 index 01958744..00000000 Binary files a/pics/810000082.jpg and /dev/null differ diff --git a/pics/810000083.jpg b/pics/810000083.jpg deleted file mode 100644 index d01045b0..00000000 Binary files a/pics/810000083.jpg and /dev/null differ diff --git a/pics/810000084.jpg b/pics/810000084.jpg deleted file mode 100644 index f26d99d8..00000000 Binary files a/pics/810000084.jpg and /dev/null differ diff --git a/pics/810000085.jpg b/pics/810000085.jpg deleted file mode 100644 index 350b92b0..00000000 Binary files a/pics/810000085.jpg and /dev/null differ diff --git a/pics/810000086.jpg b/pics/810000086.jpg deleted file mode 100644 index d45a8b81..00000000 Binary files a/pics/810000086.jpg and /dev/null differ diff --git a/pics/810000087.jpg b/pics/810000087.jpg deleted file mode 100644 index ca3da04b..00000000 Binary files a/pics/810000087.jpg and /dev/null differ diff --git a/pics/810000088.jpg b/pics/810000088.jpg deleted file mode 100644 index 0dddbc95..00000000 Binary files a/pics/810000088.jpg and /dev/null differ diff --git a/pics/810000089.jpg b/pics/810000089.jpg deleted file mode 100644 index 6b6328a6..00000000 Binary files a/pics/810000089.jpg and /dev/null differ diff --git a/pics/810000090.jpg b/pics/810000090.jpg deleted file mode 100644 index fc383316..00000000 Binary files a/pics/810000090.jpg and /dev/null differ diff --git a/pics/810000091.jpg b/pics/810000091.jpg deleted file mode 100755 index 46c592df..00000000 Binary files a/pics/810000091.jpg and /dev/null differ diff --git a/pics/810000092.jpg b/pics/810000092.jpg deleted file mode 100644 index 9159e009..00000000 Binary files a/pics/810000092.jpg and /dev/null differ diff --git a/pics/810000093.jpg b/pics/810000093.jpg deleted file mode 100644 index 0925652d..00000000 Binary files a/pics/810000093.jpg and /dev/null differ diff --git a/pics/810000094.jpg b/pics/810000094.jpg deleted file mode 100644 index 8bb1aec2..00000000 Binary files a/pics/810000094.jpg and /dev/null differ diff --git a/pics/810000095.jpg b/pics/810000095.jpg deleted file mode 100644 index 020fbf84..00000000 Binary files a/pics/810000095.jpg and /dev/null differ diff --git a/pics/810000096.jpg b/pics/810000096.jpg deleted file mode 100644 index d3537a82..00000000 Binary files a/pics/810000096.jpg and /dev/null differ diff --git a/pics/810000097.jpg b/pics/810000097.jpg deleted file mode 100644 index ed872259..00000000 Binary files a/pics/810000097.jpg and /dev/null differ diff --git a/pics/810000098.jpg b/pics/810000098.jpg deleted file mode 100644 index 6bdd111d..00000000 Binary files a/pics/810000098.jpg and /dev/null differ diff --git a/pics/810000100.jpg b/pics/810000100.jpg deleted file mode 100644 index 51b0e639..00000000 Binary files a/pics/810000100.jpg and /dev/null differ diff --git a/pics/810000101.jpg b/pics/810000101.jpg deleted file mode 100755 index 6ebedea9..00000000 Binary files a/pics/810000101.jpg and /dev/null differ diff --git a/pics/810000102.jpg b/pics/810000102.jpg deleted file mode 100644 index b8713e7e..00000000 Binary files a/pics/810000102.jpg and /dev/null differ diff --git a/pics/810000103.jpg b/pics/810000103.jpg deleted file mode 100644 index 3d7ec720..00000000 Binary files a/pics/810000103.jpg and /dev/null differ diff --git a/pics/810000105.jpg b/pics/810000105.jpg deleted file mode 100644 index 0b455ea2..00000000 Binary files a/pics/810000105.jpg and /dev/null differ diff --git a/pics/810000106.jpg b/pics/810000106.jpg deleted file mode 100644 index ce834d26..00000000 Binary files a/pics/810000106.jpg and /dev/null differ diff --git a/pics/810000107.jpg b/pics/810000107.jpg deleted file mode 100644 index a6067236..00000000 Binary files a/pics/810000107.jpg and /dev/null differ diff --git a/pics/810000109.jpg b/pics/810000109.jpg deleted file mode 100755 index 12072575..00000000 Binary files a/pics/810000109.jpg and /dev/null differ diff --git a/pics/810000110.jpg b/pics/810000110.jpg deleted file mode 100755 index 28dcb496..00000000 Binary files a/pics/810000110.jpg and /dev/null differ diff --git a/pics/810000111.jpg b/pics/810000111.jpg deleted file mode 100644 index 9aeaf6ed..00000000 Binary files a/pics/810000111.jpg and /dev/null differ diff --git a/pics/810000112.jpg b/pics/810000112.jpg deleted file mode 100644 index 94d566bd..00000000 Binary files a/pics/810000112.jpg and /dev/null differ diff --git a/pics/810000113.jpg b/pics/810000113.jpg deleted file mode 100755 index febff84c..00000000 Binary files a/pics/810000113.jpg and /dev/null differ diff --git a/pics/810000114.jpg b/pics/810000114.jpg deleted file mode 100644 index 9c8819db..00000000 Binary files a/pics/810000114.jpg and /dev/null differ diff --git a/pics/81000306.jpg b/pics/81000306.jpg deleted file mode 100644 index 4fddc1fd..00000000 Binary files a/pics/81000306.jpg and /dev/null differ diff --git a/pics/81003500.jpg b/pics/81003500.jpg deleted file mode 100644 index bd63f727..00000000 Binary files a/pics/81003500.jpg and /dev/null differ diff --git a/pics/81020140.jpg b/pics/81020140.jpg deleted file mode 100644 index d50d33be..00000000 Binary files a/pics/81020140.jpg and /dev/null differ diff --git a/pics/81020646.jpg b/pics/81020646.jpg deleted file mode 100644 index 20c25966..00000000 Binary files a/pics/81020646.jpg and /dev/null differ diff --git a/pics/8102334.jpg b/pics/8102334.jpg deleted file mode 100644 index f46867c0..00000000 Binary files a/pics/8102334.jpg and /dev/null differ diff --git a/pics/81028112.jpg b/pics/81028112.jpg deleted file mode 100644 index 6debe37d..00000000 Binary files a/pics/81028112.jpg and /dev/null differ diff --git a/pics/81035362.jpg b/pics/81035362.jpg deleted file mode 100644 index d3c0b10e..00000000 Binary files a/pics/81035362.jpg and /dev/null differ diff --git a/pics/81057455.jpg b/pics/81057455.jpg deleted file mode 100755 index c66468f9..00000000 Binary files a/pics/81057455.jpg and /dev/null differ diff --git a/pics/81057959.jpg b/pics/81057959.jpg deleted file mode 100644 index ae0d8a6e..00000000 Binary files a/pics/81057959.jpg and /dev/null differ diff --git a/pics/81059524.jpg b/pics/81059524.jpg deleted file mode 100644 index 885752e5..00000000 Binary files a/pics/81059524.jpg and /dev/null differ diff --git a/pics/81066751.jpg b/pics/81066751.jpg deleted file mode 100644 index ddc82462..00000000 Binary files a/pics/81066751.jpg and /dev/null differ diff --git a/pics/81105204.jpg b/pics/81105204.jpg deleted file mode 100644 index 0fd39e4f..00000000 Binary files a/pics/81105204.jpg and /dev/null differ diff --git a/pics/81122844.jpg b/pics/81122844.jpg deleted file mode 100644 index caab1907..00000000 Binary files a/pics/81122844.jpg and /dev/null differ diff --git a/pics/81128478.jpg b/pics/81128478.jpg deleted file mode 100644 index 34c7a0b6..00000000 Binary files a/pics/81128478.jpg and /dev/null differ diff --git a/pics/81146288.jpg b/pics/81146288.jpg deleted file mode 100644 index 282602a7..00000000 Binary files a/pics/81146288.jpg and /dev/null differ diff --git a/pics/81167171.jpg b/pics/81167171.jpg deleted file mode 100644 index b03a10aa..00000000 Binary files a/pics/81167171.jpg and /dev/null differ diff --git a/pics/81171949.jpg b/pics/81171949.jpg deleted file mode 100644 index 725f1bdf..00000000 Binary files a/pics/81171949.jpg and /dev/null differ diff --git a/pics/81172176.jpg b/pics/81172176.jpg deleted file mode 100644 index a030c2f0..00000000 Binary files a/pics/81172176.jpg and /dev/null differ diff --git a/pics/811734.jpg b/pics/811734.jpg deleted file mode 100644 index 9eb37a31..00000000 Binary files a/pics/811734.jpg and /dev/null differ diff --git a/pics/81179446.jpg b/pics/81179446.jpg deleted file mode 100644 index e95f1904..00000000 Binary files a/pics/81179446.jpg and /dev/null differ diff --git a/pics/81191584.jpg b/pics/81191584.jpg deleted file mode 100644 index 462b20dc..00000000 Binary files a/pics/81191584.jpg and /dev/null differ diff --git a/pics/81197327.jpg b/pics/81197327.jpg deleted file mode 100644 index 3b13aada..00000000 Binary files a/pics/81197327.jpg and /dev/null differ diff --git a/pics/81210420.jpg b/pics/81210420.jpg deleted file mode 100644 index 1de26123..00000000 Binary files a/pics/81210420.jpg and /dev/null differ diff --git a/pics/81218874.jpg b/pics/81218874.jpg deleted file mode 100644 index 6cf110dc..00000000 Binary files a/pics/81218874.jpg and /dev/null differ diff --git a/pics/81231742.jpg b/pics/81231742.jpg deleted file mode 100644 index 323ed99c..00000000 Binary files a/pics/81231742.jpg and /dev/null differ diff --git a/pics/8124921.jpg b/pics/8124921.jpg deleted file mode 100644 index 9bfcb2b4..00000000 Binary files a/pics/8124921.jpg and /dev/null differ diff --git a/pics/81254059.jpg b/pics/81254059.jpg deleted file mode 100644 index 94b7ee0c..00000000 Binary files a/pics/81254059.jpg and /dev/null differ diff --git a/pics/81275020.jpg b/pics/81275020.jpg deleted file mode 100755 index 1764a2ff..00000000 Binary files a/pics/81275020.jpg and /dev/null differ diff --git a/pics/81275309.jpg b/pics/81275309.jpg deleted file mode 100644 index d28dabd3..00000000 Binary files a/pics/81275309.jpg and /dev/null differ diff --git a/pics/81278754.jpg b/pics/81278754.jpg deleted file mode 100644 index 18856f34..00000000 Binary files a/pics/81278754.jpg and /dev/null differ diff --git a/pics/81306586.jpg b/pics/81306586.jpg deleted file mode 100644 index 2d93d8f6..00000000 Binary files a/pics/81306586.jpg and /dev/null differ diff --git a/pics/8131171.jpg b/pics/8131171.jpg deleted file mode 100644 index 03b129b9..00000000 Binary files a/pics/8131171.jpg and /dev/null differ diff --git a/pics/81325903.jpg b/pics/81325903.jpg deleted file mode 100644 index b2f4031c..00000000 Binary files a/pics/81325903.jpg and /dev/null differ diff --git a/pics/81330115.jpg b/pics/81330115.jpg deleted file mode 100644 index 8d4bc8d4..00000000 Binary files a/pics/81330115.jpg and /dev/null differ diff --git a/pics/81332143.jpg b/pics/81332143.jpg deleted file mode 100644 index 2d02f139..00000000 Binary files a/pics/81332143.jpg and /dev/null differ diff --git a/pics/81336148.jpg b/pics/81336148.jpg deleted file mode 100644 index 895c810a..00000000 Binary files a/pics/81336148.jpg and /dev/null differ diff --git a/pics/81354330.jpg b/pics/81354330.jpg deleted file mode 100644 index db2cdc5d..00000000 Binary files a/pics/81354330.jpg and /dev/null differ diff --git a/pics/81380218.jpg b/pics/81380218.jpg deleted file mode 100644 index 70fea64f..00000000 Binary files a/pics/81380218.jpg and /dev/null differ diff --git a/pics/81383947.jpg b/pics/81383947.jpg deleted file mode 100644 index f136f7e7..00000000 Binary files a/pics/81383947.jpg and /dev/null differ diff --git a/pics/81385346.jpg b/pics/81385346.jpg deleted file mode 100644 index 0e314427..00000000 Binary files a/pics/81385346.jpg and /dev/null differ diff --git a/pics/81386177.jpg b/pics/81386177.jpg deleted file mode 100644 index 51a1cc01..00000000 Binary files a/pics/81386177.jpg and /dev/null differ diff --git a/pics/81426505.jpg b/pics/81426505.jpg deleted file mode 100644 index 6b43d0aa..00000000 Binary files a/pics/81426505.jpg and /dev/null differ diff --git a/pics/81434470.jpg b/pics/81434470.jpg deleted file mode 100644 index 2afe9249..00000000 Binary files a/pics/81434470.jpg and /dev/null differ diff --git a/pics/81439173.jpg b/pics/81439173.jpg deleted file mode 100644 index 71bd9872..00000000 Binary files a/pics/81439173.jpg and /dev/null differ diff --git a/pics/81443745.jpg b/pics/81443745.jpg deleted file mode 100644 index 60bcc2b1..00000000 Binary files a/pics/81443745.jpg and /dev/null differ diff --git a/pics/81471108.jpg b/pics/81471108.jpg deleted file mode 100644 index e895f818..00000000 Binary files a/pics/81471108.jpg and /dev/null differ diff --git a/pics/81480460.jpg b/pics/81480460.jpg deleted file mode 100644 index 7e7e22a2..00000000 Binary files a/pics/81480460.jpg and /dev/null differ diff --git a/pics/81489939.jpg b/pics/81489939.jpg deleted file mode 100644 index 4800a45c..00000000 Binary files a/pics/81489939.jpg and /dev/null differ diff --git a/pics/81492226.jpg b/pics/81492226.jpg deleted file mode 100644 index 6b418303..00000000 Binary files a/pics/81492226.jpg and /dev/null differ diff --git a/pics/81510157.jpg b/pics/81510157.jpg deleted file mode 100644 index eb59f5a0..00000000 Binary files a/pics/81510157.jpg and /dev/null differ diff --git a/pics/81524977.jpg b/pics/81524977.jpg deleted file mode 100644 index 494e0262..00000000 Binary files a/pics/81524977.jpg and /dev/null differ diff --git a/pics/81563416.jpg b/pics/81563416.jpg deleted file mode 100644 index 356a63ad..00000000 Binary files a/pics/81563416.jpg and /dev/null differ diff --git a/pics/81566151.jpg b/pics/81566151.jpg deleted file mode 100644 index badd2aed..00000000 Binary files a/pics/81566151.jpg and /dev/null differ diff --git a/pics/81571633.jpg b/pics/81571633.jpg deleted file mode 100644 index 2305c5aa..00000000 Binary files a/pics/81571633.jpg and /dev/null differ diff --git a/pics/81587028.jpg b/pics/81587028.jpg deleted file mode 100644 index 760dab0e..00000000 Binary files a/pics/81587028.jpg and /dev/null differ diff --git a/pics/81601517.jpg b/pics/81601517.jpg deleted file mode 100644 index baf66fd3..00000000 Binary files a/pics/81601517.jpg and /dev/null differ diff --git a/pics/81618817.jpg b/pics/81618817.jpg deleted file mode 100644 index c870e835..00000000 Binary files a/pics/81618817.jpg and /dev/null differ diff --git a/pics/81661951.jpg b/pics/81661951.jpg deleted file mode 100644 index bf248f09..00000000 Binary files a/pics/81661951.jpg and /dev/null differ diff --git a/pics/81665333.jpg b/pics/81665333.jpg deleted file mode 100644 index 8cdc1113..00000000 Binary files a/pics/81665333.jpg and /dev/null differ diff --git a/pics/81674782.jpg b/pics/81674782.jpg deleted file mode 100644 index d90b466f..00000000 Binary files a/pics/81674782.jpg and /dev/null differ diff --git a/pics/81686058.jpg b/pics/81686058.jpg deleted file mode 100644 index d6c6a1ef..00000000 Binary files a/pics/81686058.jpg and /dev/null differ diff --git a/pics/8175346.jpg b/pics/8175346.jpg deleted file mode 100644 index ee12d8c0..00000000 Binary files a/pics/8175346.jpg and /dev/null differ diff --git a/pics/81755371.jpg b/pics/81755371.jpg deleted file mode 100644 index 8b870430..00000000 Binary files a/pics/81755371.jpg and /dev/null differ diff --git a/pics/81756897.jpg b/pics/81756897.jpg deleted file mode 100644 index 66954003..00000000 Binary files a/pics/81756897.jpg and /dev/null differ diff --git a/pics/81759748.jpg b/pics/81759748.jpg deleted file mode 100644 index d04853e5..00000000 Binary files a/pics/81759748.jpg and /dev/null differ diff --git a/pics/81777047.jpg b/pics/81777047.jpg deleted file mode 100644 index 2e7f48e0..00000000 Binary files a/pics/81777047.jpg and /dev/null differ diff --git a/pics/81788994.jpg b/pics/81788994.jpg deleted file mode 100644 index 45833839..00000000 Binary files a/pics/81788994.jpg and /dev/null differ diff --git a/pics/81791932.jpg b/pics/81791932.jpg deleted file mode 100644 index b9d0416a..00000000 Binary files a/pics/81791932.jpg and /dev/null differ diff --git a/pics/81810441.jpg b/pics/81810441.jpg deleted file mode 100644 index 9437795d..00000000 Binary files a/pics/81810441.jpg and /dev/null differ diff --git a/pics/81816475.jpg b/pics/81816475.jpg deleted file mode 100644 index c391b4a1..00000000 Binary files a/pics/81816475.jpg and /dev/null differ diff --git a/pics/81820689.jpg b/pics/81820689.jpg deleted file mode 100644 index ffd3b71b..00000000 Binary files a/pics/81820689.jpg and /dev/null differ diff --git a/pics/81843628.jpg b/pics/81843628.jpg deleted file mode 100644 index aef77a97..00000000 Binary files a/pics/81843628.jpg and /dev/null differ diff --git a/pics/81846636.jpg b/pics/81846636.jpg deleted file mode 100644 index 58acb939..00000000 Binary files a/pics/81846636.jpg and /dev/null differ diff --git a/pics/81863068.jpg b/pics/81863068.jpg deleted file mode 100644 index 030fb1cd..00000000 Binary files a/pics/81863068.jpg and /dev/null differ diff --git a/pics/81866673.jpg b/pics/81866673.jpg deleted file mode 100644 index cd92806c..00000000 Binary files a/pics/81866673.jpg and /dev/null differ diff --git a/pics/81873903.jpg b/pics/81873903.jpg deleted file mode 100644 index c3c42e60..00000000 Binary files a/pics/81873903.jpg and /dev/null differ diff --git a/pics/81896370.jpg b/pics/81896370.jpg deleted file mode 100644 index 5bb77eaa..00000000 Binary files a/pics/81896370.jpg and /dev/null differ diff --git a/pics/81896771.jpg b/pics/81896771.jpg deleted file mode 100644 index f17bd511..00000000 Binary files a/pics/81896771.jpg and /dev/null differ diff --git a/pics/81907872.jpg b/pics/81907872.jpg deleted file mode 100644 index a80e102c..00000000 Binary files a/pics/81907872.jpg and /dev/null differ diff --git a/pics/81913510.jpg b/pics/81913510.jpg deleted file mode 100644 index 69d084b5..00000000 Binary files a/pics/81913510.jpg and /dev/null differ diff --git a/pics/81919143.jpg b/pics/81919143.jpg deleted file mode 100644 index 1b3c7d89..00000000 Binary files a/pics/81919143.jpg and /dev/null differ diff --git a/pics/81927732.jpg b/pics/81927732.jpg deleted file mode 100644 index 66e3d5b8..00000000 Binary files a/pics/81927732.jpg and /dev/null differ diff --git a/pics/81933259.jpg b/pics/81933259.jpg deleted file mode 100644 index 9b577ffa..00000000 Binary files a/pics/81933259.jpg and /dev/null differ diff --git a/pics/81954378.jpg b/pics/81954378.jpg deleted file mode 100644 index e1ba2d3a..00000000 Binary files a/pics/81954378.jpg and /dev/null differ diff --git a/pics/81962318.jpg b/pics/81962318.jpg deleted file mode 100644 index 84e47dd5..00000000 Binary files a/pics/81962318.jpg and /dev/null differ diff --git a/pics/81977953.jpg b/pics/81977953.jpg deleted file mode 100644 index 49e012cf..00000000 Binary files a/pics/81977953.jpg and /dev/null differ diff --git a/pics/81983656.jpg b/pics/81983656.jpg deleted file mode 100644 index cb2d4291..00000000 Binary files a/pics/81983656.jpg and /dev/null differ diff --git a/pics/81985784.jpg b/pics/81985784.jpg deleted file mode 100644 index ada088ce..00000000 Binary files a/pics/81985784.jpg and /dev/null differ diff --git a/pics/8198620.jpg b/pics/8198620.jpg deleted file mode 100644 index b0d6559e..00000000 Binary files a/pics/8198620.jpg and /dev/null differ diff --git a/pics/8198621.jpg b/pics/8198621.jpg deleted file mode 100644 index d08ed710..00000000 Binary files a/pics/8198621.jpg and /dev/null differ diff --git a/pics/8198712.jpg b/pics/8198712.jpg deleted file mode 100644 index 9617af1b..00000000 Binary files a/pics/8198712.jpg and /dev/null differ diff --git a/pics/81992475.jpg b/pics/81992475.jpg deleted file mode 100644 index 472cf391..00000000 Binary files a/pics/81992475.jpg and /dev/null differ diff --git a/pics/81994591.jpg b/pics/81994591.jpg deleted file mode 100644 index 4ceead1a..00000000 Binary files a/pics/81994591.jpg and /dev/null differ diff --git a/pics/82003859.jpg b/pics/82003859.jpg deleted file mode 100644 index 65213947..00000000 Binary files a/pics/82003859.jpg and /dev/null differ diff --git a/pics/82005435.jpg b/pics/82005435.jpg deleted file mode 100644 index 076d3d64..00000000 Binary files a/pics/82005435.jpg and /dev/null differ diff --git a/pics/82012319.jpg b/pics/82012319.jpg deleted file mode 100644 index ced26e9d..00000000 Binary files a/pics/82012319.jpg and /dev/null differ diff --git a/pics/82016179.jpg b/pics/82016179.jpg deleted file mode 100644 index 5338ce9f..00000000 Binary files a/pics/82016179.jpg and /dev/null differ diff --git a/pics/8201910.jpg b/pics/8201910.jpg deleted file mode 100644 index bb89163a..00000000 Binary files a/pics/8201910.jpg and /dev/null differ diff --git a/pics/82035781.jpg b/pics/82035781.jpg deleted file mode 100644 index 92719791..00000000 Binary files a/pics/82035781.jpg and /dev/null differ diff --git a/pics/82044279.jpg b/pics/82044279.jpg deleted file mode 100644 index ec16ff91..00000000 Binary files a/pics/82044279.jpg and /dev/null differ diff --git a/pics/82050203.jpg b/pics/82050203.jpg deleted file mode 100644 index 66ed3c99..00000000 Binary files a/pics/82050203.jpg and /dev/null differ diff --git a/pics/82052602.jpg b/pics/82052602.jpg deleted file mode 100644 index 7f07a1ea..00000000 Binary files a/pics/82052602.jpg and /dev/null differ diff --git a/pics/82065276.jpg b/pics/82065276.jpg deleted file mode 100644 index 6d23ba25..00000000 Binary files a/pics/82065276.jpg and /dev/null differ diff --git a/pics/82085619.jpg b/pics/82085619.jpg deleted file mode 100644 index 8e4dca09..00000000 Binary files a/pics/82085619.jpg and /dev/null differ diff --git a/pics/82099401.jpg b/pics/82099401.jpg deleted file mode 100644 index f76f32f1..00000000 Binary files a/pics/82099401.jpg and /dev/null differ diff --git a/pics/82108372.jpg b/pics/82108372.jpg deleted file mode 100644 index d29ceab2..00000000 Binary files a/pics/82108372.jpg and /dev/null differ diff --git a/pics/82112775.jpg b/pics/82112775.jpg deleted file mode 100644 index 721c3e94..00000000 Binary files a/pics/82112775.jpg and /dev/null differ diff --git a/pics/82114013.jpg b/pics/82114013.jpg deleted file mode 100644 index 82f0413b..00000000 Binary files a/pics/82114013.jpg and /dev/null differ diff --git a/pics/82116191.jpg b/pics/82116191.jpg deleted file mode 100644 index 7a574795..00000000 Binary files a/pics/82116191.jpg and /dev/null differ diff --git a/pics/82140600.jpg b/pics/82140600.jpg deleted file mode 100644 index 515da818..00000000 Binary files a/pics/82140600.jpg and /dev/null differ diff --git a/pics/82176812.jpg b/pics/82176812.jpg deleted file mode 100644 index 4cff35f5..00000000 Binary files a/pics/82176812.jpg and /dev/null differ diff --git a/pics/82199284.jpg b/pics/82199284.jpg deleted file mode 100644 index dc580a69..00000000 Binary files a/pics/82199284.jpg and /dev/null differ diff --git a/pics/82213171.jpg b/pics/82213171.jpg deleted file mode 100644 index 553cd86a..00000000 Binary files a/pics/82213171.jpg and /dev/null differ diff --git a/pics/82257940.jpg b/pics/82257940.jpg deleted file mode 100644 index 35a491e2..00000000 Binary files a/pics/82257940.jpg and /dev/null differ diff --git a/pics/82260502.jpg b/pics/82260502.jpg deleted file mode 100644 index 20890381..00000000 Binary files a/pics/82260502.jpg and /dev/null differ diff --git a/pics/82263578.jpg b/pics/82263578.jpg deleted file mode 100644 index 14e7d985..00000000 Binary files a/pics/82263578.jpg and /dev/null differ diff --git a/pics/8226374.jpg b/pics/8226374.jpg deleted file mode 100644 index 673b5689..00000000 Binary files a/pics/8226374.jpg and /dev/null differ diff --git a/pics/82270047.jpg b/pics/82270047.jpg deleted file mode 100755 index 231cbe28..00000000 Binary files a/pics/82270047.jpg and /dev/null differ diff --git a/pics/82293134.jpg b/pics/82293134.jpg deleted file mode 100644 index 97aa1f9b..00000000 Binary files a/pics/82293134.jpg and /dev/null differ diff --git a/pics/82301904.jpg b/pics/82301904.jpg deleted file mode 100644 index b382e3ca..00000000 Binary files a/pics/82301904.jpg and /dev/null differ diff --git a/pics/82308875.jpg b/pics/82308875.jpg deleted file mode 100644 index 6b0daf55..00000000 Binary files a/pics/82308875.jpg and /dev/null differ diff --git a/pics/82315772.jpg b/pics/82315772.jpg deleted file mode 100644 index 1eced975..00000000 Binary files a/pics/82315772.jpg and /dev/null differ diff --git a/pics/82324105.jpg b/pics/82324105.jpg deleted file mode 100644 index 17906a0c..00000000 Binary files a/pics/82324105.jpg and /dev/null differ diff --git a/pics/82324106.jpg b/pics/82324106.jpg deleted file mode 100644 index 48fbb37d..00000000 Binary files a/pics/82324106.jpg and /dev/null differ diff --git a/pics/82324312.jpg b/pics/82324312.jpg deleted file mode 100644 index eecc69e7..00000000 Binary files a/pics/82324312.jpg and /dev/null differ diff --git a/pics/8233522.jpg b/pics/8233522.jpg deleted file mode 100644 index 635624dc..00000000 Binary files a/pics/8233522.jpg and /dev/null differ diff --git a/pics/82340056.jpg b/pics/82340056.jpg deleted file mode 100644 index 67d0bc63..00000000 Binary files a/pics/82340056.jpg and /dev/null differ diff --git a/pics/82340057.jpg b/pics/82340057.jpg deleted file mode 100644 index 83f4bc81..00000000 Binary files a/pics/82340057.jpg and /dev/null differ diff --git a/pics/82361206.jpg b/pics/82361206.jpg deleted file mode 100644 index dd393534..00000000 Binary files a/pics/82361206.jpg and /dev/null differ diff --git a/pics/82377606.jpg b/pics/82377606.jpg deleted file mode 100644 index 7e525db4..00000000 Binary files a/pics/82377606.jpg and /dev/null differ diff --git a/pics/82382815.jpg b/pics/82382815.jpg deleted file mode 100644 index 20b1f6a8..00000000 Binary files a/pics/82382815.jpg and /dev/null differ diff --git a/pics/82386016.jpg b/pics/82386016.jpg deleted file mode 100644 index 521c0994..00000000 Binary files a/pics/82386016.jpg and /dev/null differ diff --git a/pics/82410600.jpg b/pics/82410600.jpg deleted file mode 100644 index 3049531b..00000000 Binary files a/pics/82410600.jpg and /dev/null differ diff --git a/pics/82419869.jpg b/pics/82419869.jpg deleted file mode 100644 index bb789852..00000000 Binary files a/pics/82419869.jpg and /dev/null differ diff --git a/pics/82422049.jpg b/pics/82422049.jpg deleted file mode 100644 index 8c3a3cc8..00000000 Binary files a/pics/82422049.jpg and /dev/null differ diff --git a/pics/82432018.jpg b/pics/82432018.jpg deleted file mode 100644 index e9c830ff..00000000 Binary files a/pics/82432018.jpg and /dev/null differ diff --git a/pics/82452993.jpg b/pics/82452993.jpg deleted file mode 100644 index 66a6d7ca..00000000 Binary files a/pics/82452993.jpg and /dev/null differ diff --git a/pics/82458280.jpg b/pics/82458280.jpg deleted file mode 100644 index 6113e085..00000000 Binary files a/pics/82458280.jpg and /dev/null differ diff --git a/pics/82482194.jpg b/pics/82482194.jpg deleted file mode 100644 index a9865fbe..00000000 Binary files a/pics/82482194.jpg and /dev/null differ diff --git a/pics/82498947.jpg b/pics/82498947.jpg deleted file mode 100644 index 010a955a..00000000 Binary files a/pics/82498947.jpg and /dev/null differ diff --git a/pics/8251996.jpg b/pics/8251996.jpg deleted file mode 100644 index 0ed300c3..00000000 Binary files a/pics/8251996.jpg and /dev/null differ diff --git a/pics/82529174.jpg b/pics/82529174.jpg deleted file mode 100644 index b838852d..00000000 Binary files a/pics/82529174.jpg and /dev/null differ diff --git a/pics/82542267.jpg b/pics/82542267.jpg deleted file mode 100644 index 00a9d937..00000000 Binary files a/pics/82542267.jpg and /dev/null differ diff --git a/pics/82556058.jpg b/pics/82556058.jpg deleted file mode 100644 index 71790246..00000000 Binary files a/pics/82556058.jpg and /dev/null differ diff --git a/pics/82556059.jpg b/pics/82556059.jpg deleted file mode 100644 index 4d53e220..00000000 Binary files a/pics/82556059.jpg and /dev/null differ diff --git a/pics/82579942.jpg b/pics/82579942.jpg deleted file mode 100644 index 6af9a973..00000000 Binary files a/pics/82579942.jpg and /dev/null differ diff --git a/pics/82593786.jpg b/pics/82593786.jpg deleted file mode 100644 index c086f129..00000000 Binary files a/pics/82593786.jpg and /dev/null differ diff --git a/pics/82633039.jpg b/pics/82633039.jpg deleted file mode 100644 index 3d221942..00000000 Binary files a/pics/82633039.jpg and /dev/null differ diff --git a/pics/82633308.jpg b/pics/82633308.jpg deleted file mode 100644 index 95138276..00000000 Binary files a/pics/82633308.jpg and /dev/null differ diff --git a/pics/82639107.jpg b/pics/82639107.jpg deleted file mode 100644 index 3f022eef..00000000 Binary files a/pics/82639107.jpg and /dev/null differ diff --git a/pics/82642348.jpg b/pics/82642348.jpg deleted file mode 100644 index 2b2a2245..00000000 Binary files a/pics/82642348.jpg and /dev/null differ diff --git a/pics/82670878.jpg b/pics/82670878.jpg deleted file mode 100644 index 2d3e1e34..00000000 Binary files a/pics/82670878.jpg and /dev/null differ diff --git a/pics/82693042.jpg b/pics/82693042.jpg deleted file mode 100644 index 3fcc6abb..00000000 Binary files a/pics/82693042.jpg and /dev/null differ diff --git a/pics/82693917.jpg b/pics/82693917.jpg deleted file mode 100644 index 452cecce..00000000 Binary files a/pics/82693917.jpg and /dev/null differ diff --git a/pics/82705573.jpg b/pics/82705573.jpg deleted file mode 100644 index e7636da9..00000000 Binary files a/pics/82705573.jpg and /dev/null differ diff --git a/pics/82732705.jpg b/pics/82732705.jpg deleted file mode 100644 index 57310ace..00000000 Binary files a/pics/82732705.jpg and /dev/null differ diff --git a/pics/82734805.jpg b/pics/82734805.jpg deleted file mode 100755 index 7c47c7f4..00000000 Binary files a/pics/82734805.jpg and /dev/null differ diff --git a/pics/82742611.jpg b/pics/82742611.jpg deleted file mode 100644 index d0998557..00000000 Binary files a/pics/82742611.jpg and /dev/null differ diff --git a/pics/8275702.jpg b/pics/8275702.jpg deleted file mode 100644 index ca61d829..00000000 Binary files a/pics/8275702.jpg and /dev/null differ diff --git a/pics/82760689.jpg b/pics/82760689.jpg deleted file mode 100644 index a2400469..00000000 Binary files a/pics/82760689.jpg and /dev/null differ diff --git a/pics/8279188.jpg b/pics/8279188.jpg deleted file mode 100644 index 89e466aa..00000000 Binary files a/pics/8279188.jpg and /dev/null differ diff --git a/pics/82818645.jpg b/pics/82818645.jpg deleted file mode 100644 index 486003f4..00000000 Binary files a/pics/82818645.jpg and /dev/null differ diff --git a/pics/82828051.jpg b/pics/82828051.jpg deleted file mode 100644 index 16cf7b2e..00000000 Binary files a/pics/82828051.jpg and /dev/null differ diff --git a/pics/82841979.jpg b/pics/82841979.jpg deleted file mode 100644 index 66457be7..00000000 Binary files a/pics/82841979.jpg and /dev/null differ diff --git a/pics/82878489.jpg b/pics/82878489.jpg deleted file mode 100644 index 6919d7d9..00000000 Binary files a/pics/82878489.jpg and /dev/null differ diff --git a/pics/82888408.jpg b/pics/82888408.jpg deleted file mode 100644 index 2bf42b0d..00000000 Binary files a/pics/82888408.jpg and /dev/null differ diff --git a/pics/82944432.jpg b/pics/82944432.jpg deleted file mode 100644 index 4b97285d..00000000 Binary files a/pics/82944432.jpg and /dev/null differ diff --git a/pics/82956492.jpg b/pics/82956492.jpg deleted file mode 100755 index 29af4ac0..00000000 Binary files a/pics/82956492.jpg and /dev/null differ diff --git a/pics/82962242.jpg b/pics/82962242.jpg deleted file mode 100644 index 0e572187..00000000 Binary files a/pics/82962242.jpg and /dev/null differ diff --git a/pics/82971335.jpg b/pics/82971335.jpg deleted file mode 100644 index a78f7d67..00000000 Binary files a/pics/82971335.jpg and /dev/null differ diff --git a/pics/82994509.jpg b/pics/82994509.jpg deleted file mode 100644 index 23473ce5..00000000 Binary files a/pics/82994509.jpg and /dev/null differ diff --git a/pics/82994510.jpg b/pics/82994510.jpg deleted file mode 100644 index 3bdaf04c..00000000 Binary files a/pics/82994510.jpg and /dev/null differ diff --git a/pics/82999629.jpg b/pics/82999629.jpg deleted file mode 100644 index de576995..00000000 Binary files a/pics/82999629.jpg and /dev/null differ diff --git a/pics/83011277.jpg b/pics/83011277.jpg deleted file mode 100644 index 1d00742d..00000000 Binary files a/pics/83011277.jpg and /dev/null differ diff --git a/pics/83011278.jpg b/pics/83011278.jpg deleted file mode 100644 index 9305032a..00000000 Binary files a/pics/83011278.jpg and /dev/null differ diff --git a/pics/83021423.jpg b/pics/83021423.jpg deleted file mode 100644 index 97941398..00000000 Binary files a/pics/83021423.jpg and /dev/null differ diff --git a/pics/83027236.jpg b/pics/83027236.jpg deleted file mode 100644 index 099102e8..00000000 Binary files a/pics/83027236.jpg and /dev/null differ diff --git a/pics/83039729.jpg b/pics/83039729.jpg deleted file mode 100644 index 7a78522e..00000000 Binary files a/pics/83039729.jpg and /dev/null differ diff --git a/pics/83054225.jpg b/pics/83054225.jpg deleted file mode 100644 index 80b249f0..00000000 Binary files a/pics/83054225.jpg and /dev/null differ diff --git a/pics/83061014.jpg b/pics/83061014.jpg deleted file mode 100644 index 868b519e..00000000 Binary files a/pics/83061014.jpg and /dev/null differ diff --git a/pics/8310162.jpg b/pics/8310162.jpg deleted file mode 100644 index a280db2f..00000000 Binary files a/pics/8310162.jpg and /dev/null differ diff --git a/pics/83102080.jpg b/pics/83102080.jpg deleted file mode 100644 index cc3f47a5..00000000 Binary files a/pics/83102080.jpg and /dev/null differ diff --git a/pics/83104731.jpg b/pics/83104731.jpg deleted file mode 100644 index e51c937e..00000000 Binary files a/pics/83104731.jpg and /dev/null differ diff --git a/pics/83108603.jpg b/pics/83108603.jpg deleted file mode 100644 index b74bc7b3..00000000 Binary files a/pics/83108603.jpg and /dev/null differ diff --git a/pics/83121692.jpg b/pics/83121692.jpg deleted file mode 100644 index d0ea1f98..00000000 Binary files a/pics/83121692.jpg and /dev/null differ diff --git a/pics/83133491.jpg b/pics/83133491.jpg deleted file mode 100644 index d3d8555d..00000000 Binary files a/pics/83133491.jpg and /dev/null differ diff --git a/pics/83135907.jpg b/pics/83135907.jpg deleted file mode 100644 index 14794bac..00000000 Binary files a/pics/83135907.jpg and /dev/null differ diff --git a/pics/8316565.jpg b/pics/8316565.jpg deleted file mode 100644 index 662ac292..00000000 Binary files a/pics/8316565.jpg and /dev/null differ diff --git a/pics/8316661.jpg b/pics/8316661.jpg deleted file mode 100644 index e421d41e..00000000 Binary files a/pics/8316661.jpg and /dev/null differ diff --git a/pics/83225447.jpg b/pics/83225447.jpg deleted file mode 100644 index 456c602a..00000000 Binary files a/pics/83225447.jpg and /dev/null differ diff --git a/pics/83228073.jpg b/pics/83228073.jpg deleted file mode 100644 index dbc58f39..00000000 Binary files a/pics/83228073.jpg and /dev/null differ diff --git a/pics/83235263.jpg b/pics/83235263.jpg deleted file mode 100644 index c2402267..00000000 Binary files a/pics/83235263.jpg and /dev/null differ diff --git a/pics/8323633.jpg b/pics/8323633.jpg deleted file mode 100644 index a66362f6..00000000 Binary files a/pics/8323633.jpg and /dev/null differ diff --git a/pics/83236601.jpg b/pics/83236601.jpg deleted file mode 100644 index 777dec78..00000000 Binary files a/pics/83236601.jpg and /dev/null differ diff --git a/pics/83239739.jpg b/pics/83239739.jpg deleted file mode 100644 index 7d649a16..00000000 Binary files a/pics/83239739.jpg and /dev/null differ diff --git a/pics/83239740.jpg b/pics/83239740.jpg deleted file mode 100644 index 178d31fd..00000000 Binary files a/pics/83239740.jpg and /dev/null differ diff --git a/pics/83241722.jpg b/pics/83241722.jpg deleted file mode 100644 index a744f06f..00000000 Binary files a/pics/83241722.jpg and /dev/null differ diff --git a/pics/83258273.jpg b/pics/83258273.jpg deleted file mode 100644 index ec8153ae..00000000 Binary files a/pics/83258273.jpg and /dev/null differ diff --git a/pics/83266092.jpg b/pics/83266092.jpg deleted file mode 100644 index e9bf95b5..00000000 Binary files a/pics/83266092.jpg and /dev/null differ diff --git a/pics/83269557.jpg b/pics/83269557.jpg deleted file mode 100644 index 4e393482..00000000 Binary files a/pics/83269557.jpg and /dev/null differ diff --git a/pics/83272895.jpg b/pics/83272895.jpg deleted file mode 100644 index e6b1a2a6..00000000 Binary files a/pics/83272895.jpg and /dev/null differ diff --git a/pics/83274244.jpg b/pics/83274244.jpg deleted file mode 100644 index c562639e..00000000 Binary files a/pics/83274244.jpg and /dev/null differ diff --git a/pics/8327462.jpg b/pics/8327462.jpg deleted file mode 100644 index 0fddb6b8..00000000 Binary files a/pics/8327462.jpg and /dev/null differ diff --git a/pics/83283063.jpg b/pics/83283063.jpg deleted file mode 100755 index a1fbb0d3..00000000 Binary files a/pics/83283063.jpg and /dev/null differ diff --git a/pics/83295594.jpg b/pics/83295594.jpg deleted file mode 100644 index dbdbfa9f..00000000 Binary files a/pics/83295594.jpg and /dev/null differ diff --git a/pics/83303851.jpg b/pics/83303851.jpg deleted file mode 100755 index 52a88348..00000000 Binary files a/pics/83303851.jpg and /dev/null differ diff --git a/pics/83319610.jpg b/pics/83319610.jpg deleted file mode 100644 index 1c636dd6..00000000 Binary files a/pics/83319610.jpg and /dev/null differ diff --git a/pics/83370323.jpg b/pics/83370323.jpg deleted file mode 100644 index 9b0af080..00000000 Binary files a/pics/83370323.jpg and /dev/null differ diff --git a/pics/83392426.jpg b/pics/83392426.jpg deleted file mode 100644 index e0490614..00000000 Binary files a/pics/83392426.jpg and /dev/null differ diff --git a/pics/8339504.jpg b/pics/8339504.jpg deleted file mode 100644 index b476ec3c..00000000 Binary files a/pics/8339504.jpg and /dev/null differ diff --git a/pics/83438826.jpg b/pics/83438826.jpg deleted file mode 100644 index ce254e45..00000000 Binary files a/pics/83438826.jpg and /dev/null differ diff --git a/pics/83446909.jpg b/pics/83446909.jpg deleted file mode 100644 index bcde1ea6..00000000 Binary files a/pics/83446909.jpg and /dev/null differ diff --git a/pics/83461421.jpg b/pics/83461421.jpg deleted file mode 100755 index fe4c2fcd..00000000 Binary files a/pics/83461421.jpg and /dev/null differ diff --git a/pics/83464209.jpg b/pics/83464209.jpg deleted file mode 100644 index 24499d47..00000000 Binary files a/pics/83464209.jpg and /dev/null differ diff --git a/pics/83467607.jpg b/pics/83467607.jpg deleted file mode 100644 index bd191910..00000000 Binary files a/pics/83467607.jpg and /dev/null differ diff --git a/pics/83500096.jpg b/pics/83500096.jpg deleted file mode 100644 index 18f373bc..00000000 Binary files a/pics/83500096.jpg and /dev/null differ diff --git a/pics/83519853.jpg b/pics/83519853.jpg deleted file mode 100644 index 0474eb7f..00000000 Binary files a/pics/83519853.jpg and /dev/null differ diff --git a/pics/83531441.jpg b/pics/83531441.jpg deleted file mode 100755 index e3c4bdff..00000000 Binary files a/pics/83531441.jpg and /dev/null differ diff --git a/pics/8353769.jpg b/pics/8353769.jpg deleted file mode 100644 index e57d9bc6..00000000 Binary files a/pics/8353769.jpg and /dev/null differ diff --git a/pics/83544697.jpg b/pics/83544697.jpg deleted file mode 100644 index f259dfc4..00000000 Binary files a/pics/83544697.jpg and /dev/null differ diff --git a/pics/83546647.jpg b/pics/83546647.jpg deleted file mode 100644 index d20582e1..00000000 Binary files a/pics/83546647.jpg and /dev/null differ diff --git a/pics/83555666.jpg b/pics/83555666.jpg deleted file mode 100644 index c2f5475e..00000000 Binary files a/pics/83555666.jpg and /dev/null differ diff --git a/pics/83555667.jpg b/pics/83555667.jpg deleted file mode 100644 index 51cbbaa2..00000000 Binary files a/pics/83555667.jpg and /dev/null differ diff --git a/pics/83584898.jpg b/pics/83584898.jpg deleted file mode 100644 index 1c51a0b4..00000000 Binary files a/pics/83584898.jpg and /dev/null differ diff --git a/pics/83602069.jpg b/pics/83602069.jpg deleted file mode 100644 index 281a44f8..00000000 Binary files a/pics/83602069.jpg and /dev/null differ diff --git a/pics/83604828.jpg b/pics/83604828.jpg deleted file mode 100644 index 103ca726..00000000 Binary files a/pics/83604828.jpg and /dev/null differ diff --git a/pics/83629030.jpg b/pics/83629030.jpg deleted file mode 100755 index 1dbcbc00..00000000 Binary files a/pics/83629030.jpg and /dev/null differ diff --git a/pics/83675475.jpg b/pics/83675475.jpg deleted file mode 100644 index ba9b9dda..00000000 Binary files a/pics/83675475.jpg and /dev/null differ diff --git a/pics/83678433.jpg b/pics/83678433.jpg deleted file mode 100644 index 130cafbc..00000000 Binary files a/pics/83678433.jpg and /dev/null differ diff --git a/pics/83682725.jpg b/pics/83682725.jpg deleted file mode 100644 index 59e2dbc3..00000000 Binary files a/pics/83682725.jpg and /dev/null differ diff --git a/pics/83715234.jpg b/pics/83715234.jpg deleted file mode 100644 index 563cf885..00000000 Binary files a/pics/83715234.jpg and /dev/null differ diff --git a/pics/83725008.jpg b/pics/83725008.jpg deleted file mode 100644 index 324b590a..00000000 Binary files a/pics/83725008.jpg and /dev/null differ diff --git a/pics/83743222.jpg b/pics/83743222.jpg deleted file mode 100755 index 0467c2ad..00000000 Binary files a/pics/83743222.jpg and /dev/null differ diff --git a/pics/83746708.jpg b/pics/83746708.jpg deleted file mode 100644 index 3cbaa743..00000000 Binary files a/pics/83746708.jpg and /dev/null differ diff --git a/pics/83755611.jpg b/pics/83755611.jpg deleted file mode 100644 index f69abe88..00000000 Binary files a/pics/83755611.jpg and /dev/null differ diff --git a/pics/83764718.jpg b/pics/83764718.jpg deleted file mode 100644 index 65a82b3d..00000000 Binary files a/pics/83764718.jpg and /dev/null differ diff --git a/pics/83764719.jpg b/pics/83764719.jpg deleted file mode 100644 index e57e7408..00000000 Binary files a/pics/83764719.jpg and /dev/null differ diff --git a/pics/83764996.jpg b/pics/83764996.jpg deleted file mode 100644 index 7e9dbb2a..00000000 Binary files a/pics/83764996.jpg and /dev/null differ diff --git a/pics/83778600.jpg b/pics/83778600.jpg deleted file mode 100644 index 9a90515d..00000000 Binary files a/pics/83778600.jpg and /dev/null differ diff --git a/pics/83810690.jpg b/pics/83810690.jpg deleted file mode 100644 index 6d2838cf..00000000 Binary files a/pics/83810690.jpg and /dev/null differ diff --git a/pics/83812099.jpg b/pics/83812099.jpg deleted file mode 100644 index 42b65441..00000000 Binary files a/pics/83812099.jpg and /dev/null differ diff --git a/pics/83831356.jpg b/pics/83831356.jpg deleted file mode 100644 index 69d2b9e5..00000000 Binary files a/pics/83831356.jpg and /dev/null differ diff --git a/pics/83866861.jpg b/pics/83866861.jpg deleted file mode 100644 index 1cdeb132..00000000 Binary files a/pics/83866861.jpg and /dev/null differ diff --git a/pics/83887306.jpg b/pics/83887306.jpg deleted file mode 100644 index d3587a57..00000000 Binary files a/pics/83887306.jpg and /dev/null differ diff --git a/pics/83903521.jpg b/pics/83903521.jpg deleted file mode 100644 index 1c6032f8..00000000 Binary files a/pics/83903521.jpg and /dev/null differ diff --git a/pics/83957459.jpg b/pics/83957459.jpg deleted file mode 100644 index d20fdff0..00000000 Binary files a/pics/83957459.jpg and /dev/null differ diff --git a/pics/83965310.jpg b/pics/83965310.jpg deleted file mode 100644 index 17c56279..00000000 Binary files a/pics/83965310.jpg and /dev/null differ diff --git a/pics/83968380.jpg b/pics/83968380.jpg deleted file mode 100644 index b6057c99..00000000 Binary files a/pics/83968380.jpg and /dev/null differ diff --git a/pics/8396952.jpg b/pics/8396952.jpg deleted file mode 100644 index a3891a9b..00000000 Binary files a/pics/8396952.jpg and /dev/null differ diff --git a/pics/83980492.jpg b/pics/83980492.jpg deleted file mode 100755 index 6a0a76f0..00000000 Binary files a/pics/83980492.jpg and /dev/null differ diff --git a/pics/83982270.jpg b/pics/83982270.jpg deleted file mode 100644 index 4d809fb0..00000000 Binary files a/pics/83982270.jpg and /dev/null differ diff --git a/pics/83986578.jpg b/pics/83986578.jpg deleted file mode 100644 index a52fce9a..00000000 Binary files a/pics/83986578.jpg and /dev/null differ diff --git a/pics/83991690.jpg b/pics/83991690.jpg deleted file mode 100644 index c14a1c2d..00000000 Binary files a/pics/83991690.jpg and /dev/null differ diff --git a/pics/83994433.jpg b/pics/83994433.jpg deleted file mode 100644 index 8a34ae7b..00000000 Binary files a/pics/83994433.jpg and /dev/null differ diff --git a/pics/83994646.jpg b/pics/83994646.jpg deleted file mode 100644 index 2922049b..00000000 Binary files a/pics/83994646.jpg and /dev/null differ diff --git a/pics/8400623.jpg b/pics/8400623.jpg deleted file mode 100644 index a63b1362..00000000 Binary files a/pics/8400623.jpg and /dev/null differ diff --git a/pics/84013237.jpg b/pics/84013237.jpg deleted file mode 100644 index 811f091a..00000000 Binary files a/pics/84013237.jpg and /dev/null differ diff --git a/pics/84025439.jpg b/pics/84025439.jpg deleted file mode 100755 index 0b663b40..00000000 Binary files a/pics/84025439.jpg and /dev/null differ diff --git a/pics/84055227.jpg b/pics/84055227.jpg deleted file mode 100644 index 68b34c4b..00000000 Binary files a/pics/84055227.jpg and /dev/null differ diff --git a/pics/84058253.jpg b/pics/84058253.jpg deleted file mode 100644 index 3466cdc4..00000000 Binary files a/pics/84058253.jpg and /dev/null differ diff --git a/pics/84080938.jpg b/pics/84080938.jpg deleted file mode 100644 index e4e070d4..00000000 Binary files a/pics/84080938.jpg and /dev/null differ diff --git a/pics/84080939.jpg b/pics/84080939.jpg deleted file mode 100644 index b4a132a8..00000000 Binary files a/pics/84080939.jpg and /dev/null differ diff --git a/pics/84103702.jpg b/pics/84103702.jpg deleted file mode 100644 index cd76ed1c..00000000 Binary files a/pics/84103702.jpg and /dev/null differ diff --git a/pics/84117021.jpg b/pics/84117021.jpg deleted file mode 100644 index 0484176d..00000000 Binary files a/pics/84117021.jpg and /dev/null differ diff --git a/pics/84124261.jpg b/pics/84124261.jpg deleted file mode 100644 index 09ec028d..00000000 Binary files a/pics/84124261.jpg and /dev/null differ diff --git a/pics/84133008.jpg b/pics/84133008.jpg deleted file mode 100644 index 53f30dfe..00000000 Binary files a/pics/84133008.jpg and /dev/null differ diff --git a/pics/84136000.jpg b/pics/84136000.jpg deleted file mode 100644 index d24b5ab0..00000000 Binary files a/pics/84136000.jpg and /dev/null differ diff --git a/pics/8414337.jpg b/pics/8414337.jpg deleted file mode 100644 index d179a704..00000000 Binary files a/pics/8414337.jpg and /dev/null differ diff --git a/pics/84171830.jpg b/pics/84171830.jpg deleted file mode 100644 index 3035ebea..00000000 Binary files a/pics/84171830.jpg and /dev/null differ diff --git a/pics/84173492.jpg b/pics/84173492.jpg deleted file mode 100644 index 51248989..00000000 Binary files a/pics/84173492.jpg and /dev/null differ diff --git a/pics/84177693.jpg b/pics/84177693.jpg deleted file mode 100644 index e6281a36..00000000 Binary files a/pics/84177693.jpg and /dev/null differ diff --git a/pics/84206435.jpg b/pics/84206435.jpg deleted file mode 100644 index b5091c17..00000000 Binary files a/pics/84206435.jpg and /dev/null differ diff --git a/pics/84220251.jpg b/pics/84220251.jpg deleted file mode 100644 index 6c10c4e1..00000000 Binary files a/pics/84220251.jpg and /dev/null differ diff --git a/pics/84224627.jpg b/pics/84224627.jpg deleted file mode 100644 index 16eb8f29..00000000 Binary files a/pics/84224627.jpg and /dev/null differ diff --git a/pics/84243274.jpg b/pics/84243274.jpg deleted file mode 100644 index 5be639cc..00000000 Binary files a/pics/84243274.jpg and /dev/null differ diff --git a/pics/84257639.jpg b/pics/84257639.jpg deleted file mode 100644 index e127e420..00000000 Binary files a/pics/84257639.jpg and /dev/null differ diff --git a/pics/84257640.jpg b/pics/84257640.jpg deleted file mode 100644 index f1a849fd..00000000 Binary files a/pics/84257640.jpg and /dev/null differ diff --git a/pics/84268896.jpg b/pics/84268896.jpg deleted file mode 100644 index 907fe2fc..00000000 Binary files a/pics/84268896.jpg and /dev/null differ diff --git a/pics/84285623.jpg b/pics/84285623.jpg deleted file mode 100644 index 420d728b..00000000 Binary files a/pics/84285623.jpg and /dev/null differ diff --git a/pics/84290642.jpg b/pics/84290642.jpg deleted file mode 100644 index 7aef6bed..00000000 Binary files a/pics/84290642.jpg and /dev/null differ diff --git a/pics/84298614.jpg b/pics/84298614.jpg deleted file mode 100644 index c66c223c..00000000 Binary files a/pics/84298614.jpg and /dev/null differ diff --git a/pics/84305651.jpg b/pics/84305651.jpg deleted file mode 100755 index 99be234a..00000000 Binary files a/pics/84305651.jpg and /dev/null differ diff --git a/pics/84313685.jpg b/pics/84313685.jpg deleted file mode 100644 index 80db9f85..00000000 Binary files a/pics/84313685.jpg and /dev/null differ diff --git a/pics/84327329.jpg b/pics/84327329.jpg deleted file mode 100644 index 75607928..00000000 Binary files a/pics/84327329.jpg and /dev/null differ diff --git a/pics/84341431.jpg b/pics/84341431.jpg deleted file mode 100644 index ff84b643..00000000 Binary files a/pics/84341431.jpg and /dev/null differ diff --git a/pics/84361420.jpg b/pics/84361420.jpg deleted file mode 100644 index 7d03dda6..00000000 Binary files a/pics/84361420.jpg and /dev/null differ diff --git a/pics/8437145.jpg b/pics/8437145.jpg deleted file mode 100644 index 00d363d4..00000000 Binary files a/pics/8437145.jpg and /dev/null differ diff --git a/pics/84385264.jpg b/pics/84385264.jpg deleted file mode 100644 index 7b56dcff..00000000 Binary files a/pics/84385264.jpg and /dev/null differ diff --git a/pics/84388461.jpg b/pics/84388461.jpg deleted file mode 100644 index 68e584f5..00000000 Binary files a/pics/84388461.jpg and /dev/null differ diff --git a/pics/84389640.jpg b/pics/84389640.jpg deleted file mode 100644 index d12af045..00000000 Binary files a/pics/84389640.jpg and /dev/null differ diff --git a/pics/84397023.jpg b/pics/84397023.jpg deleted file mode 100644 index 00286076..00000000 Binary files a/pics/84397023.jpg and /dev/null differ diff --git a/pics/84401683.jpg b/pics/84401683.jpg deleted file mode 100644 index a30bfece..00000000 Binary files a/pics/84401683.jpg and /dev/null differ diff --git a/pics/84417082.jpg b/pics/84417082.jpg deleted file mode 100644 index 8f8df9ad..00000000 Binary files a/pics/84417082.jpg and /dev/null differ diff --git a/pics/84428023.jpg b/pics/84428023.jpg deleted file mode 100644 index 17805515..00000000 Binary files a/pics/84428023.jpg and /dev/null differ diff --git a/pics/84430950.jpg b/pics/84430950.jpg deleted file mode 100644 index b3ce46a5..00000000 Binary files a/pics/84430950.jpg and /dev/null differ diff --git a/pics/84451804.jpg b/pics/84451804.jpg deleted file mode 100644 index 01120b79..00000000 Binary files a/pics/84451804.jpg and /dev/null differ diff --git a/pics/84472026.jpg b/pics/84472026.jpg deleted file mode 100644 index d54789fe..00000000 Binary files a/pics/84472026.jpg and /dev/null differ diff --git a/pics/84478195.jpg b/pics/84478195.jpg deleted file mode 100644 index 43637e46..00000000 Binary files a/pics/84478195.jpg and /dev/null differ diff --git a/pics/84488827.jpg b/pics/84488827.jpg deleted file mode 100644 index 2b905f4d..00000000 Binary files a/pics/84488827.jpg and /dev/null differ diff --git a/pics/84491298.jpg b/pics/84491298.jpg deleted file mode 100644 index 2115e3c7..00000000 Binary files a/pics/84491298.jpg and /dev/null differ diff --git a/pics/84530620.jpg b/pics/84530620.jpg deleted file mode 100644 index 86fde9cb..00000000 Binary files a/pics/84530620.jpg and /dev/null differ diff --git a/pics/84536654.jpg b/pics/84536654.jpg deleted file mode 100644 index e85e9dec..00000000 Binary files a/pics/84536654.jpg and /dev/null differ diff --git a/pics/84550200.jpg b/pics/84550200.jpg deleted file mode 100644 index 918d9115..00000000 Binary files a/pics/84550200.jpg and /dev/null differ diff --git a/pics/84565800.jpg b/pics/84565800.jpg deleted file mode 100755 index d0e0eda0..00000000 Binary files a/pics/84565800.jpg and /dev/null differ diff --git a/pics/84569017.jpg b/pics/84569017.jpg deleted file mode 100644 index 0a9e888b..00000000 Binary files a/pics/84569017.jpg and /dev/null differ diff --git a/pics/84592800.jpg b/pics/84592800.jpg deleted file mode 100644 index c5c96df5..00000000 Binary files a/pics/84592800.jpg and /dev/null differ diff --git a/pics/84613836.jpg b/pics/84613836.jpg deleted file mode 100644 index 7294a493..00000000 Binary files a/pics/84613836.jpg and /dev/null differ diff --git a/pics/84620194.jpg b/pics/84620194.jpg deleted file mode 100644 index 2a46d46a..00000000 Binary files a/pics/84620194.jpg and /dev/null differ diff --git a/pics/84636823.jpg b/pics/84636823.jpg deleted file mode 100644 index 23d71f60..00000000 Binary files a/pics/84636823.jpg and /dev/null differ diff --git a/pics/8463720.jpg b/pics/8463720.jpg deleted file mode 100755 index 78dfd712..00000000 Binary files a/pics/8463720.jpg and /dev/null differ diff --git a/pics/84650463.jpg b/pics/84650463.jpg deleted file mode 100644 index 96c6be76..00000000 Binary files a/pics/84650463.jpg and /dev/null differ diff --git a/pics/84653834.jpg b/pics/84653834.jpg deleted file mode 100644 index b29fc331..00000000 Binary files a/pics/84653834.jpg and /dev/null differ diff --git a/pics/84677654.jpg b/pics/84677654.jpg deleted file mode 100644 index bc867b35..00000000 Binary files a/pics/84677654.jpg and /dev/null differ diff --git a/pics/84686841.jpg b/pics/84686841.jpg deleted file mode 100644 index 1c5533b8..00000000 Binary files a/pics/84686841.jpg and /dev/null differ diff --git a/pics/84687358.jpg b/pics/84687358.jpg deleted file mode 100755 index cad2ab59..00000000 Binary files a/pics/84687358.jpg and /dev/null differ diff --git a/pics/84696266.jpg b/pics/84696266.jpg deleted file mode 100644 index bf764eb4..00000000 Binary files a/pics/84696266.jpg and /dev/null differ diff --git a/pics/8471389.jpg b/pics/8471389.jpg deleted file mode 100644 index 625f4b89..00000000 Binary files a/pics/8471389.jpg and /dev/null differ diff --git a/pics/84740193.jpg b/pics/84740193.jpg deleted file mode 100644 index b8eccc08..00000000 Binary files a/pics/84740193.jpg and /dev/null differ diff --git a/pics/84747429.jpg b/pics/84747429.jpg deleted file mode 100644 index c4e3ad0b..00000000 Binary files a/pics/84747429.jpg and /dev/null differ diff --git a/pics/84749824.jpg b/pics/84749824.jpg deleted file mode 100644 index 1d79aa29..00000000 Binary files a/pics/84749824.jpg and /dev/null differ diff --git a/pics/84764038.jpg b/pics/84764038.jpg deleted file mode 100644 index b524863a..00000000 Binary files a/pics/84764038.jpg and /dev/null differ diff --git a/pics/84766279.jpg b/pics/84766279.jpg deleted file mode 100644 index 056e8714..00000000 Binary files a/pics/84766279.jpg and /dev/null differ diff --git a/pics/847915.jpg b/pics/847915.jpg deleted file mode 100644 index 964d5431..00000000 Binary files a/pics/847915.jpg and /dev/null differ diff --git a/pics/84794011.jpg b/pics/84794011.jpg deleted file mode 100644 index 08d8272f..00000000 Binary files a/pics/84794011.jpg and /dev/null differ diff --git a/pics/84808313.jpg b/pics/84808313.jpg deleted file mode 100644 index 809d431c..00000000 Binary files a/pics/84808313.jpg and /dev/null differ diff --git a/pics/84812868.jpg b/pics/84812868.jpg deleted file mode 100755 index 8501a530..00000000 Binary files a/pics/84812868.jpg and /dev/null differ diff --git a/pics/84814897.jpg b/pics/84814897.jpg deleted file mode 100644 index d5ce7158..00000000 Binary files a/pics/84814897.jpg and /dev/null differ diff --git a/pics/84824601.jpg b/pics/84824601.jpg deleted file mode 100644 index 258105c2..00000000 Binary files a/pics/84824601.jpg and /dev/null differ diff --git a/pics/8483333.jpg b/pics/8483333.jpg deleted file mode 100644 index ac84ed6d..00000000 Binary files a/pics/8483333.jpg and /dev/null differ diff --git a/pics/84834865.jpg b/pics/84834865.jpg deleted file mode 100644 index 8ce6448a..00000000 Binary files a/pics/84834865.jpg and /dev/null differ diff --git a/pics/84845628.jpg b/pics/84845628.jpg deleted file mode 100755 index ae135f91..00000000 Binary files a/pics/84845628.jpg and /dev/null differ diff --git a/pics/84847656.jpg b/pics/84847656.jpg deleted file mode 100644 index 1fbd0146..00000000 Binary files a/pics/84847656.jpg and /dev/null differ diff --git a/pics/8487449.jpg b/pics/8487449.jpg deleted file mode 100644 index f388e436..00000000 Binary files a/pics/8487449.jpg and /dev/null differ diff --git a/pics/84877802.jpg b/pics/84877802.jpg deleted file mode 100644 index 30faaf46..00000000 Binary files a/pics/84877802.jpg and /dev/null differ diff --git a/pics/84905691.jpg b/pics/84905691.jpg deleted file mode 100644 index 4e2baa4d..00000000 Binary files a/pics/84905691.jpg and /dev/null differ diff --git a/pics/84914462.jpg b/pics/84914462.jpg deleted file mode 100644 index 0b2b2392..00000000 Binary files a/pics/84914462.jpg and /dev/null differ diff --git a/pics/84916669.jpg b/pics/84916669.jpg deleted file mode 100644 index 737ff4aa..00000000 Binary files a/pics/84916669.jpg and /dev/null differ diff --git a/pics/84926738.jpg b/pics/84926738.jpg deleted file mode 100644 index fbcecc74..00000000 Binary files a/pics/84926738.jpg and /dev/null differ diff --git a/pics/84932271.jpg b/pics/84932271.jpg deleted file mode 100644 index dbdd7303..00000000 Binary files a/pics/84932271.jpg and /dev/null differ diff --git a/pics/84962466.jpg b/pics/84962466.jpg deleted file mode 100644 index 2390ead8..00000000 Binary files a/pics/84962466.jpg and /dev/null differ diff --git a/pics/84968490.jpg b/pics/84968490.jpg deleted file mode 100644 index 2425cc92..00000000 Binary files a/pics/84968490.jpg and /dev/null differ diff --git a/pics/84970821.jpg b/pics/84970821.jpg deleted file mode 100644 index a1d75b1e..00000000 Binary files a/pics/84970821.jpg and /dev/null differ diff --git a/pics/84988419.jpg b/pics/84988419.jpg deleted file mode 100644 index 09e9702d..00000000 Binary files a/pics/84988419.jpg and /dev/null differ diff --git a/pics/84990171.jpg b/pics/84990171.jpg deleted file mode 100644 index 916b940e..00000000 Binary files a/pics/84990171.jpg and /dev/null differ diff --git a/pics/85028288.jpg b/pics/85028288.jpg deleted file mode 100644 index 41cc51b3..00000000 Binary files a/pics/85028288.jpg and /dev/null differ diff --git a/pics/85060248.jpg b/pics/85060248.jpg deleted file mode 100644 index e7b869bd..00000000 Binary files a/pics/85060248.jpg and /dev/null differ diff --git a/pics/85066822.jpg b/pics/85066822.jpg deleted file mode 100644 index 2ffadc08..00000000 Binary files a/pics/85066822.jpg and /dev/null differ diff --git a/pics/85080048.jpg b/pics/85080048.jpg deleted file mode 100644 index 41dd6e0c..00000000 Binary files a/pics/85080048.jpg and /dev/null differ diff --git a/pics/85080444.jpg b/pics/85080444.jpg deleted file mode 100644 index f98a9ceb..00000000 Binary files a/pics/85080444.jpg and /dev/null differ diff --git a/pics/8508055.jpg b/pics/8508055.jpg deleted file mode 100644 index 8f5c564b..00000000 Binary files a/pics/8508055.jpg and /dev/null differ diff --git a/pics/85087012.jpg b/pics/85087012.jpg deleted file mode 100644 index 70926d51..00000000 Binary files a/pics/85087012.jpg and /dev/null differ diff --git a/pics/85101097.jpg b/pics/85101097.jpg deleted file mode 100644 index 672df679..00000000 Binary files a/pics/85101097.jpg and /dev/null differ diff --git a/pics/85101228.jpg b/pics/85101228.jpg deleted file mode 100644 index 18fa577b..00000000 Binary files a/pics/85101228.jpg and /dev/null differ diff --git a/pics/85103922.jpg b/pics/85103922.jpg deleted file mode 100644 index cb330d59..00000000 Binary files a/pics/85103922.jpg and /dev/null differ diff --git a/pics/85121942.jpg b/pics/85121942.jpg deleted file mode 100644 index bba283e5..00000000 Binary files a/pics/85121942.jpg and /dev/null differ diff --git a/pics/85138716.jpg b/pics/85138716.jpg deleted file mode 100644 index 2761f636..00000000 Binary files a/pics/85138716.jpg and /dev/null differ diff --git a/pics/85166216.jpg b/pics/85166216.jpg deleted file mode 100644 index 13a044b2..00000000 Binary files a/pics/85166216.jpg and /dev/null differ diff --git a/pics/85215458.jpg b/pics/85215458.jpg deleted file mode 100644 index 467a1d38..00000000 Binary files a/pics/85215458.jpg and /dev/null differ diff --git a/pics/8522996.jpg b/pics/8522996.jpg deleted file mode 100644 index 6dd969f5..00000000 Binary files a/pics/8522996.jpg and /dev/null differ diff --git a/pics/85239662.jpg b/pics/85239662.jpg deleted file mode 100644 index 1d608627..00000000 Binary files a/pics/85239662.jpg and /dev/null differ diff --git a/pics/85252081.jpg b/pics/85252081.jpg deleted file mode 100755 index 91403423..00000000 Binary files a/pics/85252081.jpg and /dev/null differ diff --git a/pics/85255550.jpg b/pics/85255550.jpg deleted file mode 100644 index 560b4e68..00000000 Binary files a/pics/85255550.jpg and /dev/null differ diff --git a/pics/8529136.jpg b/pics/8529136.jpg deleted file mode 100644 index 4b384ca1..00000000 Binary files a/pics/8529136.jpg and /dev/null differ diff --git a/pics/85306040.jpg b/pics/85306040.jpg deleted file mode 100644 index b2d8d022..00000000 Binary files a/pics/85306040.jpg and /dev/null differ diff --git a/pics/85309439.jpg b/pics/85309439.jpg deleted file mode 100644 index 3476bdad..00000000 Binary files a/pics/85309439.jpg and /dev/null differ diff --git a/pics/85310252.jpg b/pics/85310252.jpg deleted file mode 100644 index f2b5c5f1..00000000 Binary files a/pics/85310252.jpg and /dev/null differ diff --git a/pics/85313220.jpg b/pics/85313220.jpg deleted file mode 100644 index 808ffd2f..00000000 Binary files a/pics/85313220.jpg and /dev/null differ diff --git a/pics/85326399.jpg b/pics/85326399.jpg deleted file mode 100644 index f39ad179..00000000 Binary files a/pics/85326399.jpg and /dev/null differ diff --git a/pics/85346853.jpg b/pics/85346853.jpg deleted file mode 100644 index b44952f7..00000000 Binary files a/pics/85346853.jpg and /dev/null differ diff --git a/pics/85352446.jpg b/pics/85352446.jpg deleted file mode 100644 index c761fa81..00000000 Binary files a/pics/85352446.jpg and /dev/null differ diff --git a/pics/85359414.jpg b/pics/85359414.jpg deleted file mode 100644 index b3fb41af..00000000 Binary files a/pics/85359414.jpg and /dev/null differ diff --git a/pics/85374678.jpg b/pics/85374678.jpg deleted file mode 100755 index dbbc363b..00000000 Binary files a/pics/85374678.jpg and /dev/null differ diff --git a/pics/85399281.jpg b/pics/85399281.jpg deleted file mode 100644 index 5c54b940..00000000 Binary files a/pics/85399281.jpg and /dev/null differ diff --git a/pics/85431040.jpg b/pics/85431040.jpg deleted file mode 100644 index b5184b77..00000000 Binary files a/pics/85431040.jpg and /dev/null differ diff --git a/pics/85446833.jpg b/pics/85446833.jpg deleted file mode 100644 index f0d68c54..00000000 Binary files a/pics/85446833.jpg and /dev/null differ diff --git a/pics/85448931.jpg b/pics/85448931.jpg deleted file mode 100644 index 0482096f..00000000 Binary files a/pics/85448931.jpg and /dev/null differ diff --git a/pics/85463083.jpg b/pics/85463083.jpg deleted file mode 100644 index 16ef2635..00000000 Binary files a/pics/85463083.jpg and /dev/null differ diff --git a/pics/85475641.jpg b/pics/85475641.jpg deleted file mode 100644 index 3330a53d..00000000 Binary files a/pics/85475641.jpg and /dev/null differ diff --git a/pics/85489096.jpg b/pics/85489096.jpg deleted file mode 100644 index 4b5b5fb9..00000000 Binary files a/pics/85489096.jpg and /dev/null differ diff --git a/pics/85505315.jpg b/pics/85505315.jpg deleted file mode 100644 index 87aa556c..00000000 Binary files a/pics/85505315.jpg and /dev/null differ diff --git a/pics/85507811.jpg b/pics/85507811.jpg deleted file mode 100644 index 98b0de0b..00000000 Binary files a/pics/85507811.jpg and /dev/null differ diff --git a/pics/85519211.jpg b/pics/85519211.jpg deleted file mode 100644 index 38ba9703..00000000 Binary files a/pics/85519211.jpg and /dev/null differ diff --git a/pics/85520851.jpg b/pics/85520851.jpg deleted file mode 100644 index 2a029a21..00000000 Binary files a/pics/85520851.jpg and /dev/null differ diff --git a/pics/85528209.jpg b/pics/85528209.jpg deleted file mode 100755 index 29edc900..00000000 Binary files a/pics/85528209.jpg and /dev/null differ diff --git a/pics/85541675.jpg b/pics/85541675.jpg deleted file mode 100644 index 66b520b4..00000000 Binary files a/pics/85541675.jpg and /dev/null differ diff --git a/pics/85545073.jpg b/pics/85545073.jpg deleted file mode 100644 index 09f14a64..00000000 Binary files a/pics/85545073.jpg and /dev/null differ diff --git a/pics/85562745.jpg b/pics/85562745.jpg deleted file mode 100644 index b1f6bcb6..00000000 Binary files a/pics/85562745.jpg and /dev/null differ diff --git a/pics/8559793.jpg b/pics/8559793.jpg deleted file mode 100644 index 9ace5fbd..00000000 Binary files a/pics/8559793.jpg and /dev/null differ diff --git a/pics/85602018.jpg b/pics/85602018.jpg deleted file mode 100644 index 2634fc4a..00000000 Binary files a/pics/85602018.jpg and /dev/null differ diff --git a/pics/85605684.jpg b/pics/85605684.jpg deleted file mode 100644 index 493c4cd7..00000000 Binary files a/pics/85605684.jpg and /dev/null differ diff --git a/pics/8561192.jpg b/pics/8561192.jpg deleted file mode 100644 index 8c2bde64..00000000 Binary files a/pics/8561192.jpg and /dev/null differ diff --git a/pics/85639257.jpg b/pics/85639257.jpg deleted file mode 100644 index 4e57115b..00000000 Binary files a/pics/85639257.jpg and /dev/null differ diff --git a/pics/85646474.jpg b/pics/85646474.jpg deleted file mode 100644 index 6bc7862c..00000000 Binary files a/pics/85646474.jpg and /dev/null differ diff --git a/pics/85668449.jpg b/pics/85668449.jpg deleted file mode 100644 index 5133dbed..00000000 Binary files a/pics/85668449.jpg and /dev/null differ diff --git a/pics/85682655.jpg b/pics/85682655.jpg deleted file mode 100644 index 114734e8..00000000 Binary files a/pics/85682655.jpg and /dev/null differ diff --git a/pics/85684223.jpg b/pics/85684223.jpg deleted file mode 100644 index 3ea43f88..00000000 Binary files a/pics/85684223.jpg and /dev/null differ diff --git a/pics/85705804.jpg b/pics/85705804.jpg deleted file mode 100644 index 3bdb61a8..00000000 Binary files a/pics/85705804.jpg and /dev/null differ diff --git a/pics/85709845.jpg b/pics/85709845.jpg deleted file mode 100644 index 543bb644..00000000 Binary files a/pics/85709845.jpg and /dev/null differ diff --git a/pics/85718645.jpg b/pics/85718645.jpg deleted file mode 100644 index 0fbb001d..00000000 Binary files a/pics/85718645.jpg and /dev/null differ diff --git a/pics/85742772.jpg b/pics/85742772.jpg deleted file mode 100644 index 4ac2ae6a..00000000 Binary files a/pics/85742772.jpg and /dev/null differ diff --git a/pics/85754829.jpg b/pics/85754829.jpg deleted file mode 100644 index 90b458d1..00000000 Binary files a/pics/85754829.jpg and /dev/null differ diff --git a/pics/85771019.jpg b/pics/85771019.jpg deleted file mode 100644 index 07ac9e24..00000000 Binary files a/pics/85771019.jpg and /dev/null differ diff --git a/pics/85771020.jpg b/pics/85771020.jpg deleted file mode 100644 index 7e881665..00000000 Binary files a/pics/85771020.jpg and /dev/null differ diff --git a/pics/85771021.jpg b/pics/85771021.jpg deleted file mode 100644 index 66e353d3..00000000 Binary files a/pics/85771021.jpg and /dev/null differ diff --git a/pics/85775486.jpg b/pics/85775486.jpg deleted file mode 100644 index dc1b2a68..00000000 Binary files a/pics/85775486.jpg and /dev/null differ diff --git a/pics/85800949.jpg b/pics/85800949.jpg deleted file mode 100755 index b9e78f6f..00000000 Binary files a/pics/85800949.jpg and /dev/null differ diff --git a/pics/85802526.jpg b/pics/85802526.jpg deleted file mode 100644 index c42039e0..00000000 Binary files a/pics/85802526.jpg and /dev/null differ diff --git a/pics/8581705.jpg b/pics/8581705.jpg deleted file mode 100644 index a0fe5a5f..00000000 Binary files a/pics/8581705.jpg and /dev/null differ diff --git a/pics/85827713.jpg b/pics/85827713.jpg deleted file mode 100644 index 700ed68c..00000000 Binary files a/pics/85827713.jpg and /dev/null differ diff --git a/pics/85839825.jpg b/pics/85839825.jpg deleted file mode 100644 index 655bd226..00000000 Binary files a/pics/85839825.jpg and /dev/null differ diff --git a/pics/85852291.jpg b/pics/85852291.jpg deleted file mode 100644 index f3226706..00000000 Binary files a/pics/85852291.jpg and /dev/null differ diff --git a/pics/85854214.jpg b/pics/85854214.jpg deleted file mode 100644 index a3a1d23d..00000000 Binary files a/pics/85854214.jpg and /dev/null differ diff --git a/pics/85876417.jpg b/pics/85876417.jpg deleted file mode 100644 index 51909187..00000000 Binary files a/pics/85876417.jpg and /dev/null differ diff --git a/pics/85893201.jpg b/pics/85893201.jpg deleted file mode 100644 index e34fedc1..00000000 Binary files a/pics/85893201.jpg and /dev/null differ diff --git a/pics/85909450.jpg b/pics/85909450.jpg deleted file mode 100644 index 260ac6ae..00000000 Binary files a/pics/85909450.jpg and /dev/null differ diff --git a/pics/85936485.jpg b/pics/85936485.jpg deleted file mode 100644 index 059d9239..00000000 Binary files a/pics/85936485.jpg and /dev/null differ diff --git a/pics/8594079.jpg b/pics/8594079.jpg deleted file mode 100644 index 4ae02601..00000000 Binary files a/pics/8594079.jpg and /dev/null differ diff --git a/pics/85967160.jpg b/pics/85967160.jpg deleted file mode 100755 index 18b70015..00000000 Binary files a/pics/85967160.jpg and /dev/null differ diff --git a/pics/86016245.jpg b/pics/86016245.jpg deleted file mode 100644 index 426662a3..00000000 Binary files a/pics/86016245.jpg and /dev/null differ diff --git a/pics/86039057.jpg b/pics/86039057.jpg deleted file mode 100644 index 4f1125ee..00000000 Binary files a/pics/86039057.jpg and /dev/null differ diff --git a/pics/86049351.jpg b/pics/86049351.jpg deleted file mode 100644 index 46375ac4..00000000 Binary files a/pics/86049351.jpg and /dev/null differ diff --git a/pics/86062400.jpg b/pics/86062400.jpg deleted file mode 100644 index 76f392d1..00000000 Binary files a/pics/86062400.jpg and /dev/null differ diff --git a/pics/86088138.jpg b/pics/86088138.jpg deleted file mode 100644 index 4354757e..00000000 Binary files a/pics/86088138.jpg and /dev/null differ diff --git a/pics/86099788.jpg b/pics/86099788.jpg deleted file mode 100644 index 3182985b..00000000 Binary files a/pics/86099788.jpg and /dev/null differ diff --git a/pics/86100785.jpg b/pics/86100785.jpg deleted file mode 100644 index cb430c6d..00000000 Binary files a/pics/86100785.jpg and /dev/null differ diff --git a/pics/8611007.jpg b/pics/8611007.jpg deleted file mode 100644 index df3d09ee..00000000 Binary files a/pics/8611007.jpg and /dev/null differ diff --git a/pics/86137485.jpg b/pics/86137485.jpg deleted file mode 100644 index 44452da0..00000000 Binary files a/pics/86137485.jpg and /dev/null differ diff --git a/pics/86164529.jpg b/pics/86164529.jpg deleted file mode 100644 index 0ff8552a..00000000 Binary files a/pics/86164529.jpg and /dev/null differ diff --git a/pics/86170989.jpg b/pics/86170989.jpg deleted file mode 100644 index aed7a56a..00000000 Binary files a/pics/86170989.jpg and /dev/null differ diff --git a/pics/86174055.jpg b/pics/86174055.jpg deleted file mode 100644 index 6bf78d1b..00000000 Binary files a/pics/86174055.jpg and /dev/null differ diff --git a/pics/86188410.jpg b/pics/86188410.jpg deleted file mode 100644 index 18210232..00000000 Binary files a/pics/86188410.jpg and /dev/null differ diff --git a/pics/86196216.jpg b/pics/86196216.jpg deleted file mode 100755 index ce448075..00000000 Binary files a/pics/86196216.jpg and /dev/null differ diff --git a/pics/86197239.jpg b/pics/86197239.jpg deleted file mode 100644 index 1a15abf5..00000000 Binary files a/pics/86197239.jpg and /dev/null differ diff --git a/pics/86198326.jpg b/pics/86198326.jpg deleted file mode 100644 index 38c6db54..00000000 Binary files a/pics/86198326.jpg and /dev/null differ diff --git a/pics/86209650.jpg b/pics/86209650.jpg deleted file mode 100644 index 7b2daefc..00000000 Binary files a/pics/86209650.jpg and /dev/null differ diff --git a/pics/86223870.jpg b/pics/86223870.jpg deleted file mode 100644 index d80dec69..00000000 Binary files a/pics/86223870.jpg and /dev/null differ diff --git a/pics/86229493.jpg b/pics/86229493.jpg deleted file mode 100644 index 7d6f18fc..00000000 Binary files a/pics/86229493.jpg and /dev/null differ diff --git a/pics/86240887.jpg b/pics/86240887.jpg deleted file mode 100755 index 122d5352..00000000 Binary files a/pics/86240887.jpg and /dev/null differ diff --git a/pics/86274272.jpg b/pics/86274272.jpg deleted file mode 100644 index 29a7656c..00000000 Binary files a/pics/86274272.jpg and /dev/null differ diff --git a/pics/86281779.jpg b/pics/86281779.jpg deleted file mode 100644 index ff01044c..00000000 Binary files a/pics/86281779.jpg and /dev/null differ diff --git a/pics/8628798.jpg b/pics/8628798.jpg deleted file mode 100644 index dd2a79c1..00000000 Binary files a/pics/8628798.jpg and /dev/null differ diff --git a/pics/86308219.jpg b/pics/86308219.jpg deleted file mode 100644 index 10266294..00000000 Binary files a/pics/86308219.jpg and /dev/null differ diff --git a/pics/86318356.jpg b/pics/86318356.jpg deleted file mode 100644 index 277a78ad..00000000 Binary files a/pics/86318356.jpg and /dev/null differ diff --git a/pics/86321248.jpg b/pics/86321248.jpg deleted file mode 100644 index f17f91f0..00000000 Binary files a/pics/86321248.jpg and /dev/null differ diff --git a/pics/86325573.jpg b/pics/86325573.jpg deleted file mode 100644 index 56845169..00000000 Binary files a/pics/86325573.jpg and /dev/null differ diff --git a/pics/86325596.jpg b/pics/86325596.jpg deleted file mode 100644 index c33996af..00000000 Binary files a/pics/86325596.jpg and /dev/null differ diff --git a/pics/86327225.jpg b/pics/86327225.jpg deleted file mode 100644 index 8039feb4..00000000 Binary files a/pics/86327225.jpg and /dev/null differ diff --git a/pics/8632967.jpg b/pics/8632967.jpg deleted file mode 100644 index 3507d909..00000000 Binary files a/pics/8632967.jpg and /dev/null differ diff --git a/pics/8634636.jpg b/pics/8634636.jpg deleted file mode 100644 index 325a2721..00000000 Binary files a/pics/8634636.jpg and /dev/null differ diff --git a/pics/86346643.jpg b/pics/86346643.jpg deleted file mode 100644 index f1236b72..00000000 Binary files a/pics/86346643.jpg and /dev/null differ diff --git a/pics/86361354.jpg b/pics/86361354.jpg deleted file mode 100644 index e8d7f83f..00000000 Binary files a/pics/86361354.jpg and /dev/null differ diff --git a/pics/86396750.jpg b/pics/86396750.jpg deleted file mode 100644 index 59e4f5da..00000000 Binary files a/pics/86396750.jpg and /dev/null differ diff --git a/pics/86421986.jpg b/pics/86421986.jpg deleted file mode 100644 index 0a7f34dd..00000000 Binary files a/pics/86421986.jpg and /dev/null differ diff --git a/pics/8643186.jpg b/pics/8643186.jpg deleted file mode 100755 index 4086348a..00000000 Binary files a/pics/8643186.jpg and /dev/null differ diff --git a/pics/86442081.jpg b/pics/86442081.jpg deleted file mode 100644 index 6ef542e9..00000000 Binary files a/pics/86442081.jpg and /dev/null differ diff --git a/pics/86445415.jpg b/pics/86445415.jpg deleted file mode 100644 index 911cff51..00000000 Binary files a/pics/86445415.jpg and /dev/null differ diff --git a/pics/86466163.jpg b/pics/86466163.jpg deleted file mode 100644 index 8e848d19..00000000 Binary files a/pics/86466163.jpg and /dev/null differ diff --git a/pics/86474024.jpg b/pics/86474024.jpg deleted file mode 100644 index a9d2f7b6..00000000 Binary files a/pics/86474024.jpg and /dev/null differ diff --git a/pics/86489182.jpg b/pics/86489182.jpg deleted file mode 100644 index 507a9105..00000000 Binary files a/pics/86489182.jpg and /dev/null differ diff --git a/pics/8649148.jpg b/pics/8649148.jpg deleted file mode 100644 index f88cf0c8..00000000 Binary files a/pics/8649148.jpg and /dev/null differ diff --git a/pics/86498013.jpg b/pics/86498013.jpg deleted file mode 100644 index 512c0f7b..00000000 Binary files a/pics/86498013.jpg and /dev/null differ diff --git a/pics/86516889.jpg b/pics/86516889.jpg deleted file mode 100644 index 0666d612..00000000 Binary files a/pics/86516889.jpg and /dev/null differ diff --git a/pics/86532744.jpg b/pics/86532744.jpg deleted file mode 100644 index 757e1537..00000000 Binary files a/pics/86532744.jpg and /dev/null differ diff --git a/pics/86541496.jpg b/pics/86541496.jpg deleted file mode 100755 index b98c1cb9..00000000 Binary files a/pics/86541496.jpg and /dev/null differ diff --git a/pics/86555018.jpg b/pics/86555018.jpg deleted file mode 100644 index 36d81876..00000000 Binary files a/pics/86555018.jpg and /dev/null differ diff --git a/pics/86559484.jpg b/pics/86559484.jpg deleted file mode 100644 index 226478aa..00000000 Binary files a/pics/86559484.jpg and /dev/null differ diff --git a/pics/86569121.jpg b/pics/86569121.jpg deleted file mode 100644 index d4a79bdc..00000000 Binary files a/pics/86569121.jpg and /dev/null differ diff --git a/pics/86585274.jpg b/pics/86585274.jpg deleted file mode 100644 index 2e237474..00000000 Binary files a/pics/86585274.jpg and /dev/null differ diff --git a/pics/86652646.jpg b/pics/86652646.jpg deleted file mode 100644 index 6b43e848..00000000 Binary files a/pics/86652646.jpg and /dev/null differ diff --git a/pics/86676862.jpg b/pics/86676862.jpg deleted file mode 100644 index 13f4f7aa..00000000 Binary files a/pics/86676862.jpg and /dev/null differ diff --git a/pics/86686671.jpg b/pics/86686671.jpg deleted file mode 100644 index 9bf01a15..00000000 Binary files a/pics/86686671.jpg and /dev/null differ diff --git a/pics/86690572.jpg b/pics/86690572.jpg deleted file mode 100644 index 3d16f38f..00000000 Binary files a/pics/86690572.jpg and /dev/null differ diff --git a/pics/86742443.jpg b/pics/86742443.jpg deleted file mode 100644 index d332b2f7..00000000 Binary files a/pics/86742443.jpg and /dev/null differ diff --git a/pics/86767655.jpg b/pics/86767655.jpg deleted file mode 100644 index 2e465b4b..00000000 Binary files a/pics/86767655.jpg and /dev/null differ diff --git a/pics/86778566.jpg b/pics/86778566.jpg deleted file mode 100644 index 3a232222..00000000 Binary files a/pics/86778566.jpg and /dev/null differ diff --git a/pics/86780027.jpg b/pics/86780027.jpg deleted file mode 100644 index 594d73cd..00000000 Binary files a/pics/86780027.jpg and /dev/null differ diff --git a/pics/86801871.jpg b/pics/86801871.jpg deleted file mode 100644 index e0b1736f..00000000 Binary files a/pics/86801871.jpg and /dev/null differ diff --git a/pics/86801872.jpg b/pics/86801872.jpg deleted file mode 100644 index e38aa66f..00000000 Binary files a/pics/86801872.jpg and /dev/null differ diff --git a/pics/86804246.jpg b/pics/86804246.jpg deleted file mode 100644 index 9734e802..00000000 Binary files a/pics/86804246.jpg and /dev/null differ diff --git a/pics/86805855.jpg b/pics/86805855.jpg deleted file mode 100644 index cebe1f34..00000000 Binary files a/pics/86805855.jpg and /dev/null differ diff --git a/pics/86821010.jpg b/pics/86821010.jpg deleted file mode 100644 index f39aee67..00000000 Binary files a/pics/86821010.jpg and /dev/null differ diff --git a/pics/86825483.jpg b/pics/86825483.jpg deleted file mode 100644 index 14643b83..00000000 Binary files a/pics/86825483.jpg and /dev/null differ diff --git a/pics/86827882.jpg b/pics/86827882.jpg deleted file mode 100644 index 43eaa195..00000000 Binary files a/pics/86827882.jpg and /dev/null differ diff --git a/pics/86840720.jpg b/pics/86840720.jpg deleted file mode 100644 index e349289f..00000000 Binary files a/pics/86840720.jpg and /dev/null differ diff --git a/pics/86848580.jpg b/pics/86848580.jpg deleted file mode 100644 index 6759b48d..00000000 Binary files a/pics/86848580.jpg and /dev/null differ diff --git a/pics/86868952.jpg b/pics/86868952.jpg deleted file mode 100644 index 592acdc8..00000000 Binary files a/pics/86868952.jpg and /dev/null differ diff --git a/pics/86871614.jpg b/pics/86871614.jpg deleted file mode 100644 index 16d1e37a..00000000 Binary files a/pics/86871614.jpg and /dev/null differ diff --git a/pics/86871615.jpg b/pics/86871615.jpg deleted file mode 100644 index 8ff100b5..00000000 Binary files a/pics/86871615.jpg and /dev/null differ diff --git a/pics/8687195.jpg b/pics/8687195.jpg deleted file mode 100644 index 19eb1dec..00000000 Binary files a/pics/8687195.jpg and /dev/null differ diff --git a/pics/86889202.jpg b/pics/86889202.jpg deleted file mode 100644 index 41d030bd..00000000 Binary files a/pics/86889202.jpg and /dev/null differ diff --git a/pics/86915847.jpg b/pics/86915847.jpg deleted file mode 100644 index 8e2e2c3f..00000000 Binary files a/pics/86915847.jpg and /dev/null differ diff --git a/pics/8692301.jpg b/pics/8692301.jpg deleted file mode 100644 index 427bd6dd..00000000 Binary files a/pics/8692301.jpg and /dev/null differ diff --git a/pics/86952477.jpg b/pics/86952477.jpg deleted file mode 100644 index 18d46bea..00000000 Binary files a/pics/86952477.jpg and /dev/null differ diff --git a/pics/8696773.jpg b/pics/8696773.jpg deleted file mode 100644 index 7036ac35..00000000 Binary files a/pics/8696773.jpg and /dev/null differ diff --git a/pics/8698851.jpg b/pics/8698851.jpg deleted file mode 100644 index 509f4a7d..00000000 Binary files a/pics/8698851.jpg and /dev/null differ diff --git a/pics/86988864.jpg b/pics/86988864.jpg deleted file mode 100644 index 7c86c097..00000000 Binary files a/pics/86988864.jpg and /dev/null differ diff --git a/pics/86997073.jpg b/pics/86997073.jpg deleted file mode 100644 index 1a4b34b5..00000000 Binary files a/pics/86997073.jpg and /dev/null differ diff --git a/pics/87008374.jpg b/pics/87008374.jpg deleted file mode 100644 index 3565c267..00000000 Binary files a/pics/87008374.jpg and /dev/null differ diff --git a/pics/87010442.jpg b/pics/87010442.jpg deleted file mode 100644 index e99ad29a..00000000 Binary files a/pics/87010442.jpg and /dev/null differ diff --git a/pics/87025064.jpg b/pics/87025064.jpg deleted file mode 100644 index 138e09ca..00000000 Binary files a/pics/87025064.jpg and /dev/null differ diff --git a/pics/87043568.jpg b/pics/87043568.jpg deleted file mode 100644 index 300930ad..00000000 Binary files a/pics/87043568.jpg and /dev/null differ diff --git a/pics/87046457.jpg b/pics/87046457.jpg deleted file mode 100644 index 8b3073c4..00000000 Binary files a/pics/87046457.jpg and /dev/null differ diff --git a/pics/87047074.jpg b/pics/87047074.jpg deleted file mode 100644 index 1df0b4b0..00000000 Binary files a/pics/87047074.jpg and /dev/null differ diff --git a/pics/87047161.jpg b/pics/87047161.jpg deleted file mode 100644 index c7ba9df1..00000000 Binary files a/pics/87047161.jpg and /dev/null differ diff --git a/pics/87102774.jpg b/pics/87102774.jpg deleted file mode 100644 index d7a40053..00000000 Binary files a/pics/87102774.jpg and /dev/null differ diff --git a/pics/87106146.jpg b/pics/87106146.jpg deleted file mode 100644 index 1bb5d3f4..00000000 Binary files a/pics/87106146.jpg and /dev/null differ diff --git a/pics/87118301.jpg b/pics/87118301.jpg deleted file mode 100644 index 0b4dfe7b..00000000 Binary files a/pics/87118301.jpg and /dev/null differ diff --git a/pics/87148330.jpg b/pics/87148330.jpg deleted file mode 100644 index a5bc045b..00000000 Binary files a/pics/87148330.jpg and /dev/null differ diff --git a/pics/87151205.jpg b/pics/87151205.jpg deleted file mode 100644 index 81467bb2..00000000 Binary files a/pics/87151205.jpg and /dev/null differ diff --git a/pics/8715625.jpg b/pics/8715625.jpg deleted file mode 100644 index 26989e0e..00000000 Binary files a/pics/8715625.jpg and /dev/null differ diff --git a/pics/8719957.jpg b/pics/8719957.jpg deleted file mode 100644 index 2229569f..00000000 Binary files a/pics/8719957.jpg and /dev/null differ diff --git a/pics/87210505.jpg b/pics/87210505.jpg deleted file mode 100644 index c8a83a23..00000000 Binary files a/pics/87210505.jpg and /dev/null differ diff --git a/pics/87255382.jpg b/pics/87255382.jpg deleted file mode 100644 index a8d2b61a..00000000 Binary files a/pics/87255382.jpg and /dev/null differ diff --git a/pics/87257460.jpg b/pics/87257460.jpg deleted file mode 100644 index d500991d..00000000 Binary files a/pics/87257460.jpg and /dev/null differ diff --git a/pics/87259077.jpg b/pics/87259077.jpg deleted file mode 100644 index ff61b1d7..00000000 Binary files a/pics/87259077.jpg and /dev/null differ diff --git a/pics/87259933.jpg b/pics/87259933.jpg deleted file mode 100644 index 01e69640..00000000 Binary files a/pics/87259933.jpg and /dev/null differ diff --git a/pics/87288189.jpg b/pics/87288189.jpg deleted file mode 100644 index aa5de721..00000000 Binary files a/pics/87288189.jpg and /dev/null differ diff --git a/pics/87292536.jpg b/pics/87292536.jpg deleted file mode 100644 index bd0027db..00000000 Binary files a/pics/87292536.jpg and /dev/null differ diff --git a/pics/87294988.jpg b/pics/87294988.jpg deleted file mode 100644 index 0031fd09..00000000 Binary files a/pics/87294988.jpg and /dev/null differ diff --git a/pics/87303357.jpg b/pics/87303357.jpg deleted file mode 100644 index cea23a12..00000000 Binary files a/pics/87303357.jpg and /dev/null differ diff --git a/pics/8730435.jpg b/pics/8730435.jpg deleted file mode 100644 index 2cec5bda..00000000 Binary files a/pics/8730435.jpg and /dev/null differ diff --git a/pics/87313164.jpg b/pics/87313164.jpg deleted file mode 100644 index f5e88cf6..00000000 Binary files a/pics/87313164.jpg and /dev/null differ diff --git a/pics/87319876.jpg b/pics/87319876.jpg deleted file mode 100644 index bf87a4df..00000000 Binary files a/pics/87319876.jpg and /dev/null differ diff --git a/pics/87322377.jpg b/pics/87322377.jpg deleted file mode 100644 index 41af7481..00000000 Binary files a/pics/87322377.jpg and /dev/null differ diff --git a/pics/87322378.jpg b/pics/87322378.jpg deleted file mode 100644 index 054cccc6..00000000 Binary files a/pics/87322378.jpg and /dev/null differ diff --git a/pics/87340664.jpg b/pics/87340664.jpg deleted file mode 100644 index 4211a0f0..00000000 Binary files a/pics/87340664.jpg and /dev/null differ diff --git a/pics/87347365.jpg b/pics/87347365.jpg deleted file mode 100644 index 991c9ff2..00000000 Binary files a/pics/87347365.jpg and /dev/null differ diff --git a/pics/87350908.jpg b/pics/87350908.jpg deleted file mode 100644 index e8c57984..00000000 Binary files a/pics/87350908.jpg and /dev/null differ diff --git a/pics/87390067.jpg b/pics/87390067.jpg deleted file mode 100644 index 8640bdcf..00000000 Binary files a/pics/87390067.jpg and /dev/null differ diff --git a/pics/87430304.jpg b/pics/87430304.jpg deleted file mode 100644 index 8628cbb9..00000000 Binary files a/pics/87430304.jpg and /dev/null differ diff --git a/pics/87430998.jpg b/pics/87430998.jpg deleted file mode 100644 index defb5c2d..00000000 Binary files a/pics/87430998.jpg and /dev/null differ diff --git a/pics/87473172.jpg b/pics/87473172.jpg deleted file mode 100644 index 579fc02c..00000000 Binary files a/pics/87473172.jpg and /dev/null differ diff --git a/pics/87475570.jpg b/pics/87475570.jpg deleted file mode 100644 index 60899da6..00000000 Binary files a/pics/87475570.jpg and /dev/null differ diff --git a/pics/87483942.jpg b/pics/87483942.jpg deleted file mode 100644 index afe3c8e6..00000000 Binary files a/pics/87483942.jpg and /dev/null differ diff --git a/pics/87511987.jpg b/pics/87511987.jpg deleted file mode 100644 index 087f4847..00000000 Binary files a/pics/87511987.jpg and /dev/null differ diff --git a/pics/87514539.jpg b/pics/87514539.jpg deleted file mode 100644 index 64c36e4b..00000000 Binary files a/pics/87514539.jpg and /dev/null differ diff --git a/pics/87523462.jpg b/pics/87523462.jpg deleted file mode 100644 index 28cd641e..00000000 Binary files a/pics/87523462.jpg and /dev/null differ diff --git a/pics/87526784.jpg b/pics/87526784.jpg deleted file mode 100644 index f829493b..00000000 Binary files a/pics/87526784.jpg and /dev/null differ diff --git a/pics/87535691.jpg b/pics/87535691.jpg deleted file mode 100644 index d40584f4..00000000 Binary files a/pics/87535691.jpg and /dev/null differ diff --git a/pics/87557188.jpg b/pics/87557188.jpg deleted file mode 100644 index 311719bb..00000000 Binary files a/pics/87557188.jpg and /dev/null differ diff --git a/pics/87564352.jpg b/pics/87564352.jpg deleted file mode 100644 index dad98c98..00000000 Binary files a/pics/87564352.jpg and /dev/null differ diff --git a/pics/87564935.jpg b/pics/87564935.jpg deleted file mode 100644 index 81b8b2a6..00000000 Binary files a/pics/87564935.jpg and /dev/null differ diff --git a/pics/87567063.jpg b/pics/87567063.jpg deleted file mode 100755 index 93128651..00000000 Binary files a/pics/87567063.jpg and /dev/null differ diff --git a/pics/87588741.jpg b/pics/87588741.jpg deleted file mode 100644 index 5c977aac..00000000 Binary files a/pics/87588741.jpg and /dev/null differ diff --git a/pics/87602890.jpg b/pics/87602890.jpg deleted file mode 100644 index da5d58a9..00000000 Binary files a/pics/87602890.jpg and /dev/null differ diff --git a/pics/87608852.jpg b/pics/87608852.jpg deleted file mode 100644 index 50927810..00000000 Binary files a/pics/87608852.jpg and /dev/null differ diff --git a/pics/87609391.jpg b/pics/87609391.jpg deleted file mode 100644 index 3e8bc313..00000000 Binary files a/pics/87609391.jpg and /dev/null differ diff --git a/pics/87614611.jpg b/pics/87614611.jpg deleted file mode 100644 index fd8a39e7..00000000 Binary files a/pics/87614611.jpg and /dev/null differ diff --git a/pics/87621407.jpg b/pics/87621407.jpg deleted file mode 100644 index 749feea1..00000000 Binary files a/pics/87621407.jpg and /dev/null differ diff --git a/pics/87622767.jpg b/pics/87622767.jpg deleted file mode 100644 index 5abb93d2..00000000 Binary files a/pics/87622767.jpg and /dev/null differ diff --git a/pics/87624166.jpg b/pics/87624166.jpg deleted file mode 100644 index 58f684c3..00000000 Binary files a/pics/87624166.jpg and /dev/null differ diff --git a/pics/876330.jpg b/pics/876330.jpg deleted file mode 100644 index 2378daba..00000000 Binary files a/pics/876330.jpg and /dev/null differ diff --git a/pics/8763963.jpg b/pics/8763963.jpg deleted file mode 100644 index 482aac3a..00000000 Binary files a/pics/8763963.jpg and /dev/null differ diff --git a/pics/87649699.jpg b/pics/87649699.jpg deleted file mode 100644 index 7c196ca5..00000000 Binary files a/pics/87649699.jpg and /dev/null differ diff --git a/pics/87685879.jpg b/pics/87685879.jpg deleted file mode 100644 index 52ee058c..00000000 Binary files a/pics/87685879.jpg and /dev/null differ diff --git a/pics/87751584.jpg b/pics/87751584.jpg deleted file mode 100644 index 61a969f2..00000000 Binary files a/pics/87751584.jpg and /dev/null differ diff --git a/pics/87756343.jpg b/pics/87756343.jpg deleted file mode 100644 index 49e512ad..00000000 Binary files a/pics/87756343.jpg and /dev/null differ diff --git a/pics/87772572.jpg b/pics/87772572.jpg deleted file mode 100644 index 505f8c21..00000000 Binary files a/pics/87772572.jpg and /dev/null differ diff --git a/pics/87774234.jpg b/pics/87774234.jpg deleted file mode 100644 index d343d674..00000000 Binary files a/pics/87774234.jpg and /dev/null differ diff --git a/pics/87796900.jpg b/pics/87796900.jpg deleted file mode 100644 index 0f520ae7..00000000 Binary files a/pics/87796900.jpg and /dev/null differ diff --git a/pics/87798440.jpg b/pics/87798440.jpg deleted file mode 100644 index 9e13f954..00000000 Binary files a/pics/87798440.jpg and /dev/null differ diff --git a/pics/87819421.jpg b/pics/87819421.jpg deleted file mode 100644 index dbb46202..00000000 Binary files a/pics/87819421.jpg and /dev/null differ diff --git a/pics/8783685.jpg b/pics/8783685.jpg deleted file mode 100644 index 529f3e01..00000000 Binary files a/pics/8783685.jpg and /dev/null differ diff --git a/pics/87836938.jpg b/pics/87836938.jpg deleted file mode 100644 index 1a42ad3d..00000000 Binary files a/pics/87836938.jpg and /dev/null differ diff --git a/pics/8785161.jpg b/pics/8785161.jpg deleted file mode 100644 index 83842174..00000000 Binary files a/pics/8785161.jpg and /dev/null differ diff --git a/pics/87880531.jpg b/pics/87880531.jpg deleted file mode 100644 index e9837314..00000000 Binary files a/pics/87880531.jpg and /dev/null differ diff --git a/pics/87890143.jpg b/pics/87890143.jpg deleted file mode 100644 index ebc96baa..00000000 Binary files a/pics/87890143.jpg and /dev/null differ diff --git a/pics/87902575.jpg b/pics/87902575.jpg deleted file mode 100644 index b54a9d7f..00000000 Binary files a/pics/87902575.jpg and /dev/null differ diff --git a/pics/87910978.jpg b/pics/87910978.jpg deleted file mode 100644 index b84795ff..00000000 Binary files a/pics/87910978.jpg and /dev/null differ diff --git a/pics/87911394.jpg b/pics/87911394.jpg deleted file mode 100644 index 125c40cf..00000000 Binary files a/pics/87911394.jpg and /dev/null differ diff --git a/pics/8794435.jpg b/pics/8794435.jpg deleted file mode 100644 index ccad5bcf..00000000 Binary files a/pics/8794435.jpg and /dev/null differ diff --git a/pics/87973893.jpg b/pics/87973893.jpg deleted file mode 100644 index c30c281e..00000000 Binary files a/pics/87973893.jpg and /dev/null differ diff --git a/pics/87978805.jpg b/pics/87978805.jpg deleted file mode 100644 index 2636349c..00000000 Binary files a/pics/87978805.jpg and /dev/null differ diff --git a/pics/87997872.jpg b/pics/87997872.jpg deleted file mode 100644 index d750d108..00000000 Binary files a/pics/87997872.jpg and /dev/null differ diff --git a/pics/88032368.jpg b/pics/88032368.jpg deleted file mode 100644 index f529d155..00000000 Binary files a/pics/88032368.jpg and /dev/null differ diff --git a/pics/88032456.jpg b/pics/88032456.jpg deleted file mode 100755 index d721918d..00000000 Binary files a/pics/88032456.jpg and /dev/null differ diff --git a/pics/88033975.jpg b/pics/88033975.jpg deleted file mode 100644 index 061aeaf3..00000000 Binary files a/pics/88033975.jpg and /dev/null differ diff --git a/pics/8806072.jpg b/pics/8806072.jpg deleted file mode 100644 index 8d1f3628..00000000 Binary files a/pics/8806072.jpg and /dev/null differ diff --git a/pics/88069166.jpg b/pics/88069166.jpg deleted file mode 100644 index 3f29c77c..00000000 Binary files a/pics/88069166.jpg and /dev/null differ diff --git a/pics/88071625.jpg b/pics/88071625.jpg deleted file mode 100644 index b8000ca9..00000000 Binary files a/pics/88071625.jpg and /dev/null differ diff --git a/pics/88089103.jpg b/pics/88089103.jpg deleted file mode 100644 index 1a9c12b0..00000000 Binary files a/pics/88089103.jpg and /dev/null differ diff --git a/pics/8809344.jpg b/pics/8809344.jpg deleted file mode 100644 index f451c7ff..00000000 Binary files a/pics/8809344.jpg and /dev/null differ diff --git a/pics/88095331.jpg b/pics/88095331.jpg deleted file mode 100644 index 443475b4..00000000 Binary files a/pics/88095331.jpg and /dev/null differ diff --git a/pics/88120966.jpg b/pics/88120966.jpg deleted file mode 100644 index 8368969d..00000000 Binary files a/pics/88120966.jpg and /dev/null differ diff --git a/pics/88123329.jpg b/pics/88123329.jpg deleted file mode 100644 index 5b815780..00000000 Binary files a/pics/88123329.jpg and /dev/null differ diff --git a/pics/88132637.jpg b/pics/88132637.jpg deleted file mode 100644 index b0c889fa..00000000 Binary files a/pics/88132637.jpg and /dev/null differ diff --git a/pics/8814959.jpg b/pics/8814959.jpg deleted file mode 100644 index cd48e8ad..00000000 Binary files a/pics/8814959.jpg and /dev/null differ diff --git a/pics/88177324.jpg b/pics/88177324.jpg deleted file mode 100644 index deec214b..00000000 Binary files a/pics/88177324.jpg and /dev/null differ diff --git a/pics/88190453.jpg b/pics/88190453.jpg deleted file mode 100644 index 1a6ccddd..00000000 Binary files a/pics/88190453.jpg and /dev/null differ diff --git a/pics/88190790.jpg b/pics/88190790.jpg deleted file mode 100644 index 1768d184..00000000 Binary files a/pics/88190790.jpg and /dev/null differ diff --git a/pics/88197162.jpg b/pics/88197162.jpg deleted file mode 100644 index cfbe603b..00000000 Binary files a/pics/88197162.jpg and /dev/null differ diff --git a/pics/88204302.jpg b/pics/88204302.jpg deleted file mode 100755 index f7a04bc1..00000000 Binary files a/pics/88204302.jpg and /dev/null differ diff --git a/pics/88205593.jpg b/pics/88205593.jpg deleted file mode 100644 index e8186388..00000000 Binary files a/pics/88205593.jpg and /dev/null differ diff --git a/pics/8822710.jpg b/pics/8822710.jpg deleted file mode 100644 index fc656cf9..00000000 Binary files a/pics/8822710.jpg and /dev/null differ diff --git a/pics/88236094.jpg b/pics/88236094.jpg deleted file mode 100644 index 4bbb3fb5..00000000 Binary files a/pics/88236094.jpg and /dev/null differ diff --git a/pics/88240808.jpg b/pics/88240808.jpg deleted file mode 100644 index 558bc432..00000000 Binary files a/pics/88240808.jpg and /dev/null differ diff --git a/pics/88240999.jpg b/pics/88240999.jpg deleted file mode 100644 index 53bd7c6f..00000000 Binary files a/pics/88240999.jpg and /dev/null differ diff --git a/pics/88241506.jpg b/pics/88241506.jpg deleted file mode 100644 index 8775045e..00000000 Binary files a/pics/88241506.jpg and /dev/null differ diff --git a/pics/88264978.jpg b/pics/88264978.jpg deleted file mode 100644 index 2d280b37..00000000 Binary files a/pics/88264978.jpg and /dev/null differ diff --git a/pics/88279736.jpg b/pics/88279736.jpg deleted file mode 100644 index 10568e34..00000000 Binary files a/pics/88279736.jpg and /dev/null differ diff --git a/pics/88283496.jpg b/pics/88283496.jpg deleted file mode 100644 index d5a90cfe..00000000 Binary files a/pics/88283496.jpg and /dev/null differ diff --git a/pics/88289295.jpg b/pics/88289295.jpg deleted file mode 100644 index a1957758..00000000 Binary files a/pics/88289295.jpg and /dev/null differ diff --git a/pics/88301393.jpg b/pics/88301393.jpg deleted file mode 100644 index 63e6d526..00000000 Binary files a/pics/88301393.jpg and /dev/null differ diff --git a/pics/88301833.jpg b/pics/88301833.jpg deleted file mode 100644 index ba1ab2e9..00000000 Binary files a/pics/88301833.jpg and /dev/null differ diff --git a/pics/88305978.jpg b/pics/88305978.jpg deleted file mode 100644 index 0f229ce4..00000000 Binary files a/pics/88305978.jpg and /dev/null differ diff --git a/pics/88307361.jpg b/pics/88307361.jpg deleted file mode 100644 index 320ac81a..00000000 Binary files a/pics/88307361.jpg and /dev/null differ diff --git a/pics/88341502.jpg b/pics/88341502.jpg deleted file mode 100644 index ac9db81e..00000000 Binary files a/pics/88341502.jpg and /dev/null differ diff --git a/pics/88358139.jpg b/pics/88358139.jpg deleted file mode 100644 index fe022432..00000000 Binary files a/pics/88358139.jpg and /dev/null differ diff --git a/pics/88361177.jpg b/pics/88361177.jpg deleted file mode 100644 index 0dbfff62..00000000 Binary files a/pics/88361177.jpg and /dev/null differ diff --git a/pics/88369727.jpg b/pics/88369727.jpg deleted file mode 100644 index 13f23059..00000000 Binary files a/pics/88369727.jpg and /dev/null differ diff --git a/pics/88409165.jpg b/pics/88409165.jpg deleted file mode 100644 index 82771fbf..00000000 Binary files a/pics/88409165.jpg and /dev/null differ diff --git a/pics/8842266.jpg b/pics/8842266.jpg deleted file mode 100644 index 93d1cc58..00000000 Binary files a/pics/8842266.jpg and /dev/null differ diff --git a/pics/88435542.jpg b/pics/88435542.jpg deleted file mode 100644 index 6a097418..00000000 Binary files a/pics/88435542.jpg and /dev/null differ diff --git a/pics/88438982.jpg b/pics/88438982.jpg deleted file mode 100644 index 2d811b2f..00000000 Binary files a/pics/88438982.jpg and /dev/null differ diff --git a/pics/88472456.jpg b/pics/88472456.jpg deleted file mode 100644 index 1829d78e..00000000 Binary files a/pics/88472456.jpg and /dev/null differ diff --git a/pics/88482761.jpg b/pics/88482761.jpg deleted file mode 100755 index 1f0f55ee..00000000 Binary files a/pics/88482761.jpg and /dev/null differ diff --git a/pics/88494120.jpg b/pics/88494120.jpg deleted file mode 100644 index 6da8c460..00000000 Binary files a/pics/88494120.jpg and /dev/null differ diff --git a/pics/88494899.jpg b/pics/88494899.jpg deleted file mode 100644 index a25cee0d..00000000 Binary files a/pics/88494899.jpg and /dev/null differ diff --git a/pics/88513608.jpg b/pics/88513608.jpg deleted file mode 100644 index 074cc641..00000000 Binary files a/pics/88513608.jpg and /dev/null differ diff --git a/pics/88552992.jpg b/pics/88552992.jpg deleted file mode 100644 index 093c45eb..00000000 Binary files a/pics/88552992.jpg and /dev/null differ diff --git a/pics/88559132.jpg b/pics/88559132.jpg deleted file mode 100644 index cb2f8257..00000000 Binary files a/pics/88559132.jpg and /dev/null differ diff --git a/pics/88610708.jpg b/pics/88610708.jpg deleted file mode 100644 index b1a92ed0..00000000 Binary files a/pics/88610708.jpg and /dev/null differ diff --git a/pics/88616795.jpg b/pics/88616795.jpg deleted file mode 100644 index 7ab43e5a..00000000 Binary files a/pics/88616795.jpg and /dev/null differ diff --git a/pics/88619463.jpg b/pics/88619463.jpg deleted file mode 100644 index c81c42ef..00000000 Binary files a/pics/88619463.jpg and /dev/null differ diff --git a/pics/88643173.jpg b/pics/88643173.jpg deleted file mode 100644 index a6851375..00000000 Binary files a/pics/88643173.jpg and /dev/null differ diff --git a/pics/88643579.jpg b/pics/88643579.jpg deleted file mode 100644 index 84f9b845..00000000 Binary files a/pics/88643579.jpg and /dev/null differ diff --git a/pics/88650530.jpg b/pics/88650530.jpg deleted file mode 100644 index dbfeae69..00000000 Binary files a/pics/88650530.jpg and /dev/null differ diff --git a/pics/88671720.jpg b/pics/88671720.jpg deleted file mode 100644 index c1315800..00000000 Binary files a/pics/88671720.jpg and /dev/null differ diff --git a/pics/88686573.jpg b/pics/88686573.jpg deleted file mode 100644 index 8ddb2b8d..00000000 Binary files a/pics/88686573.jpg and /dev/null differ diff --git a/pics/88696724.jpg b/pics/88696724.jpg deleted file mode 100644 index ad1316b8..00000000 Binary files a/pics/88696724.jpg and /dev/null differ diff --git a/pics/88722973.jpg b/pics/88722973.jpg deleted file mode 100644 index 9648c121..00000000 Binary files a/pics/88722973.jpg and /dev/null differ diff --git a/pics/88724332.jpg b/pics/88724332.jpg deleted file mode 100644 index ab7c1b89..00000000 Binary files a/pics/88724332.jpg and /dev/null differ diff --git a/pics/88728507.jpg b/pics/88728507.jpg deleted file mode 100644 index ddbd67b7..00000000 Binary files a/pics/88728507.jpg and /dev/null differ diff --git a/pics/8873112.jpg b/pics/8873112.jpg deleted file mode 100644 index 6210950b..00000000 Binary files a/pics/8873112.jpg and /dev/null differ diff --git a/pics/88733579.jpg b/pics/88733579.jpg deleted file mode 100644 index 5cbdfc23..00000000 Binary files a/pics/88733579.jpg and /dev/null differ diff --git a/pics/88753985.jpg b/pics/88753985.jpg deleted file mode 100644 index e17787c0..00000000 Binary files a/pics/88753985.jpg and /dev/null differ diff --git a/pics/88754763.jpg b/pics/88754763.jpg deleted file mode 100644 index 8b966c18..00000000 Binary files a/pics/88754763.jpg and /dev/null differ diff --git a/pics/88757791.jpg b/pics/88757791.jpg deleted file mode 100644 index ae0d6448..00000000 Binary files a/pics/88757791.jpg and /dev/null differ diff --git a/pics/8875971.jpg b/pics/8875971.jpg deleted file mode 100644 index a2b11ab1..00000000 Binary files a/pics/8875971.jpg and /dev/null differ diff --git a/pics/88760522.jpg b/pics/88760522.jpg deleted file mode 100644 index a344dabe..00000000 Binary files a/pics/88760522.jpg and /dev/null differ diff --git a/pics/88789641.jpg b/pics/88789641.jpg deleted file mode 100644 index 33a14d71..00000000 Binary files a/pics/88789641.jpg and /dev/null differ diff --git a/pics/88819587.jpg b/pics/88819587.jpg deleted file mode 100644 index 780ae839..00000000 Binary files a/pics/88819587.jpg and /dev/null differ diff --git a/pics/88820235.jpg b/pics/88820235.jpg deleted file mode 100644 index b2d45e41..00000000 Binary files a/pics/88820235.jpg and /dev/null differ diff --git a/pics/88845345.jpg b/pics/88845345.jpg deleted file mode 100644 index c92e9ad6..00000000 Binary files a/pics/88845345.jpg and /dev/null differ diff --git a/pics/88901771.jpg b/pics/88901771.jpg deleted file mode 100644 index 2c29d9b4..00000000 Binary files a/pics/88901771.jpg and /dev/null differ diff --git a/pics/88928798.jpg b/pics/88928798.jpg deleted file mode 100644 index e751e967..00000000 Binary files a/pics/88928798.jpg and /dev/null differ diff --git a/pics/88935103.jpg b/pics/88935103.jpg deleted file mode 100644 index 94812980..00000000 Binary files a/pics/88935103.jpg and /dev/null differ diff --git a/pics/88940154.jpg b/pics/88940154.jpg deleted file mode 100644 index d2c56c69..00000000 Binary files a/pics/88940154.jpg and /dev/null differ diff --git a/pics/88942504.jpg b/pics/88942504.jpg deleted file mode 100644 index e915a6f9..00000000 Binary files a/pics/88942504.jpg and /dev/null differ diff --git a/pics/88958576.jpg b/pics/88958576.jpg deleted file mode 100644 index eaa4c415..00000000 Binary files a/pics/88958576.jpg and /dev/null differ diff --git a/pics/88975532.jpg b/pics/88975532.jpg deleted file mode 100644 index 4f8ebcee..00000000 Binary files a/pics/88975532.jpg and /dev/null differ diff --git a/pics/88979991.jpg b/pics/88979991.jpg deleted file mode 100644 index a8fbef8d..00000000 Binary files a/pics/88979991.jpg and /dev/null differ diff --git a/pics/88989706.jpg b/pics/88989706.jpg deleted file mode 100644 index bacdfd4b..00000000 Binary files a/pics/88989706.jpg and /dev/null differ diff --git a/pics/8903700.jpg b/pics/8903700.jpg deleted file mode 100644 index 27a3e7ea..00000000 Binary files a/pics/8903700.jpg and /dev/null differ diff --git a/pics/89040386.jpg b/pics/89040386.jpg deleted file mode 100644 index ace0acee..00000000 Binary files a/pics/89040386.jpg and /dev/null differ diff --git a/pics/89041555.jpg b/pics/89041555.jpg deleted file mode 100644 index 478574e8..00000000 Binary files a/pics/89041555.jpg and /dev/null differ diff --git a/pics/89086566.jpg b/pics/89086566.jpg deleted file mode 100644 index 13026301..00000000 Binary files a/pics/89086566.jpg and /dev/null differ diff --git a/pics/89091579.jpg b/pics/89091579.jpg deleted file mode 100644 index d1c1f63d..00000000 Binary files a/pics/89091579.jpg and /dev/null differ diff --git a/pics/89091772.jpg b/pics/89091772.jpg deleted file mode 100755 index dc79e7de..00000000 Binary files a/pics/89091772.jpg and /dev/null differ diff --git a/pics/89111398.jpg b/pics/89111398.jpg deleted file mode 100644 index 59c3e048..00000000 Binary files a/pics/89111398.jpg and /dev/null differ diff --git a/pics/89112729.jpg b/pics/89112729.jpg deleted file mode 100644 index 01c61bbb..00000000 Binary files a/pics/89112729.jpg and /dev/null differ diff --git a/pics/89113320.jpg b/pics/89113320.jpg deleted file mode 100755 index 5a140f4d..00000000 Binary files a/pics/89113320.jpg and /dev/null differ diff --git a/pics/89127526.jpg b/pics/89127526.jpg deleted file mode 100644 index ec124b9d..00000000 Binary files a/pics/89127526.jpg and /dev/null differ diff --git a/pics/89181369.jpg b/pics/89181369.jpg deleted file mode 100644 index ee997f9f..00000000 Binary files a/pics/89181369.jpg and /dev/null differ diff --git a/pics/89185742.jpg b/pics/89185742.jpg deleted file mode 100644 index bb926581..00000000 Binary files a/pics/89185742.jpg and /dev/null differ diff --git a/pics/89189982.jpg b/pics/89189982.jpg deleted file mode 100644 index 6e21f2ac..00000000 Binary files a/pics/89189982.jpg and /dev/null differ diff --git a/pics/89194033.jpg b/pics/89194033.jpg deleted file mode 100644 index 8333974b..00000000 Binary files a/pics/89194033.jpg and /dev/null differ diff --git a/pics/89194103.jpg b/pics/89194103.jpg deleted file mode 100644 index d9f137a3..00000000 Binary files a/pics/89194103.jpg and /dev/null differ diff --git a/pics/89211486.jpg b/pics/89211486.jpg deleted file mode 100644 index 7ac66b99..00000000 Binary files a/pics/89211486.jpg and /dev/null differ diff --git a/pics/89222931.jpg b/pics/89222931.jpg deleted file mode 100644 index 493a72ee..00000000 Binary files a/pics/89222931.jpg and /dev/null differ diff --git a/pics/89235196.jpg b/pics/89235196.jpg deleted file mode 100644 index acd2424e..00000000 Binary files a/pics/89235196.jpg and /dev/null differ diff --git a/pics/89252153.jpg b/pics/89252153.jpg deleted file mode 100644 index 55a7ffd4..00000000 Binary files a/pics/89252153.jpg and /dev/null differ diff --git a/pics/89252157.jpg b/pics/89252157.jpg deleted file mode 100644 index 89492126..00000000 Binary files a/pics/89252157.jpg and /dev/null differ diff --git a/pics/89258225.jpg b/pics/89258225.jpg deleted file mode 100644 index f0db3db2..00000000 Binary files a/pics/89258225.jpg and /dev/null differ diff --git a/pics/89258906.jpg b/pics/89258906.jpg deleted file mode 100644 index f88fcce1..00000000 Binary files a/pics/89258906.jpg and /dev/null differ diff --git a/pics/89272878.jpg b/pics/89272878.jpg deleted file mode 100644 index 0dd0627c..00000000 Binary files a/pics/89272878.jpg and /dev/null differ diff --git a/pics/89310929.jpg b/pics/89310929.jpg deleted file mode 100644 index d470f5c5..00000000 Binary files a/pics/89310929.jpg and /dev/null differ diff --git a/pics/89312388.jpg b/pics/89312388.jpg deleted file mode 100644 index 0979ab2a..00000000 Binary files a/pics/89312388.jpg and /dev/null differ diff --git a/pics/89326990.jpg b/pics/89326990.jpg deleted file mode 100755 index 49232cf2..00000000 Binary files a/pics/89326990.jpg and /dev/null differ diff --git a/pics/89333528.jpg b/pics/89333528.jpg deleted file mode 100644 index fabaedb0..00000000 Binary files a/pics/89333528.jpg and /dev/null differ diff --git a/pics/89362180.jpg b/pics/89362180.jpg deleted file mode 100644 index d89089e8..00000000 Binary files a/pics/89362180.jpg and /dev/null differ diff --git a/pics/89386122.jpg b/pics/89386122.jpg deleted file mode 100644 index d1cde1dc..00000000 Binary files a/pics/89386122.jpg and /dev/null differ diff --git a/pics/89397517.jpg b/pics/89397517.jpg deleted file mode 100644 index 171f2a6d..00000000 Binary files a/pics/89397517.jpg and /dev/null differ diff --git a/pics/89399912.jpg b/pics/89399912.jpg deleted file mode 100644 index 8db793c0..00000000 Binary files a/pics/89399912.jpg and /dev/null differ diff --git a/pics/89405199.jpg b/pics/89405199.jpg deleted file mode 100644 index 0d001557..00000000 Binary files a/pics/89405199.jpg and /dev/null differ diff --git a/pics/89423971.jpg b/pics/89423971.jpg deleted file mode 100644 index 8a38a825..00000000 Binary files a/pics/89423971.jpg and /dev/null differ diff --git a/pics/8944575.jpg b/pics/8944575.jpg deleted file mode 100644 index 34c1c43c..00000000 Binary files a/pics/8944575.jpg and /dev/null differ diff --git a/pics/89463537.jpg b/pics/89463537.jpg deleted file mode 100644 index 4d54d9d0..00000000 Binary files a/pics/89463537.jpg and /dev/null differ diff --git a/pics/89474727.jpg b/pics/89474727.jpg deleted file mode 100644 index f6377666..00000000 Binary files a/pics/89474727.jpg and /dev/null differ diff --git a/pics/89493368.jpg b/pics/89493368.jpg deleted file mode 100644 index bc0d78f5..00000000 Binary files a/pics/89493368.jpg and /dev/null differ diff --git a/pics/89494469.jpg b/pics/89494469.jpg deleted file mode 100644 index 3d066e54..00000000 Binary files a/pics/89494469.jpg and /dev/null differ diff --git a/pics/8949584.jpg b/pics/8949584.jpg deleted file mode 100644 index 22701bfd..00000000 Binary files a/pics/8949584.jpg and /dev/null differ diff --git a/pics/8951260.jpg b/pics/8951260.jpg deleted file mode 100644 index b7267167..00000000 Binary files a/pics/8951260.jpg and /dev/null differ diff --git a/pics/89516305.jpg b/pics/89516305.jpg deleted file mode 100644 index c0284a43..00000000 Binary files a/pics/89516305.jpg and /dev/null differ diff --git a/pics/89521713.jpg b/pics/89521713.jpg deleted file mode 100644 index fafd00f4..00000000 Binary files a/pics/89521713.jpg and /dev/null differ diff --git a/pics/89529919.jpg b/pics/89529919.jpg deleted file mode 100644 index e3fd1234..00000000 Binary files a/pics/89529919.jpg and /dev/null differ diff --git a/pics/89544521.jpg b/pics/89544521.jpg deleted file mode 100644 index 1d9bce1c..00000000 Binary files a/pics/89544521.jpg and /dev/null differ diff --git a/pics/89547299.jpg b/pics/89547299.jpg deleted file mode 100644 index 0f190a37..00000000 Binary files a/pics/89547299.jpg and /dev/null differ diff --git a/pics/89558090.jpg b/pics/89558090.jpg deleted file mode 100644 index 6b8326e0..00000000 Binary files a/pics/89558090.jpg and /dev/null differ diff --git a/pics/89563150.jpg b/pics/89563150.jpg deleted file mode 100644 index 29c98957..00000000 Binary files a/pics/89563150.jpg and /dev/null differ diff --git a/pics/89567993.jpg b/pics/89567993.jpg deleted file mode 100644 index 37cba3e4..00000000 Binary files a/pics/89567993.jpg and /dev/null differ diff --git a/pics/89609515.jpg b/pics/89609515.jpg deleted file mode 100644 index 29920d9b..00000000 Binary files a/pics/89609515.jpg and /dev/null differ diff --git a/pics/89621922.jpg b/pics/89621922.jpg deleted file mode 100644 index 062d7084..00000000 Binary files a/pics/89621922.jpg and /dev/null differ diff --git a/pics/89628781.jpg b/pics/89628781.jpg deleted file mode 100644 index 17b21210..00000000 Binary files a/pics/89628781.jpg and /dev/null differ diff --git a/pics/89631139.jpg b/pics/89631139.jpg deleted file mode 100644 index 7b0757d5..00000000 Binary files a/pics/89631139.jpg and /dev/null differ diff --git a/pics/89631140.jpg b/pics/89631140.jpg deleted file mode 100644 index 4a5f1d71..00000000 Binary files a/pics/89631140.jpg and /dev/null differ diff --git a/pics/89631141.jpg b/pics/89631141.jpg deleted file mode 100644 index 10455d48..00000000 Binary files a/pics/89631141.jpg and /dev/null differ diff --git a/pics/89631142.jpg b/pics/89631142.jpg deleted file mode 100644 index 62f94eec..00000000 Binary files a/pics/89631142.jpg and /dev/null differ diff --git a/pics/89631143.jpg b/pics/89631143.jpg deleted file mode 100644 index b9ff4b7f..00000000 Binary files a/pics/89631143.jpg and /dev/null differ diff --git a/pics/89631144.jpg b/pics/89631144.jpg deleted file mode 100644 index 383fc382..00000000 Binary files a/pics/89631144.jpg and /dev/null differ diff --git a/pics/89642993.jpg b/pics/89642993.jpg deleted file mode 100644 index d599104a..00000000 Binary files a/pics/89642993.jpg and /dev/null differ diff --git a/pics/8964854.jpg b/pics/8964854.jpg deleted file mode 100644 index 36b1ba3f..00000000 Binary files a/pics/8964854.jpg and /dev/null differ diff --git a/pics/89662736.jpg b/pics/89662736.jpg deleted file mode 100644 index 85c5d9a5..00000000 Binary files a/pics/89662736.jpg and /dev/null differ diff --git a/pics/8967776.jpg b/pics/8967776.jpg deleted file mode 100644 index 4f639ef7..00000000 Binary files a/pics/8967776.jpg and /dev/null differ diff --git a/pics/89698120.jpg b/pics/89698120.jpg deleted file mode 100644 index 8d78f004..00000000 Binary files a/pics/89698120.jpg and /dev/null differ diff --git a/pics/89718302.jpg b/pics/89718302.jpg deleted file mode 100644 index 945f02b0..00000000 Binary files a/pics/89718302.jpg and /dev/null differ diff --git a/pics/89719143.jpg b/pics/89719143.jpg deleted file mode 100644 index 21824271..00000000 Binary files a/pics/89719143.jpg and /dev/null differ diff --git a/pics/89731911.jpg b/pics/89731911.jpg deleted file mode 100644 index b90bfdef..00000000 Binary files a/pics/89731911.jpg and /dev/null differ diff --git a/pics/89732524.jpg b/pics/89732524.jpg deleted file mode 100644 index 8aa0125c..00000000 Binary files a/pics/89732524.jpg and /dev/null differ diff --git a/pics/89739383.jpg b/pics/89739383.jpg deleted file mode 100644 index 20b1a4c2..00000000 Binary files a/pics/89739383.jpg and /dev/null differ diff --git a/pics/89770167.jpg b/pics/89770167.jpg deleted file mode 100644 index 326d2ab3..00000000 Binary files a/pics/89770167.jpg and /dev/null differ diff --git a/pics/89774530.jpg b/pics/89774530.jpg deleted file mode 100644 index 3a8906fe..00000000 Binary files a/pics/89774530.jpg and /dev/null differ diff --git a/pics/89792713.jpg b/pics/89792713.jpg deleted file mode 100644 index 158f4a79..00000000 Binary files a/pics/89792713.jpg and /dev/null differ diff --git a/pics/89801755.jpg b/pics/89801755.jpg deleted file mode 100644 index 8bb62c88..00000000 Binary files a/pics/89801755.jpg and /dev/null differ diff --git a/pics/89810518.jpg b/pics/89810518.jpg deleted file mode 100644 index 3bddf07f..00000000 Binary files a/pics/89810518.jpg and /dev/null differ diff --git a/pics/89832901.jpg b/pics/89832901.jpg deleted file mode 100644 index 52dd73e4..00000000 Binary files a/pics/89832901.jpg and /dev/null differ diff --git a/pics/89856523.jpg b/pics/89856523.jpg deleted file mode 100644 index 60a0638a..00000000 Binary files a/pics/89856523.jpg and /dev/null differ diff --git a/pics/89870349.jpg b/pics/89870349.jpg deleted file mode 100644 index 1533e54e..00000000 Binary files a/pics/89870349.jpg and /dev/null differ diff --git a/pics/89882100.jpg b/pics/89882100.jpg deleted file mode 100644 index 1280dd80..00000000 Binary files a/pics/89882100.jpg and /dev/null differ diff --git a/pics/89883517.jpg b/pics/89883517.jpg deleted file mode 100755 index ccd5377b..00000000 Binary files a/pics/89883517.jpg and /dev/null differ diff --git a/pics/89893715.jpg b/pics/89893715.jpg deleted file mode 100644 index e2904b5e..00000000 Binary files a/pics/89893715.jpg and /dev/null differ diff --git a/pics/89899996.jpg b/pics/89899996.jpg deleted file mode 100644 index de09d251..00000000 Binary files a/pics/89899996.jpg and /dev/null differ diff --git a/pics/89904598.jpg b/pics/89904598.jpg deleted file mode 100644 index 7b7aba5b..00000000 Binary files a/pics/89904598.jpg and /dev/null differ diff --git a/pics/89914395.jpg b/pics/89914395.jpg deleted file mode 100644 index 20e22d5c..00000000 Binary files a/pics/89914395.jpg and /dev/null differ diff --git a/pics/89943723.jpg b/pics/89943723.jpg deleted file mode 100644 index a87b901e..00000000 Binary files a/pics/89943723.jpg and /dev/null differ diff --git a/pics/89959682.jpg b/pics/89959682.jpg deleted file mode 100644 index 78c0fcdf..00000000 Binary files a/pics/89959682.jpg and /dev/null differ diff --git a/pics/89987208.jpg b/pics/89987208.jpg deleted file mode 100644 index e5b1b11a..00000000 Binary files a/pics/89987208.jpg and /dev/null differ diff --git a/pics/89997728.jpg b/pics/89997728.jpg deleted file mode 100644 index 5d828365..00000000 Binary files a/pics/89997728.jpg and /dev/null differ diff --git a/pics/90011152.jpg b/pics/90011152.jpg deleted file mode 100644 index 194ed6ab..00000000 Binary files a/pics/90011152.jpg and /dev/null differ diff --git a/pics/90019393.jpg b/pics/90019393.jpg deleted file mode 100644 index fede8273..00000000 Binary files a/pics/90019393.jpg and /dev/null differ diff --git a/pics/90020065.jpg b/pics/90020065.jpg deleted file mode 100644 index 8963ad09..00000000 Binary files a/pics/90020065.jpg and /dev/null differ diff --git a/pics/90075978.jpg b/pics/90075978.jpg deleted file mode 100644 index 44f0ba8e..00000000 Binary files a/pics/90075978.jpg and /dev/null differ diff --git a/pics/900787.jpg b/pics/900787.jpg deleted file mode 100644 index 884749ac..00000000 Binary files a/pics/900787.jpg and /dev/null differ diff --git a/pics/90098780.jpg b/pics/90098780.jpg deleted file mode 100644 index 3e0ce942..00000000 Binary files a/pics/90098780.jpg and /dev/null differ diff --git a/pics/9012916.jpg b/pics/9012916.jpg deleted file mode 100644 index bec7b64b..00000000 Binary files a/pics/9012916.jpg and /dev/null differ diff --git a/pics/90135989.jpg b/pics/90135989.jpg deleted file mode 100644 index 14a57a72..00000000 Binary files a/pics/90135989.jpg and /dev/null differ diff --git a/pics/90140980.jpg b/pics/90140980.jpg deleted file mode 100644 index 7af9d188..00000000 Binary files a/pics/90140980.jpg and /dev/null differ diff --git a/pics/90147755.jpg b/pics/90147755.jpg deleted file mode 100644 index 08209f88..00000000 Binary files a/pics/90147755.jpg and /dev/null differ diff --git a/pics/90156158.jpg b/pics/90156158.jpg deleted file mode 100644 index 9f6ba4ad..00000000 Binary files a/pics/90156158.jpg and /dev/null differ diff --git a/pics/90162951.jpg b/pics/90162951.jpg deleted file mode 100755 index a3b10f66..00000000 Binary files a/pics/90162951.jpg and /dev/null differ diff --git a/pics/90200789.jpg b/pics/90200789.jpg deleted file mode 100644 index 2451100c..00000000 Binary files a/pics/90200789.jpg and /dev/null differ diff --git a/pics/90219263.jpg b/pics/90219263.jpg deleted file mode 100644 index f83ee09d..00000000 Binary files a/pics/90219263.jpg and /dev/null differ diff --git a/pics/90238142.jpg b/pics/90238142.jpg deleted file mode 100644 index ce076c09..00000000 Binary files a/pics/90238142.jpg and /dev/null differ diff --git a/pics/90239723.jpg b/pics/90239723.jpg deleted file mode 100644 index c7f66dad..00000000 Binary files a/pics/90239723.jpg and /dev/null differ diff --git a/pics/9024367.jpg b/pics/9024367.jpg deleted file mode 100644 index 58a816f6..00000000 Binary files a/pics/9024367.jpg and /dev/null differ diff --git a/pics/90246973.jpg b/pics/90246973.jpg deleted file mode 100644 index eb2ca3d1..00000000 Binary files a/pics/90246973.jpg and /dev/null differ diff --git a/pics/90263923.jpg b/pics/90263923.jpg deleted file mode 100644 index 180b5908..00000000 Binary files a/pics/90263923.jpg and /dev/null differ diff --git a/pics/90303176.jpg b/pics/90303176.jpg deleted file mode 100644 index 3e5c6845..00000000 Binary files a/pics/90303176.jpg and /dev/null differ diff --git a/pics/90307777.jpg b/pics/90307777.jpg deleted file mode 100644 index 3050123a..00000000 Binary files a/pics/90307777.jpg and /dev/null differ diff --git a/pics/90311614.jpg b/pics/90311614.jpg deleted file mode 100644 index 6449a4c3..00000000 Binary files a/pics/90311614.jpg and /dev/null differ diff --git a/pics/90330453.jpg b/pics/90330453.jpg deleted file mode 100644 index f01c0d63..00000000 Binary files a/pics/90330453.jpg and /dev/null differ diff --git a/pics/90330454.jpg b/pics/90330454.jpg deleted file mode 100644 index de41251e..00000000 Binary files a/pics/90330454.jpg and /dev/null differ diff --git a/pics/90337190.jpg b/pics/90337190.jpg deleted file mode 100644 index 8d0236df..00000000 Binary files a/pics/90337190.jpg and /dev/null differ diff --git a/pics/90357090.jpg b/pics/90357090.jpg deleted file mode 100644 index 17fdd91e..00000000 Binary files a/pics/90357090.jpg and /dev/null differ diff --git a/pics/90361010.jpg b/pics/90361010.jpg deleted file mode 100644 index 789d7c31..00000000 Binary files a/pics/90361010.jpg and /dev/null differ diff --git a/pics/90374791.jpg b/pics/90374791.jpg deleted file mode 100644 index 1e4b55b0..00000000 Binary files a/pics/90374791.jpg and /dev/null differ diff --git a/pics/90397998.jpg b/pics/90397998.jpg deleted file mode 100644 index 130fd921..00000000 Binary files a/pics/90397998.jpg and /dev/null differ diff --git a/pics/90407382.jpg b/pics/90407382.jpg deleted file mode 100644 index 68c60b1c..00000000 Binary files a/pics/90407382.jpg and /dev/null differ diff --git a/pics/90411554.jpg b/pics/90411554.jpg deleted file mode 100644 index 633821f0..00000000 Binary files a/pics/90411554.jpg and /dev/null differ diff --git a/pics/904185.jpg b/pics/904185.jpg deleted file mode 100644 index 884180c7..00000000 Binary files a/pics/904185.jpg and /dev/null differ diff --git a/pics/904186.jpg b/pics/904186.jpg deleted file mode 100644 index 4e49b636..00000000 Binary files a/pics/904186.jpg and /dev/null differ diff --git a/pics/90432163.jpg b/pics/90432163.jpg deleted file mode 100755 index 6d04c8c8..00000000 Binary files a/pics/90432163.jpg and /dev/null differ diff --git a/pics/90434657.jpg b/pics/90434657.jpg deleted file mode 100644 index 6a13a663..00000000 Binary files a/pics/90434657.jpg and /dev/null differ diff --git a/pics/90434926.jpg b/pics/90434926.jpg deleted file mode 100644 index 4b47dc1f..00000000 Binary files a/pics/90434926.jpg and /dev/null differ diff --git a/pics/90440725.jpg b/pics/90440725.jpg deleted file mode 100644 index c004b4e9..00000000 Binary files a/pics/90440725.jpg and /dev/null differ diff --git a/pics/90464188.jpg b/pics/90464188.jpg deleted file mode 100644 index 51eb0c12..00000000 Binary files a/pics/90464188.jpg and /dev/null differ diff --git a/pics/90470931.jpg b/pics/90470931.jpg deleted file mode 100644 index 209b6507..00000000 Binary files a/pics/90470931.jpg and /dev/null differ diff --git a/pics/9047460.jpg b/pics/9047460.jpg deleted file mode 100644 index e9d83564..00000000 Binary files a/pics/9047460.jpg and /dev/null differ diff --git a/pics/9047461.jpg b/pics/9047461.jpg deleted file mode 100644 index e935d6b1..00000000 Binary files a/pics/9047461.jpg and /dev/null differ diff --git a/pics/90500169.jpg b/pics/90500169.jpg deleted file mode 100644 index bb008289..00000000 Binary files a/pics/90500169.jpg and /dev/null differ diff --git a/pics/90502999.jpg b/pics/90502999.jpg deleted file mode 100644 index d88f3398..00000000 Binary files a/pics/90502999.jpg and /dev/null differ diff --git a/pics/90508760.jpg b/pics/90508760.jpg deleted file mode 100644 index 7e2b4f9c..00000000 Binary files a/pics/90508760.jpg and /dev/null differ diff --git a/pics/9053187.jpg b/pics/9053187.jpg deleted file mode 100644 index f13ae3f5..00000000 Binary files a/pics/9053187.jpg and /dev/null differ diff --git a/pics/90555947.jpg b/pics/90555947.jpg deleted file mode 100644 index 7a6e275b..00000000 Binary files a/pics/90555947.jpg and /dev/null differ diff --git a/pics/90557975.jpg b/pics/90557975.jpg deleted file mode 100644 index 75d4bd3c..00000000 Binary files a/pics/90557975.jpg and /dev/null differ diff --git a/pics/9056100.jpg b/pics/9056100.jpg deleted file mode 100644 index 6f3ee0de..00000000 Binary files a/pics/9056100.jpg and /dev/null differ diff --git a/pics/90576781.jpg b/pics/90576781.jpg deleted file mode 100644 index eb64341c..00000000 Binary files a/pics/90576781.jpg and /dev/null differ diff --git a/pics/90582719.jpg b/pics/90582719.jpg deleted file mode 100644 index ae39c047..00000000 Binary files a/pics/90582719.jpg and /dev/null differ diff --git a/pics/90592429.jpg b/pics/90592429.jpg deleted file mode 100644 index cd40e9a1..00000000 Binary files a/pics/90592429.jpg and /dev/null differ diff --git a/pics/9059700.jpg b/pics/9059700.jpg deleted file mode 100644 index 171bfd95..00000000 Binary files a/pics/9059700.jpg and /dev/null differ diff --git a/pics/90616316.jpg b/pics/90616316.jpg deleted file mode 100644 index c7cec58d..00000000 Binary files a/pics/90616316.jpg and /dev/null differ diff --git a/pics/90640901.jpg b/pics/90640901.jpg deleted file mode 100644 index f3be22de..00000000 Binary files a/pics/90640901.jpg and /dev/null differ diff --git a/pics/90642597.jpg b/pics/90642597.jpg deleted file mode 100644 index 6531798a..00000000 Binary files a/pics/90642597.jpg and /dev/null differ diff --git a/pics/90654356.jpg b/pics/90654356.jpg deleted file mode 100644 index c5280724..00000000 Binary files a/pics/90654356.jpg and /dev/null differ diff --git a/pics/90660762.jpg b/pics/90660762.jpg deleted file mode 100644 index 74e87db5..00000000 Binary files a/pics/90660762.jpg and /dev/null differ diff --git a/pics/90669991.jpg b/pics/90669991.jpg deleted file mode 100644 index 19f8e486..00000000 Binary files a/pics/90669991.jpg and /dev/null differ diff --git a/pics/90673413.jpg b/pics/90673413.jpg deleted file mode 100644 index e04a1665..00000000 Binary files a/pics/90673413.jpg and /dev/null differ diff --git a/pics/90726340.jpg b/pics/90726340.jpg deleted file mode 100644 index 08227f52..00000000 Binary files a/pics/90726340.jpg and /dev/null differ diff --git a/pics/90727556.jpg b/pics/90727556.jpg deleted file mode 100644 index 7f945336..00000000 Binary files a/pics/90727556.jpg and /dev/null differ diff --git a/pics/90740329.jpg b/pics/90740329.jpg deleted file mode 100644 index 242d40eb..00000000 Binary files a/pics/90740329.jpg and /dev/null differ diff --git a/pics/90743290.jpg b/pics/90743290.jpg deleted file mode 100644 index e3b4da5b..00000000 Binary files a/pics/90743290.jpg and /dev/null differ diff --git a/pics/9074847.jpg b/pics/9074847.jpg deleted file mode 100644 index 6c295ba3..00000000 Binary files a/pics/9074847.jpg and /dev/null differ diff --git a/pics/9076207.jpg b/pics/9076207.jpg deleted file mode 100644 index 2c13cc36..00000000 Binary files a/pics/9076207.jpg and /dev/null differ diff --git a/pics/90764875.jpg b/pics/90764875.jpg deleted file mode 100644 index 4ad60569..00000000 Binary files a/pics/90764875.jpg and /dev/null differ diff --git a/pics/90790253.jpg b/pics/90790253.jpg deleted file mode 100644 index 86644586..00000000 Binary files a/pics/90790253.jpg and /dev/null differ diff --git a/pics/90810762.jpg b/pics/90810762.jpg deleted file mode 100644 index 84670ed9..00000000 Binary files a/pics/90810762.jpg and /dev/null differ diff --git a/pics/90844184.jpg b/pics/90844184.jpg deleted file mode 100644 index b620fcc1..00000000 Binary files a/pics/90844184.jpg and /dev/null differ diff --git a/pics/90846359.jpg b/pics/90846359.jpg deleted file mode 100644 index dd67b5d9..00000000 Binary files a/pics/90846359.jpg and /dev/null differ diff --git a/pics/90873992.jpg b/pics/90873992.jpg deleted file mode 100644 index 8bfa03ec..00000000 Binary files a/pics/90873992.jpg and /dev/null differ diff --git a/pics/90876561.jpg b/pics/90876561.jpg deleted file mode 100644 index 64d50675..00000000 Binary files a/pics/90876561.jpg and /dev/null differ diff --git a/pics/90884403.jpg b/pics/90884403.jpg deleted file mode 100755 index 3e427ab5..00000000 Binary files a/pics/90884403.jpg and /dev/null differ diff --git a/pics/90884404.jpg b/pics/90884404.jpg deleted file mode 100755 index 92afaf18..00000000 Binary files a/pics/90884404.jpg and /dev/null differ diff --git a/pics/90885155.jpg b/pics/90885155.jpg deleted file mode 100644 index b8ec7827..00000000 Binary files a/pics/90885155.jpg and /dev/null differ diff --git a/pics/90887783.jpg b/pics/90887783.jpg deleted file mode 100644 index a52eb1cf..00000000 Binary files a/pics/90887783.jpg and /dev/null differ diff --git a/pics/90908427.jpg b/pics/90908427.jpg deleted file mode 100644 index 830b827f..00000000 Binary files a/pics/90908427.jpg and /dev/null differ diff --git a/pics/90925163.jpg b/pics/90925163.jpg deleted file mode 100644 index 8339b6e6..00000000 Binary files a/pics/90925163.jpg and /dev/null differ diff --git a/pics/90928333.jpg b/pics/90928333.jpg deleted file mode 100644 index 956b6a37..00000000 Binary files a/pics/90928333.jpg and /dev/null differ diff --git a/pics/90934570.jpg b/pics/90934570.jpg deleted file mode 100644 index 030e97c3..00000000 Binary files a/pics/90934570.jpg and /dev/null differ diff --git a/pics/90951921.jpg b/pics/90951921.jpg deleted file mode 100644 index 6518b272..00000000 Binary files a/pics/90951921.jpg and /dev/null differ diff --git a/pics/90953320.jpg b/pics/90953320.jpg deleted file mode 100644 index 28472eca..00000000 Binary files a/pics/90953320.jpg and /dev/null differ diff --git a/pics/90957527.jpg b/pics/90957527.jpg deleted file mode 100644 index c1e7332e..00000000 Binary files a/pics/90957527.jpg and /dev/null differ diff --git a/pics/90960358.jpg b/pics/90960358.jpg deleted file mode 100644 index 1d65ff7c..00000000 Binary files a/pics/90960358.jpg and /dev/null differ diff --git a/pics/90963488.jpg b/pics/90963488.jpg deleted file mode 100644 index 5c05f3f6..00000000 Binary files a/pics/90963488.jpg and /dev/null differ diff --git a/pics/90980792.jpg b/pics/90980792.jpg deleted file mode 100644 index 0b269ae8..00000000 Binary files a/pics/90980792.jpg and /dev/null differ diff --git a/pics/91020571.jpg b/pics/91020571.jpg deleted file mode 100644 index 4e4f5433..00000000 Binary files a/pics/91020571.jpg and /dev/null differ diff --git a/pics/91070115.jpg b/pics/91070115.jpg deleted file mode 100644 index a36c9e8c..00000000 Binary files a/pics/91070115.jpg and /dev/null differ diff --git a/pics/91078716.jpg b/pics/91078716.jpg deleted file mode 100644 index 3f5e6bf8..00000000 Binary files a/pics/91078716.jpg and /dev/null differ diff --git a/pics/9109991.jpg b/pics/9109991.jpg deleted file mode 100644 index 8c5ae9c3..00000000 Binary files a/pics/9109991.jpg and /dev/null differ diff --git a/pics/91107093.jpg b/pics/91107093.jpg deleted file mode 100644 index ee168c0c..00000000 Binary files a/pics/91107093.jpg and /dev/null differ diff --git a/pics/91110378.jpg b/pics/91110378.jpg deleted file mode 100644 index 46664c35..00000000 Binary files a/pics/91110378.jpg and /dev/null differ diff --git a/pics/91123920.jpg b/pics/91123920.jpg deleted file mode 100644 index 5344a076..00000000 Binary files a/pics/91123920.jpg and /dev/null differ diff --git a/pics/91133740.jpg b/pics/91133740.jpg deleted file mode 100644 index edecb0fd..00000000 Binary files a/pics/91133740.jpg and /dev/null differ diff --git a/pics/91148083.jpg b/pics/91148083.jpg deleted file mode 100644 index c5603413..00000000 Binary files a/pics/91148083.jpg and /dev/null differ diff --git a/pics/91152256.jpg b/pics/91152256.jpg deleted file mode 100644 index 005c31e6..00000000 Binary files a/pics/91152256.jpg and /dev/null differ diff --git a/pics/91152257.jpg b/pics/91152257.jpg deleted file mode 100644 index 2bd58b72..00000000 Binary files a/pics/91152257.jpg and /dev/null differ diff --git a/pics/91152258.jpg b/pics/91152258.jpg deleted file mode 100644 index cd430aa7..00000000 Binary files a/pics/91152258.jpg and /dev/null differ diff --git a/pics/911883.jpg b/pics/911883.jpg deleted file mode 100644 index d60e8808..00000000 Binary files a/pics/911883.jpg and /dev/null differ diff --git a/pics/91188343.jpg b/pics/91188343.jpg deleted file mode 100644 index 311b32a8..00000000 Binary files a/pics/91188343.jpg and /dev/null differ diff --git a/pics/91250514.jpg b/pics/91250514.jpg deleted file mode 100644 index da6417dd..00000000 Binary files a/pics/91250514.jpg and /dev/null differ diff --git a/pics/9126351.jpg b/pics/9126351.jpg deleted file mode 100644 index a0dd8328..00000000 Binary files a/pics/9126351.jpg and /dev/null differ diff --git a/pics/91279700.jpg b/pics/91279700.jpg deleted file mode 100644 index d8fd1089..00000000 Binary files a/pics/91279700.jpg and /dev/null differ diff --git a/pics/91345518.jpg b/pics/91345518.jpg deleted file mode 100644 index 502fa97a..00000000 Binary files a/pics/91345518.jpg and /dev/null differ diff --git a/pics/91349449.jpg b/pics/91349449.jpg deleted file mode 100644 index beb3cc21..00000000 Binary files a/pics/91349449.jpg and /dev/null differ diff --git a/pics/91350799.jpg b/pics/91350799.jpg deleted file mode 100644 index bf55e434..00000000 Binary files a/pics/91350799.jpg and /dev/null differ diff --git a/pics/91351370.jpg b/pics/91351370.jpg deleted file mode 100644 index 865e31c1..00000000 Binary files a/pics/91351370.jpg and /dev/null differ diff --git a/pics/91420254.jpg b/pics/91420254.jpg deleted file mode 100644 index 4ef8ce9d..00000000 Binary files a/pics/91420254.jpg and /dev/null differ diff --git a/pics/91422370.jpg b/pics/91422370.jpg deleted file mode 100644 index 33bd5920..00000000 Binary files a/pics/91422370.jpg and /dev/null differ diff --git a/pics/91438994.jpg b/pics/91438994.jpg deleted file mode 100644 index 10e82c28..00000000 Binary files a/pics/91438994.jpg and /dev/null differ diff --git a/pics/91449144.jpg b/pics/91449144.jpg deleted file mode 100644 index 7ea98d85..00000000 Binary files a/pics/91449144.jpg and /dev/null differ diff --git a/pics/9145181.jpg b/pics/9145181.jpg deleted file mode 100644 index a24e75dc..00000000 Binary files a/pics/9145181.jpg and /dev/null differ diff --git a/pics/91468551.jpg b/pics/91468551.jpg deleted file mode 100644 index 1602f0e1..00000000 Binary files a/pics/91468551.jpg and /dev/null differ diff --git a/pics/91499077.jpg b/pics/91499077.jpg deleted file mode 100644 index 2ac28dbc..00000000 Binary files a/pics/91499077.jpg and /dev/null differ diff --git a/pics/91501248.jpg b/pics/91501248.jpg deleted file mode 100644 index ac73010d..00000000 Binary files a/pics/91501248.jpg and /dev/null differ diff --git a/pics/91512835.jpg b/pics/91512835.jpg deleted file mode 100644 index 29246d61..00000000 Binary files a/pics/91512835.jpg and /dev/null differ diff --git a/pics/91512836.jpg b/pics/91512836.jpg deleted file mode 100644 index 2ccf24f8..00000000 Binary files a/pics/91512836.jpg and /dev/null differ diff --git a/pics/91554542.jpg b/pics/91554542.jpg deleted file mode 100644 index 7941a19f..00000000 Binary files a/pics/91554542.jpg and /dev/null differ diff --git a/pics/91559748.jpg b/pics/91559748.jpg deleted file mode 100644 index 8954e813..00000000 Binary files a/pics/91559748.jpg and /dev/null differ diff --git a/pics/9156135.jpg b/pics/9156135.jpg deleted file mode 100644 index bd9e3f72..00000000 Binary files a/pics/9156135.jpg and /dev/null differ diff --git a/pics/91580102.jpg b/pics/91580102.jpg deleted file mode 100644 index 09218665..00000000 Binary files a/pics/91580102.jpg and /dev/null differ diff --git a/pics/91584698.jpg b/pics/91584698.jpg deleted file mode 100644 index 9bdb431b..00000000 Binary files a/pics/91584698.jpg and /dev/null differ diff --git a/pics/91595718.jpg b/pics/91595718.jpg deleted file mode 100644 index 8629673a..00000000 Binary files a/pics/91595718.jpg and /dev/null differ diff --git a/pics/91596726.jpg b/pics/91596726.jpg deleted file mode 100644 index 52826cab..00000000 Binary files a/pics/91596726.jpg and /dev/null differ diff --git a/pics/91597389.jpg b/pics/91597389.jpg deleted file mode 100644 index 829e6078..00000000 Binary files a/pics/91597389.jpg and /dev/null differ diff --git a/pics/9159938.jpg b/pics/9159938.jpg deleted file mode 100644 index 37ddbbf3..00000000 Binary files a/pics/9159938.jpg and /dev/null differ diff --git a/pics/91607976.jpg b/pics/91607976.jpg deleted file mode 100644 index 82994da3..00000000 Binary files a/pics/91607976.jpg and /dev/null differ diff --git a/pics/9161357.jpg b/pics/9161357.jpg deleted file mode 100644 index dc3bcf57..00000000 Binary files a/pics/9161357.jpg and /dev/null differ diff --git a/pics/91623717.jpg b/pics/91623717.jpg deleted file mode 100644 index 72c64889..00000000 Binary files a/pics/91623717.jpg and /dev/null differ diff --git a/pics/91650245.jpg b/pics/91650245.jpg deleted file mode 100644 index bf5d1d5f..00000000 Binary files a/pics/91650245.jpg and /dev/null differ diff --git a/pics/91662792.jpg b/pics/91662792.jpg deleted file mode 100644 index 6658a8c7..00000000 Binary files a/pics/91662792.jpg and /dev/null differ diff --git a/pics/91663373.jpg b/pics/91663373.jpg deleted file mode 100644 index ceaf35f0..00000000 Binary files a/pics/91663373.jpg and /dev/null differ diff --git a/pics/91677585.jpg b/pics/91677585.jpg deleted file mode 100644 index 6ec3d2d5..00000000 Binary files a/pics/91677585.jpg and /dev/null differ diff --git a/pics/91697229.jpg b/pics/91697229.jpg deleted file mode 100644 index 47074c23..00000000 Binary files a/pics/91697229.jpg and /dev/null differ diff --git a/pics/91711547.jpg b/pics/91711547.jpg deleted file mode 100644 index 63c5a29f..00000000 Binary files a/pics/91711547.jpg and /dev/null differ diff --git a/pics/91718579.jpg b/pics/91718579.jpg deleted file mode 100755 index 478ac563..00000000 Binary files a/pics/91718579.jpg and /dev/null differ diff --git a/pics/91731841.jpg b/pics/91731841.jpg deleted file mode 100644 index 42f403dd..00000000 Binary files a/pics/91731841.jpg and /dev/null differ diff --git a/pics/91754175.jpg b/pics/91754175.jpg deleted file mode 100644 index e0da9918..00000000 Binary files a/pics/91754175.jpg and /dev/null differ diff --git a/pics/917796.jpg b/pics/917796.jpg deleted file mode 100644 index ccdafc65..00000000 Binary files a/pics/917796.jpg and /dev/null differ diff --git a/pics/91781589.jpg b/pics/91781589.jpg deleted file mode 100644 index 825a747b..00000000 Binary files a/pics/91781589.jpg and /dev/null differ diff --git a/pics/91782219.jpg b/pics/91782219.jpg deleted file mode 100644 index d447da55..00000000 Binary files a/pics/91782219.jpg and /dev/null differ diff --git a/pics/91798373.jpg b/pics/91798373.jpg deleted file mode 100644 index b144f8cd..00000000 Binary files a/pics/91798373.jpg and /dev/null differ diff --git a/pics/91812341.jpg b/pics/91812341.jpg deleted file mode 100644 index bb9700ea..00000000 Binary files a/pics/91812341.jpg and /dev/null differ diff --git a/pics/91819979.jpg b/pics/91819979.jpg deleted file mode 100644 index e11d7dfb..00000000 Binary files a/pics/91819979.jpg and /dev/null differ diff --git a/pics/91822647.jpg b/pics/91822647.jpg deleted file mode 100644 index b3ea1933..00000000 Binary files a/pics/91822647.jpg and /dev/null differ diff --git a/pics/91831066.jpg b/pics/91831066.jpg deleted file mode 100755 index 591f4145..00000000 Binary files a/pics/91831066.jpg and /dev/null differ diff --git a/pics/91842653.jpg b/pics/91842653.jpg deleted file mode 100644 index 10fae9b0..00000000 Binary files a/pics/91842653.jpg and /dev/null differ diff --git a/pics/91862578.jpg b/pics/91862578.jpg deleted file mode 100644 index 8cf6b19a..00000000 Binary files a/pics/91862578.jpg and /dev/null differ diff --git a/pics/91869203.jpg b/pics/91869203.jpg deleted file mode 100644 index decdea35..00000000 Binary files a/pics/91869203.jpg and /dev/null differ diff --git a/pics/91895091.jpg b/pics/91895091.jpg deleted file mode 100644 index 0907e6b8..00000000 Binary files a/pics/91895091.jpg and /dev/null differ diff --git a/pics/91903221.jpg b/pics/91903221.jpg deleted file mode 100644 index 6e5bbadb..00000000 Binary files a/pics/91903221.jpg and /dev/null differ diff --git a/pics/91907707.jpg b/pics/91907707.jpg deleted file mode 100644 index 64a3c1b5..00000000 Binary files a/pics/91907707.jpg and /dev/null differ diff --git a/pics/91932350.jpg b/pics/91932350.jpg deleted file mode 100644 index c686b130..00000000 Binary files a/pics/91932350.jpg and /dev/null differ diff --git a/pics/91939608.jpg b/pics/91939608.jpg deleted file mode 100644 index db09bf3b..00000000 Binary files a/pics/91939608.jpg and /dev/null differ diff --git a/pics/91949988.jpg b/pics/91949988.jpg deleted file mode 100644 index 79d6b0bb..00000000 Binary files a/pics/91949988.jpg and /dev/null differ diff --git a/pics/9197735.jpg b/pics/9197735.jpg deleted file mode 100644 index 3b331534..00000000 Binary files a/pics/9197735.jpg and /dev/null differ diff --git a/pics/91985515.jpg b/pics/91985515.jpg deleted file mode 100644 index cb0f5824..00000000 Binary files a/pics/91985515.jpg and /dev/null differ diff --git a/pics/91989718.jpg b/pics/91989718.jpg deleted file mode 100644 index 78ba37b4..00000000 Binary files a/pics/91989718.jpg and /dev/null differ diff --git a/pics/91996584.jpg b/pics/91996584.jpg deleted file mode 100644 index f62c0270..00000000 Binary files a/pics/91996584.jpg and /dev/null differ diff --git a/pics/91998119.jpg b/pics/91998119.jpg deleted file mode 100644 index fe894bbc..00000000 Binary files a/pics/91998119.jpg and /dev/null differ diff --git a/pics/91998120.jpg b/pics/91998120.jpg deleted file mode 100644 index ddf70e04..00000000 Binary files a/pics/91998120.jpg and /dev/null differ diff --git a/pics/91998121.jpg b/pics/91998121.jpg deleted file mode 100644 index c871fb9b..00000000 Binary files a/pics/91998121.jpg and /dev/null differ diff --git a/pics/92001300.jpg b/pics/92001300.jpg deleted file mode 100644 index 30481bb5..00000000 Binary files a/pics/92001300.jpg and /dev/null differ diff --git a/pics/9201964.jpg b/pics/9201964.jpg deleted file mode 100644 index 8927866e..00000000 Binary files a/pics/9201964.jpg and /dev/null differ diff --git a/pics/92035412.jpg b/pics/92035412.jpg deleted file mode 100644 index 8d934d7d..00000000 Binary files a/pics/92035412.jpg and /dev/null differ diff --git a/pics/92039899.jpg b/pics/92039899.jpg deleted file mode 100644 index ff2fe399..00000000 Binary files a/pics/92039899.jpg and /dev/null differ diff --git a/pics/92053608.jpg b/pics/92053608.jpg deleted file mode 100755 index f65848c9..00000000 Binary files a/pics/92053608.jpg and /dev/null differ diff --git a/pics/92065772.jpg b/pics/92065772.jpg deleted file mode 100644 index bd3b46de..00000000 Binary files a/pics/92065772.jpg and /dev/null differ diff --git a/pics/92084010.jpg b/pics/92084010.jpg deleted file mode 100644 index b7e9a18b..00000000 Binary files a/pics/92084010.jpg and /dev/null differ diff --git a/pics/92099232.jpg b/pics/92099232.jpg deleted file mode 100644 index 8b7dc7ce..00000000 Binary files a/pics/92099232.jpg and /dev/null differ diff --git a/pics/92125819.jpg b/pics/92125819.jpg deleted file mode 100644 index f1bf9335..00000000 Binary files a/pics/92125819.jpg and /dev/null differ diff --git a/pics/92142169.jpg b/pics/92142169.jpg deleted file mode 100644 index 7dd043ed..00000000 Binary files a/pics/92142169.jpg and /dev/null differ diff --git a/pics/92219931.jpg b/pics/92219931.jpg deleted file mode 100644 index b806116b..00000000 Binary files a/pics/92219931.jpg and /dev/null differ diff --git a/pics/92223641.jpg b/pics/92223641.jpg deleted file mode 100644 index 46c2b550..00000000 Binary files a/pics/92223641.jpg and /dev/null differ diff --git a/pics/92246806.jpg b/pics/92246806.jpg deleted file mode 100644 index 323d6329..00000000 Binary files a/pics/92246806.jpg and /dev/null differ diff --git a/pics/92266279.jpg b/pics/92266279.jpg deleted file mode 100755 index b9c80c2f..00000000 Binary files a/pics/92266279.jpg and /dev/null differ diff --git a/pics/92300891.jpg b/pics/92300891.jpg deleted file mode 100644 index 24b05be0..00000000 Binary files a/pics/92300891.jpg and /dev/null differ diff --git a/pics/92346415.jpg b/pics/92346415.jpg deleted file mode 100644 index 93e9e938..00000000 Binary files a/pics/92346415.jpg and /dev/null differ diff --git a/pics/923596.jpg b/pics/923596.jpg deleted file mode 100644 index fc6cdd14..00000000 Binary files a/pics/923596.jpg and /dev/null differ diff --git a/pics/92361635.jpg b/pics/92361635.jpg deleted file mode 100644 index 05ea97aa..00000000 Binary files a/pics/92361635.jpg and /dev/null differ diff --git a/pics/92365601.jpg b/pics/92365601.jpg deleted file mode 100644 index 01b9637e..00000000 Binary files a/pics/92365601.jpg and /dev/null differ diff --git a/pics/9236985.jpg b/pics/9236985.jpg deleted file mode 100644 index 4a5f97a7..00000000 Binary files a/pics/9236985.jpg and /dev/null differ diff --git a/pics/92373006.jpg b/pics/92373006.jpg deleted file mode 100644 index 7178d2a8..00000000 Binary files a/pics/92373006.jpg and /dev/null differ diff --git a/pics/92377303.jpg b/pics/92377303.jpg deleted file mode 100644 index 21676f15..00000000 Binary files a/pics/92377303.jpg and /dev/null differ diff --git a/pics/92391084.jpg b/pics/92391084.jpg deleted file mode 100644 index dc21e426..00000000 Binary files a/pics/92391084.jpg and /dev/null differ diff --git a/pics/92394653.jpg b/pics/92394653.jpg deleted file mode 100644 index 85b55364..00000000 Binary files a/pics/92394653.jpg and /dev/null differ diff --git a/pics/92408984.jpg b/pics/92408984.jpg deleted file mode 100644 index 2f366115..00000000 Binary files a/pics/92408984.jpg and /dev/null differ diff --git a/pics/92409659.jpg b/pics/92409659.jpg deleted file mode 100644 index 4eb36e9d..00000000 Binary files a/pics/92409659.jpg and /dev/null differ diff --git a/pics/92418590.jpg b/pics/92418590.jpg deleted file mode 100644 index 8a9ea4b4..00000000 Binary files a/pics/92418590.jpg and /dev/null differ diff --git a/pics/92421852.jpg b/pics/92421852.jpg deleted file mode 100644 index 5a8631f3..00000000 Binary files a/pics/92421852.jpg and /dev/null differ diff --git a/pics/92450185.jpg b/pics/92450185.jpg deleted file mode 100644 index 64f0d84f..00000000 Binary files a/pics/92450185.jpg and /dev/null differ diff --git a/pics/92510265.jpg b/pics/92510265.jpg deleted file mode 100755 index 66d775d5..00000000 Binary files a/pics/92510265.jpg and /dev/null differ diff --git a/pics/92512625.jpg b/pics/92512625.jpg deleted file mode 100644 index efb6e4a6..00000000 Binary files a/pics/92512625.jpg and /dev/null differ diff --git a/pics/92518817.jpg b/pics/92518817.jpg deleted file mode 100644 index 3f53dbd8..00000000 Binary files a/pics/92518817.jpg and /dev/null differ diff --git a/pics/92536468.jpg b/pics/92536468.jpg deleted file mode 100644 index f48f1e8b..00000000 Binary files a/pics/92536468.jpg and /dev/null differ diff --git a/pics/92572371.jpg b/pics/92572371.jpg deleted file mode 100644 index 2a883d42..00000000 Binary files a/pics/92572371.jpg and /dev/null differ diff --git a/pics/92595545.jpg b/pics/92595545.jpg deleted file mode 100644 index 2b8d1067..00000000 Binary files a/pics/92595545.jpg and /dev/null differ diff --git a/pics/92595643.jpg b/pics/92595643.jpg deleted file mode 100644 index 2bdeac17..00000000 Binary files a/pics/92595643.jpg and /dev/null differ diff --git a/pics/9260791.jpg b/pics/9260791.jpg deleted file mode 100644 index 8b1578ed..00000000 Binary files a/pics/9260791.jpg and /dev/null differ diff --git a/pics/92609670.jpg b/pics/92609670.jpg deleted file mode 100644 index ffe6406e..00000000 Binary files a/pics/92609670.jpg and /dev/null differ diff --git a/pics/9264485.jpg b/pics/9264485.jpg deleted file mode 100644 index d5d86914..00000000 Binary files a/pics/9264485.jpg and /dev/null differ diff --git a/pics/92661479.jpg b/pics/92661479.jpg deleted file mode 100644 index e9a31996..00000000 Binary files a/pics/92661479.jpg and /dev/null differ diff --git a/pics/92667214.jpg b/pics/92667214.jpg deleted file mode 100644 index bda61d0d..00000000 Binary files a/pics/92667214.jpg and /dev/null differ diff --git a/pics/92676637.jpg b/pics/92676637.jpg deleted file mode 100644 index 4be54eeb..00000000 Binary files a/pics/92676637.jpg and /dev/null differ diff --git a/pics/9267769.jpg b/pics/9267769.jpg deleted file mode 100644 index f898b0e6..00000000 Binary files a/pics/9267769.jpg and /dev/null differ diff --git a/pics/92693205.jpg b/pics/92693205.jpg deleted file mode 100644 index a9a99fb5..00000000 Binary files a/pics/92693205.jpg and /dev/null differ diff --git a/pics/92719314.jpg b/pics/92719314.jpg deleted file mode 100644 index 9da367b3..00000000 Binary files a/pics/92719314.jpg and /dev/null differ diff --git a/pics/92720564.jpg b/pics/92720564.jpg deleted file mode 100644 index 0f3754b4..00000000 Binary files a/pics/92720564.jpg and /dev/null differ diff --git a/pics/92723496.jpg b/pics/92723496.jpg deleted file mode 100644 index 4c009a44..00000000 Binary files a/pics/92723496.jpg and /dev/null differ diff --git a/pics/9272381.jpg b/pics/9272381.jpg deleted file mode 100644 index 057c42f8..00000000 Binary files a/pics/9272381.jpg and /dev/null differ diff --git a/pics/92729410.jpg b/pics/92729410.jpg deleted file mode 100644 index 1efc511e..00000000 Binary files a/pics/92729410.jpg and /dev/null differ diff --git a/pics/92731455.jpg b/pics/92731455.jpg deleted file mode 100644 index a0edeae2..00000000 Binary files a/pics/92731455.jpg and /dev/null differ diff --git a/pics/92736188.jpg b/pics/92736188.jpg deleted file mode 100644 index 8a451115..00000000 Binary files a/pics/92736188.jpg and /dev/null differ diff --git a/pics/92746535.jpg b/pics/92746535.jpg deleted file mode 100755 index ff462075..00000000 Binary files a/pics/92746535.jpg and /dev/null differ diff --git a/pics/92755808.jpg b/pics/92755808.jpg deleted file mode 100644 index 8f467f70..00000000 Binary files a/pics/92755808.jpg and /dev/null differ diff --git a/pics/92773018.jpg b/pics/92773018.jpg deleted file mode 100644 index dbf6a680..00000000 Binary files a/pics/92773018.jpg and /dev/null differ diff --git a/pics/92784374.jpg b/pics/92784374.jpg deleted file mode 100644 index 8dc79db5..00000000 Binary files a/pics/92784374.jpg and /dev/null differ diff --git a/pics/92821268.jpg b/pics/92821268.jpg deleted file mode 100644 index f7c29c43..00000000 Binary files a/pics/92821268.jpg and /dev/null differ diff --git a/pics/92826944.jpg b/pics/92826944.jpg deleted file mode 100644 index fb510427..00000000 Binary files a/pics/92826944.jpg and /dev/null differ diff --git a/pics/92841002.jpg b/pics/92841002.jpg deleted file mode 100644 index 066f14ba..00000000 Binary files a/pics/92841002.jpg and /dev/null differ diff --git a/pics/9284723.jpg b/pics/9284723.jpg deleted file mode 100644 index 44150f41..00000000 Binary files a/pics/9284723.jpg and /dev/null differ diff --git a/pics/92854392.jpg b/pics/92854392.jpg deleted file mode 100644 index 46774dd9..00000000 Binary files a/pics/92854392.jpg and /dev/null differ diff --git a/pics/92870717.jpg b/pics/92870717.jpg deleted file mode 100644 index 290f260d..00000000 Binary files a/pics/92870717.jpg and /dev/null differ diff --git a/pics/9287078.jpg b/pics/9287078.jpg deleted file mode 100644 index 5c1b1df3..00000000 Binary files a/pics/9287078.jpg and /dev/null differ diff --git a/pics/92887027.jpg b/pics/92887027.jpg deleted file mode 100644 index f0d81a3d..00000000 Binary files a/pics/92887027.jpg and /dev/null differ diff --git a/pics/92890308.jpg b/pics/92890308.jpg deleted file mode 100644 index e2fe32ac..00000000 Binary files a/pics/92890308.jpg and /dev/null differ diff --git a/pics/92901944.jpg b/pics/92901944.jpg deleted file mode 100644 index 89b40e86..00000000 Binary files a/pics/92901944.jpg and /dev/null differ diff --git a/pics/92918648.jpg b/pics/92918648.jpg deleted file mode 100644 index 717f7fda..00000000 Binary files a/pics/92918648.jpg and /dev/null differ diff --git a/pics/92924317.jpg b/pics/92924317.jpg deleted file mode 100644 index 49e41211..00000000 Binary files a/pics/92924317.jpg and /dev/null differ diff --git a/pics/92933195.jpg b/pics/92933195.jpg deleted file mode 100644 index 9f76ef70..00000000 Binary files a/pics/92933195.jpg and /dev/null differ diff --git a/pics/9293977.jpg b/pics/9293977.jpg deleted file mode 100644 index d78a7437..00000000 Binary files a/pics/9293977.jpg and /dev/null differ diff --git a/pics/92944626.jpg b/pics/92944626.jpg deleted file mode 100644 index 520393f8..00000000 Binary files a/pics/92944626.jpg and /dev/null differ diff --git a/pics/9298235.jpg b/pics/9298235.jpg deleted file mode 100644 index 902c67ff..00000000 Binary files a/pics/9298235.jpg and /dev/null differ diff --git a/pics/93013676.jpg b/pics/93013676.jpg deleted file mode 100644 index fa6e8ac1..00000000 Binary files a/pics/93013676.jpg and /dev/null differ diff --git a/pics/93016201.jpg b/pics/93016201.jpg deleted file mode 100644 index 87d7f482..00000000 Binary files a/pics/93016201.jpg and /dev/null differ diff --git a/pics/93023479.jpg b/pics/93023479.jpg deleted file mode 100644 index 8e6eec70..00000000 Binary files a/pics/93023479.jpg and /dev/null differ diff --git a/pics/93085839.jpg b/pics/93085839.jpg deleted file mode 100644 index fb8ccb17..00000000 Binary files a/pics/93085839.jpg and /dev/null differ diff --git a/pics/93087299.jpg b/pics/93087299.jpg deleted file mode 100644 index bf1000c3..00000000 Binary files a/pics/93087299.jpg and /dev/null differ diff --git a/pics/93107608.jpg b/pics/93107608.jpg deleted file mode 100644 index 73c89aa6..00000000 Binary files a/pics/93107608.jpg and /dev/null differ diff --git a/pics/93108297.jpg b/pics/93108297.jpg deleted file mode 100644 index 3df8791b..00000000 Binary files a/pics/93108297.jpg and /dev/null differ diff --git a/pics/93108433.jpg b/pics/93108433.jpg deleted file mode 100644 index 5caa3238..00000000 Binary files a/pics/93108433.jpg and /dev/null differ diff --git a/pics/93108839.jpg b/pics/93108839.jpg deleted file mode 100644 index b1ed5674..00000000 Binary files a/pics/93108839.jpg and /dev/null differ diff --git a/pics/93124273.jpg b/pics/93124273.jpg deleted file mode 100755 index d09b659e..00000000 Binary files a/pics/93124273.jpg and /dev/null differ diff --git a/pics/93130021.jpg b/pics/93130021.jpg deleted file mode 100644 index 81874fca..00000000 Binary files a/pics/93130021.jpg and /dev/null differ diff --git a/pics/93130022.jpg b/pics/93130022.jpg deleted file mode 100644 index df06078d..00000000 Binary files a/pics/93130022.jpg and /dev/null differ diff --git a/pics/93151201.jpg b/pics/93151201.jpg deleted file mode 100644 index 81dcd42e..00000000 Binary files a/pics/93151201.jpg and /dev/null differ diff --git a/pics/93157004.jpg b/pics/93157004.jpg deleted file mode 100644 index 75fd8ecd..00000000 Binary files a/pics/93157004.jpg and /dev/null differ diff --git a/pics/93187568.jpg b/pics/93187568.jpg deleted file mode 100644 index 405b44f7..00000000 Binary files a/pics/93187568.jpg and /dev/null differ diff --git a/pics/93211810.jpg b/pics/93211810.jpg deleted file mode 100644 index 20c8d119..00000000 Binary files a/pics/93211810.jpg and /dev/null differ diff --git a/pics/93211836.jpg b/pics/93211836.jpg deleted file mode 100644 index 6b4b2200..00000000 Binary files a/pics/93211836.jpg and /dev/null differ diff --git a/pics/93217231.jpg b/pics/93217231.jpg deleted file mode 100644 index 9eadf66a..00000000 Binary files a/pics/93217231.jpg and /dev/null differ diff --git a/pics/93220472.jpg b/pics/93220472.jpg deleted file mode 100644 index fa0f9d9c..00000000 Binary files a/pics/93220472.jpg and /dev/null differ diff --git a/pics/93221206.jpg b/pics/93221206.jpg deleted file mode 100644 index 3a201bd6..00000000 Binary files a/pics/93221206.jpg and /dev/null differ diff --git a/pics/93224848.jpg b/pics/93224848.jpg deleted file mode 100644 index acdb6be4..00000000 Binary files a/pics/93224848.jpg and /dev/null differ diff --git a/pics/93224849.jpg b/pics/93224849.jpg deleted file mode 100644 index a264dd8e..00000000 Binary files a/pics/93224849.jpg and /dev/null differ diff --git a/pics/93238626.jpg b/pics/93238626.jpg deleted file mode 100644 index a08d93d8..00000000 Binary files a/pics/93238626.jpg and /dev/null differ diff --git a/pics/93260132.jpg b/pics/93260132.jpg deleted file mode 100644 index 24c65cdd..00000000 Binary files a/pics/93260132.jpg and /dev/null differ diff --git a/pics/9327502.jpg b/pics/9327502.jpg deleted file mode 100644 index d878043c..00000000 Binary files a/pics/9327502.jpg and /dev/null differ diff --git a/pics/93294869.jpg b/pics/93294869.jpg deleted file mode 100644 index a8af9651..00000000 Binary files a/pics/93294869.jpg and /dev/null differ diff --git a/pics/93298460.jpg b/pics/93298460.jpg deleted file mode 100644 index 201ccbb0..00000000 Binary files a/pics/93298460.jpg and /dev/null differ diff --git a/pics/93302695.jpg b/pics/93302695.jpg deleted file mode 100755 index e59571e1..00000000 Binary files a/pics/93302695.jpg and /dev/null differ diff --git a/pics/93332803.jpg b/pics/93332803.jpg deleted file mode 100755 index cff16755..00000000 Binary files a/pics/93332803.jpg and /dev/null differ diff --git a/pics/93343894.jpg b/pics/93343894.jpg deleted file mode 100644 index f7f2a14e..00000000 Binary files a/pics/93343894.jpg and /dev/null differ diff --git a/pics/93346024.jpg b/pics/93346024.jpg deleted file mode 100644 index 24005b26..00000000 Binary files a/pics/93346024.jpg and /dev/null differ diff --git a/pics/93353691.jpg b/pics/93353691.jpg deleted file mode 100644 index 45473450..00000000 Binary files a/pics/93353691.jpg and /dev/null differ diff --git a/pics/93368494.jpg b/pics/93368494.jpg deleted file mode 100644 index 95903982..00000000 Binary files a/pics/93368494.jpg and /dev/null differ diff --git a/pics/93369354.jpg b/pics/93369354.jpg deleted file mode 100644 index 6f29da9a..00000000 Binary files a/pics/93369354.jpg and /dev/null differ diff --git a/pics/93379652.jpg b/pics/93379652.jpg deleted file mode 100644 index 0ed01519..00000000 Binary files a/pics/93379652.jpg and /dev/null differ diff --git a/pics/93382620.jpg b/pics/93382620.jpg deleted file mode 100644 index 500d111c..00000000 Binary files a/pics/93382620.jpg and /dev/null differ diff --git a/pics/93396832.jpg b/pics/93396832.jpg deleted file mode 100644 index 7a92d07a..00000000 Binary files a/pics/93396832.jpg and /dev/null differ diff --git a/pics/9342162.jpg b/pics/9342162.jpg deleted file mode 100644 index b96a48e1..00000000 Binary files a/pics/9342162.jpg and /dev/null differ diff --git a/pics/93431518.jpg b/pics/93431518.jpg deleted file mode 100644 index 872fc706..00000000 Binary files a/pics/93431518.jpg and /dev/null differ diff --git a/pics/93431862.jpg b/pics/93431862.jpg deleted file mode 100644 index 92355e44..00000000 Binary files a/pics/93431862.jpg and /dev/null differ diff --git a/pics/93445074.jpg b/pics/93445074.jpg deleted file mode 100755 index 3eb53396..00000000 Binary files a/pics/93445074.jpg and /dev/null differ diff --git a/pics/93451636.jpg b/pics/93451636.jpg deleted file mode 100644 index 98866bd3..00000000 Binary files a/pics/93451636.jpg and /dev/null differ diff --git a/pics/93469007.jpg b/pics/93469007.jpg deleted file mode 100644 index dae67e7e..00000000 Binary files a/pics/93469007.jpg and /dev/null differ diff --git a/pics/93483212.jpg b/pics/93483212.jpg deleted file mode 100644 index c7374865..00000000 Binary files a/pics/93483212.jpg and /dev/null differ diff --git a/pics/9348522.jpg b/pics/9348522.jpg deleted file mode 100644 index 9041764a..00000000 Binary files a/pics/9348522.jpg and /dev/null differ diff --git a/pics/93504463.jpg b/pics/93504463.jpg deleted file mode 100644 index c1e392eb..00000000 Binary files a/pics/93504463.jpg and /dev/null differ diff --git a/pics/93506862.jpg b/pics/93506862.jpg deleted file mode 100644 index 52a3085b..00000000 Binary files a/pics/93506862.jpg and /dev/null differ diff --git a/pics/93542102.jpg b/pics/93542102.jpg deleted file mode 100644 index 5d754adf..00000000 Binary files a/pics/93542102.jpg and /dev/null differ diff --git a/pics/93543806.jpg b/pics/93543806.jpg deleted file mode 100644 index 61cfa34e..00000000 Binary files a/pics/93543806.jpg and /dev/null differ diff --git a/pics/9354555.jpg b/pics/9354555.jpg deleted file mode 100644 index 3e0b4e84..00000000 Binary files a/pics/9354555.jpg and /dev/null differ diff --git a/pics/93553943.jpg b/pics/93553943.jpg deleted file mode 100644 index f6885d73..00000000 Binary files a/pics/93553943.jpg and /dev/null differ diff --git a/pics/93554166.jpg b/pics/93554166.jpg deleted file mode 100644 index 619fd882..00000000 Binary files a/pics/93554166.jpg and /dev/null differ diff --git a/pics/93568288.jpg b/pics/93568288.jpg deleted file mode 100644 index a4ab2f88..00000000 Binary files a/pics/93568288.jpg and /dev/null differ diff --git a/pics/93599951.jpg b/pics/93599951.jpg deleted file mode 100644 index 9240948c..00000000 Binary files a/pics/93599951.jpg and /dev/null differ diff --git a/pics/93600443.jpg b/pics/93600443.jpg deleted file mode 100644 index b321d364..00000000 Binary files a/pics/93600443.jpg and /dev/null differ diff --git a/pics/9365703.jpg b/pics/9365703.jpg deleted file mode 100644 index 3afd0606..00000000 Binary files a/pics/9365703.jpg and /dev/null differ diff --git a/pics/93662626.jpg b/pics/93662626.jpg deleted file mode 100644 index 4f442236..00000000 Binary files a/pics/93662626.jpg and /dev/null differ diff --git a/pics/93671934.jpg b/pics/93671934.jpg deleted file mode 100644 index 9cedea4d..00000000 Binary files a/pics/93671934.jpg and /dev/null differ diff --git a/pics/93709215.jpg b/pics/93709215.jpg deleted file mode 100644 index 49ed1e61..00000000 Binary files a/pics/93709215.jpg and /dev/null differ diff --git a/pics/93715853.jpg b/pics/93715853.jpg deleted file mode 100644 index 761779a5..00000000 Binary files a/pics/93715853.jpg and /dev/null differ diff --git a/pics/93717133.jpg b/pics/93717133.jpg deleted file mode 100644 index d37103e6..00000000 Binary files a/pics/93717133.jpg and /dev/null differ diff --git a/pics/93724592.jpg b/pics/93724592.jpg deleted file mode 100644 index e0f26e7d..00000000 Binary files a/pics/93724592.jpg and /dev/null differ diff --git a/pics/93730230.jpg b/pics/93730230.jpg deleted file mode 100644 index 155602eb..00000000 Binary files a/pics/93730230.jpg and /dev/null differ diff --git a/pics/93730409.jpg b/pics/93730409.jpg deleted file mode 100644 index 6653608d..00000000 Binary files a/pics/93730409.jpg and /dev/null differ diff --git a/pics/9373534.jpg b/pics/9373534.jpg deleted file mode 100644 index 2ddca1ba..00000000 Binary files a/pics/9373534.jpg and /dev/null differ diff --git a/pics/93747864.jpg b/pics/93747864.jpg deleted file mode 100644 index f101f453..00000000 Binary files a/pics/93747864.jpg and /dev/null differ diff --git a/pics/93751476.jpg b/pics/93751476.jpg deleted file mode 100644 index 22ccc5fc..00000000 Binary files a/pics/93751476.jpg and /dev/null differ diff --git a/pics/93775296.jpg b/pics/93775296.jpg deleted file mode 100755 index f75009dc..00000000 Binary files a/pics/93775296.jpg and /dev/null differ diff --git a/pics/93788854.jpg b/pics/93788854.jpg deleted file mode 100644 index 2ea0432a..00000000 Binary files a/pics/93788854.jpg and /dev/null differ diff --git a/pics/93816465.jpg b/pics/93816465.jpg deleted file mode 100644 index c8d920db..00000000 Binary files a/pics/93816465.jpg and /dev/null differ diff --git a/pics/93830681.jpg b/pics/93830681.jpg deleted file mode 100644 index 73b1f8f9..00000000 Binary files a/pics/93830681.jpg and /dev/null differ diff --git a/pics/93882364.jpg b/pics/93882364.jpg deleted file mode 100644 index be387ec0..00000000 Binary files a/pics/93882364.jpg and /dev/null differ diff --git a/pics/93889755.jpg b/pics/93889755.jpg deleted file mode 100644 index f22c8fe7..00000000 Binary files a/pics/93889755.jpg and /dev/null differ diff --git a/pics/93895605.jpg b/pics/93895605.jpg deleted file mode 100644 index 04e02683..00000000 Binary files a/pics/93895605.jpg and /dev/null differ diff --git a/pics/93900406.jpg b/pics/93900406.jpg deleted file mode 100644 index c9beb352..00000000 Binary files a/pics/93900406.jpg and /dev/null differ diff --git a/pics/93912845.jpg b/pics/93912845.jpg deleted file mode 100644 index 69650626..00000000 Binary files a/pics/93912845.jpg and /dev/null differ diff --git a/pics/93912846.jpg b/pics/93912846.jpg deleted file mode 100644 index 6408fbb8..00000000 Binary files a/pics/93912846.jpg and /dev/null differ diff --git a/pics/9391354.jpg b/pics/9391354.jpg deleted file mode 100644 index a9f2e91a..00000000 Binary files a/pics/9391354.jpg and /dev/null differ diff --git a/pics/93920745.jpg b/pics/93920745.jpg deleted file mode 100644 index 2f65e29e..00000000 Binary files a/pics/93920745.jpg and /dev/null differ diff --git a/pics/93946239.jpg b/pics/93946239.jpg deleted file mode 100644 index 7214e42d..00000000 Binary files a/pics/93946239.jpg and /dev/null differ diff --git a/pics/93969023.jpg b/pics/93969023.jpg deleted file mode 100755 index b211b98e..00000000 Binary files a/pics/93969023.jpg and /dev/null differ diff --git a/pics/93983867.jpg b/pics/93983867.jpg deleted file mode 100755 index 5cb4a53f..00000000 Binary files a/pics/93983867.jpg and /dev/null differ diff --git a/pics/94000200.jpg b/pics/94000200.jpg deleted file mode 100644 index 236ecd6a..00000000 Binary files a/pics/94000200.jpg and /dev/null differ diff --git a/pics/94004268.jpg b/pics/94004268.jpg deleted file mode 100644 index 2e454889..00000000 Binary files a/pics/94004268.jpg and /dev/null differ diff --git a/pics/94022093.jpg b/pics/94022093.jpg deleted file mode 100644 index 87cfc5bf..00000000 Binary files a/pics/94022093.jpg and /dev/null differ diff --git a/pics/9402966.jpg b/pics/9402966.jpg deleted file mode 100644 index 6d982cbd..00000000 Binary files a/pics/9402966.jpg and /dev/null differ diff --git a/pics/94042337.jpg b/pics/94042337.jpg deleted file mode 100644 index 59089280..00000000 Binary files a/pics/94042337.jpg and /dev/null differ diff --git a/pics/94068856.jpg b/pics/94068856.jpg deleted file mode 100644 index 9bdc03d0..00000000 Binary files a/pics/94068856.jpg and /dev/null differ diff --git a/pics/94079037.jpg b/pics/94079037.jpg deleted file mode 100644 index 21a9e4fb..00000000 Binary files a/pics/94079037.jpg and /dev/null differ diff --git a/pics/94081496.jpg b/pics/94081496.jpg deleted file mode 100644 index a5a1df67..00000000 Binary files a/pics/94081496.jpg and /dev/null differ diff --git a/pics/94092230.jpg b/pics/94092230.jpg deleted file mode 100644 index bacf4368..00000000 Binary files a/pics/94092230.jpg and /dev/null differ diff --git a/pics/94096616.jpg b/pics/94096616.jpg deleted file mode 100644 index 6255c199..00000000 Binary files a/pics/94096616.jpg and /dev/null differ diff --git a/pics/9411399.jpg b/pics/9411399.jpg deleted file mode 100644 index fd00c97d..00000000 Binary files a/pics/9411399.jpg and /dev/null differ diff --git a/pics/94119480.jpg b/pics/94119480.jpg deleted file mode 100644 index 56ba4e82..00000000 Binary files a/pics/94119480.jpg and /dev/null differ diff --git a/pics/94119974.jpg b/pics/94119974.jpg deleted file mode 100644 index 6723da32..00000000 Binary files a/pics/94119974.jpg and /dev/null differ diff --git a/pics/94145021.jpg b/pics/94145021.jpg deleted file mode 100644 index 78c6b577..00000000 Binary files a/pics/94145021.jpg and /dev/null differ diff --git a/pics/94145683.jpg b/pics/94145683.jpg deleted file mode 100644 index 8bc7e5f3..00000000 Binary files a/pics/94145683.jpg and /dev/null differ diff --git a/pics/94156050.jpg b/pics/94156050.jpg deleted file mode 100644 index f591a1f8..00000000 Binary files a/pics/94156050.jpg and /dev/null differ diff --git a/pics/94163677.jpg b/pics/94163677.jpg deleted file mode 100644 index 25fa2e85..00000000 Binary files a/pics/94163677.jpg and /dev/null differ diff --git a/pics/9418365.jpg b/pics/9418365.jpg deleted file mode 100644 index 7e611b1c..00000000 Binary files a/pics/9418365.jpg and /dev/null differ diff --git a/pics/9418534.jpg b/pics/9418534.jpg deleted file mode 100644 index f173c1d2..00000000 Binary files a/pics/9418534.jpg and /dev/null differ diff --git a/pics/94192409.jpg b/pics/94192409.jpg deleted file mode 100644 index c9dd1575..00000000 Binary files a/pics/94192409.jpg and /dev/null differ diff --git a/pics/94203886.jpg b/pics/94203886.jpg deleted file mode 100644 index 9eef14de..00000000 Binary files a/pics/94203886.jpg and /dev/null differ diff --git a/pics/94212438.jpg b/pics/94212438.jpg deleted file mode 100644 index 9094655c..00000000 Binary files a/pics/94212438.jpg and /dev/null differ diff --git a/pics/94215860.jpg b/pics/94215860.jpg deleted file mode 100644 index 9046c7a8..00000000 Binary files a/pics/94215860.jpg and /dev/null differ diff --git a/pics/94220427.jpg b/pics/94220427.jpg deleted file mode 100644 index 278f8cf8..00000000 Binary files a/pics/94220427.jpg and /dev/null differ diff --git a/pics/94230224.jpg b/pics/94230224.jpg deleted file mode 100644 index 10842502..00000000 Binary files a/pics/94230224.jpg and /dev/null differ diff --git a/pics/94243005.jpg b/pics/94243005.jpg deleted file mode 100644 index f0e3c41f..00000000 Binary files a/pics/94243005.jpg and /dev/null differ diff --git a/pics/94253609.jpg b/pics/94253609.jpg deleted file mode 100644 index 2a2b3549..00000000 Binary files a/pics/94253609.jpg and /dev/null differ diff --git a/pics/94256039.jpg b/pics/94256039.jpg deleted file mode 100644 index fc2efedd..00000000 Binary files a/pics/94256039.jpg and /dev/null differ diff --git a/pics/94283662.jpg b/pics/94283662.jpg deleted file mode 100644 index 2d550f49..00000000 Binary files a/pics/94283662.jpg and /dev/null differ diff --git a/pics/94303232.jpg b/pics/94303232.jpg deleted file mode 100644 index 3482e54d..00000000 Binary files a/pics/94303232.jpg and /dev/null differ diff --git a/pics/9430387.jpg b/pics/9430387.jpg deleted file mode 100644 index a9959139..00000000 Binary files a/pics/9430387.jpg and /dev/null differ diff --git a/pics/94331452.jpg b/pics/94331452.jpg deleted file mode 100644 index 737cacf2..00000000 Binary files a/pics/94331452.jpg and /dev/null differ diff --git a/pics/9433350.jpg b/pics/9433350.jpg deleted file mode 100644 index 944b4783..00000000 Binary files a/pics/9433350.jpg and /dev/null differ diff --git a/pics/94374859.jpg b/pics/94374859.jpg deleted file mode 100644 index b148d986..00000000 Binary files a/pics/94374859.jpg and /dev/null differ diff --git a/pics/94377247.jpg b/pics/94377247.jpg deleted file mode 100644 index b81005bd..00000000 Binary files a/pics/94377247.jpg and /dev/null differ diff --git a/pics/94380860.jpg b/pics/94380860.jpg deleted file mode 100644 index d189414d..00000000 Binary files a/pics/94380860.jpg and /dev/null differ diff --git a/pics/94381039.jpg b/pics/94381039.jpg deleted file mode 100644 index 0eae1449..00000000 Binary files a/pics/94381039.jpg and /dev/null differ diff --git a/pics/94412545.jpg b/pics/94412545.jpg deleted file mode 100644 index 993558b9..00000000 Binary files a/pics/94412545.jpg and /dev/null differ diff --git a/pics/94415058.jpg b/pics/94415058.jpg deleted file mode 100644 index 5ee965ed..00000000 Binary files a/pics/94415058.jpg and /dev/null differ diff --git a/pics/94425169.jpg b/pics/94425169.jpg deleted file mode 100644 index 853970d7..00000000 Binary files a/pics/94425169.jpg and /dev/null differ diff --git a/pics/94432298.jpg b/pics/94432298.jpg deleted file mode 100644 index 99d1a5e5..00000000 Binary files a/pics/94432298.jpg and /dev/null differ diff --git a/pics/94454495.jpg b/pics/94454495.jpg deleted file mode 100755 index f48a37d6..00000000 Binary files a/pics/94454495.jpg and /dev/null differ diff --git a/pics/94463200.jpg b/pics/94463200.jpg deleted file mode 100644 index 25f81a09..00000000 Binary files a/pics/94463200.jpg and /dev/null differ diff --git a/pics/94484482.jpg b/pics/94484482.jpg deleted file mode 100644 index c95f88f5..00000000 Binary files a/pics/94484482.jpg and /dev/null differ diff --git a/pics/94515289.jpg b/pics/94515289.jpg deleted file mode 100644 index 7b996cb4..00000000 Binary files a/pics/94515289.jpg and /dev/null differ diff --git a/pics/94538053.jpg b/pics/94538053.jpg deleted file mode 100644 index a613383f..00000000 Binary files a/pics/94538053.jpg and /dev/null differ diff --git a/pics/94566432.jpg b/pics/94566432.jpg deleted file mode 100644 index 7835e28e..00000000 Binary files a/pics/94566432.jpg and /dev/null differ diff --git a/pics/94568601.jpg b/pics/94568601.jpg deleted file mode 100644 index b32914d2..00000000 Binary files a/pics/94568601.jpg and /dev/null differ diff --git a/pics/94573223.jpg b/pics/94573223.jpg deleted file mode 100644 index b5671cd8..00000000 Binary files a/pics/94573223.jpg and /dev/null differ diff --git a/pics/94585852.jpg b/pics/94585852.jpg deleted file mode 100644 index 0b2ae6af..00000000 Binary files a/pics/94585852.jpg and /dev/null differ diff --git a/pics/94622638.jpg b/pics/94622638.jpg deleted file mode 100644 index a0c6d7aa..00000000 Binary files a/pics/94622638.jpg and /dev/null differ diff --git a/pics/94626050.jpg b/pics/94626050.jpg deleted file mode 100644 index 8f93ecfb..00000000 Binary files a/pics/94626050.jpg and /dev/null differ diff --git a/pics/94634433.jpg b/pics/94634433.jpg deleted file mode 100644 index c268eab6..00000000 Binary files a/pics/94634433.jpg and /dev/null differ diff --git a/pics/94656263.jpg b/pics/94656263.jpg deleted file mode 100644 index 6794c823..00000000 Binary files a/pics/94656263.jpg and /dev/null differ diff --git a/pics/94662235.jpg b/pics/94662235.jpg deleted file mode 100644 index 7e63165a..00000000 Binary files a/pics/94662235.jpg and /dev/null differ diff --git a/pics/94664694.jpg b/pics/94664694.jpg deleted file mode 100644 index f38c5d43..00000000 Binary files a/pics/94664694.jpg and /dev/null differ diff --git a/pics/94667532.jpg b/pics/94667532.jpg deleted file mode 100644 index 4a55ece9..00000000 Binary files a/pics/94667532.jpg and /dev/null differ diff --git a/pics/94675535.jpg b/pics/94675535.jpg deleted file mode 100644 index b2b57e1a..00000000 Binary files a/pics/94675535.jpg and /dev/null differ diff --git a/pics/94681654.jpg b/pics/94681654.jpg deleted file mode 100644 index c6ad55e6..00000000 Binary files a/pics/94681654.jpg and /dev/null differ diff --git a/pics/94689635.jpg b/pics/94689635.jpg deleted file mode 100644 index 3d0bdd7c..00000000 Binary files a/pics/94689635.jpg and /dev/null differ diff --git a/pics/94693857.jpg b/pics/94693857.jpg deleted file mode 100644 index 81e5e54f..00000000 Binary files a/pics/94693857.jpg and /dev/null differ diff --git a/pics/94716515.jpg b/pics/94716515.jpg deleted file mode 100644 index 5773d3b8..00000000 Binary files a/pics/94716515.jpg and /dev/null differ diff --git a/pics/94739788.jpg b/pics/94739788.jpg deleted file mode 100644 index f0259ef1..00000000 Binary files a/pics/94739788.jpg and /dev/null differ diff --git a/pics/94766498.jpg b/pics/94766498.jpg deleted file mode 100644 index a322c825..00000000 Binary files a/pics/94766498.jpg and /dev/null differ diff --git a/pics/94770493.jpg b/pics/94770493.jpg deleted file mode 100644 index 74f370d6..00000000 Binary files a/pics/94770493.jpg and /dev/null differ diff --git a/pics/94772232.jpg b/pics/94772232.jpg deleted file mode 100644 index 4d8fd970..00000000 Binary files a/pics/94772232.jpg and /dev/null differ diff --git a/pics/94773007.jpg b/pics/94773007.jpg deleted file mode 100644 index 82f56426..00000000 Binary files a/pics/94773007.jpg and /dev/null differ diff --git a/pics/94784213.jpg b/pics/94784213.jpg deleted file mode 100755 index 9a60aead..00000000 Binary files a/pics/94784213.jpg and /dev/null differ diff --git a/pics/94793422.jpg b/pics/94793422.jpg deleted file mode 100644 index ed004754..00000000 Binary files a/pics/94793422.jpg and /dev/null differ diff --git a/pics/94804055.jpg b/pics/94804055.jpg deleted file mode 100644 index b0e6bde3..00000000 Binary files a/pics/94804055.jpg and /dev/null differ diff --git a/pics/94807487.jpg b/pics/94807487.jpg deleted file mode 100644 index 04f7ac09..00000000 Binary files a/pics/94807487.jpg and /dev/null differ diff --git a/pics/94820406.jpg b/pics/94820406.jpg deleted file mode 100644 index e1759305..00000000 Binary files a/pics/94820406.jpg and /dev/null differ diff --git a/pics/94845226.jpg b/pics/94845226.jpg deleted file mode 100644 index 8ac69496..00000000 Binary files a/pics/94845226.jpg and /dev/null differ diff --git a/pics/94853057.jpg b/pics/94853057.jpg deleted file mode 100644 index b702f84c..00000000 Binary files a/pics/94853057.jpg and /dev/null differ diff --git a/pics/9485511.jpg b/pics/9485511.jpg deleted file mode 100644 index bc3621f8..00000000 Binary files a/pics/9485511.jpg and /dev/null differ diff --git a/pics/94878265.jpg b/pics/94878265.jpg deleted file mode 100644 index 3b5d0473..00000000 Binary files a/pics/94878265.jpg and /dev/null differ diff --git a/pics/94886282.jpg b/pics/94886282.jpg deleted file mode 100644 index 4b479218..00000000 Binary files a/pics/94886282.jpg and /dev/null differ diff --git a/pics/94905343.jpg b/pics/94905343.jpg deleted file mode 100644 index 25bd83b2..00000000 Binary files a/pics/94905343.jpg and /dev/null differ diff --git a/pics/94933468.jpg b/pics/94933468.jpg deleted file mode 100644 index 159a8ec9..00000000 Binary files a/pics/94933468.jpg and /dev/null differ diff --git a/pics/94937430.jpg b/pics/94937430.jpg deleted file mode 100755 index 4585f736..00000000 Binary files a/pics/94937430.jpg and /dev/null differ diff --git a/pics/94940436.jpg b/pics/94940436.jpg deleted file mode 100644 index 63fbabb6..00000000 Binary files a/pics/94940436.jpg and /dev/null differ diff --git a/pics/94944637.jpg b/pics/94944637.jpg deleted file mode 100644 index 96e1e7d6..00000000 Binary files a/pics/94944637.jpg and /dev/null differ diff --git a/pics/94950218.jpg b/pics/94950218.jpg deleted file mode 100644 index c64dd2dc..00000000 Binary files a/pics/94950218.jpg and /dev/null differ diff --git a/pics/94973028.jpg b/pics/94973028.jpg deleted file mode 100644 index bb406a13..00000000 Binary files a/pics/94973028.jpg and /dev/null differ diff --git a/pics/94973029.jpg b/pics/94973029.jpg deleted file mode 100644 index bc1f9f12..00000000 Binary files a/pics/94973029.jpg and /dev/null differ diff --git a/pics/94977269.jpg b/pics/94977269.jpg deleted file mode 100644 index 0c9fe8d6..00000000 Binary files a/pics/94977269.jpg and /dev/null differ diff --git a/pics/94997874.jpg b/pics/94997874.jpg deleted file mode 100755 index 99dee917..00000000 Binary files a/pics/94997874.jpg and /dev/null differ diff --git a/pics/95000000.jpg b/pics/95000000.jpg deleted file mode 100755 index 54bc1de6..00000000 Binary files a/pics/95000000.jpg and /dev/null differ diff --git a/pics/95000001.jpg b/pics/95000001.jpg deleted file mode 100755 index 1d63c3d9..00000000 Binary files a/pics/95000001.jpg and /dev/null differ diff --git a/pics/95000002.jpg b/pics/95000002.jpg deleted file mode 100755 index 83d7e8d3..00000000 Binary files a/pics/95000002.jpg and /dev/null differ diff --git a/pics/95000003.jpg b/pics/95000003.jpg deleted file mode 100755 index 7989c12a..00000000 Binary files a/pics/95000003.jpg and /dev/null differ diff --git a/pics/95000004.jpg b/pics/95000004.jpg deleted file mode 100755 index d123a0a2..00000000 Binary files a/pics/95000004.jpg and /dev/null differ diff --git a/pics/95000005.jpg b/pics/95000005.jpg deleted file mode 100755 index f65120d7..00000000 Binary files a/pics/95000005.jpg and /dev/null differ diff --git a/pics/95000006.jpg b/pics/95000006.jpg deleted file mode 100755 index 70e21286..00000000 Binary files a/pics/95000006.jpg and /dev/null differ diff --git a/pics/95000007.jpg b/pics/95000007.jpg deleted file mode 100755 index d4013239..00000000 Binary files a/pics/95000007.jpg and /dev/null differ diff --git a/pics/95000008.jpg b/pics/95000008.jpg deleted file mode 100755 index 5ae6327e..00000000 Binary files a/pics/95000008.jpg and /dev/null differ diff --git a/pics/95000009.jpg b/pics/95000009.jpg deleted file mode 100755 index 2c201efa..00000000 Binary files a/pics/95000009.jpg and /dev/null differ diff --git a/pics/95000010.jpg b/pics/95000010.jpg deleted file mode 100755 index 3d1013ab..00000000 Binary files a/pics/95000010.jpg and /dev/null differ diff --git a/pics/95000011.jpg b/pics/95000011.jpg deleted file mode 100755 index 722cd4a8..00000000 Binary files a/pics/95000011.jpg and /dev/null differ diff --git a/pics/95000012.jpg b/pics/95000012.jpg deleted file mode 100755 index 83512f66..00000000 Binary files a/pics/95000012.jpg and /dev/null differ diff --git a/pics/95000013.jpg b/pics/95000013.jpg deleted file mode 100755 index ebdc2fb2..00000000 Binary files a/pics/95000013.jpg and /dev/null differ diff --git a/pics/95000014.jpg b/pics/95000014.jpg deleted file mode 100755 index 4563b942..00000000 Binary files a/pics/95000014.jpg and /dev/null differ diff --git a/pics/95000015.jpg b/pics/95000015.jpg deleted file mode 100755 index bb568377..00000000 Binary files a/pics/95000015.jpg and /dev/null differ diff --git a/pics/95000016.jpg b/pics/95000016.jpg deleted file mode 100755 index aad8782b..00000000 Binary files a/pics/95000016.jpg and /dev/null differ diff --git a/pics/95000017.jpg b/pics/95000017.jpg deleted file mode 100755 index b238dee3..00000000 Binary files a/pics/95000017.jpg and /dev/null differ diff --git a/pics/95000018.jpg b/pics/95000018.jpg deleted file mode 100755 index bdd6a090..00000000 Binary files a/pics/95000018.jpg and /dev/null differ diff --git a/pics/95000019.jpg b/pics/95000019.jpg deleted file mode 100755 index 4f74b318..00000000 Binary files a/pics/95000019.jpg and /dev/null differ diff --git a/pics/95000020.jpg b/pics/95000020.jpg deleted file mode 100755 index af96e39a..00000000 Binary files a/pics/95000020.jpg and /dev/null differ diff --git a/pics/95000021.jpg b/pics/95000021.jpg deleted file mode 100755 index 4bc46e79..00000000 Binary files a/pics/95000021.jpg and /dev/null differ diff --git a/pics/95000022.jpg b/pics/95000022.jpg deleted file mode 100755 index 57eab6d4..00000000 Binary files a/pics/95000022.jpg and /dev/null differ diff --git a/pics/95000023.jpg b/pics/95000023.jpg deleted file mode 100755 index bcbbdd4f..00000000 Binary files a/pics/95000023.jpg and /dev/null differ diff --git a/pics/95000024.jpg b/pics/95000024.jpg deleted file mode 100755 index 9cd058f3..00000000 Binary files a/pics/95000024.jpg and /dev/null differ diff --git a/pics/95000025.jpg b/pics/95000025.jpg deleted file mode 100755 index e7449afb..00000000 Binary files a/pics/95000025.jpg and /dev/null differ diff --git a/pics/95000026.jpg b/pics/95000026.jpg deleted file mode 100755 index 2dd1dfb7..00000000 Binary files a/pics/95000026.jpg and /dev/null differ diff --git a/pics/95000027.jpg b/pics/95000027.jpg deleted file mode 100755 index 304eb6ea..00000000 Binary files a/pics/95000027.jpg and /dev/null differ diff --git a/pics/95000028.jpg b/pics/95000028.jpg deleted file mode 100755 index 9d61a96f..00000000 Binary files a/pics/95000028.jpg and /dev/null differ diff --git a/pics/95000029.jpg b/pics/95000029.jpg deleted file mode 100755 index bb9c7880..00000000 Binary files a/pics/95000029.jpg and /dev/null differ diff --git a/pics/95000030.jpg b/pics/95000030.jpg deleted file mode 100755 index 6c6bcf11..00000000 Binary files a/pics/95000030.jpg and /dev/null differ diff --git a/pics/95000031.jpg b/pics/95000031.jpg deleted file mode 100755 index e560e00a..00000000 Binary files a/pics/95000031.jpg and /dev/null differ diff --git a/pics/95000032.jpg b/pics/95000032.jpg deleted file mode 100755 index 93887465..00000000 Binary files a/pics/95000032.jpg and /dev/null differ diff --git a/pics/95000033.jpg b/pics/95000033.jpg deleted file mode 100755 index 154c72ab..00000000 Binary files a/pics/95000033.jpg and /dev/null differ diff --git a/pics/95000034.jpg b/pics/95000034.jpg deleted file mode 100755 index 3ee56be0..00000000 Binary files a/pics/95000034.jpg and /dev/null differ diff --git a/pics/95000035.jpg b/pics/95000035.jpg deleted file mode 100755 index b9db52e8..00000000 Binary files a/pics/95000035.jpg and /dev/null differ diff --git a/pics/95000036.jpg b/pics/95000036.jpg deleted file mode 100755 index c102bb7f..00000000 Binary files a/pics/95000036.jpg and /dev/null differ diff --git a/pics/95000037.jpg b/pics/95000037.jpg deleted file mode 100755 index cb22ae44..00000000 Binary files a/pics/95000037.jpg and /dev/null differ diff --git a/pics/95000038.jpg b/pics/95000038.jpg deleted file mode 100755 index b6c054b6..00000000 Binary files a/pics/95000038.jpg and /dev/null differ diff --git a/pics/95000039.jpg b/pics/95000039.jpg deleted file mode 100755 index ca022f5b..00000000 Binary files a/pics/95000039.jpg and /dev/null differ diff --git a/pics/95000040.jpg b/pics/95000040.jpg deleted file mode 100755 index ba1dae97..00000000 Binary files a/pics/95000040.jpg and /dev/null differ diff --git a/pics/95000041.jpg b/pics/95000041.jpg deleted file mode 100755 index 7ebc8735..00000000 Binary files a/pics/95000041.jpg and /dev/null differ diff --git a/pics/95000042.jpg b/pics/95000042.jpg deleted file mode 100755 index 546d9010..00000000 Binary files a/pics/95000042.jpg and /dev/null differ diff --git a/pics/95000043.jpg b/pics/95000043.jpg deleted file mode 100755 index f4744d88..00000000 Binary files a/pics/95000043.jpg and /dev/null differ diff --git a/pics/95000044.jpg b/pics/95000044.jpg deleted file mode 100755 index 9bd68e4f..00000000 Binary files a/pics/95000044.jpg and /dev/null differ diff --git a/pics/95000045.jpg b/pics/95000045.jpg deleted file mode 100755 index 7a8c093c..00000000 Binary files a/pics/95000045.jpg and /dev/null differ diff --git a/pics/95000046.jpg b/pics/95000046.jpg deleted file mode 100755 index 4707e831..00000000 Binary files a/pics/95000046.jpg and /dev/null differ diff --git a/pics/95000047.jpg b/pics/95000047.jpg deleted file mode 100755 index f327e7af..00000000 Binary files a/pics/95000047.jpg and /dev/null differ diff --git a/pics/95000048.jpg b/pics/95000048.jpg deleted file mode 100755 index a57ccc8f..00000000 Binary files a/pics/95000048.jpg and /dev/null differ diff --git a/pics/95000049.jpg b/pics/95000049.jpg deleted file mode 100755 index 196a3042..00000000 Binary files a/pics/95000049.jpg and /dev/null differ diff --git a/pics/95000050.jpg b/pics/95000050.jpg deleted file mode 100755 index 0dc1fd01..00000000 Binary files a/pics/95000050.jpg and /dev/null differ diff --git a/pics/95000051.jpg b/pics/95000051.jpg deleted file mode 100755 index 26a3e031..00000000 Binary files a/pics/95000051.jpg and /dev/null differ diff --git a/pics/95000052.jpg b/pics/95000052.jpg deleted file mode 100755 index 5d403778..00000000 Binary files a/pics/95000052.jpg and /dev/null differ diff --git a/pics/95000053.jpg b/pics/95000053.jpg deleted file mode 100755 index cad08de0..00000000 Binary files a/pics/95000053.jpg and /dev/null differ diff --git a/pics/95000054.jpg b/pics/95000054.jpg deleted file mode 100755 index 2446345c..00000000 Binary files a/pics/95000054.jpg and /dev/null differ diff --git a/pics/95000055.jpg b/pics/95000055.jpg deleted file mode 100755 index dca197fc..00000000 Binary files a/pics/95000055.jpg and /dev/null differ diff --git a/pics/95000056.jpg b/pics/95000056.jpg deleted file mode 100755 index 901d1124..00000000 Binary files a/pics/95000056.jpg and /dev/null differ diff --git a/pics/95000057.jpg b/pics/95000057.jpg deleted file mode 100755 index 932b3c2c..00000000 Binary files a/pics/95000057.jpg and /dev/null differ diff --git a/pics/95000058.jpg b/pics/95000058.jpg deleted file mode 100755 index f869f917..00000000 Binary files a/pics/95000058.jpg and /dev/null differ diff --git a/pics/95000059.jpg b/pics/95000059.jpg deleted file mode 100755 index 21324c1f..00000000 Binary files a/pics/95000059.jpg and /dev/null differ diff --git a/pics/95000060.jpg b/pics/95000060.jpg deleted file mode 100755 index 8a726deb..00000000 Binary files a/pics/95000060.jpg and /dev/null differ diff --git a/pics/95000061.jpg b/pics/95000061.jpg deleted file mode 100755 index 073098bc..00000000 Binary files a/pics/95000061.jpg and /dev/null differ diff --git a/pics/95000062.jpg b/pics/95000062.jpg deleted file mode 100755 index b2082c78..00000000 Binary files a/pics/95000062.jpg and /dev/null differ diff --git a/pics/95000063.jpg b/pics/95000063.jpg deleted file mode 100755 index 3290adc9..00000000 Binary files a/pics/95000063.jpg and /dev/null differ diff --git a/pics/95000064.jpg b/pics/95000064.jpg deleted file mode 100755 index ab57fb12..00000000 Binary files a/pics/95000064.jpg and /dev/null differ diff --git a/pics/95000065.jpg b/pics/95000065.jpg deleted file mode 100755 index 58f59f82..00000000 Binary files a/pics/95000065.jpg and /dev/null differ diff --git a/pics/95000066.jpg b/pics/95000066.jpg deleted file mode 100755 index e010984a..00000000 Binary files a/pics/95000066.jpg and /dev/null differ diff --git a/pics/95000067.jpg b/pics/95000067.jpg deleted file mode 100755 index d44a67eb..00000000 Binary files a/pics/95000067.jpg and /dev/null differ diff --git a/pics/95000068.jpg b/pics/95000068.jpg deleted file mode 100755 index 6e2e6d80..00000000 Binary files a/pics/95000068.jpg and /dev/null differ diff --git a/pics/95000069.jpg b/pics/95000069.jpg deleted file mode 100755 index 9dc2836d..00000000 Binary files a/pics/95000069.jpg and /dev/null differ diff --git a/pics/95000070.jpg b/pics/95000070.jpg deleted file mode 100755 index 21b3b0ff..00000000 Binary files a/pics/95000070.jpg and /dev/null differ diff --git a/pics/95000071.jpg b/pics/95000071.jpg deleted file mode 100755 index d33d7706..00000000 Binary files a/pics/95000071.jpg and /dev/null differ diff --git a/pics/95000072.jpg b/pics/95000072.jpg deleted file mode 100755 index a435b586..00000000 Binary files a/pics/95000072.jpg and /dev/null differ diff --git a/pics/95000073.jpg b/pics/95000073.jpg deleted file mode 100755 index 65a4ce4f..00000000 Binary files a/pics/95000073.jpg and /dev/null differ diff --git a/pics/95000074.jpg b/pics/95000074.jpg deleted file mode 100755 index 1cc5efa6..00000000 Binary files a/pics/95000074.jpg and /dev/null differ diff --git a/pics/95000075.jpg b/pics/95000075.jpg deleted file mode 100755 index fe884927..00000000 Binary files a/pics/95000075.jpg and /dev/null differ diff --git a/pics/95000076.jpg b/pics/95000076.jpg deleted file mode 100755 index 28154710..00000000 Binary files a/pics/95000076.jpg and /dev/null differ diff --git a/pics/95000077.jpg b/pics/95000077.jpg deleted file mode 100755 index 36c50d6b..00000000 Binary files a/pics/95000077.jpg and /dev/null differ diff --git a/pics/95000078.jpg b/pics/95000078.jpg deleted file mode 100755 index 0d1570d5..00000000 Binary files a/pics/95000078.jpg and /dev/null differ diff --git a/pics/95000079.jpg b/pics/95000079.jpg deleted file mode 100755 index bca97d46..00000000 Binary files a/pics/95000079.jpg and /dev/null differ diff --git a/pics/95000080.jpg b/pics/95000080.jpg deleted file mode 100755 index 511f15ff..00000000 Binary files a/pics/95000080.jpg and /dev/null differ diff --git a/pics/95000081.jpg b/pics/95000081.jpg deleted file mode 100755 index 2c5ec2a8..00000000 Binary files a/pics/95000081.jpg and /dev/null differ diff --git a/pics/95000082.jpg b/pics/95000082.jpg deleted file mode 100755 index e433738c..00000000 Binary files a/pics/95000082.jpg and /dev/null differ diff --git a/pics/95000083.jpg b/pics/95000083.jpg deleted file mode 100755 index 10e583e8..00000000 Binary files a/pics/95000083.jpg and /dev/null differ diff --git a/pics/95000084.jpg b/pics/95000084.jpg deleted file mode 100755 index 48cfa019..00000000 Binary files a/pics/95000084.jpg and /dev/null differ diff --git a/pics/95000085.jpg b/pics/95000085.jpg deleted file mode 100755 index 0a4859ed..00000000 Binary files a/pics/95000085.jpg and /dev/null differ diff --git a/pics/95000086.jpg b/pics/95000086.jpg deleted file mode 100755 index ef39da0a..00000000 Binary files a/pics/95000086.jpg and /dev/null differ diff --git a/pics/95000087.jpg b/pics/95000087.jpg deleted file mode 100755 index 5cc07394..00000000 Binary files a/pics/95000087.jpg and /dev/null differ diff --git a/pics/95000088.jpg b/pics/95000088.jpg deleted file mode 100755 index aeaf5542..00000000 Binary files a/pics/95000088.jpg and /dev/null differ diff --git a/pics/95000089.jpg b/pics/95000089.jpg deleted file mode 100755 index 8063f5d5..00000000 Binary files a/pics/95000089.jpg and /dev/null differ diff --git a/pics/95000090.jpg b/pics/95000090.jpg deleted file mode 100755 index dbe88e80..00000000 Binary files a/pics/95000090.jpg and /dev/null differ diff --git a/pics/95000091.jpg b/pics/95000091.jpg deleted file mode 100755 index 87c8b7eb..00000000 Binary files a/pics/95000091.jpg and /dev/null differ diff --git a/pics/95000092.jpg b/pics/95000092.jpg deleted file mode 100755 index 1a06f402..00000000 Binary files a/pics/95000092.jpg and /dev/null differ diff --git a/pics/95000093.jpg b/pics/95000093.jpg deleted file mode 100755 index ce41bf1c..00000000 Binary files a/pics/95000093.jpg and /dev/null differ diff --git a/pics/95000094.jpg b/pics/95000094.jpg deleted file mode 100755 index 118c478c..00000000 Binary files a/pics/95000094.jpg and /dev/null differ diff --git a/pics/95000095.jpg b/pics/95000095.jpg deleted file mode 100755 index 2bcf130c..00000000 Binary files a/pics/95000095.jpg and /dev/null differ diff --git a/pics/95000096.jpg b/pics/95000096.jpg deleted file mode 100755 index 7b7bf9b8..00000000 Binary files a/pics/95000096.jpg and /dev/null differ diff --git a/pics/95000097.jpg b/pics/95000097.jpg deleted file mode 100755 index 57c31c7b..00000000 Binary files a/pics/95000097.jpg and /dev/null differ diff --git a/pics/95000098.jpg b/pics/95000098.jpg deleted file mode 100755 index c9da77e6..00000000 Binary files a/pics/95000098.jpg and /dev/null differ diff --git a/pics/95000099.jpg b/pics/95000099.jpg deleted file mode 100755 index 27ea13af..00000000 Binary files a/pics/95000099.jpg and /dev/null differ diff --git a/pics/95000100.jpg b/pics/95000100.jpg deleted file mode 100755 index 888db3e9..00000000 Binary files a/pics/95000100.jpg and /dev/null differ diff --git a/pics/95000101.jpg b/pics/95000101.jpg deleted file mode 100755 index f32648ab..00000000 Binary files a/pics/95000101.jpg and /dev/null differ diff --git a/pics/95000102.jpg b/pics/95000102.jpg deleted file mode 100755 index b07c1643..00000000 Binary files a/pics/95000102.jpg and /dev/null differ diff --git a/pics/95000103.jpg b/pics/95000103.jpg deleted file mode 100755 index dfc5e09c..00000000 Binary files a/pics/95000103.jpg and /dev/null differ diff --git a/pics/95000104.jpg b/pics/95000104.jpg deleted file mode 100755 index c4a6b1f5..00000000 Binary files a/pics/95000104.jpg and /dev/null differ diff --git a/pics/95000105.jpg b/pics/95000105.jpg deleted file mode 100755 index 2115eeab..00000000 Binary files a/pics/95000105.jpg and /dev/null differ diff --git a/pics/95000106.jpg b/pics/95000106.jpg deleted file mode 100755 index c898d23c..00000000 Binary files a/pics/95000106.jpg and /dev/null differ diff --git a/pics/95000107.jpg b/pics/95000107.jpg deleted file mode 100755 index c13315c1..00000000 Binary files a/pics/95000107.jpg and /dev/null differ diff --git a/pics/95000108.jpg b/pics/95000108.jpg deleted file mode 100755 index a806950d..00000000 Binary files a/pics/95000108.jpg and /dev/null differ diff --git a/pics/95000109.jpg b/pics/95000109.jpg deleted file mode 100755 index f91b3a06..00000000 Binary files a/pics/95000109.jpg and /dev/null differ diff --git a/pics/95000110.jpg b/pics/95000110.jpg deleted file mode 100755 index 2738ae87..00000000 Binary files a/pics/95000110.jpg and /dev/null differ diff --git a/pics/95000111.jpg b/pics/95000111.jpg deleted file mode 100755 index a08cf349..00000000 Binary files a/pics/95000111.jpg and /dev/null differ diff --git a/pics/95000112.jpg b/pics/95000112.jpg deleted file mode 100755 index 3a0efdbe..00000000 Binary files a/pics/95000112.jpg and /dev/null differ diff --git a/pics/95000113.jpg b/pics/95000113.jpg deleted file mode 100755 index e6355fc5..00000000 Binary files a/pics/95000113.jpg and /dev/null differ diff --git a/pics/95000114.jpg b/pics/95000114.jpg deleted file mode 100755 index b96e319d..00000000 Binary files a/pics/95000114.jpg and /dev/null differ diff --git a/pics/95000115.jpg b/pics/95000115.jpg deleted file mode 100755 index f7c6ea45..00000000 Binary files a/pics/95000115.jpg and /dev/null differ diff --git a/pics/95000116.jpg b/pics/95000116.jpg deleted file mode 100755 index 3690eb63..00000000 Binary files a/pics/95000116.jpg and /dev/null differ diff --git a/pics/95000117.jpg b/pics/95000117.jpg deleted file mode 100755 index 79c8a156..00000000 Binary files a/pics/95000117.jpg and /dev/null differ diff --git a/pics/95000118.jpg b/pics/95000118.jpg deleted file mode 100755 index 872e22c7..00000000 Binary files a/pics/95000118.jpg and /dev/null differ diff --git a/pics/95000119.jpg b/pics/95000119.jpg deleted file mode 100755 index 274a17b7..00000000 Binary files a/pics/95000119.jpg and /dev/null differ diff --git a/pics/95000120.jpg b/pics/95000120.jpg deleted file mode 100755 index 4a5172df..00000000 Binary files a/pics/95000120.jpg and /dev/null differ diff --git a/pics/95000121.jpg b/pics/95000121.jpg deleted file mode 100755 index 9a70429c..00000000 Binary files a/pics/95000121.jpg and /dev/null differ diff --git a/pics/95000122.jpg b/pics/95000122.jpg deleted file mode 100755 index 35a3c541..00000000 Binary files a/pics/95000122.jpg and /dev/null differ diff --git a/pics/95000123.jpg b/pics/95000123.jpg deleted file mode 100755 index ace02c50..00000000 Binary files a/pics/95000123.jpg and /dev/null differ diff --git a/pics/95000124.jpg b/pics/95000124.jpg deleted file mode 100755 index f171283f..00000000 Binary files a/pics/95000124.jpg and /dev/null differ diff --git a/pics/95000125.jpg b/pics/95000125.jpg deleted file mode 100755 index 3cb0a924..00000000 Binary files a/pics/95000125.jpg and /dev/null differ diff --git a/pics/95000126.jpg b/pics/95000126.jpg deleted file mode 100755 index ccbc5706..00000000 Binary files a/pics/95000126.jpg and /dev/null differ diff --git a/pics/95000127.jpg b/pics/95000127.jpg deleted file mode 100755 index 5177b3af..00000000 Binary files a/pics/95000127.jpg and /dev/null differ diff --git a/pics/95000128.jpg b/pics/95000128.jpg deleted file mode 100755 index 215a8905..00000000 Binary files a/pics/95000128.jpg and /dev/null differ diff --git a/pics/95000129.jpg b/pics/95000129.jpg deleted file mode 100755 index 8e5e6dd3..00000000 Binary files a/pics/95000129.jpg and /dev/null differ diff --git a/pics/95000130.jpg b/pics/95000130.jpg deleted file mode 100755 index 3fd43fc6..00000000 Binary files a/pics/95000130.jpg and /dev/null differ diff --git a/pics/95000131.jpg b/pics/95000131.jpg deleted file mode 100755 index f500ae36..00000000 Binary files a/pics/95000131.jpg and /dev/null differ diff --git a/pics/95000132.jpg b/pics/95000132.jpg deleted file mode 100755 index c6117e6d..00000000 Binary files a/pics/95000132.jpg and /dev/null differ diff --git a/pics/95000133.jpg b/pics/95000133.jpg deleted file mode 100755 index 2f68db25..00000000 Binary files a/pics/95000133.jpg and /dev/null differ diff --git a/pics/95000134.jpg b/pics/95000134.jpg deleted file mode 100755 index fb85c787..00000000 Binary files a/pics/95000134.jpg and /dev/null differ diff --git a/pics/95000135.jpg b/pics/95000135.jpg deleted file mode 100755 index 20c79f9f..00000000 Binary files a/pics/95000135.jpg and /dev/null differ diff --git a/pics/95000136.jpg b/pics/95000136.jpg deleted file mode 100755 index 1cb43049..00000000 Binary files a/pics/95000136.jpg and /dev/null differ diff --git a/pics/95000137.jpg b/pics/95000137.jpg deleted file mode 100755 index f2460965..00000000 Binary files a/pics/95000137.jpg and /dev/null differ diff --git a/pics/95000138.jpg b/pics/95000138.jpg deleted file mode 100755 index 9e51c19d..00000000 Binary files a/pics/95000138.jpg and /dev/null differ diff --git a/pics/95000139.jpg b/pics/95000139.jpg deleted file mode 100755 index 7a75fb5e..00000000 Binary files a/pics/95000139.jpg and /dev/null differ diff --git a/pics/95000140.jpg b/pics/95000140.jpg deleted file mode 100755 index 3c65180f..00000000 Binary files a/pics/95000140.jpg and /dev/null differ diff --git a/pics/95000141.jpg b/pics/95000141.jpg deleted file mode 100755 index 3d0d3c6f..00000000 Binary files a/pics/95000141.jpg and /dev/null differ diff --git a/pics/95000142.jpg b/pics/95000142.jpg deleted file mode 100755 index 01584afb..00000000 Binary files a/pics/95000142.jpg and /dev/null differ diff --git a/pics/95000143.jpg b/pics/95000143.jpg deleted file mode 100755 index e12470ae..00000000 Binary files a/pics/95000143.jpg and /dev/null differ diff --git a/pics/95000144.jpg b/pics/95000144.jpg deleted file mode 100755 index 95553bdb..00000000 Binary files a/pics/95000144.jpg and /dev/null differ diff --git a/pics/95000145.jpg b/pics/95000145.jpg deleted file mode 100755 index efae6aeb..00000000 Binary files a/pics/95000145.jpg and /dev/null differ diff --git a/pics/95000146.jpg b/pics/95000146.jpg deleted file mode 100755 index 0e731360..00000000 Binary files a/pics/95000146.jpg and /dev/null differ diff --git a/pics/95000147.jpg b/pics/95000147.jpg deleted file mode 100755 index 36ea62c8..00000000 Binary files a/pics/95000147.jpg and /dev/null differ diff --git a/pics/95000148.jpg b/pics/95000148.jpg deleted file mode 100755 index be3e6ff1..00000000 Binary files a/pics/95000148.jpg and /dev/null differ diff --git a/pics/95000149.jpg b/pics/95000149.jpg deleted file mode 100755 index 7473c2f6..00000000 Binary files a/pics/95000149.jpg and /dev/null differ diff --git a/pics/95000150.jpg b/pics/95000150.jpg deleted file mode 100755 index 9864f757..00000000 Binary files a/pics/95000150.jpg and /dev/null differ diff --git a/pics/95000151.jpg b/pics/95000151.jpg deleted file mode 100755 index 9f205e9a..00000000 Binary files a/pics/95000151.jpg and /dev/null differ diff --git a/pics/95000152.jpg b/pics/95000152.jpg deleted file mode 100755 index 333d40f2..00000000 Binary files a/pics/95000152.jpg and /dev/null differ diff --git a/pics/95000153.jpg b/pics/95000153.jpg deleted file mode 100755 index fa2eda82..00000000 Binary files a/pics/95000153.jpg and /dev/null differ diff --git a/pics/95000154.jpg b/pics/95000154.jpg deleted file mode 100755 index 79b5febe..00000000 Binary files a/pics/95000154.jpg and /dev/null differ diff --git a/pics/95000155.jpg b/pics/95000155.jpg deleted file mode 100755 index 7e7e8cfc..00000000 Binary files a/pics/95000155.jpg and /dev/null differ diff --git a/pics/95000156.jpg b/pics/95000156.jpg deleted file mode 100755 index 165dc6dd..00000000 Binary files a/pics/95000156.jpg and /dev/null differ diff --git a/pics/95000157.jpg b/pics/95000157.jpg deleted file mode 100755 index 543b952f..00000000 Binary files a/pics/95000157.jpg and /dev/null differ diff --git a/pics/95026693.jpg b/pics/95026693.jpg deleted file mode 100644 index 9c882344..00000000 Binary files a/pics/95026693.jpg and /dev/null differ diff --git a/pics/95027497.jpg b/pics/95027497.jpg deleted file mode 100644 index d12629e8..00000000 Binary files a/pics/95027497.jpg and /dev/null differ diff --git a/pics/95040215.jpg b/pics/95040215.jpg deleted file mode 100644 index ed4a0492..00000000 Binary files a/pics/95040215.jpg and /dev/null differ diff --git a/pics/95051344.jpg b/pics/95051344.jpg deleted file mode 100644 index bc88f515..00000000 Binary files a/pics/95051344.jpg and /dev/null differ diff --git a/pics/95084054.jpg b/pics/95084054.jpg deleted file mode 100644 index bd3d34ad..00000000 Binary files a/pics/95084054.jpg and /dev/null differ diff --git a/pics/95090813.jpg b/pics/95090813.jpg deleted file mode 100644 index b0e1a6b5..00000000 Binary files a/pics/95090813.jpg and /dev/null differ diff --git a/pics/95096437.jpg b/pics/95096437.jpg deleted file mode 100644 index 73141561..00000000 Binary files a/pics/95096437.jpg and /dev/null differ diff --git a/pics/95113856.jpg b/pics/95113856.jpg deleted file mode 100644 index 12f3b703..00000000 Binary files a/pics/95113856.jpg and /dev/null differ diff --git a/pics/95132338.jpg b/pics/95132338.jpg deleted file mode 100644 index 215a87c1..00000000 Binary files a/pics/95132338.jpg and /dev/null differ diff --git a/pics/95144193.jpg b/pics/95144193.jpg deleted file mode 100644 index 8c6dccb4..00000000 Binary files a/pics/95144193.jpg and /dev/null differ diff --git a/pics/95166228.jpg b/pics/95166228.jpg deleted file mode 100644 index e601ce01..00000000 Binary files a/pics/95166228.jpg and /dev/null differ diff --git a/pics/95169481.jpg b/pics/95169481.jpg deleted file mode 100644 index b434de66..00000000 Binary files a/pics/95169481.jpg and /dev/null differ diff --git a/pics/95174353.jpg b/pics/95174353.jpg deleted file mode 100644 index cecb4559..00000000 Binary files a/pics/95174353.jpg and /dev/null differ diff --git a/pics/95178994.jpg b/pics/95178994.jpg deleted file mode 100644 index b51af84e..00000000 Binary files a/pics/95178994.jpg and /dev/null differ diff --git a/pics/95194279.jpg b/pics/95194279.jpg deleted file mode 100644 index 94f126ff..00000000 Binary files a/pics/95194279.jpg and /dev/null differ diff --git a/pics/95204084.jpg b/pics/95204084.jpg deleted file mode 100644 index 6ecd3193..00000000 Binary files a/pics/95204084.jpg and /dev/null differ diff --git a/pics/95214051.jpg b/pics/95214051.jpg deleted file mode 100644 index 226799db..00000000 Binary files a/pics/95214051.jpg and /dev/null differ diff --git a/pics/95220856.jpg b/pics/95220856.jpg deleted file mode 100644 index 686abe3b..00000000 Binary files a/pics/95220856.jpg and /dev/null differ diff --git a/pics/95231062.jpg b/pics/95231062.jpg deleted file mode 100644 index d7f9d03d..00000000 Binary files a/pics/95231062.jpg and /dev/null differ diff --git a/pics/95239444.jpg b/pics/95239444.jpg deleted file mode 100755 index 8b84d81d..00000000 Binary files a/pics/95239444.jpg and /dev/null differ diff --git a/pics/95254840.jpg b/pics/95254840.jpg deleted file mode 100644 index fcd0f21c..00000000 Binary files a/pics/95254840.jpg and /dev/null differ diff --git a/pics/95265975.jpg b/pics/95265975.jpg deleted file mode 100644 index d6d5987c..00000000 Binary files a/pics/95265975.jpg and /dev/null differ diff --git a/pics/95281259.jpg b/pics/95281259.jpg deleted file mode 100644 index 9ab3aa18..00000000 Binary files a/pics/95281259.jpg and /dev/null differ diff --git a/pics/95286165.jpg b/pics/95286165.jpg deleted file mode 100644 index 4b5fd293..00000000 Binary files a/pics/95286165.jpg and /dev/null differ diff --git a/pics/95288024.jpg b/pics/95288024.jpg deleted file mode 100644 index ad63c573..00000000 Binary files a/pics/95288024.jpg and /dev/null differ diff --git a/pics/95291684.jpg b/pics/95291684.jpg deleted file mode 100644 index 6cd80415..00000000 Binary files a/pics/95291684.jpg and /dev/null differ diff --git a/pics/95308449.jpg b/pics/95308449.jpg deleted file mode 100644 index 6459ec2f..00000000 Binary files a/pics/95308449.jpg and /dev/null differ diff --git a/pics/95326659.jpg b/pics/95326659.jpg deleted file mode 100644 index 149c26d6..00000000 Binary files a/pics/95326659.jpg and /dev/null differ diff --git a/pics/95352218.jpg b/pics/95352218.jpg deleted file mode 100644 index b2f23f63..00000000 Binary files a/pics/95352218.jpg and /dev/null differ diff --git a/pics/95360850.jpg b/pics/95360850.jpg deleted file mode 100644 index f4185a5f..00000000 Binary files a/pics/95360850.jpg and /dev/null differ diff --git a/pics/95362816.jpg b/pics/95362816.jpg deleted file mode 100644 index f7ae7b36..00000000 Binary files a/pics/95362816.jpg and /dev/null differ diff --git a/pics/95376428.jpg b/pics/95376428.jpg deleted file mode 100644 index 805b47a3..00000000 Binary files a/pics/95376428.jpg and /dev/null differ diff --git a/pics/95395761.jpg b/pics/95395761.jpg deleted file mode 100644 index d0009e79..00000000 Binary files a/pics/95395761.jpg and /dev/null differ diff --git a/pics/9540040.jpg b/pics/9540040.jpg deleted file mode 100644 index 280a05c1..00000000 Binary files a/pics/9540040.jpg and /dev/null differ diff --git a/pics/95401059.jpg b/pics/95401059.jpg deleted file mode 100644 index d7bf4b6b..00000000 Binary files a/pics/95401059.jpg and /dev/null differ diff --git a/pics/95403418.jpg b/pics/95403418.jpg deleted file mode 100644 index 563c26cb..00000000 Binary files a/pics/95403418.jpg and /dev/null differ diff --git a/pics/95442074.jpg b/pics/95442074.jpg deleted file mode 100644 index 770acd97..00000000 Binary files a/pics/95442074.jpg and /dev/null differ diff --git a/pics/95443805.jpg b/pics/95443805.jpg deleted file mode 100644 index 37b8871d..00000000 Binary files a/pics/95443805.jpg and /dev/null differ diff --git a/pics/95448692.jpg b/pics/95448692.jpg deleted file mode 100644 index 912b07cb..00000000 Binary files a/pics/95448692.jpg and /dev/null differ diff --git a/pics/95451366.jpg b/pics/95451366.jpg deleted file mode 100644 index b6aaf0c7..00000000 Binary files a/pics/95451366.jpg and /dev/null differ diff --git a/pics/95453143.jpg b/pics/95453143.jpg deleted file mode 100644 index 014cb0e8..00000000 Binary files a/pics/95453143.jpg and /dev/null differ diff --git a/pics/95457011.jpg b/pics/95457011.jpg deleted file mode 100755 index a34fc601..00000000 Binary files a/pics/95457011.jpg and /dev/null differ diff --git a/pics/95466842.jpg b/pics/95466842.jpg deleted file mode 100644 index b8c98bec..00000000 Binary files a/pics/95466842.jpg and /dev/null differ diff --git a/pics/95472621.jpg b/pics/95472621.jpg deleted file mode 100644 index 6d6e3722..00000000 Binary files a/pics/95472621.jpg and /dev/null differ diff --git a/pics/95486586.jpg b/pics/95486586.jpg deleted file mode 100644 index 16ef34eb..00000000 Binary files a/pics/95486586.jpg and /dev/null differ diff --git a/pics/95492061.jpg b/pics/95492061.jpg deleted file mode 100644 index b6cdfadb..00000000 Binary files a/pics/95492061.jpg and /dev/null differ diff --git a/pics/95503687.jpg b/pics/95503687.jpg deleted file mode 100644 index 726a7a8e..00000000 Binary files a/pics/95503687.jpg and /dev/null differ diff --git a/pics/95507060.jpg b/pics/95507060.jpg deleted file mode 100644 index 3a30eac3..00000000 Binary files a/pics/95507060.jpg and /dev/null differ diff --git a/pics/95515060.jpg b/pics/95515060.jpg deleted file mode 100644 index 9cd21994..00000000 Binary files a/pics/95515060.jpg and /dev/null differ diff --git a/pics/95519486.jpg b/pics/95519486.jpg deleted file mode 100644 index 8adfd6b0..00000000 Binary files a/pics/95519486.jpg and /dev/null differ diff --git a/pics/95526884.jpg b/pics/95526884.jpg deleted file mode 100644 index dd3d3ddd..00000000 Binary files a/pics/95526884.jpg and /dev/null differ diff --git a/pics/95561280.jpg b/pics/95561280.jpg deleted file mode 100644 index 350fbed6..00000000 Binary files a/pics/95561280.jpg and /dev/null differ diff --git a/pics/95600067.jpg b/pics/95600067.jpg deleted file mode 100644 index ed2ccbb9..00000000 Binary files a/pics/95600067.jpg and /dev/null differ diff --git a/pics/9560338.jpg b/pics/9560338.jpg deleted file mode 100644 index 2e706e88..00000000 Binary files a/pics/9560338.jpg and /dev/null differ diff --git a/pics/95614612.jpg b/pics/95614612.jpg deleted file mode 100644 index 9efc0895..00000000 Binary files a/pics/95614612.jpg and /dev/null differ diff --git a/pics/95621257.jpg b/pics/95621257.jpg deleted file mode 100644 index 2e622373..00000000 Binary files a/pics/95621257.jpg and /dev/null differ diff --git a/pics/95637655.jpg b/pics/95637655.jpg deleted file mode 100644 index 5c0a44d6..00000000 Binary files a/pics/95637655.jpg and /dev/null differ diff --git a/pics/95638658.jpg b/pics/95638658.jpg deleted file mode 100644 index 3374f934..00000000 Binary files a/pics/95638658.jpg and /dev/null differ diff --git a/pics/95642274.jpg b/pics/95642274.jpg deleted file mode 100644 index 6f701714..00000000 Binary files a/pics/95642274.jpg and /dev/null differ diff --git a/pics/95676943.jpg b/pics/95676943.jpg deleted file mode 100755 index ae11416a..00000000 Binary files a/pics/95676943.jpg and /dev/null differ diff --git a/pics/95701283.jpg b/pics/95701283.jpg deleted file mode 100644 index c970cb0e..00000000 Binary files a/pics/95701283.jpg and /dev/null differ diff --git a/pics/95714077.jpg b/pics/95714077.jpg deleted file mode 100644 index a7ab79b2..00000000 Binary files a/pics/95714077.jpg and /dev/null differ diff --git a/pics/95727991.jpg b/pics/95727991.jpg deleted file mode 100644 index 62897a5e..00000000 Binary files a/pics/95727991.jpg and /dev/null differ diff --git a/pics/95744531.jpg b/pics/95744531.jpg deleted file mode 100644 index 0bbc8ab2..00000000 Binary files a/pics/95744531.jpg and /dev/null differ diff --git a/pics/95750695.jpg b/pics/95750695.jpg deleted file mode 100644 index c1e4aeaa..00000000 Binary files a/pics/95750695.jpg and /dev/null differ diff --git a/pics/9576193.jpg b/pics/9576193.jpg deleted file mode 100644 index 43d04b7b..00000000 Binary files a/pics/9576193.jpg and /dev/null differ diff --git a/pics/95772051.jpg b/pics/95772051.jpg deleted file mode 100644 index 3d6e2252..00000000 Binary files a/pics/95772051.jpg and /dev/null differ diff --git a/pics/95784434.jpg b/pics/95784434.jpg deleted file mode 100644 index 026d467a..00000000 Binary files a/pics/95784434.jpg and /dev/null differ diff --git a/pics/95788410.jpg b/pics/95788410.jpg deleted file mode 100644 index 6427b566..00000000 Binary files a/pics/95788410.jpg and /dev/null differ diff --git a/pics/95789089.jpg b/pics/95789089.jpg deleted file mode 100644 index eb0e91cb..00000000 Binary files a/pics/95789089.jpg and /dev/null differ diff --git a/pics/95816395.jpg b/pics/95816395.jpg deleted file mode 100644 index 3d42eeaa..00000000 Binary files a/pics/95816395.jpg and /dev/null differ diff --git a/pics/95833645.jpg b/pics/95833645.jpg deleted file mode 100644 index 678d70f1..00000000 Binary files a/pics/95833645.jpg and /dev/null differ diff --git a/pics/9583383.jpg b/pics/9583383.jpg deleted file mode 100644 index 8ac21b6f..00000000 Binary files a/pics/9583383.jpg and /dev/null differ diff --git a/pics/95841282.jpg b/pics/95841282.jpg deleted file mode 100644 index 22a372a2..00000000 Binary files a/pics/95841282.jpg and /dev/null differ diff --git a/pics/95888876.jpg b/pics/95888876.jpg deleted file mode 100644 index 252685ae..00000000 Binary files a/pics/95888876.jpg and /dev/null differ diff --git a/pics/95905259.jpg b/pics/95905259.jpg deleted file mode 100644 index d995fb30..00000000 Binary files a/pics/95905259.jpg and /dev/null differ diff --git a/pics/95920682.jpg b/pics/95920682.jpg deleted file mode 100644 index 2557fb40..00000000 Binary files a/pics/95920682.jpg and /dev/null differ diff --git a/pics/95929069.jpg b/pics/95929069.jpg deleted file mode 100644 index 5dc6d51d..00000000 Binary files a/pics/95929069.jpg and /dev/null differ diff --git a/pics/95943058.jpg b/pics/95943058.jpg deleted file mode 100644 index 34464a96..00000000 Binary files a/pics/95943058.jpg and /dev/null differ diff --git a/pics/95952802.jpg b/pics/95952802.jpg deleted file mode 100644 index d51f3498..00000000 Binary files a/pics/95952802.jpg and /dev/null differ diff --git a/pics/95956346.jpg b/pics/95956346.jpg deleted file mode 100644 index b156aa5f..00000000 Binary files a/pics/95956346.jpg and /dev/null differ diff --git a/pics/9596126.jpg b/pics/9596126.jpg deleted file mode 100644 index 317b5a5e..00000000 Binary files a/pics/9596126.jpg and /dev/null differ diff --git a/pics/95992081.jpg b/pics/95992081.jpg deleted file mode 100644 index ee757a76..00000000 Binary files a/pics/95992081.jpg and /dev/null differ diff --git a/pics/95993388.jpg b/pics/95993388.jpg deleted file mode 100644 index 5e113b25..00000000 Binary files a/pics/95993388.jpg and /dev/null differ diff --git a/pics/96005454.jpg b/pics/96005454.jpg deleted file mode 100644 index bd217be6..00000000 Binary files a/pics/96005454.jpg and /dev/null differ diff --git a/pics/96008713.jpg b/pics/96008713.jpg deleted file mode 100644 index a5d394b8..00000000 Binary files a/pics/96008713.jpg and /dev/null differ diff --git a/pics/96012004.jpg b/pics/96012004.jpg deleted file mode 100644 index 5063912d..00000000 Binary files a/pics/96012004.jpg and /dev/null differ diff --git a/pics/96015976.jpg b/pics/96015976.jpg deleted file mode 100644 index 0cc2f61d..00000000 Binary files a/pics/96015976.jpg and /dev/null differ diff --git a/pics/96029574.jpg b/pics/96029574.jpg deleted file mode 100644 index 72c12d91..00000000 Binary files a/pics/96029574.jpg and /dev/null differ diff --git a/pics/9603356.jpg b/pics/9603356.jpg deleted file mode 100644 index b810e862..00000000 Binary files a/pics/9603356.jpg and /dev/null differ diff --git a/pics/96051150.jpg b/pics/96051150.jpg deleted file mode 100644 index 79eee172..00000000 Binary files a/pics/96051150.jpg and /dev/null differ diff --git a/pics/96055137.jpg b/pics/96055137.jpg deleted file mode 100644 index 6046109b..00000000 Binary files a/pics/96055137.jpg and /dev/null differ diff --git a/pics/96099959.jpg b/pics/96099959.jpg deleted file mode 100644 index abb9f181..00000000 Binary files a/pics/96099959.jpg and /dev/null differ diff --git a/pics/96142517.jpg b/pics/96142517.jpg deleted file mode 100644 index 57c96ee6..00000000 Binary files a/pics/96142517.jpg and /dev/null differ diff --git a/pics/96146814.jpg b/pics/96146814.jpg deleted file mode 100644 index ad112275..00000000 Binary files a/pics/96146814.jpg and /dev/null differ diff --git a/pics/96148285.jpg b/pics/96148285.jpg deleted file mode 100644 index 50ee7d1f..00000000 Binary files a/pics/96148285.jpg and /dev/null differ diff --git a/pics/96163807.jpg b/pics/96163807.jpg deleted file mode 100644 index e4691a13..00000000 Binary files a/pics/96163807.jpg and /dev/null differ diff --git a/pics/96182448.jpg b/pics/96182448.jpg deleted file mode 100644 index be720297..00000000 Binary files a/pics/96182448.jpg and /dev/null differ diff --git a/pics/96216229.jpg b/pics/96216229.jpg deleted file mode 100644 index 8fb5ee99..00000000 Binary files a/pics/96216229.jpg and /dev/null differ diff --git a/pics/96218085.jpg b/pics/96218085.jpg deleted file mode 100644 index 3f32e8bd..00000000 Binary files a/pics/96218085.jpg and /dev/null differ diff --git a/pics/9622164.jpg b/pics/9622164.jpg deleted file mode 100644 index 2acc0625..00000000 Binary files a/pics/9622164.jpg and /dev/null differ diff --git a/pics/96223501.jpg b/pics/96223501.jpg deleted file mode 100644 index 3560b931..00000000 Binary files a/pics/96223501.jpg and /dev/null differ diff --git a/pics/96235275.jpg b/pics/96235275.jpg deleted file mode 100644 index df004147..00000000 Binary files a/pics/96235275.jpg and /dev/null differ diff --git a/pics/9628664.jpg b/pics/9628664.jpg deleted file mode 100644 index b6485139..00000000 Binary files a/pics/9628664.jpg and /dev/null differ diff --git a/pics/96287685.jpg b/pics/96287685.jpg deleted file mode 100644 index e46763e2..00000000 Binary files a/pics/96287685.jpg and /dev/null differ diff --git a/pics/96300057.jpg b/pics/96300057.jpg deleted file mode 100644 index 8057dc2e..00000000 Binary files a/pics/96300057.jpg and /dev/null differ diff --git a/pics/96316857.jpg b/pics/96316857.jpg deleted file mode 100644 index df031daf..00000000 Binary files a/pics/96316857.jpg and /dev/null differ diff --git a/pics/96331676.jpg b/pics/96331676.jpg deleted file mode 100644 index 92b97bab..00000000 Binary files a/pics/96331676.jpg and /dev/null differ diff --git a/pics/9633505.jpg b/pics/9633505.jpg deleted file mode 100644 index f39840f2..00000000 Binary files a/pics/9633505.jpg and /dev/null differ diff --git a/pics/96345188.jpg b/pics/96345188.jpg deleted file mode 100644 index a7fd0c25..00000000 Binary files a/pics/96345188.jpg and /dev/null differ diff --git a/pics/96355986.jpg b/pics/96355986.jpg deleted file mode 100644 index 5661a9fb..00000000 Binary files a/pics/96355986.jpg and /dev/null differ diff --git a/pics/96363153.jpg b/pics/96363153.jpg deleted file mode 100644 index 5d93f2cd..00000000 Binary files a/pics/96363153.jpg and /dev/null differ diff --git a/pics/9637706.jpg b/pics/9637706.jpg deleted file mode 100644 index ce013fd5..00000000 Binary files a/pics/9637706.jpg and /dev/null differ diff --git a/pics/96381979.jpg b/pics/96381979.jpg deleted file mode 100644 index cbc9c982..00000000 Binary files a/pics/96381979.jpg and /dev/null differ diff --git a/pics/96383838.jpg b/pics/96383838.jpg deleted file mode 100644 index 0972ece6..00000000 Binary files a/pics/96383838.jpg and /dev/null differ diff --git a/pics/96384007.jpg b/pics/96384007.jpg deleted file mode 100644 index 123b20e8..00000000 Binary files a/pics/96384007.jpg and /dev/null differ diff --git a/pics/96385345.jpg b/pics/96385345.jpg deleted file mode 100644 index ebc17b8f..00000000 Binary files a/pics/96385345.jpg and /dev/null differ diff --git a/pics/96420087.jpg b/pics/96420087.jpg deleted file mode 100644 index 467351d3..00000000 Binary files a/pics/96420087.jpg and /dev/null differ diff --git a/pics/96427353.jpg b/pics/96427353.jpg deleted file mode 100644 index 9daa550b..00000000 Binary files a/pics/96427353.jpg and /dev/null differ diff --git a/pics/96428622.jpg b/pics/96428622.jpg deleted file mode 100644 index b88629a0..00000000 Binary files a/pics/96428622.jpg and /dev/null differ diff --git a/pics/96457619.jpg b/pics/96457619.jpg deleted file mode 100644 index 0634e5bc..00000000 Binary files a/pics/96457619.jpg and /dev/null differ diff --git a/pics/96458440.jpg b/pics/96458440.jpg deleted file mode 100644 index ae89d514..00000000 Binary files a/pics/96458440.jpg and /dev/null differ diff --git a/pics/96470883.jpg b/pics/96470883.jpg deleted file mode 100644 index 6b0a985a..00000000 Binary files a/pics/96470883.jpg and /dev/null differ diff --git a/pics/96471335.jpg b/pics/96471335.jpg deleted file mode 100644 index 719040d8..00000000 Binary files a/pics/96471335.jpg and /dev/null differ diff --git a/pics/96474800.jpg b/pics/96474800.jpg deleted file mode 100644 index 7d2564a6..00000000 Binary files a/pics/96474800.jpg and /dev/null differ diff --git a/pics/96501677.jpg b/pics/96501677.jpg deleted file mode 100644 index b65cd767..00000000 Binary files a/pics/96501677.jpg and /dev/null differ diff --git a/pics/9653271.jpg b/pics/9653271.jpg deleted file mode 100644 index cffe3934..00000000 Binary files a/pics/9653271.jpg and /dev/null differ diff --git a/pics/96553688.jpg b/pics/96553688.jpg deleted file mode 100644 index 73a01b34..00000000 Binary files a/pics/96553688.jpg and /dev/null differ diff --git a/pics/96561011.jpg b/pics/96561011.jpg deleted file mode 100644 index ce8508c8..00000000 Binary files a/pics/96561011.jpg and /dev/null differ diff --git a/pics/96565487.jpg b/pics/96565487.jpg deleted file mode 100644 index 981afb9b..00000000 Binary files a/pics/96565487.jpg and /dev/null differ diff --git a/pics/96570609.jpg b/pics/96570609.jpg deleted file mode 100755 index 45a8d5bb..00000000 Binary files a/pics/96570609.jpg and /dev/null differ diff --git a/pics/96594609.jpg b/pics/96594609.jpg deleted file mode 100644 index 554c62b8..00000000 Binary files a/pics/96594609.jpg and /dev/null differ diff --git a/pics/96598015.jpg b/pics/96598015.jpg deleted file mode 100644 index fb25f3c8..00000000 Binary files a/pics/96598015.jpg and /dev/null differ diff --git a/pics/96606246.jpg b/pics/96606246.jpg deleted file mode 100644 index 35add49b..00000000 Binary files a/pics/96606246.jpg and /dev/null differ diff --git a/pics/96631852.jpg b/pics/96631852.jpg deleted file mode 100644 index a703bf61..00000000 Binary files a/pics/96631852.jpg and /dev/null differ diff --git a/pics/96643568.jpg b/pics/96643568.jpg deleted file mode 100644 index d9c623c5..00000000 Binary files a/pics/96643568.jpg and /dev/null differ diff --git a/pics/96653775.jpg b/pics/96653775.jpg deleted file mode 100644 index 6820558a..00000000 Binary files a/pics/96653775.jpg and /dev/null differ diff --git a/pics/9666558.jpg b/pics/9666558.jpg deleted file mode 100644 index f8335240..00000000 Binary files a/pics/9666558.jpg and /dev/null differ diff --git a/pics/96677818.jpg b/pics/96677818.jpg deleted file mode 100644 index c44807f4..00000000 Binary files a/pics/96677818.jpg and /dev/null differ diff --git a/pics/96682430.jpg b/pics/96682430.jpg deleted file mode 100644 index d8031da9..00000000 Binary files a/pics/96682430.jpg and /dev/null differ diff --git a/pics/96700602.jpg b/pics/96700602.jpg deleted file mode 100644 index 60bef797..00000000 Binary files a/pics/96700602.jpg and /dev/null differ diff --git a/pics/96704018.jpg b/pics/96704018.jpg deleted file mode 100644 index 4be277a0..00000000 Binary files a/pics/96704018.jpg and /dev/null differ diff --git a/pics/96729612.jpg b/pics/96729612.jpg deleted file mode 100644 index 896f1300..00000000 Binary files a/pics/96729612.jpg and /dev/null differ diff --git a/pics/96765646.jpg b/pics/96765646.jpg deleted file mode 100644 index 6f39cae0..00000000 Binary files a/pics/96765646.jpg and /dev/null differ diff --git a/pics/96782886.jpg b/pics/96782886.jpg deleted file mode 100644 index 5e660563..00000000 Binary files a/pics/96782886.jpg and /dev/null differ diff --git a/pics/96789758.jpg b/pics/96789758.jpg deleted file mode 100755 index d8bd2783..00000000 Binary files a/pics/96789758.jpg and /dev/null differ diff --git a/pics/967928.jpg b/pics/967928.jpg deleted file mode 100644 index 86da188b..00000000 Binary files a/pics/967928.jpg and /dev/null differ diff --git a/pics/96802306.jpg b/pics/96802306.jpg deleted file mode 100755 index 871146c8..00000000 Binary files a/pics/96802306.jpg and /dev/null differ diff --git a/pics/96851799.jpg b/pics/96851799.jpg deleted file mode 100644 index 688f38b4..00000000 Binary files a/pics/96851799.jpg and /dev/null differ diff --git a/pics/96864105.jpg b/pics/96864105.jpg deleted file mode 100644 index e0ddfe14..00000000 Binary files a/pics/96864105.jpg and /dev/null differ diff --git a/pics/96864811.jpg b/pics/96864811.jpg deleted file mode 100644 index 12ecbb8e..00000000 Binary files a/pics/96864811.jpg and /dev/null differ diff --git a/pics/96872283.jpg b/pics/96872283.jpg deleted file mode 100644 index e9c0834c..00000000 Binary files a/pics/96872283.jpg and /dev/null differ diff --git a/pics/96875080.jpg b/pics/96875080.jpg deleted file mode 100644 index ae82bc74..00000000 Binary files a/pics/96875080.jpg and /dev/null differ diff --git a/pics/96890582.jpg b/pics/96890582.jpg deleted file mode 100644 index fb2e6fbb..00000000 Binary files a/pics/96890582.jpg and /dev/null differ diff --git a/pics/96907086.jpg b/pics/96907086.jpg deleted file mode 100644 index b60c7cf4..00000000 Binary files a/pics/96907086.jpg and /dev/null differ diff --git a/pics/96914272.jpg b/pics/96914272.jpg deleted file mode 100644 index bf634b22..00000000 Binary files a/pics/96914272.jpg and /dev/null differ diff --git a/pics/96930127.jpg b/pics/96930127.jpg deleted file mode 100644 index 71c58050..00000000 Binary files a/pics/96930127.jpg and /dev/null differ diff --git a/pics/96938777.jpg b/pics/96938777.jpg deleted file mode 100644 index 92f9f12c..00000000 Binary files a/pics/96938777.jpg and /dev/null differ diff --git a/pics/96938986.jpg b/pics/96938986.jpg deleted file mode 100644 index c130e82e..00000000 Binary files a/pics/96938986.jpg and /dev/null differ diff --git a/pics/96947648.jpg b/pics/96947648.jpg deleted file mode 100644 index e6e23fee..00000000 Binary files a/pics/96947648.jpg and /dev/null differ diff --git a/pics/96965364.jpg b/pics/96965364.jpg deleted file mode 100644 index 40dc3620..00000000 Binary files a/pics/96965364.jpg and /dev/null differ diff --git a/pics/96967123.jpg b/pics/96967123.jpg deleted file mode 100644 index dffff9ec..00000000 Binary files a/pics/96967123.jpg and /dev/null differ diff --git a/pics/96981563.jpg b/pics/96981563.jpg deleted file mode 100644 index 92d56d0d..00000000 Binary files a/pics/96981563.jpg and /dev/null differ diff --git a/pics/97000273.jpg b/pics/97000273.jpg deleted file mode 100644 index cd6c7087..00000000 Binary files a/pics/97000273.jpg and /dev/null differ diff --git a/pics/97001138.jpg b/pics/97001138.jpg deleted file mode 100755 index 55e1267a..00000000 Binary files a/pics/97001138.jpg and /dev/null differ diff --git a/pics/97007933.jpg b/pics/97007933.jpg deleted file mode 100755 index 0179d26f..00000000 Binary files a/pics/97007933.jpg and /dev/null differ diff --git a/pics/97017120.jpg b/pics/97017120.jpg deleted file mode 100644 index a6cb6452..00000000 Binary files a/pics/97017120.jpg and /dev/null differ diff --git a/pics/97021916.jpg b/pics/97021916.jpg deleted file mode 100644 index ac0c6d65..00000000 Binary files a/pics/97021916.jpg and /dev/null differ diff --git a/pics/97023549.jpg b/pics/97023549.jpg deleted file mode 100644 index e42b49f2..00000000 Binary files a/pics/97023549.jpg and /dev/null differ diff --git a/pics/97024987.jpg b/pics/97024987.jpg deleted file mode 100755 index e960c12b..00000000 Binary files a/pics/97024987.jpg and /dev/null differ diff --git a/pics/97064649.jpg b/pics/97064649.jpg deleted file mode 100644 index 87920208..00000000 Binary files a/pics/97064649.jpg and /dev/null differ diff --git a/pics/97077563.jpg b/pics/97077563.jpg deleted file mode 100644 index 74bff170..00000000 Binary files a/pics/97077563.jpg and /dev/null differ diff --git a/pics/97093037.jpg b/pics/97093037.jpg deleted file mode 100644 index 5dda8e88..00000000 Binary files a/pics/97093037.jpg and /dev/null differ diff --git a/pics/97120394.jpg b/pics/97120394.jpg deleted file mode 100644 index b6de1162..00000000 Binary files a/pics/97120394.jpg and /dev/null differ diff --git a/pics/97127906.jpg b/pics/97127906.jpg deleted file mode 100644 index ecf8c1e6..00000000 Binary files a/pics/97127906.jpg and /dev/null differ diff --git a/pics/97151365.jpg b/pics/97151365.jpg deleted file mode 100644 index b54443bd..00000000 Binary files a/pics/97151365.jpg and /dev/null differ diff --git a/pics/97168905.jpg b/pics/97168905.jpg deleted file mode 100644 index c6f4e38a..00000000 Binary files a/pics/97168905.jpg and /dev/null differ diff --git a/pics/97169186.jpg b/pics/97169186.jpg deleted file mode 100644 index 88bfaf37..00000000 Binary files a/pics/97169186.jpg and /dev/null differ diff --git a/pics/97170107.jpg b/pics/97170107.jpg deleted file mode 100644 index 8513d33d..00000000 Binary files a/pics/97170107.jpg and /dev/null differ diff --git a/pics/97173708.jpg b/pics/97173708.jpg deleted file mode 100644 index e1282191..00000000 Binary files a/pics/97173708.jpg and /dev/null differ diff --git a/pics/9718968.jpg b/pics/9718968.jpg deleted file mode 100644 index 7eb2d1b5..00000000 Binary files a/pics/9718968.jpg and /dev/null differ diff --git a/pics/97204936.jpg b/pics/97204936.jpg deleted file mode 100644 index b9231502..00000000 Binary files a/pics/97204936.jpg and /dev/null differ diff --git a/pics/9720537.jpg b/pics/9720537.jpg deleted file mode 100644 index 82ff0378..00000000 Binary files a/pics/9720537.jpg and /dev/null differ diff --git a/pics/97211663.jpg b/pics/97211663.jpg deleted file mode 100644 index 1989e7b4..00000000 Binary files a/pics/97211663.jpg and /dev/null differ diff --git a/pics/97219708.jpg b/pics/97219708.jpg deleted file mode 100755 index 73438f8a..00000000 Binary files a/pics/97219708.jpg and /dev/null differ diff --git a/pics/97232518.jpg b/pics/97232518.jpg deleted file mode 100644 index 1a5ae0d0..00000000 Binary files a/pics/97232518.jpg and /dev/null differ diff --git a/pics/97234686.jpg b/pics/97234686.jpg deleted file mode 100644 index ab779c23..00000000 Binary files a/pics/97234686.jpg and /dev/null differ diff --git a/pics/97240270.jpg b/pics/97240270.jpg deleted file mode 100644 index 67164971..00000000 Binary files a/pics/97240270.jpg and /dev/null differ diff --git a/pics/97268402.jpg b/pics/97268402.jpg deleted file mode 100644 index 47002078..00000000 Binary files a/pics/97268402.jpg and /dev/null differ diff --git a/pics/97317530.jpg b/pics/97317530.jpg deleted file mode 100644 index 1ee4f461..00000000 Binary files a/pics/97317530.jpg and /dev/null differ diff --git a/pics/97342942.jpg b/pics/97342942.jpg deleted file mode 100644 index 3d93b0d6..00000000 Binary files a/pics/97342942.jpg and /dev/null differ diff --git a/pics/97360116.jpg b/pics/97360116.jpg deleted file mode 100644 index 6487a7d0..00000000 Binary files a/pics/97360116.jpg and /dev/null differ diff --git a/pics/97362768.jpg b/pics/97362768.jpg deleted file mode 100644 index 1f0c1459..00000000 Binary files a/pics/97362768.jpg and /dev/null differ diff --git a/pics/97385276.jpg b/pics/97385276.jpg deleted file mode 100644 index 65bfb4aa..00000000 Binary files a/pics/97385276.jpg and /dev/null differ diff --git a/pics/97396380.jpg b/pics/97396380.jpg deleted file mode 100644 index 2b00648f..00000000 Binary files a/pics/97396380.jpg and /dev/null differ diff --git a/pics/97403510.jpg b/pics/97403510.jpg deleted file mode 100644 index c03c8448..00000000 Binary files a/pics/97403510.jpg and /dev/null differ diff --git a/pics/9742784.jpg b/pics/9742784.jpg deleted file mode 100644 index 6a13b06d..00000000 Binary files a/pics/9742784.jpg and /dev/null differ diff --git a/pics/97433739.jpg b/pics/97433739.jpg deleted file mode 100644 index a665859e..00000000 Binary files a/pics/97433739.jpg and /dev/null differ diff --git a/pics/97439308.jpg b/pics/97439308.jpg deleted file mode 100644 index 1c4f5a8f..00000000 Binary files a/pics/97439308.jpg and /dev/null differ diff --git a/pics/97439806.jpg b/pics/97439806.jpg deleted file mode 100644 index 276ad08d..00000000 Binary files a/pics/97439806.jpg and /dev/null differ diff --git a/pics/9744376.jpg b/pics/9744376.jpg deleted file mode 100644 index 5f0b9b76..00000000 Binary files a/pics/9744376.jpg and /dev/null differ diff --git a/pics/97452817.jpg b/pics/97452817.jpg deleted file mode 100644 index c2447527..00000000 Binary files a/pics/97452817.jpg and /dev/null differ diff --git a/pics/97452818.jpg b/pics/97452818.jpg deleted file mode 100644 index f49187f2..00000000 Binary files a/pics/97452818.jpg and /dev/null differ diff --git a/pics/97466438.jpg b/pics/97466438.jpg deleted file mode 100755 index c3add8a3..00000000 Binary files a/pics/97466438.jpg and /dev/null differ diff --git a/pics/9748752.jpg b/pics/9748752.jpg deleted file mode 100644 index aa62fb35..00000000 Binary files a/pics/9748752.jpg and /dev/null differ diff --git a/pics/97489701.jpg b/pics/97489701.jpg deleted file mode 100644 index 9ffc2b71..00000000 Binary files a/pics/97489701.jpg and /dev/null differ diff --git a/pics/97520701.jpg b/pics/97520701.jpg deleted file mode 100644 index d6510e2d..00000000 Binary files a/pics/97520701.jpg and /dev/null differ diff --git a/pics/97526666.jpg b/pics/97526666.jpg deleted file mode 100644 index 2767551d..00000000 Binary files a/pics/97526666.jpg and /dev/null differ diff --git a/pics/9753964.jpg b/pics/9753964.jpg deleted file mode 100755 index 84a45dfb..00000000 Binary files a/pics/9753964.jpg and /dev/null differ diff --git a/pics/97567736.jpg b/pics/97567736.jpg deleted file mode 100644 index 1dddf987..00000000 Binary files a/pics/97567736.jpg and /dev/null differ diff --git a/pics/97570038.jpg b/pics/97570038.jpg deleted file mode 100644 index 8b8f3d49..00000000 Binary files a/pics/97570038.jpg and /dev/null differ diff --git a/pics/97574404.jpg b/pics/97574404.jpg deleted file mode 100644 index 3b224841..00000000 Binary files a/pics/97574404.jpg and /dev/null differ diff --git a/pics/97584500.jpg b/pics/97584500.jpg deleted file mode 100644 index 2dfe6612..00000000 Binary files a/pics/97584500.jpg and /dev/null differ diff --git a/pics/97588916.jpg b/pics/97588916.jpg deleted file mode 100755 index d4cbadc8..00000000 Binary files a/pics/97588916.jpg and /dev/null differ diff --git a/pics/97590747.jpg b/pics/97590747.jpg deleted file mode 100644 index 60c41d20..00000000 Binary files a/pics/97590747.jpg and /dev/null differ diff --git a/pics/97590748.jpg b/pics/97590748.jpg deleted file mode 100644 index 0d699a2d..00000000 Binary files a/pics/97590748.jpg and /dev/null differ diff --git a/pics/97612389.jpg b/pics/97612389.jpg deleted file mode 100644 index fbd39c07..00000000 Binary files a/pics/97612389.jpg and /dev/null differ diff --git a/pics/97617181.jpg b/pics/97617181.jpg deleted file mode 100644 index 65d16d4c..00000000 Binary files a/pics/97617181.jpg and /dev/null differ diff --git a/pics/97623219.jpg b/pics/97623219.jpg deleted file mode 100644 index 3ce1f7bb..00000000 Binary files a/pics/97623219.jpg and /dev/null differ diff --git a/pics/97642679.jpg b/pics/97642679.jpg deleted file mode 100644 index 6b6003a2..00000000 Binary files a/pics/97642679.jpg and /dev/null differ diff --git a/pics/97651498.jpg b/pics/97651498.jpg deleted file mode 100644 index bab9daef..00000000 Binary files a/pics/97651498.jpg and /dev/null differ diff --git a/pics/9765723.jpg b/pics/9765723.jpg deleted file mode 100755 index a115fd93..00000000 Binary files a/pics/9765723.jpg and /dev/null differ diff --git a/pics/97687912.jpg b/pics/97687912.jpg deleted file mode 100644 index d2d87b81..00000000 Binary files a/pics/97687912.jpg and /dev/null differ diff --git a/pics/97697447.jpg b/pics/97697447.jpg deleted file mode 100644 index 29d66a79..00000000 Binary files a/pics/97697447.jpg and /dev/null differ diff --git a/pics/97697678.jpg b/pics/97697678.jpg deleted file mode 100644 index 21b93a02..00000000 Binary files a/pics/97697678.jpg and /dev/null differ diff --git a/pics/97705809.jpg b/pics/97705809.jpg deleted file mode 100644 index 2ea7d1e3..00000000 Binary files a/pics/97705809.jpg and /dev/null differ diff --git a/pics/97738431.jpg b/pics/97738431.jpg deleted file mode 100644 index 5440fe11..00000000 Binary files a/pics/97738431.jpg and /dev/null differ diff --git a/pics/97750534.jpg b/pics/97750534.jpg deleted file mode 100644 index 8eb771ed..00000000 Binary files a/pics/97750534.jpg and /dev/null differ diff --git a/pics/97783659.jpg b/pics/97783659.jpg deleted file mode 100644 index fa1e9d09..00000000 Binary files a/pics/97783659.jpg and /dev/null differ diff --git a/pics/97792247.jpg b/pics/97792247.jpg deleted file mode 100755 index 5c38bae2..00000000 Binary files a/pics/97792247.jpg and /dev/null differ diff --git a/pics/9780364.jpg b/pics/9780364.jpg deleted file mode 100644 index 11cdc39f..00000000 Binary files a/pics/9780364.jpg and /dev/null differ diff --git a/pics/97806240.jpg b/pics/97806240.jpg deleted file mode 100644 index b4eee569..00000000 Binary files a/pics/97806240.jpg and /dev/null differ diff --git a/pics/97809599.jpg b/pics/97809599.jpg deleted file mode 100644 index 3f5b31e8..00000000 Binary files a/pics/97809599.jpg and /dev/null differ diff --git a/pics/97811903.jpg b/pics/97811903.jpg deleted file mode 100644 index 836fb08d..00000000 Binary files a/pics/97811903.jpg and /dev/null differ diff --git a/pics/97836203.jpg b/pics/97836203.jpg deleted file mode 100644 index c3fae7d1..00000000 Binary files a/pics/97836203.jpg and /dev/null differ diff --git a/pics/97843505.jpg b/pics/97843505.jpg deleted file mode 100644 index 1c2ccc04..00000000 Binary files a/pics/97843505.jpg and /dev/null differ diff --git a/pics/9786492.jpg b/pics/9786492.jpg deleted file mode 100644 index 012f07d6..00000000 Binary files a/pics/9786492.jpg and /dev/null differ diff --git a/pics/97885363.jpg b/pics/97885363.jpg deleted file mode 100644 index cd6a98d9..00000000 Binary files a/pics/97885363.jpg and /dev/null differ diff --git a/pics/97896503.jpg b/pics/97896503.jpg deleted file mode 100644 index b90ba515..00000000 Binary files a/pics/97896503.jpg and /dev/null differ diff --git a/pics/97904474.jpg b/pics/97904474.jpg deleted file mode 100644 index 6264bcf0..00000000 Binary files a/pics/97904474.jpg and /dev/null differ diff --git a/pics/9791914.jpg b/pics/9791914.jpg deleted file mode 100644 index fc2defa2..00000000 Binary files a/pics/9791914.jpg and /dev/null differ diff --git a/pics/97922283.jpg b/pics/97922283.jpg deleted file mode 100644 index 8afa8358..00000000 Binary files a/pics/97922283.jpg and /dev/null differ diff --git a/pics/97923414.jpg b/pics/97923414.jpg deleted file mode 100644 index fd781500..00000000 Binary files a/pics/97923414.jpg and /dev/null differ diff --git a/pics/97940434.jpg b/pics/97940434.jpg deleted file mode 100644 index 4eb33c66..00000000 Binary files a/pics/97940434.jpg and /dev/null differ diff --git a/pics/97970833.jpg b/pics/97970833.jpg deleted file mode 100644 index 7f647f0b..00000000 Binary files a/pics/97970833.jpg and /dev/null differ diff --git a/pics/97973387.jpg b/pics/97973387.jpg deleted file mode 100644 index 52d4f411..00000000 Binary files a/pics/97973387.jpg and /dev/null differ diff --git a/pics/97997309.jpg b/pics/97997309.jpg deleted file mode 100644 index 75c830cf..00000000 Binary files a/pics/97997309.jpg and /dev/null differ diff --git a/pics/98012938.jpg b/pics/98012938.jpg deleted file mode 100644 index 1b6b9656..00000000 Binary files a/pics/98012938.jpg and /dev/null differ diff --git a/pics/98024118.jpg b/pics/98024118.jpg deleted file mode 100644 index 73a78dad..00000000 Binary files a/pics/98024118.jpg and /dev/null differ diff --git a/pics/98045062.jpg b/pics/98045062.jpg deleted file mode 100644 index 478ab76f..00000000 Binary files a/pics/98045062.jpg and /dev/null differ diff --git a/pics/98049038.jpg b/pics/98049038.jpg deleted file mode 100644 index 12777f62..00000000 Binary files a/pics/98049038.jpg and /dev/null differ diff --git a/pics/98049915.jpg b/pics/98049915.jpg deleted file mode 100644 index ebe0bdc6..00000000 Binary files a/pics/98049915.jpg and /dev/null differ diff --git a/pics/98069388.jpg b/pics/98069388.jpg deleted file mode 100644 index 69a56de9..00000000 Binary files a/pics/98069388.jpg and /dev/null differ diff --git a/pics/98075147.jpg b/pics/98075147.jpg deleted file mode 100644 index 77151a75..00000000 Binary files a/pics/98075147.jpg and /dev/null differ diff --git a/pics/98076754.jpg b/pics/98076754.jpg deleted file mode 100644 index 57aa491c..00000000 Binary files a/pics/98076754.jpg and /dev/null differ diff --git a/pics/980973.jpg b/pics/980973.jpg deleted file mode 100644 index f58e1d85..00000000 Binary files a/pics/980973.jpg and /dev/null differ diff --git a/pics/98126725.jpg b/pics/98126725.jpg deleted file mode 100644 index c8171944..00000000 Binary files a/pics/98126725.jpg and /dev/null differ diff --git a/pics/98139712.jpg b/pics/98139712.jpg deleted file mode 100644 index 837c4935..00000000 Binary files a/pics/98139712.jpg and /dev/null differ diff --git a/pics/98143165.jpg b/pics/98143165.jpg deleted file mode 100644 index 9cba665f..00000000 Binary files a/pics/98143165.jpg and /dev/null differ diff --git a/pics/98147766.jpg b/pics/98147766.jpg deleted file mode 100644 index e727eb52..00000000 Binary files a/pics/98147766.jpg and /dev/null differ diff --git a/pics/98153934.jpg b/pics/98153934.jpg deleted file mode 100755 index 839d465a..00000000 Binary files a/pics/98153934.jpg and /dev/null differ diff --git a/pics/981540.jpg b/pics/981540.jpg deleted file mode 100644 index 15cf0b7e..00000000 Binary files a/pics/981540.jpg and /dev/null differ diff --git a/pics/98154550.jpg b/pics/98154550.jpg deleted file mode 100644 index e4506fdc..00000000 Binary files a/pics/98154550.jpg and /dev/null differ diff --git a/pics/98162021.jpg b/pics/98162021.jpg deleted file mode 100644 index c721abaf..00000000 Binary files a/pics/98162021.jpg and /dev/null differ diff --git a/pics/98162242.jpg b/pics/98162242.jpg deleted file mode 100644 index 86182465..00000000 Binary files a/pics/98162242.jpg and /dev/null differ diff --git a/pics/9817927.jpg b/pics/9817927.jpg deleted file mode 100644 index 67ac6071..00000000 Binary files a/pics/9817927.jpg and /dev/null differ diff --git a/pics/98225108.jpg b/pics/98225108.jpg deleted file mode 100644 index 603ec13d..00000000 Binary files a/pics/98225108.jpg and /dev/null differ diff --git a/pics/98229575.jpg b/pics/98229575.jpg deleted file mode 100644 index e5b072b9..00000000 Binary files a/pics/98229575.jpg and /dev/null differ diff --git a/pics/98239899.jpg b/pics/98239899.jpg deleted file mode 100644 index 19a41982..00000000 Binary files a/pics/98239899.jpg and /dev/null differ diff --git a/pics/98252586.jpg b/pics/98252586.jpg deleted file mode 100644 index a30c0254..00000000 Binary files a/pics/98252586.jpg and /dev/null differ diff --git a/pics/98259197.jpg b/pics/98259197.jpg deleted file mode 100644 index dd4766d7..00000000 Binary files a/pics/98259197.jpg and /dev/null differ diff --git a/pics/98263709.jpg b/pics/98263709.jpg deleted file mode 100644 index 2c7c4c4c..00000000 Binary files a/pics/98263709.jpg and /dev/null differ diff --git a/pics/98266377.jpg b/pics/98266377.jpg deleted file mode 100644 index cf7e7217..00000000 Binary files a/pics/98266377.jpg and /dev/null differ diff --git a/pics/98273947.jpg b/pics/98273947.jpg deleted file mode 100644 index 385cf24f..00000000 Binary files a/pics/98273947.jpg and /dev/null differ diff --git a/pics/98280324.jpg b/pics/98280324.jpg deleted file mode 100644 index b2a788a5..00000000 Binary files a/pics/98280324.jpg and /dev/null differ diff --git a/pics/98299011.jpg b/pics/98299011.jpg deleted file mode 100644 index d0e6e9d0..00000000 Binary files a/pics/98299011.jpg and /dev/null differ diff --git a/pics/98301564.jpg b/pics/98301564.jpg deleted file mode 100755 index 066bbf4f..00000000 Binary files a/pics/98301564.jpg and /dev/null differ diff --git a/pics/9831539.jpg b/pics/9831539.jpg deleted file mode 100644 index a29ee71e..00000000 Binary files a/pics/9831539.jpg and /dev/null differ diff --git a/pics/98336111.jpg b/pics/98336111.jpg deleted file mode 100644 index 2e35d265..00000000 Binary files a/pics/98336111.jpg and /dev/null differ diff --git a/pics/98358303.jpg b/pics/98358303.jpg deleted file mode 100644 index 3a63114b..00000000 Binary files a/pics/98358303.jpg and /dev/null differ diff --git a/pics/9837195.jpg b/pics/9837195.jpg deleted file mode 100644 index 999b6e87..00000000 Binary files a/pics/9837195.jpg and /dev/null differ diff --git a/pics/98374133.jpg b/pics/98374133.jpg deleted file mode 100644 index cfbcc031..00000000 Binary files a/pics/98374133.jpg and /dev/null differ diff --git a/pics/98380593.jpg b/pics/98380593.jpg deleted file mode 100644 index df155831..00000000 Binary files a/pics/98380593.jpg and /dev/null differ diff --git a/pics/983995.jpg b/pics/983995.jpg deleted file mode 100644 index a3f982ae..00000000 Binary files a/pics/983995.jpg and /dev/null differ diff --git a/pics/984114.jpg b/pics/984114.jpg deleted file mode 100644 index 862427d3..00000000 Binary files a/pics/984114.jpg and /dev/null differ diff --git a/pics/98414735.jpg b/pics/98414735.jpg deleted file mode 100755 index 93300fd4..00000000 Binary files a/pics/98414735.jpg and /dev/null differ diff --git a/pics/98427577.jpg b/pics/98427577.jpg deleted file mode 100644 index dd009e83..00000000 Binary files a/pics/98427577.jpg and /dev/null differ diff --git a/pics/98431356.jpg b/pics/98431356.jpg deleted file mode 100755 index 20552940..00000000 Binary files a/pics/98431356.jpg and /dev/null differ diff --git a/pics/98434877.jpg b/pics/98434877.jpg deleted file mode 100644 index 392e87d3..00000000 Binary files a/pics/98434877.jpg and /dev/null differ diff --git a/pics/98437424.jpg b/pics/98437424.jpg deleted file mode 100644 index 2b55473a..00000000 Binary files a/pics/98437424.jpg and /dev/null differ diff --git a/pics/98444741.jpg b/pics/98444741.jpg deleted file mode 100644 index f643b00e..00000000 Binary files a/pics/98444741.jpg and /dev/null differ diff --git a/pics/98446407.jpg b/pics/98446407.jpg deleted file mode 100644 index d530d479..00000000 Binary files a/pics/98446407.jpg and /dev/null differ diff --git a/pics/98456117.jpg b/pics/98456117.jpg deleted file mode 100644 index 84ee85e2..00000000 Binary files a/pics/98456117.jpg and /dev/null differ diff --git a/pics/9845733.jpg b/pics/9845733.jpg deleted file mode 100644 index dfb9f0c0..00000000 Binary files a/pics/9845733.jpg and /dev/null differ diff --git a/pics/9848939.jpg b/pics/9848939.jpg deleted file mode 100644 index 94455a28..00000000 Binary files a/pics/9848939.jpg and /dev/null differ diff --git a/pics/98494543.jpg b/pics/98494543.jpg deleted file mode 100644 index b6e8a20c..00000000 Binary files a/pics/98494543.jpg and /dev/null differ diff --git a/pics/98495314.jpg b/pics/98495314.jpg deleted file mode 100644 index 1bf048ba..00000000 Binary files a/pics/98495314.jpg and /dev/null differ diff --git a/pics/98502113.jpg b/pics/98502113.jpg deleted file mode 100644 index 6a54ce94..00000000 Binary files a/pics/98502113.jpg and /dev/null differ diff --git a/pics/98502114.jpg b/pics/98502114.jpg deleted file mode 100644 index ebdaa8ce..00000000 Binary files a/pics/98502114.jpg and /dev/null differ diff --git a/pics/98502115.jpg b/pics/98502115.jpg deleted file mode 100644 index fd4b2272..00000000 Binary files a/pics/98502115.jpg and /dev/null differ diff --git a/pics/98535702.jpg b/pics/98535702.jpg deleted file mode 100644 index 6ee5652c..00000000 Binary files a/pics/98535702.jpg and /dev/null differ diff --git a/pics/98555327.jpg b/pics/98555327.jpg deleted file mode 100644 index ca995f31..00000000 Binary files a/pics/98555327.jpg and /dev/null differ diff --git a/pics/98558751.jpg b/pics/98558751.jpg deleted file mode 100644 index 2c1ac005..00000000 Binary files a/pics/98558751.jpg and /dev/null differ diff --git a/pics/98582704.jpg b/pics/98582704.jpg deleted file mode 100644 index 73c07d23..00000000 Binary files a/pics/98582704.jpg and /dev/null differ diff --git a/pics/98585345.jpg b/pics/98585345.jpg deleted file mode 100644 index ba4fcd5f..00000000 Binary files a/pics/98585345.jpg and /dev/null differ diff --git a/pics/9861795.jpg b/pics/9861795.jpg deleted file mode 100644 index 58051028..00000000 Binary files a/pics/9861795.jpg and /dev/null differ diff --git a/pics/98637386.jpg b/pics/98637386.jpg deleted file mode 100755 index bd357682..00000000 Binary files a/pics/98637386.jpg and /dev/null differ diff --git a/pics/98643358.jpg b/pics/98643358.jpg deleted file mode 100644 index a0d40c16..00000000 Binary files a/pics/98643358.jpg and /dev/null differ diff --git a/pics/98645731.jpg b/pics/98645731.jpg deleted file mode 100644 index f0319071..00000000 Binary files a/pics/98645731.jpg and /dev/null differ diff --git a/pics/98649372.jpg b/pics/98649372.jpg deleted file mode 100644 index 10874bf7..00000000 Binary files a/pics/98649372.jpg and /dev/null differ diff --git a/pics/98666339.jpg b/pics/98666339.jpg deleted file mode 100644 index 7d695add..00000000 Binary files a/pics/98666339.jpg and /dev/null differ diff --git a/pics/98672567.jpg b/pics/98672567.jpg deleted file mode 100644 index 7d399278..00000000 Binary files a/pics/98672567.jpg and /dev/null differ diff --git a/pics/98707192.jpg b/pics/98707192.jpg deleted file mode 100644 index 789d4691..00000000 Binary files a/pics/98707192.jpg and /dev/null differ diff --git a/pics/98719226.jpg b/pics/98719226.jpg deleted file mode 100644 index 6e934788..00000000 Binary files a/pics/98719226.jpg and /dev/null differ diff --git a/pics/987311.jpg b/pics/987311.jpg deleted file mode 100644 index b5013419..00000000 Binary files a/pics/987311.jpg and /dev/null differ diff --git a/pics/98745000.jpg b/pics/98745000.jpg deleted file mode 100644 index 419d4d39..00000000 Binary files a/pics/98745000.jpg and /dev/null differ diff --git a/pics/98777036.jpg b/pics/98777036.jpg deleted file mode 100644 index d5981a78..00000000 Binary files a/pics/98777036.jpg and /dev/null differ diff --git a/pics/98780137.jpg b/pics/98780137.jpg deleted file mode 100644 index 5e2c8644..00000000 Binary files a/pics/98780137.jpg and /dev/null differ diff --git a/pics/98792570.jpg b/pics/98792570.jpg deleted file mode 100644 index e2a9d981..00000000 Binary files a/pics/98792570.jpg and /dev/null differ diff --git a/pics/98795934.jpg b/pics/98795934.jpg deleted file mode 100644 index 535a8d9d..00000000 Binary files a/pics/98795934.jpg and /dev/null differ diff --git a/pics/98818516.jpg b/pics/98818516.jpg deleted file mode 100644 index def6dca1..00000000 Binary files a/pics/98818516.jpg and /dev/null differ diff --git a/pics/98827725.jpg b/pics/98827725.jpg deleted file mode 100755 index 12cd6d97..00000000 Binary files a/pics/98827725.jpg and /dev/null differ diff --git a/pics/98847704.jpg b/pics/98847704.jpg deleted file mode 100644 index 3705bbb4..00000000 Binary files a/pics/98847704.jpg and /dev/null differ diff --git a/pics/98850929.jpg b/pics/98850929.jpg deleted file mode 100644 index a17d7065..00000000 Binary files a/pics/98850929.jpg and /dev/null differ diff --git a/pics/98865920.jpg b/pics/98865920.jpg deleted file mode 100644 index 5d4d7149..00000000 Binary files a/pics/98865920.jpg and /dev/null differ diff --git a/pics/98867329.jpg b/pics/98867329.jpg deleted file mode 100644 index e20e6efd..00000000 Binary files a/pics/98867329.jpg and /dev/null differ diff --git a/pics/9888196.jpg b/pics/9888196.jpg deleted file mode 100644 index 6f2a7ee9..00000000 Binary files a/pics/9888196.jpg and /dev/null differ diff --git a/pics/98884569.jpg b/pics/98884569.jpg deleted file mode 100644 index 7e35578c..00000000 Binary files a/pics/98884569.jpg and /dev/null differ diff --git a/pics/98891840.jpg b/pics/98891840.jpg deleted file mode 100644 index 68378364..00000000 Binary files a/pics/98891840.jpg and /dev/null differ diff --git a/pics/98898173.jpg b/pics/98898173.jpg deleted file mode 100644 index 36516320..00000000 Binary files a/pics/98898173.jpg and /dev/null differ diff --git a/pics/98927491.jpg b/pics/98927491.jpg deleted file mode 100644 index 99c44e94..00000000 Binary files a/pics/98927491.jpg and /dev/null differ diff --git a/pics/98931003.jpg b/pics/98931003.jpg deleted file mode 100644 index 5387fe8a..00000000 Binary files a/pics/98931003.jpg and /dev/null differ diff --git a/pics/98954106.jpg b/pics/98954106.jpg deleted file mode 100644 index bc45650e..00000000 Binary files a/pics/98954106.jpg and /dev/null differ diff --git a/pics/98954375.jpg b/pics/98954375.jpg deleted file mode 100644 index 1f8ef769..00000000 Binary files a/pics/98954375.jpg and /dev/null differ diff --git a/pics/98956134.jpg b/pics/98956134.jpg deleted file mode 100644 index b1bd0f02..00000000 Binary files a/pics/98956134.jpg and /dev/null differ diff --git a/pics/9897998.jpg b/pics/9897998.jpg deleted file mode 100644 index 325101b9..00000000 Binary files a/pics/9897998.jpg and /dev/null differ diff --git a/pics/99000151.jpg b/pics/99000151.jpg deleted file mode 100644 index a9f87844..00000000 Binary files a/pics/99000151.jpg and /dev/null differ diff --git a/pics/99002135.jpg b/pics/99002135.jpg deleted file mode 100644 index 96098b13..00000000 Binary files a/pics/99002135.jpg and /dev/null differ diff --git a/pics/99004752.jpg b/pics/99004752.jpg deleted file mode 100644 index 084592be..00000000 Binary files a/pics/99004752.jpg and /dev/null differ diff --git a/pics/99013397.jpg b/pics/99013397.jpg deleted file mode 100644 index 81b50c4e..00000000 Binary files a/pics/99013397.jpg and /dev/null differ diff --git a/pics/99030164.jpg b/pics/99030164.jpg deleted file mode 100644 index ee3626b0..00000000 Binary files a/pics/99030164.jpg and /dev/null differ diff --git a/pics/99050989.jpg b/pics/99050989.jpg deleted file mode 100644 index 038bd074..00000000 Binary files a/pics/99050989.jpg and /dev/null differ diff --git a/pics/99064191.jpg b/pics/99064191.jpg deleted file mode 100644 index 1e65e0da..00000000 Binary files a/pics/99064191.jpg and /dev/null differ diff --git a/pics/99070951.jpg b/pics/99070951.jpg deleted file mode 100644 index ab8c0df0..00000000 Binary files a/pics/99070951.jpg and /dev/null differ diff --git a/pics/99075257.jpg b/pics/99075257.jpg deleted file mode 100644 index 86ed6cfb..00000000 Binary files a/pics/99075257.jpg and /dev/null differ diff --git a/pics/9910360.jpg b/pics/9910360.jpg deleted file mode 100644 index 83bdd9c6..00000000 Binary files a/pics/9910360.jpg and /dev/null differ diff --git a/pics/99150062.jpg b/pics/99150062.jpg deleted file mode 100644 index fd4cbc07..00000000 Binary files a/pics/99150062.jpg and /dev/null differ diff --git a/pics/99171160.jpg b/pics/99171160.jpg deleted file mode 100644 index b8332fd7..00000000 Binary files a/pics/99171160.jpg and /dev/null differ diff --git a/pics/99173029.jpg b/pics/99173029.jpg deleted file mode 100644 index e3399eee..00000000 Binary files a/pics/99173029.jpg and /dev/null differ diff --git a/pics/99177923.jpg b/pics/99177923.jpg deleted file mode 100644 index 8bcbb0ad..00000000 Binary files a/pics/99177923.jpg and /dev/null differ diff --git a/pics/99185129.jpg b/pics/99185129.jpg deleted file mode 100644 index dde10ddb..00000000 Binary files a/pics/99185129.jpg and /dev/null differ diff --git a/pics/99188141.jpg b/pics/99188141.jpg deleted file mode 100644 index a5863f4d..00000000 Binary files a/pics/99188141.jpg and /dev/null differ diff --git a/pics/99189322.jpg b/pics/99189322.jpg deleted file mode 100644 index aa234e48..00000000 Binary files a/pics/99189322.jpg and /dev/null differ diff --git a/pics/99212922.jpg b/pics/99212922.jpg deleted file mode 100644 index ef0f62cf..00000000 Binary files a/pics/99212922.jpg and /dev/null differ diff --git a/pics/99214782.jpg b/pics/99214782.jpg deleted file mode 100644 index a1a6830d..00000000 Binary files a/pics/99214782.jpg and /dev/null differ diff --git a/pics/99234526.jpg b/pics/99234526.jpg deleted file mode 100644 index a3c32eda..00000000 Binary files a/pics/99234526.jpg and /dev/null differ diff --git a/pics/9925982.jpg b/pics/9925982.jpg deleted file mode 100644 index a705d706..00000000 Binary files a/pics/9925982.jpg and /dev/null differ diff --git a/pics/9925983.jpg b/pics/9925983.jpg deleted file mode 100644 index 32b2ea84..00000000 Binary files a/pics/9925983.jpg and /dev/null differ diff --git a/pics/99261403.jpg b/pics/99261403.jpg deleted file mode 100644 index b4fcab04..00000000 Binary files a/pics/99261403.jpg and /dev/null differ diff --git a/pics/99267150.jpg b/pics/99267150.jpg deleted file mode 100644 index 821ebfb3..00000000 Binary files a/pics/99267150.jpg and /dev/null differ diff --git a/pics/99284890.jpg b/pics/99284890.jpg deleted file mode 100644 index 5f1886fd..00000000 Binary files a/pics/99284890.jpg and /dev/null differ diff --git a/pics/99311109.jpg b/pics/99311109.jpg deleted file mode 100644 index 5bf7d6a8..00000000 Binary files a/pics/99311109.jpg and /dev/null differ diff --git a/pics/99315585.jpg b/pics/99315585.jpg deleted file mode 100755 index be0fd4b7..00000000 Binary files a/pics/99315585.jpg and /dev/null differ diff --git a/pics/99330325.jpg b/pics/99330325.jpg deleted file mode 100755 index 1e69ec27..00000000 Binary files a/pics/99330325.jpg and /dev/null differ diff --git a/pics/99342953.jpg b/pics/99342953.jpg deleted file mode 100644 index 78e9fbe8..00000000 Binary files a/pics/99342953.jpg and /dev/null differ diff --git a/pics/99348756.jpg b/pics/99348756.jpg deleted file mode 100644 index 78f28d08..00000000 Binary files a/pics/99348756.jpg and /dev/null differ diff --git a/pics/99351431.jpg b/pics/99351431.jpg deleted file mode 100644 index fd8942d9..00000000 Binary files a/pics/99351431.jpg and /dev/null differ diff --git a/pics/99365553.jpg b/pics/99365553.jpg deleted file mode 100644 index b46547bf..00000000 Binary files a/pics/99365553.jpg and /dev/null differ diff --git a/pics/99414168.jpg b/pics/99414168.jpg deleted file mode 100644 index c3cc1e91..00000000 Binary files a/pics/99414168.jpg and /dev/null differ diff --git a/pics/99423156.jpg b/pics/99423156.jpg deleted file mode 100755 index d07f7070..00000000 Binary files a/pics/99423156.jpg and /dev/null differ diff --git a/pics/99426834.jpg b/pics/99426834.jpg deleted file mode 100644 index 0ec41e68..00000000 Binary files a/pics/99426834.jpg and /dev/null differ diff --git a/pics/99429730.jpg b/pics/99429730.jpg deleted file mode 100755 index 9db9be8f..00000000 Binary files a/pics/99429730.jpg and /dev/null differ diff --git a/pics/99458769.jpg b/pics/99458769.jpg deleted file mode 100644 index b64fe4d0..00000000 Binary files a/pics/99458769.jpg and /dev/null differ diff --git a/pics/99469936.jpg b/pics/99469936.jpg deleted file mode 100644 index 47ba310a..00000000 Binary files a/pics/99469936.jpg and /dev/null differ diff --git a/pics/99510761.jpg b/pics/99510761.jpg deleted file mode 100644 index 5f16a16c..00000000 Binary files a/pics/99510761.jpg and /dev/null differ diff --git a/pics/99517131.jpg b/pics/99517131.jpg deleted file mode 100644 index 75701cb2..00000000 Binary files a/pics/99517131.jpg and /dev/null differ diff --git a/pics/99518961.jpg b/pics/99518961.jpg deleted file mode 100644 index 8288e470..00000000 Binary files a/pics/99518961.jpg and /dev/null differ diff --git a/pics/9952083.jpg b/pics/9952083.jpg deleted file mode 100644 index a28e8891..00000000 Binary files a/pics/9952083.jpg and /dev/null differ diff --git a/pics/99523325.jpg b/pics/99523325.jpg deleted file mode 100644 index 4a7e6bb6..00000000 Binary files a/pics/99523325.jpg and /dev/null differ diff --git a/pics/99532708.jpg b/pics/99532708.jpg deleted file mode 100644 index 7bf13f53..00000000 Binary files a/pics/99532708.jpg and /dev/null differ diff --git a/pics/99551425.jpg b/pics/99551425.jpg deleted file mode 100644 index 2dea4c1a..00000000 Binary files a/pics/99551425.jpg and /dev/null differ diff --git a/pics/99581584.jpg b/pics/99581584.jpg deleted file mode 100644 index 30f18f04..00000000 Binary files a/pics/99581584.jpg and /dev/null differ diff --git a/pics/99590524.jpg b/pics/99590524.jpg deleted file mode 100644 index 452c4b18..00000000 Binary files a/pics/99590524.jpg and /dev/null differ diff --git a/pics/99594764.jpg b/pics/99594764.jpg deleted file mode 100644 index 0241704b..00000000 Binary files a/pics/99594764.jpg and /dev/null differ diff --git a/pics/99597615.jpg b/pics/99597615.jpg deleted file mode 100644 index a46e870a..00000000 Binary files a/pics/99597615.jpg and /dev/null differ diff --git a/pics/99641328.jpg b/pics/99641328.jpg deleted file mode 100755 index ca5c5a79..00000000 Binary files a/pics/99641328.jpg and /dev/null differ diff --git a/pics/99645428.jpg b/pics/99645428.jpg deleted file mode 100644 index 6313ea44..00000000 Binary files a/pics/99645428.jpg and /dev/null differ diff --git a/pics/99657399.jpg b/pics/99657399.jpg deleted file mode 100644 index c331f699..00000000 Binary files a/pics/99657399.jpg and /dev/null differ diff --git a/pics/99659159.jpg b/pics/99659159.jpg deleted file mode 100644 index 86c3d708..00000000 Binary files a/pics/99659159.jpg and /dev/null differ diff --git a/pics/99668578.jpg b/pics/99668578.jpg deleted file mode 100644 index 8b2abd27..00000000 Binary files a/pics/99668578.jpg and /dev/null differ diff --git a/pics/99675356.jpg b/pics/99675356.jpg deleted file mode 100644 index ac0ef3fa..00000000 Binary files a/pics/99675356.jpg and /dev/null differ diff --git a/pics/99690140.jpg b/pics/99690140.jpg deleted file mode 100644 index a4e5d63b..00000000 Binary files a/pics/99690140.jpg and /dev/null differ diff --git a/pics/99721536.jpg b/pics/99721536.jpg deleted file mode 100644 index d601775f..00000000 Binary files a/pics/99721536.jpg and /dev/null differ diff --git a/pics/99724761.jpg b/pics/99724761.jpg deleted file mode 100644 index cbd01aa0..00000000 Binary files a/pics/99724761.jpg and /dev/null differ diff --git a/pics/99733359.jpg b/pics/99733359.jpg deleted file mode 100644 index e7fc666f..00000000 Binary files a/pics/99733359.jpg and /dev/null differ diff --git a/pics/99735427.jpg b/pics/99735427.jpg deleted file mode 100644 index 4f73ad87..00000000 Binary files a/pics/99735427.jpg and /dev/null differ diff --git a/pics/99747800.jpg b/pics/99747800.jpg deleted file mode 100644 index caa0defe..00000000 Binary files a/pics/99747800.jpg and /dev/null differ diff --git a/pics/99785935.jpg b/pics/99785935.jpg deleted file mode 100644 index efd21e5f..00000000 Binary files a/pics/99785935.jpg and /dev/null differ diff --git a/pics/99788587.jpg b/pics/99788587.jpg deleted file mode 100644 index 81e47ccc..00000000 Binary files a/pics/99788587.jpg and /dev/null differ diff --git a/pics/99789342.jpg b/pics/99789342.jpg deleted file mode 100644 index 2e214432..00000000 Binary files a/pics/99789342.jpg and /dev/null differ diff --git a/pics/99795159.jpg b/pics/99795159.jpg deleted file mode 100644 index 103e7fed..00000000 Binary files a/pics/99795159.jpg and /dev/null differ diff --git a/pics/99861526.jpg b/pics/99861526.jpg deleted file mode 100644 index 108c668b..00000000 Binary files a/pics/99861526.jpg and /dev/null differ diff --git a/pics/99865167.jpg b/pics/99865167.jpg deleted file mode 100644 index 8a851302..00000000 Binary files a/pics/99865167.jpg and /dev/null differ diff --git a/pics/99877698.jpg b/pics/99877698.jpg deleted file mode 100644 index 5de1dee1..00000000 Binary files a/pics/99877698.jpg and /dev/null differ diff --git a/pics/99899504.jpg b/pics/99899504.jpg deleted file mode 100644 index 007970c9..00000000 Binary files a/pics/99899504.jpg and /dev/null differ diff --git a/pics/99902789.jpg b/pics/99902789.jpg deleted file mode 100644 index c2b9f785..00000000 Binary files a/pics/99902789.jpg and /dev/null differ diff --git a/pics/99916754.jpg b/pics/99916754.jpg deleted file mode 100644 index 261345c2..00000000 Binary files a/pics/99916754.jpg and /dev/null differ diff --git a/pics/99940363.jpg b/pics/99940363.jpg deleted file mode 100755 index 7c690fba..00000000 Binary files a/pics/99940363.jpg and /dev/null differ diff --git a/pics/99946920.jpg b/pics/99946920.jpg deleted file mode 100644 index f2661c86..00000000 Binary files a/pics/99946920.jpg and /dev/null differ diff --git a/pics/9995766.jpg b/pics/9995766.jpg deleted file mode 100644 index 4d8c64aa..00000000 Binary files a/pics/9995766.jpg and /dev/null differ diff --git a/pics/99995595.jpg b/pics/99995595.jpg deleted file mode 100644 index 5aaeeb9a..00000000 Binary files a/pics/99995595.jpg and /dev/null differ diff --git a/pics/9999961.jpg b/pics/9999961.jpg deleted file mode 100644 index bba37a74..00000000 Binary files a/pics/9999961.jpg and /dev/null differ diff --git a/pics/_readme.txt b/pics/_readme.txt new file mode 100644 index 00000000..b12d082e --- /dev/null +++ b/pics/_readme.txt @@ -0,0 +1,4 @@ +Pics will be download automagically! + +For HQ card pics check out the The Ultimate HQ Card Project by AntiMetaman. +http://bit.do/amcards \ No newline at end of file diff --git a/pics/field/100000080.jpg b/pics/field/100000080.jpg deleted file mode 100644 index f466f93a..00000000 Binary files a/pics/field/100000080.jpg and /dev/null differ diff --git a/pics/field/100000080.png b/pics/field/100000080.png deleted file mode 100644 index 520aa98e..00000000 Binary files a/pics/field/100000080.png and /dev/null differ diff --git a/pics/field/100000084.png b/pics/field/100000084.png deleted file mode 100644 index 6fe90305..00000000 Binary files a/pics/field/100000084.png and /dev/null differ diff --git a/pics/field/100000175.png b/pics/field/100000175.png deleted file mode 100644 index db8466b2..00000000 Binary files a/pics/field/100000175.png and /dev/null differ diff --git a/pics/field/100000186.jpg b/pics/field/100000186.jpg deleted file mode 100644 index 62f14ae6..00000000 Binary files a/pics/field/100000186.jpg and /dev/null differ diff --git a/pics/field/100000186.png b/pics/field/100000186.png deleted file mode 100644 index bfd054f4..00000000 Binary files a/pics/field/100000186.png and /dev/null differ diff --git a/pics/field/100000227.png b/pics/field/100000227.png deleted file mode 100644 index 43dc31bb..00000000 Binary files a/pics/field/100000227.png and /dev/null differ diff --git a/pics/field/100000248.png b/pics/field/100000248.png deleted file mode 100644 index 98857647..00000000 Binary files a/pics/field/100000248.png and /dev/null differ diff --git a/pics/field/100000280.png b/pics/field/100000280.png deleted file mode 100644 index 7dbb0022..00000000 Binary files a/pics/field/100000280.png and /dev/null differ diff --git a/pics/field/100000281.jpg b/pics/field/100000281.jpg deleted file mode 100644 index 2720948b..00000000 Binary files a/pics/field/100000281.jpg and /dev/null differ diff --git a/pics/field/100000281.png b/pics/field/100000281.png deleted file mode 100644 index b4210ab2..00000000 Binary files a/pics/field/100000281.png and /dev/null differ diff --git a/pics/field/100000282.png b/pics/field/100000282.png deleted file mode 100644 index c4a209f6..00000000 Binary files a/pics/field/100000282.png and /dev/null differ diff --git a/pics/field/100000330.png b/pics/field/100000330.png deleted file mode 100644 index 8d15b34f..00000000 Binary files a/pics/field/100000330.png and /dev/null differ diff --git a/pics/field/100000331.png b/pics/field/100000331.png deleted file mode 100644 index 29d60f7e..00000000 Binary files a/pics/field/100000331.png and /dev/null differ diff --git a/pics/field/100000332.png b/pics/field/100000332.png deleted file mode 100644 index 2d88fcc5..00000000 Binary files a/pics/field/100000332.png and /dev/null differ diff --git a/pics/field/100000333.png b/pics/field/100000333.png deleted file mode 100644 index 1d129cc2..00000000 Binary files a/pics/field/100000333.png and /dev/null differ diff --git a/pics/field/100000350.jpg b/pics/field/100000350.jpg deleted file mode 100644 index 69070054..00000000 Binary files a/pics/field/100000350.jpg and /dev/null differ diff --git a/pics/field/100000350.png b/pics/field/100000350.png deleted file mode 100644 index a8cdb2f2..00000000 Binary files a/pics/field/100000350.png and /dev/null differ diff --git a/pics/field/100000380.jpg b/pics/field/100000380.jpg deleted file mode 100644 index 917212c2..00000000 Binary files a/pics/field/100000380.jpg and /dev/null differ diff --git a/pics/field/100000380.png b/pics/field/100000380.png deleted file mode 100644 index 17bceddd..00000000 Binary files a/pics/field/100000380.png and /dev/null differ diff --git a/pics/field/100000381.jpg b/pics/field/100000381.jpg deleted file mode 100644 index 577c0059..00000000 Binary files a/pics/field/100000381.jpg and /dev/null differ diff --git a/pics/field/100000381.png b/pics/field/100000381.png deleted file mode 100644 index bd339e76..00000000 Binary files a/pics/field/100000381.png and /dev/null differ diff --git a/pics/field/100000382.jpg b/pics/field/100000382.jpg deleted file mode 100644 index f4760d06..00000000 Binary files a/pics/field/100000382.jpg and /dev/null differ diff --git a/pics/field/100000382.png b/pics/field/100000382.png deleted file mode 100644 index c4166616..00000000 Binary files a/pics/field/100000382.png and /dev/null differ diff --git a/pics/field/100000383.jpg b/pics/field/100000383.jpg deleted file mode 100644 index a95e55ee..00000000 Binary files a/pics/field/100000383.jpg and /dev/null differ diff --git a/pics/field/100000383.png b/pics/field/100000383.png deleted file mode 100644 index b14f7481..00000000 Binary files a/pics/field/100000383.png and /dev/null differ diff --git a/pics/field/100000384.jpg b/pics/field/100000384.jpg deleted file mode 100644 index a7fcb661..00000000 Binary files a/pics/field/100000384.jpg and /dev/null differ diff --git a/pics/field/100000384.png b/pics/field/100000384.png deleted file mode 100644 index 2e855fd2..00000000 Binary files a/pics/field/100000384.png and /dev/null differ diff --git a/pics/field/100000412.png b/pics/field/100000412.png deleted file mode 100644 index cb644a22..00000000 Binary files a/pics/field/100000412.png and /dev/null differ diff --git a/pics/field/100000590.png b/pics/field/100000590.png deleted file mode 100644 index 5fa96e42..00000000 Binary files a/pics/field/100000590.png and /dev/null differ diff --git a/pics/field/1003840.png b/pics/field/1003840.png deleted file mode 100644 index 54ecc021..00000000 Binary files a/pics/field/1003840.png and /dev/null differ diff --git a/pics/field/10080320.png b/pics/field/10080320.png deleted file mode 100644 index 2b5c9057..00000000 Binary files a/pics/field/10080320.png and /dev/null differ diff --git a/pics/field/10424147.png b/pics/field/10424147.png deleted file mode 100644 index f59e3c9b..00000000 Binary files a/pics/field/10424147.png and /dev/null differ diff --git a/pics/field/110000000.png b/pics/field/110000000.png deleted file mode 100644 index aa6931d2..00000000 Binary files a/pics/field/110000000.png and /dev/null differ diff --git a/pics/field/110000100.png b/pics/field/110000100.png deleted file mode 100644 index 406767b1..00000000 Binary files a/pics/field/110000100.png and /dev/null differ diff --git a/pics/field/110000101.png b/pics/field/110000101.png deleted file mode 100644 index 23a0250f..00000000 Binary files a/pics/field/110000101.png and /dev/null differ diff --git a/pics/field/111011002.png b/pics/field/111011002.png deleted file mode 100644 index 890566df..00000000 Binary files a/pics/field/111011002.png and /dev/null differ diff --git a/pics/field/11102908.png b/pics/field/11102908.png deleted file mode 100644 index 9c8f769b..00000000 Binary files a/pics/field/11102908.png and /dev/null differ diff --git a/pics/field/111215001.png b/pics/field/111215001.png deleted file mode 100644 index 42a3d11a..00000000 Binary files a/pics/field/111215001.png and /dev/null differ diff --git a/pics/field/1127737.png b/pics/field/1127737.png deleted file mode 100644 index 81a336a1..00000000 Binary files a/pics/field/1127737.png and /dev/null differ diff --git a/pics/field/12644061.png b/pics/field/12644061.png deleted file mode 100644 index 20934c22..00000000 Binary files a/pics/field/12644061.png and /dev/null differ diff --git a/pics/field/13700039.png b/pics/field/13700039.png deleted file mode 100644 index b6091b73..00000000 Binary files a/pics/field/13700039.png and /dev/null differ diff --git a/pics/field/13790532.png b/pics/field/13790532.png deleted file mode 100644 index 53ded158..00000000 Binary files a/pics/field/13790532.png and /dev/null differ diff --git a/pics/field/13790540.png b/pics/field/13790540.png deleted file mode 100644 index 1d1fc11e..00000000 Binary files a/pics/field/13790540.png and /dev/null differ diff --git a/pics/field/13790545.png b/pics/field/13790545.png deleted file mode 100644 index af1d6915..00000000 Binary files a/pics/field/13790545.png and /dev/null differ diff --git a/pics/field/14001430.PNG b/pics/field/14001430.PNG deleted file mode 100644 index aba4365d..00000000 Binary files a/pics/field/14001430.PNG and /dev/null differ diff --git a/pics/field/14289852.png b/pics/field/14289852.png deleted file mode 100644 index 2e1aff6c..00000000 Binary files a/pics/field/14289852.png and /dev/null differ diff --git a/pics/field/15854426.png b/pics/field/15854426.png deleted file mode 100644 index 6379a9e1..00000000 Binary files a/pics/field/15854426.png and /dev/null differ diff --git a/pics/field/17639150.png b/pics/field/17639150.png deleted file mode 100644 index 1f096124..00000000 Binary files a/pics/field/17639150.png and /dev/null differ diff --git a/pics/field/1801154.png b/pics/field/1801154.png deleted file mode 100644 index 0d84dbdc..00000000 Binary files a/pics/field/1801154.png and /dev/null differ diff --git a/pics/field/18114794.png b/pics/field/18114794.png deleted file mode 100644 index 71849a0d..00000000 Binary files a/pics/field/18114794.png and /dev/null differ diff --git a/pics/field/18161786.png b/pics/field/18161786.png deleted file mode 100644 index 808c2176..00000000 Binary files a/pics/field/18161786.png and /dev/null differ diff --git a/pics/field/19384334.png b/pics/field/19384334.png deleted file mode 100644 index 17600320..00000000 Binary files a/pics/field/19384334.png and /dev/null differ diff --git a/pics/field/19814508.png b/pics/field/19814508.png deleted file mode 100644 index 274f7aeb..00000000 Binary files a/pics/field/19814508.png and /dev/null differ diff --git a/pics/field/2084239.png b/pics/field/2084239.png deleted file mode 100644 index 8532bbc9..00000000 Binary files a/pics/field/2084239.png and /dev/null differ diff --git a/pics/field/22702055.png b/pics/field/22702055.png deleted file mode 100644 index eb4e8e4f..00000000 Binary files a/pics/field/22702055.png and /dev/null differ diff --git a/pics/field/22751868.png b/pics/field/22751868.png deleted file mode 100644 index 9bb9a386..00000000 Binary files a/pics/field/22751868.png and /dev/null differ diff --git a/pics/field/23424603.png b/pics/field/23424603.png deleted file mode 100644 index 435b9acf..00000000 Binary files a/pics/field/23424603.png and /dev/null differ diff --git a/pics/field/26493435.png b/pics/field/26493435.png deleted file mode 100644 index 1a747188..00000000 Binary files a/pics/field/26493435.png and /dev/null differ diff --git a/pics/field/269012.png b/pics/field/269012.png deleted file mode 100644 index 2c8a2d6a..00000000 Binary files a/pics/field/269012.png and /dev/null differ diff --git a/pics/field/26920296.jpg b/pics/field/26920296.jpg deleted file mode 100644 index 842cc26d..00000000 Binary files a/pics/field/26920296.jpg and /dev/null differ diff --git a/pics/field/27564031.png b/pics/field/27564031.png deleted file mode 100644 index 70c5320c..00000000 Binary files a/pics/field/27564031.png and /dev/null differ diff --git a/pics/field/28120197.png b/pics/field/28120197.png deleted file mode 100644 index 1ec4c2bf..00000000 Binary files a/pics/field/28120197.png and /dev/null differ diff --git a/pics/field/28388296.png b/pics/field/28388296.png deleted file mode 100644 index 0dd2b77d..00000000 Binary files a/pics/field/28388296.png and /dev/null differ diff --git a/pics/field/29400787.png b/pics/field/29400787.png deleted file mode 100644 index 5eaf85fe..00000000 Binary files a/pics/field/29400787.png and /dev/null differ diff --git a/pics/field/295517.png b/pics/field/295517.png deleted file mode 100644 index ce653527..00000000 Binary files a/pics/field/295517.png and /dev/null differ diff --git a/pics/field/32354768.png b/pics/field/32354768.png deleted file mode 100644 index 31ba105e..00000000 Binary files a/pics/field/32354768.png and /dev/null differ diff --git a/pics/field/32391631.png b/pics/field/32391631.png deleted file mode 100644 index 858bdc95..00000000 Binary files a/pics/field/32391631.png and /dev/null differ diff --git a/pics/field/32999573.png b/pics/field/32999573.png deleted file mode 100644 index 39934ee4..00000000 Binary files a/pics/field/32999573.png and /dev/null differ diff --git a/pics/field/33017655.png b/pics/field/33017655.png deleted file mode 100644 index 6762a979..00000000 Binary files a/pics/field/33017655.png and /dev/null differ diff --git a/pics/field/33550694.png b/pics/field/33550694.png deleted file mode 100644 index 714615af..00000000 Binary files a/pics/field/33550694.png and /dev/null differ diff --git a/pics/field/33900648.png b/pics/field/33900648.png deleted file mode 100644 index c686c0f3..00000000 Binary files a/pics/field/33900648.png and /dev/null differ diff --git a/pics/field/33981008.png b/pics/field/33981008.png deleted file mode 100644 index ca458dfa..00000000 Binary files a/pics/field/33981008.png and /dev/null differ diff --git a/pics/field/34103656.png b/pics/field/34103656.png deleted file mode 100644 index b64dc322..00000000 Binary files a/pics/field/34103656.png and /dev/null differ diff --git a/pics/field/34487429.png b/pics/field/34487429.png deleted file mode 100644 index 05c9518b..00000000 Binary files a/pics/field/34487429.png and /dev/null differ diff --git a/pics/field/34822850.png b/pics/field/34822850.png deleted file mode 100644 index a2b22edf..00000000 Binary files a/pics/field/34822850.png and /dev/null differ diff --git a/pics/field/35956022.png b/pics/field/35956022.png deleted file mode 100644 index 9a370b5f..00000000 Binary files a/pics/field/35956022.png and /dev/null differ diff --git a/pics/field/36099620.png b/pics/field/36099620.png deleted file mode 100644 index 18b0a71f..00000000 Binary files a/pics/field/36099620.png and /dev/null differ diff --git a/pics/field/37322745.png b/pics/field/37322745.png deleted file mode 100644 index bb2046c7..00000000 Binary files a/pics/field/37322745.png and /dev/null differ diff --git a/pics/field/37694547.png b/pics/field/37694547.png deleted file mode 100644 index 3aa4b693..00000000 Binary files a/pics/field/37694547.png and /dev/null differ diff --git a/pics/field/39910367.png b/pics/field/39910367.png deleted file mode 100644 index c857c351..00000000 Binary files a/pics/field/39910367.png and /dev/null differ diff --git a/pics/field/40005099.png b/pics/field/40005099.png deleted file mode 100755 index ba96f8ae..00000000 Binary files a/pics/field/40005099.png and /dev/null differ diff --git a/pics/field/40089744.jpg b/pics/field/40089744.jpg deleted file mode 100644 index ac60ec46..00000000 Binary files a/pics/field/40089744.jpg and /dev/null differ diff --git a/pics/field/4064256.png b/pics/field/4064256.png deleted file mode 100644 index a4fa9b0e..00000000 Binary files a/pics/field/4064256.png and /dev/null differ diff --git a/pics/field/41128647.png b/pics/field/41128647.png deleted file mode 100755 index 942a28a8..00000000 Binary files a/pics/field/41128647.png and /dev/null differ diff --git a/pics/field/42015635.png b/pics/field/42015635.png deleted file mode 100644 index 64fd1bf2..00000000 Binary files a/pics/field/42015635.png and /dev/null differ diff --git a/pics/field/4215636.png b/pics/field/4215636.png deleted file mode 100644 index 671b75a4..00000000 Binary files a/pics/field/4215636.png and /dev/null differ diff --git a/pics/field/43034264.png b/pics/field/43034264.png deleted file mode 100644 index 24538e52..00000000 Binary files a/pics/field/43034264.png and /dev/null differ diff --git a/pics/field/43175858.png b/pics/field/43175858.png deleted file mode 100644 index af1d6915..00000000 Binary files a/pics/field/43175858.png and /dev/null differ diff --git a/pics/field/4357063.png b/pics/field/4357063.png deleted file mode 100644 index c4a209f6..00000000 Binary files a/pics/field/4357063.png and /dev/null differ diff --git a/pics/field/43912676.png b/pics/field/43912676.png deleted file mode 100644 index 6a358c89..00000000 Binary files a/pics/field/43912676.png and /dev/null differ diff --git a/pics/field/450000110.png b/pics/field/450000110.png deleted file mode 100644 index 75f7a924..00000000 Binary files a/pics/field/450000110.png and /dev/null differ diff --git a/pics/field/4545854.png b/pics/field/4545854.png deleted file mode 100644 index 84cedbc0..00000000 Binary files a/pics/field/4545854.png and /dev/null differ diff --git a/pics/field/45778932.png b/pics/field/45778932.png deleted file mode 100644 index 1ed586ad..00000000 Binary files a/pics/field/45778932.png and /dev/null differ diff --git a/pics/field/47355498.png b/pics/field/47355498.png deleted file mode 100644 index d3453ab4..00000000 Binary files a/pics/field/47355498.png and /dev/null differ diff --git a/pics/field/47596607.png b/pics/field/47596607.png deleted file mode 100644 index 0585b83e..00000000 Binary files a/pics/field/47596607.png and /dev/null differ diff --git a/pics/field/48179391.png b/pics/field/48179391.png deleted file mode 100644 index 560740db..00000000 Binary files a/pics/field/48179391.png and /dev/null differ diff --git a/pics/field/500000147.jpg b/pics/field/500000147.jpg deleted file mode 100644 index 2a07a176..00000000 Binary files a/pics/field/500000147.jpg and /dev/null differ diff --git a/pics/field/500000147.png b/pics/field/500000147.png deleted file mode 100644 index 87b07ff5..00000000 Binary files a/pics/field/500000147.png and /dev/null differ diff --git a/pics/field/500000149.png b/pics/field/500000149.png deleted file mode 100644 index 5fdf7946..00000000 Binary files a/pics/field/500000149.png and /dev/null differ diff --git a/pics/field/50433147.png b/pics/field/50433147.png deleted file mode 100644 index 8f86e3e4..00000000 Binary files a/pics/field/50433147.png and /dev/null differ diff --git a/pics/field/5050644.png b/pics/field/5050644.png deleted file mode 100644 index 1d1fc11e..00000000 Binary files a/pics/field/5050644.png and /dev/null differ diff --git a/pics/field/50913601.png b/pics/field/50913601.png deleted file mode 100644 index dcf8682a..00000000 Binary files a/pics/field/50913601.png and /dev/null differ diff --git a/pics/field/511000017.jpg b/pics/field/511000017.jpg deleted file mode 100644 index e51b30ce..00000000 Binary files a/pics/field/511000017.jpg and /dev/null differ diff --git a/pics/field/511000039.jpg b/pics/field/511000039.jpg deleted file mode 100644 index 48c2472e..00000000 Binary files a/pics/field/511000039.jpg and /dev/null differ diff --git a/pics/field/511000103.jpg b/pics/field/511000103.jpg deleted file mode 100644 index d71f2551..00000000 Binary files a/pics/field/511000103.jpg and /dev/null differ diff --git a/pics/field/511000119.jpg b/pics/field/511000119.jpg deleted file mode 100644 index 678a5f40..00000000 Binary files a/pics/field/511000119.jpg and /dev/null differ diff --git a/pics/field/511000122.jpg b/pics/field/511000122.jpg deleted file mode 100644 index 94b4dacf..00000000 Binary files a/pics/field/511000122.jpg and /dev/null differ diff --git a/pics/field/511000129.jpg b/pics/field/511000129.jpg deleted file mode 100644 index d5356d77..00000000 Binary files a/pics/field/511000129.jpg and /dev/null differ diff --git a/pics/field/511000141.jpg b/pics/field/511000141.jpg deleted file mode 100644 index c3ff34b2..00000000 Binary files a/pics/field/511000141.jpg and /dev/null differ diff --git a/pics/field/511000256.jpg b/pics/field/511000256.jpg deleted file mode 100644 index 0cc806bd..00000000 Binary files a/pics/field/511000256.jpg and /dev/null differ diff --git a/pics/field/511000275.jpg b/pics/field/511000275.jpg deleted file mode 100644 index 7d1a31a5..00000000 Binary files a/pics/field/511000275.jpg and /dev/null differ diff --git a/pics/field/511000306.jpg b/pics/field/511000306.jpg deleted file mode 100644 index f29a0346..00000000 Binary files a/pics/field/511000306.jpg and /dev/null differ diff --git a/pics/field/511000396.jpg b/pics/field/511000396.jpg deleted file mode 100644 index 5f3285a9..00000000 Binary files a/pics/field/511000396.jpg and /dev/null differ diff --git a/pics/field/511000435.jpg b/pics/field/511000435.jpg deleted file mode 100644 index 9400975b..00000000 Binary files a/pics/field/511000435.jpg and /dev/null differ diff --git a/pics/field/511000479.jpg b/pics/field/511000479.jpg deleted file mode 100644 index 4f5711a7..00000000 Binary files a/pics/field/511000479.jpg and /dev/null differ diff --git a/pics/field/511000607.jpg b/pics/field/511000607.jpg deleted file mode 100644 index c95ae50c..00000000 Binary files a/pics/field/511000607.jpg and /dev/null differ diff --git a/pics/field/511000659.jpg b/pics/field/511000659.jpg deleted file mode 100644 index 62416f30..00000000 Binary files a/pics/field/511000659.jpg and /dev/null differ diff --git a/pics/field/511000706.jpg b/pics/field/511000706.jpg deleted file mode 100644 index 2d2e0ebe..00000000 Binary files a/pics/field/511000706.jpg and /dev/null differ diff --git a/pics/field/511000715.jpg b/pics/field/511000715.jpg deleted file mode 100644 index 2243d605..00000000 Binary files a/pics/field/511000715.jpg and /dev/null differ diff --git a/pics/field/511000716.jpg b/pics/field/511000716.jpg deleted file mode 100644 index 3eacda21..00000000 Binary files a/pics/field/511000716.jpg and /dev/null differ diff --git a/pics/field/511000718.jpg b/pics/field/511000718.jpg deleted file mode 100644 index ec23f05a..00000000 Binary files a/pics/field/511000718.jpg and /dev/null differ diff --git a/pics/field/511000726.jpg b/pics/field/511000726.jpg deleted file mode 100644 index 226f36d5..00000000 Binary files a/pics/field/511000726.jpg and /dev/null differ diff --git a/pics/field/511000840.jpg b/pics/field/511000840.jpg deleted file mode 100644 index 79b17083..00000000 Binary files a/pics/field/511000840.jpg and /dev/null differ diff --git a/pics/field/511000967.jpg b/pics/field/511000967.jpg deleted file mode 100644 index 260ec0cd..00000000 Binary files a/pics/field/511000967.jpg and /dev/null differ diff --git a/pics/field/511001152.jpg b/pics/field/511001152.jpg deleted file mode 100644 index 27f30156..00000000 Binary files a/pics/field/511001152.jpg and /dev/null differ diff --git a/pics/field/511001271.jpg b/pics/field/511001271.jpg deleted file mode 100644 index b57f4fc6..00000000 Binary files a/pics/field/511001271.jpg and /dev/null differ diff --git a/pics/field/511001352.jpg b/pics/field/511001352.jpg deleted file mode 100644 index fd065da8..00000000 Binary files a/pics/field/511001352.jpg and /dev/null differ diff --git a/pics/field/511001471.jpg b/pics/field/511001471.jpg deleted file mode 100644 index daadf461..00000000 Binary files a/pics/field/511001471.jpg and /dev/null differ diff --git a/pics/field/511001597.jpg b/pics/field/511001597.jpg deleted file mode 100644 index 8dccb37b..00000000 Binary files a/pics/field/511001597.jpg and /dev/null differ diff --git a/pics/field/511001727.jpg b/pics/field/511001727.jpg deleted file mode 100644 index beb04670..00000000 Binary files a/pics/field/511001727.jpg and /dev/null differ diff --git a/pics/field/511001731.png b/pics/field/511001731.png deleted file mode 100755 index ef1f49fe..00000000 Binary files a/pics/field/511001731.png and /dev/null differ diff --git a/pics/field/511001761.png b/pics/field/511001761.png deleted file mode 100755 index 45f0444b..00000000 Binary files a/pics/field/511001761.png and /dev/null differ diff --git a/pics/field/52518793.png b/pics/field/52518793.png deleted file mode 100644 index 92421031..00000000 Binary files a/pics/field/52518793.png and /dev/null differ diff --git a/pics/field/53039326.png b/pics/field/53039326.png deleted file mode 100644 index c411cf38..00000000 Binary files a/pics/field/53039326.png and /dev/null differ diff --git a/pics/field/53527835.png b/pics/field/53527835.png deleted file mode 100644 index 3e13a5b0..00000000 Binary files a/pics/field/53527835.png and /dev/null differ diff --git a/pics/field/53819808.png b/pics/field/53819808.png deleted file mode 100644 index bea28400..00000000 Binary files a/pics/field/53819808.png and /dev/null differ diff --git a/pics/field/54306223.png b/pics/field/54306223.png deleted file mode 100644 index 13d025f8..00000000 Binary files a/pics/field/54306223.png and /dev/null differ diff --git a/pics/field/55742055.png b/pics/field/55742055.png deleted file mode 100644 index 5e7133dc..00000000 Binary files a/pics/field/55742055.png and /dev/null differ diff --git a/pics/field/56074358.png b/pics/field/56074358.png deleted file mode 100644 index 7e8732cf..00000000 Binary files a/pics/field/56074358.png and /dev/null differ diff --git a/pics/field/56111151.png b/pics/field/56111151.png deleted file mode 100755 index 49bc430a..00000000 Binary files a/pics/field/56111151.png and /dev/null differ diff --git a/pics/field/56433456.png b/pics/field/56433456.png deleted file mode 100644 index e0e912a4..00000000 Binary files a/pics/field/56433456.png and /dev/null differ diff --git a/pics/field/56594520.png b/pics/field/56594520.png deleted file mode 100644 index 094bd53b..00000000 Binary files a/pics/field/56594520.png and /dev/null differ diff --git a/pics/field/575512.png b/pics/field/575512.png deleted file mode 100755 index 4aa4cae3..00000000 Binary files a/pics/field/575512.png and /dev/null differ diff --git a/pics/field/57554544.png b/pics/field/57554544.png deleted file mode 100644 index c11261dd..00000000 Binary files a/pics/field/57554544.png and /dev/null differ diff --git a/pics/field/58924378.png b/pics/field/58924378.png deleted file mode 100644 index 0dd32818..00000000 Binary files a/pics/field/58924378.png and /dev/null differ diff --git a/pics/field/59048135.png b/pics/field/59048135.png deleted file mode 100644 index 87de236f..00000000 Binary files a/pics/field/59048135.png and /dev/null differ diff --git a/pics/field/59197169.png b/pics/field/59197169.png deleted file mode 100644 index 8c22f988..00000000 Binary files a/pics/field/59197169.png and /dev/null differ diff --git a/pics/field/60946968.png b/pics/field/60946968.png deleted file mode 100644 index 20896094..00000000 Binary files a/pics/field/60946968.png and /dev/null differ diff --git a/pics/field/62188962.png b/pics/field/62188962.png deleted file mode 100644 index 56eb8205..00000000 Binary files a/pics/field/62188962.png and /dev/null differ diff --git a/pics/field/62265044.png b/pics/field/62265044.png deleted file mode 100644 index 7c810522..00000000 Binary files a/pics/field/62265044.png and /dev/null differ diff --git a/pics/field/63035430.png b/pics/field/63035430.png deleted file mode 100644 index e22e96c4..00000000 Binary files a/pics/field/63035430.png and /dev/null differ diff --git a/pics/field/63883999.png b/pics/field/63883999.png deleted file mode 100644 index 98ec79ba..00000000 Binary files a/pics/field/63883999.png and /dev/null differ diff --git a/pics/field/67237709.png b/pics/field/67237709.png deleted file mode 100755 index b1e106ed..00000000 Binary files a/pics/field/67237709.png and /dev/null differ diff --git a/pics/field/67328336.png b/pics/field/67328336.png deleted file mode 100644 index 12bdd2d3..00000000 Binary files a/pics/field/67328336.png and /dev/null differ diff --git a/pics/field/67616300.png b/pics/field/67616300.png deleted file mode 100644 index 2d6399ec..00000000 Binary files a/pics/field/67616300.png and /dev/null differ diff --git a/pics/field/68462976.png b/pics/field/68462976.png deleted file mode 100644 index cf78043f..00000000 Binary files a/pics/field/68462976.png and /dev/null differ diff --git a/pics/field/69296555.png b/pics/field/69296555.png deleted file mode 100644 index d15ec0cb..00000000 Binary files a/pics/field/69296555.png and /dev/null differ diff --git a/pics/field/69408987.png b/pics/field/69408987.png deleted file mode 100644 index a49d5b80..00000000 Binary files a/pics/field/69408987.png and /dev/null differ diff --git a/pics/field/6959.png b/pics/field/6959.png deleted file mode 100644 index 12291393..00000000 Binary files a/pics/field/6959.png and /dev/null differ diff --git a/pics/field/70222318.png b/pics/field/70222318.png deleted file mode 100644 index ee3609a5..00000000 Binary files a/pics/field/70222318.png and /dev/null differ diff --git a/pics/field/70422863.png b/pics/field/70422863.png deleted file mode 100644 index 31e78875..00000000 Binary files a/pics/field/70422863.png and /dev/null differ diff --git a/pics/field/712559.png b/pics/field/712559.png deleted file mode 100644 index ce245676..00000000 Binary files a/pics/field/712559.png and /dev/null differ diff --git a/pics/field/71645242.png b/pics/field/71645242.png deleted file mode 100644 index b1fddaac..00000000 Binary files a/pics/field/71645242.png and /dev/null differ diff --git a/pics/field/73206827.png b/pics/field/73206827.png deleted file mode 100644 index 08e6902d..00000000 Binary files a/pics/field/73206827.png and /dev/null differ diff --git a/pics/field/73787254.png b/pics/field/73787254.png deleted file mode 100644 index 73e8a922..00000000 Binary files a/pics/field/73787254.png and /dev/null differ diff --git a/pics/field/75041269.png b/pics/field/75041269.png deleted file mode 100644 index d05b5277..00000000 Binary files a/pics/field/75041269.png and /dev/null differ diff --git a/pics/field/75304793.png b/pics/field/75304793.png deleted file mode 100644 index 9f072ec4..00000000 Binary files a/pics/field/75304793.png and /dev/null differ diff --git a/pics/field/75782277.png b/pics/field/75782277.png deleted file mode 100644 index 31f306b3..00000000 Binary files a/pics/field/75782277.png and /dev/null differ diff --git a/pics/field/76136345.png b/pics/field/76136345.png deleted file mode 100644 index 86b5f26d..00000000 Binary files a/pics/field/76136345.png and /dev/null differ diff --git a/pics/field/7616300.png b/pics/field/7616300.png deleted file mode 100644 index 2d6399ec..00000000 Binary files a/pics/field/7616300.png and /dev/null differ diff --git a/pics/field/7617062.png b/pics/field/7617062.png deleted file mode 100644 index c93e41ae..00000000 Binary files a/pics/field/7617062.png and /dev/null differ diff --git a/pics/field/76473843.jpg b/pics/field/76473843.jpg deleted file mode 100644 index 6631196e..00000000 Binary files a/pics/field/76473843.jpg and /dev/null differ diff --git a/pics/field/77584012.png b/pics/field/77584012.png deleted file mode 100644 index d19a573f..00000000 Binary files a/pics/field/77584012.png and /dev/null differ diff --git a/pics/field/78082039.png b/pics/field/78082039.png deleted file mode 100644 index 28eed687..00000000 Binary files a/pics/field/78082039.png and /dev/null differ diff --git a/pics/field/79555535.png b/pics/field/79555535.png deleted file mode 100644 index 53ded158..00000000 Binary files a/pics/field/79555535.png and /dev/null differ diff --git a/pics/field/800000001.jpg b/pics/field/800000001.jpg deleted file mode 100644 index a23ac91a..00000000 Binary files a/pics/field/800000001.jpg and /dev/null differ diff --git a/pics/field/800000012.jpg b/pics/field/800000012.jpg deleted file mode 100644 index 4d6894e1..00000000 Binary files a/pics/field/800000012.jpg and /dev/null differ diff --git a/pics/field/805000061.png b/pics/field/805000061.png deleted file mode 100644 index 81a336a1..00000000 Binary files a/pics/field/805000061.png and /dev/null differ diff --git a/pics/field/80921533.png b/pics/field/80921533.png deleted file mode 100644 index 3d726ee6..00000000 Binary files a/pics/field/80921533.png and /dev/null differ diff --git a/pics/field/81231742.png b/pics/field/81231742.png deleted file mode 100644 index 39d47814..00000000 Binary files a/pics/field/81231742.png and /dev/null differ diff --git a/pics/field/81380218.png b/pics/field/81380218.png deleted file mode 100644 index 88900230..00000000 Binary files a/pics/field/81380218.png and /dev/null differ diff --git a/pics/field/81777047.png b/pics/field/81777047.png deleted file mode 100644 index 5ee2b799..00000000 Binary files a/pics/field/81777047.png and /dev/null differ diff --git a/pics/field/81788994.png b/pics/field/81788994.png deleted file mode 100644 index 18eabf62..00000000 Binary files a/pics/field/81788994.png and /dev/null differ diff --git a/pics/field/82999629.png b/pics/field/82999629.png deleted file mode 100644 index 11efdba2..00000000 Binary files a/pics/field/82999629.png and /dev/null differ diff --git a/pics/field/84171830.png b/pics/field/84171830.png deleted file mode 100644 index a453bf32..00000000 Binary files a/pics/field/84171830.png and /dev/null differ diff --git a/pics/field/85668449.png b/pics/field/85668449.png deleted file mode 100644 index 4938746c..00000000 Binary files a/pics/field/85668449.png and /dev/null differ diff --git a/pics/field/86318356.png b/pics/field/86318356.png deleted file mode 100644 index d36a20db..00000000 Binary files a/pics/field/86318356.png and /dev/null differ diff --git a/pics/field/86997073.png b/pics/field/86997073.png deleted file mode 100644 index ddff0bd9..00000000 Binary files a/pics/field/86997073.png and /dev/null differ diff --git a/pics/field/87430998.png b/pics/field/87430998.png deleted file mode 100644 index f23354d2..00000000 Binary files a/pics/field/87430998.png and /dev/null differ diff --git a/pics/field/87624166.png b/pics/field/87624166.png deleted file mode 100644 index 841414a9..00000000 Binary files a/pics/field/87624166.png and /dev/null differ diff --git a/pics/field/87902575.png b/pics/field/87902575.png deleted file mode 100644 index da05f187..00000000 Binary files a/pics/field/87902575.png and /dev/null differ diff --git a/pics/field/90011152.png b/pics/field/90011152.png deleted file mode 100644 index 2b83c743..00000000 Binary files a/pics/field/90011152.png and /dev/null differ diff --git a/pics/field/94243005.png b/pics/field/94243005.png deleted file mode 100644 index cf86de43..00000000 Binary files a/pics/field/94243005.png and /dev/null differ diff --git a/pics/field/94585852.png b/pics/field/94585852.png deleted file mode 100644 index 6fe2c3a9..00000000 Binary files a/pics/field/94585852.png and /dev/null differ diff --git a/pics/field/95000003.png b/pics/field/95000003.png deleted file mode 100755 index f3ca43a0..00000000 Binary files a/pics/field/95000003.png and /dev/null differ diff --git a/pics/field/95000012.png b/pics/field/95000012.png deleted file mode 100755 index 2ec1fc72..00000000 Binary files a/pics/field/95000012.png and /dev/null differ diff --git a/pics/field/95000023.png b/pics/field/95000023.png deleted file mode 100755 index 2e451f4a..00000000 Binary files a/pics/field/95000023.png and /dev/null differ diff --git a/pics/field/95376428.png b/pics/field/95376428.png deleted file mode 100644 index 32cb3c38..00000000 Binary files a/pics/field/95376428.png and /dev/null differ diff --git a/pics/field/99795159.png b/pics/field/99795159.png deleted file mode 100644 index dfba9d5a..00000000 Binary files a/pics/field/99795159.png and /dev/null differ diff --git a/pics/field/_readme.txt b/pics/field/_readme.txt new file mode 100644 index 00000000..b12d082e --- /dev/null +++ b/pics/field/_readme.txt @@ -0,0 +1,4 @@ +Pics will be download automagically! + +For HQ card pics check out the The Ultimate HQ Card Project by AntiMetaman. +http://bit.do/amcards \ No newline at end of file diff --git a/readme.txt b/readme.txt index c42dcbca..2292e811 100644 --- a/readme.txt +++ b/readme.txt @@ -1,51 +1,39 @@ -YGOPRO 1.033.7 V2 Structure Deck: Pendulum Domination +YGOPRO 1.033.A ============================================================ Changelog ============================================================ -New Yugioh cards - Structure Deck: Pendulum Domination OCG - Booster SP: Wing Raiders OCG - Dimension of Chaos TCG - V Jump December 2015 promotional card - V Jump January 2016 promotional card - Yu-Gi-Oh! The Dark Side of Dimensions Advance Ticket promotional card - Anime cards updated - (Beta) - Shining Victories - Premium Pack 18 - +New cards + Check the list below + Changes to Ygopro - Added a notification if a new (small) update has been downloaded. Look for the yellow exclamation mark at the top right of the screen. - View the update log via the menu bar Main -> Update log - Deck edit Sort button added. Sorts by level, beta, alphabetic - Downloads field images if missing - strings.conf updated - Lots of bug fixes and adjustments - Fixed banlist menu selection glitch - Fixed Direct3D fullscreen crash - Fixed crash with (long) chain sequences - Fixed monster negation glitch - Beta cards texts will no longer override non-english texts + New online room browser (work in progress) + A lot of bug fixes + Banlists updated + Duel screen chain buttons. Can be turned off in the system.conf file 'hide_chain_button' setting + You can now use png files for card images + Added pendulum scale filter in deck edit + Added "New cards log" in the top menu bar + Custom modifications by edo9300 Platform specific notes - Windows - Windows XP is no longer supported - Image download workaround for older Windows versions - OS X - Minimum required version is now 10.8 - Fixed Xyz materials drawn on top of Xyz monster - Fixed monster atk/def stats not being shown - Added workaround for crashes related to card images - Linux - Uses OpenSSL 1.0.0. If you have trouble starting the game try this workaround by khelek: http://www.ygopro.co/Forum/tabid/95/g/posts/t/25291/Work-around-for-Linux-using-Duelists#post127173 - Chrome - Fixed corrupted duelist names in replay mode - + -Windows- + Added support for animated backgrounds. To use it, add a bg.ogv to the textures folder. Default background is made by www.dreamscene.org + Fixed some issues with random music + WARNING: Windows XP is not supported + -Linux- + Built on Fedora 24 64bit + Dropped support for 32bit + -Mac OS X- + Version 10.8 or higher required + Added "Update log" and "New cards log" in the top menu bar + WARNING: This version will probably not work on macOS Sierra. Upgrade at your own risk + Changes to AI - AI script updated to version 0.33 by Snarky - New decks Kozmo and Masked HERO - Updates for most decks to match the banlist (except Shaddoll and Nekroz) - Added some error checks in OnSelectInitCommand + Updated AI engine, stability updates + Changed name to [AI]Justice + AI script updated to version 0.34 by Snarky + Fixed ai deckout bug + New decks ============================================================ Known issues @@ -59,7 +47,7 @@ AI mode does not produce replays Donate ============================================================ By donating you help support the development of Ygopro Percy and maintaining the servers. -http://www.ygopro.co/Community/Donate.aspx +https://www.ygopro.co/Community/Donate.aspx ============================================================ Credits @@ -90,61 +78,506 @@ ShirayukiCleber ============================================================ New Yugioh cards ============================================================ -Blue-Eyes Alternative White Dragon -Booby Trap E -Burgesstoma Dinomischus -Burgesstoma Eldonia -Burgesstoma Leanchoilia -Burgesstoma Marrella -Burgesstoma Opabinia -D/D Lamia -D/D Orthros -D/D Rebuild -D/D Savant Copernicus -D/D Savant Newton -D/D/D Cruel Dragon King Beowulf -D/D/D Cursed King Siegfried -D/D/D Wisdom King Chaos Apocalypse -DOG Fighter Token -Dark Contract with the Yamimakai -Exod Flame -Exodia the Summoned One -Gameciel, the Sea Turtle Kaiju -Kaiju Capture Mission -Kozmo DOG Fighter -Kozmo Dark Destroyer -Kozmo Lightsword -Kozmo Strawman -Kozmoll Wickedwitch -Painful Escape -Priestess with Eyes of Blue -Rank-Up-Magic Doom Double Force -Rank-Up-Magic Soul Shave Force -Radian Token -Radian, the Multidimensional Kaiju -Raidraptor - Call -Raidraptor - Last Strix -Raidraptor - Necro Vulture -Raidraptor - Satellite Cannon Falcon -Samurai Cavalry of Reptier -Super Quantum Fairy Alphan -Super Quantum Mecha Beast Aeroboros -Super Quantum Mecha Beast Granpulse -Super Quantum Mecha Beast Magnaliger -Super Quantum Mecha Lord Great Magnas -Super Quantum Mecha Pilot Blue Layer -Super Quantum Mecha Pilot Green Layer -Super Quantum Mecha Pilot Red Layer -Super Quantum Mecha Ship Magnacarrier -Super Quantum Megasword - Magnaslayer -The Phantom Fog Blade -The Phantom Knights of Break Sword -The Phantom Knights of Cracked Helm -The Phantom Knights of Dusty Robe -The Phantom Knights of Fragile Armor -The Phantom Knights of Rugged Glove -The Phantom Knights of Silent Boots -The Phantom Spear -The Phantom Sword -The Phantom Wing -Ties of the Brethren \ No newline at end of file +"A" Cell Recomposition Device +A-Assault Core +ABC-Dragon Buster +Abyss Actor - Dandy Supporting Actor +Abyss Actor - Evil Heel +Abyss Actor - Extra +Abyss Actor - Funky Comedian +Abyss Actor - Pretty Heroine +Abyss Actor - Sassy Rookie +Abyss Actor - Superstar +Abyss Actor - Wild Hope +Abyss Script - Abode of the Fire Dragon +Abyss Script - Fantasy Magic +Abyss Script - Opening Ceremony +Abyss Script - Rise of the Dark Ruler +Abyss Stage Prop - Escape Stage Coach +Acrobatic Magician +Advanced Chemical Beast Dyoxen +Advanced Chemical Beast Hy Dragon +Alpha the Electromagnet Warrior +Altar of the Darklords +Amaterasu +Amazing Pendulum +Amorphactor Pain, the Imagination Dracoverlord +Amorphage Envy +Amorphage Gluttony +Amorphage Goliath +Amorphage Greed +Amorphage Infection +Amorphage Lechery +Amorphage Lysis +Amorphage Pride +Amorphage Sloth +Amorphage Wrath +Amorphous Persona +Angel Trumpeter +Angmarl the Fiendish Monarch +Apple Magician Girl +Arcana Knight Joker +Arkbrave Dragon +Aromaseraphy Angelica +Aromaseraphy Rosemary +Assault Blackwing - Chidori the Rain Sprinkling +Assault Blackwing - Onimaru the Divine Thunder +Assault Blackwing - Sayo the Rain Hider +Assault Blackwing - Sohaya the Rain Storm +Assault Wyvern +AtoZ-Dragon Buster Cannon +B-Buster Drake +Bad Aim +Beacon of White +Berry Magician Girl +Berserion the Electromagna Warrior +Beta the Electromagnet Warrior +Black Dragon Ninja +Black Sheep Token +Blackwing - Decay the Ill Wind +Blackwing - Gofu the Vague Shadow +Blackwing - Tornado the Reverse Wind +Blade Garoodia the Cubic Beast +Block Dragon +Bloom Prima the Melodious Choir +Blue-Eyes Chaos MAX Dragon +Blue-Eyes Spirit Dragon +Blue-Eyes Twin Burst Dragon +Blue-Eyes White Dragon +Blue-Eyes White Dragon +Bug Emergency +Bug Matrix +Burn Out +Buster Gundil the Cubic Behemoth +C-Crush Wyvern +Card of Demise +Card of the Soul +Cardian - Ameshikou +Cardian - Botan ni Cho +Cardian - Hagi ni Inoshishi +Cardian - Inoshikacho +Cardian - Kiri +Cardian - Kiri ni Houou +Cardian - Matsu +Cardian - Matsu ni Tsuru +Cardian - Momiji ni Shika +Cardian - Susuki +Cardian - Susuki ni Tsuki +Cardian - Yanagi +Cardian - Yanagi ni Ono no Michikaze +Casting out the Darklords +Cattle Call +Celtic Guard of Noble Arms +Chaos Form +Chemical Beast Carbon Crab +Chemical Beast Hydron Hawk +Chemical Beast Oxine Ox +Chocolate Magician Girl +Chokoikoi +Cipher Bit +Cipher Mirror Knight +Cipher Twin Raptor +Cipher Wing +Clear Kuriboh +Coral Dragon +Cosmic Cyclone +Counter Gate +Crimson Nova Trinity the Dark Cubic Lord +Crimson Nova the Dark Cubic Lord +Crystal Wing Synchro Dragon +Crystron Ametrix +Crystron Citri +Crystron Entry +Crystron Impact +Crystron Phoenixion +Crystron Prasirator +Crystron Quon +Crystron Quondam +Crystron Rosenix +Crystron Smoger +Crystron Token +Crystron Trystvern +Cubic Karma +Cubic Mandala +Cubic Rebirth +Cubic Wave +Curse of Dragonfire +Cyber Angel - Benten +Cyber Angel - Dakini +Cyber Angel - Idaten +Cyber Angel - Vishnu +Cyber Petit Angel +D - Fusion +D/D Savant Nikola +D/D Savant Thomas +D3 +Dark Advance +Dark Garnex the Cubic Beast +Dark Horizon +Dark Magic Expanded +Dark Magic Succession +Dark Magic Veil +Dark Magical Circle +Dark Magician +Dark Magician +Dark Magician Girl +Dark Requiem Xyz Dragon +Dark Sanctuary +Darklord Amdusias +Darklord Ixtab +Darklord Lucifer +Darklord Mastema +Darklord Tezcatlipoca +Darklords Falling from Grace +Darklords' Temptation +Deep-Eyes White Dragon +Denglong, Origin of the Yang Zing +Deskbot 009 +Deskbot Base +Destiny HERO - Celestial +Destiny HERO - Dark Angel +Destiny HERO - Deadlyguy +Destiny HERO - Decisionguy +Destiny HERO - Drillguy +Destiny HERO - Dynamiteguy +Destiny HERO - Dystopiaguy +Destruction Sword Memories +Dicelops +Dig of Destiny +Digital Bug Centibit +Digital Bug Cocoondenser +Digital Bug Corebage +Digital Bug Rhinosebus +Digital Bug Scaradiator +Digital Bug Websolder +Dimension Barrier +Dimension Guardian +Dimension Mirage +Dimension Reflector +Dimension Sphinx +Dinomist Ankylos +Dinomist Eruption +Dinomist Spinos +Divine Dragon Lord Felgrand +Divine Serpent Geh +Dokidoki +Double Cipher +Dragon Core Accursed +Dragon Knight of Creation +Dragon Lord Token +Dragon Spirit of White +Dragon's Fighting Spirit +Drowning Mirror Force +Duja, the Meteoricubic Vessel +Ebon High Magician +Entering the Abyss Actor Dressing Room +Examination +Fairy Tail - Snow +Fairy Tail - Talia +Fairy's Blessing +Falling Meteor Black Dragon +Fiendish Fortune +Final Geas +Finite Cards +Flame Swordsman +Floodgate Trap Hole +Forbidden Dark Contract with the Swamp King +Forge of the True Dracos +Fortissimo +Frightfur Sanctuary +Frost Blast of the Monarchs +Fullmetalfoes Alkahest +Fullmetalfoes Fusion +Fusion Fright Waltz +Fusion Tag +Gadarla, the Mystery Dust Kaiju +Galaxy Stealth Dragon +Galaxy Worm +Galaxy-Eyes Cipher Blade Dragon +Galaxy-Eyes Cipher Dragon +Gamma the Electromagnet Warrior +Gandora-X the Dragon of Demolition +Geira Guile the Cubic King +Gendo the Ascetic Monk +Genesis Tellarknight +Ghost Beef +Ghost Reaper & Winter Cherries +Gold Gadget +Graceful Tear +Graydle Combat +Graydle Slime Jr. +Guardian of Felgrand +Hana Awase +Hanazumi +Hand-Holding Genie +Heavy Mech Support Armor +Hi-Speedroid Puzzle +Holding Arms +Holding Legs +Honor of the Eyes of Blue +Igknight Unite +Illusion Magic +Indiora Doom Volt the Cubic Emperor +Induced Explosion +Interrupted Kaiju Slumber +Jizukiru, the Star Destroying Kaiju +Junk Changer +Junkuriboh +Kaiser Vorse Raider +King Scarlet +King's Consonance +King's Synchro +Kiwi Magician Girl +Kozmo Dark Eclipser +Kozmo Dark Planet +Kozmo Delta Shuttle +Kozmo Landwalker +Kozmo Scaredy Lion +Kozmo Soartroopers +Kozmo Tincan +Kozmojo +Kozmoll Dark Lady +Kozmourning +Krystal Avatar +Krystal Dragon +Krystal Potential +Kuribohrn +Lector Pendulum, the Dracoverlord +Left Arm Offering +Lemon Magician Girl +Lord Gaia the Fierce Knight +Lullaby of Obedience +Luna Light Perfume +Lunalight Black Sheep +Lunalight Blue Cat +Lunalight Cat Dancer +Lunalight Crimson Fox +Lunalight Leo Dancer +Lunalight Panther Dancer +Lunalight Purple Butterfly +Lunalight Reincarnation Dance +Lunalight Tiger +Lunalight White Rabbit +Lunalight Wolf +Machine Angel Ritual +Magical Cavalry of Cxulub +Magical Contract Door +Magical King Moonstar +Magical Mid-Breaker Field +Magical Something +Magician Navigation +Magician of Dark Illusion +Magician's Robe +Magician's Rod +Magicians' Defense +Magnet Conversion +Magnet Field +Magnet Force +Magnet Reverse +Marshmacaron +Master Peace, the True Dracoslayer +Master with Eyes of Blue +Mausoleum of White +Metalfoes Adamante +Metalfoes Combination +Metalfoes Counter +Metalfoes Crimsonite +Metalfoes Fusion +Metalfoes Goldriver +Metalfoes Mythriel +Metalfoes Orichalc +Metalfoes Silverd +Metalfoes Steelen +Metalfoes Volflame +Metalhold the Moving Blockade +Metamorformation +Metamorphortress +Mild Turkey +Neo Blue-Eyes Ultimate Dragon +Neutron Blast +Nine Branches of the Yang Zing +Ninjitsu Art Notebook +Nirvana High Paladin +No Cheaters Allowed +Number 100: Numeron Dragon +Number 24: Dragon Nosferatu Dragulas +Number 35: Ravenous Tarantula +Number 37: Hope Woven Dragon Spider Shark +Number 38: Hope Harbinger Dragon Titanic Galaxy +Number 45: Crumble Logos +Number 51: Finish Hold the Amazing +Number 59: Back the Cook +Number 77: The Seven Sins +Number 78: Number Archive +Number 84: Pain Gainer +Number 98: Dystopia +Obelisk the Tormentor +Odd-Eyes Mirage Dragon +Odd-Eyes Persona Dragon +Odd-Eyes Phantom Dragon +PSY-Frame Accelerator +PSY-Frame Multi-Threader +Paladin of Felgrand +Palladium Oracle Mahad +Pandemic Dragon +Pandora's Treasure Box +Pendulum Hole +Performapal Allcover Hippo +Performapal Bot-Eyes Lizard +Performapal Bubblebowwow +Performapal Chain Giraffe +Performapal Corn +Performapal Dramatic Theater +Performapal Extra Slinger +Performapal Fireflux +Performapal Gold Fang +Performapal Gongato +Performapal Gumgumouton +Performapal Inflater Tapir +Performapal King Bear +Performapal Le-Bellman +Performapal Life Swordsman +Performapal Longphone Bull +Performapal Momoncarpet +Performapal Odd-Eyes Light Phoenix +Performapal Odd-Eyes Metal Claw +Performapal Odd-Eyes Unicorn +Performapal Parrotrio +Performapal Radish Horse +Performapal Seal Eel +Performapal Sellshell Crab +Performapal Show Down +Performapal Sleight Hand Magician +Performapal Swincobra +Performapal Teeter Totter Hopper +Performapal Uni +Performapal Whim Witch +Phantasmal Lord Ultimitl Bishbaalkin +Polymerization +Pot of Avidity +Pot of Desires +Pre-Preparation of Rites +Predator Plant Fly Hell +Predator Plant Moray Nepenthes +Predator Plant Squid Drosera +Premature Return +Present Card +Primal Cry +Protector with Eyes of Blue +Qliphort Down +Quarantine +Radiant Divine Bird Vene +Raidraptor - Avenge Vulture +Raidraptor - Blade Burner Falcon +Raidraptor - Booster Strix +Raidraptor - Napalm Dragonius +Raidraptor - Pain Lanius +Raidraptor - Ultimate Falcon +Rank-Up-Magic Skip Force +Rank-Up-Magic The Phantom Knights of Launch +Raremetalfoes Bismagia +Re-dyce-cle +Rebellion +Red Gardna +Red Mirror +Red Nova +Red Rising Dragon +Red Supremacy +Red Warg +Red-Eyes Insight +Red-Eyes Meteor Dragon +Red-Eyes Toon Dragon +Return of the Dragon Lords +Rise to Full Height +Ritual Sanctuary +Ruins of the Divine Dragon Lords +Ryu Ookami +SPYRAL GEAR - Big Red +SPYRAL GEAR - Drone +SPYRAL Quik-Fix +SPYRAL Super Agent +Sage with Eyes of Blue +Sauravis, the Crowned Ancient Sage +Scapeghost +Scramble Union +Scrum Force +Sentry Soldier of Stone +Shining Hope Road +Shiranui Solitaire +Silent Burning +Silent Magician +Silent Paladin +Silent Sword +Silent Swordsman +Silver Gadget +Sky Galloping Gaia the Dragon Champion +Slifer the Sky Dragon +Spark Field +Speedroid Den-Den Daiko Duke +Speedroid Pachingo-Kart +Spell Strider +Spirit of the Fall Wind +Spiritual Swords of Revealing Light +Stardust Charge Warrior +Starve Venom Fusion Dragon +Steel Cavalry of Dinon +Subterror Behemoth Stalagmo +Subterror Behemoth Umastryx +Subterror Nemesis Warrior +Summon Gate +Super Anti-Kaiju War Machine Mecha-Dogoran +Super Chemical Beast Methane Hyd +Super Conduction Machine Imperion Magnum +Super Hippo Carnival +Superheavy Samurai Ninja Sarutobi +Superheavy Samurai Soularbitrator +Tellarknight Vatlamyus +Tenmataitei +The Blazing Mars +The Despair Uranus +The Grand Jupiter +The Hidden City +The Kaiju Files +The Phantom Knights of Dark Gauntlets +The Phantom Knights of Shade Brigandine +The Phantom Knights of Tomb Shield +The Suppression Pluto +The Tripper Mercury +The True Name +The White Stone of Ancients +The Winged Dragon of Ra - Immortal Phoenix +Thunder King, the Lightningstrike Kaiju +Toon Dark Magician +Torque Tune Gear +Totem Five +Trap Hole of Spikes +Treatoad +Triamid Cruiser +Triamid Dancer +Triamid Fortress +Triamid Hunter +Triamid Kingolem +Triamid Master +Triamid Pulse +Triamid Sphinx +Tribute Burial +True King Agnimazud, the Vanisher +True King Bahrstos, the Fuhrer +Tsukumo Slash +Tuner's High +Tuning Gum +Tyrant Red Dragon Archfiend +Ultimate Providence +Unification of the Cubic Lords +Unified Front +Union Hangar +Unwavering Bond +Utchatzimime Token +Vague Shadow Token +Vijam the Cubic Seed +Vulcan Dragni the Cubic King +Wicked Acolyte Chilam Sabak +Wonder Xyz +Wrecker Panda +Zap Mustang +Zushin the Sleeping Giant diff --git a/script/c10000000.lua b/script/c10000000.lua old mode 100755 new mode 100644 index 032119fa..4fd8d19a --- a/script/c10000000.lua +++ b/script/c10000000.lua @@ -1,108 +1,108 @@ ---オベリスクの巨神兵 -function c10000000.initial_effect(c) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c10000000.ttcon) - e1:SetOperation(c10000000.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c10000000.setcon) - c:RegisterEffect(e2) - --summon - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_DISABLE_SUMMON) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - c:RegisterEffect(e3) - --summon success - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_SUMMON_SUCCESS) - e4:SetOperation(c10000000.sumsuc) - c:RegisterEffect(e4) - --cannot be target - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetRange(LOCATION_MZONE) - e5:SetValue(aux.tgval) - c:RegisterEffect(e5) - --to grave - local e6=Effect.CreateEffect(c) - e6:SetDescription(aux.Stringid(10000000,0)) - e6:SetCategory(CATEGORY_TOGRAVE) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetRange(LOCATION_MZONE) - e6:SetCountLimit(1) - e6:SetCode(EVENT_PHASE+PHASE_END) - e6:SetCondition(c10000000.tgcon) - e6:SetTarget(c10000000.tgtg) - e6:SetOperation(c10000000.tgop) - c:RegisterEffect(e6) - --destroy - local e7=Effect.CreateEffect(c) - e7:SetDescription(aux.Stringid(10000000,1)) - e7:SetCategory(CATEGORY_DESTROY) - e7:SetType(EFFECT_TYPE_IGNITION) - e7:SetRange(LOCATION_MZONE) - e7:SetCost(c10000000.descost) - e7:SetTarget(c10000000.destg) - e7:SetOperation(c10000000.desop) - c:RegisterEffect(e7) -end -function c10000000.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c10000000.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c10000000.setcon(e,c) - if not c then return true end - return false -end -function c10000000.sumsuc(e,tp,eg,ep,ev,re,r,rp) - Duel.SetChainLimitTillChainEnd(aux.FALSE) -end -function c10000000.tgcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c10000000.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) -end -function c10000000.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoGrave(c,REASON_EFFECT) - end -end -function c10000000.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 and Duel.CheckReleaseGroup(tp,nil,2,nil) end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) - local g=Duel.SelectReleaseGroup(tp,nil,2,2,nil) - Duel.Release(g,REASON_COST) -end -function c10000000.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c10000000.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) -end +--オベリスクの巨神兵 +function c10000000.initial_effect(c) + --summon with 3 tribute + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) + e1:SetCondition(c10000000.ttcon) + e1:SetOperation(c10000000.ttop) + e1:SetValue(SUMMON_TYPE_ADVANCE) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_LIMIT_SET_PROC) + e2:SetCondition(c10000000.setcon) + c:RegisterEffect(e2) + --summon + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_CANNOT_DISABLE_SUMMON) + e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + c:RegisterEffect(e3) + --summon success + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e4:SetCode(EVENT_SUMMON_SUCCESS) + e4:SetOperation(c10000000.sumsuc) + c:RegisterEffect(e4) + --cannot be target + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_SINGLE) + e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e5:SetRange(LOCATION_MZONE) + e5:SetValue(1) + c:RegisterEffect(e5) + --to grave + local e6=Effect.CreateEffect(c) + e6:SetDescription(aux.Stringid(10000000,0)) + e6:SetCategory(CATEGORY_TOGRAVE) + e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e6:SetRange(LOCATION_MZONE) + e6:SetCountLimit(1) + e6:SetCode(EVENT_PHASE+PHASE_END) + e6:SetCondition(c10000000.tgcon) + e6:SetTarget(c10000000.tgtg) + e6:SetOperation(c10000000.tgop) + c:RegisterEffect(e6) + --destroy + local e7=Effect.CreateEffect(c) + e7:SetDescription(aux.Stringid(10000000,1)) + e7:SetCategory(CATEGORY_DESTROY) + e7:SetType(EFFECT_TYPE_IGNITION) + e7:SetRange(LOCATION_MZONE) + e7:SetCost(c10000000.descost) + e7:SetTarget(c10000000.destg) + e7:SetOperation(c10000000.desop) + c:RegisterEffect(e7) +end +function c10000000.ttcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 +end +function c10000000.ttop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.SelectTribute(tp,c,3,3) + c:SetMaterial(g) + Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) +end +function c10000000.setcon(e,c) + if not c then return true end + return false +end +function c10000000.sumsuc(e,tp,eg,ep,ev,re,r,rp) + Duel.SetChainLimitTillChainEnd(aux.FALSE) +end +function c10000000.tgcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c10000000.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) +end +function c10000000.tgop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and c:IsFaceup() then + Duel.SendtoGrave(c,REASON_EFFECT) + end +end +function c10000000.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 and Duel.CheckReleaseGroup(tp,nil,2,nil) end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_OATH) + e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e:GetHandler():RegisterEffect(e1) + local g=Duel.SelectReleaseGroup(tp,nil,2,2,nil) + Duel.Release(g,REASON_COST) +end +function c10000000.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c10000000.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c100000000.lua b/script/c100000000.lua deleted file mode 100644 index 599290a1..00000000 --- a/script/c100000000.lua +++ /dev/null @@ -1,76 +0,0 @@ ---カオス・エンド・ルーラー －開闢と終焉の支配者－ -function c100000000.initial_effect(c) - c:EnableReviveLimit() - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000000,0)) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetHintTiming(0,0x1e0) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000000.spcon) - e1:SetOperation(c100000000.spop) - c:RegisterEffect(e1) - --remove - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000000,1)) - e2:SetCategory(CATEGORY_REMOVE+CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c100000000.sgcost) - e2:SetTarget(c100000000.sgtg) - e2:SetOperation(c100000000.sgop) - c:RegisterEffect(e2) - --summon success - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetOperation(c100000000.sumsuc) - c:RegisterEffect(e3) - --Cannot be responded - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON) - e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - c:RegisterEffect(e4) -end -function c100000000.sumsuc(e,tp,eg,ep,ev,re,r,rp) - Duel.SetChainLimitTillChainEnd(aux.FALSE) -end -function c100000000.spfilter(c,att,race) - return c:IsAttribute(att) and c:IsAbleToRemoveAsCost() and c:IsRace(race) -end -function c100000000.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000000.spfilter,tp,LOCATION_GRAVE,0,1,nil,ATTRIBUTE_LIGHT,RACE_WARRIOR) - and Duel.IsExistingMatchingCard(c100000000.spfilter,tp,LOCATION_GRAVE,0,1,nil,ATTRIBUTE_DARK,RACE_FIEND) -end -function c100000000.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g1=Duel.SelectMatchingCard(tp,c100000000.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,ATTRIBUTE_LIGHT,RACE_WARRIOR) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g2=Duel.SelectMatchingCard(tp,c100000000.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,ATTRIBUTE_DARK,RACE_FIEND) - g1:Merge(g2) - Duel.Remove(g1,POS_FACEUP,REASON_COST) -end -function c100000000.sgcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,1000) - else Duel.PayLPCost(tp,1000) end -end -function c100000000.sgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,0x1e,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,0,0,1-tp,g:GetCount()*500) -end -function c100000000.sgop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,0x1e,e:GetHandler()) - Duel.Remove(g,POS_FACEUP,REASON_EFFECT) - local og=Duel.GetOperatedGroup() - local ct=og:FilterCount(Card.IsLocation,nil,LOCATION_REMOVED) - Duel.Damage(1-tp,ct*500,REASON_EFFECT) -end - diff --git a/script/c100000001.lua b/script/c100000001.lua deleted file mode 100644 index f4f8384d..00000000 --- a/script/c100000001.lua +++ /dev/null @@ -1,45 +0,0 @@ ---手をつなぐ魔人 -function c100000001.initial_effect(c) - --target - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e1:SetTarget(c100000001.tglimit) - e1:SetValue(1) - c:RegisterEffect(e1) - --defup - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_UPDATE_DEFENCE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(c100000001.operation) - c:RegisterEffect(e2) -end -function c100000001.tglimit(e,c) - return c~=e:GetHandler() -end -function c100000001.filte(c) - return c:IsFaceup() and c:GetCode()~=100000001 -end -function c100000001.filter(c) - return c:IsPosition(POS_FACEUP_DEFENCE) and c:GetCode()~=100000001 -end -function c100000001.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000001.filte(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000001.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c100000001.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100000001.operation(e,c) - local ndef=0 - local ng=Duel.GetMatchingGroup(c100000001.filter,c:GetControler(),LOCATION_MZONE,0,c) - local nbc=ng:GetFirst() - while nbc do - ndef=ndef+nbc:GetBaseDefence() - nbc=ng:GetNext() - end - return ndef -end \ No newline at end of file diff --git a/script/c100000002.lua b/script/c100000002.lua deleted file mode 100644 index ba5f4a97..00000000 --- a/script/c100000002.lua +++ /dev/null @@ -1,96 +0,0 @@ ---時械神 サンダイオン -function c100000002.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetRange(LOCATION_DECK) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000002,0)) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SUMMON_PROC) - e2:SetCondition(c100000002.ntcon) - c:RegisterEffect(e2) - --indes - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetValue(1) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e4) - --damage val - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_NO_BATTLE_DAMAGE) - e5:SetCondition(c100000002.dacon) - e5:SetValue(1) - c:RegisterEffect(e5) - --LP - local e6=Effect.CreateEffect(c) - e6:SetCategory(CATEGORY_DAMAGE) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetCode(EVENT_PHASE+PHASE_BATTLE) - e6:SetCountLimit(1) - e6:SetRange(LOCATION_MZONE) - e6:SetCondition(c100000002.thcon) - e6:SetOperation(c100000002.thop) - c:RegisterEffect(e6) - --to deck - local e7=Effect.CreateEffect(c) - e7:SetDescription(aux.Stringid(100000002,1)) - e7:SetCategory(CATEGORY_TODECK) - e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e7:SetCode(EVENT_PHASE+PHASE_STANDBY) - e7:SetProperty(EFFECT_FLAG_REPEAT) - e7:SetCountLimit(1) - e7:SetRange(LOCATION_MZONE) - e7:SetCondition(c100000002.tdcon) - e7:SetTarget(c100000002.tdtg) - e7:SetOperation(c100000002.tdop) - c:RegisterEffect(e7) - local e8=Effect.CreateEffect(c) - e8:SetType(EFFECT_TYPE_SINGLE) - e8:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - e8:SetCondition(c100000002.dacon) - e8:SetValue(1) - c:RegisterEffect(e8) -end -function c100000002.dacon(e) - return Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler() -end -function c100000002.ntcon(e,c) - if c==nil then return true end - return c:GetLevel()>4 - and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c100000002.damcon(e) - return e:GetHandler():IsAttackPos() -end -function c100000002.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetBattledGroupCount()>0 -end -function c100000002.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(1-tp,2000,REASON_EFFECT) -end -function c100000002.tdcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000002.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) -end -function c100000002.tdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoDeck(c,nil,2,REASON_EFFECT) - end -end diff --git a/script/c100000003.lua b/script/c100000003.lua deleted file mode 100644 index 5cb811b5..00000000 --- a/script/c100000003.lua +++ /dev/null @@ -1,86 +0,0 @@ ---時械神 ハイロン -function c100000003.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetRange(LOCATION_DECK) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000003,0)) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SUMMON_PROC) - e2:SetCondition(c100000003.ntcon) - c:RegisterEffect(e2) - --indes - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetValue(1) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e4) - local e5=e3:Clone() - e5:SetCondition(c100000003.damcon) - e5:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - c:RegisterEffect(e5) - --LP - local e6=Effect.CreateEffect(c) - e6:SetCategory(CATEGORY_DAMAGE) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetCode(EVENT_PHASE+PHASE_BATTLE) - e6:SetCountLimit(1) - e6:SetRange(LOCATION_MZONE) - e6:SetCondition(c100000003.thcon) - e6:SetOperation(c100000003.thop) - c:RegisterEffect(e6) - --to deck - local e7=Effect.CreateEffect(c) - e7:SetDescription(aux.Stringid(100000003,1)) - e7:SetCategory(CATEGORY_TODECK) - e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e7:SetCode(EVENT_PHASE+PHASE_STANDBY) - e7:SetProperty(EFFECT_FLAG_REPEAT) - e7:SetCountLimit(1) - e7:SetRange(LOCATION_MZONE) - e7:SetCondition(c100000003.tdcon) - e7:SetTarget(c100000003.tdtg) - e7:SetOperation(c100000003.tdop) - c:RegisterEffect(e7) -end -function c100000003.ntcon(e,c) - if c==nil then return true end - return c:GetLevel()>4 - and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c100000003.damcon(e) - return e:GetHandler():IsAttackPos() -end -function c100000003.thcon(e,tp,eg,ep,ev,re,r,rp) - local p=e:GetHandler():GetControler() - return e:GetHandler():GetBattledGroupCount()>0 and Duel.GetLP(p)4 - and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c100000004.damcon(e) - return e:GetHandler():IsAttackPos() -end -function c100000004.batop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - if bc then - e:SetLabel(bc:GetAttack()) - e:SetLabelObject(bc) - end -end -function c100000004.condition(e) - return e:GetHandler():GetBattledGroupCount()>0 -end -function c100000004.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - local bc=e:GetHandler():GetBattleTarget() - if chk==0 then return bc and e:GetHandler():IsAttackPos() end - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,e:GetLabelObject():GetLabel()) -end -function c100000004.damop(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(1-tp,e:GetLabelObject():GetLabel(),REASON_EFFECT) -end -function c100000004.tdcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000004.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) -end -function c100000004.tdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoDeck(c,nil,2,REASON_EFFECT) - end -end diff --git a/script/c100000005.lua b/script/c100000005.lua deleted file mode 100644 index 40fc74b5..00000000 --- a/script/c100000005.lua +++ /dev/null @@ -1,100 +0,0 @@ ---時械神 ガブリオン -function c100000005.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetRange(LOCATION_DECK) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000005,0)) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SUMMON_PROC) - e2:SetCondition(c100000005.ntcon) - c:RegisterEffect(e2) - --indes - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetValue(1) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e4) - local e5=e3:Clone() - e5:SetCondition(c100000005.damcon) - e5:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - c:RegisterEffect(e5) - --to deck - local e6=Effect.CreateEffect(c) - e6:SetCategory(CATEGORY_TODECK) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetCode(EVENT_PHASE+PHASE_BATTLE) - e6:SetCountLimit(1) - e6:SetRange(LOCATION_MZONE) - e6:SetCondition(c100000005.condition) - e6:SetTarget(c100000005.target) - e6:SetOperation(c100000005.thop) - c:RegisterEffect(e6) - --to deck - local e7=Effect.CreateEffect(c) - e7:SetDescription(aux.Stringid(100000005,1)) - e7:SetCategory(CATEGORY_TODECK) - e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e7:SetCode(EVENT_PHASE+PHASE_STANDBY) - e7:SetProperty(EFFECT_FLAG_REPEAT) - e7:SetCountLimit(1) - e7:SetRange(LOCATION_MZONE) - e7:SetCondition(c100000005.tdcon) - e7:SetTarget(c100000005.tdtg) - e7:SetOperation(c100000005.tdop) - c:RegisterEffect(e7) -end -function c100000005.ntcon(e,c) - if c==nil then return true end - return c:GetLevel()>4 - and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c100000005.damcon(e) - return e:GetHandler():IsAttackPos() -end -function c100000005.exfilter(c) - return c:IsType(TYPE_MONSTER) or c:IsType(TYPE_MONSTER) or c:IsType(TYPE_SPELL) or c:IsType(TYPE_TRAP) -end -function c100000005.condition(e) - local c=e:GetHandler() - return e:GetHandler():GetBattledGroupCount()>0 and - Duel.IsExistingMatchingCard(c100000005.exfilter,c:GetControler(),0,LOCATION_ONFIELD,1,nil) -end -function c100000005.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetControler()~=tp and chkc:GetLocation()==LOCATION_ONFIELD and chkc:IsAbleToDeck() end - if chk==0 then return true end - if Duel.IsExistingTarget(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,nil) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) - end -end -function c100000005.thop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - Duel.SendtoDeck(g,nil,1,REASON_EFFECT) -end -function c100000005.tdcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000005.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) -end -function c100000005.tdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoDeck(c,nil,2,REASON_EFFECT) - end -end diff --git a/script/c100000006.lua b/script/c100000006.lua deleted file mode 100644 index 6ab7e154..00000000 --- a/script/c100000006.lua +++ /dev/null @@ -1,101 +0,0 @@ ---時械神 カミオン -function c100000006.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetRange(LOCATION_DECK) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000006,0)) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SUMMON_PROC) - e2:SetCondition(c100000006.ntcon) - c:RegisterEffect(e2) - --indes - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetValue(1) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e4) - local e5=e3:Clone() - e5:SetCondition(c100000006.damcon) - e5:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - c:RegisterEffect(e5) - --to deck - local e6=Effect.CreateEffect(c) - e6:SetCategory(CATEGORY_TODECK+CATEGORY_DAMAGE) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetCode(EVENT_PHASE+PHASE_BATTLE) - e6:SetCountLimit(1) - e6:SetRange(LOCATION_MZONE) - e6:SetCondition(c100000006.condition) - e6:SetTarget(c100000006.target) - e6:SetOperation(c100000006.thop) - c:RegisterEffect(e6) - --to deck - local e7=Effect.CreateEffect(c) - e7:SetDescription(aux.Stringid(100000006,1)) - e7:SetCategory(CATEGORY_TODECK) - e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e7:SetCode(EVENT_PHASE+PHASE_STANDBY) - e7:SetProperty(EFFECT_FLAG_REPEAT) - e7:SetCountLimit(1) - e7:SetRange(LOCATION_MZONE) - e7:SetCondition(c100000006.tdcon) - e7:SetTarget(c100000006.tdtg) - e7:SetOperation(c100000006.tdop) - c:RegisterEffect(e7) -end -function c100000006.ntcon(e,c) - if c==nil then return true end - return c:GetLevel()>4 - and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c100000006.damcon(e) - return e:GetHandler():IsAttackPos() -end -function c100000006.exfilter(c) - return c:IsType(TYPE_MONSTER) -end -function c100000006.condition(e) - local c=e:GetHandler() - return e:GetHandler():GetBattledGroupCount()>0 and - Duel.IsExistingMatchingCard(c100000006.exfilter,c:GetControler(),0,LOCATION_MZONE,1,nil) -end -function c100000006.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetControler()~=tp and chkc:GetLocation()==LOCATION_MZONE and chkc:IsAbleToDeck() end - if chk==0 then return true end - if Duel.IsExistingTarget(Card.IsAbleToDeck,tp,0,LOCATION_MZONE,1,nil) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) - end -end -function c100000006.thop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - Duel.SendtoDeck(g,nil,1,REASON_EFFECT) - Duel.Damage(1-tp,500,REASON_EFFECT) -end -function c100000006.tdcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000006.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) -end -function c100000006.tdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoDeck(c,nil,2,REASON_EFFECT) - end -end diff --git a/script/c100000007.lua b/script/c100000007.lua deleted file mode 100644 index efc4a21d..00000000 --- a/script/c100000007.lua +++ /dev/null @@ -1,97 +0,0 @@ ---時械神 ザフィオン -function c100000007.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetRange(LOCATION_DECK) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000007,0)) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SUMMON_PROC) - e2:SetCondition(c100000007.ntcon) - c:RegisterEffect(e2) - --indes - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetValue(1) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e4) - local e5=e3:Clone() - e5:SetCondition(c100000007.damcon) - e5:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - c:RegisterEffect(e5) - --to deck - local e6=Effect.CreateEffect(c) - e6:SetCategory(CATEGORY_TODECK) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetCode(EVENT_PHASE+PHASE_BATTLE) - e6:SetCountLimit(1) - e6:SetRange(LOCATION_MZONE) - e6:SetCondition(c100000007.condition) - e6:SetTarget(c100000007.target) - e6:SetOperation(c100000007.activate) - c:RegisterEffect(e6) - --to deck - local e7=Effect.CreateEffect(c) - e7:SetDescription(aux.Stringid(100000007,1)) - e7:SetCategory(CATEGORY_TODECK) - e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e7:SetCode(EVENT_PHASE+PHASE_STANDBY) - e7:SetProperty(EFFECT_FLAG_REPEAT) - e7:SetCountLimit(1) - e7:SetRange(LOCATION_MZONE) - e7:SetCondition(c100000007.tdcon) - e7:SetTarget(c100000007.tdtg) - e7:SetOperation(c100000007.tdop) - c:RegisterEffect(e7) -end -function c100000007.ntcon(e,c) - if c==nil then return true end - return c:GetLevel()>4 - and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c100000007.damcon(e) - return e:GetHandler():IsAttackPos() -end -function c100000007.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck() -end -function c100000007.condition(e) - local c=e:GetHandler() - return e:GetHandler():GetBattledGroupCount()>0 and - Duel.IsExistingMatchingCard(c100000007.filter,c:GetControler(),0,LOCATION_SZONE,1,nil) -end -function c100000007.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(c100000007.filter,tp,0,LOCATION_ONFIELD,1,c) end - local sg=Duel.GetMatchingGroup(c100000007.filter,tp,0,LOCATION_ONFIELD,c) - Duel.SetOperationInfo(0,CATEGORY_TODECK,sg,sg:GetCount(),0,0) -end -function c100000007.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100000007.filter,tp,0,LOCATION_ONFIELD,e:GetHandler()) - Duel.SendtoDeck(sg,nil,sg:GetCount(),REASON_EFFECT) -end -function c100000007.tdcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000007.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) -end -function c100000007.tdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoDeck(c,nil,2,REASON_EFFECT) - end -end diff --git a/script/c100000008.lua b/script/c100000008.lua deleted file mode 100644 index c1d281a0..00000000 --- a/script/c100000008.lua +++ /dev/null @@ -1,85 +0,0 @@ ---時械神 ミチオン -function c100000008.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetRange(LOCATION_DECK) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000008,0)) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SUMMON_PROC) - e2:SetCondition(c100000008.ntcon) - c:RegisterEffect(e2) - --indes - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetValue(1) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e4) - local e5=e3:Clone() - e5:SetCondition(c100000008.damcon) - e5:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - c:RegisterEffect(e5) - --LP - local e6=Effect.CreateEffect(c) - e6:SetCategory(CATEGORY_DAMAGE) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetCode(EVENT_PHASE+PHASE_BATTLE) - e6:SetCountLimit(1) - e6:SetRange(LOCATION_MZONE) - e6:SetCondition(c100000008.thcon) - e6:SetOperation(c100000008.thop) - c:RegisterEffect(e6) - --to deck - local e7=Effect.CreateEffect(c) - e7:SetDescription(aux.Stringid(100000008,1)) - e7:SetCategory(CATEGORY_TODECK) - e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e7:SetCode(EVENT_PHASE+PHASE_STANDBY) - e7:SetProperty(EFFECT_FLAG_REPEAT) - e7:SetCountLimit(1) - e7:SetRange(LOCATION_MZONE) - e7:SetCondition(c100000008.tdcon) - e7:SetTarget(c100000008.tdtg) - e7:SetOperation(c100000008.tdop) - c:RegisterEffect(e7) -end -function c100000008.ntcon(e,c) - if c==nil then return true end - return c:GetLevel()>4 - and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c100000008.damcon(e) - return e:GetHandler():IsAttackPos() -end -function c100000008.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetBattledGroupCount()>0 -end -function c100000008.thop(e,tp,eg,ep,ev,re,r,rp) - local p=e:GetHandler():GetControler() - Duel.SetLP(1-tp,Duel.GetLP(1-p)/2,REASON_EFFECT) -end -function c100000008.tdcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000008.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) -end -function c100000008.tdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoDeck(c,nil,2,REASON_EFFECT) - end -end diff --git a/script/c100000009.lua b/script/c100000009.lua deleted file mode 100644 index f93230af..00000000 --- a/script/c100000009.lua +++ /dev/null @@ -1,113 +0,0 @@ ---時械神 ラツィオン -function c100000009.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetRange(LOCATION_DECK) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000009,0)) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SUMMON_PROC) - e2:SetCondition(c100000009.ntcon) - c:RegisterEffect(e2) - --indes - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetValue(1) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e4) - local e5=e3:Clone() - e5:SetCondition(c100000009.damcon) - e5:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - c:RegisterEffect(e5) - --damage - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetProperty(EFFECT_FLAG_DELAY) - e6:SetRange(LOCATION_MZONE) - e6:SetCode(EVENT_DRAW) - e6:SetCondition(c100000009.recon) - e6:SetOperation(c100000009.recop) - c:RegisterEffect(e6) - --to deck - local e7=Effect.CreateEffect(c) - e7:SetCategory(CATEGORY_TODECK) - e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e7:SetCode(EVENT_PHASE+PHASE_BATTLE) - e7:SetProperty(EFFECT_FLAG_REPEAT) - e7:SetCountLimit(1) - e7:SetRange(LOCATION_MZONE) - e7:SetCondition(c100000009.condition) - e7:SetTarget(c100000009.target) - e7:SetOperation(c100000009.activate) - c:RegisterEffect(e7) - --to deck - local e8=Effect.CreateEffect(c) - e8:SetDescription(aux.Stringid(100000009,1)) - e8:SetCategory(CATEGORY_TODECK) - e8:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e8:SetCode(EVENT_PHASE+PHASE_STANDBY) - e8:SetProperty(EFFECT_FLAG_REPEAT) - e8:SetCountLimit(1) - e8:SetRange(LOCATION_MZONE) - e8:SetCondition(c100000009.tdcon) - e8:SetTarget(c100000009.tdtg) - e8:SetOperation(c100000009.tdop) - c:RegisterEffect(e8) -end -function c100000009.ntcon(e,c) - if c==nil then return true end - return c:GetLevel()>4 - and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c100000009.damcon(e) - return e:GetHandler():IsAttackPos() -end -function c100000009.recon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c100000009.recop(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(1-tp,500,REASON_EFFECT) -end -function c100000009.filter(c) - return c:IsAbleToDeck() -end -function c100000009.condition(e) - local c=e:GetHandler() - return e:GetHandler():GetBattledGroupCount()>0 and - Duel.IsExistingMatchingCard(c100000009.filter,c:GetControler(),0,LOCATION_GRAVE,1,nil) -end -function c100000009.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(c100000009.filter,tp,0,LOCATION_GRAVE,1,c) end - local sg=Duel.GetMatchingGroup(c100000009.filter,tp,0,LOCATION_GRAVE,c) - Duel.SetOperationInfo(0,CATEGORY_TODECK,sg,sg:GetCount(),0,0) -end -function c100000009.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100000009.filter,tp,0,LOCATION_GRAVE,e:GetHandler()) - Duel.SendtoDeck(sg,nil,sg:GetCount(),REASON_EFFECT) -end -function c100000009.tdcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000009.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) -end -function c100000009.tdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoDeck(c,nil,2,REASON_EFFECT) - end -end diff --git a/script/c10000001.lua b/script/c10000001.lua deleted file mode 100644 index 4643afbd..00000000 --- a/script/c10000001.lua +++ /dev/null @@ -1,109 +0,0 @@ ---オベリスクの巨神兵 -function c10000001.initial_effect(c) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c10000001.ttcon) - e1:SetOperation(c10000001.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c10000001.setcon) - c:RegisterEffect(e2) - --summon - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_DISABLE_SUMMON) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - c:RegisterEffect(e3) - --summon success - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_SUMMON_SUCCESS) - e4:SetOperation(c10000001.sumsuc) - c:RegisterEffect(e4) - --cannot be target - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetRange(LOCATION_MZONE) - e5:SetValue(1) - c:RegisterEffect(e5) - --to grave - local e6=Effect.CreateEffect(c) - e6:SetDescription(aux.Stringid(10000001,0)) - e6:SetCategory(CATEGORY_TOGRAVE) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetRange(LOCATION_MZONE) - e6:SetProperty(EFFECT_FLAG_REPEAT) - e6:SetCountLimit(1) - e6:SetCode(EVENT_PHASE+PHASE_END) - e6:SetCondition(c10000001.tgcon) - e6:SetTarget(c10000001.tgtg) - e6:SetOperation(c10000001.tgop) - c:RegisterEffect(e6) - --destroy - local e7=Effect.CreateEffect(c) - e7:SetDescription(aux.Stringid(10000001,1)) - e7:SetCategory(CATEGORY_DESTROY) - e7:SetType(EFFECT_TYPE_IGNITION) - e7:SetRange(LOCATION_MZONE) - e7:SetCost(c10000001.descost) - e7:SetTarget(c10000001.destg) - e7:SetOperation(c10000001.desop) - c:RegisterEffect(e7) -end -function c10000001.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c10000001.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c10000001.setcon(e,c) - if not c then return true end - return false -end -function c10000001.sumsuc(e,tp,eg,ep,ev,re,r,rp) - Duel.SetChainLimitTillChainEnd(aux.FALSE) -end -function c10000001.tgcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c10000001.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) -end -function c10000001.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoGrave(c,REASON_EFFECT) - end -end -function c10000001.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 and Duel.CheckReleaseGroup(tp,nil,2,nil) end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) - local g=Duel.SelectReleaseGroup(tp,nil,2,2,nil) - Duel.Release(g,REASON_COST) -end -function c10000001.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c10000001.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) -end diff --git a/script/c100000010.lua b/script/c100000010.lua deleted file mode 100644 index 81dba3db..00000000 --- a/script/c100000010.lua +++ /dev/null @@ -1,45 +0,0 @@ ---時械巫女 -function c100000010.initial_effect(c) - c:EnableReviveLimit() - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000010.spcon) - c:RegisterEffect(e1) - --SEARCH - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c100000010.cost) - e2:SetTarget(c100000010.target) - e2:SetOperation(c100000010.activate) - c:RegisterEffect(e2) -end -function c100000010.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c100000010.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasableByEffect() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c100000010.filter(c,e,tp) - return c:IsSetCard(0x4a) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c100000010.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000010.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c100000010.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c100000010.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c100000011.lua b/script/c100000011.lua deleted file mode 100644 index c3b4db78..00000000 --- a/script/c100000011.lua +++ /dev/null @@ -1,29 +0,0 @@ ---時械天使 -function c100000011.initial_effect(c) - --to HAND - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c100000011.condition) - e1:SetTarget(c100000011.thtg) - e1:SetOperation(c100000011.operation) - c:RegisterEffect(e1) -end -function c100000011.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsLocation(LOCATION_GRAVE) and c:IsReason(REASON_BATTLE) - and c:GetBattlePosition()==POS_FACEUP_ATTACK -end -function c100000011.filter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c100000011.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(c100000011.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c100000011.operation(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100000011.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.SendtoHand(sg,nil,sg:GetCount(),REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000012.lua b/script/c100000012.lua deleted file mode 100644 index a5003dfa..00000000 --- a/script/c100000012.lua +++ /dev/null @@ -1,53 +0,0 @@ ---虚无械アイン -function c100000012.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetTarget(c100000012.target1) - e1:SetOperation(c100000012.operation) - c:RegisterEffect(e1) - --to Grave - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(0,TIMING_END_PHASE) - e2:SetTarget(c100000012.target2) - e2:SetOperation(c100000012.operation) - c:RegisterEffect(e2) -end -function c100000012.rfilter(c) - return c:IsSetCard(0x4a) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() -end -function c100000012.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_HAND) and chkc:IsControler(tp) and c100000012.rfilter(chkc) end - if chk==0 then return true end - if Duel.IsExistingTarget(c100000012.rfilter,tp,LOCATION_HAND,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(100000012,0)) then - local cg=Duel.SelectTarget(tp,c100000012.rfilter,tp,LOCATION_HAND,0,1,1,nil) - if cg:GetCount()==0 then return end - Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1) - Duel.SendtoGrave(cg,REASON_EFFECT+REASON_DISCARD) - e:GetHandler():RegisterFlagEffect(100000012,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - else e:SetProperty(0) end -end -function c100000012.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_HAND) and chkc:IsControler(tp) and c100000012.rfilter(chkc) end - if chk==0 then return e:GetHandler():GetFlagEffect(100000012)==0 - and Duel.IsExistingTarget(c100000012.rfilter,tp,LOCATION_HAND,0,1,nil) end - local cg=Duel.SelectTarget(tp,c100000012.rfilter,tp,LOCATION_HAND,0,1,1,nil) - if cg:GetCount()==0 then return end - Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1) - Duel.SendtoGrave(cg,REASON_EFFECT+REASON_DISCARD) - e:GetHandler():RegisterFlagEffect(100000012,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c100000012.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if not tc then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) - Duel.BreakEffect() - Duel.Draw(tp,1,REASON_EFFECT) -end diff --git a/script/c100000013.lua b/script/c100000013.lua deleted file mode 100644 index 62530879..00000000 --- a/script/c100000013.lua +++ /dev/null @@ -1,144 +0,0 @@ ---無限械アイン・ソフ -function c100000013.initial_effect(c) - --Activate to Grave - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCondition(c100000013.condition1) - e1:SetCost(c100000013.cost) - e1:SetTarget(c100000013.target1) - e1:SetOperation(c100000013.operation1) - c:RegisterEffect(e1) - --to Grave - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(0,TIMING_END_PHASE) - e2:SetCondition(c100000013.condition1) - e2:SetTarget(c100000013.target2) - e2:SetOperation(c100000013.operation1) - c:RegisterEffect(e2) - --Activate special summon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000013,1)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_ACTIVATE) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetCountLimit(1) - e3:SetCondition(c100000013.condition2) - e3:SetCost(c100000013.cost) - e3:SetTarget(c100000013.target3) - e3:SetOperation(c100000013.operation2) - c:RegisterEffect(e3) - --special summon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(100000013,1)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetCountLimit(1) - e4:SetRange(LOCATION_SZONE) - e4:SetCondition(c100000013.condition2) - e4:SetTarget(c100000013.target4) - e4:SetOperation(c100000013.operation2) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(100000013,2)) - e5:SetCategory(CATEGORY_TOHAND) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e5:SetCode(EVENT_TO_GRAVE) - e5:SetCondition(c100000013.condition3) - e5:SetTarget(c100000013.target5) - e5:SetOperation(c100000013.operation3) - c:RegisterEffect(e5) -end -function c100000013.condition1(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c100000013.costfilter(c) - return c:IsFaceup() and c:GetCode()==100000012 and c:IsAbleToGraveAsCost() -end -function c100000013.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000013.costfilter,tp,LOCATION_SZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000013.costfilter,tp,LOCATION_SZONE,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c100000013.rfilter(c) - return c:IsSetCard(0x4a) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() -end -function c100000013.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_HAND) and chkc:IsControler(tp) and c100000013.rfilter(chkc) end - if chk==0 then return true end - if Duel.IsExistingTarget(c100000013.rfilter,tp,LOCATION_HAND,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(100000013,0)) then - local cg=Duel.SelectTarget(tp,c100000013.rfilter,tp,LOCATION_HAND,0,1,1,nil) - if cg:GetCount()==0 then return end - Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1) - Duel.SendtoGrave(cg,REASON_EFFECT+REASON_DISCARD) - e:GetHandler():RegisterFlagEffect(100000013,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - else e:SetProperty(0) end -end -function c100000013.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_HAND) and chkc:IsControler(tp) and c100000013.rfilter(chkc) end - if chk==0 then return e:GetHandler():GetFlagEffect(100000013)==0 - and Duel.IsExistingTarget(c100000013.rfilter,tp,LOCATION_HAND,0,1,nil) end - local cg=Duel.SelectTarget(tp,c100000013.rfilter,tp,LOCATION_HAND,0,1,1,nil) - if cg:GetCount()==0 then return end - Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1) - Duel.SendtoGrave(cg,REASON_EFFECT+REASON_DISCARD) - e:GetHandler():RegisterFlagEffect(100000013,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c100000013.operation1(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if not tc then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) - Duel.BreakEffect() - Duel.Draw(tp,2,REASON_EFFECT) -end -function c100000013.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000013.filter(c,e,sp) - return c:IsSetCard(0x4a) and c:IsCanBeSpecialSummoned(e,0,sp,false,false) -end -function c100000013.target3(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c100000013.filter,tp,LOCATION_HAND,0,1,nil,e,tp) - and Duel.SelectYesNo(tp,aux.Stringid(100000013,0)) then - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) - else e:SetProperty(0) end -end -function c100000013.target4(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000013.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000013.operation2(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local gs=Duel.SelectMatchingCard(tp,c100000013.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - if gs:GetCount()>0 then - Duel.SpecialSummon(gs,0,tp,tp,false,false,POS_FACEUP) - end -end -function c100000013.condition3(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsPreviousPosition(POS_FACEUP) -end -function c100000013.target5(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) -end -function c100000013.filt(c) - return c:GetCode()==100000012 and c:IsAbleToHand() -end -function c100000013.operation3(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local gh=Duel.SelectMatchingCard(tp,c100000013.filt,tp,LOCATION_GRAVE,0,1,1,nil) - if gh:GetCount()>0 then - Duel.SendtoHand(gh,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,gh) - end -end diff --git a/script/c100000014.lua b/script/c100000014.lua deleted file mode 100644 index 7f04b7cd..00000000 --- a/script/c100000014.lua +++ /dev/null @@ -1,159 +0,0 @@ ---無限光アイン・ソフ・オウル -function c100000014.initial_effect(c) - --Activate to Grave - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCondition(c100000014.condition1) - e1:SetCost(c100000014.cost) - e1:SetTarget(c100000014.target1) - e1:SetOperation(c100000014.operation1) - c:RegisterEffect(e1) - --to Grave - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(0,TIMING_END_PHASE) - e2:SetCondition(c100000014.condition1) - e2:SetTarget(c100000014.target2) - e2:SetOperation(c100000014.operation1) - c:RegisterEffect(e2) - --Activate special summon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000014,1)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_ACTIVATE) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetCountLimit(1) - e3:SetCondition(c100000014.condition2) - e3:SetCost(c100000014.cost) - e3:SetTarget(c100000014.target3) - e3:SetOperation(c100000014.operation2) - c:RegisterEffect(e3) - --special summon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(100000014,1)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetCountLimit(1) - e4:SetRange(LOCATION_SZONE) - e4:SetCondition(c100000014.condition2) - e4:SetTarget(c100000014.target4) - e4:SetOperation(c100000014.operation2) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD) - e5:SetCode(EFFECT_CANNOT_TO_DECK) - e5:SetRange(LOCATION_SZONE) - e5:SetTargetRange(LOCATION_MZONE,0) - e5:SetTarget(c100000014.tgn) - c:RegisterEffect(e5) - local e6=Effect.CreateEffect(c) - e6:SetDescription(aux.Stringid(100000014,1)) - e6:SetCategory(CATEGORY_SPECIAL_SUMMON) - e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e6:SetCode(EVENT_TO_GRAVE) - e6:SetCondition(c100000014.condition3) - e6:SetTarget(c100000014.target5) - e6:SetOperation(c100000014.operation3) - c:RegisterEffect(e6) -end -function c100000014.condition1(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c100000014.costfilter(c) - return c:IsFaceup() and c:GetCode()==100000013 and c:IsAbleToGraveAsCost() -end -function c100000014.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000014.costfilter,tp,LOCATION_SZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000014.costfilter,tp,LOCATION_SZONE,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c100000014.rfilter(c) - return c:IsSetCard(0x4a) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() -end -function c100000014.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_HAND) and chkc:IsControler(tp) and c100000014.rfilter(chkc) end - if chk==0 then return true end - if Duel.IsExistingTarget(c100000014.rfilter,tp,LOCATION_HAND,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(100000014,0)) then - local cg=Duel.SelectTarget(tp,c100000014.rfilter,tp,LOCATION_HAND,0,1,1,nil) - if cg:GetCount()==0 then return end - Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1) - Duel.SendtoGrave(cg,REASON_EFFECT+REASON_DISCARD) - e:GetHandler():RegisterFlagEffect(100000014,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - else e:SetProperty(0) end -end -function c100000014.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_HAND) and chkc:IsControler(tp) and c100000014.rfilter(chkc) end - if chk==0 then return e:GetHandler():GetFlagEffect(100000014)==0 - and Duel.IsExistingTarget(c100000014.rfilter,tp,LOCATION_HAND,0,1,nil) end - local cg=Duel.SelectTarget(tp,c100000014.rfilter,tp,LOCATION_HAND,0,1,1,nil) - if cg:GetCount()==0 then return end - Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1) - Duel.SendtoGrave(cg,REASON_EFFECT+REASON_DISCARD) - e:GetHandler():RegisterFlagEffect(100000014,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c100000014.operation1(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if not tc then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) - Duel.BreakEffect() - Duel.Draw(tp,2,REASON_EFFECT) -end -function c100000014.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000014.filter(c,e,sp) - return c:IsSetCard(0x4a) and c:IsCanBeSpecialSummoned(e,0,sp,false,false) -end -function c100000014.target3(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c100000014.filter,tp,LOCATION_HAND,0,1,nil,e,tp) - and Duel.SelectYesNo(tp,aux.Stringid(100000014,0)) then - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) - else e:SetProperty(0) end -end -function c100000014.target4(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000014.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000014.operation2(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local gs=Duel.SelectMatchingCard(tp,c100000014.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - if gs:GetCount()>0 then - Duel.SpecialSummon(gs,0,tp,tp,false,false,POS_FACEUP) - end -end -function c100000014.condition3(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsPreviousPosition(POS_FACEUP) -end -function c100000014.tf1(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,true,false) and (not c:IsLocation(LOCATION_GRAVE) or not c:IsHasEffect(EFFECT_NECRO_VALLEY)) - and c:IsCode(8967776) -end -function c100000014.target5(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000014.tf1,tp,0x13,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13) -end -function c100000014.operation3(e,tp,eg,ep,ev,re,r,rp) - if chk==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end - local tc1=Duel.SelectMatchingCard(tp,c100000014.tf1,tp,0x13,0,1,1,nil,e,tp) - if tc1 then - Duel.SpecialSummon(tc1,0,tp,tp,true,false,POS_FACEUP) - Duel.ShuffleDeck(tp) - end -end -function c100000014.tgn(e,c) - return c:IsSetCard(0x4a) -end diff --git a/script/c100000015.lua b/script/c100000015.lua deleted file mode 100644 index c3415a2d..00000000 --- a/script/c100000015.lua +++ /dev/null @@ -1,86 +0,0 @@ ---時械神 サディオン -function c100000015.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetRange(LOCATION_DECK) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000015,0)) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SUMMON_PROC) - e2:SetCondition(c100000015.ntcon) - c:RegisterEffect(e2) - --indes - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetValue(1) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e4) - local e5=e3:Clone() - e5:SetCondition(c100000015.damcon) - e5:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - c:RegisterEffect(e5) - --LP - local e6=Effect.CreateEffect(c) - e6:SetCategory(CATEGORY_DAMAGE) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetCode(EVENT_PHASE+PHASE_BATTLE) - e6:SetCountLimit(1) - e6:SetRange(LOCATION_MZONE) - e6:SetCondition(c100000015.thcon) - e6:SetOperation(c100000015.thop) - c:RegisterEffect(e6) - --to deck - local e7=Effect.CreateEffect(c) - e7:SetDescription(aux.Stringid(100000015,1)) - e7:SetCategory(CATEGORY_TODECK) - e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e7:SetCode(EVENT_PHASE+PHASE_STANDBY) - e7:SetProperty(EFFECT_FLAG_REPEAT) - e7:SetCountLimit(1) - e7:SetRange(LOCATION_MZONE) - e7:SetCondition(c100000015.tdcon) - e7:SetTarget(c100000015.tdtg) - e7:SetOperation(c100000015.tdop) - c:RegisterEffect(e7) -end -function c100000015.ntcon(e,c) - if c==nil then return true end - return c:GetLevel()>4 - and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c100000015.damcon(e) - return e:GetHandler():IsAttackPos() -end -function c100000015.thcon(e,tp,eg,ep,ev,re,r,rp) - local p=e:GetHandler():GetControler() - return e:GetHandler():GetBattledGroupCount()>0 and Duel.GetLP(p)<4000 -end -function c100000015.thop(e,tp,eg,ep,ev,re,r,rp) - local p=e:GetHandler():GetControler() - Duel.SetLP(tp,4000,REASON_EFFECT) -end -function c100000015.tdcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000015.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) -end -function c100000015.tdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoDeck(c,nil,2,REASON_EFFECT) - end -end diff --git a/script/c100000020.lua b/script/c100000020.lua deleted file mode 100644 index afda4d56..00000000 --- a/script/c100000020.lua +++ /dev/null @@ -1,48 +0,0 @@ ---アフター・グロー -function c100000020.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_TODECK) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000020.tdtg) - e1:SetOperation(c100000020.activate) - c:RegisterEffect(e1) -end -function c100000020.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) -end -function c100000020.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsCanTurnSet() and Duel.GetFlagEffect(tp,100000020)==0 then - Duel.RegisterFlagEffect(tp,100000020,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_DRAW) - e1:SetCountLimit(1) - e1:SetCondition(c100000020.spcon) - e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,2) - e1:SetOperation(c100000020.spop1) - Duel.RegisterEffect(e1,tp) - end - Duel.BreakEffect() - c:CancelToGrave() - Duel.SendtoDeck(c,nil,1,REASON_EFFECT) - Duel.ShuffleDeck(c:GetControler()) -end -function c100000020.spcon(e,tp,eg,ep,ev,re,r,rp) - return ep==tp and Duel.GetCurrentPhase()==PHASE_DRAW -end -function c100000020.spop1(e,tp,eg,ep,ev,re,r,rp) - if ep~=e:GetOwnerPlayer() then return end - local tc=eg:GetFirst() - Duel.ConfirmCards(tp,tc) - if tc:GetCode()==100000020 then - local p=e:GetHandler():GetControler() - Duel.Damage(1-tp,8000,REASON_EFFECT) - end - Duel.ShuffleHand(tp) -end \ No newline at end of file diff --git a/script/c100000021.lua b/script/c100000021.lua deleted file mode 100644 index 2e71cf3d..00000000 --- a/script/c100000021.lua +++ /dev/null @@ -1,43 +0,0 @@ ---女教皇の錫杖 -function c100000021.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c100000021.condition) - e1:SetTarget(c100000021.target) - e1:SetOperation(c100000021.activate) - c:RegisterEffect(e1) - --act in hand - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_TRAP_ACT_IN_HAND) - e2:SetCondition(c100000021.handcon) - c:RegisterEffect(e2) -end -function c100000021.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c100000021.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) -end -function c100000021.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsAttackable() and Duel.NegateAttack() then end - Duel.Damage(1-tp,500,REASON_EFFECT) -end -function c100000021.ntcon(e,c) - if c==nil then return true end - return c:GetLevel()>4 - and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c100000021.handcon(e) - return Duel.GetFieldGroupCount(e:GetHandler():GetControler(),LOCATION_MZONE,0)==0 -end \ No newline at end of file diff --git a/script/c100000022.lua b/script/c100000022.lua deleted file mode 100644 index 6f8cbcb5..00000000 --- a/script/c100000022.lua +++ /dev/null @@ -1,58 +0,0 @@ ---サテライト・レーザー　Ｘ－０６Ｓ　バルサム -function c100000022.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCodeRep(c,50400231,3,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c100000022.splimit) - c:RegisterEffect(e1) - --atk - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetProperty(EFFECT_FLAG_REPEAT) - e2:SetCondition(c100000022.atkcon) - e2:SetOperation(c100000022.atkop) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_BATTLE_END) - e3:SetOperation(c100000022.retop) - c:RegisterEffect(e3) - --pierce - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e4) -end -c100000022.material_count=1 -c100000022.material={50400231} -function c100000022.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c100000022.atkcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000022.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(3000) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - end -end -function c100000022.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c==Duel.GetAttacker() and not c:IsStatus(STATUS_BATTLE_DESTROYED) then - c:ResetEffect(RESET_DISABLE,RESET_EVENT) - end -end \ No newline at end of file diff --git a/script/c100000023.lua b/script/c100000023.lua deleted file mode 100644 index 72aacf4c..00000000 --- a/script/c100000023.lua +++ /dev/null @@ -1,54 +0,0 @@ ---古生代化石マシン スカルコンボイ -function c100000023.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFun2(c,c100000023.ffilter1,c100000023.ffilter2,1,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000023,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCondition(c100000023.damcon) - e2:SetTarget(c100000023.damtg) - e2:SetOperation(c100000023.damop) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EXTRA_ATTACK) - e3:SetCondition(c100000023.spcon) - e3:SetValue(2) - c:RegisterEffect(e3) -end -function c100000023.ffilter1(c) - return c:IsRace(RACE_ROCK) and c:GetOwner()==Duel.GetTurnPlayer() -end -function c100000023.ffilter2(c) - return c:GetLevel()>5 and c:GetOwner()~=Duel.GetTurnPlayer() and not c:IsType(TYPE_XYZ) --and c:IsRace(RACE_MACHINE) -end -function c100000023.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(e:GetOwnerPlayer(),0,LOCATION_MZONE)>0 -end -function c100000023.damcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local d=Duel.GetAttacker() - if d==c then d=Duel.GetAttackTarget() end - return c:IsRelateToBattle() and d:IsLocation(LOCATION_GRAVE) and d:IsReason(REASON_BATTLE) and d:IsType(TYPE_MONSTER) -end -function c100000023.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) -end -function c100000023.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000024.lua b/script/c100000024.lua deleted file mode 100644 index 62d08a67..00000000 --- a/script/c100000024.lua +++ /dev/null @@ -1,55 +0,0 @@ ---タイム・ストリーム -function c100000024.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000024.cost) - e1:SetTarget(c100000024.target) - e1:SetOperation(c100000024.activate) - c:RegisterEffect(e1) -end -function c100000024.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local lp=Duel.GetLP(tp) - local costlp=math.floor((lp+1)/2) - Duel.PayLPCost(tp,costlp) -end -function c100000024.tfilter1(c,e,tp) - local code=c:GetCode() - return (code==100000027 or code==100000622) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,true,false) -end -function c100000024.tfilter2(c,e,tp) - local code=c:GetCode() - return (code==100000028 or code==100000023 or code==100000029) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,true,false) -end -function c100000024.filter(c,e,tp) - local code=c:GetCode() - return c:IsFaceup() and (((code==100000027 or code==100000622) - and Duel.IsExistingMatchingCard(c100000024.tfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp)) - or ((code==100000026 or code==100000620 or code==100000621) - and Duel.IsExistingMatchingCard(c100000024.tfilter1,tp,LOCATION_EXTRA,0,1,nil,e,tp))) -end -function c100000024.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c100000024.filter1(chkc,e,tp) or c100000024.filter2(chkc,e,tp)end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c100000024.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,c100000024.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000024.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - if Duel.SendtoDeck(tc,nil,1,REASON_EFFECT)==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local code=tc:GetCode() - if code==100000026 or code==100000620 or code==100000621 then - local sg=Duel.SelectMatchingCard(tp,c100000024.tfilter1,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - Duel.SpecialSummon(sg,SUMMON_TYPE_FUSION,tp,tp,true,false,POS_FACEUP) end - if code==100000027 or code==100000622 then - local sg=Duel.SelectMatchingCard(tp,c100000024.tfilter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - Duel.SpecialSummon(sg,SUMMON_TYPE_FUSION,tp,tp,true,false,POS_FACEUP) end -end diff --git a/script/c100000025.lua b/script/c100000025.lua deleted file mode 100644 index a18ab7cc..00000000 --- a/script/c100000025.lua +++ /dev/null @@ -1,67 +0,0 @@ ---化石融合－フォッシル・フュージョン -function c100000025.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000025.target) - e1:SetOperation(c100000025.activate) - c:RegisterEffect(e1) -end -function c100000025.filter1(c,e) - return c:IsCanBeFusionMaterial() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e) -end -function c100000025.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:IsSetCard(0x304) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,true,false) - and c:CheckFusionMaterial(m,nil,chkf) -end -function c100000025.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000025.filter1,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil,e) - local res=Duel.IsExistingMatchingCard(c100000025.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c100000025.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000025.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000025.filter1,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil,e) - local sg1=Duel.GetMatchingGroup(c100000025.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c100000025.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,true,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end diff --git a/script/c100000026.lua b/script/c100000026.lua deleted file mode 100644 index ddd5f2a0..00000000 --- a/script/c100000026.lua +++ /dev/null @@ -1,19 +0,0 @@ ---新生代化石騎士 スカルポーン -function c100000026.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFun2(c,c100000026.ffilter1,c100000026.ffilter2,1,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) -end -function c100000026.ffilter1(c) - return c:IsRace(RACE_ROCK) and c:GetOwner()==Duel.GetTurnPlayer() -end -function c100000026.ffilter2(c) - return c:GetLevel()<=4 and c:GetOwner()~=Duel.GetTurnPlayer() and not c:IsType(TYPE_XYZ) -end diff --git a/script/c100000027.lua b/script/c100000027.lua deleted file mode 100644 index c608f84b..00000000 --- a/script/c100000027.lua +++ /dev/null @@ -1,42 +0,0 @@ ---中生代化石騎士 スカルナイト -function c100000027.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFun2(c,c100000027.ffilter1,c100000027.ffilter2,1,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --chain attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCountLimit(1) - e2:SetCode(EVENT_DAMAGE_STEP_END) - e2:SetCondition(c100000027.atcon) - e2:SetOperation(c100000027.atop) - c:RegisterEffect(e2) -end -function c100000027.ffilter1(c) - return c:IsRace(RACE_ROCK) and c:GetOwner()==Duel.GetTurnPlayer() -end -function c100000027.ffilter2(c) - return (c:GetLevel()==5 or c:GetLevel()==6) and c:GetOwner()~=Duel.GetTurnPlayer() and not c:IsType(TYPE_XYZ) -end -function c100000027.atcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler()==Duel.GetAttacker() and e:GetHandler():IsChainAttackable() - and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)~=0 -end -function c100000027.atop(e,tp,eg,ep,ev,re,r,rp) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EXTRA_ATTACK) - e3:SetCondition(c100000023.spcon) - e3:SetValue(1) - e:GetHandler():RegisterEffect(e3) -end -function c100000027.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(e:GetOwnerPlayer(),0,LOCATION_MZONE)>0 -end \ No newline at end of file diff --git a/script/c100000028.lua b/script/c100000028.lua deleted file mode 100644 index 96e2eb17..00000000 --- a/script/c100000028.lua +++ /dev/null @@ -1,47 +0,0 @@ ---古生代化石騎士 スカルキング -function c100000028.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFun2(c,c100000028.ffilter1,c100000028.ffilter2,1,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --chain attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCountLimit(1) - e2:SetCode(EVENT_DAMAGE_STEP_END) - e2:SetCondition(c100000028.atcon) - e2:SetOperation(c100000028.atop) - c:RegisterEffect(e2) - --pierce - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e3) -end -function c100000028.ffilter1(c) - return c:IsRace(RACE_ROCK) and c:GetOwner()==Duel.GetTurnPlayer() -end -function c100000028.ffilter2(c) - return c:GetLevel()>6 and c:GetOwner()~=Duel.GetTurnPlayer() and not c:IsType(TYPE_XYZ) -end -function c100000028.atcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler()==Duel.GetAttacker() and e:GetHandler():IsChainAttackable() - and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)~=0 -end -function c100000028.atop(e,tp,eg,ep,ev,re,r,rp) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EXTRA_ATTACK) - e3:SetCondition(c100000023.spcon) - e3:SetValue(1) - e:GetHandler():RegisterEffect(e3) -end -function c100000028.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(e:GetOwnerPlayer(),0,LOCATION_MZONE)>0 -end \ No newline at end of file diff --git a/script/c100000029.lua b/script/c100000029.lua deleted file mode 100644 index 2e22ede6..00000000 --- a/script/c100000029.lua +++ /dev/null @@ -1,66 +0,0 @@ ---古生代化石竜 スカルギオス -function c100000029.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFun2(c,c100000029.ffilter1,c100000029.ffilter2,1,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --atk/def swap - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetDescription(aux.Stringid(100000029,0)) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetCountLimit(1) - e2:SetHintTiming(TIMING_DAMAGE_CAL) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_DAMAGE_CAL) - e2:SetCondition(c100000029.condtion) - e2:SetTarget(c100000029.attg) - e2:SetOperation(c100000029.atop) - c:RegisterEffect(e2) - --pierce - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e3) -end -function c100000029.ffilter1(c) - return c:IsRace(RACE_ROCK) and c:GetOwner()==Duel.GetTurnPlayer() -end -function c100000029.ffilter2(c) - return c:GetLevel()>7 and c:GetOwner()~=Duel.GetTurnPlayer() and not c:IsType(TYPE_XYZ) -end -function c100000029.condtion(e) - local ph=Duel.GetCurrentPhase() - return (ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) - and Duel.GetAttacker()==e:GetHandler() and Duel.GetAttackTarget()~=nil -end -function c100000029.attg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tc=c:GetBattleTarget() - if chk==0 then return Duel.GetAttackTarget() end -end -function c100000029.atop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=c:GetBattleTarget() - local atk=tc:GetAttack() - local def=tc:GetDefence() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(def) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_DAMAGE_CAL) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetValue(atk) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_DAMAGE_CAL) - tc:RegisterEffect(e2) -end \ No newline at end of file diff --git a/script/c100000030.lua b/script/c100000030.lua deleted file mode 100644 index 096baedb..00000000 --- a/script/c100000030.lua +++ /dev/null @@ -1,40 +0,0 @@ ---次元均衡 -function c100000030.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c100000030.condition) - e1:SetTarget(c100000030.target) - e1:SetOperation(c100000030.activate) - c:RegisterEffect(e1) -end -function c100000030.cfilter(c,e,tp) - return c:IsRace(RACE_BEAST) and c:IsReason(REASON_BATTLE) and c:GetPreviousControler()==tp - and c:IsLocation(LOCATION_GRAVE) and c~=Duel.GetAttacker() and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000030.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000030.cfilter,1,nil,e,tp) -end -function c100000030.target(e,tp,eg,ep,ev,re,r,rp,chk) - local a=Duel.GetAttacker() - local tc=eg:GetFirst() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and a:IsCanBeEffectTarget(e) end - local g=Group.FromCards(a,tc) - Duel.SetTargetCard(g) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tc,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,a,1,0,0) -end -function c100000030.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local ex1,tg1=Duel.GetOperationInfo(0,CATEGORY_SPECIAL_SUMMON) - local ex2,tg2=Duel.GetOperationInfo(0,CATEGORY_REMOVE) - if tg1:GetFirst():IsRelateToEffect(e) then - Duel.SpecialSummon(tg1,0,tp,tp,false,false,POS_FACEUP) - end - if tg2:GetFirst():IsRelateToEffect(e) then - Duel.Remove(tg2,POS_FACEUP,REASON_EFFECT) - end -end diff --git a/script/c100000031.lua b/script/c100000031.lua deleted file mode 100644 index 7ebedd67..00000000 --- a/script/c100000031.lua +++ /dev/null @@ -1,63 +0,0 @@ ---神事の獣葬 -function c100000031.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DRAW) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_PLAYER_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1e0) - e1:SetTarget(c100000031.target) - e1:SetOperation(c100000031.activate) - c:RegisterEffect(e1) -end -function c100000031.cfilter(c,e,tp) - return c:IsRace(RACE_BEAST) and c:IsFaceup() and c:IsDestructable() -end -function c100000031.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(c100000031.cfilter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsPlayerCanDraw(tp,2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100000031.cfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100000031.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end - Duel.BreakEffect() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetCountLimit(1) - e1:SetOperation(c100000031.spop1) - if Duel.GetCurrentPhase()==PHASE_DRAW then - e1:SetReset(RESET_PHASE+PHASE_END,1) - else - e1:SetReset(RESET_PHASE+PHASE_END,2) - end - Duel.RegisterEffect(e1,tp) -end -function c100000031.spop1(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetCountLimit(1) - e1:SetTarget(c100000031.sptg2) - e1:SetOperation(c100000031.spop2) - e1:SetReset(RESET_PHASE+PHASE_STANDBY) - Duel.RegisterEffect(e1,tp) -end -function c100000031.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100000031.spop2(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000032.lua b/script/c100000032.lua deleted file mode 100644 index 58feabe5..00000000 --- a/script/c100000032.lua +++ /dev/null @@ -1,35 +0,0 @@ ---ダーク・アーキタイプ -function c100000032.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c100000032.condition) - e1:SetTarget(c100000032.target) - e1:SetOperation(c100000032.activate) - c:RegisterEffect(e1) -end -function c100000032.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) -end -function c100000032.filter(c,e,tp,dam) - return c:IsAttackBelow(dam) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000032.target(e,tp,eg,ep,ev,re,r,rp,chk) - local dam=Duel.GetBattleDamage(tp) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000032.filter,tp,LOCATION_DECK,0,1,nil,e,tp,dam) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000032.activate(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local dam=Duel.GetBattleDamage(tp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000032.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp,dam) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000033.lua b/script/c100000033.lua deleted file mode 100644 index e80d3738..00000000 --- a/script/c100000033.lua +++ /dev/null @@ -1,33 +0,0 @@ ---ダーク・サイコ・アイ -function c100000033.initial_effect(c) - --control - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_DESTROYED) - e1:SetTarget(c100000033.target) - e1:SetOperation(c100000033.operation) - c:RegisterEffect(e1) -end -function c100000033.filter(c,tp) - return c:IsFaceup() and c:GetOwner()==tp and c:IsControlerCanBeChanged() -end -function c100000033.filter(c) - return c:IsFaceup() and c:IsControlerCanBeChanged() -end -function c100000033.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c100000033.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000033.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,c100000033.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) -end -function c100000033.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - if not Duel.GetControl(tc,tp,PHASE_END,1) and not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - end -end diff --git a/script/c100000034.lua b/script/c100000034.lua deleted file mode 100644 index 0bc6908f..00000000 --- a/script/c100000034.lua +++ /dev/null @@ -1,69 +0,0 @@ ---トライアングル－Ｏ -function c100000034.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000034.dcon) - e1:SetTarget(c100000034.target) - e1:SetOperation(c100000034.activate) - c:RegisterEffect(e1) -end -function c100000034.cfilter(c,code) - return c:IsFaceup() and c:IsCode(code) -end -function c100000034.dcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000034.cfilter,tp,LOCATION_ONFIELD,0,1,nil,100000035) - and Duel.IsExistingMatchingCard(c100000034.cfilter,tp,LOCATION_ONFIELD,0,1,nil,100000036) - and Duel.IsExistingMatchingCard(c100000034.cfilter,tp,LOCATION_ONFIELD,0,1,nil,100000037) -end -function c100000034.filter(c) - return c:IsDestructable() -end -function c100000034.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(c100000034.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end - local sg=Duel.GetMatchingGroup(c100000034.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100000034.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100000034.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.Destroy(sg,REASON_EFFECT) - --reflect - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c100000034.condition) - e1:SetOperation(c100000034.operation) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c100000034.condition(e,tp,eg,ep,ev,re,r,rp) - local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_DAMAGE) - if ex then return true end - ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_RECOVER) - if not ex then return false end - if cp~=PLAYER_ALL then return Duel.IsPlayerAffectedByEffect(cp,EFFECT_REVERSE_RECOVER) - else return Duel.IsPlayerAffectedByEffect(0,EFFECT_REVERSE_RECOVER) - or Duel.IsPlayerAffectedByEffect(1,EFFECT_REVERSE_RECOVER) - end -end -function c100000034.operation(e,tp,eg,ep,ev,re,r,rp) - local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_REFLECT_DAMAGE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetLabel(cid) - e2:SetValue(c100000034.refcon) - e2:SetReset(RESET_CHAIN) - Duel.RegisterEffect(e2,tp) -end -function c100000034.refcon(e,re,val,r,rp,rc) - local cc=Duel.GetCurrentChain() - if cc==0 or bit.band(r,REASON_EFFECT)==0 then return end - local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID) - return cid==e:GetLabel() -end diff --git a/script/c100000035.lua b/script/c100000035.lua deleted file mode 100644 index 2d8f16e3..00000000 --- a/script/c100000035.lua +++ /dev/null @@ -1,25 +0,0 @@ ---水晶ドクロ -function c100000035.initial_effect(c) - --send to grave - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c100000035.target) - e1:SetOperation(c100000035.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c100000035.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,1000) -end -function c100000035.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(tp,1000,REASON_EFFECT) -end diff --git a/script/c100000036.lua b/script/c100000036.lua deleted file mode 100644 index 2f4e9bcc..00000000 --- a/script/c100000036.lua +++ /dev/null @@ -1,24 +0,0 @@ ---アショカ・ピラー -function c100000036.initial_effect(c) - --damage - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_LEAVE_FIELD) - e1:SetCondition(c100000036.dmcon) - e1:SetTarget(c100000036.dmtg) - e1:SetOperation(c100000036.dmop) - c:RegisterEffect(e1) -end -function c100000036.dmcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_DESTROY) and c:IsPreviousPosition(POS_FACEUP) - and (not c:IsReason(REASON_BATTLE) or bit.band(c:GetBattlePosition(),POS_FACEUP)~=0) -end -function c100000036.dmtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,2000) -end -function c100000036.dmop(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(tp,2000,REASON_EFFECT) -end diff --git a/script/c100000037.lua b/script/c100000037.lua deleted file mode 100644 index 63c64adb..00000000 --- a/script/c100000037.lua +++ /dev/null @@ -1,35 +0,0 @@ ---カブレラ・ストーン -function c100000037.initial_effect(c) - --self destroy - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_SELF_DESTROY) - e1:SetCondition(c100000037.sdcon) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetCondition(c100000037.dmcon) - e2:SetTarget(c100000037.dmtg) - e2:SetOperation(c100000037.dmop) - c:RegisterEffect(e2) -end -function c100000037.sdcon(e) - return e:GetHandler():IsPosition(POS_FACEUP_DEFENCE) -end -function c100000037.dmcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_DESTROY) and c:IsPreviousPosition(POS_FACEUP) - and (not c:IsReason(REASON_BATTLE) or bit.band(c:GetBattlePosition(),POS_FACEUP)~=0) -end -function c100000037.dmtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,2000) -end -function c100000037.dmop(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(tp,2000,REASON_EFFECT) -end diff --git a/script/c100000038.lua b/script/c100000038.lua deleted file mode 100644 index 247a02c5..00000000 --- a/script/c100000038.lua +++ /dev/null @@ -1,35 +0,0 @@ ---オーロラ・ドロー -function c100000038.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000038.ntcon) - e1:SetTarget(c100000038.target) - e1:SetOperation(c100000038.activate) - c:RegisterEffect(e1) -end -function c100000038.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x3013) -end -function c100000038.cfilter2(c) - return c:GetCode()==100000038 -end -function c100000038.ntcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c==nil then return true end - return Duel.IsExistingMatchingCard(c100000038.cfilter,tp,LOCATION_MZONE,0,1,nil) and (Duel.GetFieldGroupCount(c:GetControler(),LOCATION_HAND,0)==1 and Duel.IsExistingMatchingCard(c100000038.cfilter2,tp,LOCATION_HAND,0,1,nil)) - or Duel.GetFieldGroupCount(c:GetControler(),LOCATION_HAND,0)==0 -end -function c100000038.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100000038.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c100000039.lua b/script/c100000039.lua deleted file mode 100644 index dfdc7b41..00000000 --- a/script/c100000039.lua +++ /dev/null @@ -1,46 +0,0 @@ ---ゴースト・コンバート -function c100000039.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c100000039.condition) - e1:SetCost(c100000039.cost) - e1:SetTarget(c100000039.target) - e1:SetOperation(c100000039.activate) - c:RegisterEffect(e1) -end -function c100000039.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x3013) -end -function c100000039.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000039.cfilter,tp,LOCATION_MZONE,0,1,nil) and rp~=tp -end -function c100000039.costfilter1(c) - return c:IsRace(RACE_MACHINE) and c:IsFaceup() and c:IsAbleToRemoveAsCost() -end -function c100000039.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000039.costfilter1,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOREMOVE) - local g=Duel.SelectMatchingCard(tp,c100000039.costfilter1,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c100000039.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) -end -function c100000039.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsCanTurnSet() then - Duel.BreakEffect() - c:CancelToGrave() - Duel.ChangePosition(c,POS_FACEDOWN) - Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0) - end -end \ No newline at end of file diff --git a/script/c100000040.lua b/script/c100000040.lua deleted file mode 100644 index a03e86b8..00000000 --- a/script/c100000040.lua +++ /dev/null @@ -1,29 +0,0 @@ ---インフィニティ・フォース -function c100000040.initial_effect(c) - --recover - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_DAMAGE) - e1:SetCondition(c100000040.regcon) - e1:SetTarget(c100000040.rectg) - e1:SetOperation(c100000040.recop) - c:RegisterEffect(e1) -end -function c100000040.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x3013) -end -function c100000040.regcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000040.cfilter,tp,LOCATION_MZONE,0,1,nil) - and ep==tp -end -function c100000040.rectg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100000040.recop(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c100000041.lua b/script/c100000041.lua deleted file mode 100644 index b7dcf04c..00000000 --- a/script/c100000041.lua +++ /dev/null @@ -1,27 +0,0 @@ ---風化戦士 -function c100000041.initial_effect(c) - --atk - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetProperty(EFFECT_FLAG_REPEAT) - e1:SetCondition(c100000041.atkcon) - e1:SetOperation(c100000041.atkop) - c:RegisterEffect(e1) -end -function c100000041.atkcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000041.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-600) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c100000042.lua b/script/c100000042.lua deleted file mode 100644 index 0f0594fa..00000000 --- a/script/c100000042.lua +++ /dev/null @@ -1,31 +0,0 @@ ---アーマード・ホワイトベア -function c100000042.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c100000042.condition) - e1:SetTarget(c100000042.target) - e1:SetOperation(c100000042.operation) - c:RegisterEffect(e1) -end -function c100000042.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsReason(REASON_DESTROY) -end -function c100000042.filter(c,e,tp) - return c:IsLevelBelow(4) and c:IsRace(RACE_BEAST) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000042.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000042.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c100000042.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000042.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000043.lua b/script/c100000043.lua deleted file mode 100644 index f3f2bc64..00000000 --- a/script/c100000043.lua +++ /dev/null @@ -1,51 +0,0 @@ ---スキエルＡ５ -function c100000043.initial_effect(c) - c:EnableReviveLimit() - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000043.spcon) - e1:SetOperation(c100000043.spop) - c:RegisterEffect(e1) - --selfdes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_SELF_DESTROY) - e2:SetCondition(c100000043.sdcon2) - c:RegisterEffect(e2) - --direct attack - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_DIRECT_ATTACK) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetTarget(c100000043.tg) - c:RegisterEffect(e3) -end -function c100000043.spfilter(c,code) - return c:GetCode()==code -end -function c100000043.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(tp,c100000043.spfilter,1,nil,100000045) -end -function c100000043.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g1=Duel.SelectReleaseGroup(tp,c100000043.spfilter,1,1,nil,100000045) - Duel.Release(g1,REASON_COST) -end -function c100000043.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x3013) -end -function c100000043.sdcon2(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c100000043.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) -end -function c100000043.tg(e,c) - return c:IsType(TYPE_MONSTER) -end \ No newline at end of file diff --git a/script/c100000044.lua b/script/c100000044.lua deleted file mode 100644 index caa462bf..00000000 --- a/script/c100000044.lua +++ /dev/null @@ -1,85 +0,0 @@ ---スキエルＣ５ -function c100000044.initial_effect(c) - c:EnableReviveLimit() - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000044.spcon) - e1:SetOperation(c100000044.spop) - c:RegisterEffect(e1) - --selfdes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_SELF_DESTROY) - e2:SetCondition(c100000044.sdcon2) - c:RegisterEffect(e2) - --battle target - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000044,1)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BE_BATTLE_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCondition(c100000044.cbcon) - e3:SetOperation(c100000044.cbop) - c:RegisterEffect(e3) - --damage - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DAMAGE) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e4:SetRange(LOCATION_MZONE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetCode(EVENT_BATTLE_DESTROYED) - e4:SetCondition(c100000044.descon) - e4:SetTarget(c100000044.tg) - e4:SetOperation(c100000044.op) - c:RegisterEffect(e4) -end -function c100000044.spfilter(c,code) - return c:GetCode()==code -end -function c100000044.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(tp,c100000044.spfilter,1,nil,100000046) -end -function c100000044.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g1=Duel.SelectReleaseGroup(tp,c100000044.spfilter,1,1,nil,100000046) - Duel.Release(g1,REASON_COST) -end -function c100000044.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x3013) -end -function c100000044.sdcon2(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c100000044.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) -end -function c100000044.cbcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bt=eg:GetFirst() - return bt:GetControler()==c:GetControler() -end -function c100000044.cbop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateAttack() -end -function c100000044.cfil(c,tp) - return c:IsLocation(LOCATION_GRAVE) and c:IsReason(REASON_BATTLE) and c:GetPreviousControler()==tp -end -function c100000044.descon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000044.cfil,1,nil,1-tp) -end -function c100000044.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(300) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,300) -end -function c100000044.op(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000045.lua b/script/c100000045.lua deleted file mode 100644 index b973a2b6..00000000 --- a/script/c100000045.lua +++ /dev/null @@ -1,82 +0,0 @@ ---スキエルＡ３ -function c100000045.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000045.spcon) - e1:SetOperation(c100000045.spop) - c:RegisterEffect(e1) - --selfdes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_SELF_DESTROY) - e2:SetCondition(c100000045.sdcon2) - c:RegisterEffect(e2) - --direct attack - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000045,1)) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCondition(c100000045.atcon) - e3:SetTarget(c100000045.attg) - e3:SetOperation(c100000045.atop) - c:RegisterEffect(e3) -end -function c100000045.spfilter(c,code) - return c:GetCode()==code -end -function c100000045.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(tp,c100000045.spfilter,1,nil,100000058) -end -function c100000045.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g1=Duel.SelectReleaseGroup(tp,c100000045.spfilter,1,1,nil,100000058) - Duel.Release(g1,REASON_COST) -end -function c100000045.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x3013) -end -function c100000045.sdcon2(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c100000045.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) -end -function c100000045.atcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnCount()~=1 and Duel.GetCurrentPhase()~=0 -end -function c100000045.filter(c) - return c:IsFaceup() and not c:IsHasEffect(EFFECT_CANNOT_ATTACK) -end -function c100000045.attg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000045.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000045.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100000045.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100000045.atop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DIRECT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_SET_ATTACK) - e2:SetValue(tc:GetAttack()/2) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e2) - end -end diff --git a/script/c100000046.lua b/script/c100000046.lua deleted file mode 100644 index d5bdd91a..00000000 --- a/script/c100000046.lua +++ /dev/null @@ -1,57 +0,0 @@ ---スキエルＣ３ -function c100000046.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000046.spcon) - e1:SetOperation(c100000046.spop) - c:RegisterEffect(e1) - --selfdes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_SELF_DESTROY) - e2:SetCondition(c100000046.sdcon2) - c:RegisterEffect(e2) - --battle target - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000046,1)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BE_BATTLE_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCondition(c100000046.cbcon) - e3:SetOperation(c100000046.cbop) - c:RegisterEffect(e3) -end -function c100000046.spfilter(c,code) - return c:GetCode()==code -end -function c100000046.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(tp,c100000046.spfilter,1,nil,100000060) -end -function c100000046.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g1=Duel.SelectReleaseGroup(tp,c100000046.spfilter,1,1,nil,100000060) - Duel.Release(g1,REASON_COST) -end -function c100000046.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x3013) -end -function c100000046.sdcon2(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c100000046.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) -end -function c100000046.cbcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bt=eg:GetFirst() - return bt:GetControler()==c:GetControler() -end -function c100000046.cbop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateAttack() -end \ No newline at end of file diff --git a/script/c100000047.lua b/script/c100000047.lua deleted file mode 100644 index 92d7b433..00000000 --- a/script/c100000047.lua +++ /dev/null @@ -1,68 +0,0 @@ ---ワイゼルＧ３ -function c100000047.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000047.spcon) - e1:SetOperation(c100000047.spop) - c:RegisterEffect(e1) - --selfdes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_SELF_DESTROY) - e2:SetCondition(c100000047.sdcon2) - c:RegisterEffect(e2) - --change battle target - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000047,1)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BE_BATTLE_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c100000047.cbcon) - e3:SetOperation(c100000047.cbop) - c:RegisterEffect(e3) - --battle indes - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetRange(LOCATION_MZONE) - e4:SetCode(EFFECT_INDESTRUCTABLE_COUNT) - e4:SetCountLimit(1) - e4:SetValue(c100000047.valcon) - c:RegisterEffect(e4) -end -function c100000047.spfilter(c,code) - return c:GetCode()==code -end -function c100000047.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(tp,c100000047.spfilter,1,nil,100000053) -end -function c100000047.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g1=Duel.SelectReleaseGroup(tp,c100000047.spfilter,1,1,nil,100000053) - Duel.Release(g1,REASON_COST) -end -function c100000047.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x3013) -end -function c100000047.sdcon2(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c100000047.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) -end -function c100000047.cbcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bt=eg:GetFirst() - return c~=bt and bt:GetControler()==c:GetControler() -end -function c100000047.cbop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeAttackTarget(e:GetHandler()) -end -function c100000047.valcon(e,re,r,rp) - return bit.band(r,REASON_BATTLE)~=0 -end \ No newline at end of file diff --git a/script/c100000048.lua b/script/c100000048.lua deleted file mode 100644 index 79cf826a..00000000 --- a/script/c100000048.lua +++ /dev/null @@ -1,63 +0,0 @@ ---ワイゼルＡ３ -function c100000048.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000048.spcon) - e1:SetOperation(c100000048.spop) - c:RegisterEffect(e1) - --selfdes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_SELF_DESTROY) - e2:SetCondition(c100000048.sdcon2) - c:RegisterEffect(e2) - --chain attack - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_ATTACK_ANNOUNCE) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c100000048.piercecon) - e3:SetOperation(c100000048.piercetg) - c:RegisterEffect(e3) -end -function c100000048.spfilter(c,code) - return c:GetCode()==code -end -function c100000048.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(tp,c100000048.spfilter,1,nil,100000052) -end -function c100000048.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g1=Duel.SelectReleaseGroup(tp,c100000048.spfilter,1,1,nil,100000052) - Duel.Release(g1,REASON_COST) -end -function c100000048.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x3013) -end -function c100000048.sdcon2(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c100000048.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) -end -function c100000048.piercecon(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - return d and a:IsControler(tp) and d:IsDefencePos() and a:IsSetCard(0x3013) -end -function c100000048.piercetg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tc=Duel.GetAttacker() - if tc and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_PIERCE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end diff --git a/script/c100000049.lua b/script/c100000049.lua deleted file mode 100644 index c3fbc3b6..00000000 --- a/script/c100000049.lua +++ /dev/null @@ -1,68 +0,0 @@ ---ワイゼルＴ３ -function c100000049.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000049.spcon) - e1:SetOperation(c100000049.spop) - c:RegisterEffect(e1) - --selfdes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_SELF_DESTROY) - e2:SetCondition(c100000049.sdcon2) - c:RegisterEffect(e2) - --negate - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000049,1)) - e3:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCode(EVENT_CHAINING) - e3:SetCondition(c100000049.discon) - e3:SetTarget(c100000049.distg) - e3:SetOperation(c100000049.disop) - c:RegisterEffect(e3) -end -function c100000049.spfilter(c,code) - return c:GetCode()==code -end -function c100000049.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(tp,c100000049.spfilter,1,nil,100000051) -end -function c100000049.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g1=Duel.SelectReleaseGroup(tp,c100000049.spfilter,1,1,nil,100000051) - Duel.Release(g1,REASON_COST) -end -function c100000049.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x3013) -end -function c100000049.sdcon2(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c100000049.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) -end -function c100000049.discon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) -end -function c100000049.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c100000049.disop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100000050.lua b/script/c100000050.lua deleted file mode 100644 index a0898a24..00000000 --- a/script/c100000050.lua +++ /dev/null @@ -1,127 +0,0 @@ ---機皇帝ワイゼル∞ -function c100000050.initial_effect(c) - --atkup - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) - e1:SetValue(c100000050.operation) - c:RegisterEffect(e1) - --defup - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_ATTACK) - c:RegisterEffect(e2) - --cannot be target - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetValue(c100000050.efr) - c:RegisterEffect(e3) - --equip - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(100000050,1)) - e4:SetCategory(CATEGORY_EQUIP) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetRange(LOCATION_MZONE) - e4:SetCountLimit(1) - e4:SetTarget(c100000050.eqtg) - e4:SetOperation(c100000050.eqop) - c:RegisterEffect(e4) - --only 1 can exists - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_CANNOT_SUMMON) - e5:SetCondition(c100000050.excon) - c:RegisterEffect(e5) - local e6=e5:Clone() - e6:SetCode(EFFECT_CANNOT_FLIP_SUMMON) - c:RegisterEffect(e6) - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_SINGLE) - e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e7:SetCode(EFFECT_SPSUMMON_CONDITION) - e7:SetValue(c100000050.splimit) - c:RegisterEffect(e7) - local e8=Effect.CreateEffect(c) - e8:SetType(EFFECT_TYPE_SINGLE) - e8:SetCode(EFFECT_SELF_DESTROY) - e8:SetCondition(c100000050.descon) - c:RegisterEffect(e8) -end -function c100000050.filter(c) - return c:IsFaceup() and c:IsSetCard(0x300) -end -function c100000050.operation(e,c) - local wup=0 - local wg=Duel.GetMatchingGroup(c100000050.filter,c:GetControler(),LOCATION_MZONE,0,c) - local wbc=wg:GetFirst() - while wbc do - wup=wup+wbc:GetAttack() - wbc=wg:GetNext() - end - return wup -end -function c100000050.efr(e,re) - return re:GetHandler():GetControler()~=e:GetHandler():GetControler() -end -function c100000050.eqfilter(c) - return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:IsAbleToChangeControler() -end -function c100000050.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c100000050.eqfilter(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c100000050.eqfilter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,c100000050.eqfilter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) -end -function c100000050.eqlimit(e,c) - return e:GetOwner()==c -end -function c100000050.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - if c:IsFaceup() and c:IsRelateToEffect(e) then - local atk=tc:GetTextAttack() - if atk<0 then atk=0 end - if not Duel.Equip(tp,tc,c,false) then return end - --Add Equip limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c100000050.eqlimit) - tc:RegisterEffect(e1) - if atk>0 then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(atk) - tc:RegisterEffect(e2) - end - else Duel.SendtoGrave(tc,REASON_EFFECT) end - end -end -function c100000050.exfilter(c,fid) - return c:IsFaceup() and c:IsSetCard(0x3013) and (fid==nil or c:GetFieldID()0 - and Duel.IsExistingTarget(c100000056.eqfilter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,c100000056.eqfilter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) -end -function c100000056.eqlimit(e,c) - return e:GetOwner()==c -end -function c100000056.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - if c:IsFaceup() and c:IsRelateToEffect(e) then - local atk=tc:GetTextAttack() - if atk<0 then atk=0 end - if not Duel.Equip(tp,tc,c,false) then return end - --Add Equip limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c100000056.eqlimit) - tc:RegisterEffect(e1) - if atk>0 then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(atk) - tc:RegisterEffect(e2) - end - else Duel.SendtoGrave(tc,REASON_EFFECT) end - end -end -function c100000056.exfilter(c,fid) - return c:IsFaceup() and c:IsSetCard(0x3013) and (fid==nil or c:GetFieldID()0 - and Duel.IsExistingTarget(c100000061.eqfilter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,c100000061.eqfilter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) -end -function c100000061.eqlimit(e,c) - return e:GetOwner()==c -end -function c100000061.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - if c:IsFaceup() and c:IsRelateToEffect(e) then - local atk=tc:GetTextAttack() - if atk<0 then atk=0 end - if not Duel.Equip(tp,tc,c,false) then return end - --Add Equip limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c100000061.eqlimit) - tc:RegisterEffect(e1) - if atk>0 then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(atk) - tc:RegisterEffect(e2) - end - else Duel.SendtoGrave(tc,REASON_EFFECT) end - end -end -function c100000061.exfilter(c,fid) - return c:IsFaceup() and c:IsSetCard(0x3013) and (fid==nil or c:GetFieldID()0 - and Duel.IsExistingTarget(c100000068.filter,tp,0x13,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000068.filter,tp,0x13,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000068.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP)==0 then return end - Duel.Equip(tp,c,tc) - c:CancelToGrave() - --Equip limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(c100000068.eqlimit) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c100000068.eqlimit(e,c) - return c:GetCode()==63468625 -end -function c100000068.cosqli(c) - return c:IsAbleToRemove() and c:IsSetCard(0x300) -end -function c100000068.cosqli2(c,e) - return c==e:GetHandler():GetEquipTarget() -end -function c100000068.decon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return Duel.IsExistingMatchingCard(c100000068.cosqli,c:GetControler(),LOCATION_GRAVE,0,1,nil) -end -function c100000068.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - return eg:IsExists(c100000068.cosqli2,1,nil,e) - end - return Duel.SelectYesNo(tp,aux.Stringid(100000068,0)) -end -function c100000068.value(e,c) - return c==e:GetHandler():GetEquipTarget() -end -function c100000068.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=Duel.SelectMatchingCard(c:GetControler(),c100000068.cosqli,c:GetControler(),LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000069.lua b/script/c100000069.lua deleted file mode 100644 index 0967343a..00000000 --- a/script/c100000069.lua +++ /dev/null @@ -1,47 +0,0 @@ ---暗黒の召喚神 -function c100000069.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000069,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c100000069.cost) - e1:SetTarget(c100000069.target) - e1:SetOperation(c100000069.operation) - c:RegisterEffect(e1) -end -function c100000069.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() and not Duel.CheckAttackActivity(tp) end - Duel.Release(e:GetHandler(),REASON_COST) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c100000069.filter(c,code,e,tp) - return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000069.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 - and Duel.IsExistingMatchingCard(c100000069.filter,tp,LOCATION_GRAVE,0,1,nil,6007213,e,tp) - and Duel.IsExistingMatchingCard(c100000069.filter,tp,LOCATION_GRAVE,0,1,nil,32491822,e,tp) - and Duel.IsExistingMatchingCard(c100000069.filter,tp,LOCATION_GRAVE,0,1,nil,69890967,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,LOCATION_GRAVE) -end -function c100000069.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=2 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g1=Duel.SelectMatchingCard(tp,c100000069.filter,tp,LOCATION_GRAVE,0,1,1,nil,6007213,e,tp) - local g2=Duel.SelectMatchingCard(tp,c100000069.filter,tp,LOCATION_GRAVE,0,1,1,nil,32491822,e,tp) - g1:Merge(g2) - local g3=Duel.SelectMatchingCard(tp,c100000069.filter,tp,LOCATION_GRAVE,0,1,1,nil,69890967,e,tp) - g1:Merge(g3) - if g1:GetCount()>2 then - Duel.SpecialSummon(g1,0,tp,tp,true,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000070.lua b/script/c100000070.lua deleted file mode 100644 index 4876052a..00000000 --- a/script/c100000070.lua +++ /dev/null @@ -1,16 +0,0 @@ ---未来破壊 -function c100000070.initial_effect(c) - --discard deck - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_DECKDES) - e1:SetProperty(EFFECT_FLAG_REPEAT) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetOperation(c100000070.recop) - c:RegisterEffect(e1) -end -function c100000070.recop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=Duel.GetFieldGroupCount(c:GetControler(),LOCATION_HAND,0) - Duel.DiscardDeck(tp,g,REASON_EFFECT) -end diff --git a/script/c100000071.lua b/script/c100000071.lua deleted file mode 100644 index 287f68e4..00000000 --- a/script/c100000071.lua +++ /dev/null @@ -1,34 +0,0 @@ ---師弟の絆 -function c100000071.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000071.condition) - e1:SetTarget(c100000071.target) - e1:SetOperation(c100000071.activate) - c:RegisterEffect(e1) -end -function c100000071.cfilter(c) - return c:IsFaceup() and c:IsCode(46986414) -end -function c100000071.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000071.cfilter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c100000071.filter(c,e,tp) - return c:IsCode(38033121) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000071.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000071.filter,tp,0x13,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13) -end -function c100000071.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000071.filter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end diff --git a/script/c100000072.lua b/script/c100000072.lua deleted file mode 100644 index 1c4119c3..00000000 --- a/script/c100000072.lua +++ /dev/null @@ -1,43 +0,0 @@ ---カオス・ブラスト -function c100000072.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000072.condition) - e1:SetTarget(c100000072.target) - e1:SetOperation(c100000072.activate) - c:RegisterEffect(e1) -end -function c100000072.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000072.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) -end -function c100000072.tgfilter(c) - return c:IsType(TYPE_MONSTER) and c:GetLevel()==1 and c:IsRace(RACE_MACHINE) and c:IsAbleToGrave() -end -function c100000072.filter(c) - return c:IsFaceup() and c:GetLevel()<5 and c:IsDestructable() and not c:IsType(TYPE_XYZ) -end -function c100000072.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(c100000072.tgfilter,tp,LOCATION_DECK,0,3,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000072.tgfilter,tp,LOCATION_DECK,0,3,3,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - end - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(c100000072.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100000072.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler()) - Duel.ShuffleDeck(c:GetControler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100000072.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c100000073.lua b/script/c100000073.lua deleted file mode 100644 index 278d822d..00000000 --- a/script/c100000073.lua +++ /dev/null @@ -1,47 +0,0 @@ ---黒魔族復活の棺 -function c100000073.initial_effect(c) - --Activate(summon) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCondition(c100000073.condition) - e1:SetTarget(c100000073.target) - e1:SetOperation(c100000073.activate) - c:RegisterEffect(e1) -end -function c100000073.ter(c) - return c:IsType(TYPE_MONSTER) -end -function c100000073.condition(c) - return Duel.IsExistingMatchingCard(c100000073.ter,tp,LOCATION_MZONE,0,1,nil) -end -function c100000073.filt(c,tp) - return c:IsFaceup() and c:GetSummonPlayer()~=tp and c:IsAbleToGrave() -end -function c100000073.target(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=eg:GetFirst() - if chk==0 then return eg:IsExists(c100000073.filt,1,nil,tp) end - local g=eg:Filter(c100000073.filter,nil,tp) - Duel.SetTargetCard(eg) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0) -end -function c100000073.filter(c,e,tp) - return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000073.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - local td=Duel.SelectMatchingCard(tp,c100000073.ter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) - if td:GetCount()>0 and tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.SendtoGrave(td,REASON_EFFECT) - Duel.SendtoGrave(tc,REASON_EFFECT) - end - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c100000073.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000073.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000073.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) -end diff --git a/script/c100000074.lua b/script/c100000074.lua deleted file mode 100644 index 6f4194c7..00000000 --- a/script/c100000074.lua +++ /dev/null @@ -1,36 +0,0 @@ ---大牛鬼 -function c100000074.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000074.spcon) - e1:SetOperation(c100000074.spop) - c:RegisterEffect(e1) - --chain attack - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000074,0)) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_BATTLE_DESTROYING) - e3:SetOperation(c100000074.atop) - c:RegisterEffect(e3) -end -function c100000074.spfilter(c,code) - return c:GetCode()==code -end -function c100000074.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(tp,c100000074.spfilter,1,nil,48649353) -end -function c100000074.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g1=Duel.SelectReleaseGroup(tp,c100000074.spfilter,1,1,nil,48649353) - Duel.Release(g1,REASON_COST) -end -function c100000074.atop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChainAttack() -end \ No newline at end of file diff --git a/script/c100000075.lua b/script/c100000075.lua deleted file mode 100644 index 7dc06c70..00000000 --- a/script/c100000075.lua +++ /dev/null @@ -1,19 +0,0 @@ ---レッド・ノヴァ -function c100000075.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000075.spcon) - c:RegisterEffect(e1) -end -function c100000075.filter(c) - return c:IsFaceup() and c:GetCode()==70902743 -end -function c100000075.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and - Duel.IsExistingMatchingCard(c100000075.filter,c:GetControler(),LOCATION_MZONE,0,1,nil) -end diff --git a/script/c100000076.lua b/script/c100000076.lua deleted file mode 100644 index 8fc4c59f..00000000 --- a/script/c100000076.lua +++ /dev/null @@ -1,40 +0,0 @@ ---レベル・クロス -function c100000076.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000076.condition) - e1:SetCost(c100000076.cost) - e1:SetTarget(c100000076.target) - e1:SetOperation(c100000076.activate) - c:RegisterEffect(e1) -end -function c100000076.filter(c) - return c:IsFaceup() and c:IsLevelBelow(4) -end -function c100000076.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingTarget(c100000076.filter,tp,LOCATION_MZONE,0,1,nil) -end -function c100000076.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c100000076.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000076.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000076.filter,tp,LOCATION_MZONE,0,1,nil) end - return true -end -function c100000076.activate(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local dg=Duel.GetMatchingGroup(c100000076.filter,tp,LOCATION_MZONE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local tdg=dg:Select(tp,1,1,nil) - local tc=tdg:GetFirst() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()*2) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) -end diff --git a/script/c100000077.lua b/script/c100000077.lua deleted file mode 100644 index e894f55a..00000000 --- a/script/c100000077.lua +++ /dev/null @@ -1,22 +0,0 @@ ---ナンバーズ・ウォール -function c100000077.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_DRAW_PHASE) - c:RegisterEffect(e1) - --indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_ONFIELD,0) - e2:SetTarget(c100000077.infilter) - e2:SetValue(1) - c:RegisterEffect(e2) -end -function c100000077.infilter(e,c) - return c:IsSetCard(0x48) and c:IsType(TYPE_MONSTER) -end diff --git a/script/c100000078.lua b/script/c100000078.lua deleted file mode 100644 index ebd142d9..00000000 --- a/script/c100000078.lua +++ /dev/null @@ -1,32 +0,0 @@ ---速攻召喚 -function c100000078.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000078.target) - e1:SetOperation(c100000078.activate) - c:RegisterEffect(e1) -end -function c100000078.filter(c) - return c:IsSummonable(true,nil) or c:IsMSetable(true,nil) -end -function c100000078.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000078.filter,tp,LOCATION_HAND,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0) -end -function c100000078.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON) - local g=Duel.SelectMatchingCard(tp,c100000078.filter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil) - local tc=g:GetFirst() - if tc then - local s1=tc:IsSummonable(true,nil) - local s2=tc:IsMSetable(true,nil) - if (s1 and s2 and Duel.SelectOption(tp,aux.Stringid(100000078,2),aux.Stringid(100000078,3))==0) or not s2 then - Duel.Summon(tp,tc,true,nil) - else - Duel.MSet(tp,tc,true,nil) - end - end -end diff --git a/script/c100000079.lua b/script/c100000079.lua deleted file mode 100644 index 53c7406a..00000000 --- a/script/c100000079.lua +++ /dev/null @@ -1,67 +0,0 @@ ---スクラップ・フュージョン -function c100000079.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000079.target) - e1:SetOperation(c100000079.activate) - c:RegisterEffect(e1) -end -function c100000079.filter1(c,e) - return c:IsCanBeFusionMaterial() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e) -end -function c100000079.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) - and c:CheckFusionMaterial(m,nil,chkf) -end -function c100000079.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000079.filter1,tp,0,LOCATION_GRAVE,nil,e) - local res=Duel.IsExistingMatchingCard(c100000079.filter2,tp,LOCATION_EXTRA,LOCATION_EXTRA,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c100000079.filter2,tp,LOCATION_EXTRA,LOCATION_EXTRA,1,nil,e,tp,mg2,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000079.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000079.filter1,tp,0,LOCATION_GRAVE,nil,e) - local sg1=Duel.GetMatchingGroup(c100000079.filter2,tp,LOCATION_EXTRA,LOCATION_EXTRA,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c100000079.filter2,tp,LOCATION_EXTRA,LOCATION_EXTRA,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end diff --git a/script/c100000080.lua b/script/c100000080.lua deleted file mode 100644 index 6d487606..00000000 --- a/script/c100000080.lua +++ /dev/null @@ -1,140 +0,0 @@ ---無限の降魔鏡 -function c100000080.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --SpecialSummon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) - e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetProperty(EFFECT_FLAG_REPEAT) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000080.regcon) - e2:SetOperation(c100000080.operation) - c:RegisterEffect(e2) - --SpecialSummon - local e3=e2:Clone() - e3:SetCondition(c100000080.regcon2) - e3:SetOperation(c100000080.operation2) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) - e4:SetRange(LOCATION_SZONE) - e4:SetCode(EVENT_LEAVE_FIELD) - e4:SetCondition(c100000080.spcon) - e4:SetOperation(c100000080.spopera) - c:RegisterEffect(e4) -end -function c100000080.cfilter(c) - return c:IsFaceup() and c:GetCode()==100000081 -end -function c100000080.regcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000080.cfilter,tp,LOCATION_MZONE,0,1,nil) and Duel.GetTurnPlayer()==tp and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 -end -function c100000080.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local r=Duel.GetLocationCount(tp,LOCATION_MZONE) - if r<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,100000082,0,0x4011,3000,1000,10,RACE_FIEND,ATTRIBUTE_DARK) then return end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - while r do - local token=Duel.CreateToken(tp,100000082) - c:CreateRelation(token,RESET_EVENT+0x1fe0000) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - --battle indestructable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - token:RegisterEffect(e1,true) - --CANNOT_DIRECT_ATTACK - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - token:RegisterEffect(e2,true) - --damage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000080,0)) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetCode(EVENT_BATTLE_DESTROYING) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetTarget(c100000080.damtg) - e3:SetOperation(c100000080.damop) - token:RegisterEffect(e3,true) - Duel.SpecialSummonComplete() - if r==0 then r=nil end - if r~=nil then r=r-1 end - end -end -function c100000080.regcon2(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000080.cfilter,tp,0,LOCATION_MZONE,1,nil) and Duel.GetTurnPlayer()~=tp and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 -end -function c100000080.operation2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local r=Duel.GetLocationCount(1-tp,LOCATION_MZONE) - if r<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,100000082,0,0x4011,3000,1000,10,RACE_FIEND,ATTRIBUTE_DARK) then return end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - while r do - local token=Duel.CreateToken(tp,100000082) - c:CreateRelation(token,RESET_EVENT+0x1fe0000) - Duel.SpecialSummonStep(token,0,1-tp,1-tp,false,false,POS_FACEUP) - --battle indestructable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - token:RegisterEffect(e1,true) - --CANNOT_DIRECT_ATTACK - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - token:RegisterEffect(e2,true) - --damage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000080,0)) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetCode(EVENT_BATTLE_DESTROYING) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetTarget(c100000080.damtg) - e3:SetOperation(c100000080.damop) - token:RegisterEffect(e3,true) - Duel.SpecialSummonComplete() - if r==0 then r=nil end - if r~=nil then r=r-1 end - end -end -function c100000080.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(700) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,700) -end -function c100000080.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c100000080.tokendes(e) - return not Duel.IsExistingMatchingCard(c100000080.cfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c100000080.cfilter2(c,tp,code) - return c:IsCode(code) and c:IsReason(REASON_DESTROY) -end -function c100000080.cfilter3(c) - return c:GetCode()==100000082 and c:IsDestructable() -end -function c100000080.spcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000080.cfilter2,1,nil,tp,100000081) or eg:IsExists(c100000080.cfilter2,1,nil,1-tp,100000081) and Duel.IsExistingMatchingCard(c100000080.cfilter3,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) -end -function c100000080.spopera(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local sg=Duel.GetMatchingGroup(c100000080.cfilter3,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) - Duel.Destroy(sg,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000081.lua b/script/c100000081.lua deleted file mode 100644 index 1a930e9f..00000000 --- a/script/c100000081.lua +++ /dev/null @@ -1,33 +0,0 @@ ---闇の神－ダークゴッド -function c100000081.initial_effect(c) - --battle indestructable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - c:RegisterEffect(e1) - --CANNOT_DIRECT_ATTACK - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - c:RegisterEffect(e2) - --damage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000081,0)) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetCode(EVENT_BATTLE_DESTROYING) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetTarget(c100000081.damtg) - e3:SetOperation(c100000081.damop) - c:RegisterEffect(e3) -end -function c100000081.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(700) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,700) -end -function c100000081.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000083.lua b/script/c100000083.lua deleted file mode 100644 index 81af88aa..00000000 --- a/script/c100000083.lua +++ /dev/null @@ -1,46 +0,0 @@ ---幻魔の扉 -function c100000083.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000083.target) - e1:SetOperation(c100000083.activate) - c:RegisterEffect(e1) -end -function c100000083.filter(c,e,tp) - return c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) -end -function c100000083.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100000083.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(sg,REASON_EFFECT) - Duel.BreakEffect() - if chk==0 then return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000083.filter,tp,0,LOCATION_GRAVE,1,nil,e) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end - local tc1=Duel.SelectMatchingCard(tp,c100000083.filter,tp,0,LOCATION_GRAVE,1,1,nil,e,tp) - if tc1 then - Duel.SpecialSummon(tc1,1,tp,tp,true,true,POS_FACEUP) - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetOperation(c100000083.thop) - e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,1) - Duel.RegisterEffect(e1,tp) -end -function c100000083.thop(e,tp,eg,ep,ev,re,r,rp) - local p=e:GetHandler():GetControler() - Duel.SetLP(tp,Duel.GetLP(p)/10,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000084.lua b/script/c100000084.lua deleted file mode 100644 index 339b206d..00000000 --- a/script/c100000084.lua +++ /dev/null @@ -1,37 +0,0 @@ ---失楽園 -function c100000084.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --draw - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000084,2)) - e2:SetCategory(CATEGORY_DRAW) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetProperty(EFFECT_FLAG_BOTH_SIDE) - e2:SetCountLimit(1) - e2:SetCondition(c100000084.drcon) - e2:SetTarget(c100000084.drtg) - e2:SetOperation(c100000084.drop) - c:RegisterEffect(e2) -end -function c100000084.filter1(c) - return c:IsFaceup() and c:GetCode()==69890967 or c:GetCode()==6007213 or c:GetCode()==32491822 -end -function c100000084.drcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000084.filter1,tp,LOCATION_MZONE,0,1,nil) -end -function c100000084.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100000084.drop(e,tp,eg,ep,ev,re,r,rp) - if not Duel.IsExistingMatchingCard(c100000084.filter1,tp,LOCATION_MZONE,0,1,nil) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000085.lua b/script/c100000085.lua deleted file mode 100644 index f1a439e9..00000000 --- a/script/c100000085.lua +++ /dev/null @@ -1,17 +0,0 @@ ---巨大戦艦　アサルト・コア -function c100000085.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000085.spcon) - c:RegisterEffect(e1) -end -function c100000085.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)>0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end diff --git a/script/c100000086.lua b/script/c100000086.lua deleted file mode 100644 index 1ca2f3fa..00000000 --- a/script/c100000086.lua +++ /dev/null @@ -1,53 +0,0 @@ ---ミラー・リゾネーター -function c100000086.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000086.spcon) - e1:SetValue(1) - c:RegisterEffect(e1) - --lv - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000086,0)) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c100000086.thcon) - e2:SetTarget(c100000086.thtg) - e2:SetOperation(c100000086.thop) - c:RegisterEffect(e2) -end -function c100000086.filter(c) - return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) -end -function c100000086.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000086.filter,c:GetControler(),0,LOCATION_MZONE,1,nil) -end -function c100000086.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 -end -function c100000086.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c100000086.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000086.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100000086.filter,tp,0,LOCATION_MZONE,1,1,nil) -end -function c100000086.thop(e,tp,eg,ep,ev,re,r,rp) - local tc1=Duel.GetFirstTarget() - local lv1=tc1:GetLevel() - local lv2=e:GetHandler():GetLevel() - if lv1==lv2 then return end - if tc1:IsFaceup() and e:GetHandler():IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(lv1) - e1:SetReset(RESET_EVENT+0x1fe0000) - e:GetHandler():RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c100000087.lua b/script/c100000087.lua deleted file mode 100644 index b9add40a..00000000 --- a/script/c100000087.lua +++ /dev/null @@ -1,40 +0,0 @@ ---チェーン・リゾネーター -function c100000087.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000087,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCondition(c100000087.spcon) - e1:SetTarget(c100000087.sumtg) - e1:SetOperation(c100000087.sumop) - c:RegisterEffect(e1) -end -function c100000087.sfilter(c) - return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) -end -function c100000087.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(e:GetHandler():GetControler(),LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000087.sfilter,e:GetHandler():GetControler(),LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - and Duel.IsExistingMatchingCard(c100000087.filter,e:GetHandler():GetControler(),LOCATION_DECK,0,1,nil,e,tp) -end -function c100000087.filter(c,e,tp) - return c:IsSetCard(0x57) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000087.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000087.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000087.sumop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000087.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end - end -end \ No newline at end of file diff --git a/script/c100000088.lua b/script/c100000088.lua deleted file mode 100644 index 16eca40c..00000000 --- a/script/c100000088.lua +++ /dev/null @@ -1,41 +0,0 @@ ---バトル・リターン -function c100000088.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c100000088.condition) - e1:SetTarget(c100000088.target) - e1:SetOperation(c100000088.activate) - c:RegisterEffect(e1) -end -function c100000088.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_BATTLE -end -function c100000088.filter(c) - return c:IsFaceup() and c:IsSetCard(0x3013) -end -function c100000088.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingTarget(c100000088.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100000088.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100000088.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(1) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_ATTACK_FINAL) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e2:SetValue(tc:GetAttack()/2) - tc:RegisterEffect(e2) - end -end \ No newline at end of file diff --git a/script/c100000089.lua b/script/c100000089.lua deleted file mode 100644 index 8dbaf22b..00000000 --- a/script/c100000089.lua +++ /dev/null @@ -1,63 +0,0 @@ ---ハイパー・コート -function c100000089.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c100000089.condition) - e1:SetTarget(c100000089.target) - e1:SetOperation(c100000089.operation) - c:RegisterEffect(e1) -end -function c100000089.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c100000089.filter(c) - return c:IsFaceup() and (c:IsSetCard(0x307)or c:IsSetCard(0x41) or c:IsSetCard(0x1073)) and c:IsRace(RACE_MACHINE) -end -function c100000089.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c100000089.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000089.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c100000089.filter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000089.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsLocation(LOCATION_SZONE) then return end - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,c,tc) - c:CancelToGrave() - --Atk/def - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_EQUIP) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(500) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(c100000089.eqlimit) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_IMMUNE_EFFECT) - e3:SetReset(RESET_EVENT+0x1fe0000) - e3:SetValue(c100000089.efilter) - c:RegisterEffect(e3,true) - end -end -function c100000089.eqlimit(e,c) - return c:IsSetCard(0x307) -end -function c100000089.efilter(e,re) - return e:GetOwnerPlayer()~=re:GetOwnerPlayer() -end diff --git a/script/c100000090.lua b/script/c100000090.lua deleted file mode 100644 index 0a176bb1..00000000 --- a/script/c100000090.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Ｓｉｎ Ｆｏｒｃｅ -function c100000090.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000090.target) - e1:SetOperation(c100000090.activate) - c:RegisterEffect(e1) -end -function c100000090.filter(c) - return c:IsFaceup() and c:IsSetCard(0x23) -end -function c100000090.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(c100000090.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c100000090.filter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,0,g,1,0,0) -end -function c100000090.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_IMMUNE_EFFECT) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c100000090.efilter) - tc:RegisterEffect(e1) - end -end -function c100000090.efilter(e,te) - return te:IsActiveType(TYPE_SPELL) and te:GetOwnerPlayer()~=e:GetHandlerPlayer() -end diff --git a/script/c100000091.lua b/script/c100000091.lua deleted file mode 100644 index 4647c603..00000000 --- a/script/c100000091.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Ｓｉｎ Ｓｅｌｅｃｔｏｒ -function c100000091.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000091.cost) - e1:SetTarget(c100000091.target) - e1:SetOperation(c100000091.activate) - c:RegisterEffect(e1) -end -function c100000091.cfilter(c) - return c:IsSetCard(0x23) and c:IsAbleToRemoveAsCost() -end -function c100000091.filter(c) - return c:IsSetCard(0x23) and c:IsAbleToHand() -end -function c100000091.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000091.cfilter,tp,LOCATION_GRAVE,0,2,nil) end - local g=Duel.SelectMatchingCard(tp,c100000091.cfilter,tp,LOCATION_GRAVE,0,2,2,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c100000091.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c100000091.filter,tp,LOCATION_DECK,0,2,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c100000091.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c100000091.filter,tp,LOCATION_DECK,0,2,2,nil) - if g:GetCount()>1 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c100000092.lua b/script/c100000092.lua deleted file mode 100644 index f2ece675..00000000 --- a/script/c100000092.lua +++ /dev/null @@ -1,41 +0,0 @@ ---Ｓｉｎ Ｐａｒａｄｉｇｍ Ｓｈｉｆｔ -function c100000092.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_DESTROYED) - e1:SetCondition(c100000092.condition) - e1:SetCost(c100000092.cost) - e1:SetTarget(c100000092.target) - e1:SetOperation(c100000092.activate) - c:RegisterEffect(e1) -end -function c100000092.cfilter(c,tp) - return c:IsCode(8310162) and c:GetPreviousControler()==tp - and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) -end -function c100000092.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000092.cfilter,1,nil,tp) -end -function c100000092.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.PayLPCost(tp,Duel.GetLP(tp)/2) -end -function c100000092.filter(c,e,tp) - return c:IsCode(37115575) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000092.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000092.filter,tp,0x13,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0x13) -end -function c100000092.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000092.filter,tp,0x13,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - end -end diff --git a/script/c100000093.lua b/script/c100000093.lua deleted file mode 100644 index 7560cd94..00000000 --- a/script/c100000093.lua +++ /dev/null @@ -1,57 +0,0 @@ ---Ｓｉｎ Ｃｒｏｓｓ -function c100000093.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000093.target) - e1:SetOperation(c100000093.activate) - c:RegisterEffect(e1) -end -function c100000093.filter(c,e,tp) - return c:IsSetCard(0x23) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000093.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100000093.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000093.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000093.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000093.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,true,false,POS_FACEUP) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1,true) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2,true) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetOperation(c100000093.desop) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e3:SetCountLimit(1) - tc:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e4:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e4) - Duel.SpecialSummonComplete() - end -end -function c100000093.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end diff --git a/script/c100000094.lua b/script/c100000094.lua deleted file mode 100644 index 0750b15a..00000000 --- a/script/c100000094.lua +++ /dev/null @@ -1,28 +0,0 @@ ---Ｓｉｎ Ｔｕｎｅ -function c100000094.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c100000094.condition) - e1:SetTarget(c100000094.target) - e1:SetOperation(c100000094.activate) - c:RegisterEffect(e1) -end -function c100000094.cfilter(c,tp) - return c:IsSetCard(0x23) -end -function c100000094.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000094.cfilter,1,nil,tp) -end -function c100000094.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100000094.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c100000096.lua b/script/c100000096.lua deleted file mode 100644 index 0b0e4d84..00000000 --- a/script/c100000096.lua +++ /dev/null @@ -1,42 +0,0 @@ ---サッド・ストーリー ～悲しみの記憶～ -function c100000096.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetOperation(c100000096.actlimit) - c:RegisterEffect(e1) - --DP - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DRAW) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000096.ctcon) - e2:SetOperation(c100000096.ctop) - c:RegisterEffect(e2) -end -function c100000096.actlimit(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,1) - e1:SetValue(c100000096.elimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c100000096.elimit(e,te,tp) - return te:GetHandler():IsType(TYPE_SPELL) -end -function c100000096.eqfilter(c) - return c:IsType(TYPE_MONSTER) -end -function c100000096.ctcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_DRAW and eg:IsExists(c100000096.eqfilter,1,nil) -end -function c100000096.ctop(e,tp,eg,ep,ev,re,r,rp) - if eg then - Duel.ConfirmCards(Duel.GetTurnPlayer(),eg) - Duel.SendtoDeck(eg,nil,2,REASON_EFFECT) - end -end diff --git a/script/c100000097.lua b/script/c100000097.lua deleted file mode 100644 index 568a3b81..00000000 --- a/script/c100000097.lua +++ /dev/null @@ -1,42 +0,0 @@ ---サッド・ストーリー ～揺るがない真実～ -function c100000097.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetOperation(c100000097.actlimit) - c:RegisterEffect(e1) - --DP - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DRAW) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000097.ctcon) - e2:SetOperation(c100000097.ctop) - c:RegisterEffect(e2) -end -function c100000097.actlimit(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,1) - e1:SetValue(c100000097.elimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c100000097.elimit(e,te,tp) - return te:GetHandler():IsType(TYPE_SPELL) -end -function c100000097.eqfilter(c) - return c:IsType(TYPE_SPELL) -end -function c100000097.ctcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_DRAW and eg:IsExists(c100000097.eqfilter,1,nil) -end -function c100000097.ctop(e,tp,eg,ep,ev,re,r,rp) - if eg then - Duel.ConfirmCards(Duel.GetTurnPlayer(),eg) - Duel.SendtoDeck(eg,nil,2,REASON_EFFECT) - end -end diff --git a/script/c100000098.lua b/script/c100000098.lua deleted file mode 100644 index a4ec4c42..00000000 --- a/script/c100000098.lua +++ /dev/null @@ -1,42 +0,0 @@ ---サッド・ストーリー ～忌むべき日～ -function c100000098.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetOperation(c100000098.actlimit) - c:RegisterEffect(e1) - --DP - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DRAW) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000098.ctcon) - e2:SetOperation(c100000098.ctop) - c:RegisterEffect(e2) -end -function c100000098.actlimit(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,1) - e1:SetValue(c100000098.elimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c100000098.elimit(e,te,tp) - return te:GetHandler():IsType(TYPE_SPELL) -end -function c100000098.eqfilter(c) - return c:IsType(TYPE_TRAP) -end -function c100000098.ctcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_DRAW and eg:IsExists(c100000098.eqfilter,1,nil) -end -function c100000098.ctop(e,tp,eg,ep,ev,re,r,rp) - if eg then - Duel.ConfirmCards(Duel.GetTurnPlayer(),eg) - Duel.SendtoDeck(eg,nil,2,REASON_EFFECT) - end -end diff --git a/script/c100000099.lua b/script/c100000099.lua deleted file mode 100644 index 2414c394..00000000 --- a/script/c100000099.lua +++ /dev/null @@ -1,36 +0,0 @@ ---バッド・エンド－悲しみの連鎖 -function c100000099.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c100000099.condition) - e1:SetTarget(c100000099.target) - e1:SetOperation(c100000099.activate) - c:RegisterEffect(e1) -end -function c100000099.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_SZONE,0,1,nil,100000096) - and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_SZONE,0,1,nil,100000097) - and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_SZONE,0,1,nil,100000098) -end -function c100000099.spfilter(c,e,tp) - return c:IsCode(80513550) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000099.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000099.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp)end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000099.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000099.activate(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetFirstTarget() - if tg:IsRelateToEffect(e) then - Duel.SpecialSummon(tg,0,tp,tp,true,false,POS_FACEUP) - tg:CompleteProcedure() - end -end \ No newline at end of file diff --git a/script/c10000010.lua b/script/c10000010.lua index 19aeb1a7..02ab90be 100644 --- a/script/c10000010.lua +++ b/script/c10000010.lua @@ -92,7 +92,7 @@ function c10000010.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end end @@ -101,10 +101,10 @@ function c10000010.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.PayLPCost(tp,1000) end function c10000010.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c10000010.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c100000100.lua b/script/c100000100.lua deleted file mode 100644 index 237b7305..00000000 --- a/script/c100000100.lua +++ /dev/null @@ -1,31 +0,0 @@ ---パワー・ウォール -function c100000100.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e1:SetCondition(c100000100.condition) - e1:SetOperation(c100000100.activate) - c:RegisterEffect(e1) -end -function c100000100.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() and Duel.GetAttackTarget()==nil and Duel.IsPlayerCanDiscardDeck(tp,1) -end -function c100000100.activate(e,tp,eg,ep,ev,re,r,rp) - local t={} - local l=1 - while Duel.IsPlayerCanDraw(tp,l) do - t[l]=l - l=l+1 - end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100000100,0)) - local announce=Duel.AnnounceNumber(tp,table.unpack(t)) - Duel.DiscardDeck(tp,announce,REASON_EFFECT) - if Duel.GetBattleDamage(tp)>=announce*100 then - Duel.ChangeBattleDamage(tp,Duel.GetBattleDamage(tp)-announce*100) - else - Duel.ChangeBattleDamage(tp,0) - end - e:GetHandler():SetHint(CHINT_NUMBER,announce) - e:GetHandler():RegisterFlagEffect(100000100,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end \ No newline at end of file diff --git a/script/c100000101.lua b/script/c100000101.lua deleted file mode 100644 index 570d81dd..00000000 --- a/script/c100000101.lua +++ /dev/null @@ -1,36 +0,0 @@ ---おジャマンダラ -function c100000101.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000101.cost) - e1:SetTarget(c100000101.target) - e1:SetOperation(c100000101.activate) - c:RegisterEffect(e1) -end -function c100000101.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,1000) end - Duel.PayLPCost(tp,1000) -end -function c100000101.tfilter(c,code,e,tp) - return c:GetCode()==code and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000101.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 - and Duel.IsExistingTarget(c100000101.filter,tp,LOCATION_GRAVE,0,1,nil,12482652,e,tp) - and Duel.IsExistingTarget(c100000101.filter,tp,LOCATION_GRAVE,0,1,nil,42941100,e,tp) - and Duel.IsExistingTarget(c100000101.filter,tp,LOCATION_GRAVE,0,1,nil,79335209,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,0,3,0,0) -end -function c100000101.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg1=Duel.SelectMatchingCard(tp,c100000101.tfilter,tp,LOCATION_GRAVE,0,1,1,nil,12482652,e,tp) - local sg2=Duel.SelectMatchingCard(tp,c100000101.tfilter,tp,LOCATION_GRAVE,0,1,1,nil,42941100,e,tp) - sg1:Merge(sg2) - local sg3=Duel.SelectMatchingCard(tp,c100000101.tfilter,tp,LOCATION_GRAVE,0,1,1,nil,79335209,e,tp) - sg1:Merge(sg3) - Duel.SpecialSummon(sg1,0,tp,tp,false,false,POS_FACEUP) -end diff --git a/script/c100000102.lua b/script/c100000102.lua deleted file mode 100644 index 9faec7d5..00000000 --- a/script/c100000102.lua +++ /dev/null @@ -1,59 +0,0 @@ ---ネオス・スパイラル・フォース -function c100000102.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000102.condition) - e1:SetCost(c100000102.cost) - e1:SetTarget(c100000102.target) - e1:SetOperation(c100000102.activate) - c:RegisterEffect(e1) -end -function c100000102.cfilter(c) - return c:IsFaceup() and c:IsCode(89943723) and c:GetAttackedCount()==0 - and not Duel.IsExistingMatchingCard(c100000102.cfilter2,tp,LOCATION_MZONE,0,1,nil) -end -function c100000102.cfilter2(c) - return c:IsFaceup() and c:IsCode(89943723) and c:GetAttackedCount()~=0 -end -function c100000102.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000102.cfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c100000102.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,100000102)==0 end - Duel.RegisterFlagEffect(tp,100000102,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c100000102.filter(c) - return c:IsFaceup() and not c:IsCode(89943723) -end -function c100000102.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000102.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000102.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100000102.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100000102.cfil(c) - return c:IsFaceup() and c:IsCode(89943723) -end -function c100000102.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(tc:GetAttack()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetProperty(EFFECT_FLAG_OATH) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetTarget(c100000102.cfil) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - end -end diff --git a/script/c100000103.lua b/script/c100000103.lua deleted file mode 100644 index 460cd09d..00000000 --- a/script/c100000103.lua +++ /dev/null @@ -1,59 +0,0 @@ ---ブラック・スパイラル・フォース -function c100000103.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000103.condition) - e1:SetCost(c100000103.cost) - e1:SetTarget(c100000103.target) - e1:SetOperation(c100000103.activate) - c:RegisterEffect(e1) -end -function c100000103.cfilter(c) - return c:IsFaceup() and c:IsCode(46986414) and c:GetAttackedCount()==0 - and not Duel.IsExistingMatchingCard(c100000103.cfilter2,tp,LOCATION_MZONE,0,1,nil) -end -function c100000103.cfilter2(c) - return c:IsFaceup() and c:IsCode(46986414) and c:GetAttackedCount()~=0 -end -function c100000103.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000103.cfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c100000103.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,100000103)==0 end - Duel.RegisterFlagEffect(tp,100000103,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c100000103.filter(c) - return c:IsFaceup() and not c:IsCode(46986414) -end -function c100000103.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000103.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000103.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100000103.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100000103.cfil(c) - return c:IsFaceup() and c:IsCode(46986414) -end -function c100000103.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(tc:GetAttack()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetProperty(EFFECT_FLAG_OATH) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetTarget(c100000103.cfil) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - end -end diff --git a/script/c100000104.lua b/script/c100000104.lua deleted file mode 100644 index 2638e79f..00000000 --- a/script/c100000104.lua +++ /dev/null @@ -1,44 +0,0 @@ ---黒・魔・導・連・弾 -function c100000104.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000104.target) - e1:SetOperation(c100000104.activate) - c:RegisterEffect(e1) -end -function c100000104.fil(c) - return c:IsFaceup() and c:GetCode()==46986414 and Duel.IsExistingTarget(c100000104.filter2,tp,LOCATION_MZONE,0,1,tp) -end -function c100000104.filter(c) - return c:IsFaceup() and c:GetCode()==46986414 -end -function c100000104.filter2(c) - return c:IsFaceup() and c:GetCode()==38033121 -end -function c100000104.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c100000104.fil,tp,LOCATION_MZONE,0,1,nil,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g1=Duel.SelectTarget(tp,c100000104.filter,tp,LOCATION_MZONE,0,1,1,nil,tp) - local tc1=g1:GetFirst() - e:SetLabelObject(tc1) - Duel.SelectTarget(tp,c100000104.filter2,tp,LOCATION_MZONE,0,1,1,nil,tp) -end -function c100000104.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc=e:GetLabelObject() - local tc2=g:GetFirst() - if tc1==tc2 then tc2=g:GetNext() end - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(tc2:GetAttack()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - end -end diff --git a/script/c100000105.lua b/script/c100000105.lua deleted file mode 100644 index 3cc3483e..00000000 --- a/script/c100000105.lua +++ /dev/null @@ -1,51 +0,0 @@ ---アルカナフォースＶＩＩＩ－ＳＴＲＥＮＧＴＨ -function c100000105.initial_effect(c) - --coin - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000105,0)) - e1:SetCategory(CATEGORY_COIN) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c100000105.cointg) - e1:SetOperation(c100000105.coinop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c100000105.cointg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1) -end -function c100000105.coinop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) or c:IsFacedown() then return end - local res=0 - if c:IsHasEffect(73206827) then - res=1-Duel.SelectOption(tp,60,61) - else res=Duel.TossCoin(tp,1) end - if res==0 then - if Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,LOCATION_MZONE,0,1,nil) then - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(1-tp,Card.IsControlerCanBeChanged,1-tp,0,LOCATION_MZONE,1,1,e:GetHandler()) - Duel.HintSelection(g) - Duel.BreakEffect() - if g then - Duel.GetControl(g:GetFirst(),1-tp) - end - end - else - if Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil) - Duel.HintSelection(g) - Duel.BreakEffect() - if g then - Duel.GetControl(g:GetFirst(),tp) - end - end - end -end diff --git a/script/c100000106.lua b/script/c100000106.lua deleted file mode 100644 index c324c8e4..00000000 --- a/script/c100000106.lua +++ /dev/null @@ -1,90 +0,0 @@ ---アルカナフォースＸＩＩ－ＴＨＥ ＨＡＮＧＥＤ ＭＡＮ -function c100000106.initial_effect(c) - --coin - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000106,0)) - e1:SetCategory(CATEGORY_COIN) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c100000106.cointg) - e1:SetOperation(c100000106.coinop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c100000106.cointg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1) -end -function c100000106.coinop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) or c:IsFacedown() then return end - local res=0 - if c:IsHasEffect(73206827) then - res=1-Duel.SelectOption(tp,60,61) - else res=Duel.TossCoin(tp,1) end - c100000106.arcanareg(c,res) -end -function c100000106.arcanareg(c,coin) - c:RegisterFlagEffect(100000106,RESET_EVENT+0x1ff0000,EFFECT_FLAG_CLIENT_HINT,1,coin,63-coin) - --coin effect - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000106,1)) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c100000106.spcon) - if c:GetFlagEffectLabel(100000106)==1 then - e1:SetTarget(c100000106.sptg) - e1:SetOperation(c100000106.spop) - else - e1:SetTarget(c100000106.tgtg) - e1:SetOperation(c100000106.tgop) - end - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) -end -function c100000106.spcon(e,tp,eg,ep,ev,re,r,rp) - return ep==tp -end -function c100000106.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c100000106.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000106.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000106.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100000106.filter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,0) -end -function c100000106.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - if Duel.Destroy(tc,REASON_EFFECT)>0 then - Duel.Damage(tp,tc:GetAttack(),REASON_EFFECT) - end - end -end -function c100000106.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000106.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000106.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100000106.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0) -end -function c100000106.tgop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - if Duel.Destroy(tc,REASON_EFFECT)>0 then - Duel.Damage(1-tp,tc:GetAttack(),REASON_EFFECT) - end - end -end \ No newline at end of file diff --git a/script/c100000107.lua b/script/c100000107.lua deleted file mode 100644 index 77be2fa5..00000000 --- a/script/c100000107.lua +++ /dev/null @@ -1,55 +0,0 @@ ---ザ・マテリアル・ロード -function c100000107.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCondition(c100000107.condition) - c:RegisterEffect(e1) - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000107,0)) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_SZONE) - e3:SetCost(c100000107.cost) - e3:SetTarget(c100000107.target) - e3:SetOperation(c100000107.operation) - c:RegisterEffect(e3) -end -function c100000107.filter(c) - return c:IsLevelBelow(4) and c:IsSetCard(0x5) -end -function c100000107.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000107.filter,tp,LOCATION_GRAVE,0,1,nil) -end -function c100000107.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp and Duel.IsExistingMatchingCard(c100000107.filter,tp,LOCATION_GRAVE,0,1,nil) -end -function c100000107.costfilter(c) - return c:IsSetCard(0x5) and (c:GetLevel()==5 or c:GetLevel()==6) and c:IsAbleToGraveAsCost() -end -function c100000107.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000107.costfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000107.costfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c100000107.defilter(c) - return c:IsCode(100000108) and c:IsAbleToHand() -end -function c100000107.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - if Duel.IsExistingMatchingCard(c100000107.defilter,tp,LOCATION_DECK,0,1,nil,e,tp) then - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) - end -end -function c100000107.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local dg=Duel.SelectMatchingCard(tp,c100000107.defilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if dg:GetCount()>0 then - Duel.SendtoHand(dg:GetFirst(),nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,dg:GetFirst()) - end -end \ No newline at end of file diff --git a/script/c100000108.lua b/script/c100000108.lua deleted file mode 100644 index 3b3a4c2c..00000000 --- a/script/c100000108.lua +++ /dev/null @@ -1,55 +0,0 @@ ---ザ・スピリチアル・ロード -function c100000108.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCondition(c100000108.condition) - c:RegisterEffect(e1) - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000108,0)) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_SZONE) - e3:SetCost(c100000108.cost) - e3:SetTarget(c100000108.target) - e3:SetOperation(c100000108.operation) - c:RegisterEffect(e3) -end -function c100000108.filter(c) - return c:IsSetCard(0x5) and (c:GetLevel()==5 or c:GetLevel()==6) -end -function c100000108.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000108.filter,tp,LOCATION_GRAVE,0,1,nil) -end -function c100000108.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp and Duel.IsExistingMatchingCard(c100000108.filter,tp,LOCATION_GRAVE,0,1,nil) -end -function c100000108.costfilter(c) - return c:IsSetCard(0x5) and c:GetLevel()>=7 and c:IsAbleToGraveAsCost() -end -function c100000108.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000108.costfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000108.costfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c100000108.defilter(c) - return c:IsCode(100000109) and c:IsAbleToHand() -end -function c100000108.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - if Duel.IsExistingMatchingCard(c100000108.defilter,tp,LOCATION_DECK,0,1,nil,e,tp) then - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) - end -end -function c100000108.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local dg=Duel.SelectMatchingCard(tp,c100000108.defilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if dg:GetCount()>0 then - Duel.SendtoHand(dg:GetFirst(),nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,dg:GetFirst()) - end -end diff --git a/script/c100000109.lua b/script/c100000109.lua deleted file mode 100644 index a7cb889a..00000000 --- a/script/c100000109.lua +++ /dev/null @@ -1,56 +0,0 @@ ---ザ・ヘブンズ・ロード -function c100000109.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000109.condition) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000109,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c100000109.cost) - e2:SetTarget(c100000109.target) - e2:SetOperation(c100000109.operation) - c:RegisterEffect(e2) -end -function c100000109.filter(c) - return c:IsSetCard(0x5) and c:GetLevel()>=7 -end -function c100000109.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000109.filter,tp,LOCATION_GRAVE,0,1,nil) -end -function c100000109.costfilter(c,code) - return c:IsFaceup() and c:IsCode(code) and c:IsAbleToGraveAsCost() -end -function c100000109.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000109.costfilter,tp,LOCATION_SZONE,0,1,nil,100000107) - and Duel.IsExistingMatchingCard(c100000109.costfilter,tp,LOCATION_SZONE,0,1,nil,100000108) - and e:GetHandler():IsAbleToGraveAsCost() end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,c100000109.costfilter,tp,LOCATION_SZONE,0,1,1,nil,100000107) - local g2=Duel.SelectMatchingCard(tp,c100000109.costfilter,tp,LOCATION_SZONE,0,1,1,nil,100000108) - g1:Merge(g2) - g1:AddCard(e:GetHandler()) - Duel.SendtoGrave(g1,REASON_COST) -end -function c100000109.sufilter(c,e,tp) - return c:GetCode()==5861892 and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000109.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingTarget(c100000109.sufilter,tp,0x13,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13) -end -function c100000109.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if not Duel.IsExistingMatchingCard(c100000109.sufilter,tp,0x13,0,1,nil,e,tp) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000109.sufilter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c10000011.lua b/script/c10000011.lua deleted file mode 100644 index cb09815c..00000000 --- a/script/c10000011.lua +++ /dev/null @@ -1,115 +0,0 @@ ---ラーの翼神竜 -function c10000011.initial_effect(c) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c10000011.ttcon) - e1:SetOperation(c10000011.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c10000011.setcon) - c:RegisterEffect(e2) - --summon - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_DISABLE_SUMMON) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - c:RegisterEffect(e3) - --summon success - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_SUMMON_SUCCESS) - e4:SetOperation(c10000011.sumsuc) - c:RegisterEffect(e4) - --cannot special summon - local e5=Effect.CreateEffect(c) - e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e5) - --One Turn Kill - local e6=Effect.CreateEffect(c) - e6:SetDescription(aux.Stringid(10000011,0)) - e6:SetCategory(CATEGORY_ATKCHANGE) - e6:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) - e6:SetCode(EVENT_SUMMON_SUCCESS) - e6:SetCost(c10000011.atkcost) - e6:SetOperation(c10000011.atkop) - c:RegisterEffect(e6) - --destroy - local e7=Effect.CreateEffect(c) - e7:SetDescription(aux.Stringid(10000011,1)) - e7:SetCategory(CATEGORY_DESTROY) - e7:SetType(EFFECT_TYPE_IGNITION) - e7:SetProperty(EFFECT_FLAG_CARD_TARGET) - e7:SetRange(LOCATION_MZONE) - e7:SetCost(c10000011.descost) - e7:SetTarget(c10000011.destg) - e7:SetOperation(c10000011.desop) - c:RegisterEffect(e7) -end -function c10000011.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c10000011.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c10000011.setcon(e,c) - if not c then return true end - return false -end -function c10000011.genchainlm(c) - return function (e,rp,tp) - return e:GetHandler()==c - end -end -function c10000011.sumsuc(e,tp,eg,ep,ev,re,r,rp) - Duel.SetChainLimitTillChainEnd(c10000011.genchainlm(e:GetHandler())) -end -function c10000011.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLP(tp)>100 end - local lp=Duel.GetLP(tp) - e:SetLabel(lp-100) - Duel.PayLPCost(tp,lp-100) -end -function c10000011.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(e:GetLabel()) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) - end -end -function c10000011.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,1000) end - Duel.PayLPCost(tp,1000) -end -function c10000011.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c10000011.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c100000110.lua b/script/c100000110.lua deleted file mode 100644 index 510db5d6..00000000 --- a/script/c100000110.lua +++ /dev/null @@ -1,156 +0,0 @@ ---眠れる巨人ズシン -function c100000110.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --spsummon proc - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_ONFIELD) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetOperation(c100000110.spop) - c:RegisterEffect(e2) - --special summon - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_SPSUMMON_PROC) - e4:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e4:SetRange(LOCATION_HAND) - e4:SetCondition(c100000110.spcon3) - e4:SetOperation(c100000110.spop3) - c:RegisterEffect(e4) - --negate - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e5:SetCode(EVENT_ATTACK_ANNOUNCE) - e5:SetOperation(c100000110.negop1) - c:RegisterEffect(e5) - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e6:SetCode(EVENT_BE_BATTLE_TARGET) - e6:SetOperation(c100000110.negop2) - c:RegisterEffect(e6) - --unaffectable - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_SINGLE) - e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e7:SetRange(LOCATION_MZONE) - e7:SetCode(EFFECT_IMMUNE_EFFECT) - e7:SetValue(1) - c:RegisterEffect(e7) - --atk - local e8=Effect.CreateEffect(c) - e8:SetType(EFFECT_TYPE_SINGLE) - e8:SetCode(EFFECT_SET_ATTACK_FINAL) - e8:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e8:SetRange(LOCATION_MZONE) - e8:SetValue(c100000110.adval) - c:RegisterEffect(e8) - local e9=e8:Clone() - e9:SetCode(EFFECT_SET_DEFENCE_FINAL) - c:RegisterEffect(e9) -end -function c100000110.spfilter1(c) - return c:IsFaceup() and c:GetLevel()==1 and c:IsType(TYPE_NORMAL) -end -function c100000110.spop(e,tp,c) - local c=e:GetHandler() - if c:GetControler()~=Duel.GetTurnPlayer() then return end - local g=Duel.GetMatchingGroup(c100000110.spfilter1,c:GetControler(),LOCATION_MZONE,0,nil) - local rc=g:GetFirst() - while rc do - if rc:GetFlagEffect(100000110)==0 then - local e1=Effect.CreateEffect(rc) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE_START+PHASE_STANDBY) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetCondition(c100000110.spcon1) - e1:SetLabel(0) - e1:SetOperation(c100000110.spop2) - rc:RegisterEffect(e1) - rc:RegisterFlagEffect(100000110,RESET_EVENT+0x1fe0000,0,1) - end - rc=g:GetNext() - end -end -function c100000110.spcon1(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000110.spop2(e,tp,c) - local c=e:GetHandler() - if c:GetControler()~=Duel.GetTurnPlayer() then return end - local ct=e:GetLabel() - if c:GetFlagEffect(100000110)~=0 and ct==8 then - c:RegisterFlagEffect(100000111,RESET_EVENT+0x1fe0000,0,1) - else - e:SetLabel(ct+1) - end -end -function c100000110.filter(c) - return c:IsFaceup() and c:GetLevel()==1 and c:IsType(TYPE_NORMAL) and c:GetFlagEffect(100000111)~=0 -end -function c100000110.spcon3(e,c) - local c=e:GetHandler() - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(c:GetControler(),c100000110.filter,1,nil) -end -function c100000110.spop3(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectReleaseGroup(tp,c100000110.filter,1,1,nil) - Duel.Release(g,REASON_COST) -end -function c100000110.negop1(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local d=Duel.GetAttackTarget() - if d then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - d:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - d:RegisterEffect(e2) - end -end -function c100000110.negop2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local a=Duel.GetAttacker() - if a then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - a:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - a:RegisterEffect(e2) - end -end -function c100000110.adval(e,c) - local ph=Duel.GetCurrentPhase() - local c=e:GetHandler() - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if ph==PHASE_DAMAGE_CAL then - if a==c then return d:GetAttack()+1000 end - if d==c then return a:GetAttack()+1000 end - if not a==c and not d==c then return 0 end - end - if not ph==PHASE_DAMAGE_CAL then return 0 end -end diff --git a/script/c100000111.lua b/script/c100000111.lua deleted file mode 100644 index 2e1781e5..00000000 --- a/script/c100000111.lua +++ /dev/null @@ -1,31 +0,0 @@ ---スクラム・フォース -function c100000111.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --indes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetCondition(c100000111.spcon) - e2:SetTarget(c100000111.tg) - e2:SetValue(c100000111.tgval) - c:RegisterEffect(e2) -end -function c100000111.filter(c) - return c:IsPosition(POS_FACEUP_DEFENCE) -end -function c100000111.spcon(e,c) - local c=e:GetHandler() - return Duel.IsExistingMatchingCard(c100000111.filter,c:GetControler(),LOCATION_MZONE,0,2,nil) -end -function c100000111.tg(e,c) - return c:IsPosition(POS_FACEUP_DEFENCE) -end -function c100000111.tgval(e,te) - return te:GetOwnerPlayer()~=e:GetHandlerPlayer() -end \ No newline at end of file diff --git a/script/c100000112.lua b/script/c100000112.lua deleted file mode 100644 index 864e347a..00000000 --- a/script/c100000112.lua +++ /dev/null @@ -1,35 +0,0 @@ ---レッドアイズ・スピリッツ -function c100000112.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetTarget(c100000112.target) - e1:SetOperation(c100000112.activate) - c:RegisterEffect(e1) -end -function c100000112.filter(c,id,e,tp) - return c:IsReason(REASON_DESTROY) and c:GetTurnID()==id and c:IsSetCard(0x3b) - and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000112.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return (Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000112.filter,tp,LOCATION_GRAVE,0,1,nil,Duel.GetTurnCount(),e,tp)) - or(Duel.GetLocationCount(1-tp,LOCATION_MZONE,1-tp)>0 and Duel.IsExistingMatchingCard(c100000112.filter,tp,0,LOCATION_GRAVE,1,nil,Duel.GetTurnCount(),e,tp)) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000112.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,Duel.GetTurnCount(),e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,tp,LOCATION_GRAVE) -end -function c100000112.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - if tc:GetPreviousControler()~=tp then - Duel.SpecialSummon(tc,0,1-tp,1-tp,true,false,POS_FACEUP) - else - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - end - end -end diff --git a/script/c100000113.lua b/script/c100000113.lua deleted file mode 100644 index f4e44280..00000000 --- a/script/c100000113.lua +++ /dev/null @@ -1,25 +0,0 @@ ---レッドアイズ・バーン -function c100000113.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetCode(EVENT_DESTROYED) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c100000113.condition) - e1:SetOperation(c100000113.operation) - c:RegisterEffect(e1) -end -function c100000113.cfilter(c,tp) - return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsSetCard(0x3b) and c:IsType(TYPE_MONSTER) -end -function c100000113.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000113.cfilter,1,nil,tp) -end -function c100000113.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,0) - local atk=eg:GetFirst():GetAttack() - Duel.Damage(1-tp,atk,REASON_EFFECT) - Duel.Damage(tp,atk,REASON_EFFECT) -end diff --git a/script/c100000114.lua b/script/c100000114.lua deleted file mode 100644 index fadd0c7a..00000000 --- a/script/c100000114.lua +++ /dev/null @@ -1,48 +0,0 @@ ---愚者の種蒔き -function c100000114.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_PLAYER_TARGET) - e1:SetTarget(c100000114.target) - e1:SetOperation(c100000114.operation) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000114,0)) - e2:SetCategory(CATEGORY_DECKDES) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_PLAYER_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000114.condition) - e2:SetTarget(c100000114.target) - e2:SetOperation(c100000114.operation) - c:RegisterEffect(e2) -end -function c100000114.condition(e) - return e:GetHandler():GetFlagEffect(100000114)==0 -end -function c100000114.filter(c) - return c:IsFaceup() and c:IsSetCard(0x5) -end -function c100000114.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000114.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000114.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local tc=Duel.SelectTarget(tp,c100000114.filter,tp,LOCATION_MZONE,0,1,1,nil) - local ct=math.floor(tc:GetFirst():GetAttack()/300) - Duel.SetTargetParam(ct) - local res=Duel.TossCoin(tp,1) - if res==0 then - Duel.SetTargetPlayer(1-tp) - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,1-tp,ct) - else - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,ct) - end - e:GetHandler():RegisterFlagEffect(100000114,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c100000114.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.DiscardDeck(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000115.lua b/script/c100000115.lua deleted file mode 100644 index 13eada62..00000000 --- a/script/c100000115.lua +++ /dev/null @@ -1,35 +0,0 @@ ---魔術師の天秤 -function c100000115.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000115.cost) - e1:SetTarget(c100000115.target) - e1:SetOperation(c100000115.activate) - c:RegisterEffect(e1) -end -function c100000115.filter(c) - return c:IsSetCard(0x5) and c:IsFaceup() -end -function c100000115.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c100000115.filter,1,nil) end - local g=Duel.SelectReleaseGroup(tp,c100000115.filter,1,1,nil) - Duel.Release(g,REASON_COST) -end -function c100000115.afilter(c) - return c:IsType(TYPE_SPELL) and c:IsAbleToHand() -end -function c100000115.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000115.afilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c100000115.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c100000115.afilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c100000116.lua b/script/c100000116.lua deleted file mode 100644 index 52dfe9d0..00000000 --- a/script/c100000116.lua +++ /dev/null @@ -1,79 +0,0 @@ ---アルカナフォースＸＶ－ＴＨＥ　ＤＥＶＩＬ -function c100000116.initial_effect(c) - --coin - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000116,0)) - e1:SetCategory(CATEGORY_COIN) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c100000116.cointg) - e1:SetOperation(c100000116.coinop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c100000116.cointg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1) -end -function c100000116.coinop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) or c:IsFacedown() then return end - local res=0 - if c:IsHasEffect(73206827) then - res=1-Duel.SelectOption(tp,60,61) - else res=Duel.TossCoin(tp,1) end - c100000116.arcanareg(c,res) -end -function c100000116.arcanareg(c,coin) - c:RegisterFlagEffect(100000116,RESET_EVENT+0x1ff0000,EFFECT_FLAG_CLIENT_HINT,1,coin,63-coin) - --coin effect - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - if c:GetFlagEffectLabel(100000116)==1 then - e1:SetTarget(c100000116.sptg) - e1:SetOperation(c100000116.spop) - else - e1:SetTarget(c100000116.tgtg) - e1:SetOperation(c100000116.tgop) - end - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) -end -function c100000116.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,g:GetFirst():GetControler(),500) -end -function c100000116.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - if Duel.Destroy(tc,REASON_EFFECT)~=0 then - Duel.Damage(tc:GetPreviousControler(),500,REASON_EFFECT) - else - if e:GetHandler():IsRelateToEffect(e) then - if Duel.Destroy(e:GetHandler(),REASON_EFFECT)~=0 then - Duel.Damage(tp,500,REASON_EFFECT) - end - end - end - end -end -function c100000116.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100000116.tgop(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.Destroy(sg,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000117.lua b/script/c100000117.lua deleted file mode 100644 index 8f29529d..00000000 --- a/script/c100000117.lua +++ /dev/null @@ -1,33 +0,0 @@ ---ライフ・フォース -function c100000117.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_BATTLE_START) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DELAY) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e2:SetTarget(c100000117.target2) - e2:SetOperation(c100000117.operation) - c:RegisterEffect(e2) -end -function c100000117.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,400) end - Duel.PayLPCost(tp,400) - if Duel.GetBattleDamage(tp)>0 then - Duel.SetTargetPlayer(tp) - else - Duel.SetTargetPlayer(1-tp) - end -end -function c100000117.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetBattleDamage(tp)>0 then - Duel.ChangeBattleDamage(tp,0) - else - Duel.ChangeBattleDamage(1-tp,0) - end -end \ No newline at end of file diff --git a/script/c100000118.lua b/script/c100000118.lua deleted file mode 100644 index e06cae55..00000000 --- a/script/c100000118.lua +++ /dev/null @@ -1,51 +0,0 @@ ---おジャマ・ゲットライド！ -function c100000118.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000118.cost) - e1:SetTarget(c100000118.target) - e1:SetOperation(c100000118.activate) - c:RegisterEffect(e1) -end -function c100000118.costfilter(c,code) - return c:IsAbleToGraveAsCost() and c:IsCode(code) -end -function c100000118.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000118.costfilter,tp,LOCATION_HAND,0,1,nil,12482652) - and Duel.IsExistingMatchingCard(c100000118.costfilter,tp,LOCATION_HAND,0,1,nil,42941100) - and Duel.IsExistingMatchingCard(c100000118.costfilter,tp,LOCATION_HAND,0,1,nil,79335209) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,c100000118.costfilter,tp,LOCATION_HAND,0,1,1,nil,12482652) - local g2=Duel.SelectMatchingCard(tp,c100000118.costfilter,tp,LOCATION_HAND,0,1,1,nil,42941100) - g1:Merge(g2) - local g3=Duel.SelectMatchingCard(tp,c100000118.costfilter,tp,LOCATION_HAND,0,1,1,nil,79335209) - g1:Merge(g3) - Duel.SendtoGrave(g1,REASON_COST) -end -function c100000118.filter(c,e,tp) - return c:GetLevel()<=4 and c:IsRace(RACE_MACHINE) and c:IsType(TYPE_UNION) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000118.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 - and Duel.IsExistingMatchingCard(c100000118.filter,tp,LOCATION_DECK,0,3,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,tp,LOCATION_DECK) -end -function c100000118.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=2 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000118.filter,tp,LOCATION_DECK,0,3,3,nil,e,tp) - local tc=g:GetFirst() - while tc do - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - tc=g:GetNext() - end - Duel.SpecialSummonComplete() -end diff --git a/script/c100000119.lua b/script/c100000119.lua deleted file mode 100644 index 6b30e720..00000000 --- a/script/c100000119.lua +++ /dev/null @@ -1,45 +0,0 @@ ---おジャマ・デルタサンダー！！ -function c100000119.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCondition(c100000119.condition) - e1:SetTarget(c100000119.target) - e1:SetOperation(c100000119.activate) - c:RegisterEffect(e1) -end -function c100000119.cfilter(c,code) - return c:IsFaceup() and c:IsCode(code) -end -function c100000119.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000119.cfilter,tp,LOCATION_MZONE,0,1,nil,12482652) - and Duel.IsExistingMatchingCard(c100000119.cfilter,tp,LOCATION_MZONE,0,1,nil,42941100) - and Duel.IsExistingMatchingCard(c100000119.cfilter,tp,LOCATION_MZONE,0,1,nil,79335209) -end -function c100000119.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - local dam=Duel.GetFieldGroupCount(1-tp,LOCATION_HAND+LOCATION_ONFIELD,0)*500 - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100000119.costfilter(c) - return c:IsCode(8251996) and c:IsAbleToGrave() -end -function c100000119.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) - Duel.BreakEffect() - local dg=Duel.GetMatchingGroup(c100000119.costfilter,tp,LOCATION_DECK+LOCATION_HAND,0,nil) - local dt=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - if dg:GetCount()>0 and dt:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_HINTMSG_TOGRAVE) - local des=dg:Select(tp,1,1,nil) - Duel.SendtoGrave(des,REASON_EFFECT) - Duel.BreakEffect() - Duel.Destroy(dt,REASON_EFFECT) - end -end diff --git a/script/c100000120.lua b/script/c100000120.lua deleted file mode 100644 index 688a9a2b..00000000 --- a/script/c100000120.lua +++ /dev/null @@ -1,39 +0,0 @@ ---受け入れがたい結果 -function c100000120.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCondition(c100000120.condition) - e1:SetTarget(c100000120.target) - e1:SetOperation(c100000120.activate) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c100000120.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(Card.IsSetCard,1,nil,0x302) -end -function c100000120.filter(c,e,tp) - return c:IsSetCard(0x302) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000120.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000120.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000120.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000120.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000121.lua b/script/c100000121.lua deleted file mode 100644 index 9d189c01..00000000 --- a/script/c100000121.lua +++ /dev/null @@ -1,37 +0,0 @@ ---開運ミラクルストーン -function c100000121.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --atk up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetTarget(c100000121.tg) - e2:SetValue(c100000121.val) - c:RegisterEffect(e2) - --attack res - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CANNOT_ATTACK) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e3:SetTarget(c100000121.target) - c:RegisterEffect(e3) -end -function c100000121.tg(e,c) - return c:IsSetCard(0x302) -end -function c100000121.filter(c) - return c:IsFaceup() and c:IsSetCard(0x302) -end -function c100000121.val(e,c) - return Duel.GetMatchingGroupCount(c100000121.filter,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,nil)*1000 -end -function c100000121.target(e,c) - return c:IsStatus(STATUS_SUMMON_TURN) and c:IsSetCard(0x302) and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)~=0 -end diff --git a/script/c100000122.lua b/script/c100000122.lua deleted file mode 100644 index cc242796..00000000 --- a/script/c100000122.lua +++ /dev/null @@ -1,50 +0,0 @@ ---幸運の前借り -function c100000122.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000122.target) - e1:SetOperation(c100000122.activate) - c:RegisterEffect(e1) -end -function c100000122.tfilter(c,lv,e,tp) - return c:IsSetCard(0x302) and c:GetLevel()==lv-1 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000122.filter(c,e,tp) - return c:IsFaceup() and c:IsSetCard(0x302) - and Duel.IsExistingMatchingCard(c100000122.tfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,c:GetLevel(),e,tp) -end -function c100000122.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c100000122.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000122.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100000122.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND) -end -function c100000122.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) or tc:IsFacedown() then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=Duel.SelectMatchingCard(tp,c100000122.tfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,tc:GetLevel(),e,tp) - if sg:GetCount()>0 then - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) - end - --oath effects - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetTargetRange(1,0) - e1:SetLabel(Duel.GetTurnCount()) - e1:SetCondition(c100000122.con) - e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,2) - Duel.RegisterEffect(e1,tp) -end -function c100000122.con(e) - return Duel.GetTurnPlayer()==e:GetHandler():GetControler() and Duel.GetTurnCount()~=e:GetLabel() -end \ No newline at end of file diff --git a/script/c100000130.lua b/script/c100000130.lua deleted file mode 100644 index db41c842..00000000 --- a/script/c100000130.lua +++ /dev/null @@ -1,26 +0,0 @@ ---先史遺産アステカ・マスク・ゴーレム -function c100000130.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_CHAINING) - e1:SetRange(LOCATION_HAND) - e1:SetOperation(c100000130.chop) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND) - e2:SetCondition(c100000130.spcon) - c:RegisterEffect(e2) -end -function c100000130.chop(e,tp,eg,ep,ev,re,r,rp) - if re:GetActiveType()==TYPE_SPELL and re:IsHasType(EFFECT_TYPE_ACTIVATE) and rp==tp then - e:GetHandler():RegisterFlagEffect(100000130,RESET_EVENT+0x2fe0000+RESET_PHASE+PHASE_END,0,1) - end -end -function c100000130.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetFlagEffect(100000130)~=0 -end \ No newline at end of file diff --git a/script/c100000131.lua b/script/c100000131.lua deleted file mode 100644 index 320c1374..00000000 --- a/script/c100000131.lua +++ /dev/null @@ -1,8 +0,0 @@ ---先史遺産マッドゴーレム－シャコウキ -function c100000131.initial_effect(c) - --pierce - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e1) -end diff --git a/script/c100000132.lua b/script/c100000132.lua deleted file mode 100644 index fda8f2b7..00000000 --- a/script/c100000132.lua +++ /dev/null @@ -1,17 +0,0 @@ ---先史遺産トゥーラ・ガーディアン -function c100000132.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000132.spcon) - c:RegisterEffect(e1) -end -function c100000132.spcon(e) - local tc=Duel.GetFieldCard(0,LOCATION_SZONE,5) - if tc and tc:IsFaceup() then return true end - tc=Duel.GetFieldCard(1,LOCATION_SZONE,5) - return tc and tc:IsFaceup() -end \ No newline at end of file diff --git a/script/c100000133.lua b/script/c100000133.lua deleted file mode 100644 index 0cc092df..00000000 --- a/script/c100000133.lua +++ /dev/null @@ -1,37 +0,0 @@ ---先史遺産ソル・モノリス -function c100000133.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000133,0)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCondition(c100000133.condition) - e1:SetTarget(c100000133.target) - e1:SetOperation(c100000133.operation) - c:RegisterEffect(e1) -end -function c100000133.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE -end -function c100000133.filter(c) - return c:IsFaceup() and c:IsSetCard(0x70) and not c:IsType(TYPE_XYZ) -end -function c100000133.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000133.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000133.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100000133.filter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) -end -function c100000133.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(e:GetHandler():GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end diff --git a/script/c100000136.lua b/script/c100000136.lua deleted file mode 100644 index caa1ae43..00000000 --- a/script/c100000136.lua +++ /dev/null @@ -1,55 +0,0 @@ ---ディフェンス・メイデン -function c100000136.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_BATTLE_START) - e1:SetTarget(c100000136.atktg1) - e1:SetOperation(c100000136.atkop) - c:RegisterEffect(e1) - --change target - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000136,0)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000136.atkcon) - e2:SetTarget(c100000136.atktg2) - e2:SetOperation(c100000136.atkop) - c:RegisterEffect(e2) -end -function c100000136.atkcon(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttackTarget() - return tp~=Duel.GetTurnPlayer() and at and (at:IsFacedown() or not at:IsCode(100000139)) -end -function c100000136.filter(c) - return c:IsFaceup() and c:IsCode(100000139) -end -function c100000136.atktg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000136.filter(chkc) end - if chk==0 then return true end - e:SetProperty(0) - if Duel.CheckEvent(EVENT_ATTACK_ANNOUNCE) and tp~=Duel.GetTurnPlayer() then - local at=Duel.GetAttackTarget() - if at and (at:IsFacedown() or not at:IsCode(100000139)) and Duel.IsExistingTarget(c100000136.filter,tp,LOCATION_MZONE,0,1,nil) then - e:SetProperty(EFFECT_FLAG_CARD_TARGET) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c100000136.filter,tp,LOCATION_MZONE,0,1,1,nil) - end - end -end -function c100000136.atktg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000136.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000136.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c100000136.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100000136.atkop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangeAttackTarget(tc) - end -end \ No newline at end of file diff --git a/script/c100000137.lua b/script/c100000137.lua deleted file mode 100644 index 4c4bd772..00000000 --- a/script/c100000137.lua +++ /dev/null @@ -1,56 +0,0 @@ ---ハッピー・マリッジ -function c100000137.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c100000137.con) - e1:SetTarget(c100000137.target) - e1:SetOperation(c100000137.operation) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetValue(1) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetValue(c100000137.value) - c:RegisterEffect(e3) -end -function c100000137.spfilter(c) - return c:GetOwner()~=c:GetControler() and c:IsFaceup() -end -function c100000137.con(e,c) - if c==nil then return true end - return Duel.IsExistingMatchingCard(c100000137.spfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end -function c100000137.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000137.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end -function c100000137.value(e,c) - local wup=0 - local wg=Duel.GetMatchingGroup(c100000137.spfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,nil) - local wbc=wg:GetFirst() - while wbc do - wup=wup+wbc:GetAttack() - wbc=wg:GetNext() - end - return wup -end diff --git a/script/c100000138.lua b/script/c100000138.lua deleted file mode 100644 index 3dfa1b17..00000000 --- a/script/c100000138.lua +++ /dev/null @@ -1,60 +0,0 @@ ---キューピッド・キス -function c100000138.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000138.target) - e1:SetOperation(c100000138.operation) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetValue(1) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000138,0)) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_DAMAGE_STEP_END) - e3:SetCondition(c100000138.atkcon) - e3:SetTarget(c100000138.atktar) - e3:SetOperation(c100000138.atkop) - c:RegisterEffect(e3) -end -function c100000138.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000138.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end -function c100000138.atkcon(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttackTarget() - local ct=Duel.GetAttacker() - return at and at:IsRelateToBattle() and at:IsFaceup() and at==e:GetHandler():GetEquipTarget() - and ct:IsFaceup() and ct:GetCounter(0x90)>0 and Duel.GetBattleDamage(e:GetHandler():GetEquipTarget():GetControler())>0 -end -function c100000138.atktar(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - if Duel.GetAttacker():IsRelateToBattle() then - Duel.SetTargetCard(Duel.GetAttacker()) end -end -function c100000138.atkop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.GetControl(tc,e:GetHandler():GetEquipTarget():GetControler()) - end -end diff --git a/script/c100000139.lua b/script/c100000139.lua deleted file mode 100644 index 289c9acc..00000000 --- a/script/c100000139.lua +++ /dev/null @@ -1,32 +0,0 @@ ---恋する乙女 -function c100000139.initial_effect(c) - --battle indestructable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetCondition(c100000139.sdcon) - e1:SetValue(1) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000139,0)) - e2:SetCategory(CATEGORY_REMOVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_BATTLED) - e2:SetTarget(c100000139.target) - e2:SetOperation(c100000139.operation) - c:RegisterEffect(e2) -end -function c100000139.sdcon(e) - return e:GetHandler():IsPosition(POS_FACEUP_ATTACK) -end -function c100000139.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetAttackTarget()==e:GetHandler() end - if Duel.GetAttacker():IsRelateToBattle() then - Duel.SetTargetCard(Duel.GetAttacker()) end -end -function c100000139.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetAttacker() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0x90,1) - end -end diff --git a/script/c100000140.lua b/script/c100000140.lua deleted file mode 100644 index 976a725b..00000000 --- a/script/c100000140.lua +++ /dev/null @@ -1,45 +0,0 @@ ---ＤＴ ナイトメア・ハンド -function c100000140.initial_effect(c) - --synchro summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetValue(c100000140.synlimit) - c:RegisterEffect(e1) - --summon/special summon success - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000140,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c100000140.sumtg) - e2:SetOperation(c100000140.sumop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c100000140.synlimit(e,c) - if not c then return false end - local code=c:GetOriginalCode() - if code==100000150 or code==100000151 or code==100000152 or code==100000153 or code==100000154 or code==100000155 or code==100000156 then - return else return not c:IsSetCard(0x301) end -end -function c100000140.filter(c,e,tp) - return c:GetLevel()==2 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000140.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000140.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000140.sumop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000140.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 diff --git a/script/c100000141.lua b/script/c100000141.lua deleted file mode 100644 index eb3ef668..00000000 --- a/script/c100000141.lua +++ /dev/null @@ -1,45 +0,0 @@ ---ＤＴ デス・サブマリン -function c100000141.initial_effect(c) - --synchro summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetValue(c100000141.synlimit) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000141,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e2:SetCondition(c100000141.spcon) - e2:SetTarget(c100000141.target) - e2:SetOperation(c100000141.operation) - c:RegisterEffect(e2) -end -c100000141[0]=true -c100000141[1]=true -function c100000141.synlimit(e,c) - if not c then return false end - local code=c:GetOriginalCode() - if code==100000150 or code==100000151 or code==100000152 or code==100000153 or code==100000154 or code==100000155 or code==100000156 then - return else return not c:IsSetCard(0x301) end -end -function c100000141.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(e:GetHandler():GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetLocationCount(e:GetHandler():GetControler(),LOCATION_MZONE)>0 -end -function c100000141.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c100000141[tp] and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) - c100000141[tp]=false -end -function c100000141.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) -end diff --git a/script/c100000142.lua b/script/c100000142.lua deleted file mode 100644 index fb69f36e..00000000 --- a/script/c100000142.lua +++ /dev/null @@ -1,31 +0,0 @@ ---ＤＴ カオスローグ -function c100000142.initial_effect(c) - --synchro summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetValue(c100000142.synlimit) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000142,0)) - e2:SetCategory(CATEGORY_DECKDES) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_BE_MATERIAL) - e2:SetTarget(c100000142.target) - e2:SetOperation(c100000142.operation) - c:RegisterEffect(e2) -end -function c100000142.synlimit(e,c) - if not c then return false end - local code=c:GetOriginalCode() - if code==100000150 or code==100000151 or code==100000152 or code==100000153 or code==100000154 or code==100000155 or code==100000156 then - return else return not c:IsSetCard(0x301) end -end -function c100000142.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,1-tp,5) -end -function c100000142.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.DiscardDeck(1-tp,5,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000143.lua b/script/c100000143.lua deleted file mode 100644 index 5109a24f..00000000 --- a/script/c100000143.lua +++ /dev/null @@ -1,42 +0,0 @@ ---ＤＴ カタストローグ -function c100000143.initial_effect(c) - --synchro summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetValue(c100000143.synlimit) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000143,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_BE_MATERIAL) - e2:SetCondition(c100000143.drcon) - e2:SetTarget(c100000143.target) - e2:SetOperation(c100000143.operation) - c:RegisterEffect(e2) -end -function c100000143.synlimit(e,c) - if not c then return false end - local code=c:GetOriginalCode() - if code==100000150 or code==100000151 or code==100000152 or code==100000153 or code==100000154 or code==100000155 or code==100000156 then - return else return not c:IsSetCard(0x301) end -end -function c100000143.drcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO -end -function c100000143.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100000143.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100000144.lua b/script/c100000144.lua deleted file mode 100644 index 8f2141d0..00000000 --- a/script/c100000144.lua +++ /dev/null @@ -1,30 +0,0 @@ ---ＤＴ スパイダー・コクーン -function c100000144.initial_effect(c) - --synchro summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetValue(c100000144.synlimit) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND) - e2:SetCondition(c100000144.spcon) - c:RegisterEffect(e2) -end -function c100000144.synlimit(e,c) - if not c then return false end - local code=c:GetOriginalCode() - if code==100000150 or code==100000151 or code==100000152 or code==100000153 or code==100000154 or code==100000155 or code==100000156 then - return else return not c:IsSetCard(0x301) end -end -function c100000144.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)>0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end \ No newline at end of file diff --git a/script/c100000145.lua b/script/c100000145.lua deleted file mode 100644 index 5497e8f9..00000000 --- a/script/c100000145.lua +++ /dev/null @@ -1,64 +0,0 @@ ---ＤＴ 黒の女神ウィタカ -function c100000145.initial_effect(c) - c:EnableReviveLimit() - --synchro summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetValue(c100000145.synlimit) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND) - e2:SetCondition(c100000145.spcon) - e2:SetOperation(c100000145.spop) - c:RegisterEffect(e2) - --lvchange - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_LVCHANGE) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1) - e3:SetTarget(c100000145.lvtg) - e3:SetOperation(c100000145.lvop) - c:RegisterEffect(e3) -end -function c100000145.synlimit(e,c) - if not c then return false end - local code=c:GetOriginalCode() - if code==100000150 or code==100000151 or code==100000152 or code==100000153 or code==100000154 or code==100000155 or code==100000156 then - return else return not c:IsSetCard(0x301) end -end -function c100000145.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and Duel.CheckLPCost(c:GetControler(),1000) -end -function c100000145.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.PayLPCost(tp,1000) -end -function c100000145.lvfilter(c) - return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) -end -function c100000145.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000145.lvfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000145.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100000145.lvfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) -end -function c100000145.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c100000146.lua b/script/c100000146.lua deleted file mode 100644 index 2c3c211d..00000000 --- a/script/c100000146.lua +++ /dev/null @@ -1,40 +0,0 @@ ---ＤＴ ダーク・エイプ -function c100000146.initial_effect(c) - --synchro summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetValue(c100000146.synlimit) - c:RegisterEffect(e1) - --draw - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000146,0)) - e2:SetCategory(CATEGORY_DRAW) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_BE_MATERIAL) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCondition(c100000146.drcon) - e2:SetTarget(c100000146.drtg) - e2:SetOperation(c100000146.drop) - c:RegisterEffect(e2) -end -function c100000146.synlimit(e,c) - if not c then return false end - local code=c:GetOriginalCode() - if code==100000150 or code==100000151 or code==100000152 or code==100000153 or code==100000154 or code==100000155 or code==100000156 then - return else return not c:IsSetCard(0x301) end -end -function c100000146.drcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO -end -function c100000146.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c100000146.drop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000147.lua b/script/c100000147.lua deleted file mode 100644 index 0b7693f0..00000000 --- a/script/c100000147.lua +++ /dev/null @@ -1,27 +0,0 @@ ---ダーク・ウェーブ -function c100000147.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000147.target) - e1:SetOperation(c100000147.activate) - c:RegisterEffect(e1) -end -function c100000147.filter(c) - local lv=c:GetLevel() - return c:IsFaceup() and lv>0 and not c:IsType(TYPE_TUNER) -end -function c100000147.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100000147.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000147.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100000147.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100000147.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - tc:RegisterFlagEffect(100000147,RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END,0,1) - end -end \ No newline at end of file diff --git a/script/c100000149.lua b/script/c100000149.lua deleted file mode 100644 index 3f6abfbc..00000000 --- a/script/c100000149.lua +++ /dev/null @@ -1,66 +0,0 @@ ---次元破壊砲－ＳＴＵ -function c100000149.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000149.target) - e1:SetOperation(c100000149.operation) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetOperation(c100000149.desop) - c:RegisterEffect(e2) - --negate - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_DISABLE) - c:RegisterEffect(e3) - --Pierce - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e4) -end -function c100000149.filter(c,e,tp) - return c:IsCode(84243274) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000149.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100000149.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000149.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000149.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000149.eqlimit(e,c) - return e:GetOwner()==c -end -function c100000149.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 then return end - Duel.Equip(tp,c,tc) - --Add Equip limit - local e1=Effect.CreateEffect(tc) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c100000149.eqlimit) - c:RegisterEffect(e1) - end -end -function c100000149.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=e:GetHandler():GetEquipTarget() - if c:IsReason(REASON_DESTROY) and tc and tc:IsLocation(LOCATION_MZONE) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c100000150.lua b/script/c100000150.lua deleted file mode 100644 index d630e626..00000000 --- a/script/c100000150.lua +++ /dev/null @@ -1,111 +0,0 @@ ---ワンハンドレッド·アイ·ドラゴン -function c100000150.initial_effect(c) - --dark synchro summon - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c100000150.syncon) - e1:SetOperation(c100000150.synop) - e1:SetValue(SUMMON_TYPE_SYNCHRO) - c:RegisterEffect(e1) - --copy - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_ADJUST) - e2:SetRange(LOCATION_MZONE) - e2:SetOperation(c100000150.operation) - c:RegisterEffect(e2) - --search - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000150,1)) - e3:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetCode(EVENT_DESTROY) - e3:SetCondition(c100000150.thcon) - e3:SetTarget(c100000150.thtg) - e3:SetOperation(c100000150.thop) - c:RegisterEffect(e3) -end -function c100000150.matfilter1(c,syncard) - return c:IsSetCard(0x301) and c:IsType(TYPE_TUNER) and c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) -end -function c100000150.matfilter2(c,syncard) - return c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) and not c:IsType(TYPE_TUNER) -end -function c100000150.synfilter1(c,lv,g1,g2) - local tlv=c:GetLevel() - if c:GetFlagEffect(100000147)==0 then - return g1:IsExists(c100000150.synfilter3,1,nil,lv+tlv) - else - return g1:IsExists(c100000150.synfilter3,1,nil,lv-tlv) - end -end -function c100000150.synfilter3(c,lv) - return c:GetLevel()==lv -end -function c100000150.syncon(e,c,tuner) - if c==nil then return true end - local tp=c:GetControler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<-1 then return false end - local g1=Duel.GetMatchingGroup(c100000150.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local g2=Duel.GetMatchingGroup(c100000150.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - return g2:IsExists(c100000150.synfilter1,1,nil,lv,g1,g2) -end -function c100000150.synop(e,tp,eg,ep,ev,re,r,rp,c,tuner) - local g=Group.CreateGroup() - local g1=Duel.GetMatchingGroup(c100000150.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local g2=Duel.GetMatchingGroup(c100000150.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local m3=g2:FilterSelect(tp,c100000150.synfilter1,1,1,nil,lv,g1,g2) - local mt1=m3:GetFirst() - g:AddCard(mt1) - local lv1=mt1:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - if mt1:GetFlagEffect(100000147)==0 then - local t1=g1:FilterSelect(tp,c100000150.synfilter3,1,1,nil,lv+lv1) - g:Merge(t1) - else - local t1=g1:FilterSelect(tp,c100000150.synfilter3,1,1,nil,lv-lv1) - g:Merge(t1) - end - c:SetMaterial(g) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000150,2)) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000150,3)) - Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000150,4)) -end -function c100000150.filter(c) - return c:IsSetCard(0xb) and c:IsType(TYPE_MONSTER) -end -function c100000150.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local wg=Duel.GetMatchingGroup(c100000150.filter,c:GetControler(),LOCATION_GRAVE,0,nil) - local wbc=wg:GetFirst() - while wbc do - local code=wbc:GetOriginalCode() - if c:IsFaceup() and c:GetFlagEffect(code)==0 then - c:CopyEffect(code, RESET_EVENT+0x1fe0000+EVENT_CHAINING, 1) - c:RegisterFlagEffect(code,RESET_EVENT+0x1fe0000+EVENT_CHAINING,0,1) - end - wbc=wg:GetNext() - end -end -function c100000150.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsReason(REASON_DESTROY) -end -function c100000150.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK) -end -function c100000150.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - 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) - end -end diff --git a/script/c100000151.lua b/script/c100000151.lua deleted file mode 100644 index 83f22e7a..00000000 --- a/script/c100000151.lua +++ /dev/null @@ -1,94 +0,0 @@ ---ダーク・フラット・トップ -function c100000151.initial_effect(c) - --dark synchro summon - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c100000151.syncon) - e1:SetOperation(c100000151.synop) - e1:SetValue(SUMMON_TYPE_SYNCHRO) - c:RegisterEffect(e1) - --Activate - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000151,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c100000151.target) - e2:SetOperation(c100000151.activate) - c:RegisterEffect(e2) -end -function c100000151.matfilter1(c,syncard) - return c:IsSetCard(0x301) and c:IsType(TYPE_TUNER) and c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) -end -function c100000151.matfilter2(c,syncard) - return c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) and not c:IsType(TYPE_TUNER) -end -function c100000151.synfilter1(c,lv,g1,g2) - local tlv=c:GetLevel() - if c:GetFlagEffect(100000147)==0 then - return g1:IsExists(c100000151.synfilter3,1,nil,lv+tlv) - else - return g1:IsExists(c100000151.synfilter3,1,nil,lv-tlv) - end -end -function c100000151.synfilter3(c,lv) - return c:GetLevel()==lv -end -function c100000151.syncon(e,c,tuner) - if c==nil then return true end - local tp=c:GetControler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<-1 then return false end - local g1=Duel.GetMatchingGroup(c100000151.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local g2=Duel.GetMatchingGroup(c100000151.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - return g2:IsExists(c100000151.synfilter1,1,nil,lv,g1,g2) -end -function c100000151.synop(e,tp,eg,ep,ev,re,r,rp,c,tuner) - local g=Group.CreateGroup() - local g1=Duel.GetMatchingGroup(c100000151.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local g2=Duel.GetMatchingGroup(c100000151.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local m3=g2:FilterSelect(tp,c100000151.synfilter1,1,1,nil,lv,g1,g2) - local mt1=m3:GetFirst() - g:AddCard(mt1) - local lv1=mt1:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - if mt1:GetFlagEffect(100000147)==0 then - local t1=g1:FilterSelect(tp,c100000151.synfilter3,1,1,nil,lv+lv1) - g:Merge(t1) - else - local t1=g1:FilterSelect(tp,c100000151.synfilter3,1,1,nil,lv-lv1) - g:Merge(t1) - end - c:SetMaterial(g) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000151,2)) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000151,3)) - Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000150,4)) -end -function c100000151.filter(c,e,tp) - return c:GetLevel()==8 and c:IsRace(RACE_MACHINE) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000151.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100000151.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000151.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000151.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000151.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000152.lua b/script/c100000152.lua deleted file mode 100644 index 62891ee0..00000000 --- a/script/c100000152.lua +++ /dev/null @@ -1,116 +0,0 @@ ---猿魔王 ゼーマン -function c100000152.initial_effect(c) - --dark synchro summon - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c100000152.syncon) - e1:SetOperation(c100000152.synop) - e1:SetValue(SUMMON_TYPE_SYNCHRO) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000152,0)) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c100000152.condition) - e2:SetCost(c100000152.cost) - e2:SetTarget(c100000152.target) - e2:SetOperation(c100000152.operation) - c:RegisterEffect(e2) - --actlimit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_ATTACK_ANNOUNCE) - e3:SetOperation(c100000152.atkop) - c:RegisterEffect(e3) -end -function c100000152.matfilter1(c,syncard) - return c:IsSetCard(0x301) and c:IsType(TYPE_TUNER) and c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) -end -function c100000152.matfilter2(c,syncard) - return c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) and not c:IsType(TYPE_TUNER) -end -function c100000152.synfilter1(c,lv,g1,g2) - local tlv=c:GetLevel() - if c:GetFlagEffect(100000147)==0 then - return g1:IsExists(c100000152.synfilter3,1,nil,lv+tlv) - else - return g1:IsExists(c100000152.synfilter3,1,nil,lv-tlv) - end -end -function c100000152.synfilter3(c,lv) - return c:GetLevel()==lv -end -function c100000152.syncon(e,c,tuner) - if c==nil then return true end - local tp=c:GetControler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<-1 then return false end - local g1=Duel.GetMatchingGroup(c100000152.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local g2=Duel.GetMatchingGroup(c100000152.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - return g2:IsExists(c100000152.synfilter1,1,nil,lv,g1,g2) -end -function c100000152.synop(e,tp,eg,ep,ev,re,r,rp,c,tuner) - local g=Group.CreateGroup() - local g1=Duel.GetMatchingGroup(c100000152.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local g2=Duel.GetMatchingGroup(c100000152.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local m3=g2:FilterSelect(tp,c100000152.synfilter1,1,1,nil,lv,g1,g2) - local mt1=m3:GetFirst() - g:AddCard(mt1) - local lv1=mt1:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - if mt1:GetFlagEffect(100000147)==0 then - local t1=g1:FilterSelect(tp,c100000152.synfilter3,1,1,nil,lv+lv1) - g:Merge(t1) - else - local t1=g1:FilterSelect(tp,c100000152.synfilter3,1,1,nil,lv-lv1) - g:Merge(t1) - end - c:SetMaterial(g) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000152,1)) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000152,2)) - Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000150,4)) -end -function c100000152.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c100000152.cfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() -end -function c100000152.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000152.cfilter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000152.cfilter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,POS_FACEUP,REASON_COST) -end -function c100000152.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return false end - if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) -end -function c100000152.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.NegateAttack() -end -function c100000152.atkop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetTargetRange(0,1) - e1:SetValue(c100000152.aclimit) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE) - Duel.RegisterEffect(e1,tp) -end -function c100000152.aclimit(e,re,tp) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) -end \ No newline at end of file diff --git a/script/c100000153.lua b/script/c100000153.lua deleted file mode 100644 index 2d92d241..00000000 --- a/script/c100000153.lua +++ /dev/null @@ -1,111 +0,0 @@ ---月影龍 クイラ -function c100000153.initial_effect(c) - --dark synchro summon - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c100000153.syncon) - e1:SetOperation(c100000153.synop) - e1:SetValue(SUMMON_TYPE_SYNCHRO) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000153,1)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetCondition(c100000153.descon) - e2:SetOperation(c100000153.desop) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000153,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_DESTROYED) - e3:SetCondition(c100000153.spcon) - e3:SetTarget(c100000153.sptg) - e3:SetOperation(c100000153.spop) - c:RegisterEffect(e3) -end -function c100000153.matfilter1(c,syncard) - return c:IsSetCard(0x301) and c:IsType(TYPE_TUNER) and c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) -end -function c100000153.matfilter2(c,syncard) - return c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) and not c:IsType(TYPE_TUNER) -end -function c100000153.synfilter1(c,lv,g1,g2) - local tlv=c:GetLevel() - if c:GetFlagEffect(100000147)==0 then - return g1:IsExists(c100000153.synfilter3,1,nil,lv+tlv) - else - return g1:IsExists(c100000153.synfilter3,1,nil,lv-tlv) - end -end -function c100000153.synfilter3(c,lv) - return c:GetLevel()==lv -end -function c100000153.syncon(e,c,tuner) - if c==nil then return true end - local tp=c:GetControler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<-1 then return false end - local g1=Duel.GetMatchingGroup(c100000153.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local g2=Duel.GetMatchingGroup(c100000153.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - return g2:IsExists(c100000153.synfilter1,1,nil,lv,g1,g2) -end -function c100000153.synop(e,tp,eg,ep,ev,re,r,rp,c,tuner) - local g=Group.CreateGroup() - local g1=Duel.GetMatchingGroup(c100000153.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local g2=Duel.GetMatchingGroup(c100000153.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local m3=g2:FilterSelect(tp,c100000153.synfilter1,1,1,nil,lv,g1,g2) - local mt1=m3:GetFirst() - g:AddCard(mt1) - local lv1=mt1:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - if mt1:GetFlagEffect(100000147)==0 then - local t1=g1:FilterSelect(tp,c100000153.synfilter3,1,1,nil,lv+lv1) - g:Merge(t1) - else - local t1=g1:FilterSelect(tp,c100000153.synfilter3,1,1,nil,lv-lv1) - g:Merge(t1) - end - c:SetMaterial(g) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000153,2)) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000153,3)) - Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000150,4)) -end -function c100000153.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000153.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end -function c100000153.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) -end -function c100000153.spfilter(c,e,tp) - return c:IsCode(39823987) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000153.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100000153.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000153.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000153.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000153.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000154.lua b/script/c100000154.lua deleted file mode 100644 index 77490933..00000000 --- a/script/c100000154.lua +++ /dev/null @@ -1,140 +0,0 @@ ---地底のアラクネー -function c100000154.initial_effect(c) - --dark synchro summon - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c100000154.syncon) - e1:SetOperation(c100000154.synop) - e1:SetValue(SUMMON_TYPE_SYNCHRO) - c:RegisterEffect(e1) - --actlimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetOperation(c100000154.atkop) - c:RegisterEffect(e2) - --equip - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000154,0)) - e3:SetCategory(CATEGORY_EQUIP) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCondition(c100000154.eqcon) - e3:SetTarget(c100000154.eqtg) - e3:SetOperation(c100000154.eqop) - c:RegisterEffect(e3) -end -function c100000154.matfilter1(c,syncard) - return c:IsSetCard(0x301) and c:IsType(TYPE_TUNER) and c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) -end -function c100000154.matfilter2(c,syncard) - return c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) and not c:IsType(TYPE_TUNER) -end -function c100000154.synfilter1(c,lv,g1,g2) - local tlv=c:GetLevel() - if c:GetFlagEffect(100000147)==0 then - return g1:IsExists(c100000154.synfilter3,1,nil,lv+tlv) - else - return g1:IsExists(c100000154.synfilter3,1,nil,lv-tlv) - end -end -function c100000154.synfilter3(c,lv) - return c:GetLevel()==lv -end -function c100000154.syncon(e,c,tuner) - if c==nil then return true end - local tp=c:GetControler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<-1 then return false end - local g1=Duel.GetMatchingGroup(c100000154.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local g2=Duel.GetMatchingGroup(c100000154.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - return g2:IsExists(c100000154.synfilter1,1,nil,lv,g1,g2) -end -function c100000154.synop(e,tp,eg,ep,ev,re,r,rp,c,tuner) - local g=Group.CreateGroup() - local g1=Duel.GetMatchingGroup(c100000154.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local g2=Duel.GetMatchingGroup(c100000154.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local m3=g2:FilterSelect(tp,c100000154.synfilter1,1,1,nil,lv,g1,g2) - local mt1=m3:GetFirst() - g:AddCard(mt1) - local lv1=mt1:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - if mt1:GetFlagEffect(100000147)==0 then - local t1=g1:FilterSelect(tp,c100000154.synfilter3,1,1,nil,lv+lv1) - g:Merge(t1) - else - local t1=g1:FilterSelect(tp,c100000154.synfilter3,1,1,nil,lv-lv1) - g:Merge(t1) - end - c:SetMaterial(g) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000155,2)) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000155,3)) - Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000150,4)) -end -function c100000154.atkop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetTargetRange(0,1) - e1:SetValue(c100000154.aclimit) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE) - Duel.RegisterEffect(e1,tp) -end -function c100000154.aclimit(e,re,tp) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) -end -function c100000154.eqcon(e,tp,eg,ep,ev,re,r,rp) - local ec=e:GetLabelObject() - return ec==nil or ec:GetFlagEffect(100000154)==0 -end -function c100000154.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsAbleToChangeControler() end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) -end -function c100000154.eqlimit(e,c) - return e:GetOwner()==c -end -function c100000154.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - if c:IsFaceup() and c:IsRelateToEffect(e) then - local atk=tc:GetTextAttack() - local def=tc:GetTextDefence() - if tc:IsFacedown() or atk<0 then atk=0 end - if tc:IsFacedown() or def<0 then def=0 end - if not Duel.Equip(tp,tc,c,false) then return end - --Add Equip limit - tc:RegisterFlagEffect(100000154,RESET_EVENT+0x1fe0000,0,0) - e:SetLabelObject(tc) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c100000154.eqlimit) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_DESTROY_SUBSTITUTE) - e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(1) - tc:RegisterEffect(e2) - else Duel.SendtoGrave(tc,REASON_EFFECT) end - end -end \ No newline at end of file diff --git a/script/c100000155.lua b/script/c100000155.lua deleted file mode 100644 index f069ceec..00000000 --- a/script/c100000155.lua +++ /dev/null @@ -1,142 +0,0 @@ ---氷結のフィッツジェラルド -function c100000155.initial_effect(c) - --dark synchro summon - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c100000155.syncon) - e1:SetOperation(c100000155.synop) - e1:SetValue(SUMMON_TYPE_SYNCHRO) - c:RegisterEffect(e1) - --actlimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetOperation(c100000155.atkop) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000155,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_BATTLE_DESTROYED) - e3:SetCondition(c100000155.spcon) - e3:SetTarget(c100000155.sptg) - e3:SetOperation(c100000155.spop) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_BATTLED) - e4:SetCondition(c100000155.condition) - e4:SetOperation(c100000155.operation) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetCategory(CATEGORY_DESTROY) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e5:SetRange(LOCATION_MZONE) - e5:SetCountLimit(1) - e5:SetCode(EVENT_PHASE+PHASE_BATTLE) - e5:SetCondition(c100000155.decon) - e5:SetOperation(c100000155.desop) - c:RegisterEffect(e5) -end -function c100000155.matfilter1(c,syncard) - return c:IsSetCard(0x301) and c:IsType(TYPE_TUNER) and c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) -end -function c100000155.matfilter2(c,syncard) - return c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) and not c:IsType(TYPE_TUNER) -end -function c100000155.synfilter1(c,lv,g1,g2) - local tlv=c:GetLevel() - if c:GetFlagEffect(100000147)==0 then - return g1:IsExists(c100000155.synfilter3,1,nil,lv+tlv) - else - return g1:IsExists(c100000155.synfilter3,1,nil,lv-tlv) - end -end -function c100000155.synfilter3(c,lv) - return c:GetLevel()==lv -end -function c100000155.syncon(e,c,tuner) - if c==nil then return true end - local tp=c:GetControler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<-1 then return false end - local g1=Duel.GetMatchingGroup(c100000155.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local g2=Duel.GetMatchingGroup(c100000155.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - return g2:IsExists(c100000155.synfilter1,1,nil,lv,g1,g2) -end -function c100000155.synop(e,tp,eg,ep,ev,re,r,rp,c,tuner) - local g=Group.CreateGroup() - local g1=Duel.GetMatchingGroup(c100000155.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local g2=Duel.GetMatchingGroup(c100000155.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local m3=g2:FilterSelect(tp,c100000155.synfilter1,1,1,nil,lv,g1,g2) - local mt1=m3:GetFirst() - g:AddCard(mt1) - local lv1=mt1:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - if mt1:GetFlagEffect(100000147)==0 then - local t1=g1:FilterSelect(tp,c100000155.synfilter3,1,1,nil,lv+lv1) - g:Merge(t1) - else - local t1=g1:FilterSelect(tp,c100000155.synfilter3,1,1,nil,lv-lv1) - g:Merge(t1) - end - c:SetMaterial(g) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000155,2)) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000155,3)) - Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000150,4)) -end -function c100000155.atkop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetTargetRange(0,1) - e1:SetValue(c100000155.aclimit) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE) - Duel.RegisterEffect(e1,tp) -end -function c100000155.aclimit(e,re,tp) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) -end -function c100000155.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsLocation(LOCATION_GRAVE) and c:IsReason(REASON_BATTLE) and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 -end -function c100000155.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c100000155.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0 then return end - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end -function c100000155.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==e:GetHandler() -end -function c100000155.operation(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetAttacker() - tg:RegisterFlagEffect(100000155,RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END,0,1) -end -function c100000155.cfilter(c) - return c:GetFlagEffect(100000155)~=0 and c:IsFaceup() and c:IsDestructable() -end -function c100000155.decon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000155.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) -end -function c100000155.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local sg=Duel.GetMatchingGroup(c100000155.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) - Duel.Destroy(sg,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000156.lua b/script/c100000156.lua deleted file mode 100644 index 203e3ec1..00000000 --- a/script/c100000156.lua +++ /dev/null @@ -1,93 +0,0 @@ ---漆黒のズムウォル -function c100000156.initial_effect(c) - --dark synchro summon - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c100000156.syncon) - e1:SetOperation(c100000156.synop) - e1:SetValue(SUMMON_TYPE_SYNCHRO) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(1) - c:RegisterEffect(e2) - --deckdes - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000156,0)) - e3:SetCategory(CATEGORY_DECKDES) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_ATTACK_ANNOUNCE) - e3:SetCondition(c100000156.tgcon) - e3:SetTarget(c100000156.tgtg) - e3:SetOperation(c100000156.tgop) - c:RegisterEffect(e3) -end -function c100000156.matfilter1(c,syncard) - return c:IsSetCard(0x301) and c:IsType(TYPE_TUNER) and c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) -end -function c100000156.matfilter2(c,syncard) - return c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) and not c:IsType(TYPE_TUNER) -end -function c100000156.synfilter1(c,lv,g1,g2) - local tlv=c:GetLevel() - if c:GetFlagEffect(100000147)==0 then - return g1:IsExists(c100000156.synfilter3,1,nil,lv+tlv) - else - return g1:IsExists(c100000156.synfilter3,1,nil,lv-tlv) - end -end -function c100000156.synfilter3(c,lv) - return c:GetLevel()==lv -end -function c100000156.syncon(e,c,tuner) - if c==nil then return true end - local tp=c:GetControler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<-1 then return false end - local g1=Duel.GetMatchingGroup(c100000156.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local g2=Duel.GetMatchingGroup(c100000156.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - return g2:IsExists(c100000156.synfilter1,1,nil,lv,g1,g2) -end -function c100000156.synop(e,tp,eg,ep,ev,re,r,rp,c,tuner) - local g=Group.CreateGroup() - local g1=Duel.GetMatchingGroup(c100000156.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local g2=Duel.GetMatchingGroup(c100000156.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local m3=g2:FilterSelect(tp,c100000156.synfilter1,1,1,nil,lv,g1,g2) - local mt1=m3:GetFirst() - g:AddCard(mt1) - local lv1=mt1:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - if mt1:GetFlagEffect(100000147)==0 then - local t1=g1:FilterSelect(tp,c100000156.synfilter3,1,1,nil,lv+lv1) - g:Merge(t1) - else - local t1=g1:FilterSelect(tp,c100000156.synfilter3,1,1,nil,lv-lv1) - g:Merge(t1) - end - c:SetMaterial(g) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000155,2)) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000155,3)) - Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO) - Duel.Hint(HINT_MESSAGE,1-tp,aux.Stringid(100000150,4)) -end -function c100000156.tgcon(e,c) - return Duel.GetAttackTarget()~=nil and Duel.GetAttackTarget():GetAttack()>e:GetHandler():GetBaseAttack() -end -function c100000156.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local ct=math.floor((Duel.GetAttackTarget():GetAttack()-e:GetHandler():GetBaseAttack())/100) - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,1-tp,ct) -end -function c100000156.tgop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetAttackTarget():GetAttack()>e:GetHandler():GetBaseAttack() then - local ct=math.floor((Duel.GetAttackTarget():GetAttack()-e:GetHandler():GetBaseAttack())/100) - Duel.DiscardDeck(1-tp,ct,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100000157.lua b/script/c100000157.lua deleted file mode 100644 index 9d5ce74d..00000000 --- a/script/c100000157.lua +++ /dev/null @@ -1,28 +0,0 @@ ---ブリザード・リザード -function c100000157.initial_effect(c) - --damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000157,0)) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c100000157.condition) - e1:SetTarget(c100000157.target) - e1:SetOperation(c100000157.operation) - c:RegisterEffect(e1) -end -function c100000157.condition(e,tp,eg,ep,ev,re,r,rp) - e:SetLabel(1-e:GetHandler():GetPreviousControler()) - return e:GetHandler():IsReason(REASON_BATTLE) -end -function c100000157.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(e:GetLabel()) - Duel.SetTargetParam(800) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,e:GetLabel(),800) -end -function c100000157.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100000158.lua b/script/c100000158.lua deleted file mode 100644 index f0fe65ec..00000000 --- a/script/c100000158.lua +++ /dev/null @@ -1,44 +0,0 @@ ---アイス・ミラー -function c100000158.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000158.target) - e1:SetOperation(c100000158.activate) - c:RegisterEffect(e1) -end -function c100000158.filter(c,e,tp) - return c:IsFaceup() and c:IsLevelBelow(3) and c:IsAttribute(ATTRIBUTE_WATER) - and Duel.GetFirstMatchingCard(c100000158.filter2,tp,LOCATION_DECK,0,nil,c:GetCode(),e,tp) -end -function c100000158.filter2(c,code,e,tp) - return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000158.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000158.filter(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000158.filter,tp,LOCATION_MZONE,0,1,nil,e,tp)end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100000158,0)) - Duel.SelectTarget(tp,c100000158.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000158.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc=g:GetFirst() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=Duel.GetFirstMatchingCard(c100000158.filter2,tp,LOCATION_DECK,0,nil,tc:GetCode(),e,tp) - if Duel.SpecialSummonStep(sg,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - sg:RegisterEffect(e1) - Duel.SpecialSummonComplete() - end - end -end diff --git a/script/c100000159.lua b/script/c100000159.lua deleted file mode 100644 index 6a3852c0..00000000 --- a/script/c100000159.lua +++ /dev/null @@ -1,32 +0,0 @@ ---アサルト・ガンドッグ -function c100000159.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000159,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c100000159.condition) - e1:SetTarget(c100000159.target) - e1:SetOperation(c100000159.operation) - c:RegisterEffect(e1) -end -function c100000159.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) -end -function c100000159.filter(c,e,tp) - return c:IsCode(100000159) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000159.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000159.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000159.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000159.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000160.lua b/script/c100000160.lua deleted file mode 100644 index 1502ccb2..00000000 --- a/script/c100000160.lua +++ /dev/null @@ -1,50 +0,0 @@ ---クリアー・キューブ -function c100000160.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_REMOVE_ATTRIBUTE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetTarget(c100000160.ratg) - e1:SetValue(ATTRIBUTE_DARK) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000160,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e2:SetCondition(c100000160.spcon) - e2:SetTarget(c100000160.sptg) - e2:SetOperation(c100000160.spop) - c:RegisterEffect(e2) -end -function c100000160.ratg(e) - return e:GetHandler() -end -function c100000160.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousPosition(POS_FACEUP) -end -function c100000160.filter(c,e,tp) - return c:IsCode(100000160) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000160.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000160.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - if e:GetHandler():IsLocation(LOCATION_HAND) then - Duel.ConfirmCards(1-tp,e:GetHandler()) - Duel.ShuffleHand(tp) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000160.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000160.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000161.lua b/script/c100000161.lua deleted file mode 100644 index d506054b..00000000 --- a/script/c100000161.lua +++ /dev/null @@ -1,45 +0,0 @@ ---クリアー・ファントム -function c100000161.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_REMOVE_ATTRIBUTE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetTarget(c100000161.ratg) - e1:SetValue(ATTRIBUTE_DARK) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000161,0)) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DECKDES) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_BATTLE_DESTROYED) - e2:SetCondition(c100000161.condition) - e2:SetTarget(c100000161.target) - e2:SetOperation(c100000161.operation) - c:RegisterEffect(e2) -end -function c100000161.ratg(e) - return e:GetHandler() -end -function c100000161.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsLocation(LOCATION_GRAVE) and c:GetPreviousControler()==tp - and c:GetReasonCard():IsRelateToBattle() and c:IsReason(REASON_BATTLE) - and c:GetBattlePosition()==POS_FACEUP_ATTACK -end -function c100000161.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return true end - local rc=e:GetHandler():GetReasonCard() - rc:CreateEffectRelation(e) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,rc,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,1-tp,3) -end -function c100000161.operation(e,tp,eg,ep,ev,re,r,rp) - local rc=e:GetHandler():GetReasonCard() - if rc:IsRelateToEffect(e) then - Duel.Destroy(rc,REASON_EFFECT) - end - Duel.DiscardDeck(1-tp,3,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000162.lua b/script/c100000162.lua deleted file mode 100644 index 7390291a..00000000 --- a/script/c100000162.lua +++ /dev/null @@ -1,40 +0,0 @@ ---クリアー・レイジ・ゴーレム -function c100000162.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_REMOVE_ATTRIBUTE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetTarget(c100000162.ratg) - e1:SetValue(ATTRIBUTE_DARK) - c:RegisterEffect(e1) - --DAMAGE - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000162,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_BATTLE_DAMAGE) - e2:SetCondition(c100000162.condition) - e2:SetTarget(c100000162.target) - e2:SetOperation(c100000162.operation) - c:RegisterEffect(e2) -end -function c100000162.ratg(e) - return e:GetHandler() -end -function c100000162.condition(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp and Duel.GetAttackTarget()==nil -end -function c100000162.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - local dam=Duel.GetFieldGroupCount(1-tp,LOCATION_HAND,0)*300 - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100000162.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100000163.lua b/script/c100000163.lua deleted file mode 100644 index 8227ac36..00000000 --- a/script/c100000163.lua +++ /dev/null @@ -1,60 +0,0 @@ ---クリアー・ヴィシャス・ナイト -function c100000163.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_REMOVE_ATTRIBUTE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetTarget(c100000163.ratg) - e1:SetValue(ATTRIBUTE_DARK) - c:RegisterEffect(e1) - --summon with 1 tribute - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000163,0)) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SUMMON_PROC) - e2:SetCondition(c100000163.otcon) - e2:SetOperation(c100000163.otop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - --atk - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c100000163.adcon) - e3:SetValue(c100000163.adval) - c:RegisterEffect(e3) -end -function c100000163.ratg(e) - return e:GetHandler() -end -function c100000163.otcon(e,c) - if c==nil then return true end - return c:GetLevel()>6 and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)~=0 and Duel.GetTributeCount(c)>0 -end -function c100000163.otop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.GetTributeGroup(c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local sg=g:Select(tp,1,1,nil) - c:SetMaterial(sg) - Duel.Release(sg, REASON_SUMMON+REASON_MATERIAL) -end -function c100000163.filter(c) - return not c:IsStatus(STATUS_LEAVE_CONFIRMED) -end -function c100000163.adcon(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c100000163.filter,e:GetHandler():GetControler(),LOCATION_ONFIELD+LOCATION_HAND,0,1,e:GetHandler()) -end -function c100000163.adval(e,c) - local g=Duel.GetMatchingGroup(Card.IsFaceup,e:GetHandler():GetControler(),0,LOCATION_MZONE,e:GetHandler()) - if g:GetCount()==0 then - return 0 - else - local tg,val=g:GetMaxGroup(Card.GetBaseAttack) - return val - end -end \ No newline at end of file diff --git a/script/c100000164.lua b/script/c100000164.lua deleted file mode 100644 index c6a57e42..00000000 --- a/script/c100000164.lua +++ /dev/null @@ -1,74 +0,0 @@ ---クリアー・ウォール -function c100000164.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --selfdes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_ADJUST) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000164.sdcon) - e2:SetOperation(c100000164.sdop) - c:RegisterEffect(e2) - --battle indestructable - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetTarget(c100000164.indtg) - e3:SetValue(1) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(100000164,0)) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e4:SetRange(LOCATION_SZONE) - e4:SetCode(EVENT_DAMAGE) - e4:SetCondition(c100000164.dscon) - e4:SetTarget(c100000164.dstg) - e4:SetOperation(c100000164.dsop) - c:RegisterEffect(e4) - -- - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e5:SetRange(LOCATION_SZONE) - e5:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e5:SetCondition(c100000164.condition2) - e5:SetOperation(c100000164.activate) - c:RegisterEffect(e5) -end -function c100000164.sdcon(e,tp,eg,ep,ev,re,r,rp) - local f1=Duel.GetFieldCard(0,LOCATION_SZONE,5) - local f2=Duel.GetFieldCard(1,LOCATION_SZONE,5) - return (f1==nil or f1:IsFacedown() or f1:GetCode()~=33900648) and (f2==nil or f2:IsFacedown() or f2:GetCode()~=33900648) -end -function c100000164.sdop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),Re2SON_EFFECT) -end -function c100000164.indtg(e,c) - return c:IsSetCard(0x306) and c:GetBattlePosition()==POS_FACEUP_ATTACK -end -function c100000164.dscon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(r,REASON_BATTLE)>0 and ep==tp -end -function c100000164.dstg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) -end -function c100000164.dsop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.Destroy(e:GetHandler(),REASON_EFFECT) - end -end -function c100000164.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() and Duel.GetAttackTarget()==nil -end -function c100000164.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetBattleDamage(e:GetHandler():GetControler())<=1000 -end -function c100000164.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(e:GetHandler():GetControler(),0) -end \ No newline at end of file diff --git a/script/c100000166.lua b/script/c100000166.lua deleted file mode 100644 index 704afff9..00000000 --- a/script/c100000166.lua +++ /dev/null @@ -1,83 +0,0 @@ ---酸のラスト・マシン・ウィルス -function c100000166.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_TOHAND) - e1:SetCost(c100000166.cost) - e1:SetTarget(c100000166.target) - e1:SetOperation(c100000166.activate) - c:RegisterEffect(e1) -end -function c100000166.costfilter(c) - return c:IsAttribute(ATTRIBUTE_WATER) -end -function c100000166.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c100000166.costfilter,1,nil) end - local g=Duel.SelectReleaseGroup(tp,c100000166.costfilter,1,1,nil) - Duel.Release(g,REASON_COST) -end -function c100000166.tgfilter(c) - return c:IsFaceup() and c:IsRace(RACE_MACHINE) and c:IsDestructable() -end -function c100000166.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(c100000166.tgfilter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c100000166.filter(c) - return c:IsRace(RACE_MACHINE) -end -function c100000166.activate(e,tp,eg,ep,ev,re,r,rp) - local conf=Duel.GetFieldGroup(tp,0,LOCATION_MZONE+LOCATION_HAND) - if conf:GetCount()>0 then - Duel.ConfirmCards(tp,conf) - local dg=conf:Filter(c100000166.filter,nil) - Duel.Destroy(dg,REASON_EFFECT) - Duel.Damage(1-tp,dg:GetCount()*500,REASON_EFFECT) - Duel.ShuffleHand(1-tp) - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_DRAW) - e1:SetOperation(c100000166.desop) - e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,3) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetCondition(c100000166.turncon) - e2:SetOperation(c100000166.turnop) - e2:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,3) - Duel.RegisterEffect(e2,tp) - e2:SetLabelObject(e1) - e:GetHandler():RegisterFlagEffect(1082946,RESET_PHASE+PHASE_END+RESET_OPPO_TURN,0,3) - c100000166[e:GetHandler()]=e2 -end -function c100000166.desop(e,tp,eg,ep,ev,re,r,rp) - if ep==e:GetOwnerPlayer() then return end - local hg=eg:Filter(Card.IsLocation,nil,LOCATION_HAND) - if hg:GetCount()==0 then return end - Duel.ConfirmCards(1-ep,hg) - local dg=hg:Filter(c100000166.filter,nil) - Duel.Destroy(dg,REASON_EFFECT) - Duel.Damage(ep,dg:GetCount()*500,REASON_EFFECT) - Duel.ShuffleHand(ep) -end -function c100000166.turncon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c100000166.turnop(e,tp,eg,ep,ev,re,r,rp) - local ct=e:GetLabel() - ct=ct+1 - e:SetLabel(ct) - e:GetHandler():SetTurnCounter(ct) - if ct==3 then - e:GetLabelObject():Reset() - e:GetOwner():ResetFlagEffect(1082946) - end -end \ No newline at end of file diff --git a/script/c100000167.lua b/script/c100000167.lua deleted file mode 100644 index d16f810c..00000000 --- a/script/c100000167.lua +++ /dev/null @@ -1,29 +0,0 @@ ---奇跡の穿孔 -function c100000167.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000167.target) - e1:SetOperation(c100000167.activate) - c:RegisterEffect(e1) -end -function c100000167.tgfilter(c) - return c:IsRace(RACE_ROCK) and c:IsAbleToGrave() -end -function c100000167.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000167.tgfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c100000167.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000167.tgfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()==0 then return end - Duel.SendtoGrave(g,REASON_EFFECT) - Duel.BreakEffect() - Duel.ShuffleDeck(tp) - if Duel.IsPlayerCanDraw(tp,1) then - Duel.Draw(tp,1,REASON_EFFECT) - end -end diff --git a/script/c100000168.lua b/script/c100000168.lua deleted file mode 100644 index b0732553..00000000 --- a/script/c100000168.lua +++ /dev/null @@ -1,27 +0,0 @@ ---ゼアル・カタパルト -function c100000168.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000168.target) - e1:SetOperation(c100000168.activate) - c:RegisterEffect(e1) -end -function c100000168.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsSetCard(0x7e) -end -function c100000168.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_HAND) and c100000168.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000168.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,tp,LOCATION_HAND) -end -function c100000168.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc=Duel.SelectTarget(tp,c100000168.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) -end \ No newline at end of file diff --git a/script/c100000169.lua b/script/c100000169.lua deleted file mode 100644 index b93d12db..00000000 --- a/script/c100000169.lua +++ /dev/null @@ -1,62 +0,0 @@ ---爆破紋章 -function c100000169.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000169.target) - e1:SetOperation(c100000169.operation) - c:RegisterEffect(e1) - --equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(1) - c:RegisterEffect(e2) - --damage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000169,0)) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetCondition(c100000169.damcon) - e3:SetTarget(c100000169.damtg) - e3:SetOperation(c100000169.damop) - c:RegisterEffect(e3) -end -function c100000169.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000169.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end -function c100000169.damcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local ec=c:GetPreviousEquipTarget() - if not ec then return end - e:SetLabelObject(ec) - e:SetLabel(ec:GetPreviousControler()) - return c:IsReason(REASON_LOST_TARGET) and ec:IsReason(REASON_DESTROY) -end -function c100000169.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local dam=e:GetLabelObject():GetAttack()/2 - if dam<0 then dam=0 end - Duel.SetTargetPlayer(e:GetLabel()) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,e:GetLabel(),dam) -end -function c100000169.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100000170.lua b/script/c100000170.lua deleted file mode 100644 index d10789f6..00000000 --- a/script/c100000170.lua +++ /dev/null @@ -1,69 +0,0 @@ ---捨て猫 -function c100000170.initial_effect(c) - --target - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e1:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e1:SetCondition(c100000170.con) - e1:SetTarget(c100000170.tg) - e1:SetValue(1) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000170,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_DESTROYED) - e2:SetTarget(c100000170.tga) - e2:SetOperation(c100000170.opa) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000170,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetTarget(c100000170.sptg) - e3:SetOperation(c100000170.spop) - c:RegisterEffect(e3) -end -function c100000170.con(e,c) - return e:GetHandler():IsAttackPos() -end -function c100000170.tg(e,c) - return c~=e:GetHandler() -end -function c100000170.filter(c,e,tp) - return c:IsCode(100000170) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000170.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000170.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000170.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000170.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 -function c100000170.filter2(c,e,tp) - return c:IsCode(100000177) - and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c100000170.tga(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000170.filter2,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c100000170.opa(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000170.filter2,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) -end \ No newline at end of file diff --git a/script/c100000171.lua b/script/c100000171.lua deleted file mode 100644 index b2bf3ed5..00000000 --- a/script/c100000171.lua +++ /dev/null @@ -1,47 +0,0 @@ ---捨て猫娘 -function c100000171.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000171.condition) - e1:SetCost(c100000171.cost) - e1:SetTarget(c100000171.target) - e1:SetOperation(c100000171.operation) - c:RegisterEffect(e1) - --battle indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetCondition(c100000171.con) - e2:SetValue(1) - c:RegisterEffect(e2) -end -function c100000171.con(e,c) - return e:GetHandler():IsAttackPos() -end -function c100000171.costfilter(c) - return c:GetLevel()==1 and c:IsRace(RACE_BEAST) -end -function c100000171.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c100000171.costfilter,1,nil) end - local g=Duel.SelectReleaseGroup(tp,c100000171.costfilter,1,1,nil) - Duel.Release(g,REASON_COST) -end -function c100000171.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker():GetControler()~=tp -end -function c100000171.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) -end -function c100000171.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000172.lua b/script/c100000172.lua deleted file mode 100644 index b24804d2..00000000 --- a/script/c100000172.lua +++ /dev/null @@ -1,79 +0,0 @@ ---キャット・ガール -function c100000172.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000172,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCost(c100000172.spcost) - e1:SetTarget(c100000172.target) - e1:SetOperation(c100000172.operation) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_CANNOT_CHANGE_POSITION) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetTargetRange(0,LOCATION_MZONE) - c:RegisterEffect(e2) - if not c100000172.global_check then - c100000172.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_SPSUMMON_SUCCESS) - ge1:SetOperation(c100000172.checkop) - Duel.RegisterEffect(ge1,0) - local ge2=Effect.CreateEffect(c) - ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW) - ge2:SetOperation(c100000172.clear) - Duel.RegisterEffect(ge2,0) - end -end -function c100000172.checkop(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - while tc do - if tc:GetAttack()>2000 then - c100000172[tc:GetSummonPlayer()]=false - end - tc=eg:GetNext() - end -end -function c100000172.clear(e,tp,eg,ep,ev,re,r,rp) - c100000172[0]=true - c100000172[1]=true -end -function c100000172.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return c100000172[tp] end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c100000172.splimit) - e1:SetLabelObject(e) - Duel.RegisterEffect(e1,tp) -end -function c100000172.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return c:GetAttack()>2000 and e:GetLabelObject()~=se -end -function c100000172.filter(c,e,tp) - return c:GetCode()==100000171 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c100000172.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000172.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND) -end -function c100000172.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000172.filter,tp,LOCATION_GRAVE+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 diff --git a/script/c100000173.lua b/script/c100000173.lua deleted file mode 100644 index 6ed35712..00000000 --- a/script/c100000173.lua +++ /dev/null @@ -1,26 +0,0 @@ ---猫招き -function c100000173.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000173.target) - e1:SetOperation(c100000173.activate) - c:RegisterEffect(e1) -end -function c100000173.filter(c) - return c:IsSetCard(0x305) and c:IsAbleToHand() -end -function c100000173.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000173.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c100000173.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c100000173.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c100000174.lua b/script/c100000174.lua deleted file mode 100644 index 5ec9543a..00000000 --- a/script/c100000174.lua +++ /dev/null @@ -1,43 +0,0 @@ ---猫集会 -function c100000174.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000174,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000174.condition) - e2:SetTarget(c100000174.target) - e2:SetOperation(c100000174.operation) - c:RegisterEffect(e2) -end -function c100000174.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x305) -end -function c100000174.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000174.cfilter,1,nil,tp) -end -function c100000174.filter(c,e,tp) - return c:IsSetCard(0x305) and c:IsLevelBelow(3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000174.target(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=eg:GetFirst() - if chk==0 then return Duel.IsExistingTarget(c100000174.filter,tp,LOCATION_HAND,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000174.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000174.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 diff --git a/script/c100000175.lua b/script/c100000175.lua deleted file mode 100644 index ee3b5dea..00000000 --- a/script/c100000175.lua +++ /dev/null @@ -1,22 +0,0 @@ ---キャット・ワールド -function c100000175.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --ad up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetValue(c100000175.val) - c:RegisterEffect(e2) -end -function c100000175.val(e,c) - if c:IsFaceup() and c:IsSetCard(0x305) then return c:GetBaseAttack() - else - return 0 - end -end \ No newline at end of file diff --git a/script/c100000176.lua b/script/c100000176.lua deleted file mode 100644 index 9f90843d..00000000 --- a/script/c100000176.lua +++ /dev/null @@ -1,31 +0,0 @@ ---怪猫変化 -function c100000176.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c100000176.cona) - e1:SetTarget(c100000176.tga) - e1:SetOperation(c100000176.opa) - c:RegisterEffect(e1) -end -function c100000176.spfilter(c,tp) - return c:GetControler()==tp and c:GetCode()==100000170 -end -function c100000176.cona(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000176.spfilter,1,nil,tp) -end -function c100000176.filter(c,e,tp) - return c:GetCode()==100000177 and c:IsCanBeSpecialSummoned(e,0,tp,true,true) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c100000176.tga(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100000176.filter,tp,0x13,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13) -end -function c100000176.opa(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000176.filter,tp,0x13,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP) -end diff --git a/script/c100000177.lua b/script/c100000177.lua deleted file mode 100644 index c42f7f62..00000000 --- a/script/c100000177.lua +++ /dev/null @@ -1,53 +0,0 @@ ---化け猫 -function c100000177.initial_effect(c) - --destrroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000177,0)) - e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c29146185.retcon) - e2:SetTarget(c100000177.destg) - e2:SetOperation(c100000177.desop) - c:RegisterEffect(e2) - --search - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000177,1)) - e3:SetCategory(CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c100000177.target) - e3:SetOperation(c100000177.operation) - c:RegisterEffect(e3) -end -function c29146185.retcon(e,tp,eg,ep,ev,re,r,rp) - if not re then return false end - local rc=re:GetHandler() - return rc:IsCode(100000170) -end -function c100000177.defilter(c) - return c:IsLevelBelow(4) and c:IsDestructable() -end -function c100000177.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(c100000177.defilter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c100000177.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100000177.defilter,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) - Duel.Damage(1-tp,g:GetCount()*800,REASON_EFFECT) -end -function c100000177.filter(c) - return c:IsSetCard(0x305) and c:IsAbleToHand() -end -function c100000177.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000177.filter,tp,LOCATION_DECK,0,1,nil) end -end -function c100000177.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.SelectMatchingCard(tp,c100000177.filter,tp,LOCATION_DECK,0,1,1,nil) - local tc=g:GetFirst() - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ShuffleDeck(tp) -end diff --git a/script/c100000178.lua b/script/c100000178.lua deleted file mode 100644 index 1645ef24..00000000 --- a/script/c100000178.lua +++ /dev/null @@ -1,29 +0,0 @@ ---ツイン・テール・キャットレディ -function c100000178.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,1),3) - c:EnableReviveLimit() - --attack up - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetDescription(aux.Stringid(100000178,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c100000178.cost) - e1:SetOperation(c100000178.operation) - c:RegisterEffect(e1) -end -function c100000178.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000178.operation(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(800) - e1:SetReset(RESET_EVENT+0x1fe0000) - e:GetHandler():RegisterEffect(e1) -end diff --git a/script/c100000179.lua b/script/c100000179.lua deleted file mode 100644 index ba3ba9d4..00000000 --- a/script/c100000179.lua +++ /dev/null @@ -1,34 +0,0 @@ ---キャット・ガール・マジシャン -function c100000179.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,4),2) - c:EnableReviveLimit() - --attack up - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetDescription(aux.Stringid(100000179,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c100000179.cost) - e1:SetOperation(c100000179.operation) - c:RegisterEffect(e1) -end -function c100000179.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000179.operation(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(e:GetHandler():GetAttack()/2) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) - --direct attack - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DIRECT_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e2) -end diff --git a/script/c100000180.lua b/script/c100000180.lua deleted file mode 100644 index b364cb2b..00000000 --- a/script/c100000180.lua +++ /dev/null @@ -1,32 +0,0 @@ ---キャットフード -function c100000180.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000180.condition) - e1:SetOperation(c100000180.activate) - c:RegisterEffect(e1) -end -function c100000180.filter1(c,e,tp) - return c:IsCode(100000171) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000180.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100000180.filter1,tp,0x13,0,1,nil,e,tp) - and Duel.CheckReleaseGroup(c:GetControler(),Card.IsCode,1,nil,100000170) -end -function c100000180.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local gr=Duel.SelectReleaseGroup(c:GetControler(),Card.IsCode,1,1,nil,100000170) - if gr:GetCount()<1 then return false end - Duel.Release(gr,REASON_COST) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000180.filter1,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_ATTACK) - end -end diff --git a/script/c100000181.lua b/script/c100000181.lua deleted file mode 100644 index 11b6b380..00000000 --- a/script/c100000181.lua +++ /dev/null @@ -1,30 +0,0 @@ ---猫だまし -function c100000181.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c100000181.condition) - e1:SetTarget(c100000181.target) - e1:SetOperation(c100000181.activate) - c:RegisterEffect(e1) -end -function c100000181.filter(c) - return c:IsFaceup() and c:IsRace(RACE_BEAST) -end -function c100000181.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() and Duel.IsExistingMatchingCard(c100000181.filter,tp,LOCATION_MZONE,0,1,nil) -end -function c100000181.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) -end -function c100000181.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsAttackable() and Duel.NegateAttack() then - Duel.SendtoHand(tc,nil,REASON_EFFECT) end -end \ No newline at end of file diff --git a/script/c100000182.lua b/script/c100000182.lua deleted file mode 100644 index 6246bf05..00000000 --- a/script/c100000182.lua +++ /dev/null @@ -1,38 +0,0 @@ ---猫に小判 -function c100000182.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_CAL) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetCondition(c100000182.condition) - e1:SetOperation(c100000182.activate) - c:RegisterEffect(e1) -end -function c100000182.condition(e,tp,eg,ep,ev,re,r,rp) - local phase=Duel.GetCurrentPhase() - if (phase~=PHASE_DAMAGE and phase~=PHASE_DAMAGE_CAL) or Duel.IsDamageCalculated() then return false end - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - return (d~=nil and a:GetControler()==tp and a:IsRace(RACE_BEAST) and a:IsRelateToBattle()) - or (d~=nil and d:GetControler()==tp and d:IsFaceup() and d:IsRace(RACE_BEAST) and d:IsRelateToBattle()) -end -function c100000182.activate(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if not a:IsRelateToBattle() or not d:IsRelateToBattle() then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetOwnerPlayer(tp) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - if a:GetControler()==tp then - e1:SetValue(d:GetAttack()/2) - a:RegisterEffect(e1) - else - e1:SetValue(a:GetAttack()/2) - d:RegisterEffect(e1) - end -end diff --git a/script/c100000183.lua b/script/c100000183.lua deleted file mode 100644 index 25767429..00000000 --- a/script/c100000183.lua +++ /dev/null @@ -1,78 +0,0 @@ ---マタタビ・タービン -function c100000183.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000183.target) - e1:SetOperation(c100000183.operation) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(c100000183.eqlimit) - c:RegisterEffect(e2) - --Atk up - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetValue(1200) - c:RegisterEffect(e3) - --cannot attack - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_CANNOT_ATTACK) - e4:SetCondition(c100000183.atcon) - c:RegisterEffect(e4) - --cannot be battle target - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD) - e5:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e5:SetRange(LOCATION_SZONE) - e5:SetTargetRange(0,LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e5:SetCondition(c100000183.ocon1) - e5:SetTarget(c100000183.tg) - e5:SetValue(1) - c:RegisterEffect(e5,tp) -end -function c100000183.tg(e,c) - return c==Duel.GetAttackTarget() -end -function c100000183.eqlimit(e,c) - return c:IsSetCard(0x305) -end -function c100000183.filter(c) - return c:IsFaceup() and c:IsSetCard(0x305) -end -function c100000183.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100000183.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000183.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c100000183.filter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000183.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,c,tc) - end -end -function c100000183.atcon(e) - local c=e:GetHandler() - return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),0,LOCATION_MZONE)>0 - and not c:GetEquipTarget():IsHasEffect(EFFECT_DIRECT_ATTACK) -end - -function c100000183.ocon1(e) - local c=e:GetHandler() - return Duel.GetAttacker()==c:GetEquipTarget() -end -function c100000183.tg(e,c) - return c:IsType(TYPE_MONSTER) -end \ No newline at end of file diff --git a/script/c100000185.lua b/script/c100000185.lua deleted file mode 100644 index d0668134..00000000 --- a/script/c100000185.lua +++ /dev/null @@ -1,85 +0,0 @@ ---好敵手の絆 -function c100000185.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL+CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_DISABLED) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000185.target) - e1:SetOperation(c100000185.operation) - c:RegisterEffect(e1) -end -function c100000185.filter(c,tc) - return c:IsControlerCanBeChanged() -end -function c100000185.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc==eg:GetFirst() end - if chk==0 then return eg:GetFirst():IsFaceup() and eg:GetFirst():IsCanBeEffectTarget(e) - and eg:GetFirst():GetControler()==e:GetHandler():GetControler() end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,c100000185.filter,tp,0,LOCATION_MZONE,1,1,nil,Duel.GetAttackTarget()) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) -end -function c100000185.eqlimit(e,c) - return c==e:GetLabelObject() -end -function c100000185.descon(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetFirstCardTarget() - return tc and eg:IsContains(tc) -end -function c100000185.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end -function c100000185.descon2(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler() - return tc and tc:IsReason(REASON_DESTROY) -end -function c100000185.desop2(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - if tc and tc:IsLocation(LOCATION_MZONE) then - Duel.GetControl(tc,tc:GetOwner()) - end -end -function c100000185.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and Duel.GetControl(tc,tp) then - if c:IsLocation(LOCATION_SZONE) and not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Equip(tp,c,tc) - --Add Equip limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c100000185.eqlimit) - e1:SetLabelObject(tc) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetCondition(c100000185.descon) - e2:SetOperation(c100000185.desop) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) - --Control - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetCondition(c100000185.descon2) - e3:SetOperation(c100000185.desop2) - e3:SetLabelObject(tc) - e3:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e3) - --cannot attack - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_CANNOT_ATTACK) - e4:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e4) - end - end -end \ No newline at end of file diff --git a/script/c100000186.lua b/script/c100000186.lua deleted file mode 100644 index 655f517a..00000000 --- a/script/c100000186.lua +++ /dev/null @@ -1,150 +0,0 @@ ---スフィア・フィールド -function c100000186.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --XYZ - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000186,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetTarget(c100000186.target) - e2:SetOperation(c100000186.operation) - c:RegisterEffect(e2) - --activation - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_PLAYER_TARGET) - e4:SetCode(EFFECT_CANNOT_ACTIVATE) - e4:SetRange(LOCATION_SZONE) - e4:SetTargetRange(1,1) - e4:SetValue(c100000186.aclimit) - Duel.RegisterEffect(e4,tp) - --unaffectable - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e6:SetRange(LOCATION_SZONE) - e6:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e6:SetValue(1) - c:RegisterEffect(e6) - --cannot set - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_FIELD) - e7:SetCode(EFFECT_CANNOT_SSET) - e7:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e7:SetRange(LOCATION_SZONE) - e7:SetTargetRange(1,1) - e7:SetTarget(c100000186.aclimit2) - c:RegisterEffect(e7) - -- - local eb=Effect.CreateEffect(c) - eb:SetType(EFFECT_TYPE_FIELD) - eb:SetCode(EFFECT_CANNOT_TO_DECK) - eb:SetRange(LOCATION_SZONE) - eb:SetTargetRange(LOCATION_SZONE,0) - eb:SetTarget(c100000186.tgn) - c:RegisterEffect(eb) - local ec=eb:Clone() - ec:SetCode(EFFECT_CANNOT_TO_HAND) - c:RegisterEffect(ec) - local ed=eb:Clone() - ed:SetCode(EFFECT_CANNOT_TO_GRAVE) - c:RegisterEffect(ed) - local ee=eb:Clone() - ee:SetCode(EFFECT_CANNOT_REMOVE) - c:RegisterEffect(ee) -end -function c100000186.filter(c,e) - return c:IsType(TYPE_MONSTER) and not c:IsImmuneToEffect(e) -end -function c100000186.lvfilter(c,lv) - return c:GetLevel()==lv -end -function c100000186.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local g1=Duel.GetMatchingGroup(c100000186.filter,tp,LOCATION_HAND,0,nil,e) - local g2=Duel.GetMatchingGroup(c100000186.filter,tp,LOCATION_HAND,0,nil,e) - local gg=g1:GetFirst() - local lv=0 - local mg1=Group.CreateGroup() - local mg2=nil - while gg do - lv=gg:GetLevel() - mg2=g2:Filter(c100000186.lvfilter,gg,lv) - if mg2:GetCount()>0 then - mg1:Merge(mg2) - mg1:AddCard(gg) - end - gg=g1:GetNext() - end - if mg1:GetCount()>1 and Duel.IsExistingMatchingCard(c100000186.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) then - return true - else - return false - end - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000186.xyzfilter(c,e,tp) - return c:IsSetCard(0x48) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000186.operation(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - if not e:GetHandler():IsRelateToEffect(e) then return end - local g1=Duel.GetMatchingGroup(c100000186.filter,tp,LOCATION_HAND,0,nil,e) - local g2=Duel.GetMatchingGroup(c100000186.filter,tp,LOCATION_HAND,0,nil,e) - local gg=g1:GetFirst() - local lv=0 - local mg1=Group.CreateGroup() - local mg2=nil - while gg do - lv=gg:GetLevel() - mg2=g2:Filter(c100000186.lvfilter,gg,lv) - if mg2:GetCount()>0 then - mg1:Merge(mg2) - mg1:AddCard(gg) - end - gg=g1:GetNext() - end - if mg1:GetCount()>1 and Duel.IsExistingMatchingCard(c100000186.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) then - local tg1=mg1:Select(tp,1,1,nil):GetFirst() - local tg2=mg1:FilterSelect(tp,c100000186.lvfilter,1,1,tg1,tg1:GetLevel()) - tg2:AddCard(tg1) - if tg2:GetCount()<2 then return end - local xyzg=Duel.GetMatchingGroup(c100000186.xyzfilter,tp,LOCATION_EXTRA,0,nil,e,tp) - if xyzg:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local xyz=xyzg:RandomSelect(tp,1):GetFirst() - if Duel.SpecialSummonStep(xyz,0,tp,tp,false,false,POS_FACEUP) then - --destroy - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_SELF_DESTROY) - e1:SetCondition(c100000186.descon) - e1:SetReset(RESET_EVENT+0xff0000) - xyz:RegisterEffect(e1) - Duel.Overlay(xyz,tg2) - Duel.SpecialSummonComplete() - end - end - end -end -function c100000186.descon(e) - return e:GetHandler():GetOverlayCount()==0 and e:GetHandler():IsDestructable() and Duel.GetCurrentChain()==0 -end -function c100000186.aclimit(e,re) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and re:GetHandler():IsType(TYPE_FIELD) -end -function c100000186.aclimit2(e,c) - return c:IsType(TYPE_FIELD) -end -function c100000186.tgn(e,c) - return c==e:GetHandler() -end \ No newline at end of file diff --git a/script/c100000187.lua b/script/c100000187.lua deleted file mode 100644 index 4dd89278..00000000 --- a/script/c100000187.lua +++ /dev/null @@ -1,29 +0,0 @@ ---奈落の閃光 -function c100000187.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c100000187.condition) - e1:SetTarget(c100000187.target) - e1:SetOperation(c100000187.activate) - c:RegisterEffect(e1) -end -function c100000187.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker():GetAttack()>=2000 -end -function c100000187.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,tg,1,0,0) -end -function c100000187.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsAttackable() and Duel.NegateAttack() then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end diff --git a/script/c100000188.lua b/script/c100000188.lua deleted file mode 100644 index 25be9b5a..00000000 --- a/script/c100000188.lua +++ /dev/null @@ -1,34 +0,0 @@ ---奈落に蠢く者 -function c100000188.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c100000188.condition) - e1:SetTarget(c100000188.target) - e1:SetOperation(c100000188.activate) - c:RegisterEffect(e1) -end -function c100000188.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker():GetAttack()>=2000 and tp~=Duel.GetTurnPlayer() -end -function c100000188.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) - local dam=tg:GetAttack() - Duel.SetTargetParam(dam/2) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam/2) -end -function c100000188.activate(e,tp,eg,ep,ev,re,r,rp) - local tg,d=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS,CHAININFO_TARGET_PARAM) - local tc=tg:GetFirst() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsAttackable() then - if Duel.NegateAttack() then - Duel.Damage(1-tp,d,REASON_EFFECT) - end - end -end diff --git a/script/c100000189.lua b/script/c100000189.lua deleted file mode 100644 index 0d207062..00000000 --- a/script/c100000189.lua +++ /dev/null @@ -1,27 +0,0 @@ ---奈落の太陽 -function c100000189.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c100000189.condition) - e1:SetTarget(c100000189.target) - e1:SetOperation(c100000189.activate) - c:RegisterEffect(e1) -end -function c100000189.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker():GetAttack()>=2000 and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 -end -function c100000189.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - local dam=Duel.GetFieldGroupCount(1-tp,LOCATION_HAND,0)*800 - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100000189.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100000190.lua b/script/c100000190.lua deleted file mode 100644 index 82f16df9..00000000 --- a/script/c100000190.lua +++ /dev/null @@ -1,28 +0,0 @@ ---ダイスロット・セブン -function c100000190.initial_effect(c) - --lv change - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000190,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c100000190.target) - e1:SetOperation(c100000190.activate) - c:RegisterEffect(e1) -end -function c100000190.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) -end -function c100000190.activate(e,tp,eg,ep,ev,re,r,rp) - local d=Duel.TossDice(tp,1) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(d) - c:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c100000191.lua b/script/c100000191.lua deleted file mode 100644 index 37da0b1c..00000000 --- a/script/c100000191.lua +++ /dev/null @@ -1,28 +0,0 @@ ---トリプル・エース -function c100000191.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000191.target) - e1:SetOperation(c100000191.operation) - c:RegisterEffect(e1) -end -function c100000191.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:GetLevel()==1 - and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_HAND,0,2,c,c:GetCode()) -end -function c100000191.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100000191.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 - and Duel.IsExistingTarget(c100000191.filter,tp,LOCATION_HAND,0,3,nil,e,tp) end -end -function c100000191.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc=Duel.SelectMatchingCard(tp,c100000191.filter,tp,LOCATION_HAND,0,3,3,nil,e,tp) - if tc:GetCount()~=3 then return end - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) -end diff --git a/script/c100000192.lua b/script/c100000192.lua deleted file mode 100644 index a0289ecc..00000000 --- a/script/c100000192.lua +++ /dev/null @@ -1,38 +0,0 @@ ---ドリーム・ダイス -function c100000192.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000192.con) - e1:SetTarget(c100000192.target) - e1:SetOperation(c100000192.operation) - c:RegisterEffect(e1) -end -function c100000192.con(e) - return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)~=0 and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)~=0 -end -function c100000192.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) -end -function c100000192.operation(e,tp,eg,ep,ev,re,r,rp) - local d=Duel.TossDice(tp,1) - local c=e:GetHandler() - local sg=nil - if d==6 then - sg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) - else - sg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil) - end - local tc=sg:GetFirst() - while tc do - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(0) - tc:RegisterEffect(e1) - tc=sg:GetNext() - end -end diff --git a/script/c100000193.lua b/script/c100000193.lua deleted file mode 100644 index a82dff94..00000000 --- a/script/c100000193.lua +++ /dev/null @@ -1,64 +0,0 @@ ---太陽の天秤 -function c100000193.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --DESTROY - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000193.con) - e2:SetTarget(c100000193.target) - e2:SetOperation(c100000193.operation) - c:RegisterEffect(e2) - --damage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000193,0)) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c100000193.damcon) - e3:SetTarget(c100000193.damtg) - e3:SetOperation(c100000193.damop) - c:RegisterEffect(e3) -end -function c100000193.con(e) - return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)~=0 and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)~=0 -end -function c100000193.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,nil,0,0) -end -function c100000193.operation(e,tp,eg,ep,ev,re,r,rp) - local d=Duel.TossDice(tp,1) - local c=e:GetHandler() - local sg=nil - if d==6 then - sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil):Select(tp,1,1,nil) - end - Duel.Destroy(sg,REASON_EFFECT) -end -function c100000193.damcon(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler() - return tc and tc:IsReason(REASON_DESTROY) -end -function c100000193.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(500) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) -end -function c100000193.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end - diff --git a/script/c100000194.lua b/script/c100000194.lua deleted file mode 100644 index 47f82f81..00000000 --- a/script/c100000194.lua +++ /dev/null @@ -1,89 +0,0 @@ ---ダイス・クライシス -function c100000194.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL+CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c100000194.condition) - e1:SetTarget(c100000194.target) - e1:SetOperation(c100000194.operation) - c:RegisterEffect(e1) -end -function c100000194.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c100000194.filter(c,tc) - return c:IsControlerCanBeChanged() -end -function c100000194.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) - Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) -end -function c100000194.eqlimit(e,c) - return c==e:GetLabelObject() -end -function c100000194.descon(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - return tc and eg:IsContains(tc) -end -function c100000194.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end -function c100000194.descon2(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler() - return tc -end -function c100000194.desop2(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - if tc and tc:IsLocation(LOCATION_MZONE) then - Duel.GetControl(tc,tc:GetOwner()) - end -end -function c100000194.operation(e,tp,eg,ep,ev,re,r,rp) - local d=Duel.TossDice(tp,1) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if d==6 then - if tc:IsFaceup() and tc:IsRelateToEffect(e) and c:IsLocation(LOCATION_SZONE) - and not tc:IsImmuneToEffect(e) then - Duel.Equip(tp,c,tc) - --Add Equip limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c100000194.eqlimit) - e1:SetLabelObject(tc) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetCondition(c100000194.descon) - e2:SetOperation(c100000194.desop) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) - --Control - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_SET_CONTROL) - e3:SetValue(tp) - e3:SetReset(RESET_EVENT+0x1fc0000) - c:RegisterEffect(e3) - --cannot attack - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_SET_ATTACK) - e4:SetValue(0) - e4:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e4) - end - end -end \ No newline at end of file diff --git a/script/c100000195.lua b/script/c100000195.lua deleted file mode 100644 index 189f0a66..00000000 --- a/script/c100000195.lua +++ /dev/null @@ -1,32 +0,0 @@ ---マジェスティック・ジェスター -function c100000195.initial_effect(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000195,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_BATTLE_START) - e1:SetCondition(c100000195.descon) - e1:SetTarget(c100000195.destg) - e1:SetOperation(c100000195.desop) - c:RegisterEffect(e1) -end -function c100000195.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()~=nil -end -function c100000195.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) -end -function c100000195.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetAttackTarget() - if c==tc then tc=Duel.GetAttacker() end - if not tc:IsRelateToBattle() then return end - local d=Duel.TossDice(tp,1) - if d==6 then - if c:IsFaceup() and c:IsLocation(LOCATION_MZONE) then Duel.Destroy(tc,REASON_EFFECT) end - else - Duel.Destroy(c,REASON_EFFECT) - end -end diff --git a/script/c100000196.lua b/script/c100000196.lua deleted file mode 100644 index 2aafee5e..00000000 --- a/script/c100000196.lua +++ /dev/null @@ -1,60 +0,0 @@ ---アトリビュート・マスタリー -function c100000196.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000196.target) - e1:SetOperation(c100000196.operation) - c:RegisterEffect(e1) - --race - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_BATTLE_START) - e2:SetRange(LOCATION_SZONE) - e2:SetTarget(c100000196.destg) - e2:SetOperation(c100000196.desop) - c:RegisterEffect(e2) - e1:SetLabelObject(e2) - --Equip limit - local e3=Effect.CreateEffect(c) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EQUIP_LIMIT) - e3:SetValue(1) - c:RegisterEffect(e3) -end -function c100000196.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,562) - local rc=Duel.AnnounceAttribute(tp,1,0xffff) - e:GetLabelObject():SetLabel(rc) - e:GetHandler():SetHint(CHINT_ATTRIBUTE,rc) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000196.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end -function c100000196.destg(e,tp,eg,ep,ev,re,r,rp,chk) - local q=e:GetLabel() - local c=e:GetHandler():GetEquipTarget() - local tc=Duel.GetAttacker() - if tc==c then tc=Duel.GetAttackTarget() end - if chk==0 then return tc and tc:IsFaceup() and tc:IsAttribute(q) end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) -end -function c100000196.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler():GetEquipTarget() - local tc=Duel.GetAttacker() - if tc==c then tc=Duel.GetAttackTarget() end - if tc:IsRelateToBattle() then Duel.Destroy(tc,REASON_EFFECT) end -end diff --git a/script/c100000197.lua b/script/c100000197.lua deleted file mode 100644 index e0fdda41..00000000 --- a/script/c100000197.lua +++ /dev/null @@ -1,65 +0,0 @@ ---アトリビュート・ボム -function c100000197.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000197.target) - e1:SetOperation(c100000197.operation) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetRange(LOCATION_SZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCondition(c100000197.damcon) - e2:SetTarget(c100000197.destg) - e2:SetOperation(c100000197.desop) - c:RegisterEffect(e2) - e1:SetLabelObject(e2) - --Equip limit - local e3=Effect.CreateEffect(c) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EQUIP_LIMIT) - e3:SetValue(1) - c:RegisterEffect(e3) -end -function c100000197.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,562) - local rc=Duel.AnnounceAttribute(tp,1,0xffff) - e:GetLabelObject():SetLabel(rc) - e:GetHandler():SetHint(CHINT_ATTRIBUTE,rc) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000197.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end -function c100000197.damcon(e,tp,eg,ep,ev,re,r,rp) - local q=e:GetLabel() - local ec=eg:GetFirst() - local bc=ec:GetBattleTarget() - return ec==e:GetHandler():GetEquipTarget() and bc:IsReason(REASON_BATTLE) and bc:IsAttribute(q) -end -function c100000197.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) -end -function c100000197.desop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100000198.lua b/script/c100000198.lua deleted file mode 100644 index a80b3ad4..00000000 --- a/script/c100000198.lua +++ /dev/null @@ -1,62 +0,0 @@ ---属性変化－アトリビュート・カメレオン -function c100000198.initial_effect(c) - --Activate to Grave - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000198.condition) - e1:SetTarget(c100000198.target1) - e1:SetOperation(c100000198.operation) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetRange(LOCATION_SZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1) - e2:SetCondition(c100000198.condition) - e2:SetTarget(c100000198.target2) - e2:SetOperation(c100000198.operation) - c:RegisterEffect(e2) -end -function c100000198.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c100000198.target1(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - if Duel.SelectYesNo(tp,aux.Stringid(100000198,0)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,562) - local rc=Duel.AnnounceAttribute(tp,1,0xffff) - e:SetLabel(rc) - e:GetHandler():SetHint(CHINT_ATTRIBUTE,rc) - e:GetHandler():RegisterFlagEffect(100000198,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - end -end -function c100000198.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) - and e:GetHandler():GetFlagEffect(100000198)==0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,562) - local rc=Duel.AnnounceAttribute(tp,1,0xffff) - e:SetLabel(rc) - e:GetHandler():SetHint(CHINT_ATTRIBUTE,rc) -end -function c100000198.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_CHANGE_ATTRIBUTE) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(e:GetLabel()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c100000199.lua b/script/c100000199.lua deleted file mode 100644 index 2a832ab9..00000000 --- a/script/c100000199.lua +++ /dev/null @@ -1,79 +0,0 @@ ---狂戦士の魂 -function c100000199.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_DAMAGE_STEP_END) - e1:SetRange(LOCATION_HAND+LOCATION_ONFIELD) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetCondition(c100000199.descon) - e1:SetTarget(c100000199.target) - e1:SetOperation(c100000199.spop) - c:RegisterEffect(e1) - --Activate - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE+CATEGORY_DRAW) - e2:SetType(EFFECT_TYPE_ACTIVATE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c100000199.dacon) - e2:SetCost(c100000199.cost) - e2:SetTarget(c100000199.tar) - e2:SetOperation(c100000199.acti) - c:RegisterEffect(e2) -end -function c100000199.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==nil and Duel.GetTurnPlayer()==e:GetHandler():GetControler() -end -function c100000199.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetAttacker():GetAttack()<=1500 end - Duel.SetTargetCard(Duel.GetAttacker()) -end -function c100000199.spop(e,tp,c) - local rc=Duel.GetAttacker() - if rc:IsFaceup() then - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(100000199) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetLabelObject(rc) - e3:SetTarget(c100000199.tg) - rc:RegisterEffect(e3) - end -end -function c100000199.tg(e,c) - return c==e:GetLabelObject() -end -function c100000199.dacon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE and Duel.GetTurnPlayer()==e:GetHandler():GetControler() -end -function c100000199.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - g:RemoveCard(e:GetHandler()) - return g:GetCount()>0 and g:FilterCount(Card.IsDiscardable,nil)==g:GetCount() - end - local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD) -end -function c100000199.tar(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingTarget(Card.IsHasEffect,tp,LOCATION_MZONE,0,1,nil,100000199) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsHasEffect,tp,LOCATION_MZONE,0,1,1,nil,100000199) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c100000199.acti(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetFirstTarget() - while Duel.Draw(tp,1,REASON_EFFECT)~=0 and tg:IsFaceup() and tg:IsRelateToEffect(e) do - local tc=Duel.GetOperatedGroup():GetFirst() - Duel.ConfirmCards(tp,tc) - if tc:IsType(TYPE_MONSTER) then - if Duel.SendtoGrave(tc,REASON_EFFECT)~=0 then - Duel.Damage(1-tp,tg:GetAttack(),REASON_EFFECT) - end - else return Duel.ShuffleHand(tp)end - end -end \ No newline at end of file diff --git a/script/c10000020.lua b/script/c10000020.lua index d1270aa9..8edc0777 100644 --- a/script/c10000020.lua +++ b/script/c10000020.lua @@ -47,7 +47,7 @@ function c10000020.initial_effect(c) e6:SetValue(c10000020.adval) c:RegisterEffect(e6) local e7=e6:Clone() - e7:SetCode(EFFECT_UPDATE_DEFENCE) + e7:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e7) --atkdown local e8=Effect.CreateEffect(c) diff --git a/script/c100000200.lua b/script/c100000200.lua deleted file mode 100644 index 3306ce7b..00000000 --- a/script/c100000200.lua +++ /dev/null @@ -1,68 +0,0 @@ ---ギミック・パペット－ベビーフェイス -function c100000200.initial_effect(c) - --remove - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e1:SetCode(EVENT_BATTLED) - e1:SetCondition(c100000200.condition) - e1:SetOperation(c100000200.operation) - c:RegisterEffect(e1) -end -function c100000200.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) -end -function c100000200.operation(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local a=Duel.GetAttacker() - local t=Duel.GetAttackTarget() - --revive - if c==a then - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e2:SetLabelObject(t) - e2:SetCondition(c100000200.spcon) - e2:SetCost(c100000200.cost) - e2:SetOperation(c100000200.opera) - e2:SetReset(RESET_EVENT+RESET_TOFIELD+RESET_REMOVE+RESET_TODECK+RESET_TOHAND) - c:RegisterEffect(e2) - end - if c==t then - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e2:SetLabelObject(a) - e2:SetCondition(c100000200.spcon) - e2:SetCost(c100000200.cost) - e2:SetOperation(c100000200.opera) - e2:SetReset(RESET_EVENT+RESET_TOFIELD+RESET_REMOVE+RESET_TODECK+RESET_TOHAND) - c:RegisterEffect(e2) - end -end -function c100000200.filter(c,tc) - return c==tc -end -function c100000200.spcon(e,c) - local c=e:GetHandler() - local tc=e:GetLabelObject() - if c==nil then return true end - return Duel.GetLocationCount(1-c:GetControler(),LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000200.filter,tp,0,LOCATION_GRAVE,1,nil,tc) -end -function c100000200.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c100000200.opera(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - if tc:IsLocation(LOCATION_GRAVE) then - Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000201.lua b/script/c100000201.lua deleted file mode 100644 index 9dd71e97..00000000 --- a/script/c100000201.lua +++ /dev/null @@ -1,34 +0,0 @@ ---ギミック・パペット－ボム・エッグ -function c100000201.initial_effect(c) - --damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000201,0)) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c100000201.damcost) - e1:SetTarget(c100000201.damtg) - e1:SetOperation(c100000201.damop) - c:RegisterEffect(e1) -end -function c100000201.cfilter(c) - return c:IsAbleToGrave() -end -function c100000201.damcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000201.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000201.cfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c100000201.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(800) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) -end -function c100000201.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100000202.lua b/script/c100000202.lua deleted file mode 100644 index 2e65ad9a..00000000 --- a/script/c100000202.lua +++ /dev/null @@ -1,33 +0,0 @@ ---ギミック・パペット－ギア・チェンジャー -function c100000202.initial_effect(c) - --lv change - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000202,0)) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c100000202.lvtg) - e2:SetOperation(c100000202.lvop) - c:RegisterEffect(e2) -end -function c100000202.filter(c,clv) - local lv=c:GetLevel() - return c:IsSetCard(0x83) and lv~=0 and lv~=clv and c:IsLocation(LOCATION_MZONE) and c:IsFaceup() -end -function c100000202.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c100000202.filter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100000202.filter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.SelectTarget(tp,c100000202.filter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100000202.lvop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and (not tc:IsLocation(LOCATION_MZONE) or tc:IsFaceup()) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e:GetHandler():RegisterEffect(e1) - end -end diff --git a/script/c100000203.lua b/script/c100000203.lua deleted file mode 100644 index cfa0602a..00000000 --- a/script/c100000203.lua +++ /dev/null @@ -1,20 +0,0 @@ ---ギミック・パペット－マグネ・ドール -function c100000203.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000203.spcon) - c:RegisterEffect(e1) -end -function c100000203.filter(c) - return c:IsType(TYPE_XYZ) -end -function c100000203.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.IsExistingMatchingCard(c100000203.filter,c:GetControler(),0,LOCATION_MZONE,1,nil) -end diff --git a/script/c100000204.lua b/script/c100000204.lua deleted file mode 100644 index 3a5a991f..00000000 --- a/script/c100000204.lua +++ /dev/null @@ -1,35 +0,0 @@ ---ギミック・パペット－ナイト・ジョーカー -function c100000204.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000204,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_HAND) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c100000204.condition) - e1:SetTarget(c100000204.target) - e1:SetOperation(c100000204.operation) - c:RegisterEffect(e1) -end -function c100000204.spfilter(c,tp) - return c:IsReason(REASON_BATTLE) and c:IsPreviousLocation(LOCATION_MZONE) - and c:GetPreviousControler()==tp and c:IsSetCard(0x83) and c:IsLocation(LOCATION_GRAVE) -end -function c100000204.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000204.spfilter,1,nil,tp) -end -function c100000204.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - local tc=eg:Filter(c100000204.spfilter,nil,tp):GetFirst() - if tc==nil then return end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,tc,1,0,0) - Duel.Remove(tc,POS_FACEUP,REASON_COST) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000204.operation(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000205.lua b/script/c100000205.lua deleted file mode 100644 index 0d30ca04..00000000 --- a/script/c100000205.lua +++ /dev/null @@ -1,40 +0,0 @@ ---ギミック・パペット－ネクロ・ドール -function c100000205.initial_effect(c) - --revive - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c100000205.condition) - e1:SetCost(c100000205.cost) - e1:SetTarget(c100000205.target) - e1:SetOperation(c100000205.operation) - c:RegisterEffect(e1) -end -function c100000205.cfilter(c,e,tp) - return c:GetCode()==92418590 and c:IsAbleToRemoveAsCost() and c~=e:GetHandler() -end -function c100000205.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingTarget(c100000205.cfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) -end -function c100000205.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingTarget(c100000205.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - local g=Duel.SelectTarget(tp,c100000205.cfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c100000205.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and e:GetHandler():IsLocation(LOCATION_GRAVE) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - Duel.SetTargetCard(e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c100000205.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=e:GetHandler() - if tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_GRAVE) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000206.lua b/script/c100000206.lua deleted file mode 100644 index 9b352fca..00000000 --- a/script/c100000206.lua +++ /dev/null @@ -1,34 +0,0 @@ ---ギミック・パペット－スケアクロウ -function c100000206.initial_effect(c) - --target - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e1:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e1:SetTarget(c100000206.tglimit) - e1:SetValue(1) - c:RegisterEffect(e1) - --to defence - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000206,0)) - e3:SetCategory(CATEGORY_POSITION) - e3:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) - e3:SetCode(EVENT_BE_BATTLE_TARGET) - e3:SetCondition(c100000206.poscon) - e3:SetOperation(c100000206.posop) - c:RegisterEffect(e3) -end -function c100000206.tglimit(e,c) - return c~=e:GetHandler() -end -function c100000206.poscon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsAttackPos() -end -function c100000206.posop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) - end -end \ No newline at end of file diff --git a/script/c100000207.lua b/script/c100000207.lua deleted file mode 100644 index efb12c30..00000000 --- a/script/c100000207.lua +++ /dev/null @@ -1,29 +0,0 @@ ---ジャンク・パペット -function c100000207.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000207.target) - e1:SetOperation(c100000207.activate) - c:RegisterEffect(e1) -end -function c100000207.filter(c,e,tp) - return c:IsAttackBelow(1000) and c:IsSetCard(0x83) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000207.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c100000207.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000207.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000207.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000207.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end diff --git a/script/c100000208.lua b/script/c100000208.lua deleted file mode 100644 index 2faa1e8a..00000000 --- a/script/c100000208.lua +++ /dev/null @@ -1,38 +0,0 @@ ---傀儡儀式－パペット・リチューアル -function c100000208.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000208.condition) - e1:SetTarget(c100000208.target) - e1:SetOperation(c100000208.activate) - c:RegisterEffect(e1) -end -function c100000208.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetLP(tp)<=2000 -end -function c100000208.filter(c,e,tp) - return c:IsSetCard(0x83) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000208.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c100000208.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000208.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000208.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000208.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end diff --git a/script/c100000209.lua b/script/c100000209.lua deleted file mode 100644 index 1ffe608f..00000000 --- a/script/c100000209.lua +++ /dev/null @@ -1,46 +0,0 @@ ---リペア・パペット -function c100000209.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetCode(EVENT_DESTROYED) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c100000209.condition) - e1:SetTarget(c100000209.target) - e1:SetOperation(c100000209.operation) - c:RegisterEffect(e1) -end -function c100000209.cfilter(c,tp) - return c:IsReason(REASON_BATTLE) and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp - and c:IsLevelBelow(4) and (c:IsSetCard(0x303) or c:IsSetCard(0x83)) -end -function c100000209.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000209.cfilter,1,nil,tp) -end -function c100000209.spfilter(c,e,tp,code) - return c:GetCode()==code and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000209.target(e,tp,eg,ep,ev,re,r,rp,chk) - local a=Duel.GetAttacker() - local t=Duel.GetAttackTarget() - local code=nil - if a:IsReason(REASON_BATTLE) and (a:IsSetCard(0x303) or a:IsSetCard(0x83)) then code=a:GetCode() end - if t:IsReason(REASON_BATTLE) and (t:IsSetCard(0x303) or t:IsSetCard(0x83)) then code=t:GetCode() end - if code==nil then return end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000209.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,code) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000209.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local a=Duel.GetAttacker() - local t=Duel.GetAttackTarget() - local code=nil - if a:IsReason(REASON_BATTLE) and (a:IsSetCard(0x303) or a:IsSetCard(0x83)) then code=a:GetCode() end - if t:IsReason(REASON_BATTLE) and (t:IsSetCard(0x303) or t:IsSetCard(0x83)) then code=t:GetCode() end - if code==nil then return end - local g=Duel.SelectMatchingCard(tp,c100000209.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,code) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) -end diff --git a/script/c10000021.lua b/script/c10000021.lua deleted file mode 100644 index 6d5c446e..00000000 --- a/script/c10000021.lua +++ /dev/null @@ -1,127 +0,0 @@ ---オシリスの天空竜 -function c10000021.initial_effect(c) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c10000021.ttcon) - e1:SetOperation(c10000021.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c10000021.setcon) - c:RegisterEffect(e2) - --summon - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_DISABLE_SUMMON) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - c:RegisterEffect(e3) - --summon success - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_SUMMON_SUCCESS) - e4:SetOperation(c10000021.sumsuc) - c:RegisterEffect(e4) - --to grave - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(10000021,0)) - e5:SetCategory(CATEGORY_TOGRAVE) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e5:SetRange(LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_REPEAT) - e5:SetCountLimit(1) - e5:SetCode(EVENT_PHASE+PHASE_END) - e5:SetCondition(c10000021.tgcon) - e5:SetTarget(c10000021.tgtg) - e5:SetOperation(c10000021.tgop) - c:RegisterEffect(e5) - --atk/def - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetCode(EFFECT_UPDATE_ATTACK) - e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e6:SetRange(LOCATION_MZONE) - e6:SetValue(c10000021.adval) - c:RegisterEffect(e6) - local e7=e6:Clone() - e7:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e7) - --atkdown - local e8=Effect.CreateEffect(c) - e8:SetDescription(aux.Stringid(10000021,1)) - e8:SetCategory(CATEGORY_ATKCHANGE) - e8:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e8:SetRange(LOCATION_MZONE) - e8:SetCode(EVENT_SUMMON_SUCCESS) - e8:SetCondition(c10000021.atkcon) - e8:SetTarget(c10000021.atktg) - e8:SetOperation(c10000021.atkop) - c:RegisterEffect(e8) - local e9=e8:Clone() - e9:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e9) -end -function c10000021.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c10000021.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c10000021.setcon(e,c) - if not c then return true end - return false -end -function c10000021.sumsuc(e,tp,eg,ep,ev,re,r,rp) - Duel.SetChainLimitTillChainEnd(aux.FALSE) -end -function c10000021.tgcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c10000021.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) -end -function c10000021.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoGrave(c,REASON_EFFECT) - end -end -function c10000021.adval(e,c) - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_HAND,0)*1000 -end -function c10000021.atkfilter(c,e,tp) - return c:IsControler(tp) and c:IsPosition(POS_FACEUP_ATTACK) and (not e or c:IsRelateToEffect(e)) -end -function c10000021.atkcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c10000021.atkfilter,1,nil,nil,1-tp) -end -function c10000021.atktg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsRelateToEffect(e) end - Duel.SetTargetCard(eg) -end -function c10000021.atkop(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(c10000021.atkfilter,nil,e,1-tp) - local dg=Group.CreateGroup() - local c=e:GetHandler() - local tc=g:GetFirst() - while tc do - local preatk=tc:GetAttack() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-2000) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - if preatk~=0 and tc:GetAttack()==0 then dg:AddCard(tc) end - tc=g:GetNext() - end - Duel.Destroy(dg,REASON_EFFECT) -end diff --git a/script/c100000210.lua b/script/c100000210.lua deleted file mode 100644 index f99003f8..00000000 --- a/script/c100000210.lua +++ /dev/null @@ -1,61 +0,0 @@ ---アタック・ギミック -function c100000210.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000210.target) - e1:SetOperation(c100000210.activate) - c:RegisterEffect(e1) -end -function c100000210.filter(c) - return c:IsFaceup() and c:IsSetCard(0x83) -end -function c100000210.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000210.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000210.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100000210.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c100000210.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(500) - tc:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetDescription(aux.Stringid(100000210,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCondition(c100000210.condition) - e2:SetTarget(c100000210.target2) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetOperation(c100000210.operation) - tc:RegisterEffect(e2) - end -end -function c100000210.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local d=Duel.GetAttackTarget() - if d==c then d=Duel.GetAttacker() end - e:SetLabel(d:GetAttack()) - return true -end -function c100000210.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(e:GetLabel()) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,e:GetLabel()) -end -function c100000210.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100000211.lua b/script/c100000211.lua deleted file mode 100644 index 441462e9..00000000 --- a/script/c100000211.lua +++ /dev/null @@ -1,97 +0,0 @@ ---デステニー・ストリングス -function c100000211.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000211.target) - e1:SetOperation(c100000211.operation) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(c100000211.eqlimit) - c:RegisterEffect(e2) - --to grave - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOGRAVE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_SZONE) - e3:SetCountLimit(1) - e3:SetCode(EVENT_ATTACK_ANNOUNCE) - e3:SetCondition(c100000211.tgcon) - e3:SetTarget(c100000211.tgtg) - e3:SetOperation(c100000211.tgop) - c:RegisterEffect(e3) - --indes - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e4:SetRange(LOCATION_SZONE) - e4:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e4:SetCondition(c100000211.tgcon) - e4:SetTarget(c100000211.tg) - e4:SetValue(1) - c:RegisterEffect(e4) -end -function c100000211.tg(e,c) - return c==Duel.GetAttackTarget() -end -function c100000211.eqlimit(e,c) - return c:IsSetCard(0x83) -end -function c100000211.filter(c) - return c:IsFaceup() and c:IsSetCard(0x83) -end -function c100000211.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100000211.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000211.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c100000211.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000211.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,c,tc) - end -end -function c100000211.tgcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker()==e:GetHandler():GetEquipTarget() -end -function c100000211.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c100000211.tgop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local ct=Duel.DiscardDeck(tp,1,REASON_EFFECT) - if ct==0 then return end - local tc=Duel.GetOperatedGroup():GetFirst() - if tc:IsType(TYPE_MONSTER) then - local ca=tc:GetLevel()-1 - local c=e:GetHandler() - local e1=Effect.CreateEffect(c:GetEquipTarget()) - e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e1:SetCountLimit(ca) - e1:SetLabel(ca) - e1:SetCode(EVENT_DAMAGE_STEP_END) - e1:SetCondition(c100000211.atcon) - e1:SetOperation(c100000211.atop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:GetEquipTarget():RegisterEffect(e1) - else - Duel.SkipPhase(Duel.GetTurnPlayer(),PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) - end -end -function c100000211.atcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetLabel()~=0 -end -function c100000211.atop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChainAttack() -end diff --git a/script/c100000212.lua b/script/c100000212.lua deleted file mode 100644 index cb119205..00000000 --- a/script/c100000212.lua +++ /dev/null @@ -1,23 +0,0 @@ ---ギミック・ボックス -function c100000212.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e1:SetOperation(c100000212.activate) - c:RegisterEffect(e1) -end -function c100000212.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,0) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and - Duel.IsPlayerCanSpecialSummonMonster(tp,100000212,0,0x21,ev,0,8,RACE_MACHINE,ATTRIBUTE_DARK) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 - or not Duel.IsPlayerCanSpecialSummonMonster(tp,100000212,0,0x21,ev,0,8,RACE_MACHINE,ATTRIBUTE_DARK) then return end - c:AddTrapMonsterAttribute(true,ATTRIBUTE_DARK,RACE_MACHINE,8,ev,0) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - c:TrapMonsterBlock() -end \ No newline at end of file diff --git a/script/c100000213.lua b/script/c100000213.lua deleted file mode 100644 index 0abe367b..00000000 --- a/script/c100000213.lua +++ /dev/null @@ -1,35 +0,0 @@ ---ギミックパペット－シザー・アーム -function c100000213.initial_effect(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c100000213.con) - e1:SetOperation(c100000213.activate) - c:RegisterEffect(e1) -end -function c100000213.costfilter(c) - return c:IsFaceup() and c:IsType(TYPE_EQUIP) and c:IsAbleToGrave() and c:IsDestructable() -end -function c100000213.con(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000213.costfilter,tp,LOCATION_SZONE,0,1,nil) -end -function c100000213.activate(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000213.costfilter,tp,LOCATION_SZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000213.costfilter,tp,LOCATION_SZONE,0,1,1,nil) - Duel.Destroy(g,REASON_EFFECT) - local c=e:GetHandler() - local tc=g:GetFirst() - if tc:IsLocation(LOCATION_GRAVE) then - if c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(c:GetLevel()*2) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end - end -end diff --git a/script/c100000214.lua b/script/c100000214.lua deleted file mode 100644 index db0bd0bd..00000000 --- a/script/c100000214.lua +++ /dev/null @@ -1,250 +0,0 @@ ---ギミック・パペット－ナイトメア -function c100000214.initial_effect(c) -function Auxiliary.AddXyzProcedure(c,f,ct,alterf,desc,maxct,op) - if c.xyz_filter==nil then - local code=c:GetOriginalCode() - local mt=_G["c" .. code] - mt.xyz_filter=f - mt.xyz_count=ct - end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_EXTRA) - if not maxct then maxct=ct end - if alterf then - e1:SetCondition(Auxiliary.XyzCondition2(f,ct,maxct,alterf,desc)) - e1:SetOperation(Auxiliary.XyzOperation2(f,ct,maxct,alterf,desc,op)) - else - e1:SetCondition(Auxiliary.XyzCondition(f,ct,maxct)) - e1:SetOperation(Auxiliary.XyzOperation(f,ct,maxct)) - end - e1:SetValue(SUMMON_TYPE_XYZ) - c:RegisterEffect(e1) -end -function Auxiliary.XyzCondition(f,minc,maxc) - --og: use special material -return function(e,c,og) - if c==nil then return true end - local ft=Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE) - local ct=-ft - local mt=Duel.GetFieldGroup(Duel.GetTurnPlayer(),LOCATION_MZONE,nil):Filter(Card.IsHasEffect,nil,100000214) - if mt:GetCount()>0 then - local m=minc-mt:GetCount() - if m<=ct then return false end - if og then - return og:IsExists(f,minc,nil) - else - local ms=mt:GetFirst() - local g=Duel.GetXyzMaterial(c) - while ms do - if c:GetRank()==ms:GetLevel() then - return g:IsExists(f,m,nil) - else - return g:IsExists(f,minc,nil) - end - ms=mt:GetNext() - end - end - else - if minc<=ct then return false end - if og then - return og:IsExists(f,minc,nil) - else - local g=Duel.GetXyzMaterial(c) - return g:IsExists(f,minc,nil) - end - end - end -end -function Auxiliary.XyzOperation(f,minc,maxc) -return function(e,tp,eg,ep,ev,re,r,rp,c,og) - if og then - c:SetMaterial(og) - Duel.Overlay(c,og) - else - local g=Duel.GetXyzMaterial(c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local mt=Duel.GetFieldGroup(Duel.GetTurnPlayer(),LOCATION_MZONE,nil):Filter(Card.IsHasEffect,nil,100000214) - if mt:GetCount()>0 then - local mp=mt:Filter(Card.GetLevel,nil,c:GetRank()):GetCount() - if g:FilterCount(f,nil)==minc-mp then - local mg=g:Filter(f,nil):FilterSelect(tp,Card.IsHasEffect,mp,mp,nil,100000214) - if minc-(mp*2)>0 then - local mg2=g:FilterSelect(tp,f,minc-(mp*2),maxc-(mp*2),mg:GetFirst()) - mg:Merge(mg2) - end - c:SetMaterial(mg) - Duel.Overlay(c,mg) - else if g:FilterCount(f,nil)>minc-mp and mp>0 then - local mpt=mt:Filter(Card.GetLevel,nil,c:GetRank()):GetFirst() - local mg=Group.CreateGroup() - if mpt then - if Duel.SelectYesNo(tp,aux.Stringid(mpt:GetCode(),0)) then - mg:AddCard(mpt) - end - mpt=mt:Filter(Card.GetLevel,nil,c:GetRank()):GetNext() - if mg and minc-1>mp and mpt and Duel.SelectYesNo(tp,aux.Stringid(mpt:GetCode(),0)) then - mg:AddCard(mpt) - if minc>mg:GetCount()*2 then - local mg2=g:FilterSelect(tp,f,minc-4,maxc-4,mg:GetFirst()+mg:GetNext()) - mg:Merge(mg2) - end - else if mg:GetCount()==0 then - mg=g:FilterSelect(tp,f,minc,minc,nil) - else - local mg2=g:FilterSelect(tp,f,minc-2,maxc-2,mg:GetFirst()) - mg:Merge(mg2) - end - end - c:SetMaterial(mg) - Duel.Overlay(c,mg) - end - else - local mg=g:FilterSelect(tp,f,minc,maxc,nil) - c:SetMaterial(mg) - Duel.Overlay(c,mg) - end - end - else - local mg=g:FilterSelect(tp,f,minc,maxc,nil) - c:SetMaterial(mg) - Duel.Overlay(c,mg) - end - end - end -end -function Auxiliary.XyzCondition2(f,minc,maxc,alterf,desc) -return function(e,c,og) - if c==nil then return true end - local ft=Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE) - local ct=-ft - local mt=Duel.GetFieldGroup(Duel.GetTurnPlayer(),LOCATION_MZONE,nil):Filter(Card.IsHasEffect,nil,100000214) - if mt:GetCount()>0 then - local m=minc-mt:GetCount() - if m<=ct then return false end - if og then - return og:IsExists(f,minc,nil) - else - if ct<1 and Duel.IsExistingMatchingCard(alterf,c:GetControler(),LOCATION_MZONE,0,1,nil) then return true end - local ms=mt:GetFirst() - local g=Duel.GetXyzMaterial(c) - while ms do - if c:GetRank()==ms:GetLevel() then - return g:IsExists(f,m,nil) - else - return g:IsExists(f,minc,nil) - end - ms=mt:GetNext() - end - end - else - if minc<=ct then return false end - if og then - return og:IsExists(f,minc,nil) - else - if ct<1 and Duel.IsExistingMatchingCard(alterf,c:GetControler(),LOCATION_MZONE,0,1,nil) then return true end - local g=Duel.GetXyzMaterial(c) - return g:IsExists(f,minc,nil) - end - end - end -end -function Auxiliary.XyzOperation2(f,minc,maxc,alterf,desc,op) - return function(e,tp,eg,ep,ev,re,r,rp,c,og) - local ft=Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE) - local ct=-ft - local g=Duel.GetXyzMaterial(c) - local mt=Duel.GetFieldGroup(Duel.GetTurnPlayer(),LOCATION_MZONE,nil):Filter(Card.IsHasEffect,nil,100000214) - if mt:GetCount()~=0 then - local mp=mt:Filter(Card.GetLevel,nil,c:GetRank()):GetCount() - if g:FilterCount(f,nil)==minc-mp then - local mg=g:Filter(f,nil):FilterSelect(tp,Card.IsHasEffect,mp,mp,nil,100000214) - if minc-(mp*2)>0 then - local mg2=g:FilterSelect(tp,f,minc-(mp*2),maxc-(mp*2),mg:GetFirst()) - mg:Merge(mg2) - end - c:SetMaterial(mg) - Duel.Overlay(c,mg) - if op~=nil then op(e,tp) end - else if g:FilterCount(f,nil)>minc-mp and mp>0 then - local mpt=mt:Filter(Card.GetLevel,nil,c:GetRank()):GetFirst() - local mg=Group.CreateGroup() - if mpt then - if Duel.SelectYesNo(tp,aux.Stringid(mpt:GetCode(),0)) then - mg:AddCard(mpt) - end - mpt=mt:Filter(Card.GetLevel,nil,c:GetRank()):GetNext() - if mg and minc-1>mp and mpt and Duel.SelectYesNo(tp,aux.Stringid(mpt:GetCode(),0)) then - mg:AddCard(mpt) - if minc>mg:GetCount()*2 then - local mg2=g:FilterSelect(tp,f,minc-4,maxc-4,mg:GetFirst()+mg:GetNext()) - mg:Merge(mg2) - end - else if mg:GetCount()==0 then - mg=g:FilterSelect(tp,f,minc,minc,nil) - else - local mg2=g:FilterSelect(tp,f,minc-2,maxc-2,mg:GetFirst()) - mg:Merge(mg2) - end - end - c:SetMaterial(mg) - Duel.Overlay(c,mg) - end - else - local mg=g:FilterSelect(tp,f,minc,maxc,nil) - c:SetMaterial(mg) - Duel.Overlay(c,mg) - end - end - else - local b1=g:IsExists(f,minc,nil) - local b2=ct<1 and Duel.IsExistingMatchingCard(alterf,tp,LOCATION_MZONE,0,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - if (b1 and b2 and Duel.SelectYesNo(tp,desc)) or ((not b1) and b2) then - local mg=Duel.SelectMatchingCard(tp,alterf,tp,LOCATION_MZONE,0,1,1,nil) - local mg2=mg:GetFirst():GetOverlayGroup() - if mg2:GetCount()~=0 then - Duel.Overlay(c,mg2) - end - Duel.Overlay(c,mg) - c:SetMaterial(mg) - if op~=nil then op(e,tp) end - else - local mg=g:FilterSelect(tp,f,minc,maxc,nil) - c:SetMaterial(mg) - Duel.Overlay(c,mg) - end - end - end -end ---special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000214.spcon) - e1:SetOperation(c100000214.spop) - c:RegisterEffect(e1) -end -function c100000214.spcon(e,c) - if c==nil then return true end - return Duel.CheckReleaseGroup(c:GetControler(),Card.IsType,1,nil,TYPE_XYZ) -end -function c100000214.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectReleaseGroup(c:GetControler(),Card.IsType,1,1,nil,TYPE_XYZ) - Duel.Release(g,REASON_COST) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(100000214) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetTarget(c100000214.tg) - e3:SetReset(RESET_EVENT+0xfe0000) - e:GetHandler():RegisterEffect(e3) -end -function c100000214.tg(e,c) - return c==e:GetHandler() -end \ No newline at end of file diff --git a/script/c100000215.lua b/script/c100000215.lua deleted file mode 100644 index 5ec3b607..00000000 --- a/script/c100000215.lua +++ /dev/null @@ -1,76 +0,0 @@ ---ギミック・パペット－シャドー・フィーラー -function c100000215.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c100000215.condition) - e1:SetTarget(c100000215.target) - e1:SetOperation(c100000215.operation) - c:RegisterEffect(e1) - --effect gain - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_BE_MATERIAL) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCondition(c100000215.efcon) - e2:SetOperation(c100000215.efop) - c:RegisterEffect(e2) -end -function c100000215.condition(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttacker() - return at:GetControler()~=tp and Duel.GetAttackTarget()==nil -end -function c100000215.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) -end -function c100000215.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK)>0 then - Duel.BreakEffect() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_TO_GRAVE_REDIRECT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0xfe0000) - e1:SetValue(LOCATION_REMOVED) - c:RegisterEffect(e1) - local a=Duel.GetAttacker() - if a:IsOnField() and a:IsFaceup() then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(1) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE) - c:RegisterEffect(e2) - local e3=e2:Clone() - a:RegisterEffect(e3) - Duel.CalculateDamage(a,c) - end - end -end -function c100000215.efcon(e,tp,eg,ep,ev,re,r,rp) - return r==REASON_XYZ -end -function c100000215.efop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local rc=c:GetReasonCard() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_IGNORE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_TO_GRAVE_REDIRECT) - e1:SetTarget(c100000215.retarget) - e1:SetLabelObject(c) - e1:SetValue(LOCATION_REMOVED) - e1:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e1) -end -function c100000215.retarget(e,c) - return c==e:GetLabelObject() -end \ No newline at end of file diff --git a/script/c100000218.lua b/script/c100000218.lua deleted file mode 100644 index 9af1fb9b..00000000 --- a/script/c100000218.lua +++ /dev/null @@ -1,52 +0,0 @@ ---爆風紋章 -function c100000218.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000218.eqcon) - e1:SetTarget(c100000218.target) - e1:SetOperation(c100000218.activate) - c:RegisterEffect(e1) -end -function c100000218.eqcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE -end -function c100000218.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c100000218.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(c100000218.filter,tp,0,LOCATION_ONFIELD,1,nil) end - local sg=Duel.GetMatchingGroup(c100000218.filter,tp,0,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,sg:GetCount(),0,0) -end -function c100000218.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100000218.filter,tp,0,LOCATION_ONFIELD,nil) - Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.BreakEffect() - Duel.SkipPhase(Duel.GetTurnPlayer(),PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) - --damage - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetLabel(sg:GetCount()) - e1:SetTarget(c100000218.datarget) - e1:SetOperation(c100000218.operation) - Duel.RegisterEffect(e1,tp) -end -function c100000218.datarget(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local dam=e:GetLabel()*500 - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100000218.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100000219.lua b/script/c100000219.lua deleted file mode 100644 index 796808b6..00000000 --- a/script/c100000219.lua +++ /dev/null @@ -1,59 +0,0 @@ ---破滅の紋章 -function c100000219.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000219.target) - e1:SetOperation(c100000219.operation) - c:RegisterEffect(e1) - --equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(c100000219.eqlimit) - c:RegisterEffect(e2) - -- - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DAMAGE) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetCountLimit(1) - e4:SetRange(LOCATION_SZONE) - e4:SetTarget(c100000219.damtg) - e4:SetOperation(c100000219.damop) - c:RegisterEffect(e4) -end -function c100000219.eqlimit(e,c) - local code=c:GetCode() - return c:IsSetCard(0x76) or code==(2407234 or 47387961) -end -function c100000219.filter(c) - local code=c:GetCode() - return c:IsFaceup() and (c:IsSetCard(0x76) or code==(2407234 or 47387961)) -end -function c100000219.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(c100000219.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c100000219.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000219.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end -function c100000219.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_MZONE,LOCATION_MZONE)>0 end - local dam=Duel.GetMatchingGroupCount(Card.IsFaceup,e:GetHandlerPlayer(),LOCATION_MZONE,LOCATION_MZONE,nil)*300 - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,dam) -end -function c100000219.damop(e,tp,eg,ep,ev,re,r,rp) - local dam=Duel.GetMatchingGroupCount(Card.IsFaceup,e:GetHandlerPlayer(),LOCATION_MZONE,LOCATION_MZONE,nil)*300 - Duel.Damage(tp,dam,REASON_EFFECT) - Duel.Damage(1-tp,dam,REASON_EFFECT) -end diff --git a/script/c100000220.lua b/script/c100000220.lua deleted file mode 100644 index 020f17b6..00000000 --- a/script/c100000220.lua +++ /dev/null @@ -1,46 +0,0 @@ ---チェンジ！ ジェット・アイアン号 -function c100000220.initial_effect(c) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCost(c100000220.cost) - e1:SetTarget(c100000220.target) - e1:SetOperation(c100000220.operation) - c:RegisterEffect(e1) -end -function c100000220.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(1) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,80208158) - and Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,16796157) - and Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,43791861) - and Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,79185500) end - local g1=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,80208158) - local g2=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,16796157) - g1:Merge(g2) - local g3=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,43791861) - g1:Merge(g3) - local g4=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,79185500) - g1:Merge(g4) - Duel.Release(g1,REASON_COST) -end -function c100000220.filter(c,e,tp) - return c:IsCode(15574615) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000220.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if e:GetLabel()==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return false end - e:SetLabel(0) - return Duel.IsExistingMatchingCard(c100000220.filter,tp,0x13,0,1,nil,e,tp) - end - e:SetLabel(0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13) -end -function c100000220.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000220.filter,tp,0x13,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) -end diff --git a/script/c100000221.lua b/script/c100000221.lua deleted file mode 100644 index e166b424..00000000 --- a/script/c100000221.lua +++ /dev/null @@ -1,37 +0,0 @@ ---ヒロイック・チェンジ -function c100000221.initial_effect(c) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCost(c100000221.cost) - e1:SetTarget(c100000221.target) - e1:SetOperation(c100000221.operation) - c:RegisterEffect(e1) -end -function c100000221.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(1) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x6f) end - local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x6f) - Duel.Release(g,REASON_COST) -end -function c100000221.filter(c,e,tp) - return c:IsSetCard(0x6f) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000221.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if e:GetLabel()==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return false end - e:SetLabel(0) - return Duel.IsExistingMatchingCard(c100000221.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) - end - e:SetLabel(0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c100000221.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000221.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) -end diff --git a/script/c100000222.lua b/script/c100000222.lua deleted file mode 100644 index 3eebd729..00000000 --- a/script/c100000222.lua +++ /dev/null @@ -1,35 +0,0 @@ ---ヒロイック・ガード -function c100000222.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_RECOVER) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e1:SetCost(c100000222.cost) - e1:SetCondition(c100000222.condition) - e1:SetTarget(c100000222.target) - e1:SetOperation(c100000222.activate) - c:RegisterEffect(e1) -end -function c100000222.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x6f) end - local sg=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x6f) - local tc=sg:GetFirst() - local atk=tc:GetAttack() - Duel.Release(tc,REASON_COST) - e:SetLabel(atk) -end -function c100000222.condition(e,tp,eg,ep,ev,re,r,rp) - return tp==ep -end -function c100000222.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(e:GetLabel()) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,e:GetLabel()) -end -function c100000222.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Recover(p,d,REASON_EFFECT) -end diff --git a/script/c100000223.lua b/script/c100000223.lua deleted file mode 100644 index 8dbdda14..00000000 --- a/script/c100000223.lua +++ /dev/null @@ -1,57 +0,0 @@ ---ヒロイック・コール -function c100000223.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000223.cost) - e1:SetTarget(c100000223.target) - e1:SetOperation(c100000223.activate) - c:RegisterEffect(e1) -end -function c100000223.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not Duel.CheckSpecialSummonActivity(tp) and not Duel.CheckSummonActivity(tp)end -end -function c100000223.filter(c,e,tp) - return c:IsSetCard(0x6f) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000223.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000223.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000223.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,tp,LOCATION_HAND) -end -function c100000223.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1,true) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2,true) - Duel.SpecialSummonComplete() - end - --oath effects - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e2:SetCode(EFFECT_CANNOT_SUMMON) - e2:SetReset(RESET_PHASE+PHASE_END) - e2:SetTargetRange(1,0) - Duel.RegisterEffect(e2,tp) -end diff --git a/script/c100000224.lua b/script/c100000224.lua deleted file mode 100644 index f4bfeb3e..00000000 --- a/script/c100000224.lua +++ /dev/null @@ -1,109 +0,0 @@ ---スカブ・スカーナイト -function c100000224.initial_effect(c) - --battle indestructable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - c:RegisterEffect(e1) - --selfdes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_SELF_DESTROY) - e2:SetCondition(c100000224.sdcon) - c:RegisterEffect(e2) - --must attack - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_MUST_ATTACK) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(0,LOCATION_MZONE) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetCode(EFFECT_MUST_BE_ATTACKED) - e4:SetRange(LOCATION_MZONE) - c:RegisterEffect(e4) - -- - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e5:SetCode(EVENT_BATTLED) - e5:SetCondition(c100000224.condition) - e5:SetOperation(c100000224.operation) - c:RegisterEffect(e5) - local e6=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetRange(LOCATION_MZONE) - e6:SetProperty(EFFECT_FLAG_CARD_TARGET) - e6:SetCountLimit(1) - e6:SetCode(EVENT_PHASE+PHASE_BATTLE) - e6:SetTarget(c100000224.target) - e6:SetOperation(c100000224.activate) - c:RegisterEffect(e6) - --only 1 can exists - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_SINGLE) - e7:SetCode(EFFECT_CANNOT_SUMMON) - e7:SetCondition(c100000224.excon) - c:RegisterEffect(e7) - local e8=e7:Clone() - e8:SetCode(EFFECT_CANNOT_FLIP_SUMMON) - c:RegisterEffect(e8) - local e9=Effect.CreateEffect(c) - e9:SetType(EFFECT_TYPE_SINGLE) - e9:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e9:SetCode(EFFECT_SPSUMMON_CONDITION) - e9:SetValue(c100000224.splimit) - c:RegisterEffect(e9) - local ea=Effect.CreateEffect(c) - ea:SetType(EFFECT_TYPE_SINGLE) - ea:SetCode(EFFECT_SELF_DESTROY) - ea:SetCondition(c100000224.descon) - c:RegisterEffect(ea) -end -function c100000224.sdcon(e) - return e:GetHandler():IsPosition(POS_FACEUP_DEFENCE) -end -function c100000224.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==e:GetHandler() or Duel.GetAttacker()==e:GetHandler() -end -function c100000224.operation(e,tp,eg,ep,ev,re,r,rp) - local tg=e:GetHandler():GetBattleTarget() - tg:RegisterFlagEffect(100000224,RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END,0,1) -end -function c100000224.cfilter(c,tp) - return c:GetFlagEffect(100000224)~=0 and c:GetControler()~=tp and c:IsFaceup() and c:IsControlerCanBeChanged() -end -function c100000224.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsControlerCanBeChanged() end - if chk==0 then return Duel.IsExistingTarget(c100000224.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,c100000224.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,tp) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) -end -function c100000224.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - end -end -function c100000224.exfilter(c,fid) - return c:IsFaceup() and c:GetCode()==100000224 and (fid==nil or c:GetFieldID()0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c100000226.lua b/script/c100000226.lua deleted file mode 100644 index 9590804b..00000000 --- a/script/c100000226.lua +++ /dev/null @@ -1,31 +0,0 @@ ---規律の鏡舞台 -function c100000226.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --atk change - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SET_ATTACK_FINAL) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetValue(c100000226.vala) - c:RegisterEffect(e2) - --def change - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_SET_DEFENCE_FINAL) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetValue(c100000226.vald) - c:RegisterEffect(e3) -end - -function c100000226.vala(e,c) - return c:GetBaseAttack() -end -function c100000226.vald(e,c) - return c:GetBaseDefence() -end diff --git a/script/c100000227.lua b/script/c100000227.lua deleted file mode 100644 index 1aa2991a..00000000 --- a/script/c100000227.lua +++ /dev/null @@ -1,62 +0,0 @@ ---枯山水 -function c100000227.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --cannot attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_ATTACK) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetTarget(c100000227.notatk) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_SZONE) - e3:SetCountLimit(1) - e3:SetCondition(c100000227.exscon) - e3:SetTarget(c100000227.target) - e3:SetOperation(c100000227.operation) - c:RegisterEffect(e1) - --atk up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetValue(c100000227.val) - c:RegisterEffect(e2) -end -function c100000227.notatk(e,c) - return c:IsAttribute(ATTRIBUTE_WATER) -end -function c100000227.exscon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetMatchingGroup(Card.IsRace,tp,LOCATION_MZONE,0,nil,RACE_PLANT):GetCount()==1 - and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==1 -end -function c100000227.val(e,c) - return c:GetRank()*100 -end -function c100000227.filter(c,e,sp) - return c:IsRace(RACE_PLANT) and c:IsCanBeSpecialSummoned(e,0,sp,false,false) -end -function c100000227.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000227.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000227.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000227.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 diff --git a/script/c100000228.lua b/script/c100000228.lua deleted file mode 100644 index 1a2ec7b4..00000000 --- a/script/c100000228.lua +++ /dev/null @@ -1,48 +0,0 @@ ---フラッシュ・エフェクト -function c100000228.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c100000228.condition) - e1:SetTarget(c100000228.target) - e1:SetOperation(c100000228.activate) - c:RegisterEffect(e1) -end -function c100000228.condition(e,tp,eg,ep,ev,re,r,rp) - local ph=Duel.GetCurrentPhase() - return ph>=0x08 and ph<=0x20 and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev) -end -function c100000228.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) -end -function c100000228.filter2(c) - return c:IsFaceup() and c:IsType(TYPE_EFFECT) -end -function c100000228.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - local c=e:GetHandler() - local tc=re:GetHandler() - if tc:IsRelateToEffect(re) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - e1:SetValue(800) - tc:RegisterEffect(e1) - end - local g=Duel.GetMatchingGroup(c100000228.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - local sg=g:GetFirst() - while sg do - --disable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - sg:RegisterEffect(e1) - sg=g:GetNext() - end -end diff --git a/script/c100000229.lua b/script/c100000229.lua deleted file mode 100644 index 96cc6cd6..00000000 --- a/script/c100000229.lua +++ /dev/null @@ -1,57 +0,0 @@ ---エクシーズ・リバイバル -function c100000229.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000229.target) - e1:SetOperation(c100000229.operation) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetOperation(c100000229.desop) - c:RegisterEffect(e2) -end -function c100000229.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_XYZ) -end -function c100000229.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100000229.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000229.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000229.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000229.eqlimit(e,c) - return e:GetLabelObject()==c -end -function c100000229.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK)==0 then return end - Duel.Equip(tp,c,tc) - --Add Equip limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c100000229.eqlimit) - e1:SetLabelObject(tc) - c:RegisterEffect(e1) - end -end -function c100000229.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=c:GetFirstCardTarget() - if tc and tc:IsLocation(LOCATION_MZONE) then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100000230.lua b/script/c100000230.lua deleted file mode 100644 index fb686195..00000000 --- a/script/c100000230.lua +++ /dev/null @@ -1,66 +0,0 @@ ---除雪機関車ハッスル・ラッセル -function c100000230.initial_effect(c) - c:EnableReviveLimit() - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000230,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000230.spcon) - e1:SetCost(c100000230.cost) - e1:SetTarget(c100000230.sptg) - e1:SetOperation(c100000230.spop) - c:RegisterEffect(e1) - --DAMAGE - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000230,1)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c100000230.thcon) - e2:SetTarget(c100000230.thtg) - e2:SetOperation(c100000230.thop) - c:RegisterEffect(e2) - e2:SetLabelObject(e1) -end -function c100000230.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil -end -function c100000230.cfilter(c) - return c:GetSequence()~=5 and c:IsDestructable() -end -function c100000230.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000230.cfilter,tp,LOCATION_SZONE,0,1,nil) end - local sg=Duel.GetMatchingGroup(c100000230.cfilter,tp,LOCATION_SZONE,0,nil) - e:SetLabel(sg:GetCount()) - Duel.Destroy(sg,REASON_COST) -end -function c100000230.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c100000230.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,1,tp,tp,true,false,POS_FACEUP) - c:CompleteProcedure() - end -end -function c100000230.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 -end -function c100000230.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local dam=e:GetLabelObject():GetLabel()*200 - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100000230.thop(e,tp,eg,ep,ev,re,r,rp,c) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100000231.lua b/script/c100000231.lua deleted file mode 100644 index 4639dbf1..00000000 --- a/script/c100000231.lua +++ /dev/null @@ -1,34 +0,0 @@ ---臨時ダイヤ -function c100000231.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000231.target) - e1:SetOperation(c100000231.activate) - c:RegisterEffect(e1) -end -function c100000231.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:GetAttack()>=3000 and c:IsRace(RACE_MACHINE) -end -function c100000231.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c100000231.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000231.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000231.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000231.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1,true) - Duel.SpecialSummonComplete() - end -end diff --git a/script/c100000233.lua b/script/c100000233.lua deleted file mode 100644 index 41b27383..00000000 --- a/script/c100000233.lua +++ /dev/null @@ -1,32 +0,0 @@ ---豪腕特急トロッコロッコ -function c100000233.initial_effect(c) - --effect gain - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_BE_MATERIAL) - e1:SetCondition(c100000233.efcon) - e1:SetOperation(c100000233.efop) - c:RegisterEffect(e1) -end -function c100000233.efcon(e,tp,eg,ep,ev,re,r,rp) - return r==REASON_XYZ -end -function c100000233.efop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local rc=c:GetReasonCard() - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(800) - e1:SetReset(RESET_EVENT+0x1ff0000) - rc:RegisterEffect(e1) - if not rc:IsType(TYPE_EFFECT) then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CHANGE_TYPE) - e2:SetValue(TYPE_MONSTER+TYPE_EFFECT+TYPE_XYZ) - e2:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e2) - end -end \ No newline at end of file diff --git a/script/c100000234.lua b/script/c100000234.lua deleted file mode 100644 index cd7d14f7..00000000 --- a/script/c100000234.lua +++ /dev/null @@ -1,24 +0,0 @@ ---カースド・シンクロ -function c100000234.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_BATTLE_DAMAGE) - e1:SetCondition(c100000234.condition) - c:RegisterEffect(e1) - --cannot attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_ATTACK) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetTarget(c100000234.atktarget) - c:RegisterEffect(e2) -end -function c100000234.condition(e,tp,eg,ep,ev,re,r,rp) - return ep==tp and Duel.GetAttacker():IsControler(1-tp) -end -function c100000234.atktarget(e,c) - return c:IsType(TYPE_SYNCHRO) -end diff --git a/script/c100000235.lua b/script/c100000235.lua deleted file mode 100644 index f91113ca..00000000 --- a/script/c100000235.lua +++ /dev/null @@ -1,110 +0,0 @@ ---異次元格納庫 -function c100000235.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000235.retarget) - e1:SetOperation(c100000235.reactivate) - c:RegisterEffect(e1) - local sg=Group.CreateGroup() - sg:KeepAlive() - e1:SetLabelObject(sg) - --SPSUMMON - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetTarget(c100000235.target) - e3:SetOperation(c100000235.operation) - e3:SetLabelObject(sg) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e4) -end -function c100000235.refilter(c) - return c:IsType(TYPE_UNION) and c:IsLevelBelow(4) and c:IsAbleToRemove() -end -function c100000235.retarget(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingTarget(c100000235.refilter,tp,LOCATION_DECK,0,3,nil) end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,3,0,0) -end -function c100000235.reactivate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c100000235.refilter,tp,LOCATION_DECK,0,3,3,nil) - if g:GetCount()>0 then - Duel.Remove(g,POS_FACEUP,REASON_EFFECT) - local sg=e:GetLabelObject() - if c:GetFlagEffect(100000235)==0 then - sg:Clear() - c:RegisterFlagEffect(100000235,RESET_EVENT+0x1680000,0,1) - end - local tc=g:GetFirst() - while tc do - sg:AddCard(tc) - tc:RegisterFlagEffect(100000235,RESET_EVENT+0x1fe0000,0,1) - tc=g:GetNext() - end - end -end -function c100000235.filter(c,e,tp) - local g=e:GetLabelObject() - return c:IsFaceup() and c:GetSummonPlayer()==tp and g:IsExists(c100000235.filter2,1,nil,c,e,tp) -end -function c100000235.filter2(c,eqc,e,tp) - return c:GetFlagEffect(100000235)~=0 and c:CheckEquipTarget(eqc) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000235.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and eg:IsExists(c100000235.filter,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local gc=Duel.GetLocationCount(tp,LOCATION_MZONE) - local g=e:GetLabelObject() - local gt=eg:Filter(c100000235.filter,nil,e,tp) - local gtg=gt:GetFirst() - local tg=Group.CreateGroup() - local tdg=nil - while gtg do - tdg=g:Filter(c100000235.filter2,nil,gtg,e,tp) - if tdg:GetCount()>0 then - tg:Merge(tdg) - end - gtg=gt:GetNext() - end - local sg=tg:Select(tp,1,gc,nil) - Duel.SetTargetCard(sg) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg,gc,0,0) -end -function c100000235.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if Duel.GetLocationCount(tp,LOCATION_MZONE)1 and Duel.GetLocationCount(tp,LOCATION_SZONE)>1 - and Duel.SelectYesNo(tp,aux.Stringid(100000236,0)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) - local g=Duel.SelectMatchingCard(tp,c100000236.filter,tp,LOCATION_DECK,0,2,2,nil,tp) - if g:GetCount()>1 then - local tc=g:GetFirst() - local tc2=g:GetNext() - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - Duel.MoveToField(tc2,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - end - end -end \ No newline at end of file diff --git a/script/c100000237.lua b/script/c100000237.lua deleted file mode 100644 index 3998863b..00000000 --- a/script/c100000237.lua +++ /dev/null @@ -1,56 +0,0 @@ ---デルタ・バリア -function c100000237.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetOperation(c100000237.activate) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e2:SetCondition(c100000237.condition) - e2:SetCost(c100000237.cost) - e2:SetOperation(c100000237.operation) - c:RegisterEffect(e2) -end -function c100000237.filter(c,tp) - return c:GetCode()==100000237 and c:GetActivateEffect():IsActivatable(tp) -end -function c100000237.activate(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetMatchingGroup(c100000237.filter,tp,LOCATION_GRAVE,0,nil,tp) - local dg2=Duel.GetMatchingGroup(c100000237.filter,tp,0,LOCATION_GRAVE,nil,1-tp) - Duel.BreakEffect() - if ((dg:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>1) or (dg2:GetCount()>0 and Duel.GetLocationCount(1-tp,LOCATION_SZONE)>1)) - and Duel.SelectYesNo(tp,aux.Stringid(100000237,0)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) - if dg:GetCount()>0 then - local g=Duel.SelectMatchingCard(tp,c100000237.filter,tp,LOCATION_GRAVE,0,1,3,nil,tp) - local tc=g:GetFirst() - while tc do - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - tc=g:GetNext() - end - end - if dg2:GetCount()>0 then - local g2=Duel.SelectMatchingCard(tp,c100000237.filter,tp,0,LOCATION_GRAVE,1,3,nil,1-tp) - local tc2=g2:GetFirst() - while tc do - Duel.MoveToField(tc2,1-tp,1-tp,LOCATION_SZONE,POS_FACEUP,true) - tc2=g2:GetNext() - end - end - end -end -function c100000237.condition(e,tp,eg,ep,ev,re,r,rp) - return (Duel.GetAttacker():GetControler()==tp or Duel.GetAttackTarget():GetControler()==tp) - and Duel.GetBattleDamage(tp)>0 and Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_ONFIELD,0,nil,100000237):GetCount()>2 -end -function c100000237.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,100000237)==0 end - Duel.RegisterFlagEffect(tp,100000237,RESET_PHASE+PHASE_END,0,1) -end -function c100000237.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(tp,0) -end \ No newline at end of file diff --git a/script/c100000238.lua b/script/c100000238.lua deleted file mode 100644 index b21795e3..00000000 --- a/script/c100000238.lua +++ /dev/null @@ -1,34 +0,0 @@ ---ベアーズ・ブート・キャンプ -function c100000238.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000238.condition) - e1:SetTarget(c100000238.target) - e1:SetOperation(c100000238.activate) - c:RegisterEffect(e1) -end -function c100000238.filter(c,e,tp) - return c:GetCode()==67136033 and c:IsFaceup() -end -function c100000238.condition(e) - return Duel.IsExistingMatchingCard(c100000238.filter,e:GetHandler():GetControler(),LOCATION_MZONE,0,1,nil) -end -function c100000238.spfilter(c,e,tp) - return c:IsLevelBelow(4) and c:IsRace(RACE_BEASTWARRIOR) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000238.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000238.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000238.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000238.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - local tc=g:GetFirst() - local c=e:GetHandler() - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) -end \ No newline at end of file diff --git a/script/c100000239.lua b/script/c100000239.lua deleted file mode 100644 index 318397df..00000000 --- a/script/c100000239.lua +++ /dev/null @@ -1,32 +0,0 @@ ---エクシーズ・トレジャー -function c100000239.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000239.target) - e1:SetOperation(c100000239.activate) - c:RegisterEffect(e1) -end -function c100000239.gfilter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) -end -function c100000239.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local g=Duel.GetMatchingGroup(c100000239.gfilter,tp,LOCATION_MZONE,0,nil) - local ct=Duel.GetMatchingGroupCount(c100000239.gfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - e:SetLabel(ct) - return ct>0 and Duel.IsPlayerCanDraw(tp,ct) - end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(e:GetLabel()) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,e:GetLabel()) -end -function c100000239.activate(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetMatchingGroup(c100000239.gfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - local ct=Duel.GetMatchingGroupCount(c100000239.gfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.Draw(p,ct,REASON_EFFECT) -end diff --git a/script/c100000240.lua b/script/c100000240.lua deleted file mode 100644 index 03de8f9c..00000000 --- a/script/c100000240.lua +++ /dev/null @@ -1,18 +0,0 @@ ---フォトン・デルタ・ウィング -function c100000240.initial_effect(c) - --cannot attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(0,1) - e1:SetCondition(c100000240.con) - c:RegisterEffect(e1) -end -function c100000240.filter(c) - return c:IsFaceup() and c:GetCode()==100000240 -end -function c100000240.con(e) - return Duel.IsExistingMatchingCard(c100000240.filter,e:GetHandler():GetControler(),LOCATION_MZONE,0,1,e:GetHandler()) -end diff --git a/script/c100000241.lua b/script/c100000241.lua deleted file mode 100644 index f111caa4..00000000 --- a/script/c100000241.lua +++ /dev/null @@ -1,29 +0,0 @@ ---フォトン・エスケープ -function c100000241.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_BE_BATTLE_TARGET) - e1:SetCondition(c100000241.condition) - e1:SetTarget(c100000241.target) - e1:SetOperation(c100000241.activate) - c:RegisterEffect(e1) -end -function c100000241.condition(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - return a:IsOnField() and d and d:IsFaceup() and d:IsControler(tp) - and (d:IsSetCard(0x55) or d:IsCode(31801517)) and d:IsAbleToRemove() -end -function c100000241.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.GetAttackTarget():CreateEffectRelation(e) -end -function c100000241.activate(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttackTarget() - if a:IsFaceup() and a:IsRelateToEffect(e) then - Duel.Remove(a,POS_FACEUP,REASON_EFFECT) - Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) - end -end diff --git a/script/c100000242.lua b/script/c100000242.lua deleted file mode 100644 index 2e878044..00000000 --- a/script/c100000242.lua +++ /dev/null @@ -1,39 +0,0 @@ ---光子圧力界 -function c100000242.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --trigger - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetRange(LOCATION_SZONE) - e2:SetOperation(c100000242.operation) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c100000242.filter(c) - return c:IsFaceup() and c:IsSetCard(0x55) -end -function c100000242.operation(e,tp,eg,ep,ev,re,r,rp) - if eg:IsExists(c100000242.filter,1,nil) then - if (Duel.GetMatchingGroup(c100000242.filter,tp,LOCATION_MZONE,0,nil):GetCount()==0 or Duel.GetMatchingGroup(c100000242.filter,tp,0,LOCATION_MZONE,nil):GetCount()==0) - and Duel.SelectYesNo(tp,aux.Stringid(100000242,0)) then - local td=eg:Filter(c100000242.filter,nil) - local tc=td:GetFirst() - local dam=0 - while tc do - dam=tc:GetLevel()*100 - if Duel.GetMatchingGroup(c100000242.filter,tp,LOCATION_MZONE,0,nil):GetCount()==0 then - Duel.Damage(tp,dam,REASON_EFFECT) end - if Duel.GetMatchingGroup(c100000242.filter,tp,0,LOCATION_MZONE,nil):GetCount()==0 then - Duel.Damage(1-tp,dam,REASON_EFFECT) end - tc=td:GetNext() - end - end - end -end diff --git a/script/c100000243.lua b/script/c100000243.lua deleted file mode 100644 index f0e2e37f..00000000 --- a/script/c100000243.lua +++ /dev/null @@ -1,43 +0,0 @@ ---ＴＧ　メタル・スケルトン -function c100000243.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DELAY) - e1:SetRange(LOCATION_HAND) - e1:SetCode(EVENT_DESTROYED) - e1:SetCondition(c100000243.spcon) - e1:SetTarget(c100000243.sptg) - e1:SetOperation(c100000243.spop) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_DELAY) - e2:SetRange(LOCATION_HAND) - e2:SetCode(EVENT_BATTLE_DESTROYED) - e2:SetCondition(c100000243.spcon) - e2:SetTarget(c100000243.sptg) - e2:SetOperation(c100000243.spop) - c:RegisterEffect(e2) -end -function c100000243.cfilter(c,tp) - return c:IsPreviousLocation(LOCATION_MZONE) and c:IsLocation(LOCATION_GRAVE) - and c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousControler()~=tp -end -function c100000243.spcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000243.cfilter,1,nil,tp) -end -function c100000243.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsRelateToEffect(e) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c100000243.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000244.lua b/script/c100000244.lua deleted file mode 100644 index d64b172b..00000000 --- a/script/c100000244.lua +++ /dev/null @@ -1,49 +0,0 @@ ---ＴＧ ギア・ゾンビ -function c100000244.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000244.spcon) - e1:SetValue(1) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c100000244.con) - e2:SetTarget(c100000244.target) - e2:SetOperation(c100000244.activate) - c:RegisterEffect(e2) -end -function c100000244.spfilter(c) - return c:IsFaceup() and c:IsSetCard(0x27) -end -function c100000244.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000244.spfilter,c:GetControler(),LOCATION_MZONE,0,1,nil) -end -function c100000244.con(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 -end -function c100000244.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000244.spfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000244.spfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100000244.spfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) -end -function c100000244.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(-1000) - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c100000245.lua b/script/c100000245.lua deleted file mode 100644 index ef02bffd..00000000 --- a/script/c100000245.lua +++ /dev/null @@ -1,41 +0,0 @@ ---ＴＧ ドリル・フィッシュ -function c100000245.initial_effect(c) - --direct attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DIRECT_ATTACK) - e1:SetCondition(c100000245.dircon) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_DAMAGE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c100000245.descon) - e2:SetTarget(c100000245.destg) - e2:SetOperation(c100000245.desop) - c:RegisterEffect(e2) -end -function c100000245.spfilter(c) - return c:IsFaceup() and c:IsSetCard(0x27) -end -function c100000245.dircon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000245.spfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) -end -function c100000245.descon(e,tp,eg,ep,ev,re,r,rp,chk) - return ep~=tp and Duel.GetAttackTarget()==nil -end -function c100000245.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and Card.IsDestructable(chkc) end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100000245.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100000246.lua b/script/c100000246.lua deleted file mode 100644 index ee8b5879..00000000 --- a/script/c100000246.lua +++ /dev/null @@ -1,48 +0,0 @@ ---錬金術の研究成果 -function c100000246.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000246.condition) - e1:SetCost(c100000246.cost) - e1:SetTarget(c100000246.target) - e1:SetOperation(c100000246.activate) - c:RegisterEffect(e1) -end -function c100000246.condition(e) - return Duel.IsExistingMatchingCard(Card.IsCode,e:GetHandler():GetControler(),LOCATION_MZONE,0,1,nil,57116033) -end -function c100000246.cfilter1(c) - return c:IsCode(57116033) and c:IsAbleToGraveAsCost() -end -function c100000246.costfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() -end -function c100000246.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000246.costfilter,tp,LOCATION_GRAVE,0,3,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOREMOVE) - local g=Duel.SelectMatchingCard(tp,c100000246.costfilter,tp,LOCATION_GRAVE,0,3,3,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,c100000246.cfilter1,tp,LOCATION_MZONE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) - Duel.SendtoGrave(g1,REASON_COST) -end -function c100000246.filter(c,e,tp) - return c:IsCode(33776734) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000246.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100000246.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK+LOCATION_HAND) -end -function c100000246.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000246.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000247.lua b/script/c100000247.lua deleted file mode 100644 index 4cf7bceb..00000000 --- a/script/c100000247.lua +++ /dev/null @@ -1,92 +0,0 @@ ---賢者の石 サバティエル -function c100000247.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_DESTROYED) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_DECK) - e1:SetCondition(c100000247.condition) - e1:SetTarget(c100000247.target) - e1:SetOperation(c100000247.activate) - c:RegisterEffect(e1) - --Activate - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_ACTIVATE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetCondition(c100000247.condition2) - e2:SetCost(c100000247.cost) - e2:SetTarget(c100000247.target2) - e2:SetOperation(c100000247.activate2) - c:RegisterEffect(e2) - --Activate - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_ACTIVATE) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetCondition(c100000247.condition3) - e3:SetTarget(c100000247.target3) - e3:SetOperation(c100000247.activate3) - c:RegisterEffect(e3) -end -function c100000247.cfilter(c,tp) - return c:IsCode(57116033) and c:GetPreviousControler()==tp - and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) -end -function c100000247.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000247.cfilter,1,nil,tp) -end -function c100000247.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return e:GetHandler():IsAbleToHand() and e:GetHandler():IsLocation(LOCATION_DECK)end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c100000247.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,e:GetHandler()) -end -function c100000247.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFlagEffect(tp,100000020)~=3 -end -function c100000247.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.PayLPCost(tp,Duel.GetLP(tp)/2) -end -function c100000247.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c100000247.activate2(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - e:GetHandler():CancelToGrave() - Duel.SendtoDeck(e:GetHandler(),nil,1,REASON_EFFECT) - Duel.ShuffleDeck(e:GetHandler():GetControler()) - Duel.RegisterFlagEffect(tp,100000020,0,0,Duel.GetFlagEffect(tp,100000020)+1) - end -end -function c100000247.condition3(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFlagEffect(tp,100000020)>2 -end -function c100000247.target3(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100000247.activate3(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local atk=Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(tc:GetAttack()*atk) - tc:RegisterEffect(e1) - end -end diff --git a/script/c100000248.lua b/script/c100000248.lua deleted file mode 100644 index 0596ee0b..00000000 --- a/script/c100000248.lua +++ /dev/null @@ -1,20 +0,0 @@ ---氷山海 -function c100000248.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Def - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SET_DEFENCE) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetTarget(c100000248.tg) - e2:SetValue(0) - c:RegisterEffect(e2) -end -function c100000248.tg(e,c) - return c:GetPosition()==POS_FACEUP_DEFENCE -end diff --git a/script/c100000249.lua b/script/c100000249.lua deleted file mode 100644 index 70ff5fee..00000000 --- a/script/c100000249.lua +++ /dev/null @@ -1,21 +0,0 @@ ---勇気機関車ブレイブポッポ -function c100000249.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetOperation(c100000249.atkop) - c:RegisterEffect(e1) -end -function c100000249.atkop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(c100000249.val) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE) - e:GetHandler():RegisterEffect(e1) -end -function c100000249.val(e,c) - return c:GetAttack()/2 -end diff --git a/script/c100000250.lua b/script/c100000250.lua deleted file mode 100644 index 6bdf1718..00000000 --- a/script/c100000250.lua +++ /dev/null @@ -1,32 +0,0 @@ ---レベルダウン！ -function c100000250.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000250.tg) - e1:SetOperation(c100000250.activate) - c:RegisterEffect(e1) -end -function c100000250.filter(c) - return c:IsSetCard(0x41) and c:GetLevel()>2 -end -function c100000250.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000250.filter,tp,LOCATION_HAND,0,1,nil) end -end -function c100000250.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100000250.filter,tp,LOCATION_HAND,0,nil) - if g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100000250,0)) - local sg=g:Select(tp,1,1,nil) - local tc=sg:GetFirst() - Duel.ConfirmCards(1-tp,sg) - if tc:GetLocation()==LOCATION_HAND then Duel.ShuffleHand(tp) end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetReset(RESET_EVENT+0xfe0000+RESET_PHASE+PHASE_END) - e1:SetValue(-2) - tc:RegisterEffect(e1) - end -end diff --git a/script/c100000251.lua b/script/c100000251.lua deleted file mode 100644 index 2c4c74cc..00000000 --- a/script/c100000251.lua +++ /dev/null @@ -1,50 +0,0 @@ ---レベル・ソウル -function c100000251.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000251.cost) - e1:SetTarget(c100000251.target) - e1:SetOperation(c100000251.activate) - c:RegisterEffect(e1) -end -function c100000251.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,nil,1,nil) end - local g=Duel.SelectReleaseGroup(tp,nil,1,1,nil) - Duel.Release(g,REASON_COST) -end -function c100000251.stfilter(c,e,tp) - if not c:IsSetCard(0x41) or not c:IsAbleToRemove() then return false end - local code=c:GetCode() - local class=_G["c"..code] - return Duel.IsExistingMatchingCard(c100000251.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,class,e,tp) -end -function c100000251.spfilter(c,class,e,tp) - local code=c:GetCode() - for i=1,class.lvupcount do - if code==class.lvup[i] then return c:IsCanBeSpecialSummoned(e,0,tp,true,false) end - end - return false -end -function c100000251.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100000251.stfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c100000251.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local g=Duel.SelectMatchingCard(tp,c100000251.stfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - local code=g:GetFirst():GetCode() - Duel.Remove(g,POS_FACEUP,REASON_EFFECT) - local class=_G["c"..code] - if class==nil or class.lvupcount==nil then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000251.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,class,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - if tc:GetPreviousLocation()==LOCATION_DECK then Duel.ShuffleDeck(tp) end - end -end diff --git a/script/c100000252.lua b/script/c100000252.lua deleted file mode 100644 index 4d3e0aa7..00000000 --- a/script/c100000252.lua +++ /dev/null @@ -1,53 +0,0 @@ ---レベル・チェンジ -function c100000252.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCondition(c100000252.condition) - e1:SetCost(c100000252.cost) - e1:SetTarget(c100000252.target) - e1:SetOperation(c100000252.activate) - c:RegisterEffect(e1) -end -function c100000252.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_END and Duel.GetTurnPlayer()~=tp -end -function c100000252.costfilter(c,e,tp) - if not c:IsSetCard(0x41) or not c:IsAbleToGraveAsCost() then return false end - local code=c:GetCode() - local class=_G["c"..code] - return Duel.IsExistingMatchingCard(c100000252.spfilter,tp,LOCATION_GRAVE,0,1,nil,class,e,tp) -end -function c100000252.spfilter(c,class,e,tp) - local code=c:GetCode() - for i=1,class.lvupcount do - if code==class.lvup[i] then return c:IsCanBeSpecialSummoned(e,0,tp,true,false) end - end - return false -end -function c100000252.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000252.costfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000252.costfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SendtoGrave(g,REASON_COST) - e:SetLabel(g:GetFirst():GetCode()) -end -function c100000252.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c100000252.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local code=e:GetLabel() - local class=_G["c"..code] - if class==nil or class.lvupcount==nil then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000252.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,class,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000253.lua b/script/c100000253.lua deleted file mode 100644 index 7e45c93a..00000000 --- a/script/c100000253.lua +++ /dev/null @@ -1,36 +0,0 @@ ---レベル・コピー -function c100000253.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000253.sptg) - e1:SetOperation(c100000253.spop) - c:RegisterEffect(e1) -end -function c100000253.filter(c,e,tp) - local code=c:GetCode() - return c:IsFaceup() and c:IsSetCard(0x41) and c:IsLevelBelow(5) - and Duel.IsExistingMatchingCard(c100000253.filter2,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,code,e,tp) -end -function c100000253.filter2(c,code,e,tp) - return c:GetCode()==code and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000253.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and c100000253.filter(chkc,e,tp) end - if chk==0 then return Duel.IsExistingTarget(c100000253.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000253.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000253.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local g=Duel.SelectTarget(tp,c100000253.filter2,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,tc:GetCode(),e,tp) - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - end -end diff --git a/script/c100000254.lua b/script/c100000254.lua deleted file mode 100644 index e85e86ba..00000000 --- a/script/c100000254.lua +++ /dev/null @@ -1,73 +0,0 @@ ---レベルの絆 -function c100000254.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetTarget(c100000254.target) - e1:SetOperation(c100000254.activate) - c:RegisterEffect(e1) -end -function c100000254.filter(c,e,tp) - local code=c:GetCode() - return c:IsSetCard(0x41) and c:IsAbleToRemove() - and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,c,code) - and Duel.IsExistingMatchingCard(c100000254.filter2,tp,LOCATION_DECK,0,1,c,code,e,tp) -end -function c100000254.filter2(c,code,e,tp) - return c:GetCode()==code and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000254.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(1-tp,2) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000254.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,1-tp,2) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c100000254.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.BreakEffect() - Duel.Draw(p,d,REASON_EFFECT) - local dg=Duel.GetMatchingGroup(c100000254.filter,tp,LOCATION_GRAVE,0,nil,e,tp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 and dg:GetCount()<1 then return end - local c=e:GetHandler() - local tg=dg:GetFirst() - local teg=Group.CreateGroup() - while tg do - if not teg:IsExists(Card.IsCode,1,nil,tg:GetCode()) then - teg:AddCard(tg) - end - tg=dg:GetNext() - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local des=teg:Select(tp,1,1,nil) - local code=des:GetFirst():GetCode() - local sdg=dg:Filter(Card.IsCode,des:GetFirst(),code):GetFirst() - des:AddCard(sdg) - Duel.Remove(des,POS_FACEUP,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc=Duel.GetMatchingGroup(c100000254.filter2,tp,LOCATION_DECK,0,nil,code,e,tp):GetFirst() - if tc and Duel.SpecialSummonStep(tc,0,tp,tp,true,false,POS_FACEUP) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1,true) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e2,true) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_ATTACK) - e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e3,true) - Duel.SpecialSummonComplete() - end -end \ No newline at end of file diff --git a/script/c100000255.lua b/script/c100000255.lua deleted file mode 100644 index 4a8e89b8..00000000 --- a/script/c100000255.lua +++ /dev/null @@ -1,31 +0,0 @@ ---妖魔の援軍 -function c100000255.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION+CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000255.cost) - e1:SetTarget(c100000255.target) - e1:SetOperation(c100000255.activate) - c:RegisterEffect(e1) -end -function c100000255.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,1000) - else Duel.PayLPCost(tp,1000) end -end -function c100000255.spfilter(c,e,tp) - return c:IsLevelBelow(4) and c:IsRace(RACE_ZOMBIE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000255.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c100000255.spfilter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_GRAVE) -end -function c100000255.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=Duel.SelectMatchingCard(tp,c100000255.spfilter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) - if sg:GetCount()>1 then - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000256.lua b/script/c100000256.lua deleted file mode 100644 index a1a11b71..00000000 --- a/script/c100000256.lua +++ /dev/null @@ -1,23 +0,0 @@ ---ダイダラボッチ -function c100000256.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --atkup - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(c100000256.val) - c:RegisterEffect(e2) -end -function c100000256.filter(c) - return c:IsFaceup() and c:IsRace(RACE_ZOMBIE) -end -function c100000256.val(e,c) - return Duel.GetMatchingGroupCount(c100000256.filter,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,nil)*200 -end diff --git a/script/c100000257.lua b/script/c100000257.lua deleted file mode 100644 index d6dae4c1..00000000 --- a/script/c100000257.lua +++ /dev/null @@ -1,74 +0,0 @@ ---カオス・コア -function c100000257.initial_effect(c) - c:EnableCounterPermit(0x93) - --send to grave - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c100000257.condition) - e1:SetCost(c100000257.cost) - e1:SetOperation(c100000257.operation) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e2:SetCondition(c100000257.condition2) - e2:SetCost(c100000257.cost2) - e2:SetTarget(c100000257.target) - e2:SetOperation(c100000257.operation2) - c:RegisterEffect(e2) -end -function c100000257.condition(e,tp,eg,ep,ev,re,r,rp) - local d=Duel.GetAttackTarget() - return d==e:GetHandler() and d:IsAttackPos() and not e:GetHandler():IsStatus(STATUS_CHAINING) -end -function c100000257.filter(c,code) - return c:IsCode(code) and c:IsAbleToGraveAsCost() -end -function c100000257.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000257.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,6007213) - and Duel.IsExistingMatchingCard(c100000257.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,32491822) - and Duel.IsExistingMatchingCard(c100000257.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,69890967) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,c100000257.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,6007213) - local g2=Duel.SelectMatchingCard(tp,c100000257.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,32491822) - g1:Merge(g2) - local g3=Duel.SelectMatchingCard(tp,c100000257.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,69890967) - g1:Merge(g3) - Duel.SendtoGrave(g1,REASON_COST) -end -function c100000257.operation(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x93,3) -end -function c100000257.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetBattleDamage(tp)>0 and (Duel.GetAttackTarget()==e:GetHandler() or Duel.GetAttacker()==e:GetHandler()) and not e:GetHandler():IsStatus(STATUS_CHAINING) -end -function c100000257.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x93,1,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - e:GetHandler():RemoveCounter(tp,0x93,1,REASON_COST) -end -function c100000257.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) -end -function c100000257.operation2(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetBattleDamage(tp)>0 then - Duel.ChangeBattleDamage(tp,0) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT) - e1:SetCountLimit(1) - e1:SetValue(c100000257.valcon) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - e:GetHandler():RegisterEffect(e1) - end -end -function c100000257.valcon(e,re,r,rp) - return bit.band(r,REASON_BATTLE)~=0 -end diff --git a/script/c100000258.lua b/script/c100000258.lua deleted file mode 100644 index 496a4b88..00000000 --- a/script/c100000258.lua +++ /dev/null @@ -1,130 +0,0 @@ ---カオス・フォーム -function c100000258.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_BATTLE_START) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c100000258.condition) - e1:SetTarget(c100000258.target) - e1:SetOperation(c100000258.operation) - c:RegisterEffect(e1) -end -function c100000258.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c100000258.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000258.descon(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetFirstCardTarget() - return tc and eg:IsContains(tc) -end -function c100000258.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end -function c100000258.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsLocation(LOCATION_SZONE) then return end - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,c,tc) - c:CancelToGrave() - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetRange(LOCATION_SZONE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetLabelObject(tc) - e1:SetCondition(c100000258.condition2) - e1:SetTarget(c100000258.target2) - e1:SetOperation(c100000258.activate) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(c100000258.eqlimit) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetLabelObject(tc) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_IMMUNE_EFFECT) - e3:SetReset(RESET_EVENT+0x1fe0000) - e3:SetValue(c100000258.efilter) - c:RegisterEffect(e3,true) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e4:SetRange(LOCATION_SZONE) - e4:SetCode(EVENT_LEAVE_FIELD) - e4:SetCondition(c100000258.descon) - e4:SetOperation(c100000258.desop) - e4:SetLabelObject(tc) - e4:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e4) - if Duel.CheckEvent(EVENT_ATTACK_ANNOUNCE) and tp~=Duel.GetTurnPlayer() then - if Duel.GetAttackTarget()==tc and Duel.IsExistingTarget(Card.IsType,tp,LOCATION_GRAVE,0,1,nil,TYPE_MONSTER) then - local atc=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER) - local etc=atc:RandomSelect(tp,1) - Duel.SetTargetCard(etc) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(etc:GetFirst():GetTextAttack()) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(etc:GetFirst():GetTextDefence()) - tc:RegisterEffect(e2) - end - end - end -end -function c100000258.eqlimit(e,c) - return c==e:GetLabelObject() -end -function c100000258.efilter(e,re) - return e:GetOwnerPlayer()~=re:GetOwnerPlayer() -end -function c100000258.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==e:GetLabelObject() and Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c100000258.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsType,tp,LOCATION_GRAVE,0,1,nil,TYPE_MONSTER) end - local tc=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER) - local etc=tc:RandomSelect(tp,1) - Duel.SetTargetCard(etc) -end -function c100000258.activate(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local rc=Duel.GetFirstTarget() - local tc=e:GetLabelObject() - if tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(rc:GetTextAttack()) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(rc:GetTextDefence()) - tc:RegisterEffect(e2) - end -end diff --git a/script/c100000259.lua b/script/c100000259.lua deleted file mode 100644 index 44a93a5f..00000000 --- a/script/c100000259.lua +++ /dev/null @@ -1,45 +0,0 @@ ---先史遺産カブレラの投石機 -function c100000259.initial_effect(c) - --atk change - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000259,0)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c100000259.condition) - e1:SetTarget(c100000259.target) - e1:SetOperation(c100000259.operation) - c:RegisterEffect(e1) -end -function c100000259.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsAttackPos() and Duel.CheckReleaseGroup(tp,nil,1,nil) -end -function c100000259.filter(c) - return c:IsFaceup() and c:GetAttack()>0 -end -function c100000259.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c100000259.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000259.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c100000259.filter,tp,0,LOCATION_MZONE,1,1,nil) -end -function c100000259.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local g=Duel.SelectReleaseGroup(tp,nil,1,1,nil) - Duel.Release(g,REASON_EFFECT) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) then - Duel.BreakEffect() - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) - end - end -end diff --git a/script/c100000260.lua b/script/c100000260.lua deleted file mode 100644 index a221672a..00000000 --- a/script/c100000260.lua +++ /dev/null @@ -1,28 +0,0 @@ ---クイック・エクシーズ -function c100000260.initial_effect(c) - --synchro effect - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1e0) - e1:SetCondition(c100000260.sccon) - e1:SetTarget(c100000260.sctg) - e1:SetOperation(c100000260.scop) - c:RegisterEffect(e1) -end -function c100000260.sccon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c100000260.sctg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsXyzSummonable,tp,LOCATION_EXTRA,0,1,nil,nil) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000260.scop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsXyzSummonable,tp,LOCATION_EXTRA,0,nil,nil) - if g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:Select(tp,1,1,nil) - Duel.XyzSummon(tp,sg:GetFirst(),nil) - end -end diff --git a/script/c100000261.lua b/script/c100000261.lua deleted file mode 100644 index 192de951..00000000 --- a/script/c100000261.lua +++ /dev/null @@ -1,32 +0,0 @@ ---エクシーズ・トライアングル・フォース -function c100000261.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000261.condition) - e1:SetTarget(c100000261.target) - e1:SetOperation(c100000261.activate) - c:RegisterEffect(e1) -end -function c100000261.cfilter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) -end -function c100000261.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000261.cfilter,tp,LOCATION_MZONE,0,3,nil) -end -function c100000261.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100000261.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c100000262.lua b/script/c100000262.lua deleted file mode 100644 index 7eb5d7eb..00000000 --- a/script/c100000262.lua +++ /dev/null @@ -1,23 +0,0 @@ ---エクシーズ・フレーム -function c100000262.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetOperation(c100000262.activate) - c:RegisterEffect(e1) -end -function c100000262.activate(e,tp,eg,ep,ev,re,r,rp) - --indestructable - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetRange(LOCATION_SZONE) - e1:SetTargetRange(0,LOCATION_MZONE) - e1:SetTarget(c100000262.tg) - e1:SetReset(RESET_PHASE+PHASE_END,2) - Duel.RegisterEffect(e1,tp) -end -function c100000262.tg(e,c) - return not c:IsType(TYPE_XYZ) -end \ No newline at end of file diff --git a/script/c100000263.lua b/script/c100000263.lua deleted file mode 100644 index 2c34d118..00000000 --- a/script/c100000263.lua +++ /dev/null @@ -1,42 +0,0 @@ ---エクシーズ弁当 -function c100000263.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_DESTROYED) - e1:SetCondition(c100000263.con1) - e1:SetOperation(c100000263.activate1) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_ACTIVATE) - e2:SetCode(EVENT_BATTLE_DESTROYED) - e2:SetCondition(c100000263.con2) - e2:SetOperation(c100000263.activate2) - c:RegisterEffect(e2) -end -function c100000263.filter1(c) - return c:GetDefence()>=2000 -end -function c100000263.con1(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000263.filter1,1,nil) and re:GetHandler():IsType(TYPE_XYZ) -end -function c100000263.activate1(e,tp,eg,ep,ev,re,r,rp) - local c=eg:Filter(c100000263.filter1,nil) - local tc=re:GetHandler() - if tc:IsFaceup() then - Duel.Overlay(tc,c) - end -end -function c100000263.filter2(c) - return c:GetDefence()>=2000 and c:GetBattleTarget():IsType(TYPE_XYZ) -end -function c100000263.con2(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000263.filter2,1,nil) -end -function c100000263.activate2(e,tp,eg,ep,ev,re,r,rp) - local c=eg:Filter(c100000263.filter2,nil) - local tc=c:GetFirst():GetBattleTarget() - if tc:IsFaceup() then - Duel.Overlay(tc,c) - end -end diff --git a/script/c100000264.lua b/script/c100000264.lua deleted file mode 100644 index 330cfbe5..00000000 --- a/script/c100000264.lua +++ /dev/null @@ -1,39 +0,0 @@ ---闇に堕ちた天使 -function c100000264.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000264.cost) - e1:SetTarget(c100000264.target) - e1:SetOperation(c100000264.Operation) - c:RegisterEffect(e1) -end -function c100000264.cosfilter(c) - return c:IsRace(RACE_FAIRY) and c:IsAbleToGraveAsCost() -end -function c100000264.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000264.cosfilter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000264.cosfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c100000264.filter(c,e,tp) - return c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_DARK) and c:GetLevel()>6 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000264.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_HAND) and chkc:IsControler(tp) and c100000264.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000264.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000264.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000264.Operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000265.lua b/script/c100000265.lua deleted file mode 100644 index a1f6231a..00000000 --- a/script/c100000265.lua +++ /dev/null @@ -1,40 +0,0 @@ ---堕天使降臨 -function c100000265.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c100000265.condition) - e1:SetCost(c100000265.cost) - e1:SetTarget(c100000265.target) - e1:SetOperation(c100000265.activate) - c:RegisterEffect(e1) -end -function c100000265.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c100000265.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.PayLPCost(tp,Duel.GetLP(tp)/2) -end -function c100000265.filter(c,e,tp) - return c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_DARK) and c:GetAttack()==Duel.GetAttacker():GetAttack() - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000265.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE and c100000265.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsExistingTarget(c100000265.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000265.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) -end -function c100000265.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - if sg:GetCount()~=2 then return end - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) -end diff --git a/script/c100000270.lua b/script/c100000270.lua deleted file mode 100644 index 2d427b92..00000000 --- a/script/c100000270.lua +++ /dev/null @@ -1,119 +0,0 @@ ---Ｄ－フォース -function c100000270.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_TODECK) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000270.target) - e1:SetOperation(c100000270.activate) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetRange(LOCATION_DECK) - e2:SetCode(EFFECT_SKIP_DP) - e2:SetCondition(c100000270.sdcon) - c:RegisterEffect(e2) - --disable and destroy - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e4:SetRange(LOCATION_DECK) - e4:SetTargetRange(LOCATION_ONFIELD,0) - e4:SetCode(EVENT_CHAIN_SOLVING) - e4:SetCondition(c100000270.sdcon2) - e4:SetOperation(c100000270.disop) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e5:SetRange(LOCATION_DECK) - e5:SetTargetRange(LOCATION_MZONE,0) - e5:SetCode(EVENT_ADJUST) - e5:SetCondition(c100000270.sdcon2) - e5:SetOperation(c100000270.sdop) - c:RegisterEffect(e5) -end -function c100000270.tdfilter(c) - return c:GetCode()==83965310 and c:IsFaceup() -end -function c100000270.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) -end -function c100000270.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.BreakEffect() - c:CancelToGrave() - Duel.SendtoDeck(c,nil,0,REASON_EFFECT) - c:ReverseInDeck() - end -end -function c100000270.sdcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=Duel.GetDecktopGroup(c:GetControler(),1) - return g:GetFirst()==c and c:IsFaceup() -end -function c100000270.sdcon2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=Duel.GetDecktopGroup(c:GetControler(),1) - return g:GetFirst()==c and c:IsFaceup() - and Duel.IsExistingMatchingCard(c100000270.tdfilter,c:GetControler(),LOCATION_MZONE,0,1,nil) -end -function c100000270.filter(c,tp) - return c:IsLocation(LOCATION_ONFIELD) and c:IsControler(tp) -end -function c100000270.disop(e,tp,eg,ep,ev,re,r,rp) - if ep==tp then return end - if re:IsActiveType(TYPE_MONSTER) then return end - if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end - local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) - if not tg or not tg:IsExists(c100000270.filter,1,nil,tp) or not Duel.IsChainDisablable(ev) then return false end - local rc=re:GetHandler() - Duel.NegateEffect(ev) - if rc:IsRelateToEffect(re) then - Duel.Destroy(rc,REASON_EFFECT) - end -end -function c100000270.sdcon3(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=Duel.GetDecktopGroup(c:GetControler(),1) - return g:GetFirst():GetCode()==100000270 and g:GetFirst():IsFaceup() -end -function c100000270.tdfilter2(c) - return c:GetCode()==83965310 and c:IsFaceup() and c:GetFlagEffect(100000270)==0 -end -function c100000270.sdop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100000270.tdfilter2,tp,LOCATION_MZONE,0,nil) - local tc=g:GetFirst() - while tc do - if tc:GetFlagEffect(100000270)==0 then - --copy - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_ADJUST) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c100000270.sdcon3) - e2:SetOperation(c100000270.operation) - tc:RegisterEffect(e2) - tc:RegisterFlagEffect(100000270,RESET_EVENT+0x1fe0000,0,1) - tc=g:GetNext() - end - end -end -function c100000270.sdfilter(c) - return c:GetFlagEffect(83965310)==1 -end -function c100000270.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local etc=c:GetEquipGroup() - if etc:GetCount()==0 then return end - local ttc=etc:Filter(c100000270.sdfilter,nil) - if ttc:GetCount()==0 then return end - local code=ttc:GetFirst():GetOriginalCode() - if c:IsFaceup() and c:GetFlagEffect(code)==0 then - c:CopyEffect(code,RESET_EVENT+0x1fe0000+EVENT_CHAINING, 1) - c:RegisterFlagEffect(code,RESET_EVENT+0x1fe0000+EVENT_CHAINING,0,1) - end -end \ No newline at end of file diff --git a/script/c100000271.lua b/script/c100000271.lua deleted file mode 100644 index b093dd1e..00000000 --- a/script/c100000271.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Ｄ－ブースト -function c100000271.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000271.con) - e1:SetTarget(c100000271.target) - e1:SetOperation(c100000271.activate) - c:RegisterEffect(e1) -end -function c100000271.con(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetDecktopGroup(tp,1) - return g:GetFirst():GetCode()==100000270 and g:GetFirst():IsFaceup() -end -function c100000271.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)<3 then return false end - local g=Duel.GetDecktopGroup(tp,3) - local result=g:GetCount()>2 - return Duel.IsPlayerCanDraw(tp,3) and result - end - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100000271.activate(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetDecktopGroup(p,3) - if g:Filter(Card.IsCode,nil,100000270):GetCount()==0 then return false end - g:RemoveCard(g:Filter(Card.IsCode,nil,100000270):GetFirst()) - if g:GetCount()>1 then - Duel.DisableShuffleCheck() - Duel.SendtoHand(g,nil,REASON_EFFECT) - end -end diff --git a/script/c100000272.lua b/script/c100000272.lua deleted file mode 100644 index 28c6ef4f..00000000 --- a/script/c100000272.lua +++ /dev/null @@ -1,71 +0,0 @@ ---血の咆哮－ブラッド・ロアー -function c100000272.initial_effect(c) - c:EnableCounterPermit(0x92) - c:SetCounterLimit(0x92,2) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_DRAW_PHASE) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_COUNTER) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetCondition(c100000272.con) - e2:SetOperation(c100000272.op) - c:RegisterEffect(e2) - --destroy+DAMAGE - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000272,1)) - e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_SZONE) - e3:SetCost(c100000272.descost) - e3:SetTarget(c100000272.destg) - e3:SetOperation(c100000272.desop) - c:RegisterEffect(e3) -end -function c100000272.tdfilter(c) - return c:GetCode()==83965310 and c:IsFaceup() -end -function c100000272.con(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() - and Duel.IsExistingMatchingCard(c100000272.tdfilter,tp,LOCATION_MZONE,0,1,nil) - and e:GetHandler():IsCanAddCounter(0x92,1) -end -function c100000272.op(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c and c:IsFaceup() and c:IsRelateToEffect(e) then - c:AddCounter(0x92,1) - end -end - -function c100000272.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() and e:GetHandler():GetCounter(0x92)>1 end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c100000272.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c100000272.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100000272.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000272.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100000272.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,0) -end -function c100000272.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local atk=tc:GetAttack() - if Duel.Destroy(tc,REASON_EFFECT)>0 then - Duel.Damage(1-tp,atk/2,REASON_EFFECT) - end - end -end diff --git a/script/c100000273.lua b/script/c100000273.lua deleted file mode 100644 index d011e185..00000000 --- a/script/c100000273.lua +++ /dev/null @@ -1,83 +0,0 @@ ---ドレイン・タイム -function c100000273.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000273.con) - e1:SetOperation(c100000273.activate) - c:RegisterEffect(e1) -end -function c100000273.filter(c) - return c:GetCode()==83965310 and c:IsFaceup() -end -function c100000273.con(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000273.filter,e:GetHandler():GetControler(),LOCATION_MZONE,0,1,nil) -end -function c100000273.activate(e,tp,eg,ep,ev,re,r,rp) - local op=Duel.SelectOption(tp,aux.Stringid(100000273,0),aux.Stringid(100000273,1),aux.Stringid(100000273,2),aux.Stringid(100000273,3),aux.Stringid(100000273,4)) - local res=RESET_PHASE+PHASE_END+RESET_OPPO_TURN,1 - local code=nil - if op==0 then - code=EFFECT_SKIP_DP - elseif op==1 then - code=EFFECT_SKIP_SP - elseif op==2 then - if Duel.GetCurrentPhase()==PHASE_MAIN1 then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_SKIP_M2) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN) - Duel.RegisterEffect(e1,tp) - local e2=e1:Clone() - e2:SetCode(EFFECT_SKIP_M1) - e2:SetTargetRange(1,0) - e2:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,2) - Duel.RegisterEffect(e2,1-tp) - else - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_SKIP_M1) - e1:SetTargetRange(1,1) - e1:SetReset(RESET_PHASE+PHASE_END,2) - Duel.RegisterEffect(e1,tp) - end - elseif op==3 then - code=EFFECT_SKIP_BP - if Duel.GetCurrentPhase()==PHASE_MAIN1 then res=RESET_PHASE+PHASE_BATTLE+RESET_OPPO_TURN,1 end - end - if op~=2 and op~=4 then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(code) - e1:SetTargetRange(1,1) - e1:SetReset(res) - Duel.RegisterEffect(e1,tp) - else - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_INITIAL) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetOperation(c100000273.operation) - e1:SetReset(RESET_PHASE+PHASE_STANDBY,2) - Duel.RegisterEffect(e1,tp) - end -end -function c100000273.skcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_END -end -function c100000273.operation(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_SKIP_TURN) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_OPPO_TURN) - Duel.RegisterEffect(e1,tp) - local e2=e1:Clone() - Duel.RegisterEffect(e2,1-tp) -end diff --git a/script/c100000274.lua b/script/c100000274.lua deleted file mode 100644 index 22c30bf9..00000000 --- a/script/c100000274.lua +++ /dev/null @@ -1,56 +0,0 @@ ---Ｄ－ＨＥＲＯ ダークエンジェル -function c100000274.initial_effect(c) - --to deck - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK) - e1:SetCode(EVENT_BATTLE_DESTROYING) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetCost(c100000274.cost) - e1:SetTarget(c100000274.tdtg) - e1:SetOperation(c100000274.tdop) - c:RegisterEffect(e1) - --control - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCategory(CATEGORY_CONTROL) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCondition(c100000274.ctlcon) - e2:SetTarget(c100000274.ctltg) - e2:SetOperation(c100000274.ctlop) - c:RegisterEffect(e2) -end -function c100000274.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsDiscardable() end - Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD) -end -function c100000274.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToDeck() end - Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) -end -function c100000274.tdop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler() - if tc:IsLocation(LOCATION_GRAVE) then - Duel.BreakEffect() - Duel.SendtoDeck(tc,1-tp,0,REASON_EFFECT) - tc:ReverseInDeck() - end -end -function c100000274.ctlcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)==0 -end -function c100000274.ctltg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsControlerCanBeChanged() end - Duel.SetOperationInfo(0,CATEGORY_CONTROL,e:GetHandler(),1,0,0) -end -function c100000274.ctlop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() and not Duel.GetControl(c,1-tp) then - if not c:IsImmuneToEffect(e) and c:IsAbleToChangeControler() then - Duel.Destroy(c,REASON_EFFECT) - end - end -end diff --git a/script/c100000275.lua b/script/c100000275.lua deleted file mode 100644 index bc183508..00000000 --- a/script/c100000275.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Ｄ－ＨＥＲＯ ディバインガイ -function c100000275.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --DESTROY - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetTarget(c100000275.tgtg) - e2:SetOperation(c100000275.tgop) - c:RegisterEffect(e2) -end -function c100000275.tgfilter(c) - return c:IsFaceup() and c:IsType(TYPE_EQUIP) and c:IsDestructable() -end -function c100000275.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000275.tgfilter,tp,0,LOCATION_SZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100000275.tgfilter,tp,0,LOCATION_SZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100000275.tgop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - if Duel.Destroy(tc,REASON_EFFECT)==0 then return end - Duel.Damage(p,500,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100000276.lua b/script/c100000276.lua deleted file mode 100644 index 751c77ab..00000000 --- a/script/c100000276.lua +++ /dev/null @@ -1,52 +0,0 @@ ---Ｄ－アクセレーション -function c100000276.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c100000276.condition) - e1:SetTarget(c100000276.target) - e1:SetOperation(c100000276.operation) - c:RegisterEffect(e1) -end -function c100000276.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE -end -function c100000276.filter(c) - return c:IsSetCard(0xc008) and c:GetAttackAnnouncedCount()>0 and c:GetEquipCount()>0 -end -function c100000276.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100000276.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000276.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPPO) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPPO) - local g=Duel.SelectTarget(tp,c100000276.filter,tp,LOCATION_MZONE,0,1,1,nil) - local eqg=g:GetFirst():GetEquipGroup() - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eqg,eqg:GetCount(),0,0) -end -function c100000276.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - local eqg=tc:GetEquipGroup() - if eqg:GetCount()>0 then - local des=Duel.Destroy(eqg,REASON_EFFECT) - if tc:IsSetCard(0xc008) then - local atk=tc:GetAttack() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetValue(atk/2) - tc:RegisterEffect(e2) - end - end - end -end \ No newline at end of file diff --git a/script/c100000277.lua b/script/c100000277.lua deleted file mode 100644 index 1be11233..00000000 --- a/script/c100000277.lua +++ /dev/null @@ -1,35 +0,0 @@ ---ナンバーズ・イヴォケーション -function c100000277.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000277.cost) - e1:SetTarget(c100000277.target) - e1:SetOperation(c100000277.activate) - c:RegisterEffect(e1) -end -function c100000277.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsRace,1,nil,RACE_SPELLCASTER) end - local rg=Duel.SelectReleaseGroup(tp,Card.IsRace,1,1,nil,RACE_SPELLCASTER) - Duel.Release(rg,REASON_COST) -end -function c100000277.spfilter(c,e,tp) - return c:IsSetCard(0x48) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000277.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c100000277.spfilter(chkc,e,tp) end - if chk==0 then return Duel.IsExistingTarget(c100000277.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000277.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000277.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000278.lua b/script/c100000278.lua deleted file mode 100644 index 671f4a57..00000000 --- a/script/c100000278.lua +++ /dev/null @@ -1,49 +0,0 @@ ---ビッグバン・パニック -function c100000278.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000278.target) - e1:SetOperation(c100000278.activate) - c:RegisterEffect(e1) -end -function c100000278.filter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) -end -function c100000278.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingTarget(c100000278.filter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingTarget(c100000278.filter,tp,0,LOCATION_MZONE,1,nil) - and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_SZONE,1,nil) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g1=Duel.SelectTarget(tp,c100000278.filter,tp,LOCATION_MZONE,0,1,1,nil) - e:SetLabelObject(g1:GetFirst()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g2=Duel.SelectTarget(tp,c100000278.filter,tp,0,LOCATION_MZONE,1,1,nil) -end -function c100000278.activate(e,tp,eg,ep,ev,re,r,rp) - local gc=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local ac1=e:GetLabelObject() - local ac2=gc:GetFirst() - local tc1=nil - local tc2=nil - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_SZONE,nil) - if ac1==ac2 then ac2=gc:GetNext() end - if ac2:IsControler(tp) then tc1=ac2 - tc2=ac1 else tc1=ac1 - tc2=ac2 end - if tc2 and tc2:IsRelateToEffect(e) then - Duel.Overlay(tc2,g) - Duel.BreakEffect() - if tc1:GetControler()~=tc2:GetControler() and tc1:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(g:GetCount()*800) - tc1:RegisterEffect(e1) - end - end -end diff --git a/script/c100000279.lua b/script/c100000279.lua deleted file mode 100644 index 729cb253..00000000 --- a/script/c100000279.lua +++ /dev/null @@ -1,28 +0,0 @@ ---ガガガ学園の緊急連絡網 -function c100000279.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000279.target) - e1:SetOperation(c100000279.activate) - c:RegisterEffect(e1) -end -function c100000279.filter(c,e,tp) - return c:IsSetCard(0x54) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000279.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000279.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000279.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000279.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end - end -end diff --git a/script/c100000280.lua b/script/c100000280.lua deleted file mode 100644 index 52638cbb..00000000 --- a/script/c100000280.lua +++ /dev/null @@ -1,49 +0,0 @@ ---神縛りの塚 -function c100000280.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --indestructable - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e3:SetTarget(c100000280.indtg) - e3:SetValue(1) - c:RegisterEffect(e3) - -- - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DAMAGE) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e4:SetRange(LOCATION_SZONE) - e4:SetCode(EVENT_BATTLE_DESTROYING) - e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e4:SetCondition(c100000280.reccon) - e4:SetTarget(c100000280.rectg) - e4:SetOperation(c100000280.recop) - c:RegisterEffect(e4) -end -function c100000280.indtg(e,c) - return c:IsLevelAbove(10) -end -function c100000280.reccon(e,tp,eg,ep,ev,re,r,rp) - local rc=eg:GetFirst() - return rc:IsRelateToBattle() and rc:IsLevelAbove(10) and rc:IsFaceup() -end -function c100000280.rectg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local tc=eg:GetFirst():GetBattleTarget() - if not tc:IsFaceup() then - tc=eg:GetNext():GetBattleTarget() - end - Duel.SetTargetPlayer(tc:GetControler()) - Duel.SetTargetParam(400) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tc:GetPreviousControler(),400) -end -function c100000280.recop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000281.lua b/script/c100000281.lua deleted file mode 100644 index c7e4a51f..00000000 --- a/script/c100000281.lua +++ /dev/null @@ -1,41 +0,0 @@ ---パワー・ゾーン -function c100000281.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - -- - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DAMAGE) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e4:SetRange(LOCATION_SZONE) - e4:SetCode(EVENT_BATTLE_DESTROYING) - e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e4:SetCondition(c100000281.reccon) - e4:SetTarget(c100000281.rectg) - e4:SetOperation(c100000281.recop) - c:RegisterEffect(e4) -end -function c100000281.indtg(e,c) - return c:IsLevelAbove(10) -end -function c100000281.reccon(e,tp,eg,ep,ev,re,r,rp) - local rc=eg:GetFirst() - return rc:IsRelateToBattle() and rc:IsFaceup() -end -function c100000281.rectg(e,tp,eg,ep,ev,re,r,rp,chk) - local atk=Duel.GetAttacker():GetBaseAttack() - if chk==0 then return atk>0 end - local tc=eg:GetFirst():GetBattleTarget() - if not tc:IsFaceup() then - tc=eg:GetNext():GetBattleTarget() - end - Duel.SetTargetPlayer(tc:GetControler()) - Duel.SetTargetParam(atk) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tc:GetPreviousControler(),atk) -end -function c100000281.recop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000282.lua b/script/c100000282.lua deleted file mode 100644 index 6ed02b32..00000000 --- a/script/c100000282.lua +++ /dev/null @@ -1,39 +0,0 @@ ---玄翼竜 ブラック・フェザー -function c100000282.initial_effect(c) - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --send - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DECKDES) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_DAMAGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c100000282.recon) - e1:SetTarget(c100000282.rectg) - e1:SetOperation(c100000282.recop) - c:RegisterEffect(e1) -end -function c100000282.recon(e,tp,eg,ep,ev,re,r,rp) - return ep==tp -end -function c100000282.rectg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return ev>=400 and Duel.IsPlayerCanDiscardDeck(tp,1) end - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,0) -end -function c100000282.recop(e,tp,eg,ep,ev,re,r,rp) - local ct=math.floor(ev/400) - Duel.DiscardDeck(tp,ct,REASON_EFFECT) - local g=Duel.GetOperatedGroup() - local ct=g:FilterCount(Card.IsType,nil,TYPE_MONSTER) - if ct==0 then return end - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(ct*400) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c100000285.lua b/script/c100000285.lua deleted file mode 100644 index 0cc79131..00000000 --- a/script/c100000285.lua +++ /dev/null @@ -1,39 +0,0 @@ ---結束の翼 -function c100000285.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c100000285.condition) - e1:SetTarget(c100000285.target) - e1:SetOperation(c100000285.activate) - c:RegisterEffect(e1) -end -function c100000285.cfilter(c) - return c:IsFaceup() and c:IsCode(80208158) -end -function c100000285.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() and Duel.IsExistingMatchingCard(c100000285.cfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c100000285.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) -end -function c100000285.spfilter(c,e,tp) - return c:IsCode(43791861) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000285.activate(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.NegateAttack() - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000285.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()~=0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end - end -end diff --git a/script/c100000286.lua b/script/c100000286.lua deleted file mode 100644 index da13b832..00000000 --- a/script/c100000286.lua +++ /dev/null @@ -1,90 +0,0 @@ ---バリアンズ・ゲートウェイ -function c100000286.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000286.cost) - e1:SetOperation(c100000286.activate) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCategory(CATEGORY_DISABLE) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetRange(LOCATION_SZONE) - e2:SetHintTiming(0,0x1c0) - e2:SetCost(c100000286.dcost) - e2:SetTarget(c100000286.dtg) - e2:SetOperation(c100000286.dop) - c:RegisterEffect(e2) -end -function c100000286.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not Duel.CheckNormalSummonActivity(tp) and not Duel.CheckSpecialSummonActivity(tp) end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - Duel.RegisterEffect(e1,tp) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_SUMMON) - Duel.RegisterEffect(e2,tp) - local e3=e1:Clone() - e3:SetCode(EFFECT_CANNOT_MSET) - Duel.RegisterEffect(e3,tp) -end -function c100000286.activate(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetCondition(c100000286.reccon) - e1:SetTarget(c100000286.datarget) - e1:SetOperation(c100000286.operation) - Duel.RegisterEffect(e1,tp) -end -function c100000286.reccon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(Card.IsReason,1,nil,REASON_DESTROY) -end -function c100000286.datarget(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local dam=eg:FilterCount(Card.IsReason,nil,REASON_DESTROY)*800 - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100000286.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c100000286.dcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c100000286.dtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) -end -function c100000286.dop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.NegateRelatedChain(tc,RESET_EVENT+0x1fe0000) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - end -end diff --git a/script/c100000287.lua b/script/c100000287.lua deleted file mode 100644 index f043f7b0..00000000 --- a/script/c100000287.lua +++ /dev/null @@ -1,85 +0,0 @@ ---バリアンズ・バトル・マスター -function c100000287.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000287.cost) - e1:SetOperation(c100000287.op) - c:RegisterEffect(e1) - --negate attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(2) - e2:SetCondition(c100000287.condition) - e2:SetTarget(c100000287.target) - e2:SetOperation(c100000287.operation) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetHintTiming(0,TIMING_BATTLE_END+TIMING_BATTLE_PHASE) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c100000287.dcon) - e3:SetCost(c100000287.dcost) - e3:SetTarget(c100000287.dtg) - e3:SetOperation(c100000287.activate) - c:RegisterEffect(e3) -end -function c100000287.costfilter(c) - return c:IsSetCard(0x310) and c:IsAbleToRemoveAsCost() -end -function c100000287.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000287.costfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOREMOVE) - local g=Duel.SelectMatchingCard(tp,c100000287.costfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) - if Duel.GetAttacker()~=nil and Duel.GetAttacker():IsOnField() and Duel.GetAttacker():IsCanBeEffectTarget(e) - and Duel.SelectYesNo(tp,aux.Stringid(100000287,0)) then - e:SetLabel(1) - Duel.SetTargetCard(Duel.GetAttacker()) - e:GetHandler():RegisterFlagEffect(100000287,RESET_PHASE+PHASE_END,0,1) - else e:SetLabel(0) end -end -function c100000287.op(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():GetFlagEffect(100000287)>0 then - Duel.NegateAttack() - end -end -function c100000287.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker()~=nil and Duel.GetFlagEffect(tp,100000287)==0 -end -function c100000287.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) -end -function c100000287.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateAttack() - if e:GetHandler():GetFlagEffect(100000287)>0 then - Duel.RegisterFlagEffect(tp,100000287,RESET_PHASE+PHASE_END,0,1) - end -end -function c100000287.dcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE and Duel.GetTurnPlayer()~=tp -end -function c100000287.dcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c100000287.dtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsPosition,tp,LOCATION_MZONE,0,1,nil,POS_FACEUP_ATTACK) - and Duel.IsExistingMatchingCard(Card.IsPosition,tp,0,LOCATION_MZONE,1,nil,POS_FACEUP_ATTACK) end -end -function c100000287.activate(e,tp,eg,ep,ev,re,r,rp) - local g1=Duel.GetMatchingGroup(Card.IsPosition,tp,0,LOCATION_MZONE,nil,POS_FACEUP_ATTACK) - local g2=Duel.GetMatchingGroup(Card.IsPosition,tp,LOCATION_MZONE,0,nil,POS_FACEUP_ATTACK) - if g1:GetCount()==0 or g2:GetCount()==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATTACK) - ga=g1:Select(tp,1,1,nil) - gd=g2:Select(tp,1,1,nil) - Duel.CalculateDamage(ga:GetFirst(),gd:GetFirst()) -end \ No newline at end of file diff --git a/script/c100000290.lua b/script/c100000290.lua deleted file mode 100644 index 7a0a6ede..00000000 --- a/script/c100000290.lua +++ /dev/null @@ -1,43 +0,0 @@ ---ヴォルカニック・ウォール -function c100000290.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Damage - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetCost(c100000290.cost) - e2:SetTarget(c100000290.target) - e2:SetOperation(c100000290.operation) - c:RegisterEffect(e2) -end -function c100000290.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not Duel.CheckAttackActivity(tp) end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetProperty(EFFECT_FLAG_OATH) - e1:SetReset(RESET_PHASE+RESET_END) - Duel.RegisterEffect(e1,tp) -end -function c100000290.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3) end - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,3) -end -function c100000290.cfilter(c) - return c:IsLocation(LOCATION_GRAVE) and c:IsRace(RACE_PYRO) -end -function c100000290.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.DiscardDeck(tp,3,REASON_EFFECT) - local g=Duel.GetOperatedGroup() - local ct=g:FilterCount(c100000290.cfilter,nil) - if ct==0 then return end - local ct=Duel.Damage(1-tp,ct*500,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000291.lua b/script/c100000291.lua deleted file mode 100644 index 807792f7..00000000 --- a/script/c100000291.lua +++ /dev/null @@ -1,51 +0,0 @@ ---ファイヤー・サイクロン -function c100000291.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCost(c100000291.cost) - e1:SetTarget(c100000291.target) - e1:SetOperation(c100000291.operation) - c:RegisterEffect(e1) -end -function c100000291.costfilter(c) - return c:IsAbleToGraveAsCost() and c:IsRace(RACE_PYRO) -end -function c100000291.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000291.costfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end - local rt=Duel.GetTargetCount(Card.IsDestructable,tp,0,LOCATION_SZONE,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) - local cg=Duel.SelectMatchingCard(tp,c100000291.costfilter,tp,LOCATION_HAND,0,1,rt,nil) - Duel.SendtoGrave(cg,REASON_COST+REASON_DISCARD) - e:SetLabel(cg:GetCount()) -end -function c100000291.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsPlayerCanDraw(tp) and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_SZONE,1,nil) end - local ct=e:GetLabel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local eg=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_SZONE,ct,ct,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,eg,ct,0,0) -end -function c100000291.operation(e,tp,eg,ep,ev,re,r,rp,chk) - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local rg=tg:Filter(Card.IsRelateToEffect,nil,e) - if rg:GetCount()>0 then - Duel.Destroy(rg,nil,REASON_EFFECT) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetLabel(rg:GetCount()) - e1:SetOperation(c100000291.droperation) - Duel.RegisterEffect(e1,tp) - end -end -function c100000291.droperation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_CARD,0,100000291) - Duel.Draw(tp,e:GetLabel(),REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000292.lua b/script/c100000292.lua deleted file mode 100644 index 409532d5..00000000 --- a/script/c100000292.lua +++ /dev/null @@ -1,36 +0,0 @@ ---ヴォルカニック・アーマー -function c100000292.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e2:SetCode(EVENT_DESTROYED) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000292.condition) - e2:SetTarget(c100000292.target) - e2:SetOperation(c100000292.operation) - c:RegisterEffect(e2) -end -function c100000292.filter(c,tp) - return c:IsRace(RACE_PYRO) and c:GetControler()==tp and c:IsPreviousLocation(LOCATION_ONFIELD) -end -function c100000292.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000292.filter,1,nil,tp) -end -function c100000292.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsRelateToEffect(e) end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(500) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,0,0,1-tp,500) -end -function c100000292.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000293.lua b/script/c100000293.lua deleted file mode 100644 index 8542d668..00000000 --- a/script/c100000293.lua +++ /dev/null @@ -1,39 +0,0 @@ ---ヴォルカニック・フォース -function c100000293.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCost(c100000293.cost) - e1:SetTarget(c100000293.target) - e1:SetOperation(c100000293.activate) - c:RegisterEffect(e1) -end -function c100000293.costfilter(c) - return c:IsFaceup() and c:IsCode(21420702) and c:IsAbleToGraveAsCost() -end -function c100000293.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000293.costfilter,tp,LOCATION_SZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000293.costfilter,tp,LOCATION_SZONE,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c100000293.filter(c,e,tp) - local code=c:GetCode() - return (code==32543380) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c100000293.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000293.filter,tp,0x13,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0x13) -end -function c100000293.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000293.filter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000294.lua b/script/c100000294.lua deleted file mode 100644 index 9635f276..00000000 --- a/script/c100000294.lua +++ /dev/null @@ -1,56 +0,0 @@ ---ハーピィ・レディ-鳳凰の陣- -function c100000294.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000294.condition) - e1:SetTarget(c100000294.target) - e1:SetOperation(c100000294.activate) - c:RegisterEffect(e1) -end -function c100000294.filter(c) - return c:IsFaceup() and c:IsCode(76812113) and c:GetAttackedCount()==0 - and not Duel.IsExistingMatchingCard(c100000294.cfilter2,tp,LOCATION_MZONE,0,1,nil) -end -function c100000294.cfilter2(c) - return c:IsFaceup() and c:IsCode(76812113) and c:GetAttackedCount()~=0 -end -function c100000294.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000294.filter,tp,LOCATION_MZONE,0,1,nil) -end -function c100000294.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000294.filter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0) -end -function c100000294.activate(e,tp,eg,ep,ev,re,r,rp) - local ct=Duel.GetMatchingGroupCount(c100000294.filter,tp,LOCATION_MZONE,0,nil) - if ct==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,ct,nil) - if Duel.Destroy(g,nil,REASON_EFFECT) then - local dg=Duel.GetOperatedGroup() - local tc=dg:GetFirst() - local dam=0 - while tc do - local atk=tc:GetTextAttack() - if atk<0 then atk=0 end - dam=dam+atk - tc=dg:GetNext() - end - Duel.Damage(1-tp,dam,REASON_EFFECT) - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e1:SetTarget(c100000294.cfil) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c100000294.cfil(e,c) - return c:IsFaceup() and c:IsSetCard(0x64) -end \ No newline at end of file diff --git a/script/c100000295.lua b/script/c100000295.lua deleted file mode 100644 index 8faee2f9..00000000 --- a/script/c100000295.lua +++ /dev/null @@ -1,34 +0,0 @@ ---ハーピィ・レディ－朱雀の陣－ -function c100000295.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c100000295.condition) - e1:SetOperation(c100000295.activate) - c:RegisterEffect(e1) -end -function c100000295.cfilter(c) - return c:IsFaceup() and c:IsCode(76812113) -end -function c100000295.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000295.cfilter,tp,LOCATION_MZONE,0,2,nil) -end -function c100000295.activate(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetValue(1) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetReset(RESET_PHASE+PHASE_END) - e2:SetValue(1) - Duel.RegisterEffect(e2,tp) -end - diff --git a/script/c100000296.lua b/script/c100000296.lua deleted file mode 100644 index 5929636b..00000000 --- a/script/c100000296.lua +++ /dev/null @@ -1,33 +0,0 @@ ---ハーピィの羽根吹雪 -function c100000296.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c100000296.condition) - e1:SetTarget(c100000296.target) - e1:SetOperation(c100000296.activate) - c:RegisterEffect(e1) -end -function c100000296.filter(c) - return c:IsFaceup() and c:IsCode(76812113) -end -function c100000296.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000296.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) - and re:IsActiveType(TYPE_MONSTER) and re:GetHandler():GetControler()~=tp - and (Duel.GetAttacker():GetCode()==(76812113) or Duel.GetAttackTarget():GetCode()==(76812113)) -end -function c100000296.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) -end -function c100000296.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if Duel.GetTurnPlayer()~=tp then - Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) - else - Duel.SkipPhase(tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) - end -end \ No newline at end of file diff --git a/script/c100000297.lua b/script/c100000297.lua deleted file mode 100644 index b4826932..00000000 --- a/script/c100000297.lua +++ /dev/null @@ -1,67 +0,0 @@ ---エアロの爪 -function c100000297.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000297.target) - e1:SetOperation(c100000297.operation) - c:RegisterEffect(e1) - --Atk up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetValue(300) - c:RegisterEffect(e2) - --Equip limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EQUIP_LIMIT) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetValue(c100000297.equiplimit) - c:RegisterEffect(e3) - --equip - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetDescription(aux.Stringid(100000297,0)) - e4:SetCategory(CATEGORY_EQUIP) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CHAIN_UNIQUE) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetCondition(c100000297.eqcondtion) - e4:SetTarget(c100000297.eqtarget) - e4:SetOperation(c100000297.operation) - c:RegisterEffect(e4) -end -function c100000297.equiplimit(e,c) - return c:IsCode(76812113) -end -function c100000297.filter(c) - return c:IsFaceup() and c:IsCode(76812113) -end -function c100000297.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_MZONE and c100000297.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000297.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c100000297.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000297.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end -function c100000297.eqcondtion(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetPreviousLocation()==LOCATION_SZONE -end -function c100000297.eqtarget(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_MZONE and chkc:GetControler()==tp and c100000297.filter(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c100000297.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c100000297.filter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end - diff --git a/script/c100000298.lua b/script/c100000298.lua deleted file mode 100644 index 3dff1bb7..00000000 --- a/script/c100000298.lua +++ /dev/null @@ -1,64 +0,0 @@ ---最強の盾 -function c100000298.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000298.target) - e1:SetOperation(c100000298.operation) - c:RegisterEffect(e1) - --Atk up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetCondition(c100000298.conatk) - e2:SetValue(c100000298.atk) - c:RegisterEffect(e2) - --Def up - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) - e3:SetCondition(c100000298.condef) - e3:SetValue(c100000298.def) - c:RegisterEffect(e3) - --Equip limit - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_EQUIP_LIMIT) - e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e4:SetValue(c100000298.equiplimit) - c:RegisterEffect(e4) -end -function c100000298.equiplimit(e,c) - return c:IsRace(RACE_WARRIOR) -end -function c100000298.filter(c) - return c:IsFaceup() and c:IsRace(RACE_WARRIOR) -end -function c100000298.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_MZONE and c100000298.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000298.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c100000298.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000298.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end -function c100000298.conatk(e) - return e:GetHandler():GetEquipTarget():IsAttackPos() -end -function c100000298.atk(e,c) - return e:GetHandler():GetEquipTarget():GetTextDefence() -end -function c100000298.condef(e) - return e:GetHandler():GetEquipTarget():IsDefencePos() -end -function c100000298.def(e,c) - return e:GetHandler():GetEquipTarget():GetAttack() -end diff --git a/script/c100000299.lua b/script/c100000299.lua deleted file mode 100644 index cfd4256d..00000000 --- a/script/c100000299.lua +++ /dev/null @@ -1,100 +0,0 @@ ---虚無王アンフォームド・ヴォイド -function c100000299.initial_effect(c) - --synchro summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,4),3) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000299,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+0x1c0) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c100000299.cost) - e1:SetCondition(c100000299.con) - e1:SetOperation(c100000299.op) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetOperation(c100000299.soop) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetProperty(EFFECT_FLAG_INITIAL) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_BATTLED) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c100000299.scon) - e3:SetOperation(c100000299.sop) - c:RegisterEffect(e3) -end -function c100000299.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000299.con(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000299.filter,tp,0,LOCATION_MZONE,1,nil) - and Duel.GetTurnPlayer()~=tp -end -function c100000299.filter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) -end -function c100000299.op(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=Duel.GetMatchingGroup(c100000299.filter,tp,0,LOCATION_MZONE,nil) - if g:GetCount()>0 then - local atk=0 - local tc=g:GetFirst() - while tc do - atk=atk+tc:GetAttack() - tc=g:GetNext() - end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(atk) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - end -end -function c100000299.scon(e) - local c=e:GetHandler() - local atk=c:GetAttack() - local bc=c:GetBattleTarget() - if not bc then return end - local bct=0 - if bc:GetPosition()==POS_FACEUP_ATTACK then - bct=bc:GetAttack() - else bct=bc:GetDefence()+1 end - return c:IsRelateToBattle() and c:GetPosition()==POS_FACEUP_ATTACK - and atk>=bct and not bc:IsStatus(STATUS_BATTLE_DESTROYED) -end -function c100000299.sop(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetHandler():GetBattleTarget() - Duel.Destroy(bc,REASON_BATTLE) - bc:SetStatus(STATUS_BATTLE_DESTROYED,true) -end -function c100000299.soop(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetHandler():GetBattleTarget() - if bc then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000) - bc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_STEP_END) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetOperation(c100000299.resetop) - e2:SetLabelObject(e1) - bc:RegisterEffect(e2) - end -end -function c100000299.resetop(e,tp,eg,ep,ev,re,r,rp) - e:GetLabelObject():Reset() - e:Reset() -end diff --git a/script/c10000030.lua b/script/c10000030.lua index dae6f179..4118e27a 100644 --- a/script/c10000030.lua +++ b/script/c10000030.lua @@ -59,10 +59,8 @@ function c10000030.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c10000030.operation1(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp,PHASE_END,1) end end function c10000030.operation2(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c100000300.lua b/script/c100000300.lua deleted file mode 100644 index aa4c63d3..00000000 --- a/script/c100000300.lua +++ /dev/null @@ -1,14 +0,0 @@ ---Ｔｈｅ Ｄｅｓｐａｉｒ Ｕｒａｎｕｓ -function c100000300.initial_effect(c) - --atk - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(c100000300.value) - c:RegisterEffect(e1) -end -function c100000300.value(e,c) - return Duel.GetMatchingGroupCount(Card.IsFaceup,e:GetHandler():GetControler(),LOCATION_SZONE,0,nil)*300 -end diff --git a/script/c100000301.lua b/script/c100000301.lua deleted file mode 100644 index 44736b91..00000000 --- a/script/c100000301.lua +++ /dev/null @@ -1,52 +0,0 @@ ---Ｔｈｅ ｂｌａｚｉｎｇ ＭＡＲＳ -function c100000301.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND+LOCATION_GRAVE) - e1:SetCondition(c100000301.spcon) - e1:SetOperation(c100000301.spop) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c100000301.cost) - e2:SetTarget(c100000301.target) - e2:SetOperation(c100000301.operation) - c:RegisterEffect(e2) -end -function c100000301.filter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() -end -function c100000301.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000301.filter,tp,LOCATION_GRAVE,0,3,nil) -end -function c100000301.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g1=Duel.SelectMatchingCard(tp,c100000301.filter,tp,LOCATION_GRAVE,0,3,3,nil) - Duel.Remove(g1,POS_FACEUP,REASON_COST) -end -function c100000301.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local cc=Duel.SelectMatchingCard(tp,Card.IsAbleToGraveAsCost,tp,LOCATION_MZONE,0,1,1,nil); - Duel.SendtoGrave(cc,REASON_COST) -end -function c100000301.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(500) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) -end -function c100000301.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000302.lua b/script/c100000302.lua deleted file mode 100644 index bac938e4..00000000 --- a/script/c100000302.lua +++ /dev/null @@ -1,56 +0,0 @@ ---Ｔｈｅ ｇｒａｎｄ ＪＵＰＩＴＥＲ -function c100000302.initial_effect(c) - --equip - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c100000302.spcost) - e1:SetTarget(c100000302.eqtg) - e1:SetOperation(c100000302.eqop) - c:RegisterEffect(e1) -end -function c100000302.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,2,nil) end - Duel.DiscardHand(tp,Card.IsDiscardable,2,2,REASON_COST+REASON_DISCARD,nil) -end -function c100000302.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsAbleToChangeControler() end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(Card.IsAbleToChangeControler,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,Card.IsAbleToChangeControler,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) -end -function c100000302.eqlimit(e,c) - return e:GetOwner()==c -end -function c100000302.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - if c:IsFaceup() and c:IsRelateToEffect(e) then - local atk=tc:GetTextAttack() - if tc:IsFacedown() or atk<0 then atk=0 end - if not Duel.Equip(tp,tc,c,false) then return end - --Add Equip limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c100000302.eqlimit) - tc:RegisterEffect(e1) - if atk>0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_EQUIP) - e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(atk) - tc:RegisterEffect(e1) - end - else Duel.SendtoGrave(tc,REASON_EFFECT) end - end -end diff --git a/script/c100000303.lua b/script/c100000303.lua deleted file mode 100644 index 79f2c7e0..00000000 --- a/script/c100000303.lua +++ /dev/null @@ -1,57 +0,0 @@ ---Ｔｈｅ ｔｒｉｐｐｉｎｇ ＭＥＲＣＵＲＹ -function c100000303.initial_effect(c) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetCondition(c100000303.ttcon) - e1:SetOperation(c100000303.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE+1) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c100000303.destg) - e2:SetOperation(c100000303.desop) - c:RegisterEffect(e2) -end -function c100000303.ttcon(e,c) - if c==nil then return true end - return Duel.GetTributeCount(c)>=3 -end -function c100000303.ttop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g, REASON_SUMMON+REASON_MATERIAL) -end -function c100000303.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler(),TYPE_MONSTER)>0 end - if e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE+1 then - local g=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler(),TYPE_MONSTER) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) - else - e:SetCategory(CATEGORY_ATKCHANGE) - end -end -function c100000303.desop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE+1 then - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - tc=g:GetNext() - end - else - local g=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler(),TYPE_MONSTER) - Duel.ChangePosition(g,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) - end -end diff --git a/script/c100000304.lua b/script/c100000304.lua deleted file mode 100644 index 031fc280..00000000 --- a/script/c100000304.lua +++ /dev/null @@ -1,42 +0,0 @@ ---The Suppression Pluto -function c100000304.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c100000304.target) - e1:SetOperation(c100000304.operation) - c:RegisterEffect(e1) -end -function c100000304.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsControler(1-tp) end - if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 - and Duel.IsExistingMatchingCard(nil,tp,LOCATION_HAND,0,1,nil) - and (Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) or Duel.IsExistingTarget(nil,tp,0,LOCATION_SZONE,1,nil)) end - Duel.Hint(HINT_SELECTMSG,tp,564) - local ac=Duel.AnnounceCard(tp) - e:SetLabel(ac) - e:GetHandler():SetHint(CHINT_CARD,ac) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,0,1,0,0) -end -function c100000304.filter(c) - return (c:IsType(TYPE_MONSTER) and c:IsControlerCanBeChanged()) or not c:IsType(TYPE_MONSTER) -end -function c100000304.operation(e,tp,eg,ep,ev,re,r,rp) - local ac=e:GetLabel() - local g=Duel.GetMatchingGroup(Card.IsCode,tp,0,LOCATION_HAND,nil,ac) - local hg=Duel.GetFieldGroup(tp,0,LOCATION_HAND) - Duel.ConfirmCards(tp,hg) - if g:GetCount()>0 then - local tc=Duel.SelectMatchingCard(tp,c100000304.filter,tp,0,LOCATION_ONFIELD,1,1,nil):GetFirst() - if tc and not Duel.GetControl(tc,tp) then - if not tc:IsType(TYPE_MONSTER) then - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,tc:GetPosition(),true) - end - end - end - Duel.ShuffleHand(1-tp) -end diff --git a/script/c100000307.lua b/script/c100000307.lua deleted file mode 100644 index 829ed87f..00000000 --- a/script/c100000307.lua +++ /dev/null @@ -1,67 +0,0 @@ ---穢された大地 -function c100000307.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetTarget(c100000307.sptarget) - e1:SetOperation(c100000307.spactivate) - c:RegisterEffect(e1) - if not c100000307.global_check then - c100000307.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_DESTROYED) - ge1:SetOperation(c100000307.checkop) - Duel.RegisterEffect(ge1,0) - local ge2=Effect.CreateEffect(c) - ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW) - ge2:SetOperation(c100000307.clear) - Duel.RegisterEffect(ge2,0) - end -end -function c100000307.checkop(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - while tc do - if not tc:IsStatus(STATUS_BATTLE_DESTROYED) and tc:GetLevel()>=5 and tc:IsPreviousPosition(POS_FACEUP) - and tc:IsPreviousLocation(LOCATION_MZONE) and tc:GetPreviousControler()==tp then - c100000307[tp]=false - end - tc=eg:GetNext() - end -end -function c100000307.clear(e,tp,eg,ep,ev,re,r,rp) - c100000307[0]=true - c100000307[1]=true -end -function c100000307.filter(c,e,tp) - return c:IsSetCard(0x21) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000307.sptarget(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and not c100000307[tp] - and Duel.IsExistingMatchingCard(c100000307.filter,tp,0x13,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13) -end -function c100000307.spactivate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000307.filter,tp,0x13,0,1,1,nil,e,tp) - local tc=g:GetFirst() - while tc do - if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_TRIGGER) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e2) - Duel.SpecialSummonComplete() - end - end -end diff --git a/script/c100000308.lua b/script/c100000308.lua deleted file mode 100644 index 937fc482..00000000 --- a/script/c100000308.lua +++ /dev/null @@ -1,52 +0,0 @@ ---デブリステーション -function c100000308.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c100000308.condition) - e1:SetTarget(c100000308.target) - e1:SetOperation(c100000308.operation) - c:RegisterEffect(e1) -end -function c100000308.cfilter(c,tp) - return c:IsReason(REASON_BATTLE) and c:IsLocation(LOCATION_GRAVE) and c:GetPreviousControler()==tp - and c:IsCode(50400231) -end -function c100000308.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000308.cfilter,1,nil,tp) -end -function c100000308.spfilter(c,e,tp) - return c:IsCode(100000022) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,true,false) -end -function c100000308.gfilter(c) - return c:IsCode(50400231) and c:IsAbleToGrave() -end -function c100000308.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000308.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) - and Duel.IsExistingMatchingCard(c100000308.gfilter,tp,LOCATION_ONFIELD+LOCATION_HAND,0,2,nil) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000308.operation(e,tp,eg,ep,ev,re,r,rp) - local g1=Duel.GetMatchingGroup(c100000308.gfilter,tp,LOCATION_ONFIELD+LOCATION_HAND,0,nil) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or g1:GetCount()~=2 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g2=g1:Select(tp,2,2,nil) - Duel.SendtoGrave(g2,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000308.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc and Duel.SpecialSummonStep(tc,SUMMON_TYPE_FUSION,tp,tp,true,false,POS_FACEUP_ATTACK) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(3000) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1,true) - Duel.SpecialSummonComplete() - tc:CompleteProcedure() - end -end diff --git a/script/c100000309.lua b/script/c100000309.lua deleted file mode 100644 index 6ad4d7f6..00000000 --- a/script/c100000309.lua +++ /dev/null @@ -1,114 +0,0 @@ ---ワイゼルＡ５ -function c100000309.initial_effect(c) - c:EnableReviveLimit() - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000309.spcon) - e1:SetOperation(c100000309.spop) - c:RegisterEffect(e1) - --selfdes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_ADJUST) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c100000309.sdcon2) - e2:SetOperation(c100000309.sdop) - c:RegisterEffect(e2) - --direct attack - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_PIERCE) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetTarget(c100000309.tg) - c:RegisterEffect(e3) - --negate - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(67098114,0)) - e4:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_QUICK_O) - e4:SetCode(EVENT_CHAINING) - e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e4:SetRange(LOCATION_MZONE) - e4:SetCondition(c100000309.discon) - e4:SetTarget(c100000309.distg) - e4:SetOperation(c100000309.disop) - c:RegisterEffect(e4) - --chain attack - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e5:SetCode(EVENT_ATTACK_ANNOUNCE) - e5:SetRange(LOCATION_MZONE) - e5:SetCondition(c100000309.piercecon) - e5:SetOperation(c100000309.piercetg) - c:RegisterEffect(e5) -end -function c100000309.spfilter(c,code) - return c:IsCode(100000048) -end -function c100000309.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(tp,c100000309.spfilter,1,nil) -end -function c100000309.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g1=Duel.SelectReleaseGroup(tp,c100000309.spfilter,1,1,nil) - Duel.Release(g1,REASON_COST) -end -function c100000309.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x3013) -end -function c100000309.sdcon2(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c100000309.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) -end -function c100000309.sdop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end - -function c100000309.tg(e,c) - return c:IsFaceup() and c:IsSetCard(0x3013) -end -function c100000309.discon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.GetAttacker():IsSetCard(0x3013) - and ep~=tp and re:GetOwner():IsType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) -end -function c100000309.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c100000309.disop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end -function c100000309.piercecon(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - return d and a:IsControler(tp) and d:IsDefencePos() and a:IsSetCard(0x3013) -end -function c100000309.piercetg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tc=Duel.GetAttacker() - if tc and tc:IsFaceup() then - --deepen damage - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e1:SetOperation(c100000309.dop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end -function c100000309.dop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,ev*2) -end diff --git a/script/c100000310.lua b/script/c100000310.lua deleted file mode 100644 index 7b881163..00000000 --- a/script/c100000310.lua +++ /dev/null @@ -1,35 +0,0 @@ ---薔薇の聖弓手 -function c100000310.initial_effect(c) - --Negate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000310.condition) - e1:SetCost(c100000310.cost) - e1:SetTarget(c100000310.target) - e1:SetOperation(c100000310.operation) - c:RegisterEffect(e1) -end -function c100000310.condition(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and re:IsActiveType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) -end -function c100000310.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c100000310.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c100000310.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end diff --git a/script/c100000311.lua b/script/c100000311.lua deleted file mode 100644 index 3b0cdc6c..00000000 --- a/script/c100000311.lua +++ /dev/null @@ -1,31 +0,0 @@ ---月華竜 ブラック・ローズ -function c100000311.initial_effect(c) - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetTarget(c100000311.thtg) - e1:SetOperation(c100000311.thop) - c:RegisterEffect(e1) -end -function c100000311.thfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c100000311.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsAbleToHand() end - if chk==0 then return Duel.IsExistingTarget(c100000311.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c100000311.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c100000311.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end diff --git a/script/c100000312.lua b/script/c100000312.lua deleted file mode 100644 index f4bc7c39..00000000 --- a/script/c100000312.lua +++ /dev/null @@ -1,46 +0,0 @@ ---過去世 -function c100000312.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetLabel(0) - e1:SetCost(c100000312.cost) - e1:SetTarget(c100000312.target) - e1:SetOperation(c100000312.activate) - c:RegisterEffect(e1) -end -function c100000312.filter1(c,e,tp) - local lv=c:GetLevel() - local atk=c:GetAttack() - return lv>0 and Duel.IsExistingMatchingCard(c100000312.filter2,tp,LOCATION_EXTRA,0,1,nil,lv,atk,e,tp) -end -function c100000312.filter2(c,lv,atk,e,tp) - return c:GetLevel()==lv and c:GetAttack()==atk and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000312.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(1) - if chk==0 then return Duel.CheckReleaseGroup(tp,c100000312.filter1,1,nil,e,tp) end - local rg=Duel.SelectReleaseGroup(tp,c100000312.filter1,1,1,nil,e,tp) - Duel.Release(rg,REASON_COST) - e:SetLabel(rg:GetFirst():GetAttack()) - e:SetLabelObject(rg:GetFirst()) -end -function c100000312.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if e:GetLabel()==0 then return false end - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000312.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local atk=e:GetLabel() - local lv=e:GetLabelObject():GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000312.filter2,tp,LOCATION_EXTRA,0,1,1,nil,lv,atk,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - end -end diff --git a/script/c100000315.lua b/script/c100000315.lua deleted file mode 100644 index 394a1d5c..00000000 --- a/script/c100000315.lua +++ /dev/null @@ -1,12 +0,0 @@ ---ジャイアント・レックス -function c100000315.initial_effect(c) - --cannot attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetCondition(c100000315.atcon) - c:RegisterEffect(e1) -end -function c100000315.atcon(e) - return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),0,LOCATION_MZONE)==0 -end diff --git a/script/c100000316.lua b/script/c100000316.lua deleted file mode 100644 index bebef467..00000000 --- a/script/c100000316.lua +++ /dev/null @@ -1,9 +0,0 @@ ---ラスオブタクス・マンモス -function c100000316.initial_effect(c) - --reflect battle dam - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_REFLECT_BATTLE_DAMAGE) - e1:SetValue(1) - c:RegisterEffect(e1) -end diff --git a/script/c100000317.lua b/script/c100000317.lua deleted file mode 100644 index d1b317b5..00000000 --- a/script/c100000317.lua +++ /dev/null @@ -1,33 +0,0 @@ ---超進化薬・改 -function c100000317.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000317.cost) - e1:SetTarget(c100000317.target) - e1:SetOperation(c100000317.activate) - c:RegisterEffect(e1) -end -function c100000317.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsRace,1,nil,RACE_WINDBEAST) end - local g=Duel.SelectReleaseGroup(tp,Card.IsRace,1,1,nil,RACE_WINDBEAST) - Duel.Release(g,REASON_COST) -end -function c100000317.filter(c,e,tp) - return c:IsRace(RACE_DINOSAUR) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000317.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100000317.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000317.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000317.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 diff --git a/script/c100000318.lua b/script/c100000318.lua deleted file mode 100644 index b97618c8..00000000 --- a/script/c100000318.lua +++ /dev/null @@ -1,41 +0,0 @@ ---究極進化薬 -function c100000318.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000318.cost) - e1:SetTarget(c100000318.target) - e1:SetOperation(c100000318.activate) - c:RegisterEffect(e1) -end -function c100000318.cfilter(c,rc) - return c:IsRace(rc) and c:IsAbleToRemoveAsCost() -end -function c100000318.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000318.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,RACE_DINOSAUR) - and Duel.IsExistingMatchingCard(c100000318.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,RACE_MACHINE) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g1=Duel.SelectMatchingCard(tp,c72989439.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,RACE_DINOSAUR) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g2=Duel.SelectMatchingCard(tp,c72989439.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,RACE_MACHINE) - g1:Merge(g2) - Duel.Remove(g1,POS_FACEUP,REASON_COST) -end -function c100000318.filter(c,e,tp) - return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_DINOSAUR) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000318.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000318.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c100000318.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000318.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000320.lua b/script/c100000320.lua deleted file mode 100644 index 5149600e..00000000 --- a/script/c100000320.lua +++ /dev/null @@ -1,32 +0,0 @@ ---お銚子一本 -function c100000320.initial_effect(c) - --Activate - local e0=Effect.CreateEffect(c) - e0:SetType(EFFECT_TYPE_ACTIVATE) - e0:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e0) - --Damage - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_DESTROYED) - e1:SetCondition(c100000320.drcon) - e1:SetTarget(c100000320.damtg) - e1:SetOperation(c100000320.damop) - c:RegisterEffect(e1) -end -function c100000320.drcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) -end -function c100000320.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) -end -function c100000320.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100000321.lua b/script/c100000321.lua deleted file mode 100644 index 716a558c..00000000 --- a/script/c100000321.lua +++ /dev/null @@ -1,28 +0,0 @@ ---酔いどれタイガー -function c100000321.initial_effect(c) - --Disable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_BATTLE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetOperation(c100000321.disop) - c:RegisterEffect(e1) -end -function c100000321.disop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=c:GetBattleTarget() - if tc and tc:IsType(TYPE_FLIP) and tc:IsPreviousPosition(POS_FACEDOWN_DEFENCE) - and Duel.GetAttacker()==c then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x17a0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x17a0000) - tc:RegisterEffect(e2) - end -end - diff --git a/script/c100000322.lua b/script/c100000322.lua deleted file mode 100644 index 4158d2ce..00000000 --- a/script/c100000322.lua +++ /dev/null @@ -1,15 +0,0 @@ ---酔いどれエンジェル -function c100000322.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e1:SetValue(c100000322.efilter) - c:RegisterEffect(e1) -end - -function c100000322.efilter(e,re) - return re:GetOwner():IsCode(100000323) -end diff --git a/script/c100000323.lua b/script/c100000323.lua deleted file mode 100644 index 559ae435..00000000 --- a/script/c100000323.lua +++ /dev/null @@ -1,54 +0,0 @@ ---ちゃぶ台返し -function c100000323.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000323,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000323.condition) - e2:SetCost(c100000323.cost) - e2:SetTarget(c100000323.target) - e2:SetOperation(c100000323.operation) - c:RegisterEffect(e2) -end -function c100000323.confilter(c) - return c:IsFaceup() and (c:IsCode(100000322) or c:IsCode(100000321)) -end -function c100000323.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000323.confilter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c100000323.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not Duel.CheckNormalSummonActivity(tp) end - --oath effects - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - Duel.RegisterEffect(e1,tp) -end -function c100000323.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,0,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0,e:GetHandler()) -end -function c100000323.cfilter(c) - return c:IsType(TYPE_MONSTER+TYPE_SPELL+TYPE_TRAP) -end -function c100000323.operation(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,0,e:GetHandler()) - Duel.Destroy(sg,REASON_EFFECT) - local g=Duel.GetOperatedGroup() - local ct=g:FilterCount(c100000323.cfilter,nil) - if ct==0 then return end - Duel.BreakEffect() - local dg=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,ct,nil) - Duel.Destroy(dg,REASON_EFFECT) -end diff --git a/script/c100000330.lua b/script/c100000330.lua deleted file mode 100644 index 821f3d8c..00000000 --- a/script/c100000330.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Ｆａｉｒｙ Ｔａｌｅ序章 旅立ちの暁光 -function c100000330.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --damage reduce - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e2:SetOperation(c100000330.rdop) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetCode(EVENT_PHASE+PHASE_STANDBY) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_SZONE) - e3:SetProperty(EFFECT_FLAG_REPEAT) - e3:SetCountLimit(1) - e3:SetCondition(c100000330.condition) - e3:SetTarget(c100000330.target) - e3:SetOperation(c100000330.activate) - c:RegisterEffect(e3) -end -function c100000330.rdop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(tp,ev/2) - Duel.ChangeBattleDamage(1-tp,ev/2) -end -function c100000330.condition(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() and Duel.GetFlagEffect(tp,100000330)==0 -end -function c100000330.filter(c) - return c:GetCode()==100000331 -end -function c100000330.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000330.filter,tp,0x13,0,1,nil) end -end -function c100000330.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=nil - local tg=Duel.GetMatchingGroup(c100000330.filter,tp,0x13,0,nil) - if tg:GetCount()>1 then - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100000330,0)) - tc=Duel.SelectMatchingCard(tp,c100000330.filter,tp,0x13,0,1,1,nil):GetFirst() - else - tc=tg:GetFirst() - end - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - Duel.RegisterFlagEffect(tp,100000330,RESET_PHASE+PHASE_END,0,1) - Duel.RaiseEvent(tc,EVENT_CHAIN_SOLVED,tc:GetActivateEffect(),0,tp,tp,Duel.GetCurrentChain()) -end diff --git a/script/c100000331.lua b/script/c100000331.lua deleted file mode 100644 index fc6d6ee0..00000000 --- a/script/c100000331.lua +++ /dev/null @@ -1,55 +0,0 @@ ---Ｆａｉｒｙ Ｔａｌｅ 第二章 暴怒の太陽 -function c100000331.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000331.con) - c:RegisterEffect(e1) - --damage reduce - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e2:SetOperation(c100000331.rdop) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetCode(EVENT_PHASE+PHASE_STANDBY) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_SZONE) - e3:SetProperty(EFFECT_FLAG_REPEAT) - e3:SetCountLimit(1) - e3:SetCondition(c100000331.condition) - e3:SetTarget(c100000331.target) - e3:SetOperation(c100000331.activate) - c:RegisterEffect(e3) -end -function c100000331.con(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFlagEffect(tp,100000330)==5 -end -function c100000331.rdop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(tp,ev*2) - Duel.ChangeBattleDamage(1-tp,ev*2) -end -function c100000331.condition(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() and Duel.GetFlagEffect(tp,100000330)==0 -end -function c100000331.filter(c) - return c:GetCode()==100000332 -end -function c100000331.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000331.filter,tp,0x13,0,1,nil,tp) end -end -function c100000331.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=nil - local tg=Duel.GetMatchingGroup(c100000331.filter,tp,0x13,0,nil) - if tg:GetCount()>1 then - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100000331,0)) - tc=Duel.SelectMatchingCard(tp,c100000331.filter,tp,0x13,0,1,1,nil):GetFirst() - else - tc=tg:GetFirst() - end - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - Duel.RegisterFlagEffect(tp,100000330,RESET_PHASE+PHASE_END,0,1) - Duel.RaiseEvent(tc,EVENT_CHAIN_SOLVED,tc:GetActivateEffect(),0,tp,tp,Duel.GetCurrentChain()) -end diff --git a/script/c100000332.lua b/script/c100000332.lua deleted file mode 100644 index 87a303eb..00000000 --- a/script/c100000332.lua +++ /dev/null @@ -1,71 +0,0 @@ ---Ｆａｉｒｙ Ｔａｌｅ第三章 黄昏の夕日 -function c100000332.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000332.con) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_BOTH_SIDE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetTarget(c100000332.sptg) - e2:SetOperation(c100000332.spop) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetCode(EVENT_PHASE+PHASE_STANDBY) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_SZONE) - e3:SetProperty(EFFECT_FLAG_REPEAT) - e3:SetCountLimit(1) - e3:SetCondition(c100000332.condition) - e3:SetTarget(c100000332.target) - e3:SetOperation(c100000332.activate) - c:RegisterEffect(e3) -end -function c100000332.con(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFlagEffect(tp,100000330)==5 -end -function c100000332.spfilter(c,e,tp) - return c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000332.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100000332.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000332.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000332.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000332.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end -function c100000332.condition(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() and Duel.GetFlagEffect(tp,100000330)==0 -end -function c100000332.filter(c) - return c:GetCode()==100000333 -end -function c100000332.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000332.filter,tp,0x13,0,1,nil,tp) end -end -function c100000332.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=nil - local tg=Duel.GetMatchingGroup(c100000332.filter,tp,0x13,0,nil) - if tg:GetCount()>1 then - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100000332,0)) - tc=Duel.SelectMatchingCard(tp,c100000332.filter,tp,0x13,0,1,1,nil):GetFirst() - else - tc=tg:GetFirst() - end - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - Duel.RegisterFlagEffect(tp,100000330,RESET_PHASE+PHASE_END,0,1) - Duel.RaiseEvent(tc,EVENT_CHAIN_SOLVED,tc:GetActivateEffect(),0,tp,tp,Duel.GetCurrentChain()) -end diff --git a/script/c100000333.lua b/script/c100000333.lua deleted file mode 100644 index 72a081e2..00000000 --- a/script/c100000333.lua +++ /dev/null @@ -1,78 +0,0 @@ ---Ｆａｉｒｙ Ｔａｌｅ最終章 忘却の妖月 -function c100000333.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000333.con) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) - e2:SetCode(EVENT_CHANGE_POS) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e2:SetRange(LOCATION_SZONE) - e2:SetTarget(c100000333.sptg2) - e2:SetOperation(c100000333.spop2) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetCode(EVENT_PHASE+PHASE_STANDBY) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_SZONE) - e3:SetProperty(EFFECT_FLAG_REPEAT) - e3:SetCountLimit(1) - e3:SetCondition(c100000333.condition) - e3:SetTarget(c100000333.target) - e3:SetOperation(c100000333.activate) - c:RegisterEffect(e3) -end -function c100000333.con(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFlagEffect(tp,100000330)==5 -end -function c100000333.pofilter1(c,e,tp) - return c:GetPosition()==POS_FACEUP_ATTACK and c:GetPreviousPosition()>0x3 -end -function c100000333.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return eg:IsContains(chkc) and c100000333.pofilter1(chkc) end - if chk==0 then return eg:IsExists(c100000333.pofilter1,1,nil) end - return true -end -function c100000333.spop2(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(c100000333.pofilter1,nil) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(tc:GetAttack()*2) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - tc=g:GetNext() - end -end -function c100000333.condition(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() and Duel.GetFlagEffect(tp,100000330)==0 -end -function c100000333.filter(c) - return c:GetCode()==100000330 -end -function c100000333.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000333.filter,tp,0x13,0,1,nil,tp) end -end -function c100000333.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=nil - local tg=Duel.GetMatchingGroup(c100000333.filter,tp,0x13,0,nil) - if tg:GetCount()>1 then - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100000333,0)) - tc=Duel.SelectMatchingCard(tp,c100000333.filter,tp,0x13,0,1,1,nil):GetFirst() - -- if tc:IsLocation(LOCATION_DECK) then - -- Duel.SendtoDeck(e:GetHandler(),nil,1,REASON_RULE)end - -- if tc:IsLocation(LOCATION_HAND) then - -- Duel.SendtoHand(e:GetHandler(),nil,1,REASON_RULE)end - else - tc=tg:GetFirst() - end - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - Duel.RegisterFlagEffect(tp,100000330,RESET_PHASE+PHASE_END,0,1) - Duel.RaiseEvent(tc,EVENT_CHAIN_SOLVED,tc:GetActivateEffect(),0,tp,tp,Duel.GetCurrentChain()) -end diff --git a/script/c100000335.lua b/script/c100000335.lua deleted file mode 100644 index 09742cf9..00000000 --- a/script/c100000335.lua +++ /dev/null @@ -1,33 +0,0 @@ ---シューティング・ミラージュ -function c100000335.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_DESTROYED) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c100000335.condition) - e1:SetTarget(c100000335.target) - e1:SetOperation(c100000335.activate) - c:RegisterEffect(e1) -end -function c100000335.cfilter(c,tp) - return c:IsCode(83994433) and c:GetPreviousControler()==tp - and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) -end -function c100000335.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000335.cfilter,1,nil,tp) -end -function c100000335.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100000335.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c100000336.lua b/script/c100000336.lua deleted file mode 100644 index 97730dd0..00000000 --- a/script/c100000336.lua +++ /dev/null @@ -1,34 +0,0 @@ ---琰魔竜 レッド・デーモン -function c100000336.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000336,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c100000336.target) - e1:SetOperation(c100000336.operation) - c:RegisterEffect(e1) -end -function c100000336.filter(c) - return c:GetPosition()==POS_FACEUP_ATTACK and c:IsDestructable() -end -function c100000336.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c100000336.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end - local sg=Duel.GetMatchingGroup(c100000336.filter,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100000336.operation(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100000336.filter,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - if Duel.Destroy(sg,REASON_EFFECT) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c100000340.lua b/script/c100000340.lua deleted file mode 100644 index d46cd677..00000000 --- a/script/c100000340.lua +++ /dev/null @@ -1,18 +0,0 @@ ---森の忍者バット -function c100000340.initial_effect(c) - --negate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000340,0)) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000340.spcon) - c:RegisterEffect(e1) -end -function c100000340.spcon(e,c) - local tc=Duel.GetFieldCard(0,LOCATION_SZONE,5) - if tc and tc:IsFaceup() then return true end - tc=Duel.GetFieldCard(1,LOCATION_SZONE,5) - return tc and tc:IsFaceup() -end \ No newline at end of file diff --git a/script/c100000341.lua b/script/c100000341.lua deleted file mode 100644 index bd0a5d66..00000000 --- a/script/c100000341.lua +++ /dev/null @@ -1,22 +0,0 @@ ---森の剣士 ベリー -function c100000341.initial_effect(c) - --damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000341,0)) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetTarget(c100000341.damtg) - e1:SetOperation(c100000341.damop) - c:RegisterEffect(e1) -end -function c100000341.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(300) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,300) -end -function c100000341.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000342.lua b/script/c100000342.lua deleted file mode 100644 index b114b8f3..00000000 --- a/script/c100000342.lua +++ /dev/null @@ -1,40 +0,0 @@ ---森の盗賊 チップ -function c100000342.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000342,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c100000342.sumcon) - e1:SetTarget(c100000342.sumtg) - e1:SetOperation(c100000342.sumop) - c:RegisterEffect(e1) -end -function c100000342.sumcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_MAIN1 -end -function c100000342.sumfilter(c,e,tp) - return c:IsLevelBelow(4) and c:IsRace(RACE_BEAST) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000342.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000342.sumfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_HAND) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_BP) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c100000342.sumop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000342.sumfilter,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 \ No newline at end of file diff --git a/script/c100000343.lua b/script/c100000343.lua deleted file mode 100644 index 9d83a5ad..00000000 --- a/script/c100000343.lua +++ /dev/null @@ -1,43 +0,0 @@ ---森の聖騎士 ワンコ -function c100000343.initial_effect(c) - --target - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e1:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e1:SetCondition(c100000343.tgcon) - e1:SetTarget(c100000343.tglimit) - e1:SetValue(1) - c:RegisterEffect(e1) - --destroyed - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000343,0)) - e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_BATTLE_DESTROYED) - e2:SetOperation(c100000343.desop) - c:RegisterEffect(e2) -end -function c100000343.tgcon(e,c) - local tc=Duel.GetFieldCard(0,LOCATION_SZONE,5) - if tc and tc:IsFaceup() then return true end - tc=Duel.GetFieldCard(1,LOCATION_SZONE,5) - return tc and tc:IsFaceup() -end -function c100000343.tglimit(e,c) - return c~=e:GetHandler() -end -function c100000343.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - if not bc:IsRelateToBattle() or bc:IsFacedown() then return end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(-300) - bc:RegisterEffect(e1) -end diff --git a/script/c100000344.lua b/script/c100000344.lua deleted file mode 100644 index 1533b7b3..00000000 --- a/script/c100000344.lua +++ /dev/null @@ -1,30 +0,0 @@ ---森の策士 コン -function c100000344.initial_effect(c) - --return hand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000344,0)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c100000344.rettg) - e2:SetOperation(c100000344.retop) - c:RegisterEffect(e2) -end -function c100000344.filter(c) - return c:IsType(TYPE_FIELD) and c:IsFaceup() and c:IsAbleToHand() -end -function c100000344.rettg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsAbleToHand() end - if chk==0 then return Duel.IsExistingTarget(c100000344.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c100000344.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c100000344.retop(e) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end diff --git a/script/c100000345.lua b/script/c100000345.lua deleted file mode 100644 index 16f7f707..00000000 --- a/script/c100000345.lua +++ /dev/null @@ -1,33 +0,0 @@ ---森の旅人 ニャント -function c100000345.initial_effect(c) - --negate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000345,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_CHAIN_SOLVED) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c100000345.con) - e1:SetTarget(c100000345.target) - e1:SetOperation(c100000345.activate) - c:RegisterEffect(e1) -end -function c100000345.con(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end - return re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsType(TYPE_FIELD) and Duel.IsChainDisablable(ev) -end -function c100000345.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100000345.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100000346.lua b/script/c100000346.lua deleted file mode 100644 index 08b9aa1b..00000000 --- a/script/c100000346.lua +++ /dev/null @@ -1,32 +0,0 @@ ---森の商人 ポン -function c100000346.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000346,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100000346.rettg) - e1:SetOperation(c100000346.retop) - c:RegisterEffect(e1) -end -function c100000346.filter(c) - return c:IsType(TYPE_FIELD) and c:IsAbleToDeck() - and Duel.IsExistingMatchingCard(c100000346.filter2,tp,LOCATION_DECK,0,1,nil,c:GetCode()) -end -function c100000346.filter2(c,code) - return c:IsType(TYPE_FIELD) and c:GetCode()~=code and c:IsAbleToHand() -end -function c100000346.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000346.filter,tp,LOCATION_HAND,0,1,nil) end -end -function c100000346.retop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectMatchingCard(tp,c100000346.filter,tp,LOCATION_HAND,0,1,1,nil) - local ct=g:GetFirst() - Duel.SendtoDeck(g,nil,1,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local dg=Duel.SelectMatchingCard(tp,c100000346.filter2,tp,LOCATION_DECK,0,1,1,nil,ct:GetCode()) - Duel.SendtoDeck(dg:GetFirst(),nil,1,REASON_EFFECT) -end diff --git a/script/c100000347.lua b/script/c100000347.lua deleted file mode 100644 index 254b5ddc..00000000 --- a/script/c100000347.lua +++ /dev/null @@ -1,30 +0,0 @@ ---森の霊媒師ゲッコ -function c100000347.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000347,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c100000347.target) - e1:SetOperation(c100000347.operation) - c:RegisterEffect(e1) -end -function c100000347.filter(c,e,tp) - return c:IsSetCard(0x308) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000347.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100000347.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and - Duel.IsExistingTarget(c100000347.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000347.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000347.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000348.lua b/script/c100000348.lua deleted file mode 100644 index cf4e7a6b..00000000 --- a/script/c100000348.lua +++ /dev/null @@ -1,37 +0,0 @@ ---マッハ・シンクロン -function c100000348.initial_effect(c) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000348,0)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_BE_MATERIAL) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c100000348.spcon) - e2:SetTarget(c100000348.sptg) - e2:SetOperation(c100000348.spop) - c:RegisterEffect(e2) -end -function c100000348.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO -end -function c100000348.filter(c,e,tp) - return c:IsLocation(LOCATION_GRAVE) and c~=e:GetHandler() - and c:IsCanBeEffectTarget(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000348.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local mg=e:GetHandler():GetReasonCard():GetMaterial() - if chkc then return mg:IsContains(chkc) and c100000348.filter(chkc,e,tp) end - if chk==0 then return mg:IsExists(c100000348.filter,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=mg:FilterSelect(tp,c100000348.filter,1,1,nil,e,tp) - Duel.SetTargetCard(g) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c100000348.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c100000349.lua b/script/c100000349.lua deleted file mode 100644 index be136428..00000000 --- a/script/c100000349.lua +++ /dev/null @@ -1,43 +0,0 @@ ---チーム・プレー -function c100000349.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000349.target) - e1:SetOperation(c100000349.activate) - c:RegisterEffect(e1) -end -function c100000349.filter1(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingTarget(c100000349.filter2,tp,LOCATION_MZONE,0,1,nil,c:GetRace()) -end -function c100000349.filter2(c,rc) - local lv=c:GetLevel() - return lv>0 and c:IsRace(rc) and c:IsFaceup() and Duel.IsExistingTarget(c100000349.filter3,tp,LOCATION_MZONE,0,1,c,rc,lv) -end -function c100000349.filter3(c,rc,lv) - local lv2=c:GetLevel() - return lv2==lv and c:IsFaceup() and c:IsRace(rc) -end -function c100000349.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c100000349.filter1(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000349.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000349.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000349.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(4) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1,true) - Duel.SpecialSummonComplete() - end -end diff --git a/script/c100000350.lua b/script/c100000350.lua deleted file mode 100644 index 85932f59..00000000 --- a/script/c100000350.lua +++ /dev/null @@ -1,251 +0,0 @@ ---氷炎の世界 -function c100000350.initial_effect(c) -function Auxiliary.AddXyzProcedure(c,f,ct,alterf,desc,maxct,op) - if c.xyz_filter==nil then - local code=c:GetOriginalCode() - local mt=_G["c" .. code] - mt.xyz_filter=f - mt.xyz_count=ct - end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_EXTRA) - if not maxct then maxct=ct end - if alterf then - e1:SetCondition(Auxiliary.XyzCondition2(f,ct,maxct,alterf,desc)) - e1:SetOperation(Auxiliary.XyzOperation2(f,ct,maxct,alterf,desc,op)) - else - e1:SetCondition(Auxiliary.XyzCondition(f,ct,maxct)) - e1:SetOperation(Auxiliary.XyzOperation(f,ct,maxct)) - end - e1:SetValue(SUMMON_TYPE_XYZ) - c:RegisterEffect(e1) -end -function Auxiliary.XyzCondition(f,minc,maxc) - --og: use special material -return function(e,c,og) - if c==nil then return true end - local ft=Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE) - local ct=-ft - local mt=Duel.GetFieldGroup(Duel.GetTurnPlayer(),LOCATION_MZONE,nil):Filter(Card.IsHasEffect,nil,100000350) - if mt:GetCount()>0 then - local m=minc-mt:GetCount() - if m<=ct and minc>mt:GetCount() then return false end - if og then - return og:IsExists(f,minc,nil) - else - local ms=mt:GetFirst() - local g=Duel.GetXyzMaterial(c) - while ms do - if c:GetRank()==ms:GetLevel() and c:IsAttribute(ATTRIBUTE_WATER) then - if m>0 then - return g:IsExists(f,m,nil) - else - return g:IsExists(f,1,nil) - end - else - return g:IsExists(f,minc,nil) - end - ms=mt:GetNext() - end - end - else - if minc<=ct then return false end - if og then - return og:IsExists(f,minc,nil) - else - local g=Duel.GetXyzMaterial(c) - return g:IsExists(f,minc,nil) - end - end - end -end -function Auxiliary.XyzOperation(f,minc,maxc) -return function(e,tp,eg,ep,ev,re,r,rp,c,og) - if og then - c:SetMaterial(og) - Duel.Overlay(c,og) - else - local g=Duel.GetXyzMaterial(c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local mt=Duel.GetFieldGroup(Duel.GetTurnPlayer(),LOCATION_MZONE,nil):Filter(Card.IsHasEffect,nil,100000350) - if mt:GetCount()>0 and c:IsAttribute(ATTRIBUTE_WATER) then - local mp=mt:Filter(Card.GetLevel,nil,c:GetRank()):GetCount() - if g:FilterCount(f,nil)==minc-mp then - local mg=g:Filter(f,nil):FilterSelect(tp,Card.IsHasEffect,mp,mp,nil,100000350) - if minc-(mp*2)>0 then - local mg2=g:FilterSelect(tp,f,minc-(mp*2),maxc,mg:GetFirst()) - mg:Merge(mg2) - end - c:SetMaterial(mg) - Duel.Overlay(c,mg) - else if g:FilterCount(f,nil)>minc-mp and mp>0 then - local mpt=mt:Filter(Card.GetLevel,nil,c:GetRank()):GetFirst() - local mg=Group.CreateGroup() - if mpt then - if Duel.SelectYesNo(tp,aux.Stringid(100000350,0)) then - mg:AddCard(mpt) - end - mpt=mt:Filter(Card.GetLevel,nil,c:GetRank()):GetNext() - if mg and minc-1>mp and mpt and Duel.SelectYesNo(tp,aux.Stringid(100000350,0)) then - mg:AddCard(mpt) - if minc>mg:GetCount()*2 then - local mg2=g:FilterSelect(tp,f,minc-4,maxc,mg:GetFirst()+mg:GetNext()) - mg:Merge(mg2) - end - else if mg:GetCount()==0 then - mg=g:FilterSelect(tp,f,minc,minc,nil) - else - if minc-2~=0 or maxc-2~=0 then - local mg2=g:FilterSelect(tp,f,minc-2,maxc,mg:GetFirst()) - mg:Merge(mg2) - end - end - end - c:SetMaterial(mg) - Duel.Overlay(c,mg) - end - else - local mg=g:FilterSelect(tp,f,minc,maxc,nil) - c:SetMaterial(mg) - Duel.Overlay(c,mg) - end - end - else - local mg=g:FilterSelect(tp,f,minc,maxc,nil) - c:SetMaterial(mg) - Duel.Overlay(c,mg) - end - end - end -end -function Auxiliary.XyzCondition2(f,minc,maxc,alterf,desc) -return function(e,c,og) - if c==nil then return true end - local ft=Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE) - local ct=-ft - local mt=Duel.GetFieldGroup(Duel.GetTurnPlayer(),LOCATION_MZONE,nil):Filter(Card.IsHasEffect,nil,100000350) - if mt:GetCount()>0 then - local m=minc-mt:GetCount() - if m<=ct and minc>mt:GetCount() then return false end - if og then - return og:IsExists(f,minc,nil) - else - if ct<1 and Duel.IsExistingMatchingCard(alterf,c:GetControler(),LOCATION_MZONE,0,1,nil) then return true end - local ms=mt:GetFirst() - local g=Duel.GetXyzMaterial(c) - while ms do - if c:GetRank()==ms:GetLevel() and c:IsAttribute(ATTRIBUTE_WATER) then - if m>0 then - return g:IsExists(f,m,nil) - else - return g:IsExists(f,1,nil) - end - else - return g:IsExists(f,minc,nil) - end - ms=mt:GetNext() - end - end - else - if minc<=ct then return false end - if og then - return og:IsExists(f,minc,nil) - else - if ct<1 and Duel.IsExistingMatchingCard(alterf,c:GetControler(),LOCATION_MZONE,0,1,nil) then return true end - local g=Duel.GetXyzMaterial(c) - return g:IsExists(f,minc,nil) - end - end - end -end -function Auxiliary.XyzOperation2(f,minc,maxc,alterf,desc,op) - return function(e,tp,eg,ep,ev,re,r,rp,c,og) - local ft=Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE) - local ct=-ft - local g=Duel.GetXyzMaterial(c) - local mt=Duel.GetFieldGroup(Duel.GetTurnPlayer(),LOCATION_MZONE,nil):Filter(Card.IsHasEffect,nil,100000350) - - local b1=g:IsExists(f,minc-mt:GetCount(),nil) - local b2=ct<1 and Duel.IsExistingMatchingCard(alterf,tp,LOCATION_MZONE,0,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - if (b1 and b2 and Duel.SelectYesNo(tp,desc)) or ((not b1) and b2) then - local mg=Duel.SelectMatchingCard(tp,alterf,tp,LOCATION_MZONE,0,1,1,nil) - local mg2=mg:GetFirst():GetOverlayGroup() - if mg2:GetCount()~=0 then - Duel.Overlay(c,mg2) - end - Duel.Overlay(c,mg) - c:SetMaterial(mg) - if op~=nil then op(e,tp) end - else - if mt:GetCount()~=0 and c:IsAttribute(ATTRIBUTE_WATER) then - local mp=mt:Filter(Card.GetLevel,nil,c:GetRank()):GetCount() - if g:FilterCount(f,nil)==minc-mp then - local mg=g:Filter(f,nil):FilterSelect(tp,Card.IsHasEffect,mp,mp,nil,100000350) - if minc-(mp*2)>0 then - local mg2=g:FilterSelect(tp,f,minc-(mp*2),maxc-(mp*2),mg:GetFirst()) - mg:Merge(mg2) - end - c:SetMaterial(mg) - Duel.Overlay(c,mg) - if op~=nil then op(e,tp) end - else if g:FilterCount(f,nil)>minc-mp and mp>0 then - local mpt=mt:Filter(Card.GetLevel,nil,c:GetRank()):GetFirst() - local mg=Group.CreateGroup() - if mpt then - if Duel.SelectYesNo(tp,aux.Stringid(100000350,0)) then - mg:AddCard(mpt) - end - mpt=mt:Filter(Card.GetLevel,nil,c:GetRank()):GetNext() - if mg and minc-1>mp and mpt and Duel.SelectYesNo(tp,aux.Stringid(100000350,0)) then - mg:AddCard(mpt) - if minc>mg:GetCount()*2 then - local mg2=g:FilterSelect(tp,f,minc-4,maxc-4,mg:GetFirst()+mg:GetNext()) - mg:Merge(mg2) - end - else if mg:GetCount()==0 then - mg=g:FilterSelect(tp,f,minc,minc,nil) - else - if minc-2~=0 or maxc-2~=0 then - local mg2=g:FilterSelect(tp,f,minc-2,maxc-2,mg:GetFirst()) - mg:Merge(mg2) - end - end - end - c:SetMaterial(mg) - Duel.Overlay(c,mg) - end - else - local mg=g:FilterSelect(tp,f,minc,maxc,nil) - c:SetMaterial(mg) - Duel.Overlay(c,mg) - end - end - else - local mg=g:FilterSelect(tp,f,minc,maxc,nil) - c:SetMaterial(mg) - Duel.Overlay(c,mg) - end - end - end -end - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --XYZ - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(100000350) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetTarget(c100000350.target) - c:RegisterEffect(e2) -end -function c100000350.target(e,c) - return c:IsAttribute(ATTRIBUTE_WATER) and c:IsFaceup() and not c:IsType(TYPE_XYZ) -end diff --git a/script/c100000351.lua b/script/c100000351.lua deleted file mode 100644 index 4c2f5902..00000000 --- a/script/c100000351.lua +++ /dev/null @@ -1,57 +0,0 @@ ---トラクター・リバース -function c100000351.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000351.cost) - e1:SetTarget(c100000351.target) - e1:SetOperation(c100000351.activate) - c:RegisterEffect(e1) -end -function c100000351.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not Duel.CheckSpecialSummonActivity(tp) and not Duel.CheckSummonActivity(tp) - and Duel.GetFlagEffect(tp,100000351)==0 end - --oath effects - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e2:SetCode(EFFECT_CANNOT_SUMMON) - e2:SetReset(RESET_PHASE+PHASE_END) - e2:SetTargetRange(1,0) - Duel.RegisterEffect(e2,tp) - Duel.RegisterFlagEffect(tp,100000351,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c100000351.filter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:GetOverlayCount()==0 -end -function c100000351.filter2(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsFacedown() -end -function c100000351.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100000351.filter(chkc) end - if chk==0 then return not e:GetHandler():IsLocation(LOCATION_GRAVE) and Duel.IsExistingTarget(c100000351.filter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingTarget(c100000351.filter2,tp,0,LOCATION_SZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c100000351.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100000351.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and c:IsRelateToEffect(e) then - local g=Duel.SelectMatchingCard(tp,c100000351.filter2,tp,0,LOCATION_SZONE,1,1,e:GetHandler()) - if g:GetCount()>0 then - c:CancelToGrave() - g:AddCard(c) - Duel.Overlay(tc,g) - end - end -end \ No newline at end of file diff --git a/script/c100000355.lua b/script/c100000355.lua deleted file mode 100644 index 794b8b22..00000000 --- a/script/c100000355.lua +++ /dev/null @@ -1,43 +0,0 @@ ---護封剣の剣士 -function c100000355.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000355.spcon) - e1:SetOperation(c100000355.spop) - c:RegisterEffect(e1) - --negate attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetOperation(c100000355.operation) - c:RegisterEffect(e2) - --battle des rep - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DESTROY_REPLACE) - e3:SetCountLimit(1) - e3:SetTarget(c100000355.reptg) - c:RegisterEffect(e3) -end -function c100000355.spcon(e,c) - if c==nil then return true end - return Duel.CheckReleaseGroup(c:GetControler(),nil,2,nil) -end -function c100000355.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectReleaseGroup(c:GetControler(),nil,2,2,nil) - Duel.Release(g,REASON_COST) -end -function c100000355.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateAttack() -end -function c100000355.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReason(REASON_BATTLE) end - return true -end - diff --git a/script/c100000360.lua b/script/c100000360.lua deleted file mode 100644 index 9ad8f778..00000000 --- a/script/c100000360.lua +++ /dev/null @@ -1,24 +0,0 @@ ---シャイニング・ボンバー -function c100000360.initial_effect(c) - --battle destroyed - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000360,0)) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c100000360.condition) - e1:SetTarget(c100000360.target) - e1:SetOperation(c100000360.operation) - c:RegisterEffect(e1) -end -function c100000360.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler() and e:GetHandler():IsReason(REASON_BATTLE) -end -function c100000360.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,800) -end -function c100000360.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(tp,800,REASON_EFFECT) - Duel.Damage(1-tp,800,REASON_EFFECT) -end diff --git a/script/c100000361.lua b/script/c100000361.lua deleted file mode 100644 index f7144e28..00000000 --- a/script/c100000361.lua +++ /dev/null @@ -1,30 +0,0 @@ ---シャイニング・ラビット -function c100000361.initial_effect(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000361,1)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_BATTLE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c100000361.descon) - e1:SetTarget(c100000361.destg) - e1:SetOperation(c100000361.desop) - c:RegisterEffect(e1) -end -function c100000361.descon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c100000361.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and c100000361.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_SZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_SZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100000361.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c100000362.lua b/script/c100000362.lua deleted file mode 100644 index ac277f22..00000000 --- a/script/c100000362.lua +++ /dev/null @@ -1,48 +0,0 @@ ---シャイニング・スライ -function c100000362.initial_effect(c) - --cannot be battle target - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e1:SetCondition(c100000362.ccon) - e1:SetValue(1) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CHANGE_DAMAGE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCost(c100000362.cost1) - e2:SetValue(c100000362.damval) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CHANGE_DAMAGE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetTargetRange(0,1) - e3:SetCost(c100000362.cost2) - e3:SetValue(c100000362.damval) - c:RegisterEffect(e3) -end -function c100000362.filter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) -end -function c100000362.ccon(e) - return Duel.IsExistingMatchingCard(c100000362.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) -end -function c100000362.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,nil,1,nil) end - local g=Duel.SelectReleaseGroup(tp,nil,1,1,nil) - Duel.Release(g,REASON_EFFECT) -end -function c100000362.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(1-tp,nil,1,nil) end - local g=Duel.SelectReleaseGroup(1-tp,nil,1,1,nil) - Duel.Release(g,REASON_EFFECT) -end -function c100000362.damval(e,re,val,r,rp,rc) - if bit.band(r,REASON_EFFECT)~=0 then return 0 - else return val end -end diff --git a/script/c100000363.lua b/script/c100000363.lua deleted file mode 100644 index 62963da1..00000000 --- a/script/c100000363.lua +++ /dev/null @@ -1,30 +0,0 @@ ---シャイニング・ブリッジ -function c100000363.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000363.target) - e1:SetOperation(c100000363.activate) - c:RegisterEffect(e1) -end -function c100000363.filter(c) - return c:IsFaceup() and c:IsAttackBelow(1000) and c:IsSetCard(0x311) -end -function c100000363.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000363.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000363.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100000363.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100000363.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DIRECT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end diff --git a/script/c100000365.lua b/script/c100000365.lua deleted file mode 100644 index 68d7a8c0..00000000 --- a/script/c100000365.lua +++ /dev/null @@ -1,85 +0,0 @@ ---マスク·チェンジ -function c100000365.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000365.target) - e1:SetOperation(c100000365.activate) - c:RegisterEffect(e1) -end -function c100000365.tffilter(c) - local code=c:GetCode() - return c:IsAbleToRemove() - and (code==32491822 or code==69890967 or code==6007213) -end -function c100000365.tfilter(c,e,tp) - return c:IsCode(43378048) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000365.filter(c,code) - return c:IsCode(code) and c:IsAbleToRemove() -end -function c100000365.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000365.filter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,nil,6007213) - and Duel.IsExistingMatchingCard(c100000365.filter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,nil,32491822) - and Duel.IsExistingMatchingCard(c100000365.filter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,nil,69890967) - and Duel.IsExistingMatchingCard(c100000365.tfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end -end -function c100000365.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100000365.tffilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g1=sg:Select(tp,1,1,nil) - sg:Remove(Card.IsCode,nil,g1:GetFirst():GetCode()) - local ft=2 - local g2=nil - while ft>0 do - g2=sg:Select(tp,1,1,nil) - g1:Merge(g2) - sg:Remove(Card.IsCode,nil,g2:GetFirst():GetCode()) - ft=ft-1 - end - Duel.Remove(g1,POS_FACEUP,REASON_EFFECT) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end - local sg=Duel.SelectMatchingCard(tp,c100000365.tfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - if sg:GetCount()>0 then - Duel.BreakEffect() - Duel.SpecialSummon(sg,0,tp,tp,true,false,POS_FACEUP) - local tc=sg:GetFirst() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetDescription(aux.Stringid(100000365,0)) - e1:SetCategory(CATEGORY_CONTROL) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetOperation(c100000365.copyop) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetDescription(aux.Stringid(100000365,1)) - e2:SetCategory(CATEGORY_REMOVE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c100000365.destg) - e2:SetOperation(c100000365.desop) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - end -end -function c100000365.copyop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not Duel.GetControl(c,1-tp,PHASE_END,1) and not c:IsImmuneToEffect(e) and c:IsAbleToChangeControler() then - Duel.Destroy(c,REASON_EFFECT) - end -end -function c100000365.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0) -end -function c100000365.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - Duel.Remove(g,POS_FACEUP,REASON_EFFECT) -end diff --git a/script/c100000370.lua b/script/c100000370.lua deleted file mode 100644 index 2b4a6fa9..00000000 --- a/script/c100000370.lua +++ /dev/null @@ -1,101 +0,0 @@ ---王家之劍 -function c100000370.initial_effect(c) - c:EnableCounterPermit(0x95) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000370.target) - e1:SetOperation(c100000370.operation) - c:RegisterEffect(e1) - --Atk up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetValue(c100000370.value) - c:RegisterEffect(e2) - --Equip limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EQUIP_LIMIT) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetValue(c100000370.eqfilter) - c:RegisterEffect(e3) - --DAMAGE - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DAMAGE) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_SZONE) - e4:SetCost(c100000370.dacost) - e4:SetOperation(c100000370.daop) - c:RegisterEffect(e4) - --add - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e5:SetCode(EVENT_ATTACK_ANNOUNCE) - e5:SetRange(LOCATION_SZONE) - e5:SetCountLimit(1) - e5:SetCondition(c100000370.drcon) - e5:SetOperation(c100000370.drop) - c:RegisterEffect(e5) -end -function c100000370.eqfilter(e,c) - return c:IsCode(6614221) -end -function c100000370.filter(c) - return c:IsFaceup() and c:IsCode(6614221) -end -function c100000370.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100000370.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000370.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c100000370.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000370.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end -function c100000370.value(e,c) - return e:GetHandler():GetCounter(0x95)*800 -end -function c100000370.dacost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsAbleToGraveAsCost() and c:GetControler()==c:GetEquipTarget():GetControler() - and c:GetEquipTarget():IsAbleToGraveAsCost() and e:GetHandler():GetCounter(0x95)>3 end - local g=Group.FromCards(c,c:GetEquipTarget()) - Duel.SendtoGrave(g,REASON_COST) -end -function c100000370.daop(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(1-tp,4000,REASON_EFFECT) -end -function c100000370.drcon(e,tp,eg,ep,ev,re,r,rp) - local ec=e:GetHandler():GetEquipTarget() - return ec and (ec==Duel.GetAttacker() or ec==Duel.GetAttackTarget()) -end -function c100000370.drop(e,tp,eg,ep,ev,re,r,rp) - local e6=Effect.CreateEffect(e:GetHandler()) - e6:SetCategory(CATEGORY_COUNTER) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetCode(EVENT_PHASE+PHASE_BATTLE) - e6:SetRange(LOCATION_SZONE) - e6:SetCountLimit(1) - e6:SetTarget(c100000370.actg) - e6:SetOperation(c100000370.acop) - e6:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e6) -end -function c100000370.actg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanAddCounter(0x95,1) end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x95) -end -function c100000370.acop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c and c:IsFaceup() and c:IsRelateToEffect(e) then - c:AddCounter(0x95,1) - end -end diff --git a/script/c100000371.lua b/script/c100000371.lua deleted file mode 100644 index 7cfe753c..00000000 --- a/script/c100000371.lua +++ /dev/null @@ -1,50 +0,0 @@ ---クレスト・バーン -function c100000371.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_LEAVE_FIELD) - e1:SetCondition(c100000371.condition) - e1:SetOperation(c100000371.activate) - c:RegisterEffect(e1) -end -function c100000371.cfilter(c,e,tp) - local ct=c:GetCounter(0x95) - if c:IsCode(100000370) then - e:SetLabel(ct) end - return c:IsPreviousPosition(POS_FACEUP) and c:IsReason(REASON_DESTROY) and c:GetControler()==tp - and c:GetCounter(0x95)>0 and c:IsLocation(LOCATION_GRAVE) and c:IsCode(100000370) -end -function c100000371.condition(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return eg:IsExists(c100000371.cfilter,1,nil,e,tp) - and tc~=nil and tc:IsFaceup() and tc:GetCode()==111215001 -end -function c100000371.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if tc~=nil then return end - local c=Duel.GetLocationCount(tp,LOCATION_MZONE) - if c==0 then return end - local ct=e:GetLabel() - if c<=ct then ct=c end - local e1=Effect.CreateEffect(tc) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_DISABLE_FIELD) - e1:SetRange(LOCATION_SZONE) - e1:SetOperation(c100000371.disop) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - tc:RegisterFlagEffect(tp,111215001,RESET_EVENT+0x1fe0000,0,ct) -end -function c100000371.disop(e,tp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if tc~=nil then return end - local c=Duel.GetLocationCount(tp,LOCATION_MZONE) - if c==0 then return end - local ct=e:GetLabel() - if c<=ct then ct=c end - local dis1=Duel.SelectDisableField(tp,ct,LOCATION_MZONE,0,0) - return dis1 -end - diff --git a/script/c100000380.lua b/script/c100000380.lua deleted file mode 100644 index 29c775fc..00000000 --- a/script/c100000380.lua +++ /dev/null @@ -1,95 +0,0 @@ ---マグマオーシャン -function c100000380.initial_effect(c) - --Activate(summon) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetRange(LOCATION_SZONE) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c100000380.target) - e1:SetOperation(c100000380.activate) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - e2:SetTarget(c100000380.target) - e2:SetOperation(c100000380.activate) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetTarget(c100000380.target) - e3:SetOperation(c100000380.activate) - c:RegisterEffect(e3) - --activation - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_PLAYER_TARGET) - e4:SetCode(EFFECT_CANNOT_ACTIVATE) - e4:SetRange(LOCATION_SZONE) - e4:SetTargetRange(1,1) - e4:SetValue(c100000380.aclimit) - Duel.RegisterEffect(e4,tp) - --unaffectable - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e6:SetRange(LOCATION_SZONE) - e6:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e6:SetValue(1) - c:RegisterEffect(e6) - --cannot set - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_FIELD) - e7:SetCode(EFFECT_CANNOT_SSET) - e7:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e7:SetRange(LOCATION_SZONE) - e7:SetTargetRange(1,1) - e7:SetTarget(c100000380.aclimit2) - c:RegisterEffect(e7) - -- - local eb=Effect.CreateEffect(c) - eb:SetType(EFFECT_TYPE_FIELD) - eb:SetCode(EFFECT_CANNOT_TO_DECK) - eb:SetRange(LOCATION_SZONE) - eb:SetTargetRange(LOCATION_SZONE,0) - eb:SetTarget(c100000380.tgn) - c:RegisterEffect(eb) - local ec=eb:Clone() - ec:SetCode(EFFECT_CANNOT_TO_HAND) - c:RegisterEffect(ec) - local ed=eb:Clone() - ed:SetCode(EFFECT_CANNOT_TO_GRAVE) - c:RegisterEffect(ed) - local ee=eb:Clone() - ee:SetCode(EFFECT_CANNOT_REMOVE) - c:RegisterEffect(ee) -end -function c100000380.filter(c) - return c:IsFaceup() and c:IsDestructable() and c:IsAttribute(ATTRIBUTE_WATER) -end -function c100000380.target(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=eg:GetFirst() - if chk==0 then return c100000380.filter(tc) and ep~=tp end - Duel.SetTargetCard(eg) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) -end -function c100000380.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsAttribute(ATTRIBUTE_WATER) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c100000380.aclimit(e,re) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and re:GetHandler():IsType(TYPE_FIELD) -end -function c100000380.aclimit2(e,c) - return c:IsType(TYPE_FIELD) -end -function c100000380.tgn(e,c) - return c==e:GetHandler() -end diff --git a/script/c100000381.lua b/script/c100000381.lua deleted file mode 100644 index 9a98f0b3..00000000 --- a/script/c100000381.lua +++ /dev/null @@ -1,115 +0,0 @@ ---ジャングルフィールド -function c100000381.initial_effect(c) - --activation - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_PLAYER_TARGET) - e4:SetCode(EFFECT_CANNOT_ACTIVATE) - e4:SetRange(LOCATION_SZONE) - e4:SetTargetRange(1,1) - e4:SetValue(c100000381.aclimit) - Duel.RegisterEffect(e4,tp) - --damage - local e5=Effect.CreateEffect(c) - e5:SetCategory(CATEGORY_DAMAGE) - e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_REPEAT) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e5:SetRange(LOCATION_SZONE) - e5:SetCountLimit(1) - e5:SetCode(EVENT_PHASE+PHASE_END) - e5:SetTarget(c100000381.damtg) - e5:SetOperation(c100000381.damop) - c:RegisterEffect(e5) - --unaffectable - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e6:SetRange(LOCATION_SZONE) - e6:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e6:SetValue(1) - c:RegisterEffect(e6) - --cannot set - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_FIELD) - e7:SetCode(EFFECT_CANNOT_SSET) - e7:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e7:SetRange(LOCATION_SZONE) - e7:SetTargetRange(1,1) - e7:SetTarget(c100000381.aclimit2) - c:RegisterEffect(e7) - -- - local eb=Effect.CreateEffect(c) - eb:SetType(EFFECT_TYPE_FIELD) - eb:SetCode(EFFECT_CANNOT_TO_DECK) - eb:SetRange(LOCATION_SZONE) - eb:SetTargetRange(LOCATION_SZONE,0) - eb:SetTarget(c100000381.tgn) - c:RegisterEffect(eb) - local ec=eb:Clone() - ec:SetCode(EFFECT_CANNOT_TO_HAND) - c:RegisterEffect(ec) - local ed=eb:Clone() - ed:SetCode(EFFECT_CANNOT_TO_GRAVE) - c:RegisterEffect(ed) - local ee=eb:Clone() - ee:SetCode(EFFECT_CANNOT_REMOVE) - c:RegisterEffect(ee) - if not c100000381.global_check then - c100000381.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_MSET) - ge1:SetOperation(c100000381.checkop) - Duel.RegisterEffect(ge1,0) - local ge2=Effect.CreateEffect(c) - ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge2:SetCode(EVENT_SPSUMMON_SUCCESS) - ge2:SetOperation(c100000381.checkop) - Duel.RegisterEffect(ge2,0) - local ge3=Effect.CreateEffect(c) - ge3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge3:SetCode(EVENT_SUMMON_SUCCESS) - ge3:SetOperation(c100000381.checkop) - Duel.RegisterEffect(ge3,0) - local ge4=Effect.CreateEffect(c) - ge4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge4:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - ge4:SetOperation(c100000381.checkop) - Duel.RegisterEffect(ge4,0) - end -end -function c100000381.checkop(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - local p1=false - local p2=false - while tc do - if tc:GetSummonPlayer()==0 then p1=true else p2=true end - tc=eg:GetNext() - end - if p1 then Duel.RegisterFlagEffect(0,100000381,RESET_PHASE+PHASE_END,0,1) end - if p2 then Duel.RegisterFlagEffect(1,100000381,RESET_PHASE+PHASE_END,0,1) end -end -function c100000381.clear(e,tp,eg,ep,ev,re,r,rp) - c100000381[0]=true - c100000381[1]=true -end -function c100000381.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,100000381)==0 and ep==tp end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,1000) -end -function c100000381.damop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c100000381.aclimit(e,re) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and re:GetHandler():IsType(TYPE_FIELD) -end -function c100000381.aclimit2(e,c) - return c:IsType(TYPE_FIELD) -end -function c100000381.tgn(e,c) - return c==e:GetHandler() -end diff --git a/script/c100000382.lua b/script/c100000382.lua deleted file mode 100644 index ac683b2e..00000000 --- a/script/c100000382.lua +++ /dev/null @@ -1,80 +0,0 @@ ---コズミック・フロンティア -function c100000382.initial_effect(c) - --damage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DRAW) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000382.condition) - e2:SetTarget(c100000382.target) - e2:SetOperation(c100000382.operation) - c:RegisterEffect(e2) - --activation - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_PLAYER_TARGET) - e4:SetCode(EFFECT_CANNOT_ACTIVATE) - e4:SetRange(LOCATION_SZONE) - e4:SetTargetRange(1,1) - e4:SetValue(c100000382.aclimit) - Duel.RegisterEffect(e4,tp) - --unaffectable - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e6:SetRange(LOCATION_SZONE) - e6:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e6:SetValue(1) - c:RegisterEffect(e6) - --cannot set - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_FIELD) - e7:SetCode(EFFECT_CANNOT_SSET) - e7:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e7:SetRange(LOCATION_SZONE) - e7:SetTargetRange(1,1) - e7:SetTarget(c100000382.aclimit2) - c:RegisterEffect(e7) - -- - local eb=Effect.CreateEffect(c) - eb:SetType(EFFECT_TYPE_FIELD) - eb:SetCode(EFFECT_CANNOT_TO_DECK) - eb:SetRange(LOCATION_SZONE) - eb:SetTargetRange(LOCATION_SZONE,0) - eb:SetTarget(c100000382.tgn) - c:RegisterEffect(eb) - local ec=eb:Clone() - ec:SetCode(EFFECT_CANNOT_TO_HAND) - c:RegisterEffect(ec) - local ed=eb:Clone() - ed:SetCode(EFFECT_CANNOT_TO_GRAVE) - c:RegisterEffect(ed) - local ee=eb:Clone() - ee:SetCode(EFFECT_CANNOT_REMOVE) - c:RegisterEffect(ee) -end -function c100000382.condition(e,tp,eg,ep,ev,re,r,rp) - local tg=eg:GetFirst() - return tg:GetSummonType()==SUMMON_TYPE_XYZ and tg:IsControler(tp) -end -function c100000382.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c100000382.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end -function c100000382.aclimit(e,re) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and re:GetHandler():IsType(TYPE_FIELD) -end -function c100000382.aclimit2(e,c) - return c:IsType(TYPE_FIELD) -end -function c100000382.tgn(e,c) - return c==e:GetHandler() -end \ No newline at end of file diff --git a/script/c100000383.lua b/script/c100000383.lua deleted file mode 100644 index f29c7620..00000000 --- a/script/c100000383.lua +++ /dev/null @@ -1,105 +0,0 @@ ---デンジャラス・キャニオン -function c100000383.initial_effect(c) - --Activate(summon) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_REPEAT) - e1:SetRange(LOCATION_SZONE) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c100000383.target) - e1:SetOperation(c100000383.activate) - c:RegisterEffect(e1) - --atk change - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_REPEAT) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_SZONE) - e2:SetTarget(c100000383.target2) - e2:SetOperation(c100000383.activate) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_REPEAT) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetTarget(c100000383.target) - e3:SetOperation(c100000383.activate) - c:RegisterEffect(e3) - --activation - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_PLAYER_TARGET) - e4:SetCode(EFFECT_CANNOT_ACTIVATE) - e4:SetRange(LOCATION_SZONE) - e4:SetTargetRange(1,1) - e4:SetValue(c100000383.aclimit) - Duel.RegisterEffect(e4,tp) - --unaffectable - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e6:SetRange(LOCATION_SZONE) - e6:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e6:SetValue(1) - c:RegisterEffect(e6) - --cannot set - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_FIELD) - e7:SetCode(EFFECT_CANNOT_SSET) - e7:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e7:SetRange(LOCATION_SZONE) - e7:SetTargetRange(1,1) - e7:SetTarget(c100000383.aclimit2) - c:RegisterEffect(e7) - -- - local eb=Effect.CreateEffect(c) - eb:SetType(EFFECT_TYPE_FIELD) - eb:SetCode(EFFECT_CANNOT_TO_DECK) - eb:SetRange(LOCATION_SZONE) - eb:SetTargetRange(LOCATION_SZONE,0) - eb:SetTarget(c100000383.tgn) - c:RegisterEffect(eb) - local ec=eb:Clone() - ec:SetCode(EFFECT_CANNOT_TO_HAND) - c:RegisterEffect(ec) - local ed=eb:Clone() - ed:SetCode(EFFECT_CANNOT_TO_GRAVE) - c:RegisterEffect(ed) - local ee=eb:Clone() - ee:SetCode(EFFECT_CANNOT_REMOVE) - c:RegisterEffect(ee) -end -function c100000383.filter(c) - return c:IsPosition(POS_FACEUP_ATTACK) -end -function c100000383.target(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=eg:GetFirst() - if chk==0 then return c100000383.filter(tc) and ep==tp end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(200) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,200) -end -function c100000383.activate(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c100000383.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return ep==tp end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(200) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,200) -end -function c100000383.aclimit(e,re) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and re:GetHandler():IsType(TYPE_FIELD) -end -function c100000383.aclimit2(e,c) - return c:IsType(TYPE_FIELD) -end -function c100000383.tgn(e,c) - return c==e:GetHandler() -end \ No newline at end of file diff --git a/script/c100000384.lua b/script/c100000384.lua deleted file mode 100644 index dec357eb..00000000 --- a/script/c100000384.lua +++ /dev/null @@ -1,133 +0,0 @@ ---夕日の決闘場 -function c100000384.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetRange(LOCATION_SZONE) - e1:SetCode(EVENT_PHASE_START+PHASE_BATTLE) - e1:SetCountLimit(1) - e1:SetCondition(c100000384.condition) - e1:SetTarget(c100000384.target) - e1:SetOperation(c100000384.activate) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCondition(c100000384.reccon) - e2:SetTarget(c100000384.rectg) - e2:SetOperation(c100000384.recop) - c:RegisterEffect(e2) - --cannot direct attack - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - c:RegisterEffect(e3) - --activation - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_PLAYER_TARGET) - e4:SetCode(EFFECT_CANNOT_ACTIVATE) - e4:SetRange(LOCATION_SZONE) - e4:SetTargetRange(1,1) - e4:SetValue(c100000384.aclimit) - Duel.RegisterEffect(e4,tp) - --unaffectable - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e6:SetRange(LOCATION_SZONE) - e6:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e6:SetValue(1) - c:RegisterEffect(e6) - --cannot set - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_FIELD) - e7:SetCode(EFFECT_CANNOT_SSET) - e7:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e7:SetRange(LOCATION_SZONE) - e7:SetTargetRange(1,1) - e7:SetTarget(c100000384.aclimit2) - c:RegisterEffect(e7) - -- - local eb=Effect.CreateEffect(c) - eb:SetType(EFFECT_TYPE_FIELD) - eb:SetCode(EFFECT_CANNOT_TO_DECK) - eb:SetRange(LOCATION_SZONE) - eb:SetTargetRange(LOCATION_SZONE,0) - eb:SetTarget(c100000384.tgn) - c:RegisterEffect(eb) - local ec=eb:Clone() - ec:SetCode(EFFECT_CANNOT_TO_HAND) - c:RegisterEffect(ec) - local ed=eb:Clone() - ed:SetCode(EFFECT_CANNOT_TO_GRAVE) - c:RegisterEffect(ed) - local ee=eb:Clone() - ee:SetCode(EFFECT_CANNOT_REMOVE) - c:RegisterEffect(ee) -end -function c100000384.condition(e,tp,eg,ep,ev,re,r,rp,chk) - return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>1 or Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>1 -end -function c100000384.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return (Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) - or Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,0,1,nil)) and Duel.GetTurnPlayer()==tp end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100000384.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - local tc=nil - if sg:FilterCount(Card.IsControler,nil,tp)>0 then - if sg:FilterCount(Card.IsControler,nil,tp)>1 then - tc=sg:FilterSelect(tp,Card.IsControler,1,1,nil,tp) - else - tc=sg:Filter(Card.IsControler,nil,tp) - end - sg:RemoveCard(tc:GetFirst()) - end - if sg:FilterCount(Card.IsControler,nil,1-tp)>0 then - if sg:FilterCount(Card.IsControler,nil,1-tp)>1 then - tc=sg:FilterSelect(1-tp,Card.IsControler,1,1,nil,1-tp) - else - tc=sg:Filter(Card.IsControler,nil,1-tp) - end - sg:RemoveCard(tc:GetFirst()) - end - Duel.Destroy(sg,REASON_EFFECT) -end -function c100000384.reccon(e,tp,eg,ep,ev,re,r,rp) - local rc=eg:GetFirst() - return rc:IsRelateToBattle() and rc:IsFaceup() -end -function c100000384.rectg(e,tp,eg,ep,ev,re,r,rp,chk) - local atk=Duel.GetAttacker():GetBaseAttack() - if chk==0 then return atk>0 and ep==tp end - local tc=eg:GetFirst():GetBattleTarget() - if not tc:IsFaceup() then - tc=eg:GetNext():GetBattleTarget() - end - Duel.SetTargetPlayer(tc:GetPreviousControler()) - Duel.SetTargetParam(300) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tc:GetPreviousControler(),300) -end -function c100000384.recop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c100000384.aclimit(e,re) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and re:GetHandler():IsType(TYPE_FIELD) -end -function c100000384.aclimit2(e,c) - return c:IsType(TYPE_FIELD) -end -function c100000384.tgn(e,c) - return c==e:GetHandler() -end diff --git a/script/c100000390.lua b/script/c100000390.lua deleted file mode 100644 index 138d19d5..00000000 --- a/script/c100000390.lua +++ /dev/null @@ -1,69 +0,0 @@ ---超機合体 -function c100000390.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000390.target) - e1:SetOperation(c100000390.activate) - c:RegisterEffect(e1) -end -function c100000390.filter1(c,e) - return c:IsCanBeFusionMaterial() and c:IsSetCard(0x16) and c:IsAbleToRemove() and not c:IsImmuneToEffect(e) -end -function c100000390.filter2(c,e,tp,m,f,chkf) - return c:IsType(TYPE_FUSION) and (not f or f(c)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) -end -function c100000390.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000390.filter1,tp,LOCATION_GRAVE,0,nil,e) - local res=Duel.IsExistingMatchingCard(c100000390.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - res=Duel.IsExistingMatchingCard(c100000390.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000390.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000390.filter1,tp,LOCATION_GRAVE,0,nil,e) - local sg1=Duel.GetMatchingGroup(c100000390.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - sg2=Duel.GetMatchingGroup(c100000390.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end \ No newline at end of file diff --git a/script/c100000391.lua b/script/c100000391.lua deleted file mode 100644 index 6cea3259..00000000 --- a/script/c100000391.lua +++ /dev/null @@ -1,31 +0,0 @@ ---援軍出撃 -function c100000391.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_BE_BATTLE_TARGET) - e1:SetCondition(c100000391.condition) - e1:SetTarget(c100000391.target) - e1:SetOperation(c100000391.activate) - c:RegisterEffect(e1) -end -function c100000391.condition(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - return tc:IsControler(tp) and tc:IsFaceup() and tc:IsSetCard(0x16) -end -function c100000391.filter(c) - return c:IsSetCard(0x16) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c100000391.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000391.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c100000391.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c100000391.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c10000040.lua b/script/c10000040.lua old mode 100755 new mode 100644 index facde339..dda68240 --- a/script/c10000040.lua +++ b/script/c10000040.lua @@ -22,6 +22,13 @@ function c10000040.initial_effect(c) e3:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON) e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) c:RegisterEffect(e3) + --win + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e4:SetCode(EVENT_SPSUMMON_SUCCESS) + e4:SetOperation(c10000040.winop) + c:RegisterEffect(e4) end function c10000040.spfilter(c,code) local code1,code2=c:GetOriginalCodeRule() @@ -42,6 +49,9 @@ function c10000040.spop(e,tp,eg,ep,ev,re,r,rp,c) g1:Merge(g2) g1:Merge(g3) Duel.Release(g1,REASON_COST) - local WIN_REASON_CREATORGOD = 0x13 - Duel.Win(tp,WIN_REASON_CREATORGOD) +end +function c10000040.winop(e,tp,eg,ep,ev,re,r,rp) + local WIN_REASON_CREATORGOD=0x13 + local p=e:GetHandler():GetSummonPlayer() + Duel.Win(p,WIN_REASON_CREATORGOD) end diff --git a/script/c100000400.lua b/script/c100000400.lua deleted file mode 100644 index ace63b03..00000000 --- a/script/c100000400.lua +++ /dev/null @@ -1,147 +0,0 @@ ---ＲＵＭ－バリアンズ・フォース -function c100000400.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000400.target) - e1:SetOperation(c100000400.activate) - c:RegisterEffect(e1) -end -function c100000400.filter(c,e,tp) - local rank=c:GetRank() - return c:IsFaceup() and c:IsType(TYPE_XYZ) - and Duel.IsExistingMatchingCard(c100000400.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,rank,e,tp,c:GetCode()) -end -function c100000400.xyzfilter(c,rank,e,tp,code) - if c:IsCode(6165656) and code~=48995978 then return false end - return c:GetRank()==rank+1 and (c:IsSetCard(0x1048) or c:IsSetCard(0x1073)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,true,false) -end -function c100000400.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100000400.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000400.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c100000400.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000400.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local sg=Group.CreateGroup() - if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end - local rank=tc:GetRank() - sg:AddCard(tc) - local xyzg=Duel.GetMatchingGroup(c100000400.xyzfilter,tp,LOCATION_EXTRA,0,nil,rank,e,tp,tc:GetCode()) - if xyzg:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local xyz=xyzg:Select(tp,1,1,nil):GetFirst() - local mg=tc:GetOverlayGroup() - xyz:SetMaterial(sg) - Duel.BreakEffect() - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetLabelObject(xyz) - e3:SetCondition(c100000400.spcon) - e3:SetTarget(c100000400.sptg) - e3:SetOperation(c100000400.spop) - e3:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e3,tp) - if mg:GetCount()~=0 then - Duel.Overlay(xyz,mg) - end - Duel.Overlay(xyz,sg) - Duel.SpecialSummonStep(xyz,SUMMON_TYPE_XYZ,tp,tp,true,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetProperty(EFFECT_FLAG_INITIAL) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_BATTLED) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c100000400.con) - e1:SetOperation(c100000400.op) - e1:SetReset(RESET_EVENT+0x1fe0000) - xyz:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetOperation(c100000400.oop) - e2:SetReset(RESET_EVENT+0x1fe0000) - xyz:RegisterEffect(e2) - xyz:RegisterFlagEffect(100000400,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - Duel.SpecialSummonComplete() - xyz:CompleteProcedure() - end -end -function c100000400.cfilter(c,tp,tc) - return c:IsFaceup() and c:IsControler(tp) and c==tc and c:GetFlagEffect(100000400)~=0 -end -function c100000400.spcon(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - return eg:IsExists(c100000400.cfilter,1,nil,tp,tc) -end -function c100000400.overfilter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) -end -function c100000400.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingTarget(c100000400.overfilter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c100000400.overfilter,tp,0,LOCATION_MZONE,1,1,nil) -end -function c100000400.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local xyz=e:GetLabelObject() - if not tc or not tc:IsRelateToEffect(e) or not tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) - or xyz:GetLocation()~=LOCATION_MZONE then return end - local desmg=tc:GetOverlayGroup() - if desmg:GetCount()~=0 then - Duel.Overlay(xyz,desmg) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-desmg:GetCount()*300) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end -function c100000400.con(e) - local c=e:GetHandler() - local atk=c:GetAttack() - local bc=c:GetBattleTarget() - if not bc then return end - local bct=0 - if bc:GetPosition()==POS_FACEUP_ATTACK then - bct=bc:GetAttack() - else bct=bc:GetDefence()+1 end - return c:IsRelateToBattle() and c:GetPosition()==POS_FACEUP_ATTACK - and atk>=bct and not bc:IsStatus(STATUS_BATTLE_DESTROYED) -end -function c100000400.op(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetHandler():GetBattleTarget() - Duel.Destroy(bc,REASON_BATTLE) - bc:SetStatus(STATUS_BATTLE_DESTROYED,true) -end -function c100000400.oop(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetHandler():GetBattleTarget() - if bc then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000) - bc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_STEP_END) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetOperation(c100000400.resetop) - e2:SetLabelObject(e1) - bc:RegisterEffect(e2) - end -end -function c100000400.resetop(e,tp,eg,ep,ev,re,r,rp) - e:GetLabelObject():Reset() - e:Reset() -end \ No newline at end of file diff --git a/script/c100000410.lua b/script/c100000410.lua deleted file mode 100644 index 4d4b8285..00000000 --- a/script/c100000410.lua +++ /dev/null @@ -1,32 +0,0 @@ ---薔薇の聖騎士 -function c100000410.initial_effect(c) - --damage - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetCode(EVENT_BATTLE_DESTROYING) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCost(c100000410.cost) - e1:SetTarget(c100000410.damtg) - e1:SetOperation(c100000410.damop) - c:RegisterEffect(e1) -end -function c100000410.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c100000410.filter(c,e,tp) - return c:IsSetCard(0x312) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000410.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000410.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000410.damop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000410.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 diff --git a/script/c100000411.lua b/script/c100000411.lua deleted file mode 100644 index 2f54e5ba..00000000 --- a/script/c100000411.lua +++ /dev/null @@ -1,26 +0,0 @@ ---天啓の薔薇の鐘 -function c100000411.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000411.target) - e1:SetOperation(c100000411.activate) - c:RegisterEffect(e1) -end -function c100000411.filter(c) - return c:IsSetCard(0x313) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c100000411.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000411.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c100000411.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c100000411.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c100000412.lua b/script/c100000412.lua deleted file mode 100644 index f31e2b6b..00000000 --- a/script/c100000412.lua +++ /dev/null @@ -1,36 +0,0 @@ ---白薔薇の回廊 -function c100000412.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000412,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_BOTH_SIDE) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_SZONE) - e2:SetTarget(c100000412.target) - e2:SetOperation(c100000412.operation) - c:RegisterEffect(e2) -end -function c100000412.filter(c,e,sp) - return c:IsSetCard(0x312) and c:IsCanBeSpecialSummoned(e,0,sp,false,false) -end -function c100000412.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000412.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000412.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000412.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 diff --git a/script/c100000413.lua b/script/c100000413.lua deleted file mode 100644 index b1cc0371..00000000 --- a/script/c100000413.lua +++ /dev/null @@ -1,36 +0,0 @@ ---薔薇障壁大旋風 -function c100000413.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_ATTACK) - e1:SetCost(c100000413.cost) - e1:SetTarget(c100000413.target) - e1:SetOperation(c100000413.activate) - c:RegisterEffect(e1) -end -function c100000413.cosfilter(c) - return c:IsSetCard(0x312)and c:IsAbleToRemoveAsCost() -end -function c100000413.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000413.cosfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c100000413.cosfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c100000413.filter(c) - return c:IsAttackPos() and c:IsDestructable() -end -function c100000413.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000413.filter,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(c100000413.filter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c100000413.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100000413.filter,tp,0,LOCATION_MZONE,nil) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end -end diff --git a/script/c100000414.lua b/script/c100000414.lua deleted file mode 100644 index 958e0a60..00000000 --- a/script/c100000414.lua +++ /dev/null @@ -1,52 +0,0 @@ ---ローズ・フレイム -function c100000414.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Activate - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000414,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c100000414.rectg1) - e2:SetOperation(c100000414.recop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(100000414,0)) - e4:SetCategory(CATEGORY_DAMAGE) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e4:SetRange(LOCATION_SZONE) - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - e4:SetTarget(c100000414.rectg2) - e4:SetOperation(c100000414.recop) - c:RegisterEffect(e4) -end -function c100000414.rectg1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return rp~=tp and eg:GetFirst():IsRace(RACE_PLANT) end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(500) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) -end -function c100000414.recop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c100000414.filter(c,e,tp) - return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:GetSummonPlayer()==1-tp - and c:IsRace(RACE_PLANT) and not e -end -function c100000414.rectg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c100000414.filter,1,nil,nil,tp) end - local g=eg:Filter(c100000414.filter,nil,nil,tp) - local dam=g:GetCount()*500 - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end diff --git a/script/c100000430.lua b/script/c100000430.lua deleted file mode 100644 index c76842f9..00000000 --- a/script/c100000430.lua +++ /dev/null @@ -1,41 +0,0 @@ ---地縛解放 -function c100000430.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCost(c100000430.cost) - e1:SetTarget(c100000430.target) - e1:SetOperation(c100000430.activate) - c:RegisterEffect(e1) -end -function c100000430.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x21) end - local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x21) - Duel.Release(g,REASON_COST) -end -function c100000430.filter(c,e) - return c:IsFaceup() and c:IsLevelAbove(6) -end -function c100000430.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return eg:IsContains(chkc) end - if chk==0 then return eg:IsExists(c100000430.filter,1,nil,e) - and Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,nil,0,0) -end -function c100000430.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - local tc=sg:GetFirst() - local atk=0 - while tc do - local oatk=tc:GetAttack() - if oatk<0 then oatk=0 end - atk=atk+oatk - tc=sg:GetNext() - end - Duel.Destroy(sg,REASON_EFFECT) - if atk~=0 then - Duel.Damage(1-tp,atk,REASON_EFFECT) - end -end diff --git a/script/c100000431.lua b/script/c100000431.lua deleted file mode 100644 index f4415341..00000000 --- a/script/c100000431.lua +++ /dev/null @@ -1,32 +0,0 @@ ---バイ＝マーセの癇癪 -function c100000431.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c100000431.condition) - e1:SetTarget(c100000431.target) - e1:SetOperation(c100000431.activate) - c:RegisterEffect(e1) -end -function c100000431.cfilter(c) - return c:IsPosition(POS_FACEUP) and c:IsSetCard(0x21) -end -function c100000431.condition(e,tp,eg,ep,ev,re,r,rp) - if ep==tp or not Duel.IsExistingMatchingCard(c100000431.cfilter,tp,LOCATION_MZONE,0,1,nil) then return false end - return Duel.IsChainNegatable(ev) and re:IsActiveType(TYPE_MONSTER) -end -function c100000431.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c100000431.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end diff --git a/script/c100000432.lua b/script/c100000432.lua deleted file mode 100644 index 5c5839df..00000000 --- a/script/c100000432.lua +++ /dev/null @@ -1,58 +0,0 @@ ---縛られし神への祭壇 -function c100000432.initial_effect(c) - c:EnableCounterPermit(0x94) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --add counter - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_COUNTER) - e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetCountLimit(1) - e2:SetProperty(EFFECT_FLAG_REPEAT) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000432.condition) - e2:SetOperation(c100000432.ctop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_SZONE) - e3:SetCost(c100000432.cost) - e3:SetTarget(c100000432.target) - e3:SetOperation(c100000432.op) - c:RegisterEffect(e3) -end -function c100000432.condition(e,tp,eg,ep,ev,re,r,rp,chk) - return ep==tp and Duel.IsExistingMatchingCard(Card.IsPosition,tp,LOCATION_MZONE,0,1,nil,POS_FACEUP_DEFENCE) -end -function c100000432.ctop(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroupCount(Card.IsPosition,tp,LOCATION_MZONE,0,nil,POS_FACEUP_DEFENCE) - if sg==0 then return false end - e:GetHandler():AddCounter(0x94,sg) -end -function c100000432.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() and e:GetHandler():GetCounter(0x94)>3 end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c100000432.filter(c,e,tp) - return c:IsSetCard(0x21) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000432.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000432.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000432.op(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000432.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end - end -end diff --git a/script/c100000440.lua b/script/c100000440.lua deleted file mode 100644 index 8b09919b..00000000 --- a/script/c100000440.lua +++ /dev/null @@ -1,40 +0,0 @@ ---ワイズＡ３ -function c100000440.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000440.target) - e1:SetOperation(c100000440.activate) - c:RegisterEffect(e1) -end -function c100000440.cfilter(c,e,tp) - return c:IsAbleToGraveAsCost() and (c:IsCode(100000052) or c:IsCode(100000048) or c:IsCode(100000309)) - and Duel.IsExistingMatchingCard(c100000440.spfilter,tp,0x13,0,1,nil,e,tp) -end -function c100000440.spfilter(c,e,tp) - return c:IsCode(100000048) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000440.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100000440.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000440.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - local tc=g:GetFirst() - Duel.SendtoGrave(tc,REASON_COST) - Duel.SetTargetCard(tc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13) -end -function c100000440.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000440.spfilter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000441.lua b/script/c100000441.lua deleted file mode 100644 index 28710bd9..00000000 --- a/script/c100000441.lua +++ /dev/null @@ -1,40 +0,0 @@ ---ワイズＧ３ -function c100000441.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000441.target) - e1:SetOperation(c100000441.activate) - c:RegisterEffect(e1) -end -function c100000441.cfilter(c,e,tp) - return c:IsAbleToGraveAsCost() and (c:IsCode(100000053) or c:IsCode(100000047)) - and Duel.IsExistingMatchingCard(c100000441.spfilter,tp,0x13,0,1,nil,e,tp) -end -function c100000441.spfilter(c,e,tp) - return c:IsCode(100000047) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000441.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100000441.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000441.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - local tc=g:GetFirst() - Duel.SendtoGrave(tc,REASON_COST) - Duel.SetTargetCard(tc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13) -end -function c100000441.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000441.spfilter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000442.lua b/script/c100000442.lua deleted file mode 100644 index d56b898b..00000000 --- a/script/c100000442.lua +++ /dev/null @@ -1,40 +0,0 @@ ---ワイズＴ３ -function c100000442.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000442.target) - e1:SetOperation(c100000442.activate) - c:RegisterEffect(e1) -end -function c100000442.cfilter(c,e,tp) - return c:IsAbleToGraveAsCost() and (c:IsCode(100000051) or c:IsCode(100000049)) - and Duel.IsExistingMatchingCard(c100000442.spfilter,tp,0x13,0,1,nil,e,tp) -end -function c100000442.spfilter(c,e,tp) - return c:IsCode(100000049) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000442.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100000442.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000442.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - local tc=g:GetFirst() - Duel.SendtoGrave(tc,REASON_COST) - Duel.SetTargetCard(tc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13) -end -function c100000442.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000442.spfilter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000444.lua b/script/c100000444.lua deleted file mode 100644 index ef5a78c4..00000000 --- a/script/c100000444.lua +++ /dev/null @@ -1,32 +0,0 @@ ---Ａキャノン -function c100000444.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_BATTLE_END) - e1:SetCondition(c100000444.atkcon) - e1:SetTarget(c100000444.target) - e1:SetOperation(c100000444.atkop) - c:RegisterEffect(e1) -end -function c100000444.atkcon(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local at=Duel.GetAttackTarget() - return ((a:GetControler()==tp and a:IsSetCard(0x3013)) or (at:GetControler()==tp and at:IsSetCard(0x3013))) and at:IsRelateToBattle() - and not at:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_BATTLE_DESTROYED) and not a:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_BATTLE_DESTROYED) -end -function c100000444.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - return Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_MZONE,0,1,nil,0x314) - and Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) - end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,0) -end -function c100000444.atkop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_MZONE,0,1,1,nil,0x314) - if Duel.SendtoGrave(g,REASON_EFFECT)>0 then - g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.Destroy(g,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100000445.lua b/script/c100000445.lua deleted file mode 100644 index fa4eaa23..00000000 --- a/script/c100000445.lua +++ /dev/null @@ -1,40 +0,0 @@ ---スカイＧ３ -function c100000445.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000445.target) - e1:SetOperation(c100000445.activate) - c:RegisterEffect(e1) -end -function c100000445.cfilter(c,e,tp) - return c:IsAbleToGraveAsCost() and (c:IsCode(100000058) or c:IsCode(100000045) or c:IsCode(100000043)) - and Duel.IsExistingMatchingCard(c100000445.spfilter,tp,0x13,0,1,nil,e,tp) -end -function c100000445.spfilter(c,e,tp) - return c:IsCode(100000045) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000445.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100000445.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000445.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - local tc=g:GetFirst() - Duel.SendtoGrave(tc,REASON_COST) - Duel.SetTargetCard(tc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13) -end -function c100000445.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000445.spfilter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000450.lua b/script/c100000450.lua deleted file mode 100644 index f45f965d..00000000 --- a/script/c100000450.lua +++ /dev/null @@ -1,51 +0,0 @@ ---ＣＸ 機装魔人エンジェネラル -function c100000450.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,4),3) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100000450.recon) - e1:SetOperation(c100000450.reop) - c:RegisterEffect(e1) -end -function c100000450.recon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,100000460) -end -function c100000450.reop(e,tp,eg,ep,ev,re,r,rp) - --damage - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_BATTLE_DAMAGE) - e2:SetCondition(c100000450.damcon) - e2:SetLabel(0) - e2:SetCost(c100000450.cost) - e2:SetTarget(c100000450.damtg) - e2:SetOperation(c100000450.damop) - e:GetHandler():RegisterEffect(e2) -end -function c100000450.damcon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c100000450.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=e:GetHandler():GetOverlayCount() - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,tc,REASON_COST) end - e:SetLabel(tc) - e:GetHandler():RemoveOverlayCard(tp,tc,tc,REASON_COST) -end -function c100000450.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local dam=e:GetLabel()*500 - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100000450.damop(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local dam=e:GetLabel()*500 - Duel.Damage(p,dam,REASON_EFFECT) -end diff --git a/script/c100000451.lua b/script/c100000451.lua deleted file mode 100644 index 6a5e0fc9..00000000 --- a/script/c100000451.lua +++ /dev/null @@ -1,86 +0,0 @@ ---ＣＸ 熱血指導神アルティメットレーナー -function c100000451.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,9),4) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100000451.recon) - e1:SetOperation(c100000451.reop) - c:RegisterEffect(e1) - --immune spell - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_IMMUNE_EFFECT) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c100000451.condition) - e3:SetValue(c100000451.efilter) - c:RegisterEffect(e3) -end -function c100000451.recon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,30741334) -end -function c100000451.reop(e,tp,eg,ep,ev,re,r,rp) - --damage - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetCategory(CATEGORY_DAMAGE+CATEGORY_DRAW) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetLabel(0) - e2:SetCost(c100000451.cost) - e2:SetTarget(c100000451.damtg) - e2:SetOperation(c100000451.damop) - e:GetHandler():RegisterEffect(e2) -end -function c100000451.condition(e) - return e:GetHandler():GetFlagEffect(100000451)==0 -end -function c100000451.efilter(e,te,r,rp) - if te:IsActiveType(TYPE_EFFECT) then - e:GetHandler():RegisterFlagEffect(100000451,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - end - return te:IsActiveType(TYPE_EFFECT) -end -function c100000451.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) - and Duel.IsPlayerCanDraw(1-tp,1) end - local t={} - local l=1 - while e:GetHandler():CheckRemoveOverlayCard(tp,l,REASON_COST) and Duel.IsPlayerCanDraw(1-tp,l) do - t[l]=l - l=l+1 - end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100000451,0)) - local announce=Duel.AnnounceNumber(tp,table.unpack(t)) - e:SetLabel(announce) - e:GetHandler():RemoveOverlayCard(tp,announce,announce,REASON_COST) -end -function c100000451.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local dam=e:GetLabel() - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,1-tp,dam) -end -function c100000451.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - local g=Duel.GetDecktopGroup(1-tp,1) - local tc=g:GetFirst() - while d~=0 and tc do - Duel.Draw(1-tp,1,REASON_EFFECT) - Duel.ConfirmCards(tp,tc) - if tc:IsType(TYPE_MONSTER) then - if tc:IsLevelBelow(4) then - Duel.Damage(1-tp,tc:GetAttack(),REASON_EFFECT) - end - end - Duel.BreakEffect() - Duel.SendtoGrave(tc,REASON_EFFECT) - g=Duel.GetDecktopGroup(1-tp,1) - tc=g:GetFirst() - d=d-1 - end -end diff --git a/script/c100000452.lua b/script/c100000452.lua deleted file mode 100644 index 8656d234..00000000 --- a/script/c100000452.lua +++ /dev/null @@ -1,45 +0,0 @@ ---ＣＸ 風紀大宮司サイモン -function c100000452.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,7),3) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100000452.recon) - e1:SetOperation(c100000452.reop) - c:RegisterEffect(e1) -end -function c100000452.recon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,100000461) -end -function c100000452.reop(e,tp,eg,ep,ev,re,r,rp) - --pos&atk - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetCategory(CATEGORY_POSITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c100000452.poscost) - e2:SetTarget(c100000452.postg) - e2:SetOperation(c100000452.posop) - e:GetHandler():RegisterEffect(e2) -end -function c100000452.poscost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000452.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end - if chk==0 then return Duel.IsExistingTarget(nil,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,nil,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c100000452.posop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) - end -end \ No newline at end of file diff --git a/script/c100000453.lua b/script/c100000453.lua deleted file mode 100644 index 9aa5c91e..00000000 --- a/script/c100000453.lua +++ /dev/null @@ -1,55 +0,0 @@ ---ＣＸ CH レジェンド・アーサー -function c100000453.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,5),3) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100000453.recon) - e1:SetOperation(c100000453.reop) - c:RegisterEffect(e1) -end -function c100000453.recon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,100000462) -end -function c100000453.reop(e,tp,eg,ep,ev,re,r,rp) - --damage - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_BATTLE_DESTROYING) - e1:SetCondition(c100000453.damcon) - e1:SetCost(c100000453.cost) - e1:SetTarget(c100000453.damtg) - e1:SetOperation(c100000453.damop) - c:RegisterEffect(e1) -end -function c100000453.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=e:GetHandler():GetOverlayCount() - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:SetLabel(tc) - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000453.damcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and bc:IsLocation(LOCATION_GRAVE) and bc:IsReason(REASON_BATTLE) and bc:IsType(TYPE_MONSTER) -end -function c100000453.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local tc=e:GetHandler():GetBattleTarget() - local atk=tc:GetBaseAttack() - if atk<0 then atk=0 end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(atk) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,atk) -end -function c100000453.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - tc=e:GetHandler():GetBattleTarget() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100000454.lua b/script/c100000454.lua deleted file mode 100644 index d50999a2..00000000 --- a/script/c100000454.lua +++ /dev/null @@ -1,45 +0,0 @@ ---ＣＸ 激烈華戦艦 タオヤメ -function c100000454.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,4),4) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100000454.recon) - e1:SetOperation(c100000454.reop) - c:RegisterEffect(e1) -end -function c100000454.recon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,100000463) -end -function c100000454.reop(e,tp,eg,ep,ev,re,r,rp) - --pos&atk - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCost(c100000454.cost) - e2:SetTarget(c100000454.target) - e2:SetOperation(c100000454.operation) - e:GetHandler():RegisterEffect(e2) -end -function c100000454.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000454.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.SetTargetPlayer(1-tp) - local dam=Duel.GetFieldGroupCount(1-tp,LOCATION_ONFIELD,LOCATION_ONFIELD)*400 - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100000454.operation(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local dam=Duel.GetFieldGroupCount(1-tp,LOCATION_ONFIELD,LOCATION_ONFIELD)*400 - Duel.Damage(p,dam,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000455.lua b/script/c100000455.lua deleted file mode 100644 index 14ea667e..00000000 --- a/script/c100000455.lua +++ /dev/null @@ -1,44 +0,0 @@ ---ＣＸ ダーク・フェアリー・チア・ガール -function c100000455.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,5),3) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100000455.recon) - e1:SetOperation(c100000455.reop) - c:RegisterEffect(e1) -end -function c100000455.recon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,51960178) -end -function c100000455.reop(e,tp,eg,ep,ev,re,r,rp) - --damage - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetCost(c100000455.cost) - e2:SetTarget(c100000455.damtg) - e2:SetOperation(c100000455.damop) - e:GetHandler():RegisterEffect(e2) -end -function c100000455.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000455.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_HAND,0,1,nil) end - Duel.SetTargetPlayer(1-tp) - local dam=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)*500 - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100000455.damop(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local dam=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)*500 - Duel.Damage(p,dam,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000456.lua b/script/c100000456.lua deleted file mode 100644 index 8a337265..00000000 --- a/script/c100000456.lua +++ /dev/null @@ -1,67 +0,0 @@ ---ＣＮｏ.１０６ 溶岩掌ジャイアント・ハンド・レッド -function c100000456.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,5),3) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100000456.recon) - e1:SetOperation(c100000456.reop) - c:RegisterEffect(e1) - --indes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(c100000456.indes) - c:RegisterEffect(e2) -end -function c100000456.recon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,63746411) -end -function c100000456.reop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --negate - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000456,0)) - e3:SetCategory(CATEGORY_DISABLE) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCost(c100000456.discost) - e3:SetTarget(c100000456.distg) - e3:SetOperation(c100000456.disop) - c:RegisterEffect(e3) -end -function c100000456.discost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000456.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end -end -function c100000456.filter(c) - return c:IsFaceup() and (c:IsLocation(LOCATION_SZONE) or c:IsType(TYPE_EFFECT)) -end -function c100000456.disop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=Duel.GetMatchingGroup(c100000456.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DISABLE_EFFECT) - e3:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e3) - tc=g:GetNext() - end -end -function c100000456.indes(e,c) - return not c:IsSetCard(0x48) -end diff --git a/script/c100000457.lua b/script/c100000457.lua deleted file mode 100644 index 0d2f10ad..00000000 --- a/script/c100000457.lua +++ /dev/null @@ -1,80 +0,0 @@ ---ＣＸ 超巨大空中要塞 バビロン -function c100000457.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,11),3) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100000457.recon) - e1:SetOperation(c100000457.reop) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000457,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetCondition(c100000457.damcon) - e2:SetTarget(c100000457.damtg) - e2:SetOperation(c100000457.damop) - c:RegisterEffect(e2) -end -function c100000457.recon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,100000464) -end -function c100000457.reop(e,tp,eg,ep,ev,re,r,rp) - --multiatk - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetDescription(aux.Stringid(100000457,2)) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c100000457.atkcon) - e3:SetCost(c100000457.atkcost) - e3:SetTarget(c100000457.atktg) - e3:SetOperation(c100000457.atkop) - e:GetHandler():RegisterEffect(e3) -end -function c100000457.damcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER) -end -function c100000457.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local c=e:GetHandler() - local bc=c:GetBattleTarget() - local dam=bc:GetAttack()/2 - if dam<0 then dam=0 end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100000457.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c100000457.atkcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_MAIN1 -end -function c100000457.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000457.atktg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetEffectCount(EFFECT_EXTRA_ATTACK)==0 end -end -function c100000457.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end -end diff --git a/script/c100000460.lua b/script/c100000460.lua deleted file mode 100644 index 23e6634c..00000000 --- a/script/c100000460.lua +++ /dev/null @@ -1,40 +0,0 @@ ---機装天使エンジネル -function c100000460.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,3),2) - c:EnableReviveLimit() - --immune - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000460,0)) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_BE_BATTLE_TARGET) - e1:SetCondition(c100000460.condition) - e1:SetCost(c100000460.cost) - e1:SetOperation(c100000460.operation) - c:RegisterEffect(e1) -end -function c100000460.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsAttackPos() -end -function c100000460.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000460.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,0,0) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(c100000460.valcon) - c:RegisterEffect(e1) - end -end -function c100000460.valcon(e,re,r,rp) - return bit.band(r,REASON_BATTLE)~=0 -end \ No newline at end of file diff --git a/script/c100000461.lua b/script/c100000461.lua deleted file mode 100644 index 84f48585..00000000 --- a/script/c100000461.lua +++ /dev/null @@ -1,40 +0,0 @@ ---風紀宮司ノリト -function c100000461.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,6),2) - c:EnableReviveLimit() - --negate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000461,0)) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c100000461.negcon) - e1:SetCost(c100000461.negcost) - e1:SetTarget(c100000461.negtg) - e1:SetOperation(c100000461.negop) - c:RegisterEffect(e1) -end -function c100000461.negcon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) - and ep~=tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) -end -function c100000461.negcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000461.negtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c100000461.negop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end diff --git a/script/c100000462.lua b/script/c100000462.lua deleted file mode 100644 index a1ff1839..00000000 --- a/script/c100000462.lua +++ /dev/null @@ -1,44 +0,0 @@ ---ＣＨ キング・アーサー -function c100000462.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,4),2) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_PLAYER_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_CHAIN_SOLVED) - e1:SetLabel(c:GetAttack()) - e1:SetCondition(c100000462.dmcon) - e1:SetCost(c100000462.cost) - e1:SetTarget(c100000462.target) - e1:SetOperation(c100000462.operation) - c:RegisterEffect(e1) -end -function c100000462.dmcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local atk=c:GetAttack() - local batk=e:GetLabel() - return batk~=atk and not c:IsStatus(STATUS_CHAINING) -end -function c100000462.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000462.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local atk=e:GetHandler():GetAttack() - local batk=e:GetLabel() - local dam=0 - if batk>atk then dam=batk-atk - else dam=atk-batk end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100000462.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) - e:SetLabel(e:GetHandler():GetAttack()) -end diff --git a/script/c100000463.lua b/script/c100000463.lua deleted file mode 100644 index 170a1ae8..00000000 --- a/script/c100000463.lua +++ /dev/null @@ -1,37 +0,0 @@ ---烈華砲艦ナデシコ -function c100000463.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,3),3) - c:EnableReviveLimit() - --damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000463,0)) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c100000463.condition) - e1:SetCost(c100000463.damcost) - e1:SetTarget(c100000463.damtg) - e1:SetOperation(c100000463.damop) - c:RegisterEffect(e1) -end -function c100000463.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 -end -function c100000463.damcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000463.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - local dam=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)*300 - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) - end -function c100000463.damop(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local dam=Duel.GetFieldGroupCount(p,LOCATION_HAND,0)*300 - Duel.Damage(p,dam,REASON_EFFECT) -end diff --git a/script/c100000464.lua b/script/c100000464.lua deleted file mode 100644 index 4ff3efd5..00000000 --- a/script/c100000464.lua +++ /dev/null @@ -1,36 +0,0 @@ ---超巨大空中宮殿ガンガリディア -function c100000464.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterEqualFunction(Card.GetLevel,10),2) - c:EnableReviveLimit() - --destroy&damage - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetDescription(aux.Stringid(100000464,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c100000464.cost) - e1:SetTarget(c100000464.target) - e1:SetOperation(c100000464.operation) - c:RegisterEffect(e1) -end -function c100000464.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST)end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000464.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and Card.IsDestructable(chkc) end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100000464.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsControler(1-tp) then - if Duel.Destroy(tc,REASON_EFFECT)~=0 then - Duel.SetLP(1-tp,Duel.GetLP(1-tp)/2) - end - end -end diff --git a/script/c100000470.lua b/script/c100000470.lua deleted file mode 100644 index 6cf91b12..00000000 --- a/script/c100000470.lua +++ /dev/null @@ -1,72 +0,0 @@ ---スピリッツ・フュージョン -function c100000470.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000470.cost) - e1:SetTarget(c100000470.target) - e1:SetOperation(c100000470.activate) - c:RegisterEffect(e1) -end -function c100000470.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,1000) - else Duel.PayLPCost(tp,1000) end -end -function c100000470.filter1(c,e) - return c:IsCanBeFusionMaterial() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e) -end -function c100000470.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) - and c:CheckFusionMaterial(m,nil,chkf) -end -function c100000470.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000470.filter1,tp,LOCATION_GRAVE,0,nil,e) - local res=Duel.IsExistingMatchingCard(c100000470.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c100000470.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000470.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000470.filter1,tp,LOCATION_GRAVE,0,nil,e) - local sg1=Duel.GetMatchingGroup(c100000470.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c100000470.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end diff --git a/script/c100000471.lua b/script/c100000471.lua deleted file mode 100644 index 3d44d057..00000000 --- a/script/c100000471.lua +++ /dev/null @@ -1,85 +0,0 @@ ---瞬間融合 -function c100000471.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000471.target) - e1:SetOperation(c100000471.activate) - c:RegisterEffect(e1) -end -function c100000471.filter1(c,e) - return c:IsCanBeFusionMaterial() and c:IsAbleToGrave() and not c:IsImmuneToEffect(e) -end -function c100000471.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) - and c:CheckFusionMaterial(m,nil,chkf) -end -function c100000471.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE) and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000471.filter1,tp,LOCATION_MZONE,0,nil,e) - local res=Duel.IsExistingMatchingCard(c100000471.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c100000471.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000471.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE) and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000471.filter1,tp,LOCATION_MZONE,0,nil,e) - local sg1=Duel.GetMatchingGroup(c100000471.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c100000471.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - --to deck - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetReset(RESET_PHASE+PHASE_END) - e2:SetLabelObject(tc) - e2:SetCountLimit(1) - e2:SetCondition(c100000471.tdcon) - e2:SetOperation(c100000471.tdop) - Duel.RegisterEffect(e2,tp) - tc:RegisterFlagEffect(100000471,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - tc:CompleteProcedure() - end -end -function c100000471.tdcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000471.tdop(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject() - if g:GetFlagEffect(100000471)>0 then Duel.SendtoDeck(g,nil,2,REASON_EFFECT) end -end diff --git a/script/c100000472.lua b/script/c100000472.lua deleted file mode 100644 index 5e606255..00000000 --- a/script/c100000472.lua +++ /dev/null @@ -1,70 +0,0 @@ ---エクストラ・フュージョン -function c100000472.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000472.target) - e1:SetOperation(c100000472.activate) - c:RegisterEffect(e1) -end -function c100000472.filter1(c,e) - return c:IsCanBeFusionMaterial() and c:IsAbleToGrave() and c:IsType(TYPE_FUSION) and not c:IsImmuneToEffect(e) -end -function c100000472.ft(c,tc) - return c~=tc -end -function c100000472.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) - and c:CheckFusionMaterial(m:Filter(c100000472.ft,nil,c),nil,chkf) -end -function c100000472.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000472.filter1,tp,LOCATION_EXTRA,0,nil,e) - local res=Duel.IsExistingMatchingCard(c100000472.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c100000472.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000472.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000472.filter1,tp,LOCATION_EXTRA,0,nil,e) - local sg1=Duel.GetMatchingGroup(c100000472.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c100000472.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1:Filter(c100000472.ft,nil,tc),nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end diff --git a/script/c100000473.lua b/script/c100000473.lua deleted file mode 100644 index ddb26fcc..00000000 --- a/script/c100000473.lua +++ /dev/null @@ -1,80 +0,0 @@ ---アナザー・フュージョン -function c100000473.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000473.target) - e1:SetOperation(c100000473.activate) - c:RegisterEffect(e1) -end -function c100000473.filter1(c,e) - return c:IsCanBeFusionMaterial() and c:IsAbleToGrave() and not c:IsImmuneToEffect(e) -end -function c100000473.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) - and c:CheckFusionMaterial(m,nil,chkf) -end -function c100000473.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000473.filter1,tp,LOCATION_MZONE,0,nil,e) - local res=Duel.IsExistingMatchingCard(c100000473.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c100000473.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000473.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000473.filter1,tp,LOCATION_MZONE,0,nil,e) - local sg1=Duel.GetMatchingGroup(c100000473.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c100000473.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetReset(RESET_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetLabelObject(tc) - e2:SetOperation(c100000473.desop) - Duel.RegisterEffect(e2,tp) - tc:RegisterFlagEffect(100000473,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - tc:CompleteProcedure() - end -end -function c100000473.desop(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject() - if g:GetFlagEffect(100000473)>0 then Duel.Destroy(g,REASON_EFFECT) end -end diff --git a/script/c100000474.lua b/script/c100000474.lua deleted file mode 100644 index 664df618..00000000 --- a/script/c100000474.lua +++ /dev/null @@ -1,60 +0,0 @@ ---フュージョン・バース -function c100000474.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000474.target) - e1:SetOperation(c100000474.activate) - c:RegisterEffect(e1) -end -function c100000474.filter1(c,e) - return c:IsCanBeFusionMaterial() and c:IsLocation(LOCATION_GRAVE) and not c:IsImmuneToEffect(e) -end -function c100000474.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) - and c:CheckFusionMaterial(m,nil,chkf) -end -function c100000474.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,5) end - Duel.DiscardDeck(tp,5,REASON_COST) - local g=Duel.GetOperatedGroup() - local mg1=g:Filter(c100000474.filter1,nil,e) - if mg1:GetCount()==0 then return false end - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local res=Duel.IsExistingMatchingCard(c100000474.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c100000474.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,chkf) - end - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000474.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local g=Duel.GetOperatedGroup() - local mg1=g:Filter(c100000474.filter1,nil,e) - local sg1=Duel.GetMatchingGroup(c100000474.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c100000474.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - tc:CompleteProcedure() - end -end diff --git a/script/c100000475.lua b/script/c100000475.lua deleted file mode 100644 index 26f55c64..00000000 --- a/script/c100000475.lua +++ /dev/null @@ -1,85 +0,0 @@ ---チャージ・フュージョン -function c100000475.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000475.target) - e1:SetOperation(c100000475.activate) - c:RegisterEffect(e1) -end -function c100000475.filter1(c,e) - return c:IsCanBeFusionMaterial() and c:IsAbleToGrave() and not c:IsImmuneToEffect(e) -end -function c100000475.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) - and c:CheckFusionMaterial(m,nil,chkf) -end -function c100000475.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000475.filter1,tp,LOCATION_HAND,0,nil,e) - local res=Duel.IsExistingMatchingCard(c100000475.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c100000475.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000475.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000475.filter1,tp,LOCATION_HAND,0,nil,e) - local sg1=Duel.GetMatchingGroup(c100000475.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c100000475.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetRange(LOCATION_GRAVE) - e1:SetCountLimit(1) - e1:SetOperation(c100000475.sdesop) - e1:SetLabel(0) - e1:SetReset(RESET_PHASE+PHASE_STANDBY,3) - e:GetHandler():RegisterEffect(e1) - end -end -function c100000475.sdesop(e,tp,eg,ep,ev,re,r,rp) - if e:GetLabel()==2 then - Duel.SendtoHand(e:GetHandler(),tp,REASON_EFFECT) - else - local g=e:GetLabel() - if g~=2 then e:SetLabel(g+1) end - end -end \ No newline at end of file diff --git a/script/c100000478.lua b/script/c100000478.lua deleted file mode 100644 index 9126fe97..00000000 --- a/script/c100000478.lua +++ /dev/null @@ -1,71 +0,0 @@ ---同胞の絆 -function c100000478.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000478.cost) - e1:SetTarget(c100000478.target) - e1:SetOperation(c100000478.activate) - c:RegisterEffect(e1) -end -function c100000478.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,1000) end - Duel.PayLPCost(tp,1000) -end -function c100000478.cfilter(c,e,tp) - local gr=c:GetRace() - return Duel.IsExistingMatchingCard(c100000478.spfilter,tp,LOCATION_DECK,0,2,nil,gr,e,tp) -end -function c100000478.spfilter(c,gr,e,tp) - return c:IsLevelBelow(4) and c:IsRace(gr) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) -end -function c100000478.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100000478.cfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsExistingTarget(c100000478.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000478.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000478.spfilter2(c,gr,e,tp) - return c:IsLevelBelow(4) and c:IsRace(gr) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) -end -function c100000478.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=1 then return end - local c=e:GetHandler() - local slv=tc:GetRace() - local sg=Duel.GetMatchingGroup(c100000478.spfilter,tp,LOCATION_DECK,0,nil,slv,e,tp) - if sg:GetCount()<=1 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=sg:Select(tp,2,2,nil) - local tc=g:GetFirst() - while tc do - if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - --cannot release - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_UNRELEASABLE_SUM) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(1) - tc:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EFFECT_UNRELEASABLE_NONSUM) - tc:RegisterEffect(e3) - end - tc=g:GetNext() - end - Duel.SpecialSummonComplete() -end diff --git a/script/c100000481.lua b/script/c100000481.lua deleted file mode 100644 index 338493b2..00000000 --- a/script/c100000481.lua +++ /dev/null @@ -1,20 +0,0 @@ ---天輪の葬送士 -function c100000481.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000481.spcon) - c:RegisterEffect(e1) -end -function c100000481.filter(c) - return c:IsFaceup() and c:IsSetCard(0x315) and c:IsType(TYPE_MONSTER) -end -function c100000481.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000481.filter,tp,LOCATION_MZONE,0,1,nil) -end \ No newline at end of file diff --git a/script/c100000482.lua b/script/c100000482.lua deleted file mode 100644 index 8b4f4739..00000000 --- a/script/c100000482.lua +++ /dev/null @@ -1,36 +0,0 @@ ---天輪の葬送士 -function c100000482.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c100000482.sptg) - e1:SetOperation(c100000482.spop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c100000482.filter(c,e,tp) - return c:GetLevel()==1 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000482.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100000482.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000482.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000482.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000482.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000483.lua b/script/c100000483.lua deleted file mode 100644 index eeac4d10..00000000 --- a/script/c100000483.lua +++ /dev/null @@ -1,53 +0,0 @@ ---天輪の双星道士 -function c100000483.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --synchro summon success - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000483,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100000483.drcon) - e1:SetTarget(c100000483.drtarg) - e1:SetOperation(c100000483.drop) - c:RegisterEffect(e1) -end -function c100000483.drcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO -end -function c100000483.filter(c,e,tp) - return c:IsFaceup() and c:GetLevel()==2 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000483.drtarg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000483.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c100000483.drop(e,tp,eg,ep,ev,re,r,rp) - local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft1<=0 then return end - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000483.filter,tp,LOCATION_GRAVE,0,ft1,ft1,nil,e,tp) - if g:GetCount()>0 then - local tc=g:GetFirst() - while tc do - Duel.SpecialSummonStep(tc, 0, tp, tp, false, false, POS_FACEUP) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1,true) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2,true) - tc=g:GetNext() - end - Duel.SpecialSummonComplete() - g:KeepAlive() - end -end \ No newline at end of file diff --git a/script/c100000485.lua b/script/c100000485.lua deleted file mode 100644 index 9a5088e2..00000000 --- a/script/c100000485.lua +++ /dev/null @@ -1,50 +0,0 @@ ---天穹覇龍 ドラゴアセンション -function c100000485.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --atk - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(c100000485adval) - c:RegisterEffect(e1) - --Destroy replace - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_DESTROY_REPLACE) - e2:SetTarget(c100000485.desreptg) - e2:SetOperation(c100000485.desrepop) - c:RegisterEffect(e2) -end -function c100000485adval(e,c) - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_HAND,0)*1000 -end -function c100000485.desreptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToExtra() end - return true -end -function c100000485.mgfilter(c,e,tp,sync) - return not c:IsControler(tp) or not c:IsLocation(LOCATION_GRAVE) - or bit.band(c:GetReason(),0x80008)~=0x80008 or c:GetReasonCard()~=sync - or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) or c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c100000485.desrepop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler() - local mg=tc:GetMaterial() - local sumable=true - local sumtype=tc:GetSummonType() - if Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)==0 or sumtype~=SUMMON_TYPE_SYNCHRO or mg:GetCount()==0 - or mg:GetCount()>Duel.GetLocationCount(tp,LOCATION_MZONE) - or mg:IsExists(c100000485.mgfilter,1,nil,e,tp,tc) then - sumable=false - end - if sumable and Duel.SelectYesNo(tp,aux.Stringid(32441317,0)) then - Duel.BreakEffect() - Duel.SpecialSummon(mg,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000486.lua b/script/c100000486.lua deleted file mode 100644 index a1367160..00000000 --- a/script/c100000486.lua +++ /dev/null @@ -1,52 +0,0 @@ ---ロード・オブ・ザ・レッド -function c100000486.initial_effect(c) - c:EnableReviveLimit() - --destroy - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1) - e1:SetCondition(c100000486.condition) - e1:SetTarget(c100000486.target) - e1:SetOperation(c100000486.operation) - c:RegisterEffect(e1) - if not c100000486.global_check then - c100000486.global_check=true - c100000486[0]=0 - c100000486[1]=0 - local ge3=Effect.CreateEffect(c) - ge3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge3:SetCode(EVENT_CHAINING) - ge3:SetOperation(c100000486.checkop) - Duel.RegisterEffect(ge3,0) - local ge4=Effect.CreateEffect(c) - ge4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge4:SetCode(EVENT_PHASE_START+PHASE_DRAW) - ge4:SetOperation(c100000486.clear) - Duel.RegisterEffect(ge4,0) - end -end -function c100000486.checkop(e,tp,eg,ep,ev,re,r,rp) - if re:IsActiveType(TYPE_SPELL) and re:IsHasType(EFFECT_TYPE_ACTIVATE) then - c100000486[0]=c100000486[0]+1 - c100000486[1]=c100000486[1]+1 - end -end -function c100000486.clear(e,tp,eg,ep,ev,re,r,rp) - c100000486[0]=0 - c100000486[1]=0 -end -function c100000486.condition(e,tp,eg,ep,ev,re,r,rp) - return c100000486[tp]>1 -end -function c100000486.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c100000486.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - Duel.Destroy(g,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000487.lua b/script/c100000487.lua deleted file mode 100644 index 50fb960f..00000000 --- a/script/c100000487.lua +++ /dev/null @@ -1,47 +0,0 @@ ---レッドアイズ・トランスマイグレーション -function c100000487.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000487.target) - e1:SetOperation(c100000487.activate) - c:RegisterEffect(e1) -end -function c100000487.mfilter1(c,e) - return c:IsCode(74677422) and not c:IsImmuneToEffect(e) and c:IsReleasable() -end -function c100000487.mfilter2(c,e) - return c:IsRace(RACE_WARRIOR) and not c:IsImmuneToEffect(e) and c:IsReleasable() -end -function c100000487.filter(c,e,tp) - return bit.band(c:GetType(),0x81)==0x81 and c:IsCode(100000486) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) -end -function c100000487.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return false end - return Duel.IsExistingMatchingCard(c100000487.filter,tp,LOCATION_HAND,0,1,nil,e,tp) - and Duel.IsExistingMatchingCard(c100000487.mfilter1,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil,e) - and Duel.IsExistingMatchingCard(c100000487.mfilter2,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil,e) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000487.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c100000487.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - if tg:GetCount()>0 then - local tc=tg:GetFirst() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=Duel.SelectMatchingCard(tp,c100000487.mfilter1,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,e) - local mat2=Duel.SelectMatchingCard(tp,c100000487.mfilter2,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,e) - mat:Merge(mat2) - tc:SetMaterial(mat) - Duel.ReleaseRitualMaterial(mat) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end diff --git a/script/c100000488.lua b/script/c100000488.lua deleted file mode 100644 index bd5513d9..00000000 --- a/script/c100000488.lua +++ /dev/null @@ -1,39 +0,0 @@ ---闇竜の黒騎士 -function c100000488.initial_effect(c) - c:EnableReviveLimit() - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000488,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c100000488.spcost) - e1:SetTarget(c100000488.sptg) - e1:SetOperation(c100000488.spop) - c:RegisterEffect(e1) -end -function c100000488.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c100000488.spfilter(c,e,tp) - return c:IsCode(74677422) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000488.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100000488.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c100000488.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000488.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - g:GetFirst():RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c100000489.lua b/script/c100000489.lua deleted file mode 100644 index 2ce7c5b6..00000000 --- a/script/c100000489.lua +++ /dev/null @@ -1,4 +0,0 @@ ---黒竜降臨 -function c100000489.initial_effect(c) - aux.AddRitualProcGreater(c,aux.FilterBoolFunction(Card.IsCode,100000488)) -end diff --git a/script/c100000490.lua b/script/c100000490.lua deleted file mode 100644 index 43338455..00000000 --- a/script/c100000490.lua +++ /dev/null @@ -1,105 +0,0 @@ ---デステニー・オーバーレイ -function c100000490.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000490.target) - e1:SetOperation(c100000490.activate) - c:RegisterEffect(e1) -end -function c100000490.xyzfilter(c,mg) - if c.xyz_count~=mg:GetCount() then return false end - return c:IsXyzSummonable(mg) -end -function c100000490.mfilter1(c,exg,mg2,mg1) - return exg:IsExists(c100000490.mfilter2,1,nil,c,mg2,exg,mg1) -end -function c100000490.mfilter2(c,mc,mg2,exg,mg1) - return c.xyz_filter(mc) and mg2:Filter(c100000490.mfilter3,nil,exg,mc,mg1,mg2) -end -function c100000490.mfilter3(c,exg,tc,mg1,mg2) - return exg:IsExists(c100000490.mfilter4,1,nil,c,tc,mg1,mg2,exg) -end -function c100000490.mfilter4(c,mc,tc,mg1,mg2,exg) - local mg=Group.CreateGroup() - if c.xyz_count>2 then - mg:Merge(mg1) - mg:Merge(mg2) - return c.xyz_filter(mc) and mg:FilterCount(c100000490.mfilter10,nil,exg,mc,tc)+2==c.xyz_count - else - return c.xyz_filter(mc) - end -end -function c100000490.mfilter5(c,exg) - return exg:IsExists(c100000490.mfilter6,1,nil,c) -end -function c100000490.mfilter6(c,mc) - return c.xyz_filter(mc) -end -function c100000490.mfilter7(c,mc,mg2,exg,mg1) - local tc=mc:GetFirst() - local ct=mc:GetCount() - while tc and ct>0 do - if c.xyz_filter(tc)==0 or mg2:FilterCount(c100000490.mfilter3,nil,exg,tc,mg1,mg2)==0 then return false end - ct=ct-1 - tc=mc:GetNext() - end - if ct<1 then return true end -end -function c100000490.mfilter8(c,exg,tc,mg2) - return exg:IsExists(c100000490.mfilter9,1,nil,c,tc,mg2,exg) -end -function c100000490.mfilter9(c,mc,tc,mg2,exg) - local g=tc:GetFirst() - local ct=tc:GetCount() - while g and ct>0 do - if c.xyz_filter(g)==0 or mg2:FilterCount(c100000490.mfilter5,nil,exg,g,mg2)~=ct-1 then return false end - ct=ct-1 - tc=mc:GetNext() - end - if ct<1 then return true end -end -function c100000490.mfilter10(c,exg,mc,tc) - return c~=mc and c~=tc and exg:IsExists(c100000490.mfilter6,1,nil,c) -end -function c100000490.mfilter(c,e) - return c:IsCanBeEffectTarget(e) and c:IsFaceup() -end -function c100000490.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - local mg1=Duel.GetMatchingGroup(c100000490.mfilter,tp,0,LOCATION_MZONE,nil,e) - local mg2=Duel.GetMatchingGroup(c100000490.mfilter,tp,LOCATION_MZONE,0,nil,e) - local exg=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_EXTRA,0,nil,TYPE_XYZ) - local mg=Duel.GetMatchingGroup(c100000490.mfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,e) - local sg=mg:Filter(c100000490.mfilter1,nil,exg,mg2,mg1) - if chk==0 then return (not Duel.IsPlayerAffectedByEffect(tp,100000490) or c100000490[tp]==0) - and mg1:GetCount()>0 and mg2:GetCount()>0 and sg:GetCount()>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local ct=2 - local cg=exg:GetFirst() - while cg do - if cg.xyz_count>ct then ct=cg.xyz_count end - cg=exg:GetNext() - end - local sg1=mg1:FilterSelect(tp,c100000490.mfilter1,1,ct-1,nil,exg,mg2,mg1) - local exg2=exg:Filter(c100000490.mfilter7,nil,sg1,mg2,exg,mg1) - - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local sg2=mg2:FilterSelect(tp,c100000490.mfilter3,1,ct-sg1:GetCount(),nil,exg,nil,sg1,mg2) - sg1:Merge(sg2) - Duel.SetTargetCard(sg1) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg1,2,0,0) -end -function c100000490.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.IsPlayerAffectedByEffect(tp,100000490) and c100000490[tp]>0 then return end - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()<2 then return end - local xyzg=Duel.GetMatchingGroup(c100000490.xyzfilter,tp,LOCATION_EXTRA,0,nil,g) - if xyzg:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local xyz=xyzg:Select(tp,1,1,nil):GetFirst() - Duel.XyzSummon(tp,xyz,g) - end -end \ No newline at end of file diff --git a/script/c100000495.lua b/script/c100000495.lua deleted file mode 100644 index 1b402dbb..00000000 --- a/script/c100000495.lua +++ /dev/null @@ -1,4 +0,0 @@ ---光子竜降臨 -function c100000495.initial_effect(c) - aux.AddRitualProcGreater(c,aux.FilterBoolFunction(Card.IsCode,1045)) -end diff --git a/script/c100000496.lua b/script/c100000496.lua deleted file mode 100644 index feaf3e74..00000000 --- a/script/c100000496.lua +++ /dev/null @@ -1,35 +0,0 @@ ---光子竜の聖騎士 -function c100000496.initial_effect(c) - c:EnableReviveLimit() - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000496,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c100000496.cost) - e1:SetTarget(c100000496.target) - e1:SetOperation(c100000496.operation) - c:RegisterEffect(e1) -end -function c100000496.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c100000496.filter(c,e,tp) - return c:IsCode(93717133) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000496.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100000496.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK+LOCATION_HAND) -end -function c100000496.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000496.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - end -end diff --git a/script/c100000498.lua b/script/c100000498.lua deleted file mode 100644 index aa2fe9ee..00000000 --- a/script/c100000498.lua +++ /dev/null @@ -1,41 +0,0 @@ ---スモーキング・ドッグ -function c100000498.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsRace,RACE_BEAST),4),2) - c:EnableReviveLimit() - --negate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000498,0)) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY+CATEGORY_ATKCHANGE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c100000498.negcon) - e1:SetCost(c100000498.negcost) - e1:SetTarget(c100000498.negtg) - e1:SetOperation(c100000498.negop) - c:RegisterEffect(e1) -end -function c100000498.negcon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) - and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_TRAP) and Duel.IsChainNegatable(ev) -end -function c100000498.negcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000498.negtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c100000498.negop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)>0 then - Duel.BreakEffect() - end -end diff --git a/script/c100000500.lua b/script/c100000500.lua deleted file mode 100644 index 47ada14f..00000000 --- a/script/c100000500.lua +++ /dev/null @@ -1,30 +0,0 @@ ---ۼvѩ -function c100000500.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000500.sptg) - e1:SetOperation(c100000500.spop) - c:RegisterEffect(e1) -end -function c100000500.filter(c,e,sp) - return c:IsFaceup() and c:IsSetCard(0x5008) and c:IsCanBeSpecialSummoned(e,0,sp,true,false) -end -function c100000500.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and c100000500.filter(chkc,e,tp) end - if chk==0 then return Duel.IsExistingTarget(c100000500.filter,tp,LOCATION_SZONE,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000500.filter,tp,LOCATION_SZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000500.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000501.lua b/script/c100000501.lua deleted file mode 100644 index 8ea7f75d..00000000 --- a/script/c100000501.lua +++ /dev/null @@ -1,67 +0,0 @@ ---幻影融合 -function c100000501.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000501.target) - e1:SetOperation(c100000501.activate) - c:RegisterEffect(e1) -end -function c100000501.filter1(c,e) - return c:IsCanBeFusionMaterial()and c:IsSetCard(0x5008) and c:IsAbleToRemove() and c:GetFlagEffect(100000501)~=0 -end -function c100000501.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:GetCode()~=46759931 and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) - and c:CheckFusionMaterial(m,nil,chkf) -end -function c100000501.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000501.filter1,tp,LOCATION_SZONE,0,nil) - local res=Duel.IsExistingMatchingCard(c100000501.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c100000501.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000501.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000501.filter1,tp,LOCATION_SZONE,0,nil) - local sg1=Duel.GetMatchingGroup(c100000501.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c100000501.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end diff --git a/script/c100000502.lua b/script/c100000502.lua deleted file mode 100644 index 457cce25..00000000 --- a/script/c100000502.lua +++ /dev/null @@ -1,36 +0,0 @@ ---出幻 -function c100000502.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetCode(EVENT_DESTROYED) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c100000502.condition) - e1:SetTarget(c100000502.target) - e1:SetOperation(c100000502.operation) - c:RegisterEffect(e1) -end -function c100000502.cfilter(c,tp) - return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsSetCard(0x5008) and c:IsType(TYPE_MONSTER) -end -function c100000502.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000502.cfilter,1,nil,tp) -end -function c100000502.spfilter(c,e,tp) - return c:IsLevelBelow(4) and c:IsSetCard(0x5008) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000502.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000502.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000502.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000502.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - Duel.SpecialSummonComplete() - end -end diff --git a/script/c100000503.lua b/script/c100000503.lua deleted file mode 100644 index c096029b..00000000 --- a/script/c100000503.lua +++ /dev/null @@ -1,31 +0,0 @@ ---幻覚 -function c100000503.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_BE_BATTLE_TARGET) - e1:SetCondition(c100000503.condition) - e1:SetTarget(c100000503.target) - e1:SetOperation(c100000503.activate) - c:RegisterEffect(e1) -end -function c100000503.condition(e,tp,eg,ep,ev,re,r,rp) - local d=Duel.GetAttackTarget() - return d and d:IsControler(tp) -end -function c100000503.spfilter(c) - return c:IsSetCard(0x5008) -end -function c100000503.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000503.spfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000503.spfilter,tp,LOCATION_MZONE,0,1,nil) end - local g=Duel.SelectTarget(tp,c100000503.spfilter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100000503.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local a=Duel.GetAttacker() - if a:IsOnField() and a:IsFaceup() then - Duel.ChangeAttackTarget(tc) - end -end diff --git a/script/c100000504.lua b/script/c100000504.lua deleted file mode 100644 index e227c902..00000000 --- a/script/c100000504.lua +++ /dev/null @@ -1,94 +0,0 @@ ---幻惑 -function c100000504.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - local sg=Group.CreateGroup() - sg:KeepAlive() - e1:SetLabelObject(sg) - --atk - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_CHAINING) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetLabelObject(sg) - e2:SetCondition(c100000504.scon) - e2:SetTarget(c100000504.stg) - e2:SetOperation(c100000504.activate) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SUMMON_SUCCESS) - c:RegisterEffect(e3) - local e4=e2:Clone() - e4:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e4) - local e5=e2:Clone() - e5:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e5) - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_FIELD) - e6:SetRange(LOCATION_SZONE) - e6:SetTargetRange(0,LOCATION_MZONE) - e6:SetCode(EFFECT_SET_ATTACK_FINAL) - e6:SetLabelObject(sg) - e6:SetTarget(c100000504.filter3) - e6:SetValue(c100000504.val) - c:RegisterEffect(e6) - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e7:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e7:SetCode(EVENT_ADJUST) - e7:SetRange(LOCATION_SZONE) - e7:SetLabelObject(sg) - e7:SetCondition(c100000504.scon2) - e7:SetOperation(c100000504.sop) - c:RegisterEffect(e7) -end -function c100000504.filter(c) - return c:IsSetCard(0x5008) and c:IsFaceup() -end -function c100000504.scon(e,tp,eg,ep,ev,re,r,rp) - local vh=Duel.GetMatchingGroup(c100000504.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - return vh:GetCount()>0 and e:GetHandler():GetFlagEffect(100000504)==0 - and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) -end -function c100000504.stg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:GetFlagEffect(100000504)==0 end - c:RegisterFlagEffect(100000504,RESET_EVENT+0x1fe0000,0,1) -end -function c100000504.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local sg=e:GetLabelObject() - local dg=Duel.GetMatchingGroup(Card.IsFaceup,c:GetControler(),0,LOCATION_MZONE,nil) - Duel.Hint(HINT_SELECTMSG,c:GetControler(),HINTMSG_FACEUP) - local tdg=dg:Select(c:GetControler(),1,1,nil) - local tc=tdg:GetFirst() - if tc and tc:IsFaceup() then - sg:AddCard(tc) - end -end -function c100000504.filter3(e,c) - local g=e:GetLabelObject():GetFirst() - return c==g -end -function c100000504.val(e,c) - return c:GetAttack()/2 -end -function c100000504.scon2(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject():GetFirst() - local vh=Duel.GetMatchingGroup(c100000504.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - if g then - return e:GetHandler():GetFlagEffect(100000504)~=0 and (not g:IsLocation(LOCATION_MZONE) or vh:GetCount()==0) - else return false end -end -function c100000504.sop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local sg=e:GetLabelObject() - c:ResetFlagEffect(100000504) - sg:Clear() -end \ No newline at end of file diff --git a/script/c100000505.lua b/script/c100000505.lua deleted file mode 100644 index 42ade695..00000000 --- a/script/c100000505.lua +++ /dev/null @@ -1,82 +0,0 @@ ---Ｖ・ＨＥＲＯ ミニマム・レイ -function c100000505.initial_effect(c) - --send - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000505,0)) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_DAMAGE) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c100000505.recon) - e1:SetTarget(c100000505.rectg) - e1:SetOperation(c100000505.recop) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c100000505.cost) - e2:SetOperation(c100000505.spop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000505,1)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCondition(c100000505.descon) - e3:SetTarget(c100000505.destg) - e3:SetOperation(c100000505.desop) - c:RegisterEffect(e3) -end -function c100000505.recon(e,tp,eg,ep,ev,re,r,rp) - return ep==tp -end -function c100000505.rectg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and c:GetLocation()==LOCATION_GRAVE end -end -function c100000505.recop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetLocation()~=LOCATION_GRAVE then return false end - Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - c:RegisterFlagEffect(100000501,RESET_EVENT+0x1fe0000,0,1) -end - -function c100000505.costfilter(c) - return c:IsSetCard(0x5008) -end -function c100000505.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c100000505.costfilter,1,nil) end - local g=Duel.SelectReleaseGroup(tp,c100000505.costfilter,1,1,nil) - Duel.Release(g,REASON_COST) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c100000505.spop(e,tp,eg,ep,ev,re,r,rp,c) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) -end - -function c100000505.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetPreviousLocation()==LOCATION_SZONE -end -function c100000505.desfilter(c) - return c:IsDestructable() and c:IsType(TYPE_MONSTER) -end -function c100000505.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c100000505.desfilter(chkc) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100000505.desfilter,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c100000505.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100000506.lua b/script/c100000506.lua deleted file mode 100644 index b36966ed..00000000 --- a/script/c100000506.lua +++ /dev/null @@ -1,56 +0,0 @@ ---Ｖ・ＨＥＲＯ ファリス -function c100000506.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000506.spcon) - e1:SetOperation(c100000506.spop) - c:RegisterEffect(e1) - --send to grave - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000506,0)) - e2:SetCategory(CATEGORY_TOGRAVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c100000506.target) - e2:SetOperation(c100000506.operation) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e3) - local e4=e2:Clone() - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e4) -end -function c100000506.spfilter(c) - return c:IsSetCard(0x5008) and c:IsLevelBelow(4) and c:IsAbleToGraveAsCost() -end -function c100000506.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000506.spfilter,tp,LOCATION_HAND,0,1,c) -end -function c100000506.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000506.spfilter,tp,LOCATION_HAND,0,1,1,c) - Duel.SendtoGrave(g,REASON_COST) -end -function c100000506.tgfilter(c) - return c:IsSetCard(0x5008) and c:IsLevelBelow(4) and c:IsAbleToGrave() -end -function c100000506.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000506.tgfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c100000506.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000506.tgfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - end -end diff --git a/script/c100000507.lua b/script/c100000507.lua deleted file mode 100644 index 4370ec95..00000000 --- a/script/c100000507.lua +++ /dev/null @@ -1,80 +0,0 @@ ---Ｖ・ＨＥＲＯ インクリース -function c100000507.initial_effect(c) - --send - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000507,0)) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_DAMAGE) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c100000507.recon) - e1:SetTarget(c100000507.rectg) - e1:SetOperation(c100000507.recop) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c100000507.cost) - e2:SetOperation(c100000507.spop) - c:RegisterEffect(e2) - --special summon2 - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000507,1)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCondition(c100000507.scon) - e3:SetTarget(c100000507.stg) - e3:SetOperation(c100000507.sop) - c:RegisterEffect(e3) -end -function c100000507.recon(e,tp,eg,ep,ev,re,r,rp) - return ep==tp -end -function c100000507.rectg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and c:GetLocation()==LOCATION_GRAVE end -end -function c100000507.recop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetLocation()~=LOCATION_GRAVE then return false end - Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - c:RegisterFlagEffect(100000501,RESET_EVENT+0x1fe0000,0,1) -end -function c100000507.costfilter(c) - return c:IsSetCard(0x5008) -end -function c100000507.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c100000507.costfilter,1,nil) end - local g=Duel.SelectReleaseGroup(tp,c100000507.costfilter,1,1,nil) - Duel.Release(g,REASON_COST) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c100000507.spop(e,tp,eg,ep,ev,re,r,rp,c) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) -end - -function c100000507.scon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetPreviousLocation()==LOCATION_SZONE -end -function c100000507.filter(c,e,tp) - return c:IsSetCard(0x8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000507.stg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000507.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000507.sop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000507.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000508.lua b/script/c100000508.lua deleted file mode 100644 index 88af9c47..00000000 --- a/script/c100000508.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Ｖ・ＨＥＲＯ グラビート -function c100000508.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c100000508.cost) - e1:SetTarget(c100000508.sptg) - e1:SetOperation(c100000508.spop) - c:RegisterEffect(e1) -end -function c100000508.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c100000508.filter(c,e,sp) - return c:IsFaceup() and c:IsSetCard(0x5008) and c:IsCanBeSpecialSummoned(e,0,sp,true,false) -end -function c100000508.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and c100000508.filter(chkc,e,tp) end - if chk==0 then return Duel.IsExistingTarget(c100000508.filter,tp,LOCATION_SZONE,0,2,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000508.filter,tp,LOCATION_SZONE,0,2,2,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000508.spop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - if Duel.GetLocationCount(tp,LOCATION_MZONE)0 then - Duel.SendtoGrave(g,REASON_EFFECT) - end -end diff --git a/script/c100000510.lua b/script/c100000510.lua deleted file mode 100644 index 12ddc992..00000000 --- a/script/c100000510.lua +++ /dev/null @@ -1,73 +0,0 @@ ---Ｖ・ＨＥＲＯ マルティプリ・ガイ -function c100000510.initial_effect(c) - --send - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000510,0)) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_DAMAGE) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c100000510.recon) - e1:SetTarget(c100000510.rectg) - e1:SetOperation(c100000510.recop) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c100000510.cost) - e2:SetOperation(c100000510.spop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000510,1)) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCondition(c100000510.scon) - e3:SetOperation(c100000510.sop) - c:RegisterEffect(e3) -end -function c100000510.recon(e,tp,eg,ep,ev,re,r,rp) - return ep==tp -end -function c100000510.rectg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and c:GetLocation()==LOCATION_GRAVE end -end -function c100000510.recop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetLocation()~=LOCATION_GRAVE then return false end - Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - c:RegisterFlagEffect(100000501,RESET_EVENT+0x1fe0000,0,1) -end - -function c100000510.costfilter(c) - return c:IsSetCard(0x5008) -end -function c100000510.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c100000510.costfilter,1,nil) end - local g=Duel.SelectReleaseGroup(tp,c100000510.costfilter,1,1,nil) - Duel.Release(g,REASON_COST) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c100000510.spop(e,tp,eg,ep,ev,re,r,rp,c) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) -end -function c100000510.scon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetPreviousLocation()==LOCATION_SZONE -end -function c100000510.sop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) and e:GetHandler():IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(e:GetHandler():GetAttack()) - e:GetHandler():RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c100000511.lua b/script/c100000511.lua deleted file mode 100644 index a5c90252..00000000 --- a/script/c100000511.lua +++ /dev/null @@ -1,91 +0,0 @@ ---Ｖ・ＨＥＲＯ ポイズナー -function c100000511.initial_effect(c) - --send - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000511,0)) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_DAMAGE) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c100000511.recon) - e1:SetTarget(c100000511.rectg) - e1:SetOperation(c100000511.recop) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c100000511.cost) - e2:SetOperation(c100000511.spop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000511,1)) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCondition(c100000511.descon) - e3:SetTarget(c100000511.destg) - e3:SetOperation(c100000511.desop) - c:RegisterEffect(e3) -end -function c100000511.recon(e,tp,eg,ep,ev,re,r,rp) - return ep==tp -end -function c100000511.rectg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and c:GetLocation()==LOCATION_GRAVE end -end -function c100000511.recop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetLocation()~=LOCATION_GRAVE then return false end - Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - c:RegisterFlagEffect(100000501,RESET_EVENT+0x1fe0000,0,1) -end - -function c100000511.costfilter(c) - return c:IsSetCard(0x5008) -end -function c100000511.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c100000511.costfilter,1,nil) end - local g=Duel.SelectReleaseGroup(tp,c100000511.costfilter,1,1,nil) - Duel.Release(g,REASON_COST) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c100000511.spop(e,tp,eg,ep,ev,re,r,rp,c) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) -end - -function c100000511.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetPreviousLocation()==LOCATION_SZONE -end -function c100000511.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) -end -function c100000511.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local atk=tc:GetAttack() - local def=tc:GetDefence() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(atk/2) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(def/2) - tc:RegisterEffect(e2) - end -end \ No newline at end of file diff --git a/script/c100000512.lua b/script/c100000512.lua deleted file mode 100644 index 86d9cbe5..00000000 --- a/script/c100000512.lua +++ /dev/null @@ -1,31 +0,0 @@ ---Ｖ・ＨＥＲＯ ウィッチ・レイド -function c100000512.initial_effect(c) - --send to grave - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c100000512.target) - e1:SetOperation(c100000512.activate) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c100000512.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c100000512.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(c100000512.filter,tp,0,LOCATION_ONFIELD,1,c) end - local sg=Duel.GetMatchingGroup(c100000512.filter,tp,0,LOCATION_ONFIELD,c) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100000512.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100000512.filter,tp,0,LOCATION_ONFIELD,e:GetHandler()) - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c100000519.lua b/script/c100000519.lua deleted file mode 100644 index 4ce68430..00000000 --- a/script/c100000519.lua +++ /dev/null @@ -1,3 +0,0 @@ ---Ｍ・ＨＥＲＯ ダーク・ロウ -function c100000519.initial_effect(c) -end diff --git a/script/c100000520.lua b/script/c100000520.lua deleted file mode 100644 index e6defc00..00000000 --- a/script/c100000520.lua +++ /dev/null @@ -1,34 +0,0 @@ ---アージャント・ライン -function c100000520.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c100000520.condition) - e1:SetTarget(c100000520.target) - e1:SetOperation(c100000520.operation) - c:RegisterEffect(e1) -end -function c100000520.cfilter(c,tp) - return c:IsSetCard(0xa008) and c:IsReason(REASON_BATTLE) and c:GetPreviousControler()==tp -end -function c100000520.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000520.cfilter,1,nil,tp) -end -function c100000520.spfilter(c,e,tp) - return c:IsLevelBelow(4) and c:IsSetCard(0xa008) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000520.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000520.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000520.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000520.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()~=0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000521.lua b/script/c100000521.lua deleted file mode 100644 index 264a89c6..00000000 --- a/script/c100000521.lua +++ /dev/null @@ -1,40 +0,0 @@ ---フォーム・チェンジ -function c100000521.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000521.target) - e1:SetOperation(c100000521.activate) - c:RegisterEffect(e1) -end -function c100000521.tfilter(c,lv,e,tp) - return c:IsSetCard(0xa008) and c:GetLevel()==lv and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000521.filter(c,e,tp) - return c:IsFaceup() and c:IsSetCard(0xa008) and c:IsAbleToExtra() - and Duel.IsExistingMatchingCard(c100000521.tfilter,tp,LOCATION_EXTRA,0,1,nil,c:GetLevel(),e,tp) -end -function c100000521.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c100000521.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c100000521.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,c100000521.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) -end -function c100000521.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - local lv=tc:GetLevel() - if Duel.SendtoDeck(tc,tp,0,REASON_EFFECT)==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=Duel.SelectMatchingCard(tp,c100000521.tfilter,tp,LOCATION_EXTRA,0,1,1,nil,lv,e,tp) - if sg:GetCount()>0 then - Duel.BreakEffect() - Duel.SpecialSummon(sg,0,tp,tp,true,false,POS_FACEUP) - sg:GetFirst():CompleteProcedure() - end -end diff --git a/script/c100000522.lua b/script/c100000522.lua deleted file mode 100644 index 13b96bca..00000000 --- a/script/c100000522.lua +++ /dev/null @@ -1,45 +0,0 @@ ---マスク・チェンジ・セカンド -function c100000522.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000522.cost) - e1:SetTarget(c100000522.target) - e1:SetOperation(c100000522.activate) - c:RegisterEffect(e1) -end -function c100000522.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c100000522.tfilter(c,att,e,tp) - return c:IsSetCard(0xa008) and c:IsAttribute(att) and c:GetLevel()==8 and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000522.filter(c,e,tp) - return c:IsSetCard(0xa008) - and Duel.IsExistingMatchingCard(c100000522.tfilter,tp,LOCATION_EXTRA,0,1,nil,c:GetAttribute(),e,tp) -end -function c100000522.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c100000522.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c100000522.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectTarget(tp,c100000522.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000522.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - local att=tc:GetAttribute() - if Duel.SendtoGrave(tc,REASON_EFFECT)==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=Duel.SelectMatchingCard(tp,c100000522.tfilter,tp,LOCATION_EXTRA,0,1,1,nil,att,e,tp) - if sg:GetCount()>0 then - Duel.BreakEffect() - Duel.SpecialSummon(sg,0,tp,tp,true,false,POS_FACEUP) - sg:GetFirst():CompleteProcedure() - end -end diff --git a/script/c100000523.lua b/script/c100000523.lua deleted file mode 100644 index 863dd57f..00000000 --- a/script/c100000523.lua +++ /dev/null @@ -1,42 +0,0 @@ ---破損した仮面 -function c100000523.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000523.target) - e1:SetOperation(c100000523.activate) - c:RegisterEffect(e1) -end -function c100000523.filter(c,e,tp) - return c:IsSetCard(0xa008) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000523.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100000523.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000523.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000523.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000523.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetOperation(c100000523.desop) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e3:SetCountLimit(1) - tc:RegisterEffect(e3) - Duel.SpecialSummonComplete() - end -end -function c100000523.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000524.lua b/script/c100000524.lua deleted file mode 100644 index c2e8f85b..00000000 --- a/script/c100000524.lua +++ /dev/null @@ -1,41 +0,0 @@ ---マスク・ファンクシャン１ -function c100000524.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000524.target) - e1:SetOperation(c100000524.activate) - c:RegisterEffect(e1) -end -function c100000524.filter(c) - return c:IsFaceup() and not c:IsDisabled() and c:IsType(TYPE_EFFECT) -end -function c100000524.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c100000524.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000524.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c100000524.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) -end -function c100000524.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.NegateRelatedChain(tc,RESET_TURN_SET) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_TRIGGER) - e1:SetCondition(c100000524.condition) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end -function c100000524.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0xa008) -end -function c100000524.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000524.cfilter,tp,0,LOCATION_MZONE,1,nil) -end diff --git a/script/c100000525.lua b/script/c100000525.lua deleted file mode 100644 index 8945e2f7..00000000 --- a/script/c100000525.lua +++ /dev/null @@ -1,65 +0,0 @@ ---ダブル・アタック（合体攻撃） -function c100000525.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000525.target) - e1:SetOperation(c100000525.activate) - c:RegisterEffect(e1) -end -function c100000525.filter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:IsSetCard(0xa008) -end -function c100000525.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c100000525.filter,tp,LOCATION_MZONE,0,2,nil) - and Duel.IsExistingTarget(nil,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g1=Duel.SelectTarget(tp,c100000525.filter,tp,LOCATION_MZONE,0,2,2,nil,tp) -end -function c100000525.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc1=g:GetFirst() - local tc2=g:GetNext() - if not tc1:IsPosition(POS_FACEUP_ATTACK) or not tc2:IsPosition(POS_FACEUP_ATTACK) - or not tc1:IsRelateToEffect(e) or not tc2:IsRelateToEffect(e) then return end - tc1:RegisterFlagEffect(100000525,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - tc2:RegisterFlagEffect(100000525,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetCondition(c100000525.condtion) - e1:SetValue(tc2:GetAttack()) - e1:SetLabelObject(tc2) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc1:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetValue(tc1:GetAttack()) - e2:SetLabelObject(tc1) - tc2:RegisterEffect(e2) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_ATTACK_ANNOUNCE) - e3:SetOperation(c100000525.atop) - e3:SetLabelObject(tc2) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc1:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetLabelObject(tc1) - tc2:RegisterEffect(e4) -end -function c100000525.condtion(e) - local oc=e:GetLabelObject() - local ph=Duel.GetCurrentPhase() - return (ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) and Duel.GetAttacker():GetFlagEffect(100000525)~=0 - and oc:IsPosition(POS_FACEUP_ATTACK) and Duel.GetAttackTarget()~=nil -end -function c100000525.atop(e,tp,eg,ep,ev,re,r,rp) - local oc=e:GetLabelObject() - if Duel.GetAttacker()~=oc and oc:IsPosition(POS_FACEUP_ATTACK) then - Duel.ChangeAttacker(oc) - end -end \ No newline at end of file diff --git a/script/c100000526.lua b/script/c100000526.lua deleted file mode 100644 index 4bf6a0d8..00000000 --- a/script/c100000526.lua +++ /dev/null @@ -1,49 +0,0 @@ ---天馬之翼 -function c100000526.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000526.target) - e1:SetOperation(c100000526.activate) - c:RegisterEffect(e1) -end -function c100000526.filter(c,e,tp) - return c:GetCode()==100000533 or c:GetCode()==100000534 or c:GetCode()==100000537 or c:GetCode()==100000538 -end -function c100000526.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,100000527) end -end -function c100000526.activate(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetMatchingGroup(c100000526.filter,tp,LOCATION_MZONE,0,nil) - local tc=dg:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DIRECT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - -- - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_DAMAGE_CALCULATING) - e3:SetCondition(c100000526.atkcon) - e3:SetOperation(c100000526.atkop) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e3) - tc=dg:GetNext() - end -end -function c100000526.atkcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==nil and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)~=0 - and e:GetHandler():GetEffectCount(EFFECT_DIRECT_ATTACK)==1 -end -function c100000526.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(c:GetAttack()/2) - c:RegisterEffect(e1) -end \ No newline at end of file diff --git a/script/c100000527.lua b/script/c100000527.lua deleted file mode 100644 index 3069453c..00000000 --- a/script/c100000527.lua +++ /dev/null @@ -1,112 +0,0 @@ ---運命の戦車 -function c100000527.initial_effect(c) - --equip - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000527,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100000527.eqtg) - e1:SetOperation(c100000527.eqop) - c:RegisterEffect(e1) - --unequip - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000527,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000527.uncon) - e2:SetTarget(c100000527.sptg) - e2:SetOperation(c100000527.spop) - c:RegisterEffect(e2) - --direct_attack - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(100000527,2)) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetRange(LOCATION_SZONE) - e5:SetCondition(c100000527.uncon) - e5:SetCost(c100000527.atkcost) - e5:SetOperation(c100000527.atkop) - c:RegisterEffect(e5) - --destroy sub - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_EQUIP) - e6:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e6:SetCode(EFFECT_DESTROY_SUBSTITUTE) - e6:SetCondition(c100000527.uncon) - e6:SetValue(c100000527.repval) - c:RegisterEffect(e6) - --eqlimit - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_SINGLE) - e7:SetCode(EFFECT_EQUIP_LIMIT) - e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e7:SetValue(c100000527.eqlimit) - c:RegisterEffect(e7) -end -function c100000527.uncon(e) - return e:GetHandler():IsStatus(STATUS_UNION) -end -function c100000527.repval(e,re,r,rp) - return bit.band(r,REASON_BATTLE)~=0 -end -function c100000527.eqlimit(e,c) - return c:GetCode()==100000533 or c:GetCode()==100000534 or c:GetCode()==100000537 or c:GetCode()==100000538 -end -function c100000527.filter(c) - return c:IsFaceup() and (c:GetCode()==100000533 or c:GetCode()==100000534 or c:GetCode()==100000537 or c:GetCode()==100000538) and c:GetUnionCount()==0 -end -function c100000527.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000527.filter(chkc) end - if chk==0 then return e:GetHandler():GetFlagEffect(100000527)==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c100000527.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,c100000527.filter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) - e:GetHandler():RegisterFlagEffect(100000527,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) -end -function c100000527.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if not c:IsRelateToEffect(e) or c:IsFacedown() then return end - if not tc:IsRelateToEffect(e) or not c100000527.filter(tc) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - if not Duel.Equip(tp,c,tc,false) then return end - c:SetStatus(STATUS_UNION,true) -end -function c100000527.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(100000527)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) - e:GetHandler():RegisterFlagEffect(100000527,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) -end -function c100000527.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) - end -end -function c100000527.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_SET_ATTACK_FINAL) - e2:SetValue(c100000527.value) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e2) -end -function c100000527.value(e,c) - return c:GetAttack()/2 -end -function c100000527.atkop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_DIRECT_ATTACK) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e3) -end diff --git a/script/c100000528.lua b/script/c100000528.lua deleted file mode 100644 index 292c1968..00000000 --- a/script/c100000528.lua +++ /dev/null @@ -1,28 +0,0 @@ ---白鳥の乙女 -function c100000528.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000528.target) - e1:SetOperation(c100000528.activate) - c:RegisterEffect(e1) -end -function c100000528.filter(c,e,tp) - return (c:GetCode()==100000533 or c:GetCode()==100000534 or c:GetCode()==100000537 or c:GetCode()==100000538) - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000528.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000528.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000528.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000528.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 diff --git a/script/c100000529.lua b/script/c100000529.lua deleted file mode 100644 index 0d36ff4b..00000000 --- a/script/c100000529.lua +++ /dev/null @@ -1,36 +0,0 @@ ---ワルキューレの抱擁 -function c100000529.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000529.cost) - e1:SetTarget(c100000529.target) - e1:SetOperation(c100000529.activate) - c:RegisterEffect(e1) -end -function c100000529.filter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and (c:GetCode()==100000533 or c:GetCode()==100000534 or c:GetCode()==100000537 or c:GetCode()==100000538) -end -function c100000529.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000529.filter,tp,LOCATION_MZONE,0,1,nil) end - local dg=Duel.GetMatchingGroup(c100000529.filter,tp,LOCATION_MZONE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local sg=dg:Select(tp,1,1,nil) - Duel.ChangePosition(sg,POS_FACEUP_DEFENCE) -end -function c100000529.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToRemove() end - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c100000529.activate(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,nil) - if dg:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local des=dg:Select(tp,1,1,nil) - Duel.Remove(des,POS_FACEUP,REASON_EFFECT) - end -end diff --git a/script/c100000530.lua b/script/c100000530.lua deleted file mode 100644 index a02c2972..00000000 --- a/script/c100000530.lua +++ /dev/null @@ -1,97 +0,0 @@ ---集いし願い -function c100000530.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000530.target) - e1:SetOperation(c100000530.operation) - c:RegisterEffect(e1) -end -function c100000530.vfilter(c) - return c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_DRAGON) -end -function c100000530.sfilter(c,e,tp) - return c:GetCode()==44508094 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000530.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100000530.filter1(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000530.sfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) - and Duel.GetMatchingGroup(c100000530.vfilter,tp,LOCATION_GRAVE,0,nil):GetCount()>4 end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000530.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.GetFirstMatchingCard(c100000530.sfilter,tp,LOCATION_EXTRA,0,nil,e,tp) - if c:IsRelateToEffect(e) - and Duel.SpecialSummonStep(tg,0,tp,tp,false,false,POS_FACEUP) then - c:SetCardTarget(tg) - Duel.Equip(tp,c,tg) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_EQUIP) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(c100000530.val) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(c100000530.eqlimit) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) - --chain attack - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000530,0)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_BATTLE_DESTROYING) - e3:SetCondition(c100000530.atcon) - e3:SetCost(c100000530.cost) - e3:SetOperation(c100000530.atop) - e3:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e4:SetRange(LOCATION_MZONE) - e4:SetCode(EVENT_PHASE+PHASE_END) - e4:SetOperation(c100000530.desop) - e4:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e4:SetCountLimit(1) - tg:RegisterEffect(e4) - Duel.SpecialSummonComplete() - end -end -function c100000530.val(e,c) - local g=Duel.GetMatchingGroup(c100000530.vfilter,c:GetControler(),LOCATION_GRAVE,0,c) - return g:GetSum(Card.GetBaseAttack) -end -function c100000530.eqlimit(e,c) - return c:GetCode()==44508094 -end -function c100000530.sendfilter(c) - return c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_DRAGON) and c:IsAbleToExtra() -end -function c100000530.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000530.sendfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectMatchingCard(tp,c100000530.sendfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SendtoDeck(g,nil,1,REASON_COST) -end -function c100000530.atcon(e,tp,eg,ep,ev,re,r,rp) - local ec=e:GetHandler():GetEquipTarget() - if not eg:IsContains(ec) then return false end - local bc=ec:GetBattleTarget() - return bc:IsReason(REASON_BATTLE) -end -function c100000530.atop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChainAttack() -end -function c100000530.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000531.lua b/script/c100000531.lua deleted file mode 100644 index ecd94248..00000000 --- a/script/c100000531.lua +++ /dev/null @@ -1,44 +0,0 @@ ---標本の閲覧 -function c100000531.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000531.cost) - e1:SetTarget(c100000531.target) - e1:SetOperation(c100000531.activate) - c:RegisterEffect(e1) -end -function c100000531.cfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() -end -function c100000531.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000531.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000531.cfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c100000531.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,0,LOCATION_DECK,1,nil) end -end -function c100000531.filter(c,rc,lv) - return c:IsType(TYPE_MONSTER) and c:IsRace(rc) and c:GetLevel()==lv and c:IsAbleToGrave() -end -function c100000531.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,563) - local rc=Duel.AnnounceRace(tp,1,0xffffff) - Duel.Hint(HINT_SELECTMSG,tp,567) - local lv=Duel.AnnounceNumber(tp,1,2,3,4,5,6,7,8,9,10,11,12) - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(1-tp,c100000531.filter,1-tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,rc,lv) - local tc=g:GetFirst() - if tc then - Duel.SendtoGrave(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(tp,tc) - else - local dg=Duel.GetFieldGroup(tp,0,LOCATION_DECK+LOCATION_HAND) - Duel.ConfirmCards(tp,dg) - Duel.ShuffleDeck(1-tp) - Duel.ShuffleHand(1-tp) - end -end diff --git a/script/c100000532.lua b/script/c100000532.lua deleted file mode 100644 index d4bfa7e8..00000000 --- a/script/c100000532.lua +++ /dev/null @@ -1,47 +0,0 @@ --- -function c100000532.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000532.target) - e1:SetOperation(c100000532.operation) - c:RegisterEffect(e1) -end -function c100000532.filter(c,e,tp) - return (c:GetCode()==100000533 or c:GetCode()==100000534 or c:GetCode()==100000537 or c:GetCode()==100000538) - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000532.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000532.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000532.operation(e,tp,eg,ep,ev,re,r,rp) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000532.filter,tp,LOCATION_HAND,0,1,ft,nil,e,tp) - if g:GetCount()>0 then - local fid=e:GetHandler():GetFieldID() - local tc=g:GetFirst() - while tc do - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetOperation(c100000532.retop) - tc:RegisterEffect(e2) - tc=g:GetNext() - end - Duel.SpecialSummonComplete() - end -end -function c100000532.retop(e,tp,eg,ep,ev,re,r,rp) - Duel.SendtoDeck(e:GetHandler(),nil,0,REASON_EFFECT) -end - diff --git a/script/c100000533.lua b/script/c100000533.lua deleted file mode 100644 index 635bf68c..00000000 --- a/script/c100000533.lua +++ /dev/null @@ -1,32 +0,0 @@ ---ワルキューレ・ブリュンヒルデ -function c100000533.initial_effect(c) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000533,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetTarget(c100000533.target) - e2:SetOperation(c100000533.operation) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - local e4=e2:Clone() - e4:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e4) -end -function c100000533.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,0,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c100000533.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100000534.lua b/script/c100000534.lua deleted file mode 100644 index 4dfa2c1e..00000000 --- a/script/c100000534.lua +++ /dev/null @@ -1,17 +0,0 @@ ---ワルキューレ・ドリッド -function c100000534.initial_effect(c) - --atk def - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetValue(c100000534.value) - c:RegisterEffect(e2) -end -function c100000534.filter(c) - return c:IsFaceup() and c:IsType(TYPE_MONSTER) -end -function c100000534.value(e,c) - return Duel.GetMatchingGroupCount(c100000534.filter,c:GetControler(),0,LOCATION_REMOVED,nil)*100 -end diff --git a/script/c100000535.lua b/script/c100000535.lua deleted file mode 100644 index 63df1c80..00000000 --- a/script/c100000535.lua +++ /dev/null @@ -1,31 +0,0 @@ ---神々の黄昏 -function c100000535.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000535,4)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000535.target) - e1:SetOperation(c100000535.operation) - c:RegisterEffect(e1) -end -function c100000535.cfilter(c) - local code=c:GetCode() - return c:IsFaceup() and (code==92377303 or code==46986414 or code==38033121 or code==30208479) -end -function c100000535.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - local g=Duel.GetMatchingGroup(c100000535.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - local ct=g:GetClassCount(Card.GetCode) - if chk==0 then return ct>1 and Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100000535.operation(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsType,tp,0x13,0,nil,TYPE_MONSTER) - if Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)>0 then - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(dg,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100000536.lua b/script/c100000536.lua deleted file mode 100644 index 8e986dee..00000000 --- a/script/c100000536.lua +++ /dev/null @@ -1,46 +0,0 @@ ---ブラック・イリュージョン -function c100000536.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000536.target) - e1:SetOperation(c100000536.operation) - c:RegisterEffect(e1) -end -function c100000536.filter(c) - return c:IsFaceup() and c:IsCode(46986414) -end -function c100000536.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c100000536.filter(chkc) end - if chk==0 then return Duel.IsPlayerCanDraw(1-tp,1) end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,1-tp,1) -end -function c100000536.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Draw(1-tp,1,REASON_EFFECT) - Duel.BreakEffect() - local tc=Duel.SelectMatchingCard(tp,c100000536.filter,tp,LOCATION_MZONE,0,1,1,nil):GetFirst() - if tc then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_IMMUNE_EFFECT) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(c100000536.efilter) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e2) - end -end -function c100000536.efilter(e,te,r,rp) - return te:IsActiveType(TYPE_EFFECT) -end diff --git a/script/c100000537.lua b/script/c100000537.lua deleted file mode 100644 index 82eeee4c..00000000 --- a/script/c100000537.lua +++ /dev/null @@ -1,41 +0,0 @@ ---ワルキューレ・アルテスト -function c100000537.initial_effect(c) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000537,0)) - e2:SetCategory(CATEGORY_REMOVE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c100000537.target) - e2:SetOperation(c100000537.operation) - c:RegisterEffect(e2) -end -function c100000537.sfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() -end -function c100000537.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and chkc:IsType(TYPE_MONSTER) end - if chk==0 then return Duel.IsExistingTarget(c100000537.sfilter,1-tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,c100000537.sfilter,1-tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c100000537.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsAbleToRemove() then - if Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)~=1 then return end - local ba=tc:GetBaseAttack() - local reset_flag=RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetReset(reset_flag) - e2:SetCode(EFFECT_SET_ATTACK) - e2:SetValue(ba) - c:RegisterEffect(e2) - end -end - diff --git a/script/c100000538.lua b/script/c100000538.lua deleted file mode 100644 index a0110cd2..00000000 --- a/script/c100000538.lua +++ /dev/null @@ -1,37 +0,0 @@ ---ワルキューレ・ブリュンヒルデ -function c100000538.initial_effect(c) - --atk - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(c100000538.val) - c:RegisterEffect(e1) - --Destroy replace - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DESTROY_REPLACE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c100000538.desreptg) - c:RegisterEffect(e2) -end -function c100000538.filter(c) - return c:IsRace(RACE_DRAGON) or c:IsRace(RACE_WARRIOR) -end -function c100000538.val(e,c) - return Duel.GetMatchingGroupCount(c100000538.filter,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,nil)*300 -end -function c100000538.desreptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsReason(REASON_BATTLE) and c:IsFaceup() and c:GetDefence()>=1000 end - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_COPY_INHERIT) - e2:SetReset(RESET_EVENT+0x1ff0000) - e2:SetCode(EFFECT_UPDATE_DEFENCE) - e2:SetValue(-1000) - c:RegisterEffect(e2) - return true -end diff --git a/script/c100000539.lua b/script/c100000539.lua deleted file mode 100644 index afb883a2..00000000 --- a/script/c100000539.lua +++ /dev/null @@ -1,41 +0,0 @@ ---英雄の掛橋－ビヴロスト -function c100000539.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000539.target) - e1:SetOperation(c100000539.activate) - c:RegisterEffect(e1) -end -function c100000539.filter(c) - return c:IsFaceup() and (c:GetCode()==100000533 or c:GetCode()==100000534 or c:GetCode()==100000537 or c:GetCode()==100000538) -end -function c100000539.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100000539.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000539.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100000539.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100000539.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and not tc:IsImmuneToEffect(e) then - --atk - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetValue(c100000539.value) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e2) - end -end -function c100000539.filter(c) - return c:IsFaceup() and c:IsType(TYPE_MONSTER) -end -function c100000539.value(e,c) - return Duel.GetMatchingGroupCount(c100000539.filter,c:GetControler(),0,LOCATION_REMOVED,nil)*500 -end diff --git a/script/c100000540.lua b/script/c100000540.lua deleted file mode 100644 index f60dfc8b..00000000 --- a/script/c100000540.lua +++ /dev/null @@ -1,74 +0,0 @@ ---クリアー・ウォール -function c100000164.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --selfdes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_ADJUST) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000164.sdcon) - e2:SetOperation(c100000164.sdop) - c:RegisterEffect(e2) - --battle indestructable - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetTarget(c100000164.indtg) - e3:SetValue(1) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(100000164,0)) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e4:SetRange(LOCATION_SZONE) - e4:SetCode(EVENT_DAMAGE) - e4:SetCondition(c100000164.dscon) - e4:SetTarget(c100000164.dstg) - e4:SetOperation(c100000164.dsop) - c:RegisterEffect(e4) - -- - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e5:SetRange(LOCATION_SZONE) - e5:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e5:SetCondition(c100000164.condition2) - e5:SetOperation(c100000164.activate) - c:RegisterEffect(e5) -end -function c100000164.sdcon(e,tp,eg,ep,ev,re,r,rp) - local f1=Duel.GetFieldCard(0,LOCATION_SZONE,5) - local f2=Duel.GetFieldCard(1,LOCATION_SZONE,5) - return (f1==nil or f1:IsFacedown() or f1:GetCode()~=33900648) and (f2==nil or f2:IsFacedown() or f2:GetCode()~=33900648) -end -function c100000164.sdop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),Re2SON_EFFECT) -end -function c100000164.indtg(e,c) - return (c:IsCode(97811903) or c:IsCode(100000160) or c:IsCode(100000161) or c:IsCode(100000162) or c:IsCode(100000163)) and c:GetBattlePosition()==POS_FACEUP_ATTACK -end -function c100000164.dscon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(r,REASON_BATTLE)>0 and ep==tp -end -function c100000164.dstg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) -end -function c100000164.dsop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.Destroy(e:GetHandler(),REASON_EFFECT) - end -end -function c100000164.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() and Duel.GetAttackTarget()==nil -end -function c100000164.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetBattleDamage(e:GetHandler():GetControler())<=1000 -end -function c100000164.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(e:GetHandler():GetControler(),0) -end \ No newline at end of file diff --git a/script/c100000541.lua b/script/c100000541.lua deleted file mode 100644 index aaf53ebd..00000000 --- a/script/c100000541.lua +++ /dev/null @@ -1,34 +0,0 @@ ---ダブル・ドッグ -function c100000541.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000541.condition) - e1:SetTarget(c100000541.target) - e1:SetOperation(c100000541.activate) - c:RegisterEffect(e1) -end -function c100000541.cfilter(c) - return c:IsFaceup() and c:IsRace(RACE_BEAST) -end -function c100000541.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000541.cfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c100000541.filter(c,e,tp) - return c:IsCode(100000540) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c100000541.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000541.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c100000541.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000541.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000542.lua b/script/c100000542.lua deleted file mode 100644 index 6b914d9b..00000000 --- a/script/c100000542.lua +++ /dev/null @@ -1,64 +0,0 @@ ---ローゲの焔 -function c100000542.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --cannot attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_ATTACK) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(0,LOCATION_MZONE) - e2:SetTarget(c100000542.atktarget) - c:RegisterEffect(e2) - local e6=Effect.CreateEffect(c) - e6:SetCategory(CATEGORY_SPECIAL_SUMMON) - e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e6:SetCode(EVENT_TO_GRAVE) - e6:SetCondition(c100000542.condition3) - e6:SetTarget(c100000542.target5) - e6:SetOperation(c100000542.operation3) - c:RegisterEffect(e6) - local e3=e6:Clone() - e3:SetCode(EVENT_REMOVE) - c:RegisterEffect(e3) - local e4=e6:Clone() - e4:SetCode(EVENT_TO_DECK) - c:RegisterEffect(e4) - -- - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e5:SetCode(EVENT_ATTACK_ANNOUNCE) - e5:SetRange(LOCATION_SZONE) - e5:SetOperation(c100000542.desop) - c:RegisterEffect(e5) -end -function c100000542.atktarget(e,c) - return c:GetAttack()<=2000 -end -function c100000542.condition3(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsPreviousPosition(POS_FACEUP) -end -function c100000542.tf1(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCode(100000538) -end -function c100000542.target5(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000542.tf1,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND) -end -function c100000542.operation3(e,tp,eg,ep,ev,re,r,rp) - if chk==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end - local tc1=Duel.SelectMatchingCard(tp,c100000542.tf1,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - if tc1 then - Duel.SpecialSummon(tc1,0,tp,tp,true,false,POS_FACEUP) - end -end -function c100000542.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end diff --git a/script/c100000543.lua b/script/c100000543.lua deleted file mode 100644 index 4481b638..00000000 --- a/script/c100000543.lua +++ /dev/null @@ -1,47 +0,0 @@ ---超巨大飛行艇ジャイアントヒンデンブルグ -function c100000543.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000543.spcon) - e1:SetOperation(c100000543.spop) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000543,0)) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetCondition(c100000543.con) - e2:SetTarget(c100000543.target) - e2:SetOperation(c100000543.operation) - c:RegisterEffect(e2) -end -function c100000543.spcon(e,c) - if c==nil then return true end - return Duel.CheckReleaseGroup(c:GetControler(),Card.IsType,2,nil,TYPE_TOKEN) -end -function c100000543.spop(e,tp,eg,ep,ev,re,r,rp,chk) - local g=Duel.SelectReleaseGroup(c:GetControler(),Card.IsType,2,2,nil,TYPE_TOKEN) - Duel.Release(g,REASON_COST) -end -function c100000543.con(e,tp,eg,ep,ev,re,r,rp) - local tg=eg:GetFirst() - return eg:GetCount()==1 and tg~=e:GetHandler() and tg:IsLevelAbove(5) -end -function c100000543.filter(c,e,tp) - return c:IsFaceup() and c:IsAttackPos() and c:IsLevelBelow(9) -end -function c100000543.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000543.filter,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(c100000543.filter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,sg,sg:GetCount(),0,0) -end -function c100000543.operation(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100000543.filter,tp,0,LOCATION_MZONE,nil) - Duel.ChangePosition(sg,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) -end diff --git a/script/c100000544.lua b/script/c100000544.lua deleted file mode 100644 index bfc84325..00000000 --- a/script/c100000544.lua +++ /dev/null @@ -1,52 +0,0 @@ ---超巨大不沈客船エレガントタイタニック -function c100000544.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000544.spcon) - e1:SetOperation(c100000544.spop) - c:RegisterEffect(e1) - --destroy&damage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c100000544.target) - e2:SetOperation(c100000544.operation) - c:RegisterEffect(e2) -end -function c100000544.spcon(e,c) - if c==nil then return true end - return Duel.CheckReleaseGroup(c:GetControler(),Card.IsType,2,nil,TYPE_TOKEN) -end -function c100000544.spop(e,tp,eg,ep,ev,re,r,rp,chk) - local g=Duel.SelectReleaseGroup(c:GetControler(),Card.IsType,2,2,nil,TYPE_TOKEN) - Duel.Release(g,REASON_COST) -end -function c100000544.filter(c) - return c:IsFaceup() and c:IsDestructable() and c:GetDefence()==0 -end -function c100000544.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c100000544.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000544.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100000544.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,g:GetFirst():GetTextAttack()) -end -function c100000544.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsControler(1-tp) then - local atk=tc:GetAttack() - if atk<0 then atk=0 end - if Duel.Destroy(tc,REASON_EFFECT)~=0 then - Duel.Damage(1-tp,atk/2,REASON_EFFECT) - end - end -end - diff --git a/script/c100000545.lua b/script/c100000545.lua deleted file mode 100644 index ab69e36f..00000000 --- a/script/c100000545.lua +++ /dev/null @@ -1,32 +0,0 @@ ---フライアのリンゴ -function c100000545.initial_effect(c) - --draw - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000545,0)) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c100000545.drcon) - e1:SetTarget(c100000545.drtg) - e1:SetOperation(c100000545.drop) - c:RegisterEffect(e1) - local e3=e1:Clone() - e3:SetCode(EVENT_REMOVE) - c:RegisterEffect(e3) - local e4=e1:Clone() - e4:SetCode(EVENT_TO_DECK) - c:RegisterEffect(e4) -end -function c100000545.drcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) -end -function c100000545.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c100000545.drop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.Draw(tp,1,REASON_EFFECT) - end -end diff --git a/script/c100000546.lua b/script/c100000546.lua deleted file mode 100644 index 00afe37e..00000000 --- a/script/c100000546.lua +++ /dev/null @@ -1,19 +0,0 @@ ---宇宙花 -function c100000546.initial_effect(c) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND) - e2:SetCondition(c100000546.spcon) - c:RegisterEffect(e2) -end -function c100000546.spfilter(c) - return c:IsFaceup() and c:IsRace(RACE_PLANT) -end -function c100000546.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and - Duel.IsExistingMatchingCard(c100000546.spfilter,c:GetControler(),LOCATION_MZONE,0,2,nil) -end \ No newline at end of file diff --git a/script/c100000547.lua b/script/c100000547.lua deleted file mode 100644 index 8eb1ae13..00000000 --- a/script/c100000547.lua +++ /dev/null @@ -1,23 +0,0 @@ ---火銃花 -function c100000547.initial_effect(c) - --draw - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000547,0)) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c100000547.condition) - e1:SetTarget(c100000547.target) - e1:SetOperation(c100000547.operation) - c:RegisterEffect(e1) -end -function c100000547.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(800) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) -end -function c100000547.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100000548.lua b/script/c100000548.lua deleted file mode 100644 index b1f2dc9c..00000000 --- a/script/c100000548.lua +++ /dev/null @@ -1,39 +0,0 @@ ---トマトマトリョーシカ -function c100000548.initial_effect(c) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000548,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c100000548.sptg) - e2:SetOperation(c100000548.spop) - c:RegisterEffect(e2) - --xyzlimit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e3:SetValue(c100000548.xyzlimit) - c:RegisterEffect(e3) -end -function c100000548.filter(c,e,tp) - return c:IsCode(100000548) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000548.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000548.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c100000548.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000548.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - local tc=g:GetFirst() - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) -end -function c100000548.xyzlimit(e,c) - if not c then return false end - return not c:IsRace(RACE_PLANT) -end - diff --git a/script/c100000549.lua b/script/c100000549.lua deleted file mode 100644 index d8b6a9c2..00000000 --- a/script/c100000549.lua +++ /dev/null @@ -1,32 +0,0 @@ ---トマト王レッドレッドキング -function c100000549.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsRACE,RACE_PLANT),3),3) - c:EnableReviveLimit() - --attack up - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetDescription(aux.Stringid(100000549,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c100000549.cost) - e1:SetOperation(c100000549.operation) - c:RegisterEffect(e1) -end -function c100000549.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000549.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(c:GetAttack()*2) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END,2) - c:RegisterEffect(e1) - end -end - diff --git a/script/c100000550.lua b/script/c100000550.lua deleted file mode 100644 index 9dc54cd8..00000000 --- a/script/c100000550.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Ｎ・シグナル -function c100000550.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetCode(EVENT_DESTROYED) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c100000550.condition) - e1:SetTarget(c100000550.target) - e1:SetOperation(c100000550.operation) - c:RegisterEffect(e1) -end -function c100000550.cfilter(c,tp) - return c:IsLocation(LOCATION_GRAVE) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) - and c:IsType(TYPE_MONSTER) -end -function c100000550.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000550.cfilter,1,nil,tp) -end -function c100000550.spfilter(c,e,tp) - return c:IsSetCard(0x1f) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000550.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000550.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND) -end -function c100000550.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000550.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000551.lua b/script/c100000551.lua deleted file mode 100644 index bc359742..00000000 --- a/script/c100000551.lua +++ /dev/null @@ -1,48 +0,0 @@ ---コンタクト・ソウル -function c100000551.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000551.condition) - e1:SetTarget(c100000551.target) - e1:SetOperation(c100000551.activate) - c:RegisterEffect(e1) -end -function c100000551.cfilter(c) - return c:IsFaceup() and c:IsCode(89943723) -end -function c100000551.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000551.cfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c100000551.filter(c,e,tp) - return c:IsSetCard(0x1f) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000551.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(0x13) and chkc:IsControler(tp) and c100000551.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000551.filter,tp,0x13,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000551.filter,tp,0x13,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000551.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetOperation(c100000551.retop) - e1:SetReset(RESET_EVENT+RESET_PHASE+EVENT_PHASE+PHASE_END,1) - Duel.RegisterEffect(e1,tp) - end -end -function c100000551.retop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_MZONE,0,nil) - Duel.SendtoDeck(g,nil,2,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000552.lua b/script/c100000552.lua deleted file mode 100644 index 4bb4f310..00000000 --- a/script/c100000552.lua +++ /dev/null @@ -1,79 +0,0 @@ ---ネオス・エナジー -function c100000552.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c100000552.condition) - e1:SetTarget(c100000552.target) - e1:SetOperation(c100000552.operation) - c:RegisterEffect(e1) - --Atk up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetValue(800) - c:RegisterEffect(e2) - --Equip limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EQUIP_LIMIT) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetValue(c100000552.eqlimit) - c:RegisterEffect(e3) - --atkdown - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_PHASE+PHASE_STANDBY) - e4:SetRange(LOCATION_SZONE) - e4:SetCountLimit(1) - e4:SetCondition(c100000552.atkcon) - e4:SetOperation(c100000552.atkop) - c:RegisterEffect(e4) -end -function c100000552.eqlimit(e,c) - return c:IsSetCard(0x1f) -end -function c100000552.eqfilter1(c) - return c:IsFaceup() and c:IsSetCard(0x1f) -end -function c100000552.condition(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c100000552.cfilter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c100000552.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100000552.eqfilter1(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000552.eqfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c100000552.eqfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c100000552.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end -function c100000552.atkcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100000552.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetFlagEffect(100000552)==0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_EQUIP) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-300) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - c:RegisterFlagEffect(100000552,RESET_EVENT+0x1fe0000,0,0) - e:SetLabelObject(e1) - e:SetLabel(2) - else - local pe=e:GetLabelObject() - local ct=e:GetLabel() - e:SetLabel(ct+1) - pe:SetValue(ct*-300) - end -end \ No newline at end of file diff --git a/script/c100000553.lua b/script/c100000553.lua deleted file mode 100644 index 4f3deedd..00000000 --- a/script/c100000553.lua +++ /dev/null @@ -1,21 +0,0 @@ ---ネオスペーシア・ロード -function c100000553.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c100000553.condition) - e1:SetOperation(c100000553.operation) - c:RegisterEffect(e1) -end -function c100000553.cfilter(c,tp) - return c:IsReason(REASON_BATTLE) and c:GetPreviousControler()==tp and c:IsCode(89943723) -end -function c100000553.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000553.cfilter,1,nil,tp) -end -function c100000553.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) - Duel.BreakEffect() - Duel.Draw(tp,1,REASON_EFFECT) -end diff --git a/script/c100000554.lua b/script/c100000554.lua deleted file mode 100644 index a211b173..00000000 --- a/script/c100000554.lua +++ /dev/null @@ -1,66 +0,0 @@ ---クロス・チェンジ -function c100000554.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetLabel(0) - e1:SetTarget(c100000554.target) - e1:SetOperation(c100000554.activate) - c:RegisterEffect(e1) -end -function c100000554.filter1(c,setcard1,setcard2,e,tp) - local lv=c:GetLevel() - return c:IsSetCard(setcard1) and c:IsAbleToDeck() - and Duel.IsExistingMatchingCard(c100000554.filter2,tp,LOCATION_DECK,0,1,nil,setcard2,lv,e,tp) -end -function c100000554.filter2(c,setcard,lv,e,tp) - return c:IsSetCard(setcard) and c:GetLevel()==lv and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000554.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c100000554.filter1,tp,LOCATION_MZONE,0,1,nil,0x3008,0x1f,e,tp) - or Duel.IsExistingMatchingCard(c100000554.filter1,tp,LOCATION_MZONE,0,1,nil,0x1f,0x3008,e,tp) - end - local opt=0 - if Duel.IsExistingMatchingCard(c100000554.filter1,tp,LOCATION_MZONE,0,1,nil,0x3008,0x1f,e,tp) - and Duel.IsExistingMatchingCard(c100000554.filter1,tp,LOCATION_MZONE,0,1,nil,0x1f,0x3008,e,tp) then - opt=Duel.SelectOption(tp,aux.Stringid(100000554,0),aux.Stringid(100000554,1)) - else - if Duel.IsExistingMatchingCard(c100000554.filter1,tp,LOCATION_MZONE,0,1,nil,0x1f,0x3008,e,tp) then - opt=1 - end - end - Duel.SetTargetParam(opt) - local setcard=nil - if opt==0 then - setcard1=0x3008 - setcard2=0x1f - else - setcard1=0x1f - setcard2=0x3008 - e:SetLabel(1) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c100000554.filter1,tp,LOCATION_MZONE,0,1,1,nil,setcard1,setcard2,e,tp) -end -function c100000554.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - local opt=e:GetLabel() - if opt==0 then - setcard=0x1f - else - setcard=0x3008 - end - local lv=tc:GetLevel() - local dt=Duel.GetMatchingGroup(c100000554.filter2,tp,LOCATION_DECK,0,nil,setcard,lv,e,tp) - if tc:IsLocation(LOCATION_MZONE) and tc:IsRelateToEffect(e) and dt:GetCount()>0 then - Duel.SendtoDeck(tc,nil,1,REASON_EFFECT) - local dt=Duel.SelectMatchingCard(tp,c100000554.filter2,tp,LOCATION_DECK,0,1,1,nil,setcard,lv,e,tp) - if dt then - Duel.SpecialSummon(dt,0,tp,tp,false,false,POS_FACEUP) - end - end -end diff --git a/script/c100000555.lua b/script/c100000555.lua deleted file mode 100644 index d627c60c..00000000 --- a/script/c100000555.lua +++ /dev/null @@ -1,49 +0,0 @@ ---ＥＮシャッフル -function c100000555.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000555.target) - e1:SetOperation(c100000555.activate) - c:RegisterEffect(e1) -end -function c100000555.filter1(c,e,tp) - return c:IsSetCard(0x3008) and c:IsAbleToDeck() - and Duel.IsExistingMatchingCard(c100000555.filter2,tp,LOCATION_DECK,0,1,nil,e,tp) -end -function c100000555.filter2(c,e,tp) - return c:IsSetCard(0x1f) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000555.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c100000555.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c100000555.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp) -end -function c100000555.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if tc:IsLocation(LOCATION_MZONE) and tc:IsRelateToEffect(e) then - Duel.SendtoDeck(tc,nil,1,REASON_EFFECT) - Duel.BreakEffect() - local dt=Duel.GetMatchingGroup(c100000555.filter2,tp,LOCATION_DECK,0,nil,e,tp) - if dt:GetCount()>0 then - local ed=dt:Select(tp,1,1,nil):GetFirst() - if Duel.SpecialSummonStep(ed,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - ed:RegisterEffect(e1,true) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - ed:RegisterEffect(e2,true) - Duel.SpecialSummonComplete() - end - end - end -end diff --git a/script/c100000556.lua b/script/c100000556.lua deleted file mode 100644 index 4c712f2e..00000000 --- a/script/c100000556.lua +++ /dev/null @@ -1,30 +0,0 @@ ---バリアン・ボム -function c100000556.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_TOHAND) - e1:SetCategory(CATEGORY_HANDES) - e1:SetTarget(c100000556.target) - e1:SetOperation(c100000556.operation) - c:RegisterEffect(e1) -end -function c100000556.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return end - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) -end -function c100000556.filter(c) - return c:IsSetCard(0x310) -end -function c100000556.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100000556.filter,tp,0,LOCATION_HAND,nil) - local hg=Duel.GetFieldGroup(tp,0,LOCATION_HAND) - Duel.ConfirmCards(tp,hg) - if g:GetCount()>0 then - Duel.SendtoGrave(hg,REASON_EFFECT+REASON_DESTROY) - Duel.Damage(1-tp,1000,REASON_EFFECT) - end - Duel.ShuffleHand(1-tp) -end diff --git a/script/c100000557.lua b/script/c100000557.lua deleted file mode 100644 index 71434315..00000000 --- a/script/c100000557.lua +++ /dev/null @@ -1,128 +0,0 @@ ---未来への希望 -function c100000557.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000557.condition) - e1:SetCost(c100000557.cost) - e1:SetTarget(c100000557.target) - e1:SetOperation(c100000557.activate) - c:RegisterEffect(e1) -end -function c100000557.cfilter(c) - return c:IsCode(24094653) and c:IsAbleToGraveAsCost() -end -function c100000557.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000557.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100000557.cfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c100000557.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000557.filter23,tp,LOCATION_MZONE,0,1,nil) -end -function c100000557.filter1(c,e) - return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) -end -function c100000557.filter2(c,e,tp,m,f,chkf) - return c:IsType(TYPE_FUSION) and (not f or f(c)) and c:IsCode(31111109) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) -end -function c100000557.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000557.filter1,tp,LOCATION_DECK,0,nil,e) - local res=Duel.IsExistingMatchingCard(c100000557.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - res=Duel.IsExistingMatchingCard(c100000557.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000557.filter22(c) - return c:IsSetCard(0x1f) and c:IsFaceup() and c:IsAbleToDeck() -end -function c100000557.filter23(c) - return c:IsCode(89943723) and c:IsFaceup() and c:IsAbleToDeck() -end -function c100000557.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100000557.filter1,tp,LOCATION_DECK,0,nil,e) - local sg1=Duel.GetMatchingGroup(c100000557.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - sg2=Duel.GetMatchingGroup(c100000557.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:RandomSelect(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc)) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT) - Duel.BreakEffect() - local gtt=Duel.GetMatchingGroup(c100000557.filter22,tp,LOCATION_MZONE,0,nil,0x1f) - if gtt:GetCount()>0 then - mat1:Merge(gtt) - end - local gttc=Duel.SelectMatchingCard(tp,c100000557.filter23,tp,LOCATION_MZONE,0,1,1,nil) - mat1:AddCard(gttc:GetFirst()) - Duel.SendtoDeck(mat1,tp,0,REASON_EFFECT) - Duel.BreakEffect() - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetDescription(aux.Stringid(100000557,0)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100000557.copytg) - e1:SetOperation(c100000557.copyop) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end - end -end -function c100000557.filter33(c) - return c:IsSetCard(0x1f) and c:IsType(TYPE_MONSTER) - and not c:IsHasEffect(EFFECT_FORBIDDEN) and c:IsAbleToRemove() -end -function c100000557.copytg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingTarget(c100000557.filter33,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c100000557.copyop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c100000557.filter33,tp,LOCATION_DECK,0,1,1,nil) - local c=e:GetHandler() - local tc=g:GetFirst() - if c:IsRelateToEffect(e) and c:IsFaceup() then - if Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)~=1 then return end - local code=tc:GetOriginalCode() - c:CopyEffect(code,RESET_EVENT+0x1fe0000,1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_COPY_INHERIT) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetValue(500) - e2:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e2) - end -end diff --git a/script/c100000560.lua b/script/c100000560.lua deleted file mode 100644 index c6ce0d8d..00000000 --- a/script/c100000560.lua +++ /dev/null @@ -1,41 +0,0 @@ ---オレンジ・シャーマン -function c100000560.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetDescription(aux.Stringid(100000560,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c100000560.condition) - e1:SetTarget(c100000560.target) - e1:SetOperation(c100000560.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) -end -function c100000560.cfilter(c,e,tp) - return c:IsControler(tp) and c:IsFaceup() and c:IsType(TYPE_EFFECT) and (not e or c:IsRelateToEffect(e)) -end -function c100000560.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000560.cfilter,1,nil,nil,1-tp) - and not e:GetHandler():IsStatus(STATUS_CHAINING) -end -function c100000560.filter(c,e,tp) - return c:IsSetCard(0x309) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000560.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000560.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000560.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000560.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000561.lua b/script/c100000561.lua deleted file mode 100644 index 32da84c8..00000000 --- a/script/c100000561.lua +++ /dev/null @@ -1,35 +0,0 @@ ---グリーン・シャーマン -function c100000561.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetDescription(aux.Stringid(100000561,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_CHAINING) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c100000561.condition) - e1:SetTarget(c100000561.target) - e1:SetOperation(c100000561.operation) - c:RegisterEffect(e1) -end -function c100000561.condition(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetOwner():IsType(TYPE_SPELL) - and not e:GetHandler():IsStatus(STATUS_CHAINING) -end -function c100000561.filter(c,e,tp) - return c:IsSetCard(0x309) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000561.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000561.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000561.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000561.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000562.lua b/script/c100000562.lua deleted file mode 100644 index 5ee9b534..00000000 --- a/script/c100000562.lua +++ /dev/null @@ -1,36 +0,0 @@ ---レッド・シャーマン -function c100000562.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetDescription(aux.Stringid(100000562,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_CHAINING) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c100000562.condition) - e1:SetTarget(c100000562.target) - e1:SetOperation(c100000562.operation) - c:RegisterEffect(e1) -end -function c100000562.condition(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetOwner():IsType(TYPE_TRAP) - and not e:GetHandler():IsStatus(STATUS_CHAINING) -end -function c100000562.filter(c,e,tp) - return c:IsSetCard(0x309) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000562.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000562.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000562.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000562.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000563.lua b/script/c100000563.lua deleted file mode 100644 index 343346c6..00000000 --- a/script/c100000563.lua +++ /dev/null @@ -1,35 +0,0 @@ ---シャーマン・コール -function c100000563.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000563.condition) - e1:SetTarget(c100000563.target) - e1:SetOperation(c100000563.operation) - c:RegisterEffect(e1) -end -function c100000563.cfilter(c) - return c:IsFaceup() and c:GetAttack()==0 and c:IsRace(RACE_SPELLCASTER) -end -function c100000563.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000563.cfilter,tp,LOCATION_MZONE,0,2,nil) -end -function c100000563.filter(c,e,tp) - return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and - c:IsSetCard(0x309) -end -function c100000563.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000563.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000563.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000563.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000564.lua b/script/c100000564.lua deleted file mode 100644 index c14cf8d6..00000000 --- a/script/c100000564.lua +++ /dev/null @@ -1,20 +0,0 @@ ---弔いの舞 -function c100000564.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --spsummon limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,1) - e2:SetTarget(c100000564.sumlimit) - c:RegisterEffect(e2) -end -function c100000564.sumlimit(e,c,sump,sumtype,sumpos,targetp) - return c:IsLocation(LOCATION_GRAVE) -end \ No newline at end of file diff --git a/script/c100000565.lua b/script/c100000565.lua deleted file mode 100644 index 2776f4dc..00000000 --- a/script/c100000565.lua +++ /dev/null @@ -1,51 +0,0 @@ ---氷結の舞 -function c100000565.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetOperation(c100000565.operation) - c:RegisterEffect(e1) - --summon limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EFFECT_CANNOT_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,1) - e2:SetTarget(c100000565.sumlimit) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - c:RegisterEffect(e3) -end -function c100000565.operation(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_SZONE) - e1:SetCountLimit(1) - e1:SetCondition(c100000565.sdescon) - e1:SetOperation(c100000565.sdesop) - if Duel.GetTurnPlayer()~=tp then - e1:SetLabel(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_OPPO_TURN,3) - else - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_OPPO_TURN,2) - end - e:GetHandler():RegisterEffect(e1) -end -function c100000565.sdescon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c100000565.sdesop(e,tp,eg,ep,ev,re,r,rp) - if e:GetLabel()==0 then - Duel.Destroy(e:GetHandler(),REASON_EFFECT) - else - e:SetLabel(0) - end -end -function c100000565.sumlimit(e,c,sump,sumtype,sumpos,targetp) - return c:IsLocation(LOCATION_HAND) -end diff --git a/script/c100000570.lua b/script/c100000570.lua deleted file mode 100644 index 5ac97d3b..00000000 --- a/script/c100000570.lua +++ /dev/null @@ -1,46 +0,0 @@ ---超電磁竜マグネドラゴン -function c100000570.initial_effect(c) - c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000570,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetCondition(c100000570.damcon) - e2:SetTarget(c100000570.damtg) - e2:SetOperation(c100000570.damop) - c:RegisterEffect(e2) -end -function c100000570.damcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and bc:IsType(TYPE_MONSTER) -end -function c100000570.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local bc=e:GetHandler():GetBattleTarget() - Duel.SetTargetCard(bc) - local dam=bc:GetAttack() - if dam<0 then dam=0 end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100000570.damop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local dam=tc:GetAttack() - if dam<0 then dam=0 end - Duel.Damage(p,dam,REASON_EFFECT) - end -end diff --git a/script/c100000571.lua b/script/c100000571.lua deleted file mode 100644 index 63166e20..00000000 --- a/script/c100000571.lua +++ /dev/null @@ -1,50 +0,0 @@ ---磁力融合 -function c100000571.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100000571.cost) - e1:SetTarget(c100000571.target) - e1:SetOperation(c100000571.activate) - c:RegisterEffect(e1) -end -function c100000571.filter(c,code) - return c:IsCode(code) -end -function c100000571.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(1) - if chk==0 then return Duel.CheckReleaseGroup(tp,c100000571.filter,1,nil,450000350) - and Duel.CheckReleaseGroup(tp,c100000571.filter,1,nil,450000351) - and Duel.CheckReleaseGroup(tp,c100000571.filter,1,nil,450000352) end - local rg1=Duel.SelectReleaseGroup(tp,c100000571.filter,1,1,nil,450000350) - local rg2=Duel.SelectReleaseGroup(tp,c100000571.filter,1,1,nil,450000351) - local rg3=Duel.SelectReleaseGroup(tp,c100000571.filter,1,1,nil,450000352) - rg1:Merge(rg2) - rg1:Merge(rg3) - Duel.Release(rg1,REASON_COST) -end -function c100000571.spfilter(c,e,tp) - return c:IsCode(100000570) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000571.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=(e:GetLabel()==1) and 0 or -1 - e:SetLabel(0) - return Duel.IsExistingMatchingCard(c100000571.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>chkf - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) - e:SetLabel(0) -end -function c100000571.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=Duel.SelectMatchingCard(tp,c100000571.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - if sg:GetCount()>0 then - Duel.BreakEffect() - Duel.SpecialSummon(sg,SUMMON_TYPE_FUSION,tp,tp,true,false,POS_FACEUP) - sg:GetFirst():CompleteProcedure() - end -end diff --git a/script/c100000575.lua b/script/c100000575.lua deleted file mode 100644 index d445f934..00000000 --- a/script/c100000575.lua +++ /dev/null @@ -1,62 +0,0 @@ ---ＣＮｏ．１５ ギミック・パペット－シリアルキラー -function c100000575.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,9),3) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100000575.recon) - e1:SetOperation(c100000575.reop) - c:RegisterEffect(e1) - --battle indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(c100000575.indes) - c:RegisterEffect(e2) -end -c100000575.xyz_number=15 -function c100000575.indes(e,c) - return not c:IsSetCard(0x48) -end -function c100000575.recon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,88120966) -end -function c100000575.reop(e,tp,eg,ep,ev,re,r,rp) - --Disable - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c100000575.cost) - e3:SetTarget(c100000575.distg) - e3:SetOperation(c100000575.disop) - e3:SetReset(RESET_EVENT+0x1fe0000) - e:GetHandler():RegisterEffect(e3) -end -function c100000575.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000575.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,nil) -end -function c100000575.disop(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - local tc=sg:GetFirst() - local atk=0 - local dam=0 - while tc do - atk=tc:GetAttack() - if tc:IsFaceup() and atk>0 then dam=dam+atk end - tc=sg:GetNext() - end - if Duel.Destroy(sg,REASON_EFFECT)~=0 then - Duel.Damage(1-tp,dam,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100000576.lua b/script/c100000576.lua deleted file mode 100644 index 7f6ef904..00000000 --- a/script/c100000576.lua +++ /dev/null @@ -1,115 +0,0 @@ ---CNo.40　ギミック・パペット－デビルズ・ストリングス -function c100000576.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),9),3) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100000576.recon) - e1:SetOperation(c100000576.reop) - c:RegisterEffect(e1) - --battle indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(c100000576.indes) - c:RegisterEffect(e2) - --draw - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000576,0)) - e3:SetCategory(CATEGORY_DRAW) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_BATTLE_DESTROYING) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c100000576.drtg) - e3:SetOperation(c100000576.drop) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(EVENT_DESTROYED) - e4:SetCondition(c100000576.drcon) - c:RegisterEffect(e4) -end -c100000576.xyz_number=40 -function c100000576.indes(e,c) - return not c:IsSetCard(0x48) -end -function c100000576.drcon(e,tp,eg,ep,ev,re,r,rp) - return re and e:GetHandler()==re:GetHandler() -end -function c100000576.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c100000576.drop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end - -function c100000576.filter(c) - return c:IsCode(75433814) -end -function c100000576.recon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ - and e:GetHandler():GetOverlayGroup():IsExists(c100000576.filter,1,nil) -end -function c100000576.reop(e,tp,eg,ep,ev,re,r,rp) - --DESTROY - local e4=Effect.CreateEffect(e:GetHandler()) - e4:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e4:SetDescription(aux.Stringid(100000576,0)) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_MZONE) - e4:SetTarget(c100000576.target) - e4:SetCountLimit(1) - e4:SetOperation(c100000576.operation) - e4:SetReset(RESET_EVENT+0x1fe0000) - e:GetHandler():RegisterEffect(e4) - --counter - local e5=Effect.CreateEffect(e:GetHandler()) - e5:SetDescription(aux.Stringid(100000576,1)) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetCountLimit(1) - e5:SetRange(LOCATION_MZONE) - e5:SetCountLimit(1) - e5:SetCost(c100000576.ctcost) - e5:SetTarget(c100000576.cttg) - e5:SetOperation(c100000576.ctop) - e5:SetReset(RESET_EVENT+0x1fe0000) - e:GetHandler():RegisterEffect(e5) -end -function c100000576.desfilter(c) - return c:IsDestructable() and c:GetCounter(0x24)~=0 -end -function c100000576.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000576.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(c100000576.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0) -end -function c100000576.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100000576.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - local dam=g:GetSum(Card.GetBaseAttack) - Duel.Destroy(g,REASON_EFFECT) - Duel.Damage(1-tp,dam,REASON_EFFECT) -end -function c100000576.ctcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000576.cttg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_COUNTER,g,1,0x24,1) -end -function c100000576.ctop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0x24,1) - end -end diff --git a/script/c100000577.lua b/script/c100000577.lua deleted file mode 100644 index f759618c..00000000 --- a/script/c100000577.lua +++ /dev/null @@ -1,197 +0,0 @@ ---CNo.6 先史遺産－カオス・アトランタル -function c100000577.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,7),3) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100000577.recon) - e1:SetOperation(c100000577.reop) - c:RegisterEffect(e1) - --battle indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(c100000577.indes) - c:RegisterEffect(e2) -end -c100000577.xyz_number=6 -function c100000577.indes(e,c) - return not c:IsSetCard(0x48) -end -function c100000577.recon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,9161357) -end -function c100000577.con(e) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - if not bc then return end - return c:IsRelateToBattle() -end -function c100000577.op(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetHandler():GetBattleTarget() - bc:RegisterFlagEffect(100000577,RESET_EVENT+0x1fe0000,0,1) -end -function c100000577.reop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --battle - local e3=Effect.CreateEffect(c) - e3:SetProperty(EFFECT_FLAG_INITIAL) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_BATTLED) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c100000577.con) - e3:SetOperation(c100000577.op) - c:RegisterEffect(e3) - --equip - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(100000577,0)) - e5:SetCategory(CATEGORY_EQUIP) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET) - e5:SetRange(LOCATION_MZONE) - e5:SetCountLimit(1) - e5:SetTarget(c100000577.eqtg) - e5:SetOperation(c100000577.eqop) - e5:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e5) - --negate - local e6=Effect.CreateEffect(c) - e6:SetDescription(aux.Stringid(100000577,1)) - e6:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e6:SetCode(EVENT_CHAINING) - e6:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e6:SetRange(LOCATION_MZONE) - e6:SetCondition(c100000577.negcon) - e6:SetCost(c100000577.negcost) - e6:SetTarget(c100000577.negtg) - e6:SetOperation(c100000577.negop) - e6:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e6) - --life 1 - local e7=Effect.CreateEffect(c) - e7:SetDescription(aux.Stringid(550000000,2)) - e7:SetType(EFFECT_TYPE_IGNITION) - e7:SetRange(LOCATION_MZONE) - e7:SetCost(c100000577.lifcos) - e7:SetOperation(c100000577.lifop) - e7:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e7) - --special summon - local e8=Effect.CreateEffect(c) - e8:SetDescription(aux.Stringid(100000577,0)) - e8:SetCategory(CATEGORY_SPECIAL_SUMMON) - e8:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e8:SetRange(LOCATION_MZONE) - e8:SetCode(EVENT_PHASE+PHASE_STANDBY) - e8:SetCondition(c100000577.spcon) - e8:SetTarget(c100000577.sptg) - e8:SetOperation(c100000577.spop) - e8:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e8) -end -function c100000577.eqfilter(c,e,tp) - return (c:IsSetCard(0x48) or c:GetFlagEffect(100000577)~=0) and c:IsAbleToChangeControler() -end -function c100000577.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c100000577.eqfilter(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c100000577.eqfilter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,c100000577.eqfilter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) -end -function c100000577.eqlimit(e,c) - return e:GetOwner()==c -end -function c100000577.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - if c:IsFaceup() and c:IsRelateToEffect(e) then - if not Duel.Equip(tp,tc,c,false) then return end - --Add Equip limit - tc:RegisterFlagEffect(100000577,RESET_EVENT+0x1fe0000,0,1) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c100000577.eqlimit) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(1000) - tc:RegisterEffect(e2) - else Duel.SendtoGrave(tc,REASON_EFFECT) end - end -end -function c100000577.negcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end - local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) - if not g or not g:IsContains(c) then return false end - return true -end -function c100000577.negfilter(c) - return c:IsLocation(LOCATION_SZONE) and c:IsAbleToGraveAsCost() -end -function c100000577.negcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetEquipGroup():IsExists(c100000577.negfilter,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=e:GetHandler():GetEquipGroup():FilterSelect(tp,c100000577.negfilter,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c100000577.negtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsRelateToEffect(re) and re:GetHandler():IsDestructable() then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c100000577.negop(e,tp,eg,ep,ev,re,r,rp) - if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(re:GetHandler(),REASON_EFFECT) - end -end -function c100000577.lifcos(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not Duel.CheckAttackActivity(tp) and e:GetHandler():CheckRemoveOverlayCard(tp,3,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,3,3,REASON_COST) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c100000577.lifop(e,tp,eg,ep,ev,re,r,rp) - Duel.SetLP(1-tp,1) -end -function c100000577.spcon(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() and e:GetHandler():GetOverlayCount()==0 -end -function c100000577.spfilter(c,e,tp) - return c:IsCode(9161357) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) -end -function c100000577.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c100000577.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c100000577.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000577.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000577.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Overlay(tc,e:GetHandler()) - Duel.SpecialSummon(tc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100000578.lua b/script/c100000578.lua deleted file mode 100644 index 5e024243..00000000 --- a/script/c100000578.lua +++ /dev/null @@ -1,121 +0,0 @@ ---ＣＮｏ．９　天蓋妖星 カオス・ダイソン・スフィア -function c100000578.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,10),3) - c:EnableReviveLimit() - --damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000578,0)) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c100000578.damtg1) - e1:SetOperation(c100000578.damop1) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000578,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c100000578.damcost) - e2:SetTarget(c100000578.damtg2) - e2:SetOperation(c100000578.damop2) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCondition(c100000578.recon) - e3:SetOperation(c100000578.reop) - c:RegisterEffect(e3) - --battle indestructable - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e6:SetValue(c100000578.indes) - c:RegisterEffect(e6) -end -c100000578.xyz_number=9 -function c100000578.indes(e,c) - return not c:IsSetCard(0x48) -end -function c100000578.damtg1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(e:GetHandler():GetOverlayCount()*500) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,e:GetHandler():GetOverlayCount()*500) -end -function c100000578.damop1(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - Duel.Damage(p,e:GetHandler():GetOverlayCount()*500,REASON_EFFECT) -end -function c100000578.damcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - local ct=e:GetHandler():GetOverlayCount() - e:SetLabel(ct) - e:GetHandler():RemoveOverlayCard(tp,ct,ct,REASON_COST) -end -function c100000578.damtg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local dam=e:GetLabel()*800 - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100000578.damop2(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local dam=e:GetLabel()*800 - Duel.Damage(p,dam,REASON_EFFECT) -end -function c100000578.recon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,1992816) -end -function c100000578.reop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --negate - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetRange(LOCATION_MZONE) - e4:SetTargetRange(LOCATION_MZONE,0) - e4:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e4:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e4:SetReset(RESET_EVENT+0x1fe0000) - e4:SetTarget(c100000578.atlimit) - e4:SetValue(1) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e5:SetCode(EVENT_BATTLE_END) - e5:SetRange(LOCATION_MZONE) - e5:SetReset(RESET_EVENT+0x1fe0000) - e5:SetCondition(c100000578.rmcon) - e5:SetTarget(c100000578.rmtg) - e5:SetOperation(c100000578.rmop) - c:RegisterEffect(e5) -end -function c100000578.atlimit(e,c) - return c~=e:GetHandler() -end -function c100000578.rmcon(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - local c=e:GetHandler() - return d and (a==c or d==c) -end -function c100000578.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local tc=e:GetHandler():GetBattleTarget() - Duel.SetTargetCard(tc) -end -function c100000578.rmop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local mg=tc:GetOverlayGroup() - if mg:GetCount()~=0 then - Duel.SendtoGrave(mg,REASON_RULE) - end - Duel.Overlay(e:GetHandler(),tc) - end -end diff --git a/script/c100000580.lua b/script/c100000580.lua deleted file mode 100644 index faa43222..00000000 --- a/script/c100000580.lua +++ /dev/null @@ -1,50 +0,0 @@ ---Ｎｏ．２１氷結のレディ・ジャスティス -function c100000580.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,6),2) - c:EnableReviveLimit() - --atk - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(c100000580.atkval) - c:RegisterEffect(e1) - --battle indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(c100000580.indes) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c100000580.cost) - e3:SetTarget(c100000580.target) - e3:SetOperation(c100000580.operation) - c:RegisterEffect(e3) -end -c100000580.xyz_number=21 -function c100000580.atkval(e,c) - return c:GetOverlayCount()*1000 -end -function c100000580.indes(e,c) - return not c:IsSetCard(0x48) -end -function c100000580.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c100000580.filter(c) - return c:IsDestructable() and c:IsPosition(POS_DEFENCE) -end -function c100000580.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000580.filter,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(c100000580.filter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100000580.operation(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100000580.filter,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c100000581.lua b/script/c100000581.lua deleted file mode 100644 index 21387eb4..00000000 --- a/script/c100000581.lua +++ /dev/null @@ -1,58 +0,0 @@ ---ランクアップ・スパイダーウェブ -function c100000581.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000581.target) - e1:SetOperation(c100000581.activate) - c:RegisterEffect(e1) -end -function c100000581.filter1(c,e,tp) - local rk=c:GetRank() - return rk>0 and c:IsFaceup() and c:CheckRemoveOverlayCard(tp,1,REASON_EFFECT) - and Duel.IsExistingMatchingCard(c100000581.filter2,tp,LOCATION_EXTRA,0,1,nil,rk+1,e,tp) -end -function c100000581.filter2(c,rk,e,tp) - return (c:GetRank()==rk or c:GetRank()==rk+1) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) -end -function c100000581.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c100000581.filter1(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c100000581.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,c100000581.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000581.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end - tc:RemoveOverlayCard(tp,1,1,REASON_EFFECT) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000581.filter2,tp,LOCATION_EXTRA,0,1,1,nil,tc:GetRank()+1,e,tp) - local sc=g:GetFirst() - if sc then - local mg=tc:GetOverlayGroup() - if mg:GetCount()~=0 then - Duel.Overlay(sc,mg) - end - Duel.Overlay(sc,Group.FromCards(tc)) - Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) - sc:CompleteProcedure() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetOperation(c100000581.desop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) - end -end -function c100000581.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000582.lua b/script/c100000582.lua deleted file mode 100644 index 87a3af4a..00000000 --- a/script/c100000582.lua +++ /dev/null @@ -1,30 +0,0 @@ ---リターン・ランク・アップ -function c100000582.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000582.target) - e1:SetOperation(c100000582.activate) - c:RegisterEffect(e1) -end - -function c100000582.tgfilter(c) - return c:IsSetCard(0x95) and c:IsAbleToHand() -end -function c100000582.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100000582.tgfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100000582.tgfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local sg=Duel.SelectTarget(tp,c100000582.tgfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,sg:GetCount(),0,0) -end -function c100000582.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c100000583.lua b/script/c100000583.lua deleted file mode 100644 index f5321132..00000000 --- a/script/c100000583.lua +++ /dev/null @@ -1,73 +0,0 @@ ---ＲＵＭ－七皇の剣 -function c100000583.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100000583.target) - e1:SetOperation(c100000583.activate) - c:RegisterEffect(e1) -end -function c100000583.filter1(c,e,tp) - local no=c.xyz_number - local rk=c:GetRank() - local code=c:GetCode() - return no and no>=101 and no<=107 and c:IsSetCard(0x48) and not c:IsSetCard(0x1048) - and Duel.IsExistingMatchingCard(c100000583.filter2,tp,LOCATION_EXTRA,0,1,nil,rk+1,e,tp,c:GetCode()) - and ((c:GetLocation()==LOCATION_MZONE and c:IsFaceup()) - or ((c:GetLocation()==LOCATION_EXTRA or (c:GetLocation()==LOCATION_GRAVE) and not c:IsHasEffect(EFFECT_NECRO_VALLEY)) - and c:IsCanBeSpecialSummoned(e,0,tp,true,false))) -end -function c100000583.filter2(c,rk,e,tp,code) - if c:IsCode(6165656) and code~=48995978 then return false end - return c:GetRank()==rk and (c:IsSetCard(0x1048) or c:IsSetCard(0x1073)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) -end -function c100000583.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE+LOCATION_EXTRA) and c100000583.filter1(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c100000583.filter1,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,c100000583.filter1,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_EXTRA,0,1,1,nil,e,tp) - Duel.ConfirmCards(1-tp,g) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100000583.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - if tc:IsLocation(LOCATION_GRAVE+LOCATION_EXTRA) then - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1,true) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2,true) - Duel.SpecialSummonComplete() - Duel.BreakEffect() - if not Duel.IsExistingMatchingCard(c100000583.filter2,tp,LOCATION_EXTRA,0,1,nil,tc:GetRank()+1,e,tp) then return end - else - if tc:IsFacedown() or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000583.filter2,tp,LOCATION_EXTRA,0,1,1,nil,tc:GetRank()+1,e,tp,tc:GetCode()) - local sc=g:GetFirst() - if sc then - - local mg=tc:GetOverlayGroup() - if mg:GetCount()~=0 then - Duel.Overlay(sc,mg) - end - Duel.Overlay(sc,Group.FromCards(tc)) - Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) - sc:CompleteProcedure() - end -end diff --git a/script/c100000590.lua b/script/c100000590.lua deleted file mode 100644 index 395bd70a..00000000 --- a/script/c100000590.lua +++ /dev/null @@ -1,193 +0,0 @@ ---ダークネス -function c100000590.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000590.target) - e1:SetOperation(c100000590.activate) - c:RegisterEffect(e1) - --RandomOpen - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000590,0)) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000590.condition) - e2:SetOperation(c100000590.operation) - c:RegisterEffect(e2) - --reset - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100000590,1)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetRange(LOCATION_SZONE) - e3:SetTarget(c100000590.target2) - e3:SetOperation(c100000590.activate2) - c:RegisterEffect(e3) - --Destroy2 - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) - e4:SetRange(LOCATION_SZONE) - e4:SetCode(EVENT_LEAVE_FIELD) - e4:SetCondition(c100000590.descon2) - e4:SetOperation(c100000590.desop2) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD) - e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e5:SetCode(EFFECT_CANNOT_ACTIVATE) - e5:SetRange(LOCATION_SZONE) - e5:SetTargetRange(1,0) - e5:SetValue(c100000590.Value) - c:RegisterEffect(e5) -end -function c100000590.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000590.filter,tp,0x13,0,1,nil,100000591) - and Duel.IsExistingMatchingCard(c100000590.filter,tp,0x13,0,1,nil,100000592) - and Duel.IsExistingMatchingCard(c100000590.filter,tp,0x13,0,1,nil,100000593) - and Duel.IsExistingMatchingCard(c100000590.filter,tp,0x13,0,1,nil,100000594) - and Duel.IsExistingMatchingCard(c100000590.filter,tp,0x13,0,1,nil,100000595) end -end -function c100000590.Value(e,re,tp) - local c=re:GetHandler() - return c:IsLocation(LOCATION_SZONE) and c:IsFacedown() -end -function c100000590.filter(c,code) - return c:IsCode(code) and c:IsSSetable() -end -function c100000590.filter22(c,code) - return c:IsCode(code) and c:IsFaceup() -end -function c100000590.defilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c100000590.tffilter(c) - local code=c:GetCode() - return c:IsSSetable() - and (code==100000591 or code==100000592 or code==100000593 or code==100000594 or code==100000595) -end -function c100000590.activate(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():RegisterFlagEffect(100000590,RESET_EVENT+EVENT_CHAIN_END,0,1) - local g=Duel.GetMatchingGroup(c100000590.defilter,tp,LOCATION_ONFIELD,0,e:GetHandler()) - Duel.Destroy(g,REASON_EFFECT) - local ft=Duel.GetLocationCount(tp,LOCATION_SZONE) - if ft<5 then return end - Duel.BreakEffect() - --darkness - if Duel.GetMatchingGroupCount(c100000590.filter,tp,0x13,0,nil,100000591)==0 then return end - if Duel.GetMatchingGroupCount(c100000590.filter,tp,0x13,0,nil,100000592)==0 then return end - if Duel.GetMatchingGroupCount(c100000590.filter,tp,0x13,0,nil,100000593)==0 then return end - if Duel.GetMatchingGroupCount(c100000590.filter,tp,0x13,0,nil,100000594)==0 then return end - if Duel.GetMatchingGroupCount(c100000590.filter,tp,0x13,0,nil,100000595)==0 then return end - local sg=Duel.GetMatchingGroup(c100000590.tffilter,tp,0x13,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) - local g1=sg:Select(tp,1,1,nil) - sg:Remove(Card.IsCode,nil,g1:GetFirst():GetCode()) - ft=ft-1 - local g2=nil - while ft>0 do - g2=sg:Select(tp,1,1,nil) - g1:Merge(g2) - sg:Remove(Card.IsCode,nil,g2:GetFirst():GetCode()) - ft=ft-1 - end - local tc=g1:GetFirst() - while tc do - Duel.DisableShuffleCheck() - Duel.SendtoDeck(tc,tp,1,REASON_RULE) - --Duel.Remove(tc,POS_FACEDOWN,REASON_RULE) - tc:RegisterFlagEffect(100000590,RESET_EVENT+0x1fe0000,0,1) - tc=g1:GetNext() - end - g1=Duel.GetMatchingGroup(c100000590.setfilterset,tp,LOCATION_DECK,0,nil) - local tcc=nil - while g1:GetCount()>0 do - tcc=g1:RandomSelect(tp,1):GetFirst() - g1:Remove(Card.IsCode,nil,tcc:GetCode()) - Duel.DisableShuffleCheck() - Duel.SSet(tp,tcc) - --Duel.MoveToField(tcc,tp,tp,LOCATION_SZONE,POS_FACEDOWN,false) - end - --Duel.ConfirmCards(1-tp,g1) -end -function c100000590.rdfilter(c) - return Duel.GetTurnCount()~=c:GetTurnID() and c:IsFacedown() -end -function c100000590.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000590.rdfilter,tp,LOCATION_SZONE,0,1,nil) - and Duel.GetFlagEffect(tp,100000590)==0 -end -function c100000590.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsLocation(LOCATION_SZONE) or e:GetHandler():IsFacedown() then return end - local g=Duel.GetMatchingGroup(c100000590.rdfilter,tp,LOCATION_SZONE,0,nil) - if g:GetCount()>0 then - local sg=nil - if e:GetHandler():IsHasEffect(100000703) - or Duel.GetMatchingGroupCount(c100000590.filter22,tp,LOCATION_MZONE,0,nil,60417395)>0 - then sg=g:Select(tp,1,1,nil) - else sg=g:RandomSelect(tp,1) end - local tc=sg:GetFirst() - if tc:GetType()==TYPE_TRAP+TYPE_CONTINUOUS then - Duel.ChangePosition(tc,POS_FACEUP) - else - Duel.ChangePosition(tc,POS_FACEUP) - Duel.SendtoGrave(tc,REASON_EFFECT) - end - end -end -function c100000590.filterset(c) - return c:IsType(TYPE_TRAP) and c:IsFaceup() -end -function c100000590.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100000590.filterset,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) end - Duel.RegisterFlagEffect(tp,100000590,RESET_PHASE+PHASE_END,0,1) -end -function c100000590.setfilterset(c) - return c:GetFlagEffect(100000590)~=0 --and c:IsFacedown() -end -function c100000590.activate2(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100000590.filterset,tp,LOCATION_ONFIELD,0,e:GetHandler()) - Duel.ChangePosition(g,POS_FACEDOWN) - g=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_SZONE,0,nil) - local tc=g:GetFirst() - e:GetHandler():RegisterFlagEffect(100000590,RESET_PHASE+PHASE_END,0,1) - while tc do - Duel.SendtoHand(tc,tp,REASON_RULE) - --Duel.Remove(tc,POS_FACEDOWN,REASON_RULE) - tc:RegisterFlagEffect(100000590,RESET_EVENT+0x1fe0000,0,1) - tc=g:GetNext() - end - Duel.ShuffleHand(tp) - local sgg=Duel.GetMatchingGroup(c100000590.setfilterset,tp,LOCATION_HAND,0,nil) - tc=sgg:GetFirst() - while tc do - Duel.DisableShuffleCheck() - Duel.SendtoDeck(tc,tp,1,REASON_RULE) - --Duel.Remove(tc,POS_FACEDOWN,REASON_RULE) - tc:RegisterFlagEffect(100000590,RESET_EVENT+0x1fe0000,0,1) - tc=sgg:GetNext() - end - --local sg=Duel.GetMatchingGroup(c100000590.setfilterset,tp,LOCATION_REMOVED,0,nil) - local sg=Duel.GetMatchingGroup(c100000590.setfilterset,tp,LOCATION_DECK,0,nil) - local tcc=nil - while sg:GetCount()>0 do - tcc=sg:RandomSelect(tp,1):GetFirst() - sg:RemoveCard(tcc) - Duel.DisableShuffleCheck() - Duel.MoveToField(tcc,tp,tp,LOCATION_SZONE,POS_FACEDOWN,false) - end -end -function c100000590.leavefilter(c,e,tp) - return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsType(TYPE_SPELL+TYPE_TRAP) - and c:GetPreviousControler()==tp and e:GetHandler():GetFlagEffect(100000590)==0 -end -function c100000590.descon2(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100000590.leavefilter,1,nil,e,tp) -end -function c100000590.desop2(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100000590.defilter,tp,LOCATION_ONFIELD,0,nil) - Duel.Destroy(g,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000591.lua b/script/c100000591.lua deleted file mode 100644 index 2edb1c2c..00000000 --- a/script/c100000591.lua +++ /dev/null @@ -1,110 +0,0 @@ ---ダークネス １ -function c100000591.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCost(c100000591.cost2) - e1:SetTarget(c100000591.destg2) - e1:SetOperation(c100000591.desop) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_NO_TURN_RESET+EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_QUICK_F) - e2:SetCode(EVENT_CHAIN_END) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000591.condition) - e2:SetCost(c100000591.cost) - e2:SetTarget(c100000591.destg) - e2:SetOperation(c100000591.desop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCode(EVENT_CHAINING) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c100000591.con) - e3:SetTarget(c100000591.tg) - e3:SetOperation(c100000591.op) - c:RegisterEffect(e3) -end -function c100000591.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(100000591)==0 end - e:GetHandler():RegisterFlagEffect(100000591,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - -end -function c100000591.destg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetControler()~=tp and chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return true end - if Duel.GetMatchingGroupCount(c100000591.filter,tp,LOCATION_ONFIELD,0,nil,100000594)==0 - or Duel.GetMatchingGroupCount(c100000591.filter,tp,LOCATION_ONFIELD,0,nil,100000595)==0 - then return end - if Duel.GetFlagEffect(tp,100000592)==0 and Duel.GetFlagEffect(tp,100000593)==0 - then Duel.RegisterFlagEffect(tp,100000591,RESET_PHASE+PHASE_END,0,1) - e:GetHandler():RegisterFlagEffect(100000596,RESET_EVENT+0x1fe0000,0,1) - end - - if Duel.GetFlagEffect(tp,100000591)~=0 then - e:SetCategory(CATEGORY_DESTROY) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - end -end -function c100000591.filter(c,code) - return c:IsFaceup() and c:IsCode(code) -end -function c100000591.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000591.filter,tp,LOCATION_ONFIELD,0,1,nil,100000594) - and Duel.IsExistingMatchingCard(c100000591.filter,tp,LOCATION_ONFIELD,0,1,nil,100000595) - and Duel.IsExistingMatchingCard(c100000591.filter,tp,LOCATION_ONFIELD,0,1,nil,100000590) - and e:GetHandler():GetFlagEffect(100000591)==0 -end -function c100000591.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - if Duel.GetFlagEffect(tp,100000592)==0 and Duel.GetFlagEffect(tp,100000593)==0 - then Duel.RegisterFlagEffect(tp,100000591,RESET_PHASE+PHASE_END,0,1) end -end -function c100000591.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetControler()~=tp and chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return true end - if Duel.GetFlagEffect(tp,100000591)~=0 then - e:SetCategory(CATEGORY_DESTROY) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - e:GetHandler():RegisterFlagEffect(100000596,RESET_EVENT+0x1fe0000,0,1) - end -end -function c100000591.desop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetFlagEffect(tp,100000591)==0 and - Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) - then return end - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c100000591.con(e,tp,eg,ep,ev,re,r,rp) - local code=re:GetHandler():GetCode() - return e:GetHandler():GetFlagEffect(100000596)~=0 and re and re:GetHandler()~=e:GetHandler() - and (code==100000591 or code==100000592 or code==100000593)and re:GetActiveType()==TYPE_CONTINUOUS+TYPE_TRAP -end -function c100000591.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetControler()~=tp and chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c100000591.op(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100000592.lua b/script/c100000592.lua deleted file mode 100644 index f4b84ca6..00000000 --- a/script/c100000592.lua +++ /dev/null @@ -1,115 +0,0 @@ ---ダークネス ２ -function c100000592.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCost(c100000592.cost2) - e1:SetTarget(c100000592.destg2) - e1:SetOperation(c100000592.desop) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_NO_TURN_RESET+EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_QUICK_F) - e2:SetCode(EVENT_CHAIN_END) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000592.condition) - e2:SetCost(c100000592.cost) - e2:SetTarget(c100000592.destg) - e2:SetOperation(c100000592.desop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCode(EVENT_CHAINING) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c100000592.con) - e3:SetTarget(c100000592.tg) - e3:SetOperation(c100000592.op) - c:RegisterEffect(e3) -end -function c100000592.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(100000592)==0 end - e:GetHandler():RegisterFlagEffect(100000592,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c100000592.destg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return true end - if Duel.GetMatchingGroupCount(c100000592.filter,tp,LOCATION_ONFIELD,0,nil,100000594)==0 - or Duel.GetMatchingGroupCount(c100000592.filter,tp,LOCATION_ONFIELD,0,nil,100000595)==0 - then return end - if Duel.GetFlagEffect(tp,100000591)==0 and Duel.GetFlagEffect(tp,100000593)==0 - then Duel.RegisterFlagEffect(tp,100000592,RESET_PHASE+PHASE_END,0,1) - e:GetHandler():RegisterFlagEffect(100000597,RESET_EVENT+0x1fe0000,0,1) - end - if Duel.GetFlagEffect(tp,100000592)~=0 then - e:SetCategory(CATEGORY_ATKCHANGE) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) - end -end -function c100000592.filter(c,code) - return c:IsFaceup() and c:IsCode(code) -end -function c100000592.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000592.filter,tp,LOCATION_ONFIELD,0,1,nil,100000594) - and Duel.IsExistingMatchingCard(c100000592.filter,tp,LOCATION_ONFIELD,0,1,nil,100000595) - and Duel.IsExistingMatchingCard(c100000591.filter,tp,LOCATION_ONFIELD,0,1,nil,100000590) - and e:GetHandler():GetFlagEffect(100000592)==0 -end -function c100000592.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - if Duel.GetFlagEffect(tp,100000591)==0 and Duel.GetFlagEffect(tp,100000593)==0 - then Duel.RegisterFlagEffect(tp,100000592,RESET_PHASE+PHASE_END,0,1) end -end -function c100000592.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return true end - if Duel.GetFlagEffect(tp,100000592)~=0 then - e:SetCategory(CATEGORY_ATKCHANGE) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) - e:GetHandler():RegisterFlagEffect(100000597,RESET_EVENT+0x1fe0000,0,1) - end -end -function c100000592.desop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetFlagEffect(tp,100000592)==0 and - Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) - then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and not tc:IsImmuneToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(1000) - tc:RegisterEffect(e1) - end -end -function c100000592.con(e,tp,eg,ep,ev,re,r,rp) - local code=re:GetHandler():GetCode() - return e:GetHandler():GetFlagEffect(100000597)~=0 and re and re:GetHandler()~=e:GetHandler() - and (code==100000591 or code==100000592 or code==100000593)and re:GetActiveType()==TYPE_CONTINUOUS+TYPE_TRAP -end -function c100000592.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100000592.op(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and not tc:IsImmuneToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(1000) - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c100000593.lua b/script/c100000593.lua deleted file mode 100644 index add95b33..00000000 --- a/script/c100000593.lua +++ /dev/null @@ -1,97 +0,0 @@ ---ダークネス ３ -function c100000593.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCost(c100000593.cost2) - e1:SetTarget(c100000593.destg2) - e1:SetOperation(c100000593.desop) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_NO_TURN_RESET+EFFECT_FLAG_PLAYER_TARGET) - e2:SetType(EFFECT_TYPE_QUICK_F) - e2:SetCode(EVENT_CHAIN_END) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000593.condition) - e2:SetCost(c100000593.cost) - e2:SetTarget(c100000593.destg) - e2:SetOperation(c100000593.desop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetCode(EVENT_CHAINING) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c100000593.con) - e3:SetTarget(c100000593.tg) - e3:SetOperation(c100000593.op) - c:RegisterEffect(e3) -end -function c100000593.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(100000593)==0 end - e:GetHandler():RegisterFlagEffect(100000593,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c100000593.destg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - if Duel.GetMatchingGroupCount(c100000593.filter,tp,LOCATION_ONFIELD,0,nil,100000594)==0 - or Duel.GetMatchingGroupCount(c100000593.filter,tp,LOCATION_ONFIELD,0,nil,100000595)==0 - then return end - if Duel.GetFlagEffect(tp,100000592)==0 and Duel.GetFlagEffect(tp,100000591)==0 - then Duel.RegisterFlagEffect(tp,100000593,RESET_PHASE+PHASE_END,0,1) - e:GetHandler():RegisterFlagEffect(100000598,RESET_EVENT+0x1fe0000,0,1) - end - if Duel.GetFlagEffect(tp,100000593)==0 then return end - e:SetCategory(CATEGORY_DAMAGE) - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) -end -function c100000593.filter(c,code) - return c:IsFaceup() and c:IsCode(code) -end -function c100000593.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000593.filter,tp,LOCATION_ONFIELD,0,1,nil,100000594) - and Duel.IsExistingMatchingCard(c100000593.filter,tp,LOCATION_ONFIELD,0,1,nil,100000595) - and Duel.IsExistingMatchingCard(c100000591.filter,tp,LOCATION_ONFIELD,0,1,nil,100000590) - and e:GetHandler():GetFlagEffect(100000593)==0 -end -function c100000593.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - if Duel.GetFlagEffect(tp,100000592)==0 and Duel.GetFlagEffect(tp,100000591)==0 - then Duel.RegisterFlagEffect(tp,100000593,RESET_PHASE+PHASE_END,0,1) end -end -function c100000593.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - if Duel.GetFlagEffect(tp,100000593)==0 then return end - e:SetCategory(CATEGORY_DAMAGE) - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) - e:GetHandler():RegisterFlagEffect(100000598,RESET_EVENT+0x1fe0000,0,1) -end -function c100000593.desop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetFlagEffect(tp,100000593)==0 then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c100000593.con(e,tp,eg,ep,ev,re,r,rp) - local code=re:GetHandler():GetCode() - return e:GetHandler():GetFlagEffect(100000598)~=0 and re and re:GetHandler()~=e:GetHandler() - and (code==100000591 or code==100000592 or code==100000593) and re:GetActiveType()==TYPE_CONTINUOUS+TYPE_TRAP -end -function c100000593.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) -end -function c100000593.op(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100000594.lua b/script/c100000594.lua deleted file mode 100644 index 07c806d0..00000000 --- a/script/c100000594.lua +++ /dev/null @@ -1,79 +0,0 @@ ---虚無 -function c100000594.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000594,0)) - e2:SetType(EFFECT_TYPE_QUICK_F) - e2:SetCode(EVENT_CHAIN_END) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000594.condition) - e2:SetOperation(c100000594.operation) - c:RegisterEffect(e2) -end -function c100000594.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000594.filter2,tp,LOCATION_ONFIELD,0,1,nil) - and e:GetHandler():GetFlagEffect(100000594)==0 -end -function c100000594.filter2(c) - return c:IsFaceup() and c:IsCode(100000590) -end -function c100000594.filter(c,code) - return c:IsFaceup() and c:IsCode(code) -end -function c100000594.filter3(c,seq1,seq2) - return c:IsFacedown() and c:GetSequence()seq2 -end -function c100000594.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100000594.filter,tp,LOCATION_SZONE,0,nil,100000595) - local gd=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_SZONE,0,nil) - e:GetHandler():RegisterFlagEffect(100000594,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - if g:GetCount()==0 then - local sg=nil - if e:GetHandler():IsHasEffect(100000703) - or Duel.GetMatchingGroupCount(c100000590.filter22,tp,LOCATION_MZONE,0,nil,60417395)>0 - then sg=gd:Select(tp,1,1,nil) - else sg=gd:RandomSelect(tp,1) end - local tc=sg:GetFirst() - if tc:GetType()==TYPE_TRAP+TYPE_CONTINUOUS then - Duel.ChangePosition(tc,POS_FACEUP) - else - Duel.ChangePosition(tc,POS_FACEUP) - Duel.SendtoGrave(tc,REASON_EFFECT) - end - else - local fc=Duel.GetFirstMatchingCard(c100000594.filter,tp,LOCATION_SZONE,0,nil,100000595) - local fseq=fc:GetSequence() - local seq=e:GetHandler():GetSequence() - if seq>fseq then - local sqc=Duel.GetMatchingGroup(c100000594.filter3,tp,LOCATION_SZONE,0,nil,seq,fseq) - local sqtc=sqc:GetFirst() - while sqtc do - if sqtc:GetType()==TYPE_TRAP+TYPE_CONTINUOUS then - Duel.ChangePosition(sqtc,POS_FACEUP) - else - Duel.ChangePosition(sqtc,POS_FACEUP) - Duel.SendtoGrave(sqtc,REASON_EFFECT) - end - sqtc=sqc:GetNext() - end - else - local sqc=Duel.GetMatchingGroup(c100000594.filter3,tp,LOCATION_SZONE,0,nil,fseq,seq) - local sqtc=sqc:GetFirst() - while sqtc do - if sqtc:GetType()==TYPE_TRAP+TYPE_CONTINUOUS then - Duel.ChangePosition(sqtc,POS_FACEUP) - else - Duel.ChangePosition(sqtc,POS_FACEUP) - Duel.SendtoGrave(sqtc,REASON_EFFECT) - end - sqtc=sqc:GetNext() - end - end - end -end \ No newline at end of file diff --git a/script/c100000595.lua b/script/c100000595.lua deleted file mode 100644 index e3ea2d1c..00000000 --- a/script/c100000595.lua +++ /dev/null @@ -1,79 +0,0 @@ ---無限 -function c100000595.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000595,0)) - e2:SetType(EFFECT_TYPE_QUICK_F) - e2:SetCode(EVENT_CHAIN_END) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c100000595.condition) - e2:SetOperation(c100000595.operation) - c:RegisterEffect(e2) -end -function c100000595.condition(e,tp,eg,ep,ev,re,r,rp) -return Duel.IsExistingMatchingCard(c100000595.filter2,tp,LOCATION_ONFIELD,0,1,nil) - and e:GetHandler():GetFlagEffect(100000595)==0 -end -function c100000595.filter2(c) - return c:IsFaceup() and c:IsCode(100000590) -end -function c100000595.filter(c,code) - return c:IsFaceup() and c:IsCode(code) -end -function c100000595.filter3(c,seq1,seq2) - return c:IsFacedown() and c:GetSequence()seq2 -end -function c100000595.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100000595.filter,tp,LOCATION_SZONE,0,nil,100000594) - local gd=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_SZONE,0,nil) - e:GetHandler():RegisterFlagEffect(100000595,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - if g:GetCount()==0 then - local sg=nil - if e:GetHandler():IsHasEffect(100000703) - or Duel.GetMatchingGroupCount(c100000590.filter22,tp,LOCATION_MZONE,0,nil,60417395)>0 - then sg=gd:Select(tp,1,1,nil) - else sg=gd:RandomSelect(tp,1) end - local tc=sg:GetFirst() - if tc:GetType()==TYPE_TRAP+TYPE_CONTINUOUS then - Duel.ChangePosition(tc,POS_FACEUP) - else - Duel.ChangePosition(tc,POS_FACEUP) - Duel.SendtoGrave(tc,REASON_EFFECT) - end - else - local fc=Duel.GetFirstMatchingCard(c100000595.filter,tp,LOCATION_SZONE,0,nil,100000594) - local fseq=fc:GetSequence() - local seq=e:GetHandler():GetSequence() - if seq>fseq then - local sqc=Duel.GetMatchingGroup(c100000595.filter3,tp,LOCATION_SZONE,0,nil,seq,fseq) - local sqtc=sqc:GetFirst() - while sqtc do - if sqtc:GetType()==TYPE_TRAP+TYPE_CONTINUOUS then - Duel.ChangePosition(sqtc,POS_FACEUP) - else - Duel.ChangePosition(sqtc,POS_FACEUP) - Duel.SendtoGrave(sqtc,REASON_EFFECT) - end - sqtc=sqc:GetNext() - end - else - local sqc=Duel.GetMatchingGroup(c100000595.filter3,tp,LOCATION_SZONE,0,nil,fseq,seq) - local sqtc=sqc:GetFirst() - while sqtc do - if sqtc:GetType()==TYPE_TRAP+TYPE_CONTINUOUS then - Duel.ChangePosition(sqtc,POS_FACEUP) - else - Duel.ChangePosition(sqtc,POS_FACEUP) - Duel.SendtoGrave(sqtc,REASON_EFFECT) - end - sqtc=sqc:GetNext() - end - end - end -end \ No newline at end of file diff --git a/script/c100000600.lua b/script/c100000600.lua deleted file mode 100644 index bbbf5f14..00000000 --- a/script/c100000600.lua +++ /dev/null @@ -1,29 +0,0 @@ ---選手入場アナウンス -function c100000600.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000600.target) - e1:SetOperation(c100000600.activate) - c:RegisterEffect(e1) -end -function c100000600.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsSetCard(0x84) -end -function c100000600.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_HAND) and c100000600.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100000600.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000600.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,tp,LOCATION_HAND) -end -function c100000600.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000601.lua b/script/c100000601.lua deleted file mode 100644 index ac84829e..00000000 --- a/script/c100000601.lua +++ /dev/null @@ -1,31 +0,0 @@ ---ＫＯ ＢＫ -function c100000601.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_BATTLE_DESTROYING) - e1:SetCondition(c100000601.condition) - e1:SetTarget(c100000601.target) - e1:SetOperation(c100000601.activate) - c:RegisterEffect(e1) -end -function c100000601.condition(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - local bc=tc:GetBattleTarget() - return eg:GetCount()==1 and tc:IsControler(tp) and tc:IsSetCard(0x84) - and bc:IsLocation(LOCATION_GRAVE) and bc:IsReason(REASON_BATTLE) -end -function c100000601.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - local atk=eg:GetFirst():GetBattleTarget():GetAttack() - if atk<0 then atk=0 end - Duel.SetTargetParam(atk) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,atk) -end -function c100000601.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100000602.lua b/script/c100000602.lua deleted file mode 100644 index d6489373..00000000 --- a/script/c100000602.lua +++ /dev/null @@ -1,57 +0,0 @@ ---アクセル・フットワーク -function c100000602.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c100000602.condition) - e1:SetTarget(c100000602.target) - e1:SetOperation(c100000602.activate) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_CHAINING) - e2:SetRange(LOCATION_GRAVE) - e2:SetCondition(c100000602.con2) - e2:SetTarget(c100000602.tar2) - e2:SetOperation(c100000602.act2) - c:RegisterEffect(e2) -end -function c100000602.condition(e,tp,eg,ep,ev,re,r,rp) - local ph=Duel.GetCurrentPhase() - return ph>=0x08 and ph<=0x20 and re:IsActiveType(TYPE_TRAP) - and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) -end -function c100000602.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c100000602.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end -function c100000602.filter(c) - return c:IsFaceup() and c:IsSetCard(0x84) -end -function c100000602.con2(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and re:GetHandler():IsType(TYPE_COUNTER) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) - and Duel.IsExistingMatchingCard(c100000602.filter,tp,LOCATION_MZONE,0,1,nil) -end -function c100000602.tar2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToHand() end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c100000602.act2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c100000603.lua b/script/c100000603.lua deleted file mode 100644 index 9edd8ca3..00000000 --- a/script/c100000603.lua +++ /dev/null @@ -1,41 +0,0 @@ ---カウンターズ・ハイ -function c100000603.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c100000603.condition) - e1:SetTarget(c100000603.target) - e1:SetOperation(c100000603.activate) - c:RegisterEffect(e1) -end -function c100000603.condition(e,tp,eg,ep,ev,re,r,rp) - local ph=Duel.GetCurrentPhase() - return ph>=0x08 and ph<=0x20 and ep~=tp and re:GetHandler():IsType(TYPE_COUNTER) - and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) -end -function c100000603.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c100000603.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end - --damage reduce - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e1:SetOperation(c100000603.rdop) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE) - Duel.RegisterEffect(e1,tp) -end -function c100000603.rdop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(tp,ev*2) - Duel.ChangeBattleDamage(1-tp,ev*2) -end diff --git a/script/c100000604.lua b/script/c100000604.lua deleted file mode 100644 index 72e909dd..00000000 --- a/script/c100000604.lua +++ /dev/null @@ -1,32 +0,0 @@ ---コークスクリュー・クロス -function c100000604.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c100000604.condition) - e1:SetTarget(c100000604.target) - e1:SetOperation(c100000604.activate) - c:RegisterEffect(e1) -end -function c100000604.condition(e,tp,eg,ep,ev,re,r,rp) - local ph=Duel.GetCurrentPhase() - return ph>=0x08 and ph<=0x20 and ep~=tp and (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) - and Duel.IsChainNegatable(ev) -end -function c100000604.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c100000604.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - Duel.BreakEffect() - Duel.Damage(1-tp,500,REASON_EFFECT) - end -end diff --git a/script/c100000620.lua b/script/c100000620.lua deleted file mode 100644 index 17b6766c..00000000 --- a/script/c100000620.lua +++ /dev/null @@ -1,19 +0,0 @@ ---新生代化石マシン　スカルバギー -function c100000620.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFun2(c,c100000620.ffilter1,c100000620.ffilter2,1,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) -end -function c100000620.ffilter1(c) - return c:IsRace(RACE_ROCK) and c:GetOwner()==Duel.GetTurnPlayer() -end -function c100000620.ffilter2(c) - return c:GetOwner()~=Duel.GetTurnPlayer() -end diff --git a/script/c100000621.lua b/script/c100000621.lua deleted file mode 100644 index c65358bf..00000000 --- a/script/c100000621.lua +++ /dev/null @@ -1,19 +0,0 @@ ---新生代化石竜 スカルガー -function c100000621.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFun2(c,c100000621.ffilter1,c100000621.ffilter2,1,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) -end -function c100000621.ffilter1(c) - return c:IsRace(RACE_ROCK) and c:GetOwner()==Duel.GetTurnPlayer() -end -function c100000621.ffilter2(c) - return c:GetLevel()>4 and c:GetOwner()~=Duel.GetTurnPlayer() and not c:IsType(TYPE_XYZ) -end diff --git a/script/c100000622.lua b/script/c100000622.lua deleted file mode 100644 index 9996a589..00000000 --- a/script/c100000622.lua +++ /dev/null @@ -1,45 +0,0 @@ ---中生代化石マシン スカルワゴン -function c100000622.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFun2(c,c100000622.ffilter1,c100000622.ffilter2,1,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000622,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCondition(c100000622.damcon) - e2:SetTarget(c100000622.damtg) - e2:SetOperation(c100000622.damop) - c:RegisterEffect(e2) -end -function c100000622.ffilter1(c) - return c:IsRace(RACE_ROCK) and c:GetOwner()==Duel.GetTurnPlayer() -end -function c100000622.ffilter2(c) - return (c:GetLevel()==5 or c:GetLevel()==4) and c:GetOwner()~=Duel.GetTurnPlayer() and not c:IsType(TYPE_XYZ) -end -function c100000622.damcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local d=Duel.GetAttacker() - if d==c then d=Duel.GetAttackTarget() end - return c:IsRelateToBattle() and d:IsLocation(LOCATION_GRAVE) and d:IsReason(REASON_BATTLE) and d:IsType(TYPE_MONSTER) -end -function c100000622.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) -end -function c100000622.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100000633.lua b/script/c100000633.lua deleted file mode 100644 index 6f2469c5..00000000 --- a/script/c100000633.lua +++ /dev/null @@ -1,30 +0,0 @@ ---集結！ランドスター戦隊 -function c100000633.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100000633.target) - e1:SetOperation(c100000633.operation) - c:RegisterEffect(e1) -end -function c100000633.filter(c,e,tp) - return (c:GetCode()==3573512 or c:GetCode()==83602069 or c:GetCode()==100000630 or c:GetCode()==100000631 or c:GetCode()==100000632 ) - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000633.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000633.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100000633.operation(e,tp,eg,ep,ev,re,r,rp) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000633.filter,tp,LOCATION_HAND,0,1,ft,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_ATTACK) - end -end - diff --git a/script/c100000650.lua b/script/c100000650.lua deleted file mode 100644 index 35141f55..00000000 --- a/script/c100000650.lua +++ /dev/null @@ -1,20 +0,0 @@ ---錬金釜　カオス・ディスティル -function c100000650.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --remove - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE) - e2:SetCode(EFFECT_TO_GRAVE_REDIRECT) - e2:SetRange(LOCATION_SZONE) - e2:SetTarget(c100000650.rmtarget) - e2:SetValue(LOCATION_REMOVED) - c:RegisterEffect(e2) -end -function c100000650.rmtarget(e,c) - return e:GetHandler():GetOwner()==c:GetControler() -end diff --git a/script/c100000651.lua b/script/c100000651.lua deleted file mode 100644 index 4f631c74..00000000 --- a/script/c100000651.lua +++ /dev/null @@ -1,16 +0,0 @@ ---錬金獣・錫のアエトス -function c100000651.initial_effect(c) - c:EnableReviveLimit() - --Cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --direct attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DIRECT_ATTACK) - c:RegisterEffect(e2) -end diff --git a/script/c100000652.lua b/script/c100000652.lua deleted file mode 100644 index f60afe2a..00000000 --- a/script/c100000652.lua +++ /dev/null @@ -1,16 +0,0 @@ ---錬金獣・鉄のランプ -function c100000652.initial_effect(c) - c:EnableReviveLimit() - --Cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --direct attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DIRECT_ATTACK) - c:RegisterEffect(e2) -end diff --git a/script/c100000653.lua b/script/c100000653.lua deleted file mode 100644 index e4ce70ac..00000000 --- a/script/c100000653.lua +++ /dev/null @@ -1,16 +0,0 @@ ---錬金獣・銅のウロボロス -function c100000653.initial_effect(c) - c:EnableReviveLimit() - --Cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --direct attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DIRECT_ATTACK) - c:RegisterEffect(e2) -end diff --git a/script/c100000654.lua b/script/c100000654.lua deleted file mode 100644 index 73adf1f9..00000000 --- a/script/c100000654.lua +++ /dev/null @@ -1,16 +0,0 @@ ---錬金獣・鉛のレオーン -function c100000654.initial_effect(c) - c:EnableReviveLimit() - --Cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --direct attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DIRECT_ATTACK) - c:RegisterEffect(e2) -end diff --git a/script/c100000655.lua b/script/c100000655.lua deleted file mode 100644 index 70cc25b4..00000000 --- a/script/c100000655.lua +++ /dev/null @@ -1,16 +0,0 @@ ---錬金獣・銀のムーンフェイス -function c100000655.initial_effect(c) - c:EnableReviveLimit() - --Cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --direct attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DIRECT_ATTACK) - c:RegisterEffect(e2) -end diff --git a/script/c100000656.lua b/script/c100000656.lua deleted file mode 100644 index 02bfd8f6..00000000 --- a/script/c100000656.lua +++ /dev/null @@ -1,16 +0,0 @@ ---錬金獣・水銀のエケネイス -function c100000656.initial_effect(c) - c:EnableReviveLimit() - --Cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --direct attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DIRECT_ATTACK) - c:RegisterEffect(e2) -end diff --git a/script/c100000657.lua b/script/c100000657.lua deleted file mode 100644 index 92fc709f..00000000 --- a/script/c100000657.lua +++ /dev/null @@ -1,36 +0,0 @@ - --錫の魔法陣 -function c100000657.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000657.condition) - e1:SetTarget(c100000657.target) - e1:SetOperation(c100000657.activate) - c:RegisterEffect(e1) -end -function c100000657.spfilter(c,e,tp) - return c:IsCode(100000651) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000657.cfilter(c) - return c:IsFaceup() and c:IsCode(100000650) -end -function c100000657.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000657.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - and Duel.IsExistingMatchingCard(c100000657.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) -end -function c100000657.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK+LOCATION_HAND) -end -function c100000657.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000657.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end diff --git a/script/c100000658.lua b/script/c100000658.lua deleted file mode 100644 index 1dc19ac4..00000000 --- a/script/c100000658.lua +++ /dev/null @@ -1,36 +0,0 @@ ---鉄のランプ -function c100000658.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000658.condition) - e1:SetTarget(c100000658.target) - e1:SetOperation(c100000658.activate) - c:RegisterEffect(e1) -end -function c100000658.spfilter(c,e,tp) - return c:IsCode(100000652) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000658.cfilter(c) - return c:IsFaceup() and c:IsCode(100000650) -end -function c100000658.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000658.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - and Duel.IsExistingMatchingCard(c100000658.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) -end -function c100000658.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK+LOCATION_HAND) -end -function c100000658.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000658.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end diff --git a/script/c100000659.lua b/script/c100000659.lua deleted file mode 100644 index c1de13f7..00000000 --- a/script/c100000659.lua +++ /dev/null @@ -1,36 +0,0 @@ - --錫の魔法陣 -function c100000659.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000659.condition) - e1:SetTarget(c100000659.target) - e1:SetOperation(c100000659.activate) - c:RegisterEffect(e1) -end -function c100000659.spfilter(c,e,tp) - return c:IsCode(100000653) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000659.cfilter(c) - return c:IsFaceup() and c:IsCode(100000650) -end -function c100000659.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000659.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - and Duel.IsExistingMatchingCard(c100000659.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) -end -function c100000659.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK+LOCATION_HAND) -end -function c100000659.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000659.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end diff --git a/script/c100000660.lua b/script/c100000660.lua deleted file mode 100644 index 85e05c92..00000000 --- a/script/c100000660.lua +++ /dev/null @@ -1,36 +0,0 @@ - --鉛のコンパス -function c100000660.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000660.condition) - e1:SetTarget(c100000660.target) - e1:SetOperation(c100000660.activate) - c:RegisterEffect(e1) -end -function c100000660.spfilter(c,e,tp) - return c:IsCode(100000654) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000660.cfilter(c) - return c:IsFaceup() and c:IsCode(100000650) -end -function c100000660.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000660.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - and Duel.IsExistingMatchingCard(c100000660.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) -end -function c100000660.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK+LOCATION_HAND) -end -function c100000660.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000660.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end diff --git a/script/c100000661.lua b/script/c100000661.lua deleted file mode 100644 index 42bc9095..00000000 --- a/script/c100000661.lua +++ /dev/null @@ -1,36 +0,0 @@ - --銀の鍵 -function c100000661.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000661.condition) - e1:SetTarget(c100000661.target) - e1:SetOperation(c100000661.activate) - c:RegisterEffect(e1) -end -function c100000661.spfilter(c,e,tp) - return c:IsCode(100000655) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000661.cfilter(c) - return c:IsFaceup() and c:IsCode(100000650) -end -function c100000661.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000661.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - and Duel.IsExistingMatchingCard(c100000661.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) -end -function c100000661.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK+LOCATION_HAND) -end -function c100000661.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000661.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end diff --git a/script/c100000662.lua b/script/c100000662.lua deleted file mode 100644 index 67819366..00000000 --- a/script/c100000662.lua +++ /dev/null @@ -1,36 +0,0 @@ - --水銀の砂時計 -function c100000662.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000662.condition) - e1:SetTarget(c100000662.target) - e1:SetOperation(c100000662.activate) - c:RegisterEffect(e1) -end -function c100000662.spfilter(c,e,tp) - return c:IsCode(100000656) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000662.cfilter(c) - return c:IsFaceup() and c:IsCode(100000650) -end -function c100000662.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000662.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - and Duel.IsExistingMatchingCard(c100000662.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) -end -function c100000662.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK+LOCATION_HAND) -end -function c100000662.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000662.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end diff --git a/script/c100000663.lua b/script/c100000663.lua deleted file mode 100644 index ce8fd14e..00000000 --- a/script/c100000663.lua +++ /dev/null @@ -1,36 +0,0 @@ - --白の過程－アルベド -function c100000663.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000663.condition) - e1:SetTarget(c100000663.target) - e1:SetOperation(c100000663.activate) - c:RegisterEffect(e1) -end -function c100000663.spfilter(c,e,tp) - return c:IsCode(27408609) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000663.cfilter(c) - return c:IsFaceup() and c:IsCode(100000650) -end -function c100000663.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100000663.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - and Duel.IsExistingMatchingCard(c100000663.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) -end -function c100000663.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK+LOCATION_HAND) -end -function c100000663.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000663.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end diff --git a/script/c100000664.lua b/script/c100000664.lua deleted file mode 100644 index 90998bfd..00000000 --- a/script/c100000664.lua +++ /dev/null @@ -1,46 +0,0 @@ - --黒の過程－ニグレド -function c100000664.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100000664.condition) - e1:SetTarget(c100000664.target) - e1:SetOperation(c100000664.activate) - c:RegisterEffect(e1) -end -function c100000664.filter(c) - return c:IsFaceup() and c:IsSetCard(0x317) and c:IsAbleToRemove() -end -function c100000664.cfilter(c) - return c:IsFaceup() and c:IsCode(100000650) -end -function c100000664.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c==nil then return true end - return Duel.IsExistingMatchingCard(c100000664.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - and Duel.IsExistingMatchingCard(c100000664.filter,tp,LOCATION_MZONE,0,1,nil) - and (Duel.GetFieldGroupCount(c:GetControler(),LOCATION_HAND,0)==1 and not Duel.IsExistingMatchingCard(nil,tp,LOCATION_HAND,0,1,c)) - or Duel.GetFieldGroupCount(c:GetControler(),LOCATION_HAND,0)==0 -end -function c100000664.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - local g=Duel.GetMatchingGroup(c100000664.filter,tp,LOCATION_MZONE,0,nil) - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,g:GetCount()) -end -function c100000664.filter1(c) - return c:IsFaceup() and c:IsSetCard(0x317) and c:IsLocation(LOCATION_REMOVED) -end -function c100000664.activate(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetMatchingGroup(c100000664.filter,tp,LOCATION_MZONE,0,nil) - if Duel.Remove(g,POS_FACEUP,REASON_EFFECT)>0 then - local og=Duel.GetOperatedGroup() - local dc=og:FilterCount(c100000664.filter1,nil) - if dc>0 then - Duel.Draw(p,dc*2,REASON_EFFECT) - end - end -end diff --git a/script/c100000700.lua b/script/c100000700.lua deleted file mode 100644 index 1c8bfdef..00000000 --- a/script/c100000700.lua +++ /dev/null @@ -1,69 +0,0 @@ ---ダークネス・シード -function c100000700.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetOperation(c100000700.activate) - c:RegisterEffect(e1) - --lp4000 - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_REPEAT) - e2:SetCountLimit(1) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c100000700.condition) - e2:SetOperation(c100000700.operation) - c:RegisterEffect(e2) - --battle indestructable - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetCondition(c100000700.lp) - e3:SetValue(1) - c:RegisterEffect(e3) -end -function c100000700.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetRange(LOCATION_GRAVE) - e1:SetCountLimit(1) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetCondition(c100000700.spcon) - e1:SetTarget(c100000700.target) - e1:SetOperation(c100000700.spop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,2) - if Duel.GetTurnPlayer()==tp then - e1:SetLabel(Duel.GetTurnCount()) - else - e1:SetLabel(Duel.GetTurnCount()-1) - end - c:RegisterEffect(e1) -end -function c100000700.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnCount()==e:GetLabel()+4 -end -function c100000700.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) -end -function c100000700.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,5,tp,tp,false,false,POS_FACEUP) - end -end -function c100000700.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetLP(tp)<4000 and e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+5 -end -function c100000700.operation(e,tp,eg,ep,ev,re,r,rp) - local p=e:GetHandler():GetControler() - Duel.SetLP(tp,4000,REASON_EFFECT) -end -function c100000700.lp(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+5 -end diff --git a/script/c100000701.lua b/script/c100000701.lua deleted file mode 100644 index bdbe826b..00000000 --- a/script/c100000701.lua +++ /dev/null @@ -1,43 +0,0 @@ ---ダークネス・ブランブル -function c100000701.initial_effect(c) - --lp4000 - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetProperty(EFFECT_FLAG_REPEAT) - e1:SetCountLimit(1) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c100000701.condition) - e1:SetOperation(c100000701.operation) - c:RegisterEffect(e1) - --battle indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(1) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetOperation(c100000701.op) - c:RegisterEffect(e3) -end -function c100000701.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetLP(tp)<4000 -end -function c100000701.operation(e,tp,eg,ep,ev,re,r,rp) - local p=e:GetHandler():GetControler() - Duel.SetLP(tp,4000,REASON_EFFECT) -end -function c100000701.op(e,tp,eg,ep,ev,re,r,rp) - --Def - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(100000703) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(LOCATION_ONFIELD,0) - e3:SetReset(RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e3) -end diff --git a/script/c100000702.lua b/script/c100000702.lua deleted file mode 100644 index bbd7a186..00000000 --- a/script/c100000702.lua +++ /dev/null @@ -1,43 +0,0 @@ ---ダークネス・レインクロー -function c100000702.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPSUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100000702.condition) - e1:SetCost(c100000702.cost) - e1:SetTarget(c100000702.target) - e1:SetOperation(c100000702.activate) - c:RegisterEffect(e1) -end -function c100000702.condition(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c100000702.cosfilter(c,e,tp) - return c:IsCode(100000701) and c:IsAbleToGraveAsCost() -end -function c100000702.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() - and Duel.IsExistingMatchingCard(c100000702.cosfilter,tp,LOCATION_ONFIELD,0,1,nil) end - local tc=Duel.SelectMatchingCard(tp,c100000702.cosfilter,tp,LOCATION_ONFIELD,0,1,1,nil) - tc:AddCard(e:GetHandler()) - Duel.SendtoGrave(tc,REASON_COST) -end -function c100000702.filter(c,e,tp) - return c:IsCode(60417395) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000702.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100000702.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100000702.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100000702.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100000703.lua b/script/c100000703.lua deleted file mode 100644 index fec04fbf..00000000 --- a/script/c100000703.lua +++ /dev/null @@ -1,32 +0,0 @@ ---ダークネス・アイ -function c100000703.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetOperation(c100000703.operation) - c:RegisterEffect(e1) - --reduce tribute - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_DECREASE_TRIBUTE) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(LOCATION_HAND,0) - e2:SetCondition(c100000703.condition) - e2:SetValue(0x20002) - c:RegisterEffect(e2) -end -function c100000703.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsAttackPos() -end -function c100000703.operation(e,tp,eg,ep,ev,re,r,rp) - --Def - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(100000703) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(LOCATION_ONFIELD,0) - e3:SetReset(RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e3) -end \ No newline at end of file diff --git a/script/c100000704.lua b/script/c100000704.lua deleted file mode 100644 index 13618275..00000000 --- a/script/c100000704.lua +++ /dev/null @@ -1,38 +0,0 @@ ---ダークネス・アウトサイダー -function c100000704.initial_effect(c) - --dishand - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_PLAYER_TARGET) - e2:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCost(c100000704.spcost) - e2:SetTarget(c100000704.target) - e2:SetOperation(c100000704.operation) - c:RegisterEffect(e2) -end -function c100000704.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD,nil) -end -function c100000704.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>0 end - Duel.Hint(HINT_SELECTMSG,tp,564) - local ac=Duel.AnnounceCard(tp) - e:SetLabel(ac) - e:GetHandler():SetHint(CHINT_CARD,ac) -end -function c100000704.filter(c,ac,e,tp) - return c:IsType(TYPE_MONSTER) and c:IsCode(ac) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100000704.operation(e,tp,eg,ep,ev,re,r,rp) - local ac=e:GetLabel() - local g=Duel.GetFirstMatchingCard(c100000704.filter,tp,0,LOCATION_DECK,nil,ac,e,tp) - if g then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - Duel.SendtoDeck(e:GetHandler(),1-tp,1,REASON_EFFECT) - Duel.ShuffleDeck(1-tp) - end -end - diff --git a/script/c100000705.lua b/script/c100000705.lua deleted file mode 100644 index f95d6246..00000000 --- a/script/c100000705.lua +++ /dev/null @@ -1,52 +0,0 @@ ---ダークネス・スライム -function c100000705.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) - e1:SetRange(LOCATION_HAND) - e1:SetTargetRange(POS_FACEUP_DEFENCE,0) - e1:SetCondition(c100000705.spcon) - c:RegisterEffect(e1) - --atkup - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100000705,0)) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetTarget(c100000705.atktg) - e2:SetOperation(c100000705.atkop) - c:RegisterEffect(e2) -end -function c100000705.spcon(e,c) - if c==nil then return true end - local g=Duel.GetMatchingGroup(Card.IsFaceup,c:GetControler(),LOCATION_MZONE,0,nil) - return g:GetSum(Card.GetAttack)==0 and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0,nil)>0 -end -function c100000705.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,0,0,0,0) -end -function c100000705.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) or not c:IsFaceup() then return end - local tc=Duel.GetFirstTarget() - local atk=tc:GetAttack() - local def=tc:GetDefence() - 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) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE) - e2:SetValue(def) - e2:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e2) -end \ No newline at end of file diff --git a/script/c100000706.lua b/script/c100000706.lua deleted file mode 100644 index df03d3f0..00000000 --- a/script/c100000706.lua +++ /dev/null @@ -1,34 +0,0 @@ ---ダークネス・ネクロスライム -function c100000706.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100000706,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c100000706.cost) - e1:SetTarget(c100000706.target) - e1:SetOperation(c100000706.operation) - c:RegisterEffect(e1) -end -function c100000706.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c100000706.filter(c,e,tp) - return c:IsSetCard(0x316) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c100000706.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100000706.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100000706.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100000706.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c10000080.lua b/script/c10000080.lua index bae452ad..0f0767ca 100644 --- a/script/c10000080.lua +++ b/script/c10000080.lua @@ -143,7 +143,7 @@ function c10000080.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) tc:RegisterEffect(e2) Duel.SpecialSummonComplete() end diff --git a/script/c10000090.lua b/script/c10000090.lua new file mode 100644 index 00000000..a54c57d6 --- /dev/null +++ b/script/c10000090.lua @@ -0,0 +1,110 @@ +--ラーの翼神竜－不死鳥 +function c10000090.initial_effect(c) + c:EnableReviveLimit() + --cannot special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(10000090,0)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetProperty(EFFECT_FLAG_CVAL_CHECK) + e2:SetRange(LOCATION_GRAVE) + e2:SetCondition(c10000090.spcon1) + e2:SetTarget(c10000090.sptg1) + e2:SetOperation(c10000090.spop1) + e2:SetValue(c10000090.valcheck) + c:RegisterEffect(e2) + --immune + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_IMMUNE_EFFECT) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetValue(c10000090.efilter) + c:RegisterEffect(e3) + --tograve + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(10000090,1)) + e4:SetCategory(CATEGORY_TOGRAVE) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_MZONE) + e4:SetCost(c10000090.tgcost) + e4:SetTarget(c10000090.tgtg) + e4:SetOperation(c10000090.tgop) + c:RegisterEffect(e4) + --spsummon + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(10000090,2)) + e5:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON) + e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e5:SetRange(LOCATION_MZONE) + e5:SetCountLimit(1) + e5:SetCode(EVENT_PHASE+PHASE_END) + e5:SetTarget(c10000090.sptg2) + e5:SetOperation(c10000090.spop2) + c:RegisterEffect(e5) +end +function c10000090.cfilter(c,tp) + return c:IsCode(10000010) and c:IsControler(tp) and c:IsPreviousLocation(LOCATION_ONFIELD) +end +function c10000090.spcon1(e,tp,eg,ep,ev,re,r,rp) + return not eg:IsContains(e:GetHandler()) and eg:IsExists(c10000090.cfilter,1,nil,tp) +end +function c10000090.sptg1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetChainLimit(aux.FALSE) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c10000090.spop1(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP)~=0 then + c:CompleteProcedure() + end +end +function c10000090.valcheck(e) + Duel.SetChainLimit(aux.FALSE) +end +function c10000090.efilter(e,te) + return te:GetOwner()~=e:GetOwner() +end +function c10000090.tgcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,1000) end + Duel.PayLPCost(tp,1000) +end +function c10000090.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,PLAYER_ALL,LOCATION_MZONE) +end +function c10000090.tgop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + if g:GetCount()>0 then + Duel.HintSelection(g) + Duel.SendtoGrave(g,REASON_EFFECT) + end +end +function c10000090.spfilter(c,e,tp) + return c:IsCode(10000080) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) +end +function c10000090.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) +end +function c10000090.spop2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) then + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c10000090.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) + end + end +end diff --git a/script/c100001001.lua b/script/c100001001.lua deleted file mode 100644 index a3c16281..00000000 --- a/script/c100001001.lua +++ /dev/null @@ -1,28 +0,0 @@ ---牛頭鬼(未) -function c100001001.initial_effect(c) - --send to grave - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100001001,0)) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100001001.target) - e1:SetOperation(c100001001.operation) - c:RegisterEffect(e1) -end -function c100001001.tgfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_ZOMBIE) and c:IsAbleToGrave() -end -function c100001001.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100001001.tgfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c100001001.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100001001.tgfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - end -end diff --git a/script/c100001002.lua b/script/c100001002.lua deleted file mode 100644 index b4e2c5f9..00000000 --- a/script/c100001002.lua +++ /dev/null @@ -1,35 +0,0 @@ ---カラス天狗 -function c100001002.initial_effect(c) - --draw - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100001002,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100001002.condition) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c100001002.target) - e1:SetOperation(c100001002.operation) - c:RegisterEffect(e1) -end -function c100001002.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetPreviousLocation()==LOCATION_GRAVE -end -function c100001002.filter(c) - return c:IsDestructable() -end -function c100001002.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c100001002.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100001002.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100001002.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100001002.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c100001003.lua b/script/c100001003.lua deleted file mode 100644 index c5129bf5..00000000 --- a/script/c100001003.lua +++ /dev/null @@ -1,27 +0,0 @@ ---陰摩羅鬼 -function c100001003.initial_effect(c) - --draw - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100001003,0)) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100001003.condition) - e1:SetTarget(c100001003.target) - e1:SetOperation(c100001003.operation) - c:RegisterEffect(e1) -end -function c100001003.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetPreviousLocation()==LOCATION_GRAVE -end -function c100001003.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100001003.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c100001004.lua b/script/c100001004.lua deleted file mode 100644 index ea3bf884..00000000 --- a/script/c100001004.lua +++ /dev/null @@ -1,52 +0,0 @@ ---百鬼夜行 -function c100001004.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100001004.tg) - e1:SetOperation(c100001004.op) - c:RegisterEffect(e1) -end -function c100001004.filter(c,e,tp) - return c:IsRace(RACE_ZOMBIE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100001004.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100001004.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c100001004.op(e,tp,eg,ep,ev,re,r,rp) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100001004.filter,tp,LOCATION_GRAVE,0,ft,ft,nil,e,tp) - if g:GetCount()>0 then - local tc=g:GetFirst() - while tc do - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) - tc:RegisterFlagEffect(100001004,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - tc=g:GetNext() - end - Duel.SpecialSummonComplete() - g:KeepAlive() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetLabelObject(g) - e1:SetOperation(c100001004.rmop) - Duel.RegisterEffect(e1,tp) - end -end -function c100001004.rmfilter(c) - return c:GetFlagEffect(100001004)>0 -end -function c100001004.rmop(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject() - local tg=g:Filter(c100001004.rmfilter,nil) - g:DeleteGroup() - Duel.Destroy(tg,POS_FACEUP,REASON_EFFECT) -end diff --git a/script/c100001005.lua b/script/c100001005.lua deleted file mode 100644 index f3525ba5..00000000 --- a/script/c100001005.lua +++ /dev/null @@ -1,32 +0,0 @@ ---尾長黒馬 -function c100001005.initial_effect(c) - --atkup - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100001005,0)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c100001005.cost) - e1:SetOperation(c100001005.operation) - c:RegisterEffect(e1) -end -function c100001005.cfilter(c) - return c:IsRace(RACE_ZOMBIE) and c:IsAbleToGraveAsCost() -end -function c100001005.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100001005.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100001005.cfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c100001005.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(500) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c100001006.lua b/script/c100001006.lua deleted file mode 100644 index 6eb02b26..00000000 --- a/script/c100001006.lua +++ /dev/null @@ -1,57 +0,0 @@ ---九尾の狐 -function c100001006.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c100001006.spcon) - e1:SetOperation(c100001006.spop) - c:RegisterEffect(e1) - --token - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_DESTROY) - e2:SetCondition(c100001006.condition) - e2:SetTarget(c100001006.target) - e2:SetOperation(c100001006.operation) - c:RegisterEffect(e2) -end -function c100001006.spfilter(c) - return c:IsReleasable() and c:IsRace(RACE_ZOMBIE) -end -function c100001006.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-2 - and Duel.IsExistingMatchingCard(c100001006.spfilter,c:GetControler(),LOCATION_MZONE,0,2,nil) -end -function c100001006.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local g=Duel.SelectMatchingCard(tp,c100001006.spfilter,tp,LOCATION_MZONE,0,2,2,nil) - Duel.Release(g,REASON_COST) - --pierce - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_PIERCE) - e1:SetReset(RESET_EVENT+0xff0000) - c:RegisterEffect(e1) -end -function c100001006.condition(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsReason(REASON_RETURN) -end -function c100001006.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) -end -function c100001006.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - if not Duel.IsPlayerCanSpecialSummonMonster(tp,100001007,0,0x4011,500,500,2,RACE_BEAST,ATTRIBUTE_EARTH) then return end - for i=1,2 do - local token=Duel.CreateToken(tp,100001007) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - end - Duel.SpecialSummonComplete() -end \ No newline at end of file diff --git a/script/c100001008.lua b/script/c100001008.lua deleted file mode 100644 index 26aff0e3..00000000 --- a/script/c100001008.lua +++ /dev/null @@ -1,57 +0,0 @@ ---プラズマ戦士エイトム -function c100001008.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - - --special summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND) - e2:SetCondition(c100001008.spcon) - e2:SetOperation(c100001008.spop) - c:RegisterEffect(e2) - - --damage - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DIRECT_ATTACK) - c:RegisterEffect(e3) - -- - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e4:SetCondition(c100001008.atkcon) - e4:SetOperation(c100001008.atkop) - c:RegisterEffect(e4) - -end -function c100001008.rfilter(c) - return c:IsLevelAbove(7) -end -function c100001008.spcon(e,c) - if c==nil then return true end - return Duel.CheckReleaseGroup(c:GetControler(),c100001008.rfilter,1,nil) -end -function c100001008.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectReleaseGroup(c:GetControler(),c100001008.rfilter,1,1,nil) - Duel.Release(g,REASON_COST) -end - -function c100001008.atkcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==nil and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)~=0 - and e:GetHandler():GetEffectCount(EFFECT_DIRECT_ATTACK)==1 - and ep~=tp -end -function c100001008.atkop(e,tp,eg,ep,ev,re,r,rp) - --half damage - local c=e:GetHandler() - Duel.ChangeBattleDamage(ep,Duel.GetBattleDamage(ep)/2) -end \ No newline at end of file diff --git a/script/c100001009.lua b/script/c100001009.lua deleted file mode 100644 index 2890b07f..00000000 --- a/script/c100001009.lua +++ /dev/null @@ -1,4 +0,0 @@ ---リトマスの死儀式 -function c100001009.initial_effect(c) - aux.AddRitualProcGreater(c,aux.FilterBoolFunction(Card.IsCode,100001010)) -end diff --git a/script/c100001010.lua b/script/c100001010.lua deleted file mode 100644 index 4fbd2202..00000000 --- a/script/c100001010.lua +++ /dev/null @@ -1,47 +0,0 @@ ---リトマスの死の剣士 -function c100001010.initial_effect(c) - c:EnableReviveLimit() - - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_IMMUNE_EFFECT) - e1:SetValue(c100001010.efilter) - c:RegisterEffect(e1) - - --battle indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(1) - c:RegisterEffect(e2) - - --atk,def - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetCode(EFFECT_SET_BASE_ATTACK) - e3:SetValue(c100001010.val) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_SET_BASE_DEFENCE) - c:RegisterEffect(e4) -end - -function c100001010.efilter(e,te) - return te:IsActiveType(TYPE_TRAP) -end - -function c100001010.filter(c) - return c:IsFaceup() and c:IsType(TYPE_TRAP) -end - -function c100001010.val(e,c) - atk = 0 - if Duel.GetMatchingGroupCount(c100001010.filter,c:GetControler(),LOCATION_SZONE,LOCATION_SZONE,c) > 0 then - atk = 3000 - end - return atk -end \ No newline at end of file diff --git a/script/c100002001.lua b/script/c100002001.lua deleted file mode 100644 index c9700925..00000000 --- a/script/c100002001.lua +++ /dev/null @@ -1,22 +0,0 @@ ---劫火の槍術士 ゴースト・ランサー -function c100002001.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100002001.spcon) - c:RegisterEffect(e1) - --pierce - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e2) -end -function c100002001.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)>0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end diff --git a/script/c100002002.lua b/script/c100002002.lua deleted file mode 100644 index b9e4d428..00000000 --- a/script/c100002002.lua +++ /dev/null @@ -1,67 +0,0 @@ ---幽合 -function c100002002.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100002002.target) - e1:SetOperation(c100002002.activate) - c:RegisterEffect(e1) -end -function c100002002.filter1(c,e) - return c:IsCanBeFusionMaterial() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e) -end -function c100002002.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:IsRace(RACE_ZOMBIE) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) -end -function c100002002.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100002002.filter1,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_DECK,0,nil,e) - local res=Duel.IsExistingMatchingCard(c100002002.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c100002002.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100002002.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100002002.filter1,tp,LOCATION_GRAVE+LOCATION_MZONE+LOCATION_DECK,0,nil,e) - local sg1=Duel.GetMatchingGroup(c100002002.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c100002002.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end diff --git a/script/c100002003.lua b/script/c100002003.lua deleted file mode 100644 index ebe83ce4..00000000 --- a/script/c100002003.lua +++ /dev/null @@ -1,97 +0,0 @@ ---冥界龍ドラゴネクロ -function c100002003.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsRace,RACE_ZOMBIE),2,false) - - --battle - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_DAMAGE_CALCULATING) - e1:SetCondition(c100002003.indescon) - e1:SetOperation(c100002003.indesop) - c:RegisterEffect(e1) - - --atk change - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100002003,0)) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_BATTLE_END) - e2:SetTarget(c100002003.atktg) - e2:SetOperation(c100002003.operation) - c:RegisterEffect(e2) - - --token - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100002003,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_BATTLED) - e3:SetCondition(c100002003.condi) - e3:SetTarget(c100002003.target) - e3:SetOperation(c100002003.op) - c:RegisterEffect(e3) - -end -function c100002003.indescon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetBattleTarget()~=nil -end -function c100002003.indesop(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetHandler():GetBattleTarget() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000) - bc:RegisterEffect(e1,true) -end - -function c100002003.filter(c,bc) - return c:GetBattledGroup():IsContains(bc) -end -function c100002003.atktg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100002003.filter,tp,0,LOCATION_MZONE,1,nil,e:GetHandler()) end -end - -function c100002003.operation(e,tp,eg,ep,ev,re,r,rp) - local d=e:GetHandler():GetBattleTarget() - if not d:IsRelateToBattle() then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000) - d:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_CHANGE_POSITION) - e2:SetReset(RESET_EVENT+0x1fe0000) - d:RegisterEffect(e2) - - Duel.ChangePosition(d,POS_FACEUP_ATTACK) -end - -function c100002003.condi(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsReason(REASON_RETURN) -end -function c100002003.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100002003.filter,tp,0,LOCATION_MZONE,1,nil,e:GetHandler()) end - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) -end -function c100002003.op(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end - local tc=e:GetHandler():GetBattleTarget() - if not Duel.IsPlayerCanSpecialSummonMonster(tp,100002004,0,0x4011,0,0,1,RACE_ZOMBIE,ATTRIBUTE_DARK) then return end - local token=Duel.CreateToken(tp,100002004) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(tc:GetBaseAttack()) - token:RegisterEffect(e1) - -end \ No newline at end of file diff --git a/script/c100003001.lua b/script/c100003001.lua deleted file mode 100644 index 43dad0e0..00000000 --- a/script/c100003001.lua +++ /dev/null @@ -1,8 +0,0 @@ ---機械天使の儀式 -function c100003001.initial_effect(c) - aux.AddRitualProcEqual(c,c100003001.ritual_filter) -end -function c100003001.ritual_filter(c) - local code=c:GetCode() - return code==100003002 or code==100003003 or code==100003004 -end diff --git a/script/c100003002.lua b/script/c100003002.lua deleted file mode 100644 index bf62cfaa..00000000 --- a/script/c100003002.lua +++ /dev/null @@ -1,35 +0,0 @@ ---サイバー・エンジェル－弁天－ -function c100003002.initial_effect(c) - c:EnableReviveLimit() - --damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100003002,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetCondition(c100003002.damcon) - e2:SetTarget(c100003002.damtg) - e2:SetOperation(c100003002.damop) - c:RegisterEffect(e2) -end - -function c100003002.damcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER) -end -function c100003002.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local c=e:GetHandler() - local bc=c:GetBattleTarget() - local dam=bc:GetDefence() - if dam<0 then dam=0 end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100003002.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100003003.lua b/script/c100003003.lua deleted file mode 100644 index c105ef79..00000000 --- a/script/c100003003.lua +++ /dev/null @@ -1,27 +0,0 @@ ---サイバー・エンジェル－茶吉尼－ -function c100003003.initial_effect(c) - c:EnableReviveLimit() - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetTarget(c100003003.target) - e1:SetOperation(c100003003.activate) - c:RegisterEffect(e1) - - --pierce - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e2) -end -function c100003003.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,1-tp,LOCATION_MZONE) -end -function c100003003.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_DESTROY) - local dg=Duel.SelectMatchingCard(1-tp,Card.IsDestructable,1-tp,LOCATION_MZONE,0,1,1,nil) - Duel.Destroy(dg,REASON_EFFECT) -end diff --git a/script/c100003004.lua b/script/c100003004.lua deleted file mode 100644 index 891ecebe..00000000 --- a/script/c100003004.lua +++ /dev/null @@ -1,32 +0,0 @@ ---サイバー・エンジェル－韋駄天－ -function c100003004.initial_effect(c) - c:EnableReviveLimit() - --salvage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100003004,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetTarget(c100003004.target) - e1:SetOperation(c100003004.operation) - c:RegisterEffect(e1) -end - -function c100003004.filter(c) - return c:IsType(TYPE_SPELL) and c:IsAbleToHand() -end -function c100003004.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100003004.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100003004.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c100003004.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c100003004.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c100004001.lua b/script/c100004001.lua deleted file mode 100644 index 53799c0c..00000000 --- a/script/c100004001.lua +++ /dev/null @@ -1,74 +0,0 @@ ---マスクドナイト ＬＶ３ -function c100004001.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100004001,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetCondition(c100004001.spcon) - e1:SetCost(c100004001.spcost) - e1:SetTarget(c100004001.sptg) - e1:SetOperation(c100004001.spop) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100004001,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c100004001.cost) - e2:SetTarget(c100004001.target) - e2:SetOperation(c100004001.operation) - c:RegisterEffect(e2) - -end -c100004001.lvupcount=1 -c100004001.lvup={100004002} -function c100004001.spcon(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() and not e:GetHandler():IsStatus(STATUS_SUMMON_TURN) -end -function c100004001.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c100004001.spfilter(c,e,tp) - return c:IsCode(100004002) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) -end -function c100004001.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100004001.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c100004001.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100004001.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP) - tc:CompleteProcedure() - end -end - -function c100004001.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e:GetHandler():RegisterEffect(e1) -end -function c100004001.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(400) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,400) -end -function c100004001.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100004002.lua b/script/c100004002.lua deleted file mode 100644 index 8382b082..00000000 --- a/script/c100004002.lua +++ /dev/null @@ -1,76 +0,0 @@ ---マスクドナイト ＬＶ５ -function c100004002.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100004002,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetCondition(c100004002.spcon) - e1:SetCost(c100004002.spcost) - e1:SetTarget(c100004002.sptg) - e1:SetOperation(c100004002.spop) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100004002,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c100004002.cost) - e2:SetTarget(c100004002.target) - e2:SetOperation(c100004002.operation) - c:RegisterEffect(e2) - -end -c100004002.lvupcount=1 -c100004002.lvup={100004003} -c100004002.lvdncount=1 -c100004002.lvdn={c100004001} -function c100004002.spcon(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() and not e:GetHandler():IsStatus(STATUS_SUMMON_TURN) -end -function c100004002.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c100004002.spfilter(c,e,tp) - return c:IsCode(100004003) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) -end -function c100004002.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100004002.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c100004002.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100004002.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP) - tc:CompleteProcedure() - end -end - -function c100004002.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e:GetHandler():RegisterEffect(e1) -end -function c100004002.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) -end -function c100004002.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100004003.lua b/script/c100004003.lua deleted file mode 100644 index 1198fd3b..00000000 --- a/script/c100004003.lua +++ /dev/null @@ -1,36 +0,0 @@ ---マスクドナイト ＬＶ７ -function c100004003.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100004003,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c100004003.target) - e2:SetOperation(c100004003.operation) - c:RegisterEffect(e2) -end -c100004003.lvupcount=1 -c100004003.lvup={100004002} -c100004003.lvdncount=2 -c100004003.lvdn={100004002,100004001} - -function c100004003.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(1500) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1500) -end -function c100004003.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100005001.lua b/script/c100005001.lua deleted file mode 100644 index 17fe8f91..00000000 --- a/script/c100005001.lua +++ /dev/null @@ -1,55 +0,0 @@ ---テイク・オーバー５ -function c100005001.initial_effect(c) - --discard deck - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCost(c100005001.discost) - e1:SetOperation(c100005001.disop) - c:RegisterEffect(e1) - - --Activate - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DRAW) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetRange(LOCATION_GRAVE) - e2:SetTarget(c100005001.target) - e2:SetCondition(c100005001.cfcon) - e2:SetCost(c100005001.cost) - e2:SetOperation(c100005001.activate) - c:RegisterEffect(e2) - -end -function c100005001.discost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,5) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(5) - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,5) -end -function c100005001.disop(e,tp,eg,ep,ev,re,r,rp) - local p,val=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.DiscardDeck(p,val,REASON_EFFECT) -end - -function c100005001.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c100005001.cfcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100005001.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end - -function c100005001.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100005002.lua b/script/c100005002.lua deleted file mode 100644 index 0ec3bc73..00000000 --- a/script/c100005002.lua +++ /dev/null @@ -1,42 +0,0 @@ ---決闘融合－バトル・フュージョン -function c100005002.initial_effect(c) - - --atkup - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetDescription(aux.Stringid(100005002,1)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c100005002.condition) - e1:SetOperation(c100005002.operation) - c:RegisterEffect(e1) -end - -function c100005002.condition(e,tp,eg,ep,ev,re,r,rp) - local phase=Duel.GetCurrentPhase() - if phase~=PHASE_DAMAGE and phase~=PHASE_DAMAGE_CAL then return false end - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - return (d~=nil and a:GetControler()==tp and a:IsType(TYPE_FUSION) and a:IsRelateToBattle()) - or (d~=nil and d:GetControler()==tp and d:IsFaceup() and d:IsType(TYPE_FUSION) and d:IsRelateToBattle()) -end - -function c100005002.operation(e,tp,eg,ep,ev,re,r,rp,chk) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if not a:IsRelateToBattle() or not d:IsRelateToBattle() then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetOwnerPlayer(tp) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL) - if a:GetControler()==tp then - e1:SetValue(d:GetAttack()) - a:RegisterEffect(e1) - else - e1:SetValue(a:GetAttack()) - d:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c100006001.lua b/script/c100006001.lua deleted file mode 100644 index 77d989c3..00000000 --- a/script/c100006001.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Ｄ－マインド -function c100006001.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100006001.condition) - e1:SetTarget(c100006001.target) - e1:SetOperation(c100006001.activate) - c:RegisterEffect(e1) -end - -function c100006001.dfilter(c,e,tp) - return c:IsFaceup() and c:IsSetCard(0xc008) -end - -function c100006001.condition(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c100006001.dfilter,tp,LOCATION_MZONE,0,1,nil) -end - -function c100006001.filter(c,e,tp) - return c:IsSetCard(0xc008) and c:IsLevelBelow(3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100006001.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100006001.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100006001.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100006001.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100008001.lua b/script/c100008001.lua deleted file mode 100644 index 2f78d5dd..00000000 --- a/script/c100008001.lua +++ /dev/null @@ -1,28 +0,0 @@ ---輪廻独断 -function c100008001.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100008001.target) - c:RegisterEffect(e1) - --race - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_GRAVE,LOCATION_GRAVE) - e2:SetCode(EFFECT_CHANGE_RACE) - e2:SetValue(c100008001.value) - c:RegisterEffect(e2) - e1:SetLabelObject(e2) -end -function c100008001.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,563) - local rc=Duel.AnnounceRace(tp,1,0xffffff) - e:GetLabelObject():SetLabel(rc) - e:GetHandler():SetHint(CHINT_RACE,rc) -end -function c100008001.value(e,c) - return e:GetLabel() -end diff --git a/script/c100010001.lua b/script/c100010001.lua deleted file mode 100644 index 600f9566..00000000 --- a/script/c100010001.lua +++ /dev/null @@ -1,97 +0,0 @@ ---ＮＯ１３ エーテリック・アメン -function c100010001.initial_effect(c) - --spsummon limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c100010001.splimit) - c:RegisterEffect(e1) - --indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e2:SetValue(1) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetValue(1) - c:RegisterEffect(e3) - --attack up - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetRange(LOCATION_MZONE) - e4:SetCode(EFFECT_UPDATE_ATTACK) - e4:SetValue(c100010001.atkval) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET) - e5:SetCode(EVENT_SPSUMMON_SUCCESS) - e5:SetTarget(c100010001.destg) - e5:SetOperation(c100010001.desop) - c:RegisterEffect(e5) - --draw - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetProperty(EFFECT_FLAG_CARD_TARGET) - e6:SetCode(EVENT_SPSUMMON_SUCCESS) - e6:SetRange(LOCATION_MZONE) - e6:SetCondition(c100010001.con) - e6:SetTarget(c100010001.tg) - e6:SetOperation(c100010001.op) - c:RegisterEffect(e6) -end -function c100010001.splimit(e,se,sp,st) - return se:GetHandler():IsSetCard(0x95) -end -function c100010001.atkval(e,c) - return e:GetHandler():GetOverlayCount()*100 -end -function c100010001.filter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) -end -function c100010001.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c100010001.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100010001.filter,tp,0,LOCATION_ONFIELD,1,nil) - and Duel.GetFieldGroupCount(1-tp,LOCATION_DECK,0)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c100010001.filter,tp,0,LOCATION_ONFIELD,1,1,nil) -end -function c100010001.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local dr=e:GetHandler():GetRank()-tc:GetRank() - if Duel.GetFieldGroupCount(1-tp,LOCATION_DECK,0)<=dr then - dr=Duel.GetFieldGroupCount(1-tp,LOCATION_DECK,0) - end - Duel.Overlay(e:GetHandler(),Duel.GetDecktopGroup(1-tp,dr)) - end -end -function c100010001.gfilter(c,tp) - return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsControler(tp) -end -function c100010001.con(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c100010001.gfilter,1,nil,1-tp) -end -function c100010001.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c100010001.gfilter,1,nil,1-tp) end - Duel.SetTargetCard(eg) -end -function c100010001.filter2(c,e,tp) - return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsControler(tp) and c:IsRelateToEffect(e) -end -function c100010001.op(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(c100010001.filter2,nil,e,1-tp) - local tc=g:GetFirst() - if not tc then return end - local dr=e:GetHandler():GetRank()-tc:GetRank() - if Duel.GetFieldGroupCount(1-tp,LOCATION_DECK,0)<=dr then - dr=Duel.GetFieldGroupCount(1-tp,LOCATION_DECK,0) - end - Duel.Overlay(e:GetHandler(),Duel.GetDecktopGroup(1-tp,dr)) -end \ No newline at end of file diff --git a/script/c100015000.lua b/script/c100015000.lua deleted file mode 100644 index ad561537..00000000 --- a/script/c100015000.lua +++ /dev/null @@ -1,87 +0,0 @@ ---100015000 -function c100015000.initial_effect(c) - --lvchange - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_LVCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100015000.lvtg) - e1:SetOperation(c100015000.lvop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SUMMON_SUCCESS) - c:RegisterEffect(e2) - --lvchange2 - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_LVCHANGE) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1) - e3:SetCost(c100015000.cost) - e3:SetTarget(c100015000.lvtg2) - e3:SetOperation(c100015000.lvop2) - c:RegisterEffect(e3) -end -function c100015000.lvfilter(c,lv) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) and c:GetLevel()~=0 -end -function c100015000.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100015000.lvfilter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100015000.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100015000.lvfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100015000.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()+c:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c100015000.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if chk==0 then return true end - if tc and tc:IsAbleToRemoveAsCost() then - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_COST) - else - return false - end -end -function c100015000.lvfilter2(c,lv) - return c:IsFaceup() and c:IsSetCard(0x400) -end -function c100015000.lvtg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100015000.lvfilter2(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100015000.lvfilter2,tp,LOCATION_MZONE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100015000.lvfilter2,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100015000.lvop2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(tc) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(c:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_BP) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end diff --git a/script/c100015001.lua b/script/c100015001.lua deleted file mode 100644 index 8d10bf91..00000000 --- a/script/c100015001.lua +++ /dev/null @@ -1,74 +0,0 @@ ---100015001 -function c100015001.initial_effect(c) - --lvchange - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_LVCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100015001.lvtg) - e1:SetOperation(c100015001.lvop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SUMMON_SUCCESS) - c:RegisterEffect(e2) - --search - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetCondition(c100015001.shcd) - e3:SetTarget(c100015001.shtg) - e3:SetOperation(c100015001.shop) - c:RegisterEffect(e3) -end -function c100015001.lvfilter(c,lv) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) and c:GetLevel()~=0 -end -function c100015001.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100015001.lvfilter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100015001.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100015001.lvfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100015001.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()+c:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c100015001.shcd(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousPosition(POS_FACEUP) and not c:IsLocation(LOCATION_DECK) -end -function c100015001.filter(c) - return c:IsSetCard(0x400) and c:IsAbleToHand() -end -function c100015001.shtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c100015001.shop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c100015001.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end - Duel.BreakEffect() - if g then - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - end -end diff --git a/script/c100015002.lua b/script/c100015002.lua deleted file mode 100644 index 20093ce7..00000000 --- a/script/c100015002.lua +++ /dev/null @@ -1,91 +0,0 @@ ---100015002 -function c100015002.initial_effect(c) - --lvchange - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_LVCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100015002.lvtg) - e1:SetOperation(c100015002.lvop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(100015002,0)) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c100015002.condition) - e3:SetCost(c100015002.cost) - e3:SetTarget(c100015002.target) - e3:SetOperation(c100015002.operation) - c:RegisterEffect(e3) -end -function c100015002.lvfilter(c,lv,code) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) and c:GetLevel()~=0 -end -function c100015002.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100015002.lvfilter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100015002.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100015002.lvfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100015002.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()+c:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c100015002.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_MAIN1 and Duel.GetTurnCount()~=1 -end -function c100015002.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if chk==0 then return true end - if tc and tc:IsAbleToRemoveAsCost() then - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_COST) - else - return false - end -end -function c100015002.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c100015002.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100015002.ftarget(e,c) - return e:GetLabel()~=c:GetFieldID() -end -function c100015002.operation(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DIRECT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end - e:SetLabelObject(tc) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e1:SetProperty(EFFECT_FLAG_OATH) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetTarget(c100015002.ftarget) - e1:SetLabel(tc:GetFieldID()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end \ No newline at end of file diff --git a/script/c100015003.lua b/script/c100015003.lua deleted file mode 100644 index 69189635..00000000 --- a/script/c100015003.lua +++ /dev/null @@ -1,65 +0,0 @@ ---100015003 -function c100015003.initial_effect(c) - --lvchange - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_LVCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100015003.lvtg) - e1:SetOperation(c100015003.lvop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SUMMON_SUCCESS) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_SPSUMMON_PROC) - e3:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e3:SetRange(LOCATION_HAND) - e3:SetCondition(c100015003.spcon) - e3:SetOperation(c100015003.spop) - c:RegisterEffect(e3) -end -function c100015003.lvfilter(c,lv) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) and c:GetLevel()~=0 -end -function c100015003.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) - and chkc:IsControler(tp) and c100015003.lvfilter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100015003.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100015003.lvfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100015003.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()+c:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c100015003.spfilter(c,lv) - return c:IsFaceup() and c:GetLevel()==lv -end -function c100015003.spcon(e,c) - if c==nil then return true end - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and - Duel.IsExistingMatchingCard(c100015003.spfilter,c:GetControler(),LOCATION_MZONE,0,1,nil,e:GetHandler():GetLevel()) -end -function c100015003.spop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) -end diff --git a/script/c100015004.lua b/script/c100015004.lua deleted file mode 100644 index bd0bb297..00000000 --- a/script/c100015004.lua +++ /dev/null @@ -1,90 +0,0 @@ ---100015004 -function c100015004.initial_effect(c) - --lvchange - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_LVCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100015004.lvtg) - e1:SetOperation(c100015004.lvop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SUMMON_SUCCESS) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_REMOVE) - e3:SetTarget(c100015004.target) - e3:SetOperation(c100015004.operation) - c:RegisterEffect(e3) -end -function c100015004.lvfilter(c,lv,code) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) and c:GetLevel()~=0 -end -function c100015004.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100015004.lvfilter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100015004.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100015004.lvfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100015004.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()+c:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c100015004.filter(c,e,tp,llv) - local lv=c:GetLevel() - return lv>0 and (not llv or lv==llv) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c~=e:GetHandler() -end -function c100015004.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return false end - if ft==1 then return Duel.IsExistingMatchingCard(c100015004.filter,tp,LOCATION_REMOVED,0,1,nil,e,tp,5) - else - local g=Duel.GetMatchingGroup(c100015004.filter,tp,LOCATION_REMOVED,0,nil,e,tp) - return g:CheckWithSumEqual(Card.GetLevel,5,1,2) - end - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_REMOVED) -end -function c100015004.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end - if ft==1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100015004.filter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp,5) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end - else - local g=Duel.GetMatchingGroup(c100015004.filter,tp,LOCATION_REMOVED,0,nil,e,tp) - if g:CheckWithSumEqual(Card.GetLevel,5,1,2) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:SelectWithSumEqual(tp,Card.GetLevel,5,1,2) - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) - end - end - Duel.BreakEffect() - if g or sg then - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - end -end - diff --git a/script/c100015005.lua b/script/c100015005.lua deleted file mode 100644 index 30bb3ebf..00000000 --- a/script/c100015005.lua +++ /dev/null @@ -1,68 +0,0 @@ ---100015005 -function c100015005.initial_effect(c) - --lvchange - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_LVCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100015005.lvtg) - e1:SetOperation(c100015005.lvop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SUMMON_SUCCESS) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_REMOVE) - e3:SetCost(c100015005.cost) - e3:SetTarget(c100015005.sptg) - e3:SetOperation(c100015005.operation) - c:RegisterEffect(e3) -end -function c100015005.lvfilter(c,lv) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) and c:GetLevel()~=0 -end -function c100015005.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100015005.lvfilter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100015005.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100015005.lvfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100015005.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()+c:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c100015005.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if chk==0 then return true end - if tc and tc:IsAbleToRemoveAsCost() then - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_COST) - else - return false - end -end -function c100015005.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(e:GetHandler():GetControler(),LOCATION_MZONE)>0 end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c100015005.operation(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) - end -end - diff --git a/script/c100015006.lua b/script/c100015006.lua deleted file mode 100644 index b05baf38..00000000 --- a/script/c100015006.lua +++ /dev/null @@ -1,70 +0,0 @@ ---100015006 -function c100015006.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND+LOCATION_GRAVE) - e1:SetCondition(c100015006.hspcon) - e1:SetOperation(c100015006.hspop) - c:RegisterEffect(e1) - --lvchange - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_LVCHANGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c100015006.lvtg) - e2:SetOperation(c100015006.lvop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c100015006.lvfilter(c,lv,code) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) and c:GetLevel()~=0 -end -function c100015006.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100015006.lvfilter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100015006.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100015006.lvfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100015006.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()+c:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c100015006.spfilter(c) - return c:IsFaceup() and c:IsAbleToRemoveAsCost() -end -function c100015006.hspcon(e,c) - if c==nil then return true end - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100015006.spfilter,c:GetControler(),LOCATION_MZONE,0,1,nil) - and Duel.GetFlagEffect(tp,100015006)==0 -end -function c100015006.hspop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c100015006.spfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - Duel.RegisterFlagEffect(tp,100015006,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end - diff --git a/script/c100015007.lua b/script/c100015007.lua deleted file mode 100644 index 1b205828..00000000 --- a/script/c100015007.lua +++ /dev/null @@ -1,107 +0,0 @@ ---100005007 -function c100005007.initial_effect(c) - --lvchange - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_LVCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100005007.lvtg) - e1:SetOperation(c100005007.lvop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SUMMON_SUCCESS) - c:RegisterEffect(e2) - --control - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_HAND) - e3:SetCategory(CATEGORY_CONTROL+CATEGORY_EQUIP) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCost(c100005007.ctcos) - e3:SetTarget(c100005007.cttar) - e3:SetOperation(c100005007.ctop) - c:RegisterEffect(e3) -end -function c100005007.lvfilter(c,lv,code) - return c:IsFaceup() and c:IsSetCard(0x99) and c:GetLevel()~=0 -end -function c100005007.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100005007.lvfilter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100005007.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100005007.lvfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100005007.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()+c:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c100005007.ctffilter(c,tp) - return c:IsControlerCanBeChanged() and c:IsFaceup() - and Duel.IsExistingMatchingCard(c100005007.ctfilter,tp,LOCATION_MZONE,0,1,nil,c:GetLevel()) -end -function c100005007.ctfilter(c,lv) - return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() and c:GetLevel()==lv -end -function c100005007.ctcos(e,tp,eg,ep,ev,re,r,rp,chk) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if chk==0 then return Duel.IsExistingMatchingCard(c100005007.ctffilter,tp,0,LOCATION_MZONE,1,nil,tp) end - if tc and tc:IsAbleToRemoveAsCost() then - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_COST) - else - return false - end -end -function c100005007.cttar(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) - and Duel.IsExistingMatchingCard(c100005007.ctfilter,tp,LOCATION_MZONE,0,1,nil,tp) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local sg=Duel.SelectTarget(tp,c100005007.ctffilter,tp,0,LOCATION_MZONE,1,1,nil,tp) - e:SetLabel(sg:GetFirst():GetLevel()) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,sg,1,0,0) -end -function c100005007.eqlimit(e,c) - return c==e:GetLabelObject() -end -function c100005007.ctop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if Duel.GetLocationCount(tp,LOCATION_SZONE)==0 or tc:IsFacedown() or not tc:IsRelateToEffect(e) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOREMOVE) - local g=Duel.SelectMatchingCard(tp,c100005007.ctfilter,tp,LOCATION_MZONE,0,1,1,nil,e:GetLabel()) - Duel.Remove(g,POS_FACEUP,REASON_EFFECT) - if not g then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - Duel.Equip(tp,c,tc,true) - --Add Equip limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(1) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_SET_CONTROL) - e2:SetValue(tp) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) -end \ No newline at end of file diff --git a/script/c100015008.lua b/script/c100015008.lua deleted file mode 100644 index e4e3011b..00000000 --- a/script/c100015008.lua +++ /dev/null @@ -1,135 +0,0 @@ --- -function c100015008.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c100015008.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) - --lvchange - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_LVCHANGE) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_SUMMON_SUCCESS) - e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e4:SetRange(LOCATION_MZONE) - e4:SetTarget(c100015008.lvtg) - e4:SetOperation(c100015008.lvop) - c:RegisterEffect(e4) - --Activate - local e5=Effect.CreateEffect(c) - e5:SetCategory(CATEGORY_SPECIAL_SUMMON) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetRange(LOCATION_MZONE) - e5:SetCost(c100015008.cost) - e5:SetTarget(c100015008.target) - e5:SetOperation(c100015008.activate) - c:RegisterEffect(e5) -end -function c100015008.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(100015008,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetProperty(EFFECT_FLAG_REPEAT) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c100015008.retcon) - e1:SetTarget(c100015008.rettg) - e1:SetOperation(c100015008.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c100015008.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c100015008.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c100015008.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end -function c100015008.lvfilter(c,lv) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) and c:GetLevel()~=0 -end -function c100015008.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) - and chkc:IsControler(tp) and c100015008.lvfilter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100015008.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100015008.lvfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100015008.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()+c:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c100015008.cosfilter(c) - return bit.band(c:GetType(),0x82)==0x82 and c:IsAbleToRemoveAsCost() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c100015008.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100015008.cosfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c100015008.cosfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c100015008.filter(c,e,tp,lp) - if bit.band(c:GetType(),0x81)~=0x81 - or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) then return false end - return lp>=c:GetLevel() -end -function c100015008.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local lp=Duel.GetMatchingGroupCount(Card.IsAbleToRemove,tp,LOCATION_DECK,0,nil) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetFlagEffect(tp,100015008)==0 - and Duel.IsExistingMatchingCard(c100015008.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp,lp) - end - Duel.RegisterFlagEffect(tp,100015008,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) -end -function c100015008.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local lp=Duel.GetMatchingGroupCount(Card.IsAbleToRemove,tp,LOCATION_DECK,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c100015008.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp,lp) - local tc=tg:GetFirst() - if tc then - local dg=Duel.GetDecktopGroup(tp,tc:GetLevel()) - Duel.Remove(dg,POS_FACEUP,REASON_EFFECT) - tc:SetMaterial(Group.CreateGroup()) - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end diff --git a/script/c100015009.lua b/script/c100015009.lua deleted file mode 100644 index 676d4e0f..00000000 --- a/script/c100015009.lua +++ /dev/null @@ -1,78 +0,0 @@ ---100015009 -function c100015009.initial_effect(c) - --lvchange - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_LVCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100015009.lvtg) - e1:SetOperation(c100015009.lvop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SUMMON_SUCCESS) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_DAMAGE) - e3:SetRange(LOCATION_HAND) - e3:SetCost(c100015009.cost) - e3:SetTarget(c100015009.sptg) - e3:SetOperation(c100015009.operation) - c:RegisterEffect(e3) -end -function c100015009.lvfilter(c,lv) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) and c:GetLevel()~=0 -end -function c100015009.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100015009.lvfilter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100015009.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100015009.lvfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100015009.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()+c:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c100015009.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - if tc and tc:IsAbleToRemoveAsCost() then - Duel.SendtoGrave(e:GetHandler(),REASON_COST) - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_COST) - else - return false - end -end -function c100015009.filter(c,e,tp,dam) - return c:IsAttackBelow(dam) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100015009.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return tp==ep and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100015009.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil,e,tp,ev) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_REMOVED) -end -function c100015009.operation(e,tp,eg,ep,ev,re,r,rp) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100015009.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,1,nil,e,tp,ev) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end - diff --git a/script/c100015100.lua b/script/c100015100.lua deleted file mode 100644 index c340db1a..00000000 --- a/script/c100015100.lua +++ /dev/null @@ -1,66 +0,0 @@ --- -function c100015100.initial_effect(c) - c:EnableReviveLimit() - --lvchange - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_LVCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100015100.lvtg) - e1:SetOperation(c100015100.lvop) - c:RegisterEffect(e1) - --disable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,LOCATION_MZONE) - e2:SetTarget(c100015100.disable) - e2:SetCode(EFFECT_DISABLE) - c:RegisterEffect(e2) - --to REMOVE - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_REMOVE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCountLimit(1) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetOperation(c100015100.tgop) - c:RegisterEffect(e3) -end -function c100015100.lvfilter(c,lv) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) and c:GetLevel()~=0 -end -function c100015100.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100015100.lvfilter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100015100.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100015100.lvfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100015100.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()+c:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c100015100.disable(e,c) - return c:IsType(TYPE_EFFECT) -end -function c100015100.tgop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_RULE) - else - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_COST) - end -end \ No newline at end of file diff --git a/script/c100015101.lua b/script/c100015101.lua deleted file mode 100644 index 90757532..00000000 --- a/script/c100015101.lua +++ /dev/null @@ -1,63 +0,0 @@ --- -function c100015101.initial_effect(c) - c:EnableReviveLimit() - --lvchange - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_LVCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100015101.lvtg) - e1:SetOperation(c100015101.lvop) - c:RegisterEffect(e1) - --remove - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_TO_GRAVE_REDIRECT) - e2:SetValue(LOCATION_REMOVED) - c:RegisterEffect(e2) - --to REMOVE - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_REMOVE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCountLimit(1) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetOperation(c100015101.tgop) - c:RegisterEffect(e3) -end -function c100015101.lvfilter(c,lv) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) and c:GetLevel()~=0 -end -function c100015101.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100015101.lvfilter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100015101.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100015101.lvfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100015101.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()+c:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c100015101.tgop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_RULE) - else - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_COST) - end -end diff --git a/script/c100015102.lua b/script/c100015102.lua deleted file mode 100644 index 1c69028a..00000000 --- a/script/c100015102.lua +++ /dev/null @@ -1,76 +0,0 @@ --- -function c100015102.initial_effect(c) - c:EnableReviveLimit() - --lvchange - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_LVCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100015102.lvtg) - e1:SetOperation(c100015102.lvop) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_RECOVER) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_REMOVE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e2:SetRange(LOCATION_MZONE) - --e2:SetCountLimit(1) - e2:SetTarget(c100015102.rectg) - e2:SetOperation(c100015102.recop) - c:RegisterEffect(e2) - --to REMOVE - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_REMOVE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCountLimit(1) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetOperation(c100015102.tgop) - c:RegisterEffect(e3) -end -function c100015102.lvfilter(c,lv) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) and c:GetLevel()~=0 -end -function c100015102.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100015102.lvfilter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c100015102.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100015102.lvfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c100015102.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()+c:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c100015102.tgop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_RULE) - else - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_COST) - end -end -function c100015102.rectg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(500) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,500) -end -function c100015102.recop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Recover(p,d,REASON_EFFECT) -end diff --git a/script/c100015105.lua b/script/c100015105.lua deleted file mode 100644 index f67b516a..00000000 --- a/script/c100015105.lua +++ /dev/null @@ -1,80 +0,0 @@ --- -function c100015105.initial_effect(c) - c:EnableReviveLimit() - --fusion material - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(c100015105.fscondition) - e1:SetOperation(c100015105.fsoperation) - c:RegisterEffect(e1) - --atk - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetOperation(c100015105.atkop) - c:RegisterEffect(e2) - --TODECK - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TODECK) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetCondition(c100015105.tdcon) - e3:SetTarget(c100015105.tdtg) - e3:SetOperation(c100015105.tdop) - c:RegisterEffect(e3) -end -function c100015105.spfilter(c,mg) - return c:IsSetCard(0x400) and c:IsSetCard(0x45) -end -function c100015105.fscondition(e,mg,gc) - if mg==nil then return false end - if gc then return false end - return mg:IsExists(c100015105.spfilter,2,nil,mg) -end -function c100015105.fsoperation(e,tp,eg,ep,ev,re,r,rp,gc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=eg:FilterSelect(tp,c100015105.spfilter,2,63,nil,eg) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - Duel.SetFusionMaterial(g1) -end -function c100015105.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=c:GetMaterial() - local s=0 - local tc=g:GetFirst() - while tc do - local a=tc:GetAttack() - if a<0 then a=0 end - s=s+a - tc=g:GetNext() - end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(s/2) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - local dg=Duel.GetDecktopGroup(tp,1) - local tdc=dg:GetFirst() - if not tdc or not tdc:IsAbleToRemove() then - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_RULE) - else - Duel.DisableShuffleCheck() - Duel.Remove(tdc,POS_FACEUP,REASON_COST) - end -end -function c100015105.tdcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousPosition(POS_FACEUP) -end -function c100015105.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,PLAYER_ALL,LOCATION_REMOVED) -end -function c100015105.tdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=Duel.GetFieldGroup(tp,LOCATION_REMOVED,LOCATION_REMOVED) - Duel.SendtoDeck(g,nil,2,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100015106.lua b/script/c100015106.lua deleted file mode 100644 index ac11470f..00000000 --- a/script/c100015106.lua +++ /dev/null @@ -1,101 +0,0 @@ --- -function c100015106.initial_effect(c) - c:EnableReviveLimit() - --fusion material - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(c100015106.fscondition) - e1:SetOperation(c100015106.fsoperation) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetOperation(c100015106.atkop) - c:RegisterEffect(e2) - --REMOVED - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_REMOVED) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetCondition(c100015106.tdcon) - e3:SetTarget(c100015106.tdtg) - e3:SetOperation(c100015106.tdop) - c:RegisterEffect(e3) - --defup - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetRange(LOCATION_MZONE) - e4:SetCode(EFFECT_UPDATE_DEFENCE) - e4:SetValue(c100015106.operation) - c:RegisterEffect(e4) - --atkup - local e5=e4:Clone() - e5:SetCode(EFFECT_UPDATE_ATTACK) - e5:SetValue(c100015106.operation2) - c:RegisterEffect(e5) -end -function c100015106.spfilter(c,mg) - return c:IsSetCard(0x400) and c:IsSetCard(0x45) and mg:IsExists(Card.IsType,1,c,TYPE_MONSTER) -end -function c100015106.fscondition(e,mg,gc) - if mg==nil then return false end - if gc then return false end - return mg:IsExists(c100015106.spfilter,1,nil,mg) -end -function c100015106.fsoperation(e,tp,eg,ep,ev,re,r,rp,gc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=eg:FilterSelect(tp,c100015106.spfilter,1,1,nil,eg) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=eg:FilterSelect(tp,Card.IsType,1,63,g1:GetFirst(),TYPE_MONSTER) - g1:Merge(g2) - Duel.SetFusionMaterial(g1) -end -function c100015106.atkop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetDecktopGroup(tp,1) - local tdc=dg:GetFirst() - if not tdc or not tdc:IsAbleToRemove() then - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_RULE) - else - Duel.DisableShuffleCheck() - Duel.Remove(tdc,POS_FACEUP,REASON_COST) - end -end -function c100015106.tdcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousPosition(POS_FACEUP) -end -function c100015106.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_REMOVED,nil,1,PLAYER_ALL,LOCATION_GRAVE) -end -function c100015106.tdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=Duel.GetFieldGroup(tp,LOCATION_GRAVE,LOCATION_GRAVE) - Duel.Remove(g,POS_FACEUP,REASON_EFFECT) -end -function c100015106.filter(c) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) -end -function c100015106.operation(e,c) - local wup=0 - local wg=Duel.GetMatchingGroup(c100015106.filter,c:GetControler(),LOCATION_MZONE,0,c) - local wbc=wg:GetFirst() - while wbc do - wup=wup+wbc:GetDefence() - wbc=wg:GetNext() - end - return wup/2 -end -function c100015106.operation2(e,c) - local wdp=0 - local wd=Duel.GetMatchingGroup(c100015106.filter,c:GetControler(),LOCATION_MZONE,0,c) - local wdc=wd:GetFirst() - while wdc do - wdp=wdp+wdc:GetAttack() - wdc=wd:GetNext() - end - return wdp/2 -end \ No newline at end of file diff --git a/script/c100015107.lua b/script/c100015107.lua deleted file mode 100644 index b0c2f627..00000000 --- a/script/c100015107.lua +++ /dev/null @@ -1,140 +0,0 @@ --- -function c100015107.initial_effect(c) - c:EnableReviveLimit() - --fusion material - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(c100015107.fscondition) - e1:SetOperation(c100015107.fsoperation) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetOperation(c100015107.atkop) - c:RegisterEffect(e2) - --REMOVED - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_REMOVED) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetCondition(c100015107.tdcon) - e3:SetTarget(c100015107.tdtg) - e3:SetOperation(c100015107.tdop) - c:RegisterEffect(e3) - --defup - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetRange(LOCATION_MZONE) - e4:SetCode(EFFECT_UPDATE_DEFENCE) - e4:SetValue(c100015107.operation) - c:RegisterEffect(e4) - --atkup - local e5=e4:Clone() - e5:SetCode(EFFECT_UPDATE_ATTACK) - e5:SetValue(c100015107.operation) - c:RegisterEffect(e5) - --spsummon condition - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e6:SetCode(EFFECT_SPSUMMON_CONDITION) - e6:SetValue(c100015107.splimit) - c:RegisterEffect(e6) - --special summon rule - local e7=Effect.CreateEffect(c) - e7:SetDescription(aux.Stringid(100015107,0)) - e7:SetType(EFFECT_TYPE_FIELD) - e7:SetCode(EFFECT_SPSUMMON_PROC) - e7:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e7:SetRange(LOCATION_EXTRA) - e7:SetCondition(c100015107.sprcon) - e7:SetOperation(c100015107.sprop) - c:RegisterEffect(e7) - -end -function c100015107.splimit(e,se,sp,st) - return e:GetHandler():GetLocation()~=LOCATION_EXTRA -end -function c100015107.spfilter1(c,tp) - return c:IsSetCard(0x400) and c:IsSetCard(0x45) and c:IsAbleToDeckAsCost() - and c:IsCanBeFusionMaterial() and Duel.IsExistingMatchingCard(c100015107.spfilter2,tp,LOCATION_MZONE,0,1,c) -end -function c100015107.spfilter2(c) - local tpe=c:GetOriginalType() - return c:IsCanBeFusionMaterial() and - ((bit.band(tpe,TYPE_FUSION)>0 and c:IsAbleToExtraAsCost()) or - (bit.band(tpe,TYPE_FUSION)==0 and c:IsAbleToDeckAsCost())) -end -function c100015107.sprcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 - and Duel.IsExistingMatchingCard(c100015107.spfilter1,tp,LOCATION_ONFIELD,0,1,nil,tp) -end -function c100015107.sprop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100015107,1)) - local g1=Duel.SelectMatchingCard(tp,c100015107.spfilter1,tp,LOCATION_ONFIELD,0,1,1,nil,tp) - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100015107,2)) - local g2=Duel.SelectMatchingCard(tp,c100015107.spfilter2,tp,LOCATION_MZONE,0,1,63,g1:GetFirst()) - g1:Merge(g2) - local tc=g1:GetFirst() - while tc do - if not tc:IsFaceup() then Duel.ConfirmCards(1-tp,tc) end - tc=g1:GetNext() - end - Duel.SendtoDeck(g1,nil,2,REASON_COST) -end -function c100015107.spfilter(c,mg) - return c:IsSetCard(0x400) and c:IsSetCard(0x45) and mg:IsExists(Card.IsType,1,c,TYPE_MONSTER) -end -function c100015107.fscondition(e,mg,gc) - if mg==nil then return false end - if gc then return false end - return mg:IsExists(c100015107.spfilter,1,nil,mg) -end -function c100015107.fsoperation(e,tp,eg,ep,ev,re,r,rp,gc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=eg:FilterSelect(tp,c100015107.spfilter,1,1,nil,eg) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=eg:FilterSelect(tp,Card.IsType,1,63,g1:GetFirst(),TYPE_MONSTER) - g1:Merge(g2) - Duel.SetFusionMaterial(g1) -end -function c100015107.atkop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetDecktopGroup(tp,1) - local tdc=dg:GetFirst() - if not tdc or not tdc:IsAbleToRemove() then - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_RULE) - else - Duel.DisableShuffleCheck() - Duel.Remove(tdc,POS_FACEUP,REASON_COST) - end -end -function c100015107.tdcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousPosition(POS_FACEUP) -end -function c100015107.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_REMOVED,nil,1,PLAYER_ALL,LOCATION_DECK) -end -function c100015107.tdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local wg=Duel.GetMatchingGroupCount(nil,c:GetControler(),LOCATION_REMOVED,LOCATION_REMOVED,nil) - local d=math.floor(wg/10) - local dg=Duel.GetDecktopGroup(tp,d) - local dg2=Duel.GetDecktopGroup(1-tp,d) - dg:Merge(dg2) - Duel.DisableShuffleCheck() - Duel.Remove(dg,POS_FACEUP,REASON_COST) -end -function c100015107.operation(e,c) - local c=e:GetHandler() - local wup=0 - local wg=Duel.GetMatchingGroupCount(nil,c:GetControler(),LOCATION_REMOVED,LOCATION_REMOVED,nil) - local d=math.floor(wg/2) - return d*100 -end \ No newline at end of file diff --git a/script/c100015200.lua b/script/c100015200.lua deleted file mode 100644 index a7fea895..00000000 --- a/script/c100015200.lua +++ /dev/null @@ -1,42 +0,0 @@ --- -function c100005200.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,c100005200.tfilter,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --synchro summon success - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE+CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetOperation(c100005200.drop) - c:RegisterEffect(e1) - --REMOVED - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_REMOVED) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetCondition(c100005200.tdcon) - e2:SetOperation(c100005200.tdop) - c:RegisterEffect(e2) -end -function c100005200.tfilter(c) - return c:IsSetCard(0x99) -end -function c100005200.drop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) -end -function c100005200.tdcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousPosition(POS_FACEUP) -end -function c100005200.tdop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetDecktopGroup(1-tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) -end diff --git a/script/c100015201.lua b/script/c100015201.lua deleted file mode 100644 index 47fe08b7..00000000 --- a/script/c100015201.lua +++ /dev/null @@ -1,59 +0,0 @@ --- -function c100015201.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x400),aux.NonTuner(nil),1) - c:EnableReviveLimit() - --synchro summon success - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE+CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetOperation(c100015201.drop) - c:RegisterEffect(e1) - --synchro effect - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100015201,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(0,0x1c0+TIMING_MAIN_END) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c100015201.sccon) - e2:SetTarget(c100015201.sctarg) - e2:SetOperation(c100015201.scop) - c:RegisterEffect(e2) -end -function c100015201.drop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - Duel.DisableShuffleCheck() - Duel.BreakEffect() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - local dg=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_REMOVED,0,nil) - if dg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(100015201,0)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local des=dg:Select(tp,1,1,nil) - Duel.BreakEffect() - Duel.SendtoHand(des,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,des) - end -end -function c100015201.sccon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsStatus(STATUS_CHAINING) and Duel.GetTurnPlayer()~=tp - and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) -end -function c100015201.sctarg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,e:GetHandler()) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100015201.scop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetControler()~=tp or not c:IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,c) - if g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:Select(tp,1,1,nil) - Duel.SynchroSummon(tp,sg:GetFirst(),c) - end -end diff --git a/script/c100015202.lua b/script/c100015202.lua deleted file mode 100644 index b8851e39..00000000 --- a/script/c100015202.lua +++ /dev/null @@ -1,38 +0,0 @@ --- -function c100015202.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --synchro summon success - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetOperation(c100015202.drop) - c:RegisterEffect(e1) - --cannot be target - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetTarget(c100015202.targetd) - e2:SetValue(c100015202.tgval) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e3) -end -function c100015202.drop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) -end -function c100015202.targetd(e,c) - return c:IsSetCard(0x400) -end -function c100015202.tgval(e,re,rp) - return e:GetHandlerPlayer()~=rp -end \ No newline at end of file diff --git a/script/c100015203.lua b/script/c100015203.lua deleted file mode 100644 index df275bbf..00000000 --- a/script/c100015203.lua +++ /dev/null @@ -1,95 +0,0 @@ --- -function c100015203.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x400),aux.NonTuner(Card.IsSetCard,0x400),2) - c:EnableReviveLimit() - --tohand - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100015203,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c100015203.con1) - e1:SetCost(c100015203.cost) - e1:SetTarget(c100015203.tg1) - e1:SetOperation(c100015203.op1) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100015203,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c100015203.con2) - e2:SetCost(c100015203.cost) - e2:SetTarget(c100015203.tg2) - e2:SetOperation(c100015203.op2) - c:RegisterEffect(e2) - --synchro summon success - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_REMOVE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetOperation(c100015203.drop) - c:RegisterEffect(e3) -end -function c100015203.drop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) -end -function c100015203.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if chk==0 then return true end - if tc and tc:IsAbleToRemoveAsCost() then - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_COST) - else - return false - end -end -function c100015203.con1(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(100015203)==0 -end -function c100015203.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_REMOVED) and chkc:IsAbleToHand() end - if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,1,nil) - e:GetHandler():RegisterFlagEffect(100015203,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c100015203.op1(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - if sg:GetCount()>0 then - Duel.SendtoHand(sg,tp,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sg) - end -end -function c100015203.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100015203.con2(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(100015203)==0 -end -function c100015203.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_REMOVED) and c100015203.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100015203.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100015203.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,1,nil,e,tp) - e:GetHandler():RegisterFlagEffect(100015203,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100015203.op2(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100015204.lua b/script/c100015204.lua deleted file mode 100644 index 46f75954..00000000 --- a/script/c100015204.lua +++ /dev/null @@ -1,46 +0,0 @@ --- -function c100015204.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsSetCard,0x400),1) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1c0+TIMING_MAIN_END) - e1:SetCountLimit(1) - e1:SetCondition(c100015204.atkcon) - e1:SetTarget(c100015204.distg) - e1:SetOperation(c100015204.atkop) - c:RegisterEffect(e1) - --synchro summon success - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_REMOVE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetOperation(c100015204.drop) - c:RegisterEffect(e3) -end -function c100015204.drop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) -end -function c100015204.atkcon(e,tp,eg,ep,ev,re,r,rp) - local ph=Duel.GetCurrentPhase() - return ph==PHASE_MAIN1 or ph==PHASE_MAIN2 -end -function c100015204.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDiscardDeck(1-tp,1) end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,1-tp,1) -end -function c100015204.atkop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetDecktopGroup(1-tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100015210.lua b/script/c100015210.lua deleted file mode 100644 index a2e9a035..00000000 --- a/script/c100015210.lua +++ /dev/null @@ -1,53 +0,0 @@ --- -function c100015210.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterEqualFunction(Card.GetLevel,9),2) - c:EnableReviveLimit() - --attack up - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetDescription(aux.Stringid(100015210,0)) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c100015210.cost) - e1:SetOperation(c100015210.operation) - c:RegisterEffect(e1) -end -function c100015210.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - if tc and tc:IsAbleToRemoveAsCost() then - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_COST) - else - return false - end -end -function c100015210.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(tc:GetBaseAttack()/2) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - tc=g:GetNext() - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(0,1) - e1:SetValue(0) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end \ No newline at end of file diff --git a/script/c100015211.lua b/script/c100015211.lua deleted file mode 100644 index f41eaf7e..00000000 --- a/script/c100015211.lua +++ /dev/null @@ -1,65 +0,0 @@ --- -function c100015211.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterEqualFunction(Card.GetLevel,11),2) - c:EnableReviveLimit() - --attack up - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetDescription(aux.Stringid(100015211,0)) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c100015211.cost) - e1:SetTarget(c100015211.target) - e1:SetOperation(c100015211.operation) - c:RegisterEffect(e1) -end -function c100015211.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - if tc and tc:IsAbleToRemoveAsCost() then - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_COST) - else - return false - end -end -function c100015211.filter(c) - return c:IsFaceup() -end -function c100015211.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100015211.filter,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(c100015211.filter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100015211.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(tc:GetBaseAttack()/2) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - tc=g:GetNext() - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(0,1) - e1:SetValue(c100015211.damval) - e1:SetReset(RESET_PHASE+PHASE_END,1) - Duel.RegisterEffect(e1,tp) -end -function c100015211.damval(e,re,dam,r,rp,rc) - return dam/2 -end \ No newline at end of file diff --git a/script/c100015212.lua b/script/c100015212.lua deleted file mode 100644 index 6c2c21df..00000000 --- a/script/c100015212.lua +++ /dev/null @@ -1,42 +0,0 @@ --- -function c100015212.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterEqualFunction(Card.GetLevel,2),2) - c:EnableReviveLimit() - --attack up - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK) - e1:SetDescription(aux.Stringid(100015212,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c100015212.cost) - e1:SetTarget(c100015212.target) - e1:SetOperation(c100015212.operation) - c:RegisterEffect(e1) -end -function c100015212.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - if tc and tc:IsAbleToRemoveAsCost() then - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_COST) - else - return false - end -end -function c100015212.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,0,0) -end -function c100015212.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_GRAVE+LOCATION_REMOVED,1,1,nil) - local tc=g:GetFirst() - if tc then - Duel.SendtoDeck(tc,nil,0,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100015300.lua b/script/c100015300.lua deleted file mode 100644 index 4d93843b..00000000 --- a/script/c100015300.lua +++ /dev/null @@ -1,32 +0,0 @@ --- -function c100015300.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW+CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100015300.cost) - e1:SetTarget(c100015300.target) - e1:SetOperation(c100015300.activate) - c:RegisterEffect(e1) -end -function c100015300.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,100015300)==0 end - local dg=Duel.GetDecktopGroup(tp,2) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - Duel.DisableShuffleCheck() - Duel.Remove(dg,POS_FACEUP,REASON_COST) - Duel.RegisterFlagEffect(tp,100015300,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c100015300.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,4) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100015300.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c100015305.lua b/script/c100015305.lua deleted file mode 100644 index de6d3148..00000000 --- a/script/c100015305.lua +++ /dev/null @@ -1,93 +0,0 @@ --- -function c100015305.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100015305.target) - e1:SetOperation(c100015305.activate) - c:RegisterEffect(e1) -end -function c100015305.mfilter1(c,e) - return c:IsFaceup() and c:GetLevel()>0 and not c:IsImmuneToEffect(e) and c:IsReleasable() -end -function c100015305.mfilter2(c) - return c:IsHasEffect(EFFECT_EXTRA_RITUAL_MATERIAL) and c:IsAbleToRemove() -end -function c100015305.mfilter3(c,e) - return c:GetLevel()>0 and c:IsReleasable() -end -function c100015305.get_material(e,tp) - local g1=Duel.GetMatchingGroup(c100015305.mfilter1,tp,LOCATION_MZONE,0,nil,e) - local g2=Duel.GetMatchingGroup(c100015305.mfilter2,tp,LOCATION_GRAVE,0,nil) - local g3=Duel.GetMatchingGroup(c100015305.mfilter3,tp,LOCATION_HAND,0,nil,e) - g1:Merge(g2) - g1:Merge(g3) - return g1 -end -function c100015305.filter(c,e,tp,m) - if bit.band(c:GetType(),0x81)~=0x81 or not c:IsSetCard(0x400) - or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) then return false end - if m:IsContains(c) then - m:RemoveCard(c) - result=m:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,99,c) - m:AddCard(c) - else - result=m:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,99,c) - end - return result -end -function c100015305.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return false end - local mg=c100015305.get_material(e,tp) - return Duel.IsExistingMatchingCard(c100015305.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100015305.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local mg=c100015305.get_material(e,tp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c100015305.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg) - if tg:GetCount()>0 then - local tc=tg:GetFirst() - mg:RemoveCard(tc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),1,99,tc) - tc:SetMaterial(mat) - Duel.ReleaseRitualMaterial(mat) - Duel.BreakEffect() - --Destroy replace - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DESTROY_REPLACE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c100015305.desreptg) - e1:SetOperation(c100015305.desrepop) - e1:SetReset(RESET_EVENT+0xfe0000) - tc:RegisterEffect(e1) - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end -function c100015305.desreptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if chk==0 then return not c:IsReason(REASON_REPLACE) and c:IsOnField() and c:IsFaceup() - and tc:IsAbleToRemove() end - if Duel.SelectYesNo(tp,aux.Stringid(100015305,0)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESREPLACE) - return true - else return false end -end -function c100015305.desrepop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if not tc or not tc:IsAbleToRemove() then return end - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100015310.lua b/script/c100015310.lua deleted file mode 100644 index 00405561..00000000 --- a/script/c100015310.lua +++ /dev/null @@ -1,48 +0,0 @@ ---100015310 -function c100015310.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_REMOVE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetTarget(c100015310.target) - e2:SetOperation(c100015310.operation) - c:RegisterEffect(e2) -end -function c100015310.filter(c) - return c:IsSetCard(0x400) and c:IsSetCard(0x45) -end -function c100015310.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsAbleToDeck() end - if chk==0 then return e:GetHandler():IsLocation(LOCATION_SZONE) and not e:GetHandler():IsStatus(STATUS_CHAINING) end - if eg:IsExists(c100015310.filter,1,nil,tp) then - e:GetHandler():RegisterFlagEffect(100015310,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,LOCATION_GRAVE+LOCATION_REMOVED,LOCATION_GRAVE+LOCATION_REMOVED,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) -end -function c100015310.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - Duel.BreakEffect() - Duel.SendtoDeck(sg,nil,1,REASON_EFFECT) - if e:GetHandler():GetFlagEffect(100015310)~=0 then - local dg=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_REMOVED,LOCATION_REMOVED,nil) - if dg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(100015310,0)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local des=dg:Select(tp,1,1,nil) - Duel.BreakEffect() - Duel.SendtoHand(des,tp,REASON_EFFECT) - Duel.ConfirmCards(1-tp,des) - end - end -end \ No newline at end of file diff --git a/script/c100015400.lua b/script/c100015400.lua deleted file mode 100644 index ef80c898..00000000 --- a/script/c100015400.lua +++ /dev/null @@ -1,75 +0,0 @@ --- -function c100015400.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCondition(c100015400.con) - e1:SetTarget(c100015400.target) - e1:SetOperation(c100015400.operation) - c:RegisterEffect(e1) - --remove - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetHintTiming(0,TIMING_END_PHASE) - e2:SetCondition(c100015400.con) - e2:SetTarget(c100015400.target) - e2:SetOperation(c100015400.operation) - c:RegisterEffect(e2) - --Activate - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_ACTIVATE) - e3:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e3) -end -function c100015400.filter(c,tp) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) -end -function c100015400.con(e,tp,eg,ep,ev,re,r,rp,chk) - return eg:IsExists(c100015400.filter,1,nil,tp) and - (Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) or - (Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_DECK,1,nil) and Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_DECK,0,1,nil)) or - Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)) - and e:GetHandler():GetFlagEffect(100015400)==0 -end -function c100015400.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) end - -end -function c100015400.operation(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local g1=nil - local g2=nil - local t={} - local p=1 - if Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) then t[p]=aux.Stringid(100015400,0) p=p+1 end - if Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_DECK,1,nil) - and Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_DECK,0,1,nil) then t[p]=aux.Stringid(100015400,1) p=p+1 end - if Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) then t[p]=aux.Stringid(100015400,2) p=p+1 end - Duel.Hint(HINT_SELECTMSG,1-tp,aux.Stringid(100015400,3)) - local sel=Duel.SelectOption(1-tp,table.unpack(t))+1 - local opt=t[sel]-aux.Stringid(100015400,0) - if opt==0 then - g1=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local sg=g1:Select(tp,1,1,nil) - Duel.Remove(sg,POS_FACEUP,REASON_EFFECT) - e:GetHandler():RegisterFlagEffect(100015400,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - elseif opt==1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - g1=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_DECK,0,1,1,nil) - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_REMOVE) - g2=Duel.SelectMatchingCard(1-tp,Card.IsAbleToRemove,1-tp,LOCATION_DECK,0,1,1,nil) - g1:Merge(g2) - Duel.Remove(g1,POS_FACEUP,REASON_EFFECT) - e:GetHandler():RegisterFlagEffect(100015400,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - else - g1=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local sg=g1:Select(tp,1,1,nil) - Duel.Remove(sg,POS_FACEUP,REASON_EFFECT) - e:GetHandler():RegisterFlagEffect(100015400,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - end -end \ No newline at end of file diff --git a/script/c100015410.lua b/script/c100015410.lua deleted file mode 100644 index 27aef963..00000000 --- a/script/c100015410.lua +++ /dev/null @@ -1,66 +0,0 @@ --- -function c100015410.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c100015410.con) - e1:SetCost(c100015410.cost) - e1:SetOperation(c100015410.operation) - c:RegisterEffect(e1) -end -function c100015410.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local dg=Duel.GetDecktopGroup(tp,1) - local tc=dg:GetFirst() - if chk==0 then return true end - if tc and tc:IsAbleToRemoveAsCost() then - Duel.DisableShuffleCheck() - Duel.Remove(tc,POS_FACEUP,REASON_COST) - else - return false - end -end -function c100015410.filter(c,tp) - return c:IsFaceup() and c:IsSetCard(0x400) and c:IsSetCard(0x45) -end -function c100015410.con(e,tp,eg,ep,ev,re,r,rp,chk) - return tp~=ep and Duel.IsChainNegatable(ev) - and (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) -end -function c100015410.operation(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local g1=nil - local g2=nil - local t={} - local p=1 - t[p]=aux.Stringid(100015410,0) p=p+1 - if Duel.GetTurnPlayer()~=tp then t[p]=aux.Stringid(100015410,1) p=p+1 end - if Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil) then t[p]=aux.Stringid(100015410,2) p=p+1 end - Duel.Hint(HINT_SELECTMSG,1-tp,aux.Stringid(100015410,3)) - local sel=Duel.SelectOption(1-tp,table.unpack(t))+1 - local opt=t[sel]-aux.Stringid(100015410,0) - if opt==0 then - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Remove(eg,POS_FACEUP,REASON_EFFECT) - end - elseif opt==1 then - Duel.SkipPhase(1-tp,PHASE_DRAW,RESET_PHASE+PHASE_END,1) - Duel.SkipPhase(1-tp,PHASE_STANDBY,RESET_PHASE+PHASE_END,1) - Duel.SkipPhase(1-tp,PHASE_MAIN1,RESET_PHASE+PHASE_END,1) - Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_END,1,1) - Duel.SkipPhase(1-tp,PHASE_MAIN2,RESET_PHASE+PHASE_END,1) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_BP) - e1:SetTargetRange(0,1) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - else - g1=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_REMOVED,LOCATION_REMOVED,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local des=g1:Select(tp,1,1,nil) - Duel.SendtoHand(des,tp,REASON_EFFECT) - Duel.ConfirmCards(1-tp,des) - end -end \ No newline at end of file diff --git a/script/c10002346.lua b/script/c10002346.lua index c60e3aac..22978022 100644 --- a/script/c10002346.lua +++ b/script/c10002346.lua @@ -12,7 +12,7 @@ function c10002346.initial_effect(c) e1:SetValue(c10002346.val) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) --destroy replace local e3=Effect.CreateEffect(c) diff --git a/script/c10004783.lua b/script/c10004783.lua index d33798ca..73725385 100644 --- a/script/c10004783.lua +++ b/script/c10004783.lua @@ -55,24 +55,27 @@ end function c10004783.tfcon(e,tp,eg,ep,ev,re,r,rp) return bit.band(e:GetHandler():GetPreviousLocation(),LOCATION_ONFIELD)~=0 end +function c10004783.tffilter(c) + return c:IsSetCard(0x1034) and not c:IsForbidden() +end function c10004783.tftg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_DECK,0,1,nil,0x1034) end + and Duel.IsExistingMatchingCard(c10004783.tffilter,tp,LOCATION_DECK,0,1,nil) end end function c10004783.tfop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) - local g=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_DECK,0,1,1,nil,0x1034) + local g=Duel.SelectMatchingCard(tp,c10004783.tffilter,tp,LOCATION_DECK,0,1,1,nil) if g:GetCount()>0 then local tc=g:GetFirst() Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(tc) + local e1=Effect.CreateEffect(e:GetHandler()) e1:SetCode(EFFECT_CHANGE_TYPE) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetReset(RESET_EVENT+0x1fe0000) e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) tc:RegisterEffect(e1) - Duel.RaiseEvent(tc,47408488,e,0,tp,0,0) + Duel.RaiseEvent(tc,EVENT_CUSTOM+47408488,e,0,tp,0,0) end end diff --git a/script/c100100001.lua b/script/c100100001.lua deleted file mode 100644 index 59c4771f..00000000 --- a/script/c100100001.lua +++ /dev/null @@ -1,39 +0,0 @@ ---Ｓｐ－ワン·フォー·ワン -function c100100001.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100001.cost) - e1:SetTarget(c100100001.target) - e1:SetOperation(c100100001.activate) - c:RegisterEffect(e1) -end -function c100100001.costfilter(c) - return c:IsAbleToGraveAsCost() and c:IsType(TYPE_MONSTER) -end -function c100100001.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return Duel.IsExistingMatchingCard(c100100001.costfilter,tp,LOCATION_HAND,0,1,nil) - and tc:IsCanRemoveCounter(tp,0x91,4,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,4,REASON_COST) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100100001.costfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c100100001.filter(c,e,tp) - return c:GetLevel()==1 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100001.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100100001.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c100100001.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100100001.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) -end diff --git a/script/c100100002.lua b/script/c100100002.lua deleted file mode 100644 index ca5f94d8..00000000 --- a/script/c100100002.lua +++ /dev/null @@ -1,80 +0,0 @@ ---Ｓｐ－遺言状 -function c100100002.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100002.cost) - e1:SetOperation(c100100002.operation) - c:RegisterEffect(e1) -end -function c100100002.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,5,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,5,REASON_COST) -end -function c100100002.operation(e,tp,eg,ep,ev,re,r,rp) - --spsummon - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c100100002.check) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetCondition(c100100002.spcon) - e2:SetOperation(c100100002.spop) - e2:SetLabelObject(e1) - e2:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e2,tp) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCondition(c100100002.spcon2) - Duel.RegisterEffect(e3,tp) - local e4=e2:Clone() - e4:SetCode(EVENT_CHAIN_END) - Duel.RegisterEffect(e4,tp) - local e5=e2:Clone() - e5:SetCode(EVENT_ATTACK_ANNOUNCE) - Duel.RegisterEffect(e5,tp) - local e6=e2:Clone() - e6:SetCode(EVENT_DAMAGE_STEP_END) - Duel.RegisterEffect(e6,tp) - local e7=e2:Clone() - e7:SetCode(EVENT_PHASE+PHASE_END) - Duel.RegisterEffect(e7,tp) -end -function c100100002.cfilter(c,tp) - return c:IsControler(tp) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) -end -function c100100002.check(e,tp,eg,ep,ev,re,r,rp) - if e:GetLabel()==2 then return end - if eg:IsExists(c100100002.cfilter,1,nil,tp) then - e:SetLabel(1) - end -end -function c100100002.spfilter(c,e,tp) - return c:IsAttackBelow(1500) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100002.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetLabelObject():GetLabel()==1 -end -function c100100002.spcon2(e,tp,eg,ep,ev,re,r,rp) - return e:GetLabelObject():GetLabel()==1 and Duel.GetCurrentChain()==0 -end -function c100100002.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100100002.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) - and Duel.SelectYesNo(tp,aux.Stringid(100100002,0)) then - Duel.Hint(HINT_CARD,0,100100002) - Duel.Hint(HINT_OPSELECTED,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100100002.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - e:GetLabelObject():SetLabel(2) - else - e:GetLabelObject():SetLabel(0) - end -end \ No newline at end of file diff --git a/script/c100100003.lua b/script/c100100003.lua deleted file mode 100644 index 1451fde8..00000000 --- a/script/c100100003.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Ｓｐ－闇の量産工場 -function c100100003.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100003.con) - e1:SetTarget(c100100003.target) - e1:SetOperation(c100100003.activate) - c:RegisterEffect(e1) -end -function c100100003.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100003.filter(c) - return c:IsType(TYPE_NORMAL) and c:IsAbleToHand() -end -function c100100003.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c100100003.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100003.filter,tp,LOCATION_GRAVE,0,2,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c100100003.filter,tp,LOCATION_GRAVE,0,2,2,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,2,0,0) -end -function c100100003.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - if sg:GetCount()>0 then - Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sg) - end -end diff --git a/script/c100100004.lua b/script/c100100004.lua deleted file mode 100644 index 6e0bcf08..00000000 --- a/script/c100100004.lua +++ /dev/null @@ -1,42 +0,0 @@ ---Ｓｐ－闇の誘惑 -function c100100004.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100004.cost) - e1:SetTarget(c100100004.target) - e1:SetOperation(c100100004.activate) - c:RegisterEffect(e1) -end -function c100100004.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100004.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100100004.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) - Duel.BreakEffect() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(p,Card.IsAttribute,p,LOCATION_HAND,0,1,1,nil,ATTRIBUTE_DARK) - local tg=g:GetFirst() - if tg then - if Duel.Remove(tg,POS_FACEUP,REASON_EFFECT)==0 then - Duel.ConfirmCards(1-p,tg) - Duel.ShuffleHand(p) - end - else - local sg=Duel.GetFieldGroup(p,LOCATION_HAND,0) - Duel.SendtoGrave(sg,REASON_EFFECT) - end -end diff --git a/script/c100100005.lua b/script/c100100005.lua deleted file mode 100644 index f68dc7eb..00000000 --- a/script/c100100005.lua +++ /dev/null @@ -1,46 +0,0 @@ ---Ｓｐ－野性解放 -function c100100005.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100005.con) - e1:SetTarget(c100100005.target) - e1:SetOperation(c100100005.activate) - c:RegisterEffect(e1) -end -function c100100005.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100005.filter(c) - return c:IsFaceup() and c:IsRace(RACE_BEAST+RACE_BEASTWARRIOR) -end -function c100100005.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingTarget(c100100005.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100100005.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c100100005.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(tc:GetDefence()) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetRange(LOCATION_MZONE) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e2:SetCountLimit(1) - e2:SetOperation(c100100005.desop) - tc:RegisterEffect(e2) - end -end -function c100100005.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end diff --git a/script/c100100006.lua b/script/c100100006.lua deleted file mode 100644 index 2bbd8981..00000000 --- a/script/c100100006.lua +++ /dev/null @@ -1,41 +0,0 @@ ---Ｓｐ－突然変異 -function c100100006.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100006.cost) - e1:SetTarget(c100100006.target) - e1:SetOperation(c100100006.activate) - c:RegisterEffect(e1) -end -function c100100006.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,8,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,8,REASON_COST) -end -function c100100006.filter1(c,e,tp) - local lv=c:GetLevel() - return lv>0 and Duel.IsExistingMatchingCard(c100100006.filter2,tp,LOCATION_EXTRA,0,1,nil,lv,e,tp) -end -function c100100006.filter2(c,lv,e,tp) - return c:IsType(TYPE_FUSION) and c:GetLevel()==lv and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100006.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c100100006.filter1,1,nil,e,tp) end - local rg=Duel.SelectReleaseGroup(tp,c100100006.filter1,1,1,nil,e,tp) - e:SetLabel(rg:GetFirst():GetLevel()) - Duel.Release(rg,REASON_COST) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100100006.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local lv=e:GetLabel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100100006.filter2,tp,LOCATION_EXTRA,0,1,1,nil,lv,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100100007.lua b/script/c100100007.lua deleted file mode 100644 index 72981929..00000000 --- a/script/c100100007.lua +++ /dev/null @@ -1,74 +0,0 @@ ---Ｓｐ－ミラクル·フュージョン -function c100100007.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100007.cost) - e1:SetTarget(c100100007.target) - e1:SetOperation(c100100007.activate) - c:RegisterEffect(e1) -end -function c100100007.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100007.filter1(c,e) - return c:IsCanBeFusionMaterial() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e) -end -function c100100007.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:IsSetCard(0x3008) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) - and c:CheckFusionMaterial(m,nil,chkf) -end -function c100100007.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100100007.filter1,tp,LOCATION_MZONE+LOCATION_GRAVE,0,nil,e) - local res=Duel.IsExistingMatchingCard(c100100007.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c100100007.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100100007.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100100007.filter1,tp,LOCATION_GRAVE+LOCATION_MZONE,0,nil,e) - local sg1=Duel.GetMatchingGroup(c100100007.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c100100007.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end diff --git a/script/c100100008.lua b/script/c100100008.lua deleted file mode 100644 index aa0c77c4..00000000 --- a/script/c100100008.lua +++ /dev/null @@ -1,100 +0,0 @@ ---Ｓｐ－ミラクルシンクロフュージョン -function c100100008.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100008.cost) - e1:SetTarget(c100100008.target) - e1:SetOperation(c100100008.activate) - c:RegisterEffect(e1) - --draw - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100100008,1)) - e2:SetCategory(CATEGORY_DRAW) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_PLAYER_TARGET) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c100100008.drcon) - e2:SetTarget(c100100008.drtg) - e2:SetOperation(c100100008.drop) - c:RegisterEffect(e2) -end -function c100100008.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100008.filter1(c,e) - return c:IsCanBeFusionMaterial() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e) -end -function c100100008.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:IsSetCard(0x101) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) - and c:CheckFusionMaterial(m,nil,chkf) -end -function c100100008.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100100008.filter1,tp,LOCATION_MZONE+LOCATION_GRAVE,0,nil,e) - local res=Duel.IsExistingMatchingCard(c100100008.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c100100008.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100100008.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100100008.filter1,tp,LOCATION_GRAVE+LOCATION_MZONE,0,nil,e) - local sg1=Duel.GetMatchingGroup(c100100008.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c100100008.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end -function c100100008.drcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return bit.band(r,0x41)==0x41 and rp~=tp and c:GetPreviousControler()==tp - and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEDOWN) -end -function c100100008.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c100100008.drop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c100100009.lua b/script/c100100009.lua deleted file mode 100644 index b43160cd..00000000 --- a/script/c100100009.lua +++ /dev/null @@ -1,57 +0,0 @@ ---Ｓｐ－迷える仔羊 -function c100100009.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100009.cost) - e1:SetTarget(c100100009.target) - e1:SetOperation(c100100009.activate) - c:RegisterEffect(e1) -end -function c100100009.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) and not Duel.CheckSummonActivity(tp) - and not Duel.CheckFlipSummonActivity(tp) and not Duel.CheckSpecialSummonActivity(tp) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetLabelObject(e) - e1:SetTarget(c100100009.sumlimit) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e2:SetCode(EFFECT_CANNOT_SUMMON) - e2:SetReset(RESET_PHASE+PHASE_END) - e2:SetTargetRange(1,0) - Duel.RegisterEffect(e2,tp) - local e3=e2:Clone() - e3:SetCode(EFFECT_CANNOT_FLIP_SUMMON) - Duel.RegisterEffect(e3,tp) -end -function c100100009.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) - return e:GetLabelObject()~=se -end -function c100100009.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsPlayerCanSpecialSummonMonster(tp,60764582,0,0x4011,0,0,1,RACE_BEAST,ATTRIBUTE_EARTH) end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) -end -function c100100009.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsPlayerCanSpecialSummonMonster(tp,60764582,0,0x4011,0,0,1,RACE_BEAST,ATTRIBUTE_EARTH) then - for i=1,2 do - local token=Duel.CreateToken(tp,60764581+i) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end - Duel.SpecialSummonComplete() - end -end diff --git a/script/c100100010.lua b/script/c100100010.lua deleted file mode 100644 index e75a43e7..00000000 --- a/script/c100100010.lua +++ /dev/null @@ -1,47 +0,0 @@ ---Ｓｐ－抹殺の使徒 -function c100100010.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100010.cost) - e1:SetTarget(c100100010.target) - e1:SetOperation(c100100010.activate) - c:RegisterEffect(e1) -end -function c100100010.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100010.filter(c) - return c:IsFacedown() and c:IsDestructable() and c:IsAbleToRemove() -end -function c100100010.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100100010.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100010.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100100010.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c100100010.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFacedown() and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT,LOCATION_REMOVED) - if tc:IsType(TYPE_FLIP) then - local code=tc:GetCode() - local g=Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_DECK,LOCATION_DECK,nil,code) - Duel.Remove(g,POS_FACEUP,REASON_EFFECT) - g=Duel.GetFieldGroup(tp,0,LOCATION_DECK) - Duel.ConfirmCards(tp,g) - g=Duel.GetFieldGroup(tp,LOCATION_DECK,0) - Duel.ConfirmCards(1-tp,g) - Duel.ShuffleDeck(tp) - Duel.ShuffleDeck(1-tp) - end - end -end diff --git a/script/c100100011.lua b/script/c100100011.lua deleted file mode 100644 index f4070002..00000000 --- a/script/c100100011.lua +++ /dev/null @@ -1,57 +0,0 @@ ---Ｓｐ－星屑のきらめき -function c100100011.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100011.cost) - e1:SetTarget(c100100011.target) - e1:SetOperation(c100100011.activate) - c:RegisterEffect(e1) -end -function c100100011.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,5,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,5,REASON_COST) -end -function c100100011.spfilter(c,e,tp,rg) - if not c:IsType(TYPE_SYNCHRO) or not c:IsRace(RACE_DRAGON) or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) then return false end - if rg:IsContains(c) then - rg:RemoveCard(c) - result=rg:CheckWithSumEqual(Card.GetLevel,c:GetLevel(),1,99) - rg:AddCard(c) - else - result=rg:CheckWithSumEqual(Card.GetLevel,c:GetLevel(),1,99) - end - return result -end -function c100100011.rmfilter(c) - return c:GetLevel()>0 and c:IsAbleToRemove() -end -function c100100011.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return false end - local rg=Duel.GetMatchingGroup(c100100011.rmfilter,tp,LOCATION_GRAVE,0,nil) - return Duel.IsExistingTarget(c100100011.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,rg) - end - local rg=Duel.GetMatchingGroup(c100100011.rmfilter,tp,LOCATION_GRAVE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100100011.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,rg) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100100011.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 - or not tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then return end - local rg=Duel.GetMatchingGroup(c100100011.rmfilter,tp,LOCATION_GRAVE,0,nil) - rg:RemoveCard(tc) - if rg:CheckWithSumEqual(Card.GetLevel,tc:GetLevel(),1,99) then - local rm=rg:SelectWithSumEqual(tp,Card.GetLevel,tc:GetLevel(),1,99) - Duel.Remove(rm,POS_FACEUP,REASON_EFFECT) - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100100012.lua b/script/c100100012.lua deleted file mode 100644 index bf634b72..00000000 --- a/script/c100100012.lua +++ /dev/null @@ -1,47 +0,0 @@ ---Ｓｐ－撲滅の使徒 -function c100100012.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100012.cost) - e1:SetTarget(c100100012.target) - e1:SetOperation(c100100012.activate) - c:RegisterEffect(e1) -end -function c100100012.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100012.filter(c) - return c:IsFacedown() and c:IsDestructable() and c:IsAbleToRemove() -end -function c100100012.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_SZONE and c100100012.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100012.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100100012.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c100100012.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFacedown() and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT,LOCATION_REMOVED) - if tc:IsType(TYPE_TRAP) then - local code=tc:GetCode() - local g=Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_DECK,LOCATION_DECK,nil,code) - Duel.Remove(g,POS_FACEUP,REASON_EFFECT) - g=Duel.GetFieldGroup(tp,0,LOCATION_DECK) - Duel.ConfirmCards(tp,g) - g=Duel.GetFieldGroup(tp,LOCATION_DECK,0) - Duel.ConfirmCards(1-tp,g) - Duel.ShuffleDeck(tp) - Duel.ShuffleDeck(1-tp) - end - end -end diff --git a/script/c100100013.lua b/script/c100100013.lua deleted file mode 100644 index 38652687..00000000 --- a/script/c100100013.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Ｓｐ－振り出し -function c100100013.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100013.con) - e1:SetCost(c100100013.cost) - e1:SetTarget(c100100013.target) - e1:SetOperation(c100100013.activate) - c:RegisterEffect(e1) -end -function c100100013.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>2 -end -function c100100013.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c100100013.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_MZONE and chkc:IsAbleToDeck() end - if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToDeck,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) -end -function c100100013.activate(e) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoDeck(tc,nil,0,REASON_EFFECT) - end -end diff --git a/script/c100100014.lua b/script/c100100014.lua deleted file mode 100644 index 99d7cac8..00000000 --- a/script/c100100014.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Ｓｐ－ブラック·コア -function c100100014.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100014.con) - e1:SetCost(c100100014.cost) - e1:SetTarget(c100100014.target) - e1:SetOperation(c100100014.activate) - c:RegisterEffect(e1) -end -function c100100014.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100014.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c100100014.filter(c) - return c:IsFaceup() and c:IsAbleToRemove() -end -function c100100014.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100100014.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100014.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,c100100014.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c100100014.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - end -end diff --git a/script/c100100015.lua b/script/c100100015.lua deleted file mode 100644 index ab674adb..00000000 --- a/script/c100100015.lua +++ /dev/null @@ -1,49 +0,0 @@ ---Ｓｐ－孵化 -function c100100015.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetLabel(0) - e1:SetCondition(c100100015.con) - e1:SetCost(c100100015.cost) - e1:SetTarget(c100100015.target) - e1:SetOperation(c100100015.activate) - c:RegisterEffect(e1) -end -function c100100015.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100015.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(100) - return true -end -function c100100015.cfilter(c,e,tp) - local lv=c:GetLevel() - return lv>0 and Duel.IsExistingMatchingCard(c100100015.spfilter,tp,LOCATION_DECK,0,1,nil,lv+1,e,tp) -end -function c100100015.spfilter(c,lv,e,tp) - return c:GetLevel()==lv and c:IsRace(RACE_INSECT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100015.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if e:GetLabel()~=100 then return false end - e:SetLabel(0) - return Duel.CheckReleaseGroup(tp,c100100015.cfilter,1,nil,e,tp) - end - local rg=Duel.SelectReleaseGroup(tp,c100100015.cfilter,1,1,nil,e,tp) - e:SetLabel(rg:GetFirst():GetLevel()) - Duel.Release(rg,REASON_COST) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100100015.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local lv=e:GetLabel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100100015.spfilter,tp,LOCATION_DECK,0,1,1,nil,lv+1,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100100016.lua b/script/c100100016.lua deleted file mode 100644 index c0157f32..00000000 --- a/script/c100100016.lua +++ /dev/null @@ -1,48 +0,0 @@ ---Ｓｐ－フォース -function c100100016.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100016.con) - e1:SetTarget(c100100016.target) - e1:SetOperation(c100100016.activate) - c:RegisterEffect(e1) -end -function c100100016.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100016.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,2,nil) end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100100016,0)) - local g1=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - e:SetLabelObject(g1:GetFirst()) - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100100016,1)) - local g2=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,g1:GetFirst()) -end -function c100100016.activate(e,tp,eg,ep,ev,re,r,rp) - local hc=e:GetLabelObject() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc=g:GetFirst() - if tc==hc then tc=g:GetNext() end - if hc:IsFaceup() and hc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then - local atk=hc:GetBaseAttack() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(atk/2) - if hc:RegisterEffect(e1) then - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e2:SetValue(atk/2) - tc:RegisterEffect(e2) - end - end -end diff --git a/script/c100100017.lua b/script/c100100017.lua deleted file mode 100644 index 7b462f7e..00000000 --- a/script/c100100017.lua +++ /dev/null @@ -1,47 +0,0 @@ ---Ｓｐ－封印の黄金櫃 -function c100100017.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100017.cost) - e1:SetTarget(c100100017.target) - e1:SetOperation(c100100017.activate) - c:RegisterEffect(e1) -end -function c100100017.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100017.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_DECK) -end -function c100100017.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_DECK,0,1,1,nil) - local tg=g:GetFirst() - if tg==nil then return end - Duel.Remove(tg,POS_FACEUP,REASON_EFFECT) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetRange(LOCATION_REMOVED) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,2) - e1:SetOperation(c100100017.tohand) - e1:SetLabel(0) - tg:RegisterEffect(e1) -end -function c100100017.tohand(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetTurnPlayer()~=tp then return end - local ct=e:GetLabel() - e:GetHandler():SetTurnCounter(ct+1) - if ct==1 then - Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,e:GetHandler()) - else e:SetLabel(1) end -end diff --git a/script/c100100018.lua b/script/c100100018.lua deleted file mode 100644 index d3f84324..00000000 --- a/script/c100100018.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Ｓｐ－光の援軍 -function c100100018.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100018.cost) - e1:SetTarget(c100100018.target) - e1:SetOperation(c100100018.activate) - c:RegisterEffect(e1) -end -function c100100018.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return Duel.IsPlayerCanDiscardDeckAsCost(tp,3) - and tc:IsCanRemoveCounter(tp,0x91,4,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,4,REASON_COST) - Duel.DiscardDeck(tp,3,REASON_COST) -end -function c100100018.filter(c) - return c:IsSetCard(0x38) and c:IsLevelBelow(4) and c:IsAbleToHand() -end -function c100100018.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100018.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c100100018.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c100100018.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c100100019.lua b/script/c100100019.lua deleted file mode 100644 index 0ad2dfdb..00000000 --- a/script/c100100019.lua +++ /dev/null @@ -1,39 +0,0 @@ ---Ｓｐ－ハンマーシュート -function c100100019.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100019.cost) - e1:SetTarget(c100100019.target) - e1:SetOperation(c100100019.activate) - c:RegisterEffect(e1) -end -function c100100019.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100019.filter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:IsDestructable() -end -function c100100019.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100019.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(c100100019.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - local tg=g:GetMaxGroup(Card.GetAttack) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) -end -function c100100019.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100100019.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - if g:GetCount()>0 then - local tg=g:GetMaxGroup(Card.GetAttack) - if tg:GetCount()>1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local sg=tg:Select(tp,1,1,nil) - Duel.HintSelection(sg) - Duel.Destroy(sg,REASON_EFFECT) - else Duel.Destroy(tg,REASON_EFFECT) end - end -end diff --git a/script/c100100020.lua b/script/c100100020.lua deleted file mode 100644 index 17500db4..00000000 --- a/script/c100100020.lua +++ /dev/null @@ -1,31 +0,0 @@ ---Ｓｐ－ハリケーン -function c100100020.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100020.cost) - e1:SetTarget(c100100020.target) - e1:SetOperation(c100100020.activate) - c:RegisterEffect(e1) -end -function c100100020.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,4,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,4,REASON_COST) -end -function c100100020.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c100100020.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(c100100020.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end - local sg=Duel.GetMatchingGroup(c100100020.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,sg:GetCount(),0,0) -end -function c100100020.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100100020.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.SendtoHand(sg,nil,REASON_EFFECT) -end diff --git a/script/c100100021.lua b/script/c100100021.lua deleted file mode 100644 index 2139917b..00000000 --- a/script/c100100021.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Ｓｐ－バッテリーリサイクル -function c100100021.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100021.con) - e1:SetTarget(c100100021.target) - e1:SetOperation(c100100021.activate) - c:RegisterEffect(e1) -end -function c100100021.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100021.filter(c) - return c:IsRace(RACE_THUNDER) and c:IsAttackBelow(1500) and c:IsAbleToHand() -end -function c100100021.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE and c100100021.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100021.filter,tp,LOCATION_GRAVE,0,2,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c100100021.filter,tp,LOCATION_GRAVE,0,2,2,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,2,0,0) -end -function c100100021.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - if sg:GetCount()>0 then - Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sg) - end -end diff --git a/script/c100100022.lua b/script/c100100022.lua deleted file mode 100644 index 197d4819..00000000 --- a/script/c100100022.lua +++ /dev/null @@ -1,31 +0,0 @@ ---Ｓｐ－ハーピィの羽根帚 -function c100100022.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100022.cost) - e1:SetTarget(c100100022.target) - e1:SetOperation(c100100022.activate) - c:RegisterEffect(e1) -end -function c100100022.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,12,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,12,REASON_COST) -end -function c100100022.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c100100022.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(c100100022.filter,tp,0,LOCATION_ONFIELD,1,c) end - local sg=Duel.GetMatchingGroup(c100100022.filter,tp,0,LOCATION_ONFIELD,c) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100100022.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100100022.filter,tp,0,LOCATION_ONFIELD,e:GetHandler()) - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c100100023.lua b/script/c100100023.lua deleted file mode 100644 index bfe90ab9..00000000 --- a/script/c100100023.lua +++ /dev/null @@ -1,30 +0,0 @@ ---Ｓｐ－成金ゴブリン -function c100100023.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW+CATEGORY_RECOVER) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100023.con) - e1:SetTarget(c100100023.target) - e1:SetOperation(c100100023.activate) - c:RegisterEffect(e1) -end -function c100100023.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100023.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,1-tp,1000) -end -function c100100023.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - if Duel.Draw(p,d,REASON_EFFECT)>0 then - Duel.BreakEffect() - Duel.Recover(1-tp,1000,REASON_EFFECT) - end -end diff --git a/script/c100100024.lua b/script/c100100024.lua deleted file mode 100644 index 444e001f..00000000 --- a/script/c100100024.lua +++ /dev/null @@ -1,43 +0,0 @@ ---Ｓｐ－貪欲な壺 -function c100100024.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100024.cost) - e1:SetTarget(c100100024.target) - e1:SetOperation(c100100024.activate) - c:RegisterEffect(e1) -end -function c100100024.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100024.filter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() -end -function c100100024.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100100024.filter(chkc) end - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) - and Duel.IsExistingTarget(c100100024.filter,tp,LOCATION_GRAVE,0,5,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,c100100024.filter,tp,LOCATION_GRAVE,0,5,5,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100100024.activate(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=5 then return end - Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) - local g=Duel.GetOperatedGroup() - local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) - if ct==5 then - Duel.ShuffleDeck(tp) - Duel.BreakEffect() - Duel.Draw(tp,2,REASON_EFFECT) - end -end diff --git a/script/c100100025.lua b/script/c100100025.lua deleted file mode 100644 index 9bb6417b..00000000 --- a/script/c100100025.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Ｓｐ－トレード·イン -function c100100025.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100025.con) - e1:SetCost(c100100025.cost) - e1:SetTarget(c100100025.target) - e1:SetOperation(c100100025.activate) - c:RegisterEffect(e1) -end -function c100100025.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100025.filter(c) - return c:GetLevel()==8 and c:IsDiscardable() -end -function c100100025.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100025.filter,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,c100100025.filter,1,1,REASON_COST+REASON_DISCARD) -end -function c100100025.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100100025.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c100100026.lua b/script/c100100026.lua deleted file mode 100644 index 8d3f4bf6..00000000 --- a/script/c100100026.lua +++ /dev/null @@ -1,46 +0,0 @@ ---Ｓｐ－悪魔への貢物 -function c100100026.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100026.con) - e1:SetTarget(c100100026.target) - e1:SetOperation(c100100026.activate) - c:RegisterEffect(e1) -end -function c100100026.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100026.filter(c) - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c100100026.spfilter(c,e,tp) - return c:IsLevelBelow(4) and c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100026.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100100026.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100026.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) - and Duel.IsExistingMatchingCard(c100100026.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectTarget(tp,c100100026.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100100026.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoGrave(tc,REASON_EFFECT) - if tc:IsLocation(LOCATION_GRAVE) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100100026.spfilter,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 - end -end diff --git a/script/c100100027.lua b/script/c100100027.lua deleted file mode 100644 index a77d4152..00000000 --- a/script/c100100027.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Ｓｐ－浅すぎた墓穴 -function c100100027.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c100100027.con) - e1:SetTarget(c100100027.target) - e1:SetOperation(c100100027.operation) - c:RegisterEffect(e1) -end -function c100100027.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100027.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENCE) -end -function c100100027.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then - return Duel.IsExistingTarget(c100100027.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100100027.filter,1-tp,LOCATION_GRAVE,0,1,nil,e,1-tp) - and Duel.GetLocationCount(1-tp,LOCATION_MZONE,1-tp)>0 - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=Duel.SelectTarget(tp,c100100027.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON) - local og=Duel.SelectTarget(1-tp,c100100027.filter,1-tp,LOCATION_GRAVE,0,1,1,nil,e,1-tp) - local sc=sg:GetFirst() - local oc=og:GetFirst() - local g=Group.FromCards(sc,oc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) - e:SetLabelObject(sc) -end -function c100100027.operation(e,tp,eg,ep,ev,re,r,rp) - local sc=e:GetLabelObject() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local oc=g:GetFirst() - if oc==sc then oc=g:GetNext() end - if sc:IsRelateToEffect(e) then - Duel.SpecialSummonStep(sc,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) - end - if oc:IsRelateToEffect(e) then - Duel.SpecialSummonStep(oc,0,1-tp,1-tp,false,false,POS_FACEDOWN_DEFENCE) - end - Duel.SpecialSummonComplete() -end diff --git a/script/c100100028.lua b/script/c100100028.lua deleted file mode 100644 index 07eb286b..00000000 --- a/script/c100100028.lua +++ /dev/null @@ -1,39 +0,0 @@ ---Ｓｐ－いたずら好きな双子悪魔 -function c100100028.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_HANDES) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100028.cost) - e1:SetTarget(c100100028.target) - e1:SetOperation(c100100028.activate) - c:RegisterEffect(e1) -end -function c100100028.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return Duel.CheckLPCost(tp,1000) and tc:IsCanRemoveCounter(tp,0x91,8,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,8,REASON_COST) - Duel.PayLPCost(tp,1000) -end -function c100100028.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>1 end - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,1-tp,2) -end -function c100100028.activate(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetFieldGroup(p,0,LOCATION_HAND) - if g:GetCount()>0 then - local sg=g:RandomSelect(p,1) - Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD) - g:RemoveCard(sg:GetFirst()) - if g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,1-p,HINTMSG_DISCARD) - sg=g:Select(1-p,1,1,nil) - Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD) - end - end -end diff --git a/script/c100100029.lua b/script/c100100029.lua deleted file mode 100644 index f39dfb6f..00000000 --- a/script/c100100029.lua +++ /dev/null @@ -1,32 +0,0 @@ ---Ｓｐ－古のルール -function c100100029.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100029.con) - e1:SetTarget(c100100029.target) - e1:SetOperation(c100100029.activate) - c:RegisterEffect(e1) -end -function c100100029.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100029.filter(c,e,tp) - return c:IsLevelAbove(5) and c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100029.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100100029.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100100029.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100100029.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 diff --git a/script/c100100030.lua b/script/c100100030.lua deleted file mode 100644 index aad4aba6..00000000 --- a/script/c100100030.lua +++ /dev/null @@ -1,57 +0,0 @@ ---Ｓｐ－簡易融合 -function c100100030.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100030.con) - e1:SetCost(c100100030.cost) - e1:SetTarget(c100100030.target) - e1:SetOperation(c100100030.activate) - c:RegisterEffect(e1) -end -function c100100030.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>2 -end -function c100100030.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,100100030)==0 and Duel.CheckLPCost(tp,1000) end - Duel.PayLPCost(tp,1000) - Duel.RegisterFlagEffect(tp,100100030,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c100100030.filter(c,e,tp) - return c:IsType(TYPE_FUSION) and c:IsLevelBelow(5) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial() -end -function c100100030.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100100030.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100100030.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100100030.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc and Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)~=0 then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1,true) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetOperation(c100100030.desop) - tc:RegisterEffect(e2) - tc:CompleteProcedure() - end -end -function c100100030.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end diff --git a/script/c100100031.lua b/script/c100100031.lua deleted file mode 100644 index 1bb752a5..00000000 --- a/script/c100100031.lua +++ /dev/null @@ -1,33 +0,0 @@ ---Ｓｐ－打ち出の小槌 -function c100100031.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100031.con) - e1:SetTarget(c100100031.target) - e1:SetOperation(c100100031.activate) - c:RegisterEffect(e1) -end -function c100100031.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100031.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp) - and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND) -end -function c100100031.activate(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK) - local g=Duel.SelectMatchingCard(p,Card.IsAbleToDeck,p,LOCATION_HAND,0,1,63,nil) - if g:GetCount()==0 then return end - Duel.SendtoDeck(g,nil,2,REASON_EFFECT) - Duel.ShuffleDeck(p) - Duel.BreakEffect() - Duel.Draw(p,g:GetCount(),REASON_EFFECT) -end diff --git a/script/c100100032.lua b/script/c100100032.lua deleted file mode 100644 index 2b40b64e..00000000 --- a/script/c100100032.lua +++ /dev/null @@ -1,32 +0,0 @@ ---Ｓｐ－おろかな埋葬 -function c100100032.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100032.cost) - e1:SetTarget(c100100032.target) - e1:SetOperation(c100100032.activate) - c:RegisterEffect(e1) -end -function c100100032.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100032.tgfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() -end -function c100100032.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100032.tgfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c100100032.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100100032.tgfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - end -end diff --git a/script/c100100033.lua b/script/c100100033.lua deleted file mode 100644 index a9d29e88..00000000 --- a/script/c100100033.lua +++ /dev/null @@ -1,46 +0,0 @@ ---Ｓｐ－思い出のブランコ -function c100100033.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100033.con) - e1:SetTarget(c100100033.target) - e1:SetOperation(c100100033.activate) - c:RegisterEffect(e1) -end -function c100100033.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100033.filter(c,e,tp) - return c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100033.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100100033.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100100033.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100100033.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100100033.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetOperation(c100100033.desop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetCountLimit(1) - tc:RegisterEffect(e1,true) - end -end -function c100100033.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end diff --git a/script/c100100034.lua b/script/c100100034.lua deleted file mode 100644 index 5ff3c220..00000000 --- a/script/c100100034.lua +++ /dev/null @@ -1,84 +0,0 @@ ---Ｓｐ－おとり人形 -function c100100034.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100034.con) - e1:SetTarget(c100100034.target) - e1:SetOperation(c100100034.activate) - c:RegisterEffect(e1) -end -function c100100034.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100034.filter(c) - return c:IsFacedown() and c:GetSequence()~=5 -end -function c100100034.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and c100100034.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100034.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,e:GetHandler()) end - e:SetProperty(EFFECT_FLAG_CARD_TARGET) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWN) - Duel.SelectTarget(tp,c100100034.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,1,e:GetHandler()) -end -function c100100034.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) or tc:IsFaceup() then - if c:IsRelateToEffect(e) then - c:CancelToGrave() - Duel.SendtoDeck(c,nil,2,REASON_EFFECT) - end - return - end - Duel.ConfirmCards(tp,tc) - if tc:IsType(TYPE_TRAP) then - local te=tc:GetActivateEffect() - local tep=tc:GetControler() - if not te then - Duel.Destroy(tc,REASON_EFFECT) - else - local condition=te:GetCondition() - local cost=te:GetCost() - local target=te:GetTarget() - local operation=te:GetOperation() - if te:GetCode()==EVENT_FREE_CHAIN and not tc:IsStatus(STATUS_SET_TURN) - and (not condition or condition(te,tep,eg,ep,ev,re,r,rp)) - and (not cost or cost(te,tep,eg,ep,ev,re,r,rp,0)) - and (not target or target(te,tep,eg,ep,ev,re,r,rp,0)) then - Duel.ClearTargetCard() - e:SetProperty(te:GetProperty()) - Duel.Hint(HINT_CARD,0,tc:GetOriginalCode()) - Duel.ChangePosition(tc,POS_FACEUP) - if tc:GetType()==TYPE_TRAP then - tc:CancelToGrave(false) - end - tc:CreateEffectRelation(te) - if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end - if target then target(te,tep,eg,ep,ev,re,r,rp,1) end - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tg=g:GetFirst() - while tg do - tg:CreateEffectRelation(te) - tg=g:GetNext() - end - operation(te,tep,eg,ep,ev,re,r,rp) - tc:ReleaseEffectRelation(te) - tg=g:GetFirst() - while tg do - tg:ReleaseEffectRelation(te) - tg=g:GetNext() - end - else - Duel.Destroy(tc,REASON_EFFECT) - end - end - end - if c:IsRelateToEffect(e) then - c:CancelToGrave() - Duel.SendtoDeck(c,nil,2,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c100100035.lua b/script/c100100035.lua deleted file mode 100644 index 9a1f8bc1..00000000 --- a/script/c100100035.lua +++ /dev/null @@ -1,74 +0,0 @@ ---Ｓｐ－オーバーロード·フュージョン -function c100100035.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100035.cost) - e1:SetTarget(c100100035.target) - e1:SetOperation(c100100035.activate) - c:RegisterEffect(e1) -end -function c100100035.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100035.filter1(c,e) - return c:IsCanBeFusionMaterial() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e) -end -function c100100035.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_MACHINE) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) -end -function c100100035.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100100035.filter1,tp,LOCATION_MZONE+LOCATION_GRAVE,0,nil,e) - local res=Duel.IsExistingMatchingCard(c100100035.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c100100035.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100100035.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100100035.filter1,tp,LOCATION_GRAVE+LOCATION_MZONE,0,nil,e) - local sg1=Duel.GetMatchingGroup(c100100035.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c100100035.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end diff --git a/script/c100100036.lua b/script/c100100036.lua deleted file mode 100644 index 8525d21c..00000000 --- a/script/c100100036.lua +++ /dev/null @@ -1,31 +0,0 @@ ---Ｓｐ－大嵐 -function c100100036.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100036.cost) - e1:SetTarget(c100100036.target) - e1:SetOperation(c100100036.activate) - c:RegisterEffect(e1) -end -function c100100036.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,6,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,6,REASON_COST) -end -function c100100036.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c100100036.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(c100100036.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end - local sg=Duel.GetMatchingGroup(c100100036.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100100036.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100100036.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c100100037.lua b/script/c100100037.lua deleted file mode 100644 index 8ce32a42..00000000 --- a/script/c100100037.lua +++ /dev/null @@ -1,36 +0,0 @@ ---Ｓｐ－押収 -function c100100037.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_HANDES) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100037.cost) - e1:SetTarget(c100100037.target) - e1:SetOperation(c100100037.activate) - c:RegisterEffect(e1) -end -function c100100037.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return Duel.CheckLPCost(tp,1000) and tc:IsCanRemoveCounter(tp,0x91,7,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,7,REASON_COST) - Duel.PayLPCost(tp,1000) -end -function c100100037.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 end - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,1-tp,1) -end -function c100100037.activate(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetFieldGroup(p,0,LOCATION_HAND) - if g:GetCount()>0 then - Duel.ConfirmCards(p,g) - Duel.Hint(HINT_SELECTMSG,p,HINTMSG_DISCARD) - local sg=g:Select(p,1,1,nil) - Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD) - Duel.ShuffleHand(1-p) - end -end diff --git a/script/c100100038.lua b/script/c100100038.lua deleted file mode 100644 index ac6c05a4..00000000 --- a/script/c100100038.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Ｓｐ－エンシェント·リーフ -function c100100038.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100038.condition) - e1:SetCost(c100100038.cost) - e1:SetTarget(c100100038.target) - e1:SetOperation(c100100038.activate) - c:RegisterEffect(e1) -end -function c100100038.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetLP(tp)>=9000 -end -function c100100038.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,1,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,1,REASON_COST) - Duel.PayLPCost(tp,2000) -end -function c100100038.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100100038.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c100100039.lua b/script/c100100039.lua deleted file mode 100644 index a0159f59..00000000 --- a/script/c100100039.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Ｓｐ－巨竜の羽ばたき -function c100100039.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100039.con) - e1:SetTarget(c100100039.target) - e1:SetOperation(c100100039.activate) - c:RegisterEffect(e1) -end -function c100100039.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100039.filter(c) - return c:IsFaceup() and c:IsRace(RACE_DRAGON) and c:IsLevelAbove(5) and c:IsAbleToHand() -end -function c100100039.dfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c100100039.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingTarget(c100100039.filter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c100100039.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c100100039.filter,tp,LOCATION_MZONE,0,1,1,nil) - local sg=Duel.GetMatchingGroup(c100100039.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100100039.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 then - local sg=Duel.GetMatchingGroup(c100100039.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.Destroy(sg,REASON_EFFECT) - end -end diff --git a/script/c100100040.lua b/script/c100100040.lua deleted file mode 100644 index 0223b5f7..00000000 --- a/script/c100100040.lua +++ /dev/null @@ -1,44 +0,0 @@ ---Ｓｐ－強制転移 -function c100100040.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100040.cost) - e1:SetTarget(c100100040.target) - e1:SetOperation(c100100040.activate) - c:RegisterEffect(e1) -end -function c100100040.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100040.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToChangeControler,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingMatchingCard(Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_CONTROL,nil,0,0,0) -end -function c100100040.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not Duel.IsExistingMatchingCard(Card.IsAbleToChangeControler,tp,LOCATION_MZONE,0,1,nil) - or not Duel.IsExistingMatchingCard(Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,nil) - then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g1=Duel.SelectMatchingCard(tp,Card.IsAbleToChangeControler,tp,LOCATION_MZONE,0,1,1,nil) - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_CONTROL) - local g2=Duel.SelectMatchingCard(1-tp,Card.IsAbleToChangeControler,1-tp,LOCATION_MZONE,0,1,1,nil) - local c1=g1:GetFirst() - local c2=g2:GetFirst() - if Duel.SwapControl(c1,c2,0,0) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) - e1:SetReset(RESET_PHASE+PHASE_END) - c1:RegisterEffect(e1) - local e2=e1:Clone() - c2:RegisterEffect(e2) - end -end diff --git a/script/c100100041.lua b/script/c100100041.lua deleted file mode 100644 index 06fd50bb..00000000 --- a/script/c100100041.lua +++ /dev/null @@ -1,42 +0,0 @@ ---Ｓｐ－儀式の準備 -function c100100041.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100041.con) - e1:SetTarget(c100100041.target) - e1:SetOperation(c100100041.activate) - c:RegisterEffect(e1) -end -function c100100041.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100041.filter(c) - return bit.band(c:GetType(),0x81)==0x81 and c:GetLevel()<=7 and c:IsAbleToHand() -end -function c100100041.filter2(c) - return bit.band(c:GetType(),0x82)==0x82 and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c100100041.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100041.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c100100041.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c100100041.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end - local g=Duel.GetMatchingGroup(c100100041.filter2,tp,LOCATION_GRAVE,0,nil) - if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(100100041,0)) then - Duel.BreakEffect() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local sg=g:Select(tp,1,1,nil) - Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sg) - end -end diff --git a/script/c100100042.lua b/script/c100100042.lua deleted file mode 100644 index 3d155383..00000000 --- a/script/c100100042.lua +++ /dev/null @@ -1,85 +0,0 @@ ---Ｓｐ－拡散する波動 -function c100100042.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100042.con) - e1:SetCost(c100100042.cost) - e1:SetTarget(c100100042.target) - e1:SetOperation(c100100042.activate) - c:RegisterEffect(e1) -end -function c100100042.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100042.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,1000) end - Duel.PayLPCost(tp,1000) -end -function c100100042.filter(c) - return c:IsFaceup() and c:IsRace(RACE_SPELLCASTER) and c:IsLevelAbove(7) -end -function c100100042.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100100042.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100042.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100100042.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100100042.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsControler(tp) and tc:IsRelateToEffect(e) then - local ae=Effect.CreateEffect(e:GetHandler()) - ae:SetType(EFFECT_TYPE_FIELD) - ae:SetCode(EFFECT_CANNOT_ATTACK) - ae:SetTargetRange(LOCATION_MZONE,0) - ae:SetTarget(c100100042.ftarget) - ae:SetLabel(tc:GetFieldID()) - ae:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(ae,tp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_MUST_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c100100042.becon) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_ATTACK_ALL) - e3:SetValue(1) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e3) - local e4=Effect.CreateEffect(e:GetHandler()) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_BATTLE_END) - e4:SetOperation(c100100042.disop) - e4:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e4) - end -end -function c100100042.ftarget(e,c) - return e:GetLabel()~=c:GetFieldID() -end -function c100100042.becon(e) - return e:GetHandler():IsAttackable() -end -function c100100042.disop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - if not bc or not bc:IsStatus(STATUS_BATTLE_DESTROYED) then return end - local e1=Effect.CreateEffect(e:GetOwner()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_TRIGGER) - e1:SetReset(RESET_EVENT+0x17a0000) - bc:RegisterEffect(e1) -end diff --git a/script/c100100043.lua b/script/c100100043.lua deleted file mode 100644 index 969c8fe4..00000000 --- a/script/c100100043.lua +++ /dev/null @@ -1,25 +0,0 @@ ---Ｓｐ－カオス·エンド -function c100100043.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100043.condition) - e1:SetTarget(c100100043.target) - e1:SetOperation(c100100043.activate) - c:RegisterEffect(e1) -end -function c100100043.condition(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return Duel.GetFieldGroupCount(tp,LOCATION_REMOVED,0)>=7 and tc:GetCounter(0x91)>1 -end -function c100100043.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c100100043.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) -end diff --git a/script/c100100044.lua b/script/c100100044.lua deleted file mode 100644 index a99cd54d..00000000 --- a/script/c100100044.lua +++ /dev/null @@ -1,24 +0,0 @@ ---Ｓｐ－火炎地獄 -function c100100044.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100044.con) - e1:SetTarget(c100100044.target) - e1:SetOperation(c100100044.activate) - c:RegisterEffect(e1) -end -function c100100044.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>0 -end -function c100100044.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,500) -end -function c100100044.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(1-tp,1000,REASON_EFFECT) - Duel.Damage(tp,500,REASON_EFFECT) -end diff --git a/script/c100100045.lua b/script/c100100045.lua deleted file mode 100644 index 0002c2ef..00000000 --- a/script/c100100045.lua +++ /dev/null @@ -1,30 +0,0 @@ ---Ｓｐ－最終戦争 -function c100100045.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100045.con) - e1:SetCost(c100100045.cost) - e1:SetTarget(c100100045.target) - e1:SetOperation(c100100045.activate) - c:RegisterEffect(e1) -end -function c100100045.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>0 -end -function c100100045.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,5,e:GetHandler()) end - Duel.DiscardHand(tp,Card.IsDiscardable,5,5,REASON_COST+REASON_DISCARD) -end -function c100100045.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c100100045.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.Destroy(g,REASON_EFFECT) -end diff --git a/script/c100100046.lua b/script/c100100046.lua deleted file mode 100644 index 24a3e5c4..00000000 --- a/script/c100100046.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Ｓｐ－最古式念導 -function c100100046.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100046.condition) - e1:SetTarget(c100100046.target) - e1:SetOperation(c100100046.activate) - c:RegisterEffect(e1) -end -function c100100046.cfilter(c) - return c:IsFaceup() and c:IsRace(RACE_PSYCHO) -end -function c100100046.condition(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return Duel.IsExistingMatchingCard(c100100046.cfilter,tp,LOCATION_MZONE,0,1,nil) and tc:GetCounter(0x91)>1 -end -function c100100046.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,1000) -end -function c100100046.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)>0 then - Duel.Damage(tp,1000,REASON_EFFECT) - end -end diff --git a/script/c100100047.lua b/script/c100100047.lua deleted file mode 100644 index a9e5050e..00000000 --- a/script/c100100047.lua +++ /dev/null @@ -1,46 +0,0 @@ ---Ｓｐ－強欲なウツボ -function c100100047.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100047.cost) - e1:SetTarget(c100100047.target) - e1:SetOperation(c100100047.activate) - c:RegisterEffect(e1) -end -function c100100047.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100047.filter(c) - return c:IsAttribute(ATTRIBUTE_WATER) and c:IsAbleToDeck() -end -function c100100047.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,3) - and Duel.IsExistingMatchingCard(c100100047.filter,tp,LOCATION_HAND,0,2,e:GetHandler()) end - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,2,tp,LOCATION_HAND) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,3) -end -function c100100047.activate(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetMatchingGroup(c100100047.filter,p,LOCATION_HAND,0,nil) - if g:GetCount()<2 then - local hg=Duel.GetFieldGroup(p,LOCATION_HAND,0) - Duel.ConfirmCards(1-p,hg) - Duel.ShuffleHand(p) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local sg=g:Select(p,2,2,nil) - Duel.ConfirmCards(1-p,sg) - Duel.SendtoDeck(sg,nil,2,REASON_EFFECT) - Duel.ShuffleDeck(p) - Duel.BreakEffect() - Duel.Draw(p,3,REASON_EFFECT) - end -end diff --git a/script/c100100048.lua b/script/c100100048.lua deleted file mode 100644 index f20be4db..00000000 --- a/script/c100100048.lua +++ /dev/null @@ -1,57 +0,0 @@ ---Ｓｐ－強欲で謙虚な壺 -function c100100048.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100048.con) - e1:SetCost(c100100048.cost) - e1:SetTarget(c100100048.target) - e1:SetOperation(c100100048.activate) - c:RegisterEffect(e1) -end -function c100100048.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>3 -end -function c100100048.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not Duel.CheckSpecialSummonActivity(tp) and Duel.GetFlagEffect(tp,98645732)==0 end - --oath effects - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - Duel.RegisterEffect(e1,tp) - Duel.RegisterFlagEffect(tp,98645732,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c100100048.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)<3 then return false end - local g=Duel.GetDecktopGroup(tp,3) - local result=g:FilterCount(Card.IsAbleToHand,nil)>0 - return result - end - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK) -end -function c100100048.activate(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - Duel.ConfirmDecktop(p,3) - local g=Duel.GetDecktopGroup(p,3) - if g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,p,HINTMSG_ATOHAND) - local sg=g:Select(p,1,1,nil) - if sg:GetFirst():IsAbleToHand() then - Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-p,sg) - Duel.ShuffleHand(p) - else - Duel.SendtoGrave(sg,REASON_EFFECT) - end - Duel.ShuffleDeck(p) - end -end diff --git a/script/c100100049.lua b/script/c100100049.lua deleted file mode 100644 index aab2fe97..00000000 --- a/script/c100100049.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Ｓｐ－強引な番兵 -function c100100049.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100049.cost) - e1:SetTarget(c100100049.target) - e1:SetOperation(c100100049.activate) - c:RegisterEffect(e1) -end -function c100100049.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,8,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,8,REASON_COST) -end -function c100100049.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 end - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,0,1-tp,LOCATION_HAND) -end -function c100100049.activate(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetFieldGroup(p,0,LOCATION_HAND) - if g:GetCount()>0 then - Duel.ConfirmCards(p,g) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local sg=g:Select(p,1,1,nil) - Duel.SendtoDeck(sg,nil,2,REASON_EFFECT) - Duel.ShuffleHand(1-p) - end -end diff --git a/script/c100100050.lua b/script/c100100050.lua deleted file mode 100644 index 2185c6e5..00000000 --- a/script/c100100050.lua +++ /dev/null @@ -1,45 +0,0 @@ ---Ｓｐ－クロス·ソウル -function c100100050.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100050.cost) - e1:SetTarget(c100100050.target) - e1:SetOperation(c100100050.activate) - c:RegisterEffect(e1) -end -function c100100050.filter(c) - return not (c:IsHasEffect(EFFECT_UNRELEASABLE_SUM) or c:IsHasEffect(EFFECT_UNRELEASABLE_NONSUM)) -end -function c100100050.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return Duel.GetCurrentPhase()~=PHASE_MAIN2 - and tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_BP) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c100100050.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c100100050.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100050.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c100100050.filter,tp,0,LOCATION_MZONE,1,1,nil) -end -function c100100050.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EXTRA_RELEASE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end diff --git a/script/c100100051.lua b/script/c100100051.lua deleted file mode 100644 index b4b760b0..00000000 --- a/script/c100100051.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Ｓｐ－剣闘訓練所 -function c100100051.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100051.cost) - e1:SetTarget(c100100051.target) - e1:SetOperation(c100100051.activate) - c:RegisterEffect(e1) -end -function c100100051.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100051.filter(c) - local lv=c:GetLevel() - return c:IsSetCard(0x19) and lv>0 and lv<5 and c:IsAbleToHand() -end -function c100100051.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100051.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c100100051.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c100100051.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c100100052.lua b/script/c100100052.lua deleted file mode 100644 index f1719eeb..00000000 --- a/script/c100100052.lua +++ /dev/null @@ -1,33 +0,0 @@ ---Ｓｐ－苦渋の選択 -function c100100052.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100052.cost) - e1:SetTarget(c100100052.target) - e1:SetOperation(c100100052.activate) - c:RegisterEffect(e1) -end -function c100100052.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,12,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,12,REASON_COST) -end -function c100100052.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_DECK,0,5,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c100100052.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100100052,0)) - local g=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_DECK,0,5,5,nil) - if g:GetCount()<5 then return end - Duel.ConfirmCards(1-tp,g) - Duel.Hint(HINT_SELECTMSG,1-tp,aux.Stringid(100100052,1)) - local sg=g:Select(1-tp,1,1,nil) - Duel.SendtoHand(sg,nil,REASON_EFFECT) - g:Sub(sg) - Duel.SendtoGrave(g,REASON_EFFECT) -end diff --git a/script/c100100053.lua b/script/c100100053.lua deleted file mode 100644 index fd9a9c49..00000000 --- a/script/c100100053.lua +++ /dev/null @@ -1,40 +0,0 @@ ---Ｓｐ－死のマジック·ボックス -function c100100053.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100053.con) - e1:SetTarget(c100100053.target) - e1:SetOperation(c100100053.activate) - c:RegisterEffect(e1) -end -function c100100053.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100053.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) - and Duel.IsExistingTarget(Card.IsAbleToChangeControler,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g2=Duel.SelectTarget(tp,Card.IsAbleToChangeControler,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g2,1,0,0) -end -function c100100053.activate(e,tp,eg,ep,ev,re,r,rp) - local ex1,dg=Duel.GetOperationInfo(0,CATEGORY_DESTROY) - local ex2,cg=Duel.GetOperationInfo(0,CATEGORY_CONTROL) - local dc=dg:GetFirst() - local cc=cg:GetFirst() - if dc:IsRelateToEffect(e) and cc:IsRelateToEffect(e) then - Duel.Destroy(dc,REASON_EFFECT) - if not Duel.GetControl(cc,1-tp,0,0) and not cc:IsImmuneToEffect(e) and cc:IsAbleToChangeControler() then - Duel.Destroy(cc,REASON_EFFECT) - end - end -end diff --git a/script/c100100054.lua b/script/c100100054.lua deleted file mode 100644 index b54a5798..00000000 --- a/script/c100100054.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Ｓｐ－死者への手向け -function c100100054.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100054.con) - e1:SetCost(c100100054.cost) - e1:SetTarget(c100100054.target) - e1:SetOperation(c100100054.activate) - c:RegisterEffect(e1) -end -function c100100054.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100054.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c100100054.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100100054.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c100100055.lua b/script/c100100055.lua deleted file mode 100644 index 71604c29..00000000 --- a/script/c100100055.lua +++ /dev/null @@ -1,39 +0,0 @@ ---Ｓｐ－死者転生 -function c100100055.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100055.con) - e1:SetCost(c100100055.cost) - e1:SetTarget(c100100055.target) - e1:SetOperation(c100100055.activate) - c:RegisterEffect(e1) -end -function c100100055.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100055.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c100100055.tgfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c100100055.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100100055.tgfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100055.tgfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local sg=Duel.SelectTarget(tp,c100100055.tgfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,sg:GetCount(),0,0) -end -function c100100055.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c100100056.lua b/script/c100100056.lua deleted file mode 100644 index a08ef624..00000000 --- a/script/c100100056.lua +++ /dev/null @@ -1,36 +0,0 @@ ---Ｓｐ－死者蘇生 -function c100100056.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100056.cost) - e1:SetTarget(c100100056.target) - e1:SetOperation(c100100056.activate) - c:RegisterEffect(e1) -end -function c100100056.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,10,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,10,REASON_COST) -end -function c100100056.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100056.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c100100056.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100100056.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100100056.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c100100056.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100100057.lua b/script/c100100057.lua deleted file mode 100644 index b1613142..00000000 --- a/script/c100100057.lua +++ /dev/null @@ -1,39 +0,0 @@ ---Ｓｐ－地砕き -function c100100057.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100057.cost) - e1:SetTarget(c100100057.target) - e1:SetOperation(c100100057.activate) - c:RegisterEffect(e1) -end -function c100100057.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100057.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c100100057.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100057.filter,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(c100100057.filter,tp,0,LOCATION_MZONE,nil) - local tg=g:GetMaxGroup(Card.GetDefence) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) -end -function c100100057.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100100057.filter,tp,0,LOCATION_MZONE,nil) - if g:GetCount()>0 then - local tg=g:GetMaxGroup(Card.GetDefence) - if tg:GetCount()>1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local sg=tg:Select(tp,1,1,nil) - Duel.HintSelection(sg) - Duel.Destroy(sg,REASON_EFFECT) - else Duel.Destroy(tg,REASON_EFFECT) end - end -end diff --git a/script/c100100058.lua b/script/c100100058.lua deleted file mode 100644 index 0c5bfe6e..00000000 --- a/script/c100100058.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Ｓｐ－シールドクラッシュ -function c100100058.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100058.cost) - e1:SetTarget(c100100058.target) - e1:SetOperation(c100100058.activate) - c:RegisterEffect(e1) -end -function c100100058.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100058.filter(c) - return not c:IsAttackPos() and c:IsDestructable() -end -function c100100058.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_MZONE and c100100058.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100058.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100100058.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100100058.activate(e) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c100100059.lua b/script/c100100059.lua deleted file mode 100644 index 7d0802f6..00000000 --- a/script/c100100059.lua +++ /dev/null @@ -1,27 +0,0 @@ ---Ｓｐ－サンダー·ボルト -function c100100059.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100059.cost) - e1:SetTarget(c100100059.target) - e1:SetOperation(c100100059.activate) - c:RegisterEffect(e1) -end -function c100100059.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,12,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,12,REASON_COST) -end -function c100100059.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100100059.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c100100060.lua b/script/c100100060.lua deleted file mode 100644 index b967339a..00000000 --- a/script/c100100060.lua +++ /dev/null @@ -1,36 +0,0 @@ ---Ｓｐ－サルベージ -function c100100060.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100060.con) - e1:SetTarget(c100100060.target) - e1:SetOperation(c100100060.activate) - c:RegisterEffect(e1) -end -function c100100060.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100060.filter(c) - local atk=c:GetAttack() - return atk>=0 and atk<=1500 and c:IsAttribute(ATTRIBUTE_WATER) and c:IsAbleToHand() -end -function c100100060.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE and c100100060.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100060.filter,tp,LOCATION_GRAVE,0,2,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c100100060.filter,tp,LOCATION_GRAVE,0,2,2,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,2,0,0) -end -function c100100060.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - if sg:GetCount()>0 then - Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sg) - end -end diff --git a/script/c100100061.lua b/script/c100100061.lua deleted file mode 100644 index d46cb6a2..00000000 --- a/script/c100100061.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Ｓｐ－スタンピング·クラッシュ -function c100100061.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100061.condition) - e1:SetTarget(c100100061.target) - e1:SetOperation(c100100061.activate) - c:RegisterEffect(e1) -end -function c100100061.filter1(c) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return c:IsFaceup() and c:IsRace(RACE_DRAGON) and tc:GetCounter(0x91)>2 -end -function c100100061.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100100061.filter1,tp,LOCATION_MZONE,0,1,nil) -end -function c100100061.filter2(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) -end -function c100100061.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c100100061.filter2(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100061.filter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100100061.filter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100100061.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - local p=tc:GetControler() - if Duel.Destroy(tc,REASON_EFFECT)==0 then return end - Duel.Damage(p,500,REASON_EFFECT) - end -end diff --git a/script/c100100062.lua b/script/c100100062.lua deleted file mode 100644 index 1adb6603..00000000 --- a/script/c100100062.lua +++ /dev/null @@ -1,59 +0,0 @@ ---Ｓｐ－真炎の爆発 -function c100100062.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100062.cost) - e1:SetTarget(c100100062.tg) - e1:SetOperation(c100100062.op) - c:RegisterEffect(e1) -end -function c100100062.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,4,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,4,REASON_COST) -end -function c100100062.filter(c,e,tp) - return c:GetDefence()==200 and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100062.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100100062.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c100100062.op(e,tp,eg,ep,ev,re,r,rp) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100100062.filter,tp,LOCATION_GRAVE,0,ft,ft,nil,e,tp) - if g:GetCount()>0 then - local tc=g:GetFirst() - while tc do - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) - tc:RegisterFlagEffect(100100062,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - tc=g:GetNext() - end - Duel.SpecialSummonComplete() - g:KeepAlive() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetLabelObject(g) - e1:SetOperation(c100100062.rmop) - Duel.RegisterEffect(e1,tp) - end -end -function c100100062.rmfilter(c) - return c:GetFlagEffect(100100062)>0 -end -function c100100062.rmop(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject() - local tg=g:Filter(c100100062.rmfilter,nil) - g:DeleteGroup() - Duel.Remove(tg,POS_FACEUP,REASON_EFFECT) -end diff --git a/script/c100100063.lua b/script/c100100063.lua deleted file mode 100644 index f7df37c2..00000000 --- a/script/c100100063.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Ｓｐ－地割れ -function c100100063.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100063.con) - e1:SetTarget(c100100063.target) - e1:SetOperation(c100100063.activate) - c:RegisterEffect(e1) -end -function c100100063.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>3 -end -function c100100063.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c100100063.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100063.filter,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(c100100063.filter,tp,0,LOCATION_MZONE,nil) - local tg=g:GetMinGroup(Card.GetAttack) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) -end -function c100100063.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100100063.filter,tp,0,LOCATION_MZONE,nil) - if g:GetCount()>0 then - local tg=g:GetMinGroup(Card.GetAttack) - if tg:GetCount()>1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local sg=tg:Select(tp,1,1,nil) - Duel.HintSelection(sg) - Duel.Destroy(sg,REASON_EFFECT) - else Duel.Destroy(tg,REASON_EFFECT) end - end -end diff --git a/script/c100100064.lua b/script/c100100064.lua deleted file mode 100644 index 893ac6aa..00000000 --- a/script/c100100064.lua +++ /dev/null @@ -1,31 +0,0 @@ ---Ｓｐ－召喚師のスキル -function c100100064.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100064.con) - e1:SetTarget(c100100064.target) - e1:SetOperation(c100100064.activate) - c:RegisterEffect(e1) -end -function c100100064.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100064.filter(c) - return c:GetLevel()>=5 and c:IsType(TYPE_NORMAL) and c:IsAbleToHand() -end -function c100100064.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100064.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c100100064.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c100100064.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c100100065.lua b/script/c100100065.lua deleted file mode 100644 index 9440655f..00000000 --- a/script/c100100065.lua +++ /dev/null @@ -1,42 +0,0 @@ ---Ｓｐ－終焉のカウントダウン -function c100100065.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100065.cost) - e1:SetOperation(c100100065.activate) - c:RegisterEffect(e1) -end -function c100100065.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return Duel.CheckLPCost(tp,2000) and tc:IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) - Duel.PayLPCost(tp,2000) -end -function c100100065.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if Duel.GetFlagEffect(tp,100100065)~=0 then return end - Duel.RegisterFlagEffect(tp,100100065,0,0,0) - c:SetTurnCounter(0) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetOperation(c100100065.checkop) - e1:SetCountLimit(1) - Duel.RegisterEffect(e1,tp) - c:RegisterFlagEffect(1082946,RESET_PHASE+PHASE_END,0,20) - c100100065[c]=e1 -end -function c100100065.checkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local ct=c:GetTurnCounter() - ct=ct+1 - c:SetTurnCounter(ct) - if ct==20 then - Duel.Win(tp,0x11) - c:ResetFlagEffect(1082946) - end -end \ No newline at end of file diff --git a/script/c100100066.lua b/script/c100100066.lua deleted file mode 100644 index d1b6aaf3..00000000 --- a/script/c100100066.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Ｓｐ－地縛旋風 -function c100100066.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100066.condition) - e1:SetCost(c100100066.cost) - e1:SetTarget(c100100066.target) - e1:SetOperation(c100100066.activate) - c:RegisterEffect(e1) -end -function c100100066.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x21) -end -function c100100066.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c100100066.cfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c100100066.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100066.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c100100066.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100066.filter,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(c100100066.filter,tp,0,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c100100066.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100100066.filter,tp,0,LOCATION_ONFIELD,nil) - Duel.Destroy(g,REASON_EFFECT) -end diff --git a/script/c100100067.lua b/script/c100100067.lua deleted file mode 100644 index f7f4d832..00000000 --- a/script/c100100067.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Ｓｐ－戦士の生還 -function c100100067.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100067.con) - e1:SetTarget(c100100067.target) - e1:SetOperation(c100100067.activate) - c:RegisterEffect(e1) -end -function c100100067.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>2 -end -function c100100067.filter(c) - return c:IsRace(RACE_WARRIOR) and c:IsAbleToHand() -end -function c100100067.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE and c100100067.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100067.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c100100067.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c100100067.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c100100068.lua b/script/c100100068.lua deleted file mode 100644 index cb423e3c..00000000 --- a/script/c100100068.lua +++ /dev/null @@ -1,45 +0,0 @@ ---Ｓｐ－セイバー·スラッシュ -function c100100068.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100068.cost) - e1:SetTarget(c100100068.target) - e1:SetOperation(c100100068.activate) - c:RegisterEffect(e1) -end -function c100100068.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100068.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c100100068.cfilter(c) - return c:IsFaceup() and c:IsAttackPos() and c:IsSetCard(0x100d) -end -function c100100068.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then - local ct=Duel.GetMatchingGroupCount(c100100068.cfilter,tp,LOCATION_MZONE,0,nil) - e:SetLabel(ct) - return Duel.IsExistingMatchingCard(c100100068.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,ct,c) - end - local ct=e:GetLabel() - local sg=Duel.GetMatchingGroup(c100100068.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,ct,0,0) -end -function c100100068.activate(e,tp,eg,ep,ev,re,r,rp) - local ct=Duel.GetMatchingGroupCount(c100100068.cfilter,tp,LOCATION_MZONE,0,nil) - local g=Duel.GetMatchingGroup(c100100068.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - if g:GetCount()>ct then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local sg=g:Select(tp,ct,ct,nil) - Duel.HintSelection(sg) - Duel.Destroy(sg,REASON_EFFECT) - end -end diff --git a/script/c100100069.lua b/script/c100100069.lua deleted file mode 100644 index c0eb3eb6..00000000 --- a/script/c100100069.lua +++ /dev/null @@ -1,56 +0,0 @@ ---Ｓｐ－精神操作 -function c100100069.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100069.cost) - e1:SetTarget(c100100069.target) - e1:SetOperation(c100100069.activate) - c:RegisterEffect(e1) -end -function c100100069.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,6,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100069.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_MZONE and chkc:GetControler()~=tp and chkc:IsControlerCanBeChanged() end - if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) -end -function c100100069.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - if not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - return - end - local e1=Effect.CreateEffect(c) - local reset=RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UNRELEASABLE_SUM) - e1:SetReset(reset) - e1:SetValue(1) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_UNRELEASABLE_NONSUM) - e2:SetReset(reset) - e2:SetValue(1) - tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_ATTACK) - e3:SetReset(reset) - tc:RegisterEffect(e3) - end -end diff --git a/script/c100100070.lua b/script/c100100070.lua deleted file mode 100644 index 3b7f21d5..00000000 --- a/script/c100100070.lua +++ /dev/null @@ -1,47 +0,0 @@ ---Ｓｐ－生者の書－禁断の呪術－ -function c100100070.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100070.cost) - e1:SetTarget(c100100070.target) - e1:SetOperation(c100100070.activate) - c:RegisterEffect(e1) -end -function c100100070.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100070.spfilter(c,e,tp) - return c:IsRace(RACE_ZOMBIE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100070.rmfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() -end -function c100100070.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100100070.rmfilter,tp,0,LOCATION_GRAVE,1,nil) - and Duel.IsExistingTarget(c100100070.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g1=Duel.SelectTarget(tp,c100100070.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,1,0,0) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g2=Duel.SelectTarget(tp,c100100070.rmfilter,tp,0,LOCATION_GRAVE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g2,1,0,0) -end -function c100100070.activate(e,tp,eg,ep,ev,re,r,rp) - local ex1,tg1=Duel.GetOperationInfo(0,CATEGORY_SPECIAL_SUMMON) - local ex2,tg2=Duel.GetOperationInfo(0,CATEGORY_REMOVE) - if tg1:GetFirst():IsRelateToEffect(e) and tg1:GetFirst():IsRace(RACE_ZOMBIE) then - Duel.SpecialSummon(tg1,0,tp,tp,false,false,POS_FACEUP) - end - if tg2:GetFirst():IsRelateToEffect(e) then - Duel.Remove(tg2,POS_FACEUP,REASON_EFFECT) - end -end diff --git a/script/c100100071.lua b/script/c100100071.lua deleted file mode 100644 index 3b071d18..00000000 --- a/script/c100100071.lua +++ /dev/null @@ -1,33 +0,0 @@ ---Ｓｐ－スペシャルハリケーン -function c100100071.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100071.con) - e1:SetCost(c100100071.cost) - e1:SetTarget(c100100071.target) - e1:SetOperation(c100100071.activate) - c:RegisterEffect(e1) -end -function c100100071.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>2 -end -function c100100071.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c100100071.filter(c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL and c:IsDestructable() -end -function c100100071.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100071.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(c100100071.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c100100071.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c100100071.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100100072.lua b/script/c100100072.lua deleted file mode 100644 index e032ead0..00000000 --- a/script/c100100072.lua +++ /dev/null @@ -1,29 +0,0 @@ ---Ｓｐ－魂の解放 -function c100100072.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100072.con) - e1:SetTarget(c100100072.target) - e1:SetOperation(c100100072.activate) - c:RegisterEffect(e1) -end -function c100100072.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100072.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:IsAbleToRemove() end - if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,5,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0) -end -function c100100072.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - Duel.Remove(sg,POS_FACEUP,REASON_EFFECT) -end diff --git a/script/c100100073.lua b/script/c100100073.lua deleted file mode 100644 index 3b775184..00000000 --- a/script/c100100073.lua +++ /dev/null @@ -1,42 +0,0 @@ ---Ｓｐ－大寒波 -function c100100073.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100073.condition) - e1:SetCost(c100100073.cost) - e1:SetOperation(c100100073.operation) - c:RegisterEffect(e1) -end -function c100100073.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_MAIN1 and not Duel.CheckPhaseActivity() -end -function c100100073.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,6,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100073.operation(e,tp,eg,ep,ev,re,r,rp) - 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(c100100073.aclimit) - e1:SetReset(RESET_PHASE+PHASE_END,2) - Duel.RegisterEffect(e1,tp) - --cannot set - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_SSET) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,1) - e2:SetTarget(aux.TRUE) - e2:SetReset(RESET_PHASE+PHASE_END,2) - Duel.RegisterEffect(e2,tp) -end -function c100100073.aclimit(e,re,tp) - return re:GetHandler():IsType(TYPE_SPELL+TYPE_TRAP) -end diff --git a/script/c100100074.lua b/script/c100100074.lua deleted file mode 100644 index 93e31e4d..00000000 --- a/script/c100100074.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Ｓｐ－ソーラー·エクスチェンジ -function c100100074.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW+CATEGORY_DECKDES) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100074.con) - e1:SetCost(c100100074.cost) - e1:SetTarget(c100100074.target) - e1:SetOperation(c100100074.activate) - c:RegisterEffect(e1) -end -function c100100074.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>3 -end -function c100100074.costfilter(c) - return c:IsSetCard(0x38) and c:IsType(TYPE_MONSTER) and c:IsDiscardable() -end -function c100100074.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100074.costfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,c100100074.costfilter,1,1,REASON_COST+REASON_DISCARD,nil) -end -function c100100074.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,4) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,2) -end -function c100100074.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) - Duel.DiscardDeck(tp,2,REASON_EFFECT) -end diff --git a/script/c100100075.lua b/script/c100100075.lua deleted file mode 100644 index 7fd06dc4..00000000 --- a/script/c100100075.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Ｓｐ－ソウルテイカー -function c100100075.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_RECOVER) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100075.cost) - e1:SetTarget(c100100075.target) - e1:SetOperation(c100100075.activate) - c:RegisterEffect(e1) -end -function c100100075.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100075.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c100100075.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c100100075.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100075.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100100075.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,1-tp,1000) -end -function c100100075.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)>0 then - Duel.BreakEffect() - Duel.Recover(1-tp,1000,REASON_EFFECT) - end -end diff --git a/script/c100100076.lua b/script/c100100076.lua deleted file mode 100644 index 8b9bd729..00000000 --- a/script/c100100076.lua +++ /dev/null @@ -1,33 +0,0 @@ ---Ｓｐ－増援 -function c100100076.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100076.cost) - e1:SetTarget(c100100076.target) - e1:SetOperation(c100100076.activate) - c:RegisterEffect(e1) -end -function c100100076.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100076.filter(c) - return c:IsLevelBelow(4) and c:IsRace(RACE_WARRIOR) and c:IsAbleToHand() -end -function c100100076.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100076.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c100100076.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c100100076.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c100100077.lua b/script/c100100077.lua deleted file mode 100644 index 75629066..00000000 --- a/script/c100100077.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Ｓｐ－洗脳－ブレインコントロール -function c100100077.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100077.cost) - e1:SetTarget(c100100077.target) - e1:SetOperation(c100100077.activate) - c:RegisterEffect(e1) -end -function c100100077.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,6,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,6,REASON_COST) -end -function c100100077.filter(c) - return c:IsControlerCanBeChanged() and c:IsFaceup() -end -function c100100077.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c100100077.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100077.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,c100100077.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) -end -function c100100077.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - end -end diff --git a/script/c100100078.lua b/script/c100100078.lua deleted file mode 100644 index abb5a16a..00000000 --- a/script/c100100078.lua +++ /dev/null @@ -1,24 +0,0 @@ ---Ｓｐ－二重召喚 -function c100100078.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100078.con) - e1:SetOperation(c100100078.activate) - c:RegisterEffect(e1) -end -function c100100078.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100078.activate(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SET_SUMMON_COUNT_LIMIT) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetValue(2) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end diff --git a/script/c100100079.lua b/script/c100100079.lua deleted file mode 100644 index c2a8da7d..00000000 --- a/script/c100100079.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Ｓｐ－手札抹殺 -function c100100079.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_HANDES+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100079.cost) - e1:SetTarget(c100100079.target) - e1:SetOperation(c100100079.activate) - c:RegisterEffect(e1) -end -function c100100079.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,5,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,5,REASON_COST) -end -function c100100079.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local h1=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) - if e:GetHandler():IsLocation(LOCATION_HAND) then h1=h1-1 end - local h2=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND) - return (h1>0 or h2>0) and (h1==0 or Duel.IsPlayerCanDraw(tp,h1)) and (h2==0 or Duel.IsPlayerCanDraw(1-tp)) - end - Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,PLAYER_ALL,1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,PLAYER_ALL,1) -end -function c100100079.activate(e,tp,eg,ep,ev,re,r,rp) - local h1=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) - local h2=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND) - local g=Duel.GetFieldGroup(tp,LOCATION_HAND,LOCATION_HAND) - Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD) - Duel.BreakEffect() - Duel.Draw(tp,h1,REASON_EFFECT) - Duel.Draw(1-tp,h2,REASON_EFFECT) -end diff --git a/script/c100100080.lua b/script/c100100080.lua deleted file mode 100644 index f9848359..00000000 --- a/script/c100100080.lua +++ /dev/null @@ -1,54 +0,0 @@ ---Ｓｐ－デビルズ·サンクチュアリ -function c100100080.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100080.cost) - e1:SetTarget(c100100080.target) - e1:SetOperation(c100100080.activate) - c:RegisterEffect(e1) -end -function c100100080.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,1,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,1,REASON_COST) -end -function c100100080.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,24874631,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) -end -function c100100080.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 - or not Duel.IsPlayerCanSpecialSummonMonster(tp,24874631,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) then return end - local token=Duel.CreateToken(tp,24874631) - Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - token:RegisterEffect(e1,true) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_REFLECT_BATTLE_DAMAGE) - e2:SetValue(1) - token:RegisterEffect(e2,true) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_PHASE+PHASE_STANDBY) - e3:SetCountLimit(1) - e3:SetOperation(c100100080.rtcost) - token:RegisterEffect(e3,true) -end -function c100100080.rtcost(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetTurnPlayer()~=tp then return end - if Duel.GetLP(tp)>1000 and Duel.SelectYesNo(tp,aux.Stringid(100100080,0)) then - Duel.PayLPCost(tp,1000) - else - Duel.Destroy(e:GetHandler(),REASON_RULE) - end -end diff --git a/script/c100100081.lua b/script/c100100081.lua deleted file mode 100644 index 5d77db6b..00000000 --- a/script/c100100081.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Ｓｐ－デステニー·ドロー -function c100100081.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100081.cost) - e1:SetTarget(c100100081.target) - e1:SetOperation(c100100081.activate) - c:RegisterEffect(e1) -end -function c100100081.filter(c) - return c:IsSetCard(0xc008) and c:IsDiscardable() -end -function c100100081.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return Duel.IsExistingMatchingCard(c100100081.filter,tp,LOCATION_HAND,0,1,nil) - and tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) - Duel.DiscardHand(tp,c100100081.filter,1,1,REASON_COST+REASON_DISCARD) -end -function c100100081.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100100081.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c100100082.lua b/script/c100100082.lua deleted file mode 100644 index 58463675..00000000 --- a/script/c100100082.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Ｓｐ－テールスイング -function c100100082.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100082.con) - e1:SetTarget(c100100082.target) - e1:SetOperation(c100100082.activate) - c:RegisterEffect(e1) -end -function c100100082.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100082.filter(c,tp) - return c:IsFaceup() and c:IsRace(RACE_DINOSAUR) and c:IsLevelAbove(5) - and Duel.IsExistingMatchingCard(c100100082.dfilter,tp,0,LOCATION_MZONE,1,nil,c:GetLevel()) -end -function c100100082.dfilter(c,lv) - return (c:IsFacedown() or c:IsLevelBelow(lv-1)) and c:IsAbleToHand() -end -function c100100082.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingTarget(c100100082.filter,tp,LOCATION_MZONE,0,1,nil,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,c100100082.filter,tp,LOCATION_MZONE,0,1,1,nil,tp) - local sg=Duel.GetMatchingGroup(c100100082.dfilter,tp,0,LOCATION_MZONE,nil,g:GetFirst():GetLevel()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,1,0,0) -end -function c100100082.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local sg=Duel.SelectMatchingCard(tp,c100100082.dfilter,tp,0,LOCATION_MZONE,1,2,nil,tc:GetLevel()) - Duel.SendtoHand(sg,nil,REASON_EFFECT) - end -end diff --git a/script/c100100083.lua b/script/c100100083.lua deleted file mode 100644 index 5ec6db9a..00000000 --- a/script/c100100083.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Ｓｐ－調和の宝札 -function c100100083.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100083.con) - e1:SetCost(c100100083.cost) - e1:SetTarget(c100100083.target) - e1:SetOperation(c100100083.activate) - c:RegisterEffect(e1) -end -function c100100083.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>2 -end -function c100100083.filter(c) - return c:IsType(TYPE_TUNER) and c:IsRace(RACE_DRAGON) and c:IsAttackBelow(1000) and c:IsDiscardable() -end -function c100100083.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100083.filter,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,c100100083.filter,1,1,REASON_COST+REASON_DISCARD) -end -function c100100083.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100100083.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c100100084.lua b/script/c100100084.lua deleted file mode 100644 index 02166154..00000000 --- a/script/c100100084.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Ｓｐ－調律 -function c100100084.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100084.cost) - e1:SetTarget(c100100084.target) - e1:SetOperation(c100100084.activate) - c:RegisterEffect(e1) -end -function c100100084.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100084.filter(c) - return c:IsSetCard(0x17) and c:IsType(TYPE_TUNER) and c:IsAbleToHand() -end -function c100100084.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>1 - and Duel.IsExistingMatchingCard(c100100084.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c100100084.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c100100084.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - Duel.ShuffleDeck(tp) - end - Duel.BreakEffect() - Duel.DiscardDeck(tp,1,REASON_EFFECT) -end diff --git a/script/c100100090.lua b/script/c100100090.lua deleted file mode 100644 index 47d4e768..00000000 --- a/script/c100100090.lua +++ /dev/null @@ -1,13 +0,0 @@ ---ゲート・ブロッカー -function c100100090.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(100100090) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetTarget(c100100090.tgn) - c:RegisterEffect(e1) -end -function c100100090.tgn(e,c) - return c==e:GetHandler() -end diff --git a/script/c100100091.lua b/script/c100100091.lua deleted file mode 100644 index 50c6512a..00000000 --- a/script/c100100091.lua +++ /dev/null @@ -1,31 +0,0 @@ ---ゲート・ブロッカー２ -function c100100091.initial_effect(c) - --spsummon from hand - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_HAND) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetCondition(c100100091.hspcon) - e1:SetOperation(c100100091.hspop) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(100100090) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetTarget(c100100091.tgn) - c:RegisterEffect(e2) -end -function c100100091.hspcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(c:GetControler(),Card.IsCode,1,nil,8102334) -end -function c100100091.hspop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectReleaseGroup(c:GetControler(),Card.IsCode,1,1,nil,8102334) - Duel.Release(g,REASON_COST) -end -function c100100091.tgn(e,c) - return c==e:GetHandler() -end diff --git a/script/c100100100.lua b/script/c100100100.lua deleted file mode 100644 index 137dbcb1..00000000 --- a/script/c100100100.lua +++ /dev/null @@ -1,72 +0,0 @@ ---Ｓｐ－スピード・フュージョン -function c100100100.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100100.con) - e1:SetTarget(c100100100.target) - e1:SetOperation(c100100100.activate) - c:RegisterEffect(e1) -end -function c100100100.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100100.filter1(c,e) - return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) -end -function c100100100.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) - and c:CheckFusionMaterial(m,nil,chkf) -end -function c100100100.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100100100.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) - local res=Duel.IsExistingMatchingCard(c100100100.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c100100100.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100100100.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c100100100.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) - local sg1=Duel.GetMatchingGroup(c100100100.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c100100100.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end diff --git a/script/c100100101.lua b/script/c100100101.lua deleted file mode 100644 index 6925c6c6..00000000 --- a/script/c100100101.lua +++ /dev/null @@ -1,36 +0,0 @@ ---Ｓｐ－ラピッド・ショットウィング -function c100100101.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100101.con) - e1:SetTarget(c100100101.target) - e1:SetOperation(c100100101.activate) - c:RegisterEffect(e1) -end -function c100100101.con(e,tp,eg,ep,ev,re,r,rp) - local td=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return td:GetCounter(0x91)>2 -end -function c100100101.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - return true -end -function c100100101.activate(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local tdg=dg:Select(tp,1,1,nil) - local tc=tdg:GetFirst() - local td=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(td:GetCounter(0x91)*200) - tc:RegisterEffect(e1) - end -end diff --git a/script/c100100102.lua b/script/c100100102.lua deleted file mode 100644 index bc5e91cd..00000000 --- a/script/c100100102.lua +++ /dev/null @@ -1,33 +0,0 @@ ---Ｓｐ－エンジェル・バトン -function c100100102.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW+CATEGORY_HANDES) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100102.cost) - e1:SetTarget(c100100102.target) - e1:SetOperation(c100100102.activate) - c:RegisterEffect(e1) -end -function c100100102.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,4,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,4,REASON_COST) -end -function c100100102.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) - Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1) -end -function c100100102.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - if Duel.Draw(p,d,REASON_EFFECT)==2 then - Duel.BreakEffect() - Duel.DiscardHand(tp,aux.TRUE,1,1,REASON_EFFECT) - end -end diff --git a/script/c100100103.lua b/script/c100100103.lua deleted file mode 100644 index 02b34e85..00000000 --- a/script/c100100103.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Ｓｐ－カウントアップ -function c100100103.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100103.con) - e1:SetTarget(c100100103.target) - e1:SetOperation(c100100103.activate) - c:RegisterEffect(e1) -end -function c100100103.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100103.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp) - and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND) -end -function c100100103.activate(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK) - local g=Duel.SelectMatchingCard(p,Card.IsAbleToDeck,p,LOCATION_HAND,0,1,63,nil) - if g:GetCount()==0 then return end - local td=g:GetCount()*3 - Duel.SendtoGrave(g,nil,2,REASON_EFFECT) - tc:RegisterFlagEffect(100100103,RESET_EVENT+RESET_CHAIN,0,1) - if (12-tc:GetCounter(0x91))0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local sg=g:Select(tp,1,1,nil) - Duel.SendtoGrave(sg,REASON_EFFECT) - if sg:GetFirst():IsLocation(LOCATION_GRAVE) then - Duel.Draw(tp,1,REASON_EFFECT) - end - end -end diff --git a/script/c100100106.lua b/script/c100100106.lua deleted file mode 100644 index 8b7ca691..00000000 --- a/script/c100100106.lua +++ /dev/null @@ -1,40 +0,0 @@ ---Ｓｐ−スピード・エナジー -function c100100106.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100106.cost) - e1:SetTarget(c100100106.target) - e1:SetOperation(c100100106.activate) - c:RegisterEffect(e1) -end -function c100100106.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,1,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,1,REASON_COST) -end -function c100100106.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - return true -end -function c100100106.activate(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local tdg=dg:Select(tp,1,1,nil) - local tc=tdg:GetFirst() - local td=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(td:GetCounter(0x91)*200) - tc:RegisterEffect(e1) - end -end diff --git a/script/c100100107.lua b/script/c100100107.lua deleted file mode 100644 index 90294a65..00000000 --- a/script/c100100107.lua +++ /dev/null @@ -1,29 +0,0 @@ ---Ｓｐ－シフト・ダウン -function c100100107.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100107.cost) - e1:SetTarget(c100100107.target) - e1:SetOperation(c100100107.activate) - c:RegisterEffect(e1) -end -function c100100107.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,6,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,6,REASON_COST) -end -function c100100107.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100100107.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c100100108.lua b/script/c100100108.lua deleted file mode 100644 index 8619db1f..00000000 --- a/script/c100100108.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Ｓｐ－アクセル・リミッター -function c100100108.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100100108.target) - c:RegisterEffect(e1) -end -function c100100108.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,2) - e2:SetCountLimit(0) - e2:SetCondition(c100100108.turncon) - e2:SetOperation(c100100108.turnop) - e2:SetLabel(0) - Duel.RegisterEffect(e2,tp) - local tc=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5) - if Duel.GetTurnPlayer()~=tp then - tc:RegisterFlagEffect(100100108,RESET_EVENT+RESET_PHASE+PHASE_END,0,3) - else - tc:RegisterFlagEffect(100100108,RESET_EVENT+RESET_PHASE+PHASE_END,0,4) - end -end -function c100100108.turncon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c100100108.turnop(e,tp,eg,ep,ev,re,r,rp) - local ct=e:GetLabel() - ct=ct+1 - e:SetLabel(ct) - e:GetHandler():SetTurnCounter(ct) -end \ No newline at end of file diff --git a/script/c100100109.lua b/script/c100100109.lua deleted file mode 100644 index a6b2d5fb..00000000 --- a/script/c100100109.lua +++ /dev/null @@ -1,28 +0,0 @@ ---Ｓｐ－スピード・フォース -function c100100109.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100109.con) - e1:SetOperation(c100100109.activate) - c:RegisterEffect(e1) -end -function c100100109.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>3 -end -function c100100109.activate(e,tp,eg,ep,ev,re,r,rp) - --indestructable - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e1:SetTargetRange(LOCATION_ONFIELD,0) - e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e1:SetValue(c100100109.indval) - e1:SetReset(RESET_PHASE+PHASE_END,1) - Duel.RegisterEffect(e1,tp) -end -function c100100109.indval(e,re,rp) - return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and re:GetOwner()~=e:GetOwner() -end diff --git a/script/c100100110.lua b/script/c100100110.lua deleted file mode 100644 index b068591f..00000000 --- a/script/c100100110.lua +++ /dev/null @@ -1,39 +0,0 @@ ---Ｓｐ－シルバー・コントレイル -function c100100110.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100110.cost) - e1:SetTarget(c100100110.target) - e1:SetOperation(c100100110.activate) - c:RegisterEffect(e1) -end -function c100100110.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,1,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,1,REASON_COST) -end -function c100100110.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - return true -end -function c100100110.activate(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local tdg=dg:Select(tp,1,1,nil) - local tc=tdg:GetFirst() - if tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(1000) - tc:RegisterEffect(e1) - end -end diff --git a/script/c100100111.lua b/script/c100100111.lua deleted file mode 100644 index 4a24bbc9..00000000 --- a/script/c100100111.lua +++ /dev/null @@ -1,30 +0,0 @@ ---Ｓｐ－ソニック・バスター -function c100100111.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100111.cost) - e1:SetTarget(c100100111.target) - e1:SetOperation(c100100111.activate) - c:RegisterEffect(e1) -end -function c100100111.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100111.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - return true -end -function c100100111.activate(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local tdg=dg:Select(tp,1,1,nil) - local tc=tdg:GetFirst() - Duel.Damage(1-tp,tc:GetAttack()/2,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100100112.lua b/script/c100100112.lua deleted file mode 100644 index c8cef5ed..00000000 --- a/script/c100100112.lua +++ /dev/null @@ -1,28 +0,0 @@ ---Ｓｐ－アクセル・ドロー -function c100100112.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100112.con) - e1:SetTarget(c100100112.target) - e1:SetOperation(c100100112.activate) - c:RegisterEffect(e1) -end -function c100100112.con(e,tp,eg,ep,ev,re,r,rp) - local tc1=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local tc2=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5) - return tc1:GetCounter(0x91)>11 and tc2:GetCounter(0x91)<6 -end -function c100100112.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c100100112.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c100100113.lua b/script/c100100113.lua deleted file mode 100644 index 8d6e9d04..00000000 --- a/script/c100100113.lua +++ /dev/null @@ -1,20 +0,0 @@ ---Ｓｐ－スピード・ジャマー -function c100100113.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100113.con) - e1:SetOperation(c100100113.activate) - c:RegisterEffect(e1) -end -function c100100113.con(e,tp,eg,ep,ev,re,r,rp) - local tc1=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local tc2=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5) - return tc1:GetCounter(0x91)>1 and tc2:GetCounter(0x91)>5 -end -function c100100113.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5) - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,6,REASON_COST) -end diff --git a/script/c100100114.lua b/script/c100100114.lua deleted file mode 100644 index c8c7cc8e..00000000 --- a/script/c100100114.lua +++ /dev/null @@ -1,42 +0,0 @@ ---Ｓｐ－オーバー・チューン -function c100100114.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100114.con) - e1:SetTarget(c100100114.target) - e1:SetOperation(c100100114.operation) - c:RegisterEffect(e1) -end -function c100100114.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>2 -end -function c100100114.cfilter(c,e,tp) - local lv=c:GetLevel() - return lv>0 and Duel.IsExistingMatchingCard(c100100114.filter,tp,LOCATION_HAND,0,1,nil,lv,e,tp) -end -function c100100114.filter(c,lv,e,tp) - return c:GetLevel()==lv and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100114.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(tp,c100100114.cfilter,1,nil,e,tp) end - local rg=Duel.SelectReleaseGroup(tp,c100100114.cfilter,1,1,nil,e,tp) - e:SetLabel(rg:GetFirst():GetLevel()) - Duel.Release(rg,REASON_COST) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100100114.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100100114.filter,tp,LOCATION_HAND,0,1,1,nil,e:GetLabel(),e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100100115.lua b/script/c100100115.lua deleted file mode 100644 index 2d2005ba..00000000 --- a/script/c100100115.lua +++ /dev/null @@ -1,43 +0,0 @@ ---Ｓｐ－スター・フォース -function c100100115.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100115.con) - e1:SetCost(c100100115.cost) - e1:SetOperation(c100100115.operation) - c:RegisterEffect(e1) -end -function c100100115.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100115.cfilter(c) - return c:IsFaceup() and c:IsAbleToRemoveAsCost() - and Duel.IsExistingMatchingCard(Card.IsFaceup,c:GetControler(),LOCATION_MZONE,0,1,c) -end -function c100100115.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100115.cfilter,e:GetHandler():GetControler(),LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,e:GetHandler():GetControler(),HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(e:GetHandler():GetControler(),c100100115.cfilter,e:GetHandler():GetControler(),LOCATION_MZONE,0,1,1,nil) - e:SetLabel(g:GetFirst():GetLevel()*200) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c100100115.operation(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetMatchingGroup(Card.IsFaceup,e:GetHandler():GetControler(),LOCATION_MZONE,0,nil) - Duel.Hint(HINT_SELECTMSG,e:GetHandler():GetControler(),HINTMSG_FACEUP) - local tdg=dg:Select(e:GetHandler():GetControler(),1,1,nil) - local tc=tdg:GetFirst() - if tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(e:GetLabel()) - tc:RegisterEffect(e1) - end -end diff --git a/script/c100100116.lua b/script/c100100116.lua deleted file mode 100644 index f2f291fd..00000000 --- a/script/c100100116.lua +++ /dev/null @@ -1,45 +0,0 @@ ---Ｓｐ−ゼロ・リバース -function c100100116.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCost(c100100116.cost) - e1:SetTarget(c100100116.target) - e1:SetOperation(c100100116.activate) - c:RegisterEffect(e1) -end -function c100100116.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100116.filter(c,id,e,tp) - return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_EFFECT) and c:GetTurnID()==id and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100116.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100100116.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,Duel.GetTurnCount(),e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c100100116.activate(e,tp,eg,ep,ev,re,r,rp) - local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft1==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100100116.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,Duel.GetTurnCount(),e,tp) - local tc=g:GetFirst() - local td=tp - if tc:GetPreviousControler()~=tp then td=1-tp end - if Duel.SpecialSummonStep(tc,0,tp,td,false,false,POS_FACEUP_ATTACK) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - Duel.SpecialSummonComplete() - end -end diff --git a/script/c100100117.lua b/script/c100100117.lua deleted file mode 100644 index d777b358..00000000 --- a/script/c100100117.lua +++ /dev/null @@ -1,27 +0,0 @@ ---Ｓｐ－ギャップ・ストーム -function c100100117.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100117.con) - e1:SetTarget(c100100117.target) - e1:SetOperation(c100100117.activate) - c:RegisterEffect(e1) -end -function c100100117.con(e,tp,eg,ep,ev,re,r,rp) - local tc1=Duel.GetFieldCard(tp,LOCATION_SZONE,5):GetCounter(0x91) - local tc2=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5):GetCounter(0x91) - return tc1-tc2>=7 or tc2-tc1>=7 -end -function c100100117.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_SZONE,LOCATION_SZONE,1,c) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_SZONE,LOCATION_SZONE,c) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100100117.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_SZONE,LOCATION_SZONE,e:GetHandler()) - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c100100118.lua b/script/c100100118.lua deleted file mode 100644 index bc0b978b..00000000 --- a/script/c100100118.lua +++ /dev/null @@ -1,36 +0,0 @@ ---Ｓｐ－ダッシュ・ピルファー -function c100100118.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100118.con) - e1:SetTarget(c100100118.target) - e1:SetOperation(c100100118.activate) - c:RegisterEffect(e1) -end -function c100100118.con(e,tp,eg,ep,ev,re,r,rp) - local td=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return td:GetCounter(0x91)>3 -end -function c100100118.filter(c) - return c:IsControlerCanBeChanged() and c:IsPosition(POS_FACEUP_DEFENCE) -end -function c100100118.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c100100118.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100118.filter,tp,0,LOCATION_MZONE,1,nil) end - return true -end -function c100100118.activate(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetMatchingGroup(c100100118.filter,tp,0,LOCATION_MZONE,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local tdg=dg:Select(tp,1,1,nil) - local tc=tdg:GetFirst() - if tc and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - end -end diff --git a/script/c100100119.lua b/script/c100100119.lua deleted file mode 100644 index 164ff0ff..00000000 --- a/script/c100100119.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Ｓｐ－シンクロ・デフューズ -function c100100119.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100119.con) - e1:SetTarget(c100100119.target) - e1:SetOperation(c100100119.activate) - c:RegisterEffect(e1) -end -function c100100119.con(e,tp,eg,ep,ev,re,r,rp) - local td=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return td:GetCounter(0x91)>1 -end -function c100100119.filter(c) - return c:IsControlerCanBeChanged() and c:IsFaceup() and c:IsType(TYPE_SYNCHRO) -end -function c100100119.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c100100119.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100119.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,c100100119.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) -end -function c100100119.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - end -end diff --git a/script/c100100120.lua b/script/c100100120.lua deleted file mode 100644 index 07ea9c9f..00000000 --- a/script/c100100120.lua +++ /dev/null @@ -1,53 +0,0 @@ ---Ｓｐ－ファイナル・アタック -function c100100120.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100120.cost) - e1:SetTarget(c100100120.target) - e1:SetOperation(c100100120.activate) - c:RegisterEffect(e1) -end -function c100100120.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,5,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100120.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - return true -end -function c100100120.activate(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local tdg=dg:Select(tp,1,1,nil) - local tc=tdg:GetFirst() - if tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(tc:GetBaseAttack()*2) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetOperation(c100100120.desop) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e3:SetCountLimit(1) - tc:RegisterEffect(e3) - end -end -function c100100120.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end diff --git a/script/c100100121.lua b/script/c100100121.lua deleted file mode 100644 index 7750b237..00000000 --- a/script/c100100121.lua +++ /dev/null @@ -1,52 +0,0 @@ ---Ｓｐ－パワー・バトン -function c100100121.initial_effect(c) - --atkup - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c100100121.condition) - e1:SetTarget(c100100121.target) - e1:SetOperation(c100100121.operation) - c:RegisterEffect(e1) -end -function c100100121.condition(e,tp,eg,ep,ev,re,r,rp) - local phase=Duel.GetCurrentPhase() - local td=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if phase~=PHASE_DAMAGE and phase~=PHASE_DAMAGE_CAL then return false end - return td:GetCounter(0x91)>0 -end -function c100100121.filter(c,id,e,tp) - return c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() -end -function c100100121.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil) - return true -end -function c100100121.operation(e,tp,eg,ep,ev,re,r,rp,chk) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,c100100121.filter,tp,LOCATION_DECK,0,1,1,nil) - local td=g1:GetFirst() - Duel.SendtoGrave(g1,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g2=Duel.SelectMatchingCard(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) - local tc=g2:GetFirst() - if tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(td:GetAttack()/2) - tc:RegisterEffect(e1) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetCode(EFFECT_SKIP_DP) - e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN) - Duel.RegisterEffect(e1,tp) - end -end \ No newline at end of file diff --git a/script/c100100122.lua b/script/c100100122.lua deleted file mode 100644 index 7bdf1d16..00000000 --- a/script/c100100122.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Ｓｐ－オーバー・ブースト -function c100100122.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100122.condition) - e1:SetOperation(c100100122.activate) - c:RegisterEffect(e1) -end -function c100100122.condition(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)<7 -end -function c100100122.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - tc:RegisterFlagEffect(100100103,RESET_EVENT+RESET_CHAIN,0,1) - tc:AddCounter(0x91,6) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetOperation(c100100122.desop) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e3:SetCountLimit(1) - tc:RegisterEffect(e3) -end -function c100100122.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if tc:GetCounter(0x91)==1 then return end - if tc:GetCounter(0x91)>1 then - tc:RemoveCounter(tp,0x91,tc:GetCounter(0x91)-1,REASON_RULE) - else - tc:RegisterFlagEffect(100100103,RESET_EVENT+RESET_CHAIN,0,1) - tc:AddCounter(0x91,1) - end -end diff --git a/script/c100100123.lua b/script/c100100123.lua deleted file mode 100644 index 4bd3e247..00000000 --- a/script/c100100123.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Ｓｐ－ハイスピード・クラッシュ -function c100100123.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100123.con) - e1:SetTarget(c100100123.target) - e1:SetOperation(c100100123.operation) - c:RegisterEffect(e1) -end -function c100100123.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(e:GetHandler():GetControler(),LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100123.filter(c) - return c:IsDestructable() and Duel.IsExistingMatchingCard(Card.IsDestructable,c:GetControler(),LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) -end -function c100100123.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(c100100123.filter,tp,LOCATION_ONFIELD,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,c100100123.filter,tp,LOCATION_ONFIELD,0,1,1,nil) - e:SetLabelObject(g1:GetFirst()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,g1:GetFirst()) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,g1:GetCount(),0,0) -end -function c100100123.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - local sc=e:GetLabelObject() - if sg:GetCount()~=2 or sc:IsControler(1-tp) then return end - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c100100124.lua b/script/c100100124.lua deleted file mode 100644 index dd62f257..00000000 --- a/script/c100100124.lua +++ /dev/null @@ -1,27 +0,0 @@ ---Ｓｐ－ハーフ・シーズ -function c100100124.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100124.con) - e1:SetTarget(c100100124.target) - e1:SetOperation(c100100124.operation) - c:RegisterEffect(e1) -end -function c100100124.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(e:GetHandler():GetControler(),LOCATION_SZONE,5) - return tc:GetCounter(0x91)>2 -end -function c100100124.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - return true -end -function c100100124.operation(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetMatchingGroup(Card.IsFaceup,e:GetHandler():GetControler(),0,LOCATION_MZONE,nil) - Duel.Hint(HINT_SELECTMSG,e:GetHandler():GetControler(),HINTMSG_FACEUP) - local tc=dg:Select(e:GetHandler():GetControler(),1,1,nil) - Duel.Recover(tp,tc:GetFirst():GetAttack()/2,REASON_EFFECT) -end diff --git a/script/c100100125.lua b/script/c100100125.lua deleted file mode 100644 index 1f5a3d9f..00000000 --- a/script/c100100125.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Ｓｐ－運命の呪縛 -function c100100125.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100125.con) - e1:SetTarget(c100100125.target) - e1:SetOperation(c100100125.activate) - c:RegisterEffect(e1) -end -function c100100125.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(e:GetHandler():GetControler(),LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100125.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100100125.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.Damage(1-tp,tc:GetAttack()/2,REASON_EFFECT) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end diff --git a/script/c100100126.lua b/script/c100100126.lua deleted file mode 100644 index d236661a..00000000 --- a/script/c100100126.lua +++ /dev/null @@ -1,27 +0,0 @@ ---Ｓｐ－スロウダウン・マシーン -function c100100126.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetOperation(c100100126.activate) - c:RegisterEffect(e1) -end -function c100100126.activate(e,tp,eg,ep,ev,re,r,rp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE) - e2:SetCondition(c100100126.condition) - e2:SetOperation(c100100126.operation) - e2:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e2,tp) -end -function c100100126.condition(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c100100126.operation(e,tp,eg,ep,ev,re,r,rp) - local d=math.floor(ev/300) - local tc=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5) - if tc:GetCounter(0x91)2 -end -function c100100127.filter(c) - return c:IsAttackBelow(1000) and c:IsFaceup() -end -function c100100127.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c100100127.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100127.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c100100127.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100100127.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.Damage(1-tp,tc:GetBaseAttack(),REASON_EFFECT) - end -end diff --git a/script/c100100128.lua b/script/c100100128.lua deleted file mode 100644 index 24273d8f..00000000 --- a/script/c100100128.lua +++ /dev/null @@ -1,48 +0,0 @@ ---Ｓｐ－ヴィジョンウィンド -function c100100128.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100128.cost) - e1:SetTarget(c100100128.target) - e1:SetOperation(c100100128.activate) - c:RegisterEffect(e1) -end -function c100100128.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100128.filter(c,e,tp) - return c:IsLevelBelow(2) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100128.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100100128.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100100128.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - return true -end -function c100100128.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - local dg=Duel.GetMatchingGroup(c100100128.filter,c:GetControler(),LOCATION_GRAVE,0,nil,e,tp) - Duel.Hint(HINT_SELECTMSG,c:GetControler(),HINTMSG_SPSUMMON) - local tc=dg:Select(c:GetControler(),1,1,nil):GetFirst() - if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetOperation(c100100128.desop) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e3:SetCountLimit(1) - tc:RegisterEffect(e3) - Duel.SpecialSummonComplete() - end -end -function c100100128.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100100129.lua b/script/c100100129.lua deleted file mode 100644 index c98ff72a..00000000 --- a/script/c100100129.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Ｓｐ－起爆化 -function c100100129.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100129.con) - e1:SetTarget(c100100129.target) - e1:SetOperation(c100100129.activate) - c:RegisterEffect(e1) -end -function c100100129.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(e:GetHandler():GetControler(),LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100129.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,0,1,e:GetHandler()) end - local sg=Duel.GetFieldGroup(tp,0,LOCATION_MZONE) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_POSITION,sg,sg:GetCount(),0,0) -end -function c100100129.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end - Duel.BreakEffect() - local sg=Duel.GetFieldGroup(tp,0,LOCATION_MZONE) - if sg:GetCount()>0 then - Duel.ChangePosition(sg,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) - end -end diff --git a/script/c100100130.lua b/script/c100100130.lua deleted file mode 100644 index 77b18c9f..00000000 --- a/script/c100100130.lua +++ /dev/null @@ -1,45 +0,0 @@ ---Ｓｐ－シンクロ・リターン -function c100100130.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100130.con) - e1:SetTarget(c100100130.target) - e1:SetOperation(c100100130.activate) - c:RegisterEffect(e1) -end -function c100100130.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(e:GetHandler():GetControler(),LOCATION_SZONE,5) - return tc:GetCounter(0x91)>2 -end -function c100100130.filter(c,e,tp) - return c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100130.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_REMOVED) and c100100130.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100100130.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_REMOVED) -end -function c100100130.activate(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetMatchingGroup(c100100130.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,nil,e,tp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tdg=dg:Select(tp,1,1,nil) - local tc=tdg:GetFirst() - if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetOperation(c100100130.desop) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e3:SetCountLimit(1) - tc:RegisterEffect(e3) - Duel.SpecialSummonComplete() - end -end -function c100100130.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT) -end diff --git a/script/c100100131.lua b/script/c100100131.lua deleted file mode 100644 index 7a66c023..00000000 --- a/script/c100100131.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Ｓｐ－サモン・スピーダー -function c100100131.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100131.con) - e1:SetTarget(c100100131.target) - e1:SetOperation(c100100131.activate) - c:RegisterEffect(e1) -end -function c100100131.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(e:GetHandler():GetControler(),LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100131.filter(c,e,tp) - return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100131.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c100100131.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100100131.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100100131.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - if g:GetCount()>0 and Duel.SpecialSummonStep(g:GetFirst(),0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - g:GetFirst():RegisterEffect(e1,true) - Duel.SpecialSummonComplete() - end -end \ No newline at end of file diff --git a/script/c100100132.lua b/script/c100100132.lua deleted file mode 100644 index aaf5cb42..00000000 --- a/script/c100100132.lua +++ /dev/null @@ -1,58 +0,0 @@ ---Ｓｐ－スピードストーム -function c100100132.initial_effect(c) - --damage - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100132.con) - e1:SetTarget(c100100132.damtg) - e1:SetOperation(c100100132.damop) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_GRAVE) - e2:SetCondition(c100100132.condition) - e2:SetCost(c100100132.cost) - e2:SetTarget(c100100132.target) - e2:SetOperation(c100100132.operation) - c:RegisterEffect(e2) -end -function c100100132.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(e:GetHandler():GetControler(),LOCATION_SZONE,5) - return tc:GetCounter(0x91)>2 -end -function c100100132.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) -end -function c100100132.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c100100132.condition(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() -end -function c100100132.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,4,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,4,REASON_COST) -end -function c100100132.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToHand() end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c100100132.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SendtoHand(c,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,c) - end -end \ No newline at end of file diff --git a/script/c100100133.lua b/script/c100100133.lua deleted file mode 100644 index c22857bb..00000000 --- a/script/c100100133.lua +++ /dev/null @@ -1,62 +0,0 @@ ---Ｓｐ－デッド・シンクロン -function c100100133.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100133.cost) - e1:SetTarget(c100100133.target) - e1:SetOperation(c100100133.operation) - c:RegisterEffect(e1) -end -function c100100133.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,8,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,8,REASON_COST) -end -function c100100133.filter1(c,e,tp) - local lv1=c:GetLevel() - return c:IsLevelBelow(8) and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) - and Duel.IsExistingMatchingCard(c100100133.filter2,c:GetControler(),LOCATION_GRAVE,0,1,nil,lv1) -end -function c100100133.filter2(c,lv1) - local lv2=c:GetLevel() - return c:IsAbleToRemove() and c:IsType(TYPE_TUNER) - and Duel.IsExistingMatchingCard(c100100133.filter3,c:GetControler(),LOCATION_GRAVE,0,1,c,lv1-lv2) -end -function c100100133.filter3(c,lv) - return c:IsAbleToRemove() and c:GetLevel()==lv and not c:IsType(TYPE_TUNER) -end -function c100100133.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100100133.filter1(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100100133.filter1,tp,LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100100133.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g1=Duel.SelectMatchingCard(tp,c100100133.filter1,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - local tg1=g1:GetFirst() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g2=Duel.SelectMatchingCard(tp,c100100133.filter2,tp,LOCATION_GRAVE,0,1,1,nil,tg1:GetLevel()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g3=Duel.SelectMatchingCard(tp,c100100133.filter3,tp,LOCATION_GRAVE,0,1,1,nil,tg1:GetLevel()-g2:GetFirst():GetLevel()) - g2:Merge(g3) - Duel.Remove(g2,POS_FACEUP,REASON_EFFECT) - if tg1 and Duel.SpecialSummonStep(tg1,0,tp,tp,false,false,POS_FACEUP) then - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetOperation(c100100133.desop) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e3:SetCountLimit(1) - tg1:RegisterEffect(e3) - Duel.SpecialSummonComplete() - end -end -function c100100133.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT) -end diff --git a/script/c100100150.lua b/script/c100100150.lua deleted file mode 100644 index ab3ca043..00000000 --- a/script/c100100150.lua +++ /dev/null @@ -1,20 +0,0 @@ ---アクセル・ゾーン -function c100100150.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c100100150.condition) - e1:SetOperation(c100100150.activate) - c:RegisterEffect(e1) -end -function c100100150.condition(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return rp~=tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) - and re:GetHandler():IsSetCard(0x200) and tc:GetCounter(0x91)<7 -end -function c100100150.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - tc:RegisterFlagEffect(100100103,RESET_EVENT+RESET_CHAIN,0,1) - tc:AddCounter(0x91,6) -end \ No newline at end of file diff --git a/script/c100100151.lua b/script/c100100151.lua deleted file mode 100644 index d62a086d..00000000 --- a/script/c100100151.lua +++ /dev/null @@ -1,95 +0,0 @@ ---スピード・ブースター -function c100100151.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_MAIN_END) - e1:SetCondition(c100100151.atkcon) - e1:SetTarget(c100100151.atktg1) - e1:SetOperation(c100100151.atkop) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetCondition(c100100151.atkcon) - e2:SetTarget(c100100151.atktg2) - e2:SetOperation(c100100151.atkop) - c:RegisterEffect(e2) - --Activate - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetType(EFFECT_TYPE_ACTIVATE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetCountLimit(1) - e3:SetCondition(c100100151.condition2) - e3:SetTarget(c100100151.target3) - e3:SetOperation(c100100151.operation2) - c:RegisterEffect(e3) - -- - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DAMAGE) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e4:SetCountLimit(1) - e4:SetRange(LOCATION_SZONE) - e4:SetCondition(c100100151.condition2) - e4:SetTarget(c100100151.target4) - e4:SetOperation(c100100151.operation2) - c:RegisterEffect(e4) -end -function c100100151.atkcon(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c100100151.atktg1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local tc1=Duel.GetFieldCard(tp,LOCATION_SZONE,5):GetCounter(0x91) - local tc2=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5):GetCounter(0x91) - e:SetLabel(0) - if Duel.CheckEvent(EVENT_ATTACK_ANNOUNCE) and tc1>tc2 and Duel.SelectYesNo(tp,aux.Stringid(100100151,0)) then - e:SetLabel(1) - Duel.SetTargetCard(Duel.GetAttacker()) - e:GetHandler():RegisterFlagEffect(100100151,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - end -end -function c100100151.atktg2(e,tp,eg,ep,ev,re,r,rp,chk) - local tc1=Duel.GetFieldCard(tp,LOCATION_SZONE,5):GetCounter(0x91) - local tc2=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5):GetCounter(0x91) - if chk==0 then return e:GetHandler():GetFlagEffect(100100151)==0 and tc1>tc2 end - e:SetLabel(1) - Duel.SetTargetCard(Duel.GetAttacker()) -end -function c100100151.atkop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateAttack() -end - -function c100100151.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100100151.target3(e,tp,eg,ep,ev,re,r,rp,chk) - local tc1=Duel.GetFieldCard(tp,LOCATION_SZONE,5):GetCounter(0x91) - local tc2=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5):GetCounter(0x91) - if chk==0 then return true end - if tc1>tc2 and Duel.SelectYesNo(tp,aux.Stringid(100100151,0)) then - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam((tc1-tc2)*100) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,(tc1-tc2)*100) - e:GetHandler():RegisterFlagEffect(100100151,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - else e:SetProperty(0) end -end -function c100100151.target4(e,tp,eg,ep,ev,re,r,rp,chk) - local tc1=Duel.GetFieldCard(tp,LOCATION_SZONE,5):GetCounter(0x91) - local tc2=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5):GetCounter(0x91) - if chk==0 then return tc1>tc2 and e:GetHandler():GetFlagEffect(100100151)==0 end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam((tc1-tc2)*100) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,(tc1-tc2)*100) -end -function c100100151.operation2(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c100100152.lua b/script/c100100152.lua deleted file mode 100644 index 20903b45..00000000 --- a/script/c100100152.lua +++ /dev/null @@ -1,46 +0,0 @@ ---スピード・エッジ -function c100100152.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_DRAW_PHASE) - e1:SetCondition(c100100152.condition) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DELAY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetCondition(c100100152.condition2) - e2:SetTarget(c100100152.damtg) - e2:SetOperation(c100100152.damop) - c:RegisterEffect(e2) -end -function c100100152.afilter(c) - return c:IsFaceup() and c:GetCode()==100100152 -end -function c100100152.condition(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c100100152.afilter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c100100152.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c100100152.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local tc1=Duel.GetFieldCard(tp,LOCATION_SZONE,5):GetCounter(0x91) - local tc2=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5):GetCounter(0x91) - local dam=0 - Duel.SetTargetPlayer(1-tp) - if tc1>tc2 then dam=(tc1-tc2)*200 - else return end - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100100152.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100100153.lua b/script/c100100153.lua deleted file mode 100644 index 39190e19..00000000 --- a/script/c100100153.lua +++ /dev/null @@ -1,22 +0,0 @@ ---フルスロットル -function c100100153.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_DRAW_PHASE) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetOperation(c100100153.tdop) - c:RegisterEffect(e2) -end -function c100100153.tdop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - tc:RegisterFlagEffect(100100103,RESET_EVENT+RESET_CHAIN,0,1) - tc:AddCounter(0x91,1) -end diff --git a/script/c100100154.lua b/script/c100100154.lua deleted file mode 100644 index 975daade..00000000 --- a/script/c100100154.lua +++ /dev/null @@ -1,36 +0,0 @@ ---スリップ・ストリーム -function c100100154.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetOperation(c100100154.op) - c:RegisterEffect(e1) -end -function c100100154.op(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetCountLimit(1) - e1:SetLabel(Duel.GetTurnCount()) - e1:SetCondition(c100100154.spcon) - e1:SetOperation(c100100154.spop) - if Duel.GetTurnPlayer()==tp then - e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,2) - else - e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,1) - end - Duel.RegisterEffect(e1,tp) -end -function c100100154.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnCount()>=e:GetLabel() and Duel.GetTurnPlayer()==tp -end -function c100100154.spop(e,tp,eg,ep,ev,re,r,rp) - local tc1=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local tc2=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5) - if tc2:GetCounter(0x91)>tc1:GetCounter(0x91) then - tc1:RegisterFlagEffect(100100103,RESET_EVENT+RESET_CHAIN,0,1) - tc1:AddCounter(0x91,tc2:GetCounter(0x91)-tc1:GetCounter(0x91)) - end -end \ No newline at end of file diff --git a/script/c100100155.lua b/script/c100100155.lua deleted file mode 100644 index 465cfed1..00000000 --- a/script/c100100155.lua +++ /dev/null @@ -1,25 +0,0 @@ ---スロウダウン・トラップ -function c100100155.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Activate - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_DAMAGE) - e2:SetCondition(c100100155.condition) - e2:SetOperation(c100100155.operation) - c:RegisterEffect(e2) -end -function c100100155.condition(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp and ev>=1000 -end -function c100100155.operation(e,tp,eg,ep,ev,re,r,rp) - local d=math.floor(ev/1000) - local tc=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5) - if tc:GetCounter(0x91)0 and td:GetCounter(0x91)>1 -end -function c100100500.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,1500) end - Duel.PayLPCost(tp,1500) -end -function c100100500.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c100100500.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end diff --git a/script/c100100501.lua b/script/c100100501.lua deleted file mode 100644 index 7a39f73d..00000000 --- a/script/c100100501.lua +++ /dev/null @@ -1,33 +0,0 @@ ---Ｓｐ－リロード -function c100100501.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100501.con) - e1:SetTarget(c100100501.target) - e1:SetOperation(c100100501.activate) - c:RegisterEffect(e1) -end -function c100100501.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>0 -end -function c100100501.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp) - and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c100100501.activate(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetFieldGroup(p,LOCATION_HAND,0) - if g:GetCount()==0 then return end - Duel.SendtoDeck(g,nil,2,REASON_EFFECT) - Duel.ShuffleDeck(p) - Duel.BreakEffect() - Duel.Draw(p,g:GetCount(),REASON_EFFECT) -end diff --git a/script/c100100502.lua b/script/c100100502.lua deleted file mode 100644 index a042951e..00000000 --- a/script/c100100502.lua +++ /dev/null @@ -1,55 +0,0 @@ ---Ｓｐ－リミッター解除 -function c100100502.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetCondition(c100100502.condition) - e1:SetCost(c100100502.cost) - e1:SetTarget(c100100502.target) - e1:SetOperation(c100100502.activate) - c:RegisterEffect(e1) -end -function c100100502.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c100100502.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,6,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,6,REASON_COST) -end -function c100100502.filter(c) - return c:IsFaceup() and c:IsRace(RACE_MACHINE) -end -function c100100502.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100502.filter,tp,LOCATION_MZONE,0,1,nil) end -end -function c100100502.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100100502.filter,tp,LOCATION_MZONE,0,nil) - local c=e:GetHandler() - local tc=sg:GetFirst() - while tc do - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(tc:GetAttack()*2) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetRange(LOCATION_MZONE) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e2:SetCountLimit(1) - e2:SetOperation(c100100502.desop) - tc:RegisterEffect(e2) - tc=sg:GetNext() - end -end -function c100100502.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end diff --git a/script/c100100503.lua b/script/c100100503.lua deleted file mode 100644 index 7fc246e2..00000000 --- a/script/c100100503.lua +++ /dev/null @@ -1,44 +0,0 @@ ---Ｓｐ－融合解除 -function c100100503.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c100100503.target) - e1:SetOperation(c100100503.activate) - c:RegisterEffect(e1) -end -function c100100503.filter(c) - return c:IsFaceup() and c:IsType(TYPE_FUSION) and c:IsAbleToExtra() -end -function c100100503.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local td=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100100503.filter(chk) end - if chk==0 then return Duel.IsExistingTarget(c100100503.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) and td:GetCounter(0x91)>1 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,c100100503.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) -end -function c100100503.mgfilter(c,e,tp,fusc) - return not c:IsControler(tp) or not c:IsLocation(LOCATION_GRAVE) - or bit.band(c:GetReason(),0x40008)~=0x40008 or c:GetReasonCard()~=fusc - or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) or c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c100100503.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - local mg=tc:GetMaterial() - local sumable=true - local sumtype=tc:GetSummonType() - if Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)==0 or bit.band(sumtype,SUMMON_TYPE_FUSION)~=SUMMON_TYPE_FUSION or mg:GetCount()==0 - or mg:GetCount()>Duel.GetLocationCount(tp,LOCATION_MZONE) - or mg:IsExists(c100100503.mgfilter,1,nil,e,tp,tc) then - sumable=false - end - if sumable and Duel.SelectYesNo(tp,aux.Stringid(100100503,0)) then - Duel.BreakEffect() - Duel.SpecialSummon(mg,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c100100504.lua b/script/c100100504.lua deleted file mode 100644 index f13533f9..00000000 --- a/script/c100100504.lua +++ /dev/null @@ -1,46 +0,0 @@ ---Ｓｐ－念動収集機 -function c100100504.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCost(c100100504.cost) - e1:SetTarget(c100100504.sptg) - e1:SetOperation(c100100504.spop) - c:RegisterEffect(e1) -end -function c100100504.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100504.filter(c,e,tp) - return c:IsLevelBelow(2) and c:IsRace(RACE_PSYCHO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100504.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100100504.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c100100504.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c100100504.filter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) - local lv=g:GetSum(Card.GetLevel) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,lv*300) -end -function c100100504.spop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - local og=Duel.GetOperatedGroup() - local lv=og:GetSum(Card.GetLevel) - Duel.BreakEffect() - Duel.Damage(tp,lv*300,REASON_EFFECT) - end -end diff --git a/script/c100100505.lua b/script/c100100505.lua deleted file mode 100644 index 5721f446..00000000 --- a/script/c100100505.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Ｓｐ－トルネード -function c100100505.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100505.condition) - e1:SetTarget(c100100505.target) - e1:SetOperation(c100100505.activate) - c:RegisterEffect(e1) -end -function c100100505.cfilter(c) - return c:GetSequence()~=5 -end -function c100100505.condition(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return Duel.IsExistingMatchingCard(c100100505.cfilter,tp,0,LOCATION_SZONE,3,nil) - and tc:GetCounter(0x91)>1 -end -function c100100505.filter(c) - return c:IsDestructable() and c:GetSequence()~=5 -end -function c100100505.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and c100100505.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100505.filter,tp,0,LOCATION_SZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100100505.filter,tp,0,LOCATION_SZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100100505.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c100100506.lua b/script/c100100506.lua deleted file mode 100644 index c6427b13..00000000 --- a/script/c100100506.lua +++ /dev/null @@ -1,36 +0,0 @@ ---Ｓｐ－月の書 -function c100100506.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_BATTLE_PHASE,0x1c0+TIMING_BATTLE_PHASE) - e1:SetCost(c100100506.cost) - e1:SetTarget(c100100506.target) - e1:SetOperation(c100100506.activate) - c:RegisterEffect(e1) -end -function c100100506.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100506.filter(c) - return c:IsFaceup() and c:IsCanTurnSet() -end -function c100100506.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100100506.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100506.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c100100506.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c100100506.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) - end -end diff --git a/script/c100100507.lua b/script/c100100507.lua deleted file mode 100644 index 91606307..00000000 --- a/script/c100100507.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Ｓｐ－ツイスター -function c100100507.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCondition(c100100507.con) - e1:SetTarget(c100100507.target) - e1:SetOperation(c100100507.activate) - c:RegisterEffect(e1) -end -function c100100507.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100507.filter(c) - return c:IsFaceup() and c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) -end -function c100100507.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c100100507.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100507.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100100507.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100100507.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c100100508.lua b/script/c100100508.lua deleted file mode 100644 index 1a9645cd..00000000 --- a/script/c100100508.lua +++ /dev/null @@ -1,33 +0,0 @@ ---Ｓｐ－連鎖爆撃 -function c100100508.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100508.condition) - e1:SetCost(c100100508.cost) - e1:SetTarget(c100100508.target) - e1:SetOperation(c100100508.activate) - c:RegisterEffect(e1) -end -function c100100508.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentChain()>0 and Duel.CheckChainUniqueness() -end -function c100100508.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100508.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - local dam=Duel.GetCurrentChain()*400 - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c100100508.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c100100509.lua b/script/c100100509.lua deleted file mode 100644 index 45eb0392..00000000 --- a/script/c100100509.lua +++ /dev/null @@ -1,49 +0,0 @@ ---Ｓｐ－スワローズ·ネスト -function c100100509.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetLabel(0) - e1:SetCost(c100100509.cost) - e1:SetTarget(c100100509.target) - e1:SetOperation(c100100509.activate) - c:RegisterEffect(e1) -end -function c100100509.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) - e:SetLabel(100) -end -function c100100509.filter1(c,e,tp) - local lv=c:GetLevel() - return lv>0 and c:IsFaceup() and c:IsRace(RACE_WINDBEAST) - and Duel.IsExistingMatchingCard(c100100509.filter2,tp,LOCATION_DECK,0,1,nil,lv,e,tp) -end -function c100100509.filter2(c,lv,e,tp) - return c:IsRace(RACE_WINDBEAST) and c:GetLevel()==lv and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100509.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if e:GetLabel()~=100 then return false end - e:SetLabel(0) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(tp,c100100509.filter1,1,nil,e,tp) - end - local rg=Duel.SelectReleaseGroup(tp,c100100509.filter1,1,1,nil,e,tp) - e:SetLabel(rg:GetFirst():GetLevel()) - Duel.Release(rg,REASON_COST) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c100100509.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local lv=e:GetLabel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100100509.filter2,tp,LOCATION_DECK,0,1,1,nil,lv,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c100100510.lua b/script/c100100510.lua deleted file mode 100644 index 2cffed40..00000000 --- a/script/c100100510.lua +++ /dev/null @@ -1,65 +0,0 @@ ---Ｓｐ－スケープ·ゴート -function c100100510.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCost(c100100510.cost) - e1:SetTarget(c100100510.target) - e1:SetOperation(c100100510.activate) - c:RegisterEffect(e1) -end -function c100100510.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,4,REASON_COST) and not Duel.CheckSummonActivity(tp) - and not Duel.CheckFlipSummonActivity(tp) and not Duel.CheckSpecialSummonActivity(tp) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,4,REASON_COST) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetLabelObject(e) - e1:SetTarget(c100100510.sumlimit) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e2:SetCode(EFFECT_CANNOT_SUMMON) - e2:SetReset(RESET_PHASE+PHASE_END) - e2:SetTargetRange(1,0) - Duel.RegisterEffect(e2,tp) - local e3=e2:Clone() - e3:SetCode(EFFECT_CANNOT_FLIP_SUMMON) - Duel.RegisterEffect(e3,tp) -end -function c100100510.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) - return e:GetLabelObject()~=se -end -function c100100510.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>3 - and Duel.IsPlayerCanSpecialSummonMonster(tp,73915052,0,0x4011,0,0,1,RACE_BEAST,ATTRIBUTE_EARTH) end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,4,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,4,0,0) -end -function c100100510.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>3 - and Duel.IsPlayerCanSpecialSummonMonster(tp,73915052,0,0x4011,0,0,1,RACE_BEAST,ATTRIBUTE_EARTH) then - for i=1,4 do - local token=Duel.CreateToken(tp,73915051+i) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UNRELEASABLE_SUM) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000) - token:RegisterEffect(e1,true) - end - Duel.SpecialSummonComplete() - end -end diff --git a/script/c100100511.lua b/script/c100100511.lua deleted file mode 100644 index 75801fa8..00000000 --- a/script/c100100511.lua +++ /dev/null @@ -1,49 +0,0 @@ ---Ｓｐ－スクラップ·スコール -function c100100511.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TOGRAVE+CATEGORY_DRAW) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100511.con) - e1:SetTarget(c100100511.target) - e1:SetOperation(c100100511.activate) - c:RegisterEffect(e1) -end -function c100100511.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100511.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0x24) and c:IsDestructable() -end -function c100100511.sfilter(c) - return c:IsSetCard(0x24) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() -end -function c100100511.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c100100511.desfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100511.desfilter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c100100511.sfilter,tp,LOCATION_DECK,0,1,nil) - and Duel.IsPlayerCanDraw(tp,2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100100511.desfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c100100511.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c100100511.sfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - if not g:GetFirst():IsLocation(LOCATION_GRAVE) then return end - Duel.BreakEffect() - Duel.Draw(tp,1,REASON_EFFECT) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.BreakEffect() - Duel.Destroy(tc,REASON_EFFECT) - end - end -end diff --git a/script/c100100512.lua b/script/c100100512.lua deleted file mode 100644 index 8fffad08..00000000 --- a/script/c100100512.lua +++ /dev/null @@ -1,42 +0,0 @@ ---Ｓｐ－収縮 -function c100100512.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100512.condition) - e1:SetCost(c100100512.cost) - e1:SetTarget(c100100512.target) - e1:SetOperation(c100100512.activate) - c:RegisterEffect(e1) -end -function c100100512.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c100100512.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100512.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c100100512.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local atk=tc:GetBaseAttack() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(atk/2) - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c100100513.lua b/script/c100100513.lua deleted file mode 100644 index 27d71f19..00000000 --- a/script/c100100513.lua +++ /dev/null @@ -1,68 +0,0 @@ ---Ｓｐ－終焉の焔 -function c100100513.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCost(c100100513.cost) - e1:SetTarget(c100100513.target) - e1:SetOperation(c100100513.activate) - c:RegisterEffect(e1) -end -function c100100513.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) and not Duel.CheckSummonActivity(tp) - and not Duel.CheckFlipSummonActivity(tp) and not Duel.CheckSpecialSummonActivity(tp) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetLabelObject(e) - e1:SetTargetRange(1,0) - e1:SetTarget(c100100513.sumlimit) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e2:SetCode(EFFECT_CANNOT_SUMMON) - e2:SetReset(RESET_PHASE+PHASE_END) - e2:SetTargetRange(1,0) - Duel.RegisterEffect(e2,tp) - local e3=e2:Clone() - e3:SetCode(EFFECT_CANNOT_FLIP_SUMMON) - Duel.RegisterEffect(e3,tp) -end -function c100100513.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) - return e:GetLabelObject()~=se -end -function c100100513.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsPlayerCanSpecialSummonMonster(tp,46173680,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) - end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) -end -function c100100513.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsPlayerCanSpecialSummonMonster(tp,46173680,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) then - for i=1,2 do - local token=Duel.CreateToken(tp,46173679+i) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UNRELEASABLE_SUM) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(c100100513.recon) - token:RegisterEffect(e1,true) - end - Duel.SpecialSummonComplete() - end -end -function c100100513.recon(e,c) - return not c:IsAttribute(ATTRIBUTE_DARK) -end diff --git a/script/c100100514.lua b/script/c100100514.lua deleted file mode 100644 index 271b166c..00000000 --- a/script/c100100514.lua +++ /dev/null @@ -1,41 +0,0 @@ ---Ｓｐ－死者への供物 -function c100100514.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1c0) - e1:SetCondition(c100100514.con) - e1:SetTarget(c100100514.target) - e1:SetOperation(c100100514.activate) - c:RegisterEffect(e1) -end -function c100100514.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c100100514.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c100100514.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100100514.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100514.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100100514.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100100514.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_SKIP_DP) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_END,3) - Duel.RegisterEffect(e1,tp) -end diff --git a/script/c100100515.lua b/script/c100100515.lua deleted file mode 100644 index f57e9ced..00000000 --- a/script/c100100515.lua +++ /dev/null @@ -1,83 +0,0 @@ ---Ｓｐ－地獄の暴走召喚 -function c100100515.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c100100515.condition) - e1:SetCost(c100100515.cost) - e1:SetTarget(c100100515.target) - e1:SetOperation(c100100515.activate) - c:RegisterEffect(e1) -end -function c100100515.cfilter(c,tp) - return c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) -end -function c100100515.condition(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(c100100515.cfilter,nil,tp) - if g:GetCount()~=1 then return end - local tc=g:GetFirst() - e:SetLabelObject(tc) - return tc:GetAttack()<=1500 and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) -end -function c100100515.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,1,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,1,REASON_COST) -end -function c100100515.filter(c,code,e,tp) - return c:GetCode()==code and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100515.target(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=e:GetLabelObject() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100100515.filter,tp,0x13,0,1,nil,tc:GetCode(),e,tp) end - tc:CreateEffectRelation(e) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,PLAYER_ALL,0x13) -end -function c100100515.selfilter(c) - return c:IsFaceup() and not c:IsType(TYPE_TOKEN+TYPE_TRAP) -end -function c100100515.rmfilter(c) - return c:IsLocation(LOCATION_MZONE) or c:IsLocation(LOCATION_GRAVE) -end -function c100100515.sp(g,tp,pos) - local sc=g:GetFirst() - while sc do - Duel.SpecialSummonStep(sc,0,tp,tp,false,false,pos) - sc=g:GetNext() - end -end -function c100100515.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE) - local gg=Group.CreateGroup() - if ft1>0 and tc:IsFaceup() and tc:IsRelateToEffect(e) then - local g=Duel.GetMatchingGroup(c100100515.filter,tp,0x13,0,nil,tc:GetCode(),e,tp) - if g:GetCount()<=ft1 then c100100515.sp(g,tp,POS_FACEUP_ATTACK) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local fg=g:Select(tp,ft1,ft1,nil) - c100100515.sp(fg,tp,POS_FACEUP_ATTACK) - g:Remove(c100100515.rmfilter,nil) - gg:Merge(g) - end - end - local ft2=Duel.GetLocationCount(1-tp,LOCATION_MZONE) - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_FACEUP) - local sg=Duel.SelectMatchingCard(1-tp,c100100515.selfilter,1-tp,LOCATION_MZONE,0,1,1,nil) - if sg:GetCount()>0 then - local g=Duel.GetMatchingGroup(c100100515.filter,1-tp,0x13,0,nil,sg:GetFirst():GetCode(),e,1-tp) - if g:GetCount()<=ft2 then c100100515.sp(g,1-tp,POS_FACEUP) - else - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON) - local fg=g:Select(1-tp,ft2,ft2,nil) - c100100515.sp(fg,1-tp,POS_FACEUP) - g:Remove(c100100515.rmfilter,nil) - gg:Merge(g) - end - end - Duel.SpecialSummonComplete() - Duel.SendtoGrave(gg,REASON_EFFECT) -end diff --git a/script/c100100516.lua b/script/c100100516.lua deleted file mode 100644 index 566fe873..00000000 --- a/script/c100100516.lua +++ /dev/null @@ -1,36 +0,0 @@ ---Ｓｐ－サイクロン -function c100100516.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE+TIMING_EQUIP) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCost(c100100516.cost) - e1:SetTarget(c100100516.target) - e1:SetOperation(c100100516.activate) - c:RegisterEffect(e1) -end -function c100100516.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100100516.filter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) -end -function c100100516.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c100100516.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100516.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c100100516.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c100100516.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c100100517.lua b/script/c100100517.lua deleted file mode 100644 index 37b59f1f..00000000 --- a/script/c100100517.lua +++ /dev/null @@ -1,55 +0,0 @@ ---Ｓｐ－禁じられた聖杯 -function c100100517.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DISABLE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+0x1c0) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100517.condition) - e1:SetCost(c100100517.cost) - e1:SetTarget(c100100517.target) - e1:SetOperation(c100100517.activate) - c:RegisterEffect(e1) -end -function c100100517.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c100100517.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,1,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,1,REASON_COST) -end -function c100100517.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) -end -function c100100517.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.NegateRelatedChain(tc,RESET_TURN_SET) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(400) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DISABLE_EFFECT) - e3:SetValue(RESET_TURN_SET) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e3) - end -end diff --git a/script/c100100518.lua b/script/c100100518.lua deleted file mode 100644 index bce96d0a..00000000 --- a/script/c100100518.lua +++ /dev/null @@ -1,53 +0,0 @@ ---Ｓｐ－禁じられた聖槍 -function c100100518.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c100100518.condition) - e1:SetCost(c100100518.cost) - e1:SetTarget(c100100518.target) - e1:SetOperation(c100100518.activate) - c:RegisterEffect(e1) -end -function c100100518.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c100100518.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,1,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,1,REASON_COST) -end -function c100100518.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c100100518.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(-800) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_IMMUNE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetValue(c100100518.efilter) - tc:RegisterEffect(e2) - end -end -function c100100518.efilter(e,te) - return te:IsActiveType(TYPE_SPELL+TYPE_TRAP) -end diff --git a/script/c100100519.lua b/script/c100100519.lua deleted file mode 100644 index a5e64da6..00000000 --- a/script/c100100519.lua +++ /dev/null @@ -1,46 +0,0 @@ ---Ｓｐ－緊急テレポート -function c100100519.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100519.cost) - e1:SetTarget(c100100519.target) - e1:SetOperation(c100100519.activate) - c:RegisterEffect(e1) -end -function c100100519.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,4,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,4,REASON_COST) -end -function c100100519.filter(c,e,tp) - return c:IsLevelBelow(3) and c:IsRace(RACE_PSYCHO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c100100519.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100100519.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK+LOCATION_HAND) -end -function c100100519.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100100519.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetOperation(c100100519.rmop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetCountLimit(1) - tc:RegisterEffect(e1) - end -end -function c100100519.rmop(e,tp,eg,ep,ev,re,r,rp) - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT) -end diff --git a/script/c100100520.lua b/script/c100100520.lua deleted file mode 100644 index 44e691dc..00000000 --- a/script/c100100520.lua +++ /dev/null @@ -1,74 +0,0 @@ ---Ｓｐ－エネミーコントローラー -function c100100520.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_BATTLE_PHASE) - e1:SetCondition(c100100520.con) - e1:SetCost(c100100520.cost) - e1:SetTarget(c100100520.target) - e1:SetOperation(c100100520.activate) - c:RegisterEffect(e1) -end -function c100100520.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>2 -end -function c100100520.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(1) - return true -end -function c100100520.filter(c,e) - return c:IsFaceup() and c:IsCanBeEffectTarget(e) -end -function c100100520.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end - if chk==0 then - e:SetLabel(0) - return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) - end - local g=Duel.GetMatchingGroup(c100100520.filter,tp,0,LOCATION_MZONE,nil,e) - local cg=nil - if e:GetLabel()==1 then cg=g:Filter(Card.IsAbleToChangeControler,nil) - else cg=g:Filter(Card.IsControlerCanBeChanged,nil) end - local sel=0 - Duel.Hint(HINT_SELECTMSG,tp,550) - if cg:GetCount()==0 then - sel=Duel.SelectOption(tp,aux.Stringid(100100520,0)) - elseif e:GetLabel()==1 and not Duel.CheckReleaseGroup(tp,nil,1,nil) then - sel=Duel.SelectOption(tp,aux.Stringid(100100520,0)) - else - sel=Duel.SelectOption(tp,aux.Stringid(100100520,0),aux.Stringid(100100520,1)) - if sel==1 and e:GetLabel()==1 then - local rg=Duel.SelectReleaseGroup(tp,nil,1,1,nil) - Duel.Release(rg,REASON_COST) - end - end - if sel==0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) - local sg=g:Select(tp,1,1,nil) - Duel.SetTargetCard(sg) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local sg=cg:Select(tp,1,1,nil) - Duel.SetTargetCard(sg) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) - end - e:SetLabel(sel) -end -function c100100520.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then - if e:GetLabel()==0 then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) - else - if not Duel.GetControl(tc,tp,PHASE_END,1) and not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - end - end -end diff --git a/script/c100100521.lua b/script/c100100521.lua deleted file mode 100644 index d0283d0d..00000000 --- a/script/c100100521.lua +++ /dev/null @@ -1,36 +0,0 @@ ---Ｓｐ－異次元からの埋葬 -function c100100521.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100521.cost) - e1:SetTarget(c100100521.target) - e1:SetOperation(c100100521.activate) - c:RegisterEffect(e1) -end -function c100100521.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,3,REASON_COST) -end -function c100100521.filter(c) - return c:IsFaceup() and c:IsType(TYPE_MONSTER) -end -function c100100521.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_REMOVED) and c100100521.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c100100521.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100100521,0)) - local g=Duel.SelectTarget(tp,c100100521.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,3,nil) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0) -end -function c100100521.activate(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=tg:Filter(Card.IsRelateToEffect,nil,e) - if sg:GetCount()>0 then - Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN) - end -end diff --git a/script/c100100522.lua b/script/c100100522.lua deleted file mode 100644 index 10982e1a..00000000 --- a/script/c100100522.lua +++ /dev/null @@ -1,48 +0,0 @@ ---Ｓｐ－イージーチューニング -function c100100522.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetCondition(c100100522.condition) - e1:SetCost(c100100522.cost) - e1:SetTarget(c100100522.target) - e1:SetOperation(c100100522.activate) - c:RegisterEffect(e1) -end -function c100100522.condition(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 and (Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated()) -end -function c100100522.cfilter(c) - return c:IsType(TYPE_TUNER) and c:IsAbleToRemoveAsCost() -end -function c100100522.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100522.cfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c100100522.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) - local atk=g:GetFirst():GetAttack() - if atk<0 then atk=0 end - e:SetLabel(atk) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c100100522.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) -end -function c100100522.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(e:GetLabel()) - tc:RegisterEffect(e1) - end -end diff --git a/script/c100100525.lua b/script/c100100525.lua deleted file mode 100644 index 7ba3e7ce..00000000 --- a/script/c100100525.lua +++ /dev/null @@ -1,98 +0,0 @@ ---Ｓｐ－シンクロパニック -function c100100525.initial_effect(c) - --draw - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetRange(LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_ONFIELD) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetOperation(c100100525.drop) - c:RegisterEffect(e1) - --activate - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_ACTIVATE) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetCondition(c100100525.con) - e2:SetTarget(c100100525.tg) - e2:SetOperation(c100100525.op) - c:RegisterEffect(e2) -end -function c100100525.sycfilter(c,code) - return c:GetCode()==code -end -function c100100525.drop(e,tp,eg,ep,ev,re,r,rp) - local tg=eg:GetFirst() - if tg:GetSummonType()==SUMMON_TYPE_SYNCHRO then - local code=tg:GetCode() - local syc=Duel.GetMatchingGroup(c100100525.sycfilter,tp,LOCATION_EXTRA+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_ONFIELD,0,nil,code) - local tc=syc:GetFirst() - while tc do - tc:RegisterFlagEffect(100100525,0,0,1) - tc=syc:GetNext() - end - end -end -function c100100525.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>6 -end -function c100100525.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:GetFlagEffect(100100525)~=0 -end -function c100100525.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c100100525.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c100100525.op(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft1<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c100100525.filter,tp,LOCATION_EXTRA,0,ft1,ft1,nil,e,tp) - if g:GetCount()>0 then - local tc=g:GetFirst() - while tc do - Duel.SpecialSummonStep(tc, 0, tp, tp, false, false, POS_FACEUP) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DISABLE_EFFECT) - e3:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e3) - tc:RegisterFlagEffect(100100526,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - tc=g:GetNext() - end - g:KeepAlive() - Duel.SpecialSummonComplete() - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_PHASE+PHASE_END) - e4:SetReset(RESET_PHASE+PHASE_END) - e4:SetCountLimit(1) - e4:SetLabelObject(g) - e4:SetOperation(c100100525.rmop) - Duel.RegisterEffect(e4,tp) - end -end -function c100100525.rmfilter(c) - return c:GetFlagEffect(100100526)>0 -end -function c100100525.rmop(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject() - local tg=g:Filter(c100100525.rmfilter,nil) - g:DeleteGroup() - Duel.Remove(tg,POS_FACEUP,REASON_EFFECT) -end diff --git a/script/c100100700.lua b/script/c100100700.lua deleted file mode 100644 index 19247f86..00000000 --- a/script/c100100700.lua +++ /dev/null @@ -1,30 +0,0 @@ ---Ｓｐ－Wheelie Breaker -function c100100700.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100100700.cost) - e1:SetTarget(c100100700.target) - e1:SetOperation(c100100700.activate) - c:RegisterEffect(e1) -end -function c100100700.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,6,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,6,REASON_COST) -end -function c100100700.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c100100700.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c100100700.filter,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(c100100700.filter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c100100700.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c100100700.filter,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c100101000.lua b/script/c100101000.lua deleted file mode 100644 index dba553a1..00000000 --- a/script/c100101000.lua +++ /dev/null @@ -1,49 +0,0 @@ ---Ｓｐ－高等儀式術 -function c100101000.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100101000.cost) - e1:SetTarget(c100101000.target) - e1:SetOperation(c100101000.activate) - c:RegisterEffect(e1) -end -function c100101000.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,4,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,4,REASON_COST) -end -function c100101000.filter(c,e,tp,m) - return bit.band(c:GetType(),0x81)==0x81 and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) - and m:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,99,c) -end -function c100101000.matfilter(c) - return c:IsType(TYPE_NORMAL) and c:IsAbleToGrave() -end -function c100101000.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return false end - local mg=Duel.GetMatchingGroup(c100101000.matfilter,tp,LOCATION_DECK,0,nil) - return Duel.IsExistingMatchingCard(c100101000.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100101000.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local mg=Duel.GetMatchingGroup(c100101000.matfilter,tp,LOCATION_DECK,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c100101000.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg) - if tg:GetCount()>0 then - local tc=tg:GetFirst() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),1,99,tc) - tc:SetMaterial(mat) - Duel.SendtoGrave(mat,REASON_EFFECT+REASON_MATERIAL+REASON_RITUAL) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end diff --git a/script/c100101001.lua b/script/c100101001.lua deleted file mode 100644 index 99d42344..00000000 --- a/script/c100101001.lua +++ /dev/null @@ -1,91 +0,0 @@ ---Ｓｐ－宣告者の預言 -function c100101001.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c100101001.cost) - e1:SetTarget(c100101001.target) - e1:SetOperation(c100101001.activate) - c:RegisterEffect(e1) - --salvage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetDescription(aux.Stringid(100101001,0)) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(100101001) - e2:SetCost(c100101001.thcost) - e2:SetTarget(c100101001.thtg) - e2:SetOperation(c100101001.thop) - e2:SetLabelObject(e1) - c:RegisterEffect(e2) -end -function c100101001.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if chk==0 then return tc:IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - tc:RemoveCounter(tp,0x91,2,REASON_COST) -end -function c100101001.filter(c,e,tp,m) - local cd=c:GetCode() - if cd~=44665365 or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) then return false end - if m:IsContains(c) then - m:RemoveCard(c) - result=m:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,99,c) - m:AddCard(c) - else - result=m:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,99,c) - end - return result -end -function c100101001.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local mg=Duel.GetRitualMaterial(tp) - return Duel.IsExistingMatchingCard(c100101001.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c100101001.activate(e,tp,eg,ep,ev,re,r,rp) - local mg=Duel.GetRitualMaterial(tp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c100101001.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg) - if tg:GetCount()>0 then - local tc=tg:GetFirst() - mg:RemoveCard(tc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),1,99,tc) - tc:SetMaterial(mat) - Duel.ReleaseRitualMaterial(mat) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - e:SetLabelObject(tc) - Duel.RaiseSingleEvent(e:GetHandler(),100101001,e,0,tp,tp,0) - end -end -function c100101001.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsAbleToRemove() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c100101001.thfilter(c) - return c:IsLocation(LOCATION_GRAVE) and c:IsAbleToHand() -end -function c100101001.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tc=e:GetLabelObject():GetLabelObject() - local mat=tc:GetMaterial() - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and mat:IsContains(chkc) end - if chk==0 then return mat:IsExists(c100101001.thfilter,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=mat:FilterSelect(tp,c100101001.thfilter,1,1,nil) - Duel.SetTargetCard(g) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c100101001.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c100101002.lua b/script/c100101002.lua deleted file mode 100644 index 84d293d4..00000000 --- a/script/c100101002.lua +++ /dev/null @@ -1,8 +0,0 @@ ---Ｓｐ－大地讃頌 -function c100101002.initial_effect(c) - aux.AddRitualProcEqual(c,c100101002.ritual_filter) -end -function c100101002.ritual_filter(c) - return c:IsType(TYPE_RITUAL) and c:IsAttribute(ATTRIBUTE_EARTH) - and Duel.GetFieldCard(Duel.GetTurnPlayer(),LOCATION_SZONE,5):GetCounter(0x91)>1 -end diff --git a/script/c100101003.lua b/script/c100101003.lua deleted file mode 100644 index 865a7784..00000000 --- a/script/c100101003.lua +++ /dev/null @@ -1,8 +0,0 @@ ---Ｓｐ－奈落との契約 -function c100101003.initial_effect(c) - aux.AddRitualProcEqual(c,c100101003.ritual_filter) -end -function c100101003.ritual_filter(c) - return c:IsType(TYPE_RITUAL) and c:IsAttribute(ATTRIBUTE_DARK) - and Duel.GetFieldCard(Duel.GetTurnPlayer(),LOCATION_SZONE,5):GetCounter(0x91)>1 -end diff --git a/script/c10012614.lua b/script/c10012614.lua index 37fe2e83..5152ebf0 100644 --- a/script/c10012614.lua +++ b/script/c10012614.lua @@ -18,5 +18,5 @@ end function c10012614.con(e) local ph=Duel.GetCurrentPhase() local tp=Duel.GetTurnPlayer() - return tp==e:GetHandlerPlayer() and (ph==PHASE_BATTLE or ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) + return tp==e:GetHandlerPlayer() and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE end diff --git a/script/c10026986.lua b/script/c10026986.lua index 9287a770..0a9e4abf 100644 --- a/script/c10026986.lua +++ b/script/c10026986.lua @@ -43,10 +43,10 @@ function c10026986.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(sg,REASON_COST) end function c10026986.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c10026986.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c10032958.lua b/script/c10032958.lua index 36cbd280..f62beff3 100644 --- a/script/c10032958.lua +++ b/script/c10032958.lua @@ -1,6 +1,6 @@ --神竜－エクセリオン function c10032958.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(10032958,0)) e1:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) diff --git a/script/c10035717.lua b/script/c10035717.lua index d53631e8..85b82e61 100644 --- a/script/c10035717.lua +++ b/script/c10035717.lua @@ -40,7 +40,7 @@ function c10035717.adop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then local atk=tc:GetAttack() - local def=tc:GetDefence() + local def=tc:GetDefense() local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK_FINAL) @@ -49,7 +49,7 @@ function c10035717.adop(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetValue(atk) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,2) tc:RegisterEffect(e2) diff --git a/script/c100514013.lua b/script/c100514013.lua deleted file mode 100644 index 0746bb51..00000000 --- a/script/c100514013.lua +++ /dev/null @@ -1,91 +0,0 @@ ---護封剣の剣士 -function c100514013.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(100514013,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c100514013.spcon) - e1:SetTarget(c100514013.sptg) - e1:SetOperation(c100514013.spop) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(100514013,1)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c100514013.condition) - e2:SetTarget(c100514013.target) - e2:SetOperation(c100514013.operation) - c:RegisterEffect(e2) - --effect gain - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_BE_MATERIAL) - e3:SetCondition(c100514013.efcon) - e3:SetOperation(c100514013.efop) - c:RegisterEffect(e3) -end -function c100514013.spcon(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttacker() - return at:GetControler()~=tp and Duel.GetAttackTarget()==nil -end -function c100514013.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.ConfirmCards(1-tp,c) - Duel.ShuffleHand(tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) -end -function c100514013.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP) - end -end -function c100514013.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 -end -function c100514013.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tc=Duel.GetAttacker() - if chk==0 then return tc and tc:IsFaceup() and tc:IsDestructable() and c:GetDefence()>tc:GetAttack() end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) -end -function c100514013.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetAttacker() - if tc then Duel.Destroy(tc,REASON_EFFECT) end -end -function c100514013.efcon(e,tp,eg,ep,ev,re,r,rp) - return r==REASON_XYZ -end -function c100514013.efop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local rc=c:GetReasonCard() - --battle des rep - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DESTROY_REPLACE) - e1:SetCountLimit(1) - e1:SetTarget(c100514013.reptg) - e1:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e1) - if not rc:IsType(TYPE_EFFECT) then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CHANGE_TYPE) - e2:SetValue(TYPE_MONSTER+TYPE_EFFECT+TYPE_XYZ) - e2:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e2) - end -end -function c100514013.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReason(REASON_BATTLE) end - return true -end - diff --git a/script/c1005587.lua b/script/c1005587.lua old mode 100755 new mode 100644 index e6b6cae9..998949ce --- a/script/c1005587.lua +++ b/script/c1005587.lua @@ -10,7 +10,7 @@ function c1005587.initial_effect(c) c:RegisterEffect(e1) end function c1005587.filter(c,tp) - return c:IsFaceup() and c:IsType(TYPE_EFFECT) and c:IsAttackAbove(2000) and c:GetSummonPlayer()==tp and c:IsDestructable() and not c:IsDisabled() + return c:IsFaceup() and c:IsType(TYPE_EFFECT) and c:IsAttackAbove(2000) and c:GetSummonPlayer()==tp and not c:IsDisabled() end function c1005587.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end @@ -21,7 +21,7 @@ function c1005587.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c1005587.filter2(c,e,tp) return c:IsFaceup() and c:IsType(TYPE_EFFECT) and c:IsAttackAbove(2000) - and c:GetSummonPlayer()==tp and c:IsDestructable() and c:IsRelateToEffect(e) + and c:GetSummonPlayer()==tp and c:IsRelateToEffect(e) end function c1005587.activate(e,tp,eg,ep,ev,re,r,rp) local g=eg:Filter(c1005587.filter2,nil,e,1-tp) diff --git a/script/c10060427.lua b/script/c10060427.lua index 5871597f..73a3e336 100644 --- a/script/c10060427.lua +++ b/script/c10060427.lua @@ -45,6 +45,8 @@ function c10060427.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_WARRIOR) and not c:IsPublic() end function c10060427.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c10060427.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c10060427.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -54,8 +56,10 @@ function c10060427.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(10060427,0),aux.Stringid(10060427,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(10060427,1),aux.Stringid(10060427,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(10060427,1),aux.Stringid(10060427,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(10060427,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -67,7 +71,7 @@ function c10060427.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c10060427.otfilter(c,tp) @@ -95,10 +99,10 @@ function c10060427.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c10060427.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,2,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,2,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c10060427.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c1006081.lua b/script/c1006081.lua new file mode 100644 index 00000000..2173f495 --- /dev/null +++ b/script/c1006081.lua @@ -0,0 +1,50 @@ +--ジャンク・チェンジャー +function c1006081.initial_effect(c) + --lv up + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(1006081,0)) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e1:SetCountLimit(1,1006081) + e1:SetTarget(c1006081.target) + e1:SetOperation(c1006081.operation) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) +end +function c1006081.filter(c) + return c:IsFaceup() and c:GetLevel()>0 and c:IsSetCard(0x43) +end +function c1006081.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and c1006081.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c1006081.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,c1006081.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local op=0 + Duel.Hint(HINT_SELECTMSG,tp,550) + if g:GetFirst():GetLevel()==1 then + op=Duel.SelectOption(tp,aux.Stringid(1006081,1)) + else + op=Duel.SelectOption(tp,aux.Stringid(1006081,1),aux.Stringid(1006081,2)) + end + e:SetLabel(op) +end +function c1006081.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_LEVEL) + e1:SetReset(RESET_EVENT+0x1fe0000) + if e:GetLabel()==0 then + e1:SetValue(1) + else + e1:SetValue(-1) + end + tc:RegisterEffect(e1) + end +end diff --git a/script/c10080320.lua b/script/c10080320.lua index 1741f98f..54614c49 100644 --- a/script/c10080320.lua +++ b/script/c10080320.lua @@ -16,6 +16,6 @@ function c10080320.initial_effect(c) c:RegisterEffect(e2) --Def local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end diff --git a/script/c10097168.lua b/script/c10097168.lua index df341c26..946bdadf 100644 --- a/script/c10097168.lua +++ b/script/c10097168.lua @@ -31,10 +31,10 @@ function c10097168.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE and e:GetLabel()==1 end function c10097168.filter(c) - return c:IsFacedown() and c:GetSequence()~=5 and c:IsDestructable() + return c:IsFacedown() and c:GetSequence()~=5 end function c10097168.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end + if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) end if chk==0 then return Duel.IsExistingTarget(c10097168.filter,tp,0,LOCATION_SZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local g=Duel.SelectTarget(tp,c10097168.filter,tp,0,LOCATION_SZONE,1,2,nil) diff --git a/script/c101000001.lua b/script/c101000001.lua deleted file mode 100644 index f74e63cb..00000000 --- a/script/c101000001.lua +++ /dev/null @@ -1,45 +0,0 @@ ---SNo.39 希望皇ホープONE -function c101000001.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_LIGHT),4),3,c101000001.ovfilter,aux.Stringid(101000001,1)) - c:EnableReviveLimit() - --attack up - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetDescription(aux.Stringid(101000001,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c101000001.condition) - e1:SetCost(c101000001.cost) - e1:SetTarget(c101000001.target) - e1:SetOperation(c101000001.operation) - c:RegisterEffect(e1) -end -function c101000001.ovfilter(c) - return c:IsFaceup() and c:IsCode(84013237) -end -function c101000001.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetLP(tp)+3000<=Duel.GetLP(1-tp) -end -function c101000001.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLP(tp)>10 and e:GetHandler():CheckRemoveOverlayCard(tp,3,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,3,3,REASON_COST) - local lp=Duel.GetLP(tp) - Duel.PayLPCost(tp,lp-10) -end -function c101000001.filter(c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL and c:IsDestructable() -end -function c101000001.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c101000001.filter,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(c101000001.filter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c101000001.operation(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c101000001.filter,tp,0,LOCATION_MZONE,nil) - local ct=Duel.Destroy(sg,REASON_EFFECT,LOCATION_REMOVED) - if ct>0 then - Duel.Damage(1-tp,ct*300,REASON_EFFECT) - end -end - diff --git a/script/c101000002.lua b/script/c101000002.lua deleted file mode 100644 index 1d5fd5b4..00000000 --- a/script/c101000002.lua +++ /dev/null @@ -1,106 +0,0 @@ ---SZW-天聖輝狼剣 -function c101000002.initial_effect(c) - --equip - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(101000002,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c101000002.eqcon) - e1:SetTarget(c101000002.eqtg) - e1:SetOperation(c101000002.eqop) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(101000002,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e2:SetTarget(c101000002.sptg) - e2:SetOperation(c101000002.spop) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BATTLE_DESTROYING) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c101000002.thcon) - e3:SetTarget(c101000002.thtg) - e3:SetOperation(c101000002.thop) - c:RegisterEffect(e3) -end -function c101000002.eqcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():CheckUniqueOnField(tp) -end -function c101000002.filter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) -end -function c101000002.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c101000002.filter(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c101000002.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c101000002.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c101000002.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) or c:IsFacedown() then return end - local tc=Duel.GetFirstTarget() - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:GetControler()~=tp or tc:IsFacedown() or not tc:IsRelateToEffect(e) or not c:CheckUniqueOnField(tp) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - Duel.Equip(tp,c,tc,true) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c101000002.eqlimit) - c:RegisterEffect(e1) -end -function c101000002.eqlimit(e,c) - return c:IsSetCard(0x7f) -end -function c101000002.filter2(c,e,tp) - return c:IsFaceup() and c:IsSetCard(0x7e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c101000002.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) - and chkc:IsControler(tp) and c101000002.filter2(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c101000002.filter2,tp,LOCATION_SZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - Duel.SelectTarget(tp,c101000002.filter2,tp,LOCATION_SZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c101000002.spop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end -function c101000002.thcon(e,tp,eg,ep,ev,re,r,rp) - local ec=eg:GetFirst() - local bc=ec:GetBattleTarget() - return e:GetHandler():GetEquipTarget()==eg:GetFirst() and ec:IsControler(tp) - and bc:IsLocation(LOCATION_GRAVE) and bc:IsReason(REASON_BATTLE) -end -function c101000002.tgfilter(c) - return c:IsSetCard(0x7e) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c101000002.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:GetControler()==tp and c101000002.tgfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c101000002.tgfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c101000002.tgfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c101000002.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end \ No newline at end of file diff --git a/script/c101000003.lua b/script/c101000003.lua deleted file mode 100644 index b605a879..00000000 --- a/script/c101000003.lua +++ /dev/null @@ -1,50 +0,0 @@ ---ゴゴゴゴラム -function c101000003.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(101000003,0)) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetOperation(c101000003.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - --send to grave - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(101000003,0)) - e4:SetCategory(CATEGORY_TOGRAVE) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetCondition(c101000003.condition) - e4:SetTarget(c101000003.target) - e4:SetOperation(c101000003.operation2) - c:RegisterEffect(e4) -end -function c101000003.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) - end -end -function c101000003.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsReason(REASON_DESTROY) -end -function c101000003.tgfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x59) and c:IsAbleToGrave() -end -function c101000003.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c101000003.tgfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c101000003.operation2(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c101000003.tgfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - end -end diff --git a/script/c101000004.lua b/script/c101000004.lua deleted file mode 100644 index 7f879d3a..00000000 --- a/script/c101000004.lua +++ /dev/null @@ -1,54 +0,0 @@ ---ドドドドライバー -function c101000004.initial_effect(c) - --ss success - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c101000004.retcon) - e1:SetOperation(c101000004.retop) - c:RegisterEffect(e1) -end -function c101000004.retcon(e,tp,eg,ep,ev,re,r,rp) - if not re then return false end - return re:GetHandler():IsSetCard(0x82) -end -function c101000004.retop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(2) - e1:SetTarget(c101000004.target) - e1:SetOperation(c101000004.operation) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) -end -function c101000004.filter(c) - return c:IsFaceup() and c:IsSetCard(0x82) and c:IsLevelAbove(1) -end -function c101000004.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c101000004.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c101000004.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c101000004.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - local tc=g:GetFirst() - local op=0 - if tc:GetLevel()==1 then op=Duel.SelectOption(tp,aux.Stringid(101000004,0)) - else op=Duel.SelectOption(tp,aux.Stringid(101000004,0),aux.Stringid(101000004,1)) end - e:SetLabel(op) -end -function c101000004.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetReset(RESET_EVENT+0x1fe0000) - if e:GetLabel()==0 then - e1:SetValue(1) - else e1:SetValue(-1) end - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c101000005.lua b/script/c101000005.lua deleted file mode 100644 index 1c7d583e..00000000 --- a/script/c101000005.lua +++ /dev/null @@ -1,39 +0,0 @@ ---エクシーズ・チェンジ・タクティクス -function c101000005.initial_effect(c) - c:SetUniqueOnField(1,0,101000005) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --draw - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(101000005,0)) - e2:SetCategory(CATEGORY_DRAW) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c101000005.drcon) - e2:SetTarget(c101000005.drtg) - e2:SetOperation(c101000005.drop) - c:RegisterEffect(e2) -end -function c101000005.drcon(e,tp,eg,ep,ev,re,r,rp) - local tg=eg:GetFirst() - return tg:IsSetCard(0x7f) and tg:GetSummonType()==SUMMON_TYPE_XYZ - and tg:IsControler(tp) -end -function c101000005.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) - and Duel.CheckLPCost(tp,500) end - Duel.PayLPCost(tp,500) - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c101000005.drop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) or e:GetHandler():IsFacedown() then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c10110717.lua b/script/c10110717.lua index ff60506e..30d0991b 100644 --- a/script/c10110717.lua +++ b/script/c10110717.lua @@ -25,7 +25,7 @@ function c10110717.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c10110717.filter(c,e,tp) - return c:IsCode(10110717) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENCE) + return c:IsCode(10110717) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) end function c10110717.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -37,7 +37,7 @@ function c10110717.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c10110717.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,g) end end diff --git a/script/c10117149.lua b/script/c10117149.lua index 2354a263..1fd1881f 100644 --- a/script/c10117149.lua +++ b/script/c10117149.lua @@ -7,9 +7,8 @@ function c10117149.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_PZONE) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetTargetRange(1,0) - e2:SetCondition(aux.nfbdncon) e2:SetTarget(c10117149.splimit) c:RegisterEffect(e2) --destroy @@ -48,7 +47,7 @@ function c10117149.splimit(e,c,tp,sumtp,sumpos) return not c:IsSetCard(0xab) and bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM end function c10117149.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c10117149.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c10117149.desfilter(chkc) end diff --git a/script/c10132124.lua b/script/c10132124.lua index 2b2d05b4..e4b8f3cc 100644 --- a/script/c10132124.lua +++ b/script/c10132124.lua @@ -26,7 +26,10 @@ function c10132124.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c10132124.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c10178757.lua b/script/c10178757.lua old mode 100755 new mode 100644 index bdc1de4d..937bca31 --- a/script/c10178757.lua +++ b/script/c10178757.lua @@ -34,7 +34,9 @@ function c10178757.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c10178757.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c10194329.lua b/script/c10194329.lua new file mode 100644 index 00000000..306c23c7 --- /dev/null +++ b/script/c10194329.lua @@ -0,0 +1,41 @@ +--RR－アベンジ・ヴァルチャー +function c10194329.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_DAMAGE) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c10194329.condition) + e1:SetTarget(c10194329.target) + e1:SetOperation(c10194329.operation) + c:RegisterEffect(e1) +end +function c10194329.condition(e,tp,eg,ep,ev,re,r,rp) + return ep==tp and bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 +end +function c10194329.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c10194329.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetTarget(c10194329.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c10194329.splimit(e,c,sump,sumtype,sumpos,targetp,se) + return not c:IsSetCard(0xba) and c:IsLocation(LOCATION_EXTRA) +end diff --git a/script/c10239627.lua b/script/c10239627.lua index 9bfdce81..f5d3b440 100644 --- a/script/c10239627.lua +++ b/script/c10239627.lua @@ -1,6 +1,6 @@ --マジカル・アブダクター function c10239627.initial_effect(c) - c:EnableCounterPermit(0x3001,LOCATION_PZONE+LOCATION_MZONE) + c:EnableCounterPermit(0x1,LOCATION_PZONE+LOCATION_MZONE) --pendulum summon aux.EnablePendulumAttribute(c) --add counter @@ -43,12 +43,12 @@ function c10239627.initial_effect(c) end function c10239627.acop(e,tp,eg,ep,ev,re,r,rp) if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c10239627.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x3001,3,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x3001,3,REASON_COST) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,3,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1,3,REASON_COST) end function c10239627.thfilter1(c) return c:IsType(TYPE_PENDULUM) and c:IsAbleToHand() @@ -82,5 +82,5 @@ function c10239627.thop2(e,tp,eg,ep,ev,re,r,rp) end end function c10239627.atkval(e,c) - return e:GetHandler():GetCounter(0x3001)*100 + return e:GetHandler():GetCounter(0x1)*100 end diff --git a/script/c102700.lua b/script/c102700.lua deleted file mode 100644 index ca81ad64..00000000 --- a/script/c102700.lua +++ /dev/null @@ -1,46 +0,0 @@ ---マスク・チェンジ・セカンド -function c102700.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,102700+EFFECT_COUNT_CODE_OATH) - e1:SetCost(c102700.cost) - e1:SetTarget(c102700.target) - e1:SetOperation(c102700.activate) - c:RegisterEffect(e1) -end -function c102700.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c102700.tfilter(c,att,level,e,tp) - return c:IsSetCard(0xa008) and c:IsAttribute(att) and c:GetLevel()>level and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c102700.filter(c,e,tp) - return c:IsFaceup() and not c:IsType(TYPE_XYZ) - and Duel.IsExistingMatchingCard(c102700.tfilter,tp,LOCATION_EXTRA,0,1,nil,c:GetAttribute(),c:GetLevel(),e,tp) -end -function c102700.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c102700.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c102700.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectTarget(tp,c102700.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c102700.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - local att=tc:GetAttribute() - if Duel.SendtoGrave(tc,REASON_EFFECT)==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=Duel.SelectMatchingCard(tp,c102700.tfilter,tp,LOCATION_EXTRA,0,1,1,nil,att,tc:GetLevel(),e,tp) - if sg:GetCount()>0 then - Duel.BreakEffect() - Duel.SpecialSummon(sg,0,tp,tp,true,false,POS_FACEUP) - sg:GetFirst():CompleteProcedure() - end -end diff --git a/script/c102701.lua b/script/c102701.lua deleted file mode 100644 index 51d13c33..00000000 --- a/script/c102701.lua +++ /dev/null @@ -1,86 +0,0 @@ ----Ｅ・ＨＥＲＯ シャドー・ミスト -function c102701.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(102701,0)) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCountLimit(1,102701) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c102701.thcon) - e1:SetCost(c102701.thcos) - e1:SetTarget(c102701.thtg1) - e1:SetOperation(c102701.thop1) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(102701,1)) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCountLimit(1,102701) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c102701.thcon) - e2:SetCost(c102701.thcos) - e2:SetTarget(c102701.thtg2) - e2:SetOperation(c102701.thop2) - c:RegisterEffect(e2) -end -function c102701.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return Duel.GetFlagEffect(tp,102701)==0 -end -function c102701.thcos(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetFlagEffect(tp,102701)==0 end - Duel.RegisterFlagEffect(tp,102701,RESET_PHASE+PHASE_END,0,1) -end -function c102701.thfilter1(c) - return c:IsAbleToHand() - and c:IsType(TYPE_SPELL) and c:IsType(TYPE_QUICKPLAY) - and c:IsSetCard(0xb0) -end -function c102701.thtg1(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingMatchingCard(c102701.thfilter1,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(tp,CATEGORY_TOHAND+CATEGORY_SEARCH,nil,1,tp,LOCATION_DECK) -end -function c102701.thop1(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c102701.thfilter1,tp,LOCATION_DECK,0,nil) - if g:GetCount()>0 then - local tg=g:Select(tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - Duel.ShuffleHand(tp) - end -end -function c102701.thfilter2(c) - return c:IsAbleToHand() - and c:IsSetCard(0x8) - and c:GetCode()~=102701 -end -function c102701.thtg2(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingMatchingCard(c102701.thfilter2,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(tp,CATEGORY_TOHAND+CATEGORY_SEARCH,nil,1,tp,LOCATION_DECK) -end -function c102701.thop2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c102701.thfilter2,tp,LOCATION_DECK,0,nil) - if g:GetCount()>0 then - local tg=g:Select(tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - Duel.ShuffleHand(tp) - end -end diff --git a/script/c102719.lua b/script/c102719.lua deleted file mode 100644 index 113733f7..00000000 --- a/script/c102719.lua +++ /dev/null @@ -1,53 +0,0 @@ ----フォーム・チェンジ -function c102719.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(102719,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c102719.target) - e1:SetOperation(c102719.operation) - c:RegisterEffect(e1) -end -function c102719.filter1(c,e,tp) - local lv=c:GetOriginalLevel() - local code=c:GetCode() - return c:IsAbleToDeck() - and c:IsSetCard(0x8) - and c:IsType(TYPE_MONSTER) - and c:IsType(TYPE_FUSION) - and Duel.IsExistingMatchingCard(c102719.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp,lv,code) -end -function c102719.filter2(c,e,tp,lv,code) - return c:IsCanBeSpecialSummoned(e,0,tp,true,false) - and c:GetCode()~=code - and c:GetLevel()==lv - and c:IsSetCard(0xa008) -end -function c102719.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingTarget(c102719.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end - local g=Duel.SelectTarget(tp,c102719.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(tp,CATEGORY_TODECK,g,1,tp,LOCATION_MZONE) - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c102719.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsAbleToDeck() then - local lv=tc:GetOriginalLevel() - local code=tc:GetCode() - if Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)~=0 then - local g=Duel.GetMatchingGroup(c102719.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,lv,code) - if g:GetCount()>0 then - local tg=g:Select(tp,1,1,nil) - local sc=tg:GetFirst() - Duel.SpecialSummon(sc,0,tp,tp,true,false,POS_FACEUP) - end - end - end -end diff --git a/script/c102744.lua b/script/c102744.lua deleted file mode 100644 index 1cba917c..00000000 --- a/script/c102744.lua +++ /dev/null @@ -1,55 +0,0 @@ ---M·HERO ダーク・ロウ -function c102744.initial_effect(c) - c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --remove - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE) - e2:SetCode(EFFECT_TO_GRAVE_REDIRECT) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(LOCATION_REMOVED) - e2:SetTarget(c102744.rmtarget) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_REMOVE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DELAY) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_TO_HAND) - e3:SetCountLimit(1) - e3:SetCondition(c102744.condition) - e3:SetTarget(c102744.target) - e3:SetOperation(c102744.operation) - c:RegisterEffect(e3) -end -function c102744.rmtarget(e,c) - return c:GetOwner()~=e:GetHandler():GetControler() -end -function c102744.cfilter(c,tp) - return c:IsControler(tp) and c:IsPreviousLocation(LOCATION_DECK) -end -function c102744.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DRAW and eg:IsExists(c102744.cfilter,1,nil,1-tp) -end -function c102744.target(e,tp,eg,ep,ev,re,r,rp,chk) - local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND) - if chk==0 then return g:IsExists(Card.IsAbleToRemove,1,nil) end - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_HAND) -end -function c102744.operation(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetFieldGroup(p,0,LOCATION_HAND) - if g:GetCount()>0 then - local sg=g:RandomSelect(tp,1) - Duel.Remove(sg,POS_FACEUP,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c10282757.lua b/script/c10282757.lua index 5f11a33b..78984a1d 100644 --- a/script/c10282757.lua +++ b/script/c10282757.lua @@ -18,7 +18,7 @@ function c10282757.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_PHASE+PHASE_END) Duel.RegisterEffect(e1,tp) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) Duel.RegisterEffect(e2,tp) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_FIELD) diff --git a/script/c1033312.lua b/script/c1033312.lua old mode 100755 new mode 100644 diff --git a/script/c10352095.lua b/script/c10352095.lua index c99689cd..ead9823b 100644 --- a/script/c10352095.lua +++ b/script/c10352095.lua @@ -28,9 +28,9 @@ function c10352095.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.Hint(HINT_SELECTMSG,tp,563) - local rc=Duel.AnnounceAttribute(tp,1,0xffffff) + local rc=Duel.AnnounceAttribute(tp,1,0xff-g:GetFirst():GetAttribute()) e:GetLabelObject():SetLabel(rc) e:GetHandler():SetHint(CHINT_ATTRIBUTE,rc) Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) diff --git a/script/c10365322.lua b/script/c10365322.lua index 8210347f..0ca54dae 100644 --- a/script/c10365322.lua +++ b/script/c10365322.lua @@ -19,10 +19,10 @@ function c10365322.descon(e,tp,eg,ep,ev,re,r,rp) return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION end function c10365322.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) g:AddCard(e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0) diff --git a/script/c10383554.lua b/script/c10383554.lua index e1062af8..b9f5140e 100644 --- a/script/c10383554.lua +++ b/script/c10383554.lua @@ -32,7 +32,7 @@ function c10383554.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RegisterEffect(e1) end function c10383554.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c10383554.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c10383554.filter(chkc) end diff --git a/script/c10389142.lua b/script/c10389142.lua index e86f0664..3457a042 100644 --- a/script/c10389142.lua +++ b/script/c10389142.lua @@ -32,12 +32,14 @@ function c10389142.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsPlayerCanSpecialSummonMonster(tp,10389143,0,0x4011,2000,0,6,RACE_MACHINE,ATTRIBUTE_WIND) end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,ft,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,ft,0,0) end function c10389142.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,10389143,0,0x4011,2000,0,6,RACE_MACHINE,ATTRIBUTE_WIND) then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local fid=e:GetHandler():GetFieldID() local g=Group.CreateGroup() for i=1,ft do diff --git a/script/c10389794.lua b/script/c10389794.lua index efd7111a..f1c760cc 100644 --- a/script/c10389794.lua +++ b/script/c10389794.lua @@ -10,7 +10,7 @@ function c10389794.initial_effect(c) c:RegisterEffect(e1) end function c10389794.filter(c) - return c:IsFaceup() and c:IsDestructable() and (c:GetBaseAttack()==0 or c:GetBaseDefence()==0) + return c:IsFaceup() and (c:GetBaseAttack()==0 or c:GetBaseDefense()==0) end function c10389794.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c10406322.lua b/script/c10406322.lua old mode 100755 new mode 100644 diff --git a/script/c10441498.lua b/script/c10441498.lua new file mode 100644 index 00000000..fd09e791 --- /dev/null +++ b/script/c10441498.lua @@ -0,0 +1,80 @@ +--輝神鳥ヴェーヌ +function c10441498.initial_effect(c) + c:EnableReviveLimit() + --change level + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(10441498,0)) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c10441498.lvtg) + e1:SetOperation(c10441498.lvop) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(10441498,1)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_RELEASE) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e2:SetCountLimit(1) + e2:SetCondition(c10441498.thcon) + e2:SetTarget(c10441498.thtg) + e2:SetOperation(c10441498.thop) + c:RegisterEffect(e2) +end +function c10441498.cfilter(c,tp) + return c:IsLevelAbove(1) and not c:IsPublic() and Duel.IsExistingTarget(c10441498.lvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,c:GetLevel()) +end +function c10441498.lvfilter(c,lv) + return c:IsFaceup() and c:IsLevelAbove(1) and c:GetLevel()~=lv +end +function c10441498.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and c10441498.lvfilter(chkc,e:GetLabel()) end + if chk==0 then return Duel.IsExistingTarget(c10441498.cfilter,tp,LOCATION_HAND,0,1,nil,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) + local cg=Duel.SelectMatchingCard(tp,c10441498.cfilter,tp,LOCATION_HAND,0,1,1,nil,tp) + Duel.ConfirmCards(1-tp,cg) + Duel.ShuffleHand(tp) + local lv=cg:GetFirst():GetLevel() + e:SetLabel(lv) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,c10441498.lvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,lv) +end +function c10441498.lvop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + local lv=e:GetLabel() + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CHANGE_LEVEL) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetValue(lv) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + end +end +function c10441498.thfilter2(c,tp) + return c:IsType(TYPE_MONSTER) and c:IsPreviousLocation(LOCATION_ONFIELD+LOCATION_HAND) and c:GetPreviousControler()==tp +end +function c10441498.thcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c10441498.thfilter2,1,e:GetHandler(),tp) +end +function c10441498.thfilter(c) + return c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c10441498.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c10441498.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c10441498.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c10441498.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c10441498.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c10449150.lua b/script/c10449150.lua index 8c5b6ea2..851cf9b5 100644 --- a/script/c10449150.lua +++ b/script/c10449150.lua @@ -52,8 +52,11 @@ function c10449150.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) end function c10449150.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),1,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c10449150.damcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c1045143.lua b/script/c1045143.lua index c2466afb..da734874 100644 --- a/script/c1045143.lua +++ b/script/c1045143.lua @@ -15,7 +15,6 @@ function c1045143.initial_effect(c) end function c1045143.filter(c,e,tp) return c:IsSetCard(0x72) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c1045143.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -26,7 +25,7 @@ function c1045143.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c1045143.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c10526791.lua b/script/c10526791.lua old mode 100755 new mode 100644 diff --git a/script/c10530913.lua b/script/c10530913.lua index 0363071f..009394b4 100644 --- a/script/c10530913.lua +++ b/script/c10530913.lua @@ -44,8 +44,11 @@ function c10530913.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c10530913.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c10530913.target(e,tp,eg,ep,ev,re,r,rp,chk) @@ -65,7 +68,7 @@ function c10530913.operation(e,tp,eg,ep,ev,re,r,rp) end function c10530913.thcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_DECK) and (c:IsReason(REASON_REVEAL) or c:GetPreviousPosition()==POS_FACEUP_DEFENCE) + return c:IsPreviousLocation(LOCATION_DECK) and c:IsReason(REASON_REVEAL) end function c10530913.thfilter(c) return c:IsSetCard(0x90) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() diff --git a/script/c10532969.lua b/script/c10532969.lua index aab884e1..f5a9180f 100644 --- a/script/c10532969.lua +++ b/script/c10532969.lua @@ -15,14 +15,11 @@ end function c10532969.condition(e,tp,eg,ep,ev,re,r,rp) return ep~=tp end -function c10532969.filter(c) - return c:IsDestructable() -end function c10532969.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c10532969.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c10532969.filter,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c10532969.filter,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c10532969.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c10591919.lua b/script/c10591919.lua index bb216e28..537a3dc3 100644 --- a/script/c10591919.lua +++ b/script/c10591919.lua @@ -52,5 +52,5 @@ function c10591919.desop(e,tp,eg,ep,ev,re,r,rp) Duel.Destroy(e:GetHandler(),REASON_EFFECT) end function c10591919.cond(e) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end diff --git a/script/c106001001.lua b/script/c106001001.lua deleted file mode 100644 index fbc6011b..00000000 --- a/script/c106001001.lua +++ /dev/null @@ -1,52 +0,0 @@ ---ダブルフィン・シャーク -function c106001001.initial_effect(c) - --summon success - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(106001001,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c106001001.sptg) - e2:SetOperation(c106001001.spop) - c:RegisterEffect(e2) -end -function c106001001.spfilter(c,e,tp) - local lv=c:GetLevel() - return c:IsAttribute(ATTRIBUTE_WATER) and (lv==3 or lv==4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c106001001.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c106001001.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c106001001.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c106001001.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c106001001.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)>0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) - e3:SetValue(c106001001.xyzlimit) - e3:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e3) - end -end -function c106001001.xyzlimit(e,c) - if not c then return false end - return not c:IsAttribute(ATTRIBUTE_WATER) -end \ No newline at end of file diff --git a/script/c106001002.lua b/script/c106001002.lua deleted file mode 100644 index b13bb51c..00000000 --- a/script/c106001002.lua +++ /dev/null @@ -1,33 +0,0 @@ ---サイレントアングラー -function c106001002.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c106001002.hspcon) - e1:SetOperation(c106001002.spop) - c:RegisterEffect(e1) -end -function c106001002.filter(c) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WATER) -end -function c106001002.hspcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c106001002.filter,c:GetControler(),LOCATION_MZONE,0,1,nil) -end -function c106001002.spop(e,tp,eg,ep,ev,re,r,rp,c) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c106001002.splimit) - Duel.RegisterEffect(e1,tp) -end -function c106001002.splimit(e,c) - return c:IsLocation(LOCATION_HAND) -end diff --git a/script/c106001003.lua b/script/c106001003.lua deleted file mode 100644 index c4fb6beb..00000000 --- a/script/c106001003.lua +++ /dev/null @@ -1,41 +0,0 @@ ---水神の護符 -function c106001003.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetOperation(c106001003.activate) - c:RegisterEffect(e1) - --indes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetTarget(c106001003.tg) - e2:SetValue(c106001003.tgval) - c:RegisterEffect(e2) -end -function c106001003.tg(e,c) - return c:IsPosition(POS_FACEUP) and c:IsAttribute(ATTRIBUTE_WATER) -end -function c106001003.tgval(e,te) - return te:GetOwnerPlayer()~=e:GetHandlerPlayer() -end -function c106001003.activate(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetLabel(Duel.GetTurnCount()) - e1:SetCondition(c106001003.spcon) - e1:SetOperation(c106001003.spop) - e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,3) - Duel.RegisterEffect(e1,tp) -end -function c106001003.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnCount()>=e:GetLabel()+4 and Duel.GetTurnPlayer()==tp -end -function c106001003.spop(e,tp,eg,ep,ev,re,r,rp) - Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c10613952.lua b/script/c10613952.lua index 0864f56c..9956764a 100644 --- a/script/c10613952.lua +++ b/script/c10613952.lua @@ -85,10 +85,10 @@ function c10613952.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c10613952.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler()) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c10613952.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c10678778.lua b/script/c10678778.lua index 85dafe50..bc16e6c5 100644 --- a/script/c10678778.lua +++ b/script/c10678778.lua @@ -61,7 +61,7 @@ function c10678778.filter(c,tp) and Duel.IsExistingMatchingCard(c10678778.filter2,tp,0,LOCATION_MZONE,1,nil,ctype) end function c10678778.filter2(c,ctype) - return c:IsFaceup() and c:IsType(ctype) and c:IsDestructable() + return c:IsFaceup() and c:IsType(ctype) end function c10678778.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(1-tp) and c10678778.filter(chkc,tp) end diff --git a/script/c10691144.lua b/script/c10691144.lua old mode 100755 new mode 100644 index 1800db73..cb6f60e9 --- a/script/c10691144.lua +++ b/script/c10691144.lua @@ -20,14 +20,13 @@ function c10691144.activate(e,tp,eg,ep,ev,re,r,rp) Duel.RegisterFlagEffect(tp,10691144,RESET_PHASE+PHASE_END,0,1) end function c10691144.rmcon(e,tp,eg,ep,ev,re,r,rp) - if not (re:GetOwnerPlayer()==1-tp and re:IsActiveType(TYPE_MONSTER) and re:IsActivated()) then - return false - end local flag=0 local tc=eg:GetFirst() while tc do local ploc=tc:GetPreviousLocation() - if tc:GetPreviousControler()==tp and bit.band(ploc,0x1e)~=0 then + local te=tc:GetReasonEffect() + if tc:IsReason(REASON_EFFECT) and not tc:IsReason(REASON_REDIRECT) and bit.band(ploc,0x1e)~=0 and tc:GetPreviousControler()==tp + and te:GetOwnerPlayer()==1-tp and te:IsActiveType(TYPE_MONSTER) and te:IsActivated() then flag=bit.bor(flag,ploc) end tc=eg:GetNext() diff --git a/script/c10736540.lua b/script/c10736540.lua index b50d1d32..e35a8ddd 100644 --- a/script/c10736540.lua +++ b/script/c10736540.lua @@ -67,7 +67,7 @@ function c10736540.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingTarget(c10736540.spfilter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(10736540,2)) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) Duel.SelectTarget(tp,c10736540.spfilter,tp,LOCATION_MZONE,0,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end diff --git a/script/c10753491.lua b/script/c10753491.lua index e93e2aab..63f3c566 100644 --- a/script/c10753491.lua +++ b/script/c10753491.lua @@ -52,7 +52,7 @@ function c10753491.operation(e,tp,eg,ep,ev,re,r,rp) end function c10753491.spcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_DECK) and (c:IsReason(REASON_REVEAL) or c:GetPreviousPosition()==POS_FACEUP_DEFENCE) + return c:IsPreviousLocation(LOCATION_DECK) and c:IsReason(REASON_REVEAL) end function c10753491.filter(c,e,tp) return c:GetLevel()==1 and c:IsRace(RACE_PLANT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) diff --git a/script/c10755153.lua b/script/c10755153.lua index eb03c4a6..ae7aab60 100644 --- a/script/c10755153.lua +++ b/script/c10755153.lua @@ -40,14 +40,11 @@ function c10755153.descost(e,tp,eg,ep,ev,re,r,rp,chk) local g=Duel.SelectMatchingCard(tp,c10755153.costfilter,tp,LOCATION_SZONE,0,1,1,nil,e:GetHandler()) Duel.SendtoGrave(g,REASON_COST) end -function c10755153.desfilter(c) - return c:IsDestructable() -end function c10755153.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c10755153.desfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c10755153.desfilter,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c10755153.desfilter,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c10755153.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c10755984.lua b/script/c10755984.lua index 3603c842..3a5556bc 100644 --- a/script/c10755984.lua +++ b/script/c10755984.lua @@ -31,7 +31,7 @@ function c10755984.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c10755984.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c10755984.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c10755984.filter(chkc) end diff --git a/script/c10759529.lua b/script/c10759529.lua index cac5ff9c..e9eff7a6 100644 --- a/script/c10759529.lua +++ b/script/c10759529.lua @@ -19,7 +19,7 @@ function c10759529.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c10759529.filter(c) - return c:IsSetCard(0x3008) and c:IsAbleToHand() + return c:IsSetCard(0x3008) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c10759529.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c10759529.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c10789972.lua b/script/c10789972.lua index 2e9eced7..f62b76c8 100644 --- a/script/c10789972.lua +++ b/script/c10789972.lua @@ -4,32 +4,34 @@ function c10789972.initial_effect(c) --atkup local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(10789972,0)) - e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetCategory(CATEGORY_REMOVE+CATEGORY_ATKCHANGE) e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) e1:SetRange(LOCATION_MZONE) e1:SetCountLimit(1) - e1:SetCost(c10789972.cost) + e1:SetTarget(c10789972.target) e1:SetOperation(c10789972.operation) c:RegisterEffect(e1) end -function c10789972.cfilter(c) - return c:IsType(TYPE_NORMAL) and c:IsAbleToRemoveAsCost() +function c10789972.filter(c) + return c:IsType(TYPE_NORMAL) and c:IsAbleToRemove() end -function c10789972.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c10789972.cfilter,tp,LOCATION_GRAVE,0,1,nil) end +function c10789972.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c10789972.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c10789972.filter,tp,LOCATION_GRAVE,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c10789972.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) - e:SetLabel(g:GetFirst():GetAttack()) - Duel.Remove(g,POS_FACEUP,REASON_COST) + local g=Duel.SelectTarget(tp,c10789972.filter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) end function c10789972.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if e:GetLabel()~=0 and c:IsFaceup() and c:IsRelateToEffect(e) then + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)~=0 and c:IsFaceup() and c:IsRelateToEffect(e) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UPDATE_ATTACK) e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) - e1:SetValue(e:GetLabel()) + e1:SetValue(tc:GetBaseAttack()) e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_STANDBY,2) c:RegisterEffect(e1) end diff --git a/script/c108000001.lua b/script/c108000001.lua deleted file mode 100644 index ca45aca2..00000000 --- a/script/c108000001.lua +++ /dev/null @@ -1,40 +0,0 @@ ---除雪機関車ハッスル・ラッセル -function c108000001.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(108000001,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c108000001.spcon) - e1:SetOperation(c108000001.spop) - c:RegisterEffect(e1) - --disable spsummon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetTarget(c108000001.sumlimit) - c:RegisterEffect(e2) -end -function c108000001.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil - and Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_SZONE,0,1,nil) -end -function c108000001.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP) then - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_SZONE,0,nil) - if sg:GetCount()==0 then return end - Duel.BreakEffect() - if Duel.Destroy(sg,REASON_EFFECT)>0 then - Duel.Damage(1-tp,sg:GetCount()*200,REASON_EFFECT) - end - end -end -function c108000001.sumlimit(e,c) - return not c:IsRace(RACE_MACHINE) -end \ No newline at end of file diff --git a/script/c108000002.lua b/script/c108000002.lua deleted file mode 100644 index 13244587..00000000 --- a/script/c108000002.lua +++ /dev/null @@ -1,34 +0,0 @@ ---深夜急行騎士ナイト・エクスプレス・ナイト -function c108000002.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_DECK) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon & set with no tribute - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(108000002,0)) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SUMMON_PROC) - e2:SetCondition(c108000002.ntcon) - e2:SetOperation(c108000002.ntop) - c:RegisterEffect(e2) -end -function c108000002.ntcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c108000002.ntop(e,tp,eg,ep,ev,re,r,rp,c) - --change base attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetReset(RESET_EVENT+0xff0000) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(0) - c:RegisterEffect(e1) -end diff --git a/script/c108000003.lua b/script/c108000003.lua deleted file mode 100644 index b6618d0d..00000000 --- a/script/c108000003.lua +++ /dev/null @@ -1,65 +0,0 @@ ---臨時ダイヤ -function c108000003.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c108000003.cost) - e1:SetTarget(c108000003.target) - e1:SetOperation(c108000003.activate) - c:RegisterEffect(e1) - --salvage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c108000003.thcon) - e2:SetTarget(c108000003.thtg) - e2:SetOperation(c108000003.thop) - c:RegisterEffect(e2) -end -function c108000003.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,108000003)==0 end - Duel.RegisterFlagEffect(tp,108000003,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c108000003.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:GetAttack()>=3000 and c:IsRace(RACE_MACHINE) -end -function c108000003.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c108000003.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c108000003.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c108000003.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c108000003.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end -function c108000003.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) - and e:GetHandler():IsPreviousPosition(POS_FACEDOWN) -end -function c108000003.afilter(c) - return c:IsRace(RACE_MACHINE) and c:GetLevel()==10 and c:IsAbleToHand() -end -function c108000003.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c108000003.afilter(chkc) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c108000003.afilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c108000003.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c108060000.lua b/script/c108060000.lua deleted file mode 100644 index e1619328..00000000 --- a/script/c108060000.lua +++ /dev/null @@ -1,89 +0,0 @@ ---Ghostrick Ghoul -function c108060000.initial_effect(c) - --summon limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetCondition(c108060000.sumcon) - c:RegisterEffect(e1) - --turn set - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(108060000,0)) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c108060000.postg) - e2:SetOperation(c108060000.posop) - c:RegisterEffect(e2) - --atkup - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(108060000,1)) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCondition(c108060000.condition) - e3:SetTarget(c108060000.target) - e3:SetOperation(c108060000.operation) - c:RegisterEffect(e3) -end -function c108060000.sfilter(c) - return c:IsFaceup() and c:IsSetCard(0x8d) -end -function c108060000.sumcon(e) - return not Duel.IsExistingMatchingCard(c108060000.sfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end -function c108060000.postg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsCanTurnSet() and c:GetFlagEffect(108060000)==0 end - c:RegisterFlagEffect(108060000,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) - Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0) -end -function c108060000.posop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) - end -end -function c108060000.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_MAIN1 -end -function c108060000.filter(c) - return c:IsFaceup() and c:IsSetCard(0x8d) -end -function c108060000.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c108060000.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c108060000.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c108060000.filter,tp,LOCATION_MZONE,0,1,1,nil) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_ATTACK) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetTarget(c108060000.ftarget) - e2:SetLabel(g:GetFirst():GetFieldID()) - e2:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e2,tp) -end -function c108060000.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local atk=0 - local g=Duel.GetMatchingGroup(c108060000.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - local bc=g:GetFirst() - while bc do - atk=atk+bc:GetBaseAttack() - bc=g:GetNext() - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END+RESET_OPPO_TURN,1) - e1:SetValue(atk) - tc:RegisterEffect(e1) - end -end -function c108060000.ftarget(e,c) - return e:GetLabel()~=c:GetFieldID() -end \ No newline at end of file diff --git a/script/c108060082.lua b/script/c108060082.lua deleted file mode 100644 index 8f92583a..00000000 --- a/script/c108060082.lua +++ /dev/null @@ -1,84 +0,0 @@ ---Vampire Duke -function c108060082.initial_effect(c) - --summon success - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(108060082,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c108060082.sptg) - e1:SetOperation(c108060082.spop) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(108060082,1)) - e2:SetCategory(CATEGORY_TOGRAVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCost(c108060082.cost) - e2:SetTarget(c108060082.tgtg) - e2:SetOperation(c108060082.tgop) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) - e3:SetValue(c108060082.xyzlimit) - c:RegisterEffect(e3) -end -function c108060082.filter(c,e,tp) - return c:IsSetCard(0x8e) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c108060082.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c108060082.filter(chkc,e,tp) end - if chk==0 then return Duel.IsExistingTarget(c108060082.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c108060082.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c108060082.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then - Duel.BreakEffect() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENCE) - end - end -end -function c108060082.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,108060082)==0 end - Duel.RegisterFlagEffect(tp,108060082,RESET_PHASE+PHASE_END,0,1) -end -function c108060082.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,555) - local op=Duel.SelectOption(tp,70,71,72) - e:SetLabel(op) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_DECK) -end -function c108060082.tgfilter(c,ty) - return c:IsType(ty) and c:IsAbleToGrave() -end -function c108060082.tgop(e,tp,eg,ep,ev,re,r,rp) - local g=nil - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE) - if e:GetLabel()==0 then g=Duel.SelectMatchingCard(1-tp,c108060082.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil,TYPE_MONSTER) - elseif e:GetLabel()==1 then g=Duel.SelectMatchingCard(1-tp,c108060082.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil,TYPE_SPELL) - else g=Duel.SelectMatchingCard(1-tp,c108060082.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil,TYPE_TRAP) end - if g:GetCount()~=0 then - Duel.SendtoGrave(g,REASON_EFFECT) - else - local cg=Duel.GetFieldGroup(tp,0,LOCATION_DECK) - Duel.ConfirmCards(tp,cg) - Duel.ShuffleDeck(1-tp) - end -end -function c108060082.xyzlimit(e,c) - if not c then return false end - return not c:IsAttribute(ATTRIBUTE_DARK) -end - - diff --git a/script/c108060083.lua b/script/c108060083.lua deleted file mode 100644 index 5b95170d..00000000 --- a/script/c108060083.lua +++ /dev/null @@ -1,74 +0,0 @@ ---Noble Knight Borz -function c108060083.initial_effect(c) - --Attribute Dark - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c108060083.eqcon1) - e1:SetValue(TYPE_NORMAL+TYPE_MONSTER) - c:RegisterEffect(e1) - --Attribute Dark - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_CHANGE_ATTRIBUTE) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c108060083.eqcon2) - e2:SetValue(ATTRIBUTE_DARK) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetCode(EFFECT_UPDATE_LEVEL) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c108060083.eqcon2) - e3:SetValue(1) - c:RegisterEffect(e3) - --spsummon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(108060083,0)) - e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_MZONE) - e4:SetCondition(c108060083.eqcon2) - e4:SetCost(c108060083.thcost) - e4:SetTarget(c108060083.thtg) - e4:SetOperation(c108060083.thop) - c:RegisterEffect(e4) -end -function c108060083.eqcon1(e) - local eg=e:GetHandler():GetEquipGroup() - return not eg or not eg:IsExists(Card.IsSetCard,1,nil,0x207a) -end -function c108060083.eqcon2(e) - local eg=e:GetHandler():GetEquipGroup() - return eg and eg:IsExists(Card.IsSetCard,1,nil,0x207a) -end -function c108060083.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,108060083)==0 end - Duel.RegisterFlagEffect(tp,108060083,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c108060083.thfilter(c) - return c:IsType(TYPE_EQUIP) and c:IsSetCard(0x207a) and c:IsAbleToHand() -end -function c108060083.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c108060083.thfilter,tp,LOCATION_DECK,0,3,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK) -end -function c108060083.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.GetMatchingGroup(c108060083.thfilter,tp,LOCATION_DECK,0,nil) - if g:GetCount()>=3 then - local sg=g:Select(tp,3,3,nil) - Duel.ConfirmCards(1-tp,sg) - Duel.ShuffleDeck(tp) - local tg=sg:Select(1-tp,1,1,nil) - local tc=tg:GetFirst() - if tc:IsAbleToHand() then - sg:RemoveCard(tc) - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.SendtoGrave(sg,REASON_EFFECT) end - end -end \ No newline at end of file diff --git a/script/c108060084.lua b/script/c108060084.lua deleted file mode 100644 index 00b6b76d..00000000 --- a/script/c108060084.lua +++ /dev/null @@ -1,92 +0,0 @@ ---湖中仙女 -function c108060084.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetValue(c108060084.synlimit) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetCode(EFFECT_SEND_REPLACE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND+LOCATION_ONFIELD) - e2:SetTarget(c108060084.reptarget) - e2:SetOperation(c108060084.repoperation) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(108060084,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetTarget(c108060084.sptg) - e3:SetOperation(c108060084.spop) - c:RegisterEffect(e3) - --spsummon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(108060084,0)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_GRAVE) - e4:SetTarget(c108060084.target) - e4:SetOperation(c108060084.operation) - c:RegisterEffect(e4) -end -function c108060084.synlimit(e,c) - if not c then return false end - return not c:IsRace(RACE_WARRIOR) -end -function c108060084.reptarget(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:GetDestination()==LOCATION_GRAVE - and c:IsReason(REASON_MATERIAL+REASON_SYNCHRO) end - return true -end -function c108060084.repoperation(e,tp,eg,ep,ev,re,r,rp,chk) - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT) -end -function c108060084.spfilter(c,e,tp) - return c:IsSetCard(0x107a) and c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c108060084.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c108060084.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c108060084.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c108060084.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end -function c108060084.filter(c) - return c:IsFaceup() and c:GetLevel()>=5 and c:IsSetCard(0x107a) -end -function c108060084.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c108060084.filter(chkc) end - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingTarget(c108060084.filter,tp,LOCATION_MZONE,0,1,nil) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(108060084,1)) - Duel.SelectTarget(tp,c108060084.filter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) -end -function c108060084.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:GetLevel()<2 then return end - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(-1) - tc:RegisterEffect(e1) - if not c:IsRelateToEffect(e) then return end - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) -end diff --git a/script/c108070000.lua b/script/c108070000.lua deleted file mode 100644 index 7706e570..00000000 --- a/script/c108070000.lua +++ /dev/null @@ -1,93 +0,0 @@ ---ＲＤＭ－ヌメロン・フォール -function c108070000.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c108070000.target) - e1:SetOperation(c108070000.activate) - c:RegisterEffect(e1) -end -function c108070000.filter(c,e,tp) - local rank=c:GetRank() - return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsSetCard(0x7f) - and Duel.IsExistingMatchingCard(c108070000.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,rank,e,tp) -end -function c108070000.xyzfilter(c,rank,e,tp) - return c:GetRank()0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local xyz=xyzg:Select(tp,1,1,nil):GetFirst() - local mg=tc:GetOverlayGroup() - xyz:SetMaterial(sg) - Duel.BreakEffect() - if mg:GetCount()~=0 then - Duel.Overlay(xyz,mg) - end - Duel.Overlay(xyz,sg) - Duel.SpecialSummonStep(xyz,SUMMON_TYPE_XYZ,tp,tp,true,false,POS_FACEUP) - --negate - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetOperation(c108070000.negop1) - e1:SetReset(RESET_EVENT+0x1fe0000) - xyz:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_BE_BATTLE_TARGET) - e1:SetOperation(c108070000.negop2) - e1:SetReset(RESET_EVENT+0x1fe0000) - xyz:RegisterEffect(e2) - Duel.SpecialSummonComplete() - xyz:CompleteProcedure() - end -end -function c108070000.negop1(e,tp,eg,ep,ev,re,r,rp) - local d=e:GetHandler():GetBattleTarget() - if d then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - d:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - d:RegisterEffect(e2) - end -end -function c108070000.negop2(e,tp,eg,ep,ev,re,r,rp) - local a=e:GetHandler():GetBattleTarget() - if a then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - a:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - a:RegisterEffect(e2) - end -end \ No newline at end of file diff --git a/script/c108070015.lua b/script/c108070015.lua deleted file mode 100644 index 5ba8737f..00000000 --- a/script/c108070015.lua +++ /dev/null @@ -1,65 +0,0 @@ ---森羅の実張り ピース -function c108070015.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c108070015.target) - e1:SetOperation(c108070015.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCondition(c108070015.condtion) - e3:SetTarget(c108070015.tg) - e3:SetOperation(c108070015.activate) - c:RegisterEffect(e3) -end -function c108070015.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end -end -function c108070015.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) or Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end - Duel.ConfirmDecktop(tp,1) - local g=Duel.GetDecktopGroup(tp,1) - local tc=g:GetFirst() - if tc:IsRace(RACE_PLANT) then - Duel.DisableShuffleCheck() - Duel.SendtoGrave(tc,REASON_EFFECT) - else - Duel.DisableShuffleCheck() - Duel.MoveSequence(tc,1) - end -end -function c108070015.condtion(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local code=re:GetHandler():GetCode() - return c:GetPreviousLocation()==LOCATION_DECK and c:IsReason(REASON_EFFECT) - and (code==63942761 or code==58577036 or code==18631392 or code==79106360 or code==32362575 or code==43040603 or code==22796548 or code==108070020 or code==108070015) -end -function c108070015.filter(c,e,tp) - return c:IsLevelBelow(4) and c:IsRace(RACE_PLANT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c108070015.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c108070015.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c108070015.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c108070015.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c108070015.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c108070020.lua b/script/c108070020.lua deleted file mode 100644 index ec713cea..00000000 --- a/script/c108070020.lua +++ /dev/null @@ -1,49 +0,0 @@ ---森羅の仙樹 レギア -function c108070020.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW+CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c108070020.target) - e1:SetOperation(c108070020.operation) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c108070020.condtion) - e2:SetTarget(c108070020.tg) - e2:SetOperation(c108070020.activate) - c:RegisterEffect(e2) -end -function c108070020.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end -end -function c108070020.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) or Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end - Duel.ConfirmDecktop(tp,1) - local g=Duel.GetDecktopGroup(tp,1) - local tc=g:GetFirst() - if tc:IsRace(RACE_PLANT) then - Duel.DisableShuffleCheck() - Duel.SendtoGrave(tc,REASON_EFFECT) - Duel.Draw(tp,1,REASON_EFFECT) - else - Duel.DisableShuffleCheck() - Duel.MoveSequence(tc,1) - end -end -function c108070020.condtion(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local code=re:GetHandler():GetCode() - return c:GetPreviousLocation()==LOCATION_DECK and c:IsReason(REASON_EFFECT) - and (code==63942761 or code==58577036 or code==18631392 or code==79106360 or code==32362575 or code==43040603 or code==22796548 or code==108070020 or code==108070015) -end -function c108070020.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>2 end -end -function c108070020.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.SortDecktop(tp,tp,3) -end diff --git a/script/c108070022.lua b/script/c108070022.lua deleted file mode 100644 index b0c753c0..00000000 --- a/script/c108070022.lua +++ /dev/null @@ -1,69 +0,0 @@ ---ゴーストリック・マリー -function c108070022.initial_effect(c) - --summon limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetCondition(c108070022.sumcon) - c:RegisterEffect(e1) - --turn set - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(108070022,0)) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c108070022.postg) - e2:SetOperation(c108070022.posop) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_DAMAGE) - e3:SetRange(LOCATION_HAND) - e3:SetCost(c108070022.cost) - e2:SetTarget(c108070022.sptg) - e3:SetOperation(c108070022.spop) - c:RegisterEffect(e3) -end -function c108070022.sfilter(c) - return c:IsFaceup() and c:IsSetCard(0x8d) -end -function c108070022.sumcon(e) - return not Duel.IsExistingMatchingCard(c108070022.sfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end -function c108070022.postg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsCanTurnSet() and c:GetFlagEffect(108070022)==0 end - c:RegisterFlagEffect(108070022,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) - Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0) -end -function c108070022.posop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) - end -end -function c108070022.filter(c,e,tp) - return c:IsSetCard(0x8d) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENCE) -end -function c108070022.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() - and Duel.GetFlagEffect(tp,108070022)==0 end - Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) - Duel.RegisterFlagEffect(tp,108070022,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c108070022.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c108070022.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c108070022.spop(e,tp,eg,ep,ev,re,r,rp,c) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c108070022.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) - end -end \ No newline at end of file diff --git a/script/c108070026.lua b/script/c108070026.lua deleted file mode 100644 index 6932145e..00000000 --- a/script/c108070026.lua +++ /dev/null @@ -1,82 +0,0 @@ ---武神ーアラスダ -function c108070026.initial_effect(c) - c:SetUniqueOnField(1,0,108070026) - --removed - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_REMOVE) - e1:SetRange(LOCATION_HAND) - e1:SetTargetRange(LOCATION_GRAVE,0) - e1:SetCondition(c108070026.spcon) - e1:SetTarget(c108070026.sptg) - e1:SetOperation(c108070026.spop) - c:RegisterEffect(e1) - --search - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DRAW) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetCondition(c108070026.thcon) - e2:SetTarget(c108070026.thtg) - e2:SetOperation(c108070026.thop) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_TO_HAND) - e3:SetCondition(c108070026.regcon) - e3:SetOperation(c108070026.regop) - c:RegisterEffect(e3) -end -function c108070026.filter(c,tp) - return c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_GRAVE) - and c:IsType(TYPE_MONSTER) and c:IsSetCard(0x88) -end -function c108070026.spcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c108070026.filter,1,nil,tp) -end -function c108070026.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c108070026.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end -function c108070026.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(108070026)>0 -end - -function c108070026.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) - e:GetHandler():ResetNegateEffect(25789292,97268402) -end -function c108070026.thop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - if Duel.Draw(p,d,REASON_EFFECT)>0 then - Duel.ConfirmCards(1-tp,g) - Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT) - end -end -function c108070026.cfilter(c,tp) - return c:IsControler(tp) and c:IsPreviousLocation(LOCATION_DECK) and not c:IsReason(REASON_DRAW) - and c:IsType(TYPE_MONSTER) and c:IsSetCard(0x88) -end -function c108070026.regcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c108070026.cfilter,1,nil,tp) -end -function c108070026.regop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():RegisterFlagEffect(108070026,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end \ No newline at end of file diff --git a/script/c108070034.lua b/script/c108070034.lua deleted file mode 100644 index ccb0e70e..00000000 --- a/script/c108070034.lua +++ /dev/null @@ -1,166 +0,0 @@ ---墓守の審神者 -function c108070034.initial_effect(c) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(108070034,0)) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetCondition(c108070034.ttcon) - e1:SetOperation(c108070034.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - --summon with 1 tribute - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(108070034,1)) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SUMMON_PROC) - e2:SetCondition(c108070034.otcon) - e2:SetOperation(c108070034.otop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - --summon success - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_TOHAND) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(EVENT_SUMMON_SUCCESS) - e4:SetCondition(c108070034.condition) - e4:SetTarget(c108070034.target) - e4:SetOperation(c108070034.operation) - c:RegisterEffect(e4) - --tribute check - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_MATERIAL_CHECK) - e5:SetValue(c108070034.valcheck) - e5:SetLabelObject(e4) - c:RegisterEffect(e5) -end -function c108070034.ttcon(e,c) - if c==nil then return true end - return Duel.GetTributeCount(c)>=3 -end -function c108070034.ttop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g, REASON_SUMMON+REASON_MATERIAL) -end -function c108070034.otcon(e,c) - if c==nil then return true end - local g=Duel.GetTributeGroup(c) - return c:GetLevel()>6 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 - and g:IsExists(Card.IsSetCard,1,nil,0x2e) -end -function c108070034.otop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.GetTributeGroup(c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local sg=g:FilterSelect(tp,Card.IsSetCard,1,1,nil,0x2e) - c:SetMaterial(sg) - Duel.Release(sg, REASON_SUMMON+REASON_MATERIAL) -end -function c108070034.valcheck(e,c) - local g=c:GetMaterial() - if g:FilterCount(Card.IsSetCard,nil,0x2e)>0 then - e:GetLabelObject():SetLabel(g:GetCount()) - else - e:GetLabelObject():SetLabel(g:GetCount()) - end -end -function c108070034.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE and e:GetLabel()>0 -end -function c108070034.filter(c) - return c:GetLevel()>0 -end -function c108070034.filter2(c) - return c:IsFacedown() and c:IsDestructable() -end -function c108070034.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - return e:GetHandler():GetMaterial():FilterCount(c108070034.filter,nil)>0 - or Duel.IsExistingMatchingCard(c108070034.filter2,tp,0,LOCATION_MZONE,1,nil) - or Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - local sel=0 - local ac=0 - local gc=e:GetHandler():GetMaterial():FilterCount(Card.IsSetCard,nil,0x2e) - if gc>0 then sel=sel+1 end - if Duel.IsExistingMatchingCard(c108070034.filter2,tp,0,LOCATION_MZONE,1,nil) then sel=sel+2 end - if Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) then sel=sel+4 end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(108070034,10)) - if sel==1 then - ac=Duel.SelectOption(tp,aux.Stringid(108070034,2)) - elseif sel==2 then - ac=Duel.SelectOption(tp,aux.Stringid(108070034,3))+1 - elseif sel==4 then - ac=Duel.SelectOption(tp,aux.Stringid(108070034,4))+2 - elseif sel==3 then - if gc==1 then ac=Duel.SelectOption(tp,aux.Stringid(108070034,2),aux.Stringid(108070034,3)) - else - ac=Duel.SelectOption(tp,aux.Stringid(108070034,2),aux.Stringid(108070034,3),aux.Stringid(108070034,5)) end - if ac==2 then ac=3 end - elseif sel==5 then - if gc==1 then ac=Duel.SelectOption(tp,aux.Stringid(108070034,2),aux.Stringid(108070034,4)) - else - ac=Duel.SelectOption(tp,aux.Stringid(108070034,2),aux.Stringid(108070034,4),aux.Stringid(108070034,5)) end - if ac==1 then ac=2 end - if ac==2 then ac=4 end - elseif sel==6 then - if gc==1 then ac=Duel.SelectOption(tp,aux.Stringid(108070034,3),aux.Stringid(108070034,4))+1 - else - ac=Duel.SelectOption(tp,aux.Stringid(108070034,3),aux.Stringid(108070034,4),aux.Stringid(108070034,5))+1 end - if ac==3 then ac=5 end - elseif sel==7 then - if gc==1 then ac=Duel.SelectOption(tp,aux.Stringid(108070034,2),aux.Stringid(108070034,3),aux.Stringid(108070034,4)) - elseif gc==2 then - ac=Duel.SelectOption(tp,aux.Stringid(108070034,2),aux.Stringid(108070034,3),aux.Stringid(108070034,4),aux.Stringid(108070034,6),aux.Stringid(108070034,7),aux.Stringid(108070034,8)) - else - ac=Duel.SelectOption(tp,aux.Stringid(108070034,2),aux.Stringid(108070034,3),aux.Stringid(108070034,4),aux.Stringid(108070034,6),aux.Stringid(108070034,7),aux.Stringid(108070034,8),aux.Stringid(108070034,9)) - end - end - e:SetLabel(ac) -end -function c108070034.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local ac=e:GetLabel() - if ac==0 or ac==3 or ac==4 or ac==6 then - local g=c:GetMaterial() - local tc=g:GetFirst() - local sum=0 - while tc do - local lv=tc:GetLevel() - sum=sum+lv - tc=g:GetNext() - end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(sum*100) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end - if ac==1 or ac==3 or ac==5 or ac==6 then - local sg=Duel.GetMatchingGroup(c108070034.filter2,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(sg,REASON_EFFECT) - end - if ac==2 or ac==4 or ac==5 or ac==6 then - local dg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) - local sc=dg:GetFirst() - while sc do - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(-2000) - sc:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) - sc:RegisterEffect(e3) - sc=dg:GetNext() - end - end -end diff --git a/script/c108070048.lua b/script/c108070048.lua deleted file mode 100644 index e097f90a..00000000 --- a/script/c108070048.lua +++ /dev/null @@ -1,32 +0,0 @@ ---Ｎｏ．３９ 希望皇ホープ･ルーツ -function c108070048.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,1),2) - c:EnableReviveLimit() - --disable attack - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(108070048,0)) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCost(c108070048.atkcost) - e1:SetOperation(c108070048.atkop) - c:RegisterEffect(e1) -end -function c108070048.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c108070048.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetAttacker() - Duel.NegateAttack() - if tc:IsType(TYPE_XYZ) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(tc:GetRank()*500) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - end -end diff --git a/script/c108070081.lua b/script/c108070081.lua deleted file mode 100644 index ff3d42bb..00000000 --- a/script/c108070081.lua +++ /dev/null @@ -1,62 +0,0 @@ ---エクシーズ・シフト -function c108070081.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetLabel(0) - e1:SetCost(c108070081.cost) - e1:SetTarget(c108070081.target) - e1:SetOperation(c108070081.activate) - c:RegisterEffect(e1) -end -function c108070081.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(1) - if chk==0 then return Duel.CheckReleaseGroup(tp,c108070081.filter1,1,nil,e,tp) end - local rg=Duel.SelectReleaseGroup(tp,c108070081.filter1,1,1,nil,e,tp) - Duel.Release(rg,REASON_COST) - e:SetLabelObject(rg:GetFirst()) -end -function c108070081.filter1(c,e,tp) - local rk=c:GetRank() - return rk>0 and c:IsFaceup() and Duel.IsExistingMatchingCard(c108070081.filter2,tp,LOCATION_EXTRA,0,1,nil,rk,c:GetRace(),c:GetAttribute(),c:GetCode(),e,tp) -end -function c108070081.filter2(c,rk,rc,att,code,e,tp) - return c:GetRank()==rk and c:IsRace(rc) and c:IsAttribute(att) and c:GetCode()~=code - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c108070081.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if e:GetLabel()==0 then return false end - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c108070081.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c108070081.activate(e,tp,eg,ep,ev,re,r,rp) - local rk=e:GetLabelObject():GetRank() - local rc=e:GetLabelObject():GetRace() - local att=e:GetLabelObject():GetAttribute() - local code=e:GetLabelObject():GetCode() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c108070081.filter2,tp,LOCATION_EXTRA,0,1,1,nil,rk,rc,att,code,e,tp) - local tc=g:GetFirst() - if tc and Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP)~=0 then - e:GetHandler():CancelToGrave() - Duel.Overlay(tc,Group.FromCards(e:GetHandler())) - --to grave - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetOperation(c108070081.tgop) - tc:RegisterEffect(e2) - end -end -function c108070081.tgop(e,tp,eg,ep,ev,re,r,rp) - Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT) -end diff --git a/script/c10809984.lua b/script/c10809984.lua old mode 100755 new mode 100644 diff --git a/script/c108140002.lua b/script/c108140002.lua deleted file mode 100644 index 7e1a783a..00000000 --- a/script/c108140002.lua +++ /dev/null @@ -1,88 +0,0 @@ ---ギアギアーノ Mk－III -function c108140002.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(108140002,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c108140002.ntcon) - e1:SetCost(c108140002.spcost) - e1:SetTarget(c108140002.sptg) - e1:SetOperation(c108140002.spop) - c:RegisterEffect(e1) - if not c108140002.global_check then - c108140002.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_SPSUMMON_SUCCESS) - ge1:SetOperation(c108140002.checkop) - Duel.RegisterEffect(ge1,0) - local ge2=Effect.CreateEffect(c) - ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW) - ge2:SetOperation(c108140002.clear) - Duel.RegisterEffect(ge2,0) - end -end -function c108140002.checkop(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - while tc do - if not tc:IsSetCard(0x72) then - c108140002[tc:GetSummonPlayer()]=false - end - tc=eg:GetNext() - end -end -function c108140002.clear(e,tp,eg,ep,ev,re,r,rp) - c108140002[0]=true - c108140002[1]=true -end -function c108140002.ntcon(e,tp,eg,ep,ev,re,r,rp) - return re:GetHandler():IsSetCard(0x72) -end -function c108140002.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,108140002)==0 and c108140002[tp] end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c108140002.splimit) - e1:SetLabelObject(e) - Duel.RegisterEffect(e1,tp) - Duel.RegisterFlagEffect(tp,108140002,RESET_PHASE+PHASE_END,0,1) -end -function c108140002.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return not c:IsSetCard(0x72) -end -function c108140002.filter(c,e,tp) - return c:IsSetCard(0x72) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsCode(108140002) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c108140002.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c108140002.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND) -end -function c108140002.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c108140002.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if g:GetCount()>0 and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1,true) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2,true) - Duel.SpecialSummonComplete() - end -end diff --git a/script/c108140003.lua b/script/c108140003.lua deleted file mode 100644 index 8e33ec96..00000000 --- a/script/c108140003.lua +++ /dev/null @@ -1,56 +0,0 @@ ---ギアギアタッカー -function c108140003.initial_effect(c) - --turn set - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(108140003,0)) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c108140003.postg) - e1:SetOperation(c108140003.posop) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(108140003,1)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CHAIN_UNIQUE+EFFECT_FLAG_DAMAGE_STEP) - e2:SetCode(EVENT_FLIP) - e2:SetTarget(c108140003.thtg) - e2:SetOperation(c108140003.thop) - c:RegisterEffect(e2) -end -function c108140003.postg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsCanTurnSet() and c:GetFlagEffect(108140003)==0 end - c:RegisterFlagEffect(108140003,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) - Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0) -end -function c108140003.posop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) - end -end -function c108140003.sfilter(c,tc) - return c:IsFaceup() and c:IsSetCard(0x72) and c~=tc -end -function c108140003.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c108140003.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c108140003.desfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c108140003.sfilter,tp,LOCATION_MZONE,0,1,nil,e:GetHandler()) - and Duel.IsExistingTarget(c108140003.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - local count=Duel.GetMatchingGroupCount(c108140003.sfilter,tp,LOCATION_MZONE,0,nil,e:GetHandler()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c108140003.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,count,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c108140003.thop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tg=g:Filter(Card.IsRelateToEffect,nil,e) - if tg:GetCount()>0 then - Duel.Destroy(tg,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c108150003.lua b/script/c108150003.lua deleted file mode 100644 index 7cfb4845..00000000 --- a/script/c108150003.lua +++ /dev/null @@ -1,41 +0,0 @@ ---デプス・シャーク -function c108150003.initial_effect(c) - --summon with no tribute - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(108150003,0)) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetCondition(c108150003.ntcon) - c:RegisterEffect(e1) - --token - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetProperty(EFFECT_FLAG_REPEAT) - e2:SetCondition(c108150003.tkcon) - e2:SetOperation(c108150003.activate) - c:RegisterEffect(e2) -end -function c108150003.ntcon(e,c) - if c==nil then return true end - return c:GetLevel()>4 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 -end -function c108150003.tkcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c108150003.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(tc) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(tc:GetAttack()*2) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c108150004.lua b/script/c108150004.lua deleted file mode 100644 index d84453da..00000000 --- a/script/c108150004.lua +++ /dev/null @@ -1,91 +0,0 @@ ---セイバー・シャーク -function c108150004.initial_effect(c) - --lv change - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(108150004,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(2) - e1:SetCost(c108150004.spcost) - e1:SetTarget(c108150004.target) - e1:SetOperation(c108150004.operation) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetValue(1) - c:RegisterEffect(e2) - if not c108150004.global_check then - c108150004.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_SPSUMMON_SUCCESS) - ge1:SetOperation(c108150004.checkop) - Duel.RegisterEffect(ge1,0) - local ge2=Effect.CreateEffect(c) - ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW) - ge2:SetOperation(c108150004.clear) - Duel.RegisterEffect(ge2,0) - end -end -function c108150004.checkop(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - while tc do - if not tc:IsAttribute(ATTRIBUTE_WATER) then - c108150004[tc:GetSummonPlayer()]=false - end - tc=eg:GetNext() - end -end -function c108150004.clear(e,tp,eg,ep,ev,re,r,rp) - c108150004[0]=true - c108150004[1]=true -end -function c108150004.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return c108150004[tp] end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c108150004.splimit) - e1:SetLabelObject(e) - Duel.RegisterEffect(e1,tp) -end -function c108150004.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return not c:IsAttribute(ATTRIBUTE_WATER) -end -function c108150004.filter(c) - return c:IsFaceup() and c:IsRace(RACE_FISH) and c:IsLevelAbove(1) -end -function c108150004.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c108150004.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c108150004.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c108150004.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - local tc=g:GetFirst() - local op=0 - if tc:GetLevel()==1 then op=Duel.SelectOption(tp,aux.Stringid(108150004,1)) - else op=Duel.SelectOption(tp,aux.Stringid(108150004,1),aux.Stringid(108150004,2)) end - e:SetLabel(op) -end -function c108150004.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetReset(RESET_EVENT+0x1fe0000) - if e:GetLabel()==0 then - e1:SetValue(1) - else e1:SetValue(-1) end - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c108150016.lua b/script/c108150016.lua deleted file mode 100644 index 241233dd..00000000 --- a/script/c108150016.lua +++ /dev/null @@ -1,53 +0,0 @@ ---Ｎｏ．７３ 激瀧神アビス・スプラッシュ -function c108150016.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WATER),5),2) - c:EnableReviveLimit() - --atkup - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(108150016,0)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c108150016.condition) - e1:SetCost(c108150016.cost) - e1:SetOperation(c108150016.operation) - c:RegisterEffect(e1) -end -function c108150016.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c108150016.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c108150016.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(c:GetAttack()*2) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END+RESET_OPPO_TURN,1) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e2:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e2:SetCondition(c108150016.dcon) - e2:SetOperation(c108150016.dop) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,1) - c:RegisterEffect(e2) - c:RegisterFlagEffect(108150016,RESET_PHASE+PHASE_END,0,1) - end -end -function c108150016.dcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return ep~=tp and (c==Duel.GetAttacker() or c==Duel.GetAttackTarget()) -end -function c108150016.dop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,ev/2) -end diff --git a/script/c108150017.lua b/script/c108150017.lua deleted file mode 100644 index 21821d2f..00000000 --- a/script/c108150017.lua +++ /dev/null @@ -1,45 +0,0 @@ ---Ｎｏ．９４クリスタル・ゼロ -function c108150017.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WATER),5),2) - c:EnableReviveLimit() - --attack up - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetDescription(aux.Stringid(108150017,0)) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c108150017.condition) - e1:SetCost(c108150017.cost) - e1:SetTarget(c108150017.target) - e1:SetOperation(c108150017.activate) - c:RegisterEffect(e1) -end -function c108150017.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c108150017.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c108150017.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c108150017.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local atk=tc:GetAttack() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(atk/2) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END+RESET_SELF_TURN,1) - tc:RegisterEffect(e1) - end -end diff --git a/script/c108150019.lua b/script/c108150019.lua deleted file mode 100644 index 357ecbf6..00000000 --- a/script/c108150019.lua +++ /dev/null @@ -1,73 +0,0 @@ ---ＦＡ－ブラック・レイ・ランサー -function c108150019.initial_effect(c) - --xyz summon - c:EnableReviveLimit() - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WATER),4),3,c108150019.ovfilter,aux.Stringid(108150019,1)) - --attack up - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(c108150019.atkval) - c:RegisterEffect(e1) - --destroy replace - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_DESTROY_REPLACE) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c108150019.reptg) - c:RegisterEffect(e2) - --damage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(108150019,0)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BATTLE_DESTROYING) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c108150019.descon) - e3:SetTarget(c108150019.destg) - e3:SetOperation(c108150019.desop) - c:RegisterEffect(e3) -end -function c108150019.ovfilter(c) - return c:IsFaceup() and c:GetRank()==3 and c:IsAttribute(ATTRIBUTE_WATER) and c:GetOverlayCount()==0 -end -function c108150019.atkval(e,c) - return e:GetHandler():GetOverlayCount()*200 -end -function c108150019.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_EFFECT) end - if Duel.SelectYesNo(tp,aux.Stringid(108150019,1)) then - local g=e:GetHandler():GetOverlayGroup() - Duel.SendtoGrave(g,REASON_EFFECT) - return true - else return false end -end -function c108150019.damval(e,re,dam,r,rp,rc) - if bit.band(r,REASON_BATTLE)~=0 then - return dam/2 - else return dam end -end -function c108150019.descon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and bc:IsType(TYPE_MONSTER) -end -function c108150019.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c108150019.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c108150019.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(c108150019.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c108150019.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,c108150019.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c10817524.lua b/script/c10817524.lua old mode 100755 new mode 100644 diff --git a/script/c108260038.lua b/script/c108260038.lua deleted file mode 100644 index 1f526f74..00000000 --- a/script/c108260038.lua +++ /dev/null @@ -1,105 +0,0 @@ ---サイバー・ドラゴン・ノヴァ -function c108260038.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),5),2) - c:EnableReviveLimit() - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(108260038,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c108260038.spcost) - e1:SetTarget(c108260038.sptg) - e1:SetOperation(c108260038.spop) - c:RegisterEffect(e1) - --atkup - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(108260038,1)) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(TIMING_DAMAGE_STEP) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCondition(c108260038.atcon) - e2:SetCost(c108260038.atcost) - e2:SetOperation(c108260038.atop) - c:RegisterEffect(e2) - --return - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c108260038.con) - e3:SetTarget(c108260038.tg) - e3:SetOperation(c108260038.op) - c:RegisterEffect(e3) -end -function c108260038.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c108260038.spfilter(c,e,tp) - return c:IsCode(70095154) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c108260038.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c108260038.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c108260038.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c108260038.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c108260038.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) end -end - -function c108260038.atcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c108260038.cfilter(c) - return c:IsCode(70095154) and c:IsAbleToRemoveAsCost() -end -function c108260038.atcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c108260038.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c108260038.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c108260038.atop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(2100) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end -end -function c108260038.con(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_EFFECT) and c:IsLocation(LOCATION_GRAVE) -end -function c108260038.filter(c,e,tp) - return c:IsType(TYPE_FUSION) and c:IsRace(RACE_MACHINE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c108260038.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and rp~=tp and Duel.IsExistingMatchingCard(c108260038.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c108260038.op(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.SelectMatchingCard(tp,c108260038.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c10833828.lua b/script/c10833828.lua new file mode 100644 index 00000000..5d964517 --- /dev/null +++ b/script/c10833828.lua @@ -0,0 +1,158 @@ +--魔神王の禁断契約書 +function c10833828.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(10833828,0)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_SZONE) + e2:SetCountLimit(1) + e2:SetTarget(c10833828.sptg1) + e2:SetOperation(c10833828.spop1) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(10833828,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_SZONE) + e3:SetCountLimit(1) + e3:SetTarget(c10833828.sptg2) + e3:SetOperation(c10833828.spop2) + c:RegisterEffect(e3) + --damage + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(10833828,2)) + e4:SetCategory(CATEGORY_DAMAGE) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e4:SetCode(EVENT_PHASE+PHASE_STANDBY) + e4:SetRange(LOCATION_SZONE) + e4:SetCountLimit(1) + e4:SetCondition(c10833828.damcon) + e4:SetTarget(c10833828.damtg) + e4:SetOperation(c10833828.damop) + c:RegisterEffect(e4) +end +function c10833828.spfilter1(c,e,tp) + return c:IsSetCard(0x10af) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c10833828.sptg1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c10833828.spfilter1,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) +end +function c10833828.spop1(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c10833828.spfilter1,tp,LOCATION_HAND,0,1,1,nil,e,tp) + local tc=g:GetFirst() + if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1,true) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2,true) + c:SetCardTarget(tc) + end + Duel.SpecialSummonComplete() +end +function c10833828.spfilter2(c,e) + return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) +end +function c10833828.spfilter3(c,e,tp,m,g,f,chkf) + return c:IsType(TYPE_FUSION) and c:IsRace(RACE_FIEND) and (not f or f(c)) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and g:IsExists(c10833828.spfilter4,1,nil,m,c,chkf) +end +function c10833828.spfilter4(c,m,fusc,chkf) + return fusc:CheckFusionMaterial(m,c,chkf) +end +function c10833828.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local g=e:GetHandler():GetCardTarget():Filter(Card.IsControler,nil,tp) + if g:GetCount()==0 then return false end + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_HAND+LOCATION_MZONE,0,nil) + local res=Duel.IsExistingMatchingCard(c10833828.spfilter3,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,g,nil,chkf) + if not res then + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + local mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + res=Duel.IsExistingMatchingCard(c10833828.spfilter3,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,g,mf,chkf) + end + end + return res + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) +end +function c10833828.spop2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local g=c:GetCardTarget():Filter(Card.IsControler,nil,tp) + g:Remove(Card.IsImmuneToEffect,nil,e) + if g:GetCount()==0 then return false end + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(c10833828.spfilter2,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) + local sg1=Duel.GetMatchingGroup(c10833828.spfilter3,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,g,nil,chkf) + local mg2=nil + local sg2=nil + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + sg2=Duel.GetMatchingGroup(c10833828.spfilter3,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,g,mf,chkf) + end + if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then + local sg=sg1:Clone() + if sg2 then sg:Merge(sg2) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=sg:Select(tp,1,1,nil) + local tc=tg:GetFirst() + if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local ec=g:FilterSelect(tp,c10833828.spfilter4,1,1,nil,mg1,tc,chkf):GetFirst() + local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,ec,chkf) + tc:SetMaterial(mat1) + Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local ec=g:FilterSelect(tp,c10833828.spfilter4,1,1,nil,mg2,tc,chkf):GetFirst() + local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,ec,chkf) + local fop=ce:GetOperation() + fop(ce,e,tp,tc,mat2) + end + tc:CompleteProcedure() + end +end +function c10833828.damcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c10833828.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(2000) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,0,0,tp,2000) +end +function c10833828.damop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) +end diff --git a/script/c108440052.lua b/script/c108440052.lua deleted file mode 100644 index 0455e20d..00000000 --- a/script/c108440052.lua +++ /dev/null @@ -1,77 +0,0 @@ ---ライトロード・メイデン ミネルバ -function c108440052.initial_effect(c) - --summon success - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c108440052.target) - e1:SetOperation(c108440052.operation) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c108440052.tdcon) - e2:SetTarget(c108440052.tdtg) - e2:SetOperation(c108440052.tdop) - c:RegisterEffect(e2) - --discard deck - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e4:SetCategory(CATEGORY_DECKDES) - e4:SetCode(EVENT_PHASE+PHASE_END) - e4:SetRange(LOCATION_MZONE) - e4:SetCountLimit(1) - e4:SetCondition(c108440052.discon) - e4:SetTarget(c108440052.distg) - e4:SetOperation(c108440052.disop) - c:RegisterEffect(e4) -end -function c108440052.thfilter(c) - return c:IsSetCard(0x38) and c:IsType(TYPE_MONSTER) -end -function c108440052.filter(c,lv) - return c:IsLevelBelow(lv) and c:IsRace(RACE_DRAGON) - and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToHand() -end -function c108440052.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local count=Duel.GetMatchingGroup(c108440052.thfilter,tp,LOCATION_GRAVE,0,nil):GetClassCount(Card.GetCode) - return Duel.IsExistingMatchingCard(c108440052.filter,tp,LOCATION_DECK,0,1,nil,count) - end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c108440052.operation(e,tp,eg,ep,ev,re,r,rp) - local count=Duel.GetMatchingGroup(c108440052.thfilter,tp,LOCATION_GRAVE,0,nil):GetClassCount(Card.GetCode) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c108440052.filter,tp,LOCATION_DECK,0,1,1,nil,count) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end -function c108440052.tdcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_HAND) or e:GetHandler():IsPreviousLocation(LOCATION_DECK) -end -function c108440052.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,1) -end -function c108440052.tdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - Duel.DiscardDeck(tp,1,REASON_EFFECT) -end -function c108440052.discon(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() -end -function c108440052.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,2) -end -function c108440052.disop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetControler()~=tp or not c:IsRelateToEffect(e) or c:IsFacedown() then return end - Duel.DiscardDeck(tp,2,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c108440053.lua b/script/c108440053.lua deleted file mode 100644 index fdaa63ed..00000000 --- a/script/c108440053.lua +++ /dev/null @@ -1,58 +0,0 @@ ---ライトロード・アサシン ライデン -function c108440053.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DECKDES) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c108440053.cost) - e1:SetTarget(c108440053.tg) - e1:SetOperation(c108440053.op) - c:RegisterEffect(e1) - --discard deck - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e4:SetCategory(CATEGORY_DECKDES) - e4:SetCode(EVENT_PHASE+PHASE_END) - e4:SetRange(LOCATION_MZONE) - e4:SetCountLimit(1) - e4:SetCondition(c108440053.discon) - e4:SetTarget(c108440053.distg) - e4:SetOperation(c108440053.disop) - c:RegisterEffect(e4) -end -function c108440053.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,108440053)==0 end - Duel.RegisterFlagEffect(tp,108440053,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c108440053.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,2) end - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,2) -end -function c108440053.op(e,tp,eg,ep,ev,re,r,rp) - Duel.DiscardDeck(tp,2,REASON_EFFECT) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - local ct=Duel.GetOperatedGroup():FilterCount(Card.IsSetCard,nil,0x38) - if ct>0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(200) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END,2) - c:RegisterEffect(e1) - end - end -end -function c108440053.discon(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() -end -function c108440053.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,2) -end -function c108440053.disop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetControler()~=tp or not c:IsRelateToEffect(e) or c:IsFacedown() then return end - Duel.DiscardDeck(tp,2,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c10875327.lua b/script/c10875327.lua index f53b3558..392f6752 100644 --- a/script/c10875327.lua +++ b/script/c10875327.lua @@ -1,6 +1,6 @@ --地縛神 Aslla piscu function c10875327.initial_effect(c) - c:SetUniqueOnField(1,1,10000000) + c:SetUniqueOnField(1,1,10000000,LOCATION_MZONE) -- local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) @@ -43,10 +43,10 @@ end function c10875327.descon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() return c:IsPreviousPosition(POS_FACEUP) and not c:IsLocation(LOCATION_DECK) - and (not re or re:GetHandler()~=c) + and (not re or re:GetOwner()~=c) end function c10875327.desfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c10875327.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c109201.lua b/script/c109201.lua deleted file mode 100644 index ff49bbf2..00000000 --- a/script/c109201.lua +++ /dev/null @@ -1,65 +0,0 @@ ---ＥＭチアモール -function c109201.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --atk - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetCondition(c109201.atkcon) - e2:SetTarget(c109201.atktg) - e2:SetValue(300) - c:RegisterEffect(e2) - --attack up/down - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetDescription(aux.Stringid(109201,0)) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1,109201) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c109201.target) - e3:SetOperation(c109201.operation) - c:RegisterEffect(e3) -end -function c109201.atkcon(e) - return e:GetHandler():GetSequence()==6 or e:GetHandler():GetSequence()==7 -end -function c109201.atktg(e,c) - return c:IsType(TYPE_PENDULUM) -end -function c109201.filter(c) - return c:IsFaceup() and c:GetAttack()~=c:GetBaseAttack() -end -function c109201.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c109201.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c109201.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c109201.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c109201.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local atk=tc:GetAttack() - local batk=tc:GetBaseAttack() - if batk==atk then return end - local val=1000 - if batk>atk then - val=-1000 - end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(val) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end diff --git a/script/c109202.lua b/script/c109202.lua deleted file mode 100644 index 0cf48aac..00000000 --- a/script/c109202.lua +++ /dev/null @@ -1,55 +0,0 @@ ---ＥＭトランポリンクス -function c109202.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(109202,0)) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetCountLimit(1,109202) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c109202.thcon) - e2:SetTarget(c109202.thtg) - e2:SetOperation(c109202.thop) - c:RegisterEffect(e2) - --tohand 2 - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(109202,0)) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetTarget(c109202.thtg) - e3:SetOperation(c109202.thop) - c:RegisterEffect(e3) -end -function c109202.cfilter(c,tp) - return c:IsControler(tp) and c:GetSummonType()==SUMMON_TYPE_PENDULUM -end -function c109202.thcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c109202.cfilter,1,nil,tp) -end -function c109202.filter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsAbleToHand() -end -function c109202.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and c109202.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c109202.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c109202.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c109202.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end diff --git a/script/c109227.lua b/script/c109227.lua deleted file mode 100644 index b8416c5c..00000000 --- a/script/c109227.lua +++ /dev/null @@ -1,45 +0,0 @@ ---星因士 シリウス -function c109227.initial_effect(c) - --to deck and draw - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(109227,0)) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetCountLimit(1,109227) - e1:SetTarget(c109227.tg) - e1:SetOperation(c109227.op) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c109227.filter(c) - return c:IsSetCard(0x9c) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() -end -function c109227.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c109227.filter(chkc) end - if chk==0 then return Duel.IsExistingMatchingCard(c109227.filter,tp,LOCATION_GRAVE,0,5,nil) end - if Duel.IsExistingTarget(c109227.filter,tp,LOCATION_GRAVE,0,5,nil) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,c109227.filter,tp,LOCATION_GRAVE,0,5,5,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) - end -end -function c109227.op(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=5 then return end - Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) - local g=Duel.GetOperatedGroup() - local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) - if ct==5 then - Duel.ShuffleDeck(tp) - Duel.BreakEffect() - Duel.Draw(tp,1,REASON_EFFECT) - end -end diff --git a/script/c109228.lua b/script/c109228.lua deleted file mode 100644 index fae721d9..00000000 --- a/script/c109228.lua +++ /dev/null @@ -1,37 +0,0 @@ ---星因士 プロキオン -function c109228.initial_effect(c) - --to deck and draw - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(109228,0)) - e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetCountLimit(1,109228) - e1:SetTarget(c109228.tg) - e1:SetOperation(c109228.op) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c109228.filter(c) - return c:IsSetCard(0x9c) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() -end -function c109228.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c109228.filter,tp,LOCATION_HAND,0,1,nil) - and Duel.IsPlayerCanDraw(tp,1) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,0,tp,1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c109228.op(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c109228.filter,tp,LOCATION_HAND,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - Duel.Draw(tp,1,REASON_EFFECT) - end -end diff --git a/script/c109239.lua b/script/c109239.lua deleted file mode 100644 index 14592608..00000000 --- a/script/c109239.lua +++ /dev/null @@ -1,149 +0,0 @@ ---レスキューラット -function c109239.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --to Hand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(109239,0)) - e2:SetCategory(CATEGORY_TO_HAND) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1,109239) - e2:SetCondition(c109239.addcon) - e2:SetCost(c109239.addcost) - e2:SetTarget(c109239.addtg) - e2:SetOperation(c109239.addop) - c:RegisterEffect(e2) - --Special Summon - local e3=Effect.CreateEffect(c) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetOperation(c109239.sumsuc) - c:RegisterEffect(e3) - --special summon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(109239,0)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_MZONE) - e4:SetCost(c109239.spcost) - e4:SetCondition(c109239.spcon) - e4:SetTarget(c109239.sptg) - e4:SetOperation(c109239.spop) - c:RegisterEffect(e4) -end -function c109239.addcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSequence()==6 or e:GetHandler():GetSequence()==7 -end -function c109239.addcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c109239.filter(c) - return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand() -end -function c109239.filter1(c,g) - return g:IsExists(Card.IsCode,1,c,c:GetCode()) -end -function c109239.addtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local g=Duel.GetMatchingGroup(c109239.filter,tp,LOCATION_EXTRA,0,nil) - return g:IsExists(c109239.filter1,1,nil,g) - end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_EXTRA) -end -function c109239.addop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c109239.filter,tp,LOCATION_EXTRA,0,nil) - local sg=g:Filter(c109239.filter1,nil,g) - if sg:GetCount()==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local hg=sg:Select(tp,1,1,nil) - local hc=sg:Filter(Card.IsCode,hg:GetFirst(),hg:GetFirst():GetCode()):GetFirst() - hg:AddCard(hc) - Duel.SendtoHand(hg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,hg) -end -function c109239.sumsuc(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():RegisterFlagEffect(109239,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) -end -function c109239.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(109239)~=0 -end -function c109239.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c109239.spfilter(c,e,tp) - return c:IsType(TYPE_PENDULUM) and c:IsLevelBelow(5) and c:IsFaceup() and - Duel.IsExistingMatchingCard(c109239.spfilter1,tp,LOCATION_DECK,0,2,nil,c:GetCode(),e,tp) -end -function c109239.spfilter1(c,code,e,tp) - return c:GetCode()==code and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c109239.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - return Duel.IsExistingMatchingCard(c109239.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) -end -function c109239.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - local g=Duel.GetMatchingGroup(c109239.spfilter,tp,LOCATION_EXTRA,0,nil,e,tp) - if g:GetCount()==0 then return end - local tc=g:Select(tp,1,1,nil):GetFirst() - local code=tc:GetCode() - local dg=Duel.GetMatchingGroup(c109239.spfilter1,tp,LOCATION_DECK,0,nil,code,e,tp) - if dg:GetCount()>=1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=dg:Select(tp,1,1,nil) - local tc1=sg:GetFirst() - dg:RemoveCard(tc1) - local tc2=dg:Filter(Card.IsCode,nil,tc1:GetCode()):GetFirst() - Duel.SpecialSummonStep(tc1,0,tp,tp,false,false,POS_FACEUP) - Duel.SpecialSummonStep(tc2,0,tp,tp,false,false,POS_FACEUP) - tc1:RegisterFlagEffect(109239,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - tc2:RegisterFlagEffect(109239,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - Duel.SpecialSummonComplete() - sg:AddCard(tc2) - sg:KeepAlive() - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetLabelObject(sg) - e1:SetOperation(c109239.desop) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc1:RegisterEffect(e2) - local e3=e2:Clone() - tc2:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_DISABLE_EFFECT) - e4:SetReset(RESET_EVENT+0x1fe0000) - tc1:RegisterEffect(e4) - local e5=e4:Clone() - tc2:RegisterEffect(e5) - end -end -function c109239.desfilter(c) - return c:GetFlagEffect(109239)>0 -end -function c109239.desop(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject() - local tg=g:Filter(c109239.desfilter,nil) - g:DeleteGroup() - Duel.Destroy(tg,REASON_EFFECT) -end diff --git a/script/c109245.lua b/script/c109245.lua deleted file mode 100644 index 54ac9256..00000000 --- a/script/c109245.lua +++ /dev/null @@ -1,81 +0,0 @@ ---崇高なる宣告者 -function c109245.initial_effect(c) - c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c109245.splimit) - c:RegisterEffect(e1) - --Negate - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(109245,0)) - e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_CHAINING) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c109245.discon) - e2:SetCost(c109245.discost) - e2:SetTarget(c109245.distg) - e2:SetOperation(c109245.disop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(109245,1)) - e3:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_SPSUMMON) - e3:SetCondition(c109245.descon) - e3:SetCost(c109245.discost) - e3:SetTarget(c109245.destg) - e3:SetOperation(c109245.desop) - c:RegisterEffect(e3) -end -function c109245.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL -end -function c109245.discon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if ep==tp or c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end - return (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev) -end -function c109245.costfilter(c) - return c:IsRace(RACE_FAIRY) and c:IsAbleToGraveAsCost() -end -function c109245.discost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c109245.costfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c109245.costfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c109245.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c109245.disop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end -function c109245.descon(e,tp,eg,ep,ev,re,r,rp) - return tp~=ep and Duel.GetCurrentChain()==0 and eg:IsExists(Card.IsControler,1,nil,1-tp) - and Duel.IsExistingMatchingCard(c109245.costfilter,tp,LOCATION_HAND,0,1,nil) -end -function c109245.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=eg:Filter(Card.IsControler,nil,1-tp) - Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c109245.desop(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(Card.IsControler,nil,1-tp) - Duel.NegateSummon(g) - Duel.Destroy(g,REASON_EFFECT) -end diff --git a/script/c109248.lua b/script/c109248.lua deleted file mode 100644 index cc1e1485..00000000 --- a/script/c109248.lua +++ /dev/null @@ -1,196 +0,0 @@ ---エルシャドール・エグリスタ -function c109248.initial_effect(c) - c:EnableReviveLimit() - --fusion material - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(c109248.fuscon) - e1:SetOperation(c109248.fusop) - c:RegisterEffect(e1) - --cannot spsummon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCode(EFFECT_SPSUMMON_CONDITION) - e2:SetRange(LOCATION_EXTRA) - e2:SetValue(c109248.splimit) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(109248,0)) - e3:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_SPSUMMON) - e3:SetCountLimit(1,109248) - e3:SetCondition(c109248.descon) - e3:SetTarget(c109248.destg) - e3:SetOperation(c109248.desop) - c:RegisterEffect(e3) - --tohand - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(109248,1)) - e4:SetCategory(CATEGORY_TOHAND) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e4:SetCondition(c109248.thcon) - e4:SetTarget(c109248.thtg) - e4:SetOperation(c109248.thop) - c:RegisterEffect(e4) -end -function c109248.ffilter1(c) - return c:IsSetCard(0x9d) -end -function c109248.ffilter2(c) - return c:IsAttribute(ATTRIBUTE_FIRE) or c:GetFlagEffect(4904633)~=0 -end -function c109248.exfilter(c,g) - return c:IsFaceup() and c:IsCanBeFusionMaterial() and not g:IsContains(c) -end -function c109248.fuscon(e,g,gc,chkf) - if g==nil then return true end - local tp=e:GetHandlerPlayer() - local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local exg=Group.CreateGroup() - if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then - local sg=Duel.GetMatchingGroup(c109248.exfilter,tp,0,LOCATION_MZONE,nil,g) - exg:Merge(sg) - end - if gc then return (c109248.ffilter1(gc) and (g:IsExists(c109248.ffilter2,1,gc) or exg:IsExists(c109248.ffilter2,1,gc))) - or (c109248.ffilter2(gc) and (g:IsExists(c109248.ffilter1,1,gc) or exg:IsExists(c109248.ffilter1,1,gc))) end - local g1=Group.CreateGroup() - local g2=Group.CreateGroup() - local g3=Group.CreateGroup() - local g4=Group.CreateGroup() - local tc=g:GetFirst() - while tc do - if c109248.ffilter1(tc) then - g1:AddCard(tc) - if aux.FConditionCheckF(tc,chkf) then g3:AddCard(tc) end - end - if c109248.ffilter2(tc) then - g2:AddCard(tc) - if aux.FConditionCheckF(tc,chkf) then g4:AddCard(tc) end - end - tc=g:GetNext() - end - local exg1=exg:Filter(c109248.ffilter1,nil) - local exg2=exg:Filter(c109248.ffilter2,nil) - if chkf~=PLAYER_NONE then - return (g3:IsExists(aux.FConditionFilterF2,1,nil,g2) - or g3:IsExists(aux.FConditionFilterF2,1,nil,exg2) - or g4:IsExists(aux.FConditionFilterF2,1,nil,g1) - or g4:IsExists(aux.FConditionFilterF2,1,nil,exg1)) - else - return (g1:IsExists(aux.FConditionFilterF2,1,nil,g2) - or g1:IsExists(aux.FConditionFilterF2,1,nil,exg2) - or g2:IsExists(aux.FConditionFilterF2,1,nil,exg1)) - end -end -function c109248.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local exg=Group.CreateGroup() - if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then - local sg=Duel.GetMatchingGroup(c109248.exfilter,tp,0,LOCATION_MZONE,nil,eg) - exg:Merge(sg) - end - if gc then - local sg1=Group.CreateGroup() - local sg2=Group.CreateGroup() - if c109248.ffilter1(gc) then - sg1:Merge(eg:Filter(c109248.ffilter2,gc)) - sg2:Merge(exg:Filter(c109248.ffilter2,gc)) - end - if c109248.ffilter2(gc) then - sg1:Merge(eg:Filter(c109248.ffilter1,gc)) - sg2:Merge(exg:Filter(c109248.ffilter1,gc)) - end - local g1=nil - if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then - fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1=sg2:Select(tp,1,1,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1=sg1:Select(tp,1,1,nil) - end - Duel.SetFusionMaterial(g1) - return - end - local sg=eg:Filter(aux.FConditionFilterF2c,nil,c109248.ffilter1,c109248.ffilter2) - local g1=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if chkf~=PLAYER_NONE then - g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) - else g1=sg:Select(tp,1,1,nil) end - local tc1=g1:GetFirst() - local sg1=Group.CreateGroup() - local sg2=Group.CreateGroup() - if c109248.ffilter1(tc1) then - sg1:Merge(sg:Filter(c109248.ffilter2,tc1)) - sg2:Merge(exg:Filter(c109248.ffilter2,tc1)) - end - if c109248.ffilter2(tc1) then - sg1:Merge(sg:Filter(c109248.ffilter1,tc1)) - sg2:Merge(exg:Filter(c109248.ffilter1,tc1)) - end - local g2=nil - if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then - fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg2:Select(tp,1,1,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg1:Select(tp,1,1,nil) - end - g1:Merge(g2) - Duel.SetFusionMaterial(g1) -end -function c109248.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c109248.descon(e,tp,eg,ep,ev,re,r,rp) - return tp~=ep and Duel.GetCurrentChain()==0 and eg:IsExists(Card.IsControler,1,nil,1-tp) - and Duel.IsExistingMatchingCard(c109248.cfilter,tp,LOCATION_HAND,0,1,nil) -end -function c109248.cfilter(c) - return c:IsSetCard(0x9d) and c:IsAbleToGrave() -end -function c109248.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c109248.cfilter,tp,LOCATION_HAND,0,1,nil) end - local g=eg:Filter(Card.IsControler,nil,1-tp) - Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c109248.desop(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(Card.IsControler,nil,1-tp) - Duel.NegateSummon(g) - Duel.Destroy(g,REASON_EFFECT) - Duel.BreakEffect() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local dg=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_HAND,0,1,1,nil,0x9d) - Duel.SendtoGrave(dg,REASON_EFFECT) -end -function c109248.thcon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsReason(REASON_RETURN) -end -function c109248.thfilter(c) - return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c109248.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c109248.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c109248.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c109248.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c109248.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c109251.lua b/script/c109251.lua deleted file mode 100644 index 6a19e4ef..00000000 --- a/script/c109251.lua +++ /dev/null @@ -1,78 +0,0 @@ ---邪竜星－ガイザー -function c109251.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --immune - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e1:SetValue(c109251.tgvalue) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(109251,0)) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCountLimit(1,109251) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetTarget(c109251.destg) - e2:SetOperation(c109251.desop) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(109251,1)) - e3:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c109251.spcon) - e3:SetTarget(c109251.sptg) - e3:SetOperation(c109251.spop) - c:RegisterEffect(e3) -end -function c109251.tgvalue(e,re,rp) - return rp~=e:GetHandlerPlayer() -end -function c109251.desfilter(c) - return c:IsSetCard(0x9e) and c:IsFaceup() and c:IsDestructable() -end -function c109251.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c109251.desfilter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,c109251.desfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0) -end -function c109251.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tg=g:Filter(Card.IsRelateToEffect,nil,e) - if tg:GetCount()>0 then - Duel.Destroy(tg,REASON_EFFECT) - end -end - -function c109251.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_ONFIELD) -end -function c109251.spfilter(c,e,tp) - return c:IsRace(RACE_PHANTOMDRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c109251.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c109251.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c109251.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c109251.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) -end diff --git a/script/c109252.lua b/script/c109252.lua deleted file mode 100644 index 76be5b44..00000000 --- a/script/c109252.lua +++ /dev/null @@ -1,77 +0,0 @@ ---虹光の宣告者 -function c109252.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --remove - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE) - e1:SetCode(EFFECT_TO_GRAVE_REDIRECT) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c109252.rmtarget) - e1:SetValue(LOCATION_REMOVED) - c:RegisterEffect(e1) - --Negate - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(109252,0)) - e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_CHAINING) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c109252.negcon) - e2:SetCost(c109252.negcost) - e2:SetTarget(c109252.negtg) - e2:SetOperation(c109252.negop) - c:RegisterEffect(e2) - --to hand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(109252,1)) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetTarget(c109252.thtg) - e3:SetOperation(c109252.thop) - c:RegisterEffect(e3) -end -function c109252.rmtarget(e,c) - return not c:IsLocation(0x80) and not c:IsLocation(0x40) and not c:IsLocation(0x0c) - and not c:IsType(TYPE_SPELL+TYPE_TRAP) -end -function c109252.negcon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) -end -function c109252.negcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c109252.negtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c109252.negop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re)then - Duel.Destroy(eg,REASON_EFFECT) - end -end -function c109252.thfilter(c) - return c:IsType(TYPE_RITUAL) and c:IsAbleToHand() -end -function c109252.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c109252.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c109252.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c109252.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c109253.lua b/script/c109253.lua deleted file mode 100644 index c4243ba6..00000000 --- a/script/c109253.lua +++ /dev/null @@ -1,53 +0,0 @@ ---ダーク・リベリオン・エクシーズ・ドラゴン -function c109253.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,4),2) - c:EnableReviveLimit() - --material - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(109253,0)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c109253.cost) - e1:SetTarget(c109253.target) - e1:SetOperation(c109253.operation) - c:RegisterEffect(e1) -end -function c109253.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST) -end -function c109253.filter(c) - return c:IsFaceup() and c:GetAttack()>0 -end -function c109253.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c109253.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c109253.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c109253.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,g:GetCount(),0,0) -end -function c109253.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetAttack()>0 then - local atk=tc:GetAttack() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(atk/2) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(atk/2) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) - end - end -end diff --git a/script/c109254.lua b/script/c109254.lua deleted file mode 100644 index fe94e0d8..00000000 --- a/script/c109254.lua +++ /dev/null @@ -1,123 +0,0 @@ ---星輝士 トライヴェール -function c109254.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsSetCard,0x9c),4),3) - c:EnableReviveLimit() - --Summon Limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetOperation(c109254.sumop) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetCondition(c109254.sumcon) - c:RegisterEffect(e2) - --to Hand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(109254,0)) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCondition(c109254.thcon) - e3:SetTarget(c109254.thtg) - e3:SetOperation(c109254.thop) - c:RegisterEffect(e3) - --handdes - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(109254,1)) - e4:SetCategory(CATEGORY_TOGRAVE) - e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_MZONE) - e4:SetCountLimit(1) - e4:SetCost(c109254.hdcost) - e4:SetTarget(c109254.hdtg) - e4:SetOperation(c109254.hdop) - c:RegisterEffect(e4) - --spsummon - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(109254,2)) - e5:SetCategory(CATEGORY_SPECIAL_SUMMON) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e5:SetCode(EVENT_TO_GRAVE) - e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e5:SetCondition(c109254.spcon) - e5:SetTarget(c109254.sptg) - e5:SetOperation(c109254.spop) - c:RegisterEffect(e5) - if not c109254.global_check then - c109254.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_SPSUMMON_SUCCESS) - ge1:SetOperation(c109254.checkop) - Duel.RegisterEffect(ge1,0) - end -end -function c109254.sumop(e,tp,eg,ep,ev,re,r,rp) - Duel.RegisterFlagEffect(tp,109254,RESET_PHASE+PHASE_END,0,1) -end -function c109254.sumcon(e) - return Duel.GetFlagEffect(e:GetHandlerPlayer(),109254)~=0 -end -function c109254.checkop(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - while tc do - local sump=tc:GetSummonPlayer() - if not tc:IsSetCard(0x9c) and Duel.GetFlagEffect(sump,109254)==0 then - Duel.RegisterFlagEffect(sump,109254,RESET_PHASE+PHASE_END,0,1) - end - tc=eg:GetNext() - end -end -function c109254.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ -end -function c109254.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c109254.thop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.SendtoHand(g,nil,REASON_EFFECT) -end -function c109254.hdcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c109254.hdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(1-tp,LOCATION_HAND,0)~=0 end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_HAND) -end -function c109254.hdop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0) - if g:GetCount()==0 then return end - local sg=g:RandomSelect(1-tp,1) - Duel.SendtoGrave(sg,REASON_EFFECT) -end -function c109254.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetOverlayCount()>0 -end -function c109254.spfilter(c,e,tp) - return c:IsSetCard(0x9c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c109254.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp and chkc:IsSetCard(0x9c) - and chkc:IsCanBeSpecialSummoned(e,0,tp,false,false) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c109254.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c109254.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c109254.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c109264.lua b/script/c109264.lua deleted file mode 100644 index a4a40ff7..00000000 --- a/script/c109264.lua +++ /dev/null @@ -1,71 +0,0 @@ ---神の写し身との接触(エルシャドール・フージョン) -function c109264.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1e0) - e1:SetCountLimit(1,109264+EFFECT_COUNT_CODE_OATH) - e1:SetTarget(c109264.target) - e1:SetOperation(c109264.activate) - c:RegisterEffect(e1) -end -function c109264.filter1(c,e) - return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) -end -function c109264.filter2(c,e,tp,m,f,chkf) - return c:IsType(TYPE_FUSION) and c:IsSetCard(0x9d) and (not f or f(c)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) -end -function c109264.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c109264.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) - local res=Duel.IsExistingMatchingCard(c109264.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - res=Duel.IsExistingMatchingCard(c109264.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c109264.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c109264.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) - local sg1=Duel.GetMatchingGroup(c109264.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - sg2=Duel.GetMatchingGroup(c109264.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end diff --git a/script/c109266.lua b/script/c109266.lua deleted file mode 100644 index 1ac8d988..00000000 --- a/script/c109266.lua +++ /dev/null @@ -1,50 +0,0 @@ ---宣告者の神託 -function c109266.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c109266.target) - e1:SetOperation(c109266.activate) - c:RegisterEffect(e1) -end -function c109266.filter(c,e,tp,m) - local cd=c:GetCode() - if cd~=109245 or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) then return false end - if m:IsContains(c) then - m:RemoveCard(c) - result=m:CheckWithSumGreater(Card.GetRitualLevel,c:GetLevel(),c) - m:AddCard(c) - else - result=m:CheckWithSumGreater(Card.GetRitualLevel,c:GetLevel(),c) - end - return result -end -function c109266.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local mg=Duel.GetRitualMaterial(tp) - return Duel.IsExistingMatchingCard(c109266.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg) - end - Duel.SetChainLimit(c109266.climit) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c109266.activate(e,tp,eg,ep,ev,re,r,rp) - local mg=Duel.GetRitualMaterial(tp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c109266.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg) - if tg:GetCount()>0 then - local tc=tg:GetFirst() - mg:RemoveCard(tc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,tc:GetLevel(),tc) - tc:SetMaterial(mat) - Duel.ReleaseRitualMaterial(mat) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end -function c109266.climit(e,lp,tp) - return lp==tp -end diff --git a/script/c109272.lua b/script/c109272.lua deleted file mode 100644 index 8ca227b9..00000000 --- a/script/c109272.lua +++ /dev/null @@ -1,68 +0,0 @@ ---幻影騎士団シャドーベイル -function c109272.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetTarget(c109272.target1) - e1:SetOperation(c109272.activate) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_GRAVE) - e2:SetProperty(EFFECT_FLAG_DELAY) - e2:SetCondition(c109272.condition) - e2:SetTarget(c109272.target2) - e2:SetOperation(c109272.operation) - c:RegisterEffect(e2) -end -function c109272.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) -end -function c109272.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(300) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - tc:RegisterEffect(e2) - end -end -function c109272.condition(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttacker() - return at:GetControler()~=tp and Duel.GetAttackTarget()==nil -end -function c109272.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and - Duel.IsPlayerCanSpecialSummonMonster(tp,109272,0,0x11,0,300,4,RACE_WARRIOR,ATTRIBUTE_DARK) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c109272.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 - or not Duel.IsPlayerCanSpecialSummonMonster(tp,109272,0,0x11,0,300,4,RACE_WARRIOR,ATTRIBUTE_DARK) then return end - c:AddTrapMonsterAttribute(TYPE_NORMAL,ATTRIBUTE_DARK,RACE_WARRIOR,4,0,300) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_DEFENCE) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0xfe0000) - e1:SetValue(LOCATION_REMOVED) - c:RegisterEffect(e1) -end diff --git a/script/c10971759.lua b/script/c10971759.lua new file mode 100644 index 00000000..eb021cdf --- /dev/null +++ b/script/c10971759.lua @@ -0,0 +1,100 @@ +--光虫異変 +function c10971759.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(10971759,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1,10971759+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c10971759.sptg) + e1:SetOperation(c10971759.spop) + c:RegisterEffect(e1) + --Change level + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(10971759,1)) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_GRAVE) + e2:SetCost(c10971759.cost) + e2:SetTarget(c10971759.target) + e2:SetOperation(c10971759.operation) + c:RegisterEffect(e2) +end +function c10971759.spfilter(c,e,tp) + return c:GetLevel()==3 and c:IsRace(RACE_INSECT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c10971759.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c10971759.spfilter(chkc,e,tp) end + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and Duel.IsExistingTarget(c10971759.spfilter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c10971759.spfilter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) +end +function c10971759.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if Duel.GetLocationCount(tp,LOCATION_MZONE)39 - and tc==nil then - Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_SZONE,POS_FACEUP,true) - if tc2==nil then - local token=Duel.CreateToken(tp,110000000,nil,nil,nil,nil,nil,nil) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fc0000) - e1:SetValue(TYPE_SPELL+TYPE_FIELD) - token:RegisterEffect(e1) - Duel.MoveToField(token,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true) - Duel.SpecialSummonComplete() - end - else - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_RULE) - end - if e:GetHandler():GetPreviousLocation()==LOCATION_HAND then - Duel.Draw(tp,1,REASON_RULE) - end -end -function c110000000.damop(e,tp,eg,ep,ev,re,r,rp) - local c=re:GetHandler() - if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and c~=e:GetHandler() - and c:GetControler()==e:GetHandler():GetControler() and not c:IsSetCard(0x200) then - Duel.Damage(rp,2000,REASON_EFFECT) - end -end -function c110000000.ctcon(e) - local g=Duel.GetMatchingGroup(Card.IsHasEffect,e:GetHandler():GetControler(),0,LOCATION_MZONE,nil,100100090) - return e:GetHandler():GetFlagEffect(100100108)==0 and g:GetCount()==0 - and e:GetHandler():IsLocation(LOCATION_SZONE) -end -function c110000000.cttg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetChainLimit(aux.FALSE) -end -function c110000000.ctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x91,1) -end -function c110000000.aclimit(e,re) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and re:GetHandler():IsType(TYPE_FIELD) -end -function c110000000.aclimit2(e,c) - return c:IsType(TYPE_FIELD) -end -function c110000000.cosilter(c) - return c:IsSetCard(0x200) and not c:IsPublic() -end -function c110000000.cost1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x91,4,REASON_COST) - and Duel.IsExistingMatchingCard(c110000000.cosilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - e:GetHandler():RemoveCounter(tp,0x91,4,REASON_COST) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) - local g=Duel.SelectMatchingCard(tp,c110000000.cosilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.ConfirmCards(1-tp,g) - Duel.ShuffleHand(tp) -end -function c110000000.dafilter(c) - return c:IsSetCard(0x200) and c:IsType(TYPE_SPELL) -end -function c110000000.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c110000000.dafilter,tp,LOCATION_HAND,0,1,nil) end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(800) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) -end -function c110000000.op1(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c110000000.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x91,7,REASON_COST) - and Duel.IsExistingMatchingCard(c110000000.cosilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - e:GetHandler():RemoveCounter(tp,0x91,7,REASON_COST) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) - local g=Duel.SelectMatchingCard(tp,c110000000.cosilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.ConfirmCards(1-tp,g) - Duel.ShuffleHand(tp) -end -function c110000000.tg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c110000000.op2(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end -function c110000000.cost3(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x91,10,REASON_COST) - and Duel.IsExistingMatchingCard(c110000000.cosilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - e:GetHandler():RemoveCounter(tp,0x91,10,REASON_COST) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) - local g=Duel.SelectMatchingCard(tp,c110000000.cosilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.ConfirmCards(1-tp,g) - Duel.ShuffleHand(tp) -end -function c110000000.tg3(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_ONFIELD and Card.IsDestructable(chkc) end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c110000000.op3(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c110000000.tgn(e,c) - return c==e:GetHandler() -end \ No newline at end of file diff --git a/script/c110000010.lua b/script/c110000010.lua deleted file mode 100644 index 82625e43..00000000 --- a/script/c110000010.lua +++ /dev/null @@ -1,171 +0,0 @@ ---ラーの翼神竜WCS効果 -function c110000010.initial_effect(c) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c110000010.ttcon) - e1:SetOperation(c110000010.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c110000010.setcon) - c:RegisterEffect(e2) - --summon - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_DISABLE_SUMMON) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - c:RegisterEffect(e3) - --summon success - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_SUMMON_SUCCESS) - e4:SetOperation(c110000010.sumsuc) - c:RegisterEffect(e4) - --cannot be target - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetRange(LOCATION_MZONE) - e5:SetValue(1) - c:RegisterEffect(e5) - --to grave - local e6=Effect.CreateEffect(c) - e6:SetDescription(aux.Stringid(110000010,0)) - e6:SetCategory(CATEGORY_TOGRAVE) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetRange(LOCATION_MZONE) - e6:SetProperty(EFFECT_FLAG_REPEAT) - e6:SetCountLimit(1) - e6:SetCode(EVENT_PHASE+PHASE_END) - e6:SetCondition(c110000010.tgcon) - e6:SetTarget(c110000010.tgtg) - e6:SetOperation(c110000010.tgop) - c:RegisterEffect(e6) - - --atk - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_SINGLE) - e7:SetCode(EFFECT_MATERIAL_CHECK) - e7:SetValue(c110000010.valcheck) - c:RegisterEffect(e7) - local e8=Effect.CreateEffect(c) - e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e8:SetCode(EVENT_SUMMON_SUCCESS) - e8:SetOperation(c110000010.atkop) - c:RegisterEffect(e8) - - --effect - local e9=Effect.CreateEffect(c) - e9:SetDescription(aux.Stringid(110000010,0)) - e9:SetCategory(CATEGORY_DESTROY+CATEGORY_ATKCHANGE) - e9:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e9:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) - e9:SetCode(EVENT_SPSUMMON_SUCCESS) - e9:SetOperation(c110000010.op) - c:RegisterEffect(e9) - -end - -function c110000010.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c110000010.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c110000010.setcon(e,c) - if not c then return true end - return false -end -function c110000010.sumsuc(e,tp,eg,ep,ev,re,r,rp) - Duel.SetChainLimitTillChainEnd(aux.FALSE) -end -function c110000010.tgcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c110000010.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) -end -function c110000010.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoGrave(c,REASON_EFFECT) - end -end - -function c110000010.valcheck(e,c) - local g=c:GetMaterial() - c110000010.atk=g:GetSum(Card.GetBaseAttack) - c110000010.def=g:GetSum(Card.GetBaseDefence) -end -function c110000010.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetMaterialCount()==0 then return 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(c110000010.atk) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) - e2:SetValue(c110000010.def) - c:RegisterEffect(e2) -end - -function c110000010.op(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - - local op=0 - local b1=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,0) - local b2=Duel.IsExistingMatchingCard(c110000010.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) - - if Duel.CheckLPCost(tp,1000) then - if b1 and b2 then op=Duel.SelectOption(tp,aux.Stringid(10000010,0),aux.Stringid(10000010,1)) - end - - - elseif b1 then op=Duel.SelectOption(tp,aux.Stringid(10000010,0)) - elseif b2 then Duel.SelectOption(tp,aux.Stringid(10000010,1)) op=1 - else return end - if op==0 then - if chk==0 then return Duel.GetLP(tp)>1 end - local lp=Duel.GetLP(tp) - e:SetLabel(lp-1) - Duel.PayLPCost(tp,lp-1) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(e:GetLabel()) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) - end - else - - Duel.PayLPCost(tp,1000) - local g=Duel.SelectTarget(tp,c110000010.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.Destroy(g,REASON_EFFECT,LOCATION_REMOVED) - end -end - -function c110000010.filter(c,e) - return not e or c:IsRelateToEffect(e) -end \ No newline at end of file diff --git a/script/c110000099.lua b/script/c110000099.lua deleted file mode 100644 index 077ea7b5..00000000 --- a/script/c110000099.lua +++ /dev/null @@ -1,77 +0,0 @@ ---Cursed Prison ---Last edited: 13 Sept 2012 Percy -function c110000099.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c110000099.target) - e1:SetOperation(c110000099.operation) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetOperation(c110000099.desop) - c:RegisterEffect(e2) - --Destroy2 - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetCondition(c110000099.descon2) - e3:SetOperation(c110000099.desop2) - c:RegisterEffect(e3) -end -function c110000099.filter(c,e,tp) - return c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c110000099.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c110000099.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c110000099.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then - c:SetCardTarget(tc) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE) - e1:SetRange(LOCATION_ONFIELD) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1,true) - --cannot trigger - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_TRIGGER) - e3:SetReset(RESET_EVENT+0x1fc0000) - tc:RegisterEffect(e3) - --cannot change position - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_CANNOT_CHANGE_POSITION) - e4:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e4) - Duel.SpecialSummonComplete() - end -end -function c110000099.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetFirstCardTarget() - if tc and tc:IsLocation(LOCATION_MZONE) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c110000099.descon2(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetFirstCardTarget() - return tc and eg:IsContains(tc) -end -function c110000099.desop2(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end diff --git a/script/c110000100.lua b/script/c110000100.lua deleted file mode 100644 index fdcd6c89..00000000 --- a/script/c110000100.lua +++ /dev/null @@ -1,83 +0,0 @@ ---オレイカルコス・デウテロス -function c110000100.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c110000100.atcon) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_RECOVER) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetTarget(c110000100.target) - e2:SetOperation(c110000100.operation) - c:RegisterEffect(e2) - --DESTROY - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_ATTACK_ANNOUNCE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c110000100.atkcon) - e3:SetCost(c110000100.cost) - e3:SetTarget(c110000100.atktg) - e3:SetOperation(c110000100.atkop) - c:RegisterEffect(e3) - --selfdes - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_ADJUST) - e4:SetRange(LOCATION_SZONE) - e4:SetCondition(c110000100.sdcon2) - e4:SetOperation(c110000100.sdop) - c:RegisterEffect(e4) -end -function c110000100.sdcon2(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(110000100)==0 -end -function c110000100.sdop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():CopyEffect(48179391,RESET_EVENT+0x1fe0000) - e:GetHandler():RegisterFlagEffect(110000100,RESET_EVENT+0x1fe0000,0,1) -end -function c110000100.atcon(e) - local tc=Duel.GetFieldCard(e:GetHandler():GetControler(),LOCATION_SZONE,5) - return tc~=nil and tc:IsFaceup() and tc:GetCode()==48179391 -end -function c110000100.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0 end - Duel.SetTargetPlayer(tp) - local rec=Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)*500 - Duel.SetTargetParam(rec) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,rec) -end -function c110000100.operation(e,tp,eg,ep,ev,re,r,rp) - local rec=Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)*500 - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - Duel.Recover(p,rec,REASON_EFFECT) -end -function c110000100.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,nil,1,nil) end - local g=Duel.SelectReleaseGroup(tp,nil,1,1,nil) - Duel.Release(g,REASON_COST) -end -function c110000100.atkcon(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c110000100.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsDestructable() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) -end -function c110000100.atkop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetAttacker() - if tc:IsRelateToEffect(e) and tc:IsAttackable() and Duel.NegateAttack() then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c110000101.lua b/script/c110000101.lua deleted file mode 100644 index 602dfbc1..00000000 --- a/script/c110000101.lua +++ /dev/null @@ -1,43 +0,0 @@ ---オレイカルコス・トリトス -function c110000101.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c110000101.atcon) - c:RegisterEffect(e1) - --immune - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e3:SetCode(EFFECT_IMMUNE_EFFECT) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetValue(c110000101.efilter) - c:RegisterEffect(e3) - --selfdes - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_ADJUST) - e4:SetRange(LOCATION_SZONE) - e4:SetCondition(c110000101.sdcon2) - e4:SetOperation(c110000101.sdop) - c:RegisterEffect(e4) -end -function c110000101.sdcon2(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(110000101)==0 -end -function c110000101.sdop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():CopyEffect(110000100,RESET_EVENT+0x1fe0000) - e:GetHandler():RegisterFlagEffect(110000101,RESET_EVENT+0x1fe0000,0,1) -end -function c110000101.atcon(e) - local tc=Duel.GetFieldCard(e:GetHandler():GetControler(),LOCATION_SZONE,5) - return tc~=nil and tc:IsFaceup() and tc:GetCode()==110000100 -end -function c110000101.sdcon2(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(110000101)==0 -end -function c110000101.efilter(e,te) - return te:IsActiveType(TYPE_SPELL+TYPE_TRAP) and te:GetHandler():GetControler()~=e:GetHandler():GetControler() -end \ No newline at end of file diff --git a/script/c110000102.lua b/script/c110000102.lua deleted file mode 100644 index 526057d9..00000000 --- a/script/c110000102.lua +++ /dev/null @@ -1,68 +0,0 @@ ---Living Fossil -function c110000102.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c110000102.target) - e1:SetOperation(c110000102.operation) - c:RegisterEffect(e1) - --atk down - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetValue(-1000) - c:RegisterEffect(e2) - --negate - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_DISABLE) - c:RegisterEffect(e3) - --Destroy - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e4:SetCode(EVENT_LEAVE_FIELD) - e4:SetOperation(c110000102.desop) - c:RegisterEffect(e4) -end -function c110000102.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c110000102.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp and c110000102.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c110000102.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c110000102.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c110000102.eqlimit(e,c) - return e:GetOwner()==c -end -function c110000102.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)==0 then return end - Duel.Equip(tp,c,tc) - --Add Equip limit - local e1=Effect.CreateEffect(tc) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c110000102.eqlimit) - c:RegisterEffect(e1) - end -end -function c110000102.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=c:GetFirstCardTarget() - if c:IsReason(REASON_DESTROY) and tc and tc:IsLocation(LOCATION_MZONE) then - Duel.Destroy(tc,REASON_EFFECT) - end -end - diff --git a/script/c11047543.lua b/script/c11047543.lua index 3471c1f1..d0db4654 100644 --- a/script/c11047543.lua +++ b/script/c11047543.lua @@ -46,5 +46,5 @@ function c11047543.operation(e,tp,eg,ep,ev,re,r,rp) Duel.SendtoGrave(g,REASON_EFFECT+REASON_RETURN) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local ssg=sg:Select(tp,1,1,nil) - Duel.SpecialSummon(ssg,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(ssg,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end diff --git a/script/c11050415.lua b/script/c11050415.lua new file mode 100644 index 00000000..02b7cce9 --- /dev/null +++ b/script/c11050415.lua @@ -0,0 +1,71 @@ +--超カバーカーニバル +function c11050415.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c11050415.target) + e1:SetOperation(c11050415.activate) + c:RegisterEffect(e1) +end +function c11050415.filter(c,e,tp) + return c:IsCode(41440148) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c11050415.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c11050415.filter,tp,0x13,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13) +end +function c11050415.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c11050415.filter,tp,0x13,0,1,1,nil,e,tp) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + if Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)==0 then return end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 or (Duel.IsPlayerAffectedByEffect(tp,59822133) and ft>1) then return end + if Duel.IsPlayerCanSpecialSummonMonster(tp,18027139,0,0x4011,0,0,1,RACE_BEAST,ATTRIBUTE_EARTH) + and Duel.SelectYesNo(tp,aux.Stringid(11050415,0)) then + Duel.BreakEffect() + local c=e:GetHandler() + for i=1,ft do + local token=Duel.CreateToken(tp,11050415+i) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UNRELEASABLE_SUM) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetValue(1) + e1:SetReset(RESET_EVENT+0x1fe0000) + token:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UNRELEASABLE_NONSUM) + token:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetRange(LOCATION_MZONE) + e3:SetAbsoluteRange(tp,1,0) + e3:SetTarget(c11050415.splimit) + e3:SetReset(RESET_EVENT+0x1fe0000) + token:RegisterEffect(e3) + end + Duel.SpecialSummonComplete() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET) + e1:SetTargetRange(0,LOCATION_MZONE) + e1:SetValue(c11050415.atlimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + end + end +end +function c11050415.splimit(e,c) + return c:IsLocation(LOCATION_EXTRA) +end +function c11050415.atlimit(e,c) + return not c:IsCode(18027139) +end diff --git a/script/c11052544.lua b/script/c11052544.lua index 1cb3f494..bca253d7 100644 --- a/script/c11052544.lua +++ b/script/c11052544.lua @@ -10,7 +10,7 @@ function c11052544.initial_effect(c) c:RegisterEffect(e1) end function c11052544.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c11052544.cfilter(c) return c:IsFaceup() and c:IsAttackPos() and c:IsSetCard(0x100d) diff --git a/script/c11082056.lua b/script/c11082056.lua index 2395dd81..8a5ed486 100644 --- a/script/c11082056.lua +++ b/script/c11082056.lua @@ -34,7 +34,7 @@ function c11082056.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(tp,c11082056.tgfilter,tp,LOCATION_HAND+LOCATION_SZONE,0,1,1,nil,e,tp) local tc=g:GetFirst() if tc and not tc:IsImmuneToEffect(e) then - if tc:IsFacedown() then Duel.ConfirmCards(1-tp,tc) end + if tc:IsOnField() and tc:IsFacedown() then Duel.ConfirmCards(1-tp,tc) end Duel.SendtoGrave(tc,REASON_EFFECT) if not tc:IsLocation(LOCATION_GRAVE) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) diff --git a/script/c111008301.lua b/script/c111008301.lua deleted file mode 100644 index 6bb9b391..00000000 --- a/script/c111008301.lua +++ /dev/null @@ -1,32 +0,0 @@ ---フォトン・トレード -function c111008301.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c111008301.cost) - e1:SetTarget(c111008301.target) - e1:SetOperation(c111008301.activate) - c:RegisterEffect(e1) -end -function c111008301.filter(c) - return c:IsSetCard(0x55) and c:IsAbleToGraveAsCost() and c:IsType(TYPE_MONSTER) -end -function c111008301.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c111008301.filter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c111008301.filter,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c111008301.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c111008301.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c111009401.lua b/script/c111009401.lua deleted file mode 100644 index 4501ee76..00000000 --- a/script/c111009401.lua +++ /dev/null @@ -1,27 +0,0 @@ ---Ｖ（ブイ）コール -function c111009401.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c111009401.target) - e1:SetOperation(c111009401.activate) - c:RegisterEffect(e1) -end -function c111009401.filter(c) - return (c:IsCode(51638941) or c:IsCode(33725002) or c:IsCode(66970002) - or c:IsCode(111009402) or c:IsSetCard(0x41) or c:IsSetCard(0x5008)) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER) -end -function c111009401.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c111009401.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c111009401.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c111009401.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c111010501.lua b/script/c111010501.lua deleted file mode 100644 index a252e6b7..00000000 --- a/script/c111010501.lua +++ /dev/null @@ -1,30 +0,0 @@ ---幻木龍 -function c111010501.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(111010501,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c111010501.condition) - e1:SetOperation(c111010501.operation) - c:RegisterEffect(e1) -end -function c111010501.cfilter(c) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WATER) -end -function c111010501.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c111010501.cfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c111010501.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --change base attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(c:GetLevel()*2) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) -end diff --git a/script/c111010502.lua b/script/c111010502.lua deleted file mode 100644 index 2ca41c64..00000000 --- a/script/c111010502.lua +++ /dev/null @@ -1,20 +0,0 @@ ---幻水龍 -function c111010502.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_HAND) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetCondition(c111010502.spcon) - c:RegisterEffect(e1) -end -function c111010502.filter(c) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsRace(RACE_DRAGON) -end -function c111010502.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c111010502.filter,c:GetControler(),LOCATION_MZONE,0,1,nil) -end - diff --git a/script/c111010503.lua b/script/c111010503.lua deleted file mode 100644 index 82fe2024..00000000 --- a/script/c111010503.lua +++ /dev/null @@ -1,39 +0,0 @@ ---武装神竜プロテクト・ドラゴン -function c111010503.initial_effect(c) - --indes - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_ONFIELD,0) - e1:SetTarget(c111010503.indes) - e1:SetValue(1) - c:RegisterEffect(e1) - --destroy equip - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(111010503,0)) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_EQUIP) - e2:SetTarget(c111010503.destg) - e2:SetOperation(c111010503.desop) - c:RegisterEffect(e2) -end -function c111010503.indes(e,c) - return c:IsType(TYPE_SPELL+TYPE_EQUIP) -end -function c111010503.filter(c,ec) - return c:GetEquipTarget()==ec -end -function c111010503.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c111010503.filter,1,nil,e:GetHandler()) end -end -function c111010503.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(500) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) -end diff --git a/script/c111010901.lua b/script/c111010901.lua deleted file mode 100644 index ce7f9714..00000000 --- a/script/c111010901.lua +++ /dev/null @@ -1,48 +0,0 @@ ---Ｎｏ．７３激瀧神 アビス・スプラッシュ -function c111010901.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,5),2) - c:EnableReviveLimit() - --attack up - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetDescription(aux.Stringid(111010901,0)) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_MZONE) - --e1:SetCountLimit(1) - e1:SetCost(c111010901.cost) - e1:SetCondition(c111010901.condition) - e1:SetOperation(c111010901.operation) - c:RegisterEffect(e1) ---battle indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(c111010901.indes) - c:RegisterEffect(e2) -end -c111010901.xyz_number=73 -function c111010901.indes(e,c) - return not c:IsSetCard(0x48) -end -function c111010901.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c111010901.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c111010901.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(c:GetAttack()*2) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_BATTLE) - c:RegisterEffect(e1) - end -end diff --git a/script/c111010902.lua b/script/c111010902.lua deleted file mode 100644 index c5727b4b..00000000 --- a/script/c111010902.lua +++ /dev/null @@ -1,56 +0,0 @@ ---Ｎｏ．９４クリスタル・ゼロ -function c111010902.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,5),2) - c:EnableReviveLimit() - --attack up - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetDescription(aux.Stringid(111010902,0)) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_MZONE) - --e1:SetCountLimit(1) - e1:SetCondition(c111010902.condition) - e1:SetCost(c111010902.cost) - e1:SetTarget(c111010902.target) - e1:SetOperation(c111010902.activate) - c:RegisterEffect(e1) - --battle indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(c111010902.indes) - c:RegisterEffect(e2) -end -c111010902.xyz_number=94 -function c111010902.indes(e,c) - return not c:IsSetCard(0x48) -end -function c111010902.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c111010902.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c111010902.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) -end -function c111010902.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local atk=tc:GetAttack() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - e1:SetValue(atk/2) - tc:RegisterEffect(e1) - end -end diff --git a/script/c111011001.lua b/script/c111011001.lua deleted file mode 100644 index fb817568..00000000 --- a/script/c111011001.lua +++ /dev/null @@ -1,96 +0,0 @@ ---CNo.69　カオス・オブ・アームズ -function c111011001.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,5),4) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c111011001.recon) - e1:SetOperation(c111011001.reop) - c:RegisterEffect(e1) - --battle indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(c111011001.indes) - c:RegisterEffect(e2) -end -c111011001.xyz_number=69 -function c111011001.indes(e,c) - return not c:IsSetCard(0x48) -end -function c111011001.recon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,2407234) -end -function c111011001.reop(e,tp,eg,ep,ev,re,r,rp) - --Disable - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetDescription(aux.Stringid(111011001,0)) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c111011001.distg) - e3:SetCost(c111011001.cost) - e3:SetOperation(c111011001.disop) - e3:SetReset(RESET_EVENT+0x1fe0000) - e:GetHandler():RegisterEffect(e3) - --Activate - local e4=Effect.CreateEffect(e:GetHandler()) - e4:SetDescription(aux.Stringid(111011001,1)) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_ATTACK_ANNOUNCE) - e4:SetRange(LOCATION_MZONE) - e4:SetCondition(c111011001.condition) - e4:SetCost(c111011001.cost) - e4:SetTarget(c111011001.target) - e4:SetOperation(c111011001.activate) - e4:SetReset(RESET_EVENT+0x1fe0000) - e:GetHandler():RegisterEffect(e4) -end -function c111011001.disfilter(c) - return c:IsFaceup() -end -function c111011001.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c111011001.disfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c111011001.disfilter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c111011001.disfilter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) -end -function c111011001.disop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local c=e:GetHandler() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local code=tc:GetOriginalCode() - local atk=tc:GetAttack() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(atk) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_STANDBY,2) - c:RegisterEffect(e1) - c:CopyEffect(code, RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY,2) - end -end -function c111011001.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c111011001.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 - and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c111011001.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c111011001.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c111011002.lua b/script/c111011002.lua deleted file mode 100644 index da1a1786..00000000 --- a/script/c111011002.lua +++ /dev/null @@ -1,126 +0,0 @@ ---カオス・フィールド -function c111011002.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --XYZ - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(111011002,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetCondition(c111011002.condition) - e2:SetTarget(c111011002.target) - e2:SetCost(c111011002.cost) - e2:SetOperation(c111011002.operation) - c:RegisterEffect(e2) - --XYZ - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(111011002,1)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_SZONE) - e3:SetCountLimit(1) - e3:SetTarget(c111011002.target2) - e3:SetOperation(c111011002.activate) - c:RegisterEffect(e3) -end -function c111011002.filter(c,e,tp) - return c:IsSetCard(0x48) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c111011002.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c111011002.filter,tp,0,LOCATION_EXTRA,1,nil,e,tp) -end -function c111011002.ofilter(c) - return c:GetOverlayCount()~=0 and c:IsSetCard(0x1048) and c:IsFaceup() -end -function c111011002.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingTarget(c111011002.ofilter,tp,LOCATION_MZONE,0,1,nil) end - local g=Duel.SelectMatchingCard(tp,c111011002.ofilter,tp,LOCATION_MZONE,0,1,1,nil):GetFirst() - g:RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c111011002.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c111011002.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local xyzg=Duel.GetMatchingGroup(c111011002.filter,tp,0,LOCATION_EXTRA,nil,e,tp) - if xyzg:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local xyz=xyzg:RandomSelect(tp,1):GetFirst() - local rank=xyz:GetRank()+1 - if rank==0 then return end - if xyz and Duel.SpecialSummonStep(xyz,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - xyz:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - xyz:RegisterEffect(e2) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetOperation(c111011002.desop) - e3:SetReset(RESET_EVENT+0x1fe0000) - e3:SetCountLimit(1) - xyz:RegisterEffect(e3) - local e4=e2:Clone() - e4:SetCode(EFFECT_CANNOT_ATTACK) - xyz:RegisterEffect(e4) - xyz:RegisterFlagEffect(111011002,RESET_EVENT+0x1fe0000,0,1) - Duel.SpecialSummonComplete() - end - xyz:CompleteProcedure() - end -end -function c111011002.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end -function c111011002.filter3(c,e,tp) - local rank=c:GetRank() - return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:GetFlagEffect(111011002)~=0 - and Duel.IsExistingMatchingCard(c111011002.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,rank,e,tp) -end -function c111011002.xyzfilter(c,rank,e,tp) - return c:GetRank()==rank+1 and (c:IsSetCard(0x1048) or c:IsSetCard(0x1073)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,true,false) -end -function c111011002.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c111011002.filter3(chkc) end - if chk==0 then return Duel.IsExistingTarget(c111011002.filter3,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c111011002.filter3,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c111011002.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - local sg=Group.CreateGroup() - if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end - local rank=tc:GetRank() - sg:AddCard(tc) - local xyzg=Duel.GetMatchingGroup(c111011002.xyzfilter,tp,LOCATION_EXTRA,0,nil,rank,e,tp) - if xyzg:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local xyz=xyzg:Select(tp,1,1,nil):GetFirst() - local mg=tc:GetOverlayGroup() - xyz:SetMaterial(sg) - Duel.BreakEffect() - if mg:GetCount()~=0 then - Duel.Overlay(xyz,mg) - end - Duel.Overlay(xyz,sg) - Duel.SpecialSummon(xyz,SUMMON_TYPE_XYZ,tp,tp,true,false,POS_FACEUP) - end -end diff --git a/script/c111011401.lua b/script/c111011401.lua deleted file mode 100644 index 95653406..00000000 --- a/script/c111011401.lua +++ /dev/null @@ -1,71 +0,0 @@ ---ストリングスシェード -function c111011401.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c111011401.target) - e1:SetOperation(c111011401.activate) - c:RegisterEffect(e1) - --salvage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(111011401,0)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_PREDRAW) - e2:SetRange(LOCATION_GRAVE) - e2:SetCondition(c111011401.thcon) - e2:SetTarget(c111011401.thtg) - e2:SetOperation(c111011401.thop) - c:RegisterEffect(e2) -end -function c111011401.filter(c) - return c:IsFaceup() -end -function c111011401.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c111011401.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c111011401.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c111011401.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c111011401.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(1) - tc:RegisterEffect(e1) - end -end -function c111011401.thcon(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 - and Duel.GetDrawCount(tp)>0 -end -function c111011401.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToHand() end - local dt=Duel.GetDrawCount(tp) - if dt~=0 then - _replace_count=0 - _replace_max=dt - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_DRAW_COUNT) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_DRAW) - e1:SetValue(0) - Duel.RegisterEffect(e1,tp) - end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c111011401.thop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - _replace_count=_replace_count+1 - if _replace_count<=_replace_max and c:IsRelateToEffect(e) then - Duel.SendtoHand(c,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,c) - end -end diff --git a/script/c111011501.lua b/script/c111011501.lua deleted file mode 100644 index df44c897..00000000 --- a/script/c111011501.lua +++ /dev/null @@ -1,43 +0,0 @@ ---エンジェル・ストリングス -function c111011501.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c111011501.target) - e1:SetOperation(c111011501.activate) - c:RegisterEffect(e1) -end -function c111011501.mfilter(c) - return c:IsFaceup() and c:IsSetCard(0x83) and c:IsType(TYPE_XYZ) -end -function c111011501.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_XYZ) -end -function c111011501.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c111011501.mfilter(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c111011501.mfilter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingTarget(c111011501.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,c111011501.mfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c111011501.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local mat=Duel.GetMatchingGroup(c111011501.filter,tp,LOCATION_GRAVE,0,nil,e,tp) - if tc:IsRelateToEffect(e) and mat:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local mat1=mat:Select(tp,1,1,nil):GetFirst() - if Duel.SpecialSummon(mat1,0,tp,tp,false,false,POS_FACEUP) then - Duel.BreakEffect() - local mg=tc:GetOverlayGroup() - if mg:GetCount()~=0 then - Duel.Overlay(mat1,mg) - end - Duel.Overlay(mat1,tc) - end - end -end diff --git a/script/c111011601.lua b/script/c111011601.lua deleted file mode 100644 index 3b917cfd..00000000 --- a/script/c111011601.lua +++ /dev/null @@ -1,25 +0,0 @@ ---ディープ・スペース・クルーザー・ナイン -function c111011601.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c111011601.spcon) - e1:SetOperation(c111011601.spop) - c:RegisterEffect(e1) -end -function c111011601.spfilter(c) - return c:IsRace(RACE_MACHINE) and c:IsAbleToGraveAsCost() -end -function c111011601.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c111011601.spfilter,c:GetControler(),LOCATION_HAND,0,1,c) -end -function c111011601.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c111011601.spfilter,c:GetControler(),LOCATION_HAND,0,1,1,c) - Duel.SendtoGrave(g,REASON_COST) -end diff --git a/script/c111011802.lua b/script/c111011802.lua deleted file mode 100644 index 67e574c9..00000000 --- a/script/c111011802.lua +++ /dev/null @@ -1,94 +0,0 @@ ---ランクアップ・アドバンテージ -function c111011802.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --draw - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(111011802,0)) - e2:SetCategory(CATEGORY_DRAW) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c111011802.drcon) - e2:SetTarget(c111011802.drtg) - e2:SetOperation(c111011802.drop) - c:RegisterEffect(e2) - --disable - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_BE_BATTLE_TARGET) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c111011802.discon1) - e3:SetOperation(c111011802.disop1) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - e4:SetRange(LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_ONFIELD) - e4:SetTargetRange(LOCATION_MZONE,0) - e4:SetOperation(c111011802.spop) - c:RegisterEffect(e4) -end -function c111011802.drfilter(c) - return c:GetSummonType()==SUMMON_TYPE_XYZ -end -function c111011802.drcon(e,tp,eg,ep,ev,re,r,rp) - local rc=re:GetHandler() - return eg:IsExists(c111011802.drfilter,1,nil) and rc:IsSetCard(0x95) -end -function c111011802.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c111011802.drop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) or e:GetHandler():IsFacedown() then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end -function c111011802.discon1(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker():GetFlagEffect(111011802)~=0 - and Duel.GetAttacker():GetControler()==tp -end -function c111011802.disop1(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetAttackTarget() - c:CreateRelation(tc,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetProperty(EFFECT_FLAG_OWNER_RELATE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - e1:SetCondition(c111011802.discon2) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_CHAIN_SOLVING) - e2:SetRange(LOCATION_SZONE) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - e2:SetOperation(c111011802.disop2) - e2:SetLabelObject(tc) - c:RegisterEffect(e2) -end -function c111011802.discon2(e) - return e:GetOwner():IsRelateToCard(e:GetHandler()) -end -function c111011802.disop2(e,tp,eg,ep,ev,re,r,rp) - local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) - if loc==LOCATION_MZONE and re:GetHandler()==e:GetLabelObject() then - Duel.NegateEffect(ev) - end -end -function c111011802.spop(e,tp,eg,ep,ev,re,r,rp) - local tg=eg:GetFirst() - local rc=re:GetHandler() - if eg:GetCount()==1 and tg:GetSummonType()==SUMMON_TYPE_XYZ - and rc:IsSetCard(0x95) then - tg:RegisterFlagEffect(111011802,RESET_EVENT+0x1fe0000,0,1) - end -end diff --git a/script/c111011803.lua b/script/c111011803.lua deleted file mode 100644 index c88f4021..00000000 --- a/script/c111011803.lua +++ /dev/null @@ -1,36 +0,0 @@ ---NO4 エーテリック・アヌビス -function c111011803.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,4,2) - c:EnableReviveLimit() - --Search - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(111011803,0)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EVENT_DESTROY) - e2:SetCost(c111011803.cost) - e2:SetTarget(c111011803.sptg) - e2:SetOperation(c111011803.spop) - c:RegisterEffect(e2) -end -function c111011803.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c111011803.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=eg:GetFirst() - if chk==0 then return Duel.GetLocationCount(tc:GetPreviousControler(),LOCATION_SZONE)>0 - and eg:GetCount()==1 and tc:IsLocation(LOCATION_GRAVE) and tc:IsType(TYPE_SPELL+TYPE_TRAP) and tc:GetPreviousControler()==tp - and tc:IsSSetable() end - tc:CreateEffectRelation(e) -end -function c111011803.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - if tc:IsRelateToEffect(e) then - Duel.SSet(tp,tc) - if tc:IsType(TYPE_TRAP) then - tc:SetStatus(STATUS_SET_TURN,false) - end - end -end diff --git a/script/c111011901.lua b/script/c111011901.lua deleted file mode 100644 index 5f78e931..00000000 --- a/script/c111011901.lua +++ /dev/null @@ -1,90 +0,0 @@ ---RUM－アストラル・フォース（アニメ） -function c111011901.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c111011901.target) - e1:SetOperation(c111011901.activate) - c:RegisterEffect(e1) - --salvage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(111011901,0)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_PREDRAW) - e2:SetRange(LOCATION_GRAVE) - e2:SetCondition(c111011901.thcon) - e2:SetTarget(c111011901.thtg) - e2:SetOperation(c111011901.thop) - c:RegisterEffect(e2) -end -function c111011901.filter1(c,e,tp) - local rk=c:GetRank() - return rk>0 and c:IsFaceup() and Duel.IsExistingMatchingCard(c111011901.filter2,tp,LOCATION_EXTRA,0,1,nil,rk+1,e,tp,c:GetCode()) - and not Duel.IsExistingMatchingCard(c111011901.filter3,tp,LOCATION_MZONE,0,1,nil,rk) -end -function c111011901.filter2(c,rk,e,tp,code) - if c:IsCode(6165656) and code~=48995978 then return false end - return (c:GetRank()==rk or c:GetRank()==rk+1) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) -end -function c111011901.filter3(c,rk) - return c:IsFaceup() and c:GetRank()>rk -end -function c111011901.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c111011901.filter1(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c111011901.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,c111011901.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c111011901.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end - local tc=Duel.GetFirstTarget() - if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c111011901.filter2,tp,LOCATION_EXTRA,0,1,1,nil,tc:GetRank()+1,e,tp,tc:GetCode()) - local sc=g:GetFirst() - if sc then - local mg=tc:GetOverlayGroup() - if mg:GetCount()~=0 then - Duel.Overlay(sc,mg) - end - Duel.Overlay(sc,Group.FromCards(tc)) - Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) - sc:CompleteProcedure() - end -end -function c111011901.thcon(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 - and Duel.GetDrawCount(tp)>0 -end -function c111011901.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToHand() end - local dt=Duel.GetDrawCount(tp) - if dt~=0 then - _replace_count=0 - _replace_max=dt - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_DRAW_COUNT) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_DRAW) - e1:SetValue(0) - Duel.RegisterEffect(e1,tp) - end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c111011901.thop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - _replace_count=_replace_count+1 - if _replace_count<=_replace_max and c:IsRelateToEffect(e) then - Duel.SendtoHand(c,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,c) - end -end diff --git a/script/c111011903.lua b/script/c111011903.lua deleted file mode 100644 index 05b3c7fa..00000000 --- a/script/c111011903.lua +++ /dev/null @@ -1,41 +0,0 @@ ---NO6 エーテリック・アポピス -function c111011903.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,6,2) - c:EnableReviveLimit() - --addown - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(111011903,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c111011903.cost) - e1:SetTarget(c111011903.target) - e1:SetOperation(c111011903.operation) - c:RegisterEffect(e1) -end -function c111011903.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c111011903.filter(c) - return c:IsFaceup() and c:GetAttack()~=0 -end -function c111011903.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c111011903.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c111011903.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c111011903.filter,tp,0,LOCATION_MZONE,1,1,nil) -end -function c111011903.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-2000) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end diff --git a/script/c111011904.lua b/script/c111011904.lua deleted file mode 100644 index 8a24f8cc..00000000 --- a/script/c111011904.lua +++ /dev/null @@ -1,104 +0,0 @@ ---ＮＯ８ エーテリック・セベク -function c111011904.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,8,2) - c:EnableReviveLimit() - --サーチ - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(111011904,0)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c111011904.con) - e1:SetTarget(c111011904.target) - e1:SetOperation(c111011904.operation) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(111011904,1)) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(0,TIMING_STANDBY_PHASE+0x1c0) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c111011904.cost) - e2:SetCountLimit(1) - e2:SetTarget(c111011904.target2) - e2:SetOperation(c111011904.operation2) - c:RegisterEffect(e2) -end -function c111011904.con(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ -end -function c111011904.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c111011904.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c111011904.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c111011904.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c111011904.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end -function c111011904.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c111011904.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c111011904.filter1,tp,LOCATION_HAND,0,1,nil) - and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end -end -function c111011904.filter1(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:CheckActivateEffect(false,false,false)~=nil -end -function c111011904.operation2(e,tp,eg,ep,ev,re,r,rp,chk) - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end - local g=Duel.SelectMatchingCard(tp,c111011904.filter1,tp,LOCATION_HAND,0,1,1,nil,e,tp) - if g:GetCount()>0 then - local tc=g:GetFirst() - local tpe=tc:GetType() - local te=tc:GetActivateEffect() - local tg=te:GetTarget() - local co=te:GetCost() - local op=te:GetOperation() - e:SetCategory(te:GetCategory()) - e:SetProperty(te:GetProperty()) - Duel.ClearTargetCard() - if bit.band(tpe,TYPE_FIELD)~=0 then - local of=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5) - if of then Duel.Destroy(of,REASON_RULE) end - of=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - if of and Duel.Destroy(of,REASON_RULE)==0 then Duel.SendtoGrave(tc,REASON_RULE) end - end - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - Duel.Hint(HINT_CARD,0,tc:GetCode()) - tc:CreateEffectRelation(te) - if bit.band(tpe,TYPE_EQUIP+TYPE_CONTINUOUS+TYPE_FIELD)==0 then - tc:CancelToGrave(false) - end - if co then co(te,tp,eg,ep,ev,re,r,rp,1) end - if tg then tg(te,tp,eg,ep,ev,re,r,rp,1) end - Duel.BreakEffect() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - if g then - local etc=g:GetFirst() - while etc do - etc:CreateEffectRelation(te) - etc=g:GetNext() - end - end - if op then op(te,tp,eg,ep,ev,re,r,rp) end - tc:ReleaseEffectRelation(te) - if etc then - etc=g:GetFirst() - while etc do - etc:ReleaseEffectRelation(te) - etc=g:GetNext() - end - end - end -end \ No newline at end of file diff --git a/script/c111011905.lua b/script/c111011905.lua deleted file mode 100644 index 5e29d5b4..00000000 --- a/script/c111011905.lua +++ /dev/null @@ -1,36 +0,0 @@ ---NO10 エーテリック・ホルス -function c111011905.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,10,2) - c:EnableReviveLimit() - --addown - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(111011905,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c111011905.cost) - e1:SetTarget(c111011905.target) - e1:SetOperation(c111011905.operation) - c:RegisterEffect(e1) -end -function c111011905.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c111011905.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)>Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,0) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)-Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,0) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,ct,0,0) -end -function c111011905.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)-Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,0) - if ct>0 then - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_DESTROY) - local dg=g:Select(1-tp,ct,ct,nil) - Duel.Destroy(dg,REASON_EFFECT) - end -end diff --git a/script/c111011906.lua b/script/c111011906.lua deleted file mode 100644 index 809a639a..00000000 --- a/script/c111011906.lua +++ /dev/null @@ -1,88 +0,0 @@ ---NO12 エーテリック・まへす -function c111011906.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,12,2) - c:EnableReviveLimit() - --addown - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(111011906,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c111011906.target) - e1:SetOperation(c111011906.operation) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetOperation(c111011906.desop) - c:RegisterEffect(e2) -end -function c111011906.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER) -end -function c111011906.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local g=e:GetHandler():GetOverlayGroup() - local count=0 - local tc=g:GetFirst() - while tc do - if c111011906.filter(tc,e,tp) then - count=count+1 - end - tc=g:GetNext() - end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.GetLocationCount(tp,LOCATION_MZONE)>=count end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_OVERLAY) -end -function c111011906.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=c:GetOverlayGroup() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 - or Duel.GetLocationCount(tp,LOCATION_MZONE)0 -end -function c111011906.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=c:GetCardTarget() - local tc=g:GetFirst() - while tc do - if tc:IsLocation(LOCATION_MZONE) then - Duel.Overlay(c,tc) - end - tc=g:GetNext() - end -end diff --git a/script/c111012401.lua b/script/c111012401.lua deleted file mode 100644 index e2105224..00000000 --- a/script/c111012401.lua +++ /dev/null @@ -1,73 +0,0 @@ ---ギミック・シールド -function c111012401.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c111012401.target) - e1:SetOperation(c111012401.operation) - c:RegisterEffect(e1) - --equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(c111012401.eqlimit) - c:RegisterEffect(e2) - -- - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DAMAGE) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetCountLimit(1) - e4:SetRange(LOCATION_SZONE) - e4:SetTarget(c111012401.damtg) - e4:SetOperation(c111012401.damop) - c:RegisterEffect(e4) - -end -function c111012401.eqlimit(e,c) - return c:IsSetCard(0x83) and c:IsType(TYPE_XYZ) -end -function c111012401.filter(c) - return c:IsFaceup() and c:IsSetCard(0x83) and c:IsType(TYPE_XYZ) -end -function c111012401.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(c111012401.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c111012401.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c111012401.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local c=e:GetHandler() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - local atk=tc:GetDefence() - local def=tc:GetAttack() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_EQUIP) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(atk) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_SET_DEFENCE) - e2:SetValue(def) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) - end -end -function c111012401.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - local ec=e:GetHandler():GetEquipTarget():GetOverlayCount() - if chk==0 then return ec>0 end - local dam=ec*300 - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c111012401.damop(e,tp,eg,ep,ev,re,r,rp) - local dam=e:GetHandler():GetEquipTarget():GetOverlayCount()*300 - Duel.Damage(1-tp,dam,REASON_EFFECT) -end diff --git a/script/c111012402.lua b/script/c111012402.lua deleted file mode 100644 index 8ee1bb09..00000000 --- a/script/c111012402.lua +++ /dev/null @@ -1,29 +0,0 @@ ---ギミック・パペット－パンプティ・ダンプティ -function c111012402.initial_effect(c) - --summon success - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(111012402,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c111012402.sumtg) - e1:SetOperation(c111012402.sumop) - c:RegisterEffect(e1) -end -function c111012402.filter(c,e,tp) - return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and c:IsSetCard(0x83) -end -function c111012402.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c111012402.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c111012402.sumop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c111012402.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 diff --git a/script/c11102908.lua b/script/c11102908.lua index b447ed29..6f447219 100644 --- a/script/c11102908.lua +++ b/script/c11102908.lua @@ -7,20 +7,19 @@ function c11102908.initial_effect(c) c:RegisterEffect(e1) --atk down local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) e2:SetRange(LOCATION_FZONE) - e2:SetOperation(c11102908.atkup) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetCondition(c11102908.atkcon) + e2:SetTarget(c11102908.atktg) + e2:SetValue(-500) c:RegisterEffect(e2) end -function c11102908.atkup(e,tp,eg,ep,ev,re,r,rp,chk) - local a=Duel.GetAttacker() +function c11102908.atkcon(e) local d=Duel.GetAttackTarget() - if not d or not d:IsSetCard(0x3d) then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(-500) - a:RegisterEffect(e1) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and d and d:IsSetCard(0x3d) +end +function c11102908.atktg(e,c) + return c==Duel.GetAttacker() end diff --git a/script/c11111106.lua b/script/c11111106.lua deleted file mode 100644 index 4243444b..00000000 --- a/script/c11111106.lua +++ /dev/null @@ -1,36 +0,0 @@ ---Card Defense -function c11111106.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c11111106.condition) - e1:SetCost(c11111106.cost) - e1:SetTarget(c11111106.target) - e1:SetOperation(c11111106.activate) - c:RegisterEffect(e1) -end -function c11111106.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c11111106.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c11111106.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c11111106.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateAttack() - local c=e:GetHandler() - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c11111114.lua b/script/c11111114.lua deleted file mode 100644 index f97cd9d1..00000000 --- a/script/c11111114.lua +++ /dev/null @@ -1,54 +0,0 @@ ---Card of Distrain -function c11111114.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c11111114.target) - e1:SetOperation(c11111114.operation) - c:RegisterEffect(e1) -end -function c11111114.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsFacedown() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFacedown,tp,0,LOCATION_SZONE,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(11111114,0)) - local g=Duel.SelectTarget(tp,Card.IsFacedown,tp,0,LOCATION_SZONE,1,1,e:GetHandler()) -end -function c11111114.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsFacedown() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_OWNER_RELATE) - e1:SetCode(EFFECT_CANNOT_TRIGGER) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetValue(1) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_CHAIN_SOLVED) - e2:SetCondition(c11111114.damcon) - e2:SetTarget(c11111114.damtg) - e2:SetOperation(c11111114.damop) - e2:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e2,tp) - end -end - -function c11111114.damcon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and ep~=tp - and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_TRAP+TYPE_SPELL) -end -function c11111114.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(800) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) -end -function c11111114.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c11111115.lua b/script/c11111115.lua deleted file mode 100644 index 678b3284..00000000 --- a/script/c11111115.lua +++ /dev/null @@ -1,43 +0,0 @@ ---Cosmic Blast -function c11111115.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_LEAVE_FIELD) - e1:SetCost(c11111115.cost) - e1:SetCondition(c11111115.condition) - e1:SetTarget(c11111115.target) - e1:SetOperation(c11111115.activate) - c:RegisterEffect(e1) -end -function c11111115.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not Duel.CheckSpecialSummonActivity(tp) and Duel.GetFlagEffect(tp,98645732)==0 end - --oath effects - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - Duel.RegisterEffect(e1,tp) - Duel.RegisterFlagEffect(tp,98645732,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c11111115.condition(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=eg:GetFirst() - return tc:GetPreviousControler()==tp and tc:IsType(TYPE_SYNCHRO) and tc:IsRace(RACE_DRAGON) -end -function c11111115.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local tc=eg:GetFirst() - local dam=tc:GetAttack() - if dam<0 then dam=0 end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c11111115.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c11111119.lua b/script/c11111119.lua deleted file mode 100644 index 74a0acc6..00000000 --- a/script/c11111119.lua +++ /dev/null @@ -1,43 +0,0 @@ ---Synchro Spirits -function c11111119.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c11111119.target) - e1:SetOperation(c11111119.activate) - c:RegisterEffect(e1) -end -function c11111119.filter(c) - return c:IsType(TYPE_SYNCHRO) and c:IsAbleToRemoveAsCost() -end -function c11111119.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c11111119.filter(chk) end - if chk==0 then return Duel.IsExistingTarget(c11111119.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,c11111119.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c11111119.mgfilter(c,e,tp,sync) - return not c:IsControler(tp) or not c:IsLocation(LOCATION_GRAVE) - or bit.band(c:GetReason(),0x80008)~=0x80008 or c:GetReasonCard()~=sync - or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) or c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c11111119.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - local mg=tc:GetMaterial() - local sumable=true - local sumtype=tc:GetSummonType() - if Duel.Remove(tc,nil,POS_FACEUP,REASON_EFFECT)==0 or sumtype~=SUMMON_TYPE_SYNCHRO or mg:GetCount()==0 - or mg:GetCount()>Duel.GetLocationCount(tp,LOCATION_MZONE) - or mg:IsExists(c11111119.mgfilter,1,nil,e,tp,tc) then - sumable=false - end - if sumable and Duel.SelectYesNo(tp,aux.Stringid(11111119,0)) then - Duel.BreakEffect() - Duel.SpecialSummon(mg,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c11111120.lua b/script/c11111120.lua deleted file mode 100644 index 4dfdabbf..00000000 --- a/script/c11111120.lua +++ /dev/null @@ -1,58 +0,0 @@ ---Discord Counter -function c11111120.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c11111120.condition) - e1:SetTarget(c11111120.target) - e1:SetOperation(c11111120.activate) - c:RegisterEffect(e1) -end -function c11111120.condition(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - return tc:GetSummonType()==SUMMON_TYPE_SYNCHRO and ep~=tp -end - -function c11111120.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return eg:GetFirst():IsCanBeEffectTarget(e) end - Duel.SetTargetCard(eg) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,eg,1,0,0) -end -function c11111120.mgfilter(c,e,tp,sync) - return not c:IsLocation(LOCATION_GRAVE) - or bit.band(c:GetReason(),0x80008)~=0x80008 or c:GetReasonCard()~=sync - or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) or c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c11111120.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - local mg=tc:GetMaterial() - local sumable=true - local sumtype=tc:GetSummonType() - if Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)==0 or sumtype~=SUMMON_TYPE_SYNCHRO or mg:GetCount()==0 - or mg:GetCount()>Duel.GetLocationCount(tp,LOCATION_MZONE) - or mg:IsExists(c11111120.mgfilter,1,nil,e,tp,tc) then - sumable=false - end - if sumable then - Duel.BreakEffect() - Duel.SpecialSummon(mg,0,tp,1-tp,false,false,POS_FACEUP) - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END,2) - e1:SetTargetRange(0,1) - Duel.RegisterEffect(e1,tp) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_SUMMON) - Duel.RegisterEffect(e2,tp) - local e3=e2:Clone() - e3:SetCode(EFFECT_CANNOT_FLIP_SUMMON) - Duel.RegisterEffect(e3,tp) -end diff --git a/script/c11111149.lua b/script/c11111149.lua deleted file mode 100644 index 169f4cdf..00000000 --- a/script/c11111149.lua +++ /dev/null @@ -1,73 +0,0 @@ ---Tuning Barrier -function c11111149.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c11111149.target) - c:RegisterEffect(e1) - --cannot attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCondition(c11111149.condition) - e2:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(0,LOCATION_MZONE) - c:RegisterEffect(e2) - --cannot attack #2 - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCondition(c11111149.condition2) - e3:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - c:RegisterEffect(e3) - --remain field - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_REMAIN_FIELD) - c:RegisterEffect(e4) -end -function c11111149.cfilter(c) - return c:IsFaceup() and c:IsType(TYPE_TUNER) -end -function c11111149.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c11111149.cfilter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,nil) -end -function c11111149.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c11111149.cfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,nil) -end -function c11111149.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - e:GetHandler():SetTurnCounter(0) - local sg=Duel.GetMatchingGroup(Card.IsFacedown,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,sg,sg:GetCount(),0,0) - --destroy - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_SZONE) - e1:SetCondition(c11111149.descon) - e1:SetOperation(c11111149.desop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_OPPO_TURN,3) - e:GetHandler():RegisterEffect(e1) - e:GetHandler():RegisterFlagEffect(1082946,RESET_PHASE+PHASE_END+RESET_OPPO_TURN,0,3) - c11111149[e:GetHandler()]=e1 -end - -function c11111149.descon(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c11111149.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local ct=c:GetTurnCounter() - ct=ct+1 - c:SetTurnCounter(ct) - if ct==3 then - Duel.SendtoGrave(c,REASON_RULE) - c:ResetFlagEffect(1082946) - end -end diff --git a/script/c111203901.lua b/script/c111203901.lua deleted file mode 100644 index 1ad3bb85..00000000 --- a/script/c111203901.lua +++ /dev/null @@ -1,33 +0,0 @@ ---黒蠍　愛の悲劇 -function c111203901.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c111203901.condition) - e1:SetTarget(c111203901.target) - e1:SetOperation(c111203901.activate) - c:RegisterEffect(e1) -end -function c111203901.cfilter(c,code) - return c:IsFaceup() and c:GetCode()==code -end -function c111203901.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c111203901.cfilter,tp,LOCATION_MZONE,0,1,nil,76922029) - and Duel.IsExistingMatchingCard(c111203901.cfilter,tp,LOCATION_MZONE,0,1,nil,74153887) -end -function c111203901.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c111203901.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c111203901.cfilter,tp,LOCATION_MZONE,0,1,1,nil,74153887) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - end - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c111203902.lua b/script/c111203902.lua deleted file mode 100644 index a31a9063..00000000 --- a/script/c111203902.lua +++ /dev/null @@ -1,34 +0,0 @@ ---黒蠍　愛の悲劇 -function c111203902.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c111203902.condition) - e1:SetTarget(c111203902.target) - e1:SetOperation(c111203902.activate) - c:RegisterEffect(e1) -end -function c111203902.cfilter(c,code) - return c:IsFaceup() and c:GetCode()==code -end -function c111203902.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c111203902.cfilter,tp,LOCATION_MZONE,0,1,nil,76922029) - and Duel.IsExistingMatchingCard(c111203902.cfilter,tp,LOCATION_MZONE,0,1,nil,74153887) - and Duel.IsExistingMatchingCard(c111203902.cfilter,tp,LOCATION_MZONE,0,1,nil,48768179) - and Duel.IsExistingMatchingCard(c111203902.cfilter,tp,LOCATION_MZONE,0,1,nil,6967870) - and Duel.IsExistingMatchingCard(c111203902.cfilter,tp,LOCATION_MZONE,0,1,nil,61587183) -end -function c111203902.filter(c) - return c:IsFaceup() and c:IsAbleToHand(() and ( c:IsCode(76922029) or c:IsSetCard(0x1a) ) -end -function c111203902.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c111203902.filter,tp,LOCATION_MZONE,0,1,nil) end - local sg=Duel.GetMatchingGroup(c111203902.filter,tp,LOCATION_MZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,sg:GetCount(),0,0) -end -function c111203902.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c111203902.filter,tp,LOCATION_MZONE,0,nil) - Duel.SendtoHand(sg,nil,REASON_EFFECT) -end diff --git a/script/c111215001.lua b/script/c111215001.lua deleted file mode 100644 index a121968b..00000000 --- a/script/c111215001.lua +++ /dev/null @@ -1,102 +0,0 @@ ---霧の王城 ---このカードの「使用していたモンスターカードゾーンに」の部分を再現すると使用不可能にしたゾーンにモンスターが特殊召喚されてしまう為、一部処理を変更しています。 -function c111215001.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Search - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(111215001,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetTarget(c111215001.sptg) - e2:SetOperation(c111215001.spop) - c:RegisterEffect(e2) - --salvage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(111215001,0)) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c111215001.descon) - e3:SetCost(c111215001.cost) - e3:SetTarget(c111215001.target) - e3:SetOperation(c111215001.operation) - c:RegisterEffect(e3) -end -function c111215001.filter(c,tp) - return c:GetPreviousControler()==tp -end -function c111215001.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=eg:Filter(c111215001.filter,nil,tp):GetFirst() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and eg:Filter(c111215001.filter,nil,tp):GetCount()==1 - and tc:IsLocation(LOCATION_GRAVE) and tc:IsReason(REASON_DESTROY) - and tc:IsCanBeSpecialSummoned(e,0,tp,false,false,tp,POS_FACEUP) - end - tc:CreateEffectRelation(e) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,eg:GetFirst(),1,0,0) - tc=eg:Filter(c111215001.filter,nil,tp):GetFirst() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_DISABLE_FIELD) - e1:SetRange(LOCATION_SZONE) - e1:SetOperation(c111215001.disop) - e1:SetReset(RESET_EVENT+0x1fe0000) - e:GetHandler():RegisterEffect(e1) - e:GetHandler():RegisterFlagEffect(tp,111215001,RESET_EVENT+0x1fe0000,0,1) -end -function c111215001.spop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=eg:Filter(c111215001.filter,nil,tp):GetFirst() - Duel.BreakEffect() - if tc:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end -function c111215001.disop(e,tp) - local c=Duel.GetLocationCount(tp,LOCATION_MZONE) - if c==0 then return end - local dis1=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,0) - return dis1 -end -function c111215001.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_HAND,0,1,nil) - and e:GetHandler():IsAbleToGraveAsCost() and Duel.GetCurrentPhase()~=PHASE_MAIN2 end - local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - g:AddCard(e:GetHandler()) - Duel.SendtoGrave(g,REASON_COST) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_BP) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c111215001.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(tp,111215001)>4 -end -function c111215001.filter2(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c111215001.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c111215001.filter2(chkc) end - if chk==0 then return Duel.IsExistingTarget(c111215001.filter2,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c111215001.filter2,tp,LOCATION_GRAVE,0,1,4,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c111215001.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - if sg:GetCount()>0 then - Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sg) - end -end diff --git a/script/c111217602.lua b/script/c111217602.lua deleted file mode 100644 index 323d29ad..00000000 --- a/script/c111217602.lua +++ /dev/null @@ -1,50 +0,0 @@ ---宝玉割断 -function c111217602.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetCondition(c111217602.condition) - e1:SetCost(c111217602.cost) - e1:SetTarget(c111217602.target) - e1:SetOperation(c111217602.activate) - c:RegisterEffect(e1) -end -function c111217602.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c111217602.cfilter(c) - return c:IsSetCard(0x34) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() -end -function c111217602.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c111217602.cfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c111217602.cfilter,tp,LOCATION_DECK,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c111217602.filter(c) - return c:IsFaceup() -end -function c111217602.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c111217602.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c111217602.filter,tp,0,LOCATION_MZONE,1,nil) - and Duel.IsPlayerCanDraw(1-tp,1) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c111217602.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,1-tp,1) -end -function c111217602.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(tc:GetAttack()/2) - tc:RegisterEffect(e1) - Duel.Draw(1-tp,1,REASON_EFFECT) - end -end diff --git a/script/c111280.lua b/script/c111280.lua new file mode 100644 index 00000000..3b72452b --- /dev/null +++ b/script/c111280.lua @@ -0,0 +1,98 @@ +--黒魔導強化 +function c111280.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e1:SetHintTiming(TIMING_DAMAGE_STEP) + e1:SetCondition(c111280.condition) + e1:SetTarget(c111280.target) + e1:SetOperation(c111280.activate) + c:RegisterEffect(e1) +end +c111280.card_code_list={46986414,38033121} +function c111280.cfilter(c) + return c:IsFaceup() and c:IsCode(46986414,38033121) +end +function c111280.condition(e,tp,eg,ep,ev,re,r,rp) + local ct=Duel.GetMatchingGroupCount(c111280.cfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,nil) + return ct>0 and (Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated()) +end +function c111280.filter(c) + return c:IsFaceup() and c:IsRace(RACE_SPELLCASTER) and c:IsAttribute(ATTRIBUTE_DARK) +end +function c111280.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local ct=Duel.GetMatchingGroupCount(c111280.cfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,nil) + if ct<=1 then return Duel.IsExistingMatchingCard(c111280.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + return true + end +end +function c111280.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c111280.cfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,nil) + local ct=g:GetCount() + if ct>=1 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectMatchingCard(tp,c111280.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local tc=g:GetFirst() + if tc then + Duel.HintSelection(g) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(1000) + tc:RegisterEffect(e1) + end + end + if ct>=2 then + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_CHAINING) + e2:SetOperation(c111280.chainop) + e2:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e2,tp) + local e3=Effect.CreateEffect(e:GetHandler()) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e3:SetTargetRange(LOCATION_ONFIELD,0) + e3:SetTarget(c111280.indtg) + e3:SetValue(c111280.indval) + e3:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e3,tp) + end + if ct>=3 then + local g=Duel.GetMatchingGroup(c111280.filter,tp,LOCATION_MZONE,0,nil) + local tc=g:GetFirst() + while tc do + local e4=Effect.CreateEffect(e:GetHandler()) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_IMMUNE_EFFECT) + e4:SetValue(c111280.efilter) + e4:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e4:SetOwnerPlayer(tp) + tc:RegisterEffect(e4) + tc=g:GetNext() + end + end +end +function c111280.chainop(e,tp,eg,ep,ev,re,r,rp) + if re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and ep==tp then + Duel.SetChainLimit(c111280.chainlm) + end +end +function c111280.chainlm(e,rp,tp) + return tp==rp +end +function c111280.indtg(e,c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) +end +function c111280.indval(e,re,rp) + return rp~=e:GetHandlerPlayer() +end +function c111280.efilter(e,re) + return e:GetOwnerPlayer()~=re:GetOwnerPlayer() +end diff --git a/script/c111300001.lua b/script/c111300001.lua deleted file mode 100644 index 2a59b518..00000000 --- a/script/c111300001.lua +++ /dev/null @@ -1,59 +0,0 @@ ---革命－トリック・バトル -function c111300001.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --copy - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_ADJUST) - e2:SetRange(LOCATION_SZONE) - e2:SetOperation(c111300001.operation) - c:RegisterEffect(e2) -end -function c111300001.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local wg=Duel.GetMatchingGroup(nil,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,nil) - local wbc=wg:GetFirst() - while wbc do - if wbc:IsAttackPos() and wbc:GetFlagEffect(111300001)==0 then - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_INITIAL) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_BATTLED) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c111300001.con) - e1:SetOperation(c111300001.op) - e1:SetReset(RESET_EVENT+0x1fe0000+EVENT_ADJUST,1) - wbc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(c111300001.indes) - e1:SetReset(RESET_EVENT+0x1fe0000+EVENT_ADJUST,1) - wbc:RegisterEffect(e2) - c:RegisterFlagEffect(111300001,RESET_EVENT+0x1fe0000+EVENT_ADJUST,0,1) - end - wbc=wg:GetNext() - end -end -function c111300001.indes(e,c) - return c:GetAttack()>e:GetHandler():GetAttack() and c:GetPosition()==POS_FACEUP_ATTACK -end -function c111300001.con(e) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - if not bc then return end - local atk=bc:GetAttack() - local bct=0 - bct=c:GetAttack() - return bc:IsRelateToBattle() and bc:GetPosition()==POS_FACEUP_ATTACK - and atk>bct and not c:IsStatus(STATUS_BATTLE_DESTROYED) and c:GetPosition()==POS_FACEUP_ATTACK -end -function c111300001.op(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetHandler():GetBattleTarget() - Duel.Destroy(bc,REASON_BATTLE) - bc:SetStatus(STATUS_BATTLE_DESTROYED,true) -end diff --git a/script/c111302501.lua b/script/c111302501.lua deleted file mode 100644 index 0244b1ec..00000000 --- a/script/c111302501.lua +++ /dev/null @@ -1,101 +0,0 @@ ---強化蘇生 -function c111302501.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c111302501.target) - e1:SetOperation(c111302501.operation) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetOperation(c111302501.desop) - c:RegisterEffect(e2) - --Destroy2 - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetCondition(c111302501.descon2) - e3:SetOperation(c111302501.desop2) - c:RegisterEffect(e3) - --damage - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(111302501,0)) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e4:SetCategory(CATEGORY_DAMAGE) - e4:SetCode(EVENT_PHASE+PHASE_STANDBY) - e4:SetRange(LOCATION_SZONE) - e4:SetCountLimit(1) - e4:SetCondition(c111302501.damcon) - e4:SetTarget(c111302501.damtg) - e4:SetOperation(c111302501.damop) - c:RegisterEffect(e4) -end -function c111302501.filter(c,e,tp) - return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c111302501.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp and c111302501.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c111302501.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c111302501.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c111302501.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)==0 then return end - c:SetCardTarget(tc) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_UPDATE_LEVEL) - e3:SetValue(1) - e3:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e3) - end -end -function c111302501.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetFirstCardTarget() - if tc and tc:IsLocation(LOCATION_MZONE) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c111302501.descon2(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetFirstCardTarget() - return tc and eg:IsContains(tc) -end -function c111302501.desop2(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end -function c111302501.damcon(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() -end -function c111302501.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,1000) -end -function c111302501.damop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c111310102.lua b/script/c111310102.lua deleted file mode 100644 index 5199450b..00000000 --- a/script/c111310102.lua +++ /dev/null @@ -1,28 +0,0 @@ ---デストラクション・トリガー -function c111310102.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c111310102.condition) - e1:SetTarget(c111310102.target) - e1:SetOperation(c111310102.activate) - c:RegisterEffect(e1) -end -function c111310102.filter(c,tp) - return c:GetPreviousControler()==tp and bit.band(c:GetReason(),0x41)==0x41 -end -function c111310102.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c111310102.filter,1,nil,tp) -end -function c111310102.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsPlayerCanDiscardDeck(1-tp,1) end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(5) - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,5) -end -function c111310102.activate(e,tp,eg,ep,ev,re,r,rp) - local p,val=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.DiscardDeck(p,val,REASON_EFFECT) -end diff --git a/script/c11136371.lua b/script/c11136371.lua index 84f3bef4..9a2eb05e 100644 --- a/script/c11136371.lua +++ b/script/c11136371.lua @@ -9,23 +9,26 @@ function c11136371.initial_effect(c) e1:SetOperation(c11136371.plop) c:RegisterEffect(e1) end -function c11136371.plfilter(c) +function c11136371.cfilter(c) return c:GetSequence()<5 and c:IsAbleToGraveAsCost() end function c11136371.plcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c11136371.plfilter,tp,LOCATION_SZONE,0,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(c11136371.plfilter,tp,LOCATION_SZONE,0,e:GetHandler()) + if chk==0 then return Duel.IsExistingMatchingCard(c11136371.cfilter,tp,LOCATION_SZONE,0,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(c11136371.cfilter,tp,LOCATION_SZONE,0,e:GetHandler()) Duel.SendtoGrave(g,REASON_COST) end +function c11136371.plfilter(c) + return c:IsSetCard(0x1034) and not c:IsForbidden() +end function c11136371.pltg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_GRAVE,0,1,nil,0x1034) end + if chk==0 then return Duel.IsExistingMatchingCard(c11136371.plfilter,tp,LOCATION_GRAVE,0,1,nil) end Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,nil,1,tp,LOCATION_GRAVE) end function c11136371.plop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_SZONE) if ft<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) - local g=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_GRAVE,0,ft,ft,nil,0x1034) + local g=Duel.SelectMatchingCard(tp,c11136371.plfilter,tp,LOCATION_GRAVE,0,ft,ft,nil) if g:GetCount()>0 then local tc=g:GetFirst() while tc do @@ -39,7 +42,7 @@ function c11136371.plop(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) tc=g:GetNext() end - Duel.RaiseEvent(g,47408488,e,0,tp,0,0) + Duel.RaiseEvent(g,EVENT_CUSTOM+47408488,e,0,tp,0,0) end local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) diff --git a/script/c11136372.lua b/script/c11136372.lua deleted file mode 100644 index 646f9bee..00000000 --- a/script/c11136372.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Counter Crystal -function c11136372.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c11136372.countertg) - e1:SetOperation(c11136372.counterop) - c:RegisterEffect(e1) -end -function c11136372.countertg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_GRAVE,0,1,nil,0x34) end - Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,nil,1,tp,LOCATION_GRAVE) -end -function c11136372.counterop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsAbleToGraveAsCost,tp,LOCATION_SZONE,0,e:GetHandler()) - Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT) - Duel.SendtoGrave(g,REASON_EFFECT) - local ft=Duel.GetLocationCount(tp,LOCATION_SZONE) - if ft<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) - local g=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_GRAVE,0,ft,ft,nil,0x34) - if g:GetCount()>0 then - local tc=g:GetFirst() - while tc do - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fc0000) - e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) - tc:RegisterEffect(e1) - tc=g:GetNext() - end - Duel.RaiseEvent(g,47408488,e,0,tp,0,0) - end -end \ No newline at end of file diff --git a/script/c11163040.lua b/script/c11163040.lua new file mode 100644 index 00000000..fb99030b --- /dev/null +++ b/script/c11163040.lua @@ -0,0 +1,108 @@ +--The Kaiju Files +function c11163040.initial_effect(c) + c:EnableCounterPermit(0x37) + c:SetCounterLimit(0x37,5) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --counter + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetRange(LOCATION_SZONE) + e2:SetOperation(c11163040.counter) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(11163040,0)) + e3:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetRange(LOCATION_SZONE) + e3:SetCountLimit(1) + e3:SetTarget(c11163040.target) + e3:SetOperation(c11163040.operation) + c:RegisterEffect(e3) + --tohand + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(11163040,1)) + e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_SZONE) + e4:SetCondition(c11163040.thcon) + e4:SetCost(c11163040.thcost) + e4:SetTarget(c11163040.thtg) + e4:SetOperation(c11163040.thop) + c:RegisterEffect(e4) +end +function c11163040.cfilter(c) + return c:IsSetCard(0xd3) and c:IsPreviousLocation(LOCATION_HAND+LOCATION_GRAVE) +end +function c11163040.counter(e,tp,eg,ep,ev,re,r,rp) + if eg:IsExists(c11163040.cfilter,1,nil) then + e:GetHandler():AddCounter(0x37,1) + end +end +function c11163040.filter(c,e,tp) + return c:IsFaceup() and c:IsSetCard(0xd3) + and Duel.IsExistingMatchingCard(c11163040.chkfilter,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetControler(),c:GetOriginalCode()) +end +function c11163040.chkfilter(c,e,tp,cc,code) + return c:IsSetCard(0xd3) and c:GetOriginalCode()~=code and + not c:IsHasEffect(EFFECT_REVIVE_LIMIT) and Duel.IsPlayerCanSpecialSummon(tp,0,POS_FACEUP,cc,c) +end +function c11163040.spfilter(c,e,tp,cc,code) + return c:IsSetCard(0xd3) and c:GetOriginalCode()~=code and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,cc) +end +function c11163040.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and c11163040.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingTarget(c11163040.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) + or Duel.GetLocationCount(1-tp,LOCATION_MZONE)>-1 + and Duel.IsExistingTarget(c11163040.filter,tp,0,LOCATION_MZONE,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c11163040.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c11163040.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if not tc:IsRelateToEffect(e) then return end + local cc=tc:GetControler() + local code=tc:GetOriginalCode() + if Duel.Destroy(tc,REASON_EFFECT)~=0 then + if Duel.GetLocationCount(cc,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c11163040.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,cc,code) + if g:GetCount()>0 then + Duel.BreakEffect() + Duel.SpecialSummon(g,0,tp,cc,false,false,POS_FACEUP) + end + end +end +function c11163040.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetCounter(0x37)>=3 +end +function c11163040.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST) +end +function c11163040.thfilter(c) + return c:IsSetCard(0xd3) and c:IsType(TYPE_SPELL+TYPE_TRAP) and not c:IsCode(11163040) and c:IsAbleToHand() +end +function c11163040.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c11163040.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c11163040.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c11163040.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c11193246.lua b/script/c11193246.lua new file mode 100644 index 00000000..b9dbe908 --- /dev/null +++ b/script/c11193246.lua @@ -0,0 +1,35 @@ +--月光輪廻舞踊 +function c11193246.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_DESTROYED) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e1:SetCountLimit(1,11193246+EFFECT_COUNT_CODE_OATH) + e1:SetCondition(c11193246.condition) + e1:SetTarget(c11193246.target) + e1:SetOperation(c11193246.operation) + c:RegisterEffect(e1) +end +function c11193246.cfilter(c,tp) + return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp +end +function c11193246.condition(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c11193246.cfilter,1,nil,tp) +end +function c11193246.thfilter(c) + return c:IsSetCard(0xdf) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c11193246.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c11193246.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c11193246.operation(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c11193246.thfilter,tp,LOCATION_DECK,0,1,2,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c11221418.lua b/script/c11221418.lua old mode 100755 new mode 100644 diff --git a/script/c11232355.lua b/script/c11232355.lua index 90a583a0..3d5edfac 100644 --- a/script/c11232355.lua +++ b/script/c11232355.lua @@ -29,7 +29,7 @@ function c11232355.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.PayLPCost(tp,1000) end function c11232355.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c11232355.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and c11232355.filter(chkc) end diff --git a/script/c11264180.lua b/script/c11264180.lua index 5c9aaf07..c86ebedc 100644 --- a/script/c11264180.lua +++ b/script/c11264180.lua @@ -19,7 +19,7 @@ function c11264180.filter(c) return c:IsFaceup() and c:IsSetCard(0x27) end function c11264180.dfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c11264180.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c11264180.filter(chkc) end @@ -41,9 +41,9 @@ function c11264180.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(tc:GetDefence()/2) + e2:SetValue(tc:GetDefense()/2) tc:RegisterEffect(e2) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local dg=Duel.SelectMatchingCard(tp,c11264180.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) diff --git a/script/c11317977.lua b/script/c11317977.lua new file mode 100644 index 00000000..29a6c315 --- /dev/null +++ b/script/c11317977.lua @@ -0,0 +1,87 @@ +--月光黒羊 +function c11317977.initial_effect(c) + --tohand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(11317977,0)) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_HAND) + e1:SetCost(c11317977.cost) + e1:SetTarget(c11317977.thtg) + e1:SetOperation(c11317977.thop) + c:RegisterEffect(e1) + --search + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(11317977,1)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_HAND) + e2:SetCost(c11317977.cost) + e2:SetTarget(c11317977.sctg) + e2:SetOperation(c11317977.scop) + c:RegisterEffect(e2) + --tohand + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_BE_MATERIAL) + e3:SetCondition(c11317977.thcon2) + e3:SetTarget(c11317977.thtg2) + e3:SetOperation(c11317977.thop2) + c:RegisterEffect(e3) +end +function c11317977.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) +end +function c11317977.thfilter(c) + return c:IsSetCard(0xdf) and c:IsType(TYPE_MONSTER) and not c:IsCode(11317977) and c:IsAbleToHand() +end +function c11317977.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c11317977.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) +end +function c11317977.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c11317977.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c11317977.scfilter(c) + return c:IsCode(24094653) and c:IsAbleToHand() +end +function c11317977.sctg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c11317977.scfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c11317977.scop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c11317977.scfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c11317977.thcon2(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_FUSION +end +function c11317977.thfilter2(c) + return c:IsSetCard(0xdf) and c:IsType(TYPE_MONSTER) and not c:IsCode(11317977) and c:IsAbleToHand() + and ((c:IsFaceup() and c:IsLocation(LOCATION_EXTRA) and c:IsType(TYPE_PENDULUM)) or c:IsLocation(LOCATION_GRAVE)) +end +function c11317977.thtg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c11317977.thfilter2,tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE+LOCATION_EXTRA) +end +function c11317977.thop2(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c11317977.thfilter2,tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,1,nil) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c11366199.lua b/script/c11366199.lua index 98e9f4e1..d38c9989 100644 --- a/script/c11366199.lua +++ b/script/c11366199.lua @@ -76,6 +76,9 @@ function c11366199.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c11366199.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not c:IsRelateToEffect(e) then return end - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) + end end diff --git a/script/c11373345.lua b/script/c11373345.lua index dd03a99a..42ba7872 100644 --- a/script/c11373345.lua +++ b/script/c11373345.lua @@ -29,7 +29,7 @@ function c11373345.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.RegisterEffect(e1,tp) end function c11373345.filter(c) - return c:IsFaceup() and c:IsLevelBelow(5) and c:IsDestructable() + return c:IsFaceup() and c:IsLevelBelow(5) end function c11373345.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c11373345.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c11390349.lua b/script/c11390349.lua index e015c194..b2160759 100644 --- a/script/c11390349.lua +++ b/script/c11390349.lua @@ -9,7 +9,7 @@ function c11390349.initial_effect(c) e1:SetValue(c11390349.val) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) --control local e3=Effect.CreateEffect(c) @@ -30,7 +30,7 @@ function c11390349.val(e,c) return Duel.GetMatchingGroupCount(c11390349.vfilter,e:GetOwnerPlayer(),LOCATION_MZONE,0,nil)*-300 end function c11390349.filter(c) - return c:IsFaceup() and c:GetDefence()==0 and c:IsControlerCanBeChanged() + return c:IsFaceup() and c:GetDefense()==0 and c:IsControlerCanBeChanged() end function c11390349.ctltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c11390349.filter(chkc) end @@ -41,9 +41,7 @@ function c11390349.ctltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c11390349.ctlop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:GetDefence()==0 and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:GetDefense()==0 then + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c11439455.lua b/script/c11439455.lua new file mode 100644 index 00000000..ec7ab762 --- /dev/null +++ b/script/c11439455.lua @@ -0,0 +1,65 @@ +--月光蒼猫 +function c11439455.initial_effect(c) + --atk up + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(11439455,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) + e1:SetCountLimit(1,11439455) + e1:SetTarget(c11439455.atktg) + e1:SetOperation(c11439455.atkop) + c:RegisterEffect(e1) + --Special Summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(11439455,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_DESTROYED) + e3:SetCondition(c11439455.spcon) + e3:SetTarget(c11439455.sptg) + e3:SetOperation(c11439455.spop) + c:RegisterEffect(e3) +end +function c11439455.atkfilter(c) + return c:IsFaceup() and c:IsSetCard(0xdf) and not c:IsCode(11439455) +end +function c11439455.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c11439455.atkfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c11439455.atkfilter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,c11439455.atkfilter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,1,0,0) +end +function c11439455.atkop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_SET_ATTACK_FINAL) + e2:SetValue(tc:GetBaseAttack()*2) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + end +end +function c11439455.spcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) +end +function c11439455.spfilter(c,e,tp) + return c:IsSetCard(0xdf) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c11439455.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c11439455.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c11439455.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c11439455.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c1149109.lua b/script/c1149109.lua old mode 100755 new mode 100644 diff --git a/script/c11493868.lua b/script/c11493868.lua new file mode 100644 index 00000000..66774312 --- /dev/null +++ b/script/c11493868.lua @@ -0,0 +1,114 @@ +--フォルテッシモ +function c11493868.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --atkup + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(11493868,0)) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_SZONE) + e2:SetCountLimit(1) + e2:SetTarget(c11493868.atktg) + e2:SetOperation(c11493868.atkop) + c:RegisterEffect(e2) + --fusion + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(11493868,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_SZONE) + e3:SetHintTiming(0,0x1e0) + e3:SetCost(c11493868.cost) + e3:SetTarget(c11493868.target) + e3:SetOperation(c11493868.activate) + c:RegisterEffect(e3) +end +function c11493868.atkfilter(c) + return c:IsFaceup() and c:IsSetCard(0x9b) +end +function c11493868.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c11493868.atkfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c11493868.atkfilter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,c11493868.atkfilter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,1,0,800) +end +function c11493868.atkop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN) + e1:SetValue(800) + tc:RegisterEffect(e1) + end +end +function c11493868.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST) +end +function c11493868.filter1(c,e) + return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) +end +function c11493868.filter2(c,e,tp,m,f,chkf) + return c:IsType(TYPE_FUSION) and c:IsSetCard(0x9b) and (not f or f(c)) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) +end +function c11493868.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_MZONE,0,nil) + local res=Duel.IsExistingMatchingCard(c11493868.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) + if not res then + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + local mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + res=Duel.IsExistingMatchingCard(c11493868.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) + end + end + return res + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c11493868.activate(e,tp,eg,ep,ev,re,r,rp) + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(c11493868.filter1,tp,LOCATION_MZONE,0,nil,e) + local sg1=Duel.GetMatchingGroup(c11493868.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) + local mg2=nil + local sg2=nil + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + sg2=Duel.GetMatchingGroup(c11493868.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) + end + if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then + local sg=sg1:Clone() + if sg2 then sg:Merge(sg2) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=sg:Select(tp,1,1,nil) + local tc=tg:GetFirst() + if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then + local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) + tc:SetMaterial(mat1) + Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) + else + local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) + local fop=ce:GetOperation() + fop(ce,e,tp,tc,mat2) + end + tc:CompleteProcedure() + end +end diff --git a/script/c11501629.lua b/script/c11501629.lua index 9a57d95f..9afed038 100644 --- a/script/c11501629.lua +++ b/script/c11501629.lua @@ -1,5 +1,6 @@ --キックファイア function c11501629.initial_effect(c) + c:EnableCounterPermit(0x2d) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -35,7 +36,7 @@ function c11501629.ctfilter(c,tp) end function c11501629.ctcon(e,tp,eg,ep,ev,re,r,rp) local ct=eg:FilterCount(c11501629.ctfilter,nil,tp) - if ct>0 and e:GetHandler():IsCanAddCounter(0x2d+COUNTER_NEED_ENABLE,ct) then + if ct>0 and e:GetHandler():IsCanAddCounter(0x2d,ct) then e:SetLabel(ct) return true else @@ -43,7 +44,7 @@ function c11501629.ctcon(e,tp,eg,ep,ev,re,r,rp) end end function c11501629.ctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x2d+COUNTER_NEED_ENABLE,e:GetLabel()) + e:GetHandler():AddCounter(0x2d,e:GetLabel()) end function c11501629.damcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetCurrentPhase()==PHASE_STANDBY diff --git a/script/c11502550.lua b/script/c11502550.lua index b67dea47..d7579a67 100644 --- a/script/c11502550.lua +++ b/script/c11502550.lua @@ -49,16 +49,17 @@ function c11502550.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA) end function c11502550.spfilter(c,code) - return c:IsAbleToDeckOrExtraAsCost() and c:IsCode(code) + return c:IsAbleToDeckOrExtraAsCost() and c:IsFusionCode(code) end function c11502550.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-1 then return false end local g1=Duel.GetMatchingGroup(c11502550.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723) local g2=Duel.GetMatchingGroup(c11502550.spfilter,tp,LOCATION_ONFIELD,0,nil,54959865) if g1:GetCount()==0 or g2:GetCount()==0 then return false end + if g1:GetCount()==1 and g2:GetCount()==1 and g1:GetFirst()==g2:GetFirst() then return false end if ft>0 then return true end local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) @@ -76,12 +77,22 @@ function c11502550.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) if ft<=0 then tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() + ft=ft+1 else tc=g1:Select(tp,1,1,nil):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 + if i==1 then + g1:Clear() + if tc:IsFusionCode(89943723) then + local sg=Duel.GetMatchingGroup(c11502550.spfilter,tp,LOCATION_ONFIELD,0,tc,54959865) + g1:Merge(sg) + end + if tc:IsFusionCode(54959865) then + local sg=Duel.GetMatchingGroup(c11502550.spfilter,tp,LOCATION_ONFIELD,0,tc,89943723) + g1:Merge(sg) + end + end end local cg=g:Filter(Card.IsFacedown,nil) if cg:GetCount()>0 then @@ -89,10 +100,10 @@ function c11502550.spop(e,tp,eg,ep,ev,re,r,rp,c) end Duel.SendtoDeck(g,nil,2,REASON_COST) end -function c11502550.retcon1(e,tp,eg,ep,ev,re,r,rp,chk) +function c11502550.retcon1(e,tp,eg,ep,ev,re,r,rp) return not e:GetHandler():IsHasEffect(42015635) end -function c11502550.retcon2(e,tp,eg,ep,ev,re,r,rp,chk) +function c11502550.retcon2(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsHasEffect(42015635) end function c11502550.rettg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c11508758.lua b/script/c11508758.lua index d934796f..4cabffb5 100644 --- a/script/c11508758.lua +++ b/script/c11508758.lua @@ -28,13 +28,12 @@ end function c11508758.ctlop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() then - if not Duel.GetControl(tc,tp,PHASE_BATTLE,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - else - if tc:IsAttackPos() then - Duel.ChangeAttacker(tc) + if Duel.GetControl(tc,tp,PHASE_BATTLE,1)~=0 then + if tc:IsAttackable() and not tc:IsImmuneToEffect(e) then + local ats=tc:GetAttackableTarget() + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(11508758,1)) + local g=ats:Select(tp,1,1,nil) + Duel.CalculateDamage(tc,g:GetFirst()) end end end diff --git a/script/c11522979.lua b/script/c11522979.lua index 97580ede..1e62da64 100644 --- a/script/c11522979.lua +++ b/script/c11522979.lua @@ -32,12 +32,12 @@ function c11522979.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetAttacker():IsControler(1-tp) end function c11522979.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c11522979.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.Destroy(g,REASON_EFFECT) end function c11522979.condition(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c1154611.lua b/script/c1154611.lua index 24c0e7aa..c1c34347 100644 --- a/script/c1154611.lua +++ b/script/c1154611.lua @@ -47,17 +47,10 @@ end function c1154611.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() - if c:IsRelateToEffect(e) - and Duel.IsPlayerCanSpecialSummonMonster(tp,1154611,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then - c:SetStatus(STATUS_NO_LEVEL,false) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(TYPE_NORMAL+TYPE_MONSTER) - e1:SetReset(RESET_EVENT+0x47c0000) - c:RegisterEffect(e1,true) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,1154611,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then + c:AddMonsterAttribute(TYPE_NORMAL) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_IMMUNE_EFFECT) @@ -65,7 +58,7 @@ function c1154611.spop(e,tp,eg,ep,ev,re,r,rp) e2:SetRange(LOCATION_MZONE) e2:SetValue(c1154611.efilter) e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) + c:RegisterEffect(e2,true) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE) e3:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) @@ -73,6 +66,7 @@ function c1154611.spop(e,tp,eg,ep,ev,re,r,rp) e3:SetReset(RESET_EVENT+0x47e0000) e3:SetValue(LOCATION_REMOVED) c:RegisterEffect(e3,true) + Duel.SpecialSummonComplete() end end function c1154611.efilter(e,re) diff --git a/script/c11548522.lua b/script/c11548522.lua old mode 100755 new mode 100644 diff --git a/script/c11556339.lua b/script/c11556339.lua index b327f099..7675bd44 100644 --- a/script/c11556339.lua +++ b/script/c11556339.lua @@ -18,15 +18,15 @@ function c11556339.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c11556339.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c11556339.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c11556339.activate(e,tp,eg,ep,ev,re,r,rp) local ct=Duel.GetMatchingGroupCount(c11556339.cfilter,tp,LOCATION_MZONE,0,nil) if ct==0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,ct,nil) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,ct,nil) if g:GetCount()>0 then Duel.HintSelection(g) Duel.Destroy(g,REASON_EFFECT) diff --git a/script/c11596936.lua b/script/c11596936.lua index a13c6c40..0a90ffff 100644 --- a/script/c11596936.lua +++ b/script/c11596936.lua @@ -22,7 +22,7 @@ function c11596936.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.ShuffleHand(tp) end function c11596936.filter(c) - return c:IsFacedown() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFacedown() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c11596936.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c11596936.filter,tp,0,LOCATION_ONFIELD,1,nil) end diff --git a/script/c11609969.lua b/script/c11609969.lua index 5917e5d8..0207447a 100644 --- a/script/c11609969.lua +++ b/script/c11609969.lua @@ -7,9 +7,8 @@ function c11609969.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_PZONE) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetTargetRange(1,0) - e2:SetCondition(aux.nfbdncon) e2:SetTarget(c11609969.splimit) c:RegisterEffect(e2) --scale change @@ -44,7 +43,7 @@ function c11609969.sccon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c11609969.filter(c,lv) - return c:IsFaceup() and not c:IsSetCard(0xaf) and c:IsLevelAbove(lv) and c:IsDestructable() + return c:IsFaceup() and not c:IsSetCard(0xaf) and c:IsLevelAbove(lv) end function c11609969.sctg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c11613567.lua b/script/c11613567.lua index a1ffe494..2f9d101a 100644 --- a/script/c11613567.lua +++ b/script/c11613567.lua @@ -37,6 +37,6 @@ end function c11613567.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end diff --git a/script/c11646785.lua b/script/c11646785.lua index 489944e3..bffb501c 100644 --- a/script/c11646785.lua +++ b/script/c11646785.lua @@ -25,6 +25,7 @@ function c11646785.initial_effect(c) local e3=e2:Clone() e3:SetType(EFFECT_TYPE_QUICK_O) e3:SetCode(EVENT_FREE_CHAIN) + e3:SetHintTiming(0,0x1e0) e3:SetCondition(c11646785.setcon2) c:RegisterEffect(e3) --material @@ -63,7 +64,7 @@ end function c11646785.setop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end function c11646785.mtfilter(c,e) diff --git a/script/c11678191.lua b/script/c11678191.lua index 4bbe00ea..e58e8fc2 100644 --- a/script/c11678191.lua +++ b/script/c11678191.lua @@ -88,8 +88,10 @@ function c11678191.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c11678191.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c11678191.postg(e,tp,eg,ep,ev,re,r,rp,chk) @@ -100,6 +102,6 @@ end function c11678191.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then - Duel.ChangePosition(c:GetEquipTarget(),POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(c:GetEquipTarget(),POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c11682713.lua b/script/c11682713.lua index a73507f4..86c6ae2a 100644 --- a/script/c11682713.lua +++ b/script/c11682713.lua @@ -37,7 +37,7 @@ function c11682713.operation(e,tp,eg,ep,ev,re,r,rp) end function c11682713.tdcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_DECK) and (c:IsReason(REASON_REVEAL) or c:GetPreviousPosition()==POS_FACEUP_DEFENCE) + return c:IsPreviousLocation(LOCATION_DECK) and c:IsReason(REASON_REVEAL) end function c11682713.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToHand() end diff --git a/script/c11705261.lua b/script/c11705261.lua index 77e8763e..f7d69241 100644 --- a/script/c11705261.lua +++ b/script/c11705261.lua @@ -21,7 +21,7 @@ function c11705261.initial_effect(c) c:RegisterEffect(e2) end function c11705261.filter(c,tp) - return c:IsSetCard(0x7f) and c:IsControler(tp) and c:GetSummonType()==SUMMON_TYPE_XYZ + return c:IsSetCard(0x107f) and c:IsControler(tp) and c:GetSummonType()==SUMMON_TYPE_XYZ end function c11705261.condition(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c11705261.filter,1,nil,tp) diff --git a/script/c11741041.lua b/script/c11741041.lua index 67feff3d..5883132b 100644 --- a/script/c11741041.lua +++ b/script/c11741041.lua @@ -1,48 +1,49 @@ ---サンダー・ボトル -function c11741041.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --counter - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_SZONE) - e2:SetOperation(c11741041.ctop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(11741041,0)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c11741041.descon) - e3:SetCost(c11741041.descost) - e3:SetTarget(c11741041.destg) - e3:SetOperation(c11741041.desop) - c:RegisterEffect(e3) -end -function c11741041.ctop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetAttacker():IsControler(tp) then - e:GetHandler():AddCounter(0xc+COUNTER_NEED_ENABLE,1) - end -end -function c11741041.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetCounter(0xc)>=4 -end -function c11741041.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c11741041.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c11741041.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) -end +--サンダー・ボトル +function c11741041.initial_effect(c) + c:EnableCounterPermit(0xc) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --counter + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_ATTACK_ANNOUNCE) + e2:SetRange(LOCATION_SZONE) + e2:SetOperation(c11741041.ctop) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(11741041,0)) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetRange(LOCATION_SZONE) + e3:SetCondition(c11741041.descon) + e3:SetCost(c11741041.descost) + e3:SetTarget(c11741041.destg) + e3:SetOperation(c11741041.desop) + c:RegisterEffect(e3) +end +function c11741041.ctop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetAttacker():IsControler(tp) then + e:GetHandler():AddCounter(0xc,1) + end +end +function c11741041.descon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetCounter(0xc)>=4 +end +function c11741041.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST) +end +function c11741041.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c11741041.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c11790356.lua b/script/c11790356.lua old mode 100755 new mode 100644 index 1242df14..f8331bc2 --- a/script/c11790356.lua +++ b/script/c11790356.lua @@ -62,7 +62,7 @@ function c11790356.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()~=tp end function c11790356.filter2(c) - return c:IsSetCard(0xd6) and c:IsType(TYPE_MONSTER) + return c:IsSetCard(0xd6) and c:IsType(TYPE_MONSTER) and not c:IsForbidden() end function c11790356.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c11790356.cfilter(chkc) end @@ -71,6 +71,7 @@ function c11790356.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) and Duel.IsExistingMatchingCard(c11790356.filter2,tp,LOCATION_GRAVE,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) Duel.SelectTarget(tp,c11790356.cfilter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,nil,1,tp,LOCATION_GRAVE) end function c11790356.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() diff --git a/script/c11819616.lua b/script/c11819616.lua index f3081ca1..780ba06c 100644 --- a/script/c11819616.lua +++ b/script/c11819616.lua @@ -4,7 +4,7 @@ function c11819616.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(11819616,0)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetRange(LOCATION_MZONE) diff --git a/script/c11834972.lua b/script/c11834972.lua old mode 100755 new mode 100644 diff --git a/script/c11913700.lua b/script/c11913700.lua index 1d78be41..e2e0fd57 100644 --- a/script/c11913700.lua +++ b/script/c11913700.lua @@ -57,7 +57,7 @@ function c11913700.spcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsReason(REASON_LOST_TARGET) and not ec:IsLocation(LOCATION_ONFIELD+LOCATION_OVERLAY) end function c11913700.spfilter(c,e,tp) - return c:IsCode(89943723) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(89943723) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c11913700.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -68,7 +68,7 @@ function c11913700.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c11913700.spfilter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c11954712.lua b/script/c11954712.lua old mode 100755 new mode 100644 diff --git a/script/c11958188.lua b/script/c11958188.lua index f6703804..ca5d481e 100644 --- a/script/c11958188.lua +++ b/script/c11958188.lua @@ -28,7 +28,7 @@ function c11958188.descost(e,tp,eg,ep,ev,re,r,rp,chk) end function c11958188.destg(e,tp,eg,ep,ev,re,r,rp,chk) local tc=e:GetLabelObject():GetReasonCard() - if chk==0 then return tc:IsRelateToBattle() and tc:IsDestructable() end + if chk==0 then return tc:IsRelateToBattle() end Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) end function c11958188.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c12014404.lua b/script/c12014404.lua index 20d4f430..357a48b8 100644 --- a/script/c12014404.lua +++ b/script/c12014404.lua @@ -21,14 +21,14 @@ function c12014404.cost(e,tp,eg,ep,ev,re,r,rp,chk) end function c12014404.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - if e:GetHandler():IsDefencePos() then + if e:GetHandler():IsDefensePos() then Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) end end function c12014404.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if not c:IsRelateToEffect(e) then return end - if c:IsDefencePos() then + if c:IsDefensePos() then Duel.Damage(1-tp,800,REASON_EFFECT) elseif c:IsPosition(POS_FACEUP_ATTACK) then local e1=Effect.CreateEffect(c) diff --git a/script/c12071500.lua b/script/c12071500.lua index 70940cb2..c710760f 100644 --- a/script/c12071500.lua +++ b/script/c12071500.lua @@ -68,18 +68,5 @@ function c12071500.activate(e,tp,eg,ep,ev,re,r,rp) fop(ce,e,tp,tc,mat2,SUMMON_TYPE_FUSION+0x10) end tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - local ct=cg1:GetCount() - if not Duel.IsPlayerAffectedByEffect(tp,30459350) then - ct=ct+Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER) - end - if ct>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end diff --git a/script/c12079734.lua b/script/c12079734.lua index 6c7928fe..1929f7ac 100644 --- a/script/c12079734.lua +++ b/script/c12079734.lua @@ -37,10 +37,12 @@ function c12079734.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if op==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectTarget(tp,c12079734.filter1,tp,LOCATION_GRAVE,0,1,1,nil,c) + e:SetCategory(CATEGORY_EQUIP) Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) else Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) local g=Duel.SelectTarget(tp,c12079734.filter2,tp,LOCATION_MZONE,0,1,1,nil) + e:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) end @@ -55,8 +57,8 @@ function c12079734.operation(e,tp,eg,ep,ev,re,r,rp) tc:SetStatus(STATUS_UNION,true) end else - if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)~=0 then - Duel.ShuffleDeck(tp) + if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then + if tc:IsLocation(LOCATION_DECK) then Duel.ShuffleDeck(tp) end Duel.BreakEffect() Duel.Draw(tp,1,REASON_EFFECT) end diff --git a/script/c12181376.lua b/script/c12181376.lua old mode 100755 new mode 100644 diff --git a/script/c12197543.lua b/script/c12197543.lua index 14c1674e..9da40643 100644 --- a/script/c12197543.lua +++ b/script/c12197543.lua @@ -13,7 +13,7 @@ function c12197543.condition(e,tp,eg,ep,ev,re,r,rp) return ep~=tp and r==REASON_RULE end function c12197543.dfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c12197543.activate(e,tp,eg,ep,ev,re,r,rp) local tc=eg:GetFirst() diff --git a/script/c12215894.lua b/script/c12215894.lua new file mode 100644 index 00000000..0a013158 --- /dev/null +++ b/script/c12215894.lua @@ -0,0 +1,95 @@ +--ブンボーグ・ベース +function c12215894.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --atkup + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetRange(LOCATION_FZONE) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xab)) + e2:SetValue(500) + c:RegisterEffect(e2) + --defup + local e3=e2:Clone() + e3:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e3) + --draw + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(12215894,0)) + e4:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e4:SetCountLimit(1) + e4:SetRange(LOCATION_FZONE) + e4:SetTarget(c12215894.target) + e4:SetOperation(c12215894.operation) + c:RegisterEffect(e4) + --todeck + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(12215894,1)) + e5:SetCategory(CATEGORY_TODECK) + e5:SetType(EFFECT_TYPE_IGNITION) + e5:SetRange(LOCATION_FZONE) + e5:SetCost(c12215894.cost2) + e5:SetTarget(c12215894.target2) + e5:SetOperation(c12215894.operation2) + c:RegisterEffect(e5) +end +function c12215894.filter(c) + return c:IsSetCard(0xab) and c:IsAbleToDeck() and not c:IsPublic() +end +function c12215894.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp) + and Duel.IsExistingMatchingCard(c12215894.filter,tp,LOCATION_HAND,0,1,nil) end + Duel.SetTargetPlayer(tp) + Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND) +end +function c12215894.operation(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK) + local g=Duel.SelectMatchingCard(p,c12215894.filter,p,LOCATION_HAND,0,1,99,nil) + if g:GetCount()>0 then + Duel.ConfirmCards(1-p,g) + local ct=Duel.SendtoDeck(g,nil,2,REASON_EFFECT) + Duel.ShuffleDeck(p) + Duel.BreakEffect() + Duel.Draw(p,ct,REASON_EFFECT) + Duel.ShuffleHand(p) + end +end +function c12215894.cfilter(c) + return c:IsSetCard(0xab) and c:IsAbleToRemoveAsCost() and not c:IsCode(12215894) + and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) +end +function c12215894.cost2(e,tp,eg,ep,ev,re,r,rp,chk) + local g=Duel.GetMatchingGroup(c12215894.cfilter,tp,LOCATION_GRAVE+LOCATION_ONFIELD,0,nil) + if chk==0 then return g:GetClassCount(Card.GetCode)>=9 end + local rg=Group.CreateGroup() + for i=1,9 do + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local tc=g:Select(tp,1,1,nil):GetFirst() + if tc then + rg:AddCard(tc) + g:Remove(Card.IsCode,nil,tc:GetCode()) + end + end + Duel.Remove(rg,POS_FACEUP,REASON_COST) +end +function c12215894.target2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,1,nil) end + local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,nil) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) +end +function c12215894.operation2(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_HAND,nil) + if g:GetCount()>0 then + Duel.SendtoDeck(g,nil,2,REASON_EFFECT) + end +end diff --git a/script/c12216615.lua b/script/c12216615.lua index 25e0d168..370756d9 100644 --- a/script/c12216615.lua +++ b/script/c12216615.lua @@ -14,7 +14,7 @@ function c12216615.condition(e,tp,eg,ep,ev,re,r,rp) return tp~=Duel.GetTurnPlayer() and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,2,nil,36623431) end function c12216615.filter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:IsDestructable() + return c:IsPosition(POS_FACEUP_ATTACK) end function c12216615.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c12216615.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c12235475.lua b/script/c12235475.lua index 66be505d..2217ad96 100644 --- a/script/c12235475.lua +++ b/script/c12235475.lua @@ -4,7 +4,7 @@ function c12235475.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(12235475,0)) e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetRange(LOCATION_MZONE) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetCondition(c12235475.con) diff --git a/script/c12247206.lua b/script/c12247206.lua old mode 100755 new mode 100644 index 784f09f5..35c0a17a --- a/script/c12247206.lua +++ b/script/c12247206.lua @@ -47,6 +47,7 @@ end function c12247206.activate(e,tp,eg,ep,ev,re,r,rp) local tc=eg:GetFirst() local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft1>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then ft1=1 end local gg=Group.CreateGroup() local g=Duel.GetMatchingGroup(c12247206.filter,tp,0x13,0,nil,tc,e,tp) if g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end @@ -61,12 +62,13 @@ function c12247206.activate(e,tp,eg,ep,ev,re,r,rp) end end local ft2=Duel.GetLocationCount(1-tp,LOCATION_MZONE) + if ft2>1 and Duel.IsPlayerAffectedByEffect(1-tp,59822133) then ft2=1 end Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_FACEUP) local sg=Duel.SelectMatchingCard(1-tp,c12247206.selfilter,1-tp,LOCATION_MZONE,0,1,1,nil,e,1-tp) if ft2>0 and sg:GetCount()>0 then local g2=Duel.GetMatchingGroup(c12247206.filter,1-tp,0x13,0,nil,sg:GetFirst(),e,1-tp) if not g2:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then - if g2:GetCount()<=ft2 then + if g2:GetCount()<=ft2 then c12247206.sp(g2,1-tp,POS_FACEUP) else Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON) diff --git a/script/c1224927.lua b/script/c1224927.lua index 31132e75..de7891b5 100644 --- a/script/c1224927.lua +++ b/script/c1224927.lua @@ -14,7 +14,7 @@ function c1224927.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()~=tp end function c1224927.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c1224927.target(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() diff --git a/script/c12255007.lua b/script/c12255007.lua new file mode 100644 index 00000000..c69dc316 --- /dev/null +++ b/script/c12255007.lua @@ -0,0 +1,46 @@ +--EMホタルクス +function c12255007.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --actlimit + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EFFECT_CANNOT_ACTIVATE) + e1:SetRange(LOCATION_MZONE) + e1:SetTargetRange(0,1) + e1:SetValue(c12255007.aclimit) + e1:SetCondition(c12255007.actcon) + c:RegisterEffect(e1) + --negate attack + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetRange(LOCATION_PZONE) + e2:SetCode(EVENT_ATTACK_ANNOUNCE) + e2:SetCountLimit(1) + e2:SetCondition(c12255007.condition) + e2:SetCost(c12255007.cost) + e2:SetOperation(c12255007.operation) + c:RegisterEffect(e2) +end +function c12255007.aclimit(e,re,tp) + return not re:GetHandler():IsImmuneToEffect(e) and re:IsHasType(EFFECT_TYPE_ACTIVATE) +end +function c12255007.actcon(e) + local tc=Duel.GetAttacker() + local tp=e:GetHandlerPlayer() + return tc and tc:IsControler(tp) and (tc:IsSetCard(0x9f) or tc:IsSetCard(0x99)) +end +function c12255007.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp +end +function c12255007.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x9f) end + local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x9f) + Duel.Release(g,REASON_COST) +end +function c12255007.operation(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():IsRelateToEffect(e) and Duel.NegateAttack() then + Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) + end +end diff --git a/script/c12275533.lua b/script/c12275533.lua index b04f19f4..ab2e77fb 100644 --- a/script/c12275533.lua +++ b/script/c12275533.lua @@ -45,7 +45,8 @@ function c12275533.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c12275533.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE) @@ -63,6 +64,9 @@ function c12275533.operation(e,tp,eg,ep,ev,re,r,rp) e2:SetReset(RESET_EVENT+0x1fe0000) e2:SetOperation(c12275533.adjustop) c:RegisterEffect(e2) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c12275533.efilter(e,te) @@ -74,7 +78,7 @@ function c12275533.adjustop(e,tp,eg,ep,ev,re,r,rp) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) e1:SetReset(RESET_EVENT+0x1ff0000) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetValue(-500) c:RegisterEffect(e1) end diff --git a/script/c12298909.lua b/script/c12298909.lua index 0daf161e..efbf3c1a 100644 --- a/script/c12298909.lua +++ b/script/c12298909.lua @@ -4,7 +4,7 @@ function c12298909.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(12298909,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_MZONE) diff --git a/script/c12324546.lua b/script/c12324546.lua index e80043c7..318939c2 100644 --- a/script/c12324546.lua +++ b/script/c12324546.lua @@ -17,7 +17,7 @@ function c12324546.initial_effect(c) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(200) c:RegisterEffect(e3) --destroy sub diff --git a/script/c12385638.lua b/script/c12385638.lua new file mode 100644 index 00000000..6272c3ba --- /dev/null +++ b/script/c12385638.lua @@ -0,0 +1,54 @@ +--Kozmourning +function c12385638.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --to deck + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetRange(LOCATION_SZONE) + e2:SetCode(EFFECT_BATTLE_DESTROY_REDIRECT) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetTarget(c12385638.tdtg) + e2:SetValue(LOCATION_DECKSHF) + c:RegisterEffect(e2) + --damage conversion + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetRange(LOCATION_GRAVE) + e3:SetCost(c12385638.cost) + e3:SetOperation(c12385638.operation) + c:RegisterEffect(e3) +end +function c12385638.tdtg(e,c) + return c:IsSetCard(0xd2) +end +function c12385638.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c12385638.operation(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EFFECT_REVERSE_DAMAGE) + e1:SetTargetRange(1,0) + e1:SetValue(c12385638.valcon) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c12385638.valcon(e,re,r,rp,rc) + if bit.band(r,REASON_BATTLE)~=0 then + local tp=e:GetHandlerPlayer() + local bc=rc:GetBattleTarget() + if bc and bc:IsSetCard(0xd2) and bc:IsControler(tp) + and Duel.GetFlagEffect(tp,12385638)==0 then + Duel.RegisterFlagEffect(tp,12385638,RESET_PHASE+PHASE_END,0,1) + return true + end + end + return false +end diff --git a/script/c12398280.lua b/script/c12398280.lua index 58927c1c..1498be72 100644 --- a/script/c12398280.lua +++ b/script/c12398280.lua @@ -10,7 +10,7 @@ function c12398280.initial_effect(c) e1:SetValue(400) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) --cannot be battle target local e1=Effect.CreateEffect(c) diff --git a/script/c12408276.lua b/script/c12408276.lua new file mode 100644 index 00000000..acea2c4c --- /dev/null +++ b/script/c12408276.lua @@ -0,0 +1,70 @@ +--Kozmoll Dark Lady +function c12408276.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(12408276,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,12408276) + e1:SetCost(c12408276.spcost) + e1:SetTarget(c12408276.sptg) + e1:SetOperation(c12408276.spop) + c:RegisterEffect(e1) + --negate + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(12408276,1)) + e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_CHAINING) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e2:SetCountLimit(1) + e2:SetCondition(c12408276.negcon) + e2:SetCost(c12408276.negcost) + e2:SetTarget(c12408276.negtg) + e2:SetOperation(c12408276.negop) + c:RegisterEffect(e2) +end +function c12408276.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c12408276.spfilter(c,e,tp) + return c:IsSetCard(0xd2) and c:IsLevelAbove(6) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c12408276.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c12408276.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c12408276.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c12408276.spfilter,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 +function c12408276.negcon(e,tp,eg,ep,ev,re,r,rp) + return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and re:GetHandler()~=e:GetHandler() + and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev) +end +function c12408276.negcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,1000) end + Duel.PayLPCost(tp,1000) +end +function c12408276.negtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end +end +function c12408276.negop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + if re:GetHandler():IsRelateToEffect(re) then + Duel.Destroy(eg,REASON_EFFECT) + end +end diff --git a/script/c12423762.lua b/script/c12423762.lua index 61f966de..2f8bde00 100644 --- a/script/c12423762.lua +++ b/script/c12423762.lua @@ -32,8 +32,10 @@ function c12423762.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c12423762.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c12423762.indcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c12435193.lua b/script/c12435193.lua index 2fd2cabf..d2f37d73 100644 --- a/script/c12435193.lua +++ b/script/c12435193.lua @@ -30,6 +30,8 @@ function c12435193.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_DRAGON) and not c:IsPublic() end function c12435193.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c12435193.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c12435193.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -39,8 +41,10 @@ function c12435193.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(12435193,0),aux.Stringid(12435193,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(12435193,1),aux.Stringid(12435193,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(12435193,1),aux.Stringid(12435193,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(12435193,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -52,7 +56,7 @@ function c12435193.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c12435193.disspsum(e,c) diff --git a/script/c12444060.lua b/script/c12444060.lua index 448c3f8e..94838d35 100644 --- a/script/c12444060.lua +++ b/script/c12444060.lua @@ -54,10 +54,10 @@ function c12444060.descon(e,tp,eg,ep,ev,re,r,rp) return rp~=tp and e:GetHandler():GetPreviousControler()==tp end function c12444060.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c12444060.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c12467005.lua b/script/c12467005.lua old mode 100755 new mode 100644 index 49279e7f..d4c51c45 --- a/script/c12467005.lua +++ b/script/c12467005.lua @@ -29,10 +29,12 @@ function c12467005.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if op==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) local g=Duel.SelectTarget(tp,c12467005.filter1,tp,0,LOCATION_MZONE,1,1,nil) + e:SetCategory(CATEGORY_POSITION) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) else Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) local g=Duel.SelectTarget(tp,c12467005.filter2,tp,0,LOCATION_ONFIELD,1,1,nil) + e:SetCategory(CATEGORY_TOHAND) Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) end end @@ -40,7 +42,7 @@ function c12467005.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if not tc:IsRelateToEffect(e) then return end if e:GetLabel()==0 then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) else local code=tc:GetCode() Duel.SendtoHand(tc,nil,REASON_EFFECT) diff --git a/script/c12469386.lua b/script/c12469386.lua old mode 100755 new mode 100644 diff --git a/script/c12470447.lua b/script/c12470447.lua index f12c9451..e451e22a 100644 --- a/script/c12470447.lua +++ b/script/c12470447.lua @@ -23,7 +23,7 @@ end function c12470447.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,LOCATION_MZONE) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD) diff --git a/script/c1248895.lua b/script/c1248895.lua old mode 100755 new mode 100644 diff --git a/script/c12510878.lua b/script/c12510878.lua index def4a522..faaeb017 100644 --- a/script/c12510878.lua +++ b/script/c12510878.lua @@ -34,7 +34,7 @@ function c12510878.initial_effect(c) e4:SetValue(c12510878.val) c:RegisterEffect(e4) local e5=e4:Clone() - e5:SetCode(EFFECT_UPDATE_DEFENCE) + e5:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e5) end function c12510878.spcon(e,c) diff --git a/script/c12580477.lua b/script/c12580477.lua index 60c3a296..b21c3b0d 100644 --- a/script/c12580477.lua +++ b/script/c12580477.lua @@ -10,11 +10,11 @@ function c12580477.initial_effect(c) c:RegisterEffect(e1) end function c12580477.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) end function c12580477.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.Destroy(sg,REASON_EFFECT) end diff --git a/script/c12600382.lua b/script/c12600382.lua index 8c348ff3..92693543 100644 --- a/script/c12600382.lua +++ b/script/c12600382.lua @@ -21,12 +21,11 @@ function c12600382.initial_effect(c) e3:SetType(EFFECT_TYPE_SINGLE) e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) e3:SetCode(EFFECT_SPSUMMON_CONDITION) - e3:SetValue(c12600382.splimit) c:RegisterEffect(e3) --atkup local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(12600382,0)) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) e4:SetCategory(CATEGORY_ATKCHANGE) e4:SetCode(EVENT_PHASE+PHASE_STANDBY) e4:SetRange(LOCATION_MZONE) @@ -44,16 +43,14 @@ function c12600382.initial_effect(c) c:RegisterEffect(e5) end function c12600382.efdes(e,re) - return not re:GetHandler():IsType(TYPE_MONSTER) -end -function c12600382.splimit(e,se,sp,st) - return st==(SUMMON_TYPE_SPECIAL+332449) + return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) end function c12600382.atkcon(e,tp,eg,ep,ev,re,r,rp) return tp==Duel.GetTurnPlayer() end function c12600382.atkop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UPDATE_ATTACK) diff --git a/script/c12615446.lua b/script/c12615446.lua new file mode 100644 index 00000000..dc69a266 --- /dev/null +++ b/script/c12615446.lua @@ -0,0 +1,88 @@ +--電子光虫－スカラジエータ +function c12615446.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,c12615446.matfilter,3,2,nil,nil,5) + c:EnableReviveLimit() + --Position+Negate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(12615446,0)) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,0x1c0) + e1:SetRange(LOCATION_MZONE) + e1:SetCategory(CATEGORY_POSITION+CATEGORY_DISABLE) + e1:SetCountLimit(1) + e1:SetCost(c12615446.poscost) + e1:SetTarget(c12615446.postg) + e1:SetOperation(c12615446.posop) + c:RegisterEffect(e1) + --Attach + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(12615446,1)) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BATTLE_DESTROYING) + e2:SetCountLimit(1) + e2:SetCondition(c12615446.xyzcon) + e2:SetTarget(c12615446.xyztg) + e2:SetOperation(c12615446.xyzop) + c:RegisterEffect(e2) +end +function c12615446.matfilter(c) + return c:IsRace(RACE_INSECT) and c:IsAttribute(ATTRIBUTE_LIGHT) +end +function c12615446.poscost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST) +end +function c12615446.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(nil,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,nil,tp,0,LOCATION_MZONE,1,1,nil) +end +function c12615446.posop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)>0 and ((tc:IsFaceup() and not tc:IsDisabled()) or tc:IsType(TYPE_TRAPMONSTER)) then + Duel.NegateRelatedChain(tc,RESET_TURN_SET) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetValue(RESET_TURN_SET) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + if tc:IsType(TYPE_TRAPMONSTER) then + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_DISABLE_TRAPMONSTER) + e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e3) + end + end +end +function c12615446.xyzcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=c:GetBattleTarget() + if not c:IsRelateToBattle() or c:IsFacedown() then return false end + e:SetLabelObject(tc) + return tc:IsLocation(LOCATION_GRAVE) and tc:IsType(TYPE_MONSTER) and tc:IsReason(REASON_BATTLE) +end +function c12615446.xyztg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local tc=e:GetLabelObject() + Duel.SetTargetCard(tc) + Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,tc,1,0,0) +end +function c12615446.xyzop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) then + Duel.Overlay(c,tc) + end +end diff --git a/script/c126218.lua b/script/c126218.lua index d0b5c3e6..0494cef9 100644 --- a/script/c126218.lua +++ b/script/c126218.lua @@ -31,7 +31,7 @@ function c126218.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(-d) sc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) sc:RegisterEffect(e2) sc=g:GetNext() end diff --git a/script/c12624008.lua b/script/c12624008.lua index 8d2f4870..d56731f7 100644 --- a/script/c12624008.lua +++ b/script/c12624008.lua @@ -15,7 +15,7 @@ function c12624008.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c12624008.filter(c) - return (c:IsFacedown() or c:GetAttribute()~=ATTRIBUTE_LIGHT) and c:IsDestructable() + return (c:IsFacedown() or c:GetAttribute()~=ATTRIBUTE_LIGHT) end function c12624008.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c1264319.lua b/script/c1264319.lua index d2b1ccff..fdd644ba 100644 --- a/script/c1264319.lua +++ b/script/c1264319.lua @@ -76,15 +76,6 @@ function c1264319.activate(e,tp,eg,ep,ev,re,r,rp) fop(ce,e,tp,tc,mat2) end tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end function c1264319.thfilter(c) diff --git a/script/c12644061.lua b/script/c12644061.lua index e70d3b11..cbc8ff88 100644 --- a/script/c12644061.lua +++ b/script/c12644061.lua @@ -58,7 +58,7 @@ function c12644061.damcon(e,tp,eg,ep,ev,re,r,rp) and ((a:IsControler(tp) and a:IsSetCard(0x1034)) or (at and at:IsControler(tp) and at:IsSetCard(0x1034))) end function c12644061.dfilter(c) - return c:IsSetCard(0x1034) and c:IsAbleToGraveAsCost() + return c:IsSetCard(0x1034) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() end function c12644061.damcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c12644061.dfilter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c12670770.lua b/script/c12670770.lua index fa950842..90317929 100644 --- a/script/c12670770.lua +++ b/script/c12670770.lua @@ -108,14 +108,14 @@ function c12670770.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_REMOVED) end function c12670770.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c12670770.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end + local tg=Duel.GetMatchingGroup(c12670770.spfilter,tp,LOCATION_REMOVED,0,nil,e,tp) + if ft<=0 or tg:GetCount()==0 or (ft>1 and tg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c12670770.spfilter,tp,LOCATION_REMOVED,0,ft,ft,nil,e,tp) - if g:GetCount()==0 then return end + local g=tg:Select(tp,ft,ft,nil) local tc=g:GetFirst() while tc do Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) diff --git a/script/c12678870.lua b/script/c12678870.lua index b4e81409..c3293046 100644 --- a/script/c12678870.lua +++ b/script/c12678870.lua @@ -40,11 +40,11 @@ function c12678870.initial_effect(c) c:RegisterEffect(e4) end function c12678870.spfilter1(c,tp) - return c:IsSetCard(0x10b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() + return c:IsFusionSetCard(0x10b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() and Duel.IsExistingMatchingCard(c12678870.spfilter2,tp,LOCATION_MZONE,0,1,c) end function c12678870.spfilter2(c) - return c:IsSetCard(0x20b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() + return c:IsFusionSetCard(0x20b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() end function c12678870.sprcon(e,c) if c==nil then return true end @@ -74,7 +74,8 @@ function c12678870.filter2(c,e,tp) end function c12678870.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c12678870.filter1,tp,LOCATION_REMOVED,0,1,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g1=Duel.SelectTarget(tp,c12678870.filter1,tp,LOCATION_REMOVED,0,1,1,nil,e,tp) @@ -86,15 +87,16 @@ end function c12678870.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()==0 then return end if g:GetCount()<=ft then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) else Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,ft,ft,nil) - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENSE) g:Sub(sg) - Duel.SendtoGrave(g,REASON_EFFECT) + Duel.SendtoGrave(g,REASON_RULE) end end diff --git a/script/c12694768.lua b/script/c12694768.lua index 2dce82bd..56d5df09 100644 --- a/script/c12694768.lua +++ b/script/c12694768.lua @@ -19,6 +19,7 @@ function c12694768.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,500) end function c12694768.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(tp,500,REASON_EFFECT) - Duel.Damage(1-tp,500,REASON_EFFECT) + Duel.Damage(tp,500,REASON_EFFECT,true) + Duel.Damage(1-tp,500,REASON_EFFECT,true) + Duel.RDComplete() end diff --git a/script/c12697630.lua b/script/c12697630.lua index a1191c0d..6e4ef646 100644 --- a/script/c12697630.lua +++ b/script/c12697630.lua @@ -46,7 +46,7 @@ function c12697630.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()~=tp end function c12697630.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c12697630.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c1274455.lua b/script/c1274455.lua new file mode 100644 index 00000000..baf952ef --- /dev/null +++ b/script/c1274455.lua @@ -0,0 +1,69 @@ +--Kozmo Soartroopers +function c1274455.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(1274455,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_MZONE) + e1:SetHintTiming(0,TIMING_END_PHASE) + e1:SetCountLimit(1,1274455) + e1:SetCost(c1274455.spcost) + e1:SetTarget(c1274455.sptg) + e1:SetOperation(c1274455.spop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(1274455,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCost(c1274455.cost) + e2:SetTarget(c1274455.target) + e2:SetOperation(c1274455.operation) + c:RegisterEffect(e2) +end +function c1274455.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c1274455.spfilter(c,e,tp) + return c:IsSetCard(0xd2) and c:IsLevelAbove(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c1274455.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c1274455.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c1274455.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c1274455.spfilter,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 +function c1274455.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,1000) end + Duel.PayLPCost(tp,1000) +end +function c1274455.filter(c,e,tp) + return c:IsSetCard(0xd2) and c:IsRace(RACE_PSYCHO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c1274455.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c1274455.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c1274455.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c1274455.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c1274455.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c12800777.lua b/script/c12800777.lua index 93b520c9..aaee31f1 100644 --- a/script/c12800777.lua +++ b/script/c12800777.lua @@ -50,6 +50,6 @@ end function c12800777.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c1281505.lua b/script/c1281505.lua index ec1c2bcf..893fff9c 100644 --- a/script/c1281505.lua +++ b/script/c1281505.lua @@ -47,13 +47,13 @@ function c1281505.eqop(e,tp,eg,ep,ev,re,r,rp) e1:SetCode(EFFECT_EQUIP_LIMIT) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetValue(c1281505.eqlimit) - e1:SetLabelObject(tc) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) end end function c1281505.eqlimit(e,c) - return c==e:GetLabelObject() + local tp=e:GetHandlerPlayer() + return c:IsControler(tp) end function c1281505.reptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c12822541.lua b/script/c12822541.lua index 99829c55..28ca4b7e 100644 --- a/script/c12822541.lua +++ b/script/c12822541.lua @@ -45,14 +45,13 @@ function c12822541.thop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end else Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c12822541.filter2,tp,LOCATION_EXTRA,0,1,1,nil) if g:GetCount()>0 then + Duel.HintSelection(g) Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) end end end diff --git a/script/c12836042.lua b/script/c12836042.lua index a26c88cb..50e72535 100644 --- a/script/c12836042.lua +++ b/script/c12836042.lua @@ -41,9 +41,7 @@ function c12836042.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c12836042.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp,PHASE_END,1) end -end \ No newline at end of file +end diff --git a/script/c1287123.lua b/script/c1287123.lua index 743f7009..382e8f1c 100644 --- a/script/c1287123.lua +++ b/script/c1287123.lua @@ -4,7 +4,7 @@ function c1287123.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(1287123,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_MZONE) diff --git a/script/c12923641.lua b/script/c12923641.lua old mode 100755 new mode 100644 index 698808ee..4e1fe50c --- a/script/c12923641.lua +++ b/script/c12923641.lua @@ -39,7 +39,7 @@ function c12923641.activate(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end local g=Duel.GetMatchingGroup(Card.IsCanTurnSet,tp,0,LOCATION_MZONE,nil) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) end end function c12923641.descon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c12927849.lua b/script/c12927849.lua index 9eac2027..83f51cc3 100644 --- a/script/c12927849.lua +++ b/script/c12927849.lua @@ -47,11 +47,11 @@ end function c12927849.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end function c12927849.eqfilter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) + return c:IsFaceup() and c:IsSetCard(0x107f) end function c12927849.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c12927849.eqfilter(chkc) end diff --git a/script/c12940613.lua b/script/c12940613.lua index 5bd3a851..c8654a3f 100644 --- a/script/c12940613.lua +++ b/script/c12940613.lua @@ -48,7 +48,7 @@ function c12940613.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) tc=g:GetNext() end diff --git a/script/c12948099.lua b/script/c12948099.lua old mode 100755 new mode 100644 diff --git a/script/c12953226.lua b/script/c12953226.lua index c45d310b..a350c2f6 100644 --- a/script/c12953226.lua +++ b/script/c12953226.lua @@ -2,8 +2,10 @@ function c12953226.initial_effect(c) --self destroy local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c12953226.destg) e1:SetOperation(c12953226.desop) c:RegisterEffect(e1) --atk down @@ -15,8 +17,14 @@ function c12953226.initial_effect(c) e2:SetValue(c12953226.val) c:RegisterEffect(e2) end +function c12953226.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) +end function c12953226.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) + if e:GetHandler():IsRelateToEffect(e) then + Duel.Destroy(e:GetHandler(),REASON_EFFECT) + end end function c12953226.val(e,c) local tp=c:GetControler() diff --git a/script/c12965761.lua b/script/c12965761.lua index 88e39a3a..9393fb07 100644 --- a/script/c12965761.lua +++ b/script/c12965761.lua @@ -88,8 +88,10 @@ function c12965761.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c12965761.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c12965761.tkcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c13048472.lua b/script/c13048472.lua new file mode 100644 index 00000000..f973b66e --- /dev/null +++ b/script/c13048472.lua @@ -0,0 +1,41 @@ +--儀式の下準備 +function c13048472.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,13048472+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c13048472.target) + e1:SetOperation(c13048472.activate) + c:RegisterEffect(e1) +end +function c13048472.filter(c,tp) + return bit.band(c:GetType(),0x82)==0x82 and c:IsAbleToHand() + and Duel.IsExistingMatchingCard(c13048472.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,c) +end +function c13048472.filter2(c,mc) + return bit.band(c:GetType(),0x81)==0x81 and c:IsAbleToHand() and c13048472.isfit(c,mc) +end +function c13048472.isfit(c,mc) + return mc.fit_monster and c:IsCode(table.unpack(mc.fit_monster)) +end +function c13048472.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c13048472.filter,tp,LOCATION_DECK,0,1,nil,tp) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c13048472.activate(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c13048472.filter,tp,LOCATION_DECK,0,1,1,nil,tp) + if g:GetCount()>0 then + local mg=Duel.GetMatchingGroup(c13048472.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,nil,g:GetFirst()) + if mg:GetCount()>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local sg=mg:Select(tp,1,1,nil) + g:Merge(sg) + if g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end + end +end diff --git a/script/c13108445.lua b/script/c13108445.lua index 0f1befe3..c67ef71f 100644 --- a/script/c13108445.lua +++ b/script/c13108445.lua @@ -21,7 +21,7 @@ function c13108445.initial_effect(c) e3:SetTarget(c13108445.thtg) e3:SetOperation(c13108445.thop) c:RegisterEffect(e3) - --to defence + --to defense local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e4:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -56,6 +56,6 @@ end function c13108445.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end diff --git a/script/c131182.lua b/script/c131182.lua index 0f3ba36f..604b26df 100644 --- a/script/c131182.lua +++ b/script/c131182.lua @@ -84,10 +84,10 @@ function c131182.descon(e,tp,eg,ep,ev,re,r,rp) return bit.band(r,REASON_EFFECT)~=0 and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) end function c131182.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c131182.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c1315120.lua b/script/c1315120.lua index 9f96b271..b60490b8 100644 --- a/script/c1315120.lua +++ b/script/c1315120.lua @@ -18,7 +18,7 @@ end function c1315120.spcon(e,c) if c==nil then return true end return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)>0 + and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)>0 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 end function c1315120.regop(e,tp,eg,ep,ev,re,r,rp) @@ -38,7 +38,7 @@ function c1315120.regop(e,tp,eg,ep,ev,re,r,rp) end end function c1315120.filter(c) - return c:IsSetCard(0x27) and c:GetCode()~=1315120 and c:IsAbleToHand() + return c:IsSetCard(0x27) and c:GetCode()~=1315120 and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c1315120.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c1315120.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c13166204.lua b/script/c13166204.lua index 7b82c1a8..cc9e8950 100644 --- a/script/c13166204.lua +++ b/script/c13166204.lua @@ -29,7 +29,7 @@ function c13166204.activate(e,tp,eg,ep,ev,re,r,rp) if re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(re:GetHandler(),REASON_EFFECT)~=0 then Duel.BreakEffect() local a=re:GetHandler():GetAttack() - local b=re:GetHandler():GetDefence() + local b=re:GetHandler():GetDefense() if b>a then a=b end if a<0 then a=0 end if a>0 then Duel.Damage(1-tp,a,REASON_EFFECT) end diff --git a/script/c13210191.lua b/script/c13210191.lua old mode 100755 new mode 100644 index 1b54e043..aa134603 --- a/script/c13210191.lua +++ b/script/c13210191.lua @@ -10,7 +10,7 @@ function c13210191.initial_effect(c) c:RegisterEffect(e1) end function c13210191.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c13210191.target(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() diff --git a/script/c13215230.lua b/script/c13215230.lua index dcc1dacc..efe0c5c9 100644 --- a/script/c13215230.lua +++ b/script/c13215230.lua @@ -14,13 +14,13 @@ function c13215230.initial_effect(c) end function c13215230.condition(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return bit.band(c:GetPreviousPosition(),POS_ATTACK)~=0 and c:IsFaceup() and c:IsDefencePos() + return bit.band(c:GetPreviousPosition(),POS_ATTACK)~=0 and c:IsFaceup() and c:IsDefensePos() end function c13215230.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c13215230.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c13250922.lua b/script/c13250922.lua index 97c754a1..a72b53ed 100644 --- a/script/c13250922.lua +++ b/script/c13250922.lua @@ -43,7 +43,7 @@ function c13250922.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.SendtoGrave(g,REASON_COST) end function c13250922.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c13250922.descost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 end diff --git a/script/c13293158.lua b/script/c13293158.lua index 1fe46dfa..30d6da64 100644 --- a/script/c13293158.lua +++ b/script/c13293158.lua @@ -48,7 +48,7 @@ function c13293158.condition(e,tp,eg,ep,ev,re,r,rp) return ep~=tp end function c13293158.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c13293158.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c13317419.lua b/script/c13317419.lua old mode 100755 new mode 100644 index 19391689..df8f4afe --- a/script/c13317419.lua +++ b/script/c13317419.lua @@ -72,7 +72,7 @@ function c13317419.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(e:GetHandler(),REASON_COST) end function c13317419.desfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c13317419.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c13317419.desfilter(chkc) end diff --git a/script/c13386503.lua b/script/c13386503.lua index d59cdc28..6537d71f 100644 --- a/script/c13386503.lua +++ b/script/c13386503.lua @@ -16,11 +16,11 @@ function c13386503.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and bc:IsCanBeSpecialSummoned(e,0,tp,false,false) end Duel.SetTargetCard(bc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,LOCATION_GRAVE) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,0) end function c13386503.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end -end \ No newline at end of file +end diff --git a/script/c13391185.lua b/script/c13391185.lua old mode 100755 new mode 100644 index 59548251..99e545de --- a/script/c13391185.lua +++ b/script/c13391185.lua @@ -48,7 +48,7 @@ function c13391185.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) end function c13391185.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0x207a) and c:IsType(TYPE_EQUIP) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x207a) and c:IsType(TYPE_EQUIP) end function c13391185.thop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() diff --git a/script/c13409151.lua b/script/c13409151.lua index 4fd78e9e..0f48cbd6 100644 --- a/script/c13409151.lua +++ b/script/c13409151.lua @@ -23,6 +23,6 @@ end function c13409151.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c13474291.lua b/script/c13474291.lua index b56f34f6..e013518c 100644 --- a/script/c13474291.lua +++ b/script/c13474291.lua @@ -36,7 +36,7 @@ function c13474291.initial_effect(c) c:RegisterEffect(e4) end function c13474291.sdcon(e) - return e:GetHandler():IsPosition(POS_FACEUP_DEFENCE) + return e:GetHandler():IsPosition(POS_FACEUP_DEFENSE) end function c13474291.cfilter(c) return c:IsSetCard(0x18) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() @@ -61,6 +61,6 @@ end function c13474291.ctop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0x19,1) + tc:AddCounter(0x1019,1) end end diff --git a/script/c13478040.lua b/script/c13478040.lua index 8da2d693..64e572be 100644 --- a/script/c13478040.lua +++ b/script/c13478040.lua @@ -1,46 +1,47 @@ ---ドングリス -function c13478040.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetOperation(c13478040.ctop) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(13478040,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCost(c13478040.descost) - e2:SetTarget(c13478040.destg) - e2:SetOperation(c13478040.desop) - c:RegisterEffect(e2) -end -function c13478040.cfilter(c,tp) - return c:GetSummonPlayer()==tp -end -function c13478040.ctop(e,tp,eg,ep,ev,re,r,rp) - if eg:IsExists(c13478040.cfilter,1,nil,1-tp) then - e:GetHandler():AddCounter(0x17+COUNTER_NEED_ENABLE,1) - end -end -function c13478040.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x17,1,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x17,1,REASON_COST) -end -function c13478040.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c13478040.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end +--ドングリス +function c13478040.initial_effect(c) + c:EnableCounterPermit(0x17) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetRange(LOCATION_MZONE) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetOperation(c13478040.ctop) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(13478040,0)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCost(c13478040.descost) + e2:SetTarget(c13478040.destg) + e2:SetOperation(c13478040.desop) + c:RegisterEffect(e2) +end +function c13478040.cfilter(c,tp) + return c:GetSummonPlayer()==tp +end +function c13478040.ctop(e,tp,eg,ep,ev,re,r,rp) + if eg:IsExists(c13478040.cfilter,1,nil,1-tp) then + e:GetHandler():AddCounter(0x17,1) + end +end +function c13478040.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x17,1,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x17,1,REASON_COST) +end +function c13478040.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c13478040.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end end \ No newline at end of file diff --git a/script/c13504844.lua b/script/c13504844.lua index f2305757..a6a24f1f 100644 --- a/script/c13504844.lua +++ b/script/c13504844.lua @@ -22,14 +22,16 @@ function c13504844.filter(c,e,tp) return c:IsSetCard(0x100d) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c13504844.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE and c13504844.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c13504844.filter(chkc,e,tp) end + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c13504844.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,2,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c13504844.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,2,2,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) end function c13504844.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local sg=g:Filter(Card.IsRelateToEffect,nil,e) diff --git a/script/c13522325.lua b/script/c13522325.lua index 42569ae4..2c4ecb3f 100644 --- a/script/c13522325.lua +++ b/script/c13522325.lua @@ -23,7 +23,7 @@ end function c13522325.atkcon(e) local ph=Duel.GetCurrentPhase() local tp=Duel.GetTurnPlayer() - return tp==e:GetHandler():GetControler() and (ph==PHASE_BATTLE or ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) + return tp==e:GetHandler():GetControler() and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE end function c13522325.spfilter(c) return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToRemoveAsCost() diff --git a/script/c13574687.lua b/script/c13574687.lua index a26d76a5..e172f15a 100644 --- a/script/c13574687.lua +++ b/script/c13574687.lua @@ -16,7 +16,7 @@ function c13574687.initial_effect(c) c:RegisterEffect(e1) end function c13574687.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c13574687.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c13574687.filter(chkc) end diff --git a/script/c13604200.lua b/script/c13604200.lua index 27f47fc6..c00fcb09 100644 --- a/script/c13604200.lua +++ b/script/c13604200.lua @@ -10,6 +10,7 @@ function c13604200.initial_effect(c) e1:SetOperation(c13604200.activate) c:RegisterEffect(e1) end +c13604200.card_code_list={46986414,38033121} function c13604200.cfilter(c) return c:IsFaceup() and c:IsCode(38033121) end diff --git a/script/c13611090.lua b/script/c13611090.lua index 69a5dfa6..acaf61e0 100644 --- a/script/c13611090.lua +++ b/script/c13611090.lua @@ -35,9 +35,9 @@ function c13611090.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetValue(tc:GetDefence()*2) + e2:SetValue(tc:GetDefense()*2) tc:RegisterEffect(e2) local e3=Effect.CreateEffect(e:GetHandler()) e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) diff --git a/script/c1362589.lua b/script/c1362589.lua index 9228ea61..786f7696 100644 --- a/script/c1362589.lua +++ b/script/c1362589.lua @@ -1,6 +1,6 @@ --フォトン・クラッシャー function c1362589.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_DAMAGE_STEP_END) @@ -14,6 +14,6 @@ end function c1362589.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end diff --git a/script/c13626450.lua b/script/c13626450.lua index 98fd5410..25dc4518 100644 --- a/script/c13626450.lua +++ b/script/c13626450.lua @@ -15,7 +15,7 @@ function c13626450.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c13626450.filter(c) - return c:IsFaceup() and c:GetType()==TYPE_TRAP+TYPE_CONTINUOUS and c:IsDestructable() + return c:IsFaceup() and c:GetType()==TYPE_TRAP+TYPE_CONTINUOUS end function c13626450.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c13626450.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end diff --git a/script/c13647631.lua b/script/c13647631.lua index 5de330c5..15ce1855 100644 --- a/script/c13647631.lua +++ b/script/c13647631.lua @@ -40,11 +40,11 @@ function c13647631.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c13647631.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then local atk=c:GetBaseAttack() - local def=c:GetBaseDefence() + local def=c:GetBaseDefense() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_BASE_ATTACK) @@ -52,10 +52,13 @@ function c13647631.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) e2:SetValue(def/2) c:RegisterEffect(e2) Duel.SpecialSummonComplete() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c13647631.descon(e,tp,eg,ep,ev,re,r,rp) @@ -64,10 +67,10 @@ function c13647631.descon(e,tp,eg,ep,ev,re,r,rp) and c:IsPreviousLocation(LOCATION_OVERLAY) end function c13647631.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c13647631.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c13662809.lua b/script/c13662809.lua new file mode 100644 index 00000000..04397edf --- /dev/null +++ b/script/c13662809.lua @@ -0,0 +1,80 @@ +--魔界台本「魔王の降臨」 +function c13662809.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(13662809,0)) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c13662809.target) + e1:SetOperation(c13662809.activate) + c:RegisterEffect(e1) + --search + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(13662809,1)) + e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_DESTROYED) + e2:SetCondition(c13662809.thcon) + e2:SetTarget(c13662809.thtg) + e2:SetOperation(c13662809.thop) + c:RegisterEffect(e2) +end +function c13662809.cfilter(c) + return c:IsPosition(POS_FACEUP_ATTACK) and c:IsSetCard(0x10ec) +end +function c13662809.lmfilter(c) + return c:IsFaceup() and c:IsSetCard(0x10ec) and c:IsLevelAbove(7) +end +function c13662809.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsFaceup() end + if chk==0 then return Duel.IsExistingMatchingCard(c13662809.cfilter,tp,LOCATION_MZONE,0,1,nil) + and Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(c13662809.cfilter,tp,LOCATION_MZONE,0,nil) + local ct=g:GetClassCount(Card.GetCode) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local sg=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) + if Duel.IsExistingMatchingCard(c13662809.lmfilter,tp,LOCATION_MZONE,0,1,nil) and e:IsHasType(EFFECT_TYPE_ACTIVATE) then + Duel.SetChainLimit(c13662809.chainlm) + end +end +function c13662809.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + Duel.Destroy(g,REASON_EFFECT) +end +function c13662809.chainlm(e,rp,tp) + return tp==rp +end +function c13662809.filter2(c) + return c:IsSetCard(0x10ec) and c:IsFaceup() and c:IsType(TYPE_PENDULUM) +end +function c13662809.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_EFFECT) and rp==1-tp and c:GetPreviousControler()==tp + and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEDOWN) + and Duel.IsExistingMatchingCard(c13662809.filter2,tp,LOCATION_EXTRA,0,1,nil) +end +function c13662809.thfilter(c) + return (c:IsSetCard(0x10ec) or (c:IsSetCard(0x20ec) and c:IsType(TYPE_SPELL))) and c:IsAbleToHand() +end +function c13662809.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c13662809.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c13662809.thop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c13662809.thfilter,tp,LOCATION_DECK,0,nil) + if g:GetCount()<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local sg1=g:Select(tp,1,1,nil) + g:Remove(Card.IsCode,nil,sg1:GetFirst():GetCode()) + if g:GetCount()>0 and Duel.SelectYesNo(tp,210) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local sg2=g:Select(tp,1,1,nil) + sg1:Merge(sg2) + end + Duel.SendtoHand(sg1,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,sg1) +end diff --git a/script/c13683298.lua b/script/c13683298.lua index 36009b7f..7526c571 100644 --- a/script/c13683298.lua +++ b/script/c13683298.lua @@ -26,7 +26,7 @@ function c13683298.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.RegisterEffect(e1,tp) end function c13683298.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c13683298.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c13683298.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c13685271.lua b/script/c13685271.lua index f2bc442b..a4293d0c 100644 --- a/script/c13685271.lua +++ b/script/c13685271.lua @@ -35,7 +35,7 @@ function c13685271.condition(e,tp,eg,ep,ev,re,r,rp) return ct==2 or ct==3 end function c13685271.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c13685271.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c13685271.filter,tp,0,LOCATION_ONFIELD,1,nil) end diff --git a/script/c13700000.lua b/script/c13700000.lua deleted file mode 100644 index 812e8d45..00000000 --- a/script/c13700000.lua +++ /dev/null @@ -1,160 +0,0 @@ ---Qliphorth Alias -function c13700000.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --splimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) - e2:SetRange(LOCATION_PZONE) - e2:SetTargetRange(1,0) - e2:SetTarget(c13700000.splimit) - c:RegisterEffect(e2) - --atk up - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_PZONE) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xaa)) - e3:SetValue(300) - c:RegisterEffect(e3) - --summon with no tribute - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(13700000,0)) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e4:SetCode(EFFECT_SUMMON_PROC) - e4:SetCondition(c13700000.ntcon) - c:RegisterEffect(e4) - --change level - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_SUMMON_COST) - e5:SetOperation(c13700000.lvop) - c:RegisterEffect(e5) - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetCode(EFFECT_SPSUMMON_COST) - e6:SetOperation(c13700000.lvop2) - c:RegisterEffect(e6) - --immune - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_SINGLE) - e7:SetCode(EFFECT_IMMUNE_EFFECT) - e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e7:SetRange(LOCATION_MZONE) - e7:SetCondition(c13700000.immcon) - e7:SetValue(c13700000.efilter) - c:RegisterEffect(e7) - --summon success - local e8=Effect.CreateEffect(c) - e8:SetDescription(aux.Stringid(13700000,1)) - e8:SetCategory(CATEGORY_TOHAND) - e8:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e8:SetCode(EVENT_SUMMON_SUCCESS) - e8:SetCondition(c13700000.thcon) - e8:SetTarget(c13700000.thtg) - e8:SetOperation(c13700000.thop) - c:RegisterEffect(e8) - --tribute check - local e9=Effect.CreateEffect(c) - e9:SetType(EFFECT_TYPE_SINGLE) - e9:SetCode(EFFECT_MATERIAL_CHECK) - e9:SetValue(c13700000.valcheck) - e9:SetLabelObject(e8) - c:RegisterEffect(e9) -end -function c13700000.splimit(e,c) - return not c:IsSetCard(0xaa) -end -function c13700000.ntcon(e,c) - if c==nil then return true end - return c:GetLevel()>4 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c13700000.lvcon(e) - return e:GetHandler():GetMaterialCount()==0 -end -function c13700000.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c13700000.lvcon) - e1:SetValue(4) - e1:SetReset(RESET_EVENT+0xff0000) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_BASE_ATTACK) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c13700000.lvcon) - e2:SetValue(1800) - e2:SetReset(RESET_EVENT+0xff0000) - c:RegisterEffect(e2) -end -function c13700000.lvop2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(4) - e1:SetReset(RESET_EVENT+0xff0000) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_BASE_ATTACK) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(1800) - e2:SetReset(RESET_EVENT+0xff0000) - c:RegisterEffect(e2) -end -function c13700000.immcon(e) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_NORMAL)==SUMMON_TYPE_NORMAL -end -function c13700000.efilter(e,te) - if not te:IsActiveType(TYPE_MONSTER) or not te:IsHasType(0x7e0) then return false end - local tc=te:GetHandler() - local lv=e:GetHandler():GetLevel() - if te:IsActiveType(TYPE_XYZ) then - return tc:GetOriginalRank()0 then - Duel.SendtoHand(tg,nil,REASON_EFFECT) - end -end - -function c13700001.tgcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c13700001.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) -end -function c13700001.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c13700002.lua b/script/c13700002.lua deleted file mode 100644 index e36a69e9..00000000 --- a/script/c13700002.lua +++ /dev/null @@ -1,88 +0,0 @@ ---Hermit Youkai Kamaitachi -function c13700002.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c13700002.sptg) - e1:SetOperation(c13700002.spop) - c:RegisterEffect(e1) - --to hand - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_NO_TURN_RESET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c13700002.thcon) - e1:SetTarget(c13700002.thtg) - e1:SetOperation(c13700002.thop) - c:RegisterEffect(e1) - --to hand end phase - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(10000020,0)) - e5:SetCategory(CATEGORY_TOGRAVE) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e5:SetRange(LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_REPEAT) - e5:SetCountLimit(1) - e5:SetCode(EVENT_PHASE+PHASE_END) - e5:SetCondition(c13700002.tgcon) - e5:SetTarget(c13700002.tgtg) - e5:SetOperation(c13700002.tgop) - c:RegisterEffect(e5) -end - -function c13700002.spfilter(c,e,tp) - return c:IsSetCard(0x1374) and c:GetCode()~=13700002 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c13700002.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c13700002.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c13700002.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c13700002.spfilter,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 - -function c13700002.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x1374) -end -function c13700002.thcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c13700002.cfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) -end -function c13700002.filter(c) - return c:IsFaceup() and c:IsAbleToHand() -end -function c13700002.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c13700002.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13700002.filter,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c13700002.filter,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c13700002.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end - -function c13700002.tgcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_NORMAL)==SUMMON_TYPE_NORMAL -end -function c13700002.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) -end -function c13700002.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c13700003.lua b/script/c13700003.lua deleted file mode 100644 index d5a9e195..00000000 --- a/script/c13700003.lua +++ /dev/null @@ -1,87 +0,0 @@ --- The Necloth of Trishula -function c13700003.initial_effect(c) - c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c13700003.splimit) - c:RegisterEffect(e1) - --remove - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(52687916,0)) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetTarget(c13700003.remtg) - e1:SetOperation(c13700003.remop) - c:RegisterEffect(e1) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetRange(LOCATION_HAND) - e1:SetCost(c13700003.cost) - e1:SetCondition(c13700003.condition) - e1:SetTarget(c13700003.target) - e1:SetOperation(c13700003.activate) - c:RegisterEffect(e1) -end -function c13700003.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL -end -function c13700003.remtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,0x1e,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,0x1e) -end -function c13700003.remop(e,tp,eg,ep,ev,re,r,rp) - local g1=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,nil) - local g2=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,nil) - local g3=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_HAND,nil) - local sg=Group.CreateGroup() - if g1:GetCount()>0 and ((g2:GetCount()==0 and g3:GetCount()==0) or Duel.SelectYesNo(tp,aux.Stringid(52687916,1))) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local sg1=g1:Select(tp,1,1,nil) - Duel.HintSelection(sg1) - sg:Merge(sg1) - end - if g2:GetCount()>0 and ((sg:GetCount()==0 and g3:GetCount()==0) or Duel.SelectYesNo(tp,aux.Stringid(52687916,2))) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local sg2=g2:Select(tp,1,1,nil) - Duel.HintSelection(sg2) - sg:Merge(sg2) - end - if g3:GetCount()>0 and (sg:GetCount()==0 or Duel.SelectYesNo(tp,aux.Stringid(52687916,3))) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local sg3=g3:RandomSelect(tp,1) - sg:Merge(sg3) - end - Duel.Remove(sg,POS_FACEUP,REASON_EFFECT) -end - -function c13700003.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDiscardable() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) -end -function c13700003.cfilter(c) - return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsSetCard(0x1373) -end -function c13700003.condition(e,tp,eg,ep,ev,re,r,rp) - if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return end - if not re:IsActiveType(TYPE_MONSTER) and not re:IsHasType(EFFECT_TYPE_ACTIVATE) then return false end - local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) - return tg and tg:IsExists(c13700003.cfilter,1,nil) and Duel.IsChainNegatable(ev) -end -function c13700003.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c13700003.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) -end diff --git a/script/c13700004.lua b/script/c13700004.lua deleted file mode 100644 index 6571c92c..00000000 --- a/script/c13700004.lua +++ /dev/null @@ -1,39 +0,0 @@ ---Secret Technique of the Hermit Youkai -function c13700004.initial_effect(c) - --Activate(effect) - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_ACTIVATE) - e4:SetCode(EVENT_CHAINING) - e4:SetCondition(c13700004.condition) - e4:SetTarget(c13700004.target) - e4:SetOperation(c13700004.activate) - c:RegisterEffect(e4) -end -function c13700004.condition(e,tp,eg,ep,ev,re,r,rp) - if c==nil then return true end - local tp=c:GetControler() - return re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE) - and not Duel.IsExistingMatchingCard(c13700004.filter,tp,LOCATION_MZONE,0,1,nil) -end -function c13700004.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c13700004.filter1,tp,LOCATION_ONFIELD,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c13700004.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end -function c13700004.filter1(c) - return c:IsFaceup() and c:IsSetCard(0x1374) -end - -function c13700004.filter(c) - if not c then return false end - return c:IsFaceup() and not c:IsSetCard(0x1374) -end diff --git a/script/c13700005.lua b/script/c13700005.lua deleted file mode 100644 index 9f87c2f5..00000000 --- a/script/c13700005.lua +++ /dev/null @@ -1,49 +0,0 @@ ---Necloth Exomirror -function c13700005.initial_effect(c) - aux.Unicore(c,aux.FilterBoolFunction(Card.IsCode,13700022))--Unicore(4) - aux.Brionac(c,aux.FilterBoolFunction(Card.IsCode,13700014))--Brionac(6) - aux.Gungnir(c,aux.FilterBoolFunction(Card.IsCode,13700028))--Gungnir(7) - aux.Valkyrus(c,aux.FilterBoolFunction(Card.IsCode,13700044))--Valkyrus(8) - aux.Trishula(c,aux.FilterBoolFunction(Card.IsCode,13700003))--Trishula(9) - --salvage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(13700005,2)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c13700005.condition) - e1:SetCost(c13700005.cost) - e1:SetTarget(c13700005.target2) - e1:SetOperation(c13700005.operation2) - c:RegisterEffect(e1) -end ---~ Savage -function c13700005.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 -end -function c13700005.filter2(c) - return c:IsSetCard(0x1373) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() -end -function c13700005.cost(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() - and Duel.IsExistingMatchingCard(c13700005.filter2,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) - local g=Duel.SelectMatchingCard(tp,c13700005.filter2,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) - g:AddCard(e:GetHandler()) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c13700005.sfilter(c) - return c:IsSetCard(0x1373) and c:IsType(TYPE_SPELL) and c:IsAbleToHand() -end -function c13700005.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c13700005.sfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c13700005.operation2(e,tp,eg,ep,ev,re,r,rp,chk) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c13700005.sfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c13700006.lua b/script/c13700006.lua deleted file mode 100644 index 8eddf193..00000000 --- a/script/c13700006.lua +++ /dev/null @@ -1,70 +0,0 @@ ---The Necloth of Brionac -function c13700006.initial_effect(c) - c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c13700006.splimit) - c:RegisterEffect(e1) - --search - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(12171659,0)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetCountLimit(1,13700006) - e1:SetCost(c13700006.cost) - e1:SetTarget(c13700006.target) - e1:SetOperation(c13700006.operation) - c:RegisterEffect(e1) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,13700006) - e1:SetTarget(c13700006.target2) - e1:SetOperation(c13700006.activate2) - c:RegisterEffect(e1) -end -function c13700006.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL -end -function c13700006.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsAbleToGraveAsCost() and c:IsDiscardable() end - Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD) -end -function c13700006.sfilter(c) - return c:IsSetCard(0x1373) and c:IsType(TYPE_MONSTER) and c:GetCode()~=13700006 and c:IsAbleToHand() -end -function c13700006.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c13700006.sfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c13700006.operation(e,tp,eg,ep,ev,re,r,rp,chk) - local tg=Duel.SelectMatchingCard(tp,c13700006.sfilter,tp,LOCATION_DECK,0,1,1,nil) - if tg then - Duel.SendtoHand(tg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tg) - end -end - -function c13700006.filter(c) - return c:IsFaceup() and c:IsPreviousLocation(LOCATION_EXTRA) - and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c13700006.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c13700006.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13700006.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c13700006.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,2,nil) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) -end -function c13700006.activate2(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tg=g:Filter(Card.IsRelateToEffect,nil,e) - if tg:GetCount()>0 then - Duel.SendtoHand(tg,nil,REASON_EFFECT) - end -end diff --git a/script/c13700007.lua b/script/c13700007.lua deleted file mode 100644 index b41cce8f..00000000 --- a/script/c13700007.lua +++ /dev/null @@ -1,59 +0,0 @@ ---Netcloth Sorcerer -function c13700007.initial_effect(c) - --to hand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(13700007,0)) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_RELEASE) - e2:SetCountLimit(1,13700007) - e2:SetCondition(c13700007.retcon) - e2:SetTarget(c13700007.target) - e2:SetOperation(c13700007.operation) - c:RegisterEffect(e2) - --tograve - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(13700007,1)) - e2:SetCategory(CATEGORY_TOGRAVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCountLimit(1,13700007) - e2:SetCode(EVENT_REMOVE) - e2:SetTarget(c13700007.tgtg) - e2:SetOperation(c13700007.tgop) - c:RegisterEffect(e2) -end -function c13700007.retcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and - e:GetHandler():IsReason(REASON_EFFECT) -end -function c13700007.filter(c) - return c:IsSetCard(0x1373) and c:IsType(TYPE_RITUAL) and - c:IsRace(RACE_SPELLCASTER) and c:IsAbleToHand() -end -function c13700007.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c13700007.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c13700007.operation(e,tp,eg,ep,ev,re,r,rp,chk) - local tg=Duel.SelectMatchingCard(tp,c13700007.filter,tp,LOCATION_DECK,0,1,1,nil) - if tg then - Duel.SendtoHand(tg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tg) - end -end - -function c13700007.tgfilter(c) - return c:IsSetCard(0x1373) and c:IsType(TYPE_MONSTER) and c:GetCode()~=13700007 - and c:IsAbleToGrave() -end -function c13700007.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c13700007.tgfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c13700007.tgop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c13700007.tgfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - end -end diff --git a/script/c13700008.lua b/script/c13700008.lua deleted file mode 100644 index 6503cb12..00000000 --- a/script/c13700008.lua +++ /dev/null @@ -1,77 +0,0 @@ ---Hermit Youkai Yamamisaki -function c13700008.initial_effect(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_BATTLE_START) - e1:SetTarget(c13700008.destg) - e1:SetOperation(c13700008.desop) - c:RegisterEffect(e1) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c13700008.condition) - e1:SetTarget(c13700008.target) - e1:SetOperation(c13700008.operation) - c:RegisterEffect(e1) - --to hand - local e5=Effect.CreateEffect(c) - e5:SetCategory(CATEGORY_TOGRAVE) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e5:SetRange(LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_REPEAT) - e5:SetCountLimit(1) - e5:SetCode(EVENT_PHASE+PHASE_END) - e5:SetCondition(c13700008.tgcon) - e5:SetTarget(c13700008.tgtg) - e5:SetOperation(c13700008.tgop) - c:RegisterEffect(e5) -end -function c13700008.destg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tc=Duel.GetAttacker() - if tc==c then tc=Duel.GetAttackTarget() end - if chk==0 then return tc and tc:IsFaceup() and tc:GetAttribute()~=ATTRIBUTE_WIND end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) -end -function c13700008.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetAttacker() - if tc==c then tc=Duel.GetAttackTarget() end - if tc:IsRelateToBattle() then Duel.Destroy(tc,REASON_EFFECT) end -end -function c13700008.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM -end -function c13700008.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsAbleToHand() end - if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c13700008.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end - - -function c13700008.tgcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c13700008.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) -end -function c13700008.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c13700009.lua b/script/c13700009.lua deleted file mode 100644 index 861e50d1..00000000 --- a/script/c13700009.lua +++ /dev/null @@ -1,99 +0,0 @@ ---Saber Reflect -function c13700009.initial_effect(c) - c:EnableCounterPermit(0x91) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --add counter - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c13700009.ctop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - --atkup - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_ATKCHANGE) - e4:SetDescription(aux.Stringid(13700009,0)) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_SZONE) - e4:SetCountLimit(1,13700009) - e4:SetCost(c13700009.cost1) - e4:SetTarget(c13700009.tg1) - e4:SetOperation(c13700009.op1) - c:RegisterEffect(e4) - --search - local e5=Effect.CreateEffect(c) - e5:SetCategory(CATEGORY_TOHAND) - e5:SetDescription(aux.Stringid(13700009,1)) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetRange(LOCATION_SZONE) - e5:SetCountLimit(1,13700009) - e5:SetCost(c13700009.cost2) - e5:SetTarget(c13700009.tg2) - e5:SetOperation(c13700009.op2) - c:RegisterEffect(e5) -end - -function c13700009.ctfilter(c) - return c:IsFaceup() and c:IsSetCard(0x1374) -end -function c13700009.ctop(e,tp,eg,ep,ev,re,r,rp) - if eg:IsExists(c13700009.ctfilter,1,nil) then - e:GetHandler():AddCounter(0x91,2) - end -end -function c13700009.cost1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x91,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - e:GetHandler():RemoveCounter(tp,0x91,2,REASON_COST) -end -function c13700009.filter1(c) - return c:IsFaceup() and (c:IsSetCard(0x1374)) and c:IsType(TYPE_EFFECT) -end -function c13700009.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c13700009.filter1(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13700009.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end -end -function c13700009.op1(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(c13700009.filter1,tp,LOCATION_MZONE,0,nil) - if g:GetCount()==0 then return end - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(600) - tc:RegisterEffect(e1) - tc=g:GetNext() - end -end -function c13700009.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x91,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - e:GetHandler():RemoveCounter(tp,0x91,3,REASON_COST) -end -function c13700009.filter2(c) - return c:IsSetCard(0x1374) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c13700009.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c13700009.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c13700009.op2(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c13700009.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c13700010.lua b/script/c13700010.lua deleted file mode 100644 index 76e7e668..00000000 --- a/script/c13700010.lua +++ /dev/null @@ -1,57 +0,0 @@ ---Noble Spirit Beast Petolfin -function c13700010.initial_effect(c) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCost(c13700010.descost) - e2:SetTarget(c13700010.destg) - e2:SetOperation(c13700010.desop) - c:RegisterEffect(e2) - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetRange(LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND+LOCATION_REMOVED) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - e1:SetCondition(c13700010.splimit) - c:RegisterEffect(e1) - --spsummon cost - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetOperation(c13700010.sumsuc) - c:RegisterEffect(e1) -end -function c13700010.sumsuc(e,tp,eg,ep,ev,re,r,rp) - Duel.RegisterFlagEffect(tp,13700010,RESET_PHASE+PHASE_END,0,1) -end -function c13700010.splimit(e,c,tp,sumtp,sumpos) - return Duel.GetFlagEffect(tp,13700010)~=0 -end - -function c13700010.cfilter(c) - return (c:IsSetCard(0x1376) or c:IsSetCard(0x1377) or c:IsSetCard(0x1378)) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() -end -function c13700010.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c13700010.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c13700010.cfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c13700010.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c13700010.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end diff --git a/script/c13700011.lua b/script/c13700011.lua deleted file mode 100644 index b9f25ee1..00000000 --- a/script/c13700011.lua +++ /dev/null @@ -1,48 +0,0 @@ ---Spirit Beast Tamer Lera -function c13700011.initial_effect(c) - --~ Special Summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c13700011.sptg) - e1:SetOperation(c13700011.spop) - c:RegisterEffect(e1) - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetRange(LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND+LOCATION_REMOVED) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - e1:SetCondition(c13700011.splimit) - c:RegisterEffect(e1) - --spsummon cost - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetOperation(c13700011.sumsuc) - c:RegisterEffect(e1) -end -function c13700011.sumsuc(e,tp,eg,ep,ev,re,r,rp) - Duel.RegisterFlagEffect(tp,13700011,RESET_PHASE+PHASE_END,0,1) -end -function c13700011.splimit(e,c,tp,sumtp,sumpos) - return Duel.GetFlagEffect(tp,13700011)~=0 -end - -function c13700011.spfilter(c,e,tp) - return (c:IsSetCard(0x1376) or c:IsSetCard(0x1377)) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c13700011.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c13700011.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c13700011.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c13700011.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c13700012.lua b/script/c13700012.lua deleted file mode 100644 index 81faeeb4..00000000 --- a/script/c13700012.lua +++ /dev/null @@ -1,134 +0,0 @@ ---Sacred Spirit Beast Mount Kannahawk -function c13700012.initial_effect(c) - c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c13700012.splimit) - c:RegisterEffect(e1) - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c13700012.fusioncon) - e1:SetOperation(c13700012.fusionop) - e1:SetValue(SUMMON_TYPE_FUSION) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetDescription(aux.Stringid(13700012,0)) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c13700012.target) - e2:SetOperation(c13700012.activate) - c:RegisterEffect(e2) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(13700012,1)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c13700012.cost) - e1:SetTarget(c13700012.target2) - e1:SetOperation(c13700012.operation2) - c:RegisterEffect(e1) -end -function c13700012.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c13700012.mfilter(c) - return c:IsFaceup() and (c:IsSetCard(0x1376) or c:IsSetCard(0x1377)) -end -function c13700012.fusionfilter1(c) - return c:IsSetCard(0x1376) -end -function c13700012.fusionfilter2(c) - return c:IsSetCard(0x1377) -end -function c13700012.fusioncon(e,c,og) - if c==nil then return true end - local tp=c:GetControler() - local mg=Duel.GetMatchingGroup(c13700012.mfilter,tp,LOCATION_MZONE,0,nil) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and mg:IsExists(c13700012.fusionfilter1,1,nil,mg) - and mg:IsExists(c13700012.fusionfilter2,1,nil,mg) -end -function c13700012.fusionop(e,tp,eg,ep,ev,re,r,rp,c,og) - local mg=Duel.GetMatchingGroup(c13700012.mfilter,tp,LOCATION_MZONE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=mg:FilterSelect(tp,c13700012.fusionfilter1,1,1,nil,mg) - local tc1=g1:GetFirst() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=mg:FilterSelect(tp,c13700012.fusionfilter2,1,1,nil,mg) - local tc2=g2:GetFirst() - g1:Merge(g2) - Duel.Remove(g1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) -end - -function c13700012.filter(c) - return c:IsFaceup() and c:IsAbleToGrave() - and (c:IsSetCard(0x1376) or c:IsSetCard(0x1377) or c:IsSetCard(0x1378)) -end -function c13700012.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c13700012.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13700012.filter,tp,LOCATION_REMOVED,0,2,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectTarget(tp,c13700012.filter,tp,LOCATION_REMOVED,0,2,2,nil) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c13700012.sfilter(c) - return (c:IsSetCard(0x1376) or c:IsSetCard(0x1377) or c:IsSetCard(0x1378)) and c:IsAbleToHand() -end -function c13700012.activate(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if tg:GetCount()~=2 then return end - Duel.SendtoGrave(tg,REASON_EFFECT+REASON_RETURN) - Duel.BreakEffect() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c13700012.sfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end - -function c13700012.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsAbleToExtraAsCost() end - Duel.SendtoDeck(c,nil,0,REASON_COST) -end -function c13700012.filter1(c,e,tp) - return c:IsSetCard(0x1376)and - (c:IsCode(13700018) and Duel.GetFlagEffect(tp,13700018)==0) or - (c:IsCode(13700011) and Duel.GetFlagEffect(tp,13700011)==0) -end -function c13700012.filter2(c,e,tp) - return c:IsSetCard(0x1377) and - (c:IsCode(13700010) and Duel.GetFlagEffect(tp,13700010)==0) or - (c:IsCode(13700031) and Duel.GetFlagEffect(tp,13700031)==0) or - (c:IsCode(13700033) and Duel.GetFlagEffect(tp,13700033)==0) -end -function c13700012.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c13700012.filter1,tp,LOCATION_REMOVED,0,1,nil,e,tp) - and Duel.IsExistingMatchingCard(c13700012.filter2,tp,LOCATION_REMOVED,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_REMOVED) -end -function c13700012.operation2(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - local g=Duel.GetMatchingGroup(c13700012.filter1,tp,LOCATION_REMOVED,0,nil,e,tp) - local g2=Duel.GetMatchingGroup(c13700012.filter2,tp,LOCATION_REMOVED,0,nil,e,tp) - if g:GetCount()>=1 and g2:GetCount()>=1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc1=g:Select(tp,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc2=g2:Select(tp,1,1,nil) - Duel.SpecialSummon(tc1,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - Duel.SpecialSummon(tc2,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end - diff --git a/script/c13700013.lua b/script/c13700013.lua deleted file mode 100644 index 0f96010d..00000000 --- a/script/c13700013.lua +++ /dev/null @@ -1,112 +0,0 @@ ---Sacred Spirit Beast Mount Apelio -function c13700013.initial_effect(c) - c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c13700013.splimit) - c:RegisterEffect(e1) - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c13700013.fusioncon) - e1:SetOperation(c13700013.fusionop) - e1:SetValue(SUMMON_TYPE_FUSION) - c:RegisterEffect(e1) - --immune - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_ATTACK_ANNOUNCE) - e4:SetOperation(c13700013.atkop) - c:RegisterEffect(e4) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c13700013.cost) - e1:SetTarget(c13700013.target2) - e1:SetOperation(c13700013.operation2) - c:RegisterEffect(e1) -end -function c13700013.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c13700013.mfilter(c) - return c:IsFaceup() and (c:IsSetCard(0x1376) or c:IsSetCard(0x1377)) -end -function c13700013.fusionfilter1(c) - return c:IsSetCard(0x1376) -end -function c13700013.fusionfilter2(c) - return c:IsSetCard(0x1377) -end -function c13700013.fusioncon(e,c,og) - if c==nil then return true end - local tp=c:GetControler() - local mg=Duel.GetMatchingGroup(c13700013.mfilter,tp,LOCATION_MZONE,0,nil) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and mg:IsExists(c13700013.fusionfilter1,1,nil,mg) - and mg:IsExists(c13700013.fusionfilter2,1,nil,mg) -end -function c13700013.fusionop(e,tp,eg,ep,ev,re,r,rp,c,og) - local mg=Duel.GetMatchingGroup(c13700013.mfilter,tp,LOCATION_MZONE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=mg:FilterSelect(tp,c13700013.fusionfilter1,1,1,nil,mg) - local tc1=g1:GetFirst() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=mg:FilterSelect(tp,c13700013.fusionfilter2,1,1,nil,mg) - local tc2=g2:GetFirst() - g1:Merge(g2) - Duel.Remove(g1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) -end -function c13700013.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsAbleToExtraAsCost() end - Duel.SendtoDeck(c,nil,0,REASON_COST) -end -function c13700013.filter1(c) - return c:IsSetCard(0x1376) and - (c:IsCode(13700018) and Duel.GetFlagEffect(tp,13700018)==0) or - (c:IsCode(13700011) and Duel.GetFlagEffect(tp,13700011)==0) -end -function c13700013.filter2(c) - return c:IsSetCard(0x1377) and - (c:IsCode(13700010) and Duel.GetFlagEffect(tp,13700010)==0) or - (c:IsCode(13700031) and Duel.GetFlagEffect(tp,13700031)==0) or - (c:IsCode(13700033) and Duel.GetFlagEffect(tp,13700033)==0) -end -function c13700013.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c13700013.filter1,tp,LOCATION_REMOVED,0,1,nil,e,tp) - and Duel.IsExistingMatchingCard(c13700013.filter2,tp,LOCATION_REMOVED,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_REMOVED) -end -function c13700013.operation2(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - local g=Duel.GetMatchingGroup(c13700013.filter1,tp,LOCATION_REMOVED,0,nil,e,tp) - local g2=Duel.GetMatchingGroup(c13700013.filter2,tp,LOCATION_REMOVED,0,nil,e,tp) - if g:GetCount()>=1 and g2:GetCount()>=1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc1=g:Select(tp,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc2=g2:Select(tp,1,1,nil) - Duel.SpecialSummon(tc1,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - Duel.SpecialSummon(tc2,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end - -function c13700013.atkop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_IMMUNE_EFFECT) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE) - e:GetHandler():RegisterEffect(e1) -end diff --git a/script/c13700014.lua b/script/c13700014.lua deleted file mode 100644 index c7fa52a0..00000000 --- a/script/c13700014.lua +++ /dev/null @@ -1,70 +0,0 @@ ---The Necloth of Brionac -function c13700014.initial_effect(c) - c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c13700014.splimit) - c:RegisterEffect(e1) - --search - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(12171659,0)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetCountLimit(1,13700014) - e1:SetCost(c13700014.cost) - e1:SetTarget(c13700014.target) - e1:SetOperation(c13700014.operation) - c:RegisterEffect(e1) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,13700014) - e1:SetTarget(c13700014.target2) - e1:SetOperation(c13700014.activate2) - c:RegisterEffect(e1) -end -function c13700014.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL -end -function c13700014.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsAbleToGraveAsCost() and c:IsDiscardable() end - Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD) -end -function c13700014.sfilter(c) - return c:IsSetCard(0x1373) and c:IsType(TYPE_MONSTER) and c:GetCode()~=13700014 and c:IsAbleToHand() -end -function c13700014.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c13700014.sfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c13700014.operation(e,tp,eg,ep,ev,re,r,rp,chk) - local tg=Duel.SelectMatchingCard(tp,c13700014.sfilter,tp,LOCATION_DECK,0,1,1,nil) - if tg then - Duel.SendtoHand(tg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tg) - end -end - -function c13700014.filter(c) - return c:IsFaceup() and c:IsPreviousLocation(LOCATION_EXTRA) - and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c13700014.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c13700014.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13700014.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c13700014.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,2,nil) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) -end -function c13700014.activate2(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tg=g:Filter(Card.IsRelateToEffect,nil,e) - if tg:GetCount()>0 then - Duel.SendtoHand(tg,nil,REASON_EFFECT) - end -end diff --git a/script/c13700015.lua b/script/c13700015.lua deleted file mode 100644 index e887bd5b..00000000 --- a/script/c13700015.lua +++ /dev/null @@ -1,74 +0,0 @@ ---Number 23: Lancelot, Ghost Knight of the Underworld -function c13700015.initial_effect(c) ---xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,8),2) - c:EnableReviveLimit() - --direct attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DIRECT_ATTACK) - e1:SetCondition(c13700015.effcon) - c:RegisterEffect(e1) - --act limit - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_REMOVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_BATTLE_DAMAGE) - e2:SetCountLimit(1) - e2:SetCondition(c13700015.condition) - e2:SetTarget(c13700015.target) - e2:SetOperation(c13700015.operation) - c:RegisterEffect(e2) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_CHAINING) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c13700015.negcon) - e2:SetCost(c13700015.negcost) - e2:SetTarget(c13700015.negtg) - e2:SetOperation(c13700015.negop) - c:RegisterEffect(e2) -end - -function c13700015.effcon(e) - return e:GetHandler():GetOverlayCount()>0 -end - -function c13700015.condition(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c13700015.filter(c) - return c:IsFaceup() -end -function c13700015.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and c13700015.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13700015.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,c13700015.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c13700015.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - Duel.Destroy(tc,REASON_EFFECT) -end - -function c13700015.negcon(e,tp,eg,ep,ev,re,r,rp) - return (re:IsHasType(EFFECT_TYPE_ACTIVATE) or re:IsActiveType(TYPE_MONSTER)) and Duel.IsChainNegatable(ev) and not re:GetHandler():IsCode(13700015) -end -function c13700015.negcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c13700015.negtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c13700015.negop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) -end diff --git a/script/c13700016.lua b/script/c13700016.lua deleted file mode 100644 index d055a779..00000000 --- a/script/c13700016.lua +++ /dev/null @@ -1,72 +0,0 @@ ---Galaxy-Eyes Full Armor Photon Dragon -function c13700016.initial_effect(c) ---xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,8),3,c13700016.ovfilter,aux.Stringid(38495396,1),3,c13700016.xyzop) - c:EnableReviveLimit() - --Attach - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(13700016,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c13700016.con) - e1:SetTarget(c13700016.destg) - e1:SetOperation(c13700016.desop) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(13700016,1)) - e2:SetCategory(CATEGORY_CONTROL) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCost(c13700016.cost) - e2:SetTarget(c13700016.cttg) - e2:SetOperation(c13700016.ctop) - c:RegisterEffect(e2) -end ---Xyz Summon -function c13700016.ovfilter(c) - return c:IsFaceup() and c:IsSetCard(0x107b) and c:GetCode()~=13700016 and c:IsType(TYPE_XYZ) -end - -function c13700016.con(e,tp,eg,ep,ev,re,r,rp,chk) - return e:GetHandler():IsType(TYPE_XYZ) and e:GetHandler():GetEquipGroup():IsExists(Card.IsAbleToGraveAsCost,1,nil) -end -function c13700016.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) -end -function c13700016.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - --local eqg=c:GetEquipGroup() - local eqg=e:GetHandler():GetEquipGroup():FilterSelect(tp,Card.IsAbleToGraveAsCost,1,2,nil) - if eqg:GetCount()>0 then - Duel.Overlay(c,eqg) - end - end -end - -function c13700016.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c13700016.spfilter(c,e,tp) - return c:IsDestructable() and c:IsFaceup() -end -function c13700016.cttg(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsControler(1-tp) and c13700016.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13700016.spfilter,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,c13700016.spfilter,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,1,0,0) -end -function c13700016.ctop(e,tp,eg,ep,ev,re,r,rp) - local tc1=Duel.GetFirstTarget() - if tc1:IsRelateToEffect(e) then - Duel.Destroy(tc1,REASON_EFFECT) - end -end diff --git a/script/c13700017.lua b/script/c13700017.lua deleted file mode 100644 index 3edf25aa..00000000 --- a/script/c13700017.lua +++ /dev/null @@ -1,103 +0,0 @@ ---Sacred Spirit Beast Mount Petolfin -function c13700017.initial_effect(c) - c:EnableReviveLimit() - --spsummon condition - local e0=Effect.CreateEffect(c) - e0:SetType(EFFECT_TYPE_SINGLE) - e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e0:SetCode(EFFECT_SPSUMMON_CONDITION) - e0:SetValue(c13700017.splimit) - c:RegisterEffect(e0) - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c13700017.fusioncon) - e1:SetOperation(c13700017.fusionop) - e1:SetValue(SUMMON_TYPE_FUSION) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c13700017.cost) - e2:SetTarget(c13700017.target2) - e2:SetOperation(c13700017.operation2) - c:RegisterEffect(e2) - --indes - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e3:SetValue(1) - c:RegisterEffect(e3) -end -function c13700017.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c13700017.mfilter(c) - return c:IsFaceup() and (c:IsSetCard(0x1376) or c:IsSetCard(0x1377)) -end -function c13700017.fusionfilter1(c) - return c:IsSetCard(0x1376) -end -function c13700017.fusionfilter2(c) - return c:IsSetCard(0x1377) -end -function c13700017.fusioncon(e,c,og) - if c==nil then return true end - local tp=c:GetControler() - local mg=Duel.GetMatchingGroup(c13700017.mfilter,tp,LOCATION_MZONE,0,nil) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and mg:IsExists(c13700017.fusionfilter1,1,nil,mg) - and mg:IsExists(c13700017.fusionfilter2,1,nil,mg) -end -function c13700017.fusionop(e,tp,eg,ep,ev,re,r,rp,c,og) - local mg=Duel.GetMatchingGroup(c13700017.mfilter,tp,LOCATION_MZONE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=mg:FilterSelect(tp,c13700017.fusionfilter1,1,1,nil,mg) - local tc1=g1:GetFirst() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=mg:FilterSelect(tp,c13700017.fusionfilter2,1,1,nil,mg) - local tc2=g2:GetFirst() - g1:Merge(g2) - Duel.Remove(g1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) -end -function c13700017.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsAbleToExtraAsCost() end - Duel.SendtoDeck(c,nil,0,REASON_COST) -end -function c13700017.filter1(c,e,tp) - return c:IsSetCard(0x1376)and - (c:IsCode(13700018) and Duel.GetFlagEffect(tp,13700018)==0) or - (c:IsCode(13700011) and Duel.GetFlagEffect(tp,13700011)==0) -end -function c13700017.filter2(c,e,tp) - return c:IsSetCard(0x1377) and - (c:IsCode(13700010) and Duel.GetFlagEffect(tp,13700010)==0) or - (c:IsCode(13700031) and Duel.GetFlagEffect(tp,13700031)==0) or - (c:IsCode(13700033) and Duel.GetFlagEffect(tp,13700033)==0) -end -function c13700017.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c13700017.filter1,tp,LOCATION_REMOVED,0,1,nil,e,tp) - and Duel.IsExistingMatchingCard(c13700017.filter2,tp,LOCATION_REMOVED,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_REMOVED) -end -function c13700017.operation2(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - local g=Duel.GetMatchingGroup(c13700017.filter1,tp,LOCATION_REMOVED,0,nil,e,tp) - local g2=Duel.GetMatchingGroup(c13700017.filter2,tp,LOCATION_REMOVED,0,nil,e,tp) - if g:GetCount()>=1 and g2:GetCount()>=1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc1=g:Select(tp,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc2=g2:Select(tp,1,1,nil) - Duel.SpecialSummon(tc1,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - Duel.SpecialSummon(tc2,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end diff --git a/script/c13700018.lua b/script/c13700018.lua deleted file mode 100644 index 4a5a0e60..00000000 --- a/script/c13700018.lua +++ /dev/null @@ -1,50 +0,0 @@ ---Elder of the Spirit Beast Tamers -function c13700018.initial_effect(c) - --~ condition - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetRange(LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND+LOCATION_REMOVED) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - e1:SetCondition(c13700018.splimit) - c:RegisterEffect(e1) - --~ spsummon cost - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetOperation(c13700018.sumsuc) - c:RegisterEffect(e1) - --summon success - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c13700018.sptg) - e2:SetOperation(c13700018.spop) - c:RegisterEffect(e2) -end -function c13700018.sumsuc(e,tp,eg,ep,ev,re,r,rp) - Duel.RegisterFlagEffect(tp,13700018,RESET_PHASE+PHASE_END,0,1) -end -function c13700018.splimit(e,c,tp,sumtp,sumpos) - return Duel.GetFlagEffect(tp,13700018)~=0 -end - - -function c13700018.filter(c) - return c:IsSummonable(true,nil) and (c:IsSetCard(0x1376) or c:IsSetCard(0x1377)) -end -function c13700018.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c13700018.filter,tp,LOCATION_HAND,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0) -end -function c13700018.spop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON) - local g=Duel.SelectMatchingCard(tp,c13700018.filter,tp,LOCATION_HAND,0,1,1,nil) - local tc=g:GetFirst() - if tc then - Duel.Summon(tp,tc,true,nil) - end -end diff --git a/script/c13700019.lua b/script/c13700019.lua deleted file mode 100644 index 258867a7..00000000 --- a/script/c13700019.lua +++ /dev/null @@ -1,35 +0,0 @@ ---~ Bond With the Spirit Beast -function c13700019.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c13700019.target) - e1:SetOperation(c13700019.activate) - c:RegisterEffect(e1) -end -function c13700019.filter(c) - return c:IsFaceup() and (c:IsSetCard(0x1376) or c:IsSetCard(0x1377) or c:IsSetCard(0x1378)) and c:IsAbleToRemove() -end -function c13700019.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c13700019.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13700019.filter,tp,LOCATION_MZONE,0,2,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,c13700019.filter,tp,LOCATION_MZONE,0,2,2,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c13700019.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc=g:Filter(Card.IsRelateToEffect,nil,e) - if tc then - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - local g=Duel.SelectMatchingCard(tp,c13700019.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - end -end - -function c13700019.filter2(c) - return c:IsSetCard(0x1378) -end diff --git a/script/c13700020.lua b/script/c13700020.lua deleted file mode 100644 index b27a2a97..00000000 --- a/script/c13700020.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Quantum Cat -function c13700020.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c13700020.target) - e1:SetOperation(c13700020.activate) - c:RegisterEffect(e1) -end -function c13700020.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c13700020.cfilter(c) - return c:IsFaceup() and (c:IsSetCard(0x1376) or c:IsSetCard(0x1377) or c:IsSetCard(0x1378)) -end -function c13700020.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then - local ct=Duel.GetMatchingGroupCount(c13700020.cfilter,tp,LOCATION_MZONE,0,nil) - e:SetLabel(ct) - return Duel.IsExistingMatchingCard(c13700020.filter,tp,LOCATION_MZONE,LOCATION_MZONE,ct,c) - end - local ct=e:GetLabel() - local sg=Duel.GetMatchingGroup(c13700020.filter,tp,LOCATION_MZONE,LOCATION_MZONE,c) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,ct,0,0) -end -function c13700020.activate(e,tp,eg,ep,ev,re,r,rp) - local ct=Duel.GetMatchingGroupCount(c13700020.cfilter,tp,LOCATION_MZONE,0,nil) - local g=Duel.GetMatchingGroup(c13700020.filter,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - if g:GetCount()>=ct then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local sg=g:Select(tp,1,ct,nil) - Duel.HintSelection(sg) - Duel.Destroy(sg,REASON_EFFECT) - end -end diff --git a/script/c13700021.lua b/script/c13700021.lua deleted file mode 100644 index de5dcab3..00000000 --- a/script/c13700021.lua +++ /dev/null @@ -1,68 +0,0 @@ ---Unbrekeable Spirit -function c13700021.initial_effect(c) - --Generic Synchron - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e3:SetCode(20932152) - c:RegisterEffect(e3) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c13700021.spcost) - e1:SetTarget(c13700021.sptg) - e1:SetOperation(c13700021.spop) - c:RegisterEffect(e1) -end -function c13700021.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c13700021.filter(c,e,tp) - local lv=c:GetLevel() - return c:IsSetCard(0x43) and c:IsType(TYPE_MONSTER) and not c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and Duel.IsExistingMatchingCard(c13700021.filter2,tp,LOCATION_EXTRA,0,1,nil,lv+e:GetHandler():GetLevel(),c:GetCode(),e,tp) -end -function c13700021.filter2(c,lv,code,e,tp) - return c:GetLevel()==lv -end -function c13700021.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c13700021.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c13700021.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sm=Duel.SelectTarget(tp,c13700021.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c13700021.spop(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetValue(c13700021.synlimit) - e2:SetReset(RESET_PHASE+PHASE_BATTLE) - c:RegisterEffect(e2) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - local mg=Group.CreateGroup() - mg:AddCard(tc) - mg:AddCard(e:GetHandler()) - local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,c,mg) - if g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:Select(tp,1,1,nil) - Duel.SynchroSummon(tp,sg:GetFirst(),nil,mg) - Duel.Remove(mg,POS_FACEUP,REASON_COST) - end - end -end -function c13700021.synlimit(e,c) - if not c then return false end - return not c:IsSetCard(0x100) -end diff --git a/script/c13700022.lua b/script/c13700022.lua deleted file mode 100644 index 62b45edb..00000000 --- a/script/c13700022.lua +++ /dev/null @@ -1,59 +0,0 @@ ---The Necloth Unicore -function c13700022.initial_effect(c) - c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c13700022.splimit) - c:RegisterEffect(e1) - --search - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(24040093,0)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetCountLimit(1,13700022) - e1:SetCost(c13700022.cost) - e1:SetTarget(c13700022.tg) - e1:SetOperation(c13700022.op) - c:RegisterEffect(e1) - --disable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_DISABLE) - e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e1:SetTarget(c13700022.distg) - c:RegisterEffect(e1) -end ---~ Ritual Summoned -function c13700022.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL -end ---~ Recovery -function c13700022.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c13700022.filter(c) - return c:IsSetCard(0x1373) and c:GetCode()~=13700022 and c:IsAbleToHand() -end -function c13700022.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c13700022.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) -end -function c13700022.op(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c13700022.filter,tp,LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end ---~ Negate Extra Summoned -function c13700022.distg(e,c) - return c:IsFaceup() and c:IsPreviousLocation(LOCATION_EXTRA) - and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end diff --git a/script/c13700023.lua b/script/c13700023.lua deleted file mode 100644 index 02498c79..00000000 --- a/script/c13700023.lua +++ /dev/null @@ -1,93 +0,0 @@ --- Rune-Eyes Pendulum Dragon -function c13700023.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCodeFun(c,16178681,c13700023.ffilter,1,true,true) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_MATERIAL_CHECK) - e2:SetValue(c13700023.valcheck) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCondition(c13700023.atkcon) - e3:SetOperation(c13700023.atkop) - e3:SetLabelObject(e2) - c:RegisterEffect(e3) -end -function c13700023.ffilter(c) - return c:IsRace(RACE_SPELLCASTER) -end -function c13700023.atkcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c13700023.valcheck(e,c) - local g=c:GetMaterial() - local atk=-1 - local tc=g:GetFirst() - if tc:IsCode(16178681) or tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then tc=g:GetNext() end - if not tc:IsCode(16178681) then - level=tc:GetLevel() - end - e:SetLabel(level) -end -function c13700023.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local level=e:GetLabelObject():GetLabel() - if e:GetLabelObject():GetLabel()<5 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e2:SetReset(RESET_EVENT+0x1ff0000) - e2:SetCondition(c13700023.dircon) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_CANNOT_ATTACK) - e3:SetCondition(c13700023.dircon2) - c:RegisterEffect(e3) - end - if e:GetLabelObject():GetLabel()>4 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) - e1:SetValue(2) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e2:SetReset(RESET_EVENT+0x1ff0000) - e2:SetCondition(c13700023.dircon) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_CANNOT_ATTACK) - e3:SetCondition(c13700023.dircon2) - c:RegisterEffect(e3) - end - if Duel.SelectYesNo(tp,aux.Stringid(13700023,0)) then - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_IMMUNE_EFFECT) - e5:SetValue(c13700023.efilter) - e5:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+RESET_END) - c:RegisterEffect(e5) - end -end - -function c13700023.dircon(e) - return e:GetHandler():GetAttackAnnouncedCount()>0 -end -function c13700023.dircon2(e) - return e:GetHandler():IsDirectAttacked() -end - -function c13700023.efilter(e,re) - return e:GetHandlerPlayer()~=re:GetHandlerPlayer() -end diff --git a/script/c13700024.lua b/script/c13700024.lua deleted file mode 100644 index 65bf0036..00000000 --- a/script/c13700024.lua +++ /dev/null @@ -1,92 +0,0 @@ ---Hermit Youkai Kamamitachi -function c13700024.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(13700024,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCountLimit(1) - e1:SetTarget(c13700024.sptg) - e1:SetOperation(c13700024.spop) - c:RegisterEffect(e1) - --atk - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(79972330,0)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD) - e1:SetCode(EVENT_BATTLE_DAMAGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,13700024) - e1:SetCondition(c13700024.atcon) - e1:SetTarget(c13700024.attg) - e1:SetOperation(c13700024.atop) - c:RegisterEffect(e1) - - --to hand end phase - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(10000020,0)) - e5:SetCategory(CATEGORY_TOGRAVE) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e5:SetRange(LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_REPEAT) - e5:SetCountLimit(1) - e5:SetCode(EVENT_PHASE+PHASE_END) - e5:SetCondition(c13700024.tgcon) - e5:SetTarget(c13700024.tgtg) - e5:SetOperation(c13700024.tgop) - c:RegisterEffect(e5) -end -function c13700024.filter(c,e,tp) - return c:IsSetCard(0x1374) and not c:IsCode(13700024) and (c:IsSummonable(true,nil) or c:IsMSetable(true,nil)) -end -function c13700024.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c13700024.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c13700024.spop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON) - local g=Duel.SelectMatchingCard(tp,c13700024.filter,tp,LOCATION_HAND,0,1,1,nil) - local tc=g:GetFirst() - if tc then - Duel.Summon(tp,tc,true,nil) - end -end - -function c13700024.atcon(e,tp,eg,ep,ev,re,r,rp) - local rc=eg:GetFirst() - return ep~=tp and rc~=e:GetHandler() and rc:IsControler(tp) and rc:IsSetCard(0x1374) -end - -function c13700024.filter2(c) - return c:IsSetCard(0x1374) and c:GetCode()~=13700024 and c:IsAbleToHand() -end -function c13700024.attg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c13700024.filter2,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c13700024.atop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c13700024.filter2,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end - -function c13700024.tgcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_NORMAL)==SUMMON_TYPE_NORMAL -end -function c13700024.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c13700024.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c13700025.lua b/script/c13700025.lua deleted file mode 100644 index 461fb487..00000000 --- a/script/c13700025.lua +++ /dev/null @@ -1,67 +0,0 @@ ---Hermit Youkai Sarenjinchuu -function c13700025.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --destroy replace - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EFFECT_DESTROY_REPLACE) - e2:SetRange(LOCATION_PZONE) - e2:SetTarget(c13700025.reptg) - e2:SetValue(c13700025.repval) - e2:SetOperation(c13700025.repop) - c:RegisterEffect(e2) - --to defence - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c13700025.potg) - e1:SetOperation(c13700025.poop) - c:RegisterEffect(e1) - --target - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetTarget(c13700025.target) - e2:SetValue(c13700025.tgvalue) - c:RegisterEffect(e2) -end -function c13700025.repfilter(c,tp) - return c:IsFaceup() and c:IsSetCard(0x1374) - and c:IsOnField() and c:IsControler(tp) and c:IsReason(REASON_EFFECT+REASON_BATTLE) and c:IsLocation(LOCATION_MZONE) -end -function c13700025.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c13700025.repfilter,1,nil,tp) end - return Duel.SelectYesNo(tp,aux.Stringid(13700025,0)) -end -function c13700025.repval(e,c) - return c13700025.repfilter(c,e:GetHandlerPlayer()) -end -function c13700025.repop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_REPLACE) -end - -function c13700025.potg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return e:GetHandler():IsAttackPos() end - Duel.SetOperationInfo(0,CATEGORY_POSITION,e:GetHandler(),1,0,0) -end -function c13700025.poop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsAttackPos() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) - end -end -function c13700025.target(e,c) - return c:IsSetCard(0x1374) and c:IsType(TYPE_MONSTER) and c~=e:GetHandler() -end -function c13700025.tgvalue(e,re,rp) - return rp~=e:GetHandlerPlayer() -end diff --git a/script/c13700026.lua b/script/c13700026.lua deleted file mode 100644 index 61f72c72..00000000 --- a/script/c13700026.lua +++ /dev/null @@ -1,86 +0,0 @@ ---Hermit Youkai Urenjinchuu -function c13700026.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --to defence - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(423585,0)) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c13700026.potg) - e1:SetOperation(c13700026.poop) - c:RegisterEffect(e1) - --target - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e1:SetTarget(c13700026.bttg) - e1:SetValue(1) - c:RegisterEffect(e1) - --scale change - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_PZONE) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetCountLimit(1) - e3:SetOperation(c13700026.scop) - e3:SetCondition(c13700026.sccon) - c:RegisterEffect(e3) -end -function c13700026.potg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return e:GetHandler():IsAttackPos() end - Duel.SetOperationInfo(0,CATEGORY_POSITION,e:GetHandler(),1,0,0) -end -function c13700026.poop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsAttackPos() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) - end -end -function c13700026.tglimit(e,c) - return c~=e:GetHandler() -end - -function c13700026.bttg(e,c) - return c:IsSetCard(0x1374) and c~=e:GetHandler() -end -function c13700026.splimit(e,c,tp,sumtp,sumpos) - return not c:IsSetCard(0x1374) -end -function c13700026.scop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local scl=11 - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LSCALE) - e1:SetValue(scl) - e1:SetReset(RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_CHANGE_RSCALE) - c:RegisterEffect(e2) - --splimit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetTarget(c13700026.splimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end - -function c13700026.sccon(e) - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_SZONE,13-seq) - return tc and tc:IsSetCard(0x1374) -end diff --git a/script/c13700027.lua b/script/c13700027.lua deleted file mode 100644 index 56fec477..00000000 --- a/script/c13700027.lua +++ /dev/null @@ -1,43 +0,0 @@ ---Dogking -function c13700027.initial_effect(c) - --to hand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(13700027,0)) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_RELEASE) - e2:SetCondition(c13700027.retcon) - e2:SetTarget(c13700027.target) - e2:SetOperation(c13700027.operation) - c:RegisterEffect(e2) - --ritual level - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_RITUAL_LEVEL) - e2:SetValue(c13700027.rlevel) - c:RegisterEffect(e2) -end -function c13700027.retcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and - e:GetHandler():IsReason(REASON_EFFECT) -end -function c13700027.filter(c) - return c:IsSetCard(0x1373) and c:IsType(TYPE_RITUAL) and - c:IsRace(RACE_WARRIOR) and c:IsAbleToHand() -end -function c13700027.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c13700027.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c13700027.operation(e,tp,eg,ep,ev,re,r,rp,chk) - local tg=Duel.SelectMatchingCard(tp,c13700027.filter,tp,LOCATION_DECK,0,1,1,nil) - Duel.SendtoHand(tg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tg) -end - -function c13700027.rlevel(e,c) - local lv=e:GetHandler():GetLevel() - if c:IsSetCard(0x1373) then - local clv=c:GetLevel() - return lv*65536+clv - else return lv end -end diff --git a/script/c13700028.lua b/script/c13700028.lua deleted file mode 100644 index 15c26385..00000000 --- a/script/c13700028.lua +++ /dev/null @@ -1,102 +0,0 @@ --- The Necloth of Gungnir -function c13700028.initial_effect(c) - c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c13700028.splimit) - c:RegisterEffect(e1) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,13700028) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1e0) - e1:SetCost(c13700028.cost) - e1:SetTarget(c13700028.target) - e1:SetOperation(c13700028.activate) - c:RegisterEffect(e1) - --indes - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DEFCHANGE) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetRange(LOCATION_HAND) - e3:SetCountLimit(1,137000282) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCost(c13700028.dcost) - e3:SetTarget(c13700028.dtarget) - e3:SetOperation(c13700028.doperation) - c:RegisterEffect(e3) -end -function c13700028.mat_filter(c) - return c:GetLevel()~=7 -end -function c13700028.rlevel(e,c) - local lv=e:GetHandler():GetLevel() - if c:IsCode(13700028) then - local clv=c:GetLevel() - return 99 - else return lv end -end -function c13700028.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL -end - -function c13700028.costfilter(c) - return c:IsSetCard(0xb4) and c:IsDiscardable() -end -function c13700028.filter1(c) - return c:IsDestructable() -end -function c13700028.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c13700028.costfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,c13700028.costfilter,1,1,REASON_COST+REASON_DISCARD) -end -function c13700028.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c13700028.filter1(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13700028.filter1,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,c13700028.filter1,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) -end -function c13700028.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end - -function c13700028.dcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDiscardable() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) -end -function c13700028.filter(c) - return c:IsSetCard(0xb4) and c:IsFaceup() -end -function c13700028.dtarget(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c13700028.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13700028.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUPDEFENCE) - Duel.SelectTarget(tp,c13700028.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c13700028.doperation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(1) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - tc:RegisterEffect(e3) - end -end diff --git a/script/c13700029.lua b/script/c13700029.lua deleted file mode 100644 index 95ec08b7..00000000 --- a/script/c13700029.lua +++ /dev/null @@ -1,28 +0,0 @@ ---Performapal Friendonkey -function c13700029.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetTarget(c13700029.sptg) - e1:SetOperation(c13700029.spop) - c:RegisterEffect(e1) -end -function c13700029.filter(c,e,tp) - return c:IsSetCard(0x9f) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c13700029.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c13700029.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) -end -function c13700029.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c13700029.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c13700030.lua b/script/c13700030.lua deleted file mode 100644 index 7d156b40..00000000 --- a/script/c13700030.lua +++ /dev/null @@ -1,112 +0,0 @@ ---Performapal Trump Witch -function c13700030.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --atk up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1) - e2:SetTarget(c13700030.ftarget) - e2:SetOperation(c13700030.factivate) - c:RegisterEffect(e2) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(3841833,1)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1,3841833) - e2:SetCost(c13700030.thcost) - e2:SetTarget(c13700030.thtg) - e2:SetOperation(c13700030.thop) - c:RegisterEffect(e2) -end - -function c13700030.filter1(c,e,tp) - return (c:IsControler(tp) or c:IsFaceup()) and c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) -end -function c13700030.filter2(c,e,tp,m,f,chkf) - return c:IsType(TYPE_FUSION) and (not f or f(c)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) -end -function c13700030.ftarget(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c13700030.filter1,tp,LOCATION_MZONE,0,nil,e,tp) - local res=Duel.IsExistingMatchingCard(c13700030.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - res=Duel.IsExistingMatchingCard(c13700030.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c13700030.factivate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c13700030.filter1,tp,LOCATION_MZONE,0,nil,e,tp) - local sg1=Duel.GetMatchingGroup(c13700030.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - sg2=Duel.GetMatchingGroup(c13700030.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end - -function c13700030.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c13700030.thfilter(c) - return c:GetCode()==24094653 and c:IsAbleToHand() -end -function c13700030.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c13700030.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13700030.thfilter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c13700030.thfilter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c13700030.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c13700031.lua b/script/c13700031.lua deleted file mode 100644 index 889bd2e1..00000000 --- a/script/c13700031.lua +++ /dev/null @@ -1,78 +0,0 @@ ---Noble Spirit Beast Rampenta -function c13700031.initial_effect(c) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c13700031.target) - e2:SetOperation(c13700031.activate) - c:RegisterEffect(e2) - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetRange(LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND+LOCATION_REMOVED) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - e1:SetCondition(c13700031.splimit) - c:RegisterEffect(e1) - --spsummon cost - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetOperation(c13700031.sumsuc) - c:RegisterEffect(e1) -end -function c13700031.sumsuc(e,tp,eg,ep,ev,re,r,rp) - Duel.RegisterFlagEffect(tp,13700031,RESET_PHASE+PHASE_END,0,1) -end -function c13700031.splimit(e,c,tp,sumtp,sumpos) - return Duel.GetFlagEffect(tp,13700031)~=0 -end - -function c13700031.tgfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xb5) and c:IsAbleToRemove() -end -function c13700031.afilter(c) - return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_AQUA) and c:IsSetCard(0xb5) -end -function c13700031.tfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_THUNDER) and c:IsSetCard(0xb5) -end -function c13700031.pfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_PYRO) and c:IsSetCard(0xb5) -end -function c13700031.bfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_BEAST) and c:IsSetCard(0xb5) -end - -function c13700031.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c13700031.tgfilter,tp,LOCATION_EXTRA,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_EXTRA) -end -function c13700031.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c13700031.tgfilter,tp,LOCATION_EXTRA,0,1,1,nil) - local tc=g:GetFirst() - Duel.Remove(g,POS_FACEUP,REASON_EFFECT) - if tc:IsRace(RACE_AQUA) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,c13700031.afilter,tp,LOCATION_DECK,0,1,1,nil) - Duel.SendtoGrave(g1,REASON_EFFECT) - end - if tc:IsRace(RACE_THUNDER) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,c13700031.tfilter,tp,LOCATION_DECK,0,1,1,nil) - Duel.SendtoGrave(g1,REASON_EFFECT) - end - if tc:IsRace(RACE_PYRO) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,c13700031.pfilter,tp,LOCATION_DECK,0,1,1,nil) - Duel.SendtoGrave(g1,REASON_EFFECT) - if tc:IsRace(RACE_BEAST) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,c13700031.bfilter,tp,LOCATION_DECK,0,1,1,nil) - Duel.SendtoGrave(g1,REASON_EFFECT) - end - end -end diff --git a/script/c13700032.lua b/script/c13700032.lua deleted file mode 100644 index 7141b0bf..00000000 --- a/script/c13700032.lua +++ /dev/null @@ -1,55 +0,0 @@ ---Hermit Youkai Kamaitachi -function c13700032.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetTarget(c13700032.sptg) - e1:SetOperation(c13700032.spop) - c:RegisterEffect(e1) - --to hand end phase - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(10000020,0)) - e5:SetCategory(CATEGORY_TOGRAVE) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e5:SetRange(LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_REPEAT) - e5:SetCountLimit(1) - e5:SetCode(EVENT_PHASE+PHASE_END) - e5:SetCondition(c13700032.tgcon) - e5:SetTarget(c13700032.tgtg) - e5:SetOperation(c13700032.tgop) - c:RegisterEffect(e5) -end - -function c13700032.spfilter(c,e,tp) - return c:IsSetCard(0xb3) and c:GetCode()~=13700032 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c13700032.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c13700032.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c13700032.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c13700032.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end - -function c13700032.tgcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_NORMAL)==SUMMON_TYPE_NORMAL -end -function c13700032.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) -end -function c13700032.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c13700033.lua b/script/c13700033.lua deleted file mode 100644 index bb520cda..00000000 --- a/script/c13700033.lua +++ /dev/null @@ -1,67 +0,0 @@ ---Noble Spirit Beast Petolfin -function c13700033.initial_effect(c) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c13700033.target) - e2:SetOperation(c13700033.activate) - c:RegisterEffect(e2) - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SINGLE_RANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetRange(LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND+LOCATION_REMOVED) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - e1:SetCondition(c13700033.splimit) - c:RegisterEffect(e1) - --spsummon cost - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetOperation(c13700033.sumsuc) - c:RegisterEffect(e1) -end -function c13700033.sumsuc(e,tp,eg,ep,ev,re,r,rp) - Duel.RegisterFlagEffect(tp,13700033,RESET_PHASE+PHASE_END,0,1) -end -function c13700033.splimit(e,c,tp,sumtp,sumpos) - return Duel.GetFlagEffect(tp,13700033)~=0 -end - - - -function c13700033.filter(c,rc) - return c:IsAbleToRemove() and c:IsSetCard(0x1377) or c:IsSetCard(0x1376) -end - -function c13700033.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c13700033.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_DECK) -end -function c13700033.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c13700033.filter,tp,LOCATION_DECK,0,1,1,nil) - local tg=g:GetFirst() - if tg==nil then return end - Duel.Remove(tg,POS_FACEUP,REASON_EFFECT) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetRange(LOCATION_REMOVED) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,2) - e1:SetOperation(c13700033.tohand) - e1:SetLabel(0) - tg:RegisterEffect(e1) -end -function c13700033.tohand(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetTurnPlayer()~=tp then return end - local ct=e:GetLabel() - e:GetHandler():SetTurnCounter(ct+1) - if ct==1 then - Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,e:GetHandler()) - else e:SetLabel(1) end -end diff --git a/script/c13700034.lua b/script/c13700034.lua deleted file mode 100644 index 91112172..00000000 --- a/script/c13700034.lua +++ /dev/null @@ -1,80 +0,0 @@ ---Artifact Moralltach -function c13700034.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(13700034,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCountLimit(1) - e1:SetTarget(c13700034.sptg) - e1:SetOperation(c13700034.spop) - c:RegisterEffect(e1) - --to hand end phase - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(10000020,0)) - e5:SetCategory(CATEGORY_TOGRAVE) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e5:SetRange(LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_REPEAT) - e5:SetCountLimit(1) - e5:SetCode(EVENT_PHASE+PHASE_END) - e5:SetCondition(c13700034.tgcon) - e5:SetTarget(c13700034.tgtg) - e5:SetOperation(c13700034.tgop) - c:RegisterEffect(e5) - --direct attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DIRECT_ATTACK) - c:RegisterEffect(e2) - --damage reduce - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e3:SetCondition(c13700034.rdcon) - e3:SetOperation(c13700034.rdop) - c:RegisterEffect(e3) -end ---~ special summon -function c13700034.filter(c,e,tp) - return c:IsSetCard(0x1374) and not c:IsCode(13700034) and (c:IsSummonable(true,nil) or c:IsMSetable(true,nil)) -end -function c13700034.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c13700034.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c13700034.spop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON) - local g=Duel.SelectMatchingCard(tp,c13700034.filter,tp,LOCATION_HAND,0,1,1,nil) - local tc=g:GetFirst() - if tc then - Duel.Summon(tp,tc,true,nil) - end -end ---~ to hand -function c13700034.tgcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_NORMAL)==SUMMON_TYPE_NORMAL -end -function c13700034.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) -end -function c13700034.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end ---~ Direct and halve -function c13700034.rdcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return ep~=tp and c==Duel.GetAttacker() and Duel.GetAttackTarget()==nil - and c:GetEffectCount(EFFECT_DIRECT_ATTACK)<2 and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 -end -function c13700034.rdop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,ev/2) -end diff --git a/script/c13700035.lua b/script/c13700035.lua deleted file mode 100644 index 37b1e9a7..00000000 --- a/script/c13700035.lua +++ /dev/null @@ -1,127 +0,0 @@ ---Infernoid Beelzebul -function c13700035.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --special summon G/H - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND) - e2:SetCondition(c13700035.spcon) - e2:SetOperation(c13700035.spop) - c:RegisterEffect(e2) - --special summon G/H/F - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND) - e2:SetCondition(c13700035.spcon2) - e2:SetOperation(c13700035.spop2) - c:RegisterEffect(e2) - --~ ToHand - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c13700035.target) - e1:SetOperation(c13700035.operation) - c:RegisterEffect(e1) - --Banish - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c13700035.cost2) - e1:SetCondition(c13700035.condition2) - e1:SetTarget(c13700035.target2) - e1:SetOperation(c13700035.operation2) - c:RegisterEffect(e1) -end -function c13700035.filter(c)--Overflowing Purgatory - return c:IsFaceup() and c:IsCode(13700039) and not c:IsDisabled() -end -function c13700035.emfilter(c)--Grupo EFFECT-MZONE - return c:IsFaceup() and c:IsType(TYPE_EFFECT) -end -function c13700035.spfilter(c) - return c:IsSetCard(0x1379) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() -end -function c13700035.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c13700035.emfilter,tp,LOCATION_MZONE,0,nil) - local lvs=g:GetSum(Card.GetLevel) - local rks=g:GetSum(Card.GetRank) - local tlr=lvs+rks - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tlr<9 - and Duel.IsExistingMatchingCard(c13700035.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,c) - and not Duel.IsExistingMatchingCard(c13700035.filter,tp,LOCATION_SZONE,0,1,nil) -end -function c13700035.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c13700035.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,c) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end - -function c13700035.spcon2(e,c) - if c==nil then return true end - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c13700035.emfilter,tp,LOCATION_MZONE,0,nil) - local lvs=g:GetSum(Card.GetLevel) - local rks=g:GetSum(Card.GetRank) - local tlr=lvs+rks - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tlr<9 - and Duel.IsExistingMatchingCard(c13700035.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_HAND,0,1,c) - and Duel.IsExistingMatchingCard(c13700035.filter,tp,LOCATION_SZONE,0,1,nil) -end -function c13700035.spop2(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c13700035.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_HAND,0,1,1,c) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end ---~ ToHand -function c13700035.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c13700035.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end ---~ Banish -function c13700035.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c13700035.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,nil,1,nil) end - local cg=Duel.SelectReleaseGroup(tp,nil,1,1,nil) - Duel.Release(cg,REASON_COST) -end -function c13700035.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end - if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c13700035.operation2(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - end -end diff --git a/script/c13700036.lua b/script/c13700036.lua deleted file mode 100644 index 0231b7ff..00000000 --- a/script/c13700036.lua +++ /dev/null @@ -1,136 +0,0 @@ ---Infernoid Lucifugus -function c13700036.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND) - e2:SetCondition(c13700036.spcon) - e2:SetOperation(c13700036.spop) - c:RegisterEffect(e2) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND) - e2:SetCondition(c13700036.spcon2) - e2:SetOperation(c13700036.spop2) - c:RegisterEffect(e2) - --~ ToHand - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c13700036.target) - e1:SetOperation(c13700036.operation) - c:RegisterEffect(e1) - --Banish - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c13700036.cost2) - e1:SetCondition(c13700036.condition2) - e1:SetTarget(c13700036.target2) - e1:SetOperation(c13700036.operation2) - c:RegisterEffect(e1) -end ---~ Invocacion -function c13700036.filter(c)--Overflowing Purgatory - return c:IsFaceup() and c:IsCode(13700039) and not c:IsDisabled() -end -function c13700036.emfilter(c)--Grupo EFFECT-MZONE - return c:IsFaceup() and c:IsType(TYPE_EFFECT) -end -function c13700036.spfilter(c) - return c:IsSetCard(0x1379) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() -end -function c13700036.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c13700036.emfilter,tp,LOCATION_MZONE,0,nil) - local lvs=g:GetSum(Card.GetLevel) - local rks=g:GetSum(Card.GetRank) - local tlr=lvs+rks - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tlr<9 - and Duel.IsExistingMatchingCard(c13700036.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,c) - and not Duel.IsExistingMatchingCard(c13700036.filter,tp,LOCATION_SZONE,0,1,nil) -end -function c13700036.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c13700036.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,c) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end - -function c13700036.spcon2(e,c) - if c==nil then return true end - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c13700036.emfilter,tp,LOCATION_MZONE,0,nil) - local lvs=g:GetSum(Card.GetLevel) - local rks=g:GetSum(Card.GetRank) - local tlr=lvs+rks - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tlr<9 - and Duel.IsExistingMatchingCard(c13700036.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_HAND,0,1,c) - and Duel.IsExistingMatchingCard(c13700036.filter,tp,LOCATION_SZONE,0,1,nil) -end -function c13700036.spop2(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c13700036.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_HAND,0,1,1,c) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end - - - -function c13700036.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c13700036.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) - end -end - -function c13700036.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c13700036.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,nil,1,nil) end - local cg=Duel.SelectReleaseGroup(tp,nil,1,1,nil) - Duel.Release(cg,REASON_COST) -end -function c13700036.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end - if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c13700036.operation2(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - end -end diff --git a/script/c13700037.lua b/script/c13700037.lua deleted file mode 100644 index 1db50391..00000000 --- a/script/c13700037.lua +++ /dev/null @@ -1,125 +0,0 @@ ---Infernoid Nehemoth -function c13700037.initial_effect(c) - c:SetStatus(STATUS_UNSUMMONABLE_CARD,true) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND+LOCATION_GRAVE) - e2:SetCondition(c13700037.spcon) - e2:SetOperation(c13700037.spop) - c:RegisterEffect(e2) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND+LOCATION_GRAVE) - e2:SetCondition(c13700037.spcon2) - e2:SetOperation(c13700037.spop2) - c:RegisterEffect(e2) - --remove - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(4335427,0)) - e4:SetCategory(CATEGORY_REMOVE) - e4:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - e4:SetTarget(c13700037.rmtg) - e4:SetOperation(c13700037.rmop) - c:RegisterEffect(e4) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c13700037.cost) - e1:SetCondition(c13700037.condition) - e1:SetTarget(c13700037.target) - e1:SetOperation(c13700037.activate) - c:RegisterEffect(e1) - -end ---~ Invocacion -function c13700037.filter(c)--Overflowing Purgatory - return c:IsFaceup() and c:IsCode(13700039) and not c:IsDisabled() -end -function c13700037.emfilter(c)--Grupo EFFECT-MZONE - return c:IsFaceup() and c:IsType(TYPE_EFFECT) -end -function c13700037.spfilter(c) - return c:IsSetCard(0x1379) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() -end -function c13700037.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c13700037.emfilter,tp,LOCATION_MZONE,0,nil) - local lvs=g:GetSum(Card.GetLevel) - local rks=g:GetSum(Card.GetRank) - local tlr=lvs+rks - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tlr<9 - and Duel.IsExistingMatchingCard(c13700037.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,3,c) - and not Duel.IsExistingMatchingCard(c13700037.filter,tp,LOCATION_SZONE,0,1,nil) -end -function c13700037.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c13700037.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,3,3,c) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end - -function c13700037.spcon2(e,c) - if c==nil then return true end - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c13700037.emfilter,tp,LOCATION_MZONE,0,nil) - local lvs=g:GetSum(Card.GetLevel) - local rks=g:GetSum(Card.GetRank) - local tlr=lvs+rks - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tlr<9 - and Duel.IsExistingMatchingCard(c13700037.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_HAND,0,3,c) - and Duel.IsExistingMatchingCard(c13700037.filter,tp,LOCATION_SZONE,0,1,nil) -end -function c13700037.spop2(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c13700037.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_HAND,0,3,3,c) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end - - -function c13700037.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0) - Duel.SetChainLimit(aux.FALSE) -end -function c13700037.rmop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - Duel.Destroy(g,REASON_EFFECT) -end - - -function c13700037.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,nil,1,nil) end - local cg=Duel.SelectReleaseGroup(tp,nil,1,1,nil) - Duel.Release(cg,REASON_COST) -end -function c13700037.condition(e,tp,eg,ep,ev,re,r,rp) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) -end -function c13700037.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(1-tp,1) end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0) - end -end -function c13700037.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Remove(re:GetHandler(),POS_FACEUP,REASON_EFFECT) - end -end diff --git a/script/c13700038.lua b/script/c13700038.lua deleted file mode 100644 index dde1918a..00000000 --- a/script/c13700038.lua +++ /dev/null @@ -1,82 +0,0 @@ ---Beelzeus of the Ultimate Dark Dragon -function c13700038.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),aux.NonTuner(nil),2) - c:EnableReviveLimit() - --indes - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e2) - --cannot attack announce - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetTarget(c13700038.antarget) - c:RegisterEffect(e3) - --ATK to 0 - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DISABLE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_MZONE) - e4:SetCountLimit(1) - e4:SetTarget(c13700038.target) - e4:SetOperation(c13700038.operation) - c:RegisterEffect(e4) -end - --cannot attack announce -function c13700038.antarget(e,c) - return c~=e:GetHandler() -end - --ATK to 0 -function c13700038.filter(c) - return c:IsFaceup() and c:GetAttack()>0 -end -function c13700038.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c13700038.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13700038.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c13700038.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) -end -function c13700038.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - local atk=tc:GetBaseAttack() - local atk0=tc:GetAttack() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetAttack()>0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - if tc:GetAttack()==0 then Duel.Recover(tp,atk,REASON_EFFECT) end - --half damage - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e4:SetRange(LOCATION_MZONE) - e4:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e4:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e4:SetCondition(c13700038.dcon) - e4:SetOperation(c13700038.dop) - c:RegisterEffect(e4) - end -end - --half damage -function c13700038.dcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return ep~=tp and (c==Duel.GetAttacker() or c==Duel.GetAttackTarget()) -end -function c13700038.dop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,ev/2) -end diff --git a/script/c13700039.lua b/script/c13700039.lua deleted file mode 100644 index 243f1372..00000000 --- a/script/c13700039.lua +++ /dev/null @@ -1,62 +0,0 @@ ---Overflowing Purgatory -function c13700039.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --token - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetCondition(c13700039.spcon) - e2:SetTarget(c13700039.sptg) - e2:SetOperation(c13700039.spop) - c:RegisterEffect(e2) - --target - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_SZONE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e1:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e1:SetTarget(c13700039.tglimit) - e1:SetValue(1) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e2:SetValue(c13700039.tgval) - c:RegisterEffect(e2) -end -function c13700039.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c13700039.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) -end -function c13700039.spop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,13700041,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) then - local token=Duel.CreateToken(tp,13700041) - Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP) - end -end - - -function c13700039.cfilter(c,rk) - return c:IsFaceup() and c:GetLevel()>rk -end -function c13700039.tglimit(e,c) - local rk=c:GetLevel() - return c:IsSetCard(0x1379) - and Duel.IsExistingMatchingCard(c13700039.cfilter,tp,LOCATION_MZONE,0,1,nil,rk) -end -function c13700039.tgval(e,re,rp) - return e:GetHandlerPlayer()~=rp -end diff --git a/script/c13700040.lua b/script/c13700040.lua deleted file mode 100644 index 38f77742..00000000 --- a/script/c13700040.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Chronomaly Gordias Unite -function c13700040.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --token - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetCondition(c13700040.stgcon) - e2:SetTarget(c13700040.stgtg) - e2:SetOperation(c13700040.stgop) - c:RegisterEffect(e2) - --self destroy - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_SZONE) - e1:SetCode(EFFECT_SELF_DESTROY) - e1:SetCondition(c13700040.sdcon) - c:RegisterEffect(e1) -end -function c13700040.stgcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c13700040.tgfilter(c) - return c:IsSetCard(0x1379) and c:IsAbleToGrave() -end -function c13700040.stgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c13700040.tgfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,2,tp,LOCATION_DECK) -end -function c13700040.stgop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c13700040.tgfilter,tp,LOCATION_DECK,0,nil) - if g:GetCount()>1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local sg=g:Select(tp,1,2,nil) - Duel.SendtoGrave(sg,REASON_EFFECT) - end -end - -function c13700040.sdfilter(c) - return c:IsFaceup() and not c:IsSetCard(0x1379) -end -function c13700040.sdcon(e) - return Duel.IsExistingMatchingCard(c13700040.sdfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end diff --git a/script/c13700042.lua b/script/c13700042.lua deleted file mode 100644 index 8bd5664e..00000000 --- a/script/c13700042.lua +++ /dev/null @@ -1,344 +0,0 @@ ---Necloth Kaleidomirror -function c13700042.initial_effect(c) - aux.UnicoreK(c,aux.FilterBoolFunction(Card.IsCode,13700022)) - aux.BrionacK(c,aux.FilterBoolFunction(Card.IsCode,13700014)) - aux.GungnirK(c,aux.FilterBoolFunction(Card.IsCode,13700028)) - aux.ValkyrusK(c,aux.FilterBoolFunction(Card.IsCode,13700044)) - aux.TrishulaK(c,aux.FilterBoolFunction(Card.IsCode,13700003)) - --salvage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(13700005,2)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c13700042.condition) - e1:SetCost(c13700042.cost) - e1:SetTarget(c13700042.target2) - e1:SetOperation(c13700042.operation2) - c:RegisterEffect(e1) - --Ritual Summon 3 The Necloth Unicore - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(13700042,0)) - e2:SetType(EFFECT_TYPE_ACTIVATE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetCountLimit(1,13700042) - e2:SetCondition(c13700042.condition3unicore) - e2:SetTarget(c13700042.target3unicore) - e2:SetOperation(c13700042.activate3unicore) - c:RegisterEffect(e2) - --Ritual Summon 2 The Necloth Unicore - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(13700042,1)) - e3:SetType(EFFECT_TYPE_ACTIVATE) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetCountLimit(1,13700042) - e3:SetCondition(c13700042.condition2unicore) - e3:SetTarget(c13700042.target2unicore) - e3:SetOperation(c13700042.activate2unicore) - c:RegisterEffect(e3) - --Ritual Summon 2 The Necloth Brionac - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(13700042,2)) - e4:SetType(EFFECT_TYPE_ACTIVATE) - e4:SetCode(EVENT_FREE_CHAIN) - e4:SetCountLimit(1,13700042) - e4:SetCondition(c13700042.condition2brionac) - e4:SetTarget(c13700042.target2brionac) - e4:SetOperation(c13700042.activate2brionac) - c:RegisterEffect(e4) - --Ritual Summon 1 The Necloth Brionac and 1 The Necloth Unicore - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(13700042,3)) - e5:SetType(EFFECT_TYPE_ACTIVATE) - e5:SetCode(EVENT_FREE_CHAIN) - e5:SetCountLimit(1,13700042) - e5:SetCondition(c13700042.condition1b1u) - e5:SetTarget(c13700042.target1b1u) - e5:SetOperation(c13700042.activate1b1u) - c:RegisterEffect(e5) - --Ritual Summon 1 The Necloth Gungnir and 1 The Necloth Unicore - local e6=Effect.CreateEffect(c) - e6:SetDescription(aux.Stringid(13700042,4)) - e6:SetType(EFFECT_TYPE_ACTIVATE) - e6:SetCode(EVENT_FREE_CHAIN) - e6:SetCountLimit(1,13700042) - e6:SetCondition(c13700042.condition1g1u) - e6:SetTarget(c13700042.target1g1u) - e6:SetOperation(c13700042.activate1g1u) - c:RegisterEffect(e6) - --Ritual Summon 1 The Necloth Gungnir and 1 The Necloth Unicore - local e7=Effect.CreateEffect(c) - e7:SetDescription(aux.Stringid(13700042,5)) - e7:SetType(EFFECT_TYPE_ACTIVATE) - e7:SetCode(EVENT_FREE_CHAIN) - e7:SetCountLimit(1,13700042) - e7:SetCondition(c13700042.condition1v1u) - e7:SetTarget(c13700042.target1v1u) - e7:SetOperation(c13700042.activate1v1u) - c:RegisterEffect(e7) - local e8=Effect.CreateEffect(c) - e8:SetDescription(aux.Stringid(13700042,6)) - e8:SetType(EFFECT_TYPE_ACTIVATE) - e8:SetCode(EVENT_FREE_CHAIN) - e8:SetCountLimit(1,13700042) - e8:SetCondition(c13700042.condition8) - e8:SetTarget(c13700042.target8) - e8:SetOperation(c13700042.activate8) - c:RegisterEffect(e8) -end - --Ritual Summon 3 The Necloth Unicore -function c13700042.cfilter3unicore(c) - return c:GetLevel()==12 -end -function c13700042.condition3unicore(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c13700042.cfilter3unicore,tp,LOCATION_MZONE+LOCATION_EXTRA+LOCATION_HAND,0,1,nil) -end -function c13700042.filter3unicore(c,e,tp) - return c:IsCode(13700022) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) -end -function c13700042.target3unicore(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c13700042.filter3unicore,tp,LOCATION_HAND,0,3,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c13700042.activate3unicore(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc=Duel.SelectMatchingCard(tp,c13700042.filter3unicore,tp,LOCATION_HAND,0,3,3,nil,e,tp) - local mat=Duel.SelectMatchingCard(tp,c13700042.cfilter3unicore,tp,LOCATION_MZONE+LOCATION_EXTRA+LOCATION_HAND,0,1,1,nil) - Duel.ReleaseRitualMaterial(mat) - Duel.SendtoGrave(mat,REASON_EFFECT) - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) -end - --Ritual Summon 2 The Necloth Unicore -function c13700042.cfilter2unicore(c) - return c:GetLevel()==8 -end -function c13700042.condition2unicore(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c13700042.cfilter2unicore,tp,LOCATION_MZONE+LOCATION_EXTRA+LOCATION_HAND,0,1,nil) -end -function c13700042.filter2unicore(c,e,tp) - return c:IsCode(13700022) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) -end -function c13700042.target2unicore(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c13700042.filter2unicore,tp,LOCATION_HAND,0,2,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c13700042.activate2unicore(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc=Duel.SelectMatchingCard(tp,c13700042.filter2unicore,tp,LOCATION_HAND,0,2,2,nil,e,tp) - local mat=Duel.SelectMatchingCard(tp,c13700042.cfilter2unicore,tp,LOCATION_MZONE+LOCATION_EXTRA+LOCATION_HAND,0,1,1,nil) - Duel.ReleaseRitualMaterial(mat) - Duel.SendtoGrave(mat,REASON_EFFECT) - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) -end - --Ritual Summon 2 The Necloth Brionac -function c13700042.cfilter2brionac(c) - return c:GetLevel()==12 -end -function c13700042.condition2brionac(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c13700042.cfilter2brionac,tp,LOCATION_MZONE+LOCATION_EXTRA+LOCATION_HAND,0,1,nil) -end -function c13700042.filter2brionac(c,e,tp) - return c:IsCode(13700014) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) -end -function c13700042.target2brionac(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c13700042.filter2brionac,tp,LOCATION_HAND,0,2,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c13700042.activate2brionac(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc=Duel.SelectMatchingCard(tp,c13700042.filter2brionac,tp,LOCATION_HAND,0,2,2,nil,e,tp) - local mat=Duel.SelectMatchingCard(tp,c13700042.cfilter2brionac,tp,LOCATION_MZONE+LOCATION_EXTRA+LOCATION_HAND,0,1,1,nil) - Duel.ReleaseRitualMaterial(mat) - Duel.SendtoGrave(mat,REASON_EFFECT) - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) -end - --~ Ritual Summon 1 The Necloth Brionac and 1 The Necloth Unicore -function c13700042.cfilter1b1u(c) - return c:GetLevel()==10 -end -function c13700042.condition1b1u(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c13700042.cfilter1b1u,tp,LOCATION_MZONE+LOCATION_EXTRA+LOCATION_HAND,0,1,nil) -end -function c13700042.filter1b1u(c,e,tp) - return c:IsCode(13700014) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) -end -function c13700042.filter1b1u2(c,e,tp) - return c:IsCode(13700022) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) -end -function c13700042.target1b1u(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c13700042.filter1b1u,tp,LOCATION_HAND,0,1,nil,e,tp) - and Duel.IsExistingMatchingCard(c13700042.filter1b1u2,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c13700042.activate1b1u(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc=Duel.SelectMatchingCard(tp,c13700042.filter1b1u,tp,LOCATION_HAND,0,1,1,nil,e,tp) - local tc2=Duel.SelectMatchingCard(tp,c13700042.filter1b1u2,tp,LOCATION_HAND,0,1,1,nil,e,tp) - local mat=Duel.SelectMatchingCard(tp,c13700042.cfilter1b1u,tp,LOCATION_MZONE+LOCATION_EXTRA+LOCATION_HAND,0,1,1,nil) - Duel.ReleaseRitualMaterial(mat) - Duel.SendtoGrave(mat,REASON_EFFECT) - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) - Duel.SpecialSummon(tc2,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) -end - --~ Ritual Summon 1 The Necloth Gungnir and 1 The Necloth Unicore -function c13700042.cfilter1g1u(c) - return c:GetLevel()==11 -end -function c13700042.condition1g1u(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c13700042.cfilter1g1u,tp,LOCATION_MZONE+LOCATION_EXTRA+LOCATION_HAND,0,1,nil) -end -function c13700042.filter1g1u(c,e,tp) - return c:IsCode(13700028) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) -end -function c13700042.filter1g1u2(c,e,tp) - return c:IsCode(13700022) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) -end -function c13700042.target1g1u(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c13700042.filter1g1u,tp,LOCATION_HAND,0,1,nil,e,tp) - and Duel.IsExistingMatchingCard(c13700042.filter1g1u2,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c13700042.activate1g1u(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc=Duel.SelectMatchingCard(tp,c13700042.filter1g1u,tp,LOCATION_HAND,0,1,1,nil,e,tp) - local tc2=Duel.SelectMatchingCard(tp,c13700042.filter1g1u2,tp,LOCATION_HAND,0,1,1,nil,e,tp) - local mat=Duel.SelectMatchingCard(tp,c13700042.cfilter1g1u,tp,LOCATION_MZONE+LOCATION_EXTRA+LOCATION_HAND,0,1,1,nil) - Duel.ReleaseRitualMaterial(mat) - Duel.SendtoGrave(mat,REASON_EFFECT) - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) - Duel.SpecialSummon(tc2,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) -end - - --~ Ritual Summon 1 The Necloth Gungnir and 1 The Necloth Unicore -function c13700042.cfilter1v1u(c) - return c:GetLevel()==12 -end -function c13700042.condition1v1u(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c13700042.cfilter1v1u,tp,LOCATION_MZONE+LOCATION_EXTRA+LOCATION_HAND,0,1,nil) -end -function c13700042.filter1v1u(c,e,tp) - return c:IsCode(13700044) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) -end -function c13700042.filter1v1u2(c,e,tp) - return c:IsCode(13700022) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) -end -function c13700042.target1v1u(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c13700042.filter1v1u,tp,LOCATION_HAND,0,1,nil,e,tp) - and Duel.IsExistingMatchingCard(c13700042.filter1v1u2,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c13700042.activate1v1u(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc=Duel.SelectMatchingCard(tp,c13700042.filter1v1u,tp,LOCATION_HAND,0,1,1,nil,e,tp) - local tc2=Duel.SelectMatchingCard(tp,c13700042.filter1v1u2,tp,LOCATION_HAND,0,1,1,nil,e,tp) - local mat=Duel.SelectMatchingCard(tp,c13700042.cfilter1v1u,tp,LOCATION_MZONE+LOCATION_EXTRA+LOCATION_HAND,0,1,1,nil) - Duel.ReleaseRitualMaterial(mat) - Duel.SendtoGrave(mat,REASON_EFFECT) - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) - Duel.SpecialSummon(tc2,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) -end - - ---~ Summon Brionac -function c13700042.bmtfilter(c,e) - return (c:GetCode()~=13700014 and c:GetLevel()>0 and c:IsLocation(LOCATION_MZONE+LOCATION_HAND+LOCATION_EXTRA)) - or ( c:IsSetCard(0x606d) and c:GetLevel()>0 and c:IsAbleToRemove() and c:IsLocation(LOCATION_GRAVE)) -end -function c13700042.bspfilter(c,e,tp,m) - return c:IsCode(13700014) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) - and m:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,1,c) -end -function c13700042.btarget(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return false end - local mg=Duel.GetMatchingGroup(c13700042.bmtfilter,tp,LOCATION_GRAVE+LOCATION_HAND+LOCATION_EXTRA+LOCATION_MZONE,0,e:GetHandler(),e) - return Duel.IsExistingMatchingCard(c13700042.bspfilter,tp,LOCATION_HAND+LOCATION_EXTRA,0,1,nil,e,tp,mg) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_EXTRA) -end -function c13700042.bactivate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local mg=Duel.GetMatchingGroup(c13700042.bmtfilter,tp,LOCATION_GRAVE+LOCATION_HAND+LOCATION_EXTRA+LOCATION_MZONE,0,nil,e) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c13700042.bspfilter,tp,LOCATION_HAND+LOCATION_EXTRA,0,1,1,nil,e,tp,mg) - local tc=g:GetFirst() - if tc then - mg:RemoveCard(tc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),1,1,tc) - tc:SetMaterial(mat) - Duel.ReleaseRitualMaterial(mat) - Duel.SendtoGrave(mat,REASON_EFFECT) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end ---~ Savage -function c13700042.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 -end -function c13700042.filter2(c) - return c:IsSetCard(0x1373) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() -end -function c13700042.cost(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() - and Duel.IsExistingMatchingCard(c13700042.filter2,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) - local g=Duel.SelectMatchingCard(tp,c13700042.filter2,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) - g:AddCard(e:GetHandler()) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c13700042.sfilter(c) - return c:IsSetCard(0x1373) and c:IsType(TYPE_SPELL) and c:IsAbleToHand() -end -function c13700042.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c13700042.sfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c13700042.operation2(e,tp,eg,ep,ev,re,r,rp,chk) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c13700042.sfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end -function c13700042.cfilter8(c) - return (c:GetCode()~=13700022 and c:GetLevel()==4 and c:IsLocation(LOCATION_MZONE+LOCATION_HAND+LOCATION_EXTRA)) -end -function c13700042.condition8(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c13700042.cfilter8,tp,LOCATION_MZONE+LOCATION_EXTRA+LOCATION_HAND,0,1,nil) -end -function c13700042.filter8(c,e,tp) - return c:IsCode(13700022) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) -end -function c13700042.target8(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return false end - local mg=Duel.GetMatchingGroup(c13700042.filter8,tp,LOCATION_GRAVE+LOCATION_HAND+LOCATION_EXTRA+LOCATION_MZONE,0,e:GetHandler(),e) - return Duel.IsExistingMatchingCard(c13700042.filter8,tp,LOCATION_HAND+LOCATION_EXTRA,0,1,nil,e,tp,mg) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_EXTRA) -end -function c13700042.activate8(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc=Duel.SelectMatchingCard(tp,c13700042.filter8,tp,LOCATION_HAND,0,1,1,nil,e,tp) - local mat=Duel.SelectMatchingCard(tp,c13700042.cfilter8,tp,LOCATION_MZONE+LOCATION_EXTRA+LOCATION_HAND,0,1,1,nil) - Duel.ReleaseRitualMaterial(mat) - Duel.SendtoGrave(mat,REASON_EFFECT) - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) -end \ No newline at end of file diff --git a/script/c13700043.lua b/script/c13700043.lua deleted file mode 100644 index 3f509247..00000000 --- a/script/c13700043.lua +++ /dev/null @@ -1,98 +0,0 @@ ---Dragunity Spear of Destiny -function c13700043.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c13700043.target) - e1:SetOperation(c13700043.operation) - c:RegisterEffect(e1) - --Equip limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EQUIP_LIMIT) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetValue(c13700043.eqlimit) - c:RegisterEffect(e3) - --atk up - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetValue(c13700043.atkup) - c:RegisterEffect(e3) - --~ Immune - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_EQUIP) - e1:SetCode(EFFECT_IMMUNE_EFFECT) - e1:SetValue(c13700043.efilter) - c:RegisterEffect(e1) - --Equip - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1,13700043) - e1:SetRange(LOCATION_SZONE) - e1:SetTarget(c13700043.eqtarget) - e1:SetOperation(c13700043.eqactivate) - c:RegisterEffect(e1) -end - --Equip limit -function c13700043.eqlimit(e,c) - return c:IsSetCard(0x29) -end - --Activate -function c13700043.filter(c) - return c:IsFaceup() and c:IsSetCard(0x29) -end -function c13700043.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_MZONE and c1644289.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13700043.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c13700043.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c13700043.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,c,tc) - end -end - --atk up -function c13700043.atkup(e,c) - return c:GetLevel()*100 -end - --~ Immune -function c13700043.efilter(e,te) - return te:IsActiveType(TYPE_TRAP) -end - --Equip -function c13700043.eqfilter(c) - return c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) and c:IsType(TYPE_TUNER) -end -function c13700043.eqtarget(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and - Duel.IsExistingMatchingCard(c13700043.eqfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c13700043.eqactivate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local eqc=e:GetHandler():GetEquipTarget() - local g=Duel.SelectMatchingCard(tp,c13700043.eqfilter,tp,LOCATION_DECK,0,1,1,nil) - local d=g:GetFirst() - Duel.Equip(tp,d,eqc) - --Add Equip limit - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c13700043.eqlimit2) - e1:SetLabelObject(eqc) - d:RegisterEffect(e1) -end -function c13700043.eqlimit2(e,c) - return c==e:GetLabelObject() -end diff --git a/script/c13700044.lua b/script/c13700044.lua deleted file mode 100644 index b151239f..00000000 --- a/script/c13700044.lua +++ /dev/null @@ -1,67 +0,0 @@ ---The Necloth of Valkyrus -function c13700044.initial_effect(c) - c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c13700044.splimit) - c:RegisterEffect(e1) - --end battle phase - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_HAND) - e2:SetCountLimit(1,13700044) - e2:SetCondition(c13700044.condition) - e2:SetCost(c13700044.cost) - e2:SetOperation(c13700044.operation) - c:RegisterEffect(e2) - --Draw - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetCategory(CATEGORY_DRAW) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1,13700044) - e3:SetCost(c13700044.dcost) - e3:SetOperation(c13700044.doperation) - c:RegisterEffect(e3) -end ---~ Ritual Summoned -function c13700044.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL -end ---~ Negate Attack -function c13700044.condition(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttacker() - return at:GetControler()~=tp -end -function c13700044.cfilter(c) - return c:IsSetCard(0x1373) and c:IsAbleToRemoveAsCost() -end -function c13700044.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDiscardable() and Duel.IsExistingMatchingCard(c13700044.cfilter,tp,LOCATION_GRAVE,0,1,nil) end -end -function c13700044.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c13700044.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) - if Duel.Remove(g,POS_FACEUP,REASON_COST) then - Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) - Duel.NegateAttack() - Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) - end -end ---~ Draw -function c13700044.dcost(e,tp,eg,ep,ev,re,r,rp,chk) - --if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsType,1,e:GetHandler(),TYPE_MONSTER) end - if chk==0 then return Duel.CheckReleaseGroupEx(tp,Card.IsReleasableByEffect,1,nil) end - local g=Duel.SelectReleaseGroupEx(tp,Card.IsReleasableByEffect,1,2,nil) - Duel.Release(g,REASON_EFFECT) - e:SetLabel(g:GetCount()) -end -function c13700044.doperation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - Duel.Draw(tp,e:GetLabel(),REASON_EFFECT) -end diff --git a/script/c13700045.lua b/script/c13700045.lua deleted file mode 100644 index 5853507f..00000000 --- a/script/c13700045.lua +++ /dev/null @@ -1,73 +0,0 @@ ---Constellarknight Diamond -function c13700045.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_LIGHT),5),3,c13700045.ovfilter,nil,5) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_TO_GRAVE) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_DECK,LOCATION_DECK) - e1:SetCondition(c13700045.limcon) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_CANNOT_DISCARD_DECK) - e2:SetTargetRange(1,1) - e2:SetCondition(c13700045.limcon) - c:RegisterEffect(e2) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_TO_HAND_REDIRECT) - e2:SetTargetRange(LOCATION_GRAVE,LOCATION_GRAVE) - e2:SetCondition(c13700045.limcon) - e2:SetTarget(c13700045.rmtg) - e2:SetValue(LOCATION_REMOVED) - c:RegisterEffect(e2) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e2:SetCode(EVENT_CHAINING) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c13700045.condition) - e2:SetCost(c13700045.cost) - e2:SetTarget(c13700045.target) - e2:SetOperation(c13700045.operation) - c:RegisterEffect(e2) -end -function c13700045.ovfilter(c) - return c:IsFaceup() and c:IsSetCard(0x9c) and c:GetCode()~=13700045 and c:IsType(TYPE_XYZ) and Duel.GetCurrentPhase()==PHASE_MAIN2 -end -function c13700045.limcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetOverlayCount()>0 -end -function c13700045.rmtg(e,c) - return c:IsLocation(LOCATION_GRAVE) -end - -function c13700045.condition(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and re:IsActiveType(TYPE_MONSTER) - and Duel.IsChainNegatable(ev) and re:GetHandler():IsAttribute(ATTRIBUTE_DARK) -end -function c13700045.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c13700045.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c13700045.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end diff --git a/script/c13700046.lua b/script/c13700046.lua deleted file mode 100644 index 4e730182..00000000 --- a/script/c13700046.lua +++ /dev/null @@ -1,77 +0,0 @@ ---Blaze Accelerator Magazine -function c13700046.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --code - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CHANGE_CODE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_SZONE) - e2:SetValue(21420702) - c:RegisterEffect(e2) - --~ Draw - local e1=Effect.CreateEffect(c) - e1:SetHintTiming(0,0x1c0+TIMING_MAIN_END) - e1:SetDescription(aux.Stringid(13700046,0)) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetRange(LOCATION_SZONE) - e1:SetCountLimit(1,13700046) - e1:SetCondition(c13700046.sccon) - e1:SetTarget(c13700046.target) - e1:SetOperation(c13700046.operation) - c:RegisterEffect(e1) - --~ tograve - local e1=Effect.CreateEffect(c) - e1:SetHintTiming(0,0x1c0+TIMING_MAIN_END) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c13700046.sccon) - e1:SetCost(c13700046.cost2) - e1:SetTarget(c13700046.target2) - e1:SetOperation(c13700046.operation2) - c:RegisterEffect(e1) - -end -function c13700046.sccon(e,tp,eg,ep,ev,re,r,rp) - return (Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) - or (Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) -end -function c13700046.cfilter(c) - return c:IsSetCard(0x32) and c:IsAbleToGraveAsCost() -end -function c13700046.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) and - Duel.IsExistingMatchingCard(c13700046.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c13700046.operation(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() and Duel.DiscardHand(tp,c13700046.cfilter,1,1,REASON_EFFECT)~=0 then - Duel.Draw(tp,1,REASON_EFFECT) - end -end - -function c13700046.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c13700046.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c13700046.cfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c13700046.operation2(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c13700046.cfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - end -end diff --git a/script/c13700047.lua b/script/c13700047.lua deleted file mode 100644 index 3279b0d5..00000000 --- a/script/c13700047.lua +++ /dev/null @@ -1,83 +0,0 @@ ---Koa'ki Meiru Overdose -function c13700047.initial_effect(c) - --cost - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetOperation(c13700047.ccost) - c:RegisterEffect(e1) - - --Activate(summon) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_SUMMON) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c13700047.condition1) - e1:SetCost(c13700047.cost1) - e1:SetTarget(c13700047.target1) - e1:SetOperation(c13700047.activate1) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_FLIP_SUMMON) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_SPSUMMON) - c:RegisterEffect(e3) -end -function c13700047.cfilter1(c) - return c:IsCode(36623431) and c:IsAbleToGraveAsCost() -end -function c13700047.cfilter2(c) - return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_ROCK) and not c:IsPublic() -end -function c13700047.ccost(e,tp) - if tp~=Duel.GetTurnPlayer() then return end - local g1=Duel.GetMatchingGroup(c13700047.cfilter1,tp,LOCATION_HAND,0,nil) - local g2=Duel.GetMatchingGroup(c13700047.cfilter2,tp,LOCATION_HAND,0,nil) - local select=2 - Duel.Hint(HINT_SELECTMSG,tp,0) - if g1:GetCount()>0 and g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(45041488,0),aux.Stringid(45041488,1),aux.Stringid(45041488,2)) - elseif g1:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(45041488,0),aux.Stringid(45041488,2)) - if select==1 then select=2 end - elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(45041488,1),aux.Stringid(45041488,2)) - select=select+1 - end - if select==0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=g1:Select(tp,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) - elseif select==1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) - local g=g2:Select(tp,1,1,nil) - Duel.ConfirmCards(1-tp,g) - Duel.ShuffleHand(tp) - else - Duel.Destroy(e:GetHandler(),REASON_RULE) - end -end - - -function c13700047.condition1(e,tp,eg,ep,ev,re,r,rp) - return tp~=ep and Duel.GetCurrentChain()==0 -end -function c13700047.cost1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c13700047.target1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,eg:GetCount(),0,0) -end -function c13700047.activate1(e,tp,eg,ep,ev,re,r,rp,chk) - if Duel.NegateSummon(eg) then - Duel.Destroy(eg,REASON_EFFECT) - end -end diff --git a/script/c13700048.lua b/script/c13700048.lua deleted file mode 100644 index 91ecc194..00000000 --- a/script/c13700048.lua +++ /dev/null @@ -1,84 +0,0 @@ ---Morphtronic Smarfon -function c13700048.initial_effect(c) - c:EnableReviveLimit() - --special summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND) - e2:SetCountLimit(1) - e2:SetCondition(c13700048.spcon) - e2:SetOperation(c13700048.spop) - c:RegisterEffect(e2) - --add - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c13700048.ConAttack) - e1:SetTarget(c13700048.TargetAttack) - e1:SetOperation(c13700048.OpperationAttack) - c:RegisterEffect(e1) - --confirm - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c13700048.cond) - e2:SetTarget(c13700048.tgd) - e2:SetOperation(c13700048.opd) - c:RegisterEffect(e2) -end -function c13700048.spfilter(c) - return c:IsSetCard(0x26) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() -end -function c13700048.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c13700048.spfilter,tp,LOCATION_GRAVE,0,1,nil) -end -function c13700048.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c13700048.spfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end - -function c13700048.ConAttack(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsDisabled() and e:GetHandler():IsAttackPos() -end -function c13700048.cfilter(c) - return c:IsSetCard(0x26) and c:IsType(TYPE_MONSTER) -end -function c13700048.TargetAttack(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 - and Duel.IsExistingMatchingCard(c13700048.cfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) -end -function c13700048.filter(c,e,tp) - return c:IsSetCard(0x26) and c:IsAbleToHand() -end -function c13700048.OpperationAttack(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end - local dc=Duel.TossDice(tp,1) - Duel.ConfirmDecktop(tp,dc) - local g=Duel.GetDecktopGroup(tp,dc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local sg=g:FilterSelect(tp,c13700048.filter,1,1,nil,e,tp) - Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ShuffleDeck(tp) -end -function c13700048.cond(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefencePos() -end -function c13700048.tgd(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end - Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) -end -function c13700048.opd(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end - local dc=Duel.TossDice(tp,1) - Duel.SortDecktop(tp,tp,dc) -end diff --git a/script/c13700049.lua b/script/c13700049.lua deleted file mode 100644 index 94387647..00000000 --- a/script/c13700049.lua +++ /dev/null @@ -1,49 +0,0 @@ ---Jinzo - Jacker -function c13700049.initial_effect(c) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CHANGE_CODE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE+LOCATION_GRAVE) - e3:SetValue(77585513) - c:RegisterEffect(e3) - --seaRevealedCardsh - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,13700049) - e1:SetCost(c13700049.cost) - e1:SetTarget(c13700049.target) - e1:SetOperation(c13700049.operation) - c:RegisterEffect(e1) -end -function c13700049.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c13700049.filter(c) - return (c:IsCode(9418534) or c:IsCode(32809211) or c:IsCode(35803249) or c:IsCode(77585513)) and c:IsAbleToHand() -end -function c13700049.filter2(c,e,tp) - return (c:IsCode(9418534) or c:IsCode(32809211) or c:IsCode(35803249) or c:IsCode(77585513) or c:IsCode(13700049)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c13700049.setfilter(c) - return c:IsType(TYPE_TRAP) and c:IsFacedown() -end -function c13700049.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c13700049.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c13700049.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c13700049.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end - local SetCards=Duel.GetMatchingGroupCount(c13700049.setfilter,tp,0,LOCATION_SZONE,nil)*1 - local RevealedCards=Duel.GetFieldGroup(tp,0,LOCATION_SZONE) - Duel.ConfirmCards(tp,RevealedCards) - local Jinzo=Duel.SelectMatchingCard(tp,c13700049.filter2,tp,LOCATION_HAND,0,1,SetCards,nil,e,tp) - Duel.SpecialSummon(Jinzo,0,tp,tp,false,false,POS_FACEUP) -end diff --git a/script/c13700050.lua b/script/c13700050.lua deleted file mode 100644 index c1caaf58..00000000 --- a/script/c13700050.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Raid Raptors - Rise Falcon -function c13700050.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsRace,RACE_WINDBEAST),4),3) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_ATTACK_ALL) - e1:SetValue(c13700050.atkfilter) - e1:SetRange(LOCATION_MZONE) - c:RegisterEffect(e1) - --material - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c13700050.cost) - e1:SetTarget(c13700050.target) - e1:SetOperation(c13700050.operation) - c:RegisterEffect(e1) -end -function c13700050.atkfilter(e,c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end - -function c13700050.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c13700050.filter(c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c13700050.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c13700050.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13700050.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c13700050.filter,tp,0,LOCATION_MZONE,1,1,nil) -end -function c13700050.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(tc:GetAttack()) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - end -end diff --git a/script/c1370012.lua b/script/c1370012.lua deleted file mode 100644 index 8de96646..00000000 --- a/script/c1370012.lua +++ /dev/null @@ -1,77 +0,0 @@ ---DDD Caesar the Conqueror -function c1370012.initial_effect(c) ---tohand - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(56804361,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c1370012.condition) - e1:SetTarget(c1370012.target) - e1:SetOperation(c1370012.operation) - c:RegisterEffect(e1) - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(45812361,0)) - e3:SetCategory(CATEGORY_DRAW) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCondition(c1370012.condition2) - e3:SetTarget(c1370012.destg) - e3:SetOperation(c1370012.desop) - c:RegisterEffect(e3) -end -function c1370012.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM -end -function c1370012.filter1(c) - return c:IsFaceup() -end -function c1370012.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c1370012.filter1,tp,0,LOCATION_ONFIELD,1,nil) end -end -function c1370012.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c1370012.filter1,tp,0,LOCATION_ONFIELD,nil) - local tc=g:GetFirst() - if not tc then return end - local c=e:GetHandler() - while tc do - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e2) - tc=g:GetNext() - end - e:GetHandler():RegisterFlagEffect(1370012,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) -end -function c1370012.condition2(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(1370012)~=0 and Duel.GetCurrentPhase()==PHASE_MAIN1 -end -function c1370012.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_SZONE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_SZONE,0,1,2,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c1370012.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - local c=e:GetHandler() - local ct=Duel.Destroy(g,REASON_EFFECT) - if ct>0 and c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) - e1:SetValue(ct) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end -end diff --git a/script/c1370013.lua b/script/c1370013.lua deleted file mode 100644 index 1fcf0a68..00000000 --- a/script/c1370013.lua +++ /dev/null @@ -1,138 +0,0 @@ ---DD Proud Ogre -function c1370013.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --atkup - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(1370013,0)) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c1370013.adcon) - e2:SetCost(c1370013.cost) - e2:SetTarget(c1370013.atktg) - e2:SetOperation(c1370013.atkop) - c:RegisterEffect(e2) - --scale - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_CHANGE_LSCALE) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetRange(LOCATION_SZONE) - e4:SetCondition(c1370013.slcon) - e4:SetValue(5) - c:RegisterEffect(e4) - local e5=e4:Clone() - e5:SetCode(EFFECT_CHANGE_RSCALE) - c:RegisterEffect(e5) - --summon success - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(1370013,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetTarget(c1370013.sumtg) - e3:SetOperation(c1370013.sumop) - c:RegisterEffect(e3) -end -function c1370013.adcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSequence()==6 or e:GetHandler():GetSequence()==7 -end -function c1370013.filter1(c) - return c:IsFaceup() and c:IsSetCard(0xaf) -end -function c1370013.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c1370013.filter1(chkc) end - if chk==0 then return Duel.IsExistingTarget(c1370013.filter1,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c1370013.filter1,tp,LOCATION_MZONE,0,1,1,nil) -end -function c1370013.atkop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(500) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end -function c1370013.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,500) end - Duel.PayLPCost(tp,500) -end -function c1370013.slcon(e) - local seq=e:GetHandler():GetSequence() - if seq~=6 and seq~=7 then return false end - local tc=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_SZONE,13-seq) - return not tc or not tc:IsSetCard(0xaf) -end -function c1370013.filter(c,e,tp) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_DARK) -end -function c1370013.sumtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_EXTRA) and chkc:IsControler(tp) and c1370013.filter(chkc,e,tp) end - if chk==0 then return Duel.IsExistingTarget(c1370013.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c1370013.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c1370013.sumop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1,true) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2,true) - Duel.SpecialSummonComplete() - end - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e3:SetReset(RESET_PHASE+PHASE_END) - e3:SetTargetRange(1,0) - e3:SetTarget(c1370013.splimit) - Duel.RegisterEffect(e3,tp) -end - - -function c1370013.lvcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return c1370013[tp] end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c1370013.splimit) - Duel.RegisterEffect(e1,tp) -end -function c1370013.splimit(e,c) - return not c:IsSetCard(0xaf) -end - - -function c1370013.slcon(e) - local seq=e:GetHandler():GetSequence() - if seq~=6 and seq~=7 then return false end - local tc=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_SZONE,13-seq) - return not tc or (not tc:IsSetCard(0xaf)) -end diff --git a/script/c1370014.lua b/script/c1370014.lua deleted file mode 100644 index 65c8ca49..00000000 --- a/script/c1370014.lua +++ /dev/null @@ -1,102 +0,0 @@ ---DD Proud Chevalier -function c1370014.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --atkup - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(1370014,0)) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCost(c1370014.cost) - e2:SetCondition(c1370014.adcon) - e2:SetTarget(c1370014.atktg) - e2:SetOperation(c1370014.atkop) - c:RegisterEffect(e2) - --scale - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_CHANGE_LSCALE) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetRange(LOCATION_SZONE) - e4:SetCondition(c1370014.slcon) - e4:SetValue(5) - c:RegisterEffect(e4) - local e5=e4:Clone() - e5:SetCode(EFFECT_CHANGE_RSCALE) - c:RegisterEffect(e5) - --summon success - local e6=Effect.CreateEffect(c) - e6:SetDescription(aux.Stringid(1370014,1)) - e6:SetCategory(CATEGORY_SPECIAL_SUMMON) - e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e6:SetCode(EVENT_SUMMON_SUCCESS) - e6:SetProperty(EFFECT_FLAG_CARD_TARGET) - e6:SetTarget(c1370014.sumtg) - e6:SetOperation(c1370014.sumop) - c:RegisterEffect(e6) -end -function c1370014.adcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSequence()==6 or e:GetHandler():GetSequence()==7 -end - -function c1370014.filter1(c) - return c:IsFaceup() -end -function c1370014.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c1370014.filter1(chkc) end - if chk==0 then return Duel.IsExistingTarget(c1370014.filter1,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c1370014.filter1,tp,0,LOCATION_MZONE,1,1,nil) -end -function c1370014.atkop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-600) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end -function c1370014.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,500) end - Duel.PayLPCost(tp,500) -end -function c1370014.slcon(e) - local seq=e:GetHandler():GetSequence() - if seq~=6 and seq~=7 then return false end - local tc=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_SZONE,13-seq) - return not tc or not tc:IsSetCard(0xaf) -end -function c1370014.filter(c,e,tp) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_DARK) -end -function c1370014.sumtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_EXTRA) and chkc:IsControler(tp) and c1370014.filter(chkc,e,tp) end - if chk==0 then return Duel.IsExistingTarget(c1370014.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c1370014.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c1370014.sumop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - Duel.SendtoHand(tc,nil,REASON_EFFECT) -end - -function c1370014.slcon(e) - local seq=e:GetHandler():GetSequence() - if seq~=6 and seq~=7 then return false end - local tc=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_SZONE,13-seq) - return not tc or (not tc:IsSetCard(0xaf)) -end diff --git a/script/c1370043.lua b/script/c1370043.lua deleted file mode 100644 index 683d254f..00000000 --- a/script/c1370043.lua +++ /dev/null @@ -1,84 +0,0 @@ ---ＤＤケルベロス -function c1370043.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --atk/def up level change - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE+CATEGORY_LVCHANGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetCondition(c1370043.chcon) - e2:SetTarget(c1370043.chtg) - e2:SetOperation(c1370043.chop) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCondition(c1370043.thcon) - e3:SetTarget(c1370043.thtg) - e3:SetOperation(c1370043.thop) - c:RegisterEffect(e3) -end -function c1370043.chcon(e,tp,eg,ep,ev,re,r,rp) - local seq=e:GetHandler():GetSequence() - return seq==6 or seq==7 -end -function c1370043.chfil(c) - return c:IsFaceup() and c:IsSetCard(0xaf) -end -function c1370043.chtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c1370043.chfil(chkc) end - if chk==0 then return Duel.IsExistingTarget(c1370043.chfil,tp,LOCATION_MZONE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c1370043.chfil,tp,LOCATION_MZONE,0,1,1,nil) -end -function c1370043.chop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(400) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - tc:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EFFECT_CHANGE_LEVEL) - e3:SetValue(4) - tc:RegisterEffect(e3) - end -end -function c1370043.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM and e:GetHandler():IsPreviousLocation(LOCATION_HAND) and Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_MZONE,0,1,e:GetHandler(),0xaf) -end -function c1370043.thfil(c) - return c:GetType()==TYPE_SPELL+TYPE_CONTINUOUS and c:IsAbleToHand() -end -function c1370043.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp and c1370043.thfil(chkc) end - if chk==0 then return Duel.IsExistingTarget(c1370043.thfil,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c1370043.thfil,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c1370043.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c1370062.lua b/script/c1370062.lua deleted file mode 100644 index f2c04627..00000000 --- a/script/c1370062.lua +++ /dev/null @@ -1,112 +0,0 @@ ---DD Magical Sage Galilei -function c1370062.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(1370062,0)) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --level up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetCondition(c1370062.sccon) - e2:SetTarget(c1370062.sctg) - e2:SetOperation(c1370062.scop) - c:RegisterEffect(e2) - --cannot special summon - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(1,0) - e3:SetTarget(c1370062.splimit) - c:RegisterEffect(e3) - --return - local e6=Effect.CreateEffect(c) - e6:SetDescription(aux.Stringid(1370062,1)) - e6:SetType(EFFECT_TYPE_QUICK_O) - e6:SetCode(EVENT_FREE_CHAIN) - e6:SetRange(LOCATION_HAND) - e6:SetCountLimit(1,1370062) - e6:SetCost(c1370062.cost) - e6:SetTarget(c1370062.target) - e6:SetOperation(c1370062.operation) - c:RegisterEffect(e6) -end -function c1370062.splimit(e,c,tp,sumtp,sumpos) - return bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM and not c:IsSetCard(0xaf) -end - -function c1370062.sccon(e,tp,eg,ep,ev,re,r,rp) - local seq=e:GetHandler():GetSequence() - return (seq==6 or seq==7) and Duel.GetTurnPlayer()==tp and e:GetHandler():GetRightScale()<10 -end -function c1370062.sctg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(c1370062.desfilter,tp,LOCATION_MZONE,0,nil,e:GetHandler():GetLeftScale()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c1370062.scop(e,tp,eg,ep,ev,re,r,rp) - --scale - local c=e:GetHandler() - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_CHANGE_LSCALE) - e4:SetReset(RESET_EVENT+0x1ff0000) - e4:SetValue(c1370062.lsval) - c:RegisterEffect(e4) - local e5=e4:Clone() - e5:SetCode(EFFECT_CHANGE_RSCALE) - e5:SetValue(c1370062.rsval) - c:RegisterEffect(e5) - local g=Duel.GetMatchingGroup(c1370062.desfilter,tp,LOCATION_MZONE,0,nil,c:GetLeftScale()) - Duel.Destroy(g,REASON_EFFECT) -end -function c1370062.desfilter(c,p) - return c:IsFaceup() and c:GetLevel()<=p and not (c:IsSetCard(0xaf) or c:IsType(TYPE_XYZ)) -end - -function c1370062.lsval(e,tp,c,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetLeftScale()+2 <=10 then - return c:GetLeftScale()+2 - else - return 10 - end -end -function c1370062.rsval(e,tp,c,ep,ev,re,r,rp) - local c=e:GetHandler() - local c=e:GetHandler() - if c:GetRightScale()+2 <=10 then - return c:GetRightScale()+2 - else - return 10 - end -end - -function c1370062.filter(c) - return c:IsSetCard(0xaf) or c:IsSetCard(0xae) -end -function c1370062.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDiscardable() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) -end -function c1370062.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToHand() end - if chk==0 then return Duel.IsExistingTarget(c1370062.filter,tp,LOCATION_ONFIELD,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c1370062.filter,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c1370062.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end diff --git a/script/c1370063.lua b/script/c1370063.lua deleted file mode 100644 index 4045f76e..00000000 --- a/script/c1370063.lua +++ /dev/null @@ -1,118 +0,0 @@ ---DD Magical Sage Kepler -function c1370063.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --level up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetCondition(c1370063.sccon) - e2:SetTarget(c1370063.sctg) - e2:SetOperation(c1370063.scop) - c:RegisterEffect(e2) - --cannot special summon - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(1,0) - e3:SetTarget(c1370063.splimit) - c:RegisterEffect(e3) - - --to hand - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(1370063,0)) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e4:SetCode(EVENT_SUMMON_SUCCESS) - e4:SetTarget(c1370063.target) - e4:SetOperation(c1370063.operation) - c:RegisterEffect(e4) - --search - local e5=e4:Clone() - e5:SetDescription(aux.Stringid(1370063,1)) - e5:SetCode(EVENT_SPSUMMON_SUCCESS) - e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e5:SetTarget(c1370063.target2) - e5:SetOperation(c1370063.operation2) - c:RegisterEffect(e5) -end -function c1370063.splimit(e,c,tp,sumtp,sumpos) - return bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM and not c:IsSetCard(0xaf) -end -function c1370063.sccon(e,tp,eg,ep,ev,re,r,rp) - local seq=e:GetHandler():GetSequence() - if seq~=6 and seq~=7 then return false end - return Duel.GetTurnPlayer()==tp and e:GetHandler():GetRightScale()>1 -end -function c1370063.sctg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(c1370063.desfilter,tp,LOCATION_MZONE,0,nil,e:GetHandler():GetLeftScale()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c1370063.scop(e,tp,eg,ep,ev,re,r,rp) - --scale - local c=e:GetHandler() - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_CHANGE_LSCALE) - e4:SetReset(RESET_EVENT+0x1ff0000) - e4:SetValue(c1370063.lsval) - c:RegisterEffect(e4) - local e5=e4:Clone() - e5:SetCode(EFFECT_CHANGE_RSCALE) - e5:SetValue(c1370063.rsval) - c:RegisterEffect(e5) - local g=Duel.GetMatchingGroup(c1370063.desfilter,tp,LOCATION_MZONE,0,nil,c:GetLeftScale()) - Duel.Destroy(g,REASON_EFFECT) -end -function c1370063.desfilter(c,p) - return c:IsFaceup() and c:GetLevel()>=p and not (c:IsSetCard(0xaf) or c:IsType(TYPE_XYZ)) -end - -function c1370063.lsval(e,tp,c,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetLeftScale()-2 >=1 then - return c:GetLeftScale()-2 - else - return 1 - end -end -function c1370063.rsval(e,tp,c,ep,ev,re,r,rp) - local c=e:GetHandler() - local c=e:GetHandler() - if c:GetRightScale()-2 >= 1 then - return c:GetRightScale()-2 - else - return 1 - end -end - -function c1370063.filter(c) - return c:IsSetCard(0xaf) -end -function c1370063.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToHand() end - if chk==0 then return Duel.IsExistingTarget(c1370063.filter,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c1370063.filter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c1370063.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end -function c1370063.target2(e,tp,eg,ep,ev,re,r,rp,chk) -end -function c1370063.operation2(e,tp,eg,ep,ev,re,r,rp) -end diff --git a/script/c1370064.lua b/script/c1370064.lua deleted file mode 100644 index 52c566ea..00000000 --- a/script/c1370064.lua +++ /dev/null @@ -1,102 +0,0 @@ ---DDD Void Armageddon the Great Demise Lord -function c1370064.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Pendulum ATKUP - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_SZONE) - e1:SetCountLimit(1) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c1370064.adcon) - e1:SetTarget(c1370064.atktg) - e1:SetOperation(c1370064.atkop) - c:RegisterEffect(e1) - --GetATK - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCountLimit(1) - e3:SetCode(EVENT_DESTROY) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c1370064.spcost) - e3:SetTarget(c1370064.sptg) - e3:SetOperation(c1370064.spop) - c:RegisterEffect(e3) - --indestructable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e1:SetValue(c1370064.ind1) - c:RegisterEffect(e1) -end -function c1370064.adcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSequence()==6 or e:GetHandler():GetSequence()==7 -end -function c1370064.filter1(c) - return c:IsFaceup() and c:IsSetCard(0xaf) -end -function c1370064.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c1370064.filter1(chkc) end - if chk==0 then return Duel.IsExistingTarget(c1370064.filter1,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c1370064.filter1,tp,LOCATION_MZONE,0,1,1,nil) -end -function c1370064.atkop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(800) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end - -function c1370064.filter(c,e,tp) - return c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) - and c:IsCanBeEffectTarget(e) -end -function c1370064.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not e:GetHandler():IsDirectAttacked() end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e:GetHandler():RegisterEffect(e1) -end -function c1370064.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return eg:IsContains(chkc) and c1370064.filter(chkc,e,tp) end - if chk==0 then return eg:IsExists(c1370064.filter,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=eg:FilterSelect(tp,c1370064.filter,1,1,nil,e,tp) - Duel.SetTargetCard(g) -end -function c1370064.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local c=e:GetHandler() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local atk=tc:GetTextAttack() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(atk) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end -end - -function c1370064.ind1(e,re,rp,c) - return not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) -end diff --git a/script/c1370065.lua b/script/c1370065.lua deleted file mode 100644 index d3649e98..00000000 --- a/script/c1370065.lua +++ /dev/null @@ -1,67 +0,0 @@ ---ＤＤＤ烈火王テムジン -function c1370065.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsSetCard,0xaf),2,true) - --tohand - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,1370065) - e1:SetCondition(c1370065.spcon) - e1:SetTarget(c1370065.sptg) - e1:SetOperation(c1370065.spop) - c:RegisterEffect(e1) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) - e2:SetCode(EVENT_DESTROYED) - e2:SetCondition(c1370065.thcon) - e2:SetTarget(c1370065.thtg) - e2:SetOperation(c1370065.thop) - c:RegisterEffect(e2) -end -function c1370065.spfil(c,e,tp) - return c:IsSetCard(0xaf) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c1370065.spcon(e,tp,eg,ep,ev,re,r,rp) - return not eg:IsContains(e:GetHandler()) and eg:IsExists(Card.IsSetCard,1,nil,0xaf) -end -function c1370065.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c1370065.spfil(chkc,e,tp) end - if chk==0 then return Duel.IsExistingTarget(c1370065.spfil,tp,LOCATION_GRAVE,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c1370065.spfil,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c1370065.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end -function c1370065.thcon(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and e:GetHandler():GetPreviousControler()==tp -end -function c1370065.thfil(c) - return c:IsSetCard(0xae) and c:IsAbleToHand() -end -function c1370065.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp and c1370065.thfil(chkc) end - if chk==0 then return Duel.IsExistingTarget(c1370065.thfil,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c1370065.thfil,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c1370065.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c1370066.lua b/script/c1370066.lua deleted file mode 100644 index 7f1544ce..00000000 --- a/script/c1370066.lua +++ /dev/null @@ -1,41 +0,0 @@ ---ＤＤＤ疾風王アレキサンダー -function c1370066.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0xaf),aux.NonTuner(nil),1) - c:EnableReviveLimit() - --tohand - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,1370066) - e1:SetCondition(c1370066.spcon) - e1:SetTarget(c1370066.sptg) - e1:SetOperation(c1370066.spop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) -end -function c1370066.spfil(c,e,tp) - return c:IsSetCard(0xaf) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c1370066.spcon(e,tp,eg,ep,ev,re,r,rp) - return not eg:IsContains(e:GetHandler()) and eg:IsExists(Card.IsSetCard,1,nil,0xaf) -end -function c1370066.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c1370066.spfil(chkc,e,tp) end - if chk==0 then return Duel.IsExistingTarget(c1370066.spfil,tp,LOCATION_GRAVE,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c1370066.spfil,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c1370066.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c1372887.lua b/script/c1372887.lua old mode 100755 new mode 100644 diff --git a/script/c13756293.lua b/script/c13756293.lua index c5fb131b..e7a0c93d 100644 --- a/script/c13756293.lua +++ b/script/c13756293.lua @@ -6,11 +6,12 @@ function c13756293.initial_effect(c) --cannot be target local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(0,0xff) - e1:SetValue(c13756293.etarget) + e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e1:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_DRAGON)) + e1:SetValue(aux.tgoval) c:RegisterEffect(e1) --spsummon local e2=Effect.CreateEffect(c) @@ -23,9 +24,6 @@ function c13756293.initial_effect(c) e2:SetOperation(c13756293.spop) c:RegisterEffect(e2) end -function c13756293.etarget(e,re,c) - return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsRace(RACE_DRAGON) -end function c13756293.filter(c,e,tp) return c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end diff --git a/script/c13760677.lua b/script/c13760677.lua index dd28684a..bb98376e 100644 --- a/script/c13760677.lua +++ b/script/c13760677.lua @@ -1,76 +1,75 @@ ---P・M・キャプチャー -function c13760677.initial_effect(c) - --pendulum summon - aux.EnablePendulumAttribute(c) - --indes - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(13760677,0)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetRange(LOCATION_PZONE) - e2:SetCondition(c13760677.indcon) - e2:SetTarget(c13760677.indtg) - e2:SetOperation(c13760677.indop) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(13760677,1)) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCode(EVENT_BATTLE_DESTROYING) - e3:SetCondition(c13760677.thcon) - e3:SetTarget(c13760677.thtg) - e3:SetOperation(c13760677.thop) - c:RegisterEffect(e3) -end -function c13760677.cfilter(c,e,tp) - return c:IsRace(RACE_ZOMBIE) and c:GetSummonPlayer()==tp and c:GetSummonType()==SUMMON_TYPE_PENDULUM - and (not e or c:IsRelateToEffect(e)) -end -function c13760677.indcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c13760677.cfilter,1,nil,nil,tp) -end -function c13760677.indtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetCard(eg) -end -function c13760677.indop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local g=eg:Filter(c13760677.cfilter,nil,e,tp) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - tc:RegisterEffect(e2) - tc=g:GetNext() - end -end -function c13760677.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsRelateToBattle() and c:GetBattleTarget():IsType(TYPE_MONSTER) -end -function c13760677.filter(c) - return c:IsType(TYPE_PENDULUM) and c:IsAbleToHand() -end -function c13760677.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c13760677.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c13760677.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c13760677.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c13760677.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--P・M・キャプチャー +function c13760677.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --indes + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(13760677,0)) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetRange(LOCATION_PZONE) + e2:SetCondition(c13760677.indcon) + e2:SetTarget(c13760677.indtg) + e2:SetOperation(c13760677.indop) + c:RegisterEffect(e2) + --tohand + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(13760677,1)) + e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCode(EVENT_BATTLE_DESTROYING) + e3:SetCondition(c13760677.thcon) + e3:SetTarget(c13760677.thtg) + e3:SetOperation(c13760677.thop) + c:RegisterEffect(e3) +end +function c13760677.cfilter(c,e,tp) + return c:IsRace(RACE_ZOMBIE) and c:GetSummonPlayer()==tp and c:GetSummonType()==SUMMON_TYPE_PENDULUM + and (not e or c:IsRelateToEffect(e)) +end +function c13760677.indcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c13760677.cfilter,1,nil,nil,tp) +end +function c13760677.indtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetCard(eg) +end +function c13760677.indop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local g=eg:Filter(c13760677.cfilter,nil,e,tp) + local tc=g:GetFirst() + while tc do + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetValue(1) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + tc:RegisterEffect(e2) + tc=g:GetNext() + end +end +function c13760677.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsRelateToBattle() and c:GetBattleTarget():IsType(TYPE_MONSTER) +end +function c13760677.filter(c) + return c:IsType(TYPE_PENDULUM) and c:IsAbleToHand() +end +function c13760677.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c13760677.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c13760677.filter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c13760677.filter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c13760677.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c13764881.lua b/script/c13764881.lua old mode 100755 new mode 100644 diff --git a/script/c13803864.lua b/script/c13803864.lua index 1efa37d1..150bdf26 100644 --- a/script/c13803864.lua +++ b/script/c13803864.lua @@ -34,9 +34,10 @@ function c13803864.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c13803864.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end + local tg=Duel.GetMatchingGroup(c13803864.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp) + if ft<=0 or tg:GetCount()==0 or (ft>1 and tg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c13803864.spfilter,tp,LOCATION_GRAVE,0,ft,ft,nil,e,tp) + local g=tg:Select(tp,ft,ft,nil) if g:GetCount()>0 then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end diff --git a/script/c13846680.lua b/script/c13846680.lua index e4689230..e45fa06e 100644 --- a/script/c13846680.lua +++ b/script/c13846680.lua @@ -15,7 +15,7 @@ function c13846680.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c13846680.filter(c) - return (c:IsFacedown() or c:GetAttribute()~=ATTRIBUTE_FIRE) and c:IsDestructable() + return (c:IsFacedown() or c:GetAttribute()~=ATTRIBUTE_FIRE) end function c13846680.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c13857930.lua b/script/c13857930.lua index 3947b18a..bb3865c2 100644 --- a/script/c13857930.lua +++ b/script/c13857930.lua @@ -48,7 +48,7 @@ function c13857930.activate(e,tp,eg,ep,ev,re,r,rp) end else if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end Duel.ShuffleHand(tp) diff --git a/script/c13893596.lua b/script/c13893596.lua index f94e857d..0e976161 100644 --- a/script/c13893596.lua +++ b/script/c13893596.lua @@ -40,6 +40,14 @@ function c13893596.initial_effect(c) e5:SetCondition(c13893596.recon) e5:SetValue(LOCATION_REMOVED) c:RegisterEffect(e5) + --win + local e6=Effect.CreateEffect(c) + e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e6:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e6:SetCode(EVENT_TO_GRAVE) + e6:SetRange(LOCATION_MZONE) + e6:SetOperation(c13893596.winop) + c:RegisterEffect(e6) end function c13893596.cfilter(c) return not c:IsAbleToDeckOrExtraAsCost() @@ -63,21 +71,16 @@ function c13893596.tgfilter(c) return c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() end function c13893596.filter(c,rc) - return c:IsRelateToCard(rc) and c:IsSetCard(0x40) + return c:IsRelateToCard(rc) and c:IsSetCard(0x40) and c:IsType(TYPE_MONSTER) end function c13893596.tgop(e,tp,eg,ep,ev,re,r,rp) - local WIN_REASON_EXODIUS = 0x14 Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) local c=e:GetHandler() local g=Duel.SelectMatchingCard(tp,c13893596.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil) local tc=g:GetFirst() if tc and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE) and c:IsRelateToEffect(e) and c:IsFaceup() then - tc:CreateRelation(c,RESET_EVENT+0x1fe0000) - local g=Duel.GetMatchingGroup(c13893596.filter,tp,LOCATION_GRAVE,0,nil,c) - if g:GetClassCount(Card.GetCode)==5 then - Duel.Win(tp,WIN_REASON_EXODIUS) - end + tc:CreateRelation(c,RESET_EVENT+0x1fe0000) end end function c13893596.atkval(e,c) @@ -86,3 +89,11 @@ end function c13893596.recon(e) return e:GetHandler():IsFaceup() end +function c13893596.winop(e,tp,eg,ep,ev,re,r,rp) + local WIN_REASON_EXODIUS = 0x14 + local c=e:GetHandler() + local g=Duel.GetMatchingGroup(c13893596.filter,tp,LOCATION_GRAVE,0,nil,c) + if g:GetClassCount(Card.GetCode)==5 then + Duel.Win(tp,WIN_REASON_EXODIUS) + end +end diff --git a/script/c13945283.lua b/script/c13945283.lua old mode 100755 new mode 100644 diff --git a/script/c13955608.lua b/script/c13955608.lua index 36c041ca..e81810a6 100644 --- a/script/c13955608.lua +++ b/script/c13955608.lua @@ -19,10 +19,10 @@ function c13955608.activate(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,13955608,0,0x21,0,2000,4,RACE_MACHINE,ATTRIBUTE_EARTH) then return end - c:AddTrapMonsterAttribute(TYPE_EFFECT,ATTRIBUTE_EARTH,RACE_MACHINE,4,0,2000) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_DEFENCE) - c:TrapMonsterBlock() - --cannot attack + c:AddMonsterAttribute(TYPE_TRAP+TYPE_EFFECT) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP_DEFENSE) + c:AddMonsterAttributeComplete() + --update attack local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) @@ -31,7 +31,8 @@ function c13955608.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(3000) e1:SetCondition(c13955608.atkcon) e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) + c:RegisterEffect(e1,true) + Duel.SpecialSummonComplete() end function c13955608.atkcon(e) local con=0 diff --git a/script/c13972452.lua b/script/c13972452.lua old mode 100755 new mode 100644 diff --git a/script/c140000075.lua b/script/c140000075.lua deleted file mode 100644 index 165a194e..00000000 --- a/script/c140000075.lua +++ /dev/null @@ -1,56 +0,0 @@ ---Adamantine Sword Revival -function c140000075.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetLabel(-1) - e1:SetCost(c140000075.cost) - e1:SetTarget(c140000075.target) - e1:SetOperation(c140000075.operation) - c:RegisterEffect(e1) -end -function c140000075.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c140000075.rfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local rc=Duel.SelectTarget(tp,c140000075.rfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - local tc=rc:GetFirst() - e:SetLabelObject(tc) - e:SetLabel(tc:GetAttack()) - Duel.Release(tc,REASON_COST) -end -function c140000075.rfilter(c) - return c:IsFaceup() and c:IsRace(RACE_DRAGON) -end -function c140000075.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c140000075.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - local tarp=e:GetLabelObject():GetControler() - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tarp,LOCATION_HAND+LOCATION_DECK) -end -function c140000075.filter(c,e,tp) - return c:IsCode(140000076) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c140000075.operation(e,tp,eg,ep,ev,re,r,rp) - local tarp=e:GetLabelObject():GetControler() - if Duel.GetLocationCount(tarp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c140000075.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tarp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tarp,true,false,POS_FACEUP) - local e1=Effect.CreateEffect(tc) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(e:GetLabel()+1000) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(tc) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_OATH) - e2:SetCode(EFFECT_CANNOT_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e2) - tc:CompleteProcedure() - end -end \ No newline at end of file diff --git a/script/c140000076.lua b/script/c140000076.lua deleted file mode 100644 index c06db2fe..00000000 --- a/script/c140000076.lua +++ /dev/null @@ -1,10 +0,0 @@ ---Diamond Head Dragon -function c140000076.initial_effect(c) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) -end \ No newline at end of file diff --git a/script/c14001430.lua b/script/c14001430.lua index e9594bdf..ec23d3d7 100644 --- a/script/c14001430.lua +++ b/script/c14001430.lua @@ -18,7 +18,7 @@ function c14001430.initial_effect(c) e2:SetValue(500) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --destroy local e4=Effect.CreateEffect(c) diff --git a/script/c14057297.lua b/script/c14057297.lua old mode 100755 new mode 100644 diff --git a/script/c14087893.lua b/script/c14087893.lua index 93dca53d..39a4db05 100644 --- a/script/c14087893.lua +++ b/script/c14087893.lua @@ -23,7 +23,7 @@ function c14087893.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c14087893.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + if tc:IsRelateToEffect(e) and tc:IsLocation(LOCATION_MZONE) and tc:IsFaceup() then + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c14094090.lua b/script/c14094090.lua old mode 100755 new mode 100644 index efc5d336..cf8689ca --- a/script/c14094090.lua +++ b/script/c14094090.lua @@ -14,7 +14,7 @@ function c14094090.initial_effect(c) c:RegisterEffect(e1) end function c14094090.ritual_filter(c) - return c:IsType(TYPE_RITUAL) and c:IsSetCard(0xcf) + return c:IsType(TYPE_RITUAL) and c:IsSetCard(0x10cf) end function c14094090.cfilter(c,att) return c:IsAttribute(att) and c:IsAbleToRemoveAsCost() @@ -32,7 +32,7 @@ function c14094090.spcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g1,POS_FACEUP,REASON_COST) end function c14094090.spfilter(c,e,tp) - return c:IsSetCard(0xcf) and c:IsType(TYPE_RITUAL) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) + return c:IsSetCard(0x10cf) and c:IsType(TYPE_RITUAL) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) end function c14094090.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 diff --git a/script/c1409474.lua b/script/c1409474.lua index c1bbf1f0..9ab2ef75 100644 --- a/script/c1409474.lua +++ b/script/c1409474.lua @@ -24,7 +24,7 @@ function c1409474.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetTargetParam(Duel.SelectOption(tp,70,71,72)) end function c1409474.spfilter(c,e,tp) - return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c1409474.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end @@ -39,6 +39,7 @@ function c1409474.operation(e,tp,eg,ep,ev,re,r,rp) Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,1,1,nil) + if sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c14148099.lua b/script/c14148099.lua index 40c53090..5f85d8c6 100644 --- a/script/c14148099.lua +++ b/script/c14148099.lua @@ -1,5 +1,6 @@ --巨大戦艦 ビッグ・コア function c14148099.initial_effect(c) + c:EnableCounterPermit(0x1f) --summon success local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(14148099,0)) @@ -40,7 +41,7 @@ function c14148099.addct(e,tp,eg,ep,ev,re,r,rp,chk) end function c14148099.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x1f+COUNTER_NEED_ENABLE,3) + e:GetHandler():AddCounter(0x1f,3) end end function c14148099.rctcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c14154221.lua b/script/c14154221.lua index 98bdbc39..b6694285 100644 --- a/script/c14154221.lua +++ b/script/c14154221.lua @@ -27,11 +27,11 @@ function c14154221.condition(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c14154221.cfilter,1,nil) end function c14154221.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end + if chkc then return chkc:IsOnField() end if chk==0 then return e:GetHandler():IsRelateToEffect(e) and not e:GetHandler():IsStatus(STATUS_CHAINING) - and Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + and Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c14154221.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c14225239.lua b/script/c14225239.lua old mode 100755 new mode 100644 diff --git a/script/c14235211.lua b/script/c14235211.lua old mode 100755 new mode 100644 diff --git a/script/c14258627.lua b/script/c14258627.lua index a3804a84..58e57c31 100644 --- a/script/c14258627.lua +++ b/script/c14258627.lua @@ -11,21 +11,28 @@ function c14258627.initial_effect(c) c:RegisterEffect(e1) --atk/def down local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SET_ATTACK_FINAL) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(0,LOCATION_MZONE) e2:SetCondition(c14258627.adcon) - e2:SetOperation(c14258627.addown) + e2:SetTarget(c14258627.adtg) + e2:SetValue(c14258627.atkval) c:RegisterEffect(e2) - --maintain - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e3:SetCode(EVENT_PHASE+PHASE_STANDBY) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCondition(c14258627.mtcon) - e3:SetOperation(c14258627.mtop) + local e3=e2:Clone() + e3:SetCode(EFFECT_SET_DEFENSE_FINAL) + e3:SetValue(c14258627.defval) c:RegisterEffect(e3) + --maintain + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e4:SetCode(EVENT_PHASE+PHASE_STANDBY) + e4:SetRange(LOCATION_MZONE) + e4:SetCountLimit(1) + e4:SetCondition(c14258627.mtcon) + e4:SetOperation(c14258627.mtop) + c:RegisterEffect(e4) end function c14258627.filter(c) return c:IsRace(RACE_ROCK) and c:IsAbleToRemoveAsCost() @@ -41,24 +48,17 @@ function c14258627.spop(e,tp,eg,ep,ev,re,r,rp,c) local g=Duel.SelectMatchingCard(tp,c14258627.filter,tp,LOCATION_GRAVE,0,2,2,nil) Duel.Remove(g,POS_FACEUP,REASON_COST) end -function c14258627.adcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()~=nil +function c14258627.adcon(e) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and e:GetHandler():GetBattleTarget() +end +function c14258627.adtg(e,c) + return c==e:GetHandler():GetBattleTarget() +end +function c14258627.atkval(e,c) + return c:GetAttack()/2 end -function c14258627.addown(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetBattleTarget() - if tc==nil then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(tc:GetAttack()/2) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e2:SetValue(tc:GetDefence()/2) - tc:RegisterEffect(e2) +function c14258627.defval(e,c) + return c:GetDefense()/2 end function c14258627.mtcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp diff --git a/script/c14261867.lua b/script/c14261867.lua index a829ece0..fa8c296f 100644 --- a/script/c14261867.lua +++ b/script/c14261867.lua @@ -28,13 +28,13 @@ end function c14261867.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c14261867.atkcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local bc=c:GetBattleTarget() - return c==Duel.GetAttacker() and bc and bc:GetBattlePosition()==POS_FACEDOWN_DEFENCE + return c==Duel.GetAttacker() and bc and bc:GetBattlePosition()==POS_FACEDOWN_DEFENSE end function c14261867.atkop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c14291024.lua b/script/c14291024.lua index 37c8dc57..afe3df46 100644 --- a/script/c14291024.lua +++ b/script/c14291024.lua @@ -34,7 +34,7 @@ function c14291024.initial_effect(c) c:RegisterEffect(e4) local e5=Effect.CreateEffect(c) e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_SET_DEFENCE_FINAL) + e5:SetCode(EFFECT_SET_DEFENSE_FINAL) e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e5:SetRange(LOCATION_MZONE) e5:SetCondition(c14291024.adcon) @@ -76,7 +76,7 @@ function c14291024.atkval(e,c) return c:GetFirstCardTarget():GetAttack() end function c14291024.defval(e,c) - return c:GetFirstCardTarget():GetDefence() + return c:GetFirstCardTarget():GetDefense() end function c14291024.sdcon(e) return e:GetHandler():GetFirstCardTarget()==nil and e:GetHandler():GetFlagEffect(14291024)~=0 diff --git a/script/c14306092.lua b/script/c14306092.lua index 5ebf4c9c..3f979d52 100644 --- a/script/c14306092.lua +++ b/script/c14306092.lua @@ -1,5 +1,6 @@ --牙鮫帝シャーク・カイゼル function c14306092.initial_effect(c) + c:EnableCounterPermit(0x2e) --xyz summon aux.AddXyzProcedure(c,nil,3,3,nil,nil,5) c:EnableReviveLimit() @@ -30,7 +31,7 @@ end function c14306092.ctop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - c:AddCounter(COUNTER_NEED_ENABLE+0x2e,1) + c:AddCounter(0x2e,1) end end function c14306092.atkcon(e) diff --git a/script/c14309486.lua b/script/c14309486.lua index 7218b05b..e6843c68 100644 --- a/script/c14309486.lua +++ b/script/c14309486.lua @@ -39,6 +39,8 @@ function c14309486.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_ROCK) and not c:IsPublic() end function c14309486.mtop(e,tp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c14309486.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c14309486.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -48,8 +50,10 @@ function c14309486.mtop(e,tp) select=Duel.SelectOption(tp,aux.Stringid(14309486,0),aux.Stringid(14309486,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(14309486,1),aux.Stringid(14309486,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(14309486,1),aux.Stringid(14309486,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(14309486,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -61,7 +65,7 @@ function c14309486.mtop(e,tp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c14309486.condition(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c14318794.lua b/script/c14318794.lua index 245d71b1..fde8a538 100644 --- a/script/c14318794.lua +++ b/script/c14318794.lua @@ -13,7 +13,6 @@ function c14318794.initial_effect(c) e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) e2:SetCode(EVENT_PHASE+PHASE_STANDBY) e2:SetCondition(c14318794.reccon) e2:SetTarget(c14318794.rectg) @@ -21,8 +20,8 @@ function c14318794.initial_effect(c) c:RegisterEffect(e2) if not c14318794.global_check then c14318794.global_check=true - c14318794[0]=0 - c14318794[1]=0 + c14318794[0]={} + c14318794[1]={} local ge1=Effect.CreateEffect(c) ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) ge1:SetCode(EVENT_PAY_LPCOST) @@ -37,21 +36,23 @@ function c14318794.initial_effect(c) end function c14318794.checkop(e,tp,eg,ep,ev,re,r,rp) if ep==Duel.GetTurnPlayer() then - c14318794[ep]=c14318794[ep]+ev + local val=math.ceil(ev/2) + table.insert(c14318794[ep],val) end end function c14318794.clear(e,tp,eg,ep,ev,re,r,rp) - c14318794[2]=c14318794[Duel.GetTurnPlayer()] - c14318794[Duel.GetTurnPlayer()]=0 + c14318794[2]={table.unpack(c14318794[Duel.GetTurnPlayer()])} + c14318794[Duel.GetTurnPlayer()]={} end function c14318794.reccon(e,tp,eg,ep,ev,re,r,rp) return tp==Duel.GetTurnPlayer() end function c14318794.rectg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end + if chk==0 then return c14318794[2][1] end Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(c14318794[2]/2) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,c14318794[2]/2) + Duel.SetTargetParam(c14318794[2][1]) + Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,c14318794[2][1]) + table.remove(c14318794[2],1) end function c14318794.recop(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end diff --git a/script/c14344682.lua b/script/c14344682.lua index f3026c1c..ff79f020 100644 --- a/script/c14344682.lua +++ b/script/c14344682.lua @@ -13,15 +13,15 @@ function c14344682.initial_effect(c) c:RegisterEffect(e1) end function c14344682.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDefencePos() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDefencePos,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEFENCE) - local g=Duel.SelectTarget(tp,Card.IsDefencePos,tp,0,LOCATION_MZONE,1,1,nil) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDefensePos() end + if chk==0 then return Duel.IsExistingTarget(Card.IsDefensePos,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEFENSE) + local g=Duel.SelectTarget(tp,Card.IsDefensePos,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) end function c14344682.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsDefencePos() then + if tc:IsRelateToEffect(e) and tc:IsDefensePos() then Duel.ChangePosition(tc,POS_FACEUP_ATTACK) end end diff --git a/script/c1435851.lua b/script/c1435851.lua index ae64b9b6..9537a93b 100644 --- a/script/c1435851.lua +++ b/script/c1435851.lua @@ -18,7 +18,7 @@ function c1435851.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(300) c:RegisterEffect(e3) --equip limit diff --git a/script/c14466224.lua b/script/c14466224.lua index 241295da..e0da67c5 100644 --- a/script/c14466224.lua +++ b/script/c14466224.lua @@ -1,4 +1,4 @@ ---Ｔｈｅ アトモスフィア +--The アトモスフィア function c14466224.initial_effect(c) c:EnableReviveLimit() --special summon @@ -66,7 +66,7 @@ function c14466224.eqop(e,tp,eg,ep,ev,re,r,rp) if tc:IsFaceup() and tc:IsRelateToEffect(e) then if c:IsFaceup() and c:IsRelateToEffect(e) then local atk=tc:GetTextAttack() - local def=tc:GetTextDefence() + local def=tc:GetTextDefense() if atk<0 then atk=0 end if def<0 then def=0 end if not Duel.Equip(tp,tc,c,false) then return end @@ -93,7 +93,7 @@ function c14466224.eqop(e,tp,eg,ep,ev,re,r,rp) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetReset(RESET_EVENT+0x1fe0000) e3:SetValue(def) tc:RegisterEffect(e3) diff --git a/script/c14469229.lua b/script/c14469229.lua index 997c0699..67ba8b77 100644 --- a/script/c14469229.lua +++ b/script/c14469229.lua @@ -48,7 +48,7 @@ function c14469229.operation(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetLabelObject() if tc:IsRelateToBattle() and tc:IsFaceup() then local atk=tc:GetBaseAttack() - local def=tc:GetBaseDefence() + local def=tc:GetBaseDefense() local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK_FINAL) @@ -56,7 +56,7 @@ function c14469229.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetValue(def*2) tc:RegisterEffect(e2) local e3=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c14506878.lua b/script/c14506878.lua index ef3fbea1..c47088d8 100644 --- a/script/c14506878.lua +++ b/script/c14506878.lua @@ -24,6 +24,5 @@ function c14506878.thop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c14512659.lua b/script/c14512659.lua deleted file mode 100644 index 875e6fd0..00000000 --- a/script/c14512659.lua +++ /dev/null @@ -1,37 +0,0 @@ ---覚星師ライズベルト -function c14512659.initial_effect(c) - --lv up - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(14512659,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetHintTiming(0x1c0) - e1:SetTarget(c14512659.target) - e1:SetOperation(c14512659.operation) - c:RegisterEffect(e1) -end -function c14512659.filter(c) - return c:IsFaceup() and c:IsLevelAbove(1) -end -function c14512659.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c14512659.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c14512659.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c14512659.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c14512659.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(1) - tc:RegisterEffect(e1) - end -end diff --git a/script/c14517422.lua b/script/c14517422.lua new file mode 100644 index 00000000..2e1d7657 --- /dev/null +++ b/script/c14517422.lua @@ -0,0 +1,28 @@ +--堕天使の戒壇 +function c14517422.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,14517422+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c14517422.sptg) + e1:SetOperation(c14517422.spop) + c:RegisterEffect(e1) +end +function c14517422.filter(c,e,tp) + return c:IsSetCard(0xef) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c14517422.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c14517422.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) +end +function c14517422.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c14517422.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + end +end diff --git a/script/c14541657.lua b/script/c14541657.lua old mode 100755 new mode 100644 index 4d717a88..8f12ed49 --- a/script/c14541657.lua +++ b/script/c14541657.lua @@ -8,11 +8,14 @@ function c14541657.initial_effect(c) e1:SetTargetRange(0,LOCATION_MZONE) e1:SetValue(c14541657.atlimit) c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetTargetRange(0,0xff) - e2:SetValue(c14541657.tglimit) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetTarget(c14541657.tglimit) + e2:SetValue(aux.tgoval) c:RegisterEffect(e2) --tohand local e3=Effect.CreateEffect(c) @@ -29,13 +32,13 @@ end function c14541657.atlimit(e,c) return c:IsFaceup() and c:IsSetCard(0x2b) and c~=e:GetHandler() end -function c14541657.tglimit(e,re,c) - return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsSetCard(0x2b) and c~=e:GetHandler() +function c14541657.tglimit(e,c) + return c:IsSetCard(0x2b) and c~=e:GetHandler() end function c14541657.thcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() return c:IsReason(REASON_BATTLE) - or (rp~=tp and c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp) + or (rp==1-tp and c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp) end function c14541657.thfilter(c) return c:IsSetCard(0x2b) and c:IsType(TYPE_MONSTER) and not c:IsCode(14541657) and c:IsAbleToHand() diff --git a/script/c14553285.lua b/script/c14553285.lua index 78650e2c..131be1c0 100644 --- a/script/c14553285.lua +++ b/script/c14553285.lua @@ -1,7 +1,7 @@ --アーカナイト・マジシャン／バスター function c14553285.initial_effect(c) c:EnableReviveLimit() - c:EnableCounterPermit(0x3001) + c:EnableCounterPermit(0x1) --Cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -48,27 +48,27 @@ function c14553285.initial_effect(c) end function c14553285.addct(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0x3001) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0x1) end function c14553285.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x3001,2) + e:GetHandler():AddCounter(0x1,2) end end function c14553285.attackup(e,c) - return c:GetCounter(0x3001)*1000 + return c:GetCounter(0x1)*1000 end function c14553285.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x3001,2,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x3001,2,REASON_COST) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,2,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1,2,REASON_COST) end function c14553285.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c14553285.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.Destroy(g,REASON_EFFECT) end function c14553285.spcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c14613029.lua b/script/c14613029.lua index 297cee1e..8e25f8c7 100644 --- a/script/c14613029.lua +++ b/script/c14613029.lua @@ -18,10 +18,10 @@ function c14613029.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c14613029.cfilter,tp,LOCATION_MZONE,0,2,nil) end function c14613029.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,2,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,2,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPPO) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,2,2,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,2,2,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c14613029.operation(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c14624296.lua b/script/c14624296.lua old mode 100755 new mode 100644 index 0c744840..978928d9 --- a/script/c14624296.lua +++ b/script/c14624296.lua @@ -65,8 +65,8 @@ end function c14624296.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if not c:IsRelateToEffect(e) then return end - if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then - elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then - Duel.SendtoGrave(c,REASON_EFFECT) + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c14677495.lua b/script/c14677495.lua index 1bb7751b..9777733c 100644 --- a/script/c14677495.lua +++ b/script/c14677495.lua @@ -36,8 +36,11 @@ function c14677495.sptg1(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c14677495.spop1(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c14677495.spcon2(e,tp,eg,ep,ev,re,r,rp) @@ -56,6 +59,6 @@ function c14677495.spop2(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c14677495.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c14729426.lua b/script/c14729426.lua index 4889b0b9..e4f2eb9e 100644 --- a/script/c14729426.lua +++ b/script/c14729426.lua @@ -35,9 +35,7 @@ function c14729426.cttg(e,tp,eg,ep,ev,re,r,rp,chk) end function c14729426.ctop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc and tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp) end end diff --git a/script/c14730606.lua b/script/c14730606.lua index ff94b464..6bdb6296 100644 --- a/script/c14730606.lua +++ b/script/c14730606.lua @@ -30,7 +30,7 @@ end function c14730606.drcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) - and c:GetPreviousControler()==tp and c:IsReason(REASON_DESTROY) and rp~=tp and c:IsStatus(STATUS_ACTIVATED) + and c:GetPreviousControler()==tp and c:IsReason(REASON_DESTROY) and rp~=tp end function c14730606.drtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c14731897.lua b/script/c14731897.lua index 48eb2518..6296dd4c 100644 --- a/script/c14731897.lua +++ b/script/c14731897.lua @@ -28,14 +28,14 @@ function c14731897.activate(e,tp,eg,ep,ev,re,r,rp) local def=0 local sc=g:GetFirst() while sc do - local cdef=sc:GetBaseDefence() + local cdef=sc:GetBaseDefense() if cdef<0 then cdef=0 end def=def+cdef sc=g:GetNext() end local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_DEFENCE) + e1:SetCode(EFFECT_SET_DEFENSE) e1:SetValue(def) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) diff --git a/script/c14733538.lua b/script/c14733538.lua index 69cac287..b7c77846 100644 --- a/script/c14733538.lua +++ b/script/c14733538.lua @@ -44,5 +44,5 @@ function c14733538.activate(e,tp,eg,ep,ev,re,r,rp) Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) end sg1:RemoveCard(tc) - Duel.PSendtoExtra(sg1,nil,REASON_EFFECT) + Duel.SendtoExtraP(sg1,nil,REASON_EFFECT) end diff --git a/script/c14735698.lua b/script/c14735698.lua old mode 100755 new mode 100644 index 3a3a25f9..c3e0b128 --- a/script/c14735698.lua +++ b/script/c14735698.lua @@ -20,16 +20,26 @@ function c14735698.initial_effect(c) e2:SetOperation(c14735698.thop) c:RegisterEffect(e2) end -function c14735698.filter(c,e,tp,m1,m2) +function c14735698.filter(c,e,tp,m1,m2,ft) if not c:IsSetCard(0xb4) or bit.band(c:GetType(),0x81)~=0x81 or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end local mg=m1:Filter(Card.IsCanBeRitualMaterial,c,c) mg:Merge(m2) - if c:IsCode(21105106) then return c:ritual_custom_condition(mg) end + if c:IsCode(21105106) then return c:ritual_custom_condition(mg,ft) end if c.mat_filter then mg=mg:Filter(c.mat_filter,nil) end - return mg:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,99,c) + if ft>0 then + return mg:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,99,c) + else + return ft>-1 and mg:IsExists(c14735698.mfilterf,1,nil,tp,mg,c) + end +end +function c14735698.mfilterf(c,tp,mg,rc) + if c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) then + Duel.SetSelectedCard(c) + return mg:CheckWithSumEqual(Card.GetRitualLevel,rc:GetLevel(),0,99,rc) + else return false end end function c14735698.mfilter(c) return c:IsSetCard(0xb4) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() @@ -38,15 +48,17 @@ function c14735698.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local mg1=Duel.GetRitualMaterial(tp) local mg2=Duel.GetMatchingGroup(c14735698.mfilter,tp,LOCATION_GRAVE,0,nil) - return Duel.IsExistingMatchingCard(c14735698.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg1,mg2) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + return Duel.IsExistingMatchingCard(c14735698.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg1,mg2,ft) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) end function c14735698.activate(e,tp,eg,ep,ev,re,r,rp) local mg1=Duel.GetRitualMaterial(tp) local mg2=Duel.GetMatchingGroup(c14735698.mfilter,tp,LOCATION_GRAVE,0,nil) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c14735698.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg1,mg2) + local tg=Duel.SelectMatchingCard(tp,c14735698.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg1,mg2,ft) local tc=tg:GetFirst() if tc then local mg=mg1:Filter(Card.IsCanBeRitualMaterial,tc,tc) @@ -59,8 +71,18 @@ function c14735698.activate(e,tp,eg,ep,ev,re,r,rp) if tc.mat_filter then mg=mg:Filter(tc.mat_filter,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),1,99,tc) + local mat=nil + if ft>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),1,99,tc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:FilterSelect(tp,c14735698.mfilterf,1,1,nil,tp,mg,tc) + Duel.SetSelectedCard(mat) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local mat2=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),0,99,tc) + mat:Merge(mat2) + end tc:SetMaterial(mat) Duel.ReleaseRitualMaterial(mat) end diff --git a/script/c14756848.lua b/script/c14756848.lua old mode 100755 new mode 100644 index b24ca47a..f381e008 --- a/script/c14756848.lua +++ b/script/c14756848.lua @@ -58,10 +58,10 @@ function c14756848.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c14756848.desfilter1(c) - return c:GetSequence()<5 and c:IsDestructable() + return c:GetSequence()<5 end function c14756848.desfilter2(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() + return (c:GetSequence()==6 or c:GetSequence()==7) end function c14756848.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then @@ -112,7 +112,7 @@ function c14756848.desop(e,tp,eg,ep,ev,re,r,rp) Duel.HintSelection(g) if Duel.Destroy(g,REASON_EFFECT)~=0 and (Duel.CheckLocation(tp,LOCATION_SZONE,6) or Duel.CheckLocation(tp,LOCATION_SZONE,7)) - and not tc:IsLocation(LOCATION_HAND+LOCATION_DECK) + and not tc:IsLocation(LOCATION_HAND+LOCATION_DECK) and not tc:IsForbidden() and Duel.SelectYesNo(tp,aux.Stringid(14756848,4)) then Duel.BreakEffect() Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) diff --git a/script/c14763299.lua b/script/c14763299.lua old mode 100755 new mode 100644 diff --git a/script/c14799437.lua b/script/c14799437.lua index cbe68852..c7347f12 100644 --- a/script/c14799437.lua +++ b/script/c14799437.lua @@ -1,130 +1,130 @@ ---インフェルノイド・ネヘモス -function c14799437.initial_effect(c) - c:EnableReviveLimit() - --special summon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND+LOCATION_GRAVE) - e2:SetCondition(c14799437.spcon) - e2:SetOperation(c14799437.spop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(14799437,0)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetTarget(c14799437.destg) - e3:SetOperation(c14799437.desop) - c:RegisterEffect(e3) - --negate - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(14799437,1)) - e4:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE) - e4:SetCode(EVENT_CHAINING) - e4:SetType(EFFECT_TYPE_QUICK_O) - e4:SetRange(LOCATION_MZONE) - e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e4:SetCountLimit(1) - e4:SetCondition(c14799437.negcon) - e4:SetCost(c14799437.negcost) - e4:SetTarget(c14799437.negtg) - e4:SetOperation(c14799437.negop) - c:RegisterEffect(e4) -end -function c14799437.spfilter(c) - return c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() -end -function c14799437.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local sum=0 - for i=0,4 do - local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i) - if tc and tc:IsFaceup() and tc:IsType(TYPE_EFFECT) then - if tc:IsType(TYPE_XYZ) then sum=sum+tc:GetRank() - else sum=sum+tc:GetLevel() end - end - end - if sum>8 then return false end - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<-2 then return false end - if c:IsHasEffect(34822850) then - if ft>0 then - return Duel.IsExistingMatchingCard(c14799437.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_HAND,0,3,c) - else - local ct=-ft+1 - return Duel.IsExistingMatchingCard(c14799437.spfilter,tp,LOCATION_MZONE,0,ct,nil) - and Duel.IsExistingMatchingCard(c14799437.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_HAND,0,3,c) - end - else - return ft>0 and Duel.IsExistingMatchingCard(c14799437.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,3,c) - end -end -function c14799437.spop(e,tp,eg,ep,ev,re,r,rp,c) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local g=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - if c:IsHasEffect(34822850) then - if ft>0 then - g=Duel.SelectMatchingCard(tp,c14799437.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_HAND,0,3,3,c) - else - local sg=Duel.GetMatchingGroup(c14799437.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_HAND,0,c) - local ct=-ft+1 - g=sg:FilterSelect(tp,Card.IsLocation,ct,ct,nil,LOCATION_MZONE) - if ct<3 then - sg:Sub(g) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g2=sg:Select(tp,3-ct,3-ct,nil) - g:Merge(g2) - end - end - else - g=Duel.SelectMatchingCard(tp,c14799437.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,3,3,c) - end - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c14799437.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c14799437.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end -end -function c14799437.negcon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) - and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and Duel.IsChainNegatable(ev) -end -function c14799437.cfilter(c) - return not c:IsStatus(STATUS_BATTLE_DESTROYED) -end -function c14799437.negcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c14799437.cfilter,1,nil) end - local g=Duel.SelectReleaseGroup(tp,c14799437.cfilter,1,1,nil) - Duel.Release(g,REASON_COST) -end -function c14799437.negtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsAbleToRemove() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0) - end -end -function c14799437.negop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Remove(eg,POS_FACEUP,REASON_EFFECT) - end -end +--インフェルノイド・ネヘモス +function c14799437.initial_effect(c) + c:EnableReviveLimit() + --special summon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_HAND+LOCATION_GRAVE) + e2:SetCondition(c14799437.spcon) + e2:SetOperation(c14799437.spop) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(14799437,0)) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetTarget(c14799437.destg) + e3:SetOperation(c14799437.desop) + c:RegisterEffect(e3) + --negate + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(14799437,1)) + e4:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE) + e4:SetCode(EVENT_CHAINING) + e4:SetType(EFFECT_TYPE_QUICK_O) + e4:SetRange(LOCATION_MZONE) + e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e4:SetCountLimit(1) + e4:SetCondition(c14799437.negcon) + e4:SetCost(c14799437.negcost) + e4:SetTarget(c14799437.negtg) + e4:SetOperation(c14799437.negop) + c:RegisterEffect(e4) +end +function c14799437.spfilter(c) + return c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() +end +function c14799437.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + local sum=0 + for i=0,4 do + local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i) + if tc and tc:IsFaceup() and tc:IsType(TYPE_EFFECT) then + if tc:IsType(TYPE_XYZ) then sum=sum+tc:GetRank() + else sum=sum+tc:GetLevel() end + end + end + if sum>8 then return false end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<-2 then return false end + if c:IsHasEffect(34822850) then + if ft>0 then + return Duel.IsExistingMatchingCard(c14799437.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_HAND,0,3,c) + else + local ct=-ft+1 + return Duel.IsExistingMatchingCard(c14799437.spfilter,tp,LOCATION_MZONE,0,ct,nil) + and Duel.IsExistingMatchingCard(c14799437.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_HAND,0,3,c) + end + else + return ft>0 and Duel.IsExistingMatchingCard(c14799437.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,3,c) + end +end +function c14799437.spop(e,tp,eg,ep,ev,re,r,rp,c) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local g=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + if c:IsHasEffect(34822850) then + if ft>0 then + g=Duel.SelectMatchingCard(tp,c14799437.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_HAND,0,3,3,c) + else + local sg=Duel.GetMatchingGroup(c14799437.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_HAND,0,c) + local ct=-ft+1 + g=sg:FilterSelect(tp,Card.IsLocation,ct,ct,nil,LOCATION_MZONE) + if ct<3 then + sg:Sub(g) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g2=sg:Select(tp,3-ct,3-ct,nil) + g:Merge(g2) + end + end + else + g=Duel.SelectMatchingCard(tp,c14799437.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,3,3,c) + end + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c14799437.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c14799437.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + if g:GetCount()>0 then + Duel.Destroy(g,REASON_EFFECT) + end +end +function c14799437.negcon(e,tp,eg,ep,ev,re,r,rp) + return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) + and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and Duel.IsChainNegatable(ev) +end +function c14799437.cfilter(c) + return not c:IsStatus(STATUS_BATTLE_DESTROYED) +end +function c14799437.negcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,c14799437.cfilter,1,nil) end + local g=Duel.SelectReleaseGroup(tp,c14799437.cfilter,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c14799437.negtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsAbleToRemove() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0) + end +end +function c14799437.negop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + if re:GetHandler():IsRelateToEffect(re) then + Duel.Remove(eg,POS_FACEUP,REASON_EFFECT) + end +end diff --git a/script/c14816688.lua b/script/c14816688.lua old mode 100755 new mode 100644 index 2f64fe36..2611eed2 --- a/script/c14816688.lua +++ b/script/c14816688.lua @@ -85,7 +85,7 @@ function c14816688.tdop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then - Duel.ShuffleDeck(tc:GetControler()) + if tc:IsLocation(LOCATION_DECK) then Duel.ShuffleDeck(tc:GetControler()) end Duel.BreakEffect() Duel.Draw(tp,1,REASON_EFFECT) end diff --git a/script/c14878871.lua b/script/c14878871.lua index a0c6a3e4..354d06d8 100644 --- a/script/c14878871.lua +++ b/script/c14878871.lua @@ -19,11 +19,13 @@ function c14878871.filter(c,e,tp) return c:IsLevelBelow(3) and c:IsRace(RACE_BEAST) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c14878871.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c14878871.filter,tp,LOCATION_DECK,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c14878871.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetMatchingGroup(c14878871.filter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()>=2 then diff --git a/script/c14883228.lua b/script/c14883228.lua old mode 100755 new mode 100644 index cc475c31..88f52841 --- a/script/c14883228.lua +++ b/script/c14883228.lua @@ -26,7 +26,7 @@ function c14883228.handcon(e) and Duel.IsExistingMatchingCard(c14883228.cfilter,tp,0,LOCATION_ONFIELD,2,nil) end function c14883228.filter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c14883228.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c14883228.filter(chkc) and chkc~=e:GetHandler() end diff --git a/script/c14886469.lua b/script/c14886469.lua old mode 100755 new mode 100644 index f97ef40c..3413760c --- a/script/c14886469.lua +++ b/script/c14886469.lua @@ -21,7 +21,7 @@ function c14886469.spcon(e,tp,eg,ep,ev,re,r,rp) end function c14886469.filter(c,e,tp) return c:IsLevelBelow(3) and c:IsRace(RACE_FIEND) and c:IsType(TYPE_TUNER) - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c14886469.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -32,7 +32,7 @@ function c14886469.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c14886469.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c14936691.lua b/script/c14936691.lua index ce1bad58..79726714 100644 --- a/script/c14936691.lua +++ b/script/c14936691.lua @@ -31,6 +31,6 @@ end function c14936691.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE,0,POS_FACEDOWN_DEFENCE,0) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE,0,POS_FACEDOWN_DEFENSE,0) end end diff --git a/script/c15013468.lua b/script/c15013468.lua index bb01396d..3f708efe 100644 --- a/script/c15013468.lua +++ b/script/c15013468.lua @@ -58,7 +58,7 @@ end function c15013468.damcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and bit.band(bc:GetBattlePosition(),POS_DEFENCE)~=0 + return c:IsRelateToBattle() and bit.band(bc:GetBattlePosition(),POS_DEFENSE)~=0 end function c15013468.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c15033525.lua b/script/c15033525.lua new file mode 100644 index 00000000..2abc1c2d --- /dev/null +++ b/script/c15033525.lua @@ -0,0 +1,79 @@ +--The blazing MARS +function c15033525.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(15033525,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_HAND+LOCATION_GRAVE) + e1:SetCost(c15033525.spcost) + e1:SetTarget(c15033525.sptg) + e1:SetOperation(c15033525.spop) + c:RegisterEffect(e1) + --damage + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(15033525,1)) + e2:SetCategory(CATEGORY_DAMAGE) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1,15033525) + e2:SetCondition(c15033525.damcon) + e2:SetCost(c15033525.damcost) + e2:SetTarget(c15033525.damtg) + e2:SetOperation(c15033525.damop) + c:RegisterEffect(e2) +end +function c15033525.costfilter(c) + return c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() +end +function c15033525.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c15033525.costfilter,tp,LOCATION_GRAVE,0,3,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c15033525.costfilter,tp,LOCATION_GRAVE,0,3,3,e:GetHandler()) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c15033525.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c15033525.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) + end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetReset(RESET_PHASE+PHASE_END) + e1:SetTargetRange(1,0) + Duel.RegisterEffect(e1,tp) +end +function c15033525.damcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()==PHASE_MAIN1 +end +function c15033525.ncostfilter(c) + return not c:IsAbleToGraveAsCost() +end +function c15033525.damcost(e,tp,eg,ep,ev,re,r,rp,chk) + local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0) + g:RemoveCard(e:GetHandler()) + if chk==0 then return g:GetCount()>0 and not g:IsExists(c15033525.ncostfilter,1,nil) end + Duel.SendtoGrave(g,REASON_COST) + local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_GRAVE) + e:SetLabel(ct) +end +function c15033525.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(e:GetLabel()*500) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,e:GetLabel()*500) +end +function c15033525.damop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) +end diff --git a/script/c15052462.lua b/script/c15052462.lua index 2500ad5c..79a60f83 100644 --- a/script/c15052462.lua +++ b/script/c15052462.lua @@ -18,7 +18,7 @@ function c15052462.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(300) c:RegisterEffect(e3) --equip limit diff --git a/script/c15083728.lua b/script/c15083728.lua index d24b1a6c..430ad488 100644 --- a/script/c15083728.lua +++ b/script/c15083728.lua @@ -16,14 +16,13 @@ end function c15083728.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local tc=eg:GetFirst() if chkc then return chkc==tc end - if chk==0 then return ep~=tp and tc:IsFaceup() and tc:GetDefence()<=500 and tc:IsOnField() - and tc:IsCanBeEffectTarget(e) and tc:IsDestructable() end + if chk==0 then return ep~=tp and tc:IsFaceup() and tc:GetDefense()<=500 and tc:IsOnField() and tc:IsCanBeEffectTarget(e) end Duel.SetTargetCard(eg) Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) end function c15083728.activate(e,tp,eg,ep,ev,re,r,rp) local tc=eg:GetFirst() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetDefence()<=500 then + if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetDefense()<=500 then Duel.Destroy(tc,REASON_EFFECT) end end diff --git a/script/c15146890.lua b/script/c15146890.lua index 5ce17da3..9cd60484 100644 --- a/script/c15146890.lua +++ b/script/c15146890.lua @@ -29,7 +29,7 @@ function c15146890.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,c15146890.cfilter,1,1,REASON_COST+REASON_DISCARD) end function c15146890.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c15146890.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c15146890.filter(chkc) end diff --git a/script/c15155568.lua b/script/c15155568.lua index ac896855..3b731cef 100644 --- a/script/c15155568.lua +++ b/script/c15155568.lua @@ -11,7 +11,7 @@ function c15155568.initial_effect(c) c:RegisterEffect(e1) --disable local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY) e2:SetCode(EVENT_CHAINING) e2:SetRange(LOCATION_GRAVE) @@ -22,11 +22,7 @@ function c15155568.initial_effect(c) c:RegisterEffect(e2) end function c15155568.cfilter(c) - if c:IsFacedown() or not c.material then return false end - for i,mcode in ipairs(c.material) do - if mcode==78193831 then return true end - end - return false + return c:IsFaceup() and aux.IsMaterialListCode(c,78193831) end function c15155568.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c15155568.cfilter,tp,LOCATION_MZONE,0,1,nil) diff --git a/script/c1516510.lua b/script/c1516510.lua index e0e6ed87..2aac1076 100644 --- a/script/c1516510.lua +++ b/script/c1516510.lua @@ -26,7 +26,7 @@ function c1516510.operation(e,tp,eg,ep,ev,re,r,rp) if bit.band(flag,0x3)~=0 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) + e1:SetCode(EFFECT_EXTRA_ATTACK_MONSTER) e1:SetProperty(EFFECT_FLAG_CLIENT_HINT) if bit.band(flag,0x1)~=0 then e1:SetDescription(aux.Stringid(1516510,0)) @@ -38,16 +38,6 @@ function c1516510.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) end - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e2:SetCondition(c1516510.dircon) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_CANNOT_ATTACK) - e3:SetCondition(c1516510.atkcon) - c:RegisterEffect(e3) if bit.band(flag,0x4)~=0 then local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) @@ -58,12 +48,6 @@ function c1516510.operation(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e4) end end -function c1516510.dircon(e) - return e:GetHandler():GetAttackAnnouncedCount()>0 -end -function c1516510.atkcon(e) - return e:GetHandler():IsDirectAttacked() -end function c1516510.efilter(e,re) return e:GetOwnerPlayer()~=re:GetOwnerPlayer() end diff --git a/script/c15175429.lua b/script/c15175429.lua index f67638cc..7a9f232d 100644 --- a/script/c15175429.lua +++ b/script/c15175429.lua @@ -4,7 +4,7 @@ function c15175429.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(15175429,0)) e1:SetCategory(CATEGORY_DAMAGE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetCode(EVENT_CHAINING) e1:SetRange(LOCATION_MZONE) diff --git a/script/c15180041.lua b/script/c15180041.lua new file mode 100644 index 00000000..af19fa41 --- /dev/null +++ b/script/c15180041.lua @@ -0,0 +1,108 @@ +--沈黙の剣士－サイレント・ソードマン +function c15180041.initial_effect(c) + c:EnableReviveLimit() + --cannot special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_HAND) + e2:SetCondition(c15180041.spcon) + e2:SetOperation(c15180041.spop) + c:RegisterEffect(e2) + --atk up + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(15180041,0)) + e3:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EVENT_PHASE+PHASE_STANDBY) + e3:SetCountLimit(1) + e3:SetOperation(c15180041.atkop) + c:RegisterEffect(e3) + --negate + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(15180041,1)) + e4:SetCategory(CATEGORY_NEGATE) + e4:SetType(EFFECT_TYPE_QUICK_O) + e4:SetCode(EVENT_CHAINING) + e4:SetCountLimit(1) + e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e4:SetRange(LOCATION_MZONE) + e4:SetCondition(c15180041.condition) + e4:SetTarget(c15180041.target) + e4:SetOperation(c15180041.operation) + c:RegisterEffect(e4) + --spsummon + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(15180041,2)) + e5:SetCategory(CATEGORY_SPECIAL_SUMMON) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e5:SetProperty(EFFECT_FLAG_DELAY) + e5:SetCode(EVENT_DESTROYED) + e5:SetCondition(c15180041.spcon2) + e5:SetTarget(c15180041.sptg2) + e5:SetOperation(c15180041.spop2) + c:RegisterEffect(e5) +end +function c15180041.spcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.CheckReleaseGroup(c:GetControler(),Card.IsRace,1,nil,RACE_WARRIOR) +end +function c15180041.spop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.SelectReleaseGroup(c:GetControler(),Card.IsRace,1,1,nil,RACE_WARRIOR) + Duel.Release(g,REASON_COST) +end +function c15180041.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and c:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(500) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + end +end +function c15180041.condition(e,tp,eg,ep,ev,re,r,rp) + return re:IsActiveType(TYPE_SPELL) and re:IsHasType(EFFECT_TYPE_ACTIVATE) + and Duel.IsChainNegatable(ev) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) +end +function c15180041.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) +end +function c15180041.operation(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then + Duel.SendtoGrave(eg,REASON_EFFECT) + end +end +function c15180041.spcon2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return (c:IsReason(REASON_BATTLE) or (rp~=tp and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp)) + and c:IsPreviousLocation(LOCATION_ONFIELD) +end +function c15180041.filter(c,e,tp) + return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xe7) and not c:IsCode(15180041) + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) +end +function c15180041.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c15180041.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) +end +function c15180041.spop2(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c15180041.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) + end +end diff --git a/script/c15187079.lua b/script/c15187079.lua index 12b47d3d..6c7cad39 100644 --- a/script/c15187079.lua +++ b/script/c15187079.lua @@ -1,6 +1,6 @@ --地縛神 Uru function c15187079.initial_effect(c) - c:SetUniqueOnField(1,1,10000000) + c:SetUniqueOnField(1,1,10000000,LOCATION_MZONE) -- local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) @@ -59,9 +59,7 @@ function c15187079.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c15187079.ctop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c15248873.lua b/script/c15248873.lua index 1b4a75cd..b511f86e 100644 --- a/script/c15248873.lua +++ b/script/c15248873.lua @@ -33,6 +33,6 @@ function c15248873.operation(e,tp,eg,ep,ev,re,r,rp) local tep=tc:GetControler() local cost=te:GetCost() if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end - Duel.RaiseEvent(tc,EVENT_CHAIN_SOLVED,tc:GetActivateEffect(),0,tp,tp,Duel.GetCurrentChain()) + Duel.RaiseEvent(tc,EVENT_CHAIN_SOLVED,te,0,tp,tp,Duel.GetCurrentChain()) end end diff --git a/script/c15259704.lua b/script/c15259704.lua deleted file mode 100644 index 62b880be..00000000 --- a/script/c15259704.lua +++ /dev/null @@ -1,13 +0,0 @@ ---トゥーン·ワールド -function c15259704.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c15259704.cost) - c:RegisterEffect(e1) -end -function c15259704.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,1000) end - Duel.PayLPCost(tp,1000) -end diff --git a/script/c15270885.lua b/script/c15270885.lua old mode 100755 new mode 100644 index 047d3d07..923fdd6d --- a/script/c15270885.lua +++ b/script/c15270885.lua @@ -26,7 +26,7 @@ function c15270885.initial_effect(c) e5:SetCode(EFFECT_DIRECT_ATTACK) e5:SetCondition(c15270885.dircon) c:RegisterEffect(e5) - --to defence + --to defense local e6=Effect.CreateEffect(c) e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e6:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -68,7 +68,7 @@ end function c15270885.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c15286412.lua b/script/c15286412.lua old mode 100755 new mode 100644 index 2c86a3db..b46ff990 --- a/script/c15286412.lua +++ b/script/c15286412.lua @@ -1,58 +1,58 @@ ---極星宝グングニル -function c15286412.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c15286412.cost) - e1:SetTarget(c15286412.target) - e1:SetOperation(c15286412.activate) - c:RegisterEffect(e1) -end -function c15286412.cfilter(c) - return c:IsFaceup() and (c:IsSetCard(0x42) or c:IsSetCard(0x4b)) and c:IsAbleToRemoveAsCost() -end -function c15286412.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(1) - if chk==0 then return Duel.IsExistingMatchingCard(c15286412.cfilter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c15286412.cfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST+REASON_TEMPORARY) - e:SetLabelObject(g:GetFirst()) -end -function c15286412.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsDestructable() and chkc~=e:GetHandler() end - if chk==0 then - e:SetLabel(0) - return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c15286412.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 and e:GetLabel()==1 then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetCondition(c15286412.retcon) - e1:SetOperation(c15286412.retop) - e1:SetLabel(2) - e1:SetLabelObject(e:GetLabelObject()) - e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,2) - Duel.RegisterEffect(e1,tp) - end -end -function c15286412.retcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c15286412.retop(e,tp,eg,ep,ev,re,r,rp) - local ct=e:GetLabel() - ct=ct-1 - e:SetLabel(ct) - if ct==0 then Duel.ReturnToField(e:GetLabelObject(),POS_FACEUP_ATTACK) end -end +--極星宝グングニル +function c15286412.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCost(c15286412.cost) + e1:SetTarget(c15286412.target) + e1:SetOperation(c15286412.activate) + c:RegisterEffect(e1) +end +function c15286412.cfilter(c) + return c:IsFaceup() and (c:IsSetCard(0x42) or c:IsSetCard(0x4b)) and c:IsAbleToRemoveAsCost() +end +function c15286412.cost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(1) + if chk==0 then return Duel.IsExistingMatchingCard(c15286412.cfilter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c15286412.cfilter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST+REASON_TEMPORARY) + e:SetLabelObject(g:GetFirst()) +end +function c15286412.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc~=e:GetHandler() end + if chk==0 then + e:SetLabel(0) + return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c15286412.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 and e:GetLabel()==1 then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_PHASE+PHASE_END) + e1:SetCountLimit(1) + e1:SetCondition(c15286412.retcon) + e1:SetOperation(c15286412.retop) + e1:SetLabel(2) + e1:SetLabelObject(e:GetLabelObject()) + e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,2) + Duel.RegisterEffect(e1,tp) + end +end +function c15286412.retcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c15286412.retop(e,tp,eg,ep,ev,re,r,rp) + local ct=e:GetLabel() + ct=ct-1 + e:SetLabel(ct) + if ct==0 then Duel.ReturnToField(e:GetLabelObject(),POS_FACEUP_ATTACK) end +end diff --git a/script/c15317640.lua b/script/c15317640.lua index e2006304..9cbcc3dd 100644 --- a/script/c15317640.lua +++ b/script/c15317640.lua @@ -1,5 +1,6 @@ --巨大戦艦 カバード・コア function c15317640.initial_effect(c) +c:EnableCounterPermit(0x1f) --summon success local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(15317640,0)) @@ -41,7 +42,7 @@ function c15317640.addct(e,tp,eg,ep,ev,re,r,rp,chk) end function c15317640.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x1f+COUNTER_NEED_ENABLE,2) + e:GetHandler():AddCounter(0x1f,2) end end function c15317640.rctcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c15341821.lua b/script/c15341821.lua index ff33c7bc..b2a735c4 100644 --- a/script/c15341821.lua +++ b/script/c15341821.lua @@ -16,11 +16,12 @@ function c15341821.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c15341821.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end if not Duel.IsPlayerCanSpecialSummonMonster(tp,15341822,0,0x4011,0,0,1,RACE_PLANT,ATTRIBUTE_WIND) then return end for i=1,2 do local token=Duel.CreateToken(tp,15341821+i) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UNRELEASABLE_SUM) diff --git a/script/c15383415.lua b/script/c15383415.lua index ea2cde59..ce04b4d6 100644 --- a/script/c15383415.lua +++ b/script/c15383415.lua @@ -29,14 +29,14 @@ end function c15383415.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c15383415.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c15383415.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c15394083.lua b/script/c15394083.lua index 6367381b..22c5aab7 100644 --- a/script/c15394083.lua +++ b/script/c15394083.lua @@ -20,6 +20,7 @@ function c15394083.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c15394083.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end if not Duel.IsPlayerCanSpecialSummonMonster(tp,15394084,0x6042,0x4011,0,0,3,RACE_BEAST,ATTRIBUTE_EARTH) then return end for i=1,2 do diff --git a/script/c15452043.lua b/script/c15452043.lua index f21b95e3..14951620 100644 --- a/script/c15452043.lua +++ b/script/c15452043.lua @@ -37,7 +37,7 @@ function c15452043.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) tc=g:GetNext() end diff --git a/script/c15452045.lua b/script/c15452045.lua deleted file mode 100644 index 51be0a4a..00000000 --- a/script/c15452045.lua +++ /dev/null @@ -1,44 +0,0 @@ ---EMソード・フィッシュ -function c15452045.initial_effect(c) - --addown - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(15452045,0)) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetOperation(c15452045.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - --addown - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(15452045,1)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c15452045.condition) - e3:SetOperation(c15452045.operation) - c:RegisterEffect(e3) -end -function c15452045.cfilter(c,tp) - return c:GetSummonPlayer()==tp -end -function c15452045.condition(e,tp,eg,ep,ev,re,r,rp) - return not eg:IsContains(e:GetHandler()) and eg:IsExists(c15452045.cfilter,1,nil,tp) -end -function c15452045.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-600) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - tc:RegisterEffect(e2) - tc=g:GetNext() - end -end diff --git a/script/c1546124.lua b/script/c1546124.lua deleted file mode 100644 index a0143e95..00000000 --- a/script/c1546124.lua +++ /dev/null @@ -1,13 +0,0 @@ ---サイバー·エンド·ドラゴン -function c1546124.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCodeRep(c,70095154,3,false,true) - --pierce - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e2) -end -c1546124.material_count=1 -c1546124.material={70095154} diff --git a/script/c15471265.lua b/script/c15471265.lua index 1fc5a73b..c45a2c56 100644 --- a/script/c15471265.lua +++ b/script/c15471265.lua @@ -47,9 +47,9 @@ function c15471265.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetValue(rc:GetTextDefence()) + e2:SetValue(rc:GetTextDefense()) tc:RegisterEffect(e2) end end diff --git a/script/c15475415.lua b/script/c15475415.lua index c27b3dd3..52df7dbc 100644 --- a/script/c15475415.lua +++ b/script/c15475415.lua @@ -30,8 +30,11 @@ function c15475415.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c15475415.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),1,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c15475415.ctcon(e,tp,eg,ep,ev,re,r,rp) @@ -43,6 +46,6 @@ function c15475415.ctop(e,tp,eg,ep,ev,re,r,rp) for i=1,2 do Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) local sg=g:Select(tp,1,1,nil) - sg:GetFirst():AddCounter(0xe,1) + sg:GetFirst():AddCounter(0x100e,1) end end diff --git a/script/c15495787.lua b/script/c15495787.lua index e50013a1..46d72f96 100644 --- a/script/c15495787.lua +++ b/script/c15495787.lua @@ -38,8 +38,8 @@ function c15495787.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c15495787.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) @@ -49,5 +49,8 @@ function c15495787.spop(e,tp,eg,ep,ev,re,r,rp) local e2=e1:Clone() e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) c:RegisterEffect(e2) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c15502037.lua b/script/c15502037.lua new file mode 100644 index 00000000..f08e3397 --- /dev/null +++ b/script/c15502037.lua @@ -0,0 +1,69 @@ +--電磁石の戦士γ +function c15502037.initial_effect(c) + --to hand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(15502037,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetCountLimit(1,15502037) + e1:SetTarget(c15502037.target) + e1:SetOperation(c15502037.operation) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(15502037,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c15502037.spcon) + e3:SetCost(c15502037.spcost) + e3:SetTarget(c15502037.sptg) + e3:SetOperation(c15502037.spop) + c:RegisterEffect(e3) +end +function c15502037.filter(c,e,tp) + return c:IsSetCard(0x2066) and not c:IsCode(15502037) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c15502037.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c15502037.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c15502037.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c15502037.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 +function c15502037.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp +end +function c15502037.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c15502037.spfilter(c,e,tp) + return c:IsSetCard(0x2066) and c:GetLevel()==4 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c15502037.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c15502037.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c15502037.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c15502037.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + end +end diff --git a/script/c15521027.lua b/script/c15521027.lua index 65c22900..ba80018e 100644 --- a/script/c15521027.lua +++ b/script/c15521027.lua @@ -71,7 +71,7 @@ function c15521027.opa(e,tp,eg,ep,ev,re,r,rp) Duel.ShuffleDeck(tp) end function c15521027.cond(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end function c15521027.tgd(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end diff --git a/script/c15545291.lua b/script/c15545291.lua index 8bc1f2e3..0d8b8a8f 100644 --- a/script/c15545291.lua +++ b/script/c15545291.lua @@ -50,7 +50,7 @@ function c15545291.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE end function c15545291.desfilter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c15545291.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c15545291.desfilter(chkc) end diff --git a/script/c15552258.lua b/script/c15552258.lua index ef7daea4..d2c1d519 100644 --- a/script/c15552258.lua +++ b/script/c15552258.lua @@ -10,7 +10,7 @@ function c15552258.initial_effect(c) c:RegisterEffect(e1) end function c15552258.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() and Duel.GetCurrentPhase()==PHASE_BATTLE + return tp~=Duel.GetTurnPlayer() and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c15552258.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) diff --git a/script/c15561463.lua b/script/c15561463.lua index 335dede5..7843b490 100644 --- a/script/c15561463.lua +++ b/script/c15561463.lua @@ -19,14 +19,11 @@ function c15561463.descost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end -function c15561463.filter(c) - return c:IsDestructable() -end function c15561463.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c15561463.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c15561463.filter,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c15561463.filter,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c15561463.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c15574615.lua b/script/c15574615.lua index ba65d5bf..b8c55651 100644 --- a/script/c15574615.lua +++ b/script/c15574615.lua @@ -24,7 +24,7 @@ function c15574615.initial_effect(c) end function c15574615.sprfilter(c) return (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsAbleToGraveAsCost() - and (c:IsCode(80208158) or c:IsCode(16796157) or c:IsCode(43791861) or c:IsCode(79185500)) + and c:IsCode(80208158,16796157,43791861,79185500) end function c15574615.spcon(e,c) if c==nil then return true end @@ -63,7 +63,8 @@ function c15574615.spfilter(c,e,tp,code) end function c15574615.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>=3 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>=3 and Duel.IsExistingTarget(c15574615.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,80208158) and Duel.IsExistingTarget(c15574615.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,16796157) and Duel.IsExistingTarget(c15574615.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,43791861) @@ -82,6 +83,7 @@ function c15574615.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,4,0,0) end function c15574615.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if g:GetCount()>ft then return end diff --git a/script/c1557499.lua b/script/c1557499.lua index 577e2a2d..46603322 100644 --- a/script/c1557499.lua +++ b/script/c1557499.lua @@ -18,7 +18,7 @@ function c1557499.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(300) c:RegisterEffect(e3) --equip limit diff --git a/script/c15582767.lua b/script/c15582767.lua old mode 100755 new mode 100644 index 09ffad41..8aeb476c --- a/script/c15582767.lua +++ b/script/c15582767.lua @@ -23,7 +23,7 @@ function c15582767.initial_effect(c) c:RegisterEffect(e2) end function c15582767.filter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() + return (c:GetSequence()==6 or c:GetSequence()==7) end function c15582767.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and c15582767.filter(chkc) end diff --git a/script/c15595052.lua b/script/c15595052.lua index f6ef2845..3dc2278b 100644 --- a/script/c15595052.lua +++ b/script/c15595052.lua @@ -1,6 +1,6 @@ --封魔の伝承者 function c15595052.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(15595052,0)) e1:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) diff --git a/script/c15609017.lua b/script/c15609017.lua old mode 100755 new mode 100644 index 5b0ecaa9..1c51c74d --- a/script/c15609017.lua +++ b/script/c15609017.lua @@ -1,45 +1,45 @@ ---ヒドゥン・ショット -function c15609017.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c15609017.cost) - e1:SetTarget(c15609017.target) - e1:SetOperation(c15609017.activate) - c:RegisterEffect(e1) -end -function c15609017.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(1) - return true -end -function c15609017.costfilter(c) - return c:IsSetCard(0x2016) and c:IsAbleToRemoveAsCost() -end -function c15609017.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then - if e:GetLabel()==1 then - e:SetLabel(0) - return Duel.IsExistingMatchingCard(c15609017.costfilter,tp,LOCATION_GRAVE,0,1,nil) - and Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) - else return false end - end - e:SetLabel(0) - local rt=Duel.GetTargetCount(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - if rt>2 then rt=2 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local cg=Duel.SelectMatchingCard(tp,c15609017.costfilter,tp,LOCATION_GRAVE,0,1,rt,nil) - local ct=cg:GetCount() - Duel.Remove(cg,POS_FACEUP,REASON_COST) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,ct,ct,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c15609017.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - Duel.Destroy(sg,REASON_EFFECT) -end +--ヒドゥン・ショット +function c15609017.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCost(c15609017.cost) + e1:SetTarget(c15609017.target) + e1:SetOperation(c15609017.activate) + c:RegisterEffect(e1) +end +function c15609017.cost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(1) + return true +end +function c15609017.costfilter(c) + return c:IsSetCard(0x2016) and c:IsAbleToRemoveAsCost() +end +function c15609017.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then + if e:GetLabel()==1 then + e:SetLabel(0) + return Duel.IsExistingMatchingCard(c15609017.costfilter,tp,LOCATION_GRAVE,0,1,nil) + and Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) + else return false end + end + e:SetLabel(0) + local rt=Duel.GetTargetCount(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + if rt>2 then rt=2 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local cg=Duel.SelectMatchingCard(tp,c15609017.costfilter,tp,LOCATION_GRAVE,0,1,rt,nil) + local ct=cg:GetCount() + Duel.Remove(cg,POS_FACEUP,REASON_COST) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,ct,ct,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c15609017.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local sg=g:Filter(Card.IsRelateToEffect,nil,e) + Duel.Destroy(sg,REASON_EFFECT) +end diff --git a/script/c15610297.lua b/script/c15610297.lua new file mode 100644 index 00000000..042d6799 --- /dev/null +++ b/script/c15610297.lua @@ -0,0 +1,81 @@ +--方界胤ヴィジャム +function c15610297.initial_effect(c) + --cannot destroy + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetValue(1) + c:RegisterEffect(e1) + --battle + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(15610297,0)) + e2:SetCategory(CATEGORY_COUNTER) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_DAMAGE_STEP_END) + e2:SetTarget(c15610297.distg) + e2:SetOperation(c15610297.disop) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(15610297,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_SZONE) + e3:SetCondition(c15610297.spcon) + e3:SetTarget(c15610297.sptg) + e3:SetOperation(c15610297.spop) + c:RegisterEffect(e3) +end +function c15610297.distg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + local bc=c:GetBattleTarget() + if chk==0 then return bc and bc:IsFaceup() and bc:IsRelateToBattle() + and c:IsLocation(LOCATION_MZONE) and c:IsRelateToBattle() end +end +function c15610297.disop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) or not c:IsLocation(LOCATION_MZONE) then return end + Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) + local e1=Effect.CreateEffect(c) + e1:SetCode(EFFECT_CHANGE_TYPE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fc0000) + e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) + c:RegisterEffect(e1) + c:RegisterFlagEffect(15610297,RESET_EVENT+0x1fc0000,0,1) + local bc=c:GetBattleTarget() + if bc:IsRelateToBattle() and bc:IsFaceup() then + bc:AddCounter(0x1038,1) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetCondition(c15610297.condition) + e1:SetReset(RESET_EVENT+0x1fe0000) + bc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_DISABLE) + bc:RegisterEffect(e2) + end +end +function c15610297.condition(e) + return e:GetHandler():GetCounter(0x1038)>0 +end +function c15610297.spcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(15610297)~=0 +end +function c15610297.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c15610297.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end diff --git a/script/c1561110.lua b/script/c1561110.lua new file mode 100644 index 00000000..a8994c14 --- /dev/null +++ b/script/c1561110.lua @@ -0,0 +1,160 @@ +--ABC－ドラゴン・バスター +function c1561110.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcCode3(c,30012506,77411244,3405259,true,true) + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(c1561110.splimit) + c:RegisterEffect(e1) + --special summon rule + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_EXTRA) + e2:SetCondition(c1561110.spcon) + e2:SetOperation(c1561110.spop) + c:RegisterEffect(e2) + --remove + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(1561110,0)) + e3:SetCategory(CATEGORY_REMOVE) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetRange(LOCATION_MZONE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCountLimit(1) + e3:SetHintTiming(0,0x1e0) + e3:SetCost(c1561110.rmcost) + e3:SetTarget(c1561110.rmtg) + e3:SetOperation(c1561110.rmop) + c:RegisterEffect(e3) + --spsummon + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(1561110,1)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetType(EFFECT_TYPE_QUICK_O) + e4:SetCode(EVENT_FREE_CHAIN) + e4:SetRange(LOCATION_MZONE) + e4:SetHintTiming(0,0x1e0) + e4:SetCondition(c1561110.spcon2) + e4:SetCost(c1561110.spcost2) + e4:SetTarget(c1561110.sptg2) + e4:SetOperation(c1561110.spop2) + c:RegisterEffect(e4) +end +function c1561110.splimit(e,se,sp,st) + return not e:GetHandler():IsLocation(LOCATION_EXTRA) +end +function c1561110.rmfilter(c) + return c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial(nil,true) +end +function c1561110.rmfilter1(c,mg,ft) + local mg2=mg:Clone() + mg2:RemoveCard(c) + local ct=ft + if c:IsLocation(LOCATION_MZONE) then ct=ct+1 end + return c:IsFusionCode(30012506) and mg2:IsExists(c1561110.rmfilter2,1,nil,mg2,ct) +end +function c1561110.rmfilter2(c,mg,ft) + local mg2=mg:Clone() + mg2:RemoveCard(c) + local ct=ft + if c:IsLocation(LOCATION_MZONE) then ct=ct+1 end + return c:IsFusionCode(77411244) and mg2:IsExists(c1561110.rmfilter3,1,nil,ct) +end +function c1561110.rmfilter3(c,ft) + local ct=ft + if c:IsLocation(LOCATION_MZONE) then ct=ct+1 end + return c:IsFusionCode(3405259) and ct>0 +end +function c1561110.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<-2 then return false end + local mg=Duel.GetMatchingGroup(c1561110.rmfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil) + return mg:IsExists(c1561110.rmfilter1,1,nil,mg,ft) +end +function c1561110.spop(e,tp,eg,ep,ev,re,r,rp,c) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local mg=Duel.GetMatchingGroup(c1561110.rmfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g1=mg:FilterSelect(tp,c1561110.rmfilter1,1,1,nil,mg,ft) + local tc1=g1:GetFirst() + mg:RemoveCard(tc1) + if tc1:IsLocation(LOCATION_MZONE) then ft=ft+1 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g2=mg:FilterSelect(tp,c1561110.rmfilter2,1,1,nil,mg,ft) + local tc2=g2:GetFirst() + if tc2:IsLocation(LOCATION_MZONE) then ft=ft+1 end + mg:RemoveCard(tc2) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g3=mg:FilterSelect(tp,c1561110.rmfilter3,1,1,nil,ft) + g1:Merge(g2) + g1:Merge(g3) + Duel.Remove(g1,POS_FACEUP,REASON_COST) +end +function c1561110.rmcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end + Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) +end +function c1561110.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsAbleToRemove() end + if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) +end +function c1561110.rmop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) + end +end +function c1561110.spcon2(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp +end +function c1561110.spcost2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c1561110.spfilter(c,e,tp) + return c:IsFaceup() and c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT) + and c:IsType(TYPE_UNION) and c:IsCanBeEffectTarget(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c1561110.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + local g=Duel.GetMatchingGroup(c1561110.spfilter,tp,LOCATION_REMOVED,0,nil,e,tp) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and g:GetClassCount(Card.GetCode)>2 + and not Duel.IsPlayerAffectedByEffect(tp,59822133) end + local sg=Group.CreateGroup() + for i=1,3 do + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g1=g:Select(tp,1,1,nil) + g:Remove(Card.IsCode,nil,g1:GetFirst():GetCode()) + sg:Merge(g1) + end + Duel.SetTargetCard(sg) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg,3,0,0) +end +function c1561110.spop2(e,tp,eg,ep,ev,re,r,rp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if ft<=0 or g:GetCount()==0 or (g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) then return end + if g:GetCount()<=ft then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg=g:Select(tp,ft,ft,nil) + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) + g:Sub(sg) + Duel.SendtoGrave(g,REASON_RULE) + end +end diff --git a/script/c15629801.lua b/script/c15629801.lua index 3672076e..5ef32c1c 100644 --- a/script/c15629801.lua +++ b/script/c15629801.lua @@ -12,7 +12,7 @@ function c15629801.initial_effect(c) end function c15629801.filter(c,e,tp) return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) - and Duel.IsPlayerCanSpecialSummonMonster(tp,15629802,0,0x4011,c:GetAttack(),c:GetDefence(),c:GetLevel(),c:GetRace(),c:GetAttribute()) + and Duel.IsPlayerCanSpecialSummonMonster(tp,15629802,0,0x4011,c:GetAttack(),c:GetDefense(),c:GetLevel(),c:GetRace(),c:GetAttribute()) end function c15629801.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c15629801.filter(chkc,e,tp) end @@ -27,7 +27,7 @@ function c15629801.activate(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local tc=Duel.GetFirstTarget() if tc:IsFacedown() or not tc:IsRelateToEffect(e) then return end - if not Duel.IsPlayerCanSpecialSummonMonster(tp,15629802,0,0x4011,tc:GetAttack(),tc:GetDefence(),tc:GetLevel(),tc:GetRace(),tc:GetAttribute()) then return end + if not Duel.IsPlayerCanSpecialSummonMonster(tp,15629802,0,0x4011,tc:GetAttack(),tc:GetDefense(),tc:GetLevel(),tc:GetRace(),tc:GetAttribute()) then return end local token=Duel.CreateToken(tp,15629802) Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) local e1=Effect.CreateEffect(e:GetHandler()) @@ -37,8 +37,8 @@ function c15629801.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) token:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) - e2:SetValue(tc:GetDefence()) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) + e2:SetValue(tc:GetDefense()) token:RegisterEffect(e2) local e3=e1:Clone() e3:SetCode(EFFECT_CHANGE_LEVEL) diff --git a/script/c15658249.lua b/script/c15658249.lua index fb6c6c73..707e9644 100644 --- a/script/c15658249.lua +++ b/script/c15658249.lua @@ -12,15 +12,15 @@ function c15658249.initial_effect(c) c:RegisterEffect(e1) end function c15658249.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDefencePos() end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDefensePos() end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) - local g=Duel.SelectTarget(tp,Card.IsDefencePos,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,Card.IsDefensePos,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) end function c15658249.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc and tc:IsDefencePos() and tc:IsRelateToEffect(e) then + if tc and tc:IsDefensePos() and tc:IsRelateToEffect(e) then Duel.ChangePosition(tc,0,0,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end diff --git a/script/c15667446.lua b/script/c15667446.lua old mode 100755 new mode 100644 diff --git a/script/c15717011.lua b/script/c15717011.lua index c8869dea..fb197db5 100644 --- a/script/c15717011.lua +++ b/script/c15717011.lua @@ -23,7 +23,7 @@ function c15717011.subcon(e) end function c15717011.filter(c,e,tp,m,gc) return c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_LIGHT) - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:CheckFusionMaterial(m,gc) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:CheckFusionMaterial(m,gc,PLAYER_NONE+0x100) end function c15717011.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:SetLabel(1) @@ -41,7 +41,7 @@ function c15717011.target(e,tp,eg,ep,ev,re,r,rp,chk) local mg=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_MZONE,0,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c15717011.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,mg,c) - local mat=Duel.SelectFusionMaterial(tp,g:GetFirst(),mg,c) + local mat=Duel.SelectFusionMaterial(tp,g:GetFirst(),mg,c,PLAYER_NONE+0x100) Duel.Release(mat,REASON_COST) e:SetLabelObject(g:GetFirst()) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) diff --git a/script/c1571945.lua b/script/c1571945.lua index ab88f50f..6d45609a 100644 --- a/script/c1571945.lua +++ b/script/c1571945.lua @@ -11,7 +11,7 @@ function c1571945.initial_effect(c) c:RegisterEffect(e1) end function c1571945.filter(c) - return c:IsDefencePos() and c:IsDestructable() + return c:IsDefensePos() end function c1571945.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c1571945.filter(chkc) end @@ -22,7 +22,7 @@ function c1571945.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c1571945.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc and tc:IsDefencePos() and tc:IsRelateToEffect(e) then + if tc and tc:IsDefensePos() and tc:IsRelateToEffect(e) then Duel.Destroy(tc,REASON_EFFECT) end end diff --git a/script/c15721123.lua b/script/c15721123.lua index 45a210ef..fa9e60d8 100644 --- a/script/c15721123.lua +++ b/script/c15721123.lua @@ -25,7 +25,8 @@ function c15721123.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c15721123.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE) @@ -34,6 +35,9 @@ function c15721123.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(c15721123.efilter) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c15721123.efilter(e,te) diff --git a/script/c15800838.lua b/script/c15800838.lua old mode 100755 new mode 100644 index 809c47f8..d4a5384f --- a/script/c15800838.lua +++ b/script/c15800838.lua @@ -21,15 +21,11 @@ end function c15800838.operation(e,tp,eg,ep,ev,re,r,rp) local ac=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) local g=Duel.GetMatchingGroup(Card.IsCode,tp,0,LOCATION_HAND,nil,ac) - local hg=Duel.GetFieldGroup(tp,0,LOCATION_HAND) - Duel.ConfirmCards(tp,hg) if g:GetCount()>0 then Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD) - Duel.ShuffleHand(1-tp) else local sg=Duel.GetFieldGroup(tp,LOCATION_HAND,0) local dg=sg:RandomSelect(tp,1) Duel.SendtoGrave(dg,REASON_EFFECT+REASON_DISCARD) - Duel.ShuffleHand(1-tp) end end diff --git a/script/c15866454.lua b/script/c15866454.lua index bad563cc..d2b59ee0 100644 --- a/script/c15866454.lua +++ b/script/c15866454.lua @@ -5,7 +5,7 @@ function c15866454.initial_effect(c) e1:SetCategory(CATEGORY_TOHAND) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e1:SetTarget(c15866454.target) e1:SetOperation(c15866454.activate) c:RegisterEffect(e1) diff --git a/script/c15893860.lua b/script/c15893860.lua index 10a70024..ee9d96bf 100644 --- a/script/c15893860.lua +++ b/script/c15893860.lua @@ -32,12 +32,12 @@ function c15893860.operation(e,tp,eg,ep,ev,re,r,rp) for i=1,ct do Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(15893860,1)) local tc=g:Select(tp,1,1,nil):GetFirst() - tc:AddCounter(0x15,1) + tc:AddCounter(0x1015,1) end if ct>=3 and Duel.SelectYesNo(tp,aux.Stringid(15893860,2)) then Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local dg=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local dg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.Destroy(dg,REASON_EFFECT) end end diff --git a/script/c15894048.lua b/script/c15894048.lua index c429becb..2a258dd4 100644 --- a/script/c15894048.lua +++ b/script/c15894048.lua @@ -28,7 +28,7 @@ function c15894048.initial_effect(c) Duel.RegisterEffect(ge1,0) local ge2=Effect.CreateEffect(c) ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge2:SetCode(EVENT_PHASE_START+PHASE_BATTLE) + ge2:SetCode(EVENT_PHASE_START+PHASE_BATTLE_START) ge2:SetOperation(c15894048.clear) Duel.RegisterEffect(ge2,0) end diff --git a/script/c15914410.lua b/script/c15914410.lua index 60333572..c2ef2309 100644 --- a/script/c15914410.lua +++ b/script/c15914410.lua @@ -29,7 +29,7 @@ end function c15914410.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) diff --git a/script/c15936370.lua b/script/c15936370.lua new file mode 100644 index 00000000..01a4b3d3 --- /dev/null +++ b/script/c15936370.lua @@ -0,0 +1,50 @@ +--パンドラの宝具箱 +function c15936370.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --pendulum set + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(15936370,0)) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_PZONE) + e1:SetCondition(c15936370.pencon) + e1:SetTarget(c15936370.pentg) + e1:SetOperation(c15936370.penop) + c:RegisterEffect(e1) + --effect draw + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetCode(EFFECT_DRAW_COUNT) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(1,0) + e2:SetValue(2) + e2:SetCondition(c15936370.drcon) + c:RegisterEffect(e2) +end +function c15936370.pencon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetFieldGroupCount(tp,LOCATION_EXTRA,0)==0 +end +function c15936370.desfilter(c) + return (c:GetSequence()==6 or c:GetSequence()==7) +end +function c15936370.pentg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and c15936370.desfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c15936370.desfilter,tp,0,LOCATION_SZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c15936370.desfilter,tp,0,LOCATION_SZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c15936370.penop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + Duel.MoveToField(c,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true) + end +end +function c15936370.drcon(e) + return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_EXTRA,0)==0 +end diff --git a/script/c15939229.lua b/script/c15939229.lua index 05657149..b4c62d4b 100644 --- a/script/c15939229.lua +++ b/script/c15939229.lua @@ -62,7 +62,7 @@ function c15939229.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c15939229.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c15939229.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c15939229.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end diff --git a/script/c15939448.lua b/script/c15939448.lua index 2cf94888..7e081be9 100644 --- a/script/c15939448.lua +++ b/script/c15939448.lua @@ -31,7 +31,7 @@ end function c15939448.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) local ct=Duel.GetMatchingGroupCount(c15939448.filter,tp,LOCATION_MZONE,0,nil) Duel.DiscardDeck(1-tp,ct,REASON_EFFECT) end diff --git a/script/c15941690.lua b/script/c15941690.lua index d22b2b2b..82f886a5 100644 --- a/script/c15941690.lua +++ b/script/c15941690.lua @@ -30,8 +30,7 @@ function c15941690.spcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 end function c15941690.filter(c,e,tp) - return c:IsSetCard(0x70) and c:GetCode()~=15941690 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x70) and not c:IsCode(15941690) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c15941690.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -42,7 +41,7 @@ function c15941690.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c15941690.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c15960641.lua b/script/c15960641.lua index 643d330c..d4d483e3 100644 --- a/script/c15960641.lua +++ b/script/c15960641.lua @@ -13,7 +13,7 @@ function c15960641.initial_effect(c) end function c15960641.con(e) local ph=Duel.GetCurrentPhase() - return ph==PHASE_BATTLE or ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL + return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE end function c15960641.aclimit(e,re,tp) return re:GetHandler():IsType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE) diff --git a/script/c15978426.lua b/script/c15978426.lua old mode 100755 new mode 100644 diff --git a/script/c15981690.lua b/script/c15981690.lua index 97cfe103..395676ac 100644 --- a/script/c15981690.lua +++ b/script/c15981690.lua @@ -54,6 +54,6 @@ function c15981690.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c15981690.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c16021142.lua b/script/c16021142.lua index a1b0818a..211f04b8 100644 --- a/script/c16021142.lua +++ b/script/c16021142.lua @@ -43,6 +43,6 @@ end function c16021142.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end diff --git a/script/c16024176.lua b/script/c16024176.lua new file mode 100644 index 00000000..be2249b5 --- /dev/null +++ b/script/c16024176.lua @@ -0,0 +1,82 @@ +--花札衛－松に鶴－ +function c16024176.initial_effect(c) + c:EnableReviveLimit() + --spsummon from hand + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_HAND) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetCondition(c16024176.hspcon) + e1:SetOperation(c16024176.hspop) + c:RegisterEffect(e1) + --draw(spsummon) + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(16024176,0)) + e2:SetCategory(CATEGORY_DRAW+CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetTarget(c16024176.target) + e2:SetOperation(c16024176.operation) + c:RegisterEffect(e2) + --draw(battle) + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DRAW) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_PHASE+PHASE_BATTLE) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetCondition(c16024176.drcon) + e3:SetTarget(c16024176.drtg) + e3:SetOperation(c16024176.drop) + c:RegisterEffect(e3) +end +function c16024176.hspfilter(c) + return c:IsSetCard(0xe6) and c:GetLevel()==1 and not c:IsCode(16024176) +end +function c16024176.hspcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.CheckReleaseGroup(c:GetControler(),c16024176.hspfilter,1,nil) +end +function c16024176.hspop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.SelectReleaseGroup(c:GetControler(),c16024176.hspfilter,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c16024176.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c16024176.operation(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + if Duel.Draw(p,d,REASON_EFFECT)~=0 then + local tc=Duel.GetOperatedGroup():GetFirst() + Duel.ConfirmCards(1-tp,tc) + Duel.BreakEffect() + if tc:IsType(TYPE_MONSTER) and tc:IsSetCard(0xe6) then + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.SelectYesNo(tp,aux.Stringid(16024176,1)) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end + else + Duel.SendtoGrave(tc,REASON_EFFECT) + end + Duel.ShuffleHand(tp) + end +end +function c16024176.drcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetBattledGroupCount()>0 +end +function c16024176.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c16024176.drop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end diff --git a/script/c16037007.lua b/script/c16037007.lua index 2d3036a4..d3835d26 100644 --- a/script/c16037007.lua +++ b/script/c16037007.lua @@ -37,11 +37,11 @@ function c16037007.distg(e,tp,eg,ep,ev,re,r,rp,chk) end function c16037007.disop(e,tp,eg,ep,ev,re,r,rp) if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)>0 then - if Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) + if Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(16037007,1)) then Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.HintSelection(g) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c16051717.lua b/script/c16051717.lua index 8602b4cb..6594d0c4 100644 --- a/script/c16051717.lua +++ b/script/c16051717.lua @@ -1,70 +1,70 @@ ---A BF－驟雨のライキリ -function c16051717.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --add type - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c16051717.tncon) - e1:SetOperation(c16051717.tnop) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_MATERIAL_CHECK) - e2:SetValue(c16051717.valcheck) - e2:SetLabelObject(e1) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetTarget(c16051717.destg) - e3:SetOperation(c16051717.desop) - c:RegisterEffect(e3) -end -function c16051717.valcheck(e,c) - local g=c:GetMaterial() - if g:IsExists(Card.IsSetCard,1,nil,0x33) then - e:GetLabelObject():SetLabel(1) - else - e:GetLabelObject():SetLabel(0) - end -end -function c16051717.tncon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO and e:GetLabel()==1 -end -function c16051717.tnop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_ADD_TYPE) - e1:SetValue(TYPE_TUNER) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) -end -function c16051717.filter(c) - return c:IsFaceup() and c:IsSetCard(0x33) -end -function c16051717.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingMatchingCard(c16051717.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) - and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local ct=Duel.GetMatchingGroupCount(c16051717.filter,tp,LOCATION_MZONE,0,e:GetHandler()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,ct,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c16051717.desop(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local g=tg:Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end -end +--A BF－驟雨のライキリ +function c16051717.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --add type + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c16051717.tncon) + e1:SetOperation(c16051717.tnop) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_MATERIAL_CHECK) + e2:SetValue(c16051717.valcheck) + e2:SetLabelObject(e1) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetTarget(c16051717.destg) + e3:SetOperation(c16051717.desop) + c:RegisterEffect(e3) +end +function c16051717.valcheck(e,c) + local g=c:GetMaterial() + if g:IsExists(Card.IsSetCard,1,nil,0x33) then + e:GetLabelObject():SetLabel(1) + else + e:GetLabelObject():SetLabel(0) + end +end +function c16051717.tncon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO and e:GetLabel()==1 +end +function c16051717.tnop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_ADD_TYPE) + e1:SetValue(TYPE_TUNER) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1) +end +function c16051717.filter(c) + return c:IsFaceup() and c:IsSetCard(0x33) +end +function c16051717.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingMatchingCard(c16051717.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) + and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + local ct=Duel.GetMatchingGroupCount(c16051717.filter,tp,LOCATION_MZONE,0,e:GetHandler()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,ct,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c16051717.desop(e,tp,eg,ep,ev,re,r,rp) + local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local g=tg:Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()>0 then + Duel.Destroy(g,REASON_EFFECT) + end +end diff --git a/script/c16111820.lua b/script/c16111820.lua index b1b6277e..319d25fe 100644 --- a/script/c16111820.lua +++ b/script/c16111820.lua @@ -13,7 +13,7 @@ function c16111820.initial_effect(c) c:RegisterEffect(e1) end function c16111820.filter(c,tp) - return c:GetPreviousControler()==tp and c:IsPreviousPosition(POS_DEFENCE) and c:IsReason(REASON_BATTLE) and c:IsLocation(LOCATION_GRAVE) + return c:GetPreviousControler()==tp and c:IsPreviousPosition(POS_DEFENSE) and c:IsReason(REASON_BATTLE) and c:IsLocation(LOCATION_GRAVE) and c:IsSetCard(0x22) and c:GetCode()~=16111820 end function c16111820.condition(e,tp,eg,ep,ev,re,r,rp) @@ -26,7 +26,9 @@ function c16111820.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c16111820.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c16114248.lua b/script/c16114248.lua index 1bd5eb72..78c6ea95 100644 --- a/script/c16114248.lua +++ b/script/c16114248.lua @@ -6,8 +6,8 @@ function c16114248.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(c16114248.fscondition) - e1:SetOperation(c16114248.fsoperation) + e1:SetCondition(c16114248.fscon) + e1:SetOperation(c16114248.fsop) c:RegisterEffect(e1) --direct attack local e2=Effect.CreateEffect(c) @@ -15,22 +15,32 @@ function c16114248.initial_effect(c) e2:SetCode(EFFECT_DIRECT_ATTACK) c:RegisterEffect(e2) end +function c16114248.filter(c,fc) + return c:IsRace(RACE_MACHINE) and c:IsCanBeFusionMaterial(fc) +end function c16114248.spfilter(c,mg) - return c:IsRace(RACE_MACHINE) and mg:IsExists(c16114248.spfilter2,1,c,c:GetCode()) + return mg:IsExists(c16114248.spfilter2,1,c,c) end -function c16114248.spfilter2(c,code) - return c:IsRace(RACE_MACHINE) and c:IsCode(code) +function c16114248.spfilter2(c,mc) + return c:IsFusionCode(mc:GetFusionCode()) end -function c16114248.fscondition(e,mg,gc) - if mg==nil then return true end - if gc then return false end +function c16114248.fscon(e,g,gc) + if g==nil then return true end + local mg=g:Filter(c16114248.filter,gc,e:GetHandler()) + if gc then return c16114248.filter(gc,e:GetHandler()) and c16114248.spfilter(gc,mg) end return mg:IsExists(c16114248.spfilter,1,nil,mg) end -function c16114248.fsoperation(e,tp,eg,ep,ev,re,r,rp,gc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=eg:FilterSelect(tp,c16114248.spfilter,1,1,nil,eg) +function c16114248.fsop(e,tp,eg,ep,ev,re,r,rp,gc) + local mg=eg:Filter(c16114248.filter,gc,e:GetHandler()) + local g1=nil + local mc=gc + if not gc then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g1=mg:FilterSelect(tp,c16114248.spfilter,1,1,nil,mg) + mc=g1:GetFirst() + end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=eg:FilterSelect(tp,c16114248.spfilter2,1,1,g1:GetFirst(),g1:GetFirst():GetCode()) - g1:Merge(g2) - Duel.SetFusionMaterial(g1) -end \ No newline at end of file + local g2=mg:FilterSelect(tp,c16114248.spfilter2,1,1,mc,mc) + if g1 then g2:Merge(g1) end + Duel.SetFusionMaterial(g2) +end diff --git a/script/c16135253.lua b/script/c16135253.lua index b604509e..09adba15 100644 --- a/script/c16135253.lua +++ b/script/c16135253.lua @@ -16,7 +16,7 @@ function c16135253.condition(e,tp,eg,ep,ev,re,r,rp) end function c16135253.filter(c,e,tp,lv) if (lv<6 and c:GetLevel()~=lv) or (lv==6 and c:GetLevel()<6) then return false end - return c:IsRace(RACE_FAIRY) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsRace(RACE_FAIRY) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c16135253.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -29,6 +29,7 @@ function c16135253.operation(e,tp,eg,ep,ev,re,r,rp) if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(16135253,1)) then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,1,1,nil) + if sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c16172067.lua b/script/c16172067.lua new file mode 100644 index 00000000..f6bcbfe8 --- /dev/null +++ b/script/c16172067.lua @@ -0,0 +1,271 @@ +--レッド・デーモンズ・ドラゴン・タイラント +function c16172067.initial_effect(c) + c:EnableReviveLimit() + --cannot special summon + local e0=Effect.CreateEffect(c) + e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e0:SetType(EFFECT_TYPE_SINGLE) + e0:SetCode(EFFECT_SPSUMMON_CONDITION) + e0:SetValue(aux.synlimit) + c:RegisterEffect(e0) + --synchro summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetRange(LOCATION_EXTRA) + e1:SetCondition(c16172067.syncon) + e1:SetOperation(c16172067.synop) + e1:SetValue(SUMMON_TYPE_SYNCHRO) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1,16172067) + e2:SetCondition(c16172067.descon) + e2:SetTarget(c16172067.destg) + e2:SetOperation(c16172067.desop) + c:RegisterEffect(e2) + --negate + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) + e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1,16172068) + e3:SetCode(EVENT_CHAINING) + e3:SetCondition(c16172067.discon) + e3:SetTarget(c16172067.distg) + e3:SetOperation(c16172067.disop) + c:RegisterEffect(e3) + --double tuner + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e4:SetCode(21142671) + c:RegisterEffect(e4) +end +function c16172067.matfilter1(c,syncard) + return c:IsType(TYPE_TUNER) and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsCanBeSynchroMaterial(syncard) +end +function c16172067.matfilter2(c,syncard) + return c:IsNotTuner() and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsCanBeSynchroMaterial(syncard) +end +function c16172067.synfilter1(c,syncard,lv,g1,g2,g3,g4) + local tlv=c:GetSynchroLevel(syncard) + if lv-tlv<=0 then return false end + local f1=c.tuner_filter + if c:IsHasEffect(EFFECT_HAND_SYNCHRO) then + return g3:IsExists(c16172067.synfilter2,1,c,syncard,lv-tlv,g2,g4,f1,c) + else + return g1:IsExists(c16172067.synfilter2,1,c,syncard,lv-tlv,g2,g4,f1,c) + end +end +function c16172067.synfilter2(c,syncard,lv,g2,g4,f1,tuner1) + local tlv=c:GetSynchroLevel(syncard) + if lv-tlv<=0 then return false end + local f2=c.tuner_filter + if f1 and not f1(c) then return false end + if f2 and not f2(tuner1) then return false end + if (tuner1:IsHasEffect(EFFECT_HAND_SYNCHRO) and not c:IsLocation(LOCATION_HAND)) or c:IsHasEffect(EFFECT_HAND_SYNCHRO) then + return g4:IsExists(c16172067.synfilter3,1,nil,syncard,lv-tlv,f1,f2,g2) + else + return g2:CheckWithSumEqual(Card.GetSynchroLevel,lv-tlv,1,62,syncard) + end +end +function c16172067.synfilter3(c,syncard,lv,f1,f2,g2) + if not (not f1 or f1(c)) and not (not f2 or f2(c)) then return false end + local mlv=c:GetSynchroLevel(syncard) + local slv=lv-mlv + if slv<0 then return false end + if slv==0 then + return true + else + return g2:CheckWithSumEqual(Card.GetSynchroLevel,slv,1,61,syncard) + end +end +function c16172067.syncon(e,c,tuner,mg) + if c==nil then return true end + local tp=c:GetControler() + if Duel.GetLocationCount(tp,LOCATION_MZONE)<-2 then return false end + local g1=nil + local g2=nil + local g3=nil + local g4=nil + if mg then + g1=mg:Filter(c16172067.matfilter1,nil,c) + g2=mg:Filter(c16172067.matfilter2,nil,c) + g3=mg:Filter(c16172067.matfilter1,nil,c) + g4=mg:Filter(c16172067.matfilter2,nil,c) + else + g1=Duel.GetMatchingGroup(c16172067.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) + g2=Duel.GetMatchingGroup(c16172067.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) + g3=Duel.GetMatchingGroup(c16172067.matfilter1,tp,LOCATION_MZONE+LOCATION_HAND,LOCATION_MZONE,nil,c) + g4=Duel.GetMatchingGroup(c16172067.matfilter2,tp,LOCATION_MZONE+LOCATION_HAND,LOCATION_MZONE,nil,c) + end + local pe=Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_SMATERIAL) + local lv=c:GetLevel() + if tuner then + local tlv=tuner:GetSynchroLevel(c) + if lv-tlv<=0 then return false end + local f1=tuner.tuner_filter + if not pe then + return g1:IsExists(c16172067.synfilter2,1,tuner,c,lv-tlv,g2,g4,f1,tuner) + else + return c16172067.synfilter2(pe:GetOwner(),c,lv-tlv,g2,nil,f1,tuner) + end + end + if not pe then + return g1:IsExists(c16172067.synfilter1,1,nil,c,lv,g1,g2,g3,g4) + else + return c16172067.synfilter1(pe:GetOwner(),c,lv,g1,g2,g3,g4) + end +end +function c16172067.synop(e,tp,eg,ep,ev,re,r,rp,c,tuner,mg) + local g=Group.CreateGroup() + local g1=nil + local g2=nil + local g3=nil + local g4=nil + if mg then + g1=mg:Filter(c16172067.matfilter1,nil,c) + g2=mg:Filter(c16172067.matfilter2,nil,c) + g3=mg:Filter(c16172067.matfilter1,nil,c) + g4=mg:Filter(c16172067.matfilter2,nil,c) + else + g1=Duel.GetMatchingGroup(c16172067.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) + g2=Duel.GetMatchingGroup(c16172067.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) + g3=Duel.GetMatchingGroup(c16172067.matfilter1,tp,LOCATION_MZONE+LOCATION_HAND,LOCATION_MZONE,nil,c) + g4=Duel.GetMatchingGroup(c16172067.matfilter2,tp,LOCATION_MZONE+LOCATION_HAND,LOCATION_MZONE,nil,c) + end + local pe=Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_SMATERIAL) + local lv=c:GetLevel() + if tuner then + g:AddCard(tuner) + local lv1=tuner:GetSynchroLevel(c) + local f1=tuner.tuner_filter + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + local tuner2=nil + if not pe then + local t2=g1:FilterSelect(tp,c16172067.synfilter2,1,1,tuner,c,lv-lv1,g2,g4,f1,tuner) + tuner2=t2:GetFirst() + else + tuner2=pe:GetOwner() + Group.FromCards(tuner2):Select(tp,1,1,nil) + end + g:AddCard(tuner2) + local lv2=tuner2:GetSynchroLevel(c) + local f2=tuner2.tuner_filter + local m3=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + if tuner2:IsHasEffect(EFFECT_HAND_SYNCHRO) then + m3=g4:FilterSelect(tp,c16172067.synfilter3,1,1,nil,c,lv-lv1-lv2,f1,f2,g2) + local lv3=m3:GetFirst():GetSynchroLevel(c) + if lv-lv1-lv2-lv3>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + local m4=g2:SelectWithSumEqual(tp,Card.GetSynchroLevel,lv-lv1-lv2-lv3,1,61,c) + g:Merge(m4) + end + else + m3=g2:SelectWithSumEqual(tp,Card.GetSynchroLevel,lv-lv1-lv2,1,62,c) + end + g:Merge(m3) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + local tuner1=nil + local hand=nil + if not pe then + local t1=g1:FilterSelect(tp,c16172067.synfilter1,1,1,nil,c,lv,g1,g2,g3,g4) + tuner1=t1:GetFirst() + else + tuner1=pe:GetOwner() + Group.FromCards(tuner1):Select(tp,1,1,nil) + end + g:AddCard(tuner1) + local lv1=tuner1:GetSynchroLevel(c) + local f1=tuner1.tuner_filter + local tuner2=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + if tuner1:IsHasEffect(EFFECT_HAND_SYNCHRO) then + local t2=g3:FilterSelect(tp,c16172067.synfilter2,1,1,tuner1,c,lv-lv1,g2,g4,f1,tuner1) + tuner2=t2:GetFirst() + else + local t2=g1:FilterSelect(tp,c16172067.synfilter2,1,1,tuner1,c,lv-lv1,g2,g4,f1,tuner1) + tuner2=t2:GetFirst() + end + g:AddCard(tuner2) + local lv2=tuner2:GetSynchroLevel(c) + local f2=tuner2.tuner_filter + local m3=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + if (tuner1:IsHasEffect(EFFECT_HAND_SYNCHRO) and not tuner2:IsLocation(LOCATION_HAND)) + or tuner2:IsHasEffect(EFFECT_HAND_SYNCHRO) then + m3=g4:FilterSelect(tp,c16172067.synfilter3,1,1,nil,c,lv-lv1-lv2,f1,f2,g2) + local lv3=m3:GetFirst():GetSynchroLevel(c) + if lv-lv1-lv2-lv3>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + local m4=g2:SelectWithSumEqual(tp,Card.GetSynchroLevel,lv-lv1-lv2-lv3,1,61,c) + g:Merge(m4) + end + else + m3=g2:SelectWithSumEqual(tp,Card.GetSynchroLevel,lv-lv1-lv2,1,63,c) + end + g:Merge(m3) + end + c:SetMaterial(g) + Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO) +end +function c16172067.descon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()==PHASE_MAIN1 +end +function c16172067.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c16172067.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + if g:GetCount()>0 then + Duel.Destroy(g,REASON_EFFECT) + end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetTargetRange(LOCATION_MZONE,0) + e1:SetTarget(c16172067.ftarget) + e1:SetLabel(e:GetHandler():GetFieldID()) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c16172067.ftarget(e,c) + return e:GetLabel()~=c:GetFieldID() +end +function c16172067.discon(e,tp,eg,ep,ev,re,r,rp) + local ph=Duel.GetCurrentPhase() + return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and re:IsHasType(EFFECT_TYPE_ACTIVATE) + and Duel.IsChainNegatable(ev) and (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) +end +function c16172067.distg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end +end +function c16172067.disop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.NegateActivation(ev) + if re:GetHandler():IsRelateToEffect(re) then + Duel.Destroy(eg,REASON_EFFECT) + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) + e1:SetReset(RESET_EVENT+0x1ff0000) + e1:SetValue(500) + c:RegisterEffect(e1) + end +end diff --git a/script/c16191953.lua b/script/c16191953.lua index d15bb85c..5bc64c8e 100644 --- a/script/c16191953.lua +++ b/script/c16191953.lua @@ -20,14 +20,14 @@ function c16191953.filter(c) return c:IsFaceup() and c:IsRace(RACE_PSYCHO) end function c16191953.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetMatchingGroupCount(c16191953.filter,tp,LOCATION_MZONE,0,nil)<=Duel.GetMatchingGroupCount(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) end + if chk==0 then return Duel.GetMatchingGroupCount(c16191953.filter,tp,LOCATION_MZONE,0,nil)<=Duel.GetMatchingGroupCount(aux.TRUE,tp,0,LOCATION_MZONE,nil) end local ct=Duel.GetMatchingGroupCount(c16191953.filter,tp,LOCATION_MZONE,0,nil) - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,ct,0,0) end function c16191953.operation(e,tp,eg,ep,ev,re,r,rp) local ct=Duel.GetMatchingGroupCount(c16191953.filter,tp,LOCATION_MZONE,0,nil) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) if ct>g:GetCount() then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local dg=g:Select(tp,ct,ct,nil) diff --git a/script/c16195942.lua b/script/c16195942.lua old mode 100755 new mode 100644 diff --git a/script/c16197610.lua b/script/c16197610.lua index 2bf1ec67..39458845 100644 --- a/script/c16197610.lua +++ b/script/c16197610.lua @@ -34,7 +34,7 @@ function c16197610.initial_effect(c) c:RegisterEffect(e4) end function c16197610.sdcon(e) - return e:GetHandler():IsPosition(POS_FACEUP_DEFENCE) + return e:GetHandler():IsPosition(POS_FACEUP_DEFENSE) end function c16197610.cfilter(c) return c:IsFaceup() and c:IsSetCard(0x18) @@ -42,16 +42,15 @@ end function c16197610.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then local ct=Duel.GetMatchingGroupCount(c16197610.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - e:GetHandler():AddCounter(0x19,ct) + e:GetHandler():AddCounter(COUNTER_NEED_ENABLE+0x1019,ct) end end function c16197610.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x19,1,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x19,1,REASON_COST) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1019,1,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1019,1,REASON_COST) end function c16197610.spfilter(c,e,tp) return c:IsCode(80825553) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c16197610.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -62,7 +61,7 @@ function c16197610.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c16197610.spfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()~=0 then + if g:GetCount()~=0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c1621413.lua b/script/c1621413.lua new file mode 100644 index 00000000..c78f5f4d --- /dev/null +++ b/script/c1621413.lua @@ -0,0 +1,95 @@ +--ダーク・レクイエム・エクシーズ・ドラゴン +function c1621413.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,5,3) + c:EnableReviveLimit() + --atk + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(1621413,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1) + e1:SetCondition(c1621413.atkcon) + e1:SetCost(c1621413.cost) + e1:SetTarget(c1621413.atktg) + e1:SetOperation(c1621413.atkop) + c:RegisterEffect(e1) + --disable + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(1621413,1)) + e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DISABLE+CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_CHAINING) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(c1621413.discon) + e2:SetCost(c1621413.cost) + e2:SetTarget(c1621413.distg) + e2:SetOperation(c1621413.disop) + c:RegisterEffect(e2) +end +function c1621413.atkcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,16195942) +end +function c1621413.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c1621413.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and aux.nzatk(chkc) end + if chk==0 then return Duel.IsExistingTarget(aux.nzatk,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,aux.nzatk,tp,0,LOCATION_MZONE,1,1,nil) +end +function c1621413.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then + local atk=tc:GetBaseAttack() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(0) + tc:RegisterEffect(e1) + if c:IsRelateToEffect(e) and c:IsFaceup() then + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetReset(RESET_EVENT+0x1fe0000) + e2:SetValue(atk) + c:RegisterEffect(e2) + end + end +end +function c1621413.discon(e,tp,eg,ep,ev,re,r,rp) + return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and rp~=tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainDisablable(ev) + and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,16195942) +end +function c1621413.distg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end +end +function c1621413.spfilter(c,e,tp) + return c:IsType(TYPE_XYZ) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c1621413.disop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateEffect(ev) + if re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)>0 then + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + local g=Duel.GetMatchingGroup(c1621413.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp) + if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(1621413,2)) then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg=g:Select(tp,1,1,nil) + if sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) + end + end +end diff --git a/script/c16222645.lua b/script/c16222645.lua index 6f783f82..d6cb42e0 100644 --- a/script/c16222645.lua +++ b/script/c16222645.lua @@ -13,7 +13,7 @@ function c16222645.initial_effect(c) end function c16222645.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefencePos() + return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefensePos() end function c16222645.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c16226786.lua b/script/c16226786.lua index 8638def6..ce68911b 100644 --- a/script/c16226786.lua +++ b/script/c16226786.lua @@ -22,10 +22,10 @@ function c16226786.initial_effect(c) c:RegisterEffect(e2) end function c16226786.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c16226786.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c16227556.lua b/script/c16227556.lua index e9b0bea1..99fe92ff 100644 --- a/script/c16227556.lua +++ b/script/c16227556.lua @@ -11,6 +11,7 @@ function c16227556.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e2:SetCode(EVENT_PHASE+PHASE_STANDBY) e2:SetRange(LOCATION_SZONE) + e2:SetCountLimit(1) e2:SetCondition(c16227556.cfcon) e2:SetCost(c16227556.cfcost) e2:SetOperation(c16227556.cfop) diff --git a/script/c16255173.lua b/script/c16255173.lua new file mode 100644 index 00000000..a5d7ecd4 --- /dev/null +++ b/script/c16255173.lua @@ -0,0 +1,89 @@ +--The grand JUPITER +function c16255173.initial_effect(c) + --equip + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(16255173,0)) + e1:SetCategory(CATEGORY_EQUIP) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCost(c16255173.eqcost) + e1:SetTarget(c16255173.eqtg) + e1:SetOperation(c16255173.eqop) + c:RegisterEffect(e1) + --special summon equip + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(16255173,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EVENT_PHASE+PHASE_END) + e2:SetCountLimit(1) + e2:SetTarget(c16255173.sptg) + e2:SetOperation(c16255173.spop) + c:RegisterEffect(e2) +end +function c16255173.eqcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,2,nil) end + Duel.DiscardHand(tp,Card.IsDiscardable,2,2,REASON_COST+REASON_DISCARD) +end +function c16255173.eqfilter(c) + return c:IsFaceup() and c:IsAbleToChangeControler() +end +function c16255173.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c16255173.eqfilter(chkc) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 + and Duel.IsExistingTarget(c16255173.eqfilter,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + local g=Duel.SelectTarget(tp,c16255173.eqfilter,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) +end +function c16255173.eqop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if not (tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsType(TYPE_MONSTER)) then return end + if c:IsFaceup() and c:IsRelateToEffect(e) then + local atk=tc:GetTextAttack() + if tc:IsFacedown() or atk<0 then atk=0 end + if Duel.Equip(tp,tc,c)==0 then return end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_EQUIP) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) + e1:SetValue(atk) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_EQUIP_LIMIT) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetValue(c16255173.eqlimit) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2) + tc:RegisterFlagEffect(16255173,RESET_EVENT+0x1fe0000,0,1) + else Duel.SendtoGrave(tc,REASON_EFFECT) end +end +function c16255173.eqlimit(e,c) + return e:GetOwner()==c +end +function c16255173.spfilter(c,e,tp,ec) + return c:GetFlagEffect(16255173)~=0 and c:GetEquipTarget()==ec and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c16255173.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local c=e:GetHandler() + if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and c16255173.spfilter(chkc,e,tp,c) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c16255173.spfilter,tp,LOCATION_SZONE,0,1,nil,e,tp,c) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c16255173.spfilter,tp,LOCATION_SZONE,0,1,1,nil,e,tp,c) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c16255173.spop(e,tp,eg,ep,ev,re,r,rp,chk) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c16255442.lua b/script/c16255442.lua index 109fad2e..fa24a6d3 100644 --- a/script/c16255442.lua +++ b/script/c16255442.lua @@ -25,12 +25,13 @@ function c16255442.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c16255442.operation(e,tp,eg,ep,ev,re,r,rp) local sg=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - local sct=sg:GetCount() Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD) + local ct=sg:Filter(Card.IsLocation,nil,LOCATION_GRAVE):GetCount() local tg=Duel.GetMatchingGroup(c16255442.filter,tp,LOCATION_GRAVE,0,nil) - if tg:GetCount()>=sct then + if ct>0 and tg:GetCount()>=ct then + Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local sel=tg:Select(tp,sct,sct,nil) + local sel=tg:Select(tp,ct,ct,nil) Duel.SendtoHand(sel,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,sel) end diff --git a/script/c16259549.lua b/script/c16259549.lua index 69ac4734..b1153837 100644 --- a/script/c16259549.lua +++ b/script/c16259549.lua @@ -22,7 +22,7 @@ function c16259549.initial_effect(c) e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) e2:SetRange(LOCATION_MZONE) - e2:SetValue(aux.tgval) + e2:SetValue(1) c:RegisterEffect(e2) --destroy replace local e3=Effect.CreateEffect(c) diff --git a/script/c16272453.lua b/script/c16272453.lua index 2e55090f..e169b2ee 100644 --- a/script/c16272453.lua +++ b/script/c16272453.lua @@ -17,7 +17,7 @@ function c16272453.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c16272453.cfilter,tp,LOCATION_ONFIELD,0,1,nil) end function c16272453.dfilter(c) - return c:IsFaceup() and c:IsSetCard(0x61) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x61) end function c16272453.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end diff --git a/script/c16278116.lua b/script/c16278116.lua old mode 100755 new mode 100644 index d309bded..da1a7d0f --- a/script/c16278116.lua +++ b/script/c16278116.lua @@ -7,28 +7,36 @@ function c16278116.initial_effect(c) e1:SetHintTiming(0,0x1c0) e1:SetProperty(EFFECT_FLAG_CARD_TARGET) e1:SetTarget(c16278116.target) - e1:SetOperation(c16278116.operation) c:RegisterEffect(e1) - --cannot spsummon local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e2:SetRange(LOCATION_SZONE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,1) - e2:SetTarget(c16278116.splimit) + e2:SetCode(EVENT_CHAIN_SOLVED) + e2:SetLabelObject(e1) + e2:SetCondition(c16278116.tgcon) + e2:SetOperation(c16278116.tgop) c:RegisterEffect(e2) - --Destroy + --cannot spsummon local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e3:SetType(EFFECT_TYPE_FIELD) e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetCondition(c16278116.descon) - e3:SetOperation(c16278116.desop) + e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetTargetRange(1,1) + e3:SetTarget(c16278116.splimit) c:RegisterEffect(e3) + --Destroy + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e4:SetRange(LOCATION_SZONE) + e4:SetCode(EVENT_LEAVE_FIELD) + e4:SetCondition(c16278116.descon) + e4:SetOperation(c16278116.desop) + c:RegisterEffect(e4) end function c16278116.filter(c) - return c:IsFaceup() and c:IsRace(RACE_DRAGON) and c:IsAttackBelow(2500) and c:IsDefenceBelow(2500) + return c:IsFaceup() and c:IsRace(RACE_DRAGON) and c:IsAttackBelow(2500) and c:IsDefenseBelow(2500) end function c16278116.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c16278116.filter(chkc) end @@ -36,10 +44,13 @@ function c16278116.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) Duel.SelectTarget(tp,c16278116.filter,tp,LOCATION_MZONE,0,1,1,nil) end -function c16278116.operation(e,tp,eg,ep,ev,re,r,rp) +function c16278116.tgcon(e,tp,eg,ep,ev,re,r,rp) + return re==e:GetLabelObject() +end +function c16278116.tgop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then + local tc=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS):GetFirst() + if c:IsRelateToEffect(re) and tc:IsFaceup() and tc:IsRelateToEffect(re) then c:SetCardTarget(tc) end end diff --git a/script/c16279989.lua b/script/c16279989.lua index 243f75e3..08d1275a 100644 --- a/script/c16279989.lua +++ b/script/c16279989.lua @@ -42,7 +42,7 @@ end function c16279989.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c16279989.thcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c16308000.lua b/script/c16308000.lua old mode 100755 new mode 100644 index e3f10bc7..a24ceb22 --- a/script/c16308000.lua +++ b/script/c16308000.lua @@ -30,7 +30,7 @@ function c16308000.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) e1:SetReset(RESET_EVENT+0x1fe0000) e1:SetCondition(c16308000.rcon) - e1:SetValue(aux.tgval) + e1:SetValue(1) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) diff --git a/script/c16366810.lua b/script/c16366810.lua old mode 100755 new mode 100644 diff --git a/script/c1637760.lua b/script/c1637760.lua old mode 100755 new mode 100644 diff --git a/script/c16392422.lua b/script/c16392422.lua old mode 100755 new mode 100644 diff --git a/script/c16430187.lua b/script/c16430187.lua index 4a8a586b..6168d91d 100644 --- a/script/c16430187.lua +++ b/script/c16430187.lua @@ -26,7 +26,7 @@ function c16430187.activate(e,tp,eg,ep,ev,re,r,rp) if tc:IsRelateToEffect(e) and tc:IsFaceup() then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e1:SetValue(700) tc:RegisterEffect(e1) diff --git a/script/c16437822.lua b/script/c16437822.lua index fbda4fff..c75b9369 100644 --- a/script/c16437822.lua +++ b/script/c16437822.lua @@ -21,7 +21,7 @@ function c16437822.initial_effect(c) c:RegisterEffect(e2) end function c16437822.filter(c) - return c:GetEquipCount()~=0 and c:GetEquipGroup():IsExists(Card.IsCode,1,nil,75560629) and c:IsDestructable() + return c:GetEquipCount()~=0 and c:GetEquipGroup():IsExists(Card.IsCode,1,nil,75560629) end function c16437822.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c16437822.filter(chkc) end diff --git a/script/c1644289.lua b/script/c1644289.lua index b8cfa1cd..efb5313c 100644 --- a/script/c1644289.lua +++ b/script/c1644289.lua @@ -38,7 +38,7 @@ function c1644289.eqlimit(e,c) return c:IsSetCard(0x30) end function c1644289.tglimit(e,re,rp) - return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_TRAP+TYPE_MONSTER) + return rp~=e:GetHandlerPlayer() and re:IsActiveType(TYPE_TRAP+TYPE_MONSTER) end function c1644289.filter(c) return c:IsFaceup() and c:IsSetCard(0x30) diff --git a/script/c164710.lua b/script/c164710.lua old mode 100755 new mode 100644 diff --git a/script/c16480084.lua b/script/c16480084.lua index 42238273..26299548 100644 --- a/script/c16480084.lua +++ b/script/c16480084.lua @@ -5,7 +5,7 @@ function c16480084.evolreg(c) --defup local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetValue(500) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) @@ -25,7 +25,7 @@ function c16480084.schcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c16480084.sfilter(c) - return c:IsSetCard(0x304e) and c:IsAbleToHand() + return c:IsSetCard(0x304e) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c16480084.schtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c16480084.sfilter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c16494704.lua b/script/c16494704.lua index 8378e086..f7e637fd 100644 --- a/script/c16494704.lua +++ b/script/c16494704.lua @@ -1,5 +1,6 @@ --オッドアイズ・アドベント function c16494704.initial_effect(c) + --Activate local e1=Effect.CreateEffect(c) e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -12,14 +13,24 @@ end function c16494704.exfilter0(c) return c:IsSetCard(0x99) and c:GetLevel()>=1 and c:IsAbleToGrave() end -function c16494704.filter(c,e,tp,m) +function c16494704.filter(c,e,tp,m,ft) if not c:IsRace(RACE_DRAGON) or bit.band(c:GetType(),0x81)~=0x81 or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end local mg=m:Filter(Card.IsCanBeRitualMaterial,c,c) if c.mat_filter then mg=mg:Filter(c.mat_filter,nil) end - return mg:CheckWithSumGreater(Card.GetRitualLevel,c:GetLevel(),c) + if ft>0 then + return mg:CheckWithSumGreater(Card.GetRitualLevel,c:GetLevel(),c) + else + return mg:IsExists(c16494704.mfilterf,1,nil,tp,mg,c) + end +end +function c16494704.mfilterf(c,tp,mg,rc) + if c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) then + Duel.SetSelectedCard(c) + return mg:CheckWithSumGreater(Card.GetRitualLevel,rc:GetLevel(),rc) + else return false end end function c16494704.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then @@ -28,7 +39,8 @@ function c16494704.target(e,tp,eg,ep,ev,re,r,rp,chk) local sg=Duel.GetMatchingGroup(c16494704.exfilter0,tp,LOCATION_EXTRA,0,nil) mg:Merge(sg) end - return Duel.IsExistingMatchingCard(c16494704.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp,mg) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + return ft>-1 and Duel.IsExistingMatchingCard(c16494704.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp,mg,ft) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) end @@ -38,16 +50,27 @@ function c16494704.operation(e,tp,eg,ep,ev,re,r,rp) local sg=Duel.GetMatchingGroup(c16494704.exfilter0,tp,LOCATION_EXTRA,0,nil) mg:Merge(sg) end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c16494704.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp,mg) + local tg=Duel.SelectMatchingCard(tp,c16494704.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp,mg,ft) local tc=tg:GetFirst() if tc then mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc) if tc.mat_filter then mg=mg:Filter(tc.mat_filter,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,tc:GetLevel(),tc) + local mat=nil + if ft>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,tc:GetLevel(),tc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:FilterSelect(tp,c16494704.mfilterf,1,1,nil,tp,mg,tc) + Duel.SetSelectedCard(mat) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local mat2=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,tc:GetLevel(),tc) + mat:Merge(mat2) + end tc:SetMaterial(mat) local mat2=mat:Filter(Card.IsLocation,nil,LOCATION_EXTRA) mat:Sub(mat2) diff --git a/script/c16509093.lua b/script/c16509093.lua index 79024543..279a2f29 100644 --- a/script/c16509093.lua +++ b/script/c16509093.lua @@ -26,7 +26,7 @@ end function c16509093.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c16509093.adop(e,tp,eg,ep,ev,re,r,rp) @@ -39,7 +39,7 @@ function c16509093.adop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end end diff --git a/script/c16550875.lua b/script/c16550875.lua index 22a152c9..77ab823f 100644 --- a/script/c16550875.lua +++ b/script/c16550875.lua @@ -16,7 +16,7 @@ function c16550875.initial_effect(c) e2:SetValue(800) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --Equip limit local e3=Effect.CreateEffect(c) diff --git a/script/c16556849.lua b/script/c16556849.lua index f8624a95..6617eb5b 100644 --- a/script/c16556849.lua +++ b/script/c16556849.lua @@ -22,7 +22,7 @@ function c16556849.costfilter(co) return co:IsAttribute(ATTRIBUTE_LIGHT) and co:IsAbleToRemoveAsCost() end function c16556849.filter(c,atk) - return c:IsFaceup() and c:GetAttack()>atk and c:IsDestructable() + return c:IsFaceup() and c:GetAttack()>atk end function c16556849.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c16556849.filter(chkc,e:GetHandler():GetAttack()) end diff --git a/script/c16617334.lua b/script/c16617334.lua old mode 100755 new mode 100644 index c120b12e..e74c4c82 --- a/script/c16617334.lua +++ b/script/c16617334.lua @@ -1,81 +1,75 @@ ---EMレインゴート -function c16617334.initial_effect(c) - --no damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(16617334,0)) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetRange(LOCATION_HAND) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetCondition(c16617334.condition) - e1:SetCost(c16617334.effcost) - e1:SetOperation(c16617334.operation) - c:RegisterEffect(e1) - --indes - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(16617334,1)) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetRange(LOCATION_HAND) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c16617334.condition2) - e2:SetCost(c16617334.effcost) - e2:SetTarget(c16617334.target2) - e2:SetOperation(c16617334.operation2) - c:RegisterEffect(e2) -end -function c16617334.effcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDiscardable() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) -end -function c16617334.condition(e,tp,eg,ep,ev,re,r,rp) - local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_DAMAGE) - if ex then return true end - ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_RECOVER) - return ex -end -function c16617334.operation(e,tp,eg,ep,ev,re,r,rp) - local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetLabel(cid) - e1:SetValue(c16617334.damcon) - e1:SetReset(RESET_CHAIN) - Duel.RegisterEffect(e1,tp) -end -function c16617334.damcon(e,re,val,r,rp,rc) - local cc=Duel.GetCurrentChain() - if cc==0 or bit.band(r,REASON_EFFECT)==0 then return end - local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID) - if cid==e:GetLabel() then return 0 end - return val -end -function c16617334.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2 -end -function c16617334.filter(c) - return c:IsFaceup() and (c:IsSetCard(0x9f) or c:IsSetCard(0x99)) -end -function c16617334.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsOnField() and c16617334.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c16617334.filter,tp,LOCATION_ONFIELD,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c16617334.filter,tp,LOCATION_ONFIELD,0,1,1,nil) -end -function c16617334.operation2(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - tc:RegisterEffect(e2) - end -end +--EMレインゴート +function c16617334.initial_effect(c) + --no damage + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(16617334,0)) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_CHAINING) + e1:SetRange(LOCATION_HAND) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e1:SetCondition(aux.damcon1) + e1:SetCost(c16617334.effcost) + e1:SetOperation(c16617334.operation) + c:RegisterEffect(e1) + --indes + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(16617334,1)) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_HAND) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCondition(c16617334.condition2) + e2:SetCost(c16617334.effcost) + e2:SetTarget(c16617334.target2) + e2:SetOperation(c16617334.operation2) + c:RegisterEffect(e2) +end +function c16617334.effcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) +end +function c16617334.operation(e,tp,eg,ep,ev,re,r,rp) + local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CHANGE_DAMAGE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetLabel(cid) + e1:SetValue(c16617334.damcon) + e1:SetReset(RESET_CHAIN) + Duel.RegisterEffect(e1,tp) +end +function c16617334.damcon(e,re,val,r,rp,rc) + local cc=Duel.GetCurrentChain() + if cc==0 or bit.band(r,REASON_EFFECT)==0 then return end + local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID) + if cid==e:GetLabel() then return 0 end + return val +end +function c16617334.condition2(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2 +end +function c16617334.filter(c) + return c:IsFaceup() and (c:IsSetCard(0x9f) or c:IsSetCard(0x99)) +end +function c16617334.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsOnField() and c16617334.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c16617334.filter,tp,LOCATION_ONFIELD,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c16617334.filter,tp,LOCATION_ONFIELD,0,1,1,nil) +end +function c16617334.operation2(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetValue(1) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + tc:RegisterEffect(e2) + end +end diff --git a/script/c1662004.lua b/script/c1662004.lua index bc84efc3..7ac113ad 100644 --- a/script/c1662004.lua +++ b/script/c1662004.lua @@ -24,7 +24,7 @@ function c1662004.synlimit(e,c) return not c:IsRace(RACE_BEASTWARRIOR) end function c1662004.spfilter(c,e,tp) - return c:IsDefenceBelow(200) and c:IsAttribute(ATTRIBUTE_FIRE) and c:GetLevel()==3 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsDefenseBelow(200) and c:IsAttribute(ATTRIBUTE_FIRE) and c:GetLevel()==3 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c1662004.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c1662004.spfilter(chkc,e,tp) end @@ -36,7 +36,7 @@ function c1662004.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c1662004.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE)>0 then + if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)>0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD) e1:SetCode(EFFECT_CANNOT_ATTACK) diff --git a/script/c16625614.lua b/script/c16625614.lua new file mode 100644 index 00000000..db4c5e05 --- /dev/null +++ b/script/c16625614.lua @@ -0,0 +1,103 @@ +--ダーク・サンクチュアリ +function c16625614.initial_effect(c) + --activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --update effect + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_CHAINING) + e2:SetRange(LOCATION_FZONE) + e2:SetCondition(c16625614.chcon1) + e2:SetOperation(c16625614.chop1) + c:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_CHAIN_ACTIVATING) + e3:SetRange(LOCATION_FZONE) + e3:SetCondition(c16625614.chcon2) + e3:SetOperation(c16625614.chop2) + c:RegisterEffect(e3) + --negate attack + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e4:SetCategory(CATEGORY_COIN) + e4:SetCode(EVENT_ATTACK_ANNOUNCE) + e4:SetRange(LOCATION_FZONE) + e4:SetCondition(c16625614.condition) + e4:SetTarget(c16625614.target) + e4:SetOperation(c16625614.operation) + c:RegisterEffect(e4) +end +function c16625614.chcon1(e,tp,eg,ep,ev,re,r,rp) + local rc=re:GetHandler() + return rc:IsControler(tp) and rc:IsCode(94212438) and re:GetLabel()==94212438 +end +function c16625614.chop1(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():RegisterFlagEffect(16625614,RESET_EVENT+0x1fe0000+RESET_CHAIN,0,1) +end +function c16625614.chcon2(e,tp,eg,ep,ev,re,r,rp) + return ev==1 and e:GetHandler():GetFlagEffect(16625614)>0 +end +function c16625614.chop2(e,tp,eg,ep,ev,re,r,rp) + return Duel.ChangeChainOperation(1,c16625614.dbop) +end +function c16625614.dbop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local ids={31893528,67287533,94772232,30170981} + local id=ids[c:GetFlagEffect(94212438)+1] + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(94212438,1)) + local g=Duel.SelectMatchingCard(tp,Card.IsCode,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,id) + local tc=g:GetFirst() + if tc and Duel.IsPlayerCanSpecialSummonMonster(tp,id,0,0x11,0,0,1,RACE_FIEND,ATTRIBUTE_DARK,POS_FACEUP,tp,181) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.SelectYesNo(tp,aux.Stringid(16625614,0)) then + tc:AddMonsterAttribute(TYPE_NORMAL,ATTRIBUTE_DARK,RACE_FIEND,1,0,0) + Duel.SpecialSummonStep(tc,181,tp,tp,true,false,POS_FACEUP) + tc:AddMonsterAttributeComplete() + --immune + local e7=Effect.CreateEffect(c) + e7:SetType(EFFECT_TYPE_SINGLE) + e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e7:SetRange(LOCATION_MZONE) + e7:SetCode(EFFECT_IMMUNE_EFFECT) + e7:SetValue(c16625614.efilter) + e7:SetReset(RESET_EVENT+0x47c0000) + tc:RegisterEffect(e7) + --cannot be target + local e8=Effect.CreateEffect(c) + e8:SetType(EFFECT_TYPE_SINGLE) + e8:SetCode(EFFECT_IGNORE_BATTLE_TARGET) + e8:SetReset(RESET_EVENT+0x47c0000) + tc:RegisterEffect(e8) + Duel.SpecialSummonComplete() + c:RegisterFlagEffect(94212438,RESET_EVENT+0x1fe0000,0,0) + elseif tc and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then + Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) + c:RegisterFlagEffect(94212438,RESET_EVENT+0x1fe0000,0,0) + end +end +function c16625614.efilter(e,te) + local tc=te:GetHandler() + return not tc:IsCode(94212438) +end +function c16625614.condition(e,tp,eg,ep,ev,re,r,rp) + return tp~=Duel.GetTurnPlayer() +end +function c16625614.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1) +end +function c16625614.operation(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetAttacker() + local coin=Duel.TossCoin(tp,1) + if coin==1 then + if Duel.NegateAttack() then + Duel.Damage(1-tp,math.ceil(tc:GetAttack()/2),REASON_EFFECT) + end + end +end diff --git a/script/c16674846.lua b/script/c16674846.lua index aadbad75..5e0a91c8 100644 --- a/script/c16674846.lua +++ b/script/c16674846.lua @@ -12,8 +12,8 @@ function c16674846.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()~=tp and Duel.GetBattleDamage(tp)>0 end function c16674846.filter(c) - return c:IsDefenceBelow(1500) and c:IsType(TYPE_TUNER) and c:IsRace(RACE_WARRIOR) - and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsDefenseBelow(1500) and c:IsType(TYPE_TUNER) and c:IsRace(RACE_WARRIOR) + and c:IsAbleToHand() end function c16674846.operation(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(e:GetHandler()) @@ -26,6 +26,7 @@ function c16674846.operation(e,tp,eg,ep,ev,re,r,rp) if g:GetCount()~=0 and Duel.SelectYesNo(tp,aux.Stringid(16674846,0)) then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local sg=g:Select(tp,1,1,nil) + if sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SendtoHand(sg,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,sg) end diff --git a/script/c16678947.lua b/script/c16678947.lua index 8018820e..5130c6fb 100644 --- a/script/c16678947.lua +++ b/script/c16678947.lua @@ -22,7 +22,7 @@ function c16678947.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end local tc=eg:GetFirst() local bc=Duel.GetAttacker() - if chk==0 then return bc:IsCanBeEffectTarget(e) and bc:IsDestructable() end + if chk==0 then return bc:IsCanBeEffectTarget(e) end local lv=tc:GetLevel() e:SetLabel(lv) Duel.SetTargetCard(bc) diff --git a/script/c16691074.lua b/script/c16691074.lua old mode 100755 new mode 100644 index d0b3e403..4c81ca6e --- a/script/c16691074.lua +++ b/script/c16691074.lua @@ -33,7 +33,6 @@ function c16691074.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) end function c16691074.spfilter1(c,e,tp) return c:IsSetCard(0x99) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c16691074.atkop(e,tp,eg,ep,ev,re,r,rp) if Duel.NegateAttack() then @@ -42,6 +41,7 @@ function c16691074.atkop(e,tp,eg,ep,ev,re,r,rp) Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g2=g1:Select(tp,1,1,nil) + if g2:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummon(g2,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c1669772.lua b/script/c1669772.lua index 7ec39743..178f37bb 100644 --- a/script/c1669772.lua +++ b/script/c1669772.lua @@ -15,7 +15,7 @@ function c1669772.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c1669772.filter(c) - return c:IsFaceup() and c:GetType()==TYPE_SPELL+TYPE_CONTINUOUS and c:IsDestructable() + return c:IsFaceup() and c:GetType()==TYPE_SPELL+TYPE_CONTINUOUS end function c1669772.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c1669772.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil) end diff --git a/script/c16708652.lua b/script/c16708652.lua index 5068db61..3dcb6816 100644 --- a/script/c16708652.lua +++ b/script/c16708652.lua @@ -1,45 +1,45 @@ ---カラクリ粉 -function c16708652.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetCondition(c16708652.condition) - e1:SetTarget(c16708652.target) - e1:SetOperation(c16708652.activate) - c:RegisterEffect(e1) -end -function c16708652.condition(e,tp,eg,ep,ev,re,r,rp) - local ph=Duel.GetCurrentPhase() - return ph==PHASE_BATTLE or (ph==PHASE_DAMAGE and not Duel.IsDamageCalculated()) -end -function c16708652.filter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:IsSetCard(0x11) -end -function c16708652.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c16708652.filter,tp,LOCATION_MZONE,LOCATION_MZONE,2,nil) end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(16708652,0)) - local g1=Duel.SelectTarget(tp,c16708652.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(16708652,1)) - local g2=Duel.SelectTarget(tp,c16708652.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,g1:GetFirst()) - e:SetLabelObject(g1:GetFirst()) -end -function c16708652.activate(e,tp,eg,ep,ev,re,r,rp) - local tc1=e:GetLabelObject() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc2=g:GetFirst() - if tc1==tc2 then tc2=g:GetNext() end - if tc1:IsRelateToEffect(e) and tc1:IsPosition(POS_FACEUP_ATTACK) and tc2:IsRelateToEffect(e) then - Duel.ChangePosition(tc1,POS_FACEUP_DEFENCE) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(tc1:GetAttack()) - tc2:RegisterEffect(e1) - end -end +--カラクリ粉 +function c16708652.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(TIMING_DAMAGE_STEP) + e1:SetCondition(c16708652.condition) + e1:SetTarget(c16708652.target) + e1:SetOperation(c16708652.activate) + c:RegisterEffect(e1) +end +function c16708652.condition(e,tp,eg,ep,ev,re,r,rp) + local ph=Duel.GetCurrentPhase() + return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE and (ph~=PHASE_DAMAGE or not Duel.IsDamageCalculated()) +end +function c16708652.filter(c) + return c:IsPosition(POS_FACEUP_ATTACK) and c:IsSetCard(0x11) +end +function c16708652.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.IsExistingTarget(c16708652.filter,tp,LOCATION_MZONE,LOCATION_MZONE,2,nil) end + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(16708652,0)) + local g1=Duel.SelectTarget(tp,c16708652.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(16708652,1)) + local g2=Duel.SelectTarget(tp,c16708652.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,g1:GetFirst()) + e:SetLabelObject(g1:GetFirst()) +end +function c16708652.activate(e,tp,eg,ep,ev,re,r,rp) + local tc1=e:GetLabelObject() + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local tc2=g:GetFirst() + if tc1==tc2 then tc2=g:GetNext() end + if tc1:IsRelateToEffect(e) and tc1:IsPosition(POS_FACEUP_ATTACK) and tc2:IsRelateToEffect(e) then + Duel.ChangePosition(tc1,POS_FACEUP_DEFENSE) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(tc1:GetAttack()) + tc2:RegisterEffect(e1) + end +end diff --git a/script/c16719140.lua b/script/c16719140.lua new file mode 100644 index 00000000..823127ea --- /dev/null +++ b/script/c16719140.lua @@ -0,0 +1,90 @@ +--Subterror Nemesis Warrior +function c16719140.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(16719140,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,16719140) + e1:SetCost(c16719140.spcost) + e1:SetTarget(c16719140.sptg1) + e1:SetOperation(c16719140.spop1) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(16719140,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_FLIP) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,16719141) + e2:SetCondition(c16719140.spcon) + e2:SetTarget(c16719140.sptg2) + e2:SetOperation(c16719140.spop2) + c:RegisterEffect(e2) +end +function c16719140.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(100) + if chk==0 then return true end +end +function c16719140.costfilter(c,e,tp,mg,rlv) + local lv=c:GetLevel()-rlv + return lv>0 and c:IsSetCard(0xed) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() + and (c:IsCanBeSpecialSummoned(e,0,tp,false,false) or c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN)) + and mg:CheckWithSumGreater(Card.GetOriginalLevel,lv) +end +function c16719140.sptg1(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + local mg=Duel.GetReleaseGroup(tp) + if chk==0 then + if e:GetLabel()~=100 then return false end + e:SetLabel(0) + if not mg:IsContains(c) then return false end + mg:RemoveCard(c) + return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 + and Duel.IsExistingMatchingCard(c16719140.costfilter,tp,LOCATION_DECK,0,1,nil,e,tp,mg,c:GetOriginalLevel()) + end + e:SetLabel(0) + mg:RemoveCard(c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c16719140.costfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,mg,c:GetOriginalLevel()) + Duel.SendtoGrave(g,REASON_COST) + Duel.SetTargetCard(g) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) +end +function c16719140.spop1(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if Duel.GetLocationCount(tp,LOCATION_MZONE)<-1 then return end + local tc=Duel.GetFirstTarget() + if not tc:IsRelateToEffect(e) then return end + local mg=Duel.GetReleaseGroup(tp) + if not mg:IsContains(c) then return end + mg:RemoveCard(c) + local spos=0 + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then spos=spos+POS_FACEUP_DEFENSE end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENSE end + if spos~=0 then + local g=mg:SelectWithSumGreater(tp,Card.GetOriginalLevel,tc:GetLevel()-c:GetOriginalLevel()) + g:AddCard(c) + if g:GetCount()>=2 and Duel.Release(g,REASON_EFFECT)~=0 then + Duel.SpecialSummon(tc,0,tp,tp,false,false,spos) + end + end +end +function c16719140.spcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(Card.IsSetCard,1,nil,0x10ed) +end +function c16719140.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c16719140.spop2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c16725505.lua b/script/c16725505.lua old mode 100755 new mode 100644 diff --git a/script/c16759958.lua b/script/c16759958.lua new file mode 100644 index 00000000..11eeb5cc --- /dev/null +++ b/script/c16759958.lua @@ -0,0 +1,70 @@ +--アロマセラフィ－アンゼリカ +function c16759958.initial_effect(c) + --recover + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(16759958,0)) + e1:SetCategory(CATEGORY_RECOVER) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_HAND) + e1:SetCountLimit(1,16759958) + e1:SetCost(c16759958.reccost) + e1:SetTarget(c16759958.rectg) + e1:SetOperation(c16759958.recop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(16759958,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,16759959) + e2:SetCondition(c16759958.spcon) + e2:SetTarget(c16759958.sptg) + e2:SetOperation(c16759958.spop) + c:RegisterEffect(e2) +end +function c16759958.reccost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) +end +function c16759958.recfilter(c) + return c:IsSetCard(0xc9) and c:GetAttack()>0 +end +function c16759958.rectg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c16759958.recfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c16759958.recfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + local g=Duel.SelectTarget(tp,c16759958.recfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,g:GetFirst():GetAttack()) +end +function c16759958.recop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:GetAttack()>0 then + Duel.Recover(tp,tc:GetAttack(),REASON_EFFECT) + end +end +function c16759958.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xc9) +end +function c16759958.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetLP(tp)>Duel.GetLP(1-tp) and Duel.IsExistingMatchingCard(c16759958.cfilter,tp,LOCATION_MZONE,0,1,nil) +end +function c16759958.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c16759958.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetReset(RESET_EVENT+0x47e0000) + e1:SetValue(LOCATION_REMOVED) + c:RegisterEffect(e1,true) + end +end diff --git a/script/c16796157.lua b/script/c16796157.lua index c0a9f726..5ebc1935 100644 --- a/script/c16796157.lua +++ b/script/c16796157.lua @@ -16,7 +16,7 @@ function c16796157.thcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c16796157.filter(c) - return c:IsCode(80208158) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(80208158) and c:IsAbleToHand() end function c16796157.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c16796157.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,nil) end @@ -25,7 +25,7 @@ end function c16796157.thop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c16796157.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end diff --git a/script/c16802689.lua b/script/c16802689.lua new file mode 100644 index 00000000..4e6fe226 --- /dev/null +++ b/script/c16802689.lua @@ -0,0 +1,81 @@ +--花札衛－桐に鳳凰－ +function c16802689.initial_effect(c) + c:EnableReviveLimit() + --spsummon from hand + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_HAND) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetCondition(c16802689.hspcon) + e1:SetOperation(c16802689.hspop) + c:RegisterEffect(e1) + --draw(spsummon) + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(16802689,0)) + e2:SetCategory(CATEGORY_DRAW+CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetTarget(c16802689.target) + e2:SetOperation(c16802689.operation) + c:RegisterEffect(e2) + --draw(battle) + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DRAW) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_BATTLE_DAMAGE) + e3:SetCountLimit(1) + e3:SetCondition(c16802689.drcon) + e3:SetTarget(c16802689.drtg) + e3:SetOperation(c16802689.drop) + c:RegisterEffect(e3) +end +function c16802689.hspfilter(c) + return c:IsSetCard(0xe6) and c:GetLevel()==12 and not c:IsCode(16802689) +end +function c16802689.hspcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.CheckReleaseGroup(c:GetControler(),c16802689.hspfilter,1,nil) +end +function c16802689.hspop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.SelectReleaseGroup(c:GetControler(),c16802689.hspfilter,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c16802689.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c16802689.operation(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + if Duel.Draw(p,d,REASON_EFFECT)~=0 then + local tc=Duel.GetOperatedGroup():GetFirst() + Duel.ConfirmCards(1-tp,tc) + Duel.BreakEffect() + if tc:IsType(TYPE_MONSTER) and tc:IsSetCard(0xe6) then + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.SelectYesNo(tp,aux.Stringid(16802689,1)) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end + else + Duel.SendtoGrave(tc,REASON_EFFECT) + end + Duel.ShuffleHand(tp) + end +end +function c16802689.drcon(e,tp,eg,ep,ev,re,r,rp) + return ep~=tp +end +function c16802689.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c16802689.drop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end diff --git a/script/c16832845.lua b/script/c16832845.lua new file mode 100644 index 00000000..b304d697 --- /dev/null +++ b/script/c16832845.lua @@ -0,0 +1,77 @@ +--ファイナル・ギアス +function c16832845.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMING_END_PHASE+TIMING_TOGRAVE) + e1:SetCondition(c16832845.condition) + e1:SetTarget(c16832845.target) + e1:SetOperation(c16832845.activate) + c:RegisterEffect(e1) + if not c16832845.global_check then + c16832845.global_check=true + c16832845[0]=false + c16832845[1]=false + local ge1=Effect.CreateEffect(c) + ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge1:SetCode(EVENT_TO_GRAVE) + ge1:SetOperation(c16832845.checkop) + Duel.RegisterEffect(ge1,0) + local ge2=Effect.CreateEffect(c) + ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW) + ge2:SetOperation(c16832845.clear) + Duel.RegisterEffect(ge2,0) + end +end +function c16832845.checkop(e,tp,eg,ep,ev,re,r,rp) + local tc=eg:GetFirst() + while tc do + if tc:GetOriginalLevel()>=7 and tc:IsPreviousLocation(LOCATION_MZONE) then + c16832845[tc:GetPreviousControler()]=true + end + tc=eg:GetNext() + end +end +function c16832845.clear(e,tp,eg,ep,ev,re,r,rp) + c16832845[0]=false + c16832845[1]=false +end +function c16832845.condition(e,tp,eg,ep,ev,re,r,rp) + return c16832845[0] and c16832845[1] +end +function c16832845.filter(c) + return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() +end +function c16832845.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c16832845.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end + local g=Duel.GetMatchingGroup(c16832845.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil) + if g:FilterCount(Card.IsControler,nil,1-tp)==0 then + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),tp,LOCATION_GRAVE) + elseif g:FilterCount(Card.IsControler,nil,tp)==0 then + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),1-tp,LOCATION_GRAVE) + else + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),PLAYER_ALL,LOCATION_GRAVE) + end +end +function c16832845.spfilter(c,e,tp) + return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and c:IsLocation(LOCATION_REMOVED) and c:GetLevel()>0 +end +function c16832845.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c16832845.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil) + if Duel.Remove(g,POS_FACEUP,REASON_EFFECT)>0 then + local og=Duel.GetOperatedGroup():Filter(c16832845.spfilter,nil,e,tp) + if og:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(16832845,0)) then + Duel.BreakEffect() + local sg=og:GetMaxGroup(Card.GetLevel) + if sg:GetCount()>1 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + sg=sg:Select(tp,1,1,nil) + end + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) + end + end +end diff --git a/script/c1686814.lua b/script/c1686814.lua index 25894907..7b70d75d 100644 --- a/script/c1686814.lua +++ b/script/c1686814.lua @@ -38,7 +38,7 @@ function c1686814.initial_effect(c) c:RegisterEffect(e4) local e5=e4:Clone() e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e5:SetValue(aux.tgval) + e5:SetValue(1) c:RegisterEffect(e5) end function c1686814.sprfilter1(c,tp) diff --git a/script/c16886617.lua b/script/c16886617.lua index 3572b9f2..11b71154 100644 --- a/script/c16886617.lua +++ b/script/c16886617.lua @@ -60,7 +60,7 @@ function c16886617.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Release(g,REASON_COST) end function c16886617.desfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c16886617.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c16886617.desfilter(chkc) end diff --git a/script/c16889337.lua b/script/c16889337.lua index 215aaad0..ec0ee2cd 100644 --- a/script/c16889337.lua +++ b/script/c16889337.lua @@ -1,5 +1,7 @@ --荒魂 function c16889337.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c16889337.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c16889337.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --search local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(16889337,0)) @@ -46,39 +38,3 @@ function c16889337.thop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) end end -function c16889337.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(16889337,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c16889337.retcon) - e1:SetTarget(c16889337.rettg) - e1:SetOperation(c16889337.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c16889337.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c16889337.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c16889337.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c168917.lua b/script/c168917.lua index a7dd8593..1b60d5e6 100644 --- a/script/c168917.lua +++ b/script/c168917.lua @@ -25,7 +25,7 @@ function c168917.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c168917.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then + if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) diff --git a/script/c16898077.lua b/script/c16898077.lua index cf62fe47..436f8f55 100644 --- a/script/c16898077.lua +++ b/script/c16898077.lua @@ -67,10 +67,10 @@ function c16898077.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c16898077.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c16898077.desop(e,tp,eg,ep,ev,re,r,rp) @@ -83,7 +83,7 @@ function c16898077.damcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()~=tp end function c16898077.dfilter(c,e,sp) - return c:GetSummonPlayer()==sp and c:IsDestructable() and (not e or c:IsRelateToEffect(e)) + return c:GetSummonPlayer()==sp and (not e or c:IsRelateToEffect(e)) end function c16898077.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return eg:IsExists(c16898077.dfilter,1,nil,nil,1-tp) end @@ -117,7 +117,7 @@ function c16898077.damcon3(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()~=tp and rp~=tp end function c16898077.sfilter(c,e) - return c:IsFacedown() and c:IsDestructable() and (not e or c:IsRelateToEffect(e)) + return c:IsFacedown() and (not e or c:IsRelateToEffect(e)) end function c16898077.damtg3(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return eg:IsExists(c16898077.sfilter,1,nil) end diff --git a/script/c16906241.lua b/script/c16906241.lua index 0d0462ad..7856ae30 100644 --- a/script/c16906241.lua +++ b/script/c16906241.lua @@ -23,6 +23,6 @@ function c16906241.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c16906241.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_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c16909657.lua b/script/c16909657.lua index fd06e9b0..bae700f6 100644 --- a/script/c16909657.lua +++ b/script/c16909657.lua @@ -21,11 +21,11 @@ function c16909657.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsLocation(LOCATION_GRAVE) and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) end tc:CreateEffectRelation(e) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tc,1,0,LOCATION_GRAVE) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tc,1,0,0) end function c16909657.spop(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetHandler():GetBattleTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then + if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c16947147.lua b/script/c16947147.lua old mode 100755 new mode 100644 index a6fd10c4..0e0c6213 --- a/script/c16947147.lua +++ b/script/c16947147.lua @@ -24,8 +24,12 @@ function c16947147.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c16947147.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK)>0 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK)~=0 then local g=Duel.GetMatchingGroup(Card.IsPosition,tp,0,LOCATION_MZONE,nil,POS_FACEUP_ATTACK) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c16956455.lua b/script/c16956455.lua index a5e30826..8fe082c5 100644 --- a/script/c16956455.lua +++ b/script/c16956455.lua @@ -21,7 +21,7 @@ function c16956455.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,c16956455.cfilter,1,1,REASON_COST+REASON_DISCARD) end function c16956455.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c16956455.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c16956455.filter(chkc) end diff --git a/script/c16964437.lua b/script/c16964437.lua new file mode 100644 index 00000000..5db254ba --- /dev/null +++ b/script/c16964437.lua @@ -0,0 +1,32 @@ +--ダーク・ホライズン +function c16964437.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e1:SetCode(EVENT_DAMAGE) + e1:SetCondition(c16964437.condition) + e1:SetTarget(c16964437.target) + e1:SetOperation(c16964437.activate) + c:RegisterEffect(e1) +end +function c16964437.condition(e,tp,eg,ep,ev,re,r,rp) + return ep==tp +end +function c16964437.filter(c,e,tp,dam) + return c:IsRace(RACE_SPELLCASTER) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsAttackBelow(dam) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c16964437.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c16964437.filter,tp,LOCATION_DECK,0,1,nil,e,tp,ev) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c16964437.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c16964437.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp,ev) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c1697104.lua b/script/c1697104.lua old mode 100755 new mode 100644 index 8d960fda..87e2567c --- a/script/c1697104.lua +++ b/script/c1697104.lua @@ -12,7 +12,7 @@ function c1697104.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(1697104,0)) e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetRange(LOCATION_HAND) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) @@ -32,7 +32,9 @@ function c1697104.spfilter(c,e,tp) return c:IsCode(49036338) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c1697104.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) + and not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(c1697104.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) @@ -42,6 +44,7 @@ function c1697104.target(e,tp,eg,ep,ev,re,r,rp,chk) end end function c1697104.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 or not e:GetHandler():IsRelateToEffect(e) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c1697104.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) diff --git a/script/c170000111.lua b/script/c170000111.lua deleted file mode 100644 index a5e833cd..00000000 --- a/script/c170000111.lua +++ /dev/null @@ -1,68 +0,0 @@ ---Magnet Warrior Sigma Plus -function c170000111.initial_effect(c) - --Cannot attack a plus - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(0,LOCATION_MZONE) - e1:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e1:SetTarget(c170000111.attg) - e1:SetCondition(c170000111.atcon) - e1:SetValue(c170000111.atval) - c:RegisterEffect(e1) - --Must attack a minus - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,LOCATION_MZONE) - e2:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e2:SetCondition(c170000111.con) - e2:SetTarget(c170000111.tg) - e2:SetValue(c170000111.vala) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CANNOT_EP) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetTargetRange(1,0) - e3:SetCondition(c170000111.becon) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MUST_ATTACK) - e4:SetCondition(c170000111.becon) - c:RegisterEffect(e4) -end -function c170000111.atkfilter(c) - return c:IsFaceup() and c:IsSetCard(0x26F4) or c:IsSetCard(0x5F1A62F) -end -function c170000111.atcon(e) - return Duel.IsExistingMatchingCard(c170000111.atkfilter,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil) -end -function c170000111.attg(e,c) - return c:IsSetCard(0x26F4) or c:IsSetCard(0x5F1A62F) -end -function c170000111.atval(e,c) - return c==e:GetHandler() -end -function c170000111.filter(c) - return c:IsFaceup() and c:IsSetCard(0xAEF) or c:GetEquipGroup():IsExists(Card.IsCode,1,nil,170000123) -end -function c170000111.con(e,c) -local c=e:GetHandler() -return Duel.IsExistingMatchingCard(c170000111.filter,c:GetControler(),0,LOCATION_MZONE,1,nil) and c:IsAttackable() -end -function c170000111.tg(e,c) - return not (c:IsSetCard(0xAEF) or c:GetEquipGroup():IsExists(Card.IsCode,1,nil,170000123) and c:IsFaceup()) -end -function c170000111.vala(e,c) - return c==e:GetHandler() -end -function c170000111.befilter(c) - return c:IsAttackable() -end -function c170000111.becon(e,c) -local c=e:GetHandler() - return Duel.IsExistingMatchingCard(c170000111.filter,c:GetControler(),0,LOCATION_MZONE,1,nil) and c:IsAttackable() -end \ No newline at end of file diff --git a/script/c170000112.lua b/script/c170000112.lua deleted file mode 100644 index f2bda88a..00000000 --- a/script/c170000112.lua +++ /dev/null @@ -1,70 +0,0 @@ ---Magnet Warrior Omega Minus -function c170000112.initial_effect(c) - --Cannot attack a minus - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(0,LOCATION_MZONE) - e1:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e1:SetTarget(c170000112.attg) - e1:SetCondition(c170000112.atcon) - e1:SetValue(c170000112.atval) - c:RegisterEffect(e1) - --Must attack a plus - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,LOCATION_MZONE) - e2:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e2:SetCondition(c170000112.con) - e2:SetTarget(c170000112.tg) - e2:SetValue(c170000112.vala) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CANNOT_EP) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetTargetRange(1,0) - e3:SetCondition(c170000112.becon) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MUST_ATTACK) - e4:SetCondition(c170000112.becon) - c:RegisterEffect(e4) -end -function c170000112.atkfilter(c) - return c:IsFaceup() and c:IsSetCard(0xAEF) or c:IsSetCard(0x5F1A62F) or c:GetEquipGroup():IsExists(Card.IsCode,1,nil,170000123) -end -function c170000112.atcon(e) - return Duel.IsExistingMatchingCard(c170000112.atkfilter,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil) -end -function c170000112.attg(e,c) - return c:IsSetCard(0xAEF) or c:IsSetCard(0x5F1A62F) or c:GetEquipGroup():IsExists(Card.IsCode,1,nil,170000123) -end -function c170000112.atval(e,c) - return c==e:GetHandler() -end -function c170000112.filter(c) - return c:IsFaceup() and c:IsSetCard(0x26F4) -end -function c170000112.con(e,c,tp,eg,ep,ev,re,r,rp) -local c=e:GetHandler() -return Duel.IsExistingMatchingCard(c170000112.filter,c:GetControler(),0,LOCATION_MZONE,1,nil) and c:IsAttackable() -and not c:GetEquipGroup():IsExists(Card.IsCode,1,nil,170000123) -end -function c170000112.tg(e,c) - return not (c:IsSetCard(0x26F4) and c:IsFaceup()) -end -function c170000112.vala(e,c) - return c==e:GetHandler() -end -function c170000112.befilter(c) - return c:IsAttackable() -end -function c170000112.becon(e,c,tp,eg,ep,ev,re,r,rp) -local c=e:GetHandler() - return Duel.IsExistingMatchingCard(c170000112.filter,c:GetControler(),0,LOCATION_MZONE,1,nil) and c:IsAttackable() - and not c:GetEquipGroup():IsExists(Card.IsCode,1,nil,170000123) -end \ No newline at end of file diff --git a/script/c170000113.lua b/script/c170000113.lua deleted file mode 100644 index 486dc9d5..00000000 --- a/script/c170000113.lua +++ /dev/null @@ -1,68 +0,0 @@ ---Magnet Warrior Sigma Minus -function c170000113.initial_effect(c) - --Cannot attack a minus - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(0,LOCATION_MZONE) - e1:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e1:SetTarget(c170000113.attg) - e1:SetCondition(c170000113.atcon) - e1:SetValue(c170000113.atval) - c:RegisterEffect(e1) - --Must attack a plus - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,LOCATION_MZONE) - e2:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e2:SetCondition(c170000113.con) - e2:SetTarget(c170000113.tg) - e2:SetValue(c170000113.vala) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CANNOT_EP) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetTargetRange(1,0) - e3:SetCondition(c170000113.becon) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MUST_ATTACK) - e4:SetCondition(c170000113.becon) - c:RegisterEffect(e4) -end -function c170000113.atkfilter(c) - return c:IsFaceup() and c:IsSetCard(0xAEF) or c:IsSetCard(0x5F1A62F) or c:GetEquipGroup():IsExists(Card.IsCode,1,nil,170000123) -end -function c170000113.atcon(e) - return Duel.IsExistingMatchingCard(c170000113.atkfilter,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil) -end -function c170000113.attg(e,c) - return c:IsSetCard(0xAEF) or c:IsSetCard(0x5F1A62F) or c:GetEquipGroup():IsExists(Card.IsCode,1,nil,170000123) -end -function c170000113.atval(e,c) - return c==e:GetHandler() -end -function c170000113.filter(c) - return c:IsFaceup() and c:IsSetCard(0x26F4) -end -function c170000113.con(e,c) -local c=e:GetHandler() -return Duel.IsExistingMatchingCard(c170000113.filter,c:GetControler(),0,LOCATION_MZONE,1,nil) and c:IsAttackable() -end -function c170000113.tg(e,c) - return not (c:IsSetCard(0x26F4) and c:IsFaceup()) -end -function c170000113.vala(e,c) - return c==e:GetHandler() -end -function c170000113.befilter(c) - return c:IsAttackable() -end -function c170000113.becon(e,c) -local c=e:GetHandler() - return Duel.IsExistingMatchingCard(c170000113.filter,c:GetControler(),0,LOCATION_MZONE,1,nil) and c:IsAttackable() -end \ No newline at end of file diff --git a/script/c170000115.lua b/script/c170000115.lua deleted file mode 100644 index f56017a4..00000000 --- a/script/c170000115.lua +++ /dev/null @@ -1,29 +0,0 @@ ---Magnet Conductor Plus -function c170000115.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c170000115.target) - e1:SetOperation(c170000115.activate) - c:RegisterEffect(e1) -end -function c170000115.filter(c) - return c:IsSetCard(0x26F4) or c:IsSetCard(0x5F1A62F) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c170000115.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c170000115.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c170000115.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c170000115.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c170000115.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c170000116.lua b/script/c170000116.lua deleted file mode 100644 index 6e415e02..00000000 --- a/script/c170000116.lua +++ /dev/null @@ -1,114 +0,0 @@ ---Conduction Warrior Linear Magnum Plus Minus -function c170000116.initial_effect(c) - c:EnableReviveLimit() - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c170000116.spcon) - e1:SetOperation(c170000116.spop) - e1:SetValue(1) - c:RegisterEffect(e1) - --Increase ATK - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetTarget(c170000116.atktg) - e2:SetOperation(c170000116.atkop) - c:RegisterEffect(e2) - --Must attack a plus/ minus - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(0,LOCATION_MZONE) - e3:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e3:SetCondition(c170000116.con) - e3:SetTarget(c170000116.tg) - e3:SetValue(c170000116.vala) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_CANNOT_EP) - e4:SetRange(LOCATION_MZONE) - e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e4:SetTargetRange(1,0) - e4:SetCondition(c170000116.becon) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_MUST_ATTACK) - e5:SetCondition(c170000116.becon) - c:RegisterEffect(e5) -end -function c170000116.spfilter(c) - return c:IsSetCard(0x26F4) or c:IsSetCard(0x5F1A62F) and c:IsAbleToGraveAsCost() -end -function c170000116.spfilter2(c) - return c:IsSetCard(0xAEF) or c:IsSetCard(0x5F1A62F) and c:IsAbleToGraveAsCost() -end -function c170000116.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c170000116.spfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,c) - and Duel.IsExistingMatchingCard(c170000116.spfilter2,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,c) -end -function c170000116.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c170000116.spfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,c) - local g2=Duel.SelectMatchingCard(tp,c170000116.spfilter2,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,c) - Duel.SendtoGrave(g,REASON_COST) - Duel.SendtoGrave(g2,REASON_COST) - e:SetLabel(g:GetFirst():GetLevel()) -end -function c170000116.filter(c) - return c:IsSetCard(0xAEF) or c:IsSetCard(0x26F4) or c:IsSetCard(0x5F1A62F) or c:GetEquipGroup():IsExists(Card.IsCode,1,nil,170000123) -end -function c170000116.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c170000116.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c170000116.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c170000116.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c170000116.atkop(e,tp,eg,ep,ev,re,r,rp) -local c=e:GetHandler() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - if g:GetCount()>0 then - local atk=0 - local tc=g:GetFirst() - while tc do - atk=atk+tc:GetAttack() - tc=g:GetNext() - end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(atk/2) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end -end -function c170000116.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0xAEF) or c:IsSetCard(0x26F4) or c:IsSetCard(0x5F1A62F) or c:GetEquipGroup():IsExists(Card.IsCode,1,nil,170000123) -end -function c170000116.con(e,c) -local c=e:GetHandler() -return Duel.IsExistingMatchingCard(c170000116.cfilter,c:GetControler(),0,LOCATION_MZONE,1,nil) and c:IsAttackable() -end -function c170000116.tg(e,c) - return not (c:IsSetCard(0xAEF) or c:IsSetCard(0x26F4) or c:IsSetCard(0x5F1A62F) or c:GetEquipGroup():IsExists(Card.IsCode,1,nil,170000123) and c:IsFaceup()) -end -function c170000116.vala(e,c) - return c==e:GetHandler() -end -function c170000116.befilter(c) - return c:IsAttackable() -end -function c170000116.becon(e,c) -local c=e:GetHandler() - return Duel.IsExistingMatchingCard(c170000116.cfilter,c:GetControler(),0,LOCATION_MZONE,1,nil) and c:IsAttackable() -end \ No newline at end of file diff --git a/script/c170000119.lua b/script/c170000119.lua deleted file mode 100644 index 4e938d32..00000000 --- a/script/c170000119.lua +++ /dev/null @@ -1,31 +0,0 @@ ---Blasting Vein -function c170000119.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c170000119.target) - e1:SetOperation(c170000119.activate) - c:RegisterEffect(e1) -end -function c170000119.filter(c) - return c:IsFacedown() and c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) -end -function c170000119.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c170000119.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c170000119.filter,tp,LOCATION_SZONE,0,1,e:GetHandler()) - and Duel.IsPlayerCanDraw(tp,2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c170000119.filter,tp,LOCATION_SZONE,0,1,1,e:GetHandler()) - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c170000119.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c170000120.lua b/script/c170000120.lua deleted file mode 100644 index 3aeccf33..00000000 --- a/script/c170000120.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Fire Recovery -function c170000120.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c170000120.cost) - e1:SetTarget(c170000120.target) - e1:SetOperation(c170000120.activate) - c:RegisterEffect(e1) -end -function c170000120.cfilter(c,e,tp) - return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsDiscardable() -end -function c170000120.filter(c,e,tp) - return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c170000120.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c170000120.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,c170000120.cfilter,1,1,REASON_COST+REASON_DISCARD) -end -function c170000120.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c170000120.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c170000120.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c170000120.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c170000121.lua b/script/c170000121.lua deleted file mode 100644 index 8eff9b32..00000000 --- a/script/c170000121.lua +++ /dev/null @@ -1,26 +0,0 @@ ---Bonfire -function c170000121.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c170000121.target) - e1:SetOperation(c170000121.activate) - c:RegisterEffect(e1) -end -function c170000121.filter(c) - return c:IsLevelBelow(4) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToHand() -end -function c170000121.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c170000121.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c170000121.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c170000121.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c170000122.lua b/script/c170000122.lua deleted file mode 100644 index c6c2d386..00000000 --- a/script/c170000122.lua +++ /dev/null @@ -1,99 +0,0 @@ ---Magnet Force Plus -function c170000122.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c170000122.target) - e1:SetOperation(c170000122.operation) - c:RegisterEffect(e1) -end -function c170000122.filter(c) - return c:IsFaceup() -end -function c170000122.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c170000122.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c170000122.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,c170000122.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c170000122.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsLocation(LOCATION_SZONE) then return end - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,c,tc) - c:CancelToGrave() - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(c170000122.eqlimit) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) - --cannot be battle target - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD) - e5:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e5:SetRange(LOCATION_MZONE) - e5:SetTargetRange(0,LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e5:SetCondition(c170000122.ocon1) - e5:SetTarget(c170000122.tg) - e5:SetValue(1) - tc:RegisterEffect(e5,tp) - --Must attack a minus - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(0,LOCATION_MZONE) - e3:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e3:SetCondition(c170000122.ocon2) - e3:SetTarget(c170000122.tg2) - e3:SetValue(c170000122.vala) - tc:RegisterEffect(e3,tp) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MUST_ATTACK) - e4:SetCondition(c170000122.becon) - tc:RegisterEffect(e4) - end -end -function c170000122.eqlimit(e,c) - return c:IsFaceup() -end -function c170000122.efilter(e,re) - return e:GetOwnerPlayer()~=re:GetOwnerPlayer() -end -function c170000122.ocon1(e) - local c=e:GetHandler() - return Duel.GetAttacker()==c:GetEquipTarget() -end -function c170000122.tg(e,c) - return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x26F4) or c:IsSetCard(0x5F1A62F) -end -function c170000122.filter2(c) - return c:IsFaceup() and c:IsSetCard(0xAEF) -end -function c170000122.ocon2(e) - local c=e:GetHandler() - return Duel.GetAttacker()==c:GetEquipTarget() and - Duel.IsExistingMatchingCard(c170000122.filter2,c:GetControler(),0,LOCATION_MZONE,1,nil) and c:IsAttackable() -end -function c170000122.tg2(e,c) - return not (c:IsSetCard(0xAEF) and c:IsFaceup()) -end -function c170000122.vala(e,c) - return c==e:GetHandler() -end -function c170000122.befilter(c) - return c:IsAttackable() -end -function c170000122.becon(e,c) -local c=e:GetHandler() - return Duel.GetAttacker()==c:GetEquipTarget() and Duel.IsExistingMatchingCard(c170000122.filter,c:GetControler(),0,LOCATION_MZONE,1,nil) and c:IsAttackable() -end \ No newline at end of file diff --git a/script/c170000123.lua b/script/c170000123.lua deleted file mode 100644 index b1bde42d..00000000 --- a/script/c170000123.lua +++ /dev/null @@ -1,99 +0,0 @@ ---Magnet Force Minus -function c170000123.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c170000123.target) - e1:SetOperation(c170000123.operation) - c:RegisterEffect(e1) -end -function c170000123.filter(c) - return c:IsFaceup() -end -function c170000123.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c170000123.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c170000123.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,c170000123.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c170000123.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsLocation(LOCATION_SZONE) then return end - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,c,tc) - c:CancelToGrave() - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(c170000123.eqlimit) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) - --cannot be battle target - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD) - e5:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e5:SetRange(LOCATION_MZONE) - e5:SetTargetRange(0,LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e5:SetCondition(c170000123.ocon1) - e5:SetTarget(c170000123.tg) - e5:SetValue(1) - tc:RegisterEffect(e5,tp) - --Must attack a minus - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(0,LOCATION_MZONE) - e3:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e3:SetCondition(c170000123.ocon2) - e3:SetTarget(c170000123.tg2) - e3:SetValue(c170000123.vala) - tc:RegisterEffect(e3,tp) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MUST_ATTACK) - e4:SetCondition(c170000123.becon) - tc:RegisterEffect(e4) - end -end -function c170000123.eqlimit(e,c) - return c:IsFaceup() -end -function c170000123.efilter(e,re) - return e:GetOwnerPlayer()~=re:GetOwnerPlayer() -end -function c170000123.ocon1(e) - local c=e:GetHandler() - return Duel.GetAttacker()==c:GetEquipTarget() -end -function c170000123.tg(e,c) - return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xAEF) or c:IsSetCard(0x5F1A62F) -end -function c170000123.filter2(c) - return c:IsFaceup() and c:IsSetCard(0x26F4) -end -function c170000123.ocon2(e) - local c=e:GetHandler() - return Duel.GetAttacker()==c:GetEquipTarget() and - Duel.IsExistingMatchingCard(c170000123.filter2,c:GetControler(),0,LOCATION_MZONE,1,nil) and c:IsAttackable() -end -function c170000123.tg2(e,c) - return not (c:IsSetCard(0x26F4) and c:IsFaceup()) -end -function c170000123.vala(e,c) - return c==e:GetHandler() -end -function c170000123.befilter(c) - return c:IsAttackable() -end -function c170000123.becon(e,c) -local c=e:GetHandler() - return Duel.GetAttacker()==c:GetEquipTarget() and Duel.IsExistingMatchingCard(c170000123.filter,c:GetControler(),0,LOCATION_MZONE,1,nil) and c:IsAttackable() -end \ No newline at end of file diff --git a/script/c170000166.lua b/script/c170000166.lua deleted file mode 100644 index 69dffc2e..00000000 --- a/script/c170000166.lua +++ /dev/null @@ -1,104 +0,0 @@ ---Orichlachos Kytora -function c170000166.initial_effect(c) - c:EnableReviveLimit() - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c170000166.spcon) - e1:SetOperation(c170000166.spop) - c:RegisterEffect(e1) - --Negates Battle Damage - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_QUICK_F) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e2:SetCondition(c170000166.rdcon) - e2:SetOperation(c170000166.rdop) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e3:SetCode(EVENT_DESTROYED) - e3:SetTarget(c170000166.target) - e3:SetOperation(c170000166.operation) - c:RegisterEffect(e3) - - if not c170000166.global_check then - c170000166.global_check=true - c170000166[0]=0 - c170000166[1]=0 - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_PRE_BATTLE_DAMAGE) - ge1:SetOperation(c170000166.checkop) - Duel.RegisterEffect(ge1,0) -end -end -function c170000166.filter(c,e,tp) - return c:IsCode(170000167) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c170000166.filter2(c,e,tp) - return c:IsCode(170000168) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c170000166.filter3(c,e,tp) - return c:IsCode(170000169) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c170000166.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and - Duel.CheckLPCost(c:GetControler(),500) -end -function c170000166.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.PayLPCost(tp,500) -end -function c170000166.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND) -end -function c170000166.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=2 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c170000166.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - local g2=Duel.SelectMatchingCard(tp,c170000166.filter2,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - local g3=Duel.SelectMatchingCard(tp,c170000166.filter3,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - local tc2=g2:GetFirst() - local tc3=g3:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - local e1=Effect.CreateEffect(tc) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(c170000166[tp]) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - tc:CompleteProcedure() - if tc2 then - Duel.SpecialSummon(tc2,0,tp,tp,true,false,POS_FACEUP) - if tc3 then - Duel.SpecialSummon(tc3,0,tp,tp,true,false,POS_FACEUP) - end - end - end -end -function c170000166.rdcon(e,tp,eg,ep,ev,re,r,rp) -return Duel.GetAttacker()~=nil and Duel.GetAttackTarget()~=nil -end -function c170000166.rdop(e,tp,eg,ep,ev,re,r,rp) -if Duel.GetAttacker()~=nil and Duel.GetAttackTarget()~=nil then -Duel.ChangeBattleDamage(tp,0) -end -end -function c170000166.checkop(e,tp,eg,ep,ev,re,r,rp) -if bit.band(r,REASON_BATTLE)==0 and Duel.GetAttacker()~=nil and Duel.GetAttackTarget()~=nil then -c170000166[ep]=c170000166[ep]+ev -end -end \ No newline at end of file diff --git a/script/c170000167.lua b/script/c170000167.lua deleted file mode 100644 index e2900c44..00000000 --- a/script/c170000167.lua +++ /dev/null @@ -1,93 +0,0 @@ ---Orichalcos Shunoros (Anime) ---By Jackmoonward -function c170000167.initial_effect(c) - c:EnableReviveLimit() - --cannot summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --ATK goes down - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_BATTLED) - e2:SetCondition(c170000167.statcon) - e2:SetOperation(c170000167.statop) - c:RegisterEffect(e2) - --DEF goes down - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_BATTLED) - e3:SetCondition(c170000167.statcon2) - e3:SetOperation(c170000167.statop2) - c:RegisterEffect(e3) - --DIVINE SERPENT - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetCode(EVENT_DESTROYED) - e4:SetCondition(c170000167.dscon) - e4:SetTarget(c170000167.dstg) - e4:SetOperation(c170000167.dsop) - c:RegisterEffect(e4) -end -function c170000167.statcon(e,tp,eg,ep,ev,re,r,rp) -local c=e:GetHandler() -local a=Duel.GetAttacker() -local b=Duel.GetAttackTarget() -if c==nil or a==nil or b==nil then return end -if c==a then return b:GetPosition()==POS_FACEUP_ATTACK or b:GetPosition()==POS_FACEDOWN_ATTACK -else if c==b then return a:GetPosition()==POS_FACEUP_ATTACK or a:GetPosition()==POS_FACEDOWN_ATTACK -end -end -end -function c170000167.statop(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetHandler():GetBattleTarget() - local atk=bc:GetAttack() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-atk) - e1:SetReset(RESET_EVENT+0x1fe0000) - e:GetHandler():RegisterEffect(e1) -end -function c170000167.statcon2(e,tp,eg,ep,ev,re,r,rp) -local c=e:GetHandler() -local a=Duel.GetAttacker() -local b=Duel.GetAttackTarget() -if c==a then return b:GetPosition()==POS_FACEUP_DEFENCE or b:GetPosition()==POS_FACEDOWN_DEFENCE -else if c==b then return a:GetPosition()==POS_FACEUP_DEFENCE or a:GetPosition()==POS_FACEDOWN_DEFENCE -end -end -end -function c170000167.statop2(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetHandler():GetBattleTarget() - local def=bc:GetDefence() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-def) - e1:SetReset(RESET_EVENT+0x1fe0000) - e:GetHandler():RegisterEffect(e1) -end -function c170000167.dscon(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetPreviousAttackOnField()==0 and Duel.GetLP(tp)>=10000 end -end -function c170000167.dstg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND) -end -function c170000167.filter(c,e,tp) - return c:IsCode(170000170) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c170000167.dsop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c170000167.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end \ No newline at end of file diff --git a/script/c170000168.lua b/script/c170000168.lua deleted file mode 100644 index 1c3d6e9c..00000000 --- a/script/c170000168.lua +++ /dev/null @@ -1,74 +0,0 @@ ---Orichalcos Dexia ---By Jackmoonward -function c170000168.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --ATK Increase - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_ATTACK_FINAL) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(c170000168.adval) - c:RegisterEffect(e2) - --Shunoros Debuf - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_REMOVE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_BATTLED) - e3:SetTarget(c170000168.target) - e3:SetOperation(c170000168.operation) - c:RegisterEffect(e3) - --Destroyed when Shunoros leaves the field - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_SELF_DESTROY) - e3:SetCondition(c170000168.descon) - c:RegisterEffect(e3) -end -function c170000168.adval(e,c) - local ph=Duel.GetCurrentPhase() - local c=e:GetHandler() - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if ph==PHASE_DAMAGE_CAL or PHASE_DAMAGE or Duel.IsDamageCalculated() and c:IsRelateToBattle() then - if a==c and d:IsAttackPos() then return d:GetAttack()+300 end - if a==c and d:IsDefencePos() then return d:GetDefence()+300 end - if d==c then return a:GetAttack()+300 end - if not a==c and not d==c then return 0 end - end - if not ph==PHASE_DAMAGE_CAL or not PHASE_DAMAGE or not Duel.IsDamageCalculated() then return 0 end -end -function c170000168.filter(c) - return c:IsFaceup() and c:IsCode(170000167) and c:GetAttack()~=0 -end -function c170000168.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c170000168.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c170000168.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c170000168.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c170000168.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-e:GetHandler():GetAttack()) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end -function c170000168.filter2(c) - return c:IsFaceup() and c:IsCode(170000167) -end -function c170000168.descon(e) - return not Duel.IsExistingMatchingCard(c170000168.filter2,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end \ No newline at end of file diff --git a/script/c170000169.lua b/script/c170000169.lua deleted file mode 100644 index 8e61737a..00000000 --- a/script/c170000169.lua +++ /dev/null @@ -1,77 +0,0 @@ ---Orichalcos Aristeros ---By Jackmoonward -function c170000169.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --change battle target - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c170000169.cbcon) - e2:SetOperation(c170000169.cbop) - c:RegisterEffect(e2) - --Shunoros Debuf - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_REMOVE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_BATTLED) - e3:SetTarget(c170000169.target) - e3:SetOperation(c170000169.operation) - c:RegisterEffect(e3) - --Destroyed when Shunoros leaves the field - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_SELF_DESTROY) - e3:SetCondition(c170000169.descon) - c:RegisterEffect(e3) -end -function c170000169.cbcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c170000169.cbop(e,tp,eg,ep,ev,re,r,rp) -local c=e:GetHandler() -Duel.ChangeAttackTarget(c) -local b=Duel.GetAttacker() -local def=b:GetAttack()+300 -e:SetLabel(def) -local e1=Effect.CreateEffect(c) -e1:SetType(EFFECT_TYPE_SINGLE) -e1:SetCode(EFFECT_SET_DEFENCE_FINAL) -e1:SetValue(def) -e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_DAMAGE) -c:RegisterEffect(e1) -end -function c170000169.filter(c) - return c:IsFaceup() and c:IsCode(170000167) and c:GetAttack()~=0 -end -function c170000169.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c170000169.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c170000169.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c170000169.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c170000169.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-e:GetHandler():GetDefence()) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end -function c170000169.filter2(c) - return c:IsFaceup() and c:IsCode(170000167) -end -function c170000169.descon(e) - return not Duel.IsExistingMatchingCard(c170000169.filter2,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end diff --git a/script/c170000170.lua b/script/c170000170.lua deleted file mode 100644 index f95c8932..00000000 --- a/script/c170000170.lua +++ /dev/null @@ -1,102 +0,0 @@ ---Divine Serpent ---By Jackmoonward -function c170000170.initial_effect(c) -c:EnableReviveLimit() ---cannot special summon -local e1=Effect.CreateEffect(c) -e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) -e1:SetType(EFFECT_TYPE_SINGLE) -e1:SetCode(EFFECT_SPSUMMON_CONDITION) -c:RegisterEffect(e1) ---Cannot Lose -local e2=Effect.CreateEffect(c) -e2:SetType(EFFECT_TYPE_FIELD) -e2:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) -e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) -e2:SetRange(LOCATION_MZONE) -e2:SetTargetRange(1,0) -e2:SetValue(0) -c:RegisterEffect(e2) -local e3=Effect.CreateEffect(c) -e3:SetType(EFFECT_TYPE_FIELD) -e3:SetCode(EFFECT_DRAW_COUNT) -e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) -e3:SetRange(LOCATION_MZONE) -e3:SetTargetRange(1,0) -e3:SetValue(c170000170.dc) -c:RegisterEffect(e3) ---spsummon success -local e4=Effect.CreateEffect(c) -e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) -e4:SetCode(EVENT_SPSUMMON_SUCCESS) -e4:SetOperation(c170000170.sucop) -c:RegisterEffect(e4) ---attack cost -local e5=Effect.CreateEffect(c) -e5:SetType(EFFECT_TYPE_SINGLE) -e5:SetCode(EFFECT_ATTACK_COST) -e5:SetCost(c170000170.atcost) -e5:SetOperation(c170000170.atop) -c:RegisterEffect(e5) ---damage reduce -local e6=Effect.CreateEffect(c) -e6:SetType(EFFECT_TYPE_FIELD) -e6:SetCode(EFFECT_CHANGE_DAMAGE) -e6:SetProperty(EFFECT_FLAG_PLAYER_TARGET) -e6:SetRange(LOCATION_MZONE) -e6:SetTargetRange(1,0) -e6:SetValue(c170000170.damval) -c:RegisterEffect(e6) ---damage reduce -local e7=Effect.CreateEffect(c) -e7:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) -e7:SetRange(LOCATION_MZONE) -e7:SetCode(EVENT_PRE_BATTLE_DAMAGE) -e7:SetCondition(c170000170.rdcon) -e7:SetOperation(c170000170.rdop) -c:RegisterEffect(e7) -end -function c170000170.dc(e) -local tp=e:GetHandler():GetControler() -if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 then -return 1 -else -return 0 -end -end -function c170000170.sucop(e,tp,eg,ep,ev,re,r,rp) -Duel.SetLP(tp,0) -Duel.SetLP(tp,1) -local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0) -Duel.SendtoGrave(g,REASON_EFFECT) ---lose -local e1=Effect.CreateEffect(e:GetHandler()) -e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) -e1:SetCode(EVENT_LEAVE_FIELD) -e1:SetCondition(c170000170.losecon) -e1:SetOperation(c170000170.lose) -e:GetHandler():RegisterEffect(e1) -end -function c170000170.atcost(e,c,tp) - return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=10 -end -function c170000170.atop(e,tp,eg,ep,ev,re,r,rp) - Duel.DiscardDeck(tp,10,REASON_COST) -end -function c170000170.damval(e,re,val,r,rp,rc) - if bit.band(r,REASON_EFFECT)~=0 then return 0 end - return val -end -function c170000170.rdcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler()==Duel.GetAttackTarget() or e:GetHandler()==Duel.GetAttacker() -end -function c170000170.rdop(e,tp,eg,ep,ev,re,r,rp) -local X=Duel.GetLP(1-tp) -Duel.ChangeBattleDamage(ep,X) -end -function c170000170.losecon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetLP(tp)<=1 - end -function c170000170.lose(e,tp,eg,ep,ev,re,r,rp) - Duel.SetLP(tp,0) -end \ No newline at end of file diff --git a/script/c170000171.lua b/script/c170000171.lua deleted file mode 100644 index ca34919e..00000000 --- a/script/c170000171.lua +++ /dev/null @@ -1,58 +0,0 @@ ---Orichalcos Gigas -function c170000171.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CHAIN_UNIQUE) - e1:SetCode(EVENT_DESTROYED) - e1:SetCondition(c170000171.condition) - e1:SetTarget(c170000171.target) - e1:SetOperation(c170000171.operation) - c:RegisterEffect(e1) - --Skip Draw Phase - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(1,0) - e2:SetCode(EFFECT_SKIP_DP) - c:RegisterEffect(e2) - - if not c170000171.global_check then - c170000171.global_check=true - c170000171[0]=0 - c170000171[1]=0 - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_DESTROYED) - ge1:SetOperation(c170000171.checkop) - Duel.RegisterEffect(ge1,0) -end -end -function c170000171.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsReason(REASON_DESTROY) -end -function c170000171.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c170000171.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if e:GetHandler() then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) - --+500 Every time destroyed - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetValue(c170000171[tp]+500) - e:GetHandler():RegisterEffect(e2) - e:GetHandler():CompleteProcedure() - end - end -function c170000171.checkop(e,tp,eg,ep,ev,re,r,rp) -c170000171[ep]=c170000171[ep] -end \ No newline at end of file diff --git a/script/c170000172.lua b/script/c170000172.lua deleted file mode 100644 index 9a397950..00000000 --- a/script/c170000172.lua +++ /dev/null @@ -1,26 +0,0 @@ ---Orichalcos Malevolence -function c170000172.initial_effect(c) - --pos change - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c170000172.target) - e1:SetOperation(c170000172.operation) - c:RegisterEffect(e1) -end -function c170000172.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDefencePos() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDefencePos,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEFENCE) - local g=Duel.SelectTarget(tp,Card.IsDefencePos,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c170000172.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsDefencePos() then - Duel.ChangePosition(tc,POS_FACEUP_ATTACK) - end -end diff --git a/script/c170000173.lua b/script/c170000173.lua deleted file mode 100644 index e0464cce..00000000 --- a/script/c170000173.lua +++ /dev/null @@ -1,4 +0,0 @@ ---Orichalcos Mirror -function c170000173.initial_effect(c) - aux.AddRitualProcGreater(c,aux.FilterBoolFunction(Card.IsCode,170000174)) -end diff --git a/script/c170000174.lua b/script/c170000174.lua deleted file mode 100644 index 3628fc64..00000000 --- a/script/c170000174.lua +++ /dev/null @@ -1,83 +0,0 @@ ---Mirror Knight Calling -function c170000174.initial_effect(c) - c:EnableReviveLimit() - --Special Summon Tokens - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c170000174.spcon) - e1:SetTarget(c170000174.target) - e1:SetOperation(c170000174.operation) - c:RegisterEffect(e1) - --Renew Mirror Shields - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetProperty(EFFECT_FLAG_REPEAT) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetOperation(c170000174.renop) - c:RegisterEffect(e2) -end -function c170000174.spcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL -end -function c170000174.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,4,tp,0) - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,4,tp,0) -end -function c170000174.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<3 then return end - if not Duel.IsPlayerCanSpecialSummonMonster(tp,170000175,0,0x4011,0,0,1,RACE_WARRIOR,ATTRIBUTE_DARK) then return end - for i=1,4 do - local token=Duel.CreateToken(tp,170000175) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - token:AddCounter(0x97,1) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EFFECT_DESTROY_REPLACE) - e1:SetTarget(c170000174.reptg) - e1:SetOperation(c170000174.repop) - e1:SetReset(RESET_EVENT+0x1fe0000) - token:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) - e2:SetCondition(c170000174.atkcon) - e2:SetOperation(c170000174.atkop) - token:RegisterEffect(e2) - end - Duel.SpecialSummonComplete() -end -function c170000174.atkcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler()==Duel.GetAttacker() and Duel.GetAttackTarget()~=nil and e:GetHandler():GetCounter(0x97)~=0 -end -function c170000174.atkop(e,tp,eg,ep,ev,re,r,rp) - local bc=Duel.GetAttackTarget() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) - e1:SetValue(bc:GetAttack()) - e:GetHandler():RegisterEffect(e1) -end -function c170000174.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReason(REASON_BATTLE) and e:GetHandler():GetCounter(0x97)>0 end - return true -end -function c170000174.repop(e,tp,eg,ep,ev,re,r,rp,chk) - e:GetHandler():RemoveCounter(tp,0x97,1,REASON_EFFECT) -end -function c170000174.renop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_MZONE,0,nil,170000175) - local tc=g:GetFirst() - while tc do - if tc:GetCounter(0x97)==0 then - tc:AddCounter(0x97,1) - end - tc=g:GetNext() - end -end \ No newline at end of file diff --git a/script/c170000207.lua b/script/c170000207.lua deleted file mode 100644 index aa9a3cc4..00000000 --- a/script/c170000207.lua +++ /dev/null @@ -1,57 +0,0 @@ ---Backup Gardna -function c170000207.initial_effect(c) - --Redirect Equip - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c170000207.eqtg) - e1:SetOperation(c170000207.eqop) - c:RegisterEffect(e1) - --Negate attacks - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BE_BATTLE_TARGET) - e2:SetCost(c170000207.indcost) - e2:SetOperation(c170000207.indop) - c:RegisterEffect(e2) -end -function c170000207.filter1(c,tp) - return c:IsFaceup() and c:GetEquipTarget() - and Duel.IsExistingTarget(c170000207.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,c:GetEquipTarget(),c) -end -function c170000207.filter2(c,eqc) - return c:IsFaceup() and eqc:CheckEquipTarget(c) -end -function c170000207.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c170000207.filter1,tp,LOCATION_SZONE,0,1,nil,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g1=Duel.SelectTarget(tp,c170000207.filter1,tp,LOCATION_SZONE,0,1,1,nil,tp) - local eqc=g1:GetFirst() - e:SetLabelObject(eqc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g2=Duel.SelectTarget(tp,c170000207.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,eqc:GetEquipTarget(),eqc) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,g1,1,0,0) -end -function c170000207.eqop(e,tp,eg,ep,ev,re,r,rp) - local eqc=e:GetLabelObject() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc=g:GetFirst() - if tc==eqc then tc=g:GetNext() end - if not eqc:IsRelateToEffect(e) then return end - if tc:IsFacedown() or not tc:IsRelateToEffect(e) then - Duel.SendtoGrave(eqc,REASON_EFFECT) - return - end - Duel.Equip(tp,eqc,tc) -end -function c170000207.indcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c170000207.indop(e,tp,eg,ep,ev,re,r,rp) -Duel.NegateAttack() -end diff --git a/script/c17021204.lua b/script/c17021204.lua index e52c1cd5..c06b4593 100644 --- a/script/c17021204.lua +++ b/script/c17021204.lua @@ -11,7 +11,7 @@ function c17021204.initial_effect(c) c:RegisterEffect(e1) end function c17021204.spfilter(c) - return c:IsPosition(POS_FACEUP_DEFENCE) and c:IsAbleToGraveAsCost() + return c:IsPosition(POS_FACEUP_DEFENSE) and c:IsAbleToGraveAsCost() end function c17021204.cfilter(c) return c:GetRace()~=RACE_INSECT diff --git a/script/c17032740.lua b/script/c17032740.lua index e0baabee..d58094d7 100644 --- a/script/c17032740.lua +++ b/script/c17032740.lua @@ -1,150 +1,159 @@ ---E・HERO カオス・ネオス -function c17032740.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode3(c,89943723,43237273,17732278,false,false) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c17032740.splimit) - c:RegisterEffect(e1) - --special summon rule - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_EXTRA) - e2:SetCondition(c17032740.spcon) - e2:SetOperation(c17032740.spop) - c:RegisterEffect(e2) - --return - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(17032740,0)) - e3:SetCategory(CATEGORY_TODECK) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCondition(c17032740.retcon1) - e3:SetTarget(c17032740.rettg) - e3:SetOperation(c17032740.retop) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e4:SetProperty(0) - e4:SetCondition(c17032740.retcon2) - c:RegisterEffect(e4) - --coin - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(17032740,1)) - e5:SetCategory(CATEGORY_COIN+CATEGORY_DESTROY+CATEGORY_TOHAND) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetRange(LOCATION_MZONE) - e5:SetCountLimit(1) - e5:SetCondition(c17032740.coincon) - e5:SetTarget(c17032740.cointg) - e5:SetOperation(c17032740.coinop) - c:RegisterEffect(e5) -end -function c17032740.splimit(e,se,sp,st) - return not e:GetHandler():IsLocation(LOCATION_EXTRA) -end -function c17032740.spfilter(c,code) - return c:IsAbleToDeckOrExtraAsCost() and c:IsCode(code) -end -function c17032740.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<-2 then return false end - local g1=Duel.GetMatchingGroup(c17032740.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723) - local g2=Duel.GetMatchingGroup(c17032740.spfilter,tp,LOCATION_ONFIELD,0,nil,43237273) - local g3=Duel.GetMatchingGroup(c17032740.spfilter,tp,LOCATION_ONFIELD,0,nil,17732278) - if g1:GetCount()==0 or g2:GetCount()==0 or g3:GetCount()==0 then return false end - if ft>0 then return true end - local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - local f3=g3:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - if ft==-2 then return f1+f2+f3==3 - elseif ft==-1 then return f1+f2+f3>=2 - else return f1+f2+f3>=1 end -end -function c17032740.spop(e,tp,eg,ep,ev,re,r,rp,c) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local g1=Duel.GetMatchingGroup(c17032740.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723) - local g2=Duel.GetMatchingGroup(c17032740.spfilter,tp,LOCATION_ONFIELD,0,nil,43237273) - local g3=Duel.GetMatchingGroup(c17032740.spfilter,tp,LOCATION_ONFIELD,0,nil,17732278) - g1:Merge(g2) - g1:Merge(g3) - local g=Group.CreateGroup() - local tc=nil - for i=1,3 do - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - if ft<=0 then - tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() - else - tc=g1:Select(tp,1,1,nil):GetFirst() - end - g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 - end - local cg=g:Filter(Card.IsFacedown,nil) - if cg:GetCount()>0 then - Duel.ConfirmCards(1-tp,cg) - end - Duel.SendtoDeck(g,nil,2,REASON_COST) -end -function c17032740.retcon1(e,tp,eg,ep,ev,re,r,rp,chk) - return not e:GetHandler():IsHasEffect(42015635) -end -function c17032740.retcon2(e,tp,eg,ep,ev,re,r,rp,chk) - return e:GetHandler():IsHasEffect(42015635) -end -function c17032740.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToExtra() end - Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) -end -function c17032740.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) or c:IsFacedown() then return end - Duel.SendtoDeck(c,nil,2,REASON_EFFECT) - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) -end -function c17032740.coincon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_MAIN1 -end -function c17032740.cointg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,3) -end -function c17032740.coinop(e,tp,eg,ep,ev,re,r,rp) - local c1,c2,c3=Duel.TossCoin(tp,3) - if c1+c2+c3==3 then - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) - elseif c1+c2+c3==2 then - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) - local c=e:GetHandler() - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e2) - tc=g:GetNext() - end - elseif c1+c2+c3==1 then - local g=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_MZONE,0,nil) - Duel.SendtoHand(g,nil,REASON_EFFECT) - end -end +--E・HERO カオス・ネオス +function c17032740.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcCode3(c,89943723,43237273,17732278,false,false) + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(c17032740.splimit) + c:RegisterEffect(e1) + --special summon rule + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_EXTRA) + e2:SetCondition(c17032740.spcon) + e2:SetOperation(c17032740.spop) + c:RegisterEffect(e2) + --return + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(17032740,0)) + e3:SetCategory(CATEGORY_TODECK) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e3:SetCode(EVENT_PHASE+PHASE_END) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetCondition(c17032740.retcon1) + e3:SetTarget(c17032740.rettg) + e3:SetOperation(c17032740.retop) + c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e4:SetProperty(0) + e4:SetCondition(c17032740.retcon2) + c:RegisterEffect(e4) + --coin + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(17032740,1)) + e5:SetCategory(CATEGORY_COIN+CATEGORY_DESTROY+CATEGORY_TOHAND) + e5:SetType(EFFECT_TYPE_IGNITION) + e5:SetRange(LOCATION_MZONE) + e5:SetCountLimit(1) + e5:SetCondition(c17032740.coincon) + e5:SetTarget(c17032740.cointg) + e5:SetOperation(c17032740.coinop) + c:RegisterEffect(e5) +end +function c17032740.splimit(e,se,sp,st) + return not e:GetHandler():IsLocation(LOCATION_EXTRA) +end +function c17032740.spfilter(c,code1,code2,code3) + return c:IsAbleToDeckOrExtraAsCost() and (c:IsFusionCode(code1) or c:IsFusionCode(code2) or c:IsFusionCode(code3)) +end +function c17032740.spfilter1(c,mg,ft) + local mg2=mg:Clone() + mg2:RemoveCard(c) + if c:IsLocation(LOCATION_MZONE) then ft=ft+1 end + return ft>=-1 and c:IsFusionCode(89943723) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true) + and mg2:IsExists(c17032740.spfilter2,1,nil,mg2,ft) +end +function c17032740.spfilter2(c,mg,ft) + local mg2=mg:Clone() + mg2:RemoveCard(c) + if c:IsLocation(LOCATION_MZONE) then ft=ft+1 end + return ft>=0 and c:IsFusionCode(43237273) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true) + and mg2:IsExists(c17032740.spfilter3,1,nil,ft) +end +function c17032740.spfilter3(c,ft) + if c:IsLocation(LOCATION_MZONE) then ft=ft+1 end + return ft>=1 and c:IsFusionCode(17732278) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true) +end +function c17032740.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<-2 then return false end + local mg=Duel.GetMatchingGroup(c17032740.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723,43237273,17732278) + return mg:IsExists(c17032740.spfilter1,1,nil,mg,ft) +end +function c17032740.spop(e,tp,eg,ep,ev,re,r,rp,c) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local mg=Duel.GetMatchingGroup(c17032740.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723,43237273,17732278) + local g=Group.CreateGroup() + local tc=nil + for i=1,3 do + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + if i==1 then + tc=mg:FilterSelect(tp,c17032740.spfilter1,1,1,nil,mg,ft):GetFirst() + end + if i==2 then + tc=mg:FilterSelect(tp,c17032740.spfilter2,1,1,nil,mg,ft):GetFirst() + end + if i==3 then + tc=mg:FilterSelect(tp,c17032740.spfilter3,1,1,nil,ft):GetFirst() + end + g:AddCard(tc) + mg:RemoveCard(tc) + if tc:IsLocation(LOCATION_MZONE) then ft=ft+1 end + end + local cg=g:Filter(Card.IsFacedown,nil) + if cg:GetCount()>0 then + Duel.ConfirmCards(1-tp,cg) + end + Duel.SendtoDeck(g,nil,2,REASON_COST) +end +function c17032740.retcon1(e,tp,eg,ep,ev,re,r,rp) + return not e:GetHandler():IsHasEffect(42015635) +end +function c17032740.retcon2(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsHasEffect(42015635) +end +function c17032740.rettg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToExtra() end + Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) +end +function c17032740.retop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end + Duel.SendtoDeck(c,nil,2,REASON_EFFECT) + local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) +end +function c17032740.coincon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()==PHASE_MAIN1 +end +function c17032740.cointg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,3) +end +function c17032740.coinop(e,tp,eg,ep,ev,re,r,rp) + local c1,c2,c3=Duel.TossCoin(tp,3) + if c1+c2+c3==3 then + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.Destroy(g,REASON_EFFECT) + elseif c1+c2+c3==2 then + local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) + local c=e:GetHandler() + local tc=g:GetFirst() + while tc do + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + tc=g:GetNext() + end + elseif c1+c2+c3==1 then + local g=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_MZONE,0,nil) + Duel.SendtoHand(g,nil,REASON_EFFECT) + end +end diff --git a/script/c17045014.lua b/script/c17045014.lua index 12d3c796..e5e79087 100644 --- a/script/c17045014.lua +++ b/script/c17045014.lua @@ -17,7 +17,7 @@ function c17045014.descon(e,tp,eg,ep,ev,re,r,rp) return st>=(SUMMON_TYPE_SPECIAL+150) and st<(SUMMON_TYPE_SPECIAL+180) end function c17045014.desfilter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c17045014.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c17045014.desfilter(chkc) end diff --git a/script/c17078030.lua b/script/c17078030.lua old mode 100755 new mode 100644 diff --git a/script/c17092736.lua b/script/c17092736.lua index 71cbf028..f9ef9520 100644 --- a/script/c17092736.lua +++ b/script/c17092736.lua @@ -10,12 +10,19 @@ function c17092736.initial_effect(c) c:RegisterEffect(e1) end function c17092736.cftg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>=5 end + if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>0 end Duel.SetTargetPlayer(tp) end function c17092736.cfop(e,tp,eg,ep,ev,re,r,rp) local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetDecktopGroup(1-p,5) + local ct=math.min(5,Duel.GetFieldGroupCount(p,0,LOCATION_DECK)) + local t={} + for i=1,ct do + t[i]=i + end + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(17092736,0)) + local ac=Duel.AnnounceNumber(p,table.unpack(t)) + local g=Duel.GetDecktopGroup(1-p,ac) if g:GetCount()>0 then Duel.ConfirmCards(p,g) end diff --git a/script/c171000111.lua b/script/c171000111.lua deleted file mode 100644 index d7191561..00000000 --- a/script/c171000111.lua +++ /dev/null @@ -1,34 +0,0 @@ ---セブンストア -function c171000111.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c171000111.cost) - e1:SetTarget(c171000111.target) - e1:SetOperation(c171000111.activate) - c:RegisterEffect(e1) -end -function c171000111.filter(c) - return c:IsFaceup() and bit.band(c:GetType(),0x800000)==0x800000 and c:IsAbleToGraveAsCost() -end -function c171000111.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c171000111.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c171000111.filter,tp,LOCATION_MZONE,0,1,1,nil) - e:SetLabel(g:GetFirst():GetOverlayCount()) - Duel.SendtoGrave(g,REASON_COST) -end -function c171000111.target(e,tp,eg,ep,ev,re,r,rp,chk) - local drw=e:GetLabel()+1 - if chk==0 then return Duel.IsPlayerCanDraw(tp,drw) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(drw) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,drw) -end -function c171000111.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c17141718.lua b/script/c17141718.lua new file mode 100644 index 00000000..ec9eda0b --- /dev/null +++ b/script/c17141718.lua @@ -0,0 +1,77 @@ +--花札衛－芒－ +function c17141718.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c17141718.spcon) + e1:SetTarget(c17141718.sptg) + e1:SetOperation(c17141718.spop) + c:RegisterEffect(e1) + --shuffle + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetTarget(c17141718.target) + e2:SetOperation(c17141718.operation) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) +end +function c17141718.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe6) and c:IsLevelBelow(7) +end +function c17141718.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c17141718.cfilter,tp,LOCATION_MZONE,0,1,nil) +end +function c17141718.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c17141718.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 + and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetTarget(c17141718.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local e2=e1:Clone() + e2:SetCode(EFFECT_CANNOT_SUMMON) + Duel.RegisterEffect(e2,tp) +end +function c17141718.splimit(e,c) + return not c:IsSetCard(0xe6) +end +function c17141718.filter(c) + return c:IsSetCard(0xe6) and c:IsAbleToDeck() and not c:IsPublic() +end +function c17141718.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp) + and Duel.IsExistingMatchingCard(c17141718.filter,tp,LOCATION_HAND,0,1,nil) end + Duel.SetTargetPlayer(tp) + Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND) +end +function c17141718.operation(e,tp,eg,ep,ev,re,r,rp) + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK) + local g=Duel.SelectMatchingCard(p,c17141718.filter,p,LOCATION_HAND,0,1,99,nil) + if g:GetCount()>0 then + Duel.ConfirmCards(1-p,g) + local ct=Duel.SendtoDeck(g,nil,2,REASON_EFFECT) + Duel.ShuffleDeck(p) + Duel.BreakEffect() + Duel.Draw(p,ct,REASON_EFFECT) + Duel.ShuffleHand(p) + end +end diff --git a/script/c17183908.lua b/script/c17183908.lua index bc43ee80..8a094652 100644 --- a/script/c17183908.lua +++ b/script/c17183908.lua @@ -28,9 +28,9 @@ function c17183908.operation(e,tp,eg,ep,ev,re,r,rp) if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=3 then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) if ct==3 then - Duel.ShuffleDeck(tp) Duel.BreakEffect() Duel.Draw(tp,2,REASON_EFFECT) end diff --git a/script/c17185260.lua b/script/c17185260.lua index 09674000..37509ae6 100644 --- a/script/c17185260.lua +++ b/script/c17185260.lua @@ -25,6 +25,6 @@ end function c17185260.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c17194258.lua b/script/c17194258.lua index d4137e62..0a59539a 100644 --- a/script/c17194258.lua +++ b/script/c17194258.lua @@ -14,7 +14,7 @@ function c17194258.filter1(c,tp) return c.material and Duel.IsExistingMatchingCard(c17194258.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,c) end function c17194258.filter2(c,fc) - if c:IsForbidden() or not c:IsAbleToHand() or c:IsHasEffect(EFFECT_NECRO_VALLEY) then return false end + if c:IsForbidden() or not c:IsAbleToHand() then return false end return c:IsCode(table.unpack(fc.material)) end function c17194258.target(e,tp,eg,ep,ev,re,r,rp,chk) @@ -29,7 +29,7 @@ function c17194258.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c17194258.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,cg:GetFirst()) local tc=g:GetFirst() - if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND) then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND) then Duel.ConfirmCards(1-tp,tc) if not e:IsHasType(EFFECT_TYPE_ACTIVATE) then return end local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c17241370.lua b/script/c17241370.lua index ec761eaa..921e4773 100644 --- a/script/c17241370.lua +++ b/script/c17241370.lua @@ -1,5 +1,7 @@ --リチュア・ナタリア function c17241370.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c17241370.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c17241370.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --to deck local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(17241370,1)) @@ -47,39 +39,3 @@ function c17241370.tdop(e,tp,eg,ep,ev,re,r,rp) Duel.SendtoDeck(tc,nil,0,REASON_EFFECT) end end -function c17241370.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(17241370,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c17241370.retcon) - e1:SetTarget(c17241370.rettg) - e1:SetOperation(c17241370.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c17241370.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c17241370.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c17241370.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c17243896.lua b/script/c17243896.lua index c61aef8e..7a7aaac1 100644 --- a/script/c17243896.lua +++ b/script/c17243896.lua @@ -20,7 +20,7 @@ function c17243896.filter(c,e,tp) return c:IsPosition(POS_FACEUP_ATTACK) and c:GetSummonPlayer()==1-tp and (not e or c:IsRelateToEffect(e)) end function c17243896.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPosition(POS_FACEUP_DEFENCE) + return e:GetHandler():IsPosition(POS_FACEUP_DEFENSE) end function c17243896.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return eg:IsExists(c17243896.filter,1,nil,nil,tp) end @@ -29,5 +29,5 @@ function c17243896.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c17243896.operation(e,tp,eg,ep,ev,re,r,rp) local g=eg:Filter(c17243896.filter,nil,e,tp) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) end diff --git a/script/c17264592.lua b/script/c17264592.lua old mode 100755 new mode 100644 index 7e0949fe..7846af50 --- a/script/c17264592.lua +++ b/script/c17264592.lua @@ -40,7 +40,6 @@ function c17264592.sprop(e,tp,eg,ep,ev,re,r,rp,c) end function c17264592.spfilter(c,e,tp) return c:IsSetCard(0xb2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(17264592) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c17264592.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -51,7 +50,7 @@ function c17264592.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c17264592.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c17266660.lua b/script/c17266660.lua index d72a9123..995013b6 100644 --- a/script/c17266660.lua +++ b/script/c17266660.lua @@ -4,7 +4,7 @@ function c17266660.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(17266660,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_HAND) diff --git a/script/c17286057.lua b/script/c17286057.lua old mode 100755 new mode 100644 index 433459de..4ca148db --- a/script/c17286057.lua +++ b/script/c17286057.lua @@ -18,7 +18,7 @@ function c17286057.initial_effect(c) e2:SetValue(c17286057.value) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_SET_DEFENCE) + e3:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e3) --spsummon local e4=Effect.CreateEffect(c) @@ -75,7 +75,7 @@ function c17286057.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end Duel.SpecialSummonComplete() diff --git a/script/c17330916.lua b/script/c17330916.lua index b292fd25..7561f81e 100644 --- a/script/c17330916.lua +++ b/script/c17330916.lua @@ -7,6 +7,7 @@ function c17330916.initial_effect(c) e1:SetDescription(1160) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_HAND) e1:SetCost(c17330916.reg) c:RegisterEffect(e1) --scale @@ -74,7 +75,7 @@ function c17330916.lvcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(e:GetHandler(),REASON_DISCARD) end function c17330916.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) and c:IsLevelAbove(2) end function c17330916.lvtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c17330916.filter,tp,LOCATION_HAND,0,1,e:GetHandler()) end diff --git a/script/c17377751.lua b/script/c17377751.lua old mode 100755 new mode 100644 diff --git a/script/c17418744.lua b/script/c17418744.lua index b9558d11..60a6446b 100644 --- a/script/c17418744.lua +++ b/script/c17418744.lua @@ -39,17 +39,19 @@ function c17418744.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) return c:IsAttribute(0x6f) end function c17418744.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,17418745,0x55,0x4011,2000,0,4,RACE_THUNDER,ATTRIBUTE_LIGHT) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c17418744.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,17418745,0x55,0x4011,2000,0,4,RACE_THUNDER,ATTRIBUTE_LIGHT) then for i=1,2 do local token=Duel.CreateToken(tp,17418745) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_ATTACK) diff --git a/script/c17449108.lua b/script/c17449108.lua index d950f6be..2e8ebfa9 100644 --- a/script/c17449108.lua +++ b/script/c17449108.lua @@ -11,7 +11,7 @@ function c17449108.initial_effect(c) c:RegisterEffect(e1) end function c17449108.filter(c) - return c:IsFacedown() and c:IsDestructable() and c:IsAbleToRemove() + return c:IsFacedown() and c:IsAbleToRemove() end function c17449108.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:GetLocation()==LOCATION_SZONE and c17449108.filter(chkc) end diff --git a/script/c17475251.lua b/script/c17475251.lua index 8108ef35..96473090 100644 --- a/script/c17475251.lua +++ b/script/c17475251.lua @@ -21,7 +21,7 @@ function c17475251.initial_effect(c) e2:SetValue(500) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end function c17475251.setcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c17490535.lua b/script/c17490535.lua index c29133fc..45a5ed1d 100644 --- a/script/c17490535.lua +++ b/script/c17490535.lua @@ -25,15 +25,13 @@ end function c17490535.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - if Duel.GetControl(tc,tp) then + if Duel.GetControl(tc,tp)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CHANGE_RACE) e1:SetValue(RACE_REPTILE) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) - elseif not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) end end end diff --git a/script/c17494901.lua b/script/c17494901.lua index 3362d864..7a680a01 100644 --- a/script/c17494901.lua +++ b/script/c17494901.lua @@ -18,10 +18,10 @@ function c17494901.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c17494901.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c17494901.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() and chkc~=e:GetHandler() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c17494901.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c17502671.lua b/script/c17502671.lua index 31254340..0a2f4547 100644 --- a/script/c17502671.lua +++ b/script/c17502671.lua @@ -25,13 +25,15 @@ function c17502671.filter(c,e,tp) end function c17502671.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c17502671.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c17502671.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c17502671.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) end function c17502671.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local sg=g:Filter(Card.IsRelateToEffect,nil,e) if Duel.GetLocationCount(tp,LOCATION_MZONE)0 then Duel.Destroy(g,REASON_EFFECT) end @@ -35,6 +35,7 @@ function c17548456.desop(e,tp,eg,ep,ev,re,r,rp) Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sp=sg:Select(tp,1,1,nil) + if sp:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummon(sp,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c17601919.lua b/script/c17601919.lua index 6c988be0..387f8185 100644 --- a/script/c17601919.lua +++ b/script/c17601919.lua @@ -1,24 +1,21 @@ --ゴースト姫－パンプリンセス－ function c17601919.initial_effect(c) + c:EnableCounterPermit(0x2f,LOCATION_SZONE) --send replace local e1=Effect.CreateEffect(c) - e1:SetCode(EFFECT_SEND_REPLACE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c17601919.reptg) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_TO_GRAVE_REDIRECT_CB) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetCondition(c17601919.repcon) e1:SetOperation(c17601919.repop) c:RegisterEffect(e1) end -function c17601919.reptg(e,tp,eg,ep,ev,re,r,rp,chk) +function c17601919.repcon(e) local c=e:GetHandler() - if chk==0 then return c:GetDestination()==LOCATION_GRAVE and c:IsReason(REASON_DESTROY) end - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return false end - return Duel.SelectYesNo(tp,aux.Stringid(17601919,0)) + return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsReason(REASON_DESTROY) end -function c17601919.repop(e,tp,eg,ep,ev,re,r,rp,chk) +function c17601919.repop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) local e1=Effect.CreateEffect(c) e1:SetCode(EFFECT_CHANGE_TYPE) e1:SetType(EFFECT_TYPE_SINGLE) @@ -48,7 +45,7 @@ function c17601919.repop(e,tp,eg,ep,ev,re,r,rp,chk) e3:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e3) local e4=e3:Clone() - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e4) end function c17601919.addct(e,tp,eg,ep,ev,re,r,rp,chk) @@ -57,7 +54,7 @@ function c17601919.addct(e,tp,eg,ep,ev,re,r,rp,chk) end function c17601919.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x2f+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x2f,1) end end function c17601919.adval(e,c) diff --git a/script/c176392.lua b/script/c176392.lua old mode 100755 new mode 100644 diff --git a/script/c1764972.lua b/script/c1764972.lua index 6724843c..e8a7e3c4 100644 --- a/script/c1764972.lua +++ b/script/c1764972.lua @@ -38,6 +38,7 @@ function c1764972.sptg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c1764972.filter1,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c1764972.filter1,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,ft,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) @@ -48,6 +49,7 @@ end function c1764972.spop1(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c1764972.sfilter,nil,e,tp) if g:GetCount()==0 or g:GetCount()>ft then return false end local c=e:GetHandler() diff --git a/script/c17649753.lua b/script/c17649753.lua index 52e0ee2f..e8bf4590 100644 --- a/script/c17649753.lua +++ b/script/c17649753.lua @@ -11,7 +11,7 @@ function c17649753.initial_effect(c) e2:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) e2:SetCondition(c17649753.atkcon) c:RegisterEffect(e2) - --to defence + --to defense local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e3:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -33,6 +33,6 @@ end function c17649753.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c17655904.lua b/script/c17655904.lua index f49cc1bd..9682573d 100644 --- a/script/c17655904.lua +++ b/script/c17655904.lua @@ -1,43 +1,43 @@ ---滅びの爆裂疾風弾 -function c17655904.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c17655904.condition) - e1:SetCost(c17655904.cost) - e1:SetTarget(c17655904.target) - e1:SetOperation(c17655904.activate) - c:RegisterEffect(e1) - Duel.AddCustomActivityCounter(17655904,ACTIVITY_ATTACK,c17655904.counterfilter) -end -function c17655904.counterfilter(c) - return not c:IsCode(89631139) -end -function c17655904.cfilter(c) - return c:IsFaceup() and c:IsCode(89631139) -end -function c17655904.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c17655904.cfilter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c17655904.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetCustomActivityCount(17655904,tp,ACTIVITY_ATTACK)==0 end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetProperty(EFFECT_FLAG_OATH+EFFECT_FLAG_IGNORE_IMMUNE) - e1:SetTarget(aux.TargetBoolFunction(Card.IsCode,89631139)) - e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c17655904.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c17655904.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(sg,REASON_EFFECT) -end +--滅びの爆裂疾風弾 +function c17655904.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCondition(c17655904.condition) + e1:SetCost(c17655904.cost) + e1:SetTarget(c17655904.target) + e1:SetOperation(c17655904.activate) + c:RegisterEffect(e1) + Duel.AddCustomActivityCounter(17655904,ACTIVITY_ATTACK,c17655904.counterfilter) +end +function c17655904.counterfilter(c) + return not c:IsCode(89631139) +end +function c17655904.cfilter(c) + return c:IsFaceup() and c:IsCode(89631139) +end +function c17655904.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c17655904.cfilter,tp,LOCATION_ONFIELD,0,1,nil) +end +function c17655904.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetCustomActivityCount(17655904,tp,ACTIVITY_ATTACK)==0 end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) + e1:SetProperty(EFFECT_FLAG_OATH+EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetTarget(aux.TargetBoolFunction(Card.IsCode,89631139)) + e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c17655904.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) +end +function c17655904.activate(e,tp,eg,ep,ev,re,r,rp) + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.Destroy(sg,REASON_EFFECT) +end diff --git a/script/c17732278.lua b/script/c17732278.lua index 6cb5635f..97c940b0 100644 --- a/script/c17732278.lua +++ b/script/c17732278.lua @@ -34,7 +34,7 @@ function c17732278.activate(e,tp,eg,ep,ev,re,r,rp) end else if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end Duel.ShuffleHand(1-tp) diff --git a/script/c17760003.lua b/script/c17760003.lua index 4a351515..2f3229df 100644 --- a/script/c17760003.lua +++ b/script/c17760003.lua @@ -49,6 +49,7 @@ function c17760003.regop(e,tp,eg,ep,ev,re,r,rp) e1:SetOperation(c17760003.operation1) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) + c:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(17760003,3)) end if bit.band(att,ATTRIBUTE_WATER)~=0 then local e1=Effect.CreateEffect(c) @@ -63,6 +64,7 @@ function c17760003.regop(e,tp,eg,ep,ev,re,r,rp) e1:SetOperation(c17760003.operation2) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) + c:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(17760003,4)) end if bit.band(att,ATTRIBUTE_DARK)~=0 then local e1=Effect.CreateEffect(c) @@ -77,6 +79,7 @@ function c17760003.regop(e,tp,eg,ep,ev,re,r,rp) e1:SetOperation(c17760003.operation3) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) + c:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(17760003,5)) end end function c17760003.cost(e,tp,eg,ep,ev,re,r,rp,chk) @@ -94,7 +97,7 @@ function c17760003.operation1(e,tp,eg,ep,ev,re,r,rp) Duel.SendtoGrave(sg,REASON_EFFECT) end function c17760003.filter2(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c17760003.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c17760003.filter2(chkc) end @@ -110,7 +113,7 @@ function c17760003.operation2(e,tp,eg,ep,ev,re,r,rp) end end function c17760003.filter3(c) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsDestructable() + return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_LIGHT) end function c17760003.target3(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c17760003.filter2(chkc) end diff --git a/script/c17787975.lua b/script/c17787975.lua new file mode 100644 index 00000000..b229782f --- /dev/null +++ b/script/c17787975.lua @@ -0,0 +1,92 @@ +--ディメンション・スフィンクス +function c17787975.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c17787975.target) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_SZONE) + e2:SetCode(EVENT_CHAIN_SOLVED) + e2:SetCondition(c17787975.tgcon) + e2:SetOperation(c17787975.tgop) + e2:SetLabelObject(e1) + c:RegisterEffect(e2) + --damage + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(17787975,0)) + e3:SetCategory(CATEGORY_DAMAGE) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetRange(LOCATION_SZONE) + e3:SetHintTiming(TIMING_BATTLE_PHASE) + e3:SetCondition(c17787975.damcon) + e3:SetTarget(c17787975.damtg) + e3:SetOperation(c17787975.damop) + c:RegisterEffect(e3) + --Destroy + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e4:SetRange(LOCATION_SZONE) + e4:SetCode(EVENT_LEAVE_FIELD) + e4:SetCondition(c17787975.descon) + e4:SetOperation(c17787975.desop) + c:RegisterEffect(e4) +end +function c17787975.filter(c) + return c:IsPosition(POS_FACEUP_ATTACK) +end +function c17787975.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c17787975.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c17787975.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c17787975.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c17787975.tgcon(e,tp,eg,ep,ev,re,r,rp) + return re==e:GetLabelObject() +end +function c17787975.tgop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS):GetFirst() + if c:IsRelateToEffect(re) and tc:IsFaceup() and tc:IsRelateToEffect(re) then + c:SetCardTarget(tc) + end +end +function c17787975.damcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()==PHASE_BATTLE_STEP +end +function c17787975.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + local tc=c:GetFirstCardTarget() + local at=Duel.GetAttacker() + if chk==0 then return tc and Duel.GetAttackTarget()==tc + and at and at:IsControler(1-tp) and at:GetAttack()>tc:GetAttack() + and c:GetFlagEffect(17787975)==0 end + local dam=math.abs(at:GetAttack()-tc:GetAttack()) + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(dam) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) + c:RegisterFlagEffect(17787975,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE,0,1) +end +function c17787975.damop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local tc=c:GetFirstCardTarget() + if not tc then return false end + local at=Duel.GetAttacker() + if at:IsRelateToBattle() then + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + Duel.Damage(p,math.abs(at:GetAttack()-tc:GetAttack()),REASON_EFFECT) + end +end +function c17787975.descon(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetHandler():GetFirstCardTarget() + return tc and eg:IsContains(tc) +end +function c17787975.desop(e,tp,eg,ep,ev,re,r,rp) + Duel.Destroy(e:GetHandler(),REASON_EFFECT) +end diff --git a/script/c17810268.lua b/script/c17810268.lua index cf0c8753..0ed06d6a 100644 --- a/script/c17810268.lua +++ b/script/c17810268.lua @@ -35,7 +35,7 @@ function c17810268.initial_effect(c) c:RegisterEffect(e4) end function c17810268.sdcon(e) - return e:GetHandler():IsPosition(POS_FACEUP_DEFENCE) + return e:GetHandler():IsPosition(POS_FACEUP_DEFENSE) end function c17810268.cfilter(c) return c:IsFaceup() and c:IsSetCard(0x18) @@ -43,15 +43,15 @@ end function c17810268.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then local ct=Duel.GetMatchingGroupCount(c17810268.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - e:GetHandler():AddCounter(0x19,ct) + e:GetHandler():AddCounter(COUNTER_NEED_ENABLE+0x1019,ct) end end function c17810268.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x19,2,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x19,2,REASON_COST) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1019,2,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1019,2,REASON_COST) end function c17810268.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c17810268.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c17810268.filter(chkc) end diff --git a/script/c1781310.lua b/script/c1781310.lua index 6374ee51..575f33e5 100644 --- a/script/c1781310.lua +++ b/script/c1781310.lua @@ -14,11 +14,8 @@ end function c1781310.cfilter(c,att) return c:IsFaceup() and c:IsAttribute(att) end -function c1781310.dfilter1(c) - return c:IsDestructable() -end function c1781310.dfilter2(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c1781310.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c1781310.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,ATTRIBUTE_WIND) @@ -27,7 +24,7 @@ function c1781310.condition(e,tp,eg,ep,ev,re,r,rp) and Duel.IsExistingMatchingCard(c1781310.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,ATTRIBUTE_EARTH) end function c1781310.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c1781310.dfilter1,tp,0,LOCATION_MZONE,1,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) or Duel.IsExistingMatchingCard(c1781310.dfilter2,tp,0,LOCATION_ONFIELD,1,nil) or Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>=2 or Duel.IsPlayerCanDraw(tp,2) end @@ -36,7 +33,7 @@ function c1781310.activate(e,tp,eg,ep,ev,re,r,rp) local off=1 local ops={} local opval={} - if Duel.IsExistingMatchingCard(c1781310.dfilter1,tp,0,LOCATION_MZONE,1,nil) then + if Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) then ops[off]=aux.Stringid(1781310,0) opval[off-1]=1 off=off+1 @@ -59,7 +56,7 @@ function c1781310.activate(e,tp,eg,ep,ev,re,r,rp) if off==1 then return end local op=Duel.SelectOption(tp,table.unpack(ops)) if opval[op]==1 then - local g=Duel.GetMatchingGroup(c1781310.dfilter1,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.Destroy(g,REASON_EFFECT) elseif opval[op]==2 then local g=Duel.GetMatchingGroup(c1781310.dfilter2,tp,0,LOCATION_ONFIELD,nil) diff --git a/script/c17841166.lua b/script/c17841166.lua new file mode 100644 index 00000000..4a76ec6e --- /dev/null +++ b/script/c17841166.lua @@ -0,0 +1,26 @@ +--マグネット・フォース +function c17841166.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetOperation(c17841166.activate) + c:RegisterEffect(e1) +end +function c17841166.activate(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_IMMUNE_EFFECT) + e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e1:SetTarget(c17841166.etarget) + e1:SetValue(c17841166.efilter) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c17841166.etarget(e,c) + return bit.band(c:GetOriginalRace(),RACE_MACHINE+RACE_ROCK)~=0 +end +function c17841166.efilter(e,te,c) + return te:IsActiveType(TYPE_MONSTER) and te:GetOwner()~=c + and te:GetOwnerPlayer()~=e:GetHandlerPlayer() +end diff --git a/script/c1784686.lua b/script/c1784686.lua index 5bb57ffc..c291f748 100644 --- a/script/c1784686.lua +++ b/script/c1784686.lua @@ -19,20 +19,16 @@ function c1784686.initial_effect(c) c:RegisterEffect(e2) end function c1784686.tgfilter0(c,e,tp) - return c:IsFaceup() and c:IsSetCard(0xa2) + return c:IsFaceup() and c:IsSetCard(0x10a2) and c:IsCanBeFusionMaterial() and Duel.IsExistingMatchingCard(c1784686.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c:GetCode()) end function c1784686.tgfilter(c,e,tp) - return c:IsFaceup() and c:IsSetCard(0xa2) + return c:IsFaceup() and c:IsSetCard(0x10a2) and c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) and Duel.IsExistingMatchingCard(c1784686.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c:GetCode()) end function c1784686.spfilter(c,e,tp,code) - if not c.material or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) then return false end - for i,mcode in ipairs(c.material) do - if code==mcode then return true end - end - return false + return aux.IsMaterialListCode(c,code) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) end function c1784686.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc==0 then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c1784686.tgfilter(chkc,e,tp) end diff --git a/script/c1784687.lua b/script/c1784687.lua deleted file mode 100644 index 4c4f68b6..00000000 --- a/script/c1784687.lua +++ /dev/null @@ -1,56 +0,0 @@ ---ティマイオスの眼 -function c1784687.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,1784687+EFFECT_COUNT_CODE_OATH) - e1:SetTarget(c1784687.target) - e1:SetOperation(c1784687.activate) - c:RegisterEffect(e1) - --add code - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCode(EFFECT_ADD_CODE) - e2:SetValue(10000050) - c:RegisterEffect(e2) -end -function c1784687.tgfilter(c,e,tp) - return c:IsFaceup() and c:IsSetCard(0xa2) - and c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) - and Duel.IsExistingMatchingCard(c1784687.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c:GetCode()) -end -function c1784687.spfilter(c,e,tp,code) - if not c.material_count or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) then return false end - for i=1,c.material_count do - if code==c.material[i] then return true end - end - return false -end -function c1784687.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc==0 then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c1784687.tgfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c1784687.tgfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c1784687.tgfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c1784687.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=Duel.SelectMatchingCard(tp,c1784687.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc:GetCode()) - local sc=sg:GetFirst() - if sg then - sc:SetMaterial(Group.FromCards(tc)) - Duel.SendtoGrave(tc,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(sc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - sc:CompleteProcedure() - end - end -end diff --git a/script/c17871506.lua b/script/c17871506.lua new file mode 100644 index 00000000..1ec5f4fe --- /dev/null +++ b/script/c17871506.lua @@ -0,0 +1,20 @@ +--真紅眼の凶星竜－メテオ・ドラゴン +function c17871506.initial_effect(c) + aux.EnableDualAttribute(c) + --indes + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetRange(LOCATION_MZONE) + e1:SetTargetRange(LOCATION_MZONE,0) + e1:SetTarget(c17871506.indtg) + e1:SetValue(1) + e1:SetCondition(aux.IsDualState) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + c:RegisterEffect(e2) +end +function c17871506.indtg(e,c) + return c:IsSetCard(0x3b) and c~=e:GetHandler() +end diff --git a/script/c17874674.lua b/script/c17874674.lua old mode 100755 new mode 100644 index 1598c91b..4af041cd --- a/script/c17874674.lua +++ b/script/c17874674.lua @@ -28,7 +28,7 @@ function c17874674.initial_effect(c) e3:SetCondition(c17874674.condition) e3:SetOperation(c17874674.ctarget) c:RegisterEffect(e3) - -- + --cost local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -44,7 +44,7 @@ function c17874674.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return true end if Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_STANDBY and Duel.IsExistingTarget(aux.disfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - and Duel.SelectYesNo(tp,aux.Stringid(17874674,2)) then + and Duel.SelectYesNo(tp,94) then e:SetProperty(EFFECT_FLAG_CARD_TARGET) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) Duel.SelectTarget(tp,aux.disfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) @@ -100,6 +100,6 @@ function c17874674.costop(e,tp,eg,ep,ev,re,r,rp) if Duel.CheckLPCost(tp,500) and Duel.SelectYesNo(tp,aux.Stringid(17874674,1)) then Duel.PayLPCost(tp,500) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end diff --git a/script/c17896384.lua b/script/c17896384.lua old mode 100755 new mode 100644 index ad32ea76..18e46d40 --- a/script/c17896384.lua +++ b/script/c17896384.lua @@ -1,7 +1,7 @@ --魔法族の結界 function c17896384.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,4) + c:EnableCounterPermit(0x1) + c:SetCounterLimit(0x1,4) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -34,7 +34,7 @@ function c17896384.ctcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c17896384.ctfilter,1,nil) end function c17896384.ctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end function c17896384.cfilter(c) return c:IsFaceup() and c:IsRace(RACE_SPELLCASTER) and c:IsAbleToGraveAsCost() @@ -42,14 +42,14 @@ end function c17896384.drcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() and Duel.IsExistingMatchingCard(c17896384.cfilter,tp,LOCATION_MZONE,0,1,nil) end - e:SetLabel(e:GetHandler():GetCounter(0x3001)) + e:SetLabel(e:GetHandler():GetCounter(0x1)) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) local g=Duel.SelectMatchingCard(tp,c17896384.cfilter,tp,LOCATION_MZONE,0,1,1,nil) g:AddCard(e:GetHandler()) Duel.SendtoGrave(g,REASON_COST) end function c17896384.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetCounter(0x3001)>0 end + if chk==0 then return e:GetHandler():GetCounter(0x1)>0 end Duel.SetTargetPlayer(tp) Duel.SetTargetParam(e:GetLabel()) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,e:GetLabel()) diff --git a/script/c17932494.lua b/script/c17932494.lua old mode 100755 new mode 100644 diff --git a/script/c17985575.lua b/script/c17985575.lua index 399c62db..5fe33c0e 100644 --- a/script/c17985575.lua +++ b/script/c17985575.lua @@ -7,7 +7,7 @@ function c17985575.initial_effect(c) e1:SetRange(LOCATION_MZONE) e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) e1:SetTarget(c17985575.etarget) - e1:SetValue(aux.tgval) + e1:SetValue(1) c:RegisterEffect(e1) end function c17985575.etarget(e,c) diff --git a/script/c17994645.lua b/script/c17994645.lua new file mode 100644 index 00000000..75075fc0 --- /dev/null +++ b/script/c17994645.lua @@ -0,0 +1,53 @@ +--A BF－雨隠れのサヨ +function c17994645.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure2(c,nil,aux.NonTuner(nil)) + c:EnableReviveLimit() + --add type + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c17994645.tncon) + e1:SetOperation(c17994645.tnop) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_MATERIAL_CHECK) + e2:SetValue(c17994645.valcheck) + e2:SetLabelObject(e1) + c:RegisterEffect(e2) + --battle indes + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_INDESTRUCTABLE_COUNT) + e3:SetCountLimit(2) + e3:SetValue(c17994645.valcon) + c:RegisterEffect(e3) +end +function c17994645.valcheck(e,c) + local g=c:GetMaterial() + if g:IsExists(Card.IsSetCard,1,nil,0x33) then + e:GetLabelObject():SetLabel(1) + else + e:GetLabelObject():SetLabel(0) + end +end +function c17994645.tncon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO and e:GetLabel()==1 +end +function c17994645.tnop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_ADD_TYPE) + e1:SetValue(TYPE_TUNER) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1) +end +function c17994645.valcon(e,re,r,rp) + return bit.band(r,REASON_BATTLE)~=0 +end diff --git a/script/c1801154.lua b/script/c1801154.lua index 1f647824..4031ee51 100644 --- a/script/c1801154.lua +++ b/script/c1801154.lua @@ -17,18 +17,14 @@ function c1801154.initial_effect(c) e2:SetOperation(c1801154.spop) c:RegisterEffect(e2) end -function c1801154.filter2(c,code) - if not c.material or not c:IsReason(REASON_DESTROY) or not c:IsReason(REASON_EFFECT) then return false end - for i,mcode in ipairs(c.material) do - if code==mcode then return true end - end - return false -end function c1801154.filter1(c,e,tp,eg) - if not c:IsCanBeSpecialSummoned(e,0,tp,false,false) then return false end - return eg:IsExists(c1801154.filter2,1,nil,c:GetCode()) + return eg:IsExists(c1801154.filter2,1,nil,c:GetCode()) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c1801154.filter2(c,code) + return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_EFFECT) and aux.IsMaterialListCode(c,code) end -function c1801154.sptg(e,tp,eg,ep,ev,re,r,rp,chk) +function c1801154.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c1801154.filter1(chkc,e,tp,eg) end if chk==0 then return e:GetHandler():IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c1801154.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp,eg) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) diff --git a/script/c18013090.lua b/script/c18013090.lua index f3b8d58c..2aeb6e69 100644 --- a/script/c18013090.lua +++ b/script/c18013090.lua @@ -10,14 +10,6 @@ function c18013090.initial_effect(c) e1:SetRange(LOCATION_MZONE) e1:SetOperation(c18013090.atop1) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCondition(c18013090.atcon2) - e2:SetOperation(c18013090.atop2) - c:RegisterEffect(e2) --chain attack local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(18013090,0)) @@ -37,20 +29,20 @@ end function c18013090.atop1(e,tp,eg,ep,ev,re,r,rp) if Duel.GetTurnPlayer()~=tp or ep~=tp then return end if not re:IsHasType(EFFECT_TYPE_ACTIVATE) or not re:IsActiveType(TYPE_SPELL) then return end - e:GetHandler():RegisterFlagEffect(18013090,RESET_EVENT+0x2fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c18013090.atcon2(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c==Duel.GetAttacker() and c:GetFlagEffect(18013090)~=0 + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(c18013090.atkcon) + e2:SetValue(1000) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL+PHASE_END) + c:RegisterEffect(e2) end -function c18013090.atop2(e,tp,eg,ep,ev,re,r,rp) +function c18013090.atkcon(e) local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(1000) - c:RegisterEffect(e1) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and c==Duel.GetAttacker() end function c18013090.cacon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() @@ -58,7 +50,7 @@ function c18013090.cacon(e,tp,eg,ep,ev,re,r,rp) return bc and bc:IsStatus(STATUS_BATTLE_DESTROYED) and c:IsChainAttackable() end function c18013090.filter(c) - return c:IsFaceup() and c:IsDefencePos() and not c:IsStatus(STATUS_BATTLE_DESTROYED) + return c:IsFaceup() and c:IsDefensePos() and not c:IsStatus(STATUS_BATTLE_DESTROYED) end function c18013090.catg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c18013090.filter(chkc) end diff --git a/script/c18027138.lua b/script/c18027138.lua index 2c8bcffc..85349e31 100644 --- a/script/c18027138.lua +++ b/script/c18027138.lua @@ -11,17 +11,18 @@ function c18027138.initial_effect(c) c:RegisterEffect(e1) end function c18027138.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and Duel.IsPlayerCanSpecialSummonMonster(tp,18027139,0,0x4011,0,0,1,RACE_BEAST,ATTRIBUTE_EARTH) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,3,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,0) end function c18027138.activate(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)>2 + if not Duel.IsPlayerAffectedByEffect(tp,59822133) and Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and Duel.IsPlayerCanSpecialSummonMonster(tp,18027139,0,0x4011,0,0,1,RACE_BEAST,ATTRIBUTE_EARTH) then for i=1,3 do - local token=Duel.CreateToken(tp,18027139) + local token=Duel.CreateToken(tp,18027138+i) Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c1804528.lua b/script/c1804528.lua index 93abe9bf..9660646f 100644 --- a/script/c1804528.lua +++ b/script/c1804528.lua @@ -17,7 +17,7 @@ function c1804528.descon(e,tp,eg,ep,ev,re,r,rp) end function c1804528.desop(e,tp,eg,ep,ev,re,r,rp) local g1=Duel.GetFieldGroup(tp,0,LOCATION_HAND) - local g2=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local g2=Duel.GetFieldGroup(tp,0,LOCATION_MZONE) local opt=0 if g1:GetCount()>0 and g2:GetCount()>0 then opt=Duel.SelectOption(1-tp,aux.Stringid(1804528,1),aux.Stringid(1804528,2)) diff --git a/script/c18060565.lua b/script/c18060565.lua old mode 100755 new mode 100644 index 914e2ffa..ae428698 --- a/script/c18060565.lua +++ b/script/c18060565.lua @@ -26,7 +26,7 @@ function c18060565.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_DECK) end function c18060565.eqfilter(c) - return c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) and c:IsLevelBelow(3) + return c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) and c:IsLevelBelow(3) and not c:IsForbidden() end function c18060565.eqop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end diff --git a/script/c18114794.lua b/script/c18114794.lua index 05367ea5..87a06927 100644 --- a/script/c18114794.lua +++ b/script/c18114794.lua @@ -9,7 +9,7 @@ function c18114794.initial_effect(c) e2:SetDescription(aux.Stringid(18114794,0)) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) e2:SetRange(LOCATION_FZONE) - e2:SetCode(18114794) + e2:SetCode(EVENT_CUSTOM+18114794) e2:SetCondition(c18114794.condition) e2:SetOperation(c18114794.operation) c:RegisterEffect(e2) @@ -50,7 +50,7 @@ function c18114794.checkop(e,tp,eg,ep,ev,re,r,rp) if p1 then c18114794[turnp]=c18114794[turnp]+1 if c18114794[turnp]==3 then - Duel.RaiseEvent(e:GetHandler(),18114794,e,0,0,0,0) + Duel.RaiseEvent(e:GetHandler(),EVENT_CUSTOM+18114794,e,0,0,0,0) end end end diff --git a/script/c18144506.lua b/script/c18144506.lua index cda847f6..593b3b52 100644 --- a/script/c18144506.lua +++ b/script/c18144506.lua @@ -10,7 +10,7 @@ function c18144506.initial_effect(c) c:RegisterEffect(e1) end function c18144506.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c18144506.target(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() diff --git a/script/c18144507.lua b/script/c18144507.lua deleted file mode 100644 index a371252a..00000000 --- a/script/c18144507.lua +++ /dev/null @@ -1,24 +0,0 @@ ---ハーピィの羽根帚(EU) -function c18144507.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c18144507.target) - e1:SetOperation(c18144507.activate) - c:RegisterEffect(e1) -end -function c18144507.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c18144507.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(c18144507.filter,tp,0,LOCATION_ONFIELD,1,c) end - local sg=Duel.GetMatchingGroup(c18144507.filter,tp,0,LOCATION_ONFIELD,c) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c18144507.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c18144507.filter,tp,0,LOCATION_ONFIELD,e:GetHandler()) - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c18161786.lua b/script/c18161786.lua index fbc3d18a..a2c7af3c 100644 --- a/script/c18161786.lua +++ b/script/c18161786.lua @@ -16,7 +16,7 @@ function c18161786.initial_effect(c) c:RegisterEffect(e2) --Def down local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(-400) c:RegisterEffect(e3) end diff --git a/script/c18175965.lua b/script/c18175965.lua old mode 100755 new mode 100644 index 33a7c49f..595fc757 --- a/script/c18175965.lua +++ b/script/c18175965.lua @@ -73,8 +73,12 @@ function c18175965.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c18175965.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)>0 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then c:CompleteProcedure() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c18175965.filter(c,ec) @@ -88,7 +92,7 @@ end function c18175965.eqop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or c:IsFacedown() or not c:IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(18175965,3)) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectMatchingCard(tp,c18175965.filter,tp,LOCATION_DECK,0,1,1,nil,c) if g:GetCount()>0 then Duel.Equip(tp,g:GetFirst(),c) diff --git a/script/c18190572.lua b/script/c18190572.lua index b1e721ff..2762316b 100644 --- a/script/c18190572.lua +++ b/script/c18190572.lua @@ -26,7 +26,7 @@ function c18190572.activate(e,tp,eg,ep,ev,re,r,rp) if tc:IsRelateToEffect(e) and tc:IsFaceup() then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_DEFENCE_FINAL) + e1:SetCode(EFFECT_SET_DEFENSE_FINAL) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e1:SetValue(0) tc:RegisterEffect(e1) diff --git a/script/c18235309.lua b/script/c18235309.lua old mode 100755 new mode 100644 index ee562770..528e40eb --- a/script/c18235309.lua +++ b/script/c18235309.lua @@ -32,7 +32,7 @@ function c18235309.cost1(e,tp,eg,ep,ev,re,r,rp,chk) e:SetLabel(0) local tn=Duel.GetTurnPlayer() local ph=Duel.GetCurrentPhase() - if (tn~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2 or ph==PHASE_BATTLE)) + if (tn~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE))) and Duel.IsExistingMatchingCard(c18235309.filter,tp,LOCATION_HAND,0,1,nil) and Duel.SelectYesNo(tp,94) then e:SetLabel(1) @@ -54,7 +54,7 @@ function c18235309.activate(e,tp,eg,ep,ev,re,r,rp) if tc then local s1=tc:IsSummonable(true,nil,1) local s2=tc:IsMSetable(true,nil,1) - if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENCE)==POS_FACEUP_ATTACK) or not s2 then + if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) or not s2 then Duel.Summon(tp,tc,true,nil,1) else Duel.MSet(tp,tc,true,nil,1) @@ -64,7 +64,7 @@ end function c18235309.condition2(e,tp,eg,ep,ev,re,r,rp) local tn=Duel.GetTurnPlayer() local ph=Duel.GetCurrentPhase() - return tn~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2 or ph==PHASE_BATTLE) + return tn~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE)) end function c18235309.target2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():GetFlagEffect(18235309)==0 diff --git a/script/c18239909.lua b/script/c18239909.lua old mode 100755 new mode 100644 index 58fe0d39..835d813a --- a/script/c18239909.lua +++ b/script/c18239909.lua @@ -33,12 +33,13 @@ function c18239909.tgfilter(c) end end function c18239909.desfilter(c) - return c18239909.tgfilter(c) and c:IsDestructable() + return c18239909.tgfilter(c) and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,0,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end function c18239909.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c18239909.desfilter(chkc) end if chk==0 then return Duel.IsExistingTarget(c18239909.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local g=Duel.SelectTarget(tp,c18239909.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) @@ -61,6 +62,7 @@ end function c18239909.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c18239909.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) end function c18239909.spop(e,tp,eg,ep,ev,re,r,rp) @@ -69,7 +71,7 @@ function c18239909.spop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(tp,c18239909.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) local tc=g:GetFirst() if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) diff --git a/script/c18271561.lua b/script/c18271561.lua index 06b4f671..b9625b0a 100644 --- a/script/c18271561.lua +++ b/script/c18271561.lua @@ -35,7 +35,8 @@ function c18271561.operation(e,tp,eg,ep,ev,re,r,rp) end local atk=dg:GetFirst():GetAttack()/2 if Duel.Destroy(dg,REASON_EFFECT)>0 then - Duel.Damage(tp,atk,REASON_EFFECT) - Duel.Damage(1-tp,atk,REASON_EFFECT) + Duel.Damage(tp,atk,REASON_EFFECT,true) + Duel.Damage(1-tp,atk,REASON_EFFECT,true) + Duel.RDComplete() end end diff --git a/script/c18302224.lua b/script/c18302224.lua old mode 100755 new mode 100644 diff --git a/script/c18322364.lua b/script/c18322364.lua index 43284aa4..9275666c 100644 --- a/script/c18322364.lua +++ b/script/c18322364.lua @@ -23,11 +23,13 @@ function c18322364.spfilter(c,e,tp) return c:GetLevel()==3 and c:IsAttribute(ATTRIBUTE_WATER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c18322364.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c18322364.spfilter,tp,LOCATION_DECK,0,3,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,tp,LOCATION_DECK) end function c18322364.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<3 then return end local g=Duel.GetMatchingGroup(c18322364.spfilter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()<3 then return end diff --git a/script/c18326736.lua b/script/c18326736.lua old mode 100755 new mode 100644 diff --git a/script/c1833916.lua b/script/c1833916.lua index 65f4d737..287e4ae2 100644 --- a/script/c1833916.lua +++ b/script/c1833916.lua @@ -52,7 +52,7 @@ function c1833916.spop(e,tp,eg,ep,ev,re,r,rp) if g:GetCount()>0 then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) if c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end local e1=Effect.CreateEffect(c) diff --git a/script/c1834753.lua b/script/c1834753.lua index ba606e41..0db4839b 100644 --- a/script/c1834753.lua +++ b/script/c1834753.lua @@ -28,11 +28,13 @@ function c1834753.filter(c,e,tp) return c:GetLevel()==3 and c:IsRace(RACE_PSYCHO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c1834753.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c1834753.filter,tp,LOCATION_DECK,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c1834753.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetMatchingGroup(c1834753.filter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()>=2 then diff --git a/script/c18372968.lua b/script/c18372968.lua index e398694c..842828c8 100644 --- a/script/c18372968.lua +++ b/script/c18372968.lua @@ -16,7 +16,7 @@ function c18372968.cfilter(c) end function c18372968.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsPosition(POS_FACEDOWN_DEFENCE) + return e:GetHandler()==Duel.GetAttacker() and d and d:IsPosition(POS_FACEDOWN_DEFENSE) and Duel.IsExistingMatchingCard(c18372968.cfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end function c18372968.destg(e,tp,eg,ep,ev,re,r,rp,chk) @@ -25,7 +25,7 @@ function c18372968.destg(e,tp,eg,ep,ev,re,r,rp,chk) end function c18372968.desop(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - if d:IsRelateToBattle() and d:IsPosition(POS_FACEDOWN_DEFENCE) + if d:IsRelateToBattle() and d:IsPosition(POS_FACEDOWN_DEFENSE) and Duel.IsExistingMatchingCard(c18372968.cfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) then Duel.Destroy(d,REASON_EFFECT) end diff --git a/script/c18378582.lua b/script/c18378582.lua index e73ce316..bd5f701f 100644 --- a/script/c18378582.lua +++ b/script/c18378582.lua @@ -46,13 +46,13 @@ function c18378582.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,c18378582.cfilter,1,1,REASON_COST+REASON_DISCARD) end function c18378582.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c18378582.desop(e,tp,eg,ep,ev,re,r,rp) if Duel.IsEnvironment(56433456) then - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.Destroy(g,REASON_EFFECT) end end diff --git a/script/c18386170.lua b/script/c18386170.lua old mode 100755 new mode 100644 index a1d347f4..ce0e1ff1 --- a/script/c18386170.lua +++ b/script/c18386170.lua @@ -84,18 +84,18 @@ end function c18386170.fscon(e,g,gc,chkf) if g==nil then return true end if gc then - local mg=g:Filter(Card.IsSetCard,nil,0xb1) + local mg=g:Filter(Card.IsFusionSetCard,nil,0xb1) mg:AddCard(gc) - return gc:IsSetCard(0xb1) and mg:GetClassCount(Card.GetCode)>=3 + return gc:IsFusionSetCard(0xb1) and mg:GetClassCount(Card.GetCode)>=3 end local fs=false - local mg=g:Filter(Card.IsSetCard,nil,0xb1) + local mg=g:Filter(Card.IsFusionSetCard,nil,0xb1) if mg:IsExists(aux.FConditionCheckF,1,nil,chkf) then fs=true end return mg:GetClassCount(Card.GetCode)>=3 and (fs or chkf==PLAYER_NONE) end function c18386170.fsop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) if gc then - local sg=eg:Filter(Card.IsSetCard,gc,0xb1) + local sg=eg:Filter(Card.IsFusionSetCard,gc,0xb1) sg:Remove(Card.IsCode,nil,gc:GetCode()) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) local g1=sg:Select(tp,1,1,nil) @@ -106,7 +106,7 @@ function c18386170.fsop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) Duel.SetFusionMaterial(g1) return end - local sg=eg:Filter(Card.IsSetCard,nil,0xb1) + local sg=eg:Filter(Card.IsFusionSetCard,nil,0xb1) local g1=nil Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) diff --git a/script/c18426196.lua b/script/c18426196.lua index a668f017..8185a3b5 100644 --- a/script/c18426196.lua +++ b/script/c18426196.lua @@ -13,7 +13,7 @@ function c18426196.initial_effect(c) e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CVAL_CHECK) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c18426196.thcon) + e1:SetCondition(aux.dogcon) e1:SetCost(c18426196.thcost) e1:SetTarget(c18426196.thtg) e1:SetOperation(c18426196.thop) @@ -25,9 +25,6 @@ function c18426196.condtion(e) return (ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) and Duel.GetAttacker()==e:GetHandler() end -function c18426196.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsReason(REASON_DESTROY) and e:GetHandler():GetReasonPlayer()==1-tp -end function c18426196.thcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then if Duel.GetFlagEffect(tp,18426196)==0 then diff --git a/script/c18511599.lua b/script/c18511599.lua index 9befaca0..f551cbb0 100644 --- a/script/c18511599.lua +++ b/script/c18511599.lua @@ -28,7 +28,7 @@ function c18511599.indcon(e) return e:GetHandler():GetOverlayCount()~=0 end function c18511599.filter(c,e,tp) - return c:GetSummonPlayer()==1-tp and c:IsDestructable() and (not e or c:IsRelateToEffect(e)) + return c:GetSummonPlayer()==1-tp and (not e or c:IsRelateToEffect(e)) end function c18511599.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end diff --git a/script/c18517177.lua b/script/c18517177.lua index e67207d6..e5450368 100644 --- a/script/c18517177.lua +++ b/script/c18517177.lua @@ -28,13 +28,13 @@ function c18517177.descon(e,tp,eg,ep,ev,re,r,rp) end function c18517177.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)-Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,ct,0,0) end function c18517177.desop(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) local ct=g:GetCount()-Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0) if ct<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) diff --git a/script/c18563744.lua b/script/c18563744.lua new file mode 100644 index 00000000..b97fa7f6 --- /dev/null +++ b/script/c18563744.lua @@ -0,0 +1,83 @@ +--沈黙の剣 +function c18563744.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(18563744,0)) + e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(TIMING_DAMAGE_STEP) + e1:SetCondition(c18563744.condition) + e1:SetTarget(c18563744.target) + e1:SetOperation(c18563744.activate) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(18563744,1)) + e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCost(c18563744.thcost) + e2:SetTarget(c18563744.thtg) + e2:SetOperation(c18563744.thop) + c:RegisterEffect(e2) +end +function c18563744.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() +end +function c18563744.filter(c) + return c:IsSetCard(0xe7) and c:IsFaceup() +end +function c18563744.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c18563744.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c18563744.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c18563744.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c18563744.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsControler(tp) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(1500) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + tc:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_IMMUNE_EFFECT) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetValue(c18563744.efilter) + e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e3:SetOwnerPlayer(tp) + tc:RegisterEffect(e3) + end +end +function c18563744.efilter(e,re) + return e:GetOwnerPlayer()~=re:GetOwnerPlayer() +end +function c18563744.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c18563744.thfilter(c) + return c:IsSetCard(0xe7) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c18563744.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c18563744.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c18563744.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c18563744.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c18590133.lua b/script/c18590133.lua index 49470d31..4e3163a4 100644 --- a/script/c18590133.lua +++ b/script/c18590133.lua @@ -19,7 +19,7 @@ function c18590133.initial_effect(c) e2:SetValue(c18590133.val) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_SET_DEFENCE) + e3:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e3) end function c18590133.filter(c) diff --git a/script/c18591904.lua b/script/c18591904.lua index a00c8281..8f26a053 100644 --- a/script/c18591904.lua +++ b/script/c18591904.lua @@ -15,11 +15,11 @@ function c18591904.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,5,5,REASON_COST+REASON_DISCARD) end function c18591904.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c18591904.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c18605135.lua b/script/c18605135.lua index c84114cb..995454d5 100644 --- a/script/c18605135.lua +++ b/script/c18605135.lua @@ -36,7 +36,7 @@ function c18605135.actcon(e,tp,eg,ep,ev,re,r,rp) end function c18605135.abdcon(e) local at=Duel.GetAttackTarget() - return c18605135.check() and (at==nil or at:IsAttackPos() or Duel.GetAttacker():GetAttack()>at:GetDefence()) + return c18605135.check() and (at==nil or at:IsAttackPos() or Duel.GetAttacker():GetAttack()>at:GetDefense()) end function c18605135.sdcon(e) return not c18605135.check() diff --git a/script/c18631392.lua b/script/c18631392.lua index 57740b2d..ca9f736f 100644 --- a/script/c18631392.lua +++ b/script/c18631392.lua @@ -46,7 +46,11 @@ function c18631392.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.SendtoGrave(g1,REASON_COST) end function c18631392.anctg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3) end + if chk==0 then + if not Duel.IsPlayerCanDiscardDeck(tp,3) then return false end + local g=Duel.GetDecktopGroup(tp,3) + return g:FilterCount(Card.IsAbleToHand,nil)>0 + end Duel.Hint(HINT_SELECTMSG,tp,0) local ac1=Duel.AnnounceCard(tp) Duel.Hint(HINT_SELECTMSG,tp,0) @@ -56,8 +60,7 @@ function c18631392.anctg(e,tp,eg,ep,ev,re,r,rp,chk) e:SetOperation(c18631392.retop(ac1,ac2,ac3)) end function c18631392.hfilter(c,code1,code2,code3) - local code=c:GetCode() - return (code==code1 or code==code2 or code==code3) and c:IsAbleToHand() + return c:IsCode(code1,code2,code3) and c:IsAbleToHand() end function c18631392.retop(code1,code2,code3) return @@ -86,7 +89,7 @@ function c18631392.retop(code1,code2,code3) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) c:RegisterEffect(e2) end end diff --git a/script/c18634367.lua b/script/c18634367.lua old mode 100755 new mode 100644 index 08d5f288..67f1d7c2 --- a/script/c18634367.lua +++ b/script/c18634367.lua @@ -45,7 +45,8 @@ function c18634367.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return true end if Duel.IsExistingMatchingCard(c18634367.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and e:GetHandler():IsDestructable() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c18634367.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(18634367,1)) then + and Duel.IsExistingTarget(c18634367.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) + and Duel.SelectYesNo(tp,94) then e:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) e:SetProperty(EFFECT_FLAG_CARD_TARGET) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) @@ -63,10 +64,10 @@ function c18634367.mtcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c18634367.mtop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLP(tp)>=1000 then + if Duel.CheckLPCost(tp,1000) then Duel.PayLPCost(tp,1000) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end function c18634367.cfilter(c) diff --git a/script/c18654201.lua b/script/c18654201.lua index f49f02f2..cd21f614 100644 --- a/script/c18654201.lua +++ b/script/c18654201.lua @@ -11,13 +11,13 @@ function c18654201.initial_effect(c) e2:SetDescription(aux.Stringid(18654201,0)) e2:SetCategory(CATEGORY_TOGRAVE) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(18654201) + e2:SetCode(EVENT_CUSTOM+18654201) e2:SetTarget(c18654201.hdtg) e2:SetOperation(c18654201.hdop) c:RegisterEffect(e2) end function c18654201.filter(c,tp) - return c:IsControler(tp) and c:IsPreviousLocation(LOCATION_MZONE) + return c:IsControler(tp) and c:IsPreviousLocation(LOCATION_MZONE) and c:IsType(TYPE_MONSTER) end function c18654201.regop(e,tp,eg,ep,ev,re,r,rp) local p1=false local p2=false @@ -25,11 +25,11 @@ function c18654201.regop(e,tp,eg,ep,ev,re,r,rp) if eg:IsExists(c18654201.filter,1,nil,1) then p2=true end local c=e:GetHandler() if p1 and p2 then - Duel.RaiseSingleEvent(c,18654201,re,r,rp,PLAYER_ALL,0) + Duel.RaiseSingleEvent(c,EVENT_CUSTOM+18654201,re,r,rp,PLAYER_ALL,0) elseif p1 then - Duel.RaiseSingleEvent(c,18654201,re,r,rp,0,0) + Duel.RaiseSingleEvent(c,EVENT_CUSTOM+18654201,re,r,rp,0,0) elseif p2 then - Duel.RaiseSingleEvent(c,18654201,re,r,rp,1,0) + Duel.RaiseSingleEvent(c,EVENT_CUSTOM+18654201,re,r,rp,1,0) end end function c18654201.hdtg(e,tp,eg,ep,ev,re,r,rp,chk) @@ -37,7 +37,7 @@ function c18654201.hdtg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,ep,LOCATION_HAND) end function c18654201.hdop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end + if not e:GetHandler():IsRelateToEffect(e) or e:GetHandler():IsFacedown() then return end if ep==PLAYER_ALL then Duel.DiscardHand(0,nil,1,1,REASON_EFFECT) Duel.DiscardHand(1,nil,1,1,REASON_EFFECT) diff --git a/script/c18716735.lua b/script/c18716735.lua new file mode 100644 index 00000000..d482fab1 --- /dev/null +++ b/script/c18716735.lua @@ -0,0 +1,92 @@ +--レアメタルフォーゼ・ビスマギア +function c18716735.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --destroy and set + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(18716735,0)) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetTarget(c18716735.target) + e1:SetOperation(c18716735.operation) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(18716735,0)) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_DESTROYED) + e2:SetCountLimit(1,18716735) + e2:SetCondition(c18716735.regcon) + e2:SetTarget(c18716735.regtg) + e2:SetOperation(c18716735.regop) + c:RegisterEffect(e2) +end +function c18716735.desfilter(c,tp) + if c:IsFacedown() then return false end + local ft=Duel.GetLocationCount(tp,LOCATION_SZONE) + if ft==0 and c:IsLocation(LOCATION_SZONE) and c:GetSequence()<5 then + return Duel.IsExistingMatchingCard(c18716735.filter,tp,LOCATION_DECK,0,1,nil,true) + else + return Duel.IsExistingMatchingCard(c18716735.filter,tp,LOCATION_DECK,0,1,nil,false) + end +end +function c18716735.filter(c,ignore) + return c:IsSetCard(0xe1) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable(ignore) +end +function c18716735.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c18716735.desfilter(chkc,tp) and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(c18716735.desfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler(),tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c18716735.desfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler(),tp) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c18716735.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) + local g=Duel.SelectMatchingCard(tp,c18716735.filter,tp,LOCATION_DECK,0,1,1,nil,false) + if g:GetCount()>0 then + Duel.SSet(tp,g:GetFirst()) + Duel.ConfirmCards(1-tp,g) + end + end +end +function c18716735.regcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) +end +function c18716735.thfilter(c) + return c:IsSetCard(0xe1) and c:IsType(TYPE_MONSTER) +end +function c18716735.regtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c18716735.thfilter,tp,LOCATION_DECK,0,1,nil) end +end +function c18716735.regop(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_PHASE+PHASE_END) + e1:SetCountLimit(1) + e1:SetCondition(c18716735.thcon) + e1:SetOperation(c18716735.thop) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c18716735.thfilter2(c) + return c18716735.thfilter(c) and c:IsAbleToHand() +end +function c18716735.thcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c18716735.thfilter2,tp,LOCATION_DECK,0,1,nil) +end +function c18716735.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_CARD,0,18716735) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c18716735.thfilter2,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c18739764.lua b/script/c18739764.lua index 49aaeaac..5cb79b3a 100644 --- a/script/c18739764.lua +++ b/script/c18739764.lua @@ -10,14 +10,11 @@ function c18739764.initial_effect(c) e1:SetOperation(c18739764.activate) c:RegisterEffect(e1) end -function c18739764.filter(c) - return c:IsDestructable() -end function c18739764.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c18739764.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c18739764.filter,tp,LOCATION_MZONE,0,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c18739764.filter,tp,LOCATION_MZONE,0,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,0,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) if g:GetFirst():IsFaceup() then Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,g:GetFirst():GetAttack()) diff --git a/script/c18809562.lua b/script/c18809562.lua new file mode 100644 index 00000000..fcbec45e --- /dev/null +++ b/script/c18809562.lua @@ -0,0 +1,36 @@ +--魔導契約の扉 +function c18809562.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c18809562.target) + e1:SetOperation(c18809562.activate) + c:RegisterEffect(e1) +end +function c18809562.filter(c) + return (c:GetLevel()==7 or c:GetLevel()==8) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToHand() +end +function c18809562.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_HAND,0,1,e:GetHandler(),TYPE_SPELL) + and Duel.IsExistingMatchingCard(c18809562.filter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c18809562.activate(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(18809562,0)) + local ag=Duel.SelectMatchingCard(tp,Card.IsType,tp,LOCATION_HAND,0,1,1,nil,TYPE_SPELL) + if ag:GetCount()>0 then + Duel.SendtoHand(ag,1-tp,REASON_EFFECT) + Duel.ConfirmCards(tp,ag) + Duel.ShuffleHand(tp) + Duel.ShuffleHand(1-tp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c18809562.filter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.BreakEffect() + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end + end +end diff --git a/script/c18816758.lua b/script/c18816758.lua index 82a36fe2..878a3470 100644 --- a/script/c18816758.lua +++ b/script/c18816758.lua @@ -22,10 +22,10 @@ function c18816758.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoHand(g,nil,REASON_COST) end function c18816758.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c18816758.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c18828179.lua b/script/c18828179.lua index db788b19..481ab04b 100644 --- a/script/c18828179.lua +++ b/script/c18828179.lua @@ -41,7 +41,7 @@ function c18828179.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,c18828179.cfilter,1,1,REASON_COST+REASON_DISCARD) end function c18828179.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c18828179.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c18828179.filter(chkc) end diff --git a/script/c18865703.lua b/script/c18865703.lua index b6be93d3..344e9b3c 100644 --- a/script/c18865703.lua +++ b/script/c18865703.lua @@ -30,7 +30,7 @@ function c18865703.eqcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():CheckUniqueOnField(tp) end function c18865703.filter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) + return c:IsFaceup() and c:IsSetCard(0x107f) end function c18865703.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c18865703.filter(chkc) end @@ -58,7 +58,7 @@ function c18865703.eqop(e,tp,eg,ep,ev,re,r,rp) --atkup local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(2000) e2:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e2) @@ -80,6 +80,6 @@ end function c18865703.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c18937875.lua b/script/c18937875.lua index 57a0cbae..6bc5aa66 100644 --- a/script/c18937875.lua +++ b/script/c18937875.lua @@ -18,7 +18,7 @@ function c18937875.initial_effect(c) --def down local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(-200) c:RegisterEffect(e3) --equip limit diff --git a/script/c18960169.lua b/script/c18960169.lua index 7b27704c..369c9425 100644 --- a/script/c18960169.lua +++ b/script/c18960169.lua @@ -11,7 +11,7 @@ function c18960169.initial_effect(c) e1:SetTarget(c18960169.target) e1:SetOperation(c18960169.operation) c:RegisterEffect(e1) - --to defence + --to defense local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -40,7 +40,7 @@ end function c18960169.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c1896112.lua b/script/c1896112.lua index 673c58d1..7cd49815 100644 --- a/script/c1896112.lua +++ b/script/c1896112.lua @@ -29,11 +29,13 @@ function c1896112.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) and Duel.IsExistingTarget(c1896112.filter,tp,LOCATION_REMOVED,0,1,nil,e,tp) and Duel.IsExistingTarget(c1896112.filter,1-tp,LOCATION_REMOVED,0,1,nil,e,1-tp) end local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft1=1 end if ft1>2 then ft1=2 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g1=Duel.SelectTarget(tp,c1896112.filter,tp,LOCATION_REMOVED,0,1,ft1,nil,e,tp) local ft2=Duel.GetLocationCount(1-tp,LOCATION_MZONE) if ft2>2 then ft2=2 end + if Duel.IsPlayerAffectedByEffect(1-tp,59822133) then ft2=1 end Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON) local g2=Duel.SelectTarget(1-tp,c1896112.filter,1-tp,LOCATION_REMOVED,0,1,ft2,nil,e,1-tp) g1:Merge(g2) @@ -44,7 +46,8 @@ function c1896112.operation(e,tp,eg,ep,ev,re,r,rp) local g1=g:Filter(Card.IsControler,nil,tp) local g2=g:Filter(Card.IsControler,nil,1-tp) local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft1>=g1:GetCount() then + local ct1=g1:GetCount() + if ft1>=ct1 and (ct1==1 or not Duel.IsPlayerAffectedByEffect(tp,59822133)) then local tc=g1:GetFirst() while tc do Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) @@ -52,7 +55,8 @@ function c1896112.operation(e,tp,eg,ep,ev,re,r,rp) end end local ft2=Duel.GetLocationCount(1-tp,LOCATION_MZONE) - if ft2>=g2:GetCount() then + local ct2=g2:GetCount() + if ft2>=ct2 and (ct2==1 or not Duel.IsPlayerAffectedByEffect(1-tp,59822133)) then local tc=g2:GetFirst() while tc do Duel.SpecialSummonStep(tc,0,1-tp,1-tp,false,false,POS_FACEUP) diff --git a/script/c18963306.lua b/script/c18963306.lua new file mode 100644 index 00000000..82d54c73 --- /dev/null +++ b/script/c18963306.lua @@ -0,0 +1,72 @@ +--銀河眼の光波竜 +function c18963306.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,8,2) + c:EnableReviveLimit() + --control + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_CONTROL) + e1:SetDescription(aux.Stringid(18963306,0)) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1) + e1:SetRange(LOCATION_MZONE) + e1:SetCost(c18963306.cost) + e1:SetTarget(c18963306.target) + e1:SetOperation(c18963306.operation) + c:RegisterEffect(e1) +end +function c18963306.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c18963306.filter(c) + return c:IsFaceup() and c:IsControlerCanBeChanged() +end +function c18963306.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c18963306.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c18963306.filter,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) + local g=Duel.SelectTarget(tp,c18963306.filter,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) +end +function c18963306.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) + e1:SetTargetRange(LOCATION_MZONE,0) + e1:SetTarget(c18963306.atktg) + e1:SetLabel(e:GetHandler():GetFieldID()) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.GetControl(tc,tp,PHASE_END,1)~=0 then + Duel.NegateRelatedChain(tc,RESET_TURN_SET) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_DISABLE_EFFECT) + e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e3) + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_SET_ATTACK_FINAL) + e4:SetValue(3000) + e4:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e4) + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_SINGLE) + e5:SetCode(EFFECT_CHANGE_CODE) + e5:SetValue(18963306) + e5:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e5) + end +end +function c18963306.atktg(e,c) + return e:GetLabel()~=c:GetFieldID() +end diff --git a/script/c18993198.lua b/script/c18993198.lua new file mode 100644 index 00000000..2f699bf2 --- /dev/null +++ b/script/c18993198.lua @@ -0,0 +1,47 @@ +--化合獣オキシン・オックス +function c18993198.initial_effect(c) + aux.EnableDualAttribute(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(18993198,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetCountLimit(1,18993198) + e1:SetRange(LOCATION_MZONE) + e1:SetCondition(aux.IsDualState) + e1:SetTarget(c18993198.sptg) + e1:SetOperation(c18993198.spop) + c:RegisterEffect(e1) +end +function c18993198.filter(c,e,tp) + return c:IsType(TYPE_DUAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c18993198.lvfilter(c) + return c:IsFaceup() and c:IsType(TYPE_DUAL) +end +function c18993198.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c18993198.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c18993198.spop(e,tp,eg,ep,ev,re,r,rp,chk) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c18993198.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) + if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) then + local lv=g:GetFirst():GetOriginalLevel() + local tg=Duel.GetMatchingGroup(c18993198.lvfilter,tp,LOCATION_MZONE,0,nil) + local tc=tg:GetFirst() + while tc do + if tc:GetLevel()~=lv then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CHANGE_LEVEL_FINAL) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetValue(lv) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + end + tc=tg:GetNext() + end + end +end diff --git a/script/c19019586.lua b/script/c19019586.lua index a26fb961..f1f29d94 100644 --- a/script/c19019586.lua +++ b/script/c19019586.lua @@ -50,7 +50,7 @@ function c19019586.defop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) e1:SetValue(1000) c:RegisterEffect(e1) diff --git a/script/c19024706.lua b/script/c19024706.lua index 9d3a828b..507e2b4e 100644 --- a/script/c19024706.lua +++ b/script/c19024706.lua @@ -27,7 +27,7 @@ function c19024706.activate(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,tc) if tc:IsSetCard(0x3008) and tc:IsType(TYPE_MONSTER) then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local dg=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local dg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.Destroy(dg,REASON_EFFECT) if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)==0 then Duel.ShuffleHand(tp) diff --git a/script/c19025379.lua b/script/c19025379.lua index a92019ee..9ad67d3d 100644 --- a/script/c19025379.lua +++ b/script/c19025379.lua @@ -1,57 +1,57 @@ ---ロード・オブ・ザ・レッド -function c19025379.initial_effect(c) - c:EnableReviveLimit() - --destroy monster - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(19025379,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCountLimit(1) - e1:SetCondition(c19025379.descon) - e1:SetTarget(c19025379.destg1) - e1:SetOperation(c19025379.desop1) - c:RegisterEffect(e1) - --destroy spell & trap - local e2=e1:Clone() - e2:SetDescription(aux.Stringid(19025379,1)) - e2:SetTarget(c19025379.destg2) - e2:SetOperation(c19025379.desop2) - c:RegisterEffect(e2) -end -function c19025379.descon(e,tp,eg,ep,ev,re,r,rp) - return not re:GetHandler():IsCode(19025379) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) -end -function c19025379.destg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c19025379.desfilter2(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c19025379.destg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c19025379.desfilter2(chkc) end - if chk==0 then return Duel.IsExistingTarget(c19025379.desfilter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c19025379.desfilter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c19025379.desop1(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsType(TYPE_MONSTER) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c19025379.desop2(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--ロード・オブ・ザ・レッド +function c19025379.initial_effect(c) + c:EnableReviveLimit() + --destroy monster + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(19025379,0)) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_CHAINING) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1) + e1:SetCondition(c19025379.descon) + e1:SetTarget(c19025379.destg1) + e1:SetOperation(c19025379.desop1) + c:RegisterEffect(e1) + --destroy spell & trap + local e2=e1:Clone() + e2:SetDescription(aux.Stringid(19025379,1)) + e2:SetTarget(c19025379.destg2) + e2:SetOperation(c19025379.desop2) + c:RegisterEffect(e2) +end +function c19025379.descon(e,tp,eg,ep,ev,re,r,rp) + return not re:GetHandler():IsCode(19025379) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) +end +function c19025379.destg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c19025379.desfilter2(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) +end +function c19025379.destg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and c19025379.desfilter2(chkc) end + if chk==0 then return Duel.IsExistingTarget(c19025379.desfilter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c19025379.desfilter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c19025379.desop1(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsType(TYPE_MONSTER) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c19025379.desop2(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c19041767.lua b/script/c19041767.lua index d02aed4f..9804b9cd 100644 --- a/script/c19041767.lua +++ b/script/c19041767.lua @@ -47,7 +47,7 @@ function c19041767.operation(e,tp,eg,ep,ev,re,r,rp) if tc then local s1=tc:IsSummonable(true,nil) local s2=tc:IsMSetable(true,nil) - if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENCE)==POS_FACEUP_ATTACK) or not s2 then + if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) or not s2 then Duel.Summon(tp,tc,true,nil) else Duel.MSet(tp,tc,true,nil) diff --git a/script/c19048328.lua b/script/c19048328.lua old mode 100755 new mode 100644 index cace5265..a853b45d --- a/script/c19048328.lua +++ b/script/c19048328.lua @@ -1,117 +1,152 @@ ---幻竜星－チョウホウ -function c19048328.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --mat check - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_MATERIAL_CHECK) - e1:SetValue(c19048328.matcheck) - c:RegisterEffect(e1) - --act limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EFFECT_CANNOT_ACTIVATE) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,1) - e2:SetCondition(c19048328.condition) - e2:SetValue(c19048328.aclimit) - e2:SetLabelObject(e1) - c:RegisterEffect(e2) - --search - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c19048328.thcon) - e3:SetTarget(c19048328.thtg) - e3:SetOperation(c19048328.thop) - c:RegisterEffect(e3) - --spsummon - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_DESTROYED) - e4:SetRange(LOCATION_MZONE) - e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e4:SetCountLimit(1) - e4:SetCondition(c19048328.spcon) - e4:SetTarget(c19048328.sptg) - e4:SetOperation(c19048328.spop) - c:RegisterEffect(e4) -end -function c19048328.matcheck(e,c) - local g=c:GetMaterial():Filter(Card.IsSetCard,nil,0x9e) - local att=0 - local tc=g:GetFirst() - while tc do - att=bit.bor(att,tc:GetOriginalAttribute()) - tc=g:GetNext() - end - e:SetLabel(att) -end -function c19048328.condition(e) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO -end -function c19048328.aclimit(e,re,tp) - local att=e:GetLabelObject():GetLabel() - return re:IsActiveType(TYPE_MONSTER) and bit.band(att,re:GetHandler():GetOriginalAttribute())~=0 - and not re:GetHandler():IsImmuneToEffect(e) -end -function c19048328.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) - and c:GetSummonType()==SUMMON_TYPE_SYNCHRO -end -function c19048328.thfilter(c) - return c:IsType(TYPE_TUNER) and c:IsAbleToHand() -end -function c19048328.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c19048328.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c19048328.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c19048328.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end -function c19048328.cfilter(c,p) - return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:GetOriginalAttribute()~=0 - and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==p -end -function c19048328.spcon(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(c19048328.cfilter,nil,1-tp) - if g:GetCount()>0 then - local att=0 - local tc=g:GetFirst() - while tc do - att=bit.bor(att,tc:GetOriginalAttribute()) - tc=g:GetNext() - end - e:SetLabel(att) - return true - else return false end -end -function c19048328.spfilter(c,e,tp,att) - return c:IsRace(RACE_WYRM) and bit.band(att,c:GetOriginalAttribute())~=0 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c19048328.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c19048328.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,e:GetLabel()) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c19048328.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c19048328.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,e:GetLabel()) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end +--幻竜星－チョウホウ +function c19048328.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --mat check + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_MATERIAL_CHECK) + e1:SetValue(c19048328.matcheck) + c:RegisterEffect(e1) + --act limit + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetCondition(c19048328.regcon) + e2:SetOperation(c19048328.regop) + e2:SetLabelObject(e1) + c:RegisterEffect(e2) + --search + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(19048328,0)) + e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetCondition(c19048328.thcon) + e3:SetTarget(c19048328.thtg) + e3:SetOperation(c19048328.thop) + c:RegisterEffect(e3) + --spsummon + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(19048328,1)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_DESTROYED) + e4:SetRange(LOCATION_MZONE) + e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e4:SetCountLimit(1) + e4:SetCondition(c19048328.spcon) + e4:SetTarget(c19048328.sptg) + e4:SetOperation(c19048328.spop) + c:RegisterEffect(e4) +end +function c19048328.matcheck(e,c) + local g=c:GetMaterial():Filter(Card.IsSetCard,nil,0x9e) + local att=0 + local tc=g:GetFirst() + while tc do + att=bit.bor(att,tc:GetOriginalAttribute()) + tc=g:GetNext() + end + e:SetLabel(att) +end +function c19048328.regcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO +end +function c19048328.regop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EFFECT_CANNOT_ACTIVATE) + e1:SetRange(LOCATION_MZONE) + e1:SetTargetRange(0,1) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(c19048328.aclimit) + e1:SetLabelObject(e:GetLabelObject()) + c:RegisterEffect(e1) + local att=e:GetLabelObject():GetLabel() + if bit.band(att,ATTRIBUTE_EARTH)~=0 then + c:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(19048328,2)) + end + if bit.band(att,ATTRIBUTE_WATER)~=0 then + c:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(19048328,3)) + end + if bit.band(att,ATTRIBUTE_FIRE)~=0 then + c:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(19048328,4)) + end + if bit.band(att,ATTRIBUTE_WIND)~=0 then + c:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(19048328,5)) + end + if bit.band(att,ATTRIBUTE_LIGHT)~=0 then + c:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(19048328,6)) + end + if bit.band(att,ATTRIBUTE_DARK)~=0 then + c:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(19048328,7)) + end + if bit.band(att,ATTRIBUTE_DEVINE)~=0 then + c:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(19048328,8)) + end +end +function c19048328.aclimit(e,re,tp) + local att=e:GetLabelObject():GetLabel() + return re:IsActiveType(TYPE_MONSTER) and bit.band(att,re:GetHandler():GetOriginalAttribute())~=0 + and not re:GetHandler():IsImmuneToEffect(e) +end +function c19048328.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) + and c:IsPreviousLocation(LOCATION_MZONE) and c:GetSummonType()==SUMMON_TYPE_SYNCHRO +end +function c19048328.thfilter(c) + return c:IsType(TYPE_TUNER) and c:IsAbleToHand() +end +function c19048328.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c19048328.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c19048328.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c19048328.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c19048328.cfilter(c,p) + return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:GetOriginalAttribute()~=0 + and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==p +end +function c19048328.spcon(e,tp,eg,ep,ev,re,r,rp) + local g=eg:Filter(c19048328.cfilter,nil,1-tp) + if g:GetCount()>0 then + local att=0 + local tc=g:GetFirst() + while tc do + att=bit.bor(att,tc:GetOriginalAttribute()) + tc=g:GetNext() + end + e:SetLabel(att) + return true + else return false end +end +function c19048328.spfilter(c,e,tp,att) + return c:IsRace(RACE_WYRM) and bit.band(att,c:GetOriginalAttribute())~=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c19048328.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c19048328.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,e:GetLabel()) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c19048328.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c19048328.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,e:GetLabel()) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + end +end diff --git a/script/c19059929.lua b/script/c19059929.lua index e905556f..5f514e00 100644 --- a/script/c19059929.lua +++ b/script/c19059929.lua @@ -23,7 +23,9 @@ function c19059929.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.IsExistingTarget(Card.IsFacedown,tp,0,LOCATION_SZONE,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(19059929,0)) local g=Duel.SelectTarget(tp,Card.IsFacedown,tp,0,LOCATION_SZONE,1,1,e:GetHandler()) - Duel.SetChainLimit(c19059929.limit(g:GetFirst())) + if e:IsHasType(EFFECT_TYPE_ACTIVATE) then + Duel.SetChainLimit(c19059929.limit(g:GetFirst())) + end end function c19059929.limit(c) return function (e,lp,tp) diff --git a/script/c19086954.lua b/script/c19086954.lua index bcc082a8..2b900b34 100644 --- a/script/c19086954.lua +++ b/script/c19086954.lua @@ -88,8 +88,10 @@ function c19086954.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c19086954.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c19086954.postg(e,tp,eg,ep,ev,re,r,rp,chk) @@ -100,6 +102,6 @@ end function c19086954.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then - Duel.ChangePosition(c:GetEquipTarget(),POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(c:GetEquipTarget(),POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c19113101.lua b/script/c19113101.lua old mode 100755 new mode 100644 diff --git a/script/c19139516.lua b/script/c19139516.lua index d8dc1774..6534cff9 100644 --- a/script/c19139516.lua +++ b/script/c19139516.lua @@ -30,7 +30,7 @@ function c19139516.initial_effect(c) c:RegisterEffect(e3) end function c19139516.regop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsDefencePos() and e:GetHandler():IsFaceup() then + if e:GetHandler():IsDefensePos() and e:GetHandler():IsFaceup() then e:GetHandler():RegisterFlagEffect(19139516,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE,0,1) end end diff --git a/script/c19153634.lua b/script/c19153634.lua index 2a9db23c..bca56608 100644 --- a/script/c19153634.lua +++ b/script/c19153634.lua @@ -2,25 +2,10 @@ function c19153634.initial_effect(c) --Activate local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetType(EFFECT_TYPE_FIELD) e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c19153634.condition) - e1:SetOperation(c19153634.operation) + e1:SetCode(EFFECT_PATRICIAN_OF_DARKNESS) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(0,1) c:RegisterEffect(e1) end -function c19153634.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c19153634.operation(e,tp,eg,ep,ev,re,r,rp) - local ats=eg:GetFirst():GetAttackableTarget() - local at=Duel.GetAttackTarget() - if ats:GetCount()==0 or (at and ats:GetCount()==1) then return end - if Duel.SelectYesNo(tp,aux.Stringid(19153634,0)) then - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(19153634,1)) - local g=ats:Select(tp,1,1,at) - Duel.Hint(HINT_CARD,0,19153634) - Duel.HintSelection(g) - Duel.ChangeAttackTarget(g:GetFirst()) - end -end diff --git a/script/c19159413.lua b/script/c19159413.lua old mode 100755 new mode 100644 diff --git a/script/c19221310.lua b/script/c19221310.lua index 3d36c9f7..af3421b8 100644 --- a/script/c19221310.lua +++ b/script/c19221310.lua @@ -1,60 +1,60 @@ ---オッドアイズ・セイバー・ドラゴン -function c19221310.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(19221310,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetCost(c19221310.spcost) - e1:SetTarget(c19221310.sptg) - e1:SetOperation(c19221310.spop) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(19221310,1)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetCondition(aux.bdgcon) - e2:SetTarget(c19221310.destg) - e2:SetOperation(c19221310.desop) - c:RegisterEffect(e2) -end -function c19221310.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsAttribute,1,nil,ATTRIBUTE_LIGHT) end - local g=Duel.SelectReleaseGroup(tp,Card.IsAttribute,1,1,nil,ATTRIBUTE_LIGHT) - Duel.Release(g,REASON_COST) -end -function c19221310.filter(c) - return c:IsCode(53025096) and c:IsAbleToGrave() -end -function c19221310.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c19221310.filter,tp,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_DECK,0,1,nil) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_DECK) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c19221310.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c19221310.filter,tp,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_DECK,0,1,1,nil) - local tc=g:GetFirst() - if Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE) and c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end -function c19221310.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c19221310.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - if g:GetCount()>0 then - Duel.HintSelection(g) - Duel.Destroy(g,REASON_EFFECT) - end -end +--オッドアイズ・セイバー・ドラゴン +function c19221310.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(19221310,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_HAND) + e1:SetCost(c19221310.spcost) + e1:SetTarget(c19221310.sptg) + e1:SetOperation(c19221310.spop) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(19221310,1)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BATTLE_DESTROYING) + e2:SetCondition(aux.bdgcon) + e2:SetTarget(c19221310.destg) + e2:SetOperation(c19221310.desop) + c:RegisterEffect(e2) +end +function c19221310.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsAttribute,1,nil,ATTRIBUTE_LIGHT) end + local g=Duel.SelectReleaseGroup(tp,Card.IsAttribute,1,1,nil,ATTRIBUTE_LIGHT) + Duel.Release(g,REASON_COST) +end +function c19221310.filter(c) + return c:IsCode(53025096) and c:IsAbleToGrave() +end +function c19221310.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c19221310.filter,tp,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_DECK,0,1,nil) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_DECK) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c19221310.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c19221310.filter,tp,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_DECK,0,1,1,nil) + local tc=g:GetFirst() + if Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE) and c:IsRelateToEffect(e) then + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + end +end +function c19221310.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c19221310.desop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) + if g:GetCount()>0 then + Duel.HintSelection(g) + Duel.Destroy(g,REASON_EFFECT) + end +end diff --git a/script/c19230407.lua b/script/c19230407.lua index 1e361c79..28d8f076 100644 --- a/script/c19230407.lua +++ b/script/c19230407.lua @@ -11,7 +11,7 @@ function c19230407.initial_effect(c) c:RegisterEffect(e1) end function c19230407.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c19230407.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c19230407.filter(chkc) end diff --git a/script/c19230408.lua b/script/c19230408.lua deleted file mode 100644 index c201a9fb..00000000 --- a/script/c19230408.lua +++ /dev/null @@ -1,35 +0,0 @@ ---死者への供物(EU) -function c19230408.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c19230408.target) - e1:SetOperation(c19230408.activate) - c:RegisterEffect(e1) -end -function c19230408.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c19230408.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c19230408.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c19230408.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c19230408.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c19230408.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_SKIP_DP) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_END,3) - Duel.RegisterEffect(e1,tp) -end diff --git a/script/c19254117.lua b/script/c19254117.lua new file mode 100644 index 00000000..fcfa598c --- /dev/null +++ b/script/c19254117.lua @@ -0,0 +1,102 @@ +--仁王立ち +function c19254117.initial_effect(c) + --activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(19254117,0)) + e1:SetCategory(CATEGORY_DEFCHANGE) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetHintTiming(TIMING_DAMAGE_STEP) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,19254117+EFFECT_COUNT_CODE_OATH) + e1:SetCondition(c19254117.condition) + e1:SetTarget(c19254117.target) + e1:SetOperation(c19254117.activate) + c:RegisterEffect(e1) + --attack target + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(19254117,1)) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_GRAVE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCondition(c19254117.tgcon) + e2:SetCost(c19254117.tgcost) + e2:SetTarget(c19254117.tgtg) + e2:SetOperation(c19254117.tgop) + c:RegisterEffect(e2) +end +function c19254117.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() +end +function c19254117.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end + if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) +end +function c19254117.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_DEFENSE_FINAL) + e1:SetValue(tc:GetDefense()*2) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + --def to 0 + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EVENT_TURN_END) + e2:SetReset(RESET_EVENT+0x1fe0000) + e2:SetCountLimit(1) + e2:SetOperation(c19254117.ddop) + tc:RegisterEffect(e2) + end +end +function c19254117.ddop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetOwner() + local tc=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_DEFENSE_FINAL) + e1:SetValue(0) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1,true) + e:Reset() +end +function c19254117.tgcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp + and (Duel.IsAbleToEnterBP() or (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)) +end +function c19254117.tgcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c19254117.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end + if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,0,1,1,nil) +end +function c19254117.tgop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + local c=e:GetHandler() + if tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_RISE_TO_FULL_HEIGHT) + e1:SetTargetRange(0,LOCATION_MZONE) + e1:SetLabel(tc:GetRealFieldID()) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_ONLY_BE_ATTACKED) + e2:SetReset(RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2,true) + end +end diff --git a/script/c19261966.lua b/script/c19261966.lua old mode 100755 new mode 100644 index dc731cd4..55c356fc --- a/script/c19261966.lua +++ b/script/c19261966.lua @@ -1,171 +1,170 @@ ---エルシャドール・アノマリリス -function c19261966.initial_effect(c) - c:EnableReviveLimit() - --fusion material - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(c19261966.fuscon) - e1:SetOperation(c19261966.fusop) - c:RegisterEffect(e1) - --splimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCode(EFFECT_SPSUMMON_CONDITION) - e2:SetRange(LOCATION_EXTRA) - e2:SetValue(c19261966.splimit) - c:RegisterEffect(e2) - --spsummon limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e3:SetTargetRange(1,1) - e3:SetTarget(c19261966.sumlimit) - c:RegisterEffect(e3) - --tohand - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(19261966,0)) - e4:SetCategory(CATEGORY_TOHAND) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e4:SetTarget(c19261966.thtg) - e4:SetOperation(c19261966.thop) - c:RegisterEffect(e4) -end -function c19261966.ffilter1(c) - return c:IsSetCard(0x9d) -end -function c19261966.ffilter2(c) - return c:IsAttribute(ATTRIBUTE_WATER) or c:IsHasEffect(4904633) -end -function c19261966.exfilter(c,g) - return c:IsFaceup() and c:IsCanBeFusionMaterial() and not g:IsContains(c) -end -function c19261966.fuscon(e,g,gc,chkf) - if g==nil then return true end - local tp=e:GetHandlerPlayer() - local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local exg=Group.CreateGroup() - if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then - local sg=Duel.GetMatchingGroup(c19261966.exfilter,tp,0,LOCATION_MZONE,nil,g) - exg:Merge(sg) - end - if gc then return (c19261966.ffilter1(gc) and (g:IsExists(c19261966.ffilter2,1,gc) or exg:IsExists(c19261966.ffilter2,1,gc))) - or (c19261966.ffilter2(gc) and (g:IsExists(c19261966.ffilter1,1,gc) or exg:IsExists(c19261966.ffilter1,1,gc))) end - local g1=Group.CreateGroup() - local g2=Group.CreateGroup() - local g3=Group.CreateGroup() - local g4=Group.CreateGroup() - local tc=g:GetFirst() - while tc do - if c19261966.ffilter1(tc) then - g1:AddCard(tc) - if aux.FConditionCheckF(tc,chkf) then g3:AddCard(tc) end - end - if c19261966.ffilter2(tc) then - g2:AddCard(tc) - if aux.FConditionCheckF(tc,chkf) then g4:AddCard(tc) end - end - tc=g:GetNext() - end - local exg1=exg:Filter(c19261966.ffilter1,nil) - local exg2=exg:Filter(c19261966.ffilter2,nil) - if chkf~=PLAYER_NONE then - return (g3:IsExists(aux.FConditionFilterF2,1,nil,g2) - or g3:IsExists(aux.FConditionFilterF2,1,nil,exg2) - or g4:IsExists(aux.FConditionFilterF2,1,nil,g1) - or g4:IsExists(aux.FConditionFilterF2,1,nil,exg1)) - else - return (g1:IsExists(aux.FConditionFilterF2,1,nil,g2) - or g1:IsExists(aux.FConditionFilterF2,1,nil,exg2) - or g2:IsExists(aux.FConditionFilterF2,1,nil,exg1)) - end -end -function c19261966.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local exg=Group.CreateGroup() - if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then - local sg=Duel.GetMatchingGroup(c19261966.exfilter,tp,0,LOCATION_MZONE,nil,eg) - exg:Merge(sg) - end - if gc then - local sg1=Group.CreateGroup() - local sg2=Group.CreateGroup() - if c19261966.ffilter1(gc) then - sg1:Merge(eg:Filter(c19261966.ffilter2,gc)) - sg2:Merge(exg:Filter(c19261966.ffilter2,gc)) - end - if c19261966.ffilter2(gc) then - sg1:Merge(eg:Filter(c19261966.ffilter1,gc)) - sg2:Merge(exg:Filter(c19261966.ffilter1,gc)) - end - local g1=nil - if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then - fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1=sg2:Select(tp,1,1,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1=sg1:Select(tp,1,1,nil) - end - Duel.SetFusionMaterial(g1) - return - end - local sg=eg:Filter(aux.FConditionFilterF2c,nil,c19261966.ffilter1,c19261966.ffilter2) - local g1=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if chkf~=PLAYER_NONE then - g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) - else g1=sg:Select(tp,1,1,nil) end - local tc1=g1:GetFirst() - local sg1=Group.CreateGroup() - local sg2=Group.CreateGroup() - if c19261966.ffilter1(tc1) then - sg1:Merge(sg:Filter(c19261966.ffilter2,tc1)) - sg2:Merge(exg:Filter(c19261966.ffilter2,tc1)) - end - if c19261966.ffilter2(tc1) then - sg1:Merge(sg:Filter(c19261966.ffilter1,tc1)) - sg2:Merge(exg:Filter(c19261966.ffilter1,tc1)) - end - local g2=nil - if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then - fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg2:Select(tp,1,1,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg1:Select(tp,1,1,nil) - end - g1:Merge(g2) - Duel.SetFusionMaterial(g1) -end -function c19261966.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c19261966.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) - return se:IsActiveType(TYPE_SPELL+TYPE_TRAP) and se:IsHasType(EFFECT_TYPE_ACTIONS) - and c:IsLocation(LOCATION_GRAVE+LOCATION_HAND) -end -function c19261966.thfilter(c) - return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c19261966.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c19261966.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c19261966.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c19261966.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c19261966.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--エルシャドール・アノマリリス +function c19261966.initial_effect(c) + c:EnableReviveLimit() + --fusion material + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(c19261966.fuscon) + e1:SetOperation(c19261966.fusop) + c:RegisterEffect(e1) + --splimit + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetCode(EFFECT_SPSUMMON_CONDITION) + e2:SetRange(LOCATION_EXTRA) + e2:SetValue(c19261966.splimit) + c:RegisterEffect(e2) + --spsummon limit + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetTargetRange(1,1) + e3:SetTarget(c19261966.sumlimit) + c:RegisterEffect(e3) + --tohand + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(19261966,0)) + e4:SetCategory(CATEGORY_TOHAND) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e4:SetTarget(c19261966.thtg) + e4:SetOperation(c19261966.thop) + c:RegisterEffect(e4) +end +function c19261966.ffilter1(c) + return c:IsFusionSetCard(0x9d) +end +function c19261966.ffilter2(c) + return c:IsAttribute(ATTRIBUTE_WATER) or c:IsHasEffect(4904633) +end +function c19261966.exfilter(c,g) + return c:IsFaceup() and c:IsCanBeFusionMaterial() and not g:IsContains(c) +end +function c19261966.fuscon(e,g,gc,chkf) + if g==nil then return true end + local tp=e:GetHandlerPlayer() + local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + local exg=Group.CreateGroup() + if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then + local sg=Duel.GetMatchingGroup(c19261966.exfilter,tp,0,LOCATION_MZONE,nil,g) + exg:Merge(sg) + end + if gc then return (c19261966.ffilter1(gc) and (g:IsExists(c19261966.ffilter2,1,gc) or exg:IsExists(c19261966.ffilter2,1,gc))) + or (c19261966.ffilter2(gc) and (g:IsExists(c19261966.ffilter1,1,gc) or exg:IsExists(c19261966.ffilter1,1,gc))) end + local g1=Group.CreateGroup() + local g2=Group.CreateGroup() + local g3=Group.CreateGroup() + local g4=Group.CreateGroup() + local tc=g:GetFirst() + while tc do + if c19261966.ffilter1(tc) then + g1:AddCard(tc) + if aux.FConditionCheckF(tc,chkf) then g3:AddCard(tc) end + end + if c19261966.ffilter2(tc) then + g2:AddCard(tc) + if aux.FConditionCheckF(tc,chkf) then g4:AddCard(tc) end + end + tc=g:GetNext() + end + local exg1=exg:Filter(c19261966.ffilter1,nil) + local exg2=exg:Filter(c19261966.ffilter2,nil) + if chkf~=PLAYER_NONE then + return (g3:IsExists(aux.FConditionFilterF2,1,nil,g2) + or g3:IsExists(aux.FConditionFilterF2,1,nil,exg2) + or g4:IsExists(aux.FConditionFilterF2,1,nil,g1) + or g4:IsExists(aux.FConditionFilterF2,1,nil,exg1)) + else + return (g1:IsExists(aux.FConditionFilterF2,1,nil,g2) + or g1:IsExists(aux.FConditionFilterF2,1,nil,exg2) + or g2:IsExists(aux.FConditionFilterF2,1,nil,exg1)) + end +end +function c19261966.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) + local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + local exg=Group.CreateGroup() + if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then + local sg=Duel.GetMatchingGroup(c19261966.exfilter,tp,0,LOCATION_MZONE,nil,eg) + exg:Merge(sg) + end + if gc then + local sg1=Group.CreateGroup() + local sg2=Group.CreateGroup() + if c19261966.ffilter1(gc) then + sg1:Merge(eg:Filter(c19261966.ffilter2,gc)) + sg2:Merge(exg:Filter(c19261966.ffilter2,gc)) + end + if c19261966.ffilter2(gc) then + sg1:Merge(eg:Filter(c19261966.ffilter1,gc)) + sg2:Merge(exg:Filter(c19261966.ffilter1,gc)) + end + local g1=nil + if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then + fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g1=sg2:Select(tp,1,1,nil) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g1=sg1:Select(tp,1,1,nil) + end + Duel.SetFusionMaterial(g1) + return + end + local sg=eg:Filter(aux.FConditionFilterF2c,nil,c19261966.ffilter1,c19261966.ffilter2) + local g1=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if chkf~=PLAYER_NONE then + g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) + else g1=sg:Select(tp,1,1,nil) end + local tc1=g1:GetFirst() + local sg1=Group.CreateGroup() + local sg2=Group.CreateGroup() + if c19261966.ffilter1(tc1) then + sg1:Merge(sg:Filter(c19261966.ffilter2,tc1)) + sg2:Merge(exg:Filter(c19261966.ffilter2,tc1)) + end + if c19261966.ffilter2(tc1) then + sg1:Merge(sg:Filter(c19261966.ffilter1,tc1)) + sg2:Merge(exg:Filter(c19261966.ffilter1,tc1)) + end + local g2=nil + if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then + fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g2=sg2:Select(tp,1,1,nil) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g2=sg1:Select(tp,1,1,nil) + end + g1:Merge(g2) + Duel.SetFusionMaterial(g1) +end +function c19261966.splimit(e,se,sp,st) + return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c19261966.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) + return se:IsActiveType(TYPE_SPELL+TYPE_TRAP) and se:IsHasType(EFFECT_TYPE_ACTIONS) + and c:IsLocation(LOCATION_GRAVE+LOCATION_HAND) +end +function c19261966.thfilter(c) + return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() +end +function c19261966.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c19261966.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c19261966.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c19261966.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c19261966.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c19302550.lua b/script/c19302550.lua index 9d7297f2..e49d0292 100644 --- a/script/c19302550.lua +++ b/script/c19302550.lua @@ -1,69 +1,67 @@ ---DD魔導賢者ニュートン -function c19302550.initial_effect(c) - --pendulum summon - aux.EnablePendulumAttribute(c) - --splimit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_PZONE) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) - e1:SetTargetRange(1,0) - e1:SetCondition(aux.nfbdncon) - e1:SetTarget(c19302550.splimit) - c:RegisterEffect(e1) - --disable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetRange(LOCATION_PZONE) - e2:SetCode(EVENT_CHAIN_SOLVING) - e2:SetCondition(c19302550.discon) - e2:SetOperation(c19302550.disop) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(19302550,0)) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_HAND) - e3:SetCountLimit(1,19302550) - e3:SetCost(c19302550.thcost) - e3:SetTarget(c19302550.thtg) - e3:SetOperation(c19302550.thop) - c:RegisterEffect(e3) -end -function c19302550.splimit(e,c,sump,sumtype,sumpos,targetp) - return not c:IsSetCard(0xaf) and bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM -end -function c19302550.discon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsChainNegatable(ev) and re:IsActiveType(TYPE_TRAP) and aux.damcon1(e,tp,eg,ep,ev,re,r,rp) and e:GetHandler():GetFlagEffect(19302550)==0 -end -function c19302550.disop(e,tp,eg,ep,ev,re,r,rp) - if not Duel.SelectYesNo(tp,aux.Stringid(19302550,1)) then return end - e:GetHandler():RegisterFlagEffect(19302550,RESET_EVENT+0x1fe0000,0,1) - Duel.NegateEffect(ev) - Duel.BreakEffect() - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end -function c19302550.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDiscardable() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) -end -function c19302550.thfilter(c) - return (c:IsSetCard(0xaf) or c:IsSetCard(0xae)) and not c:IsCode(19302550) and c:IsAbleToHand() -end -function c19302550.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c19302550.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c19302550.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c19302550.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c19302550.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--DD魔導賢者ニュートン +function c19302550.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --splimit + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_PZONE) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) + e1:SetTargetRange(1,0) + e1:SetTarget(c19302550.splimit) + c:RegisterEffect(e1) + --disable + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetRange(LOCATION_PZONE) + e2:SetCode(EVENT_CHAIN_SOLVING) + e2:SetCondition(c19302550.discon) + e2:SetOperation(c19302550.disop) + c:RegisterEffect(e2) + --tohand + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(19302550,0)) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetRange(LOCATION_HAND) + e3:SetCountLimit(1,19302550) + e3:SetCost(c19302550.thcost) + e3:SetTarget(c19302550.thtg) + e3:SetOperation(c19302550.thop) + c:RegisterEffect(e3) +end +function c19302550.splimit(e,c,sump,sumtype,sumpos,targetp) + return not c:IsSetCard(0xaf) and bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM +end +function c19302550.discon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsChainNegatable(ev) and re:IsActiveType(TYPE_TRAP) and aux.damcon1(e,tp,eg,ep,ev,re,r,rp) and e:GetHandler():GetFlagEffect(19302550)==0 +end +function c19302550.disop(e,tp,eg,ep,ev,re,r,rp) + if not Duel.SelectYesNo(tp,aux.Stringid(19302550,1)) then return end + e:GetHandler():RegisterFlagEffect(19302550,RESET_EVENT+0x1fe0000,0,1) + Duel.NegateEffect(ev) + Duel.BreakEffect() + Duel.Destroy(e:GetHandler(),REASON_EFFECT) +end +function c19302550.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) +end +function c19302550.thfilter(c) + return (c:IsSetCard(0xaf) or c:IsSetCard(0xae)) and not c:IsCode(19302550) and c:IsAbleToHand() +end +function c19302550.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c19302550.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c19302550.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c19302550.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c19302550.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c19327348.lua b/script/c19327348.lua old mode 100755 new mode 100644 diff --git a/script/c19337371.lua b/script/c19337371.lua index 6dcf258d..cdd8f0e7 100644 --- a/script/c19337371.lua +++ b/script/c19337371.lua @@ -4,24 +4,33 @@ function c19337371.initial_effect(c) e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c19337371.cost) + e1:SetCountLimit(1,19337371+EFFECT_COUNT_CODE_OATH) e1:SetTarget(c19337371.target) e1:SetOperation(c19337371.activate) c:RegisterEffect(e1) - -- + --reg local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e2:SetCode(EVENT_TO_GRAVE) e2:SetCondition(c19337371.regcon) e2:SetOperation(c19337371.regop) c:RegisterEffect(e2) -end -function c19337371.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,19337371)==0 end - Duel.RegisterFlagEffect(tp,19337371,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) + --search + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(19337371,0)) + e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e3:SetRange(LOCATION_GRAVE) + e3:SetCode(EVENT_PHASE+PHASE_END) + e3:SetCountLimit(1,19337371+EFFECT_COUNT_CODE_OATH) + e3:SetCondition(c19337371.thcon) + e3:SetTarget(c19337371.thtg) + e3:SetOperation(c19337371.thop) + c:RegisterEffect(e3) end function c19337371.filter(c) - return c:IsCode(90219263) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(90219263) and c:IsAbleToHand() end function c19337371.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c19337371.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,nil) end @@ -31,7 +40,7 @@ function c19337371.activate(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c19337371.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end @@ -40,24 +49,16 @@ function c19337371.regcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsPreviousLocation(LOCATION_HAND+LOCATION_ONFIELD) end function c19337371.regop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetDescription(aux.Stringid(19337371,0)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetRange(LOCATION_GRAVE) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetTarget(c19337371.thtg) - e1:SetOperation(c19337371.thop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) + e:GetHandler():RegisterFlagEffect(19337371,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) end function c19337371.thfilter(c) return c:IsSetCard(0x64) and c:IsAbleToHand() end +function c19337371.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(19337371)>0 +end function c19337371.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,19337371)==0 end - Duel.RegisterFlagEffect(tp,19337371,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) + if chk==0 then return true end Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) end function c19337371.thop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c19353570.lua b/script/c19353570.lua index bd6ef750..69c2711b 100644 --- a/script/c19353570.lua +++ b/script/c19353570.lua @@ -29,7 +29,9 @@ function c19353570.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c19353570.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c19357125.lua b/script/c19357125.lua index 13be932a..96658abd 100644 --- a/script/c19357125.lua +++ b/script/c19357125.lua @@ -34,7 +34,7 @@ function c19357125.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c19357125.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c19357125.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c19357125.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c19384334.lua b/script/c19384334.lua index bca69e33..35726896 100644 --- a/script/c19384334.lua +++ b/script/c19384334.lua @@ -16,7 +16,7 @@ function c19384334.initial_effect(c) c:RegisterEffect(e2) --Def down local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(-400) c:RegisterEffect(e3) end diff --git a/script/c19441018.lua b/script/c19441018.lua index 24c04f18..e9a63a34 100644 --- a/script/c19441018.lua +++ b/script/c19441018.lua @@ -54,10 +54,10 @@ function c19441018.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c19441018.filter1(c) - return c:IsDestructable() and Duel.IsExistingTarget(c19441018.filter2,0,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) + return Duel.IsExistingTarget(c19441018.filter2,0,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end function c19441018.filter2(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c19441018.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c19462747.lua b/script/c19462747.lua new file mode 100644 index 00000000..60c19f52 --- /dev/null +++ b/script/c19462747.lua @@ -0,0 +1,84 @@ +--BF－弔風のデス +function c19462747.initial_effect(c) + --lv up + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(19462747,0)) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1,19462747) + e1:SetTarget(c19462747.target) + e1:SetOperation(c19462747.operation) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --to grave + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetOperation(c19462747.regop) + c:RegisterEffect(e3) + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(19462747,3)) + e4:SetCategory(CATEGORY_DAMAGE) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e4:SetCode(EVENT_PHASE+PHASE_END) + e4:SetCountLimit(1) + e4:SetRange(LOCATION_GRAVE) + e4:SetCondition(c19462747.damcon) + e4:SetTarget(c19462747.damtg) + e4:SetOperation(c19462747.damop) + c:RegisterEffect(e4) +end +function c19462747.filter(c) + return c:IsFaceup() and c:GetLevel()>0 and c:IsSetCard(0x33) +end +function c19462747.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c19462747.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c19462747.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,c19462747.filter,tp,LOCATION_MZONE,0,1,1,nil) + local op=0 + Duel.Hint(HINT_SELECTMSG,tp,550) + if g:GetFirst():GetLevel()==1 then + op=Duel.SelectOption(tp,aux.Stringid(19462747,1)) + else + op=Duel.SelectOption(tp,aux.Stringid(19462747,1),aux.Stringid(19462747,2)) + end + e:SetLabel(op) +end +function c19462747.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_LEVEL) + e1:SetReset(RESET_EVENT+0x1fe0000) + if e:GetLabel()==0 then + e1:SetValue(1) + else + e1:SetValue(-1) + end + tc:RegisterEffect(e1) + end +end +function c19462747.regop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + c:RegisterFlagEffect(19462747,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) +end +function c19462747.damcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(19462747)>0 +end +function c19462747.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1000) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,0,0,tp,1000) +end +function c19462747.damop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) +end diff --git a/script/c19502505.lua b/script/c19502505.lua new file mode 100644 index 00000000..ce9b36e6 --- /dev/null +++ b/script/c19502505.lua @@ -0,0 +1,86 @@ +--沈黙の魔導剣士－サイレント・パラディン +function c19502505.initial_effect(c) + --search + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(19502505,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c19502505.target) + e1:SetOperation(c19502505.operation) + c:RegisterEffect(e1) + --negate + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(19502505,1)) + e2:SetCategory(CATEGORY_NEGATE) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_CHAINING) + e2:SetProperty(EFFECT_FLAG_NO_TURN_RESET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCondition(c19502505.negcon) + e2:SetTarget(c19502505.negtg) + e2:SetOperation(c19502505.negop) + c:RegisterEffect(e2) + --to hand + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(19502505,2)) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_DESTROYED) + e3:SetCondition(c19502505.thcon) + e3:SetTarget(c19502505.thtg) + e3:SetOperation(c19502505.thop) + c:RegisterEffect(e3) +end +function c19502505.cfilter(c) + return c:IsCode(1995985,73665146) and c:IsAbleToHand() +end +function c19502505.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c19502505.cfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK) +end +function c19502505.operation(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c19502505.cfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c19502505.negcon(e,tp,eg,ep,ev,re,r,rp) + if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end + local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) + return g and g:GetCount()==1 and g:GetFirst():IsControler(tp) and g:GetFirst():IsLocation(LOCATION_MZONE) + and re:IsActiveType(TYPE_SPELL) and re:IsHasType(EFFECT_TYPE_ACTIVATE) + and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) +end +function c19502505.negtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) +end +function c19502505.negop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) +end +function c19502505.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return (c:IsReason(REASON_BATTLE) or (rp~=tp and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp)) + and c:IsPreviousLocation(LOCATION_ONFIELD) +end +function c19502505.thfilter(c) + return c:IsSetCard(0x41) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToHand() +end +function c19502505.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c19502505.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c19502505.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c19502505.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c19502505.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c19508728.lua b/script/c19508728.lua index f162e8bf..055f70e8 100644 --- a/script/c19508728.lua +++ b/script/c19508728.lua @@ -52,27 +52,22 @@ end function c19508728.atkcon(e,tp,eg,ep,ev,re,r,rp) local ec=e:GetHandler():GetEquipTarget() local tc=ec:GetBattleTarget() - return ec and tc and tc:IsFaceup() + return ec and tc and tc:IsFaceup() and tc:IsControler(1-tp) end function c19508728.atkop(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end local ec=e:GetHandler():GetEquipTarget() local tc=ec:GetBattleTarget() if ec and tc and ec:IsFaceup() and tc:IsFaceup() then - local atk=tc:GetAttack() - local def=tc:GetDefence() + local val=math.max(tc:GetAttack(),tc:GetDefense()) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK_FINAL) - if atk>=def then - e1:SetValue(atk+100) - else - e1:SetValue(def+100) - end + e1:SetValue(val+100) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL) ec:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) ec:RegisterEffect(e2) end end diff --git a/script/c1953925.lua b/script/c1953925.lua index ea792700..fdb997cc 100644 --- a/script/c1953925.lua +++ b/script/c1953925.lua @@ -69,7 +69,7 @@ function c1953925.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler()==Duel.GetAttacker() and e:GetHandler():IsRelateToBattle() end function c1953925.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c1953925.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and c1953925.filter(chkc) end diff --git a/script/c19580308.lua b/script/c19580308.lua index be6769d7..aff19567 100644 --- a/script/c19580308.lua +++ b/script/c19580308.lua @@ -31,7 +31,8 @@ function c19580308.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c19580308.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) @@ -39,5 +40,8 @@ function c19580308.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x47e0000) e1:SetValue(LOCATION_REMOVED) c:RegisterEffect(e1,true) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c19594506.lua b/script/c19594506.lua index 81126e60..f58f60c6 100644 --- a/script/c19594506.lua +++ b/script/c19594506.lua @@ -17,7 +17,7 @@ function c19594506.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD) end function c19594506.filter(c) - return c:IsCode(42015635) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(42015635) and c:IsAbleToHand() end function c19594506.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.IsExistingMatchingCard(c19594506.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end @@ -26,7 +26,7 @@ end function c19594506.operation(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local tc=Duel.SelectMatchingCard(tp,c19594506.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if tc then + if tc and not tc:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(tc,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,tc) end diff --git a/script/c19612721.lua b/script/c19612721.lua index 74e074c3..2e62f9c7 100644 --- a/script/c19612721.lua +++ b/script/c19612721.lua @@ -12,7 +12,7 @@ function c19612721.initial_effect(c) end function c19612721.destg(e,tp,eg,ep,ev,re,r,rp,chk) local t=Duel.GetAttackTarget() - if chk==0 then return Duel.GetAttacker()==e:GetHandler() and t~=nil and t:IsDefencePos() and t:IsDefenceAbove(2000) end + if chk==0 then return Duel.GetAttacker()==e:GetHandler() and t~=nil and t:IsDefensePos() and t:IsDefenseAbove(2000) end Duel.SetOperationInfo(0,CATEGORY_DESTROY,t,1,0,0) end function c19612721.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c19613556.lua b/script/c19613556.lua index a340dee3..59d34ca6 100644 --- a/script/c19613556.lua +++ b/script/c19613556.lua @@ -10,7 +10,7 @@ function c19613556.initial_effect(c) c:RegisterEffect(e1) end function c19613556.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c19613556.target(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() diff --git a/script/c19642889.lua b/script/c19642889.lua index f3755f79..2836a3cd 100644 --- a/script/c19642889.lua +++ b/script/c19642889.lua @@ -32,6 +32,8 @@ function c19642889.cfilter2(c) return c:GetType()==TYPE_TRAP and not c:IsPublic() end function c19642889.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c19642889.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c19642889.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -41,8 +43,10 @@ function c19642889.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(19642889,0),aux.Stringid(19642889,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(19642889,1),aux.Stringid(19642889,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(19642889,1),aux.Stringid(19642889,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(19642889,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -54,7 +58,7 @@ function c19642889.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c19642889.negop1(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c19667590.lua b/script/c19667590.lua index 229092b8..49392477 100644 --- a/script/c19667590.lua +++ b/script/c19667590.lua @@ -39,6 +39,6 @@ end function c19667590.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c19680539.lua b/script/c19680539.lua index 3459af8a..f7c8c419 100644 --- a/script/c19680539.lua +++ b/script/c19680539.lua @@ -5,7 +5,7 @@ function c19680539.initial_effect(c) e1:SetType(EFFECT_TYPE_FIELD) e1:SetCode(EFFECT_SPSUMMON_PROC) e1:SetProperty(EFFECT_FLAG_SPSUM_PARAM) - e1:SetTargetRange(POS_FACEUP_DEFENCE,0) + e1:SetTargetRange(POS_FACEUP_DEFENSE,0) e1:SetRange(LOCATION_HAND) e1:SetCondition(c19680539.spcon) c:RegisterEffect(e1) diff --git a/script/c1969506.lua b/script/c1969506.lua index e06b3b38..893c03da 100644 --- a/script/c1969506.lua +++ b/script/c1969506.lua @@ -31,13 +31,15 @@ function c1969506.filter(c,e,tp) end function c1969506.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c1969506.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c1969506.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c1969506.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) end function c1969506.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) diff --git a/script/c19733961.lua b/script/c19733961.lua index e36c45ac..69f4754a 100644 --- a/script/c19733961.lua +++ b/script/c19733961.lua @@ -10,7 +10,7 @@ function c19733961.initial_effect(c) e1:SetValue(c19733961.atkval) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(c19733961.defval) c:RegisterEffect(e2) end @@ -19,7 +19,7 @@ function c19733961.filter(c) end function c19733961.atkval(e,c) local g=Duel.GetMatchingGroup(c19733961.filter,c:GetControler(),LOCATION_MZONE,0,nil) - if g:IsExists(Card.IsDefencePos,1,nil) then return 0 end + if g:IsExists(Card.IsDefensePos,1,nil) then return 0 end return 500 end function c19733961.defval(e,c) diff --git a/script/c19747827.lua b/script/c19747827.lua index 7f83c4e0..686c6798 100644 --- a/script/c19747827.lua +++ b/script/c19747827.lua @@ -55,7 +55,7 @@ function c19747827.eqop(e,tp,eg,ep,ev,re,r,rp) e3:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e3) local e4=e3:Clone() - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e4) end function c19747827.eqlimit(e,c) diff --git a/script/c19748583.lua b/script/c19748583.lua index 49ab0947..a14d5118 100644 --- a/script/c19748583.lua +++ b/script/c19748583.lua @@ -87,6 +87,7 @@ function c19748583.destg(e,tp,eg,ep,ev,re,r,rp,chk) end function c19748583.desop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end local tc=c:GetEquipTarget():GetBattleTarget() if tc:IsRelateToBattle() and Duel.Destroy(tc,REASON_EFFECT)~=0 then Duel.BreakEffect() diff --git a/script/c19763315.lua b/script/c19763315.lua index 21a3b2b0..56eeaeaf 100644 --- a/script/c19763315.lua +++ b/script/c19763315.lua @@ -13,7 +13,7 @@ function c19763315.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetCode(EFFECT_BP_TWICE) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetTargetRange(0,1) - if Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_BATTLE then + if Duel.GetTurnPlayer()~=tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) then e1:SetLabel(Duel.GetTurnCount()) e1:SetCondition(c19763315.bpcon) e1:SetReset(RESET_PHASE+PHASE_BATTLE+RESET_OPPO_TURN,2) diff --git a/script/c19814508.lua b/script/c19814508.lua old mode 100755 new mode 100644 diff --git a/script/c19847532.lua b/script/c19847532.lua index 44ebeec1..cc021051 100644 --- a/script/c19847532.lua +++ b/script/c19847532.lua @@ -21,7 +21,7 @@ function c19847532.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE end function c19847532.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c19847532.cfilter(c) return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToRemoveAsCost() diff --git a/script/c19870120.lua b/script/c19870120.lua index d4432949..323d8bb9 100644 --- a/script/c19870120.lua +++ b/script/c19870120.lua @@ -22,7 +22,7 @@ function c19870120.initial_effect(c) e3:SetRange(LOCATION_SZONE) e3:SetTargetRange(LOCATION_MZONE,0) e3:SetTarget(c19870120.target) - e3:SetValue(aux.tgval) + e3:SetValue(1) c:RegisterEffect(e3) local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_FIELD) diff --git a/script/c19877898.lua b/script/c19877898.lua index 6d258a24..e523942a 100644 --- a/script/c19877898.lua +++ b/script/c19877898.lua @@ -10,7 +10,7 @@ function c19877898.initial_effect(c) e1:SetValue(-700) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end c19877898.lvupcount=1 diff --git a/script/c19980975.lua b/script/c19980975.lua index 0c11287e..4601b45e 100644 --- a/script/c19980975.lua +++ b/script/c19980975.lua @@ -11,7 +11,7 @@ function c19980975.initial_effect(c) c:RegisterEffect(e1) end function c19980975.filter(c) - return c:GetCounter(0x19)>=4 and c:IsDestructable() + return c:GetCounter(0x1019)>=4 end function c19980975.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c19980975.filter(chkc) end @@ -24,7 +24,7 @@ end function c19980975.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - local ct=math.floor(tc:GetCounter(0x19)/4) + local ct=math.floor(tc:GetCounter(0x1019)/4) if Duel.Destroy(tc,REASON_EFFECT)~=0 and ct~=0 then Duel.Draw(tp,ct,REASON_EFFECT) end diff --git a/script/c200000000.lua b/script/c200000000.lua deleted file mode 100644 index 160125db..00000000 --- a/script/c200000000.lua +++ /dev/null @@ -1,53 +0,0 @@ ---希望の創造者 -function c200000000.initial_effect(c) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c200000000.retcon) - e2:SetOperation(c200000000.spr) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_GRAVE) - e3:SetCode(EVENT_PREDRAW) - e3:SetCondition(c200000000.spcon) - e3:SetTarget(c200000000.sptg) - e3:SetOperation(c200000000.spop) - c:RegisterEffect(e3) -end -function c200000000.retcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsReason(REASON_DESTROY) and e:GetHandler():GetReasonPlayer()~=tp - and e:GetHandler():GetPreviousControler()==tp -end -function c200000000.spr(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if Duel.GetTurnPlayer()==tp then - c:RegisterFlagEffect(200000000,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,3) - else - c:RegisterFlagEffect(200000000,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,2) - end -end -function c200000000.spcon(e,tp,eg,ep,ev,re,r,rp) - local tp=e:GetHandler():GetControler() - return Duel.GetTurnPlayer()==tp and Duel.GetLP(tp)0 end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(110000000,5)) - local code=Duel.AnnounceCard(tp) - e:SetLabel(code) - e:GetHandler():ResetFlagEffect(200000000) -end -function c200000000.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetLabel()~=200000001 then return end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(110000000,6)) - local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_DECK,0,1,1,nil) - local tc=g:GetFirst() - if tc then - Duel.ShuffleDeck(tp) - Duel.MoveSequence(tc,0) - Duel.ConfirmDecktop(tp,1) - end - Duel.RegisterFlagEffect(tp,200000000,0,0,0) -end diff --git a/script/c200000002.lua b/script/c200000002.lua deleted file mode 100644 index 900a0e62..00000000 --- a/script/c200000002.lua +++ /dev/null @@ -1,52 +0,0 @@ --- -function c200000002.initial_effect(c) - local e3=Effect.CreateEffect(c) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c200000002.target) - e3:SetOperation(c200000002.operation) - c:RegisterEffect(e3) -end -function c200000002.spfilter(c) - return c:IsFaceup() and c:IsSetCard(0x1048) and c:IsSetCard(0x7f) and c:IsType(TYPE_XYZ) -end -function c200000002.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and c200000002.spfilter(chkc) and chkc:IsLocation(LOCATION_MZONE) end - if chk==0 then return Duel.IsExistingTarget(c200000002.spfilter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(110000000,5)) - local code=Duel.AnnounceCard(tp) - e:SetLabel(code) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c200000002.spfilter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c200000002.operation(e,tp,eg,ep,ev,re,r,rp) - if e:GetLabel()~=200000003 then return end - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DIRECT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_BATTLE_DAMAGE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCondition(c200000002.condition) - e2:SetOperation(c200000002.winop) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e2) - end -end -function c200000002.condition(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp and Duel.GetFlagEffect(tp,200000000)>0 - and Duel.GetFlagEffect(tp,200000004)>0 -end -function c200000002.winop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_CARD,tp,200000002) - local WIN_REASON_MIRACLE_CRETER=0x30 - Duel.Win(tp,WIN_REASON_MIRACLE_CRETER) -end diff --git a/script/c200000003.lua b/script/c200000003.lua deleted file mode 100644 index 722b8f2b..00000000 --- a/script/c200000003.lua +++ /dev/null @@ -1,27 +0,0 @@ ---伝説の闇の魔導師 -function c200000003.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterEqualFunction(Card.GetLevel,7),3) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --match kill - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_MATCH_KILL) - e2:SetCondition(c200000003.condition) - c:RegisterEffect(e2) -end -function c200000003.spfilter(c) - return c:IsRace(RACE_SPELLCASTER) -end -function c200000003.condition(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetHandler():GetMaterial() - return - g:IsExists(c200000003.spfilter,1,nil) -end diff --git a/script/c200000004.lua b/script/c200000004.lua deleted file mode 100644 index 9250e61e..00000000 --- a/script/c200000004.lua +++ /dev/null @@ -1,42 +0,0 @@ ---勝利の方程式 -function c200000004.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c200000004.condition) - e1:SetTarget(c200000004.target) - e1:SetOperation(c200000004.activate) - c:RegisterEffect(e1) -end -function c200000004.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 - and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 -end -function c200000004.spfilter(c,e,tp) - return c:IsSetCard(0x48) and not c:IsSetCard(0x1048) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c200000004.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c200000004.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp)end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(110000000,5)) - local code=Duel.AnnounceCard(tp) - e:SetLabel(code) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end - -function c200000004.activate(e,tp,eg,ep,ev,re,r,rp) - if e:GetLabel()~=200000005 then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c200000004.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc and Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP)~=0 then - c:CancelToGrave() - Duel.Overlay(tc,Group.FromCards(c)) - tc:CompleteProcedure() - end - Duel.RegisterFlagEffect(tp,200000004,0,0,0) -end diff --git a/script/c200000006.lua b/script/c200000006.lua deleted file mode 100644 index 9cc5eb9b..00000000 --- a/script/c200000006.lua +++ /dev/null @@ -1,27 +0,0 @@ ---E☆HERO Pit Boss -function c200000006.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterEqualFunction(Card.GetLevel,6),3) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --match kill - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_MATCH_KILL) - e2:SetCondition(c200000006.condition) - c:RegisterEffect(e2) -end -function c200000006.spfilter(c) - return c:IsRace(RACE_SPELLCASTER) -end -function c200000006.condition(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetHandler():GetMaterial() - return - g:IsExists(c200000006.spfilter,1,nil) -end diff --git a/script/c200000007.lua b/script/c200000007.lua deleted file mode 100644 index 14992282..00000000 --- a/script/c200000007.lua +++ /dev/null @@ -1,27 +0,0 @@ ---E☆HERO Pit Boss -function c200000007.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterEqualFunction(Card.GetLevel,8),3) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --match kill - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_MATCH_KILL) - e2:SetCondition(c200000007.condition) - c:RegisterEffect(e2) -end -function c200000007.spfilter(c) - return c:IsRace(RACE_MACHINE) -end -function c200000007.condition(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetHandler():GetMaterial() - return - g:IsExists(c200000007.spfilter,1,nil) -end diff --git a/script/c20000011.lua b/script/c20000011.lua deleted file mode 100644 index 0b56184f..00000000 --- a/script/c20000011.lua +++ /dev/null @@ -1,62 +0,0 @@ ---No.42 スターシップ・ギャラクシー・トマホーク(test) -function c20000011.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,7),2) - c:EnableReviveLimit() - --token - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) - e1:SetDescription(aux.Stringid(20000011,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c20000011.spcost) - e1:SetTarget(c20000011.sptg) - e1:SetOperation(c20000011.spop) - c:RegisterEffect(e1) -end -function c20000011.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(0,1) - e1:SetValue(1) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c20000011.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,20000012,0,0x4011,2000,0,6,RACE_MACHINE,ATTRIBUTE_WIND) end - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,ft,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,ft,0,0) -end -function c20000011.spop(e,tp,eg,ep,ev,re,r,rp) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,20000012,0,0x4011,2000,0,6,RACE_MACHINE,ATTRIBUTE_WIND) then return end - local g=Group.CreateGroup() - for i=1,ft do - local token=Duel.CreateToken(tp,20000012) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - g:AddCard(token) - end - Duel.SpecialSummonComplete() - g:KeepAlive() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetLabelObject(g) - e1:SetOperation(c20000011.desop) - Duel.RegisterEffect(e1,tp) -end -function c20000011.desop(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject() - local tg=g:Filter(Card.IsLocation,nil,LOCATION_MZONE) - g:DeleteGroup() - Duel.Destroy(tg,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c20003527.lua b/script/c20003527.lua index 7a58f6ee..5a76c121 100644 --- a/script/c20003527.lua +++ b/script/c20003527.lua @@ -50,7 +50,7 @@ function c20003527.initial_effect(c) c:RegisterEffect(e6) end function c20003527.sdcon(e) - return e:GetHandler():IsPosition(POS_FACEUP_DEFENCE) + return e:GetHandler():IsPosition(POS_FACEUP_DEFENSE) end function c20003527.cfilter(c,tp) return c:IsAttribute(ATTRIBUTE_WATER) and (c:IsControler(tp) or c:IsFaceup()) @@ -76,9 +76,9 @@ function c20003527.addcon(e,tp,eg,ep,ev,re,r,rp) end function c20003527.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x19,e:GetLabelObject():GetLabel()) + e:GetHandler():AddCounter(COUNTER_NEED_ENABLE+0x1019,e:GetLabelObject():GetLabel()) end end function c20003527.atkval(e,c) - return Duel.GetCounter(0,1,1,0x19)*500 + return Duel.GetCounter(0,1,1,0x1019)*500 end diff --git a/script/c20032555.lua b/script/c20032555.lua index 5f2ff40c..db471f03 100644 --- a/script/c20032555.lua +++ b/script/c20032555.lua @@ -2,7 +2,6 @@ function c20032555.initial_effect(c) --effects local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) e1:SetDescription(aux.Stringid(20032555,0)) e1:SetType(EFFECT_TYPE_IGNITION) e1:SetRange(LOCATION_MZONE) @@ -25,7 +24,10 @@ function c20032555.efftg(e,tp,eg,ep,ev,re,r,rp,chk) end e:SetLabel(opt) if opt==0 then + e:SetCategory(CATEGORY_DAMAGE) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) + else + e:SetCategory(CATEGORY_LVCHANGE) end end function c20032555.effop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c20036055.lua b/script/c20036055.lua old mode 100755 new mode 100644 index 08bbb7c5..656164a0 --- a/script/c20036055.lua +++ b/script/c20036055.lua @@ -20,6 +20,7 @@ function c20036055.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c20036055.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp,Duel.GetTurnCount()) end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c20036055.filter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp,Duel.GetTurnCount()) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) @@ -27,11 +28,12 @@ end function c20036055.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local sg=g:Filter(Card.IsRelateToEffect,nil,e) if sg:GetCount()>ft then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) sg=sg:Select(tp,ft,ft,nil) end - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end diff --git a/script/c20050865.lua b/script/c20050865.lua new file mode 100644 index 00000000..89e872df --- /dev/null +++ b/script/c20050865.lua @@ -0,0 +1,71 @@ +--水晶機巧－シトリィ +function c20050865.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(20050865,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMING_MAIN_END+TIMING_BATTLE_START+TIMING_BATTLE_END) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,20050865) + e1:SetCondition(c20050865.sccon) + e1:SetTarget(c20050865.sctg) + e1:SetOperation(c20050865.scop) + c:RegisterEffect(e1) +end +function c20050865.sccon(e,tp,eg,ep,ev,re,r,rp) + local ph=Duel.GetCurrentPhase() + return not e:GetHandler():IsStatus(STATUS_CHAINING) and Duel.GetTurnPlayer()~=tp + and (ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2) +end +function c20050865.scfilter1(c,e,tp,mc) + local mg=Group.FromCards(c,mc) + return not c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.IsExistingMatchingCard(c20050865.scfilter2,tp,LOCATION_EXTRA,0,1,nil,mg) +end +function c20050865.scfilter2(c,mg) + return c:IsRace(RACE_MACHINE) and c:IsSynchroSummonable(nil,mg) +end +function c20050865.sctg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c20050865.scfilter1(chkc,e,tp,e:GetHandler()) end + if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c20050865.scfilter1,tp,LOCATION_GRAVE,0,1,nil,e,tp,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c20050865.scfilter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c20050865.scop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if not tc:IsRelateToEffect(e) or not Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then return end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_DISABLE_EFFECT) + tc:RegisterEffect(e2) + Duel.SpecialSummonComplete() + if not c:IsRelateToEffect(e) then return end + local mg=Group.FromCards(c,tc) + local g=Duel.GetMatchingGroup(c20050865.scfilter2,tp,LOCATION_EXTRA,0,nil,mg) + if g:GetCount()>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg=g:Select(tp,1,1,nil) + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) + e1:SetValue(LOCATION_REMOVED) + e1:SetReset(RESET_EVENT+0x47e0000) + c:RegisterEffect(e1,true) + local e2=e1:Clone() + tc:RegisterEffect(e2,true) + Duel.SynchroSummon(tp,sg:GetFirst(),nil,mg) + end +end diff --git a/script/c20056760.lua b/script/c20056760.lua old mode 100755 new mode 100644 index a3eacc8f..dcb06292 --- a/script/c20056760.lua +++ b/script/c20056760.lua @@ -22,7 +22,7 @@ function c20056760.initial_effect(c) c:RegisterEffect(e2) end function c20056760.filter(c) - return c:IsFaceup() and c:IsSetCard(0xd1) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0xd1) end function c20056760.sptg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c20056760.filter(chkc) end @@ -52,7 +52,12 @@ end function c20056760.spop1(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if Duel.Destroy(g,REASON_EFFECT)~=0 then - Duel.SpecialSummon(e:GetHandler(),1,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) + end end end function c20056760.spcon2(e,tp,eg,ep,ev,re,r,rp) @@ -72,6 +77,6 @@ end function c20056760.spop2(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c20057949.lua b/script/c20057949.lua old mode 100755 new mode 100644 index 1d05cf3d..ecc68732 --- a/script/c20057949.lua +++ b/script/c20057949.lua @@ -86,6 +86,7 @@ function c20057949.spop2(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end if ft>2 then ft=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c20057949.filter,tp,LOCATION_HAND,0,1,ft,nil,e,tp) Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) diff --git a/script/c20065322.lua b/script/c20065322.lua index ce38de39..5d376de0 100644 --- a/script/c20065322.lua +++ b/script/c20065322.lua @@ -10,9 +10,7 @@ function c20065322.initial_effect(c) c:RegisterEffect(e1) end function c20065322.filter(c,ft,e,tp) - local code=c:GetCode() - return (code==40640057 or code==57116033) - and (c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false))) + return c:IsCode(40640057,57116033) and (c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false))) end function c20065322.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then diff --git a/script/c20073910.lua b/script/c20073910.lua new file mode 100644 index 00000000..f319365b --- /dev/null +++ b/script/c20073910.lua @@ -0,0 +1,66 @@ +--天照大神 +function c20073910.initial_effect(c) + --spirit + aux.EnableSpiritReturn(c,EVENT_FLIP) + --summon limit + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_SUMMON) + c:RegisterEffect(e1) + --spsummon limit + local e2=Effect.CreateEffect(c) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_SPSUMMON_CONDITION) + e2:SetValue(aux.FALSE) + c:RegisterEffect(e2) + --be target + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DRAW) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_CHAINING) + e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c20073910.condition) + e3:SetCost(c20073910.cost) + e3:SetTarget(c20073910.target) + e3:SetOperation(c20073910.operation) + c:RegisterEffect(e3) + --flip + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_TOHAND) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e4:SetCode(EVENT_FLIP) + e4:SetTarget(c20073910.thtg) + e4:SetOperation(c20073910.thop) + c:RegisterEffect(e4) +end +function c20073910.condition(e,tp,eg,ep,ev,re,r,rp) + if rp==tp or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end + local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) + return tg:IsContains(e:GetHandler()) and e:GetHandler():IsFacedown() +end +function c20073910.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENSE) +end +function c20073910.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c20073910.operation(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end +function c20073910.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0) +end +function c20073910.thop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + Duel.Remove(g,POS_FACEUP,REASON_EFFECT) +end diff --git a/script/c2009101.lua b/script/c2009101.lua index 965f53c1..6f04e32c 100644 --- a/script/c2009101.lua +++ b/script/c2009101.lua @@ -45,9 +45,9 @@ function c2009101.operation(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(tc:GetDefence()/2) + e2:SetValue(tc:GetDefense()/2) tc:RegisterEffect(e2) end end diff --git a/script/c20101223.lua b/script/c20101223.lua index 4621de80..399e0ec2 100644 --- a/script/c20101223.lua +++ b/script/c20101223.lua @@ -10,7 +10,7 @@ function c20101223.initial_effect(c) c:RegisterEffect(e1) end function c20101223.filter(c) - return c:IsRace(RACE_ROCK) and c:IsFaceup() and c:IsDestructable() + return c:IsRace(RACE_ROCK) and c:IsFaceup() end function c20101223.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c20101223.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c20127343.lua b/script/c20127343.lua index ed80b3a5..0c84a7e1 100644 --- a/script/c20127343.lua +++ b/script/c20127343.lua @@ -15,9 +15,9 @@ function c20127343.costg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,0) - local att=Duel.AnnounceAttribute(tp,1,0x7f) + local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.Hint(HINT_SELECTMSG,tp,563) + local att=Duel.AnnounceAttribute(tp,1,0xff-g:GetFirst():GetAttribute()) e:SetLabel(att) end function c20127343.cosop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c20137754.lua b/script/c20137754.lua new file mode 100644 index 00000000..cea4ad49 --- /dev/null +++ b/script/c20137754.lua @@ -0,0 +1,81 @@ +--流星方界器デューザ +function c20137754.initial_effect(c) + --send to grave + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(20137754,0)) + e1:SetCategory(CATEGORY_TOGRAVE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c20137754.tgtg) + e1:SetOperation(c20137754.tgop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --atk + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(20137754,1)) + e3:SetCategory(CATEGORY_ATKCHANGE) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetRange(LOCATION_MZONE) + e3:SetHintTiming(TIMING_DAMAGE_STEP) + e3:SetCountLimit(1) + e3:SetCondition(c20137754.atkcon) + e3:SetTarget(c20137754.atktg) + e3:SetOperation(c20137754.atkop) + c:RegisterEffect(e3) + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e4:SetRange(LOCATION_MZONE) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetCondition(c20137754.regcon) + e4:SetOperation(c20137754.regop) + c:RegisterEffect(e4) +end +function c20137754.tgfilter(c) + return c:IsSetCard(0xe3) and c:IsAbleToGrave() +end +function c20137754.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c20137754.tgfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) +end +function c20137754.tgop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c20137754.tgfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoGrave(g,REASON_EFFECT) + end +end +function c20137754.atkcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(20137754)>0 + and (Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated()) +end +function c20137754.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER)>0 end +end +function c20137754.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local g=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER) + local val=g:GetClassCount(Card.GetCode)*200 + if c:IsFaceup() and c:IsRelateToEffect(e) and val>0 then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(val) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + end +end +function c20137754.rfilter(c,tp) + return c:IsControler(tp) and c:IsType(TYPE_MONSTER) and not c:IsReason(REASON_RETURN) +end +function c20137754.regcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c20137754.rfilter,1,nil,tp) +end +function c20137754.regop(e,tp,eg,ep,ev,re,r,rp) + e:GetHandler():RegisterFlagEffect(20137754,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) +end diff --git a/script/c20138923.lua b/script/c20138923.lua index d781978e..4391afb4 100644 --- a/script/c20138923.lua +++ b/script/c20138923.lua @@ -15,10 +15,10 @@ function c20138923.condition(e,tp,eg,ep,ev,re,r,rp) return ep~=tp and re:IsActiveType(TYPE_QUICKPLAY) end function c20138923.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() and chkc~=e:GetHandler() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c20138923.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c20173070.lua b/script/c20173070.lua deleted file mode 100644 index 4718fd3d..00000000 --- a/script/c20173070.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Final Attack Orders -function c20173070.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c20173070.target) - e1:SetOperation(c20173070.operation) - c:RegisterEffect(e1) - --Pos Change - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SET_POSITION) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetValue(POS_FACEUP_ATTACK) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_CANNOT_CHANGE_POSITION) - c:RegisterEffect(e3) - end -function c20173070.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>2 and Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>2 end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(20173070,0)) - local g1=Duel.SelectTarget(tp,nil,tp,LOCATION_DECK,0,3,3,nil) - if g1:GetCount()<3 then return end - Duel.Hint(HINT_SELECTMSG,1-tp,aux.Stringid(20173070,0)) - local g2=Duel.SelectTarget(1-tp,nil,1-tp,LOCATION_DECK,0,3,3,nil) - if g2:GetCount()<3 then return end - g1:Merge(g2) - end -function c20173070.operation(e,tp,eg,ep,ev,re,r,rp) -local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) -local g1=g:Filter(Card.IsControler,nil,tp) -local g2=g:Filter(Card.IsControler,nil,1-tp) -local dcount=Duel.GetFieldGroupCount(tp,LOCATION_DECK,LOCATION_DECK) -if g1:GetCount()>2 and g2:GetCount()>2 then -Duel.DisableShuffleCheck() -Duel.SendtoHand(g,nil,REASON_EFFECT) -Duel.DiscardDeck(tp,dcount,REASON_EFFECT) -Duel.DiscardDeck(1-tp,dcount,REASON_EFFECT) -Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) -Duel.SendtoDeck(g1,nil,1,REASON_EFFECT) -Duel.SortDecktop(tp,tp,3) -Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TODECK) -Duel.SendtoDeck(g2,nil,1,REASON_EFFECT) -Duel.SortDecktop(1-tp,1-tp,3) -end -end \ No newline at end of file diff --git a/script/c20193924.lua b/script/c20193924.lua index 73074ae9..78b27590 100644 --- a/script/c20193924.lua +++ b/script/c20193924.lua @@ -20,7 +20,7 @@ function c20193924.initial_effect(c) c:RegisterEffect(e3) end function c20193924.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c20193924.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c20193924.filter(chkc) end diff --git a/script/c20281581.lua b/script/c20281581.lua new file mode 100644 index 00000000..11725bc0 --- /dev/null +++ b/script/c20281581.lua @@ -0,0 +1,79 @@ +--EMモモンカーペット +function c20281581.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --selfdes + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetCode(EFFECT_SELF_DESTROY) + e1:SetRange(LOCATION_PZONE) + e1:SetCondition(c20281581.descon) + c:RegisterEffect(e1) + --damage reduce + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(20281581,0)) + e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e2:SetRange(LOCATION_PZONE) + e2:SetCode(EVENT_PRE_BATTLE_DAMAGE) + e2:SetCondition(c20281581.rdcon) + e2:SetOperation(c20281581.rdop) + c:RegisterEffect(e2) + --flip + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(20281581,1)) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetTarget(c20281581.target) + e3:SetOperation(c20281581.operation) + c:RegisterEffect(e3) + --sp set + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(20281581,2)) + e4:SetCategory(CATEGORY_POSITION) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e4:SetCode(EVENT_SPSUMMON_SUCCESS) + e4:SetTarget(c20281581.postg) + e4:SetOperation(c20281581.posop) + c:RegisterEffect(e4) +end +function c20281581.descon(e) + local seq=e:GetHandler():GetSequence() + local tc=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_SZONE,13-seq) + return not tc +end +function c20281581.rdcon(e,tp,eg,ep,ev,re,r,rp) + return ep==tp +end +function c20281581.rdop(e,tp,eg,ep,ev,re,r,rp) + Duel.ChangeBattleDamage(tp,ev/2) +end +function c20281581.filter(c) + return c:IsFacedown() +end +function c20281581.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and c20281581.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c20281581.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c20281581.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c20281581.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c20281581.postg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:IsCanTurnSet() end + Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0) +end +function c20281581.posop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and c:IsFaceup() then + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) + end +end diff --git a/script/c20349913.lua b/script/c20349913.lua index bf3a6988..050431c4 100644 --- a/script/c20349913.lua +++ b/script/c20349913.lua @@ -4,7 +4,6 @@ function c20349913.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetCategory(CATEGORY_DRAW) e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetCode(EVENT_FREE_CHAIN) e1:SetCountLimit(1,20349913+EFFECT_COUNT_CODE_OATH) e1:SetCondition(c20349913.condition) diff --git a/script/c20351153.lua b/script/c20351153.lua index 2c7c61a8..67ae92a1 100644 --- a/script/c20351153.lua +++ b/script/c20351153.lua @@ -16,7 +16,7 @@ function c20351153.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)<=1 and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 end function c20351153.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c20351153.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and c20351153.filter(chkc) end diff --git a/script/c20358953.lua b/script/c20358953.lua index 582c6027..03da2894 100644 --- a/script/c20358953.lua +++ b/script/c20358953.lua @@ -28,6 +28,7 @@ end function c20358953.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end if ft>2 then ft=2 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c20358953.filter,tp,LOCATION_DECK,0,1,ft,nil,e,tp) diff --git a/script/c20366274.lua b/script/c20366274.lua old mode 100755 new mode 100644 index 81bb22fc..9082d9cd --- a/script/c20366274.lua +++ b/script/c20366274.lua @@ -1,207 +1,206 @@ ---エルシャドール・ネフィリム -function c20366274.initial_effect(c) - c:EnableReviveLimit() - --fusion material - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(c20366274.fuscon) - e1:SetOperation(c20366274.fusop) - c:RegisterEffect(e1) - --cannot spsummon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCode(EFFECT_SPSUMMON_CONDITION) - e2:SetRange(LOCATION_EXTRA) - e2:SetValue(c20366274.splimit) - c:RegisterEffect(e2) - --tograve - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(20366274,0)) - e3:SetCategory(CATEGORY_TOGRAVE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetTarget(c20366274.tgtg) - e3:SetOperation(c20366274.tgop) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(20366274,1)) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(EVENT_BATTLE_START) - e4:SetCondition(c20366274.descon) - e4:SetTarget(c20366274.destg) - e4:SetOperation(c20366274.desop) - c:RegisterEffect(e4) - --tohand - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(20366274,2)) - e5:SetCategory(CATEGORY_TOHAND) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e5:SetCode(EVENT_TO_GRAVE) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e5:SetTarget(c20366274.thtg) - e5:SetOperation(c20366274.thop) - c:RegisterEffect(e5) -end -function c20366274.ffilter1(c) - return c:IsSetCard(0x9d) -end -function c20366274.ffilter2(c) - return c:IsAttribute(ATTRIBUTE_LIGHT) or c:IsHasEffect(4904633) -end -function c20366274.exfilter(c,g) - return c:IsFaceup() and c:IsCanBeFusionMaterial() and not g:IsContains(c) -end -function c20366274.fuscon(e,g,gc,chkf) - if g==nil then return true end - local tp=e:GetHandlerPlayer() - local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local exg=Group.CreateGroup() - if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then - local sg=Duel.GetMatchingGroup(c20366274.exfilter,tp,0,LOCATION_MZONE,nil,g) - exg:Merge(sg) - end - if gc then return (c20366274.ffilter1(gc) and (g:IsExists(c20366274.ffilter2,1,gc) or exg:IsExists(c20366274.ffilter2,1,gc))) - or (c20366274.ffilter2(gc) and (g:IsExists(c20366274.ffilter1,1,gc) or exg:IsExists(c20366274.ffilter1,1,gc))) end - local g1=Group.CreateGroup() - local g2=Group.CreateGroup() - local g3=Group.CreateGroup() - local g4=Group.CreateGroup() - local tc=g:GetFirst() - while tc do - if c20366274.ffilter1(tc) then - g1:AddCard(tc) - if aux.FConditionCheckF(tc,chkf) then g3:AddCard(tc) end - end - if c20366274.ffilter2(tc) then - g2:AddCard(tc) - if aux.FConditionCheckF(tc,chkf) then g4:AddCard(tc) end - end - tc=g:GetNext() - end - local exg1=exg:Filter(c20366274.ffilter1,nil) - local exg2=exg:Filter(c20366274.ffilter2,nil) - if chkf~=PLAYER_NONE then - return (g3:IsExists(aux.FConditionFilterF2,1,nil,g2) - or g3:IsExists(aux.FConditionFilterF2,1,nil,exg2) - or g4:IsExists(aux.FConditionFilterF2,1,nil,g1) - or g4:IsExists(aux.FConditionFilterF2,1,nil,exg1)) - else - return (g1:IsExists(aux.FConditionFilterF2,1,nil,g2) - or g1:IsExists(aux.FConditionFilterF2,1,nil,exg2) - or g2:IsExists(aux.FConditionFilterF2,1,nil,exg1)) - end -end -function c20366274.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local exg=Group.CreateGroup() - if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then - local sg=Duel.GetMatchingGroup(c20366274.exfilter,tp,0,LOCATION_MZONE,nil,eg) - exg:Merge(sg) - end - if gc then - local sg1=Group.CreateGroup() - local sg2=Group.CreateGroup() - if c20366274.ffilter1(gc) then - sg1:Merge(eg:Filter(c20366274.ffilter2,gc)) - sg2:Merge(exg:Filter(c20366274.ffilter2,gc)) - end - if c20366274.ffilter2(gc) then - sg1:Merge(eg:Filter(c20366274.ffilter1,gc)) - sg2:Merge(exg:Filter(c20366274.ffilter1,gc)) - end - local g1=nil - if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then - fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1=sg2:Select(tp,1,1,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1=sg1:Select(tp,1,1,nil) - end - Duel.SetFusionMaterial(g1) - return - end - local sg=eg:Filter(aux.FConditionFilterF2c,nil,c20366274.ffilter1,c20366274.ffilter2) - local g1=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if chkf~=PLAYER_NONE then - g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) - else g1=sg:Select(tp,1,1,nil) end - local tc1=g1:GetFirst() - local sg1=Group.CreateGroup() - local sg2=Group.CreateGroup() - if c20366274.ffilter1(tc1) then - sg1:Merge(sg:Filter(c20366274.ffilter2,tc1)) - sg2:Merge(exg:Filter(c20366274.ffilter2,tc1)) - end - if c20366274.ffilter2(tc1) then - sg1:Merge(sg:Filter(c20366274.ffilter1,tc1)) - sg2:Merge(exg:Filter(c20366274.ffilter1,tc1)) - end - local g2=nil - if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then - fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg2:Select(tp,1,1,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg1:Select(tp,1,1,nil) - end - g1:Merge(g2) - Duel.SetFusionMaterial(g1) -end -function c20366274.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c20366274.tgfilter(c) - return c:IsSetCard(0x9d) and c:IsAbleToGrave() -end -function c20366274.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c20366274.tgfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c20366274.tgop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c20366274.tgfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - end -end -function c20366274.descon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return bc and bit.band(bc:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c20366274.destg(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) -end -function c20366274.desop(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetHandler():GetBattleTarget() - if bc:IsRelateToBattle() then - Duel.Destroy(bc,REASON_EFFECT) - end -end -function c20366274.thfilter(c) - return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c20366274.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c20366274.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c20366274.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c20366274.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c20366274.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--エルシャドール・ネフィリム +function c20366274.initial_effect(c) + c:EnableReviveLimit() + --fusion material + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(c20366274.fuscon) + e1:SetOperation(c20366274.fusop) + c:RegisterEffect(e1) + --cannot spsummon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetCode(EFFECT_SPSUMMON_CONDITION) + e2:SetRange(LOCATION_EXTRA) + e2:SetValue(c20366274.splimit) + c:RegisterEffect(e2) + --tograve + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(20366274,0)) + e3:SetCategory(CATEGORY_TOGRAVE) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e3:SetTarget(c20366274.tgtg) + e3:SetOperation(c20366274.tgop) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(20366274,1)) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e4:SetCode(EVENT_BATTLE_START) + e4:SetCondition(c20366274.descon) + e4:SetTarget(c20366274.destg) + e4:SetOperation(c20366274.desop) + c:RegisterEffect(e4) + --tohand + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(20366274,2)) + e5:SetCategory(CATEGORY_TOHAND) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e5:SetCode(EVENT_TO_GRAVE) + e5:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e5:SetTarget(c20366274.thtg) + e5:SetOperation(c20366274.thop) + c:RegisterEffect(e5) +end +function c20366274.ffilter1(c) + return c:IsFusionSetCard(0x9d) +end +function c20366274.ffilter2(c) + return c:IsAttribute(ATTRIBUTE_LIGHT) or c:IsHasEffect(4904633) +end +function c20366274.exfilter(c,g) + return c:IsFaceup() and c:IsCanBeFusionMaterial() and not g:IsContains(c) +end +function c20366274.fuscon(e,g,gc,chkf) + if g==nil then return true end + local tp=e:GetHandlerPlayer() + local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + local exg=Group.CreateGroup() + if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then + local sg=Duel.GetMatchingGroup(c20366274.exfilter,tp,0,LOCATION_MZONE,nil,g) + exg:Merge(sg) + end + if gc then return (c20366274.ffilter1(gc) and (g:IsExists(c20366274.ffilter2,1,gc) or exg:IsExists(c20366274.ffilter2,1,gc))) + or (c20366274.ffilter2(gc) and (g:IsExists(c20366274.ffilter1,1,gc) or exg:IsExists(c20366274.ffilter1,1,gc))) end + local g1=Group.CreateGroup() + local g2=Group.CreateGroup() + local g3=Group.CreateGroup() + local g4=Group.CreateGroup() + local tc=g:GetFirst() + while tc do + if c20366274.ffilter1(tc) then + g1:AddCard(tc) + if aux.FConditionCheckF(tc,chkf) then g3:AddCard(tc) end + end + if c20366274.ffilter2(tc) then + g2:AddCard(tc) + if aux.FConditionCheckF(tc,chkf) then g4:AddCard(tc) end + end + tc=g:GetNext() + end + local exg1=exg:Filter(c20366274.ffilter1,nil) + local exg2=exg:Filter(c20366274.ffilter2,nil) + if chkf~=PLAYER_NONE then + return (g3:IsExists(aux.FConditionFilterF2,1,nil,g2) + or g3:IsExists(aux.FConditionFilterF2,1,nil,exg2) + or g4:IsExists(aux.FConditionFilterF2,1,nil,g1) + or g4:IsExists(aux.FConditionFilterF2,1,nil,exg1)) + else + return (g1:IsExists(aux.FConditionFilterF2,1,nil,g2) + or g1:IsExists(aux.FConditionFilterF2,1,nil,exg2) + or g2:IsExists(aux.FConditionFilterF2,1,nil,exg1)) + end +end +function c20366274.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) + local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + local exg=Group.CreateGroup() + if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then + local sg=Duel.GetMatchingGroup(c20366274.exfilter,tp,0,LOCATION_MZONE,nil,eg) + exg:Merge(sg) + end + if gc then + local sg1=Group.CreateGroup() + local sg2=Group.CreateGroup() + if c20366274.ffilter1(gc) then + sg1:Merge(eg:Filter(c20366274.ffilter2,gc)) + sg2:Merge(exg:Filter(c20366274.ffilter2,gc)) + end + if c20366274.ffilter2(gc) then + sg1:Merge(eg:Filter(c20366274.ffilter1,gc)) + sg2:Merge(exg:Filter(c20366274.ffilter1,gc)) + end + local g1=nil + if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then + fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g1=sg2:Select(tp,1,1,nil) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g1=sg1:Select(tp,1,1,nil) + end + Duel.SetFusionMaterial(g1) + return + end + local sg=eg:Filter(aux.FConditionFilterF2c,nil,c20366274.ffilter1,c20366274.ffilter2) + local g1=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if chkf~=PLAYER_NONE then + g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) + else g1=sg:Select(tp,1,1,nil) end + local tc1=g1:GetFirst() + local sg1=Group.CreateGroup() + local sg2=Group.CreateGroup() + if c20366274.ffilter1(tc1) then + sg1:Merge(sg:Filter(c20366274.ffilter2,tc1)) + sg2:Merge(exg:Filter(c20366274.ffilter2,tc1)) + end + if c20366274.ffilter2(tc1) then + sg1:Merge(sg:Filter(c20366274.ffilter1,tc1)) + sg2:Merge(exg:Filter(c20366274.ffilter1,tc1)) + end + local g2=nil + if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then + fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g2=sg2:Select(tp,1,1,nil) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g2=sg1:Select(tp,1,1,nil) + end + g1:Merge(g2) + Duel.SetFusionMaterial(g1) +end +function c20366274.splimit(e,se,sp,st) + return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c20366274.tgfilter(c) + return c:IsSetCard(0x9d) and c:IsAbleToGrave() +end +function c20366274.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c20366274.tgfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) +end +function c20366274.tgop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c20366274.tgfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoGrave(g,REASON_EFFECT) + end +end +function c20366274.descon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local bc=c:GetBattleTarget() + return bc and bit.band(bc:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c20366274.destg(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) +end +function c20366274.desop(e,tp,eg,ep,ev,re,r,rp) + local bc=e:GetHandler():GetBattleTarget() + if bc:IsRelateToBattle() then + Duel.Destroy(bc,REASON_EFFECT) + end +end +function c20366274.thfilter(c) + return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() +end +function c20366274.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c20366274.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c20366274.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c20366274.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c20366274.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c20374351.lua b/script/c20374351.lua index 3630dc32..293b186b 100644 --- a/script/c20374351.lua +++ b/script/c20374351.lua @@ -17,7 +17,7 @@ function c20374351.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(20374351,1)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetRange(LOCATION_MZONE) diff --git a/script/c20403123.lua b/script/c20403123.lua new file mode 100644 index 00000000..5cd73abb --- /dev/null +++ b/script/c20403123.lua @@ -0,0 +1,56 @@ +--EMスライハンド・マジシャン +function c20403123.initial_effect(c) + --spsummon from hand + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_HAND) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetCondition(c20403123.hspcon) + e1:SetOperation(c20403123.hspop) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(20403123,0)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCost(c20403123.descost) + e2:SetTarget(c20403123.destg) + e2:SetOperation(c20403123.desop) + c:RegisterEffect(e2) +end +function c20403123.hspfilter(c) + return c:IsSetCard(0x9f) and not c:IsType(TYPE_PENDULUM) +end +function c20403123.hspcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.CheckReleaseGroup(c:GetControler(),c20403123.hspfilter,1,nil) +end +function c20403123.hspop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.SelectReleaseGroup(c:GetControler(),c20403123.hspfilter,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c20403123.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) +end +function c20403123.filter(c) + return c:IsFaceup() +end +function c20403123.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and c20403123.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c20403123.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c20403123.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c20403123.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c20409757.lua b/script/c20409757.lua index 8823470c..aac7c226 100644 --- a/script/c20409757.lua +++ b/script/c20409757.lua @@ -7,6 +7,7 @@ function c20409757.initial_effect(c) e1:SetDescription(1160) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_HAND) e1:SetCondition(c20409757.condition) c:RegisterEffect(e1) --actlimit diff --git a/script/c20436034.lua b/script/c20436034.lua index 925a8710..00b66bca 100644 --- a/script/c20436034.lua +++ b/script/c20436034.lua @@ -16,20 +16,27 @@ function c20436034.initial_effect(c) e2:SetValue(-500) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) -- local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_AUTO_BE_ATTACKED) + e4:SetCode(EFFECT_ONLY_BE_ATTACKED) c:RegisterEffect(e4) - --equip limit local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_EQUIP_LIMIT) - e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e5:SetValue(c20436034.eqlimit) + e5:SetType(EFFECT_TYPE_FIELD) + e5:SetCode(EFFECT_ONLY_ATTACK_MONSTER) + e5:SetRange(LOCATION_SZONE) + e5:SetTargetRange(0,LOCATION_MZONE) + e5:SetCondition(c20436034.atkcon) c:RegisterEffect(e5) + --equip limit + local e6=Effect.CreateEffect(c) + e6:SetType(EFFECT_TYPE_SINGLE) + e6:SetCode(EFFECT_EQUIP_LIMIT) + e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e6:SetValue(c20436034.eqlimit) + c:RegisterEffect(e6) end function c20436034.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end @@ -47,3 +54,6 @@ end function c20436034.eqlimit(e,c) return e:GetHandlerPlayer()==c:GetControler() end +function c20436034.atkcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetEquipTarget()~=nil +end diff --git a/script/c20447641.lua b/script/c20447641.lua new file mode 100644 index 00000000..457003df --- /dev/null +++ b/script/c20447641.lua @@ -0,0 +1,80 @@ +--機殻の凍結 +function c20447641.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCost(c20447641.cost) + e1:SetTarget(c20447641.target) + e1:SetOperation(c20447641.activate) + c:RegisterEffect(e1) + --triple tribute + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(20447641,0)) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_LIMIT_SUMMON_PROC) + e3:SetRange(LOCATION_MZONE) + e3:SetTargetRange(LOCATION_HAND,0) + e3:SetCondition(c20447641.ttcon) + e3:SetTarget(c20447641.tttg) + e3:SetOperation(c20447641.ttop) + e3:SetValue(SUMMON_TYPE_ADVANCE) + c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EFFECT_LIMIT_SET_PROC) + c:RegisterEffect(e4) +end +function c20447641.cost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(1) + return true +end +function c20447641.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + if e:GetLabel()==0 then return false end + e:SetLabel(0) + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsPlayerCanSpecialSummonMonster(tp,20447641,0xaa,0x21,4,1800,1000,RACE_MACHINE,ATTRIBUTE_EARTH) end + e:SetLabel(0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c20447641.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,20447641,0xaa,0x21,4,1800,1000,RACE_MACHINE,ATTRIBUTE_EARTH) then + c:AddMonsterAttribute(TYPE_EFFECT) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() + c:RegisterFlagEffect(20447641,RESET_EVENT+0x1fe0000,0,1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e2:SetTargetRange(LOCATION_ONFIELD,0) + e2:SetTarget(c20447641.indtg) + e2:SetValue(1) + e2:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e2,tp) + Duel.SpecialSummonComplete() + end +end +function c20447641.indtg(e,c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSetCard(0xaa) +end +function c20447641.ttfilter(c) + return c:GetOriginalCode()==20447641 and c:IsReleasable() and c:GetFlagEffect(20447641)~=0 +end +function c20447641.ttcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c20447641.ttfilter,tp,LOCATION_MZONE,0,1,nil) +end +function c20447641.tttg(e,c) + return c:IsSetCard(0x10aa) +end +function c20447641.ttop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local g=Duel.SelectMatchingCard(tp,c20447641.ttfilter,tp,LOCATION_MZONE,0,1,1,nil) + c:SetMaterial(g) + Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) +end diff --git a/script/c20450925.lua b/script/c20450925.lua old mode 100755 new mode 100644 diff --git a/script/c20457551.lua b/script/c20457551.lua index ab6ba016..8090440f 100644 --- a/script/c20457551.lua +++ b/script/c20457551.lua @@ -18,10 +18,13 @@ function c20457551.initial_effect(c) c:RegisterEffect(e2) --atk down local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_DAMAGE_CALCULATING) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_UPDATE_ATTACK) e3:SetRange(LOCATION_SZONE) - e3:SetOperation(c20457551.atkdown) + e3:SetTargetRange(0,LOCATION_MZONE) + e3:SetCondition(c20457551.atkcon) + e3:SetTarget(c20457551.atktg) + e3:SetValue(c20457551.atkval) c:RegisterEffect(e3) --destroy sub local e4=Effect.CreateEffect(c) @@ -51,18 +54,15 @@ function c20457551.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Equip(tp,c,tc) end end -function c20457551.atkdown(e,tp,eg,ep,ev,re,r,rp) - local eqc=e:GetHandler():GetEquipTarget() - if Duel.GetAttacker()~=eqc and Duel.GetAttackTarget()~=eqc then return end - local tc=eqc:GetBattleTarget() - if tc then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(-eqc:GetLevel()*100) - tc:RegisterEffect(e1) - end +function c20457551.atkcon(e) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL + and e:GetHandler():GetEquipTarget():GetBattleTarget() +end +function c20457551.atktg(e,c) + return c==e:GetHandler():GetEquipTarget():GetBattleTarget() +end +function c20457551.atkval(e,c) + return e:GetHandler():GetEquipTarget():GetLevel()*-100 end function c20457551.desreptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetCurrentPhase()==PHASE_END end diff --git a/script/c20522190.lua b/script/c20522190.lua index 56eae3f8..c8b8bdfd 100644 --- a/script/c20522190.lua +++ b/script/c20522190.lua @@ -14,7 +14,7 @@ function c20522190.condition(e,tp,eg,ep,ev,re,r,rp) return tp~=Duel.GetTurnPlayer() end function c20522190.filter(c) - return c:IsDefencePos() and c:IsAbleToRemove() + return c:IsDefensePos() and c:IsAbleToRemove() end function c20522190.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c20522190.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c2055403.lua b/script/c2055403.lua index 09d5ecb8..7214ba5b 100644 --- a/script/c2055403.lua +++ b/script/c2055403.lua @@ -29,11 +29,7 @@ function c2055403.activate(e,tp,eg,ep,ev,re,r,rp) local ct=og:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) if ct>0 then Duel.BreakEffect() - if Duel.GetLP(tp)>=ct*1000 then - Duel.SetLP(tp,Duel.GetLP(tp)-ct*1000) - else - Duel.SetLP(tp,0) - end + Duel.SetLP(tp,Duel.GetLP(tp)-ct*1000) end end end diff --git a/script/c20579538.lua b/script/c20579538.lua index 9baa8b0a..83a124bc 100644 --- a/script/c20579538.lua +++ b/script/c20579538.lua @@ -31,7 +31,7 @@ function c20579538.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1) end end function c20579538.tdfilter(c) - return c:IsSetCard(0xa6) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0xa6) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() end function c20579538.operation(e,tp,eg,ep,ev,re,r,rp) if not Duel.IsPlayerCanDiscardDeck(tp,1) then return end @@ -45,12 +45,13 @@ function c20579538.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) local tg=dg:Select(tp,1,1,nil) Duel.HintSelection(tg) + if tg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) end end function c20579538.spcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_DECK) and (c:IsReason(REASON_REVEAL) or c:GetPreviousPosition()==POS_FACEUP_DEFENCE) + return c:IsPreviousLocation(LOCATION_DECK) and c:IsReason(REASON_REVEAL) end function c20579538.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 diff --git a/script/c20590784.lua b/script/c20590784.lua index 3225348f..5f839673 100644 --- a/script/c20590784.lua +++ b/script/c20590784.lua @@ -22,7 +22,7 @@ function c20590784.target(e,tp,eg,ep,ev,re,r,rp,chk) and bit.band(at:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL end end function c20590784.filter(c,e,tp) - return c:IsSetCard(0xa3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0xa3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c20590784.activate(e,tp,eg,ep,ev,re,r,rp) if Duel.NegateAttack() and Duel.Draw(tp,1,REASON_EFFECT)~=0 then @@ -32,6 +32,7 @@ function c20590784.activate(e,tp,eg,ep,ev,re,r,rp) Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,1,1,nil) + if sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c20630765.lua b/script/c20630765.lua index f54d5036..02db977a 100644 --- a/script/c20630765.lua +++ b/script/c20630765.lua @@ -21,7 +21,7 @@ function c20630765.initial_effect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(c20630765.defup) c:RegisterEffect(e2) --destroy @@ -40,7 +40,7 @@ end function c20630765.ctop(e,tp,eg,ep,ev,re,r,rp) local c=re:GetHandler() if re:IsActiveType(TYPE_MONSTER) and c~=e:GetHandler() and e:GetHandler():GetFlagEffect(1)>0 then - e:GetHandler():AddCounter(0x16+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x16,1) end end function c20630765.defup(e,c) diff --git a/script/c20638610.lua b/script/c20638610.lua index 733687f1..9008410e 100644 --- a/script/c20638610.lua +++ b/script/c20638610.lua @@ -15,7 +15,7 @@ function c20638610.rmfilter(c) return c:IsFaceup() and c:IsRace(RACE_DRAGON) and c:IsAbleToRemove() end function c20638610.spfilter(c,e,tp) - return c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c20638610.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c20638610.rmfilter(chkc) end @@ -33,7 +33,7 @@ function c20638610.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c20638610.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c20644748.lua b/script/c20644748.lua old mode 100755 new mode 100644 diff --git a/script/c20686759.lua b/script/c20686759.lua index deecc595..e38e79be 100644 --- a/script/c20686759.lua +++ b/script/c20686759.lua @@ -58,6 +58,7 @@ function c20686759.damtg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,dam) end function c20686759.damop(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(1-tp,e:GetLabel(),REASON_EFFECT) - Duel.Damage(tp,e:GetLabel(),REASON_EFFECT) + Duel.Damage(1-tp,e:GetLabel(),REASON_EFFECT,true) + Duel.Damage(tp,e:GetLabel(),REASON_EFFECT,true) + Duel.RDComplete() end diff --git a/script/c20727787.lua b/script/c20727787.lua index b9b473bd..cba9bc67 100644 --- a/script/c20727787.lua +++ b/script/c20727787.lua @@ -11,7 +11,7 @@ function c20727787.initial_effect(c) c:RegisterEffect(e1) end function c20727787.filter(c) - return c:IsType(TYPE_EQUIP) and c:IsDestructable() + return c:IsType(TYPE_EQUIP) end function c20727787.target(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() diff --git a/script/c20747792.lua b/script/c20747792.lua new file mode 100644 index 00000000..2014eeed --- /dev/null +++ b/script/c20747792.lua @@ -0,0 +1,70 @@ +--ベリー・マジシャン・ガール +function c20747792.initial_effect(c) + --search + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(20747792,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetTarget(c20747792.thtg) + e1:SetOperation(c20747792.thop) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(20747792,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EVENT_BECOME_TARGET) + e2:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE) + e2:SetCondition(c20747792.spcon1) + e2:SetTarget(c20747792.sptg) + e2:SetOperation(c20747792.spop) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetDescription(aux.Stringid(20747792,2)) + e3:SetCode(EVENT_BE_BATTLE_TARGET) + e3:SetCondition(c20747792.spcon2) + c:RegisterEffect(e3) +end +function c20747792.thfilter(c) + return c:IsSetCard(0x20a2) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c20747792.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c20747792.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c20747792.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c20747792.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c20747792.spfilter(c,e,tp) + return c:IsSetCard(0x20a2) and not c:IsCode(20747792) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c20747792.spcon1(e,tp,eg,ep,ev,re,r,rp) + return eg:IsContains(e:GetHandler()) and rp~=tp +end +function c20747792.spcon2(e,tp,eg,ep,ev,re,r,rp) + return eg:IsContains(e:GetHandler()) and Duel.GetAttacker():IsControler(1-tp) +end +function c20747792.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c20747792.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) + Duel.SetOperationInfo(0,CATEGORY_POSITION,e:GetHandler(),1,0,0) +end +function c20747792.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or Duel.ChangePosition(c,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)==0 then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c20747792.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c20758643.lua b/script/c20758643.lua old mode 100755 new mode 100644 diff --git a/script/c20765952.lua b/script/c20765952.lua old mode 100755 new mode 100644 diff --git a/script/c20773176.lua b/script/c20773176.lua index fc67f6b9..a2ffa4d9 100644 --- a/script/c20773176.lua +++ b/script/c20773176.lua @@ -7,10 +7,9 @@ function c20773176.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_PZONE) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetTargetRange(1,0) e2:SetTarget(c20773176.splimit) - e2:SetCondition(aux.nfbdncon) c:RegisterEffect(e2) --spsummon local e3=Effect.CreateEffect(c) @@ -46,7 +45,9 @@ function c20773176.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c20773176.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c20838380.lua b/script/c20838380.lua index fe88a970..e75d2a3c 100644 --- a/script/c20838380.lua +++ b/script/c20838380.lua @@ -35,7 +35,9 @@ function c20838380.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c20838380.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c20849090.lua b/script/c20849090.lua old mode 100755 new mode 100644 index e730a08e..fa08ca31 --- a/script/c20849090.lua +++ b/script/c20849090.lua @@ -50,7 +50,7 @@ function c20849090.spcon(e,tp,eg,ep,ev,re,r,rp) return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) end function c20849090.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() and e:GetHandler():IsLocation(LOCATION_GRAVE) end Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) end function c20849090.spfilter(c,e,tp) diff --git a/script/c20920083.lua b/script/c20920083.lua new file mode 100644 index 00000000..013ab3ad --- /dev/null +++ b/script/c20920083.lua @@ -0,0 +1,72 @@ +--スクラム・フォース +function c20920083.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --indes + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e2:SetRange(LOCATION_SZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetCondition(c20920083.con) + e2:SetTarget(c20920083.tg) + e2:SetValue(c20920083.indval) + c:RegisterEffect(e2) + --cannot be target + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e3:SetRange(LOCATION_SZONE) + e3:SetTargetRange(LOCATION_MZONE,0) + e3:SetCondition(c20920083.con) + e3:SetTarget(c20920083.tg) + e3:SetValue(aux.tgoval) + c:RegisterEffect(e3) + --destroy replace + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_DESTROY_REPLACE) + e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e4:SetRange(LOCATION_SZONE) + e4:SetTarget(c20920083.desreptg) + e4:SetOperation(c20920083.desrepop) + c:RegisterEffect(e4) +end +function c20920083.cfilter(c) + return c:IsFaceup() and c:IsPosition(POS_FACEUP_DEFENSE) +end +function c20920083.con(e) + return Duel.IsExistingMatchingCard(c20920083.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,2,nil) +end +function c20920083.tg(e,c) + return c:IsDefensePos() +end +function c20920083.indval(e,re,rp) + return rp~=e:GetHandlerPlayer() +end +function c20920083.repfilter(c) + return c:GetSequence()<5 and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_BATTLE_DESTROYED) +end +function c20920083.desreptg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return not c:IsReason(REASON_REPLACE) and c:IsOnField() and c:IsFaceup() + and Duel.IsExistingMatchingCard(c20920083.repfilter,tp,LOCATION_SZONE,0,1,c) end + if Duel.SelectYesNo(tp,aux.Stringid(20920083,0)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESREPLACE) + local g=Duel.SelectMatchingCard(tp,c20920083.repfilter,tp,LOCATION_SZONE,0,1,1,c) + e:SetLabelObject(g:GetFirst()) + Duel.HintSelection(g) + g:GetFirst():SetStatus(STATUS_DESTROY_CONFIRMED,true) + return true + else return false end +end +function c20920083.desrepop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + tc:SetStatus(STATUS_DESTROY_CONFIRMED,false) + Duel.Destroy(tc,REASON_EFFECT+REASON_REPLACE) +end diff --git a/script/c20951752.lua b/script/c20951752.lua index bc77ccf7..6855f724 100644 --- a/script/c20951752.lua +++ b/script/c20951752.lua @@ -71,12 +71,12 @@ function c20951752.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 end function c20951752.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) and e:GetLabel()>0 end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) and e:GetLabel()>0 end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c20951752.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local dg=g:Select(tp,1,e:GetLabel(),nil) Duel.HintSelection(dg) diff --git a/script/c2095764.lua b/script/c2095764.lua index 904a85fc..ee8610f3 100644 --- a/script/c2095764.lua +++ b/script/c2095764.lua @@ -54,7 +54,7 @@ end function c2095764.sccon(e,tp,eg,ep,ev,re,r,rp) if Duel.GetTurnPlayer()==tp then return false end local ph=Duel.GetCurrentPhase() - return ph==PHASE_MAIN1 or ph==PHASE_BATTLE or ph==PHASE_MAIN2 + return ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2 end function c2095764.mfilter(c) return c:IsSetCard(0x9e) diff --git a/script/c20960340.lua b/script/c20960340.lua new file mode 100644 index 00000000..bcf51290 --- /dev/null +++ b/script/c20960340.lua @@ -0,0 +1,69 @@ +--クリスタル・アバター +function c20960340.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetCondition(c20960340.condition) + e1:SetTarget(c20960340.target) + e1:SetOperation(c20960340.activate) + c:RegisterEffect(e1) +end +function c20960340.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil + and Duel.GetAttacker():IsAttackAbove(Duel.GetLP(tp)) +end +function c20960340.target(e,tp,eg,ep,ev,re,r,rp,chk) + local atk=Duel.GetLP(tp) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsPlayerCanSpecialSummonMonster(tp,20960340,0,0x21,atk,0,4,RACE_WARRIOR,ATTRIBUTE_LIGHT) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c20960340.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local atk=Duel.GetLP(tp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + or not Duel.IsPlayerCanSpecialSummonMonster(tp,20960340,0,0x21,atk,0,4,RACE_WARRIOR,ATTRIBUTE_LIGHT) then return end + c:AddMonsterAttribute(TYPE_TRAP+TYPE_EFFECT) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + c:AddMonsterAttributeComplete() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK) + e1:SetValue(atk) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1) + --damage + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(20960340,0)) + e2:SetCategory(CATEGORY_DAMAGE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_BATTLED) + e2:SetCondition(c20960340.damcon) + e2:SetTarget(c20960340.damtg) + e2:SetOperation(c20960340.damop) + e2:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e2,true) + Duel.SpecialSummonComplete() + local at=Duel.GetAttacker() + if at and at:IsAttackable() and at:IsFaceup() and not at:IsImmuneToEffect(e) and not at:IsStatus(STATUS_ATTACK_CANCELED) then + Duel.BreakEffect() + Duel.ChangeAttackTarget(c) + end +end +function c20960340.damcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) +end +function c20960340.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local dam=e:GetHandler():GetAttack() + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(dam) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) +end +function c20960340.damop(e,tp,eg,ep,ev,re,r,rp) + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + Duel.Damage(p,e:GetHandler():GetAttack(),REASON_EFFECT) +end diff --git a/script/c20985997.lua b/script/c20985997.lua index b1c076fe..ee43d274 100644 --- a/script/c20985997.lua +++ b/script/c20985997.lua @@ -11,7 +11,7 @@ function c20985997.initial_effect(c) c:RegisterEffect(e1) end function c20985997.filter(c) - return c:GetCounter(0xe)>0 and c:IsDestructable() + return c:GetCounter(0x100e)>0 end function c20985997.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c20985997.filter(chkc) end @@ -23,10 +23,11 @@ function c20985997.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c20985997.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:GetCounter(0xe)>0 and tc:IsRelateToEffect(e) then + if tc:GetCounter(0x100e)>0 and tc:IsRelateToEffect(e) then if Duel.Destroy(tc,REASON_EFFECT)>0 then - Duel.Damage(1-tp,1000,REASON_EFFECT) - Duel.Damage(tp,1000,REASON_EFFECT) + Duel.Damage(1-tp,1000,REASON_EFFECT,true) + Duel.Damage(tp,1000,REASON_EFFECT,true) + Duel.RDComplete() end end end diff --git a/script/c21007444.lua b/script/c21007444.lua index 8d086434..554f98c5 100644 --- a/script/c21007444.lua +++ b/script/c21007444.lua @@ -14,8 +14,9 @@ function c21007444.filter(c,e,tp) return c:IsSetCard(0x3d) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c21007444.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE and c21007444.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c21007444.filter(chkc,e,tp) end + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c21007444.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c21007444.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) @@ -26,6 +27,7 @@ function c21007444.activate(e,tp,eg,ep,ev,re,r,rp) local sg=g:Filter(Card.IsRelateToEffect,nil,e) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if sg:GetCount()==0 or ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end if ft0 then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c21051146.filter(c,cc,tp) local ct=math.ceil(c:GetAttack()/700) if ct==0 then ct=1 end - return c:IsFaceup() and c:IsDestructable() and cc:IsCanRemoveCounter(tp,0x3001,ct,REASON_COST) + return c:IsFaceup() and cc:IsCanRemoveCounter(tp,0x1,ct,REASON_COST) end function c21051146.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c21051146.filter(chkc,e:GetHandler(),tp) end @@ -43,7 +43,7 @@ function c21051146.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local g=Duel.SelectTarget(tp,c21051146.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,e:GetHandler(),tp) local ct=math.ceil(g:GetFirst():GetAttack()/700) if ct==0 then ct=1 end - e:GetHandler():RemoveCounter(tp,0x3001,ct,REASON_COST) + e:GetHandler():RemoveCounter(tp,0x1,ct,REASON_COST) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c21051146.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c21051977.lua b/script/c21051977.lua index 76a8ea4c..b587d0d9 100644 --- a/script/c21051977.lua +++ b/script/c21051977.lua @@ -22,7 +22,10 @@ function c21051977.spop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(tp,Card.IsCode,tp,LOCATION_HAND,0,1,1,nil,67445676) if g:GetCount()==0 then return end Duel.SendtoGrave(g,REASON_EFFECT) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c21074344.lua b/script/c21074344.lua index bbbba390..f664296f 100644 --- a/script/c21074344.lua +++ b/script/c21074344.lua @@ -4,7 +4,7 @@ function c21074344.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(21074344,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_HAND) diff --git a/script/c21082832.lua b/script/c21082832.lua new file mode 100644 index 00000000..ef59762f --- /dev/null +++ b/script/c21082832.lua @@ -0,0 +1,70 @@ +--カオス・フォーム +function c21082832.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c21082832.target) + e1:SetOperation(c21082832.activate) + c:RegisterEffect(e1) +end +c21082832.card_code_list={46986414} +function c21082832.filter(c,e,tp,m1,m2,ft) + if not c:IsSetCard(0xcf) or bit.band(c:GetType(),0x81)~=0x81 + or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end + local mg=m1:Filter(Card.IsCanBeRitualMaterial,c,c) + mg:Merge(m2) + if ft>0 then + return mg:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,99,c) + else + return ft>-1 and mg:IsExists(c21082832.mfilterf,1,nil,tp,mg,c) + end +end +function c21082832.mfilterf(c,tp,mg,rc) + if c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) then + Duel.SetSelectedCard(c) + return mg:CheckWithSumEqual(Card.GetRitualLevel,rc:GetLevel(),0,99,rc) + else return false end +end +function c21082832.mfilter(c) + return c:IsCode(46986414,89631139) and c:IsAbleToRemove() +end +function c21082832.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local mg1=Duel.GetRitualMaterial(tp) + local mg2=Duel.GetMatchingGroup(c21082832.mfilter,tp,LOCATION_GRAVE,0,nil) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + return Duel.IsExistingMatchingCard(c21082832.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg1,mg2,ft) + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c21082832.activate(e,tp,eg,ep,ev,re,r,rp) + local mg1=Duel.GetRitualMaterial(tp) + local mg2=Duel.GetMatchingGroup(c21082832.mfilter,tp,LOCATION_GRAVE,0,nil) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c21082832.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg1,mg2,ft) + local tc=g:GetFirst() + if tc then + local mg=mg1:Filter(Card.IsCanBeRitualMaterial,tc,tc) + mg:Merge(mg2) + local mat=nil + if ft>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),1,99,tc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:FilterSelect(tp,c21082832.mfilterf,1,1,nil,tp,mg,tc) + Duel.SetSelectedCard(mat) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local mat2=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),0,99,tc) + mat:Merge(mat2) + end + tc:SetMaterial(mat) + Duel.ReleaseRitualMaterial(mat) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP) + tc:CompleteProcedure() + end +end diff --git a/script/c21105106.lua b/script/c21105106.lua old mode 100755 new mode 100644 index aa2d5230..cd15912d --- a/script/c21105106.lua +++ b/script/c21105106.lua @@ -93,10 +93,10 @@ end function c21105106.filter(c,tp) return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) end -function c21105106.ritual_custom_condition(c,mg) +function c21105106.ritual_custom_condition(c,mg,ft) local tp=c:GetControler() local g=mg:Filter(c21105106.filter,c,tp) - return g:IsExists(c21105106.ritfilter1,1,nil,c:GetLevel(),g) + return ft>-3 and g:IsExists(c21105106.ritfilter1,1,nil,c:GetLevel(),g) end function c21105106.ritfilter1(c,lv,mg) lv=lv-c:GetLevel() diff --git a/script/c21113684.lua b/script/c21113684.lua index bb019ee0..70f530ba 100644 --- a/script/c21113684.lua +++ b/script/c21113684.lua @@ -1,107 +1,107 @@ ---覇魔導士アーカナイト・マジシャン -function c21113684.initial_effect(c) - c:EnableCounterPermit(0x3001) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFun2(c,c21113684.ffilter,aux.FilterBoolFunction(Card.IsRace,RACE_SPELLCASTER),true) - --attackup - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetValue(c21113684.attackup) - c:RegisterEffect(e2) - --fusion success - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(21113684,0)) - e3:SetCategory(CATEGORY_COUNTER) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCondition(c21113684.addcc) - e3:SetTarget(c21113684.addct) - e3:SetOperation(c21113684.addc) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(21113684,1)) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_MZONE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE) - e4:SetCost(c21113684.cost) - e4:SetTarget(c21113684.destg) - e4:SetOperation(c21113684.desop) - c:RegisterEffect(e4) - --draw - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(21113684,2)) - e5:SetCategory(CATEGORY_DRAW) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetRange(LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e5:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE) - e5:SetCost(c21113684.cost) - e5:SetTarget(c21113684.drtg) - e5:SetOperation(c21113684.drop) - c:RegisterEffect(e5) - --spsummon condition - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e6:SetCode(EFFECT_SPSUMMON_CONDITION) - e6:SetValue(c21113684.splimit) - c:RegisterEffect(e6) -end -c21113684.miracle_synchro_fusion=true -function c21113684.splimit(e,se,sp,st) - if e:GetHandler():IsLocation(LOCATION_EXTRA) then - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION - end - return true -end -function c21113684.ffilter(c) - return c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_SPELLCASTER) -end -function c21113684.attackup(e,c) - return c:GetCounter(0x3001)*1000 -end -function c21113684.addcc(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_FUSION -end -function c21113684.addct(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0x3001) -end -function c21113684.addc(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x3001,2) - end -end -function c21113684.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3001,1,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - Duel.RemoveCounter(tp,1,0,0x3001,1,REASON_COST) -end -function c21113684.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c21113684.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c21113684.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c21113684.drop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end +--覇魔導士アーカナイト・マジシャン +function c21113684.initial_effect(c) + c:EnableCounterPermit(0x1) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcFun2(c,c21113684.ffilter,aux.FilterBoolFunction(Card.IsRace,RACE_SPELLCASTER),true) + --attackup + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetValue(c21113684.attackup) + c:RegisterEffect(e2) + --fusion success + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(21113684,0)) + e3:SetCategory(CATEGORY_COUNTER) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetCondition(c21113684.addcc) + e3:SetTarget(c21113684.addct) + e3:SetOperation(c21113684.addc) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(21113684,1)) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_MZONE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE) + e4:SetCost(c21113684.cost) + e4:SetTarget(c21113684.destg) + e4:SetOperation(c21113684.desop) + c:RegisterEffect(e4) + --draw + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(21113684,2)) + e5:SetCategory(CATEGORY_DRAW) + e5:SetType(EFFECT_TYPE_IGNITION) + e5:SetRange(LOCATION_MZONE) + e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e5:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE) + e5:SetCost(c21113684.cost) + e5:SetTarget(c21113684.drtg) + e5:SetOperation(c21113684.drop) + c:RegisterEffect(e5) + --spsummon condition + local e6=Effect.CreateEffect(c) + e6:SetType(EFFECT_TYPE_SINGLE) + e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e6:SetCode(EFFECT_SPSUMMON_CONDITION) + e6:SetValue(c21113684.splimit) + c:RegisterEffect(e6) +end +c21113684.miracle_synchro_fusion=true +function c21113684.splimit(e,se,sp,st) + if e:GetHandler():IsLocation(LOCATION_EXTRA) then + return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION + end + return true +end +function c21113684.ffilter(c) + return c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_SPELLCASTER) +end +function c21113684.attackup(e,c) + return c:GetCounter(0x1)*1000 +end +function c21113684.addcc(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_FUSION +end +function c21113684.addct(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0x1) +end +function c21113684.addc(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():IsRelateToEffect(e) then + e:GetHandler():AddCounter(0x1,2) + end +end +function c21113684.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x1,1,REASON_COST) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) + Duel.RemoveCounter(tp,1,0,0x1,1,REASON_COST) +end +function c21113684.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c21113684.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c21113684.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c21113684.drop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end diff --git a/script/c2111707.lua b/script/c2111707.lua index d456b76b..49cde9e4 100644 --- a/script/c2111707.lua +++ b/script/c2111707.lua @@ -35,16 +35,17 @@ function c2111707.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA+LOCATION_GRAVE) end function c2111707.spfilter(c,code) - return c:IsCode(code) and c:IsAbleToRemoveAsCost() + return c:IsFusionCode(code) and c:IsAbleToRemoveAsCost() end function c2111707.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-1 then return false end local g1=Duel.GetMatchingGroup(c2111707.spfilter,tp,LOCATION_ONFIELD,0,nil,62651957) local g2=Duel.GetMatchingGroup(c2111707.spfilter,tp,LOCATION_ONFIELD,0,nil,65622692) if g1:GetCount()==0 or g2:GetCount()==0 then return false end + if g1:GetCount()==1 and g2:GetCount()==1 and g1:GetFirst()==g2:GetFirst() then return false end if ft>0 then return true end local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) @@ -62,12 +63,22 @@ function c2111707.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) if ft<=0 then tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() + ft=ft+1 else tc=g1:Select(tp,1,1,nil):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 + if i==1 then + g1:Clear() + if tc:IsFusionCode(65622692) then + local sg=Duel.GetMatchingGroup(c2111707.spfilter,tp,LOCATION_ONFIELD,0,tc,62651957) + g1:Merge(sg) + end + if tc:IsFusionCode(62651957) then + local sg=Duel.GetMatchingGroup(c2111707.spfilter,tp,LOCATION_ONFIELD,0,tc,65622692) + g1:Merge(sg) + end + end end Duel.Remove(g,POS_FACEUP,REASON_COST) end @@ -76,7 +87,7 @@ function c2111707.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c2111707.filter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c2111707.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c2111707.filter(chkc) end diff --git a/script/c21142671.lua b/script/c21142671.lua new file mode 100644 index 00000000..07b4b0fc --- /dev/null +++ b/script/c21142671.lua @@ -0,0 +1,53 @@ +--レッド・ノヴァ +function c21142671.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetRange(LOCATION_HAND) + e1:SetCountLimit(1,21142671) + e1:SetCondition(c21142671.spcon) + c:RegisterEffect(e1) + --special summon (from deck) + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(21142671,0)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_BE_MATERIAL) + e2:SetCondition(c21142671.spdcon) + e2:SetTarget(c21142671.spdtg) + e2:SetOperation(c21142671.spdop) + c:RegisterEffect(e2) +end +function c21142671.cfilter(c) + return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:IsLevelAbove(8) and c:IsRace(RACE_DRAGON) +end +function c21142671.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c21142671.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) +end +function c21142671.spdcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO and c:GetReasonCard():IsHasEffect(21142671) +end +function c21142671.filter(c,e,tp) + return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_FIEND) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c21142671.spdtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c21142671.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c21142671.spdop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c21142671.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + end +end diff --git a/script/c21143940.lua b/script/c21143940.lua old mode 100755 new mode 100644 diff --git a/script/c21179143.lua b/script/c21179143.lua index c6e2089e..8086ef7e 100644 --- a/script/c21179143.lua +++ b/script/c21179143.lua @@ -20,12 +20,14 @@ function c21179143.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c21179143.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,21179144,0x3c,0x4011,0,0,1,RACE_REPTILE,ATTRIBUTE_EARTH) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c21179143.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end if not Duel.IsPlayerCanSpecialSummonMonster(tp,21179144,0x3c,0x4011,0,0,1,RACE_REPTILE,ATTRIBUTE_EARTH) then return end for i=1,2 do diff --git a/script/c21208154.lua b/script/c21208154.lua index 6e5a0bae..ca2fbb64 100644 --- a/script/c21208154.lua +++ b/script/c21208154.lua @@ -22,12 +22,12 @@ function c21208154.initial_effect(c) local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) e4:SetCode(EFFECT_SET_ATTACK_FINAL) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_REPEAT+EFFECT_FLAG_DELAY) e4:SetRange(LOCATION_MZONE) e4:SetValue(c21208154.adval) c:RegisterEffect(e4) local e5=e4:Clone() - e5:SetCode(EFFECT_SET_DEFENCE_FINAL) + e5:SetCode(EFFECT_SET_DEFENSE_FINAL) c:RegisterEffect(e5) --aclimit local e6=Effect.CreateEffect(c) diff --git a/script/c21219755.lua b/script/c21219755.lua index bca428ad..edef8dbf 100644 --- a/script/c21219755.lua +++ b/script/c21219755.lua @@ -11,7 +11,7 @@ function c21219755.initial_effect(c) c:RegisterEffect(e1) end function c21219755.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c21219755.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c21219755.filter(chkc) end @@ -25,8 +25,9 @@ function c21219755.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then if Duel.Destroy(tc,REASON_EFFECT)>0 then - Duel.Damage(1-tp,1000,REASON_EFFECT) - Duel.Damage(tp,1000,REASON_EFFECT) + Duel.Damage(1-tp,1000,REASON_EFFECT,true) + Duel.Damage(tp,1000,REASON_EFFECT,true) + Duel.RDComplete() end end end diff --git a/script/c21223277.lua b/script/c21223277.lua index 38e272d9..fb9d5f15 100644 --- a/script/c21223277.lua +++ b/script/c21223277.lua @@ -77,7 +77,7 @@ function c21223277.cfilter(c) return c:IsFaceup() and c:IsSetCard(0x207a) end function c21223277.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c21223277.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c21223277.cfilter,tp,LOCATION_SZONE,0,1,nil) diff --git a/script/c21249921.lua b/script/c21249921.lua index 3b019416..3b1fda66 100644 --- a/script/c21249921.lua +++ b/script/c21249921.lua @@ -29,7 +29,7 @@ function c21249921.eqcon(e,tp,eg,ep,ev,re,r,rp) return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SYNCHRO)==SUMMON_TYPE_SYNCHRO end function c21249921.filter(c) - return c:IsLevelBelow(3) and c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) + return c:IsLevelBelow(3) and c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) and not c:IsForbidden() end function c21249921.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c21249921.filter(chkc) end diff --git a/script/c21250202.lua b/script/c21250202.lua new file mode 100644 index 00000000..be5d08db --- /dev/null +++ b/script/c21250202.lua @@ -0,0 +1,113 @@ +--オッドアイズ・ペルソナ・ドラゴン +function c21250202.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --spsummon reg + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e1:SetCode(EVENT_BECOME_TARGET) + e1:SetRange(LOCATION_PZONE) + e1:SetOperation(c21250202.regop1) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e2:SetCode(EVENT_CHAIN_SOLVED) + e2:SetRange(LOCATION_PZONE) + e2:SetOperation(c21250202.regop2) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(21250202,0)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e3:SetRange(LOCATION_PZONE) + e3:SetCode(EVENT_PHASE+PHASE_END) + e3:SetCountLimit(1) + e3:SetCondition(c21250202.spcon) + e3:SetTarget(c21250202.sptg) + e3:SetOperation(c21250202.spop) + c:RegisterEffect(e3) + --disable + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(21250202,1)) + e4:SetCategory(CATEGORY_DISABLE) + e4:SetType(EFFECT_TYPE_QUICK_O) + e4:SetCode(EVENT_FREE_CHAIN) + e4:SetRange(LOCATION_MZONE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetCountLimit(1) + e4:SetTarget(c21250202.distg) + e4:SetOperation(c21250202.disop) + c:RegisterEffect(e4) +end +function c21250202.regfilter(c,tp) + return c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) + and c:IsType(TYPE_PENDULUM) and c:IsFaceup() and c:IsSetCard(0x99) +end +function c21250202.regop1(e,tp,eg,ep,ev,re,r,rp) + if rp~=tp and eg:GetCount()==1 and eg:IsExists(c21250202.regfilter,1,nil,tp) then + e:GetHandler():RegisterFlagEffect(21250202,RESET_EVENT+0x1fe0000+RESET_CHAIN,0,1,ev) + end +end +function c21250202.regop2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local chain_ct={c:GetFlagEffectLabel(21250202)} + for i=1,#chain_ct do + if chain_ct[i]==ev then + c:RegisterFlagEffect(21250203,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) + return + end + end +end +function c21250202.penfilter(c) + return c:IsFaceup() and c:IsSetCard(0x99) and c:IsType(TYPE_PENDULUM) and not c:IsCode(21250202) and not c:IsForbidden() +end +function c21250202.spcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(21250203)~=0 +end +function c21250202.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c21250202.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) + local g=Duel.SelectMatchingCard(tp,c21250202.penfilter,tp,LOCATION_EXTRA,0,1,1,nil) + local tc=g:GetFirst() + if tc then + Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) + end + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c21250202.disfilter(c) + return aux.disfilter1(c) and c:GetSummonLocation()==LOCATION_EXTRA +end +function c21250202.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and c21250202.disfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c21250202.disfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + local g=Duel.SelectTarget(tp,c21250202.disfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) +end +function c21250202.disop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + Duel.NegateRelatedChain(tc,RESET_TURN_SET) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetValue(RESET_TURN_SET) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + end +end diff --git a/script/c2129638.lua b/script/c2129638.lua new file mode 100644 index 00000000..c6373dab --- /dev/null +++ b/script/c2129638.lua @@ -0,0 +1,82 @@ +--青眼の双爆裂龍 +function c2129638.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcCodeRep(c,89631139,2,true,true) + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(c2129638.splimit) + c:RegisterEffect(e1) + --special summon rule + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_EXTRA) + e2:SetCondition(c2129638.spcon) + e2:SetOperation(c2129638.spop) + c:RegisterEffect(e2) + --indes + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e3:SetValue(1) + c:RegisterEffect(e3) + --attack twice + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e4:SetRange(LOCATION_MZONE) + e4:SetCode(EFFECT_EXTRA_ATTACK_MONSTER) + e4:SetValue(1) + c:RegisterEffect(e4) + --remove + local e7=Effect.CreateEffect(c) + e7:SetDescription(aux.Stringid(2129638,0)) + e7:SetCategory(CATEGORY_REMOVE) + e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e7:SetCode(EVENT_DAMAGE_STEP_END) + e7:SetCondition(c2129638.rmcon) + e7:SetTarget(c2129638.rmtg) + e7:SetOperation(c2129638.rmop) + c:RegisterEffect(e7) +end +function c2129638.splimit(e,se,sp,st) + return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c2129638.spfilter(c,fc) + return c:IsFusionCode(89631139) and c:IsCanBeFusionMaterial(fc) and c:IsAbleToGraveAsCost() +end +function c2129638.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 + and Duel.IsExistingMatchingCard(c2129638.spfilter,tp,LOCATION_MZONE,0,2,nil,c) +end +function c2129638.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c2129638.spfilter,tp,LOCATION_MZONE,0,2,2,nil,c) + c:SetMaterial(g) + Duel.SendtoGrave(g,REASON_COST) +end +function c2129638.rmcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local bc=c:GetBattleTarget() + e:SetLabelObject(bc) + return c==Duel.GetAttacker() and bc and c:IsStatus(STATUS_OPPO_BATTLE) and bc:IsOnField() and bc:IsRelateToBattle() +end +function c2129638.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetLabelObject():IsAbleToRemove() end + Duel.SetOperationInfo(0,CATEGORY_REMOVE,e:GetLabelObject(),1,0,0) +end +function c2129638.rmop(e,tp,eg,ep,ev,re,r,rp) + local bc=e:GetLabelObject() + if bc:IsRelateToBattle() then + Duel.Remove(bc,POS_FACEUP,REASON_EFFECT) + end +end diff --git a/script/c21296502.lua b/script/c21296502.lua new file mode 100644 index 00000000..3a1a9b8d --- /dev/null +++ b/script/c21296502.lua @@ -0,0 +1,96 @@ +--トゥーン・ブラック・マジシャン +function c21296502.initial_effect(c) + --cannot attack + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetOperation(c21296502.atklimit) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) + c:RegisterEffect(e2) + local e3=e1:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) + --direct attack + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_DIRECT_ATTACK) + e4:SetCondition(c21296502.dircon) + c:RegisterEffect(e4) + --special summon + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(21296502,0)) + e5:SetCategory(CATEGORY_SPECIAL_SUMMON) + e5:SetType(EFFECT_TYPE_IGNITION) + e5:SetRange(LOCATION_MZONE) + e5:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE) + e5:SetCost(c21296502.cost) + e5:SetTarget(c21296502.sptg) + e5:SetOperation(c21296502.spop) + c:RegisterEffect(e5) + --search + local e6=e5:Clone() + e6:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e6:SetDescription(aux.Stringid(21296502,1)) + e6:SetTarget(c21296502.thtg) + e6:SetOperation(c21296502.thop) + c:RegisterEffect(e6) +end +function c21296502.atklimit(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e:GetHandler():RegisterEffect(e1) +end +function c21296502.cfilter1(c) + return c:IsFaceup() and c:IsCode(15259703) +end +function c21296502.cfilter2(c) + return c:IsFaceup() and c:IsType(TYPE_TOON) +end +function c21296502.dircon(e) + local tp=e:GetHandlerPlayer() + return Duel.IsExistingMatchingCard(c21296502.cfilter1,tp,LOCATION_ONFIELD,0,1,nil) + and not Duel.IsExistingMatchingCard(c21296502.cfilter2,tp,0,LOCATION_MZONE,1,nil) +end +function c21296502.costfilter(c) + return c:IsSetCard(0x62) and c:IsDiscardable() +end +function c21296502.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c21296502.costfilter,tp,LOCATION_HAND,0,1,nil) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) + Duel.DiscardHand(tp,c21296502.costfilter,1,1,REASON_COST+REASON_DISCARD) +end +function c21296502.thfilter(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSetCard(0x62) and c:IsAbleToHand() +end +function c21296502.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c21296502.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c21296502.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c21296502.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c21296502.spfilter(c,e,tp) + return c:IsType(TYPE_TOON) and not c:IsCode(21296502) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) +end +function c21296502.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c21296502.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c21296502.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c21296502.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) + end +end diff --git a/script/c21313376.lua b/script/c21313376.lua index baffc503..8b8b5144 100644 --- a/script/c21313376.lua +++ b/script/c21313376.lua @@ -32,7 +32,7 @@ function c21313376.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c21313376.filter(c,atk) - return c:IsFaceup() and c:IsAttackBelow(atk) and c:IsDestructable() + return c:IsFaceup() and c:IsAttackBelow(atk) end function c21313376.destg(e,tp,eg,ep,ev,re,r,rp,chk) local atk=e:GetHandler():GetBattleTarget():GetBaseAttack() diff --git a/script/c21323861.lua b/script/c21323861.lua index c622cd72..e9c95624 100644 --- a/script/c21323861.lua +++ b/script/c21323861.lua @@ -10,7 +10,7 @@ function c21323861.initial_effect(c) c:RegisterEffect(e1) end function c21323861.filter(c) - return c:IsRace(RACE_MACHINE) and c:IsFaceup() and c:IsDestructable() + return c:IsRace(RACE_MACHINE) and c:IsFaceup() end function c21323861.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c21323861.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c21340051.lua b/script/c21340051.lua index 225b4d5c..e725713f 100644 --- a/script/c21340051.lua +++ b/script/c21340051.lua @@ -2,8 +2,10 @@ function c21340051.initial_effect(c) --self destroy local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c21340051.destg) e1:SetOperation(c21340051.desop) c:RegisterEffect(e1) --atk down @@ -16,8 +18,14 @@ function c21340051.initial_effect(c) e2:SetValue(-1000) c:RegisterEffect(e2) end +function c21340051.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) +end function c21340051.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) + if e:GetHandler():IsRelateToEffect(e) then + Duel.Destroy(e:GetHandler(),REASON_EFFECT) + end end function c21340051.con(e) return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),0,LOCATION_MZONE)>0 diff --git a/script/c2134346.lua b/script/c2134346.lua index 5e8ce597..b6495a73 100644 --- a/script/c2134346.lua +++ b/script/c2134346.lua @@ -1,5 +1,7 @@ --阿修羅 function c2134346.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c2134346.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c2134346.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --attack all local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) @@ -24,39 +16,3 @@ function c2134346.initial_effect(c) e4:SetValue(1) c:RegisterEffect(e4) end -function c2134346.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(2134346,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c2134346.retcon) - e1:SetTarget(c2134346.rettg) - e1:SetOperation(c2134346.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c2134346.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c2134346.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c2134346.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c21414674.lua b/script/c21414674.lua index d47fcfc3..77220796 100644 --- a/script/c21414674.lua +++ b/script/c21414674.lua @@ -10,7 +10,7 @@ function c21414674.initial_effect(c) c:RegisterEffect(e1) end function c21414674.filter(c) - return c:IsFaceup() and (c:IsCode(22530212) or c:IsCode(68535320) or c:IsCode(95929069)) + return c:IsFaceup() and c:IsCode(22530212,68535320,95929069) end function c21414674.spcon(e,c) if c==nil then return true end diff --git a/script/c21420702.lua b/script/c21420702.lua index 8aed717d..c9c47000 100644 --- a/script/c21420702.lua +++ b/script/c21420702.lua @@ -1,64 +1,64 @@ ---ブレイズ・キャノン－トライデント -function c21420702.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c21420702.cost) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(21420702,0)) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c21420702.descost) - e2:SetTarget(c21420702.destg) - e2:SetOperation(c21420702.desop) - c:RegisterEffect(e2) -end -function c21420702.costfilter(c) - return c:IsFaceup() and c:IsCode(69537999) and c:IsAbleToGraveAsCost() -end -function c21420702.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c21420702.costfilter,tp,LOCATION_SZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c21420702.costfilter,tp,LOCATION_SZONE,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c21420702.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_ATTACK)==0 end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c21420702.disfilter(c) - return c:IsRace(RACE_PYRO) -end -function c21420702.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingMatchingCard(c21420702.disfilter,tp,LOCATION_HAND,0,1,nil) - and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND) -end -function c21420702.desop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c21420702.disfilter,tp,LOCATION_HAND,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then - Duel.Damage(1-tp,500,REASON_EFFECT) - end - end -end +--ブレイズ・キャノン－トライデント +function c21420702.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCost(c21420702.cost) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(21420702,0)) + e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_SZONE) + e2:SetCost(c21420702.descost) + e2:SetTarget(c21420702.destg) + e2:SetOperation(c21420702.desop) + c:RegisterEffect(e2) +end +function c21420702.costfilter(c) + return c:IsFaceup() and c:IsCode(69537999) and c:IsAbleToGraveAsCost() +end +function c21420702.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c21420702.costfilter,tp,LOCATION_SZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c21420702.costfilter,tp,LOCATION_SZONE,0,1,1,nil) + Duel.SendtoGrave(g,REASON_COST) +end +function c21420702.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_ATTACK)==0 end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) + e1:SetTargetRange(1,0) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c21420702.disfilter(c) + return c:IsRace(RACE_PYRO) +end +function c21420702.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingMatchingCard(c21420702.disfilter,tp,LOCATION_HAND,0,1,nil) + and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND) +end +function c21420702.desop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c21420702.disfilter,tp,LOCATION_HAND,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoGrave(g,REASON_EFFECT) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + Duel.Damage(1-tp,500,REASON_EFFECT) + end + end +end diff --git a/script/c21435914.lua b/script/c21435914.lua index 3f5c8c59..a1f11f05 100644 --- a/script/c21435914.lua +++ b/script/c21435914.lua @@ -1,71 +1,71 @@ ---冥界濁龍 ドラゴキュートス -function c21435914.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure2(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),aux.NonTuner(Card.IsRace,RACE_DRAGON)) - c:EnableReviveLimit() - --battle indestructable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - c:RegisterEffect(e1) - --chain attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetCondition(c21435914.atcon) - e2:SetOperation(c21435914.atop) - c:RegisterEffect(e2) - --damage - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_PHASE+PHASE_STANDBY) - e3:SetCountLimit(1) - e3:SetCondition(c21435914.damcon) - e3:SetTarget(c21435914.damtg) - e3:SetOperation(c21435914.damop) - c:RegisterEffect(e3) -end -function c21435914.atcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER) and c:IsChainAttackable(2,true) and c:IsStatus(STATUS_OPPO_BATTLE) -end -function c21435914.atop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToBattle() then return end - Duel.ChainAttack() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - c:RegisterEffect(e1) -end -function c21435914.damcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c21435914.damtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) - local atk=g:GetFirst():GetAttack() - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,atk/2) -end -function c21435914.damop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then - local atk=tc:GetAttack() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(atk/2) - tc:RegisterEffect(e1) - Duel.Damage(1-tp,atk/2,REASON_EFFECT) - end -end +--冥界濁龍 ドラゴキュートス +function c21435914.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure2(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),aux.NonTuner(Card.IsRace,RACE_DRAGON)) + c:EnableReviveLimit() + --battle indestructable + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetValue(1) + c:RegisterEffect(e1) + --chain attack + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BATTLE_DESTROYING) + e2:SetCondition(c21435914.atcon) + e2:SetOperation(c21435914.atop) + c:RegisterEffect(e2) + --damage + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DAMAGE) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EVENT_PHASE+PHASE_STANDBY) + e3:SetCountLimit(1) + e3:SetCondition(c21435914.damcon) + e3:SetTarget(c21435914.damtg) + e3:SetOperation(c21435914.damop) + c:RegisterEffect(e3) +end +function c21435914.atcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local bc=c:GetBattleTarget() + return bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER) and c:IsChainAttackable(2,true) and c:IsStatus(STATUS_OPPO_BATTLE) +end +function c21435914.atop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToBattle() then return end + Duel.ChainAttack() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) + c:RegisterEffect(e1) +end +function c21435914.damcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c21435914.damtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and aux.nzatk(chkc) end + if chk==0 then return Duel.IsExistingTarget(aux.nzatk,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,aux.nzatk,tp,0,LOCATION_MZONE,1,1,nil) + local atk=g:GetFirst():GetAttack() + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,atk/2) +end +function c21435914.damop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then + local atk=tc:GetAttack() + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(atk/2) + tc:RegisterEffect(e1) + Duel.Damage(1-tp,atk/2,REASON_EFFECT) + end +end diff --git a/script/c21454943.lua b/script/c21454943.lua index b608983c..50d57783 100644 --- a/script/c21454943.lua +++ b/script/c21454943.lua @@ -31,11 +31,11 @@ end function c21454943.cost(e,tp,eg,ep,ev,re,r,rp,chk) local bc=e:GetLabelObject() if chk==0 then return Duel.CheckLPCost(tp,100) and e:GetHandler():GetFlagEffect(21454943)==0 - and (bc:IsAttackAbove(100) or bc:IsDefenceAbove(100)) end + and (bc:IsAttackAbove(100) or bc:IsDefenseAbove(100)) end local lp=Duel.GetLP(tp)-1 local alp=100 local maxpay=bc:GetAttack() - local def=bc:GetDefence() + local def=bc:GetDefense() if maxpay500 and Duel.SelectYesNo(tp,aux.Stringid(21598948,1)) then + if Duel.CheckLPCost(tp,500) and Duel.SelectYesNo(tp,aux.Stringid(21598948,1)) then Duel.PayLPCost(tp,500) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end diff --git a/script/c21648584.lua b/script/c21648584.lua old mode 100755 new mode 100644 diff --git a/script/c21698716.lua b/script/c21698716.lua index cbb72075..cd504465 100644 --- a/script/c21698716.lua +++ b/script/c21698716.lua @@ -33,7 +33,7 @@ function c21698716.repop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fc0000) e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) c:RegisterEffect(e1) - Duel.RaiseEvent(c,47408488,e,0,tp,0,0) + Duel.RaiseEvent(c,EVENT_CUSTOM+47408488,e,0,tp,0,0) end function c21698716.filter(c) return c:IsSetCard(0x1034) and c:IsAbleToDeck() and c:IsFaceup() diff --git a/script/c21698718.lua b/script/c21698718.lua deleted file mode 100644 index 05cadbc3..00000000 --- a/script/c21698718.lua +++ /dev/null @@ -1,65 +0,0 @@ ---Advanced Crystal Beast Cobalt Eagle -function c21698718.initial_effect(c) - --Treated as "Crystal Beast Cobalt Eagle" - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_ADD_CODE) - e1:SetValue(21698716) - c:RegisterEffect(e1) - --Return 1 "Crystal Beast" to hand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(21698718,0)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c21698718.returntg) - e2:SetOperation(c21698718.returnop) - c:RegisterEffect(e2) - --Turn into Crystal - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(21698718,1)) - e3:SetCode(EFFECT_SEND_REPLACE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c21698718.crystaltg) - e3:SetOperation(c21698718.crystalop) - c:RegisterEffect(e3) -end -function c21698718.crystaltg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:GetDestination()==LOCATION_GRAVE and c:IsReason(REASON_DESTROY) end - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return false end - return Duel.SelectEffectYesNo(tp,c) -end -function c21698718.crystalop(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(c) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fc0000) - e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) - c:RegisterEffect(e1) - Duel.RaiseEvent(c,47408488,e,0,tp,0,0) -end -function c21698718.returnfilter(c) - return c:IsSetCard(0x34) and c:IsAbleToHand() and c:IsFaceup() -end -function c21698718.returntg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c21698718.returnfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c21698718.returnfilter,tp,LOCATION_REMOVED+LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOHAND) - local g=Duel.SelectTarget(tp,c21698718.returnfilter,tp,LOCATION_REMOVED+LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c21698718.returnop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c21768554.lua b/script/c21768554.lua index 1bdc4476..46a1ee5e 100644 --- a/script/c21768554.lua +++ b/script/c21768554.lua @@ -29,7 +29,7 @@ function c21768554.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c21768554.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c21768554.filter(c) - return c:GetCounter(0xe)>0 and c:IsControlerCanBeChanged() + return c:GetCounter(0x100e)>0 and c:IsControlerCanBeChanged() end function c21768554.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c21768554.filter(chkc) end @@ -47,7 +47,7 @@ function c21768554.operation(e,tp,eg,ep,ev,re,r,rp) if g:GetCount()>Duel.GetLocationCount(tp,LOCATION_MZONE) then return end local tc=g:GetFirst() while tc do - if tc:IsFaceup() and tc:GetCounter(0xe)>0 and tc:IsRelateToEffect(e) then + if tc:IsFaceup() and tc:GetCounter(0x100e)>0 and tc:IsRelateToEffect(e) then c:SetCardTarget(tc) local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) @@ -65,7 +65,7 @@ end function c21768554.con(e) local c=e:GetOwner() local h=e:GetHandler() - return c:IsHasCardTarget(h) and not c:IsDisabled() and h:GetCounter(0xe)>0 + return c:IsHasCardTarget(h) and not c:IsDisabled() and h:GetCounter(0x100e)>0 end function c21768554.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetFlagEffect(21768554)~=0 diff --git a/script/c21772453.lua b/script/c21772453.lua new file mode 100644 index 00000000..f7d50e0b --- /dev/null +++ b/script/c21772453.lua @@ -0,0 +1,62 @@ +--花札衛－紅葉に鹿－ +function c21772453.initial_effect(c) + c:EnableReviveLimit() + --special summon rule + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_HAND) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetCondition(c21772453.hspcon) + e1:SetOperation(c21772453.hspop) + c:RegisterEffect(e1) + --draw + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(21772453,0)) + e2:SetCategory(CATEGORY_DRAW+CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetTarget(c21772453.target) + e2:SetOperation(c21772453.operation) + c:RegisterEffect(e2) +end +function c21772453.hspfilter(c) + return c:IsSetCard(0xe6) and not c:IsCode(21772453) +end +function c21772453.hspcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.CheckReleaseGroup(c:GetControler(),c21772453.hspfilter,1,nil) +end +function c21772453.hspop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.SelectReleaseGroup(c:GetControler(),c21772453.hspfilter,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c21772453.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c21772453.desfilter(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) +end +function c21772453.operation(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + if Duel.Draw(p,d,REASON_EFFECT)~=0 then + local tc=Duel.GetOperatedGroup():GetFirst() + Duel.ConfirmCards(1-tp,tc) + if tc:IsType(TYPE_MONSTER) and tc:IsSetCard(0xe6) then + local g=Duel.GetMatchingGroup(c21772453.desfilter,tp,0,LOCATION_ONFIELD,nil) + if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(21772453,1)) then + Duel.BreakEffect() + local sg=g:Select(tp,1,1,nil) + Duel.Destroy(sg,REASON_EFFECT) + end + else + Duel.BreakEffect() + Duel.SendtoGrave(tc,REASON_EFFECT) + end + Duel.ShuffleHand(tp) + end +end diff --git a/script/c21785144.lua b/script/c21785144.lua index 651cac3a..a09bcfe6 100644 --- a/script/c21785144.lua +++ b/script/c21785144.lua @@ -12,7 +12,7 @@ function c21785144.initial_effect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(c21785144.value) c:RegisterEffect(e2) --pierce diff --git a/script/c21790410.lua b/script/c21790410.lua index c7d5d531..6cd8543e 100644 --- a/script/c21790410.lua +++ b/script/c21790410.lua @@ -30,7 +30,7 @@ function c21790410.initial_effect(c) c:RegisterEffect(e3) end function c21790410.filter(c) - return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsForbidden() end function c21790410.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 @@ -44,7 +44,7 @@ function c21790410.eqop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectMatchingCard(tp,c21790410.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil) local tc=g:GetFirst() - if tc then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then if not Duel.Equip(tp,tc,c,true) then return end local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) diff --git a/script/c21843307.lua b/script/c21843307.lua index 3bdc21a4..3e5eb5b2 100644 --- a/script/c21843307.lua +++ b/script/c21843307.lua @@ -28,14 +28,16 @@ function c21843307.activate(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,ec:GetCode(),0,0x11,0,0,ec:GetLevel(),RACE_WARRIOR,ATTRIBUTE_LIGHT) then return end - c:AddTrapMonsterAttribute(TYPE_NORMAL,ATTRIBUTE_LIGHT,RACE_WARRIOR,ec:GetLevel(),0,0) + c:AddMonsterAttribute(TYPE_NORMAL+TYPE_TRAP,0,0,ec:GetLevel(),0,0) Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() + --change code local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CHANGE_CODE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetValue(ec:GetCode()) e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) + c:RegisterEffect(e1,true) Duel.SpecialSummonComplete() - c:TrapMonsterBlock() end diff --git a/script/c21879581.lua b/script/c21879581.lua old mode 100755 new mode 100644 diff --git a/script/c21947653.lua b/script/c21947653.lua index b6cae803..99aa30bc 100644 --- a/script/c21947653.lua +++ b/script/c21947653.lua @@ -1,41 +1,41 @@ ---E－HERO ライトニング・ゴーレム -function c21947653.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode2(c,20721928,84327329,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c21947653.splimit) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(21947653,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetTarget(c21947653.target) - e2:SetOperation(c21947653.operation) - c:RegisterEffect(e2) -end -c21947653.dark_calling=true -function c21947653.splimit(e,se,sp,st) - return st==SUMMON_TYPE_FUSION+0x10 -end -function c21947653.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c21947653.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end +--E－HERO ライトニング・ゴーレム +function c21947653.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcCode2(c,20721928,84327329,true,true) + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(c21947653.splimit) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(21947653,0)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetCountLimit(1) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetTarget(c21947653.target) + e2:SetOperation(c21947653.operation) + c:RegisterEffect(e2) +end +c21947653.dark_calling=true +function c21947653.splimit(e,se,sp,st) + return st==SUMMON_TYPE_FUSION+0x10 +end +function c21947653.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c21947653.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end end \ No newline at end of file diff --git a/script/c21954587.lua b/script/c21954587.lua index bf719687..34715b78 100644 --- a/script/c21954587.lua +++ b/script/c21954587.lua @@ -45,9 +45,10 @@ function c21954587.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c21954587.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c21954587.thcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c2196767.lua b/script/c2196767.lua index 3837add6..4b739a6c 100644 --- a/script/c2196767.lua +++ b/script/c2196767.lua @@ -1,34 +1,34 @@ ---伝説の賭博師 -function c2196767.initial_effect(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(2196767,0)) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_HANDES+CATEGORY_COIN) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c2196767.destg) - e1:SetOperation(c2196767.desop) - c:RegisterEffect(e1) -end -function c2196767.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,3) -end -function c2196767.desop(e,tp,eg,ep,ev,re,r,rp) - local c1,c2,c3=Duel.TossCoin(tp,3) - if c1+c2+c3==3 then - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) - elseif c1+c2+c3==2 then - local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND):RandomSelect(tp,1) - Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD) - elseif c1+c2+c3==1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.Destroy(g,REASON_EFFECT) - else - local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD) - end -end +--伝説の賭博師 +function c2196767.initial_effect(c) + --destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(2196767,0)) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_HANDES+CATEGORY_COIN) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetTarget(c2196767.destg) + e1:SetOperation(c2196767.desop) + c:RegisterEffect(e1) +end +function c2196767.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,3) +end +function c2196767.desop(e,tp,eg,ep,ev,re,r,rp) + local c1,c2,c3=Duel.TossCoin(tp,3) + if c1+c2+c3==3 then + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.Destroy(g,REASON_EFFECT) + elseif c1+c2+c3==2 then + local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND):RandomSelect(tp,1) + Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD) + elseif c1+c2+c3==1 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,0,1,1,nil) + Duel.Destroy(g,REASON_EFFECT) + else + local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0) + Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD) + end +end diff --git a/script/c21977828.lua b/script/c21977828.lua index 9a7c9fad..e0b2ea35 100644 --- a/script/c21977828.lua +++ b/script/c21977828.lua @@ -13,7 +13,7 @@ function c21977828.initial_effect(c) --equip effect local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_SET_BASE_DEFENCE) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) e2:SetValue(2600) c:RegisterEffect(e2) --special summon diff --git a/script/c21999001.lua b/script/c21999001.lua new file mode 100644 index 00000000..c3f6f1e9 --- /dev/null +++ b/script/c21999001.lua @@ -0,0 +1,77 @@ +--光波双顎機 +function c21999001.initial_effect(c) + --special summon rule + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c21999001.sprcon) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(21999001,0)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1,21999001) + e2:SetCost(c21999001.spcost) + e2:SetTarget(c21999001.sptg) + e2:SetOperation(c21999001.spop) + c:RegisterEffect(e2) +end +function c21999001.sprcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 + and Duel.IsExistingMatchingCard(aux.FilterEqualFunction(Card.GetSummonLocation,LOCATION_EXTRA),tp,0,LOCATION_MZONE,1,nil) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 +end +function c21999001.costfilter(c,e,tp) + return c:IsDiscardable() and Duel.IsExistingMatchingCard(c21999001.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,c,e,tp) +end +function c21999001.spfilter(c,e,tp) + return c:IsSetCard(0xe5) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c21999001.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(1) + return true +end +function c21999001.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return false end + if e:GetLabel()~=0 then + e:SetLabel(0) + return Duel.IsExistingMatchingCard(c21999001.costfilter,tp,LOCATION_HAND,0,1,nil,e,tp) + else + return Duel.IsExistingMatchingCard(c21999001.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) + end + end + if e:GetLabel()~=0 then + e:SetLabel(0) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) + local g=Duel.SelectMatchingCard(tp,c21999001.costfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp) + Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD) + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) +end +function c21999001.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c21999001.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetTargetRange(1,0) + e1:SetTarget(c21999001.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c21999001.splimit(e,c) + return not c:IsSetCard(0xe5) +end diff --git a/script/c22011689.lua b/script/c22011689.lua new file mode 100644 index 00000000..f9cb4b6d --- /dev/null +++ b/script/c22011689.lua @@ -0,0 +1,82 @@ +--捕食植物モーレイ・ネペンテス +function c22011689.initial_effect(c) + --atk + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(c22011689.atkval) + c:RegisterEffect(e1) + --equip + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(22011689,0)) + e2:SetCategory(CATEGORY_EQUIP) + e2:SetCode(EVENT_BATTLE_DESTROYING) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCondition(aux.bdocon) + e2:SetTarget(c22011689.eqtg) + e2:SetOperation(c22011689.eqop) + c:RegisterEffect(e2) + --destroy + lp gain + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(22011689,1)) + e3:SetCategory(CATEGORY_DESTROY+CATEGORY_RECOVER) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetTarget(c22011689.target) + e3:SetOperation(c22011689.operation) + c:RegisterEffect(e3) +end +function c22011689.atkval(e,c) + return Duel.GetCounter(0,1,1,0x1041)*200 +end +function c22011689.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end + local bc=e:GetHandler():GetBattleTarget() + Duel.SetTargetCard(bc) + Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,bc,1,0,0) +end +function c22011689.eqop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) then + if not Duel.Equip(tp,tc,c,false) then return end + --Add Equip limit + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) + e1:SetCode(EFFECT_EQUIP_LIMIT) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(c22011689.eqlimit) + tc:RegisterEffect(e1) + tc:RegisterFlagEffect(22011689,RESET_EVENT+0x1fe0000,0,1) + end +end +function c22011689.eqlimit(e,c) + return e:GetOwner()==c +end +function c22011689.desfilter(c,ec) + return c:GetFlagEffect(22011689)~=0 and c:GetEquipTarget()==ec and bit.band(c:GetOriginalType(),TYPE_MONSTER)~=0 +end +function c22011689.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local c=e:GetHandler() + if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and c22011689.desfilter(chkc,c) end + if chk==0 then return Duel.IsExistingTarget(c22011689.desfilter,tp,LOCATION_SZONE,0,1,nil,c) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c22011689.desfilter,tp,LOCATION_SZONE,0,1,1,nil,c) + local atk=g:GetFirst():GetTextAttack() + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + if atk>0 then + Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,atk) + end +end +function c22011689.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + local atk=tc:GetTextAttack() + Duel.Recover(tp,atk,REASON_EFFECT) + end +end diff --git a/script/c2203790.lua b/script/c2203790.lua index d515de15..800d835e 100644 --- a/script/c2203790.lua +++ b/script/c2203790.lua @@ -19,7 +19,7 @@ function c2203790.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO end function c2203790.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c2203790.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c2203790.filter(chkc) end diff --git a/script/c22047978.lua b/script/c22047978.lua index fca2f552..7d1432be 100644 --- a/script/c22047978.lua +++ b/script/c22047978.lua @@ -15,31 +15,37 @@ function c22047978.condition(e,tp,eg,ep,ev,re,r,rp) end function c22047978.target(e,tp,eg,ep,ev,re,r,rp,chk) local tg=Duel.GetAttacker() - if chk==0 then return tg:IsOnField() and tg:IsDestructable() end + if chk==0 then return tg:IsOnField() end Duel.SetTargetCard(tg) if Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)==0 then Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) end end function c22047978.cfilter(c) - return c:IsType(TYPE_MONSTER) and not c:IsPublic() + return not c:IsPublic() and c:IsType(TYPE_MONSTER) end function c22047978.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsAttackable() and not tc:IsStatus(STATUS_ATTACK_CANCELED) then + if Duel.IsChainDisablable(0) then + local sel=1 local g=Duel.GetMatchingGroup(c22047978.cfilter,1-tp,LOCATION_HAND,0,nil) - if g:GetCount()>0 and Duel.SelectYesNo(1-tp,aux.Stringid(22047978,0)) then + Duel.Hint(HINT_SELECTMSG,1-tp,aux.Stringid(22047978,0)) + if g:GetCount()>0 then + sel=Duel.SelectOption(1-tp,1213,1214) + else + sel=Duel.SelectOption(1-tp,1214)+1 + end + if sel==0 then Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_CONFIRM) local cg=g:Select(1-tp,1,1,nil) Duel.ConfirmCards(tp,cg) Duel.ShuffleHand(1-tp) - if Duel.IsChainDisablable(0) then - Duel.NegateEffect(0) - return - end - end - if Duel.Destroy(tc,REASON_EFFECT)>0 then - Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) + Duel.NegateEffect(0) + return end end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsAttackable() and not tc:IsStatus(STATUS_ATTACK_CANCELED) + and Duel.Destroy(tc,REASON_EFFECT)>0 then + Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) + end end diff --git a/script/c22061412.lua b/script/c22061412.lua index 32d89280..fbd06694 100644 --- a/script/c22061412.lua +++ b/script/c22061412.lua @@ -40,7 +40,7 @@ function c22061412.thcon(e,tp,eg,ep,ev,re,r,rp) return bit.band(e:GetHandler():GetPreviousLocation(),LOCATION_ONFIELD)>0 end function c22061412.filter(c) - return c:IsFaceup() and c:IsSetCard(0x3008) and c:IsAbleToHand() + return c:IsFaceup() and c:IsSetCard(0x3008) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c22061412.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:GetControler()==tp and chkc:IsLocation(LOCATION_REMOVED) and c22061412.filter(chkc) end diff --git a/script/c22082163.lua b/script/c22082163.lua index 6baaa230..f010edc7 100644 --- a/script/c22082163.lua +++ b/script/c22082163.lua @@ -24,21 +24,12 @@ function c22082163.initial_effect(c) e3:SetCondition(c22082163.descon2) e3:SetOperation(c22082163.desop2) c:RegisterEffect(e3) - --cannot bp - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_CANNOT_EP) - e4:SetRange(LOCATION_SZONE) - e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e4:SetTargetRange(1,0) - e4:SetCondition(c22082163.becon) - c:RegisterEffect(e4) end function c22082163.filter(c,e,tp) return c:IsSetCard(0x4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c22082163.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:GetControler()==tp and c22082163.filter(chkc,e,tp) end + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:GetControler()==tp and c22082163.filter(chkc,e,tp) end if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c22082163.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) @@ -48,9 +39,10 @@ end function c22082163.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK)==0 then return end + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) @@ -68,10 +60,6 @@ end function c22082163.cpcon(e) return e:GetOwner():IsHasCardTarget(e:GetHandler()) end -function c22082163.becon(e) - local tc=e:GetHandler():GetFirstCardTarget() - return tc and tc:IsAttackable() -end function c22082163.desop(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetHandler():GetFirstCardTarget() if tc and tc:IsLocation(LOCATION_MZONE) then diff --git a/script/c22110647.lua b/script/c22110647.lua index ee075910..828ac863 100644 --- a/script/c22110647.lua +++ b/script/c22110647.lua @@ -47,12 +47,14 @@ function c22110647.spcost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c22110647.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,0x4011,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c22110647.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 then return end if Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,0x4011,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) then local token1=Duel.CreateToken(tp,22110648) @@ -74,15 +76,12 @@ function c22110647.descost(e,tp,eg,ep,ev,re,r,rp,chk) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e:GetHandler():RegisterEffect(e1) end -function c22110647.filter(c) - return c:IsDestructable() -end function c22110647.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c22110647.filter(chkc) end + if chkc then return chkc:IsOnField() end if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)>1 - and Duel.IsExistingTarget(c22110647.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + and Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c22110647.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c22110647.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c22123627.lua b/script/c22123627.lua index 5f69ee8d..c8686624 100644 --- a/script/c22123627.lua +++ b/script/c22123627.lua @@ -23,11 +23,7 @@ end function c22123627.activate(e,tp,eg,ep,ev,re,r,rp) local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) local g=Duel.GetMatchingGroup(c22123627.filter,p,LOCATION_HAND,0,nil) - if g:GetCount()<2 then - local hg=Duel.GetFieldGroup(p,LOCATION_HAND,0) - Duel.ConfirmCards(1-p,hg) - Duel.ShuffleHand(p) - else + if g:GetCount()>=2 then Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK) local sg=g:Select(p,2,2,nil) Duel.ConfirmCards(1-p,sg) diff --git a/script/c22147147.lua b/script/c22147147.lua index e29f9abd..370e1eb6 100644 --- a/script/c22147147.lua +++ b/script/c22147147.lua @@ -52,7 +52,7 @@ function c22147147.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetAttacker()==e:GetHandler():GetEquipTarget() end function c22147147.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c22147147.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c22147147.desfilter(chkc) end diff --git a/script/c22160245.lua b/script/c22160245.lua index 6ab7dca9..cd85c3dc 100644 --- a/script/c22160245.lua +++ b/script/c22160245.lua @@ -36,7 +36,7 @@ function c22160245.damtg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() local bc=c:GetBattleTarget() local dam=bc:GetAttack() - if bc:GetAttack() < bc:GetDefence() then dam=bc:GetDefence() end + if bc:GetAttack() < bc:GetDefense() then dam=bc:GetDefense() end if dam<0 then dam=0 end Duel.SetTargetPlayer(1-tp) Duel.SetTargetParam(dam) diff --git a/script/c22174866.lua b/script/c22174866.lua old mode 100755 new mode 100644 index a20d343d..985ad755 --- a/script/c22174866.lua +++ b/script/c22174866.lua @@ -10,7 +10,7 @@ function c22174866.initial_effect(c) e1:SetValue(-500) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) --to hand local e3=Effect.CreateEffect(c) diff --git a/script/c22200403.lua b/script/c22200403.lua old mode 100755 new mode 100644 index bd16601a..03e0b99d --- a/script/c22200403.lua +++ b/script/c22200403.lua @@ -11,7 +11,7 @@ function c22200403.initial_effect(c) e1:SetLabel(1) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) --destroy local e3=Effect.CreateEffect(c) @@ -33,20 +33,14 @@ function c22200403.initial_effect(c) e4:SetCondition(c22200403.effcon) e4:SetLabel(3) c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_MUST_BE_ATTACKED) - e5:SetCondition(c22200403.effcon) - e5:SetValue(aux.imval1) - e5:SetLabel(3) + local e5=e4:Clone() + e5:SetCode(EFFECT_MUST_ATTACK_MONSTER) c:RegisterEffect(e5) local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_FIELD) - e6:SetCode(EFFECT_CANNOT_EP) - e6:SetRange(LOCATION_MZONE) - e6:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e6:SetTargetRange(0,1) - e6:SetCondition(c22200403.atcon) + e6:SetType(EFFECT_TYPE_SINGLE) + e6:SetCode(EFFECT_MUST_BE_ATTACKED) + e6:SetCondition(c22200403.effcon) + e6:SetValue(1) e6:SetLabel(3) c:RegisterEffect(e6) --draw @@ -93,10 +87,6 @@ function c22200403.desop(e,tp,eg,ep,ev,re,r,rp) Duel.Destroy(tc,REASON_EFFECT) end end -function c22200403.atcon(e) - return c22200403.effcon(e) - and Duel.IsExistingMatchingCard(Card.IsAttackable,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil) -end function c22200403.drcon1(e,tp,eg,ep,ev,re,r,rp) return c22200403.effcon(e) and e:GetHandler():IsRelateToBattle() diff --git a/script/c22205600.lua b/script/c22205600.lua old mode 100755 new mode 100644 index 6aa87d3f..2936718c --- a/script/c22205600.lua +++ b/script/c22205600.lua @@ -18,7 +18,7 @@ function c22205600.condition(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c22205600.cfilter,1,nil) end function c22205600.filter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c22205600.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c22205600.filter(chkc) and chkc~=e:GetHandler() end diff --git a/script/c22227683.lua b/script/c22227683.lua index 3b050bee..cf01a5f1 100644 --- a/script/c22227683.lua +++ b/script/c22227683.lua @@ -47,7 +47,7 @@ function c22227683.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end local e3=Effect.CreateEffect(c) @@ -61,19 +61,21 @@ function c22227683.operation(e,tp,eg,ep,ev,re,r,rp) end function c22227683.spfilter1(c,e,tp) return c:IsSetCard(0xab) and c:IsType(TYPE_MONSTER) - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(c22227683.spfilter2,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,c,e,tp,c:GetLevel()) end function c22227683.spfilter2(c,e,tp,lv) return c:IsSetCard(0xab) and c:IsType(TYPE_MONSTER) and c:GetLevel()~=lv - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c22227683.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c22227683.spfilter1,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_GRAVE+LOCATION_HAND) end function c22227683.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g1=Duel.SelectMatchingCard(tp,c22227683.spfilter1,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) @@ -82,6 +84,7 @@ function c22227683.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g2=Duel.SelectMatchingCard(tp,c22227683.spfilter2,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,tc,e,tp,tc:GetLevel()) g1:Merge(g2) - Duel.SpecialSummon(g1,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + if g1:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end + Duel.SpecialSummon(g1,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c22318971.lua b/script/c22318971.lua old mode 100755 new mode 100644 index 4c2a7202..9a338584 --- a/script/c22318971.lua +++ b/script/c22318971.lua @@ -13,7 +13,7 @@ function c22318971.initial_effect(c) c:RegisterEffect(e1) end function c22318971.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPosition(POS_FACEUP_DEFENCE) + return e:GetHandler():IsPosition(POS_FACEUP_DEFENSE) end function c22318971.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_MZONE,0,1,e:GetHandler()) end diff --git a/script/c22339232.lua b/script/c22339232.lua index 82d167a5..8d1f5ef4 100644 --- a/script/c22339232.lua +++ b/script/c22339232.lua @@ -36,8 +36,7 @@ function c22339232.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) end function c22339232.tgfilter(c) - local code=c:GetCode() - return c:IsFaceup() and (code==32274490 or code==22339232) + return c:IsFaceup() and c:IsCode(32274490,22339232) end function c22339232.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c22339232.tgfilter(chkc) end @@ -53,8 +52,7 @@ function c22339232.tgop(e,tp,eg,ep,ev,re,r,rp) end end function c22339232.spfilter(c,e,tp) - local code=c:GetCode() - return c:IsFaceup() and (code==36021814 or code==40991587) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsFaceup() and c:IsCode(36021814,40991587) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c22339232.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c22339232.spfilter(chkc,e,tp) end diff --git a/script/c22346472.lua b/script/c22346472.lua index 43c46a80..8eb0c4e9 100644 --- a/script/c22346472.lua +++ b/script/c22346472.lua @@ -26,7 +26,7 @@ function c22346472.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(1000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end diff --git a/script/c22359980.lua b/script/c22359980.lua old mode 100755 new mode 100644 index 95cf7c37..8dc26af4 --- a/script/c22359980.lua +++ b/script/c22359980.lua @@ -68,9 +68,9 @@ function c22359980.mtcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c22359980.mtop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLP(tp)>2000 and Duel.SelectYesNo(tp,aux.Stringid(22359980,0)) then + if Duel.CheckLPCost(tp,2000) and Duel.SelectYesNo(tp,aux.Stringid(22359980,0)) then Duel.PayLPCost(tp,2000) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end diff --git a/script/c22382087.lua b/script/c22382087.lua index 86be7016..09bf6b55 100644 --- a/script/c22382087.lua +++ b/script/c22382087.lua @@ -38,9 +38,6 @@ function c22382087.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c22382087.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) @@ -49,6 +46,11 @@ function c22382087.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetTargetRange(1,0) e1:SetTarget(c22382087.splimit) Duel.RegisterEffect(e1,tp) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end end function c22382087.splimit(e,c,sump,sumtype,sumpos,targetp,se) return c:IsLocation(LOCATION_EXTRA) @@ -57,7 +59,7 @@ function c22382087.thcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsReason(REASON_SUMMON) end function c22382087.filter(c) - return c:GetAttack()==800 and c:GetDefence()==1000 and not c:IsCode(22382087) and c:IsAbleToHand() + return c:GetAttack()==800 and c:GetDefense()==1000 and not c:IsCode(22382087) and c:IsAbleToHand() end function c22382087.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c22382087.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c22404675.lua b/script/c22404675.lua old mode 100755 new mode 100644 index 69e85181..d5907092 --- a/script/c22404675.lua +++ b/script/c22404675.lua @@ -21,7 +21,8 @@ function c22404675.initial_effect(c) c:RegisterEffect(e2) end function c22404675.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsPlayerCanSpecialSummonMonster(tp,22404676,0,0x4011,800,1000,1,RACE_THUNDER,ATTRIBUTE_LIGHT) end @@ -30,7 +31,7 @@ function c22404675.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c22404675.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then + if not Duel.IsPlayerAffectedByEffect(tp,59822133) and c:IsRelateToEffect(e) then if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) else @@ -39,7 +40,7 @@ function c22404675.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp)>0 and Duel.IsPlayerCanSpecialSummonMonster(tp,22404676,0,0x4011,800,1000,1,RACE_THUNDER,ATTRIBUTE_LIGHT) then local token=Duel.CreateToken(tp,22404676) - Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) end Duel.SpecialSummonComplete() end diff --git a/script/c22446869.lua b/script/c22446869.lua index c187ad13..c5d01b0d 100644 --- a/script/c22446869.lua +++ b/script/c22446869.lua @@ -36,9 +36,10 @@ function c22446869.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c22446869.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c22446869.thcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c22479888.lua b/script/c22479888.lua index 9c3fa407..258b5c28 100644 --- a/script/c22479888.lua +++ b/script/c22479888.lua @@ -19,8 +19,8 @@ function c22479888.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local a=Duel.GetAttacker() local at=Duel.GetAttackTarget() if chkc then return false end - if chk==0 then return a:IsOnField() and a:IsDestructable() and a:IsCanBeEffectTarget(e) - and at:IsOnField() and at:IsDestructable() and at:IsCanBeEffectTarget(e) end + if chk==0 then return a:IsOnField() and a:IsCanBeEffectTarget(e) + and at:IsOnField() and at:IsCanBeEffectTarget(e) end if at:IsFacedown() then Duel.ConfirmCards(1-tp,at) end diff --git a/script/c22493811.lua b/script/c22493811.lua index 840aee2b..96d1f574 100644 --- a/script/c22493811.lua +++ b/script/c22493811.lua @@ -16,12 +16,14 @@ function c22493811.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c22493811.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsPlayerCanSpecialSummonMonster(tp,22493812,0,0x4011,500,1200,4,RACE_INSECT,ATTRIBUTE_EARTH) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c22493811.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,22493812,0,0x4011,500,1200,4,RACE_INSECT,ATTRIBUTE_EARTH) then for i=1,2 do diff --git a/script/c2250266.lua b/script/c2250266.lua index a0013bd4..d2664501 100644 --- a/script/c2250266.lua +++ b/script/c2250266.lua @@ -68,7 +68,7 @@ function c2250266.atlimit(e,c) return c~=e:GetHandler() end function c2250266.cond(e) - return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefencePos() + return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefensePos() end function c2250266.filter(c) return c:IsFaceup() and c:IsAttackPos() @@ -84,7 +84,7 @@ function c2250266.opd2(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() local c=e:GetHandler() if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsAttackPos() - and Duel.ChangePosition(tc,POS_FACEUP_DEFENCE)~=0 and c:IsRelateToBattle() then + and Duel.ChangePosition(tc,POS_FACEUP_DEFENSE)~=0 and c:IsRelateToBattle() then Duel.ChangePosition(e:GetHandler(),POS_FACEUP_ATTACK,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c22567609.lua b/script/c22567609.lua index 7f2135e8..ba35f59a 100644 --- a/script/c22567609.lua +++ b/script/c22567609.lua @@ -29,9 +29,9 @@ function c22567609.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c22567609.filter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(22567609,1)) then Duel.BreakEffect() - Duel.SpecialSummonStep(g:GetFirst(),0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummonStep(g:GetFirst(),0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) if ft>1 and g:GetCount()>1 and Duel.SelectYesNo(tp,aux.Stringid(22567609,1)) then - Duel.SpecialSummonStep(g:GetNext(),0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummonStep(g:GetNext(),0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) end Duel.SpecialSummonComplete() end diff --git a/script/c22617205.lua b/script/c22617205.lua index 2bc2333a..ee863583 100644 --- a/script/c22617205.lua +++ b/script/c22617205.lua @@ -7,10 +7,9 @@ function c22617205.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_PZONE) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetTargetRange(1,0) e2:SetTarget(c22617205.splimit) - e2:SetCondition(aux.nfbdncon) c:RegisterEffect(e2) --destroy local e3=Effect.CreateEffect(c) @@ -40,10 +39,10 @@ end function c22617205.filter1(c) return ((c:IsLocation(LOCATION_MZONE) and c:IsFaceup()) or (c:IsLocation(LOCATION_SZONE) and (c:GetSequence()==6 or c:GetSequence()==7))) - and (c:IsSetCard(0x9c) or c:IsSetCard(0xc4)) and c:IsDestructable() + and (c:IsSetCard(0x9c) or c:IsSetCard(0xc4)) end function c22617205.filter2(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c22617205.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c22624373.lua b/script/c22624373.lua index 439aae78..7fb0e89c 100644 --- a/script/c22624373.lua +++ b/script/c22624373.lua @@ -28,7 +28,7 @@ function c22624373.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsPosition(POS_FACEUP_ATTACK) end function c22624373.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c22624373.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c22624373.filter(chkc) end @@ -41,7 +41,7 @@ function c22624373.desop(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() local tc=Duel.GetFirstTarget() if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) if tc:IsRelateToEffect(e) then Duel.Destroy(tc,REASON_EFFECT) end diff --git a/script/c22628574.lua b/script/c22628574.lua old mode 100755 new mode 100644 diff --git a/script/c22638495.lua b/script/c22638495.lua old mode 100755 new mode 100644 index 10f68263..90db3159 --- a/script/c22638495.lua +++ b/script/c22638495.lua @@ -49,7 +49,7 @@ function c22638495.splimit(e,se,sp,st) return e:GetHandler():GetLocation()~=LOCATION_EXTRA end function c22638495.spfilter1(c,tp,fc) - return c:IsSetCard(0xc7) and c:IsType(TYPE_PENDULUM) and c:IsCanBeFusionMaterial(fc) + return c:IsFusionSetCard(0xc7) and c:IsType(TYPE_PENDULUM) and c:IsCanBeFusionMaterial(fc) and Duel.CheckReleaseGroup(tp,c22638495.spfilter2,1,c,fc) end function c22638495.spfilter2(c,fc) diff --git a/script/c22648577.lua b/script/c22648577.lua deleted file mode 100644 index 7794c550..00000000 --- a/script/c22648577.lua +++ /dev/null @@ -1,42 +0,0 @@ ---DDDの人事権 -function c22648577.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c22648577.target) - e1:SetOperation(c22648577.operation) - c:RegisterEffect(e1) -end -function c22648577.filter(c) - if c:IsLocation(LOCATION_MZONE) and c:IsFacedown() then return false end - if c:IsLocation(LOCATION_SZONE) then - if c:GetSequence()<6 then return false end - elseif not c:IsType(TYPE_MONSTER) then return false end - return c:IsSetCard(0xaf) and c:IsAbleToDeck() -end -function c22648577.thfilter(c) - return c:IsSetCard(0xaf) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c22648577.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c22648577.filter,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_HAND,0,3,nil) end - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,3,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_HAND) -end -function c22648577.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c22648577.filter,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_HAND,0,nil) - if g:GetCount()<3 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local sg=g:Select(tp,3,3,nil) - local cg=sg:Filter(Card.IsLocation,nil,LOCATION_HAND) - Duel.ConfirmCards(1-tp,cg) - Duel.SendtoDeck(sg,nil,0,REASON_EFFECT) - local dg=Duel.GetMatchingGroup(c22648577.thfilter,tp,LOCATION_DECK,0,nil) - if dg:GetCount()>1 and Duel.SelectYesNo(tp,aux.Stringid(22648577,0)) then - Duel.BreakEffect() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local tg=dg:Select(tp,2,2,nil) - Duel.SendtoHand(tg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tg) - end -end diff --git a/script/c22702055.lua b/script/c22702055.lua index 5ad1df11..8d676996 100644 --- a/script/c22702055.lua +++ b/script/c22702055.lua @@ -15,7 +15,7 @@ function c22702055.initial_effect(c) c:RegisterEffect(e2) --Def local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end function c22702055.val(e,c) diff --git a/script/c2273734.lua b/script/c2273734.lua index 5e77de81..a73f84d5 100644 --- a/script/c2273734.lua +++ b/script/c2273734.lua @@ -32,7 +32,7 @@ end function c2273734.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD) diff --git a/script/c22747316.lua b/script/c22747316.lua index 5eeecffe..47c45b27 100644 --- a/script/c22747316.lua +++ b/script/c22747316.lua @@ -22,7 +22,7 @@ function c22747316.target(e,tp,eg,ep,ev,re,r,rp,chk) end end function c22747316.filter(c,code) - return c:IsCode(code) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(code) and c:IsAbleToHand() end function c22747316.activate(e,tp,eg,ep,ev,re,r,rp) local code=re:GetHandler():GetCode() @@ -35,6 +35,7 @@ function c22747316.activate(e,tp,eg,ep,ev,re,r,rp) Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local sg=g:Select(tp,1,1,nil) + if sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SendtoHand(sg,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,sg) end diff --git a/script/c22751868.lua b/script/c22751868.lua index d7dc5bec..cfbcce65 100644 --- a/script/c22751868.lua +++ b/script/c22751868.lua @@ -40,7 +40,7 @@ end function c22751868.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetAttackTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end function c22751868.spcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c22765132.lua b/script/c22765132.lua index ec33ce7b..bb5a822f 100644 --- a/script/c22765132.lua +++ b/script/c22765132.lua @@ -14,7 +14,7 @@ function c22765132.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil end function c22765132.filter(c,def) - return c:IsSetCard(0x9f) and c:IsDefenceBelow(def) and c:IsAbleToHand() + return c:IsSetCard(0x9f) and c:IsDefenseBelow(def) and c:IsAbleToHand() end function c22765132.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local at=Duel.GetAttacker() @@ -32,7 +32,7 @@ function c22765132.activate(e,tp,eg,ep,ev,re,r,rp) local g1=Duel.SelectMatchingCard(tp,c22765132.filter,tp,LOCATION_DECK,0,1,1,nil,val) local sc=g1:GetFirst() if sc then - val=val-sc:GetDefence() + val=val-sc:GetDefense() if Duel.IsExistingMatchingCard(c22765132.filter,tp,LOCATION_DECK,0,1,sc,val) and Duel.SelectYesNo(tp,aux.Stringid(22765132,0)) then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) diff --git a/script/c22790789.lua b/script/c22790789.lua index 5bb8115b..de84262a 100644 --- a/script/c22790789.lua +++ b/script/c22790789.lua @@ -1,5 +1,6 @@ --巨大戦艦 クリスタル・コア function c22790789.initial_effect(c) + c:EnableCounterPermit(0x1f) --summon success local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(22790789,0)) @@ -51,7 +52,7 @@ function c22790789.addct(e,tp,eg,ep,ev,re,r,rp,chk) end function c22790789.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x1f+COUNTER_NEED_ENABLE,3) + e:GetHandler():AddCounter(0x1f,3) end end function c22790789.rctcon(e,tp,eg,ep,ev,re,r,rp) @@ -86,6 +87,6 @@ end function c22790789.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsPosition(POS_FACEUP_ATTACK) and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) end end diff --git a/script/c22796548.lua b/script/c22796548.lua old mode 100755 new mode 100644 diff --git a/script/c22804410.lua b/script/c22804410.lua new file mode 100644 index 00000000..77f02a2f --- /dev/null +++ b/script/c22804410.lua @@ -0,0 +1,97 @@ +--ディープアイズ・ホワイト・ドラゴン +function c22804410.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(22804410,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DAMAGE) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e1:SetRange(LOCATION_HAND) + e1:SetCode(EVENT_DESTROYED) + e1:SetCondition(c22804410.spcon) + e1:SetTarget(c22804410.sptg) + e1:SetOperation(c22804410.spop) + c:RegisterEffect(e1) + --atk + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(22804410,1)) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetTarget(c22804410.atktg) + e2:SetOperation(c22804410.atkop) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e4:SetCode(EVENT_DESTROYED) + e4:SetCondition(c22804410.descon) + e4:SetTarget(c22804410.destg) + e4:SetOperation(c22804410.desop) + c:RegisterEffect(e4) +end +function c22804410.spfilter(c,tp) + return c:IsPreviousSetCard(0xdd) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousPosition(POS_FACEUP) + and (c:IsReason(REASON_BATTLE) or c:IsReason(REASON_EFFECT) and c:GetReasonPlayer()~=tp) +end +function c22804410.spcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c22804410.spfilter,1,nil,tp) +end +function c22804410.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.IsExistingMatchingCard(Card.IsRace,tp,LOCATION_GRAVE,0,1,nil,RACE_DRAGON) end + local g=Duel.GetMatchingGroup(Card.IsRace,tp,LOCATION_GRAVE,0,nil,RACE_DRAGON) + local dam=g:GetClassCount(Card.GetCode)*600 + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) +end +function c22804410.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then + local g=Duel.GetMatchingGroup(Card.IsRace,tp,LOCATION_GRAVE,0,nil,RACE_DRAGON) + local dam=g:GetClassCount(Card.GetCode)*600 + Duel.Damage(1-tp,dam,REASON_EFFECT) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c22804410.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and chkc:IsRace(RACE_DRAGON) end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,Card.IsRace,tp,LOCATION_GRAVE,0,1,1,nil,RACE_DRAGON) +end +function c22804410.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if not tc or not tc:IsRelateToEffect(e) then return end + local atk=tc:GetAttack() + if atk>0 and c:IsRelateToEffect(e) and c:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(atk) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + end +end +function c22804410.descon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_EFFECT) and c:IsPreviousLocation(LOCATION_ONFIELD) +end +function c22804410.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c22804410.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c22804644.lua b/script/c22804644.lua index dd65c550..9bd8e5f9 100644 --- a/script/c22804644.lua +++ b/script/c22804644.lua @@ -18,7 +18,7 @@ function c22804644.initial_effect(c) end c22804644.material_trap=57728570 function c22804644.tgfilter(c) - return c:IsFaceup() and c:GetAttack()>=1500 and c:IsDestructable() + return c:IsFaceup() and c:GetAttack()>=1500 end function c22804644.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c22835145.lua b/script/c22835145.lua index 15034942..c3b976ae 100644 --- a/script/c22835145.lua +++ b/script/c22835145.lua @@ -33,6 +33,6 @@ function c22835145.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c22842126.lua b/script/c22842126.lua old mode 100755 new mode 100644 diff --git a/script/c22842214.lua b/script/c22842214.lua index 3b5a37e8..d915a2fe 100644 --- a/script/c22842214.lua +++ b/script/c22842214.lua @@ -31,7 +31,7 @@ function c22842214.initial_effect(c) c:RegisterEffect(e3) end function c22842214.filter(c) - return c:IsFaceup() and c:IsRace(RACE_FISH+RACE_AQUA+RACE_SEASERPENT) + return c:IsFaceup() and c:IsRace(RACE_FISH+RACE_AQUA+RACE_SEASERPENT) and not c:IsForbidden() end function c22842214.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c22842214.filter(chkc) end @@ -54,7 +54,7 @@ function c22842214.eqop(e,tp,eg,ep,ev,re,r,rp) if c:IsFaceup() and c:IsRelateToEffect(e) then local tg=nil if ft0 and Duel.SelectYesNo(tp,aux.Stringid(22900598,0)) then Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=sg:Select(tp,1,1,nil) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + if sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end end diff --git a/script/c22923081.lua b/script/c22923081.lua index 01e15cc7..8a78d9bc 100644 --- a/script/c22923081.lua +++ b/script/c22923081.lua @@ -1,6 +1,6 @@ --黒魔導戦士 ブレイカー function c22923081.initial_effect(c) - c:EnableCounterPermit(0x3001) + c:EnableCounterPermit(0x1) --summon success local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(22923081,0)) @@ -45,25 +45,25 @@ function c22923081.initial_effect(c) end function c22923081.addtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,e:GetLabel(),0,0x3001) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,e:GetLabel(),0,0x1) end function c22923081.addop(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x3001,e:GetLabel()) + e:GetHandler():AddCounter(0x1,e:GetLabel()) end end function c22923081.addcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM end function c22923081.atkval(e,c) - return c:GetCounter(0x3001)*400 + return c:GetCounter(0x1)*400 end function c22923081.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x3001,1,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x3001,1,REASON_COST) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,1,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1,1,REASON_COST) end function c22923081.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c22923081.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c22923081.filter(chkc) end diff --git a/script/c23015896.lua b/script/c23015896.lua index 3d89be09..b65983da 100644 --- a/script/c23015896.lua +++ b/script/c23015896.lua @@ -67,16 +67,13 @@ end function c23015896.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 end -function c23015896.desfilter(c) - return c:IsDestructable() -end function c23015896.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(c23015896.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c23015896.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c23015896.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) end function c23015896.spcon2(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c23064604.lua b/script/c23064604.lua old mode 100755 new mode 100644 index f10c21f2..b2ff4d75 --- a/script/c23064604.lua +++ b/script/c23064604.lua @@ -1,150 +1,149 @@ ---冥帝エレボス -function c23064604.initial_effect(c) - --summon with 1 tribute - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(23064604,0)) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetCondition(c23064604.otcon) - e1:SetOperation(c23064604.otop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_PROC) - c:RegisterEffect(e2) - --to grave - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(23064604,1)) - e3:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TODECK) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetProperty(EFFECT_FLAG_DELAY) - e3:SetCondition(c23064604.tdcon) - e3:SetTarget(c23064604.tdtg) - e3:SetOperation(c23064604.tdop) - c:RegisterEffect(e3) - --tohand - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(23064604,2)) - e4:SetCategory(CATEGORY_TOHAND) - e4:SetType(EFFECT_TYPE_QUICK_O) - e4:SetRange(LOCATION_GRAVE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetCode(EVENT_FREE_CHAIN) - e4:SetCountLimit(1) - e4:SetCondition(c23064604.thcon) - e4:SetCost(c23064604.thcost) - e4:SetTarget(c23064604.thtg) - e4:SetOperation(c23064604.thop) - c:RegisterEffect(e4) -end -function c23064604.otfilter(c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE -end -function c23064604.otcon(e,c) - if c==nil then return true end - local mg=Duel.GetMatchingGroup(c23064604.otfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil) - return c:GetLevel()>6 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 - and Duel.GetTributeCount(c,mg)>0 -end -function c23064604.otop(e,tp,eg,ep,ev,re,r,rp,c) - local mg=Duel.GetMatchingGroup(c23064604.otfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil) - local sg=Duel.SelectTribute(tp,c,1,1,mg) - c:SetMaterial(sg) - Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL) -end -function c23064604.tdcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE -end -function c23064604.tgfilter(c) - return c:IsSetCard(0xbe) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGrave() -end -function c23064604.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local g=Duel.GetMatchingGroup(c23064604.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,nil) - return g:GetClassCount(Card.GetCode)>1 - and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,1,nil) - end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,2,tp,LOCATION_DECK) - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,1-tp,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE) -end -function c23064604.tdop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c23064604.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,nil) - if g:GetClassCount(Card.GetCode)<2 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local tg1=g:Select(tp,1,1,nil) - g:Remove(Card.IsCode,nil,tg1:GetFirst():GetCode()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local tg2=g:Select(tp,1,1,nil) - tg1:Merge(tg2) - if Duel.SendtoGrave(tg1,REASON_EFFECT)~=0 and tg1:IsExists(Card.IsLocation,2,nil,LOCATION_GRAVE) then - local sg=nil - local hg=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_HAND,nil) - local b1=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_HAND,1,nil) - local b2=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,nil) - local b3=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,1,nil) - local op=0 - if not b1 and not b2 and not b3 then return end - if b1 then - if b2 and b3 then - op=Duel.SelectOption(tp,aux.Stringid(23064604,3),aux.Stringid(23064604,4),aux.Stringid(23064604,5)) - elseif b2 and not b3 then - op=Duel.SelectOption(tp,aux.Stringid(23064604,3),aux.Stringid(23064604,4)) - elseif not b2 and b3 then - op=Duel.SelectOption(tp,aux.Stringid(23064604,3),aux.Stringid(23064604,5)) - if op==1 then op=2 end - else - op=0 - end - else - if b2 and b3 then - op=Duel.SelectOption(tp,aux.Stringid(23064604,4),aux.Stringid(23064604,5))+1 - elseif b2 and not b3 then - op=1 - else - op=2 - end - end - if op==0 then - sg=hg:RandomSelect(tp,1) - elseif op==1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - sg=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.HintSelection(sg) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - sg=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,1,1,nil) - Duel.HintSelection(sg) - end - Duel.SendtoDeck(sg,nil,2,REASON_EFFECT) - end -end -function c23064604.thcon(e,tp,eg,ep,ev,re,r,rp) - local ph=Duel.GetCurrentPhase() - return ph==PHASE_MAIN1 or ph==PHASE_MAIN2 -end -function c23064604.cfilter(c) - return c:IsSetCard(0xbe) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDiscardable() -end -function c23064604.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c23064604.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,c23064604.cfilter,1,1,REASON_COST+REASON_DISCARD) -end -function c23064604.thfilter(c) - return c:IsAttackAbove(2400) and c:GetDefence()==1000 and c:IsAbleToHand() -end -function c23064604.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c23064604.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c23064604.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c23064604.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c23064604.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--冥帝エレボス +function c23064604.initial_effect(c) + --summon with 1 tribute + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(23064604,0)) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SUMMON_PROC) + e1:SetCondition(c23064604.otcon) + e1:SetOperation(c23064604.otop) + e1:SetValue(SUMMON_TYPE_ADVANCE) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_SET_PROC) + c:RegisterEffect(e2) + --to grave + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(23064604,1)) + e3:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TODECK) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_SUMMON_SUCCESS) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetCondition(c23064604.tdcon) + e3:SetTarget(c23064604.tdtg) + e3:SetOperation(c23064604.tdop) + c:RegisterEffect(e3) + --tohand + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(23064604,2)) + e4:SetCategory(CATEGORY_TOHAND) + e4:SetType(EFFECT_TYPE_QUICK_O) + e4:SetRange(LOCATION_GRAVE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetCode(EVENT_FREE_CHAIN) + e4:SetCountLimit(1) + e4:SetCondition(c23064604.thcon) + e4:SetCost(c23064604.thcost) + e4:SetTarget(c23064604.thtg) + e4:SetOperation(c23064604.thop) + c:RegisterEffect(e4) +end +function c23064604.otfilter(c) + return bit.band(c:GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE +end +function c23064604.otcon(e,c) + if c==nil then return true end + local mg=Duel.GetMatchingGroup(c23064604.otfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil) + return c:GetLevel()>6 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.GetTributeCount(c,mg)>0 +end +function c23064604.otop(e,tp,eg,ep,ev,re,r,rp,c) + local mg=Duel.GetMatchingGroup(c23064604.otfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil) + local sg=Duel.SelectTribute(tp,c,1,1,mg) + c:SetMaterial(sg) + Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL) +end +function c23064604.tdcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE +end +function c23064604.tgfilter(c) + return c:IsSetCard(0xbe) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGrave() +end +function c23064604.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local g=Duel.GetMatchingGroup(c23064604.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,nil) + return g:GetClassCount(Card.GetCode)>1 + and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,1,nil) + end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,2,tp,LOCATION_DECK) + Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,1-tp,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE) +end +function c23064604.tdop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c23064604.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,nil) + if g:GetClassCount(Card.GetCode)<2 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local tg1=g:Select(tp,1,1,nil) + g:Remove(Card.IsCode,nil,tg1:GetFirst():GetCode()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local tg2=g:Select(tp,1,1,nil) + tg1:Merge(tg2) + if Duel.SendtoGrave(tg1,REASON_EFFECT)~=0 and tg1:IsExists(Card.IsLocation,2,nil,LOCATION_GRAVE) then + local sg=nil + local hg=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_HAND,nil) + local b1=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_HAND,1,nil) + local b2=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,nil) + local b3=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,1,nil) + local op=0 + if not b1 and not b2 and not b3 then return end + if b1 then + if b2 and b3 then + op=Duel.SelectOption(tp,aux.Stringid(23064604,3),aux.Stringid(23064604,4),aux.Stringid(23064604,5)) + elseif b2 and not b3 then + op=Duel.SelectOption(tp,aux.Stringid(23064604,3),aux.Stringid(23064604,4)) + elseif not b2 and b3 then + op=Duel.SelectOption(tp,aux.Stringid(23064604,3),aux.Stringid(23064604,5)) + if op==1 then op=2 end + else + op=0 + end + else + if b2 and b3 then + op=Duel.SelectOption(tp,aux.Stringid(23064604,4),aux.Stringid(23064604,5))+1 + elseif b2 and not b3 then + op=1 + else + op=2 + end + end + if op==0 then + sg=hg:RandomSelect(tp,1) + elseif op==1 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + sg=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.HintSelection(sg) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + sg=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,1,1,nil) + Duel.HintSelection(sg) + end + Duel.SendtoDeck(sg,nil,2,REASON_EFFECT) + end +end +function c23064604.thcon(e,tp,eg,ep,ev,re,r,rp) + local ph=Duel.GetCurrentPhase() + return ph==PHASE_MAIN1 or ph==PHASE_MAIN2 +end +function c23064604.cfilter(c) + return c:IsSetCard(0xbe) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDiscardable() +end +function c23064604.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c23064604.cfilter,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,c23064604.cfilter,1,1,REASON_COST+REASON_DISCARD) +end +function c23064604.thfilter(c) + return c:IsAttackAbove(2400) and c:GetDefense()==1000 and c:IsAbleToHand() +end +function c23064604.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c23064604.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c23064604.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c23064604.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c23064604.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c23093604.lua b/script/c23093604.lua index 3120d4cd..2b79f621 100644 --- a/script/c23093604.lua +++ b/script/c23093604.lua @@ -21,7 +21,7 @@ function c23093604.initial_effect(c) c:RegisterEffect(e2) end function c23093604.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsFaceup() and e:GetHandler():IsDefencePos() and Duel.GetTurnPlayer()~=tp + return e:GetHandler():IsFaceup() and e:GetHandler():IsDefensePos() and Duel.GetTurnPlayer()~=tp end function c23093604.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c23116808.lua b/script/c23116808.lua index ed438f17..a4efb00a 100644 --- a/script/c23116808.lua +++ b/script/c23116808.lua @@ -54,7 +54,7 @@ function c23116808.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 end function c23116808.desfilter(c) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsDestructable() + return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_FIRE) end function c23116808.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c23116808.desfilter(chkc) end @@ -81,7 +81,7 @@ function c23116808.tkop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end if not Duel.IsPlayerCanSpecialSummonMonster(tp,23116809,0,0x4011,100,100,1,RACE_PYRO,ATTRIBUTE_FIRE) then return end local token=Duel.CreateToken(tp,23116809) - Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end function c23116808.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsAttribute,1,e:GetHandler(),ATTRIBUTE_FIRE) end diff --git a/script/c2314238.lua b/script/c2314238.lua index b691270d..193608e4 100644 --- a/script/c2314238.lua +++ b/script/c2314238.lua @@ -10,6 +10,7 @@ function c2314238.initial_effect(c) e1:SetOperation(c2314238.activate) c:RegisterEffect(e1) end +c2314238.card_code_list={46986414} function c2314238.cfilter(c) return c:IsFaceup() and c:IsCode(46986414) end @@ -17,7 +18,7 @@ function c2314238.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c2314238.cfilter,tp,LOCATION_ONFIELD,0,1,nil) end function c2314238.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c2314238.target(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() diff --git a/script/c23160024.lua b/script/c23160024.lua new file mode 100644 index 00000000..abb21ab5 --- /dev/null +++ b/script/c23160024.lua @@ -0,0 +1,103 @@ +--アモルファスP +function c23160024.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --atk/def up + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetRange(LOCATION_FZONE) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xe0)) + e2:SetValue(300) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e3) + --draw + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e4:SetRange(LOCATION_FZONE) + e4:SetCode(EVENT_RELEASE) + e4:SetProperty(EFFECT_FLAG_DELAY) + e4:SetCountLimit(2) + e4:SetCondition(c23160024.drcon) + e4:SetOperation(c23160024.drop) + c:RegisterEffect(e4) + --ritural + local e5=Effect.CreateEffect(c) + e5:SetCategory(CATEGORY_SPECIAL_SUMMON) + e5:SetType(EFFECT_TYPE_IGNITION) + e5:SetRange(LOCATION_GRAVE) + e5:SetCost(c23160024.spcost) + e5:SetTarget(c23160024.sptg) + e5:SetOperation(c23160024.spop) + c:RegisterEffect(e5) +end +function c23160024.cfilter(c,tp) + return c:IsPreviousSetCard(0xe0) and c:IsReason(REASON_RELEASE) and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp +end +function c23160024.drcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c23160024.cfilter,1,nil,tp) +end +function c23160024.drop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_CARD,0,e:GetHandler():GetCode()) + Duel.Draw(tp,1,REASON_EFFECT) +end +function c23160024.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c23160024.spfilter(c,e,tp,m,ft) + if not c:IsCode(98287529) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end + local mg=m:Filter(Card.IsCanBeRitualMaterial,c,c) + if ft>0 then + return mg:CheckWithSumEqual(Card.GetRitualLevel,8,1,99,c) + else + return mg:IsExists(c23160024.mfilterf,1,nil,tp,mg,c) + end +end +function c23160024.mfilterf(c,tp,mg,rc) + if c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) then + Duel.SetSelectedCard(c) + return mg:CheckWithSumEqual(Card.GetRitualLevel,8,0,99,rc) + else return false end +end +function c23160024.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local mg=Duel.GetRitualMaterial(tp):Filter(Card.IsType,nil,TYPE_PENDULUM) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + return ft>-1 and Duel.IsExistingMatchingCard(c23160024.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp,mg,ft) + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c23160024.spop(e,tp,eg,ep,ev,re,r,rp) + local mg=Duel.GetRitualMaterial(tp):Filter(Card.IsType,nil,TYPE_PENDULUM) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c23160024.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg,ft) + local tc=g:GetFirst() + if tc then + mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc) + local mat=nil + if ft>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,8,1,99,tc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:FilterSelect(tp,c23160024.mfilterf,1,1,nil,tp,mg,tc) + Duel.SetSelectedCard(mat) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local mat2=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,8,0,99,tc) + mat:Merge(mat2) + end + tc:SetMaterial(mat) + Duel.ReleaseRitualMaterial(mat) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP) + tc:CompleteProcedure() + end +end diff --git a/script/c23166823.lua b/script/c23166823.lua index 4abf12d5..f5e8b680 100644 --- a/script/c23166823.lua +++ b/script/c23166823.lua @@ -8,10 +8,9 @@ function c23166823.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_PZONE) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetTargetRange(1,0) e2:SetTarget(c23166823.splimit) - e2:SetCondition(aux.nfbdncon) c:RegisterEffect(e2) --to hand local e3=Effect.CreateEffect(c) diff --git a/script/c23168060.lua b/script/c23168060.lua index 982cce5a..8dcc4672 100644 --- a/script/c23168060.lua +++ b/script/c23168060.lua @@ -21,7 +21,7 @@ function c23168060.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CHANGE_LEVEL) e1:SetValue(3) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) c:RegisterEffect(e1) end end diff --git a/script/c23187256.lua b/script/c23187256.lua old mode 100755 new mode 100644 index 95ffaee2..d1eed864 --- a/script/c23187256.lua +++ b/script/c23187256.lua @@ -44,32 +44,59 @@ end function c23187256.xyzfilter2(c,rk) return c:GetRank()==rk end -function c23187256.xyzcon(e,c,og) +function c23187256.xyzcon(e,c,og,min,max) if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local ct=math.max(1,-ft) - local mg=Duel.GetMatchingGroup(c23187256.mfilter,tp,LOCATION_MZONE,0,nil,c) - return mg:IsExists(c23187256.xyzfilter1,1,nil,mg,ct) + local minc=2 + local maxc=64 + if min then + minc=math.max(minc,min) + maxc=max + end + local ct=math.max(minc-1,-ft) + local mg=nil + if og then + mg=og:Filter(c23187256.mfilter,nil,c) + else + mg=Duel.GetMatchingGroup(c23187256.mfilter,tp,LOCATION_MZONE,0,nil,c) + end + return maxc>=2 and mg:IsExists(c23187256.xyzfilter1,1,nil,mg,ct) end -function c23187256.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local ct=math.max(1,-ft) - local mg=Duel.GetMatchingGroup(c23187256.mfilter,tp,LOCATION_MZONE,0,nil,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local g1=mg:FilterSelect(tp,c23187256.xyzfilter1,1,1,nil,mg,ct) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local g2=mg:FilterSelect(tp,c23187256.xyzfilter2,ct,63,g1:GetFirst(),g1:GetFirst():GetRank()) - g1:Merge(g2) +function c23187256.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og,min,max) + local g=nil + if og and not min then + g=og + else + local mg=nil + if og then + mg=og:Filter(c23187256.mfilter,nil,c) + else + mg=Duel.GetMatchingGroup(c23187256.mfilter,tp,LOCATION_MZONE,0,nil,c) + end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local minc=2 + local maxc=64 + if min then + minc=math.max(minc,min) + maxc=max + end + local ct=math.max(minc-1,-ft) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) + g=mg:FilterSelect(tp,c23187256.xyzfilter1,1,1,nil,mg,ct) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) + local g2=mg:FilterSelect(tp,c23187256.xyzfilter2,ct,maxc-1,g:GetFirst(),g:GetFirst():GetRank()) + g:Merge(g2) + end local sg=Group.CreateGroup() - local tc=g1:GetFirst() + local tc=g:GetFirst() while tc do sg:Merge(tc:GetOverlayGroup()) - tc=g1:GetNext() + tc=g:GetNext() end Duel.SendtoGrave(sg,REASON_RULE) - c:SetMaterial(g1) - Duel.Overlay(c,g1) + c:SetMaterial(g) + Duel.Overlay(c,g) end function c23187256.filter(c,e,tp) return c:IsRankBelow(9) and c:IsAttackBelow(3000) and c:IsSetCard(0x48) @@ -85,6 +112,9 @@ function c23187256.gfilter(c,rank) end function c23187256.operation(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp] + if ect~=nil then ft=math.min(ft,ect) end local c=e:GetHandler() local g1=Duel.GetMatchingGroup(c23187256.filter,tp,LOCATION_EXTRA,0,nil,e,tp) local ct=c:GetOverlayGroup():GetClassCount(Card.GetCode) diff --git a/script/c23204029.lua b/script/c23204029.lua index f0ec6dfd..d84e7556 100644 --- a/script/c23204029.lua +++ b/script/c23204029.lua @@ -31,13 +31,6 @@ function c23204029.initial_effect(c) e3:SetTarget(c23204029.target) e3:SetOperation(c23204029.operation) c:RegisterEffect(e3) - --add setcode - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e4:SetCode(EFFECT_ADD_SETCODE) - e4:SetValue(0x3008) - c:RegisterEffect(e4) end function c23204029.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and aux.disfilter1(chkc) end diff --git a/script/c23212990.lua b/script/c23212990.lua index 65a7e524..ba949a66 100644 --- a/script/c23212990.lua +++ b/script/c23212990.lua @@ -13,14 +13,14 @@ function c23212990.initial_effect(c) c:RegisterEffect(e1) end function c23212990.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3003,1,REASON_COST) end - Duel.RemoveCounter(tp,1,0,0x3003,1,REASON_COST) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3,1,REASON_COST) end + Duel.RemoveCounter(tp,1,0,0x3,1,REASON_COST) end function c23212990.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) or Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end - local b1=Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) + local b1=Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) local b2=Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) local op=0 Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EFFECT) @@ -30,7 +30,7 @@ function c23212990.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) e:SetLabel(op) if op==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) else Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) diff --git a/script/c23220863.lua b/script/c23220863.lua new file mode 100644 index 00000000..3b05b40c --- /dev/null +++ b/script/c23220863.lua @@ -0,0 +1,16 @@ +--Magical Cavalry of Cxulub +function c23220863.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --immune + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetCode(EFFECT_IMMUNE_EFFECT) + e1:SetValue(c23220863.efilter) + c:RegisterEffect(e1) +end +function c23220863.efilter(e,te) + return te:IsActiveType(TYPE_MONSTER) and te:IsActivated() and not te:GetOwner():IsType(TYPE_PENDULUM) +end diff --git a/script/c23265594.lua b/script/c23265594.lua index 6e7f5077..bde5ea27 100644 --- a/script/c23265594.lua +++ b/script/c23265594.lua @@ -16,7 +16,6 @@ function c23265594.initial_effect(c) e2:SetCategory(CATEGORY_SPECIAL_SUMMON) e2:SetType(EFFECT_TYPE_IGNITION) e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c23265594.uncon) e2:SetTarget(c23265594.sptg) e2:SetOperation(c23265594.spop) c:RegisterEffect(e2) @@ -25,21 +24,18 @@ function c23265594.initial_effect(c) e3:SetType(EFFECT_TYPE_EQUIP) e3:SetCode(EFFECT_UPDATE_ATTACK) e3:SetValue(500) - e3:SetCondition(c23265594.uncon) c:RegisterEffect(e3) --Def up local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) e4:SetValue(500) - e4:SetCondition(c23265594.uncon) c:RegisterEffect(e4) --destroy sub local e5=Effect.CreateEffect(c) e5:SetType(EFFECT_TYPE_EQUIP) e5:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) e5:SetCode(EFFECT_DESTROY_SUBSTITUTE) - e5:SetCondition(c23265594.uncon) e5:SetValue(1) c:RegisterEffect(e5) --eqlimit @@ -50,14 +46,11 @@ function c23265594.initial_effect(c) e6:SetValue(c23265594.eqlimit) c:RegisterEffect(e6) end -function c23265594.uncon(e) - return e:GetHandler():IsStatus(STATUS_UNION) -end function c23265594.eqlimit(e,c) - return c:IsRace(RACE_MACHINE) + return c:IsRace(RACE_MACHINE) or e:GetHandler():GetEquipTarget()==c end function c23265594.filter(c) - return c:IsFaceup() and c:IsRace(RACE_MACHINE) and c:GetUnionCount()==0 + return c:IsFaceup() and c:IsRace(RACE_MACHINE) end function c23265594.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c23265594.filter(chkc) end @@ -87,7 +80,9 @@ function c23265594.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c23265594.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c2326738.lua b/script/c2326738.lua index c416550d..cce1b54c 100644 --- a/script/c2326738.lua +++ b/script/c2326738.lua @@ -29,7 +29,7 @@ end function c2326738.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c2326738.drtg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c23269426.lua b/script/c23269426.lua index 242101c1..1ed2f8bd 100644 --- a/script/c23269426.lua +++ b/script/c23269426.lua @@ -11,7 +11,7 @@ function c23269426.initial_effect(c) c:RegisterEffect(e1) end function c23269426.spfilter(c,e,tp,code) - return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c23269426.filter(c,e,tp) return c:IsFaceup() and c:GetLevel()==3 @@ -31,7 +31,7 @@ function c23269426.activate(e,tp,eg,ep,ev,re,r,rp) if not tc:IsRelateToEffect(e) or tc:IsFacedown() then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=Duel.SelectMatchingCard(tp,c23269426.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp,tc:GetCode()) - if sg:GetCount()>0 and Duel.SpecialSummonStep(sg:GetFirst(),0,tp,tp,false,false,POS_FACEUP) then + if sg:GetCount()>0 and not sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) and Duel.SpecialSummonStep(sg:GetFirst(),0,tp,tp,false,false,POS_FACEUP) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c23296404.lua b/script/c23296404.lua index cc17fefb..0b6f3e99 100644 --- a/script/c23296404.lua +++ b/script/c23296404.lua @@ -21,7 +21,7 @@ function c23296404.initial_effect(c) c:RegisterEffect(e2) end function c23296404.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0xc8) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0xc8) end function c23296404.desfilter2(c,e) return c23296404.desfilter(c) and c:IsCanBeEffectTarget(e) @@ -55,7 +55,12 @@ end function c23296404.spop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if Duel.Destroy(g,REASON_EFFECT)~=0 then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end end end function c23296404.thfilter(c) diff --git a/script/c23297235.lua b/script/c23297235.lua old mode 100755 new mode 100644 index be6515e4..a77374f0 --- a/script/c23297235.lua +++ b/script/c23297235.lua @@ -12,7 +12,7 @@ function c23297235.initial_effect(c) c:RegisterEffect(e1) end function c23297235.filter(c,e,tp) - return c:IsDefenceBelow(200) and c:IsAttribute(ATTRIBUTE_FIRE) and c:GetCode()~=23297235 + return c:IsDefenseBelow(200) and c:IsAttribute(ATTRIBUTE_FIRE) and c:GetCode()~=23297235 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c23297235.sptg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c23299957.lua b/script/c23299957.lua index 58c2c40e..3b50fcc7 100644 --- a/script/c23299957.lua +++ b/script/c23299957.lua @@ -82,14 +82,5 @@ function c23299957.activate(e,tp,eg,ep,ev,re,r,rp) e3:SetCode(EFFECT_CANNOT_DISEFFECT) e3:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e3,true) - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end diff --git a/script/c23303072.lua b/script/c23303072.lua old mode 100755 new mode 100644 diff --git a/script/c23323812.lua b/script/c23323812.lua index b1c2e236..65ef89e3 100644 --- a/script/c23323812.lua +++ b/script/c23323812.lua @@ -21,7 +21,7 @@ end function c23323812.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local at=Duel.GetAttacker() if chkc then return chkc==at end - if chk==0 then return at:IsControler(1-tp) and at:IsRelateToBattle() and at:IsCanBeEffectTarget(e) and at:IsDestructable() end + if chk==0 then return at:IsControler(1-tp) and at:IsRelateToBattle() and at:IsCanBeEffectTarget(e) end Duel.SetTargetCard(at) local atk=at:GetAttack() Duel.SetOperationInfo(0,CATEGORY_DESTROY,at,1,0,0) diff --git a/script/c23338098.lua b/script/c23338098.lua new file mode 100644 index 00000000..6c74af31 --- /dev/null +++ b/script/c23338098.lua @@ -0,0 +1,86 @@ +--A BF－涙雨のチドリ +function c23338098.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --add type + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c23338098.tncon) + e1:SetOperation(c23338098.tnop) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_MATERIAL_CHECK) + e2:SetValue(c23338098.valcheck) + e2:SetLabelObject(e1) + c:RegisterEffect(e2) + --atkup + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetCode(EFFECT_UPDATE_ATTACK) + e3:SetRange(LOCATION_MZONE) + e3:SetValue(c23338098.value) + c:RegisterEffect(e3) + --spsummon + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(23338098,0)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_DESTROYED) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) + e4:SetCondition(c23338098.spcon) + e4:SetTarget(c23338098.sptg) + e4:SetOperation(c23338098.spop) + c:RegisterEffect(e4) +end +function c23338098.valcheck(e,c) + local g=c:GetMaterial() + if g:IsExists(Card.IsSetCard,1,nil,0x33) then + e:GetLabelObject():SetLabel(1) + else + e:GetLabelObject():SetLabel(0) + end +end +function c23338098.tncon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO and e:GetLabel()==1 +end +function c23338098.tnop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_ADD_TYPE) + e1:SetValue(TYPE_TUNER) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1) +end +function c23338098.atkfilter(c) + return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x33) +end +function c23338098.value(e,c) + return Duel.GetMatchingGroupCount(c23338098.atkfilter,c:GetControler(),LOCATION_GRAVE,0,nil)*300 +end +function c23338098.spcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsLocation(LOCATION_GRAVE) +end +function c23338098.spfilter(c,e,tp) + return c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_WINDBEAST) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(23338098) +end +function c23338098.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c23338098.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c23338098.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c23338098.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c23338098.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c23377694.lua b/script/c23377694.lua new file mode 100644 index 00000000..9886304a --- /dev/null +++ b/script/c23377694.lua @@ -0,0 +1,73 @@ +--EMオオヤヤドカリ +function c23377694.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --atk + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1) + e1:SetTarget(c23377694.atktg) + e1:SetOperation(c23377694.atkop) + c:RegisterEffect(e1) + -- + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BATTLE_DESTROYED) + e2:SetRange(LOCATION_PZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1) + e2:SetCondition(c23377694.spcon) + e2:SetTarget(c23377694.sptg) + e2:SetOperation(c23377694.spop) + c:RegisterEffect(e2) +end +function c23377694.filter1(c) + return c:IsFaceup() and c:IsType(TYPE_PENDULUM) +end +function c23377694.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c23377694.filter1(chkc) end + if chk==0 then return Duel.IsExistingTarget(c23377694.filter1,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c23377694.filter1,tp,LOCATION_MZONE,0,1,1,nil) +end +function c23377694.filter2(c) + return c:IsFaceup() and c:IsSetCard(0x9f) +end +function c23377694.atkop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + local ct=Duel.GetMatchingGroupCount(c23377694.filter2,tp,LOCATION_MZONE,0,nil) + if ct>0 and tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(ct*300) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + end +end +function c23377694.cfilter(c,tp) + return c:IsSetCard(0x9f) and c:GetPreviousControler()==tp +end +function c23377694.spcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c23377694.cfilter,1,nil,tp) +end +function c23377694.spfilter(c,e,tp) + return (c:IsSetCard(0x9f) or c:IsSetCard(0x99)) and (c:GetSequence()==6 or c:GetSequence()==7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c23377694.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_SZONE) and c23377694.spfilter(chkc,e,tp) end + if chk==0 then return Duel.IsExistingTarget(c23377694.spfilter,tp,LOCATION_SZONE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c23377694.spfilter,tp,LOCATION_SZONE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c23377694.spop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c23424603.lua b/script/c23424603.lua index bea01ffb..e7ef0252 100644 --- a/script/c23424603.lua +++ b/script/c23424603.lua @@ -16,6 +16,6 @@ function c23424603.initial_effect(c) c:RegisterEffect(e2) --Def local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end diff --git a/script/c23434538.lua b/script/c23434538.lua old mode 100755 new mode 100644 diff --git a/script/c23440231.lua b/script/c23440231.lua index 1ffe94b0..04aa9158 100644 --- a/script/c23440231.lua +++ b/script/c23440231.lua @@ -91,7 +91,7 @@ function c23440231.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c23440231.desfilter(c) - return (c:IsFacedown() or not c:IsSetCard(0xc5)) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return (c:IsFacedown() or not c:IsSetCard(0xc5)) and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c23440231.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c23440231.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end diff --git a/script/c23516703.lua b/script/c23516703.lua index 75900921..4bcd2dab 100644 --- a/script/c23516703.lua +++ b/script/c23516703.lua @@ -36,5 +36,5 @@ function c23516703.limittg(e,c,tp) end function c23516703.countval(e,tp) local t1,t2,t3=Duel.GetActivityCount(tp,ACTIVITY_SUMMON,ACTIVITY_FLIPSUMMON,ACTIVITY_SPSUMMON) - if t1+t2+t2>=2 then return 0 else return 2-t1-t2-t3 end + if t1+t2+t3>=2 then return 0 else return 2-t1-t2-t3 end end diff --git a/script/c23535429.lua b/script/c23535429.lua index d2cdeb4f..a4ba410e 100644 --- a/script/c23535429.lua +++ b/script/c23535429.lua @@ -18,7 +18,7 @@ function c23535429.condition(e,tp,eg,ep,ev,re,r,rp) local phase=Duel.GetCurrentPhase() if phase~=PHASE_DAMAGE or Duel.IsDamageCalculated() then return false end local d=Duel.GetAttackTarget() - return d and d:IsControler(tp) and d:IsDefencePos() + return d and d:IsControler(tp) and d:IsDefensePos() end function c23535429.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end @@ -29,7 +29,7 @@ function c23535429.operation(e,tp,eg,ep,ev,re,r,rp) if not d:IsRelateToBattle() then return end local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e1:SetValue(1500) d:RegisterEffect(e1) diff --git a/script/c23536866.lua b/script/c23536866.lua index 98da514f..78aab6b6 100644 --- a/script/c23536866.lua +++ b/script/c23536866.lua @@ -3,6 +3,7 @@ function c23536866.initial_effect(c) --xyz local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(23536866,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetType(EFFECT_TYPE_IGNITION) e1:SetRange(LOCATION_GRAVE) e1:SetProperty(EFFECT_FLAG_CARD_TARGET) @@ -21,28 +22,27 @@ function c23536866.filter(c,e,tp) and c:IsCanBeEffectTarget(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c23536866.xyzfilter(c,mg) - if c.xyz_count~=2 then return false end - return c:IsAttribute(ATTRIBUTE_WATER) and c:IsXyzSummonable(mg) + return c:IsAttribute(ATTRIBUTE_WATER) and c:IsXyzSummonable(mg,2,2) end -function c23536866.mfilter1(c,exg) - return exg:IsExists(c23536866.mfilter2,1,nil,c) +function c23536866.mfilter1(c,mg,exg) + return mg:IsExists(c23536866.mfilter2,1,c,c,exg) end -function c23536866.mfilter2(c,mc) - return c.xyz_filter(mc) +function c23536866.mfilter2(c,mc,exg) + return exg:IsExists(Card.IsXyzSummonable,1,nil,Group.FromCards(c,mc)) end function c23536866.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end local mg=Duel.GetMatchingGroup(c23536866.filter,tp,LOCATION_GRAVE,0,nil,e,tp) - if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and mg:GetCount()>1 - and Duel.IsExistingMatchingCard(c23536866.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,mg) end local exg=Duel.GetMatchingGroup(c23536866.xyzfilter,tp,LOCATION_EXTRA,0,nil,mg) + if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2) + and not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and exg:GetCount()>0 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg1=mg:FilterSelect(tp,c23536866.mfilter1,1,1,nil,exg) + local sg1=mg:FilterSelect(tp,c23536866.mfilter1,1,1,nil,mg,exg) local tc1=sg1:GetFirst() - local exg2=exg:Filter(c23536866.mfilter2,nil,tc1) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg2=mg:FilterSelect(tp,c23536866.mfilter1,1,1,tc1,exg2) + local sg2=mg:FilterSelect(tp,c23536866.mfilter2,1,1,tc1,tc1,exg) sg1:Merge(sg2) Duel.SetTargetCard(sg1) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg1,2,0,0) @@ -51,6 +51,7 @@ function c23536866.filter2(c,e,tp) return c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c23536866.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c23536866.filter2,nil,e,tp) if g:GetCount()<2 then return end diff --git a/script/c23557835.lua b/script/c23557835.lua index a598ee7a..fe56b91e 100644 --- a/script/c23557835.lua +++ b/script/c23557835.lua @@ -28,6 +28,7 @@ function c23557835.op(e,tp,eg,ep,ev,re,r,rp) local count=0 local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft1>0 then + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft1=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c23557835.filter,tp,LOCATION_REMOVED,0,ft1,ft1,nil,e,tp) if g:GetCount()>0 then @@ -41,6 +42,7 @@ function c23557835.op(e,tp,eg,ep,ev,re,r,rp) end local ft2=Duel.GetLocationCount(1-tp,LOCATION_MZONE) if ft2>0 then + if Duel.IsPlayerAffectedByEffect(1-tp,59822133) then ft2=1 end Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(1-tp,c23557835.filter,tp,0,LOCATION_REMOVED,ft2,ft2,nil,e,1-tp) if g:GetCount()>0 then diff --git a/script/c23558733.lua b/script/c23558733.lua old mode 100755 new mode 100644 index 0308dc4b..da25be07 --- a/script/c23558733.lua +++ b/script/c23558733.lua @@ -76,6 +76,6 @@ function c23558733.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c23558733.spop(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,true,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(e:GetHandler(),0,tp,tp,true,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c2356994.lua b/script/c2356994.lua index 38dd445e..f85c5740 100644 --- a/script/c2356994.lua +++ b/script/c2356994.lua @@ -1,21 +1,13 @@ --偉大天狗 function c2356994.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SPSUMMON_CONDITION) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c2356994.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --skip BP local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(2356994,1)) @@ -46,39 +38,3 @@ end function c2356994.bpcon(e) return Duel.GetTurnCount()~=e:GetLabel() end -function c2356994.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(2356994,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c2356994.retcon) - e1:SetTarget(c2356994.rettg) - e1:SetOperation(c2356994.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c2356994.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c2356994.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c2356994.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c23581825.lua b/script/c23581825.lua index 2e7e6c83..6be5b7e9 100644 --- a/script/c23581825.lua +++ b/script/c23581825.lua @@ -31,7 +31,7 @@ function c23581825.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) and Duel.IsExistingTarget(c23581825.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c23581825.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,tp,LOCATION_EXTRA) end function c23581825.activate(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end @@ -42,6 +42,7 @@ function c23581825.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(tp,c23581825.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc,tc:GetRank()+2) local sc=g:GetFirst() if sc then + Duel.BreakEffect() sc:SetMaterial(Group.FromCards(tc)) Duel.Overlay(sc,Group.FromCards(tc)) Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) diff --git a/script/c2359348.lua b/script/c2359348.lua old mode 100755 new mode 100644 index 88856095..b8ebf07e --- a/script/c2359348.lua +++ b/script/c2359348.lua @@ -22,18 +22,15 @@ function c2359348.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local tc1=Duel.GetFieldCard(tp,LOCATION_SZONE,6) local tc2=Duel.GetFieldCard(tp,LOCATION_SZONE,7) if chk==0 then return tc1 and tc2 - and tc1:IsCanBeEffectTarget(e) and tc2:IsCanBeEffectTarget(e) - and tc1:IsDestructable() and tc2:IsDestructable() end + and tc1:IsCanBeEffectTarget(e) and tc2:IsCanBeEffectTarget(e) end local g=Group.FromCards(tc1,tc2) Duel.SetTargetCard(g) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) end function c2359348.activate(e,tp,eg,ep,ev,re,r,rp) - local tc1=Duel.GetFieldCard(tp,LOCATION_SZONE,6) - local tc2=Duel.GetFieldCard(tp,LOCATION_SZONE,7) - local g=Group.FromCards(tc1,tc2) - if tc1:IsRelateToEffect(e) and tc2:IsRelateToEffect(e) - and Duel.Destroy(g,REASON_EFFECT)==2 then + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local sg=g:Filter(Card.IsRelateToEffect,nil,e) + if sg:GetCount()==2 and Duel.Destroy(sg,REASON_EFFECT)==2 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) diff --git a/script/c23603403.lua b/script/c23603403.lua index 935ed8d3..2aef3494 100644 --- a/script/c23603403.lua +++ b/script/c23603403.lua @@ -38,7 +38,7 @@ function c23603403.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ and e:GetLabel()==1 end function c23603403.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c23603403.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c23603403.desfilter,tp,0,LOCATION_ONFIELD,1,nil) end diff --git a/script/c23626223.lua b/script/c23626223.lua old mode 100755 new mode 100644 index c9b2d8cb..d3ebee9c --- a/script/c23626223.lua +++ b/script/c23626223.lua @@ -1,71 +1,73 @@ ---苦紋様の土像 -function c23626223.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c23626223.target) - e1:SetOperation(c23626223.activate) - c:RegisterEffect(e1) -end -function c23626223.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,23626223,0,0x21,0,2500,7,RACE_ROCK,ATTRIBUTE_EARTH) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c23626223.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 - or not Duel.IsPlayerCanSpecialSummonMonster(tp,23626223,0,0x21,0,2500,7,RACE_ROCK,ATTRIBUTE_EARTH) then return end - c:AddTrapMonsterAttribute(TYPE_EFFECT,ATTRIBUTE_EARTH,RACE_ROCK,7,0,2500) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - c:TrapMonsterBlock() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c23626223.tgcon) - e1:SetValue(aux.tgoval) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(23626223,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c23626223.descon) - e2:SetTarget(c23626223.destg) - e2:SetOperation(c23626223.desop) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) -end -function c23626223.tgfilter(c) - return c:IsFaceup() and bit.band(c:GetOriginalType(),TYPE_TRAP)~=0 and c:IsType(TYPE_MONSTER) -end -function c23626223.tgcon(e) - return Duel.IsExistingMatchingCard(c23626223.tgfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,e:GetHandler()) -end -function c23626223.cfilter(c,tp) - return c:IsPreviousLocation(LOCATION_SZONE) and c:GetPreviousControler()==tp -end -function c23626223.descon(e,tp,eg,ep,ev,re,r,rp) - return not eg:IsContains(e:GetHandler()) and eg:IsExists(c23626223.cfilter,1,nil,tp) -end -function c23626223.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c23626223.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--苦紋様の土像 +function c23626223.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c23626223.target) + e1:SetOperation(c23626223.activate) + c:RegisterEffect(e1) +end +function c23626223.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsPlayerCanSpecialSummonMonster(tp,23626223,0,0x21,0,2500,7,RACE_ROCK,ATTRIBUTE_EARTH) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c23626223.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + or not Duel.IsPlayerCanSpecialSummonMonster(tp,23626223,0,0x21,0,2500,7,RACE_ROCK,ATTRIBUTE_EARTH) then return end + c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() + --monster effects + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e1:SetRange(LOCATION_MZONE) + e1:SetCondition(c23626223.tgcon) + e1:SetValue(aux.tgoval) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1,true) + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(23626223,0)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(c23626223.descon) + e2:SetTarget(c23626223.destg) + e2:SetOperation(c23626223.desop) + e2:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e2,true) + Duel.SpecialSummonComplete() +end +function c23626223.tgfilter(c) + return c:IsFaceup() and bit.band(c:GetOriginalType(),TYPE_TRAP)~=0 and c:IsType(TYPE_MONSTER) +end +function c23626223.tgcon(e) + return Duel.IsExistingMatchingCard(c23626223.tgfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,e:GetHandler()) +end +function c23626223.cfilter(c,tp) + return c:IsPreviousLocation(LOCATION_SZONE) and c:GetPreviousControler()==tp +end +function c23626223.descon(e,tp,eg,ep,ev,re,r,rp) + return not eg:IsContains(e:GetHandler()) and eg:IsExists(c23626223.cfilter,1,nil,tp) +end +function c23626223.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c23626223.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c23639291.lua b/script/c23639291.lua index 91a81478..ff910f35 100644 --- a/script/c23639291.lua +++ b/script/c23639291.lua @@ -13,7 +13,7 @@ end function c23639291.condition(e,tp,eg,ep,ev,re,r,rp) local tc=eg:GetFirst() return eg:GetCount()==1 and tc:IsControler(tp) and tc:GetPreviousControler()==tp and tc:IsReason(REASON_DESTROY) - and tc:GetReasonEffect() and tc:GetReasonEffect():GetHandler()==tc + and tc:GetReasonEffect() and tc:GetReasonEffect():GetOwner()==tc end function c23639291.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc==eg:GetFirst() end @@ -26,11 +26,13 @@ function c23639291.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK) then local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetDescription(aux.Stringid(23639291,0)) e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CLIENT_HINT) e1:SetCode(EFFECT_CANNOT_CHANGE_POS_E) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) Duel.SpecialSummonComplete() - tc:AddCounter(0x19,1) + tc:AddCounter(0x1019,1) end end diff --git a/script/c23649496.lua b/script/c23649496.lua old mode 100755 new mode 100644 index 86141783..10b8b25c --- a/script/c23649496.lua +++ b/script/c23649496.lua @@ -37,7 +37,7 @@ function c23649496.cfilter(c) return c:IsFaceup() and Duel.IsExistingMatchingCard(c23649496.filter,0,LOCATION_MZONE,LOCATION_MZONE,1,c,c:GetCode()) end function c23649496.filter(c,code) - return c:IsFaceup() and c:IsCode(code) and c:IsDestructable() + return c:IsFaceup() and c:IsCode(code) end function c23649496.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c23649496.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end @@ -74,7 +74,7 @@ function c23649496.splimit(e,c,sump,sumtype,sumpos,targetp,se) return c:IsCode(e:GetLabel()) end function c23649496.tgfilter(c) - return c:IsSetCard(0x76) and c:IsAbleToGrave() + return c:IsSetCard(0x76) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() end function c23649496.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c23649496.tgfilter,tp,LOCATION_DECK,0,2,nil) end diff --git a/script/c23681456.lua b/script/c23681456.lua index 99147194..6c0fbefb 100644 --- a/script/c23681456.lua +++ b/script/c23681456.lua @@ -28,6 +28,7 @@ function c23681456.operation(e,tp,eg,ep,ev,re,r,rp) while tc do Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) tc:RegisterFlagEffect(23681456,RESET_EVENT+0x1fe0000,0,1,fid) + tc:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(23681456,0)) tc=g:GetNext() end Duel.SpecialSummonComplete() diff --git a/script/c23689697.lua b/script/c23689697.lua index 8d11b729..b74810be 100644 --- a/script/c23689697.lua +++ b/script/c23689697.lua @@ -50,7 +50,7 @@ function c23689697.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE end function c23689697.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c23689697.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c23689697.filter(chkc) end diff --git a/script/c23696988.lua b/script/c23696988.lua deleted file mode 100644 index 956ff0e9..00000000 --- a/script/c23696988.lua +++ /dev/null @@ -1,68 +0,0 @@ ---Magical Trick Mirror -function c23696988.initial_effect(c) - --copy Spell - local e1=Effect.CreateEffect(c) - e1:SetCategory(aux.Stringid(23696988,0)) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c23696988.condition) - e1:SetTarget(c23696988.target) - e1:SetOperation(c23696988.operation) - c:RegisterEffect(e1) -end -function c23696988.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c23696988.filter(c,e,tp,eg,ep,ev,re,r,rp) - return c:IsType(TYPE_SPELL) and c:CheckActivateEffect(false,false,false)~=nil and not c:IsType(TYPE_FIELD) -end -function c23696988.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) -if chkc then return chkc:IsLocation(LOCATION_GRAVE) or chkc:IsLocation(LOCATION_MZONE) and chkc:GetControler()~=tp and c23696988.filter(chkc) end -if chk==0 then return Duel.IsExistingTarget(c23696988.filter,tp,0,LOCATION_GRAVE,1,nil) end -Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) -local g=Duel.SelectTarget(tp,c23696988.filter,tp,0,LOCATION_GRAVE,1,1,nil) -end -function c23696988.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - if c:IsRelateToEffect(e) and not tc:IsType(TYPE_EQUIP+TYPE_CONTINUOUS) then - local tpe=tc:GetType() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetValue(tpe) - e1:SetReset(RESET_EVENT+0x1fc0000) - c:RegisterEffect(e1) - local te=tc:GetActivateEffect() - local tg=te:GetTarget() - local op=te:GetOperation() - e:SetCategory(te:GetCategory()) - e:SetProperty(te:GetProperty()) - Duel.ClearTargetCard() - if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end - Duel.BreakEffect() - if op then op(e,tp,eg,ep,ev,re,r,rp) end - end - if c:IsRelateToEffect(e) and tc:IsType(TYPE_EQUIP+TYPE_CONTINUOUS) then - local tpe=tc:GetType() - local code=tc:GetOriginalCode() - c:CopyEffect(code,nil,1) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetValue(tpe) - e1:SetReset(RESET_EVENT+0x1fc0000) - c:RegisterEffect(e1) - local te=tc:GetActivateEffect() - local tg=te:GetTarget() - local op=te:GetOperation() - e:SetCategory(te:GetCategory()) - e:SetProperty(te:GetProperty()) - Duel.ClearTargetCard() - if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end - Duel.BreakEffect() - if op then op(e,tp,eg,ep,ev,re,r,rp) end - c:CancelToGrave() - end -end \ No newline at end of file diff --git a/script/c2370081.lua b/script/c2370081.lua index 07d0f72c..ad2075e5 100644 --- a/script/c2370081.lua +++ b/script/c2370081.lua @@ -18,7 +18,7 @@ function c2370081.initial_effect(c) --def down local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(-200) c:RegisterEffect(e3) --equip limit diff --git a/script/c23701465.lua b/script/c23701465.lua index 66d519f4..8f54941d 100644 --- a/script/c23701465.lua +++ b/script/c23701465.lua @@ -12,8 +12,7 @@ function c23701465.initial_effect(c) c:RegisterEffect(e1) end function c23701465.cfilter(c) - local code=c:GetCode() - return c:IsFaceup() and (code==72989439 or code==82301904) + return c:IsFaceup() and c:IsCode(72989439,82301904) end function c23701465.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c23701465.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) diff --git a/script/c23740893.lua b/script/c23740893.lua index 56938288..6f0265f3 100644 --- a/script/c23740893.lua +++ b/script/c23740893.lua @@ -25,7 +25,7 @@ function c23740893.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c23740893.filter(c) - return c:IsFaceup() and c:IsCode(27918963) and c:IsCanAddCounter(0x33+COUNTER_NEED_ENABLE,3) + return c:IsFaceup() and c:IsCode(27918963) and c:IsCanAddCounter(0x33,3) end function c23740893.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsOnField() and c23740893.filter(chkc) end @@ -37,7 +37,7 @@ end function c23740893.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0x33+COUNTER_NEED_ENABLE,3) + tc:AddCounter(0x33,3) end end function c23740893.sumcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c23756165.lua b/script/c23756165.lua index e2e9a8da..284d1184 100644 --- a/script/c23756165.lua +++ b/script/c23756165.lua @@ -67,7 +67,7 @@ function c23756165.eqop(e,tp,eg,ep,ev,re,r,rp) if tc:IsFaceup() and tc:IsRelateToEffect(e) then if c:IsFaceup() and c:IsRelateToEffect(e) then local atk=tc:GetTextAttack() - local def=tc:GetTextDefence() + local def=tc:GetTextDefense() if atk<0 then atk=0 end if def<0 then def=0 end if not Duel.Equip(tp,tc,c,false) then return end diff --git a/script/c2376209.lua b/script/c2376209.lua index 96bec778..fbdd9aeb 100644 --- a/script/c2376209.lua +++ b/script/c2376209.lua @@ -41,7 +41,7 @@ function c2376209.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end @@ -58,17 +58,10 @@ end function c2376209.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() - if c:IsRelateToEffect(e) - and Duel.IsPlayerCanSpecialSummonMonster(tp,2376209,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then - c:SetStatus(STATUS_NO_LEVEL,false) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(TYPE_NORMAL+TYPE_MONSTER) - e1:SetReset(RESET_EVENT+0x47c0000) - c:RegisterEffect(e1,true) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,2376209,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then + c:AddMonsterAttribute(TYPE_NORMAL) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_IMMUNE_EFFECT) @@ -76,7 +69,7 @@ function c2376209.spop(e,tp,eg,ep,ev,re,r,rp) e2:SetRange(LOCATION_MZONE) e2:SetValue(c2376209.efilter) e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) + c:RegisterEffect(e2,true) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE) e3:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) @@ -84,6 +77,7 @@ function c2376209.spop(e,tp,eg,ep,ev,re,r,rp) e3:SetReset(RESET_EVENT+0x47e0000) e3:SetValue(LOCATION_REMOVED) c:RegisterEffect(e3,true) + Duel.SpecialSummonComplete() end end function c2376209.efilter(e,re) diff --git a/script/c2377034.lua b/script/c2377034.lua index 2eac8a81..f51582a5 100644 --- a/script/c2377034.lua +++ b/script/c2377034.lua @@ -39,7 +39,7 @@ function c2377034.thcon(e,tp,eg,ep,ev,re,r,rp) return bit.band(e:GetHandler():GetReason(),0x41)==0x41 end function c2377034.filter(c) - local def=c:GetDefence() + local def=c:GetDefense() return def>=0 and def<=200 and c:IsAttribute(ATTRIBUTE_FIRE) and c:GetCode()~=2377034 and c:IsAbleToHand() end function c2377034.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) diff --git a/script/c23776077.lua b/script/c23776077.lua index c0a847a0..3b405566 100644 --- a/script/c23776077.lua +++ b/script/c23776077.lua @@ -25,7 +25,7 @@ function c23776077.initial_effect(c) e2:SetValue(c23776077.adval) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --cannot be target local e4=Effect.CreateEffect(c) diff --git a/script/c23784496.lua b/script/c23784496.lua new file mode 100644 index 00000000..566e1c8d --- /dev/null +++ b/script/c23784496.lua @@ -0,0 +1,62 @@ +--魔界台本「オープニング・セレモニー」 +function c23784496.initial_effect(c) + --recover + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_RECOVER) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCountLimit(1,23784496) + e1:SetTarget(c23784496.target) + e1:SetOperation(c23784496.operation) + c:RegisterEffect(e1) + --draw + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DRAW) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_DESTROYED) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DELAY) + e2:SetCountLimit(1,23784497) + e2:SetCondition(c23784496.drcon) + e2:SetTarget(c23784496.drtg) + e2:SetOperation(c23784496.drop) + c:RegisterEffect(e2) +end +function c23784496.filter1(c) + return c:IsFaceup() and c:IsSetCard(0x10ec) +end +function c23784496.target(e,tp,eg,ep,ev,re,r,rp,chk) + local rec=Duel.GetMatchingGroupCount(c23784496.filter1,tp,LOCATION_MZONE,0,nil)*500 + if chk==0 then return rec>0 end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(rec) + Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,rec) +end +function c23784496.operation(e,tp,eg,ep,ev,re,r,rp) + local rec=Duel.GetMatchingGroupCount(c23784496.filter1,tp,LOCATION_MZONE,0,nil)*500 + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + Duel.Recover(p,rec,REASON_EFFECT) +end +function c23784496.filter2(c) + return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsSetCard(0x10ec) +end +function c23784496.drcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_EFFECT) and rp==1-tp and c:GetPreviousControler()==tp + and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEDOWN) + and Duel.IsExistingMatchingCard(c23784496.filter2,tp,LOCATION_EXTRA,0,1,nil) +end +function c23784496.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + local ct=5-Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) + if chk==0 then return ct>0 and Duel.IsPlayerCanDraw(tp,ct) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(ct) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct) +end +function c23784496.drop(e,tp,eg,ep,ev,re,r,rp) + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + local ct=5-Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) + if ct>0 then + Duel.Draw(p,ct,REASON_EFFECT) + end +end diff --git a/script/c23846921.lua b/script/c23846921.lua old mode 100755 new mode 100644 index f30b5a40..2a6590b3 --- a/script/c23846921.lua +++ b/script/c23846921.lua @@ -1,4 +1,4 @@ ---アルカナフォースXXI－THE WORLD +--アルカナフォースⅩⅩⅠ－THE WORLD function c23846921.initial_effect(c) --coin local e1=Effect.CreateEffect(c) diff --git a/script/c23857661.lua b/script/c23857661.lua old mode 100755 new mode 100644 diff --git a/script/c23869735.lua b/script/c23869735.lua index b76178e2..7123af77 100644 --- a/script/c23869735.lua +++ b/script/c23869735.lua @@ -44,9 +44,10 @@ end function c23869735.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)==0 then return end + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE) diff --git a/script/c23874409.lua b/script/c23874409.lua index 3850a1f5..de3002bf 100644 --- a/script/c23874409.lua +++ b/script/c23874409.lua @@ -47,13 +47,13 @@ end function c23874409.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) end if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEFENCE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEFENSE) local g=Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) end function c23874409.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end diff --git a/script/c23931883.lua b/script/c23931883.lua deleted file mode 100644 index d36866d0..00000000 --- a/script/c23931883.lua +++ /dev/null @@ -1,87 +0,0 @@ ---Underworld Circle -function c23931883.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c23931883.target) - e1:SetOperation(c23931883.activate) - c:RegisterEffect(e1) - --Special Summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(23931883,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetProperty(EFFECT_FLAG_REPEAT) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetCountLimit(1) - e2:SetTarget(c23931883.drtg) - e2:SetOperation(c23931883.drop) - c:RegisterEffect(e2) -end -function c23931883.filter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() -end -function c23931883.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c23931883.filter,tp,LOCATION_DECK+LOCATION_HAND,LOCATION_DECK+LOCATION_HAND,1,nil) end - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local tg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - local sg=Duel.GetMatchingGroup(c23931883.filter,tp,LOCATION_DECK+LOCATION_HAND,LOCATION_DECK+LOCATION_HAND,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,sg,sg:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,tg:GetCount(),0,0) -end -function c23931883.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c23931883.filter,tp,LOCATION_DECK+LOCATION_HAND,LOCATION_DECK+LOCATION_HAND,nil) - local tg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.Remove(sg,POS_FACEUP,REASON_EFFECT) - Duel.Destroy(tg,REASON_EFFECT) ---remove -local c=e:GetHandler() -local e3=Effect.CreateEffect(c) -e3:SetType(EFFECT_TYPE_FIELD) -e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE) -e3:SetCode(EFFECT_TO_GRAVE_REDIRECT) -e3:SetRange(LOCATION_SZONE) -e3:SetTarget(c23931883.rmtarget) -e3:SetValue(LOCATION_REMOVED) -Duel.RegisterEffect(e3,tp,1-tp) -end -function c23931883.filt(c,e,tp) -return c:IsCanBeSpecialSummoned(e,0,tp,true,true) and c:IsType(TYPE_MONSTER) -end -function c23931883.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then - return Duel.IsExistingTarget(c23931883.filt,tp,LOCATION_GRAVE,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c23931883.filt,1-tp,LOCATION_GRAVE,0,1,nil,e,1-tp) - and Duel.GetLocationCount(1-tp,LOCATION_MZONE,1-tp)>0 - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=Duel.SelectTarget(tp,c23931883.filt,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON) - local og=Duel.SelectTarget(1-tp,c23931883.filt,1-tp,LOCATION_GRAVE,0,1,1,nil,e,1-tp) - local sc=sg:GetFirst() - local oc=og:GetFirst() - local g=Group.FromCards(sc,oc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) - e:SetLabelObject(sc) -end -function c23931883.drop(e,tp,eg,ep,ev,re,r,rp) - local sc=e:GetLabelObject() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local oc=g:GetFirst() - if oc==sc then oc=g:GetNext() end - if sc:IsRelateToEffect(e) then - Duel.SpecialSummonStep(sc,0,tp,tp,true,true,POS_FACEUP) - end - if oc:IsRelateToEffect(e) then - Duel.SpecialSummonStep(oc,0,1-tp,1-tp,true,true,POS_FACEUP) - end - Duel.SpecialSummonComplete() -end -function c23931883.rmtarget(e,c) - return not c:IsLocation(0x80) and not c:IsType(TYPE_SPELL+TYPE_TRAP) -end diff --git a/script/c2396042.lua b/script/c2396042.lua new file mode 100644 index 00000000..62ba122d --- /dev/null +++ b/script/c2396042.lua @@ -0,0 +1,33 @@ +--Steel Cavalry of Dinon +function c2396042.initial_effect(c) + aux.EnablePendulumAttribute(c) + --atk/def + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(2396042,0)) + e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e1:SetCode(EVENT_BATTLE_START) + e1:SetCondition(c2396042.adcon) + e1:SetOperation(c2396042.adop) + c:RegisterEffect(e1) +end +function c2396042.adcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local bc=c:GetBattleTarget() + return bc and bc:IsFaceup() and bc:IsType(TYPE_PENDULUM) +end +function c2396042.adop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and c:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_DEFENSE_FINAL) + e1:SetValue(c:GetDefense()/2) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_DAMAGE) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_SET_ATTACK_FINAL) + e2:SetValue(c:GetAttack()/2) + c:RegisterEffect(e2) + end +end diff --git a/script/c23979249.lua b/script/c23979249.lua index 551d5d3f..eb1c5c9a 100644 --- a/script/c23979249.lua +++ b/script/c23979249.lua @@ -49,8 +49,10 @@ function c23979249.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c23979249.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c23979249.regfilter(c,tp) diff --git a/script/c23995347.lua b/script/c23995347.lua deleted file mode 100644 index f6636b71..00000000 --- a/script/c23995347.lua +++ /dev/null @@ -1,8 +0,0 @@ ---青眼の究極竜 -function c23995347.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCodeRep(c,89631139,3,true,true) -end -c23995347.material_count=1 -c23995347.material={89631139} diff --git a/script/c23998625.lua b/script/c23998625.lua index 649758f7..022c0752 100644 --- a/script/c23998625.lua +++ b/script/c23998625.lua @@ -80,10 +80,5 @@ function c23998625.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Overlay(tc,cg) Duel.SpecialSummon(tc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) tc:CompleteProcedure() - else - local cg=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg:IsExists(Card.IsFacedown,1,nil) and Duel.IsPlayerCanSpecialSummon(tp) then - Duel.ConfirmCards(1-tp,cg) - end end end diff --git a/script/c24019092.lua b/script/c24019092.lua index ebe7a241..74d2266e 100644 --- a/script/c24019092.lua +++ b/script/c24019092.lua @@ -23,8 +23,7 @@ end function c24019092.thtg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() local pc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-c:GetSequence()) - if chk==0 then return c:IsDestructable() and pc:IsDestructable() - and Duel.IsExistingMatchingCard(c24019092.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end + if chk==0 then return Duel.IsExistingMatchingCard(c24019092.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end local g=Group.FromCards(c,pc) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) diff --git a/script/c2403771.lua b/script/c2403771.lua old mode 100755 new mode 100644 index 25f0f871..d3185dee --- a/script/c2403771.lua +++ b/script/c2403771.lua @@ -37,10 +37,8 @@ function c2403771.thop(e,tp,eg,ep,ev,re,r,rp) local sg=g:Select(tp,3,3,nil) Duel.ConfirmCards(1-tp,sg) Duel.ShuffleDeck(tp) - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_ATOHAND) - local tg=sg:Select(1-tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SendtoHand(tc,nil,REASON_EFFECT) + local tg=sg:RandomSelect(1-tp,1) + Duel.SendtoHand(tg,nil,REASON_EFFECT) end end function c2403771.repfilter(c) diff --git a/script/c24062258.lua b/script/c24062258.lua index 29c91ef0..e2c8485e 100644 --- a/script/c24062258.lua +++ b/script/c24062258.lua @@ -13,7 +13,7 @@ function c24062258.initial_effect(c) c:RegisterEffect(e1) end function c24062258.filter(c,e,tp) - return c:GetCode()~=24062258 and c:GetLevel()==4 and c:IsAttribute(ATTRIBUTE_DARK) and (c:GetAttack()==0 or c:GetDefence()==0) + return c:GetCode()~=24062258 and c:GetLevel()==4 and c:IsAttribute(ATTRIBUTE_DARK) and (c:GetAttack()==0 or c:GetDefense()==0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c24062258.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) @@ -27,7 +27,7 @@ end function c24062258.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c2407147.lua b/script/c2407147.lua old mode 100755 new mode 100644 index b2ca0d2a..da437db3 --- a/script/c2407147.lua +++ b/script/c2407147.lua @@ -19,7 +19,7 @@ function c2407147.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c2407147.cfilter,tp,LOCATION_GRAVE,0,1,nil) end function c2407147.filter(c) - return c:IsSetCard(0x39) and c:IsAbleToGrave() + return c:IsSetCard(0x39) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() end function c2407147.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c2407147.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c2407234.lua b/script/c2407234.lua old mode 100755 new mode 100644 diff --git a/script/c24082387.lua b/script/c24082387.lua old mode 100755 new mode 100644 diff --git a/script/c24094653.lua b/script/c24094653.lua index 3d316b5f..6758821b 100644 --- a/script/c24094653.lua +++ b/script/c24094653.lua @@ -65,14 +65,5 @@ function c24094653.activate(e,tp,eg,ep,ev,re,r,rp) fop(ce,e,tp,tc,mat2) end tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end diff --git a/script/c24094654.lua b/script/c24094654.lua deleted file mode 100644 index 5f23c54b..00000000 --- a/script/c24094654.lua +++ /dev/null @@ -1,67 +0,0 @@ ---融合 -function c24094654.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c24094654.target) - e1:SetOperation(c24094654.activate) - c:RegisterEffect(e1) -end -function c24094654.filter1(c,e) - return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) -end -function c24094654.filter2(c,e,tp,m,chkf) - return c:IsType(TYPE_FUSION) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) - and c:CheckFusionMaterial(m,nil,chkf) -end -function c24094654.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c24094654.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) - local res=Duel.IsExistingMatchingCard(c24094654.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - res=Duel.IsExistingMatchingCard(c24094654.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c24094654.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c24094654.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) - local sg1=Duel.GetMatchingGroup(c24094654.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - sg2=Duel.GetMatchingGroup(c24094654.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end diff --git a/script/c24096228.lua b/script/c24096228.lua old mode 100755 new mode 100644 diff --git a/script/c24096499.lua b/script/c24096499.lua index c070c886..6f07e24f 100644 --- a/script/c24096499.lua +++ b/script/c24096499.lua @@ -35,7 +35,7 @@ function c24096499.spop(e,tp,eg,ep,ev,re,r,rp,chk) if tc:IsRelateToEffect(e) then local spos=0 if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then spos=spos+POS_FACEUP_ATTACK end - if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENCE end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENSE end if spos~=0 then Duel.SpecialSummon(tc,0,tp,tp,false,false,spos) end end end diff --git a/script/c24101897.lua b/script/c24101897.lua index b405a2ef..70c12b43 100644 --- a/script/c24101897.lua +++ b/script/c24101897.lua @@ -45,7 +45,7 @@ end function c24101897.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c24101897.condition(e,tp,eg,ep,ev,re,r,rp) @@ -63,5 +63,5 @@ end function c24101897.operation(e,tp,eg,ep,ev,re,r,rp) if not Duel.IsExistingMatchingCard(c24101897.sfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) then return end local g=eg:Filter(c24101897.filter,nil,e) - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) end diff --git a/script/c24103628.lua b/script/c24103628.lua index a3c2432b..11737974 100644 --- a/script/c24103628.lua +++ b/script/c24103628.lua @@ -27,6 +27,6 @@ function c24103628.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c24103628.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c24104865.lua b/script/c24104865.lua index 8a485c8b..dcee6e20 100644 --- a/script/c24104865.lua +++ b/script/c24104865.lua @@ -40,7 +40,7 @@ end function c24104865.checkop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local t=Duel.GetAttackTarget() - if t and t~=c and t:GetCounter(0xe)>0 then + if t and t~=c and t:GetCounter(0x100e)>0 then e:SetLabel(1) else e:SetLabel(0) end end @@ -78,6 +78,7 @@ end function c24104865.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local sg=g:Filter(c24104865.sfilter,nil,e,tp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) diff --git a/script/c24131534.lua b/script/c24131534.lua index 6c6a2255..737ded3d 100644 --- a/script/c24131534.lua +++ b/script/c24131534.lua @@ -23,8 +23,7 @@ end function c24131534.thtg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() local pc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-c:GetSequence()) - if chk==0 then return c:IsDestructable() and pc:IsDestructable() - and Duel.IsExistingMatchingCard(c24131534.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end + if chk==0 then return Duel.IsExistingMatchingCard(c24131534.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end local g=Group.FromCards(c,pc) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) diff --git a/script/c24150026.lua b/script/c24150026.lua index e9cd1dad..6070d4db 100644 --- a/script/c24150026.lua +++ b/script/c24150026.lua @@ -5,15 +5,7 @@ function c24150026.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_MUST_ATTACK) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c24150026.becon) - c:RegisterEffect(e2) - --to defence + --to defense local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(24150026,0)) e3:SetCategory(CATEGORY_POSITION) @@ -22,7 +14,7 @@ function c24150026.initial_effect(c) e3:SetCondition(c24150026.poscon) e3:SetOperation(c24150026.posop) c:RegisterEffect(e3) - --to defence + --to defense local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e4:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -32,16 +24,13 @@ function c24150026.initial_effect(c) e4:SetOperation(c24150026.bpop) c:RegisterEffect(e4) end -function c24150026.becon(e) - return e:GetHandler():IsAttackable() -end function c24150026.poscon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsAttackPos() end function c24150026.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c24150026.bpcon(e,tp,eg,ep,ev,re,r,rp) @@ -50,6 +39,6 @@ end function c24150026.bpop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end diff --git a/script/c2420921.lua b/script/c2420921.lua index 4f7c233c..e8b4e711 100644 --- a/script/c2420921.lua +++ b/script/c2420921.lua @@ -37,7 +37,5 @@ function c2420921.distg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,2) end function c2420921.disop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetControler()~=tp or not c:IsRelateToEffect(e) or c:IsFacedown() then return end Duel.DiscardDeck(tp,2,REASON_EFFECT) end diff --git a/script/c24212820.lua b/script/c24212820.lua new file mode 100644 index 00000000..7321db91 --- /dev/null +++ b/script/c24212820.lua @@ -0,0 +1,81 @@ +--幻影騎士団ダーク・ガントレット +function c24212820.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOGRAVE) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c24212820.target) + e1:SetOperation(c24212820.activate) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(24212820,0)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_ATTACK_ANNOUNCE) + e2:SetRange(LOCATION_GRAVE) + e2:SetCondition(c24212820.spcon) + e2:SetTarget(c24212820.sptg) + e2:SetOperation(c24212820.spop) + c:RegisterEffect(e2) + --def up + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) + e3:SetCondition(c24212820.defcon) + e3:SetValue(c24212820.defval) + c:RegisterEffect(e3) +end +function c24212820.tgfilter(c) + return c:IsSetCard(0xdb) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGrave() +end +function c24212820.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c24212820.tgfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) +end +function c24212820.activate(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c24212820.tgfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoGrave(g,REASON_EFFECT) + end +end +function c24212820.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,0)==0 + and Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil +end +function c24212820.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsPlayerCanSpecialSummonMonster(tp,24212820,0x10db,0x21,4,300,600,RACE_WARRIOR,ATTRIBUTE_DARK) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c24212820.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,24212820,0x10db,0x21,4,300,600,RACE_WARRIOR,ATTRIBUTE_DARK) then + c:AddMonsterAttribute(TYPE_EFFECT) + Duel.SpecialSummonStep(c,1,tp,tp,true,false,POS_FACEUP_DEFENSE) + c:AddMonsterAttributeComplete() + --redirect + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetReset(RESET_EVENT+0x47e0000) + e2:SetValue(LOCATION_REMOVED) + c:RegisterEffect(e2,true) + Duel.SpecialSummonComplete() + end +end +function c24212820.defcon(e) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 +end +function c24212820.filter(c) + return c:IsSetCard(0xdb) and c:IsType(TYPE_SPELL+TYPE_TRAP) +end +function c24212820.defval(e,c) + return Duel.GetMatchingGroupCount(c24212820.filter,c:GetControler(),LOCATION_GRAVE,0,nil)*300 +end diff --git a/script/c242146.lua b/script/c242146.lua index 86f7d98d..413acaf4 100644 --- a/script/c242146.lua +++ b/script/c242146.lua @@ -11,10 +11,10 @@ function c242146.initial_effect(c) c:RegisterEffect(e1) --atk up local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) - e2:SetRange(LOCATION_SZONE) - e2:SetOperation(c242146.atkup) + e2:SetType(EFFECT_TYPE_EQUIP) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetCondition(c242146.atkcon) + e2:SetValue(1500) c:RegisterEffect(e2) --Equip limit local e3=Effect.CreateEffect(c) @@ -37,16 +37,10 @@ function c242146.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Equip(tp,e:GetHandler(),tc) end end -function c242146.atkup(e,tp,eg,ep,ev,re,r,rp) +function c242146.atkcon(e) + if Duel.GetCurrentPhase()~=PHASE_DAMAGE_CAL then return false end local eqc=e:GetHandler():GetEquipTarget() local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() - if d and a==eqc and d:GetBattlePosition()==POS_FACEDOWN_DEFENCE then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(1500) - a:RegisterEffect(e1) - end + return d and a==eqc and d:GetBattlePosition()==POS_FACEDOWN_DEFENSE end diff --git a/script/c24218047.lua b/script/c24218047.lua index 7ecff8e2..eade6dd6 100644 --- a/script/c24218047.lua +++ b/script/c24218047.lua @@ -15,7 +15,7 @@ function c24218047.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c24218047.filter(c,e,tp) - return c:IsDefenceBelow(1500) and c:IsRace(RACE_WYRM) + return c:IsDefenseBelow(1500) and c:IsRace(RACE_WYRM) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c24218047.target(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c24221808.lua b/script/c24221808.lua index 44f72768..759d2a16 100644 --- a/script/c24221808.lua +++ b/script/c24221808.lua @@ -68,8 +68,9 @@ end function c24221808.spop(e,tp,eg,ep,ev,re,r,rp) local g=e:GetLabelObject() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end + local tg=g:Filter(c24221808.spfilter,nil,e:GetHandler(),e,tp) + if ft<=0 or tg:GetCount()==0 or (ft>1 and tg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:FilterSelect(tp,c24221808.spfilter,ft,ft,nil,e:GetHandler(),e,tp) + local sg=tg:Select(tp,ft,ft,nil) Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) end diff --git a/script/c24285858.lua b/script/c24285858.lua index 72565869..de2f78bd 100644 --- a/script/c24285858.lua +++ b/script/c24285858.lua @@ -22,14 +22,15 @@ function c24285858.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) end -function c24285858.tgfilter(c,e) - return not c:IsRelateToEffect(e) -end function c24285858.activate(e,tp,eg,ep,ev,re,r,rp) local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - if tg:IsExists(c24285858.tgfilter,1,nil,e) then return end + if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=3 then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) - Duel.ShuffleDeck(tp) - Duel.BreakEffect() - Duel.Draw(tp,1,REASON_EFFECT) + local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end + local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) + if ct==3 then + Duel.BreakEffect() + Duel.Draw(tp,1,REASON_EFFECT) + end end diff --git a/script/c24291651.lua b/script/c24291651.lua index 7981cb49..34e9333c 100644 --- a/script/c24291651.lua +++ b/script/c24291651.lua @@ -1,6 +1,6 @@ --ガンバラナイト function c24291651.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(24291651,0)) e1:SetCategory(CATEGORY_POSITION) @@ -16,6 +16,6 @@ end function c24291651.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end diff --git a/script/c24311595.lua b/script/c24311595.lua index f18cfe24..fe2c21ef 100644 --- a/script/c24311595.lua +++ b/script/c24311595.lua @@ -26,7 +26,7 @@ function c24311595.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c24311595.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) end end diff --git a/script/c24317029.lua b/script/c24317029.lua index 4afbdbc1..40d95969 100644 --- a/script/c24317029.lua +++ b/script/c24317029.lua @@ -22,10 +22,5 @@ function c24317029.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(tp,c24317029.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - elseif Duel.IsPlayerCanSpecialSummon(tp) then - local cg=Duel.GetFieldGroup(tp,LOCATION_DECK,0) - Duel.ConfirmCards(1-tp,cg) - Duel.ConfirmCards(tp,cg) - Duel.ShuffleDeck(tp) end end diff --git a/script/c24348804.lua b/script/c24348804.lua old mode 100755 new mode 100644 index b1b07b9b..e5998c3f --- a/script/c24348804.lua +++ b/script/c24348804.lua @@ -61,7 +61,7 @@ function c24348804.operation(e,tp,eg,ep,ev,re,r,rp) if e:GetLabel()==0 or not e:GetHandler():IsRelateToEffect(e) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE) end end function c24348804.distg(e,c) diff --git a/script/c24382602.lua b/script/c24382602.lua new file mode 100644 index 00000000..3fc7b4f9 --- /dev/null +++ b/script/c24382602.lua @@ -0,0 +1,90 @@ +--光の霊堂 +function c24382602.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --extra summon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_EXTRA_SUMMON_COUNT) + e2:SetRange(LOCATION_FZONE) + e2:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0) + e2:SetTarget(c24382602.extg) + c:RegisterEffect(e2) + --atk Change + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_FZONE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCountLimit(1) + e3:SetTarget(c24382602.atktg) + e3:SetOperation(c24382602.atkop) + c:RegisterEffect(e3) + --to hand + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_GRAVE) + e4:SetCost(c24382602.thcost) + e4:SetTarget(c24382602.thtg) + e4:SetOperation(c24382602.thop) + c:RegisterEffect(e4) +end +function c24382602.extg(e,c) + return c:IsType(TYPE_TUNER) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:GetLevel()==1 +end +function c24382602.tgfilter(c) + return c:IsFaceup() +end +function c24382602.filter(c) + return c:IsType(TYPE_NORMAL) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() +end +function c24382602.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c24382602.tgfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c24382602.tgfilter,tp,LOCATION_MZONE,0,1,nil) + and Duel.IsExistingMatchingCard(c24382602.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c24382602.tgfilter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c24382602.atkop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c24382602.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil) + if g:GetCount()>0 then + local gc=g:GetFirst() + local lv=gc:GetLevel() + if Duel.SendtoGrave(gc,REASON_EFFECT)~=0 and gc:IsLocation(LOCATION_GRAVE) and tc:IsRelateToEffect(e) and tc:IsFaceup() then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(lv*100) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + tc:RegisterEffect(e2) + end + end +end +function c24382602.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c24382602.thfilter(c) + return c:IsCode(17655904) and c:IsAbleToHand() +end +function c24382602.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c24382602.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c24382602.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c24382602.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c24384095.lua b/script/c24384095.lua index 71ac6fe4..c3519b20 100644 --- a/script/c24384095.lua +++ b/script/c24384095.lua @@ -17,8 +17,7 @@ function c24384095.thcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsReason(REASON_RELEASE) end function c24384095.filter(c) - return c:IsLevelBelow(4) and c:IsAttribute(ATTRIBUTE_WIND) and c:GetCode()~=24384095 - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) and c:IsAbleToHand() + return c:IsLevelBelow(4) and c:IsAttribute(ATTRIBUTE_WIND) and not c:IsCode(24384095) and c:IsAbleToHand() end function c24384095.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c24384095.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end @@ -27,7 +26,7 @@ end function c24384095.thop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c24384095.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end diff --git a/script/c24413299.lua b/script/c24413299.lua new file mode 100644 index 00000000..e3b3c4e9 --- /dev/null +++ b/script/c24413299.lua @@ -0,0 +1,70 @@ +--The suppression PLUTO +function c24413299.initial_effect(c) + --announce + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(24413299,0)) + e1:SetCategory(CATEGORY_CONTROL+CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetTarget(c24413299.target) + e1:SetOperation(c24413299.operation) + c:RegisterEffect(e1) +end +function c24413299.desfilter(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) +end +function c24413299.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 + and (Duel.IsExistingMatchingCard(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) + or Duel.IsExistingMatchingCard(c24413299.desfilter,tp,0,LOCATION_ONFIELD,1,nil)) end + Duel.Hint(HINT_SELECTMSG,tp,564) + local ac=Duel.AnnounceCard(tp) + Duel.SetTargetParam(ac) + Duel.SetOperationInfo(0,CATEGORY_ANNOUNCE,nil,0,tp,ANNOUNCE_CARD) +end +function c24413299.operation(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND) + if g:GetCount()>0 then + Duel.ConfirmCards(tp,g) + local ac=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) + local tg=g:Filter(Card.IsCode,nil,ac) + local g1=Duel.GetMatchingGroup(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,nil) + local g2=Duel.GetMatchingGroup(c24413299.desfilter,tp,0,LOCATION_ONFIELD,nil) + if tg:GetCount()>0 and (g1:GetCount()>0 or g2:GetCount()>0) then + local op=0 + if g1:GetCount()>0 and g2:GetCount()>0 then + op=Duel.SelectOption(tp,aux.Stringid(24413299,1),aux.Stringid(24413299,2)) + elseif g1:GetCount()>0 then + op=Duel.SelectOption(tp,aux.Stringid(24413299,1)) + else + op=Duel.SelectOption(tp,aux.Stringid(24413299,2))+1 + end + if op==0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) + local g=g1:Select(tp,1,1,nil) + local tc=g:GetFirst() + if tc then + Duel.GetControl(tc,tp) + end + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=g2:Select(tp,1,1,nil) + local tc=g:GetFirst() + if tc then + Duel.HintSelection(g) + if Duel.Destroy(g,REASON_EFFECT)~=0 + and (tc:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0) + and not tc:IsLocation(LOCATION_HAND+LOCATION_DECK) + and tc:IsType(TYPE_SPELL+TYPE_TRAP) and tc:IsSSetable() + and Duel.SelectYesNo(tp,aux.Stringid(24413299,3)) then + Duel.BreakEffect() + Duel.SSet(tp,tc) + Duel.ConfirmCards(1-tp,tc) + end + end + end + end + Duel.ShuffleHand(1-tp) + end +end diff --git a/script/c24545464.lua b/script/c24545464.lua index 8b0714c2..866fadbf 100644 --- a/script/c24545464.lua +++ b/script/c24545464.lua @@ -16,10 +16,10 @@ function c24545464.condition(e,tp,eg,ep,ev,re,r,rp) return tc:IsControler(tp) and tc:IsFaceup() and tc:IsType(TYPE_SYNCHRO) end function c24545464.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c24545464.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c24550676.lua b/script/c24550676.lua new file mode 100644 index 00000000..4c73dc5a --- /dev/null +++ b/script/c24550676.lua @@ -0,0 +1,60 @@ +--月光舞獅子姫 +function c24550676.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcCodeFun(c,97165977,aux.FilterBoolFunction(Card.IsFusionSetCard,0xdf),2,false,false) + --spsummon condition + local e0=Effect.CreateEffect(c) + e0:SetType(EFFECT_TYPE_SINGLE) + e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e0:SetCode(EFFECT_SPSUMMON_CONDITION) + e0:SetValue(aux.fuslimit) + c:RegisterEffect(e0) + --Immune + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetValue(aux.tgoval) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e2:SetValue(c24550676.tgvalue) + c:RegisterEffect(e2) + --Double attack + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_EXTRA_ATTACK) + e3:SetValue(1) + c:RegisterEffect(e3) + --Destroy + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(24550676,0)) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_DAMAGE_STEP_END) + e4:SetCountLimit(1) + e4:SetCondition(c24550676.condition) + e4:SetTarget(c24550676.target) + e4:SetOperation(c24550676.operation) + c:RegisterEffect(e4) +end +function c24550676.tgvalue(e,re,rp) + return rp~=e:GetHandlerPlayer() +end +function c24550676.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetAttacker()==e:GetHandler() and Duel.GetAttackTarget() +end +function c24550676.filter(c) + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c24550676.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c24550676.filter,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(c24550676.filter,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c24550676.operation(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c24550676.filter,tp,0,LOCATION_MZONE,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c24566654.lua b/script/c24566654.lua old mode 100755 new mode 100644 diff --git a/script/c24573625.lua b/script/c24573625.lua index babbcf61..f59fc2cb 100644 --- a/script/c24573625.lua +++ b/script/c24573625.lua @@ -25,29 +25,19 @@ function c24573625.initial_effect(c) e4:SetType(EFFECT_TYPE_SINGLE) e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e4:SetRange(LOCATION_MZONE) - e4:SetCode(EFFECT_EXTRA_ATTACK) + e4:SetCode(EFFECT_EXTRA_ATTACK_MONSTER) e4:SetValue(1) c:RegisterEffect(e4) + --cannot be target local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) + e5:SetType(EFFECT_TYPE_FIELD) + e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e5:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) e5:SetRange(LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e5:SetCondition(c24573625.dircon) + e5:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD) + e5:SetTarget(c24573625.tglimit) + e5:SetValue(aux.tgoval) c:RegisterEffect(e5) - local e6=e5:Clone() - e6:SetCode(EFFECT_CANNOT_ATTACK) - e6:SetCondition(c24573625.atkcon2) - c:RegisterEffect(e6) - --cannot be target - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_FIELD) - e7:SetRange(LOCATION_MZONE) - e7:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e7:SetTargetRange(0,0xff) - e7:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e7:SetValue(c24573625.tglimit) - c:RegisterEffect(e7) end function c24573625.splimcon(e) return not e:GetHandler():IsForbidden() @@ -58,12 +48,6 @@ end function c24573625.value(e,c) return Duel.GetMatchingGroupCount(Card.IsSetCard,c:GetControler(),LOCATION_GRAVE,0,nil,0xab)*500 end -function c24573625.dircon(e) - return e:GetHandler():GetAttackAnnouncedCount()>0 -end -function c24573625.atkcon2(e) - return e:GetHandler():IsDirectAttacked() -end -function c24573625.tglimit(e,re,c) - return c:IsFaceup() and c:IsSetCard(0xab) and c~=e:GetHandler() +function c24573625.tglimit(e,c) + return c:IsSetCard(0xab) and c~=e:GetHandler() end diff --git a/script/c24590232.lua b/script/c24590232.lua new file mode 100644 index 00000000..e22465ac --- /dev/null +++ b/script/c24590232.lua @@ -0,0 +1,48 @@ +--王魂調和 +function c24590232.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetCondition(c24590232.condition) + e1:SetOperation(c24590232.activate) + c:RegisterEffect(e1) +end +function c24590232.condition(e,tp,eg,ep,ev,re,r,rp) + return eg:GetFirst():IsControler(1-tp) and Duel.GetAttackTarget()==nil +end +function c24590232.filter1(c,e,tp) + local lv=c:GetLevel() + return c:IsType(TYPE_SYNCHRO) and lv<9 and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false) + and Duel.IsExistingMatchingCard(c24590232.filter2,tp,LOCATION_GRAVE,0,1,nil,tp,lv) +end +function c24590232.filter2(c,tp,lv) + local rlv=lv-c:GetLevel() + local rg=Duel.GetMatchingGroup(c24590232.filter3,tp,LOCATION_GRAVE,0,c) + return rlv>0 and c:IsType(TYPE_TUNER) and c:IsAbleToRemove() + and rg:CheckWithSumEqual(Card.GetLevel,rlv,1,63) +end +function c24590232.filter3(c) + return c:GetLevel()>0 and not c:IsType(TYPE_TUNER) and c:IsAbleToRemove() +end +function c24590232.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.NegateAttack() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c24590232.filter1,tp,LOCATION_EXTRA,0,1,nil,e,tp) + and Duel.SelectYesNo(tp,aux.Stringid(24590232,0)) then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g1=Duel.SelectMatchingCard(tp,c24590232.filter1,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) + local lv=g1:GetFirst():GetLevel() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g2=Duel.SelectMatchingCard(tp,c24590232.filter2,tp,LOCATION_GRAVE,0,1,1,nil,tp,lv) + local rlv=lv-g2:GetFirst():GetLevel() + local rg=Duel.GetMatchingGroup(c24590232.filter3,tp,LOCATION_GRAVE,0,g2:GetFirst()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g3=rg:SelectWithSumEqual(tp,Card.GetLevel,rlv,1,63) + g2:Merge(g3) + Duel.Remove(g2,POS_FACEUP,REASON_EFFECT) + Duel.SpecialSummon(g1,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP) + g1:GetFirst():CompleteProcedure() + end +end diff --git a/script/c2461031.lua b/script/c2461031.lua index 101d977b..5bb27812 100644 --- a/script/c2461031.lua +++ b/script/c2461031.lua @@ -18,7 +18,7 @@ function c2461031.initial_effect(c) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(100) c:RegisterEffect(e3) local e4=Effect.CreateEffect(c) @@ -38,7 +38,7 @@ function c2461031.initial_effect(c) c:RegisterEffect(e5) end function c2461031.filter(c) - return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsForbidden() end function c2461031.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 @@ -52,7 +52,7 @@ function c2461031.eqop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectMatchingCard(tp,c2461031.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil) local tc=g:GetFirst() - if tc then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then if not Duel.Equip(tp,tc,c,true) then return end local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) diff --git a/script/c24621460.lua b/script/c24621460.lua index 6155f44e..36aa2892 100644 --- a/script/c24621460.lua +++ b/script/c24621460.lua @@ -5,14 +5,6 @@ function c24621460.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_MUST_ATTACK) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c24621460.becon) - c:RegisterEffect(e2) --pos change local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(24621460,0)) @@ -30,12 +22,9 @@ function c24621460.initial_effect(c) e4:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x11)) c:RegisterEffect(e4) end -function c24621460.becon(e) - return e:GetHandler():IsAttackable() -end function c24621460.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c24644634.lua b/script/c24644634.lua index 1a312d3e..aa69b6f9 100644 --- a/script/c24644634.lua +++ b/script/c24644634.lua @@ -26,11 +26,13 @@ function c24644634.filter(c,e,tp) return c:IsLevelBelow(4) and c:IsSetCard(0x2a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c24644634.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c24644634.filter,tp,LOCATION_DECK,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c24644634.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetMatchingGroup(c24644634.filter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()>=2 then diff --git a/script/c24648246.lua b/script/c24648246.lua deleted file mode 100644 index ad6d58c7..00000000 --- a/script/c24648246.lua +++ /dev/null @@ -1,147 +0,0 @@ ---Dice Dungeon -function c24648246.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c24648246.clear) - c:RegisterEffect(e1) - local ng=Group.CreateGroup() - ng:KeepAlive() - e1:SetLabelObject(ng) - --selfdestroy - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_ADJUST) - e2:SetRange(LOCATION_SZONE) - e2:SetOperation(c24648246.sdop) - c:RegisterEffect(e2) - --ATK change - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(87902575,0)) - e3:SetCategory(CATEGORY_REMOVE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_ATTACK_ANNOUNCE) - e3:SetCondition(c24648246.condition) - e3:SetTarget(c24648246.target) - e3:SetOperation(c24648246.operation) - c:RegisterEffect(e3) -end -function c24648246.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget() -end -function c24648246.clear(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - e:GetLabelObject():Clear() -end -function c24648246.descon(e) - return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 -end -function c24648246.sdop(e,tp,eg,ep,ev,re,r,rp) -local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0) -if g:GetCount()==0 then -Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end -end -function c24648246.target(e,tp,eg,ep,ev,re,r,rp,chk) -local a=Duel.GetAttacker() -local d=Duel.GetAttackTarget() -if chk==0 then return d:IsFaceup() and d:IsCanBeEffectTarget(e) and d:IsOnField() and a:IsFaceup() and a:IsCanBeEffectTarget(e) and a:IsOnField() end -Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,PLAYER_AL,1) -end -function c24648246.operation(e,tp,eg,ep,ev,re,r,rp) -local a=Duel.GetAttacker() -local d=Duel.GetAttackTarget() -if not e:GetHandler():IsRelateToEffect(e) then return end -local dice=Duel.TossDice(tp,1) -if dice==1 then -local e1=Effect.CreateEffect(e:GetHandler()) -e1:SetType(EFFECT_TYPE_SINGLE) -e1:SetCode(EFFECT_UPDATE_ATTACK) -e1:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) -e1:SetValue(-1000) -a:RegisterEffect(e1) -elseif dice==2 then -local e2=Effect.CreateEffect(e:GetHandler()) -e2:SetType(EFFECT_TYPE_SINGLE) -e2:SetCode(EFFECT_UPDATE_ATTACK) -e2:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) -e2:SetValue(1000) -a:RegisterEffect(e2) -elseif dice==3 then -local e3=Effect.CreateEffect(e:GetHandler()) -e3:SetType(EFFECT_TYPE_SINGLE) -e3:SetCode(EFFECT_UPDATE_ATTACK) -e3:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) -e3:SetValue(0) -a:RegisterEffect(e3) -elseif dice==4 then -local e4=Effect.CreateEffect(e:GetHandler()) -e4:SetType(EFFECT_TYPE_SINGLE) -e4:SetCode(EFFECT_SET_ATTACK) -e4:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) -e4:SetValue(0) -a:RegisterEffect(e4) -else if dice==5 then -local e5=Effect.CreateEffect(e:GetHandler()) -e5:SetType(EFFECT_TYPE_SINGLE) -e5:SetCode(EFFECT_SET_BASE_ATTACK) -e5:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) -e5:SetValue(a:GetBaseAttack()/2) -a:RegisterEffect(e5) -else -local e6=Effect.CreateEffect(e:GetHandler()) -e6:SetType(EFFECT_TYPE_SINGLE) -e6:SetCode(EFFECT_SET_BASE_ATTACK) -e6:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) -e6:SetValue(a:GetAttack()*2) -a:RegisterEffect(e6) -end -end -dice=Duel.TossDice(1-tp,1) -if dice==1 then -local e7=Effect.CreateEffect(e:GetHandler()) -e7:SetType(EFFECT_TYPE_SINGLE) -e7:SetCode(EFFECT_UPDATE_ATTACK) -e7:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) -e7:SetValue(-1000) -d:RegisterEffect(e7) -elseif dice==2 then -local e8=Effect.CreateEffect(e:GetHandler()) -e8:SetType(EFFECT_TYPE_SINGLE) -e8:SetCode(EFFECT_UPDATE_ATTACK) -e8:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) -e8:SetValue(1000) -d:RegisterEffect(e8) -elseif dice==3 then -local e9=Effect.CreateEffect(e:GetHandler()) -e9:SetType(EFFECT_TYPE_SINGLE) -e9:SetCode(EFFECT_UPDATE_ATTACK) -e9:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) -e9:SetValue(0) -d:RegisterEffect(e9) -elseif dice==4 then -local e10=Effect.CreateEffect(e:GetHandler()) -e10:SetType(EFFECT_TYPE_SINGLE) -e10:SetCode(EFFECT_SET_ATTACK) -e10:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) -e10:SetValue(0) -d:RegisterEffect(e10) -else if dice==5 then -local e11=Effect.CreateEffect(e:GetHandler()) -e11:SetType(EFFECT_TYPE_SINGLE) -e11:SetCode(EFFECT_SET_BASE_ATTACK) -e11:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) -e11:SetValue(d:GetBaseAttack()/2) -d:RegisterEffect(e11) -else -local e12=Effect.CreateEffect(e:GetHandler()) -e12:SetType(EFFECT_TYPE_SINGLE) -e12:SetCode(EFFECT_SET_BASE_ATTACK) -e12:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) -e12:SetValue(d:GetAttack()*2) -d:RegisterEffect(e12) -end -end -end \ No newline at end of file diff --git a/script/c24658418.lua b/script/c24658418.lua index 620634f9..aa2e25ed 100644 --- a/script/c24658418.lua +++ b/script/c24658418.lua @@ -32,15 +32,18 @@ function c24658418.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c24658418.operation(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),1,tp,tp,false,false,POS_FACEUP_DEFENCE) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP_DEFENSE)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c24658418.spcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 end function c24658418.mfilter(c) - return c:IsFaceup() and c:IsSetCard(0x7b) and not c:IsType(TYPE_TOKEN+TYPE_XYZ) + return c:IsFaceup() and c:IsSetCard(0x7b) and not c:IsType(TYPE_TOKEN) end function c24658418.xyzfilter(c,mg) return c:IsSetCard(0x7b) and c:IsXyzSummonable(mg) @@ -58,8 +61,6 @@ function c24658418.spop(e,tp,eg,ep,ev,re,r,rp) if xyzg:GetCount()>0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local xyz=xyzg:Select(tp,1,1,nil):GetFirst() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local sg=g:FilterSelect(tp,xyz.xyz_filter,xyz.xyz_count,xyz.xyz_count,nil) - Duel.XyzSummon(tp,xyz,sg) + Duel.XyzSummon(tp,xyz,g,1,5) end end diff --git a/script/c24661486.lua b/script/c24661486.lua index cd92a9df..de85e2d1 100644 --- a/script/c24661486.lua +++ b/script/c24661486.lua @@ -25,18 +25,18 @@ function c24661486.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c24661486.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsCanAddCounter(0x15,1) end - if chk==0 then return Duel.IsExistingTarget(Card.IsCanAddCounter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,0x15,1) end + if chkc then return chkc:IsCanAddCounter(0x1015,1) end + if chk==0 then return Duel.IsExistingTarget(Card.IsCanAddCounter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,0x1015,1) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,0x15,1) + local g=Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,0x1015,1) Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0) end function c24661486.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and tc:IsCanAddCounter(0x15,1) then - tc:AddCounter(0x15,1) + if tc and tc:IsRelateToEffect(e) and tc:IsCanAddCounter(0x1015,1) then + tc:AddCounter(0x1015,1) end end function c24661486.atkval(e,c) - return Duel.GetCounter(0,1,1,0x15)*300 + return Duel.GetCounter(0,1,1,0x1015)*300 end diff --git a/script/c24672164.lua b/script/c24672164.lua new file mode 100644 index 00000000..199b3783 --- /dev/null +++ b/script/c24672164.lua @@ -0,0 +1,58 @@ +--幻奏の華歌聖ブルーム・プリマ +function c24672164.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcFunFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x109b),aux.FilterBoolFunction(Card.IsFusionSetCard,0x9b),1,63,true) + --summon success + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_MATERIAL_CHECK) + e2:SetValue(c24672164.matcheck) + c:RegisterEffect(e2) + --Double attack + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_EXTRA_ATTACK) + e3:SetValue(1) + c:RegisterEffect(e3) + --To hand + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(24672164,0)) + e4:SetCategory(CATEGORY_TOHAND) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e4:SetCondition(c24672164.thcon) + e4:SetTarget(c24672164.thtg) + e4:SetOperation(c24672164.thop) + c:RegisterEffect(e4) +end +function c24672164.matcheck(e,c) + local ct=c:GetMaterialCount() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(ct*300) + e1:SetReset(RESET_EVENT+0xff0000) + c:RegisterEffect(e1) +end +function c24672164.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_MZONE) and bit.band(c:GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c24672164.filter(c) + return c:IsSetCard(0x9b) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c24672164.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c24672164.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c24672164.filter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c24672164.filter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c24672164.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c24673894.lua b/script/c24673894.lua index 3840c7b1..9ba54a60 100644 --- a/script/c24673894.lua +++ b/script/c24673894.lua @@ -21,7 +21,7 @@ function c24673894.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c24673894.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetAttacker() - if tc:IsRelateToEffect(e) and Duel.NegateAttack() and Duel.ChangePosition(tc,POS_FACEUP_DEFENCE)~=0 then + if tc:IsRelateToEffect(e) and Duel.NegateAttack() and Duel.ChangePosition(tc,POS_FACEUP_DEFENSE)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) diff --git a/script/c24694698.lua b/script/c24694698.lua index 4aac54aa..9d671a08 100644 --- a/script/c24694698.lua +++ b/script/c24694698.lua @@ -48,10 +48,13 @@ function c24694698.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) end function c24694698.drop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - if g:FilterCount(Card.IsRelateToEffect,nil,e)==2 then - Duel.SendtoDeck(g,nil,0,REASON_EFFECT) - Duel.ShuffleDeck(tp) + local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=2 then return end + Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) + local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end + local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) + if ct==2 then Duel.BreakEffect() Duel.Draw(tp,1,REASON_EFFECT) end diff --git a/script/c24696097.lua b/script/c24696097.lua index 74d536aa..843433ce 100644 --- a/script/c24696097.lua +++ b/script/c24696097.lua @@ -16,7 +16,7 @@ function c24696097.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(24696097,1)) e2:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCode(EVENT_CHAINING) e2:SetCountLimit(1) e2:SetRange(LOCATION_MZONE) @@ -108,7 +108,10 @@ function c24696097.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c24696097.sumop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c24701235.lua b/script/c24701235.lua old mode 100755 new mode 100644 index f8770cc9..198ca2a4 --- a/script/c24701235.lua +++ b/script/c24701235.lua @@ -1,21 +1,13 @@ --和魂 function c24701235.initial_effect(c) + --spirit + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SPSUMMON_CONDITION) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c24701235.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --extra summon local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) @@ -35,42 +27,6 @@ function c24701235.initial_effect(c) e6:SetOperation(c24701235.operation) c:RegisterEffect(e6) end -function c24701235.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(24701235,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c24701235.retcon) - e1:SetTarget(c24701235.rettg) - e1:SetOperation(c24701235.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c24701235.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetFlagEffect(24701235)>0 or c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c24701235.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c24701235.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end function c24701235.sumop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetFlagEffect(tp,24701235)~=0 then return end local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c24707869.lua b/script/c24707869.lua index e00abce9..d0bc4a87 100644 --- a/script/c24707869.lua +++ b/script/c24707869.lua @@ -11,7 +11,7 @@ function c24707869.initial_effect(c) c:RegisterEffect(e1) end function c24707869.filter(c) - return c:IsFaceup() and c:IsRace(RACE_PSYCHO) and c:IsAbleToGrave() + return c:IsFaceup() and c:IsRace(RACE_PSYCHO) end function c24707869.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c24707869.filter(chkc) end diff --git a/script/c24725825.lua b/script/c24725825.lua index 42114ef0..b5e8a297 100644 --- a/script/c24725825.lua +++ b/script/c24725825.lua @@ -29,8 +29,6 @@ end function c24725825.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRace(RACE_MACHINE+RACE_DRAGON) then - if not Duel.GetControl(tc,tp,PHASE_END,1) and not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c24731453.lua b/script/c24731453.lua index 57d31536..070626bb 100644 --- a/script/c24731453.lua +++ b/script/c24731453.lua @@ -32,7 +32,7 @@ function c24731453.spcon(e,tp,eg,ep,ev,re,r,rp) and Duel.IsExistingMatchingCard(c24731453.cfilter,tp,LOCATION_SZONE,0,1,nil) end function c24731453.filter(c) - return c:GetSequence()<5 and c:IsDestructable() + return c:GetSequence()<5 end function c24731453.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -42,14 +42,17 @@ function c24731453.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c24731453.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then local g=Duel.GetMatchingGroup(c24731453.filter,tp,LOCATION_SZONE,0,nil) if g:GetCount()>0 then Duel.BreakEffect() local ct=Duel.Destroy(g,REASON_EFFECT) Duel.Damage(1-tp,ct*200,REASON_EFFECT) end + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c24838456.lua b/script/c24838456.lua index 7aea796d..b5cd9224 100644 --- a/script/c24838456.lua +++ b/script/c24838456.lua @@ -26,7 +26,7 @@ function c24838456.target(e,tp,eg,ep,ev,re,r,rp,chk) local te=Duel.GetChainInfo(i,CHAININFO_TRIGGERING_EFFECT) local tc=te:GetHandler() ng:AddCard(tc) - if tc:IsDestructable() and tc:IsRelateToEffect(te) then + if tc:IsRelateToEffect(te) then dg:AddCard(tc) end end diff --git a/script/c24857466.lua b/script/c24857466.lua index 7f37aed8..ac8946ca 100644 --- a/script/c24857466.lua +++ b/script/c24857466.lua @@ -1,142 +1,146 @@ ---冥王竜ヴァンダルギオン -function c24857466.initial_effect(c) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_CHAIN_NEGATED) - e2:SetRange(LOCATION_HAND) - e2:SetOperation(c24857466.chop) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(24857466,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_CHAIN_END) - e3:SetRange(LOCATION_HAND) - e3:SetCondition(c24857466.hspcon) - e3:SetTarget(c24857466.hsptg) - e3:SetOperation(c24857466.hspop) - c:RegisterEffect(e3) - --spell:damage - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(24857466,1)) - e4:SetCategory(CATEGORY_DAMAGE) - e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(24857466) - e4:SetCondition(c24857466.damcon) - e4:SetTarget(c24857466.damtg) - e4:SetOperation(c24857466.damop) - c:RegisterEffect(e4) - --trap:Destroy - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(24857466,2)) - e5:SetCategory(CATEGORY_DESTROY) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET) - e5:SetCode(24857466) - e5:SetCondition(c24857466.descon) - e5:SetTarget(c24857466.destg) - e5:SetOperation(c24857466.desop) - c:RegisterEffect(e5) - --monster:spsummon - local e6=Effect.CreateEffect(c) - e6:SetDescription(aux.Stringid(24857466,3)) - e6:SetCategory(CATEGORY_SPECIAL_SUMMON) - e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e6:SetProperty(EFFECT_FLAG_CARD_TARGET) - e6:SetCode(24857466) - e6:SetCondition(c24857466.spcon) - e6:SetTarget(c24857466.sptg) - e6:SetOperation(c24857466.spop) - c:RegisterEffect(e6) -end -function c24857466.chop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if rp==tp then return end - local de,dp=Duel.GetChainInfo(ev,CHAININFO_DISABLE_REASON,CHAININFO_DISABLE_PLAYER) - if de and dp==tp and de:GetHandler():IsType(TYPE_COUNTER) then - local ty=re:GetActiveType() - local flag=c:GetFlagEffectLabel(24857466) - if not flag then - c:RegisterFlagEffect(24857466,RESET_EVENT+0x1fe0000,0,0,ty) - e:SetLabelObject(de) - elseif de~=e:GetLabelObject() then - e:SetLabelObject(de) - c:SetFlagEffectLabel(24857466,ty) - else - c:SetFlagEffectLabel(24857466,bit.bor(flag,ty)) - end - end -end -function c24857466.hspcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local label=c:GetFlagEffectLabel(24857466) - if label~=nil and label~=0 then - e:SetLabel(label) - c:SetFlagEffectLabel(24857466,0) - return true - else return false end -end -function c24857466.hsptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetTargetParam(e:GetLabel()) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c24857466.hspop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then - local tpe=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) - Duel.RaiseSingleEvent(c,24857466,e,0,0,tp,tpe) - end -end -function c24857466.damcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(ev,TYPE_SPELL)~=0 -end -function c24857466.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(1500) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1500) -end -function c24857466.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c24857466.descon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(ev,TYPE_TRAP)~=0 -end -function c24857466.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c24857466.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c24857466.spcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(ev,TYPE_MONSTER)~=0 -end -function c24857466.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c24857466.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c24857466.spfilter(chkc,e,tp) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c24857466.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c24857466.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end +--冥王竜ヴァンダルギオン +function c24857466.initial_effect(c) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_CHAIN_NEGATED) + e2:SetRange(LOCATION_HAND) + e2:SetOperation(c24857466.chop) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(24857466,0)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_CHAIN_END) + e3:SetRange(LOCATION_HAND) + e3:SetCondition(c24857466.hspcon) + e3:SetTarget(c24857466.hsptg) + e3:SetOperation(c24857466.hspop) + c:RegisterEffect(e3) + --spell:damage + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(24857466,1)) + e4:SetCategory(CATEGORY_DAMAGE) + e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e4:SetCode(EVENT_CUSTOM+24857466) + e4:SetCondition(c24857466.damcon) + e4:SetTarget(c24857466.damtg) + e4:SetOperation(c24857466.damop) + c:RegisterEffect(e4) + --trap:Destroy + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(24857466,2)) + e5:SetCategory(CATEGORY_DESTROY) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e5:SetProperty(EFFECT_FLAG_CARD_TARGET) + e5:SetCode(EVENT_CUSTOM+24857466) + e5:SetCondition(c24857466.descon) + e5:SetTarget(c24857466.destg) + e5:SetOperation(c24857466.desop) + c:RegisterEffect(e5) + --monster:spsummon + local e6=Effect.CreateEffect(c) + e6:SetDescription(aux.Stringid(24857466,3)) + e6:SetCategory(CATEGORY_SPECIAL_SUMMON) + e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e6:SetProperty(EFFECT_FLAG_CARD_TARGET) + e6:SetCode(EVENT_CUSTOM+24857466) + e6:SetCondition(c24857466.spcon) + e6:SetTarget(c24857466.sptg) + e6:SetOperation(c24857466.spop) + c:RegisterEffect(e6) +end +function c24857466.chop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if rp==tp then return end + local de,dp=Duel.GetChainInfo(ev,CHAININFO_DISABLE_REASON,CHAININFO_DISABLE_PLAYER) + if de and dp==tp and de:GetHandler():IsType(TYPE_COUNTER) then + local ty=re:GetActiveType() + local flag=c:GetFlagEffectLabel(24857466) + if not flag then + c:RegisterFlagEffect(24857466,RESET_EVENT+0x1fe0000,0,0,ty) + e:SetLabelObject(de) + elseif de~=e:GetLabelObject() then + e:SetLabelObject(de) + c:SetFlagEffectLabel(24857466,ty) + else + c:SetFlagEffectLabel(24857466,bit.bor(flag,ty)) + end + end +end +function c24857466.hspcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local label=c:GetFlagEffectLabel(24857466) + if label~=nil and label~=0 then + e:SetLabel(label) + c:SetFlagEffectLabel(24857466,0) + return true + else return false end +end +function c24857466.hsptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetTargetParam(e:GetLabel()) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c24857466.hspop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then + local tpe=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) + Duel.RaiseSingleEvent(c,EVENT_CUSTOM+24857466,e,0,0,tp,tpe) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c24857466.damcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(ev,TYPE_SPELL)~=0 +end +function c24857466.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(1500) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1500) +end +function c24857466.damop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) +end +function c24857466.descon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(ev,TYPE_TRAP)~=0 +end +function c24857466.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c24857466.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c24857466.spcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(ev,TYPE_MONSTER)~=0 +end +function c24857466.spfilter(c,e,tp) + return c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c24857466.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c24857466.spfilter(chkc,e,tp) end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c24857466.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c24857466.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c24861088.lua b/script/c24861088.lua index 6d42a7bd..bedc2529 100644 --- a/script/c24861088.lua +++ b/script/c24861088.lua @@ -71,6 +71,6 @@ end function c24861088.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c24874630.lua b/script/c24874630.lua old mode 100755 new mode 100644 index 97512baf..d453423f --- a/script/c24874630.lua +++ b/script/c24874630.lua @@ -48,9 +48,9 @@ function c24874630.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c24874630.desop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLP(tp)>1000 and Duel.SelectYesNo(tp,aux.Stringid(24874630,0)) then + if Duel.CheckLPCost(tp,1000) and Duel.SelectYesNo(tp,aux.Stringid(24874630,0)) then Duel.PayLPCost(tp,1000) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end diff --git a/script/c24903843.lua b/script/c24903843.lua old mode 100755 new mode 100644 index 9f6939e9..6cf3c5c7 --- a/script/c24903843.lua +++ b/script/c24903843.lua @@ -46,17 +46,10 @@ end function c24903843.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() - if c:IsRelateToEffect(e) - and Duel.IsPlayerCanSpecialSummonMonster(tp,24903843,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then - c:SetStatus(STATUS_NO_LEVEL,false) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(TYPE_NORMAL+TYPE_MONSTER) - e1:SetReset(RESET_EVENT+0x47c0000) - c:RegisterEffect(e1,true) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,24903843,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then + c:AddMonsterAttribute(TYPE_NORMAL) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_IMMUNE_EFFECT) @@ -64,7 +57,7 @@ function c24903843.spop(e,tp,eg,ep,ev,re,r,rp) e2:SetRange(LOCATION_MZONE) e2:SetValue(c24903843.efilter) e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) + c:RegisterEffect(e2,true) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE) e3:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) @@ -72,6 +65,7 @@ function c24903843.spop(e,tp,eg,ep,ev,re,r,rp) e3:SetReset(RESET_EVENT+0x47e0000) e3:SetValue(LOCATION_REMOVED) c:RegisterEffect(e3,true) + Duel.SpecialSummonComplete() end end function c24903843.efilter(e,re) diff --git a/script/c24907044.lua b/script/c24907044.lua new file mode 100644 index 00000000..9468dfd6 --- /dev/null +++ b/script/c24907044.lua @@ -0,0 +1,117 @@ +--魔界劇団－プリティ・ヒロイン +function c24907044.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --atk down + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(24907044,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_BATTLE_DAMAGE) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE) + e1:SetCondition(c24907044.atkcon1) + e1:SetTarget(c24907044.atktg1) + e1:SetOperation(c24907044.atkop1) + c:RegisterEffect(e1) + --to hand + local e2=e1:Clone() + e2:SetDescription(aux.Stringid(24907044,1)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetTarget(c24907044.thtg) + e2:SetOperation(c24907044.thop) + c:RegisterEffect(e2) + --atk down + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(24907044,2)) + e3:SetCategory(CATEGORY_ATKCHANGE) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_BATTLE_DAMAGE) + e3:SetRange(LOCATION_MZONE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCountLimit(1) + e3:SetTarget(c24907044.atktg2) + e3:SetOperation(c24907044.atkop2) + c:RegisterEffect(e3) + --set + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(24907044,3)) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_DESTROYED) + e4:SetCondition(c24907044.setcon) + e4:SetTarget(c24907044.settg) + e4:SetOperation(c24907044.setop) + c:RegisterEffect(e4) +end +function c24907044.atkcon1(e,tp,eg,ep,ev,re,r,rp) + local a=Duel.GetAttacker() + return ep==tp and a:IsControler(1-tp) and a:IsFaceup() and a:IsRelateToBattle() +end +function c24907044.atktg1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) +end +function c24907044.atkop1(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetAttacker() + if tc:IsFaceup() and tc:IsControler(1-tp) and tc:IsRelateToBattle() then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(-ev) + tc:RegisterEffect(e1) + end +end +function c24907044.thfilter(c,atk) + return c:IsFaceup() and c:IsSetCard(0x10ec) and c:IsType(TYPE_PENDULUM) and c:IsAttackBelow(atk) and c:IsAbleToHand() +end +function c24907044.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c24907044.thfilter,tp,LOCATION_EXTRA,0,1,nil,ev) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_EXTRA) + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) +end +function c24907044.thop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c24907044.thfilter,tp,LOCATION_EXTRA,0,1,1,nil,ev) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c24907044.atktg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end + if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) +end +function c24907044.atkop2(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(-ev) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + end +end +function c24907044.setcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return (c:IsReason(REASON_BATTLE) or (rp==1-tp and c:IsReason(REASON_EFFECT))) + and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) +end +function c24907044.cfilter(c) + return c:IsSetCard(0x20ec) and c:IsType(TYPE_SPELL) and c:IsSSetable() +end +function c24907044.settg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c24907044.cfilter,tp,LOCATION_DECK,0,1,nil) end +end +function c24907044.setop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) + local g=Duel.SelectMatchingCard(tp,c24907044.cfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SSet(tp,g) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c24920410.lua b/script/c24920410.lua index 6120ca7f..c79204a5 100644 --- a/script/c24920410.lua +++ b/script/c24920410.lua @@ -29,7 +29,7 @@ function c24920410.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() then local atk=tc:GetAttack()*2 - local def=tc:GetDefence()*2 + local def=tc:GetDefense()*2 local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK_FINAL) @@ -38,7 +38,7 @@ function c24920410.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetReset(RESET_EVENT+0x1fe0000) e2:SetValue(def) tc:RegisterEffect(e2) diff --git a/script/c25067275.lua b/script/c25067275.lua index 055ca7b4..f182f123 100644 --- a/script/c25067275.lua +++ b/script/c25067275.lua @@ -31,8 +31,12 @@ function c25067275.ecfilter(c) end function c25067275.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c25067275.ecfilter,tp,LOCATION_GRAVE,0,1,nil) end + if chk==0 then + if not Duel.IsExistingTarget(c25067275.ecfilter,tp,LOCATION_GRAVE,0,1,nil) then return false end + if e:GetHandler():IsLocation(LOCATION_HAND) then + return Duel.GetLocationCount(tp,LOCATION_SZONE)>1 + else return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end + end Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(25067275,0)) local g=Duel.SelectTarget(tp,c25067275.ecfilter,tp,LOCATION_GRAVE,0,1,1,nil) local ec=g:GetFirst() diff --git a/script/c25119460.lua b/script/c25119460.lua index c286f94e..db824eaf 100644 --- a/script/c25119460.lua +++ b/script/c25119460.lua @@ -35,16 +35,17 @@ function c25119460.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA+LOCATION_GRAVE) end function c25119460.spfilter(c,code) - return c:IsCode(code) and c:IsAbleToRemoveAsCost() + return c:IsFusionCode(code) and c:IsAbleToRemoveAsCost() end function c25119460.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-1 then return false end local g1=Duel.GetMatchingGroup(c25119460.spfilter,tp,LOCATION_ONFIELD,0,nil,65622692) local g2=Duel.GetMatchingGroup(c25119460.spfilter,tp,LOCATION_ONFIELD,0,nil,64500000) if g1:GetCount()==0 or g2:GetCount()==0 then return false end + if g1:GetCount()==1 and g2:GetCount()==1 and g1:GetFirst()==g2:GetFirst() then return false end if ft>0 then return true end local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) @@ -62,12 +63,22 @@ function c25119460.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) if ft<=0 then tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() + ft=ft+1 else tc=g1:Select(tp,1,1,nil):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 + if i==1 then + g1:Clear() + if tc:IsFusionCode(64500000) then + local sg=Duel.GetMatchingGroup(c25119460.spfilter,tp,LOCATION_ONFIELD,0,tc,65622692) + g1:Merge(sg) + end + if tc:IsFusionCode(65622692) then + local sg=Duel.GetMatchingGroup(c25119460.spfilter,tp,LOCATION_ONFIELD,0,tc,64500000) + g1:Merge(sg) + end + end end Duel.Remove(g,POS_FACEUP,REASON_COST) end @@ -76,7 +87,7 @@ function c25119460.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c25119460.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c25119460.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c25119460.filter(chkc) end diff --git a/script/c25132288.lua b/script/c25132288.lua index 634a3215..7dbe528e 100644 --- a/script/c25132288.lua +++ b/script/c25132288.lua @@ -19,7 +19,7 @@ function c25132288.condition(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=c:GetBattleTarget() e:SetLabelObject(tc) - return tc and c:GetAttack()>=500 and c:GetDefence()>=500 and tc:IsFaceup() and (tc:GetAttack()>0 or tc:GetDefence()>0) + return tc and c:GetAttack()>=500 and c:GetDefense()>=500 and tc:IsFaceup() and (tc:GetAttack()>0 or tc:GetDefense()>0) end function c25132288.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -29,7 +29,7 @@ function c25132288.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=e:GetLabelObject() if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() - and c:GetAttack()>=500 and c:GetDefence()>=500 then + and c:GetAttack()>=500 and c:GetDefense()>=500 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) @@ -38,7 +38,7 @@ function c25132288.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(-500) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE) @@ -47,7 +47,7 @@ function c25132288.operation(e,tp,eg,ep,ev,re,r,rp) e3:SetValue(-1500) tc:RegisterEffect(e3) local e4=e3:Clone() - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e4) end end diff --git a/script/c25165047.lua b/script/c25165047.lua old mode 100755 new mode 100644 diff --git a/script/c25173686.lua b/script/c25173686.lua index 686f3023..937f5c34 100644 --- a/script/c25173686.lua +++ b/script/c25173686.lua @@ -18,7 +18,7 @@ function c25173686.condition(e,tp,eg,ep,ev,re,r,rp) return true end function c25173686.filter(c) - return c:GetSequence()<5 and c:IsDestructable() + return c:GetSequence()<5 end function c25173686.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c25173686.filter,tp,0,LOCATION_SZONE,1,nil) end diff --git a/script/c2519690.lua b/script/c2519690.lua new file mode 100644 index 00000000..e04075b3 --- /dev/null +++ b/script/c2519690.lua @@ -0,0 +1,59 @@ +--天翔の竜騎士ガイア +function c2519690.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0xbd),aux.FilterBoolFunction(Card.IsRace,RACE_DRAGON),true) + --change name + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetCode(EFFECT_CHANGE_CODE) + e1:SetRange(LOCATION_MZONE) + e1:SetValue(66889139) + c:RegisterEffect(e1) + --search + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(2519690,0)) + e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetTarget(c2519690.thtg) + e2:SetOperation(c2519690.thop) + c:RegisterEffect(e2) + --position + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(2519690,1)) + e3:SetCategory(CATEGORY_POSITION) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_ATTACK_ANNOUNCE) + e3:SetTarget(c2519690.postg) + e3:SetOperation(c2519690.posop) + c:RegisterEffect(e3) +end +function c2519690.thfilter(c) + return c:IsCode(49328340) and c:IsAbleToHand() +end +function c2519690.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c2519690.thfilter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE+LOCATION_DECK) +end +function c2519690.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c2519690.thfilter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c2519690.postg(e,tp,eg,ep,ev,re,r,rp,chk) + local d=Duel.GetAttackTarget() + if chk==0 then return d and d:IsControler(1-tp) end + Duel.SetOperationInfo(0,CATEGORY_POSITION,d,1,0,0) +end +function c2519690.posop(e,tp,eg,ep,ev,re,r,rp) + local d=Duel.GetAttackTarget() + if d:IsRelateToBattle() then + Duel.ChangePosition(d,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + end +end diff --git a/script/c25206027.lua b/script/c25206027.lua old mode 100755 new mode 100644 index 79ad9bda..5064b86d --- a/script/c25206027.lua +++ b/script/c25206027.lua @@ -25,7 +25,10 @@ function c25206027.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c25206027.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c25236056.lua b/script/c25236056.lua old mode 100755 new mode 100644 diff --git a/script/c2525268.lua b/script/c2525268.lua index 028f368f..3d67de91 100644 --- a/script/c2525268.lua +++ b/script/c2525268.lua @@ -1,7 +1,7 @@ --魔導騎士 ディフェンダー function c2525268.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,1) + c:EnableCounterPermit(0x1) + c:SetCounterLimit(0x1,1) --summon success local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(2525268,0)) @@ -24,11 +24,11 @@ function c2525268.initial_effect(c) end function c2525268.addct(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x3001) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x1) end function c2525268.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c2525268.dfilter(c) @@ -38,7 +38,7 @@ function c2525268.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local count=eg:FilterCount(c2525268.dfilter,nil) e:SetLabel(count) - return count>0 and Duel.IsCanRemoveCounter(tp,1,0,0x3001,count,REASON_COST) + return count>0 and Duel.IsCanRemoveCounter(tp,1,0,0x1,count,REASON_COST) end return Duel.SelectYesNo(tp,aux.Stringid(2525268,1)) end @@ -47,5 +47,5 @@ function c2525268.value(e,c) end function c2525268.desop(e,tp,eg,ep,ev,re,r,rp) local count=e:GetLabel() - Duel.RemoveCounter(tp,1,0,0x3001,count,REASON_COST) + Duel.RemoveCounter(tp,1,0,0x1,count,REASON_COST) end diff --git a/script/c25259669.lua b/script/c25259669.lua index e4a4bc49..78db9cef 100644 --- a/script/c25259669.lua +++ b/script/c25259669.lua @@ -29,6 +29,6 @@ function c25259669.sumop(e,tp,eg,ep,ev,re,r,rp) end if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) then Duel.BreakEffect() - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end diff --git a/script/c25262697.lua b/script/c25262697.lua index 12ad398f..732dc895 100644 --- a/script/c25262697.lua +++ b/script/c25262697.lua @@ -25,6 +25,6 @@ end function c25262697.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c25280974.lua b/script/c25280974.lua old mode 100755 new mode 100644 diff --git a/script/c2530830.lua b/script/c2530830.lua new file mode 100644 index 00000000..53b39355 --- /dev/null +++ b/script/c2530830.lua @@ -0,0 +1,79 @@ +--銀河眼の光波刃竜 +function c2530830.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,9,3,c2530830.ovfilter,aux.Stringid(2530830,0)) + c:EnableReviveLimit() + --xyzlimit + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) + e1:SetValue(1) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(2530830,1)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1) + e2:SetCost(c2530830.descost) + e2:SetTarget(c2530830.destg) + e2:SetOperation(c2530830.desop) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(2530830,2)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetCondition(c2530830.condition) + e3:SetTarget(c2530830.target) + e3:SetOperation(c2530830.operation) + c:RegisterEffect(e3) +end +function c2530830.ovfilter(c) + return c:IsFaceup() and c:IsSetCard(0x107b) and c:IsType(TYPE_XYZ) and c:GetRank()==8 +end +function c2530830.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c2530830.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c2530830.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c2530830.condition(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return rp==1-tp and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) + and c:IsReason(REASON_DESTROY) and (c:IsReason(REASON_EFFECT) or (c:IsReason(REASON_BATTLE) and Duel.GetAttacker():IsControler(1-tp))) + and bit.band(c:GetSummonType(),SUMMON_TYPE_XYZ)==SUMMON_TYPE_XYZ +end +function c2530830.filter(c,e,tp) + return c:IsCode(18963306) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c2530830.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c2530830.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c2530830.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c2530830.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c2530830.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c25334372.lua b/script/c25334372.lua new file mode 100644 index 00000000..6135c977 --- /dev/null +++ b/script/c25334372.lua @@ -0,0 +1,30 @@ +--九十九スラッシュ +function c25334372.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) + e1:SetCountLimit(1,25334372+EFFECT_COUNT_CODE_OATH) + e1:SetCondition(c25334372.atkcon) + e1:SetOperation(c25334372.atkop) + c:RegisterEffect(e1) +end +function c25334372.atkcon(e,tp,eg,ep,ev,re,r,rp) + local a=Duel.GetAttacker() + local d=Duel.GetAttackTarget() + if not d then return false end + return a:IsControler(tp) and a:GetAttack()0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c25339070.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c25339070.cpcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,1000) end + Duel.PayLPCost(tp,1000) +end +function c25339070.cpfilter(c) + return c:IsSetCard(0xef) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck() and c:CheckActivateEffect(false,true,false)~=nil +end +function c25339070.cptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then + local te=e:GetLabelObject() + local tg=te:GetTarget() + return tg and tg(e,tp,eg,ep,ev,re,r,rp,0,chkc) + end + if chk==0 then return Duel.IsExistingTarget(c25339070.cpfilter,tp,LOCATION_GRAVE,0,1,nil) end + e:SetProperty(EFFECT_FLAG_CARD_TARGET) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + local g=Duel.SelectTarget(tp,c25339070.cpfilter,tp,LOCATION_GRAVE,0,1,1,nil) + local te,ceg,cep,cev,cre,cr,crp=g:GetFirst():CheckActivateEffect(false,true,true) + Duel.ClearTargetCard() + g:GetFirst():CreateEffectRelation(e) + local tg=te:GetTarget() + e:SetCategory(te:GetCategory()) + e:SetProperty(te:GetProperty()) + if tg then tg(e,tp,ceg,cep,cev,cre,cr,crp,1) end + te:SetLabelObject(e:GetLabelObject()) + e:SetLabelObject(te) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,0,0,0) +end +function c25339070.cpop(e,tp,eg,ep,ev,re,r,rp) + local te=e:GetLabelObject() + if not te then return end + if not te:GetHandler():IsRelateToEffect(e) then return end + e:SetLabelObject(te:GetLabelObject()) + local op=te:GetOperation() + if op then op(e,tp,eg,ep,ev,re,r,rp) end + Duel.BreakEffect() + Duel.SendtoDeck(te:GetHandler(),nil,2,REASON_EFFECT) +end diff --git a/script/c25341652.lua b/script/c25341652.lua index 2b900444..4c0f98af 100644 --- a/script/c25341652.lua +++ b/script/c25341652.lua @@ -42,7 +42,7 @@ end function c25341652.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end function c25341652.repfilter(c,tp) diff --git a/script/c25343017.lua b/script/c25343017.lua index dec827d3..a5054d5d 100644 --- a/script/c25343017.lua +++ b/script/c25343017.lua @@ -1,6 +1,6 @@ --寡黙なるサイコプリースト function c25343017.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(25343017,0)) e1:SetCategory(CATEGORY_POSITION) @@ -47,7 +47,7 @@ end function c25343017.poop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsAttackPos() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c25343017.rmcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c25343280.lua b/script/c25343280.lua index 06f1fc47..834781ee 100644 --- a/script/c25343280.lua +++ b/script/c25343280.lua @@ -28,12 +28,14 @@ function c25343280.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) and Duel.IsExistingTarget(c25343280.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft>4 then ft=4 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c25343280.spfilter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) end function c25343280.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if Duel.GetLocationCount(tp,LOCATION_MZONE)1 then return end Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end diff --git a/script/c25366484.lua b/script/c25366484.lua old mode 100755 new mode 100644 diff --git a/script/c2542230.lua b/script/c2542230.lua old mode 100755 new mode 100644 diff --git a/script/c25451652.lua b/script/c25451652.lua new file mode 100644 index 00000000..04fb3ae1 --- /dev/null +++ b/script/c25451652.lua @@ -0,0 +1,93 @@ +--堕天使ルシフェル +function c25451652.initial_effect(c) + --cannot special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(25451652,0)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCondition(c25451652.spcon) + e2:SetTarget(c25451652.sptg) + e2:SetOperation(c25451652.spop) + c:RegisterEffect(e2) + --cannot be target + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e3:SetRange(LOCATION_MZONE) + e3:SetValue(aux.tgoval) + e3:SetCondition(c25451652.tgcon) + c:RegisterEffect(e3) + --discard deck + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(25451652,1)) + e4:SetCategory(CATEGORY_DECKDES+CATEGORY_RECOVER) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_MZONE) + e4:SetCountLimit(1) + e4:SetTarget(c25451652.distg) + e4:SetOperation(c25451652.disop) + c:RegisterEffect(e4) +end +function c25451652.spcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE +end +function c25451652.ctfilter(c) + return c:IsFaceup() and c:IsType(TYPE_EFFECT) +end +function c25451652.spfilter(c,e,tp) + return c:IsSetCard(0xef) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c25451652.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c25451652.ctfilter,tp,0,LOCATION_MZONE,1,nil) + and Duel.IsExistingMatchingCard(c25451652.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) +end +function c25451652.spop(e,tp,eg,ep,ev,re,r,rp) + local g1=Duel.GetMatchingGroup(c25451652.ctfilter,tp,0,LOCATION_MZONE,nil) + local g2=Duel.GetMatchingGroup(c25451652.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,nil,e,tp) + local ct=5 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end + ct=math.min(ct,g1:GetCount(),Duel.GetLocationCount(tp,LOCATION_MZONE)) + if ct>0 and g2:GetCount()>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=g2:Select(tp,1,ct,nil) + Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP) + end +end +function c25451652.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xef) +end +function c25451652.tgcon(e) + return Duel.IsExistingMatchingCard(c25451652.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,e:GetHandler()) +end +function c25451652.distg(e,tp,eg,ep,ev,re,r,rp,chk) + local ct=Duel.GetMatchingGroupCount(c25451652.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,ct) end + Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,ct) + Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,ct*1000) +end +function c25451652.ctfilter2(c) + return c:IsLocation(LOCATION_GRAVE) and c:IsSetCard(0xef) +end +function c25451652.disop(e,tp,eg,ep,ev,re,r,rp) + local ct1=Duel.GetMatchingGroupCount(c25451652.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if ct1>0 then + if Duel.DiscardDeck(tp,ct1,REASON_EFFECT)~=0 then + local og=Duel.GetOperatedGroup() + local ct2=og:FilterCount(c25451652.ctfilter2,nil) + if ct2>0 then + Duel.Recover(tp,ct2*500,REASON_EFFECT) + end + end + end +end diff --git a/script/c25484449.lua b/script/c25484449.lua index 82b5e2f5..e4252967 100644 --- a/script/c25484449.lua +++ b/script/c25484449.lua @@ -37,8 +37,10 @@ function c25484449.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c25484449.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c25484449.lvtg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c25494711.lua b/script/c25494711.lua new file mode 100644 index 00000000..db6474d9 --- /dev/null +++ b/script/c25494711.lua @@ -0,0 +1,90 @@ +--ブンボーグ009 +function c25494711.initial_effect(c) + --atkup + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCondition(c25494711.atkcon) + e1:SetTarget(c25494711.atktg) + e1:SetOperation(c25494711.atkop) + c:RegisterEffect(e1) + --actlimit + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetCode(EFFECT_CANNOT_ACTIVATE) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(0,1) + e2:SetValue(c25494711.aclimit) + e2:SetCondition(c25494711.actcon) + c:RegisterEffect(e2) + --destroy replace + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_DESTROY_REPLACE) + e3:SetTarget(c25494711.reptg) + e3:SetOperation(c25494711.repop) + c:RegisterEffect(e3) +end +function c25494711.atkcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()==PHASE_MAIN1 +end +function c25494711.atkfilter(c) + return c:IsFaceup() and c:IsSetCard(0xab) and not c:IsCode(25494711) +end +function c25494711.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c25494711.atkfilter,tp,LOCATION_MZONE,0,1,nil) end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetProperty(EFFECT_FLAG_OATH) + e1:SetTargetRange(LOCATION_MZONE,0) + e1:SetTarget(c25494711.ftarget) + e1:SetLabel(e:GetHandler():GetFieldID()) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c25494711.atkop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetHandler() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local g=Duel.GetMatchingGroup(c25494711.atkfilter,tp,LOCATION_MZONE,0,nil) + local atk=g:GetSum(Card.GetAttack) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_OPPO_TURN) + e1:SetValue(atk) + tc:RegisterEffect(e1) + end +end +function c25494711.ftarget(e,c) + return e:GetLabel()~=c:GetFieldID() +end +function c25494711.aclimit(e,re,tp) + return not re:GetHandler():IsImmuneToEffect(e) +end +function c25494711.actcon(e) + return Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler() +end +function c25494711.repfilter(c) + return c:IsFaceup() and c:IsSetCard(0xab) and not c:IsStatus(STATUS_DESTROY_CONFIRMED) +end +function c25494711.reptg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return not c:IsReason(REASON_REPLACE) and c:IsOnField() and c:IsFaceup() + and Duel.IsExistingMatchingCard(c25494711.repfilter,tp,LOCATION_ONFIELD,0,1,c) end + if Duel.SelectYesNo(tp,aux.Stringid(25494711,0)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESREPLACE) + local g=Duel.SelectMatchingCard(tp,c25494711.repfilter,tp,LOCATION_ONFIELD,0,1,1,c) + Duel.SetTargetCard(g) + g:GetFirst():SetStatus(STATUS_DESTROY_CONFIRMED,true) + return true + else return false end +end +function c25494711.repop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + g:GetFirst():SetStatus(STATUS_DESTROY_CONFIRMED,false) + Duel.Destroy(g,REASON_EFFECT+REASON_REPLACE) +end diff --git a/script/c25518020.lua b/script/c25518020.lua index 4ace028a..56df3fad 100644 --- a/script/c25518020.lua +++ b/script/c25518020.lua @@ -1,5 +1,6 @@ --マシン・デベロッパー function c25518020.initial_effect(c) + c:EnableCounterPermit(0x1d) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -42,7 +43,7 @@ function c25518020.ctcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c25518020.ctfilter,1,nil) end function c25518020.ctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x1d+COUNTER_NEED_ENABLE,2) + e:GetHandler():AddCounter(0x1d,2) end function c25518020.spcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end diff --git a/script/c25524823.lua b/script/c25524823.lua index b1f2cc67..518c404a 100644 --- a/script/c25524823.lua +++ b/script/c25524823.lua @@ -80,7 +80,7 @@ function c25524823.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE end function c25524823.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c25524823.target(e,tp,eg,ep,ev,re,r,rp,chk) local ct=e:GetLabel() @@ -155,7 +155,7 @@ function c25524823.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(-2000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) tc=g:GetNext() end diff --git a/script/c25542642.lua b/script/c25542642.lua index 202d5795..aed33620 100644 --- a/script/c25542642.lua +++ b/script/c25542642.lua @@ -14,10 +14,11 @@ function c25542642.initial_effect(c) e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e2:SetRange(LOCATION_SZONE) e2:SetCode(EVENT_CHAIN_SOLVED) + e2:SetLabelObject(e1) e2:SetCondition(c25542642.tgcon) e2:SetOperation(c25542642.tgop) c:RegisterEffect(e2) - --cannot attack/battle target/disable + --cannot attack/disable local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_FIELD) e3:SetCode(EFFECT_CANNOT_ATTACK) @@ -25,13 +26,17 @@ function c25542642.initial_effect(c) e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) e3:SetTarget(c25542642.ctg) c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e4:SetValue(aux.imval1) - c:RegisterEffect(e4) local e5=e3:Clone() e5:SetCode(EFFECT_DISABLE) c:RegisterEffect(e5) + --cannot be battle target + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET) + e4:SetRange(LOCATION_SZONE) + e4:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e4:SetValue(c25542642.ctg) + c:RegisterEffect(e4) --destroy local e6=Effect.CreateEffect(c) e6:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) @@ -65,7 +70,7 @@ function c25542642.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) end function c25542642.tgcon(e,tp,eg,ep,ev,re,r,rp) - return re:GetHandler()==e:GetHandler() + return re==e:GetLabelObject() end function c25542642.tgop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c25551951.lua b/script/c25551951.lua index 9a059d36..da17d444 100644 --- a/script/c25551951.lua +++ b/script/c25551951.lua @@ -13,10 +13,10 @@ function c25551951.initial_effect(c) c:RegisterEffect(e1) end function c25551951.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,3) end function c25551951.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c2561846.lua b/script/c2561846.lua index c8bdf2bd..01c5ae1e 100644 --- a/script/c2561846.lua +++ b/script/c2561846.lua @@ -15,11 +15,11 @@ function c2561846.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_COUNTER,g,1,0xe,1) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,g,1,0x100e,1) end function c2561846.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0xe,1) + tc:AddCounter(0x100e,1) end end diff --git a/script/c25629622.lua b/script/c25629622.lua new file mode 100644 index 00000000..f32f58f2 --- /dev/null +++ b/script/c25629622.lua @@ -0,0 +1,97 @@ +--魔界劇団－ビッグ・スター +function c25629622.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --to hand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(25629622,0)) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetCost(c25629622.thcost) + e1:SetTarget(c25629622.thtg) + e1:SetOperation(c25629622.thop) + c:RegisterEffect(e1) + --act limit + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetOperation(c25629622.limop) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) + --set + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_MZONE) + e4:SetCountLimit(1) + e4:SetTarget(c25629622.settg) + e4:SetOperation(c25629622.setop) + c:RegisterEffect(e4) +end +function c25629622.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x10ec) end + local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x10ec) + Duel.Release(g,REASON_COST) +end +function c25629622.thfilter(c) + return c:IsSetCard(0x20ec) and c:IsType(TYPE_SPELL) and c:IsAbleToHand() +end +function c25629622.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c25629622.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c25629622.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c25629622.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c25629622.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c25629622.limop(e,tp,eg,ep,ev,re,r,rp) + Duel.SetChainLimitTillChainEnd(c25629622.chlimit) +end +function c25629622.chlimit(e,rp,tp) + return tp==rp or e:IsActiveType(TYPE_MONSTER) +end +function c25629622.setfilter(c) + return c:IsSetCard(0x20ec) and c:IsType(TYPE_SPELL) and c:IsSSetable() +end +function c25629622.settg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c25629622.setfilter,tp,LOCATION_DECK,0,1,nil) end +end +function c25629622.setop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) + local g=Duel.SelectMatchingCard(tp,c25629622.setfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + local c=e:GetHandler() + local tc=g:GetFirst() + local fid=c:GetFieldID() + Duel.SSet(tp,tc) + tc:RegisterFlagEffect(25629622,RESET_EVENT+0x1fe0000,0,1,fid) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_PHASE+PHASE_END) + e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetCountLimit(1) + e1:SetLabel(fid) + e1:SetLabelObject(tc) + e1:SetCondition(c25629622.tgcon) + e1:SetOperation(c25629622.tgop) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + Duel.ConfirmCards(1-tp,g) + end +end +function c25629622.tgcon(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + return tc:GetFlagEffectLabel(25629622)==e:GetLabel() +end +function c25629622.tgop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + Duel.SendtoGrave(tc,REASON_EFFECT) +end diff --git a/script/c25652655.lua b/script/c25652655.lua index 33047a65..5e43a196 100644 --- a/script/c25652655.lua +++ b/script/c25652655.lua @@ -25,6 +25,6 @@ end function c25652655.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end diff --git a/script/c25669282.lua b/script/c25669282.lua new file mode 100644 index 00000000..5fa6b60a --- /dev/null +++ b/script/c25669282.lua @@ -0,0 +1,84 @@ +--完全燃焼 +function c25669282.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,25669282+EFFECT_COUNT_CODE_OATH) + e1:SetCost(c25669282.cost) + e1:SetTarget(c25669282.target) + e1:SetOperation(c25669282.activate) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(25669282,0)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_ATTACK_ANNOUNCE) + e2:SetRange(LOCATION_GRAVE) + e2:SetCondition(c25669282.spcon) + e2:SetCost(c25669282.spcost) + e2:SetTarget(c25669282.sptg) + e2:SetOperation(c25669282.spop) + c:RegisterEffect(e2) +end +function c25669282.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xeb) and c:IsAbleToRemoveAsCost() +end +function c25669282.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c25669282.cfilter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c25669282.cfilter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c25669282.spfilter1(c,e,tp) + return c:IsSetCard(0xeb) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.IsExistingMatchingCard(c25669282.spfilter2,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetCode()) +end +function c25669282.spfilter2(c,e,tp,code) + return c:IsSetCard(0xeb) and not c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c25669282.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c25669282.spfilter1,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) +end +function c25669282.activate(e,tp,eg,ep,ev,re,r,rp) + if not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g1=Duel.SelectMatchingCard(tp,c25669282.spfilter1,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g1:GetCount()<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g2=Duel.SelectMatchingCard(tp,c25669282.spfilter2,tp,LOCATION_DECK,0,1,1,nil,e,tp,g1:GetFirst():GetCode()) + g1:Merge(g2) + Duel.SpecialSummon(g1,0,tp,tp,false,false,POS_FACEUP) + end +end +function c25669282.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil + and aux.exccon(e,tp,eg,ep,ev,re,r,rp) +end +function c25669282.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c25669282.spfilter3(c,e,tp) + return c:IsFaceup() and c:IsType(TYPE_DUAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c25669282.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c25669282.spfilter3(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c25669282.spfilter3,tp,LOCATION_REMOVED,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c25669282.spfilter3,tp,LOCATION_REMOVED,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c25669282.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then + tc:EnableDualState() + end +end diff --git a/script/c25682811.lua b/script/c25682811.lua index 3ab02a17..a7a7fa1c 100644 --- a/script/c25682811.lua +++ b/script/c25682811.lua @@ -27,7 +27,7 @@ function c25682811.eqcon(e,tp,eg,ep,ev,re,r,rp) return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SYNCHRO)==SUMMON_TYPE_SYNCHRO end function c25682811.filter(c) - return c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) + return c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) and not c:IsForbidden() end function c25682811.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c25682811.filter(chkc) end diff --git a/script/c25704359.lua b/script/c25704359.lua index b5ac3a38..deaed266 100644 --- a/script/c25704359.lua +++ b/script/c25704359.lua @@ -57,7 +57,7 @@ function c25704359.spcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c25704359.cfilter,1,nil,tp) end function c25704359.spfilter(c,e,tp,att) - return c:IsRace(RACE_SPELLCASTER) and c:GetDefence()==1500 and c:IsAttribute(att) + return c:IsRace(RACE_SPELLCASTER) and c:GetDefense()==1500 and c:IsAttribute(att) and (c:IsCanBeSpecialSummoned(e,0,tp,false,false) or c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN)) end function c25704359.sptg(e,tp,eg,ep,ev,re,r,rp,chk) @@ -85,7 +85,7 @@ function c25704359.spop(e,tp,eg,ep,ev,re,r,rp) if tc then local spos=0 if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then spos=spos+POS_FACEUP_ATTACK end - if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENCE end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENSE end Duel.SpecialSummon(tc,0,tp,tp,false,false,spos) if tc:IsFacedown() then Duel.ConfirmCards(1-tp,tc) diff --git a/script/c25727454.lua b/script/c25727454.lua old mode 100755 new mode 100644 diff --git a/script/c2572890.lua b/script/c2572890.lua old mode 100755 new mode 100644 diff --git a/script/c25769732.lua b/script/c25769732.lua index c5b8333e..a0543280 100644 --- a/script/c25769732.lua +++ b/script/c25769732.lua @@ -18,7 +18,7 @@ function c25769732.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(300) c:RegisterEffect(e3) --equip limit diff --git a/script/c25773409.lua b/script/c25773409.lua index b4d5bb3d..c24da924 100644 --- a/script/c25773409.lua +++ b/script/c25773409.lua @@ -12,7 +12,7 @@ function c25773409.initial_effect(c) c:RegisterEffect(e1) end function c25773409.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==e:GetHandler() and bit.band(e:GetHandler():GetBattlePosition(),POS_DEFENCE)~=0 + return Duel.GetAttackTarget()==e:GetHandler() and bit.band(e:GetHandler():GetBattlePosition(),POS_DEFENSE)~=0 end function c25773409.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c25774450.lua b/script/c25774450.lua index 038843a4..d21f83b0 100644 --- a/script/c25774450.lua +++ b/script/c25774450.lua @@ -12,10 +12,10 @@ function c25774450.initial_effect(c) end function c25774450.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) and Duel.IsExistingTarget(Card.IsAbleToChangeControler,tp,LOCATION_MZONE,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g1=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) local g2=Duel.SelectTarget(tp,Card.IsAbleToChangeControler,tp,LOCATION_MZONE,0,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,1,0,0) @@ -27,8 +27,7 @@ function c25774450.activate(e,tp,eg,ep,ev,re,r,rp) local dc=dg:GetFirst() local cc=cg:GetFirst() if dc:IsRelateToEffect(e) and cc:IsRelateToEffect(e) and Duel.Destroy(dc,REASON_EFFECT)~=0 then - if not Duel.GetControl(cc,1-tp,0,0) and not cc:IsImmuneToEffect(e) and cc:IsAbleToChangeControler() then - Duel.Destroy(cc,REASON_EFFECT) - end + Duel.BreakEffect() + Duel.GetControl(cc,1-tp) end end diff --git a/script/c25795273.lua b/script/c25795273.lua old mode 100755 new mode 100644 index 84d67b28..46f17fb4 --- a/script/c25795273.lua +++ b/script/c25795273.lua @@ -11,7 +11,7 @@ function c25795273.initial_effect(c) --def down local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetRange(LOCATION_MZONE) e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) e2:SetValue(c25795273.val) diff --git a/script/c25796442.lua b/script/c25796442.lua index 5eb53a47..1d47e135 100644 --- a/script/c25796442.lua +++ b/script/c25796442.lua @@ -24,7 +24,7 @@ function c25796442.initial_effect(c) c:RegisterEffect(e4) end function c25796442.tgval(e,re,rp) - return re:IsActiveType(TYPE_EFFECT) and aux.tgval(e,re,rp) + return re:IsActiveType(TYPE_EFFECT) end function c25796442.efilter(e,re) return re:IsActiveType(TYPE_EFFECT) diff --git a/script/c25824484.lua b/script/c25824484.lua index 3a2fbbea..6f406426 100644 --- a/script/c25824484.lua +++ b/script/c25824484.lua @@ -36,7 +36,7 @@ function c25824484.operation(e,tp,eg,ep,ev,re,r,rp) end function c25824484.sdcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_DECK) and (c:IsReason(REASON_REVEAL) or c:GetPreviousPosition()==POS_FACEUP_DEFENCE) + return c:IsPreviousLocation(LOCATION_DECK) and c:IsReason(REASON_REVEAL) end function c25824484.sdop(e,tp,eg,ep,ev,re,r,rp) local ct=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0) diff --git a/script/c25847467.lua b/script/c25847467.lua index af082172..e61c597b 100644 --- a/script/c25847467.lua +++ b/script/c25847467.lua @@ -16,10 +16,10 @@ function c25847467.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetPreviousLocation()==LOCATION_HAND and bit.band(r,0x4040)==0x4040 end function c25847467.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c25847467.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c25853045.lua b/script/c25853045.lua index a7e11c5c..4bb07a8f 100644 --- a/script/c25853045.lua +++ b/script/c25853045.lua @@ -46,7 +46,7 @@ function c25853045.reptg(e,tp,eg,ep,ev,re,r,rp,chk) else return false end end function c25853045.filter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c25853045.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c25853045.filter(chkc) end diff --git a/script/c25857246.lua b/script/c25857246.lua old mode 100755 new mode 100644 diff --git a/script/c25862681.lua b/script/c25862681.lua index 71994f69..c9d72a02 100644 --- a/script/c25862681.lua +++ b/script/c25862681.lua @@ -60,10 +60,10 @@ end function c25862681.destg(e,tp,eg,ep,ev,re,r,rp,chk) local c1=Duel.GetFieldCard(0,LOCATION_SZONE,5) local c2=Duel.GetFieldCard(1,LOCATION_SZONE,5) - if chk==0 then return (c1 and c1:IsDestructable()) or (c2 and c2:IsDestructable()) end + if chk==0 then return c1 or c2 end local g=Group.CreateGroup() - if c1 and c1:IsDestructable() then g:AddCard(c1) end - if c2 and c2:IsDestructable() then g:AddCard(c2) end + if c1 then g:AddCard(c1) end + if c2 then g:AddCard(c2) end Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,1000) end @@ -74,8 +74,8 @@ function c25862681.desop(e,tp,eg,ep,ev,re,r,rp) local c1=Duel.GetFieldCard(0,LOCATION_SZONE,5) local c2=Duel.GetFieldCard(1,LOCATION_SZONE,5) local g=Group.CreateGroup() - if c1 and c1:IsDestructable() then g:AddCard(c1) end - if c2 and c2:IsDestructable() then g:AddCard(c2) end + if c1 then g:AddCard(c1) end + if c2 then g:AddCard(c2) end if g:GetCount()>0 then local ct=Duel.Destroy(g,REASON_EFFECT) if ct>0 then diff --git a/script/c25880422.lua b/script/c25880422.lua index 46766719..fe5a2715 100644 --- a/script/c25880422.lua +++ b/script/c25880422.lua @@ -23,6 +23,6 @@ end function c25880422.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsPosition(POS_FACEUP_ATTACK) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) end end diff --git a/script/c25920413.lua b/script/c25920413.lua index 4c41f6cd..76a64343 100644 --- a/script/c25920413.lua +++ b/script/c25920413.lua @@ -15,18 +15,24 @@ function c25920413.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(25920413,0)) e2:SetCategory(CATEGORY_COUNTER) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e2:SetCode(EVENT_SPSUMMON_SUCCESS) e2:SetCondition(c25920413.ctcon) e2:SetOperation(c25920413.ctop) c:RegisterEffect(e2) --atk def local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_DAMAGE_CALCULATING) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_UPDATE_ATTACK) e3:SetRange(LOCATION_MZONE) - e3:SetOperation(c25920413.adval) + e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e3:SetCondition(c25920413.adcon) + e3:SetTarget(c25920413.adtg) + e3:SetValue(c25920413.adval) c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e4) end function c25920413.spfilter(c) return c:IsLevelBelow(3) and c:IsFaceup() and c:IsReleasable() @@ -58,25 +64,16 @@ end function c25920413.ctop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - c:AddCounter(0xe,1) + c:AddCounter(COUNTER_NEED_ENABLE+0x100e,1) end end -function c25920413.addown(c,e) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(c:GetCounter(0xe)*-300) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) +function c25920413.adcon(e) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and Duel.GetAttackTarget() +end +function c25920413.adtg(e,c) + local bc=c:GetBattleTarget() + return bc and c:GetCounter(0x100e)~=0 and bc:IsSetCard(0xc) end -function c25920413.adval(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if not d then return end - if a:GetCounter(0xe)>0 and d:IsSetCard(0xc) then c25920413.addown(a,e) end - if d:GetCounter(0xe)>0 and a:IsSetCard(0xc) then c25920413.addown(d,e) end +function c25920413.adval(e,c) + return c:GetCounter(0x100e)*-300 end diff --git a/script/c259314.lua b/script/c259314.lua index 366e31b1..1f2b0ecb 100644 --- a/script/c259314.lua +++ b/script/c259314.lua @@ -35,7 +35,7 @@ function c259314.operation(e,tp,eg,ep,ev,re,r,rp) --Atk/def local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_EQUIP) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetReset(RESET_EVENT+0x1fe0000) e1:SetValue(1000) c:RegisterEffect(e1) diff --git a/script/c25935625.lua b/script/c25935625.lua index 6a24a281..5f20351c 100644 --- a/script/c25935625.lua +++ b/script/c25935625.lua @@ -61,15 +61,17 @@ function c25935625.spfilter1(c,e,tp) and Duel.IsExistingMatchingCard(c25935625.spfilter2,tp,LOCATION_DECK,0,1,c,e,tp) end function c25935625.spfilter2(c,e,tp) - return c:IsSetCard(0x9e) and c:GetDefence()==0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsSetCard(0x9e) and c:GetDefense()==0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c25935625.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c25935625.spfilter1,tp,LOCATION_DECK,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c25935625.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g1=Duel.SelectMatchingCard(tp,c25935625.spfilter1,tp,LOCATION_DECK,0,1,1,nil,e,tp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) diff --git a/script/c25955164.lua b/script/c25955164.lua index efa112ee..38893c7e 100644 --- a/script/c25955164.lua +++ b/script/c25955164.lua @@ -4,7 +4,7 @@ function c25955164.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(25955164,0)) e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetRange(LOCATION_MZONE) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetProperty(EFFECT_FLAG_NO_TURN_RESET) diff --git a/script/c2602411.lua b/script/c2602411.lua old mode 100755 new mode 100644 index ce21ed9d..bdd8f07f --- a/script/c2602411.lua +++ b/script/c2602411.lua @@ -1,87 +1,86 @@ ---破壊剣－ウィザードバスターブレード -function c2602411.initial_effect(c) - --equip - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetRange(LOCATION_HAND+LOCATION_MZONE) - e1:SetTarget(c2602411.eqtg) - e1:SetOperation(c2602411.eqop) - c:RegisterEffect(e1) - --cannot activate - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EFFECT_CANNOT_ACTIVATE) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(0,1) - e2:SetValue(c2602411.aclimit) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_SZONE) - e3:SetCost(c2602411.thcost) - e3:SetTarget(c2602411.thtg) - e3:SetOperation(c2602411.thop) - c:RegisterEffect(e3) -end -function c2602411.filter(c) - return c:IsFaceup() and c:IsCode(78193831) -end -function c2602411.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c2602411.filter(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c2602411.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c2602411.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c2602411.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - if c:IsLocation(LOCATION_MZONE) and c:IsFacedown() then return end - local tc=Duel.GetFirstTarget() - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:GetControler()~=tp or tc:IsFacedown() or not tc:IsRelateToEffect(e) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - Duel.Equip(tp,c,tc,true) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c2602411.eqlimit) - e1:SetLabelObject(tc) - c:RegisterEffect(e1) -end -function c2602411.eqlimit(e,c) - return c==e:GetLabelObject() -end -function c2602411.aclimit(e,re,tp) - local loc=re:GetActivateLocation() - return loc==LOCATION_GRAVE and re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsImmuneToEffect(e) -end -function c2602411.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c2602411.thfilter(c) - return c:IsSetCard(0xd6) and c:IsType(TYPE_MONSTER) and not c:IsCode(2602411) and c:IsAbleToHand() -end -function c2602411.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c2602411.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c2602411.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c2602411.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c2602411.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--破壊剣－ウィザードバスターブレード +function c2602411.initial_effect(c) + --equip + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCategory(CATEGORY_EQUIP) + e1:SetRange(LOCATION_HAND+LOCATION_MZONE) + e1:SetTarget(c2602411.eqtg) + e1:SetOperation(c2602411.eqop) + c:RegisterEffect(e1) + --cannot activate + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetCode(EFFECT_CANNOT_ACTIVATE) + e2:SetRange(LOCATION_SZONE) + e2:SetTargetRange(0,1) + e2:SetValue(c2602411.aclimit) + c:RegisterEffect(e2) + --tohand + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_SZONE) + e3:SetCost(c2602411.thcost) + e3:SetTarget(c2602411.thtg) + e3:SetOperation(c2602411.thop) + c:RegisterEffect(e3) +end +function c2602411.filter(c) + return c:IsFaceup() and c:IsCode(78193831) +end +function c2602411.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c2602411.filter(chkc) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 + and Duel.IsExistingTarget(c2602411.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + Duel.SelectTarget(tp,c2602411.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c2602411.eqop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if c:IsLocation(LOCATION_MZONE) and c:IsFacedown() then return end + local tc=Duel.GetFirstTarget() + if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:GetControler()~=tp or tc:IsFacedown() or not tc:IsRelateToEffect(e) then + Duel.SendtoGrave(c,REASON_EFFECT) + return + end + Duel.Equip(tp,c,tc,true) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_EQUIP_LIMIT) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(c2602411.eqlimit) + e1:SetLabelObject(tc) + c:RegisterEffect(e1) +end +function c2602411.eqlimit(e,c) + return c==e:GetLabelObject() +end +function c2602411.aclimit(e,re,tp) + local loc=re:GetActivateLocation() + return loc==LOCATION_GRAVE and re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsImmuneToEffect(e) +end +function c2602411.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST) +end +function c2602411.thfilter(c) + return c:IsSetCard(0xd6) and c:IsType(TYPE_MONSTER) and not c:IsCode(2602411) and c:IsAbleToHand() +end +function c2602411.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c2602411.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c2602411.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c2602411.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c2602411.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c26057276.lua b/script/c26057276.lua index 41424843..79036885 100644 --- a/script/c26057276.lua +++ b/script/c26057276.lua @@ -6,7 +6,7 @@ function c26057276.initial_effect(c) e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) e1:SetCountLimit(1,26057276) e1:SetTarget(c26057276.target) e1:SetOperation(c26057276.operation) @@ -30,11 +30,10 @@ function c26057276.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c26057276.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 then + if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) then local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end end diff --git a/script/c26082117.lua b/script/c26082117.lua index 53311d25..b9786e8f 100644 --- a/script/c26082117.lua +++ b/script/c26082117.lua @@ -38,7 +38,7 @@ function c26082117.op(e,tp,eg,ep,ev,re,r,rp) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CHANGE_LEVEL) e1:SetValue(e:GetLabel()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) c:RegisterEffect(e1) end end diff --git a/script/c26084285.lua b/script/c26084285.lua index f169fb66..3e409133 100644 --- a/script/c26084285.lua +++ b/script/c26084285.lua @@ -4,7 +4,7 @@ function c26084285.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(26084285,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetRange(LOCATION_HAND) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) diff --git a/script/c26202165.lua b/script/c26202165.lua index 9e6a51ce..c7f45b2a 100644 --- a/script/c26202165.lua +++ b/script/c26202165.lua @@ -6,6 +6,7 @@ function c26202165.initial_effect(c) e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) e1:SetCode(EVENT_TO_GRAVE) + e1:SetCountLimit(1,26202165) e1:SetCondition(c26202165.condition) e1:SetTarget(c26202165.target) e1:SetOperation(c26202165.operation) @@ -27,5 +28,21 @@ function c26202165.operation(e,tp,eg,ep,ev,re,r,rp) if g:GetCount()>0 then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) + local tc=g:GetFirst() + if tc:IsLocation(LOCATION_HAND) then + 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,0) + e1:SetValue(c26202165.aclimit) + e1:SetLabelObject(tc) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + end end end +function c26202165.aclimit(e,re,tp) + local tc=e:GetLabelObject() + return re:GetHandler():IsCode(tc:GetCode()) and not re:GetHandler():IsImmuneToEffect(e) +end diff --git a/script/c26211048.lua b/script/c26211048.lua old mode 100755 new mode 100644 index 79ffc91e..37f059d9 --- a/script/c26211048.lua +++ b/script/c26211048.lua @@ -20,12 +20,15 @@ function c26211048.eqcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end +function c26211048.eqfilter(c) + return c:IsLocation(LOCATION_MZONE) or c:IsLocation(LOCATION_GRAVE) and not c:IsForbidden() +end function c26211048.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsType(TYPE_MONSTER) end + if chkc then return c26211048.eqfilter(chkc) and chkc:IsControler(1-tp) and chkc:IsType(TYPE_MONSTER) end if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(Card.IsType,tp,0,LOCATION_GRAVE+LOCATION_MZONE,1,nil,TYPE_MONSTER) end + and Duel.IsExistingTarget(c26211048.eqfilter,tp,0,LOCATION_GRAVE+LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,Card.IsType,tp,0,LOCATION_GRAVE+LOCATION_MZONE,1,1,nil,TYPE_MONSTER) + local g=Duel.SelectTarget(tp,c26211048.eqfilter,tp,0,LOCATION_GRAVE+LOCATION_MZONE,1,1,nil) if g:GetFirst():IsLocation(LOCATION_GRAVE) then Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) end @@ -55,11 +58,11 @@ function c26211048.eqop(e,tp,eg,ep,ev,re,r,rp) e2:SetReset(RESET_EVENT+0x1fe0000) e2:SetValue(atk) tc:RegisterEffect(e2) - local def=tc:GetTextDefence()/2 + local def=tc:GetTextDefense()/2 if def<0 then def=0 end local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetReset(RESET_EVENT+0x1fe0000) e3:SetValue(def) tc:RegisterEffect(e3) diff --git a/script/c26268488.lua b/script/c26268488.lua index aaa6588d..c8b51b5c 100644 --- a/script/c26268488.lua +++ b/script/c26268488.lua @@ -1,104 +1,89 @@ ---聖珖神竜 スターダスト・シフル -function c26268488.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsType,TYPE_SYNCHRO),aux.NonTuner(Card.IsType,TYPE_SYNCHRO),2) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.synlimit) - c:RegisterEffect(e1) - --indes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EFFECT_DESTROY_REPLACE) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c26268488.reptg) - e2:SetValue(c26268488.repval) - c:RegisterEffect(e2) - local g=Group.CreateGroup() - g:KeepAlive() - e2:SetLabelObject(g) - --disable - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(26268488,0)) - e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DISABLE) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_CHAINING) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCondition(c26268488.discon) - e3:SetTarget(c26268488.distg) - e3:SetOperation(c26268488.disop) - c:RegisterEffect(e3) - --spsummon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(26268488,1)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_GRAVE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetCost(c26268488.spcost) - e4:SetTarget(c26268488.sptg) - e4:SetOperation(c26268488.spop) - c:RegisterEffect(e4) -end -function c26268488.repfilter(c,tp) - return c:IsControler(tp) and c:IsOnField() and c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:GetFlagEffect(26268488)==0 -end -function c26268488.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c26268488.repfilter,1,nil,tp) end - local g=eg:Filter(c26268488.repfilter,nil,tp) - local tc=g:GetFirst() - while tc do - tc:RegisterFlagEffect(26268488,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(26268488,2)) - tc=g:GetNext() - end - e:GetLabelObject():Clear() - e:GetLabelObject():Merge(g) - return true -end -function c26268488.repval(e,c) - local g=e:GetLabelObject() - return g:IsContains(c) -end -function c26268488.discon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and rp~=tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainDisablable(ev) -end -function c26268488.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c26268488.disop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateEffect(ev) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end -end -function c26268488.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c26268488.spfilter(c,e,tp) - return c:IsSetCard(0xa3) and c:IsLevelBelow(8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c26268488.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c26268488.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c26268488.spfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c26268488.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c26268488.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end +--聖珖神竜 スターダスト・シフル +function c26268488.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsType,TYPE_SYNCHRO),aux.NonTuner(Card.IsType,TYPE_SYNCHRO),2) + c:EnableReviveLimit() + --cannot special summon + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(aux.synlimit) + c:RegisterEffect(e1) + --indes + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e2:SetCode(EFFECT_INDESTRUCTABLE_COUNT) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(LOCATION_ONFIELD,0) + e2:SetValue(c26268488.indct) + c:RegisterEffect(e2) + --disable + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(26268488,0)) + e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DISABLE) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_CHAINING) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetCondition(c26268488.discon) + e3:SetTarget(c26268488.distg) + e3:SetOperation(c26268488.disop) + c:RegisterEffect(e3) + --spsummon + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(26268488,1)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_GRAVE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetCost(c26268488.spcost) + e4:SetTarget(c26268488.sptg) + e4:SetOperation(c26268488.spop) + c:RegisterEffect(e4) +end +function c26268488.indct(e,re,r,rp) + if bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 then + return 1 + else return 0 end +end +function c26268488.discon(e,tp,eg,ep,ev,re,r,rp) + return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and rp~=tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainDisablable(ev) +end +function c26268488.distg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c26268488.disop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateEffect(ev) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + if g:GetCount()>0 then + Duel.HintSelection(g) + Duel.Destroy(g,REASON_EFFECT) + end +end +function c26268488.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c26268488.spfilter(c,e,tp) + return c:IsSetCard(0xa3) and c:IsLevelBelow(8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c26268488.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c26268488.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c26268488.spfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c26268488.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c26268488.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c26285788.lua b/script/c26285788.lua index a58b973d..96f1eaaf 100644 --- a/script/c26285788.lua +++ b/script/c26285788.lua @@ -48,7 +48,7 @@ function c26285788.filter1(c) return c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c26285788.filter2(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c26285788.effectop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_CARD,0,26285788) diff --git a/script/c26302522.lua b/script/c26302522.lua index b3288140..482c7719 100644 --- a/script/c26302522.lua +++ b/script/c26302522.lua @@ -11,7 +11,7 @@ function c26302522.initial_effect(c) c:RegisterEffect(e1) end function c26302522.eqcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==e:GetHandler() and e:GetHandler():GetBattlePosition()==POS_FACEDOWN_DEFENCE + return Duel.GetAttackTarget()==e:GetHandler() and e:GetHandler():GetBattlePosition()==POS_FACEDOWN_DEFENSE end function c26302522.eqop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c26376390.lua b/script/c26376390.lua index a9518a61..0a92c596 100644 --- a/script/c26376390.lua +++ b/script/c26376390.lua @@ -35,8 +35,8 @@ function c26376390.operation(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetValue(tc:GetBaseDefence()) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) + e2:SetValue(tc:GetBaseDefense()) e2:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e2) end diff --git a/script/c26381750.lua b/script/c26381750.lua old mode 100755 new mode 100644 diff --git a/script/c26400609.lua b/script/c26400609.lua index 2e706690..6af90d81 100644 --- a/script/c26400609.lua +++ b/script/c26400609.lua @@ -62,8 +62,10 @@ function c26400609.hsptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c26400609.hspop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c26400609.retcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c26412047.lua b/script/c26412047.lua index 8b46f9b4..99a86fd9 100644 --- a/script/c26412047.lua +++ b/script/c26412047.lua @@ -10,7 +10,7 @@ function c26412047.initial_effect(c) c:RegisterEffect(e1) end function c26412047.filter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:IsDestructable() + return c:IsPosition(POS_FACEUP_ATTACK) end function c26412047.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c26412047.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c2648201.lua b/script/c2648201.lua index 86349241..aec00ad2 100644 --- a/script/c2648201.lua +++ b/script/c2648201.lua @@ -28,7 +28,7 @@ function c2648201.eqcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():CheckUniqueOnField(tp) end function c2648201.filter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) + return c:IsFaceup() and c:IsSetCard(0x107f) end function c2648201.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c2648201.filter(chkc) end @@ -71,7 +71,7 @@ function c2648201.spcon(e,tp,eg,ep,ev,re,r,rp) return c:IsReason(REASON_LOST_TARGET) and c:GetPreviousControler()==tp and ec:IsReason(REASON_DESTROY) and ec:GetReasonPlayer()~=tp end function c2648201.spfilter(c,e,tp) - return c:IsSetCard(0x7f) and c:IsCanBeSpecialSummoned(e,0,tp,tp,false,false) + return c:IsSetCard(0x107f) and c:IsCanBeSpecialSummoned(e,0,tp,tp,false,false) end function c2648201.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c2648201.spfilter(chkc,e,tp) end diff --git a/script/c26493435.lua b/script/c26493435.lua index 1336aa57..720b5005 100644 --- a/script/c26493435.lua +++ b/script/c26493435.lua @@ -1,5 +1,6 @@ --希望郷－オノマトピア－ function c26493435.initial_effect(c) + c:EnableCounterPermit(0x30) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -23,7 +24,7 @@ function c26493435.initial_effect(c) e3:SetValue(c26493435.val) c:RegisterEffect(e3) local e4=e3:Clone() - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e4) --special summon local e5=Effect.CreateEffect(c) @@ -38,13 +39,13 @@ function c26493435.initial_effect(c) c:RegisterEffect(e5) end function c26493435.ctfilter(c,tp) - return c:IsFaceup() and c:IsSetCard(0x7f) and c:IsControler(tp) + return c:IsFaceup() and c:IsSetCard(0x107f) and c:IsControler(tp) end function c26493435.ctcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c26493435.ctfilter,1,nil,tp) end function c26493435.ctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x30+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x30,1) end function c26493435.val(e,c) return e:GetHandler():GetCounter(0x30)*200 diff --git a/script/c26495087.lua b/script/c26495087.lua index a45e4915..70f67fe5 100644 --- a/script/c26495087.lua +++ b/script/c26495087.lua @@ -32,9 +32,5 @@ function c26495087.tgop(e,tp,eg,ep,ev,re,r,rp) else g=Duel.SelectMatchingCard(1-tp,c26495087.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil,TYPE_TRAP) end if g:GetCount()~=0 then Duel.SendtoGrave(g,REASON_EFFECT) - else - local cg=Duel.GetFieldGroup(tp,0,LOCATION_DECK) - Duel.ConfirmCards(tp,cg) - Duel.ShuffleDeck(1-tp) end end diff --git a/script/c26509612.lua b/script/c26509612.lua old mode 100755 new mode 100644 index 909fbce0..05708384 --- a/script/c26509612.lua +++ b/script/c26509612.lua @@ -11,7 +11,7 @@ function c26509612.initial_effect(c) c:RegisterEffect(e1) end function c26509612.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_BATTLE + return Duel.GetTurnPlayer()~=tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c26509612.filter1(c) return c:IsFaceup() and c:IsCode(74711057) @@ -26,13 +26,13 @@ end function c26509612.activate(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) + e1:SetCode(EFFECT_MUST_ATTACK) e1:SetTargetRange(0,LOCATION_MZONE) e1:SetTarget(c26509612.attg) e1:SetReset(RESET_PHASE+PHASE_BATTLE) Duel.RegisterEffect(e1,tp) local e2=e1:Clone() - e2:SetCode(EFFECT_MUST_ATTACK) + e2:SetCode(EFFECT_MUST_ATTACK_MONSTER) Duel.RegisterEffect(e2,tp) local e3=Effect.CreateEffect(e:GetHandler()) e3:SetType(EFFECT_TYPE_FIELD) @@ -44,7 +44,7 @@ function c26509612.activate(e,tp,eg,ep,ev,re,r,rp) Duel.RegisterEffect(e3,tp) end function c26509612.attg(e,c) - return c:IsLevelBelow(4) and not c:IsImmuneToEffect(e) + return c:IsLevelBelow(4) end function c26509612.attg2(e,c) return c:IsCode(74711057) diff --git a/script/c26517393.lua b/script/c26517393.lua new file mode 100644 index 00000000..a7e76840 --- /dev/null +++ b/script/c26517393.lua @@ -0,0 +1,27 @@ +--裏風の精霊 +function c26517393.initial_effect(c) + --search + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c26517393.tg) + e1:SetOperation(c26517393.op) + c:RegisterEffect(e1) +end +function c26517393.filter(c) + return c:IsType(TYPE_FLIP) and c:IsAbleToHand() +end +function c26517393.tg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c26517393.filter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c26517393.op(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c26517393.filter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c26533075.lua b/script/c26533075.lua index ccd1a959..7bb5df52 100644 --- a/script/c26533075.lua +++ b/script/c26533075.lua @@ -35,7 +35,7 @@ end function c26533075.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsAttackable() and not tc:IsStatus(STATUS_ATTACK_CANCELED) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) end end function c26533075.descon(e,tp,eg,ep,ev,re,r,rp) @@ -43,14 +43,11 @@ function c26533075.descon(e,tp,eg,ep,ev,re,r,rp) and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsPreviousPosition(POS_FACEDOWN) end -function c26533075.desfilter(c) - return c:IsDestructable() -end function c26533075.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c26533075.desfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c26533075.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c26533075.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c26533075.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c26556950.lua b/script/c26556950.lua new file mode 100644 index 00000000..5e585c9f --- /dev/null +++ b/script/c26556950.lua @@ -0,0 +1,80 @@ +--No.84 ペイン・ゲイナー +function c26556950.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,11,2,c26556950.ovfilter,aux.Stringid(26556950,0),2) + c:EnableReviveLimit() + --atk/def + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) + e1:SetValue(c26556950.defval) + c:RegisterEffect(e1) + --damage + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_CHAINING) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetOperation(c26556950.regop) + c:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_CHAIN_SOLVED) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c26556950.damcon) + e3:SetOperation(c26556950.damop) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(26556950,1)) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_MZONE) + e4:SetCountLimit(1) + e4:SetCost(c26556950.descost) + e4:SetTarget(c26556950.destg) + e4:SetOperation(c26556950.desop) + c:RegisterEffect(e4) +end +c26556950.xyz_number=84 +function c26556950.ovfilter(c) + local rk=c:GetRank() + return c:IsFaceup() and c:GetOverlayCount()>=2 and c:IsType(TYPE_XYZ) and c:IsAttribute(ATTRIBUTE_DARK) and rk>=8 and rk<=10 +end +function c26556950.defval(e,c) + local g=Duel.GetMatchingGroup(Card.IsFaceup,c:GetControler(),LOCATION_MZONE,0,nil) + return g:GetSum(Card.GetRank)*200 +end +function c26556950.regop(e,tp,eg,ep,ev,re,r,rp) + if rp==tp or not re:IsHasType(EFFECT_TYPE_ACTIVATE) then return end + e:GetHandler():RegisterFlagEffect(26556950,RESET_EVENT+0x1fc0000+RESET_CHAIN,0,1) +end +function c26556950.damcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:GetOverlayCount()>0 and ep~=tp and c:GetFlagEffect(26556950)~=0 +end +function c26556950.damop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_CARD,0,26556950) + Duel.Damage(1-tp,600,REASON_EFFECT) +end +function c26556950.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c26556950.desfilter(c,def) + return c:IsFaceup() and c:IsDefenseBelow(def) +end +function c26556950.destg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return Duel.IsExistingMatchingCard(c26556950.desfilter,tp,0,LOCATION_MZONE,1,nil,c:GetDefense()) end + local g=Duel.GetMatchingGroup(c26556950.desfilter,tp,0,LOCATION_MZONE,nil,c:GetDefense()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c26556950.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end + local g=Duel.GetMatchingGroup(c26556950.desfilter,tp,0,LOCATION_MZONE,nil,c:GetDefense()) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c26570480.lua b/script/c26570480.lua index aa0502b4..e7ad3a6a 100644 --- a/script/c26570480.lua +++ b/script/c26570480.lua @@ -39,14 +39,14 @@ end function c26570480.cfilter(c,tp) local np=c:GetPosition() local pp=c:GetPreviousPosition() - return ((np==POS_FACEUP_DEFENCE and pp==POS_FACEUP_ATTACK) or (bit.band(pp,POS_DEFENCE)~=0 and np==POS_FACEUP_ATTACK)) + return ((np==POS_FACEUP_DEFENSE and pp==POS_FACEUP_ATTACK) or (bit.band(pp,POS_DEFENSE)~=0 and np==POS_FACEUP_ATTACK)) and c:IsControler(tp) and c:IsSetCard(0x71) end function c26570480.poscon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c26570480.cfilter,1,nil,tp) end function c26570480.filter(c) - return not c:IsPosition(POS_FACEUP_DEFENCE) + return not c:IsPosition(POS_FACEUP_DEFENSE) end function c26570480.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c26570480.filter(chkc) end @@ -57,8 +57,8 @@ end function c26570480.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not tc:IsPosition(POS_FACEUP_DEFENCE) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) + if tc:IsRelateToEffect(e) and not tc:IsPosition(POS_FACEUP_DEFENSE) then + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) if not tc:IsSetCard(0x71) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c26640671.lua b/script/c26640671.lua index de49a3f9..33611b36 100644 --- a/script/c26640671.lua +++ b/script/c26640671.lua @@ -67,7 +67,7 @@ function c26640671.pfilter(c) end function c26640671.posop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c26640671.pfilter,tp,0,LOCATION_MZONE,nil) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) local tc=g:GetFirst() while tc do tc:RegisterFlagEffect(26640672,RESET_EVENT+0x1fe0000,0,1) diff --git a/script/c26674724.lua b/script/c26674724.lua old mode 100755 new mode 100644 diff --git a/script/c26725158.lua b/script/c26725158.lua index 7442d1f4..573c374e 100644 --- a/script/c26725158.lua +++ b/script/c26725158.lua @@ -10,7 +10,7 @@ function c26725158.initial_effect(c) c:RegisterEffect(e1) end function c26725158.filter(c) - return c:IsRace(RACE_FIEND) and c:IsFaceup() and c:IsDestructable() + return c:IsRace(RACE_FIEND) and c:IsFaceup() end function c26725158.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c26725158.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c26775203.lua b/script/c26775203.lua index 23cd8954..d2e9dcbf 100644 --- a/script/c26775203.lua +++ b/script/c26775203.lua @@ -34,8 +34,10 @@ function c26775203.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c26775203.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c26775203.adchange(e,tp,eg,ep,ev,re,r,rp) @@ -43,6 +45,6 @@ function c26775203.adchange(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SWAP_BASE_AD) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) c:RegisterEffect(e1) end diff --git a/script/c26781870.lua b/script/c26781870.lua new file mode 100644 index 00000000..44128cc1 --- /dev/null +++ b/script/c26781870.lua @@ -0,0 +1,65 @@ +--イカサマ御法度 +function c26781870.initial_effect(c) + Duel.EnableGlobalFlag(GLOBALFLAG_SELF_TOGRAVE) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(26781870,0)) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(26781870,1)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_ACTIVATE) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetCondition(c26781870.condition) + e2:SetCost(c26781870.cost) + e2:SetTarget(c26781870.target) + e2:SetOperation(c26781870.activate) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetRange(LOCATION_SZONE) + c:RegisterEffect(e3) + --tograve + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e4:SetCode(EFFECT_SELF_TOGRAVE) + e4:SetRange(LOCATION_SZONE) + e4:SetCondition(c26781870.sdcon) + c:RegisterEffect(e4) +end +function c26781870.cfilter(c,tp) + return c:GetSummonPlayer()==1-tp and c:IsPreviousLocation(LOCATION_HAND) +end +function c26781870.condition(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c26781870.cfilter,1,nil,tp) +end +function c26781870.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetFlagEffect(26781870)==0 end + e:GetHandler():RegisterFlagEffect(26781870,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) +end +function c26781870.filter(c) + return c:GetSummonLocation()==LOCATION_HAND and c:IsAbleToHand() + and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c26781870.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c26781870.filter,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(c26781870.filter,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) +end +function c26781870.activate(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local g=Duel.GetMatchingGroup(c26781870.filter,tp,0,LOCATION_MZONE,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + end +end +function c26781870.sdfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe6) and c:IsType(TYPE_SYNCHRO) +end +function c26781870.sdcon(e) + return not Duel.IsExistingMatchingCard(c26781870.sdfilter,e:GetHandlerPlayer(),LOCATION_MZONE,LOCATION_MZONE,1,nil) +end diff --git a/script/c26834022.lua b/script/c26834022.lua index e264b666..b9ac71ad 100644 --- a/script/c26834022.lua +++ b/script/c26834022.lua @@ -27,6 +27,7 @@ function c26834022.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) local g=Duel.SelectMatchingCard(tp,c26834022.filter,tp,LOCATION_HAND,0,1,1,nil) if g:GetCount()==0 then return end + Duel.ConfirmCards(1-tp,g) Duel.SendtoDeck(g,nil,2,REASON_EFFECT) Duel.NegateActivation(ev) if re:GetHandler():IsRelateToEffect(re) then diff --git a/script/c26841274.lua b/script/c26841274.lua new file mode 100644 index 00000000..d02c1725 --- /dev/null +++ b/script/c26841274.lua @@ -0,0 +1,81 @@ +--D－フュージョン +function c26841274.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c26841274.target) + e1:SetOperation(c26841274.activate) + c:RegisterEffect(e1) +end +function c26841274.filter1(c,e) + return c:IsCanBeFusionMaterial() and c:IsSetCard(0xc008) and not c:IsImmuneToEffect(e) +end +function c26841274.filter2(c,e,tp,m,f,chkf) + return c:IsType(TYPE_FUSION) and (not f or f(c)) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) +end +function c26841274.filter3(c) + return c:IsCanBeFusionMaterial() and c:IsSetCard(0xc008) +end +function c26841274.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(c26841274.filter3,tp,LOCATION_MZONE,0,nil) + local res=Duel.IsExistingMatchingCard(c26841274.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) + if not res then + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + local mg2=fgroup(ce,e,tp):Filter(c26841274.filter3,nil) + local mf=ce:GetValue() + res=Duel.IsExistingMatchingCard(c26841274.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) + end + end + return res + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c26841274.activate(e,tp,eg,ep,ev,re,r,rp) + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(c26841274.filter1,tp,LOCATION_MZONE,0,nil,e) + local sg1=Duel.GetMatchingGroup(c26841274.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) + local mg2=nil + local sg2=nil + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + mg2=fgroup(ce,e,tp):Filter(c26841274.filter3,nil) + local mf=ce:GetValue() + sg2=Duel.GetMatchingGroup(c26841274.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) + end + if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then + local sg=sg1:Clone() + if sg2 then sg:Merge(sg2) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=sg:Select(tp,1,1,nil) + local tc=tg:GetFirst() + if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then + local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) + tc:SetMaterial(mat1) + Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) + else + local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) + local fop=ce:GetOperation() + fop(ce,e,tp,tc,mat2) + end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetValue(1) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + tc:RegisterEffect(e2) + tc:CompleteProcedure() + end +end diff --git a/script/c26885836.lua b/script/c26885836.lua index f8a9786c..077a62a1 100644 --- a/script/c26885836.lua +++ b/script/c26885836.lua @@ -14,7 +14,7 @@ end function c26885836.eqcon(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetHandler():GetBattleTarget() e:SetLabelObject(tc) - return aux.bdogcon(e,tp,eg,ep,ev,re,r,rp) + return aux.bdogcon(e,tp,eg,ep,ev,re,r,rp) and not tc:IsForbidden() end function c26885836.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return not e:GetHandler():IsHasEffect(26885836) diff --git a/script/c269012.lua b/script/c269012.lua index 0ada3cc9..e44c3273 100644 --- a/script/c269012.lua +++ b/script/c269012.lua @@ -12,7 +12,7 @@ function c269012.initial_effect(c) e2:SetRange(LOCATION_FZONE) e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) e2:SetTarget(c269012.target) - e2:SetValue(aux.tgval) + e2:SetValue(1) c:RegisterEffect(e2) local e3=e2:Clone() e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) diff --git a/script/c26905245.lua b/script/c26905245.lua old mode 100755 new mode 100644 index 2669a331..af4533ad --- a/script/c26905245.lua +++ b/script/c26905245.lua @@ -20,13 +20,14 @@ function c26905245.activate(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,26905245,0,0x21,0,3000,10,RACE_AQUA,ATTRIBUTE_WATER) then return end - c:AddTrapMonsterAttribute(TYPE_EFFECT,ATTRIBUTE_WATER,RACE_AQUA,10,0,3000) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_DEFENCE) - c:TrapMonsterBlock() + c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP_DEFENSE) + c:AddMonsterAttributeComplete() --cannot attack local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_ATTACK) e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) + c:RegisterEffect(e1,true) + Duel.SpecialSummonComplete() end diff --git a/script/c26920296.lua b/script/c26920296.lua old mode 100755 new mode 100644 index 79ce6ca9..69f91d9b --- a/script/c26920296.lua +++ b/script/c26920296.lua @@ -1,119 +1,113 @@ ---幻夢境 -function c26920296.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,26920296) - c:RegisterEffect(e1) - --draw - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(26920296,0)) - e2:SetCategory(CATEGORY_DRAW) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetRange(LOCATION_FZONE) - e2:SetCountLimit(1) - e2:SetCondition(c26920296.drcon) - e2:SetTarget(c26920296.drtg) - e2:SetOperation(c26920296.drop) - c:RegisterEffect(e2) - --lv - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(26920296,1)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetRange(LOCATION_FZONE) - e3:SetCondition(c26920296.lvcon) - e3:SetTarget(c26920296.lvtg) - e3:SetOperation(c26920296.lvop) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e4) - --destroy - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(26920296,2)) - e5:SetCategory(CATEGORY_DESTROY) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e5:SetRange(LOCATION_FZONE) - e5:SetCode(EVENT_PHASE+PHASE_END) - e5:SetCountLimit(1) - e5:SetCondition(c26920296.descon) - e5:SetTarget(c26920296.destg) - e5:SetOperation(c26920296.desop) - c:RegisterEffect(e5) -end -function c26920296.cfilter(c,type) - return c:IsFaceup() and c:IsType(type) -end -function c26920296.drcfilter(c,tp) - return c:IsPreviousLocation(LOCATION_HAND+LOCATION_MZONE) and c:IsType(TYPE_MONSTER) and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp -end -function c26920296.drcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c26920296.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,TYPE_FUSION) - and eg:IsExists(c26920296.drcfilter,1,nil,tp) -end -function c26920296.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) -end -function c26920296.drop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end -function c26920296.lvcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c26920296.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,TYPE_SYNCHRO) -end -function c26920296.lvfilter(c) - return c:IsFaceup() and c:GetLevel()>0 -end -function c26920296.lvtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c26920296.lvfilter,1,nil) end - Duel.SetTargetCard(eg) - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) -end -function c26920296.lvop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=eg:Filter(c26920296.lvfilter,nil):Filter(Card.IsRelateToEffect,nil,e) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(1) - tc:RegisterEffect(e1) - tc=g:GetNext() - end -end -function c26920296.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c26920296.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,TYPE_XYZ) - and Duel.GetTurnPlayer()==tp -end -function c26920296.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - if g:GetCount()==0 then return end - local mg,lv=g:GetMaxGroup(Card.GetLevel) - if lv==0 then return end - local dg=mg:Filter(Card.IsDestructable,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,dg:GetCount(),0,0) -end -function c26920296.desop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - if g:GetCount()==0 then return end - local mg,lv=g:GetMaxGroup(Card.GetLevel) - if lv==0 then return end - local dg=mg:Filter(Card.IsDestructable,nil) - if dg:GetCount()>0 then - Duel.Destroy(dg,REASON_EFFECT) - end -end +--幻夢境 +function c26920296.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,26920296) + c:RegisterEffect(e1) + --draw + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(26920296,0)) + e2:SetCategory(CATEGORY_DRAW) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetRange(LOCATION_FZONE) + e2:SetCountLimit(1) + e2:SetCondition(c26920296.drcon) + e2:SetTarget(c26920296.drtg) + e2:SetOperation(c26920296.drop) + c:RegisterEffect(e2) + --lv + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(26920296,1)) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_SUMMON_SUCCESS) + e3:SetRange(LOCATION_FZONE) + e3:SetTarget(c26920296.lvtg) + e3:SetOperation(c26920296.lvop) + c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e4) + --destroy + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(26920296,2)) + e5:SetCategory(CATEGORY_DESTROY) + e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e5:SetRange(LOCATION_FZONE) + e5:SetCode(EVENT_PHASE+PHASE_END) + e5:SetCountLimit(1) + e5:SetCondition(c26920296.descon) + e5:SetTarget(c26920296.destg) + e5:SetOperation(c26920296.desop) + c:RegisterEffect(e5) +end +function c26920296.cfilter(c,type) + return c:IsFaceup() and c:IsType(type) +end +function c26920296.drcfilter(c,tp) + return c:IsPreviousLocation(LOCATION_HAND+LOCATION_MZONE) and c:IsType(TYPE_MONSTER) and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp +end +function c26920296.drcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c26920296.drcfilter,1,nil,tp) +end +function c26920296.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) and e:GetHandler():IsRelateToEffect(e) + and Duel.IsExistingMatchingCard(c26920296.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,TYPE_FUSION) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) +end +function c26920296.drop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end +function c26920296.lvfilter(c) + return c:IsFaceup() and c:GetLevel()>0 +end +function c26920296.lvtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return eg:IsExists(c26920296.lvfilter,1,nil) + and Duel.IsExistingMatchingCard(c26920296.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,TYPE_SYNCHRO) end + Duel.SetTargetCard(eg) + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) +end +function c26920296.lvop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local g=eg:Filter(c26920296.lvfilter,nil):Filter(Card.IsRelateToEffect,nil,e) + local tc=g:GetFirst() + while tc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_LEVEL) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(1) + tc:RegisterEffect(e1) + tc=g:GetNext() + end +end +function c26920296.descon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c26920296.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c26920296.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,TYPE_XYZ) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) + local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if g:GetCount()==0 then return end + local mg,lv=g:GetMaxGroup(Card.GetLevel) + if lv==0 then return end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,mg,mg:GetCount(),0,0) +end +function c26920296.desop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if g:GetCount()==0 then return end + local mg,lv=g:GetMaxGroup(Card.GetLevel) + if lv==0 then return end + if mg:GetCount()>0 then + Duel.Destroy(mg,REASON_EFFECT) + end +end diff --git a/script/c2694423.lua b/script/c2694423.lua index 99716ef3..1eafdfb9 100644 --- a/script/c2694423.lua +++ b/script/c2694423.lua @@ -29,14 +29,14 @@ end function c2694423.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c2694423.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c2694423.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c26956670.lua b/script/c26956670.lua index 884a4903..9abaf007 100644 --- a/script/c26956670.lua +++ b/script/c26956670.lua @@ -39,9 +39,10 @@ end function c26956670.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)==0 then return end + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() end end function c26956670.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c26964762.lua b/script/c26964762.lua new file mode 100644 index 00000000..a74f82eb --- /dev/null +++ b/script/c26964762.lua @@ -0,0 +1,107 @@ +--D－HERO ダークエンジェル +function c26964762.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(26964762,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c26964762.spcon) + e1:SetCost(c26964762.spcost) + e1:SetTarget(c26964762.sptg) + e1:SetOperation(c26964762.spop) + c:RegisterEffect(e1) + --disable and destroy + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EVENT_CHAIN_SOLVING) + e2:SetOperation(c26964762.disop) + c:RegisterEffect(e2) + --deck top + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(26964762,1)) + e3:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD) + e3:SetRange(LOCATION_GRAVE) + e3:SetCode(EVENT_PHASE+PHASE_STANDBY) + e3:SetCountLimit(1) + e3:SetCondition(c26964762.deckcon) + e3:SetCost(c26964762.deckcost) + e3:SetTarget(c26964762.decktg) + e3:SetOperation(c26964762.deckop) + c:RegisterEffect(e3) +end +function c26964762.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_GRAVE,0,3,nil,0xc008) +end +function c26964762.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) +end +function c26964762.spfilter(c,e,tp) + return c:IsSetCard(0xc008) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c26964762.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c26964762.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c26964762.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c26964762.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c26964762.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) + end +end +function c26964762.disop(e,tp,eg,ep,ev,re,r,rp) + if rp==tp and re:IsActiveType(TYPE_SPELL) then + local rc=re:GetHandler() + Duel.NegateEffect(ev) + if rc:IsRelateToEffect(re) then + Duel.Destroy(rc,REASON_EFFECT) + end + end +end +function c26964762.deckcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c26964762.cfilter(c) + return c:IsSetCard(0xc008) and c:IsAbleToRemoveAsCost() +end +function c26964762.deckcost(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:IsAbleToRemoveAsCost() + and Duel.IsExistingMatchingCard(c26964762.cfilter,tp,LOCATION_GRAVE,0,1,c) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c26964762.cfilter,tp,LOCATION_GRAVE,0,1,1,c) + g:AddCard(c) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c26964762.filter(c) + return c:GetType()==TYPE_SPELL +end +function c26964762.decktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>0 + and Duel.IsExistingMatchingCard(c26964762.filter,tp,LOCATION_DECK,0,1,nil) end +end +function c26964762.deckop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(26964762,3)) + local g1=Duel.SelectMatchingCard(tp,c26964762.filter,tp,LOCATION_DECK,0,1,1,nil) + Duel.Hint(HINT_SELECTMSG,1-tp,aux.Stringid(26964762,3)) + local g2=Duel.SelectMatchingCard(1-tp,c26964762.filter,1-tp,LOCATION_DECK,0,1,1,nil) + local tc1=g1:GetFirst() + local tc2=g2:GetFirst() + if tc1 then + Duel.ShuffleDeck(tp) + Duel.MoveSequence(tc1,0) + Duel.ConfirmDecktop(tp,1) + end + if tc2 then + Duel.ShuffleDeck(1-tp) + Duel.MoveSequence(tc2,0) + Duel.ConfirmDecktop(1-tp,1) + end +end diff --git a/script/c27053506.lua b/script/c27053506.lua old mode 100755 new mode 100644 diff --git a/script/c27062594.lua b/script/c27062594.lua index b76421ce..f298d8b1 100644 --- a/script/c27062594.lua +++ b/script/c27062594.lua @@ -25,9 +25,9 @@ function c27062594.activate(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if not c:IsRelateToEffect(e) or not Duel.IsPlayerCanSpecialSummonMonster(tp,27062594,0,0x21,0,0,1,RACE_FIEND,ATTRIBUTE_LIGHT) then return end - c:AddTrapMonsterAttribute(TYPE_EFFECT,ATTRIBUTE_LIGHT,RACE_FIEND,1,0,0) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - c:TrapMonsterBlock() + c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(27062594,0)) e1:SetCategory(CATEGORY_DAMAGE) @@ -40,13 +40,14 @@ function c27062594.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetTarget(c27062594.damtg) e1:SetOperation(c27062594.damop) e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) + c:RegisterEffect(e1,true) + Duel.SpecialSummonComplete() end function c27062594.damcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c27062594.cfilter(c) - return c:IsSetCard(0x7f) and c:IsAbleToRemoveAsCost() + return c:IsSetCard(0x107f) and c:IsAbleToRemoveAsCost() end function c27062594.damcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c27062594.cfilter,tp,LOCATION_GRAVE,0,1,nil) end diff --git a/script/c27103517.lua b/script/c27103517.lua new file mode 100644 index 00000000..e9bcb8d2 --- /dev/null +++ b/script/c27103517.lua @@ -0,0 +1,47 @@ +--邪神官チラム・サバク +function c27103517.initial_effect(c) + --summon with no tribute + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(27103517,0)) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetCondition(c27103517.sumcon) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BATTLE_DESTROYED) + e2:SetCountLimit(1,27103517) + e2:SetCondition(c27103517.spcon) + e2:SetTarget(c27103517.sptg) + e2:SetOperation(c27103517.spop) + c:RegisterEffect(e2) +end +function c27103517.sumcon(e,c,minc) + if c==nil then return true end + local tp=c:GetControler() + return minc==0 and c:GetLevel()>4 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>=5 +end +function c27103517.spcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsLocation(LOCATION_GRAVE) +end +function c27103517.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c27103517.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_ADD_TYPE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetValue(TYPE_TUNER) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1) + end +end diff --git a/script/c27143874.lua b/script/c27143874.lua old mode 100755 new mode 100644 index 1fccc7ec..33e6f713 --- a/script/c27143874.lua +++ b/script/c27143874.lua @@ -33,7 +33,7 @@ function c27143874.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end end diff --git a/script/c27279764.lua b/script/c27279764.lua old mode 100755 new mode 100644 index a27bbdb5..6d06cd5a --- a/script/c27279764.lua +++ b/script/c27279764.lua @@ -1,96 +1,93 @@ ---アポクリフォート・キラー -function c27279764.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --tribute limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_TRIBUTE_LIMIT) - e2:SetValue(c27279764.tlimit) - c:RegisterEffect(e2) - --summon with 3 tribute - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e3:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e3:SetCondition(c27279764.ttcon) - e3:SetOperation(c27279764.ttop) - e3:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_LIMIT_SET_PROC) - c:RegisterEffect(e4) - --immune - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE) - e5:SetRange(LOCATION_MZONE) - e5:SetCode(EFFECT_IMMUNE_EFFECT) - e5:SetCondition(c27279764.immcon) - e5:SetValue(c27279764.efilter) - c:RegisterEffect(e5) - --atk/def down - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_FIELD) - e6:SetCode(EFFECT_UPDATE_ATTACK) - e6:SetRange(LOCATION_MZONE) - e6:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e6:SetTarget(c27279764.adtg) - e6:SetValue(-500) - c:RegisterEffect(e6) - local e7=e6:Clone() - e7:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e7) - --to grave - local e8=Effect.CreateEffect(c) - e8:SetCategory(CATEGORY_TOGRAVE) - e8:SetType(EFFECT_TYPE_IGNITION) - e8:SetRange(LOCATION_MZONE) - e8:SetCountLimit(1) - e8:SetTarget(c27279764.tgtg) - e8:SetOperation(c27279764.tgop) - c:RegisterEffect(e8) -end -function c27279764.tlimit(e,c) - return not c:IsSetCard(0xaa) -end -function c27279764.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c27279764.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c27279764.immcon(e) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_NORMAL)==SUMMON_TYPE_NORMAL -end -function c27279764.efilter(e,te) - if te:IsActiveType(TYPE_SPELL+TYPE_TRAP) then return true - else return aux.qlifilter(e,te) end -end -function c27279764.adtg(e,c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c27279764.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE+LOCATION_HAND)>0 end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,0,LOCATION_MZONE+LOCATION_HAND) -end -function c27279764.tgop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsType,1-tp,LOCATION_MZONE+LOCATION_HAND,0,nil,TYPE_MONSTER) - if g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE) - local sg=g:Select(1-tp,1,1,nil) - Duel.HintSelection(sg) - Duel.SendtoGrave(sg,REASON_RULE) - else - local hg=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0) - Duel.ConfirmCards(tp,hg) - Duel.ShuffleHand(1-tp) - end -end +--アポクリフォート・キラー +function c27279764.initial_effect(c) + --cannot special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e1) + --tribute limit + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_TRIBUTE_LIMIT) + e2:SetValue(c27279764.tlimit) + c:RegisterEffect(e2) + --summon with 3 tribute + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(27279764,0)) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e3:SetCode(EFFECT_LIMIT_SUMMON_PROC) + e3:SetCondition(c27279764.ttcon) + e3:SetOperation(c27279764.ttop) + e3:SetValue(SUMMON_TYPE_ADVANCE) + c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EFFECT_LIMIT_SET_PROC) + c:RegisterEffect(e4) + --immune + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_SINGLE) + e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE) + e5:SetRange(LOCATION_MZONE) + e5:SetCode(EFFECT_IMMUNE_EFFECT) + e5:SetCondition(c27279764.immcon) + e5:SetValue(c27279764.efilter) + c:RegisterEffect(e5) + --atk/def down + local e6=Effect.CreateEffect(c) + e6:SetType(EFFECT_TYPE_FIELD) + e6:SetCode(EFFECT_UPDATE_ATTACK) + e6:SetRange(LOCATION_MZONE) + e6:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e6:SetTarget(c27279764.adtg) + e6:SetValue(-500) + c:RegisterEffect(e6) + local e7=e6:Clone() + e7:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e7) + --to grave + local e8=Effect.CreateEffect(c) + e8:SetCategory(CATEGORY_TOGRAVE) + e8:SetType(EFFECT_TYPE_IGNITION) + e8:SetRange(LOCATION_MZONE) + e8:SetCountLimit(1) + e8:SetTarget(c27279764.tgtg) + e8:SetOperation(c27279764.tgop) + c:RegisterEffect(e8) +end +function c27279764.tlimit(e,c) + return not c:IsSetCard(0xaa) +end +function c27279764.ttcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 +end +function c27279764.ttop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.SelectTribute(tp,c,3,3) + c:SetMaterial(g) + Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) +end +function c27279764.immcon(e) + return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_NORMAL)==SUMMON_TYPE_NORMAL +end +function c27279764.efilter(e,te) + if te:IsActiveType(TYPE_SPELL+TYPE_TRAP) then return true + else return aux.qlifilter(e,te) end +end +function c27279764.adtg(e,c) + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c27279764.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE+LOCATION_HAND)>0 end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,0,LOCATION_MZONE+LOCATION_HAND) +end +function c27279764.tgop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(Card.IsType,1-tp,LOCATION_MZONE+LOCATION_HAND,0,nil,TYPE_MONSTER) + if g:GetCount()>0 then + Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE) + local sg=g:Select(1-tp,1,1,nil) + Duel.HintSelection(sg) + Duel.SendtoGrave(sg,REASON_RULE) + end +end diff --git a/script/c2729285.lua b/script/c2729285.lua index dac6b8e3..8999e7a4 100644 --- a/script/c2729285.lua +++ b/script/c2729285.lua @@ -30,6 +30,5 @@ function c2729285.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c27337596.lua b/script/c27337596.lua index f0373c39..5236ae1b 100644 --- a/script/c27337596.lua +++ b/script/c27337596.lua @@ -47,7 +47,7 @@ function c27337596.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) tc:RegisterEffect(e2) Duel.SpecialSummonComplete() end diff --git a/script/c27346636.lua b/script/c27346636.lua index 44d8129e..84e3e727 100644 --- a/script/c27346636.lua +++ b/script/c27346636.lua @@ -38,11 +38,11 @@ function c27346636.splimit(e,se,sp,st) return e:GetHandler():GetLocation()~=LOCATION_EXTRA end function c27346636.spfilter1(c,tp) - return c:IsCode(78868776) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true) + return c:IsFusionCode(78868776) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true) and Duel.IsExistingMatchingCard(c27346636.spfilter2,tp,LOCATION_MZONE,0,2,c) end function c27346636.spfilter2(c) - return c:IsSetCard(0x19) and c:IsCanBeFusionMaterial() and c:IsAbleToDeckOrExtraAsCost() + return c:IsFusionSetCard(0x19) and c:IsCanBeFusionMaterial() and c:IsAbleToDeckOrExtraAsCost() end function c27346636.sprcon(e,c) if c==nil then return true end diff --git a/script/c27383110.lua b/script/c27383110.lua old mode 100755 new mode 100644 index 33adc163..99867d67 --- a/script/c27383110.lua +++ b/script/c27383110.lua @@ -13,44 +13,79 @@ function c27383110.initial_effect(c) e2:SetCategory(CATEGORY_TOHAND) e2:SetDescription(aux.Stringid(27383110,0)) e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(27383110) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_CUSTOM+27383110) + e2:SetRange(LOCATION_GRAVE) + e2:SetCondition(c27383110.thcon) e2:SetCost(c27383110.thcost) e2:SetTarget(c27383110.thtg) e2:SetOperation(c27383110.thop) - e2:SetLabelObject(e1) c:RegisterEffect(e2) + --event + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_CHAIN_END) + e3:SetRange(LOCATION_GRAVE) + e3:SetCondition(c27383110.evcon) + e3:SetOperation(c27383110.evop) + c:RegisterEffect(e3) + e1:SetLabelObject(e3) end -function c27383110.filter(c,e,tp,m) +c27383110.fit_monster={44665365} +function c27383110.filter(c,e,tp,m,ft) if not c:IsCode(44665365) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end local mg=m:Filter(Card.IsCanBeRitualMaterial,c,c) - return mg:CheckWithSumEqual(Card.GetRitualLevel,6,1,99,c) + if ft>0 then + return mg:CheckWithSumEqual(Card.GetRitualLevel,6,1,99,c) + else + return mg:IsExists(c27383110.mfilterf,1,nil,tp,mg,c) + end +end +function c27383110.mfilterf(c,tp,mg,rc) + if c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) then + Duel.SetSelectedCard(c) + return mg:CheckWithSumEqual(Card.GetRitualLevel,6,0,99,rc) + else return false end end function c27383110.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local mg=Duel.GetRitualMaterial(tp) - return Duel.IsExistingMatchingCard(c27383110.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + return ft>-1 and Duel.IsExistingMatchingCard(c27383110.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg,ft) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) end function c27383110.activate(e,tp,eg,ep,ev,re,r,rp) local mg=Duel.GetRitualMaterial(tp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c27383110.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg) + local tg=Duel.SelectMatchingCard(tp,c27383110.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg,ft) local tc=tg:GetFirst() if tc then mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,6,1,99,tc) + local mat=nil + if ft>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,6,1,99,tc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:FilterSelect(tp,c27383110.mfilterf,1,1,nil,tp,mg,tc) + Duel.SetSelectedCard(mat) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local mat2=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,6,0,99,tc) + mat:Merge(mat2) + end tc:SetMaterial(mat) Duel.ReleaseRitualMaterial(mat) Duel.BreakEffect() Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP) tc:CompleteProcedure() - e:SetLabelObject(tc) - Duel.RaiseSingleEvent(e:GetHandler(),27383110,e,0,tp,tp,0) + e:GetLabelObject():SetLabelObject(tc) end end +function c27383110.thcon(e,tp,eg,ep,ev,re,r,rp) + return re:GetHandler()==e:GetHandler() +end function c27383110.thcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsAbleToRemove() end Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) @@ -59,7 +94,7 @@ function c27383110.thfilter(c,e,tp) return c:IsLocation(LOCATION_GRAVE) and c:IsControler(tp) and c:IsAbleToHand() and c:IsCanBeEffectTarget(e) end function c27383110.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tc=e:GetLabelObject():GetLabelObject() + local tc=eg:GetFirst() local mat=tc:GetMaterial() if chkc then return mat:IsContains(chkc) and c27383110.thfilter(chkc,e,tp) end if chk==0 then return mat:IsExists(c27383110.thfilter,1,nil,e,tp) end @@ -75,3 +110,11 @@ function c27383110.thop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,tc) end end +function c27383110.evcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetLabelObject()~=nil +end +function c27383110.evop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + Duel.RaiseEvent(tc,EVENT_CUSTOM+27383110,e,0,tp,tp,0) + e:SetLabelObject(nil) +end diff --git a/script/c27408609.lua b/script/c27408609.lua index 03b6def4..d8e9f7e6 100644 --- a/script/c27408609.lua +++ b/script/c27408609.lua @@ -11,7 +11,7 @@ function c27408609.initial_effect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(c27408609.value) c:RegisterEffect(e2) end diff --git a/script/c2743001.lua b/script/c2743001.lua new file mode 100644 index 00000000..3dea58ca --- /dev/null +++ b/script/c2743001.lua @@ -0,0 +1,66 @@ +--水晶機巧－フェニキシオン +function c2743001.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsType,TYPE_SYNCHRO),aux.NonTuner(Card.IsType,TYPE_SYNCHRO),1) + c:EnableReviveLimit() + --remove + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(2743001,0)) + e1:SetCategory(CATEGORY_REMOVE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c2743001.rmcon) + e1:SetTarget(c2743001.rmtg) + e1:SetOperation(c2743001.rmop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(2743001,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_DESTROYED) + e2:SetCondition(c2743001.spcon) + e2:SetTarget(c2743001.sptg) + e2:SetOperation(c2743001.spop) + c:RegisterEffect(e2) +end +function c2743001.rmcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO +end +function c2743001.rmfilter(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemove() +end +function c2743001.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c2743001.rmfilter,tp,0,LOCATION_GRAVE+LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(c2743001.rmfilter,tp,0,LOCATION_GRAVE+LOCATION_ONFIELD,nil) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0) +end +function c2743001.rmop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c2743001.rmfilter,tp,0,LOCATION_GRAVE+LOCATION_ONFIELD,nil) + if g:GetCount()>0 then + Duel.Remove(g,POS_FACEUP,REASON_EFFECT) + end +end +function c2743001.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_MZONE) and c:GetSummonType()==SUMMON_TYPE_SYNCHRO and bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 +end +function c2743001.spfilter(c,e,tp) + return c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c2743001.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c2743001.spfilter(chkc,e,tp) and chkc~=e:GetHandler() end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c2743001.spfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c2743001.spfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler(),e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c2743001.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c27450400.lua b/script/c27450400.lua index fb8ed668..d596c223 100644 --- a/script/c27450400.lua +++ b/script/c27450400.lua @@ -21,6 +21,7 @@ function c27450400.spop(e,tp,eg,ep,ev,re,r,rp) local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE) if ft>ct then ft=ct end if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end if not Duel.IsPlayerCanSpecialSummonMonster(tp,27450401,0,0x4011,0,0,1,RACE_MACHINE,ATTRIBUTE_EARTH) then return end local ctn=true while ft>0 and ctn do diff --git a/script/c27491571.lua b/script/c27491571.lua index 2b3ec098..a4f0b664 100644 --- a/script/c27491571.lua +++ b/script/c27491571.lua @@ -42,7 +42,7 @@ end function c27491571.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c27491571.filter(c) @@ -58,6 +58,6 @@ end function c27491571.posop2(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c27503418.lua b/script/c27503418.lua new file mode 100644 index 00000000..abb7b48e --- /dev/null +++ b/script/c27503418.lua @@ -0,0 +1,41 @@ +--王者の調和 +function c27503418.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetCondition(c27503418.condition) + e1:SetOperation(c27503418.activate) + c:RegisterEffect(e1) +end +function c27503418.condition(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetAttackTarget() + return tc and tc:IsFaceup() and tc:IsControler(tp) and tc:IsType(TYPE_SYNCHRO) +end +function c27503418.filter1(c,e,tp,lv) + local rlv=c:GetLevel()-lv + return rlv>0 and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false) + and Duel.IsExistingMatchingCard(c27503418.filter2,tp,LOCATION_GRAVE,0,1,nil,tp,rlv) +end +function c27503418.filter2(c,tp,lv) + local rlv=lv-c:GetLevel() + return rlv==0 and c:IsType(TYPE_TUNER) and c:IsAbleToRemove() +end +function c27503418.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetAttackTarget() + if Duel.NegateAttack() and Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c27503418.filter1,tp,LOCATION_EXTRA,0,1,nil,e,tp,tc:GetLevel()) + and tc:IsAbleToRemove() and Duel.SelectYesNo(tp,aux.Stringid(27503418,0)) then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g1=Duel.SelectMatchingCard(tp,c27503418.filter1,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc:GetLevel()) + local lv=g1:GetFirst():GetLevel()-tc:GetLevel() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g2=Duel.SelectMatchingCard(tp,c27503418.filter2,tp,LOCATION_GRAVE,0,1,1,nil,tp,lv) + g2:AddCard(tc) + Duel.Remove(g2,POS_FACEUP,REASON_EFFECT) + Duel.SpecialSummon(g1,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP) + g1:GetFirst():CompleteProcedure() + end +end diff --git a/script/c27527047.lua b/script/c27527047.lua index e6ad3752..60b5f31a 100644 --- a/script/c27527047.lua +++ b/script/c27527047.lua @@ -12,5 +12,5 @@ function c27527047.initial_effect(c) end function c27527047.tgval(e,re,rp) local tp=e:GetHandler():GetControler() - return tp~=rp and re:GetHandler():IsType(TYPE_MONSTER) and aux.tgval(e,re,rp) + return tp~=rp and re:GetHandler():IsType(TYPE_MONSTER) end diff --git a/script/c27551.lua b/script/c27551.lua index 3306f173..9367c681 100644 --- a/script/c27551.lua +++ b/script/c27551.lua @@ -47,9 +47,10 @@ end function c27551.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK)==0 then return end + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() end end function c27551.desop(e,tp,eg,ep,ev,re,r,rp) @@ -67,7 +68,7 @@ function c27551.desop2(e,tp,eg,ep,ev,re,r,rp) end function c27551.descon3(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetHandler():GetFirstCardTarget() - return tc and eg:IsContains(tc) and tc:IsDefencePos() + return tc and eg:IsContains(tc) and tc:IsDefensePos() end function c27551.desop3(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c27552504.lua b/script/c27552504.lua old mode 100755 new mode 100644 index 60de5236..ed5ca8f6 --- a/script/c27552504.lua +++ b/script/c27552504.lua @@ -9,6 +9,7 @@ function c27552504.initial_effect(c) e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetRange(LOCATION_MZONE) e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER_E) e1:SetCountLimit(1) e1:SetCost(c27552504.tgcost) e1:SetTarget(c27552504.tgtg) @@ -43,7 +44,7 @@ end function c27552504.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():GetFlagEffect(27552504)==0 and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,0,1,tp,LOCATION_DECK) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) end function c27552504.tgop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -54,7 +55,7 @@ function c27552504.tgop(e,tp,eg,ep,ev,re,r,rp) end function c27552504.spcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:GetPreviousControler()==tp and rp~=tp and c:IsReason(REASON_DESTROY) + return c:GetPreviousControler()==tp and rp==1-tp and c:IsReason(REASON_DESTROY) end function c27552504.spfilter(c,e,tp) return c:IsSetCard(0xb1) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) diff --git a/script/c27564031.lua b/script/c27564031.lua index 93cc40df..962ee9be 100644 --- a/script/c27564031.lua +++ b/script/c27564031.lua @@ -50,9 +50,7 @@ function c27564031.operation(e,tp,eg,ep,ev,re,r,rp) local sg=g:Select(tp,3,3,nil) Duel.ConfirmCards(1-tp,sg) Duel.ShuffleDeck(tp) - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_ATOHAND) - local tg=sg:Select(1-tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SendtoHand(tc,nil,REASON_EFFECT) + local tg=sg:RandomSelect(1-tp,1) + Duel.SendtoHand(tg,nil,REASON_EFFECT) end end diff --git a/script/c27581098.lua b/script/c27581098.lua old mode 100755 new mode 100644 index c2dbc933..6a995223 --- a/script/c27581098.lua +++ b/script/c27581098.lua @@ -14,14 +14,6 @@ function c27581098.initial_effect(c) e2:SetTargetRange(1,1) e2:SetTarget(c27581098.splimit) c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(27581098) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetTargetRange(1,1) - c:RegisterEffect(e3) end function c27581098.splimit(e,c,tp,sumtp,sumpos) return bit.band(sumtp,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION diff --git a/script/c2759860.lua b/script/c2759860.lua old mode 100755 new mode 100644 index 464e9ef1..08ef7046 --- a/script/c2759860.lua +++ b/script/c2759860.lua @@ -1,69 +1,69 @@ ---グレイドル・インパクト -function c2759860.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1,2759860) - e2:SetTarget(c2759860.destg) - e2:SetOperation(c2759860.desop) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetRange(LOCATION_SZONE) - e3:SetCountLimit(1,2759860) - e3:SetCondition(c2759860.thcon) - e3:SetTarget(c2759860.thtg) - e3:SetOperation(c2759860.thop) - c:RegisterEffect(e3) -end -function c2759860.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0xd1) and c:IsDestructable() -end -function c2759860.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c2759860.desfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) - and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,c2759860.desfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0) -end -function c2759860.desop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end -end -function c2759860.thcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c2759860.filter(c) - return c:IsSetCard(0xd1) and c:IsAbleToHand() -end -function c2759860.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c2759860.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c2759860.thop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c2759860.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end +--グレイドル・インパクト +function c2759860.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_SZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1,2759860) + e2:SetTarget(c2759860.destg) + e2:SetOperation(c2759860.desop) + c:RegisterEffect(e2) + --tohand + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_PHASE+PHASE_END) + e3:SetRange(LOCATION_SZONE) + e3:SetCountLimit(1,2759860) + e3:SetCondition(c2759860.thcon) + e3:SetTarget(c2759860.thtg) + e3:SetOperation(c2759860.thop) + c:RegisterEffect(e3) +end +function c2759860.desfilter(c) + return c:IsFaceup() and c:IsSetCard(0xd1) +end +function c2759860.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.IsExistingTarget(c2759860.desfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) + and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g1=Duel.SelectTarget(tp,c2759860.desfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g2=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + g1:Merge(g2) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0) +end +function c2759860.desop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()>0 then + Duel.Destroy(g,REASON_EFFECT) + end +end +function c2759860.thcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c2759860.filter(c) + return c:IsSetCard(0xd1) and c:IsAbleToHand() +end +function c2759860.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c2759860.filter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c2759860.thop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c2759860.filter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c27655513.lua b/script/c27655513.lua index 6a9ab1dc..20e43041 100644 --- a/script/c27655513.lua +++ b/script/c27655513.lua @@ -27,10 +27,5 @@ function c27655513.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) local sg=g:Select(tp,2,2,nil) Duel.SendtoGrave(sg,REASON_EFFECT) - elseif Duel.IsPlayerCanDiscardDeck(tp,2) then - local cg=Duel.GetFieldGroup(tp,LOCATION_DECK,0) - Duel.ConfirmCards(1-tp,cg) - Duel.ConfirmCards(tp,cg) - Duel.ShuffleDeck(tp) end end diff --git a/script/c27660735.lua b/script/c27660735.lua old mode 100755 new mode 100644 index c60c1a69..557bfafb --- a/script/c27660735.lua +++ b/script/c27660735.lua @@ -13,7 +13,7 @@ function c27660735.initial_effect(c) c:RegisterEffect(e1) end function c27660735.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and (Duel.IsAbleToEnterBP() or Duel.GetCurrentPhase()==PHASE_BATTLE) + return Duel.GetTurnPlayer()~=tp and (Duel.IsAbleToEnterBP() or (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)) end function c27660735.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end diff --git a/script/c27756115.lua b/script/c27756115.lua index 7bf08f91..bd8099f9 100644 --- a/script/c27756115.lua +++ b/script/c27756115.lua @@ -69,7 +69,7 @@ function c27756115.spcost(e,tp,eg,ep,ev,re,r,rp,chk) end function c27756115.cfilter(c,e,tp) return c:IsControler(tp) and c:IsLocation(LOCATION_GRAVE) and c:IsReason(REASON_BATTLE) - and c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousPosition(POS_DEFENCE) + and c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousPosition(POS_DEFENSE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP) end function c27756115.sptg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c27762803.lua b/script/c27762803.lua index abf3f4ab..15167f2e 100644 --- a/script/c27762803.lua +++ b/script/c27762803.lua @@ -10,15 +10,10 @@ function c27762803.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_SET_BASE_ATTACK) + e2:SetCode(EFFECT_SWAP_BASE_AD) e2:SetRange(LOCATION_MZONE) e2:SetCondition(c27762803.con) - e2:SetValue(1800) c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_SET_BASE_DEFENCE) - e3:SetValue(400) - c:RegisterEffect(e3) end function c27762803.con(e) return e:GetHandler():GetFlagEffect(27762803)~=0 diff --git a/script/c27769400.lua b/script/c27769400.lua index b29834f0..8448a815 100644 --- a/script/c27769400.lua +++ b/script/c27769400.lua @@ -5,7 +5,7 @@ function c27769400.initial_effect(c) e1:SetDescription(aux.Stringid(27769400,0)) e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(27769400) + e1:SetCode(EVENT_CUSTOM+27769400) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) e1:SetRange(LOCATION_HAND) e1:SetCondition(c27769400.spcon) @@ -29,7 +29,7 @@ function c27769400.initial_effect(c) c27769400[1]=0 local ge1=Effect.GlobalEffect() ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_PHASE_START+PHASE_BATTLE) + ge1:SetCode(EVENT_PHASE_START+PHASE_BATTLE_START) ge1:SetOperation(c27769400.checkop1) Duel.RegisterEffect(ge1,0) local ge2=Effect.GlobalEffect() @@ -49,7 +49,7 @@ function c27769400.checkop2(e,tp,eg,ep,ev,re,r,rp) local g=eg:Filter(Card.IsLocation,nil,LOCATION_GRAVE) c27769400[0]:Sub(g) if c27769400[0]:GetCount()==0 then - Duel.RaiseEvent(e:GetHandler(),27769400,e,0,0,0,0) + Duel.RaiseEvent(e:GetHandler(),EVENT_CUSTOM+27769400,e,0,0,0,0) end end function c27769400.spcon(e,tp,eg,ep,ev,re,r,rp) @@ -62,8 +62,10 @@ function c27769400.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c27769400.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c27769400.descon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c27782503.lua b/script/c27782503.lua index 5aa2b54e..66232de3 100644 --- a/script/c27782503.lua +++ b/script/c27782503.lua @@ -25,11 +25,11 @@ function c27782503.cfilter(c) end function c27782503.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefencePos() + return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefensePos() and Duel.IsExistingMatchingCard(c27782503.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c27782503.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetAttackTarget():IsDestructable() end + if chk==0 then return Duel.GetAttackTarget():IsRelateToBattle() end Duel.SetOperationInfo(0,CATEGORY_DESTROY,Duel.GetAttackTarget(),1,0,0) end function c27782503.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c2779999.lua b/script/c2779999.lua index 05e4fed6..9a3b5231 100644 --- a/script/c2779999.lua +++ b/script/c2779999.lua @@ -15,7 +15,7 @@ function c2779999.condition(e,tp,eg,ep,ev,re,r,rp) return tc:IsControler(tp) and tc:IsFaceup() and tc:IsRace(RACE_PLANT) end function c2779999.filter(c) - return c:IsAttackPos() and c:IsDestructable() + return c:IsAttackPos() end function c2779999.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c2779999.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c27813661.lua b/script/c27813661.lua old mode 100755 new mode 100644 index 01bbcf56..c7035258 --- a/script/c27813661.lua +++ b/script/c27813661.lua @@ -31,7 +31,7 @@ function c27813661.tgtg(e,c) and (c:GetSequence()==6 or c:GetSequence()==7) end function c27813661.desfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c27813661.thfilter(c) return c:IsSetCard(0x99) and c:IsAbleToHand() diff --git a/script/c27827272.lua b/script/c27827272.lua index 07d2f099..28e23796 100644 --- a/script/c27827272.lua +++ b/script/c27827272.lua @@ -26,7 +26,7 @@ function c27827272.filter(c,tp) and Duel.IsExistingMatchingCard(c27827272.filter2,tp,0,LOCATION_MZONE,1,nil,c:GetAttack()) end function c27827272.filter2(c,atk) - return c:IsFaceup() and c:IsDefenceBelow(atk) and c:IsDestructable() + return c:IsFaceup() and c:IsDefenseBelow(atk) end function c27827272.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c27827272.filter(chkc,tp) end diff --git a/script/c27827903.lua b/script/c27827903.lua index d1e1fd02..7f13420f 100644 --- a/script/c27827903.lua +++ b/script/c27827903.lua @@ -19,10 +19,10 @@ function c27827903.descon(e,tp,eg,ep,ev,re,r,rp) and eg:GetFirst():IsAttribute(e:GetHandler():GetAttribute()) end function c27827903.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c27827903.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c2783661.lua b/script/c2783661.lua new file mode 100644 index 00000000..1afc3485 --- /dev/null +++ b/script/c2783661.lua @@ -0,0 +1,38 @@ +--青き眼の威光 +function c2783661.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1,2783661+EFFECT_COUNT_CODE_OATH) + e1:SetCost(c2783661.cost) + e1:SetTarget(c2783661.target) + e1:SetOperation(c2783661.operation) + c:RegisterEffect(e1) +end +function c2783661.filter(c) + return c:IsSetCard(0xdd) and c:IsAbleToGraveAsCost() +end +function c2783661.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c2783661.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c2783661.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil) + Duel.SendtoGrave(g,REASON_COST) +end +function c2783661.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) +end +function c2783661.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + end +end diff --git a/script/c27870033.lua b/script/c27870033.lua index bd379746..640c3825 100644 --- a/script/c27870033.lua +++ b/script/c27870033.lua @@ -14,7 +14,7 @@ function c27870033.initial_effect(c) c:RegisterEffect(e1) end function c27870033.cfilter(c) - return c:IsPreviousPosition(POS_DEFENCE) and c:IsLocation(LOCATION_GRAVE) + return c:IsPreviousPosition(POS_DEFENSE) and c:IsLocation(LOCATION_GRAVE) and c:IsReason(REASON_BATTLE) and c:IsType(TYPE_MONSTER) end function c27870033.damcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c27873305.lua b/script/c27873305.lua index a8884807..05fabd1e 100644 --- a/script/c27873305.lua +++ b/script/c27873305.lua @@ -45,6 +45,7 @@ function c27873305.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectMatchingCard(tp,c27873305.eqfilter,tp,0,LOCATION_MZONE,1,1,bc) local ec=g:GetFirst() + if not ec then return end local atk=ec:GetTextAttack() if atk<0 then atk=0 end if not Duel.Equip(tp,ec,c,false) then return end diff --git a/script/c27911549.lua b/script/c27911549.lua index 0b471d08..78a18f36 100644 --- a/script/c27911549.lua +++ b/script/c27911549.lua @@ -42,7 +42,7 @@ end function c27911549.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then - if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENCE)>0 then + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)>0 then Duel.Damage(tp,1000,REASON_EFFECT) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) diff --git a/script/c27918963.lua b/script/c27918963.lua index c09314a7..d985596e 100644 --- a/script/c27918963.lua +++ b/script/c27918963.lua @@ -1,5 +1,6 @@ --修験の妖社 function c27918963.initial_effect(c) + c:EnableCounterPermit(0x33) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -34,13 +35,13 @@ function c27918963.ctcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c27918963.cfilter,1,nil) end function c27918963.ctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x33+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x33,1) end function c27918963.filter1(c) return c:IsFaceup() and c:IsSetCard(0xb3) end function c27918963.filter2(c) - return c:IsSetCard(0xb3) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0xb3) and c:IsAbleToHand() end function c27918963.target(e,tp,eg,ep,ev,re,r,rp,chk) local b1=e:GetHandler():IsCanRemoveCounter(tp,0x33,1,REASON_COST) @@ -84,7 +85,7 @@ function c27918963.operation(e,tp,eg,ep,ev,re,r,rp) else Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c27918963.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end diff --git a/script/c27944249.lua b/script/c27944249.lua index 14c8d2a0..91248c5f 100644 --- a/script/c27944249.lua +++ b/script/c27944249.lua @@ -26,6 +26,6 @@ end function c27944249.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c27967615.lua b/script/c27967615.lua index a299d75f..42158365 100644 --- a/script/c27967615.lua +++ b/script/c27967615.lua @@ -18,7 +18,7 @@ function c27967615.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(1500) c:RegisterEffect(e3) --Equip limit diff --git a/script/c27970830.lua b/script/c27970830.lua index 074f0ed6..28289106 100644 --- a/script/c27970830.lua +++ b/script/c27970830.lua @@ -1,6 +1,6 @@ --六武の門 function c27970830.initial_effect(c) - c:EnableCounterPermit(0x3003) + c:EnableCounterPermit(0x3) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -54,13 +54,13 @@ function c27970830.ctfilter(c) end function c27970830.ctop(e,tp,eg,ep,ev,re,r,rp) if eg:IsExists(c27970830.ctfilter,1,nil) then - e:GetHandler():AddCounter(0x3003,2) + e:GetHandler():AddCounter(0x3,2) end end function c27970830.cost1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3003,2,REASON_COST) end + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3,2,REASON_COST) end Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - Duel.RemoveCounter(tp,1,0,0x3003,2,REASON_COST) + Duel.RemoveCounter(tp,1,0,0x3,2,REASON_COST) end function c27970830.filter1(c) return c:IsFaceup() and (c:IsSetCard(0x3d) or c:IsSetCard(0x20)) and c:IsType(TYPE_EFFECT) @@ -85,12 +85,12 @@ function c27970830.op1(e,tp,eg,ep,ev,re,r,rp) end end function c27970830.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3003,4,REASON_COST) end + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3,4,REASON_COST) end Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - Duel.RemoveCounter(tp,1,0,0x3003,4,REASON_COST) + Duel.RemoveCounter(tp,1,0,0x3,4,REASON_COST) end function c27970830.filter2(c) - return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x3d) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x3d) and c:IsAbleToHand() end function c27970830.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.IsExistingMatchingCard(c27970830.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end @@ -100,15 +100,15 @@ function c27970830.op2(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c27970830.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end end function c27970830.cost3(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3003,6,REASON_COST) end + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3,6,REASON_COST) end Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - Duel.RemoveCounter(tp,1,0,0x3003,6,REASON_COST) + Duel.RemoveCounter(tp,1,0,0x3,6,REASON_COST) end function c27970830.filter3(c,e,tp) return c:IsSetCard(0x20) and c:IsType(TYPE_EFFECT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) diff --git a/script/c27971137.lua b/script/c27971137.lua index 9337d0d9..c23d9686 100644 --- a/script/c27971137.lua +++ b/script/c27971137.lua @@ -31,7 +31,7 @@ function c27971137.spcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsReason(REASON_DESTROY) end function c27971137.filter(c,e,tp) - return c:GetLevel()==1 and (c:GetAttack()==0 and c:GetDefence()==0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:GetLevel()==1 and (c:GetAttack()==0 and c:GetDefense()==0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c27971137.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 diff --git a/script/c27995943.lua b/script/c27995943.lua old mode 100755 new mode 100644 diff --git a/script/c28016193.lua b/script/c28016193.lua new file mode 100644 index 00000000..e1e32f60 --- /dev/null +++ b/script/c28016193.lua @@ -0,0 +1,117 @@ +--メタルフォーゼ・オリハルク +function c28016193.initial_effect(c) + --fusion material + c:EnableReviveLimit() + local e0=Effect.CreateEffect(c) + e0:SetType(EFFECT_TYPE_SINGLE) + e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e0:SetCode(EFFECT_FUSION_MATERIAL) + e0:SetCondition(c28016193.fscon) + e0:SetOperation(c28016193.fsop) + c:RegisterEffect(e0) + --pierce + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_PIERCE) + e1:SetRange(LOCATION_MZONE) + e1:SetTargetRange(LOCATION_MZONE,0) + e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xe1)) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_PRE_BATTLE_DAMAGE) + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(c28016193.damcon) + e2:SetOperation(c28016193.damop) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetCondition(c28016193.descon) + e3:SetTarget(c28016193.destg) + e3:SetOperation(c28016193.desop) + c:RegisterEffect(e3) +end +function c28016193.filter(c) + return c:IsFusionSetCard(0xe1) +end +function c28016193.fscon(e,g,gc,chkfnf) + if g==nil then return true end + local f=c28016193.filter + local cc=2 + local chkf=bit.band(chkfnf,0xff) + local tp=e:GetHandlerPlayer() + local fg=Duel.GetMatchingGroup(Card.IsHasEffect,tp,LOCATION_MZONE,0,nil,77693536) + local fc=fg:GetFirst() + while fc do + g:Merge(fc:GetEquipGroup():Filter(Card.IsControler,nil,tp)) + fc=fg:GetNext() + end + local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler(),true) + if gc then + if not gc:IsCanBeFusionMaterial(e:GetHandler(),true) then return false end + return f(gc) and mg:IsExists(f,cc-1,gc) end + local g1=mg:Filter(f,nil) + if chkf~=PLAYER_NONE then + return g1:FilterCount(Card.IsOnField,nil)~=0 and g1:GetCount()>=cc + else return g1:GetCount()>=cc end + end +function c28016193.fsop(e,tp,eg,ep,ev,re,r,rp,gc,chkfnf) + local f=c28016193.filter + local cc=2 + local chkf=bit.band(chkfnf,0xff) + local fg=Duel.GetMatchingGroup(Card.IsHasEffect,tp,LOCATION_MZONE,0,nil,77693536) + local fc=fg:GetFirst() + while fc do + eg:Merge(fc:GetEquipGroup():Filter(Card.IsControler,nil,tp)) + fc=fg:GetNext() + end + local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler(),true) + if gc then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=g:FilterSelect(tp,f,cc-1,cc-1,gc) + Duel.SetFusionMaterial(g1) + return + end + local sg=g:Filter(f,nil) + if chkf==PLAYER_NONE or sg:GetCount()==cc then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=sg:Select(tp,cc,cc,nil) + Duel.SetFusionMaterial(g1) + return + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) + if cc>1 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g2=sg:Select(tp,cc-1,cc-1,g1:GetFirst()) + g1:Merge(g2) + end + Duel.SetFusionMaterial(g1) +end +function c28016193.damcon(e,tp,eg,ep,ev,re,r,rp) + local tc=eg:GetFirst() + return ep~=tp and tc:IsSetCard(0xe1) and tc:GetBattleTarget()~=nil and tc:GetBattleTarget():IsDefensePos() +end +function c28016193.damop(e,tp,eg,ep,ev,re,r,rp) + Duel.ChangeBattleDamage(ep,ev*2) +end +function c28016193.descon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) +end +function c28016193.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_ONFIELD) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c28016193.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c28062325.lua b/script/c28062325.lua index 1826a920..e3090911 100644 --- a/script/c28062325.lua +++ b/script/c28062325.lua @@ -16,17 +16,19 @@ function c28062325.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c28062325.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>1 - and Duel.IsPlayerCanSpecialSummonMonster(tp,28062326,0,0x4011,800,500,1,RACE_PLANT,ATTRIBUTE_EARTH,POS_FACEUP_DEFENCE,1-tp) end + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>1 + and Duel.IsPlayerCanSpecialSummonMonster(tp,28062326,0,0x4011,800,500,1,RACE_PLANT,ATTRIBUTE_EARTH,POS_FACEUP_DEFENSE,1-tp) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c28062325.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(1-tp,LOCATION_MZONE)<2 then return end - if not Duel.IsPlayerCanSpecialSummonMonster(tp,28062326,0,0x4011,800,500,1,RACE_PLANT,ATTRIBUTE_EARTH,POS_FACEUP_DEFENCE,1-tp) then return end + if not Duel.IsPlayerCanSpecialSummonMonster(tp,28062326,0,0x4011,800,500,1,RACE_PLANT,ATTRIBUTE_EARTH,POS_FACEUP_DEFENSE,1-tp) then return end for i=1,2 do local token=Duel.CreateToken(tp,28062326) - Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) end Duel.SpecialSummonComplete() end diff --git a/script/c28066831.lua b/script/c28066831.lua index 5613c6bd..c520e146 100644 --- a/script/c28066831.lua +++ b/script/c28066831.lua @@ -34,7 +34,7 @@ function c28066831.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c28066831.filter(c,e,tp) - return c:IsDefenceBelow(1500) and c:IsRace(RACE_PSYCHO) and c:IsAttribute(ATTRIBUTE_WIND) + return c:IsDefenseBelow(1500) and c:IsRace(RACE_PSYCHO) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c28066831.target(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c2810642.lua b/script/c2810642.lua old mode 100755 new mode 100644 index 83f482dd..44cd3c40 --- a/script/c2810642.lua +++ b/script/c2810642.lua @@ -30,8 +30,9 @@ function c2810642.spfilter(c,e,tp) return c:IsCode(49036338) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c2810642.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.GetAttacker():IsDestructable() + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and Duel.GetAttacker():IsRelateToBattle() and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(c2810642.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end Duel.SetTargetCard(Duel.GetAttacker()) @@ -39,6 +40,7 @@ function c2810642.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DESTROY,Duel.GetAttacker(),1,0,0) end function c2810642.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 or not e:GetHandler():IsRelateToEffect(e) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c2810642.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) diff --git a/script/c28112535.lua b/script/c28112535.lua old mode 100755 new mode 100644 index 1511f042..7ebe1763 --- a/script/c28112535.lua +++ b/script/c28112535.lua @@ -1,64 +1,64 @@ ---トゥーン・リボルバー・ドラゴン -function c28112535.initial_effect(c) - --cannot attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetOperation(c28112535.atklimit) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - --direct attack - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_DIRECT_ATTACK) - e4:SetCondition(c28112535.dircon) - c:RegisterEffect(e4) - --destroy - local e5=Effect.CreateEffect(c) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET) - e5:SetCategory(CATEGORY_DESTROY+CATEGORY_COIN) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetRange(LOCATION_MZONE) - e5:SetCountLimit(1) - e5:SetTarget(c28112535.destg) - e5:SetOperation(c28112535.desop) - c:RegisterEffect(e5) -end -function c28112535.atklimit(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) -end -function c28112535.cfilter1(c) - return c:IsFaceup() and c:IsCode(15259703) -end -function c28112535.cfilter2(c) - return c:IsFaceup() and c:IsType(TYPE_TOON) -end -function c28112535.dircon(e) - local tp=e:GetHandlerPlayer() - return Duel.IsExistingMatchingCard(c28112535.cfilter1,tp,LOCATION_ONFIELD,0,1,nil) - and not Duel.IsExistingMatchingCard(c28112535.cfilter2,tp,0,LOCATION_MZONE,1,nil) -end -function c28112535.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,3) -end -function c28112535.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local c1,c2,c3=Duel.TossCoin(tp,3) - if c1+c2+c3<2 then return end - Duel.Destroy(tc,REASON_EFFECT) - end -end +--トゥーン・リボルバー・ドラゴン +function c28112535.initial_effect(c) + --cannot attack + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetOperation(c28112535.atklimit) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) + c:RegisterEffect(e2) + local e3=e1:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) + --direct attack + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_DIRECT_ATTACK) + e4:SetCondition(c28112535.dircon) + c:RegisterEffect(e4) + --destroy + local e5=Effect.CreateEffect(c) + e5:SetProperty(EFFECT_FLAG_CARD_TARGET) + e5:SetCategory(CATEGORY_DESTROY+CATEGORY_COIN) + e5:SetType(EFFECT_TYPE_IGNITION) + e5:SetRange(LOCATION_MZONE) + e5:SetCountLimit(1) + e5:SetTarget(c28112535.destg) + e5:SetOperation(c28112535.desop) + c:RegisterEffect(e5) +end +function c28112535.atklimit(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e:GetHandler():RegisterEffect(e1) +end +function c28112535.cfilter1(c) + return c:IsFaceup() and c:IsCode(15259703) +end +function c28112535.cfilter2(c) + return c:IsFaceup() and c:IsType(TYPE_TOON) +end +function c28112535.dircon(e) + local tp=e:GetHandlerPlayer() + return Duel.IsExistingMatchingCard(c28112535.cfilter1,tp,LOCATION_ONFIELD,0,1,nil) + and not Duel.IsExistingMatchingCard(c28112535.cfilter2,tp,0,LOCATION_MZONE,1,nil) +end +function c28112535.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,3) +end +function c28112535.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + local c1,c2,c3=Duel.TossCoin(tp,3) + if c1+c2+c3<2 then return end + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c28120197.lua b/script/c28120197.lua index e67ab446..32e66b39 100644 --- a/script/c28120197.lua +++ b/script/c28120197.lua @@ -15,7 +15,7 @@ function c28120197.initial_effect(c) c:RegisterEffect(e2) end function c28120197.dcon(e,tp,eg,ep,ev,re,r,rp) - return eg:GetFirst():IsDefencePos() and eg:GetFirst():IsRace(RACE_ROCK) + return eg:GetFirst():IsDefensePos() and eg:GetFirst():IsRace(RACE_ROCK) end function c28120197.dop(e,tp,eg,ep,ev,re,r,rp) Duel.ChangeBattleDamage(ep,ev*2) diff --git a/script/c28121403.lua b/script/c28121403.lua index db5e72c4..39c29ce3 100644 --- a/script/c28121403.lua +++ b/script/c28121403.lua @@ -11,7 +11,7 @@ function c28121403.initial_effect(c) c:RegisterEffect(e1) end function c28121403.filter(c) - return c:GetEquipCount()>0 and c:IsDestructable() + return c:GetEquipCount()>0 end function c28121403.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c28121403.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c28124263.lua b/script/c28124263.lua index a8f6c82f..1968291c 100644 --- a/script/c28124263.lua +++ b/script/c28124263.lua @@ -25,7 +25,7 @@ function c28124263.initial_effect(c) e3:SetCondition(c28124263.cond) e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x26)) - e3:SetValue(aux.tgval) + e3:SetValue(1) c:RegisterEffect(e3) end function c28124263.check(e,tp,eg,ep,ev,re,r,rp) @@ -37,8 +37,8 @@ function c28124263.cona(e,tp,eg,ep,ev,re,r,rp) return e:GetLabelObject():GetLabel()==1 end function c28124263.filter(c,e,tp) - return c:IsLevelBelow(4) and c:IsSetCard(0x26) and c:GetCode()~=28124263 - and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsLevelBelow(4) and c:IsSetCard(0x26) and not c:IsCode(28124263) + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) end function c28124263.tga(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -49,8 +49,9 @@ function c28124263.opa(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c28124263.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) + if g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end function c28124263.cond(e) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end diff --git a/script/c28139785.lua b/script/c28139785.lua new file mode 100644 index 00000000..ed5e1725 --- /dev/null +++ b/script/c28139785.lua @@ -0,0 +1,74 @@ +--レッカーパンダ +function c28139785.initial_effect(c) + --deckdes + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(28139785,0)) + e1:SetCategory(CATEGORY_DECKDES) + e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_MZONE) + e1:SetCode(EVENT_PHASE+PHASE_STANDBY) + e1:SetCountLimit(1) + e1:SetCost(c28139785.ddcost) + e1:SetTarget(c28139785.ddtg) + e1:SetOperation(c28139785.ddop) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(28139785,1)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCondition(c28139785.thcon) + e2:SetTarget(c28139785.thtg) + e2:SetOperation(c28139785.thop) + c:RegisterEffect(e2) +end +function c28139785.ddcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,500) end + Duel.PayLPCost(tp,500) +end +function c28139785.ddtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1) end + Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,1) +end +function c28139785.ddop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end + Duel.DiscardDeck(tp,1,REASON_EFFECT) + local c=e:GetHandler() + local tc=Duel.GetOperatedGroup():GetFirst() + if tc and c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsType(TYPE_MONSTER) and tc:IsLocation(LOCATION_GRAVE) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(tc:GetLevel()*200) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e2) + end +end +function c28139785.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:GetPreviousControler()==tp and rp~=tp and c:IsReason(REASON_DESTROY) +end +function c28139785.thfilter(c) + return c:IsType(TYPE_MONSTER) and c:GetLevel()>0 and c:IsAbleToHand() +end +function c28139785.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c28139785.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) +end +function c28139785.thop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c28139785.thfilter,tp,LOCATION_GRAVE,0,nil) + local sg=g:GetMinGroup(Card.GetLevel) + if sg:GetCount()>1 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + sg=sg:Select(tp,1,1,nil) + end + if sg:GetCount()>0 then + Duel.SendtoHand(sg,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,sg) + end +end diff --git a/script/c28150174.lua b/script/c28150174.lua index 6320e782..0cbd1169 100644 --- a/script/c28150174.lua +++ b/script/c28150174.lua @@ -21,15 +21,15 @@ function c28150174.poscost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c28150174.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDefencePos() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDefencePos,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEFENCE) - local g=Duel.SelectTarget(tp,Card.IsDefencePos,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDefensePos() end + if chk==0 then return Duel.IsExistingTarget(Card.IsDefensePos,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEFENSE) + local g=Duel.SelectTarget(tp,Card.IsDefensePos,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) end function c28150174.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsDefencePos() and tc:IsRelateToEffect(e) then + if tc:IsDefensePos() and tc:IsRelateToEffect(e) then Duel.ChangePosition(tc,POS_FACEUP_ATTACK) if tc:IsPosition(POS_FACEUP_ATTACK) then local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c28183605.lua b/script/c28183605.lua index f659d6ca..c6e2fdc0 100644 --- a/script/c28183605.lua +++ b/script/c28183605.lua @@ -26,7 +26,7 @@ function c28183605.atkval(e,c) return Duel.GetMatchingGroupCount(c28183605.atkfilter,c:GetControler(),LOCATION_ONFIELD,0,nil)*200 end function c28183605.filter(c) - return c:IsLevelBelow(3) and c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) + return c:IsLevelBelow(3) and c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) and not c:IsForbidden() end function c28183605.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c28183605.filter(chkc) end diff --git a/script/c28201945.lua b/script/c28201945.lua index 6e2119f5..39fd225b 100644 --- a/script/c28201945.lua +++ b/script/c28201945.lua @@ -38,7 +38,7 @@ function c28201945.spcon(e,tp,eg,ep,ev,re,r,rp) return rp==tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and c:GetType()==TYPE_TRAP and (c:IsSetCard(0x4c) or c:IsSetCard(0x89)) and e:GetHandler():GetFlagEffect(1)>0 end function c28201945.filter(c,e,tp,ft) - return c:IsSetCard(0x108a) and c:GetCode()~=28201945 and (c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false))) + return c:IsSetCard(0x108a) and c:GetCode()~=28201945 and c:IsType(TYPE_MONSTER) and (c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false))) end function c28201945.sptg(e,tp,eg,ep,ev,re,r,rp,chk) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) diff --git a/script/c28265983.lua b/script/c28265983.lua index 422184ac..9604b9e8 100644 --- a/script/c28265983.lua +++ b/script/c28265983.lua @@ -1,85 +1,56 @@ --渇きの風 function c28265983.initial_effect(c) --activate + local e0=Effect.CreateEffect(c) + e0:SetDescription(aux.Stringid(28265983,0)) + e0:SetType(EFFECT_TYPE_ACTIVATE) + e0:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e0) + --activate(destroy) local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(28265983,1)) + e1:SetCategory(CATEGORY_DESTROY) e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_RECOVER,0) - e1:SetTarget(c28265983.target) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_RECOVER) + e1:SetCountLimit(1,28265983) + e1:SetCondition(c28265983.descon1) + e1:SetTarget(c28265983.destg1) + e1:SetOperation(c28265983.desop1) c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(28265983,1)) - e2:SetCategory(CATEGORY_DESTROY) + local e2=e1:Clone() e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_RECOVER) e2:SetRange(LOCATION_SZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1,28265983) - e2:SetCondition(c28265983.descon1) - e2:SetTarget(c28265983.destg1) - e2:SetOperation(c28265983.desop1) c:RegisterEffect(e2) --destroy local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(28265983,2)) e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetType(EFFECT_TYPE_ACTIVATE) e3:SetCode(EVENT_FREE_CHAIN) - e3:SetRange(LOCATION_SZONE) e3:SetCountLimit(1,28265984) e3:SetCondition(c28265983.descon2) e3:SetCost(c28265983.descost2) e3:SetTarget(c28265983.destg2) e3:SetOperation(c28265983.desop2) c:RegisterEffect(e3) -end -function c28265983.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return c28265983.destg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end - if chk==0 then return true end - local res,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(EVENT_RECOVER,true) - local b1=res and c28265983.descon1(e,tp,teg,tep,tev,tre,tr,trp) and c28265983.destg1(e,tp,teg,tep,tev,tre,tr,trp,0) - local b2=c28265983.descon2(e,tp,eg,ep,ev,re,r,rp) and c28265983.descost2(e,tp,eg,ep,ev,re,r,rp,0) and c28265983.destg2(e,tp,eg,ep,ev,re,r,rp,0) - if (b1 or b2) and Duel.SelectYesNo(tp,94) then - local opt=0 - if b1 and b2 then - opt=Duel.SelectOption(tp,aux.Stringid(28265983,1),aux.Stringid(28265983,2)) - elseif b1 then - opt=Duel.SelectOption(tp,aux.Stringid(28265983,1)) - else - opt=Duel.SelectOption(tp,aux.Stringid(28265983,2))+1 - end - if opt==0 then - e:SetCategory(CATEGORY_DESTROY) - e:SetProperty(EFFECT_FLAG_CARD_TARGET) - e:SetOperation(c28265983.desop1) - c28265983.destg1(e,tp,teg,tep,tev,tre,tr,trp,1) - else - e:SetCategory(CATEGORY_DESTROY) - e:SetProperty(0) - e:SetOperation(c28265983.desop2) - c28265983.descost2(e,tp,eg,ep,ev,re,r,rp,1) - c28265983.destg2(e,tp,eg,ep,ev,re,r,rp,1) - end - else - e:SetCategory(0) - e:SetProperty(0) - e:SetOperation(nil) - end + local e4=e3:Clone() + e4:SetType(EFFECT_TYPE_QUICK_O) + e4:SetRange(LOCATION_SZONE) + c:RegisterEffect(e4) end function c28265983.descon1(e,tp,eg,ep,ev,re,r,rp) return ep==tp end function c28265983.desfilter1(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c28265983.destg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c28265983.desfilter1(chkc) end - if chk==0 then return Duel.GetFlagEffect(tp,28265983)==0 end + if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local g=Duel.SelectTarget(tp,c28265983.desfilter1,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.RegisterFlagEffect(tp,28265983,RESET_PHASE+PHASE_END,0,1) end function c28265983.desop1(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end @@ -102,7 +73,7 @@ function c28265983.descost2(e,tp,eg,ep,ev,re,r,rp,chk) Duel.RegisterFlagEffect(tp,28265984,RESET_PHASE+PHASE_END,0,1) end function c28265983.desfilter2(c,num) - return c:IsFaceup() and c:IsAttackBelow(num) and c:IsDestructable() + return c:IsFaceup() and c:IsAttackBelow(num) end function c28265983.destg2(e,tp,eg,ep,ev,re,r,rp,chk) local lp=Duel.GetLP(tp)-Duel.GetLP(1-tp) diff --git a/script/c28284902.lua b/script/c28284902.lua index dea00afd..7a54f8c7 100644 --- a/script/c28284902.lua +++ b/script/c28284902.lua @@ -36,5 +36,5 @@ end function c28284902.operation(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end local g=eg:Filter(c28284902.filter,nil,e) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) end diff --git a/script/c282886.lua b/script/c282886.lua index 0feb78a8..da8c8580 100644 --- a/script/c282886.lua +++ b/script/c282886.lua @@ -33,6 +33,6 @@ function c282886.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c282886.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c28290705.lua b/script/c28290705.lua index 7b900974..a14160d2 100644 --- a/script/c28290705.lua +++ b/script/c28290705.lua @@ -36,7 +36,7 @@ function c28290705.adop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) tc=g:GetNext() end diff --git a/script/c28325165.lua b/script/c28325165.lua index 472bbf78..00948826 100644 --- a/script/c28325165.lua +++ b/script/c28325165.lua @@ -49,7 +49,7 @@ function c28325165.activate(e,tp,eg,ep,ev,re,r,rp) e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e3) local e4=e3:Clone() - e4:SetCode(EFFECT_SET_DEFENCE_FINAL) + e4:SetCode(EFFECT_SET_DEFENSE_FINAL) tc:RegisterEffect(e4) local e5=Effect.CreateEffect(c) e5:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c28332833.lua b/script/c28332833.lua index ff412ce9..83a0229c 100644 --- a/script/c28332833.lua +++ b/script/c28332833.lua @@ -16,7 +16,7 @@ function c28332833.thcon(e,tp,eg,ep,ev,re,r,rp) and e:GetHandler():IsReason(REASON_BATTLE) end function c28332833.filter(c) - return c:GetDefence()==200 and c:IsAbleToHand() + return c:GetDefense()==200 and c:IsAbleToHand() end function c28332833.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c28332833.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c28348939.lua b/script/c28348939.lua index 65219a33..17597f64 100644 --- a/script/c28348939.lua +++ b/script/c28348939.lua @@ -18,7 +18,7 @@ function c28348939.initial_effect(c) e2:SetValue(100) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end function c28348939.filter(c,e,tp) diff --git a/script/c28355718.lua b/script/c28355718.lua index 21932aef..fa4a4ca8 100644 --- a/script/c28355718.lua +++ b/script/c28355718.lua @@ -40,12 +40,14 @@ function c28355718.spcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c28355718.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,28355719,0,0x4011,1000,1000,4,RACE_WARRIOR,ATTRIBUTE_DARK) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c28355718.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end if not Duel.IsPlayerCanSpecialSummonMonster(tp,28355719,0,0x4011,1000,1000,4,RACE_WARRIOR,ATTRIBUTE_DARK) then return end for i=1,2 do diff --git a/script/c28388296.lua b/script/c28388296.lua index 5ca2aacf..a316d631 100644 --- a/script/c28388296.lua +++ b/script/c28388296.lua @@ -15,7 +15,7 @@ function c28388296.initial_effect(c) e2:SetValue(200) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --special summon local e4=Effect.CreateEffect(c) diff --git a/script/c28423537.lua b/script/c28423537.lua index 9e7169fb..5568c97d 100644 --- a/script/c28423537.lua +++ b/script/c28423537.lua @@ -46,7 +46,7 @@ function c28423537.ntop(e,tp,eg,ep,ev,re,r,rp,c) e1:SetReset(RESET_EVENT+0xff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) e2:SetValue(1000) c:RegisterEffect(e2) -- @@ -76,10 +76,10 @@ function c28423537.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c28423537.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c28423537.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c28429121.lua b/script/c28429121.lua old mode 100755 new mode 100644 diff --git a/script/c28506708.lua b/script/c28506708.lua index 66389155..9bf8d537 100644 --- a/script/c28506708.lua +++ b/script/c28506708.lua @@ -22,7 +22,7 @@ function c28506708.condition(e,tp,eg,ep,ev,re,r,rp) and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)~=0 end function c28506708.filter(c,e,sp) - return c:IsSetCard(0x3e) and c:IsRace(RACE_REPTILE) and c:IsCanBeSpecialSummoned(e,0,sp,false,false,POS_FACEDOWN_DEFENCE) + return c:IsSetCard(0x3e) and c:IsRace(RACE_REPTILE) and c:IsCanBeSpecialSummoned(e,0,sp,false,false,POS_FACEDOWN_DEFENSE) end function c28506708.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -37,7 +37,7 @@ function c28506708.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c28506708.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,g) end end diff --git a/script/c28553439.lua b/script/c28553439.lua index 2cb497a0..5d8112d2 100644 --- a/script/c28553439.lua +++ b/script/c28553439.lua @@ -42,7 +42,7 @@ function c28553439.activate(e,tp,eg,ep,ev,re,r,rp) if sg:GetCount()==0 then return end Duel.BreakEffect() Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if dg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(28553439,0)) then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local des=dg:Select(tp,1,1,nil) diff --git a/script/c28563545.lua b/script/c28563545.lua index 83f186dd..b82ba02a 100644 --- a/script/c28563545.lua +++ b/script/c28563545.lua @@ -15,7 +15,7 @@ function c28563545.initial_effect(c) c:RegisterEffect(e2) end function c28563545.filter(c) - return c:IsFaceup() and c:IsRace(RACE_DRAGON) and c:IsDestructable() + return c:IsFaceup() and c:IsRace(RACE_DRAGON) end function c28563545.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c28563545.filter(chkc) end diff --git a/script/c28596933.lua b/script/c28596933.lua index 1178152c..e89c245a 100644 --- a/script/c28596933.lua +++ b/script/c28596933.lua @@ -13,7 +13,7 @@ function c28596933.filter(c) return c:IsFaceup() and c:IsRace(RACE_DRAGON) and c:IsLevelAbove(5) and c:IsAbleToHand() end function c28596933.dfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c28596933.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c28596933.filter,tp,LOCATION_MZONE,0,1,nil) diff --git a/script/c28604635.lua b/script/c28604635.lua index df05b75e..30d19258 100644 --- a/script/c28604635.lua +++ b/script/c28604635.lua @@ -15,7 +15,7 @@ function c28604635.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.PayLPCost(tp,500) end function c28604635.filter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:GetLevel()==3 and c:IsDestructable() + return c:IsPosition(POS_FACEUP_ATTACK) and c:GetLevel()==3 end function c28604635.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c28604635.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c286392.lua b/script/c286392.lua index 70187ecd..e10b2702 100644 --- a/script/c286392.lua +++ b/script/c286392.lua @@ -57,7 +57,7 @@ function c286392.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c286392.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) diff --git a/script/c28649820.lua b/script/c28649820.lua index cb4a8f50..c94780cf 100644 --- a/script/c28649820.lua +++ b/script/c28649820.lua @@ -24,7 +24,8 @@ function c28649820.activate(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,28649820,0,0x11,1600,1800,4,RACE_REPTILE,ATTRIBUTE_EARTH) then return end - c:AddTrapMonsterAttribute(TYPE_NORMAL,ATTRIBUTE_EARTH,RACE_REPTILE,4,1600,1800) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - c:TrapMonsterBlock() + c:AddMonsterAttribute(TYPE_NORMAL+TYPE_TRAP) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() + Duel.SpecialSummonComplete() end diff --git a/script/c28674152.lua b/script/c28674152.lua index f8ee3c0f..f91f16b5 100644 --- a/script/c28674152.lua +++ b/script/c28674152.lua @@ -1,6 +1,6 @@ --Radian, the Multidimensional Kaiju function c28674152.initial_effect(c) - c:SetUniqueOnField(1,0,20000000) + c:SetUniqueOnField(1,0,20000000,LOCATION_MZONE) --special summon rule local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) diff --git a/script/c28677304.lua b/script/c28677304.lua index 86f4cd1c..ba28fc3c 100644 --- a/script/c28677304.lua +++ b/script/c28677304.lua @@ -52,16 +52,17 @@ function c28677304.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA) end function c28677304.spfilter(c,code) - return c:IsAbleToDeckOrExtraAsCost() and c:IsCode(code) + return c:IsAbleToDeckOrExtraAsCost() and c:IsFusionCode(code) end function c28677304.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-1 then return false end local g1=Duel.GetMatchingGroup(c28677304.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723) local g2=Duel.GetMatchingGroup(c28677304.spfilter,tp,LOCATION_ONFIELD,0,nil,43237273) if g1:GetCount()==0 or g2:GetCount()==0 then return false end + if g1:GetCount()==1 and g2:GetCount()==1 and g1:GetFirst()==g2:GetFirst() then return false end if ft>0 then return true end local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) @@ -79,12 +80,22 @@ function c28677304.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) if ft<=0 then tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() + ft=ft+1 else tc=g1:Select(tp,1,1,nil):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 + if i==1 then + g1:Clear() + if tc:IsFusionCode(89943723) then + local sg=Duel.GetMatchingGroup(c28677304.spfilter,tp,LOCATION_ONFIELD,0,tc,43237273) + g1:Merge(sg) + end + if tc:IsFusionCode(43237273) then + local sg=Duel.GetMatchingGroup(c28677304.spfilter,tp,LOCATION_ONFIELD,0,tc,89943723) + g1:Merge(sg) + end + end end local cg=g:Filter(Card.IsFacedown,nil) if cg:GetCount()>0 then @@ -92,10 +103,10 @@ function c28677304.spop(e,tp,eg,ep,ev,re,r,rp,c) end Duel.SendtoDeck(g,nil,2,REASON_COST) end -function c28677304.retcon1(e,tp,eg,ep,ev,re,r,rp,chk) +function c28677304.retcon1(e,tp,eg,ep,ev,re,r,rp) return not e:GetHandler():IsHasEffect(42015635) end -function c28677304.retcon2(e,tp,eg,ep,ev,re,r,rp,chk) +function c28677304.retcon2(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsHasEffect(42015635) end function c28677304.rettg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c28725004.lua b/script/c28725004.lua index a64e2aff..489b4778 100644 --- a/script/c28725004.lua +++ b/script/c28725004.lua @@ -10,7 +10,7 @@ function c28725004.initial_effect(c) c:RegisterEffect(e1) end function c28725004.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousPosition(POS_ATTACK) and e:GetHandler():IsPosition(POS_DEFENCE) + return e:GetHandler():IsPreviousPosition(POS_ATTACK) and e:GetHandler():IsPosition(POS_DEFENSE) end function c28725004.operation(e,tp,eg,ep,ev,re,r,rp) Duel.ShuffleDeck(tp) diff --git a/script/c28741524.lua b/script/c28741524.lua index 3458008e..39410599 100644 --- a/script/c28741524.lua +++ b/script/c28741524.lua @@ -19,6 +19,7 @@ function c28741524.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c28741524.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c28741524.filter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) @@ -28,6 +29,7 @@ end function c28741524.spop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end if ft0 then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) diff --git a/script/c28865322.lua b/script/c28865322.lua index c56e1f2e..04785bb4 100644 --- a/script/c28865322.lua +++ b/script/c28865322.lua @@ -1,64 +1,64 @@ ---魔装邪龍 イーサルウェポン -function c28865322.initial_effect(c) - --pendulum summon - aux.EnablePendulumAttribute(c) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1) - e2:SetCost(c28865322.descost) - e2:SetTarget(c28865322.destg) - e2:SetOperation(c28865322.desop) - c:RegisterEffect(e2) - --remove - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_REMOVE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e3:SetTarget(c28865322.remtg) - e3:SetOperation(c28865322.remop) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e4) -end -function c28865322.cfilter(c) - return c:IsSetCard(0xca) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() -end -function c28865322.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c28865322.cfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c28865322.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c28865322.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c28865322.desop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c28865322.remtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToRemove() end - if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c28865322.remop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - end -end +--魔装邪龍 イーサルウェポン +function c28865322.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_PZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1) + e2:SetCost(c28865322.descost) + e2:SetTarget(c28865322.destg) + e2:SetOperation(c28865322.desop) + c:RegisterEffect(e2) + --remove + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_REMOVE) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_SUMMON_SUCCESS) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) + e3:SetTarget(c28865322.remtg) + e3:SetOperation(c28865322.remop) + c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e4) +end +function c28865322.cfilter(c) + return c:IsSetCard(0xca) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() +end +function c28865322.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c28865322.cfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c28865322.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c28865322.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c28865322.desop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c28865322.remtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToRemove() end + if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) +end +function c28865322.remop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) + end +end diff --git a/script/c28912357.lua b/script/c28912357.lua index 71f19c4e..95853561 100644 --- a/script/c28912357.lua +++ b/script/c28912357.lua @@ -38,7 +38,6 @@ function c28912357.cost(e,tp,eg,ep,ev,re,r,rp,chk) end function c28912357.filter(c) return c:IsLevelBelow(4) and c:IsRace(RACE_MACHINE) and c:IsAbleToHand() - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c28912357.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c28912357.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,nil) end @@ -47,7 +46,7 @@ end function c28912357.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c28912357.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) Duel.ShuffleDeck(tp) diff --git a/script/c28966434.lua b/script/c28966434.lua index 78297171..40bd6a83 100644 --- a/script/c28966434.lua +++ b/script/c28966434.lua @@ -16,7 +16,7 @@ function c28966434.filter1(c) return c:IsFaceup() and c:IsSetCard(0x31) and c:GetLevel()>3 end function c28966434.filter2(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c28966434.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c29021114.lua b/script/c29021114.lua new file mode 100644 index 00000000..a4cb95b5 --- /dev/null +++ b/script/c29021114.lua @@ -0,0 +1,63 @@ +--シルバー・ガジェット +function c29021114.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(29021114,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetCountLimit(1,29021114) + e1:SetTarget(c29021114.sptg1) + e1:SetOperation(c29021114.spop1) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(29021114,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_DESTROYED) + e3:SetCountLimit(1,29021114) + e3:SetCondition(c29021114.spcon2) + e3:SetTarget(c29021114.sptg2) + e3:SetOperation(c29021114.spop2) + c:RegisterEffect(e3) +end +function c29021114.spfilter1(c,e,tp) + return c:IsRace(RACE_MACHINE) and c:GetLevel()==4 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c29021114.sptg1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c29021114.spfilter1,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c29021114.spop1(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c29021114.spfilter1,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 +function c29021114.spcon2(e,tp,eg,ep,ev,re,r,rp) + return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 +end +function c29021114.spfilter2(c,e,tp) + return c:IsSetCard(0x51) and c:GetLevel()==4 and not c:IsCode(29021114) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c29021114.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c29021114.spfilter2,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c29021114.spop2(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c29021114.spfilter2,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c29071332.lua b/script/c29071332.lua index baf0e104..6839d916 100644 --- a/script/c29071332.lua +++ b/script/c29071332.lua @@ -83,8 +83,10 @@ function c29071332.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c29071332.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c29071332.damcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c29085954.lua b/script/c29085954.lua new file mode 100644 index 00000000..783fd519 --- /dev/null +++ b/script/c29085954.lua @@ -0,0 +1,85 @@ +--No.78 ナンバーズ・アーカイブ +function c29085954.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,1,2) + c:EnableReviveLimit() + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(29085954,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCost(c29085954.cost) + e1:SetTarget(c29085954.sptg) + e1:SetOperation(c29085954.spop) + c:RegisterEffect(e1) +end +c29085954.xyz_number=78 +function c29085954.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c29085954.filter(c,e,tp,mc) + local m=_G["c"..c:GetCode()] + if not m then return false end + local no=m.xyz_number + return no and no>=1 and no<=99 and c:IsSetCard(0x48) + and mc:IsCanBeXyzMaterial(c) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) +end +function c29085954.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.GetFieldGroupCount(tp,LOCATION_EXTRA,0)>0 end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c29085954.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local g=Duel.GetMatchingGroup(nil,tp,LOCATION_EXTRA,0,nil) + if g:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and c:IsFaceup() and c:IsRelateToEffect(e) and c:IsControler(tp) and not c:IsImmuneToEffect(e) then + local tg=g:RandomSelect(1-tp,1) + Duel.ConfirmCards(1-tp,tg) + if tg:IsExists(c29085954.filter,1,nil,e,tp,c) then + local tc=tg:GetFirst() + local mg=c:GetOverlayGroup() + if mg:GetCount()~=0 then + Duel.Overlay(tc,mg) + end + tc:SetMaterial(Group.FromCards(c)) + Duel.Overlay(tc,Group.FromCards(c)) + Duel.SpecialSummon(tc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) + local fid=c:GetFieldID() + tc:RegisterFlagEffect(29085954,RESET_EVENT+0x1fe0000,0,1,fid) + tc:CompleteProcedure() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetCode(EVENT_PHASE+PHASE_END) + e1:SetCountLimit(1) + e1:SetLabel(fid) + e1:SetLabelObject(tc) + e1:SetCondition(c29085954.rmcon) + e1:SetOperation(c29085954.rmop) + Duel.RegisterEffect(e1,tp) + end + end + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e2:SetReset(RESET_PHASE+PHASE_END) + e2:SetTargetRange(1,0) + Duel.RegisterEffect(e2,tp) +end +function c29085954.rmcon(e,tp,eg,ep,ev,re,r,rp) + if e:GetLabelObject():GetFlagEffectLabel(29085954)~=e:GetLabel() then + e:Reset() + return false + else return true end +end +function c29085954.rmop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) +end diff --git a/script/c29087919.lua b/script/c29087919.lua index 2d6b0aff..c4b1f2c9 100644 --- a/script/c29087919.lua +++ b/script/c29087919.lua @@ -15,48 +15,41 @@ function c29087919.filter(c,e,tp) return c:IsSetCard(0x1072) and c:IsCanBeEffectTarget(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c29087919.xyzfilter(c,mg,ct) - return c:IsXyzSummonable(mg) and c.xyz_count<=ct + return c:IsXyzSummonable(mg,2,ct) end -function c29087919.mfilter1(c,exg) - return exg:IsExists(c29087919.mfilter2,1,nil,c) +function c29087919.mfilter1(c,mg,exg,ct) + return mg:IsExists(c29087919.mfilter2,1,nil,Group.FromCards(c),mg,exg,ct) end -function c29087919.mfilter2(c,mc) - return c.xyz_filter(mc) -end -function c29087919.xyzct(c) - return c.xyz_count +function c29087919.mfilter2(c,g,mg,exg,ct) + local tc=g:GetFirst() + while tc do + if c:IsCode(tc:GetCode()) then return false end + tc=g:GetNext() + end + g:AddCard(c) + local result=exg:IsExists(Card.IsXyzSummonable,1,nil,g,g:GetCount(),g:GetCount()) + or (g:GetCount()mct then ct=mct end local exg=Duel.GetMatchingGroup(c29087919.xyzfilter,tp,LOCATION_EXTRA,0,nil,mg,ct) - local maxg,maxc=exg:GetMaxGroup(c29087919.xyzct) - if maxc and ct>maxc then ct=maxc end if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2) - and ct>1 and Duel.IsExistingMatchingCard(c29087919.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,mg,ct) end + and not Duel.IsPlayerAffectedByEffect(tp,59822133) + and ct>1 and mg:IsExists(c29087919.mfilter1,1,nil,mg,exg,ct) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg1=mg:FilterSelect(tp,c29087919.mfilter1,1,1,nil,exg) - local tc1=sg1:GetFirst() - local exg2=exg:Filter(c29087919.mfilter2,nil,tc1) - mg:Remove(Card.IsCode,nil,tc1:GetCode()) + local sg1=mg:FilterSelect(tp,c29087919.mfilter1,1,1,nil,mg,exg,ct) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg2=mg:FilterSelect(tp,c29087919.mfilter1,1,1,nil,exg2) + local sg2=mg:FilterSelect(tp,c29087919.mfilter2,1,1,nil,sg1,mg,exg,ct) sg1:Merge(sg2) - mg:Remove(Card.IsCode,nil,sg2:GetFirst():GetCode()) - ct=ct-2 - local minc=2 - local exg3=Duel.GetMatchingGroup(c29087919.spfilter,tp,LOCATION_EXTRA,0,nil,sg1,minc) - while mg:GetCount()>0 and ct>0 and (exg3:GetCount()==0 or Duel.SelectYesNo(tp,aux.Stringid(29087919,0))) do + while sg1:GetCount()0 then Duel.ConfirmCards(1-tp,g) if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.RaiseSingleEvent(c,29146185,re,r,rp,0,0) + Duel.RaiseSingleEvent(c,EVENT_CUSTOM+29146185,re,r,rp,0,0) end end end @@ -75,11 +75,11 @@ function c29146185.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.ShuffleHand(tp) end function c29146185.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c29146185.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c29155212.lua b/script/c29155212.lua index 42690cdf..66edfc54 100644 --- a/script/c29155212.lua +++ b/script/c29155212.lua @@ -8,7 +8,7 @@ function c29155212.initial_effect(c) e1:SetValue(c29155212.adval) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(29155212,0)) @@ -16,7 +16,6 @@ function c29155212.initial_effect(c) e3:SetCode(EVENT_PHASE+PHASE_STANDBY) e3:SetRange(LOCATION_MZONE) e3:SetCountLimit(1) - e3:SetProperty(EFFECT_FLAG_NO_TURN_RESET) e3:SetCondition(c29155212.atkcon) e3:SetOperation(c29155212.atkop) c:RegisterEffect(e3) diff --git a/script/c29169993.lua b/script/c29169993.lua new file mode 100644 index 00000000..774e7670 --- /dev/null +++ b/script/c29169993.lua @@ -0,0 +1,80 @@ +--EMギッタンバッタ +function c29169993.initial_effect(c) + --indes + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT) + e1:SetCountLimit(1) + e1:SetValue(c29169993.valcon) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(29169993,0)) + e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EVENT_PHASE+PHASE_END) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1) + e2:SetCondition(c29169993.thcon) + e2:SetTarget(c29169993.thtg) + e2:SetOperation(c29169993.thop) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(29169993,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetRange(LOCATION_GRAVE) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetCountLimit(1,29169993) + e3:SetCondition(c29169993.spcon) + e3:SetTarget(c29169993.sptg) + e3:SetOperation(c29169993.spop) + c:RegisterEffect(e3) +end +function c29169993.valcon(e,re,r,rp) + return bit.band(r,REASON_BATTLE)~=0 and bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c29169993.thcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp +end +function c29169993.thfilter(c) + return c:IsSetCard(0x9f) and c:IsLevelBelow(3) and c:IsAbleToHand() +end +function c29169993.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c29169993.thfilter(chkc) end + if chk==0 then return e:GetHandler():IsAbleToGrave() + and Duel.IsExistingTarget(c29169993.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c29169993.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c29169993.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) and tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c29169993.cfilter(c) + return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x9f) and c:IsPreviousLocation(LOCATION_HAND) +end +function c29169993.spcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c29169993.cfilter,1,nil) and not eg:IsContains(e:GetHandler()) +end +function c29169993.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c29169993.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c29208536.lua b/script/c29208536.lua new file mode 100644 index 00000000..0ad4314d --- /dev/null +++ b/script/c29208536.lua @@ -0,0 +1,72 @@ +--No.45 滅亡の予言者 クランブル・ロゴス +function c29208536.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,2,2,nil,nil,5) + c:EnableReviveLimit() + --negate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(29208536,0)) + e1:SetCategory(CATEGORY_DISABLE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1) + e1:SetRange(LOCATION_MZONE) + e1:SetCost(c29208536.cost) + e1:SetTarget(c29208536.target) + e1:SetOperation(c29208536.operation) + c:RegisterEffect(e1) + --disable + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_DISABLE) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetTarget(c29208536.distg) + c:RegisterEffect(e2) + --cannnot activate + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetRange(LOCATION_MZONE) + e3:SetTargetRange(1,1) + e3:SetCode(EFFECT_CANNOT_ACTIVATE) + e3:SetCondition(c29208536.actcon) + e3:SetValue(c29208536.aclimit) + c:RegisterEffect(e3) +end +c29208536.xyz_number=45 +function c29208536.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c29208536.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsFaceup() and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) +end +function c29208536.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then + c:SetCardTarget(tc) + end +end +function c29208536.distg(e,c) + return e:GetHandler():IsHasCardTarget(c) +end +function c29208536.actcon(e) + return e:GetHandler():GetCardTargetCount()>0 +end +function c29208536.aclimit(e,re,tp) + local g=e:GetHandler():GetCardTarget() + local cg={} + local tc=g:GetFirst() + while tc do + table.insert(cg,tc:GetCode()) + tc=g:GetNext() + end + return re:GetHandler():IsCode(table.unpack(cg)) and not re:GetHandler():IsImmuneToEffect(e) +end diff --git a/script/c29216198.lua b/script/c29216198.lua index 87dc8034..3db3b4c1 100644 --- a/script/c29216198.lua +++ b/script/c29216198.lua @@ -17,6 +17,6 @@ end function c29216198.operation(e,tp,eg,ep,ev,re,r,rp) local sg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) if sg:GetCount()>0 then - Duel.ChangePosition(sg,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(sg,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c29223325.lua b/script/c29223325.lua index 933d8475..676cf664 100644 --- a/script/c29223325.lua +++ b/script/c29223325.lua @@ -24,10 +24,10 @@ function c29223325.filter(c) return c:IsSetCard(0x97) and c:IsType(TYPE_MONSTER) and c:IsSSetable(true) end function c29223325.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c29223325.desfilter2(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() and c:GetSequence()<5 + return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:GetSequence()<5 end function c29223325.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c29223325.desfilter(chkc) and chkc~=e:GetHandler() end diff --git a/script/c29228350.lua b/script/c29228350.lua index 1ce9af0b..15f2076d 100644 --- a/script/c29228350.lua +++ b/script/c29228350.lua @@ -18,11 +18,11 @@ end function c29228350.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_SZONE) and c29228350.filter(chkc) end if chk==0 then return Duel.IsExistingTarget(c29228350.filter,tp,LOCATION_SZONE,0,1,nil) - and Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + and Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) local g=Duel.SelectTarget(tp,c29228350.filter,tp,LOCATION_SZONE,0,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) end function c29228350.activate(e,tp,eg,ep,ev,re,r,rp) @@ -30,6 +30,6 @@ function c29228350.activate(e,tp,eg,ep,ev,re,r,rp) if tc:IsRelateToEffect(e) then Duel.SendtoGrave(tc,REASON_EFFECT) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.Destroy(sg,REASON_EFFECT) end diff --git a/script/c2924048.lua b/script/c2924048.lua index 6b73aef2..9ab9ebc0 100644 --- a/script/c2924048.lua +++ b/script/c2924048.lua @@ -11,7 +11,7 @@ function c2924048.initial_effect(c) c:RegisterEffect(e1) end function c2924048.cfilter(c) - return c:IsPosition(POS_FACEUP_DEFENCE) and c:IsSetCard(0x11) + return c:IsPosition(POS_FACEUP_DEFENSE) and c:IsSetCard(0x11) end function c2924048.condition(e,tp,eg,ep,ev,re,r,rp) if ep==tp or not Duel.IsExistingMatchingCard(c2924048.cfilter,tp,LOCATION_MZONE,0,1,nil) then return false end diff --git a/script/c29307554.lua b/script/c29307554.lua old mode 100755 new mode 100644 index c8ee2f4f..31498118 --- a/script/c29307554.lua +++ b/script/c29307554.lua @@ -23,7 +23,7 @@ function c29307554.checkop(e,tp,eg,ep,ev,re,r,rp) local p1=false local p2=false while tc do - if tc:IsPreviousLocation(LOCATION_MZONE) and tc:IsPreviousPosition(POS_DEFENCE) then + if tc:IsPreviousLocation(LOCATION_MZONE) and tc:IsPreviousPosition(POS_DEFENSE) then if tc:GetReasonPlayer()==0 and tc:GetPreviousControler()==1 then p1=true end if tc:GetReasonPlayer()==1 and tc:GetPreviousControler()==0 then p2=true end end @@ -34,7 +34,7 @@ function c29307554.checkop(e,tp,eg,ep,ev,re,r,rp) end function c29307554.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetFlagEffect(tp,29307554)~=0 and Duel.GetTurnPlayer()==tp - and (Duel.IsAbleToEnterBP() or Duel.GetCurrentPhase()==PHASE_BATTLE) + and (Duel.IsAbleToEnterBP() or (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)) end function c29307554.filter(c) return c:IsFaceup() and c:IsLevelAbove(8) and c:GetEffectCount(EFFECT_EXTRA_ATTACK)==0 diff --git a/script/c29311166.lua b/script/c29311166.lua new file mode 100644 index 00000000..592d2b7c --- /dev/null +++ b/script/c29311166.lua @@ -0,0 +1,34 @@ +--アサルトワイバーン +function c29311166.initial_effect(c) + --search + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(29311166,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_BATTLE_DESTROYING) + e1:SetCondition(aux.bdocon) + e1:SetCost(c29311166.cost) + e1:SetTarget(c29311166.target) + e1:SetOperation(c29311166.operation) + c:RegisterEffect(e1) +end +function c29311166.filter(c,e,tp) + return c:IsRace(RACE_DRAGON) and not c:IsCode(29311166) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c29311166.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c29311166.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c29311166.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND) +end +function c29311166.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c29311166.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c29343734.lua b/script/c29343734.lua old mode 100755 new mode 100644 diff --git a/script/c29353756.lua b/script/c29353756.lua index 2763512e..ee606f65 100644 --- a/script/c29353756.lua +++ b/script/c29353756.lua @@ -40,7 +40,7 @@ function c29353756.eqcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():CheckUniqueOnField(tp) end function c29353756.filter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) + return c:IsFaceup() and c:IsSetCard(0x107f) end function c29353756.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c29353756.filter(chkc) end diff --git a/script/c293542.lua b/script/c293542.lua index b896511e..2227f509 100644 --- a/script/c293542.lua +++ b/script/c293542.lua @@ -31,8 +31,10 @@ function c293542.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c293542.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c293542.regop(e,tp,eg,ep,ev,re,r,rp) @@ -52,7 +54,7 @@ function c293542.regop(e,tp,eg,ep,ev,re,r,rp) end end function c293542.filter(c) - return c:IsSetCard(0x27) and c:GetCode()~=293542 and c:IsAbleToHand() + return c:IsSetCard(0x27) and not c:IsCode(293542) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c293542.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c293542.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c29357956.lua b/script/c29357956.lua index 5bda9aa9..5a4ac956 100644 --- a/script/c29357956.lua +++ b/script/c29357956.lua @@ -52,7 +52,7 @@ function c29357956.splimit(e,se,sp,st) return e:GetHandler():GetLocation()~=LOCATION_EXTRA end function c29357956.spfilter(c) - return c:IsSetCard(0x19) and c:IsCanBeFusionMaterial() and c:IsAbleToDeckOrExtraAsCost() + return c:IsFusionSetCard(0x19) and c:IsCanBeFusionMaterial() and c:IsAbleToDeckOrExtraAsCost() end function c29357956.sprcon(e,c) if c==nil then return true end @@ -84,11 +84,13 @@ function c29357956.filter(c,e,tp) return c:IsSetCard(0x19) and c:IsCanBeSpecialSummoned(e,122,tp,false,false) end function c29357956.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c29357956.filter,tp,LOCATION_DECK,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c29357956.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetMatchingGroup(c29357956.filter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()>=2 then diff --git a/script/c29380133.lua b/script/c29380133.lua index 252cb705..eff21dd1 100644 --- a/script/c29380133.lua +++ b/script/c29380133.lua @@ -12,7 +12,7 @@ function c29380133.initial_effect(c) c:RegisterEffect(e1) end function c29380133.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousPosition(POS_ATTACK) and e:GetHandler():IsPosition(POS_DEFENCE) + return e:GetHandler():IsPreviousPosition(POS_ATTACK) and e:GetHandler():IsPosition(POS_DEFENSE) end function c29380133.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,nil) end diff --git a/script/c29401950.lua b/script/c29401950.lua index 019e7bcb..e703154c 100644 --- a/script/c29401950.lua +++ b/script/c29401950.lua @@ -25,7 +25,7 @@ function c29401950.initial_effect(c) end function c29401950.filter(c,tp,ep) return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:GetAttack()>=1500 - and ep~=tp and c:IsDestructable() and c:IsAbleToRemove() + and ep~=tp and c:IsAbleToRemove() end function c29401950.target(e,tp,eg,ep,ev,re,r,rp,chk) local tc=eg:GetFirst() @@ -42,7 +42,7 @@ function c29401950.activate(e,tp,eg,ep,ev,re,r,rp) end function c29401950.filter2(c,tp) return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:GetAttack()>=1500 and c:GetSummonPlayer()~=tp - and c:IsDestructable() and c:IsAbleToRemove() + and c:IsAbleToRemove() end function c29401950.target2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return eg:IsExists(c29401950.filter2,1,nil,tp) end @@ -53,7 +53,7 @@ function c29401950.target2(e,tp,eg,ep,ev,re,r,rp,chk) end function c29401950.filter3(c,e,tp) return c:IsFaceup() and c:GetAttack()>=1500 and c:GetSummonPlayer()~=tp - and c:IsRelateToEffect(e) and c:IsLocation(LOCATION_MZONE) and c:IsDestructable() + and c:IsRelateToEffect(e) and c:IsLocation(LOCATION_MZONE) end function c29401950.activate2(e,tp,eg,ep,ev,re,r,rp) local g=eg:Filter(c29401950.filter3,nil,e,tp) diff --git a/script/c29417188.lua b/script/c29417188.lua old mode 100755 new mode 100644 index 7eeee8d0..4fced585 --- a/script/c29417188.lua +++ b/script/c29417188.lua @@ -30,14 +30,6 @@ function c29417188.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetLabel(ac) e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN) Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_DISABLE) - e2:SetTargetRange(0x7f,0x7f) - e2:SetTarget(c29417188.bantg) - e2:SetLabel(ac) - e2:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN) - Duel.RegisterEffect(e2,tp) end function c29417188.bantg(e,c) return c:IsCode(e:GetLabel()) diff --git a/script/c29455728.lua b/script/c29455728.lua index 48b78d93..faa0b928 100644 --- a/script/c29455728.lua +++ b/script/c29455728.lua @@ -21,19 +21,22 @@ end function c29455728.mgfilter(c,e,tp,fusc) return not c:IsControler(tp) or not c:IsLocation(LOCATION_GRAVE) or bit.band(c:GetReason(),0x40008)~=0x40008 or c:GetReasonCard()~=fusc - or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) or c:IsHasEffect(EFFECT_NECRO_VALLEY) + or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c29455728.target(e,tp,eg,ep,ev,re,r,rp,chk) local g=e:GetHandler():GetMaterial() - if chk==0 then return g:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)+1>=g:GetCount() + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and g:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)+1>=g:GetCount() and bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION and not g:IsExists(c29455728.mgfilter,1,nil,e,tp,e:GetHandler()) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) end function c29455728.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local g=e:GetHandler():GetMaterial() if Duel.GetLocationCount(tp,LOCATION_MZONE)>=g:GetCount() - and not g:IsExists(c29455728.mgfilter,1,nil,e,tp,e:GetHandler()) then + and not g:IsExists(c29455728.mgfilter,1,nil,e,tp,e:GetHandler()) + and not g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c2948263.lua b/script/c2948263.lua index a61bfdca..b9ce445c 100644 --- a/script/c2948263.lua +++ b/script/c2948263.lua @@ -27,7 +27,7 @@ function c2948263.initial_effect(c) local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(2948263,0)) e4:SetCategory(CATEGORY_DISABLE) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_F) + e4:SetType(EFFECT_TYPE_QUICK_F) e4:SetCode(EVENT_CHAINING) e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e4:SetRange(LOCATION_MZONE) diff --git a/script/c2949263.lua b/script/c2949263.lua deleted file mode 100644 index 36b937e7..00000000 --- a/script/c2949263.lua +++ /dev/null @@ -1,85 +0,0 @@ ---ゴゴゴゴーレム－GF -function c2949263.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND) - e2:SetCondition(c2949263.spcon) - e2:SetOperation(c2949263.spop) - c:RegisterEffect(e2) - --reduce - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e3:SetCondition(c2949263.rdcon) - e3:SetOperation(c2949263.rdop) - c:RegisterEffect(e3) - --disable - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(2949263,0)) - e4:SetCategory(CATEGORY_DISABLE) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_F) - e4:SetCode(EVENT_CHAINING) - e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e4:SetRange(LOCATION_MZONE) - e4:SetCountLimit(1) - e4:SetCondition(c2949263.discon) - e4:SetTarget(c2949263.distg) - e4:SetOperation(c2949263.disop) - c:RegisterEffect(e4) -end -function c2949263.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(c:GetControler(),Card.IsSetCard,1,nil,0x59) -end -function c2949263.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectReleaseGroup(c:GetControler(),Card.IsSetCard,1,1,nil,0x59) - Duel.Release(g,REASON_COST) - local atk=g:GetFirst():GetBaseAttack() - if atk<0 then return end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(atk*2) - e1:SetReset(RESET_EVENT+0xff0000) - c:RegisterEffect(e1) -end -function c2949263.rdcon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c2949263.rdop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,ev/2) -end -function c2949263.discon(e,tp,eg,ep,ev,re,r,rp) - local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainDisablable(ev) - and rp~=tp and re:IsActiveType(TYPE_MONSTER) and loc==LOCATION_MZONE -end -function c2949263.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) -end -function c2949263.disop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFacedown() or c:GetAttack()<1500 or not c:IsRelateToEffect(e) or Duel.GetCurrentChain()~=ev+1 or c:IsStatus(STATUS_BATTLE_DESTROYED) then - return - end - Duel.NegateEffect(ev) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) - e1:SetReset(RESET_EVENT+0x1ff0000) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-1500) - c:RegisterEffect(e1) -end diff --git a/script/c29515122.lua b/script/c29515122.lua index e4d779d5..56c7107b 100644 --- a/script/c29515122.lua +++ b/script/c29515122.lua @@ -32,6 +32,6 @@ function c29515122.operation(e,tp,eg,ep,ev,re,r,rp) local ct=g:FilterCount(c29515122.cfilter,nil) if ct==0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local dg=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,ct,nil) + local dg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,ct,nil) Duel.Destroy(dg,REASON_EFFECT) end diff --git a/script/c29549364.lua b/script/c29549364.lua old mode 100755 new mode 100644 diff --git a/script/c295517.lua b/script/c295517.lua index 56f0a1a3..59ae7ce8 100644 --- a/script/c295517.lua +++ b/script/c295517.lua @@ -22,6 +22,6 @@ function c295517.initial_effect(c) c:RegisterEffect(e3) --Def local e4=e3:Clone() - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e4) end diff --git a/script/c29587993.lua b/script/c29587993.lua old mode 100755 new mode 100644 index f32d8044..721d40a4 --- a/script/c29587993.lua +++ b/script/c29587993.lua @@ -4,7 +4,7 @@ function c29587993.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(29587993,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_MZONE) diff --git a/script/c29590752.lua b/script/c29590752.lua index 2f6263cf..ddb71b81 100644 --- a/script/c29590752.lua +++ b/script/c29590752.lua @@ -28,7 +28,7 @@ function c29590752.descon(e,tp,eg,ep,ev,re,r,rp) return st>=(SUMMON_TYPE_SPECIAL+100) and st<(SUMMON_TYPE_SPECIAL+150) end function c29590752.desfilter(c) - return c:IsFacedown() and c:GetSequence()~=5 and c:IsDestructable() + return c:IsFacedown() and c:GetSequence()~=5 end function c29590752.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and c29590752.desfilter(chkc) end diff --git a/script/c29590905.lua b/script/c29590905.lua index 48d20dd0..2cf7f168 100644 --- a/script/c29590905.lua +++ b/script/c29590905.lua @@ -13,14 +13,14 @@ function c29590905.condition(e,tp,eg,ep,ev,re,r,rp) return eg:GetFirst():IsControler(1-tp) end function c29590905.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsPosition,tp,LOCATION_MZONE,0,1,nil,POS_FACEUP_DEFENCE) end + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsPosition,tp,LOCATION_MZONE,0,1,nil,POS_FACEUP_DEFENSE) end end function c29590905.activate(e,tp,eg,ep,ev,re,r,rp) local g1=Duel.GetMatchingGroup(Card.IsPosition,tp,0,LOCATION_MZONE,nil,POS_FACEUP_ATTACK) - local g2=Duel.GetMatchingGroup(Card.IsPosition,tp,LOCATION_MZONE,0,nil,POS_FACEUP_DEFENCE) + local g2=Duel.GetMatchingGroup(Card.IsPosition,tp,LOCATION_MZONE,0,nil,POS_FACEUP_DEFENSE) if g1:GetCount()==0 or g2:GetCount()==0 then return end local ga=g1:GetMinGroup(Card.GetAttack) - local gd=g2:GetMinGroup(Card.GetDefence) + local gd=g2:GetMinGroup(Card.GetDefense) if ga:GetCount()>1 then Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(29590905,0)) ga=ga:Select(tp,1,1,nil) diff --git a/script/c29612557.lua b/script/c29612557.lua index 87c2da9d..ddfdb619 100644 --- a/script/c29612557.lua +++ b/script/c29612557.lua @@ -58,7 +58,7 @@ function c29612557.descon(e,tp,eg,ep,ev,re,r,rp) and bit.band(ec:GetReason(),0x41)==0x41 end function c29612557.dfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c29612557.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c296499.lua b/script/c296499.lua old mode 100755 new mode 100644 index 3b0383b1..8b2d8ee5 --- a/script/c296499.lua +++ b/script/c296499.lua @@ -44,6 +44,6 @@ function c296499.mtop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectReleaseGroup(tp,Card.IsReleasable,1,1,nil) Duel.Release(g,REASON_COST) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end diff --git a/script/c29669359.lua b/script/c29669359.lua index 26479a29..bba00404 100644 --- a/script/c29669359.lua +++ b/script/c29669359.lua @@ -29,7 +29,7 @@ function c29669359.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RegisterEffect(e1) end function c29669359.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c29669359.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c29669359.filter(chkc) end diff --git a/script/c29724053.lua b/script/c29724053.lua new file mode 100644 index 00000000..b28dc3bb --- /dev/null +++ b/script/c29724053.lua @@ -0,0 +1,57 @@ +--サモン・ゲート +function c29724053.initial_effect(c) + --activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --summon count limit + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetRange(LOCATION_SZONE) + e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetTargetRange(1,1) + e2:SetTarget(c29724053.sumlimit) + c:RegisterEffect(e2) + -- + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetRange(LOCATION_SZONE) + e3:SetCode(29724053) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetTargetRange(1,1) + c:RegisterEffect(e3) + if c29724053.global_check==nil then + c29724053.global_check=true + c29724053[0]=3 + c29724053[1]=3 + local ge1=Effect.CreateEffect(c) + ge1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + ge1:SetCode(EVENT_PHASE_START+PHASE_DRAW) + ge1:SetOperation(c29724053.resetop) + Duel.RegisterEffect(ge1,0) + local ge2=Effect.CreateEffect(c) + ge2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + ge2:SetCode(EVENT_SPSUMMON_SUCCESS) + ge2:SetOperation(c29724053.checkop) + Duel.RegisterEffect(ge2,0) + end +end +function c29724053.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) + return c:IsLocation(LOCATION_EXTRA) and c29724053[sump]<=0 +end +function c29724053.resetop(e,tp,eg,ep,ev,re,r,rp) + c29724053[0]=3 + c29724053[1]=3 +end +function c29724053.checkop(e,tp,eg,ep,ev,re,r,rp) + local tc=eg:GetFirst() + while tc do + if tc:IsPreviousLocation(LOCATION_EXTRA) then + local p=tc:GetSummonPlayer() + c29724053[p]=c29724053[p]-1 + end + tc=eg:GetNext() + end +end diff --git a/script/c29726552.lua b/script/c29726552.lua old mode 100755 new mode 100644 index 7c3aeaa9..4d6301c9 --- a/script/c29726552.lua +++ b/script/c29726552.lua @@ -1,6 +1,6 @@ --Kumongous, the Sticky String Kaiju function c29726552.initial_effect(c) - c:SetUniqueOnField(1,0,20000000) + c:SetUniqueOnField(1,0,20000000,LOCATION_MZONE) --special summon rule local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) @@ -54,14 +54,14 @@ function c29726552.spcon2(e,c) and Duel.IsExistingMatchingCard(c29726552.cfilter,tp,0,LOCATION_MZONE,1,nil) end function c29726552.filter(c,tp) - return c:IsFaceup() and c:GetSummonPlayer()==tp + return c:GetSummonPlayer()==tp end function c29726552.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x37,2,REASON_COST) end Duel.RemoveCounter(tp,1,1,0x37,2,REASON_COST) end function c29726552.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c29726552.filter,1,nil,1-tp) end + if chk==0 then return eg:IsExists(c29726552.filter,1,nil,1-tp) and not eg:IsContains(e:GetHandler()) end local g=eg:Filter(c29726552.filter,nil,1-tp) Duel.SetTargetCard(g) end diff --git a/script/c29735721.lua b/script/c29735721.lua old mode 100755 new mode 100644 diff --git a/script/c29765339.lua b/script/c29765339.lua old mode 100755 new mode 100644 diff --git a/script/c2978414.lua b/script/c2978414.lua index 2c38f4ed..f52a7089 100644 --- a/script/c2978414.lua +++ b/script/c2978414.lua @@ -76,10 +76,8 @@ function c2978414.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c2978414.ctop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp) end end function c2978414.efop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c29795530.lua b/script/c29795530.lua old mode 100755 new mode 100644 diff --git a/script/c29834183.lua b/script/c29834183.lua old mode 100755 new mode 100644 diff --git a/script/c29838323.lua b/script/c29838323.lua new file mode 100644 index 00000000..8da86fce --- /dev/null +++ b/script/c29838323.lua @@ -0,0 +1,88 @@ +--水晶機巧－シストバーン +function c29838323.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(29838323,0)) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,29838323) + e1:SetTarget(c29838323.sptg) + e1:SetOperation(c29838323.spop) + c:RegisterEffect(e1) + --search + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(29838323,1)) + e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,29838323) + e2:SetCost(c29838323.thcost) + e2:SetTarget(c29838323.thtg) + e2:SetOperation(c29838323.thop) + c:RegisterEffect(e2) +end +function c29838323.desfilter(c) + return c:IsFaceup() +end +function c29838323.spfilter(c,e,tp) + return c:IsSetCard(0xea) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c29838323.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(e:GetLabel()) and chkc:IsControler(tp) and c29838323.desfilter(chkc) end + if chk==0 then + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<-1 then return false end + local loc=LOCATION_ONFIELD + if ft==0 then loc=LOCATION_MZONE end + e:SetLabel(loc) + return Duel.IsExistingTarget(c29838323.desfilter,tp,loc,0,1,nil) + and Duel.IsExistingMatchingCard(c29838323.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c29838323.desfilter,tp,e:GetLabel(),0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c29838323.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c29838323.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetTarget(c29838323.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c29838323.splimit(e,c) + return not (c:IsRace(RACE_MACHINE) and c:IsType(TYPE_SYNCHRO)) and c:IsLocation(LOCATION_EXTRA) +end +function c29838323.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c29838323.thfilter(c) + return c:IsSetCard(0xea) and c:IsType(TYPE_MONSTER) and not c:IsCode(29838323) and c:IsAbleToHand() +end +function c29838323.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c29838323.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c29838323.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c29838323.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c29843091.lua b/script/c29843091.lua old mode 100755 new mode 100644 index 950ebe77..a0552006 --- a/script/c29843091.lua +++ b/script/c29843091.lua @@ -10,18 +10,19 @@ function c29843091.initial_effect(c) c:RegisterEffect(e1) end function c29843091.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp)>2 - and Duel.IsPlayerCanSpecialSummonMonster(tp,29843092,0xf,0x4011,0,1000,2,RACE_BEAST,ATTRIBUTE_LIGHT,POS_FACEUP_DEFENCE,1-tp) end + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp)>2 + and Duel.IsPlayerCanSpecialSummonMonster(tp,29843092,0xf,0x4011,0,1000,2,RACE_BEAST,ATTRIBUTE_LIGHT,POS_FACEUP_DEFENSE,1-tp) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,3,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,0) end function c29843091.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp)<3 then return end - if not Duel.IsPlayerCanSpecialSummonMonster(tp,29843092,0xf,0x4011,0,1000,2,RACE_BEAST,ATTRIBUTE_LIGHT,POS_FACEUP_DEFENCE,1-tp) then return end - local g=Group.CreateGroup() + if not Duel.IsPlayerCanSpecialSummonMonster(tp,29843092,0xf,0x4011,0,1000,2,RACE_BEAST,ATTRIBUTE_LIGHT,POS_FACEUP_DEFENSE,1-tp) then return end for i=1,3 do local token=Duel.CreateToken(tp,29843091+i) - if Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) then + if Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UNRELEASABLE_SUM) @@ -29,42 +30,19 @@ function c29843091.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) e1:SetValue(1) token:RegisterEffect(e1,true) - g:AddCard(token) + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_LEAVE_FIELD) + e2:SetOperation(c29843091.damop) + token:RegisterEffect(e2,true) end end - g:KeepAlive() - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DESTROYED) - e2:SetLabelObject(g) - e2:SetCondition(c29843091.damcon) - e2:SetOperation(c29843091.damop) - Duel.RegisterEffect(e2,tp) Duel.SpecialSummonComplete() end -function c29843091.dfilter(c,g) - return g:IsContains(c) -end -function c29843091.damcon(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject() - if eg:IsExists(c29843091.dfilter,1,nil,g) then - return true - else - if not g:IsExists(Card.IsLocation,1,nil,LOCATION_MZONE) then - g:DeleteGroup() - e:Reset() - end - return false - end -end function c29843091.damop(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject() - local tc=eg:GetFirst() - while tc do - if g:IsContains(tc) then - Duel.Damage(tc:GetPreviousControler(),300,REASON_EFFECT) - g:RemoveCard(tc) - end - tc=eg:GetNext() + local c=e:GetHandler() + if c:IsReason(REASON_DESTROY) then + Duel.Damage(c:GetPreviousControler(),300,REASON_EFFECT) end + e:Reset() end diff --git a/script/c29876529.lua b/script/c29876529.lua old mode 100755 new mode 100644 index dcdd9714..c89bbf94 --- a/script/c29876529.lua +++ b/script/c29876529.lua @@ -20,7 +20,7 @@ function c29876529.costfilter(c) and Duel.IsExistingMatchingCard(c29876529.dfilter,0,LOCATION_MZONE,LOCATION_MZONE,1,c) end function c29876529.dfilter(c) - return c:IsStatus(STATUS_SPSUMMON_TURN) and c:IsDestructable() + return c:IsStatus(STATUS_SPSUMMON_TURN) end function c29876529.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then diff --git a/script/c29904964.lua b/script/c29904964.lua old mode 100755 new mode 100644 index c64e21c2..f386a63f --- a/script/c29904964.lua +++ b/script/c29904964.lua @@ -33,8 +33,7 @@ function c29904964.ntcon(e,c,minc) and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0) end function c29904964.spfilter(c,e,tp) - return c:IsSetCard(0xcf) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x10cf) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c29904964.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c29904964.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end @@ -43,10 +42,10 @@ end function c29904964.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c29904964.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end function c29904964.mtval(e,c) - return c:IsSetCard(0xcf) + return c:IsSetCard(0x10cf) end diff --git a/script/c29905795.lua b/script/c29905795.lua index f1f1e7ab..8da86986 100644 --- a/script/c29905795.lua +++ b/script/c29905795.lua @@ -27,7 +27,10 @@ function c29905795.op(e,tp,eg,ep,ev,re,r,rp) local sg=g:Select(tp,1,1,e:GetHandler()) Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD) end - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c29947751.lua b/script/c29947751.lua index 2a9b60d4..eae2eb4c 100644 --- a/script/c29947751.lua +++ b/script/c29947751.lua @@ -35,7 +35,7 @@ function c29947751.vala(e,c) else return true end end function c29947751.cond(e) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end function c29947751.atlimit(e,c) return c~=e:GetHandler() diff --git a/script/c29951323.lua b/script/c29951323.lua new file mode 100644 index 00000000..d24dc9ed --- /dev/null +++ b/script/c29951323.lua @@ -0,0 +1,64 @@ +--放電ムスタンガン +function c29951323.initial_effect(c) + c:EnableUnsummonable() + --splimit + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(c29951323.splimit) + c:RegisterEffect(e1) + --indes + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EFFECT_INDESTRUCTABLE_COUNT) + e2:SetCountLimit(2) + e2:SetValue(c29951323.valcon) + c:RegisterEffect(e2) + --spsummon limit + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetTargetRange(1,1) + e3:SetTarget(c29951323.limittg) + c:RegisterEffect(e3) + --counter + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_LEFT_SPSUMMON_COUNT) + e4:SetRange(LOCATION_MZONE) + e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e4:SetTargetRange(1,0) + e4:SetCondition(c29951323.countcon1) + e4:SetValue(c29951323.countval) + c:RegisterEffect(e4) + local e5=e4:Clone() + e5:SetCondition(c29951323.countcon2) + e5:SetTargetRange(0,1) + c:RegisterEffect(e5) +end +function c29951323.splimit(e,se,sp,st) + return se:IsHasType(EFFECT_TYPE_ACTIONS) and Duel.GetActivityCount(e:GetHandlerPlayer(),ACTIVITY_SPSUMMON)==0 + and Duel.GetCurrentPhase()==PHASE_MAIN1 and Duel.GetTurnPlayer()==e:GetHandlerPlayer() +end +function c29951323.valcon(e,re,r,rp) + return bit.band(r,REASON_BATTLE)~=0 +end +function c29951323.limittg(e,c,tp) + return Duel.GetTurnPlayer()==tp and Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)>=Duel.GetBattledCount(tp) +end +function c29951323.countcon1(e) + return Duel.GetTurnPlayer()==e:GetHandlerPlayer() +end +function c29951323.countcon2(e) + return Duel.GetTurnPlayer()~=e:GetHandlerPlayer() +end +function c29951323.countval(e,tp) + local t1=Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON) + local t2=Duel.GetBattledCount(tp) + if t1>=t2 then return 0 else return t2-t1 end +end diff --git a/script/c30012506.lua b/script/c30012506.lua new file mode 100644 index 00000000..87d6e99d --- /dev/null +++ b/script/c30012506.lua @@ -0,0 +1,119 @@ +--A－アサルト・コア +function c30012506.initial_effect(c) + --equip + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(30012506,0)) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCategory(CATEGORY_EQUIP) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetTarget(c30012506.eqtg) + e1:SetOperation(c30012506.eqop) + c:RegisterEffect(e1) + --unequip + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(30012506,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_SZONE) + e2:SetTarget(c30012506.sptg) + e2:SetOperation(c30012506.spop) + c:RegisterEffect(e2) + --destroy sub + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_EQUIP) + e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e3:SetCode(EFFECT_DESTROY_SUBSTITUTE) + e3:SetValue(c30012506.repval) + c:RegisterEffect(e3) + --immune + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_EQUIP) + e4:SetCode(EFFECT_IMMUNE_EFFECT) + e4:SetValue(c30012506.efilter) + c:RegisterEffect(e4) + --to hand + local e5=Effect.CreateEffect(c) + e5:SetCategory(CATEGORY_TOHAND) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e5:SetProperty(EFFECT_FLAG_DELAY) + e5:SetCode(EVENT_TO_GRAVE) + e5:SetCondition(c30012506.thcon) + e5:SetTarget(c30012506.thtg) + e5:SetOperation(c30012506.thop) + c:RegisterEffect(e5) + --eqlimit + local e6=Effect.CreateEffect(c) + e6:SetType(EFFECT_TYPE_SINGLE) + e6:SetCode(EFFECT_EQUIP_LIMIT) + e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e6:SetValue(c30012506.eqlimit) + c:RegisterEffect(e6) +end +function c30012506.filter(c) + return c:IsFaceup() and c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT) +end +function c30012506.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local c=e:GetHandler() + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c30012506.filter(chkc) end + if chk==0 then return e:GetHandler():GetFlagEffect(30012506)==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 + and Duel.IsExistingTarget(c30012506.filter,tp,LOCATION_MZONE,0,1,c) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + local g=Duel.SelectTarget(tp,c30012506.filter,tp,LOCATION_MZONE,0,1,1,c) + Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) + c:RegisterFlagEffect(30012506,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) +end +function c30012506.eqop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end + if not tc:IsRelateToEffect(e) or not c30012506.filter(tc) then + Duel.SendtoGrave(c,REASON_EFFECT) + return + end + if not Duel.Equip(tp,c,tc,false) then return end + c:SetStatus(STATUS_UNION,true) +end +function c30012506.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:GetFlagEffect(30012506)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) + c:RegisterFlagEffect(30012506,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) +end +function c30012506.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c30012506.repval(e,re,r,rp) + return bit.band(r,REASON_BATTLE)~=0 or bit.band(r,REASON_EFFECT)~=0 +end +function c30012506.efilter(e,te) + return te:GetOwnerPlayer()~=e:GetHandlerPlayer() and te:GetOwner()~=e:GetOwner() + and te:IsActiveType(TYPE_MONSTER) +end +function c30012506.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) +end +function c30012506.thfilter(c) + return c:IsType(TYPE_UNION) and c:IsAbleToHand() +end +function c30012506.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c30012506.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) +end +function c30012506.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c30012506.thfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c30012506.eqlimit(e,c) + return (c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT)) or e:GetHandler():GetEquipTarget()==c +end diff --git a/script/c30042158.lua b/script/c30042158.lua index d3c6f5a0..776ef66f 100644 --- a/script/c30042158.lua +++ b/script/c30042158.lua @@ -4,7 +4,7 @@ function c30042158.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(30042158,0)) e1:SetCategory(CATEGORY_DRAW) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CVAL_CHECK) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CVAL_CHECK) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e1:SetCode(EVENT_REMOVE) e1:SetCost(c30042158.cost) diff --git a/script/c30068120.lua b/script/c30068120.lua index e417e9f7..61ee86f1 100644 --- a/script/c30068120.lua +++ b/script/c30068120.lua @@ -26,6 +26,6 @@ end function c30068120.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c30069398.lua b/script/c30069398.lua old mode 100755 new mode 100644 index e5940035..1fe54422 --- a/script/c30069398.lua +++ b/script/c30069398.lua @@ -16,29 +16,21 @@ function c30069398.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c30069398.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(1-tp,LOCATION_MZONE)<=0 then return end - if not Duel.IsPlayerCanSpecialSummonMonster(tp,30069399,0,0x4011,0,0,1,RACE_PLANT,ATTRIBUTE_EARTH,POS_FACEUP_DEFENCE,1-tp) then return end + if not Duel.IsPlayerCanSpecialSummonMonster(tp,30069399,0,0x4011,0,0,1,RACE_PLANT,ATTRIBUTE_EARTH,POS_FACEUP_DEFENSE,1-tp) then return end local token=Duel.CreateToken(tp,30069399) - if Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) then + if Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_DESTROYED) - e1:SetLabelObject(token) - e1:SetCondition(c30069398.damcon) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_LEAVE_FIELD) e1:SetOperation(c30069398.damop) - Duel.RegisterEffect(e1,tp) + token:RegisterEffect(e1,true) end Duel.SpecialSummonComplete() end -function c30069398.damcon(e,tp,eg,ep,ev,re,r,rp) - local tok=e:GetLabelObject() - if eg:IsContains(tok) then - return true - else - if not tok:IsLocation(LOCATION_MZONE) then e:Reset() end - return false - end -end function c30069398.damop(e,tp,eg,ep,ev,re,r,rp) - local tok=e:GetLabelObject() - Duel.Damage(tok:GetPreviousControler(),300,REASON_EFFECT) + local c=e:GetHandler() + if c:IsReason(REASON_DESTROY) then + Duel.Damage(c:GetPreviousControler(),300,REASON_EFFECT) + end + e:Reset() end diff --git a/script/c30086349.lua b/script/c30086349.lua new file mode 100644 index 00000000..fe2fddd3 --- /dev/null +++ b/script/c30086349.lua @@ -0,0 +1,73 @@ +--流星竜メテオ・ブラック・ドラゴン +function c30086349.initial_effect(c) + --fusion material + aux.AddFusionProcFun2(c,c30086349.mfilter1,c30086349.mfilter2,true) + c:EnableReviveLimit() + --damage + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(30086349,0)) + e1:SetCategory(CATEGORY_DAMAGE+CATEGORY_TOGRAVE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c30086349.damcon) + e1:SetTarget(c30086349.damtg) + e1:SetOperation(c30086349.damop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(30086349,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCondition(c30086349.spcon) + e2:SetTarget(c30086349.sptg) + e2:SetOperation(c30086349.spop) + c:RegisterEffect(e2) +end +c30086349.material_setcode=0x3b +function c30086349.mfilter1(c) + return c:IsFusionSetCard(0x3b) and c:GetLevel()==7 +end +function c30086349.mfilter2(c) + return c:IsRace(RACE_DRAGON) and c:GetLevel()==6 +end +function c30086349.damcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c30086349.damfilter(c) + return c:IsFusionSetCard(0x3b) and c:GetBaseAttack()>0 and c:IsAbleToGrave() +end +function c30086349.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c30086349.damfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0) +end +function c30086349.damop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c30086349.damfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil) + local tc=g:GetFirst() + if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE) then + Duel.Damage(1-tp,math.ceil(g:GetFirst():GetBaseAttack()/2),REASON_EFFECT) + end +end +function c30086349.spcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_MZONE) +end +function c30086349.spfilter(c,e,tp) + return c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c30086349.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c30086349.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c30086349.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c30086349.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c30086349.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c30100551.lua b/script/c30100551.lua index ce230142..029b1bef 100644 --- a/script/c30100551.lua +++ b/script/c30100551.lua @@ -1,67 +1,67 @@ ---ライトロード・セイント ミネルバ -function c30100551.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,4,2) - c:EnableReviveLimit() - --discard deck & draw - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DECKDES+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,30100551) - e1:SetCost(c30100551.drcost) - e1:SetTarget(c30100551.distg) - e1:SetOperation(c30100551.drop) - c:RegisterEffect(e1) - --discard deck & destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DECKDES+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_DESTROYED) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCountLimit(1,30100552) - e2:SetCondition(c30100551.descon) - e2:SetTarget(c30100551.distg) - e2:SetOperation(c30100551.desop) - c:RegisterEffect(e2) -end -function c30100551.drcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c30100551.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(3) - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,3) -end -function c30100551.cfilter(c) - return c:IsSetCard(0x38) and c:IsLocation(LOCATION_GRAVE) -end -function c30100551.drop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.DiscardDeck(p,d,REASON_EFFECT) - local g=Duel.GetOperatedGroup() - local ct=g:FilterCount(c30100551.cfilter,nil) - if ct>0 then - Duel.BreakEffect() - Duel.Draw(tp,ct,REASON_EFFECT) - end -end -function c30100551.descon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_BATTLE) or (rp~=tp and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp) -end -function c30100551.desop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.DiscardDeck(p,d,REASON_EFFECT) - local g=Duel.GetOperatedGroup() - local ct=g:FilterCount(c30100551.cfilter,nil) - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - if ct~=0 and dg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(30100551,0)) then - Duel.BreakEffect() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local sdg=dg:Select(tp,1,ct,nil) - Duel.Destroy(sdg,REASON_EFFECT) - end -end +--ライトロード・セイント ミネルバ +function c30100551.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,4,2) + c:EnableReviveLimit() + --discard deck & draw + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DECKDES+CATEGORY_DRAW) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,30100551) + e1:SetCost(c30100551.drcost) + e1:SetTarget(c30100551.distg) + e1:SetOperation(c30100551.drop) + c:RegisterEffect(e1) + --discard deck & destroy + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DECKDES+CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_DESTROYED) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e2:SetCountLimit(1,30100552) + e2:SetCondition(c30100551.descon) + e2:SetTarget(c30100551.distg) + e2:SetOperation(c30100551.desop) + c:RegisterEffect(e2) +end +function c30100551.drcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c30100551.distg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(3) + Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,3) +end +function c30100551.cfilter(c) + return c:IsSetCard(0x38) and c:IsLocation(LOCATION_GRAVE) +end +function c30100551.drop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.DiscardDeck(p,d,REASON_EFFECT) + local g=Duel.GetOperatedGroup() + local ct=g:FilterCount(c30100551.cfilter,nil) + if ct>0 then + Duel.BreakEffect() + Duel.Draw(tp,ct,REASON_EFFECT) + end +end +function c30100551.descon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_BATTLE) or (rp~=tp and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp) +end +function c30100551.desop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.DiscardDeck(p,d,REASON_EFFECT) + local g=Duel.GetOperatedGroup() + local ct=g:FilterCount(c30100551.cfilter,nil) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + if ct~=0 and dg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(30100551,0)) then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local sdg=dg:Select(tp,1,ct,nil) + Duel.Destroy(sdg,REASON_EFFECT) + end +end diff --git a/script/c30106950.lua b/script/c30106950.lua index b5d9c158..c9aded74 100644 --- a/script/c30106950.lua +++ b/script/c30106950.lua @@ -49,12 +49,12 @@ function c30106950.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c30106950.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end function c30106950.sccon(e,tp,eg,ep,ev,re,r,rp) if Duel.GetTurnPlayer()==tp then return false end local ph=Duel.GetCurrentPhase() - return ph==PHASE_MAIN1 or ph==PHASE_BATTLE or ph==PHASE_MAIN2 + return ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2 end function c30106950.mfilter(c) return c:IsSetCard(0x9e) @@ -88,6 +88,6 @@ function c30106950.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) rc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) rc:RegisterEffect(e2) end diff --git a/script/c30170981.lua b/script/c30170981.lua index 46ae2020..065e3dc5 100644 --- a/script/c30170981.lua +++ b/script/c30170981.lua @@ -6,6 +6,10 @@ function c30170981.initial_effect(c) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e2:SetCode(EFFECT_SPSUMMON_COST) + e2:SetCost(c30170981.spcost) c:RegisterEffect(e2) end +function c30170981.spcost(e,c,tp,sumtype) + return sumtype==SUMMON_TYPE_SPECIAL+181 +end diff --git a/script/c3019642.lua b/script/c3019642.lua old mode 100755 new mode 100644 index c12034dd..8637eeb1 --- a/script/c3019642.lua +++ b/script/c3019642.lua @@ -23,7 +23,7 @@ function c3019642.initial_effect(c) c:RegisterEffect(e2) end function c3019642.filter(c) - return c:IsLevelBelow(3) and c:IsRace(RACE_DRAGON) + return c:IsLevelBelow(3) and c:IsRace(RACE_DRAGON) and not c:IsForbidden() end function c3019642.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c3019642.filter(chkc) end diff --git a/script/c30213599.lua b/script/c30213599.lua index f4fd93e5..423e6898 100644 --- a/script/c30213599.lua +++ b/script/c30213599.lua @@ -21,10 +21,10 @@ function c30213599.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(sg,REASON_COST) end function c30213599.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c30213599.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c30230789.lua b/script/c30230789.lua index bb432dde..1d7593ed 100644 --- a/script/c30230789.lua +++ b/script/c30230789.lua @@ -5,15 +5,7 @@ function c30230789.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_MUST_ATTACK) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c30230789.becon) - c:RegisterEffect(e2) - --to defence + --to defense local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(30230789,0)) e3:SetCategory(CATEGORY_POSITION) @@ -32,16 +24,13 @@ function c30230789.initial_effect(c) e4:SetOperation(c30230789.op) c:RegisterEffect(e4) end -function c30230789.becon(e) - return e:GetHandler():IsAttackable() -end function c30230789.poscon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsAttackPos() end function c30230789.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c30230789.filter(c) diff --git a/script/c30270176.lua b/script/c30270176.lua new file mode 100644 index 00000000..34f146fb --- /dev/null +++ b/script/c30270176.lua @@ -0,0 +1,102 @@ +--暗黒方界神クリムゾン・ノヴァ +function c30270176.initial_effect(c) + c:EnableReviveLimit() + --cannot special summon + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_HAND) + e2:SetCondition(c30270176.spcon) + e2:SetOperation(c30270176.spop) + c:RegisterEffect(e2) + --immune + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_IMMUNE_EFFECT) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetValue(c30270176.immval) + c:RegisterEffect(e3) + --Extra Attack + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(30270176,0)) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_BATTLE_DESTROYING) + e4:SetCondition(c30270176.atkcon) + e4:SetTarget(c30270176.atktg) + e4:SetOperation(c30270176.atkop) + c:RegisterEffect(e4) + --Damage + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(30270176,1)) + e5:SetCategory(CATEGORY_DAMAGE) + e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e5:SetCode(EVENT_PHASE+PHASE_END) + e5:SetRange(LOCATION_MZONE) + e5:SetCountLimit(1,30270176) + e5:SetCondition(c30270176.damcon) + e5:SetTarget(c30270176.damtg) + e5:SetOperation(c30270176.damop) + c:RegisterEffect(e5) +end +function c30270176.spcfilter(c) + return c:IsSetCard(0xe3) and not c:IsPublic() +end +function c30270176.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + local hg=Duel.GetMatchingGroup(c30270176.spcfilter,tp,LOCATION_HAND,0,c) + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and hg:GetClassCount(Card.GetCode)>=3 +end +function c30270176.spop(e,tp,eg,ep,ev,re,r,rp,c) + local hg=Duel.GetMatchingGroup(c30270176.spcfilter,tp,LOCATION_HAND,0,c) + local rg=Group.CreateGroup() + for i=1,3 do + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) + local g=hg:Select(tp,1,1,nil) + local tc=g:GetFirst() + rg:AddCard(tc) + hg:Remove(Card.IsCode,nil,tc:GetCode()) + end + Duel.ConfirmCards(1-tp,rg) + Duel.ShuffleHand(tp) +end +function c30270176.immval(e,te) + return te:GetOwner()~=e:GetHandler() and te:IsActiveType(TYPE_MONSTER) and te:IsActivated() + and te:GetOwner():GetBaseAttack()<=3000 and te:GetOwner():GetBaseAttack()>=0 +end +function c30270176.atkcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetAttacker()==e:GetHandler() and aux.bdcon(e,tp,eg,ep,ev,re,r,rp) +end +function c30270176.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsRelateToBattle() and not e:GetHandler():IsHasEffect(EFFECT_EXTRA_ATTACK) end +end +function c30270176.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToBattle() then return end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_EXTRA_ATTACK) + e1:SetValue(1) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) + c:RegisterEffect(e1) +end +function c30270176.damcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c30270176.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,3000) +end +function c30270176.damop(e,tp,eg,ep,ev,re,r,rp) + Duel.Damage(tp,3000,REASON_EFFECT,true) + Duel.Damage(1-tp,3000,REASON_EFFECT,true) + Duel.RDComplete() +end diff --git a/script/c30312361.lua b/script/c30312361.lua index 015a95b1..34360346 100644 --- a/script/c30312361.lua +++ b/script/c30312361.lua @@ -23,7 +23,7 @@ function c30312361.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RegisterFlagEffect(30312361,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) end function c30312361.filter(c) - return c:IsType(TYPE_EFFECT) and not c:IsForbidden() and c:IsAbleToRemove() + return c:IsType(TYPE_EFFECT) and c:IsAbleToRemove() end function c30312361.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c30312361.filter(chkc) end diff --git a/script/c30328508.lua b/script/c30328508.lua old mode 100755 new mode 100644 index 29dc2025..2e28cc86 --- a/script/c30328508.lua +++ b/script/c30328508.lua @@ -1,55 +1,55 @@ ---シャドール・リザード -function c30328508.initial_effect(c) - --flip - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(30328508,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetCountLimit(1,30328508) - e1:SetTarget(c30328508.target) - e1:SetOperation(c30328508.operation) - c:RegisterEffect(e1) - --tograve - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(30328508,1)) - e2:SetCategory(CATEGORY_TOGRAVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCountLimit(1,30328508) - e2:SetCondition(c30328508.tgcon) - e2:SetTarget(c30328508.tgtg) - e2:SetOperation(c30328508.tgop) - c:RegisterEffect(e2) -end -function c30328508.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c30328508.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c30328508.tgcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsReason(REASON_EFFECT) -end -function c30328508.filter(c) - return c:IsSetCard(0x9d) and not c:IsCode(30328508) and c:IsAbleToGrave() -end -function c30328508.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c30328508.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c30328508.tgop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c30328508.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - end -end +--シャドール・リザード +function c30328508.initial_effect(c) + --flip + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(30328508,0)) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e1:SetCountLimit(1,30328508) + e1:SetTarget(c30328508.target) + e1:SetOperation(c30328508.operation) + c:RegisterEffect(e1) + --tograve + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(30328508,1)) + e2:SetCategory(CATEGORY_TOGRAVE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCountLimit(1,30328508) + e2:SetCondition(c30328508.tgcon) + e2:SetTarget(c30328508.tgtg) + e2:SetOperation(c30328508.tgop) + c:RegisterEffect(e2) +end +function c30328508.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c30328508.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c30328508.tgcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsReason(REASON_EFFECT) +end +function c30328508.filter(c) + return c:IsSetCard(0x9d) and not c:IsCode(30328508) and c:IsAbleToGrave() +end +function c30328508.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c30328508.filter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) +end +function c30328508.tgop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c30328508.filter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoGrave(g,REASON_EFFECT) + end +end diff --git a/script/c30341772.lua b/script/c30341772.lua index 038dbebd..a817056a 100644 --- a/script/c30341772.lua +++ b/script/c30341772.lua @@ -11,13 +11,13 @@ function c30341772.initial_effect(c) c:RegisterEffect(e1) end function c30341772.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) + return c:IsFaceup() and c:IsSetCard(0x107f) end function c30341772.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c30341772.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c30341772.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c30341772.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c30341772.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c30353551.lua b/script/c30353551.lua index 2564c8c1..d12a838d 100644 --- a/script/c30353551.lua +++ b/script/c30353551.lua @@ -49,20 +49,24 @@ function c30353551.filter(c,e,tp) return c:IsType(TYPE_NORMAL) and c:IsLevelBelow(2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c30353551.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return c30353551[tp]~=0 end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,c30353551[tp],tp,LOCATION_DECK) + local ct=c30353551[tp] + if chk==0 then return ct>0 and (ct==1 or not Duel.IsPlayerAffectedByEffect(tp,59822133)) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,ct,tp,LOCATION_DECK) end function c30353551.operation(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end + local ct=c30353551[tp] Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c30353551.filter,tp,LOCATION_DECK,0,c30353551[tp],c30353551[tp],nil,e,tp) + local g=Duel.SelectMatchingCard(tp,c30353551.filter,tp,LOCATION_DECK,0,ct,ct,nil,e,tp) if g:GetCount()==0 then return end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end if ft<=0 then Duel.SendtoGrave(g,REASON_EFFECT) elseif ft>=g:GetCount() then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,ft,ft,nil) Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) g:Sub(sg) diff --git a/script/c30398342.lua b/script/c30398342.lua index d5429052..4f588d10 100644 --- a/script/c30398342.lua +++ b/script/c30398342.lua @@ -1,12 +1,20 @@ --竜星の具象化 function c30398342.initial_effect(c) --Activate + local e0=Effect.CreateEffect(c) + e0:SetDescription(aux.Stringid(30398342,1)) + e0:SetType(EFFECT_TYPE_ACTIVATE) + e0:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e0) + --Activate(spsummon) local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(30398342,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetHintTiming(TIMING_DESTROY) - e1:SetCondition(c30398342.spcon1) + e1:SetCode(EVENT_DESTROYED) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e1:SetCondition(c30398342.spcon) + e1:SetCost(c30398342.spcost) e1:SetTarget(c30398342.sptg1) e1:SetOperation(c30398342.spop) c:RegisterEffect(e1) @@ -19,7 +27,7 @@ function c30398342.initial_effect(c) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) e2:SetRange(LOCATION_SZONE) e2:SetCountLimit(1) - e2:SetCondition(c30398342.spcon2) + e2:SetCondition(c30398342.spcon) e2:SetCost(c30398342.spcost) e2:SetTarget(c30398342.sptg2) e2:SetOperation(c30398342.spop) @@ -34,34 +42,11 @@ function c30398342.initial_effect(c) e3:SetTarget(c30398342.sumlimit) c:RegisterEffect(e3) end -function c30398342.spcon1(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetCurrentPhase()~=PHASE_DAMAGE then return true end - local res,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(EVENT_DESTROYED,true) - return res and teg:IsExists(c30398342.cfilter,1,nil,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c30398342.filter,tp,LOCATION_DECK,0,1,nil,e,tp) -end -function c30398342.sptg1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local res,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(EVENT_DESTROYED,true) - if Duel.GetCurrentPhase()==PHASE_DAMAGE - or (res and teg:IsExists(c30398342.cfilter,1,nil,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c30398342.filter,tp,LOCATION_DECK,0,1,nil,e,tp) - and Duel.SelectYesNo(tp,aux.Stringid(30398342,1))) then - e:SetCategory(CATEGORY_SPECIAL_SUMMON) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) - e:GetHandler():RegisterFlagEffect(30398342,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - e:GetHandler():RegisterFlagEffect(0,RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(30398342,2)) - else - e:SetCategory(0) - end -end function c30398342.cfilter(c,tp) return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp end -function c30398342.spcon2(e,tp,eg,ep,ev,re,r,rp) +function c30398342.spcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c30398342.cfilter,1,nil,tp) end function c30398342.spcost(e,tp,eg,ep,ev,re,r,rp,chk) @@ -71,6 +56,12 @@ end function c30398342.filter(c,e,tp) return c:IsSetCard(0x9e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end +function c30398342.sptg1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c30398342.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) +end function c30398342.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -78,7 +69,7 @@ function c30398342.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) end function c30398342.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():GetFlagEffect(30398342)==0 then return end + if not e:GetHandler():IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c30398342.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) diff --git a/script/c30459350.lua b/script/c30459350.lua old mode 100755 new mode 100644 diff --git a/script/c30488793.lua b/script/c30488793.lua index f1d1aba6..46b7c47f 100644 --- a/script/c30488793.lua +++ b/script/c30488793.lua @@ -18,15 +18,23 @@ function c30488793.condition(e,tp,eg,ep,ev,re,r,rp) end function c30488793.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local a1=Duel.GetAttacker():GetAttack() - local a2=Duel.GetAttackTarget():GetAttack() - local dam=a1-a2 - if dam<0 then dam=-dam end + local a=Duel.GetAttacker() + local t=Duel.GetAttackTarget() + local g=Group.FromCards(a,t) + local dam=math.abs(a:GetAttack()-t:GetAttack()) Duel.SetTargetPlayer(1-tp) Duel.SetTargetParam(dam) + Duel.SetTargetCard(g) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,0,0,1-tp,dam) end function c30488793.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()<2 then return end + local c1=g:GetFirst() + local c2=g:GetNext() + if c1:IsFaceup() and c2:IsFaceup() then + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + local dam=math.abs(c1:GetAttack()-c2:GetAttack()) + Duel.Damage(p,dam,REASON_EFFECT) + end end diff --git a/script/c30492798.lua b/script/c30492798.lua old mode 100755 new mode 100644 diff --git a/script/c30494314.lua b/script/c30494314.lua old mode 100755 new mode 100644 diff --git a/script/c30500113.lua b/script/c30500113.lua index dcadb3a6..1da31d0c 100644 --- a/script/c30500113.lua +++ b/script/c30500113.lua @@ -1,76 +1,75 @@ ---RR－リターン -function c30500113.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetCondition(c30500113.condition) - e1:SetTarget(c30500113.target) - e1:SetOperation(c30500113.activate) - c:RegisterEffect(e1) - --search - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_DESTROYED) - e2:SetRange(LOCATION_GRAVE) - e2:SetProperty(EFFECT_FLAG_DELAY) - e2:SetCountLimit(1,30500113) - e2:SetCondition(c30500113.thcon) - e2:SetCost(c30500113.thcost) - e2:SetTarget(c30500113.thtg) - e2:SetOperation(c30500113.thop) - c:RegisterEffect(e2) -end -function c30500113.cfilter1(c,tp) - return c:IsSetCard(0xba) and c:GetPreviousControler()==tp -end -function c30500113.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c30500113.cfilter1,1,nil,tp) -end -function c30500113.filter(c) - return c:IsSetCard(0xba) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c30500113.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c30500113.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c30500113.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c30500113.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c30500113.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end -function c30500113.cfilter2(c,tp) - return c:IsSetCard(0xba) and c:IsReason(REASON_EFFECT) and c:IsPreviousLocation(LOCATION_MZONE) - and c:GetPreviousControler()==tp and c:IsPreviousPosition(POS_FACEUP) -end -function c30500113.thcon(e,tp,eg,ep,ev,re,r,rp) - if eg:IsContains(e:GetHandler()) then return false end - return eg:IsExists(c30500113.cfilter2,1,nil,tp) -end -function c30500113.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c30500113.thfilter(c) - return c:IsSetCard(0xba) and c:IsAbleToHand() -end -function c30500113.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c30500113.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c30500113.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c30500113.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end +--RR－リターン +function c30500113.initial_effect(c) + --activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_BATTLE_DESTROYED) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e1:SetCondition(c30500113.condition) + e1:SetTarget(c30500113.target) + e1:SetOperation(c30500113.activate) + c:RegisterEffect(e1) + --search + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_DESTROYED) + e2:SetRange(LOCATION_GRAVE) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCountLimit(1,30500113) + e2:SetCondition(c30500113.thcon) + e2:SetCost(c30500113.thcost) + e2:SetTarget(c30500113.thtg) + e2:SetOperation(c30500113.thop) + c:RegisterEffect(e2) +end +function c30500113.cfilter1(c,tp) + return c:IsSetCard(0xba) and c:GetPreviousControler()==tp +end +function c30500113.condition(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c30500113.cfilter1,1,nil,tp) +end +function c30500113.filter(c) + return c:IsSetCard(0xba) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c30500113.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c30500113.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c30500113.filter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c30500113.filter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c30500113.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c30500113.cfilter2(c,tp) + return c:IsSetCard(0xba) and c:IsReason(REASON_EFFECT) and c:IsPreviousLocation(LOCATION_MZONE) + and c:GetPreviousControler()==tp and c:IsPreviousPosition(POS_FACEUP) +end +function c30500113.thcon(e,tp,eg,ep,ev,re,r,rp) + if eg:IsContains(e:GetHandler()) then return false end + return eg:IsExists(c30500113.cfilter2,1,nil,tp) +end +function c30500113.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c30500113.thfilter(c) + return c:IsSetCard(0xba) and c:IsAbleToHand() +end +function c30500113.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c30500113.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c30500113.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c30500113.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c30531525.lua b/script/c30531525.lua index 5af21aa1..f64ec3e2 100644 --- a/script/c30531525.lua +++ b/script/c30531525.lua @@ -19,12 +19,14 @@ function c30531525.filter(c,e,tp) end function c30531525.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>3 and Duel.IsExistingMatchingCard(c30531525.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end end function c30531525.activate(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmDecktop(tp,4) local g=Duel.GetDecktopGroup(tp,4):Filter(c30531525.filter,nil,e,tp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end if g:GetCount()>0 then if ft<=0 then Duel.SendtoGrave(g,REASON_EFFECT) diff --git a/script/c30562585.lua b/script/c30562585.lua index f2dd614f..25813df7 100644 --- a/script/c30562585.lua +++ b/script/c30562585.lua @@ -40,7 +40,7 @@ function c30562585.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,dg:GetCount(),0,0) end function c30562585.dfilter(c,atk) - return c:IsFaceup() and c:IsDestructable() and c:GetAttack()=PHASE_BATTLE_START and ph<=PHASE_BATTLE) end function c3056267.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c30585393.lua b/script/c30585393.lua index 37d96e67..821f27bd 100644 --- a/script/c30585393.lua +++ b/script/c30585393.lua @@ -1,6 +1,5 @@ --リボーン・パズル function c30585393.initial_effect(c) - Duel.EnableGlobalFlag(GLOBALFLAG_DELAYED_QUICKEFFECT) --Activate local e1=Effect.CreateEffect(c) e1:SetCategory(CATEGORY_SPECIAL_SUMMON) diff --git a/script/c30587695.lua b/script/c30587695.lua index 38d7e883..2699b33c 100644 --- a/script/c30587695.lua +++ b/script/c30587695.lua @@ -36,6 +36,6 @@ end function c30587695.spop(e,tp,eg,ep,ev,re,r,rp,chk) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c30600344.lua b/script/c30600344.lua index 83890c5b..0bbba8d4 100644 --- a/script/c30600344.lua +++ b/script/c30600344.lua @@ -17,7 +17,7 @@ function c30600344.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c30600344.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c30600344.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c30600344.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c30600344.filter,tp,0,LOCATION_ONFIELD,1,nil) end diff --git a/script/c3064425.lua b/script/c3064425.lua index c95f3ffd..4c196387 100644 --- a/script/c3064425.lua +++ b/script/c3064425.lua @@ -14,7 +14,7 @@ function c3064425.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(3064425,1)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY+CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetRange(LOCATION_GRAVE) @@ -52,7 +52,7 @@ function c3064425.eqop(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(1000) e2:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e2) @@ -61,7 +61,7 @@ function c3064425.eqlimit(e,c) return c:IsSetCard(0x9a) end function c3064425.cfilter(c) - return c:IsPosition(POS_FACEUP_DEFENCE) and c:IsSetCard(0x9a) + return c:IsPosition(POS_FACEUP_DEFENSE) and c:IsSetCard(0x9a) end function c3064425.negcon(e,tp,eg,ep,ev,re,r,rp) local ph=Duel.GetCurrentPhase() @@ -75,7 +75,7 @@ end function c3064425.negtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,1000) end @@ -83,9 +83,10 @@ function c3064425.negop(e,tp,eg,ep,ev,re,r,rp) Duel.NegateActivation(ev) if re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)~=0 then Duel.BreakEffect() - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if Duel.Destroy(g,REASON_EFFECT)==0 then return end - Duel.Damage(tp,1000,REASON_EFFECT) - Duel.Damage(1-tp,1000,REASON_EFFECT) + Duel.Damage(tp,1000,REASON_EFFECT,true) + Duel.Damage(1-tp,1000,REASON_EFFECT,true) + Duel.RDComplete() end end diff --git a/script/c30646525.lua b/script/c30646525.lua index 674ff279..c6f50092 100644 --- a/script/c30646525.lua +++ b/script/c30646525.lua @@ -16,7 +16,7 @@ function c30646525.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_RITUAL end function c30646525.filter(c,atk) - return c:IsFaceup() and c:GetDefence()<=atk and c:IsDestructable() + return c:IsFaceup() and c:GetDefense()<=atk end function c30646525.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c30683373.lua b/script/c30683373.lua index 9ff3195a..b88ed65f 100644 --- a/script/c30683373.lua +++ b/script/c30683373.lua @@ -11,7 +11,7 @@ function c30683373.initial_effect(c) c:RegisterEffect(e1) end function c30683373.filter(c) - return not c:IsAttackPos() and c:IsDestructable() + return not c:IsAttackPos() end function c30683373.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:GetLocation()==LOCATION_MZONE and c30683373.filter(chkc) end diff --git a/script/c3070049.lua b/script/c3070049.lua index 8bc79469..0db44aca 100644 --- a/script/c3070049.lua +++ b/script/c3070049.lua @@ -16,7 +16,7 @@ function c3070049.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) local tc=g:GetFirst() while tc do - tc:AddCounter(0x15,1,REASON_EFFECT) + tc:AddCounter(0x1015,1,REASON_EFFECT) tc=g:GetNext() end end diff --git a/script/c3072077.lua b/script/c3072077.lua index cc9a36e5..b6c0c7a4 100644 --- a/script/c3072077.lua +++ b/script/c3072077.lua @@ -7,6 +7,7 @@ function c3072077.initial_effect(c) e1:SetCategory(CATEGORY_TOHAND) e1:SetCode(EVENT_PHASE+PHASE_STANDBY) e1:SetRange(LOCATION_GRAVE) + e1:SetCountLimit(1) e1:SetCondition(c3072077.condition) e1:SetCost(c3072077.cost) e1:SetTarget(c3072077.target) diff --git a/script/c3072808.lua b/script/c3072808.lua index ffc14e29..f9a615e0 100644 --- a/script/c3072808.lua +++ b/script/c3072808.lua @@ -22,7 +22,8 @@ function c3072808.filter(c,e,tp) end function c3072808.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c3072808.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingTarget(c3072808.filter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) @@ -31,6 +32,7 @@ function c3072808.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) end function c3072808.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local tc=Duel.GetFirstTarget() local c=e:GetHandler() if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end diff --git a/script/c30757127.lua b/script/c30757127.lua new file mode 100644 index 00000000..7930e86e --- /dev/null +++ b/script/c30757127.lua @@ -0,0 +1,67 @@ +--D-HERO デッドリーガイ +function c30757127.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0xc008),c30757127.ffilter,true) + --atk + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(30757127,0)) + e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e1:SetCountLimit(1,30757127) + e1:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+TIMING_END_PHASE) + e1:SetCondition(c30757127.atkcon) + e1:SetCost(c30757127.atkcost) + e1:SetTarget(c30757127.atktg) + e1:SetOperation(c30757127.atkop) + c:RegisterEffect(e1) +end +function c30757127.ffilter(c) + return c:IsAttribute(ATTRIBUTE_DARK) and c:IsType(TYPE_EFFECT) +end +function c30757127.atkcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() +end +function c30757127.cfilter(c,tp) + return c:IsDiscardable() and Duel.IsExistingMatchingCard(c30757127.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,c) +end +function c30757127.tgfilter(c) + return c:IsSetCard(0xc008) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() +end +function c30757127.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c30757127.cfilter,tp,LOCATION_HAND,0,1,nil,tp) end + Duel.DiscardHand(tp,c30757127.cfilter,1,1,REASON_COST+REASON_DISCARD,nil,tp) +end +function c30757127.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_DECK) +end +function c30757127.atkfilter(c) + return c:IsSetCard(0xc008) and c:IsFaceup() +end +function c30757127.ctfilter(c) + return c:IsSetCard(0xc008) and c:IsType(TYPE_MONSTER) +end +function c30757127.atkop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c30757127.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)~=0 and g:GetFirst():IsLocation(LOCATION_GRAVE) then + local tg=Duel.GetMatchingGroup(c30757127.atkfilter,tp,LOCATION_MZONE,0,nil) + if tg:GetCount()<=0 then return end + local ct=Duel.GetMatchingGroupCount(c30757127.ctfilter,tp,LOCATION_GRAVE,0,nil) + local tc=tg:GetFirst() + while tc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(ct*200) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + tc=tg:GetNext() + end + end +end diff --git a/script/c3078576.lua b/script/c3078576.lua index 25290a6a..d29e6ab2 100644 --- a/script/c3078576.lua +++ b/script/c3078576.lua @@ -1,5 +1,7 @@ --八汰烏 function c3078576.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,17 +9,6 @@ function c3078576.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(3078576,0)) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c3078576.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --skip draw local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(3078576,1)) @@ -39,39 +30,3 @@ function c3078576.skipop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN) Duel.RegisterEffect(e1,tp) end -function c3078576.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(3078576,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c3078576.retcon) - e1:SetTarget(c3078576.rettg) - e1:SetOperation(c3078576.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c3078576.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c3078576.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c3078576.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c30786387.lua b/script/c30786387.lua new file mode 100644 index 00000000..30cc7240 --- /dev/null +++ b/script/c30786387.lua @@ -0,0 +1,73 @@ +--花積み +function c30786387.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(30786387,0)) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c30786387.target) + e1:SetOperation(c30786387.activate) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(30786387,2)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,30786387) + e2:SetCondition(aux.exccon) + e2:SetCost(c30786387.thcost) + e2:SetTarget(c30786387.thtg) + e2:SetOperation(c30786387.thop) + c:RegisterEffect(e2) +end +function c30786387.filter(c) + return c:IsSetCard(0xe6) and c:IsType(TYPE_MONSTER) +end +function c30786387.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local g=Duel.GetMatchingGroup(c30786387.filter,tp,LOCATION_DECK,0,nil) + return g:GetClassCount(Card.GetCode)>=3 + end +end +function c30786387.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c30786387.filter,tp,LOCATION_DECK,0,nil) + if g:GetClassCount(Card.GetCode)>=3 then + local rg=Group.CreateGroup() + for i=1,3 do + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(30786387,1)) + local sg=g:Select(tp,1,1,nil) + local tc=sg:GetFirst() + rg:AddCard(tc) + g:Remove(Card.IsCode,nil,tc:GetCode()) + end + Duel.ConfirmCards(1-tp,rg) + local tg=rg:GetFirst() + while tg do + Duel.MoveSequence(tg,0) + tg=rg:GetNext() + end + Duel.SortDecktop(tp,tp,3) + end +end +function c30786387.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c30786387.thfilter(c) + return c:IsSetCard(0xe6) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c30786387.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c30786387.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c30786387.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local sg=Duel.SelectTarget(tp,c30786387.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,1,0,0) +end +function c30786387.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c30811116.lua b/script/c30811116.lua index 83a432de..a9699249 100644 --- a/script/c30811116.lua +++ b/script/c30811116.lua @@ -76,7 +76,7 @@ function c30811116.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c30811116.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c30811116.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c30811116.filter(chkc) end diff --git a/script/c30834988.lua b/script/c30834988.lua old mode 100755 new mode 100644 index 47d07a53..f11105ec --- a/script/c30834988.lua +++ b/script/c30834988.lua @@ -15,15 +15,6 @@ function c30834988.initial_effect(c) e2:SetTarget(c30834988.target) e2:SetOperation(c30834988.operation) c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CANNOT_EP) - e3:SetRange(LOCATION_SZONE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetTargetRange(1,1) - e3:SetCondition(c30834988.epcon) - c:RegisterEffect(e3) end function c30834988.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsRelateToEffect(e) end @@ -55,9 +46,3 @@ function c30834988.operation(e,tp,eg,ep,ev,re,r,rp) end end end -function c30834988.epfilter(c) - return c:IsHasEffect(EFFECT_MUST_ATTACK) and c:IsAttackable() -end -function c30834988.epcon(e) - return Duel.IsExistingMatchingCard(c30834988.epfilter,Duel.GetTurnPlayer(),LOCATION_MZONE,0,1,nil) -end diff --git a/script/c30936186.lua b/script/c30936186.lua index a9fbabb9..47bbbc81 100644 --- a/script/c30936186.lua +++ b/script/c30936186.lua @@ -32,6 +32,8 @@ function c30936186.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_BEASTWARRIOR) and not c:IsPublic() end function c30936186.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c30936186.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c30936186.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -41,8 +43,10 @@ function c30936186.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(30936186,0),aux.Stringid(30936186,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(30936186,1),aux.Stringid(30936186,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(30936186,1),aux.Stringid(30936186,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(30936186,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -54,7 +58,7 @@ function c30936186.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c30936186.cfilter(c) diff --git a/script/c30979619.lua b/script/c30979619.lua new file mode 100644 index 00000000..b11cfa28 --- /dev/null +++ b/script/c30979619.lua @@ -0,0 +1,50 @@ +--SPYRAL GEAR - Big Red +function c30979619.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,30979619+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c30979619.target) + e1:SetOperation(c30979619.operation) + c:RegisterEffect(e1) + --indes + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_EQUIP) + e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e2:SetValue(1) + c:RegisterEffect(e2) +end +function c30979619.filter(c,e,tp) + return c:IsSetCard(0xee) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c30979619.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c30979619.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c30979619.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c30979619.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) +end +function c30979619.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then + if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)==0 then return end + Duel.Equip(tp,c,tc) + --Add Equip limit + local e1=Effect.CreateEffect(tc) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_EQUIP_LIMIT) + e1:SetValue(c30979619.eqlimit) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1) + end +end +function c30979619.eqlimit(e,c) + return e:GetOwner()==c +end diff --git a/script/c31000575.lua b/script/c31000575.lua index 01ad0208..e062c639 100644 --- a/script/c31000575.lua +++ b/script/c31000575.lua @@ -20,9 +20,12 @@ function c31000575.operation(e,tp,eg,ep,ev,re,r,rp) if tc:IsSummonableCard() and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then Duel.DisableShuffleCheck() Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - else + elseif tc:IsAbleToHand() then Duel.DisableShuffleCheck() Duel.SendtoHand(tc,nil,REASON_EFFECT) Duel.ShuffleHand(1-tp) + else + Duel.DisableShuffleCheck() + Duel.SendtoGrave(tc,REASON_RULE) end end diff --git a/script/c31044787.lua b/script/c31044787.lua index 5ac3c1ea..c3fc473c 100644 --- a/script/c31044787.lua +++ b/script/c31044787.lua @@ -26,13 +26,8 @@ function c31044787.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c31044787.filter,tp,0,LOCATION_MZONE,nil) local atk=g:GetSum(Card.GetAttack) local lp=Duel.GetLP(tp) - local sg=Group.CreateGroup() - while atk>lp and g:GetCount()>0 do - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TODECK) - local tc=g:Select(1-tp,1,1,nil):GetFirst() - sg:AddCard(tc) - g:RemoveCard(tc) - atk=atk-tc:GetAttack() - end + local diff=atk-lp + if diff<=0 then return end + local sg=g:SelectWithSumGreater(1-tp,Card.GetAttack,diff) Duel.SendtoDeck(sg,nil,2,REASON_RULE) end diff --git a/script/c31053337.lua b/script/c31053337.lua index 59c061a0..f2a6046c 100644 --- a/script/c31053337.lua +++ b/script/c31053337.lua @@ -20,10 +20,12 @@ function c31053337.initial_effect(c) c:RegisterEffect(e2) --indes local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_DAMAGE_CALCULATING) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) e3:SetRange(LOCATION_MZONE) - e3:SetOperation(c31053337.indes) + e3:SetTargetRange(0,LOCATION_MZONE) + e3:SetTarget(c31053337.indestg) + e3:SetValue(1) c:RegisterEffect(e3) --to hand2 local e4=Effect.CreateEffect(c) @@ -59,17 +61,8 @@ function c31053337.operation(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1) end end -function c31053337.indes(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - if bc then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(1) - bc:RegisterEffect(e1) - end +function c31053337.indestg(e,c) + return c==e:GetHandler():GetBattleTarget() end function c31053337.operation2(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c3105404.lua b/script/c3105404.lua index f8fac4a2..88d8e71c 100644 --- a/script/c3105404.lua +++ b/script/c3105404.lua @@ -1,6 +1,5 @@ --ブリリアント・スパーク function c3105404.initial_effect(c) - Duel.EnableGlobalFlag(GLOBALFLAG_DELAYED_QUICKEFFECT) --activate local e1=Effect.CreateEffect(c) e1:SetCategory(CATEGORY_DAMAGE) diff --git a/script/c31076103.lua b/script/c31076103.lua index e9dc5b9d..59fc6213 100644 --- a/script/c31076103.lua +++ b/script/c31076103.lua @@ -72,8 +72,7 @@ function c31076103.cfilter2(c,code) return c:IsFaceup() and c:IsCode(code) and c:IsAbleToGraveAsCost() end function c31076103.cfilter3(c) - local code=c:GetCode() - return c:IsFaceup() and (code==31076103 or code==4081094 or code==78697395) and c:IsAbleToGraveAsCost() + return c:IsFaceup() and c:IsCode(31076103,4081094,78697395) and c:IsAbleToGraveAsCost() end function c31076103.spcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() @@ -98,12 +97,10 @@ function c31076103.spop(e,tp,eg,ep,ev,re,r,rp) end end function c31076103.cfilter4(c) - local code=c:GetCode() - return code==31076103 or code==4081094 or code==78697395 + return c:IsCode(31076103,4081094,78697395) end function c31076103.cfilter5(c) - local code=c:GetCode() - return c:IsFaceup() and (code==31076103 or code==4081094 or code==78697395) + return c:IsFaceup() and c:IsCode(31076103,4081094,78697395) end function c31076103.tgcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c31076103.cfilter4,1,nil) diff --git a/script/c31077447.lua b/script/c31077447.lua index ed418dc4..f1b3b58f 100644 --- a/script/c31077447.lua +++ b/script/c31077447.lua @@ -27,7 +27,7 @@ function c31077447.activate(e,tp,eg,ep,ev,re,r,rp) local sc=g:GetFirst() if sc and Duel.SendtoGrave(sc,REASON_EFFECT)~=0 and sc:IsLocation(LOCATION_GRAVE) then Duel.BreakEffect() - local val=math.max(0,sc:GetAttack(),sc:GetDefence()) + local val=math.max(0,sc:GetAttack(),sc:GetDefense()) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UPDATE_ATTACK) diff --git a/script/c31111109.lua b/script/c31111109.lua index d54dadee..672d3a5e 100644 --- a/script/c31111109.lua +++ b/script/c31111109.lua @@ -30,11 +30,11 @@ end function c31111109.fuscon(e,g,gc,chkf) if g==nil then return false end if gc then return false end - local g1=g:Filter(Card.IsSetCard,nil,0x9) + local g1=g:Filter(Card.IsFusionSetCard,nil,0x9) local c1=g1:GetCount() - local g2=g:Filter(Card.IsSetCard,nil,0x1f) + local g2=g:Filter(Card.IsFusionSetCard,nil,0x1f) local c2=g2:GetCount() - local g3=g:Filter(Card.IsSetCard,nil,0x8) + local g3=g:Filter(Card.IsFusionSetCard,nil,0x8) local c3=g3:GetCount() local ag=g1:Clone() ag:Merge(g2) @@ -44,9 +44,9 @@ function c31111109.fuscon(e,g,gc,chkf) end function c31111109.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) if gc then return end - local g1=eg:Filter(Card.IsSetCard,nil,0x9) - local g2=eg:Filter(Card.IsSetCard,nil,0x1f) - local g3=eg:Filter(Card.IsSetCard,nil,0x8) + local g1=eg:Filter(Card.IsFusionSetCard,nil,0x9) + local g2=eg:Filter(Card.IsFusionSetCard,nil,0x1f) + local g3=eg:Filter(Card.IsFusionSetCard,nil,0x8) local ag=g1:Clone() ag:Merge(g2) ag:Merge(g3) @@ -81,7 +81,7 @@ function c31111109.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) end function c31111109.filter(c) return (c:IsSetCard(0x9) or c:IsSetCard(0x1f) or c:IsSetCard(0x8)) and c:IsType(TYPE_MONSTER) - and not c:IsHasEffect(EFFECT_FORBIDDEN) and c:IsAbleToRemove() + and not c:IsForbidden() and c:IsAbleToRemove() end function c31111109.copytg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c31111109.filter(chkc) end diff --git a/script/c31118030.lua b/script/c31118030.lua index 9770c9af..9cca20db 100644 --- a/script/c31118030.lua +++ b/script/c31118030.lua @@ -11,7 +11,6 @@ function c31118030.initial_effect(c) end function c31118030.thfilter(c) return bit.band(c:GetType(),0x82)==0x82 and c:IsAbleToHand() - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c31118030.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c31118030.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end @@ -20,7 +19,7 @@ end function c31118030.thop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c31118030.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end diff --git a/script/c3117804.lua b/script/c3117804.lua index fc1735b9..d69dd613 100644 --- a/script/c3117804.lua +++ b/script/c3117804.lua @@ -15,7 +15,7 @@ function c3117804.initial_effect(c) -- local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_DEFENCE_ATTACK) + e3:SetCode(EFFECT_DEFENSE_ATTACK) e3:SetRange(LOCATION_MZONE) e3:SetTargetRange(LOCATION_MZONE,0) e3:SetTarget(c3117804.atktg) @@ -25,7 +25,7 @@ end function c3117804.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end function c3117804.atktg(e,c) diff --git a/script/c31181711.lua b/script/c31181711.lua index 05dbef85..13271156 100644 --- a/script/c31181711.lua +++ b/script/c31181711.lua @@ -39,7 +39,7 @@ function c31181711.eqop(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(1200) e2:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e2) @@ -69,7 +69,7 @@ function c31181711.btop(e,tp,eg,ep,ev,re,r,rp) if Duel.NegateAttack() and ec:IsFaceup() then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_DEFENCE_FINAL) + e1:SetCode(EFFECT_SET_DEFENSE_FINAL) e1:SetValue(0) e1:SetReset(RESET_EVENT+0x1fe0000) ec:RegisterEffect(e1) diff --git a/script/c31222701.lua b/script/c31222701.lua index 4c001dd7..a11f5092 100644 --- a/script/c31222701.lua +++ b/script/c31222701.lua @@ -10,7 +10,7 @@ function c31222701.initial_effect(c) c:RegisterEffect(e1) end function c31222701.filter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() + return (c:GetSequence()==6 or c:GetSequence()==7) end function c31222701.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c31222701.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil) end diff --git a/script/c31245780.lua b/script/c31245780.lua index bbf38721..65c3dad1 100644 --- a/script/c31245780.lua +++ b/script/c31245780.lua @@ -39,19 +39,8 @@ function c31245780.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterFlagEffect(31245780,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) tc=sg:GetNext() end - local be=Effect.CreateEffect(c) - be:SetType(EFFECT_TYPE_FIELD) - be:SetCode(EFFECT_CANNOT_EP) - be:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - be:SetTargetRange(0,1) - be:SetCondition(c31245780.becon) - be:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(be,tp) end end function c31245780.befilter(c) return c:GetFlagEffect(31245780)~=0 and c:IsAttackable() end -function c31245780.becon(e) - return Duel.IsExistingMatchingCard(c31245780.befilter,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil) -end diff --git a/script/c31292357.lua b/script/c31292357.lua old mode 100755 new mode 100644 index 9383db7d..46e5a526 --- a/script/c31292357.lua +++ b/script/c31292357.lua @@ -1,7 +1,7 @@ --Emハットトリッカー function c31292357.initial_effect(c) - c:EnableCounterPermit(0x3036) - c:SetCounterLimit(0x3036,3) + c:EnableCounterPermit(0x36) + c:SetCounterLimit(0x36,3) --special summon rule local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) @@ -23,7 +23,8 @@ function c31292357.initial_effect(c) --atk local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(31292357) + e3:SetCode(EVENT_ADD_COUNTER+0x36) + e3:SetCondition(c31292357.atkcon) e3:SetOperation(c31292357.atkop) c:RegisterEffect(e3) end @@ -34,14 +35,11 @@ function c31292357.spcon(e,c) and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE)>=2 end function c31292357.cttg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanAddCounter(0x3036,1) end + if chk==0 then return e:GetHandler():IsCanAddCounter(0x36,1) end end function c31292357.ctop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:AddCounter(0x3036,1)~=0 then - if c:GetCounter(0x3036)==3 then - Duel.RaiseSingleEvent(c,31292357,e,0,0,tp,0) - end + if c:IsRelateToEffect(e) and c:AddCounter(0x36,1) then local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) @@ -61,6 +59,9 @@ function c31292357.damval(e,re,val,r,rp,rc) if cid~=e:GetLabel() then return val end return 0 end +function c31292357.atkcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetCounter(0x36)==3 +end function c31292357.atkop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local e1=Effect.CreateEffect(c) @@ -70,6 +71,6 @@ function c31292357.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) c:RegisterEffect(e2) end diff --git a/script/c3129635.lua b/script/c3129635.lua old mode 100755 new mode 100644 index 1320376a..f14fea8e --- a/script/c3129635.lua +++ b/script/c3129635.lua @@ -20,9 +20,9 @@ function c3129635.activate(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,3129635,0,0x21,1800,1000,4,RACE_ROCK,ATTRIBUTE_DARK) then return end - c:AddTrapMonsterAttribute(TYPE_EFFECT,ATTRIBUTE_DARK,RACE_ROCK,4,1800,1000) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - c:TrapMonsterBlock() + c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(3129635,0)) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) @@ -32,7 +32,8 @@ function c3129635.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetTarget(c3129635.destg) e1:SetOperation(c3129635.desop) e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) + c:RegisterEffect(e1,true) + Duel.SpecialSummonComplete() end function c3129635.destg(e,tp,eg,ep,ev,re,r,rp,chk) local a=Duel.GetAttacker() diff --git a/script/c31305911.lua b/script/c31305911.lua index a60e78e1..12819c61 100644 --- a/script/c31305911.lua +++ b/script/c31305911.lua @@ -18,8 +18,9 @@ function c31305911.initial_effect(c) c:RegisterEffect(e2) end function c31305911.condition(e,tp,eg,ep,ev,re,r,rp) - local pos=e:GetHandler():GetBattlePosition() - return e:GetHandler()==Duel.GetAttackTarget() and (pos==POS_FACEDOWN_DEFENCE or pos==POS_FACEDOWN_ATTACK) + local c=e:GetHandler() + local pos=c:GetBattlePosition() + return c==Duel.GetAttackTarget() and (pos==POS_FACEDOWN_DEFENSE or pos==POS_FACEDOWN_ATTACK) and c:IsLocation(LOCATION_MZONE) end function c31305911.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c3136426.lua b/script/c3136426.lua index 415edc62..0f055407 100644 --- a/script/c3136426.lua +++ b/script/c3136426.lua @@ -12,7 +12,7 @@ function c3136426.initial_effect(c) e2:SetRange(LOCATION_SZONE) e2:SetTarget(c3136426.target) e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetValue(POS_FACEUP_DEFENCE) + e2:SetValue(POS_FACEUP_DEFENSE) c:RegisterEffect(e2) end function c3136426.target(e,c) diff --git a/script/c31383545.lua b/script/c31383545.lua index 51c6cd70..d1d5c13d 100644 --- a/script/c31383545.lua +++ b/script/c31383545.lua @@ -24,7 +24,7 @@ function c31383545.regop(e,tp,eg,ep,ev,re,r,rp) end end function c31383545.filter(c) - return c:IsSetCard(0x100d) and c:IsAbleToHand() + return c:IsSetCard(0x100d) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c31383545.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c31383545.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c31386180.lua b/script/c31386180.lua index cfdcfe47..8a33d991 100644 --- a/script/c31386180.lua +++ b/script/c31386180.lua @@ -43,10 +43,10 @@ function c31386180.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetBattledGroupCount()>0 end function c31386180.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetControler()~=tp and chkc:IsOnField() and chkc:IsDestructable() end + if chkc then return chkc:GetControler()~=tp and chkc:IsOnField() end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c31386180.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c31440542.lua b/script/c31440542.lua index 1628186e..dcf7b448 100644 --- a/script/c31440542.lua +++ b/script/c31440542.lua @@ -22,9 +22,7 @@ function c31440542.ctltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c31440542.ctlop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c31456110.lua b/script/c31456110.lua index 102f7d37..1e5593a6 100644 --- a/script/c31456110.lua +++ b/script/c31456110.lua @@ -13,7 +13,7 @@ function c31456110.initial_effect(c) c:RegisterEffect(e1) end function c31456110.filter(c) - return c:IsFaceup() and c:IsAttribute(0x5f) and c:IsLevelAbove(5) and c:IsDestructable() + return c:IsFaceup() and c:IsAttribute(0x5f) and c:IsLevelAbove(5) end function c31456110.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c31456110.filter(chkc) end diff --git a/script/c31472884.lua b/script/c31472884.lua new file mode 100644 index 00000000..cf315a8e --- /dev/null +++ b/script/c31472884.lua @@ -0,0 +1,85 @@ +--共闘 +function c31472884.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(TIMING_DAMAGE_STEP) + e1:SetCondition(c31472884.condition) + e1:SetCost(c31472884.cost) + e1:SetTarget(c31472884.target) + e1:SetOperation(c31472884.activate) + c:RegisterEffect(e1) + if not c31472884.global_check then + c31472884.global_check=true + local ge1=Effect.CreateEffect(c) + ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge1:SetCode(EVENT_ATTACK_ANNOUNCE) + ge1:SetOperation(c31472884.check) + Duel.RegisterEffect(ge1,0) + end +end +function c31472884.check(e,tp,eg,ep,ev,re,r,rp) + local tc=eg:GetFirst() + if Duel.GetAttackTarget()==nil then + Duel.RegisterFlagEffect(tc:GetControler(),31472884,RESET_PHASE+PHASE_END,0,1) + end +end +function c31472884.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() +end +function c31472884.cfilter(c) + return c:IsType(TYPE_MONSTER) and c:IsDiscardable() and c:GetAttack()>=0 and c:GetDefense()>=0 + and Duel.IsExistingTarget(c31472884.tgfilter,0,LOCATION_MZONE,LOCATION_MZONE,1,nil,c) +end +function c31472884.tgfilter(c,dc) + return c:IsFaceup() and (c:GetAttack()~=dc:GetAttack() or c:GetDefense()~=dc:GetDefense()) +end +function c31472884.cost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(1) + return true +end +function c31472884.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() and c31472884.tgfilter(chkc,e:GetLabelObject()) end + if chk==0 then + if e:GetLabel()~=1 then return false end + e:SetLabel(0) + return Duel.GetFlagEffect(tp,31472884)==0 + and Duel.IsExistingMatchingCard(c31472884.cfilter,tp,LOCATION_HAND,0,1,nil) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) + local g=Duel.SelectMatchingCard(tp,c31472884.cfilter,tp,LOCATION_HAND,0,1,1,nil) + Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c31472884.tgfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,g:GetFirst()) + e:SetLabelObject(g:GetFirst()) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) + e1:SetProperty(EFFECT_FLAG_OATH+EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetTargetRange(LOCATION_MZONE,0) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c31472884.activate(e,tp,eg,ep,ev,re,r,rp) + local cc=e:GetLabelObject() + local atk=cc:GetAttack() + local def=cc:GetDefense() + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(atk) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) + e2:SetValue(def) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + end +end diff --git a/script/c31476755.lua b/script/c31476755.lua old mode 100755 new mode 100644 diff --git a/script/c31516413.lua b/script/c31516413.lua index 18221f58..3f466797 100644 --- a/script/c31516413.lua +++ b/script/c31516413.lua @@ -1,95 +1,87 @@ ---聖刻龍－ネフテドラゴン -function c31516413.initial_effect(c) - --spsummon from hand - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_HAND) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetCondition(c31516413.hspcon) - e1:SetOperation(c31516413.hspop) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(31516413,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCost(c31516413.descost) - e2:SetTarget(c31516413.destg) - e2:SetOperation(c31516413.desop) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(31516413,1)) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetCode(EVENT_RELEASE) - e3:SetTarget(c31516413.sptg) - e3:SetOperation(c31516413.spop) - c:RegisterEffect(e3) -end -function c31516413.hspcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(c:GetControler(),Card.IsSetCard,1,nil,0x69) -end -function c31516413.hspop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectReleaseGroup(c:GetControler(),Card.IsSetCard,1,1,nil,0x69) - Duel.Release(g,REASON_COST) - c:RegisterFlagEffect(0,RESET_EVENT+0x4fc0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(31516413,2)) -end -function c31516413.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroupEx(tp,Card.IsSetCard,1,e:GetHandler(),0x69) end - local g=Duel.SelectReleaseGroupEx(tp,Card.IsSetCard,1,1,e:GetHandler(),0x69) - Duel.Release(g,REASON_COST) -end -function c31516413.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c31516413.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c31516413.spfilter(c,e,tp) - return c:IsType(TYPE_NORMAL) and c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c31516413.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13) -end -function c31516413.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c31516413.spfilter,tp,0x13,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc and Duel.SpecialSummonStep(g:GetFirst(),0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) - tc:RegisterEffect(e2) - Duel.SpecialSummonComplete() - elseif Duel.IsPlayerCanSpecialSummon(tp) then - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_DECK,0) - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ConfirmCards(tp,cg2) - Duel.ShuffleHand(tp) - Duel.ShuffleDeck(tp) - end -end +--聖刻龍－ネフテドラゴン +function c31516413.initial_effect(c) + --spsummon from hand + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_HAND) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetCondition(c31516413.hspcon) + e1:SetOperation(c31516413.hspop) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(31516413,0)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCost(c31516413.descost) + e2:SetTarget(c31516413.destg) + e2:SetOperation(c31516413.desop) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(31516413,1)) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetCode(EVENT_RELEASE) + e3:SetTarget(c31516413.sptg) + e3:SetOperation(c31516413.spop) + c:RegisterEffect(e3) +end +function c31516413.hspcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.CheckReleaseGroup(c:GetControler(),Card.IsSetCard,1,nil,0x69) +end +function c31516413.hspop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.SelectReleaseGroup(c:GetControler(),Card.IsSetCard,1,1,nil,0x69) + Duel.Release(g,REASON_COST) + c:RegisterFlagEffect(0,RESET_EVENT+0x4fc0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(31516413,2)) +end +function c31516413.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroupEx(tp,Card.IsSetCard,1,e:GetHandler(),0x69) end + local g=Duel.SelectReleaseGroupEx(tp,Card.IsSetCard,1,1,e:GetHandler(),0x69) + Duel.Release(g,REASON_COST) +end +function c31516413.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c31516413.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c31516413.spfilter(c,e,tp) + return c:IsType(TYPE_NORMAL) and c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c31516413.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,0x13) +end +function c31516413.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c31516413.spfilter,tp,0x13,0,1,1,nil,e,tp) + local tc=g:GetFirst() + if tc and tc:IsHasEffect(EFFECT_NECRO_VALLEY) then return end + if tc and Duel.SpecialSummonStep(g:GetFirst(),0,tp,tp,false,false,POS_FACEUP) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK) + e1:SetValue(0) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_SET_DEFENSE) + tc:RegisterEffect(e2) + Duel.SpecialSummonComplete() + end +end diff --git a/script/c31531170.lua b/script/c31531170.lua index 9ad6c218..a94ea303 100644 --- a/script/c31531170.lua +++ b/script/c31531170.lua @@ -57,6 +57,9 @@ function c31531170.pendop(e,tp,eg,ep,ev,re,r,rp,c,sg,og) local rscale=rpz:GetRightScale() if lscale>rscale then lscale,rscale=rscale,lscale end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp] + if ect~=nil then ft=math.min(ft,ect) end if og then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=og:FilterSelect(tp,aux.PConditionFilter,1,ft,nil,e,tp,lscale,rscale) diff --git a/script/c31533704.lua b/script/c31533704.lua index cc368f80..4fc78f60 100644 --- a/script/c31533704.lua +++ b/script/c31533704.lua @@ -80,7 +80,7 @@ function c31533704.thcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c31533704.filter(c) - return c:IsSetCard(0x101b) and c:IsAbleToHand() + return c:IsSetCard(0x101b) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c31533704.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c31533704.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c31550470.lua b/script/c31550470.lua index 2d57ddc8..b50b7c25 100644 --- a/script/c31550470.lua +++ b/script/c31550470.lua @@ -39,12 +39,13 @@ end function c31550470.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)==0 then return end + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then c:SetCardTarget(tc) e:SetLabelObject(tc) c:CreateRelation(tc,RESET_EVENT+0x1fe0000) tc:CreateRelation(c,RESET_EVENT+0x1fe0000) + Duel.SpecialSummonComplete() end end function c31550470.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c31553716.lua b/script/c31553716.lua index be2c9efa..bf2feba5 100644 --- a/script/c31553716.lua +++ b/script/c31553716.lua @@ -1,6 +1,6 @@ --スピア・ドラゴン function c31553716.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_DAMAGE_STEP_END) @@ -19,6 +19,6 @@ end function c31553716.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end diff --git a/script/c31563350.lua b/script/c31563350.lua index b8ea130b..2d3035b2 100644 --- a/script/c31563350.lua +++ b/script/c31563350.lua @@ -20,7 +20,7 @@ function c31563350.eqcost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c31563350.filter(c,tp) - return c:IsRace(RACE_WARRIOR) and c:CheckUniqueOnField(tp) + return c:IsRace(RACE_WARRIOR) and c:CheckUniqueOnField(tp) and not c:IsForbidden() end function c31563350.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 diff --git a/script/c31615285.lua b/script/c31615285.lua old mode 100755 new mode 100644 diff --git a/script/c31632536.lua b/script/c31632536.lua index d435e5bd..58234aa8 100644 --- a/script/c31632536.lua +++ b/script/c31632536.lua @@ -25,7 +25,7 @@ end function c31632536.caop1(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() - if e:GetHandler()==a and d and d:IsDefencePos() then e:SetLabel(1) + if e:GetHandler()==a and d and d:IsDefensePos() then e:SetLabel(1) else e:SetLabel(0) end end function c31632536.caop2(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c3167573.lua b/script/c3167573.lua index c9a3bee6..8e878fcb 100644 --- a/script/c3167573.lua +++ b/script/c3167573.lua @@ -11,6 +11,16 @@ function c3167573.initial_effect(c) e1:SetTarget(c3167573.sptg) e1:SetOperation(c3167573.spop) c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_PHASE+PHASE_END) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCondition(c3167573.descon) + e2:SetOperation(c3167573.desop) + c:RegisterEffect(e2) + e1:SetLabelObject(e2) end function c3167573.cfilter(c,tp) return c:IsControler(1-tp) and c:IsPreviousLocation(LOCATION_DECK) and not c:IsReason(REASON_DRAW) @@ -26,22 +36,25 @@ function c3167573.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c3167573.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_SELF_TURN) - e1:SetCountLimit(1) - e1:SetCondition(c3167573.descon) - e1:SetOperation(c3167573.desop) - c:RegisterEffect(e1) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then + local e2=e:GetLabelObject() + if Duel.GetTurnPlayer()==tp then + c:RegisterFlagEffect(3167573,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_SELF_TURN,0,2) + e2:SetLabel(Duel.GetTurnCount()+2) + else + c:RegisterFlagEffect(3167573,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_SELF_TURN,0,1) + e2:SetLabel(Duel.GetTurnCount()+1) + end + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c3167573.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp + return e:GetHandler():GetFlagEffect(3167573)>0 and Duel.GetTurnCount()==e:GetLabel() end function c3167573.desop(e,tp,eg,ep,ev,re,r,rp) + e:SetLabel(0) Duel.Destroy(e:GetHandler(),REASON_EFFECT) end diff --git a/script/c31709826.lua b/script/c31709826.lua index b8d4f587..be19d2b0 100644 --- a/script/c31709826.lua +++ b/script/c31709826.lua @@ -36,5 +36,5 @@ end function c31709826.spop2(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() c:ResetFlagEffect(31709826) - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end diff --git a/script/c31733941.lua b/script/c31733941.lua new file mode 100644 index 00000000..6c8d0b21 --- /dev/null +++ b/script/c31733941.lua @@ -0,0 +1,64 @@ +--レッドアイズ・トゥーン・ドラゴン +function c31733941.initial_effect(c) + --cannot attack + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetOperation(c31733941.atklimit) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) + c:RegisterEffect(e2) + local e3=e1:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) + --direct attack + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_DIRECT_ATTACK) + e4:SetCondition(c31733941.dircon) + c:RegisterEffect(e4) + --Special Summon + local e5=Effect.CreateEffect(c) + e5:SetCategory(CATEGORY_SPECIAL_SUMMON) + e5:SetType(EFFECT_TYPE_IGNITION) + e5:SetRange(LOCATION_MZONE) + e5:SetCountLimit(1) + e5:SetTarget(c31733941.sptg) + e5:SetOperation(c31733941.spop) + c:RegisterEffect(e5) +end +function c31733941.atklimit(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e:GetHandler():RegisterEffect(e1) +end +function c31733941.cfilter1(c) + return c:IsFaceup() and c:IsCode(15259703) +end +function c31733941.cfilter2(c) + return c:IsFaceup() and c:IsType(TYPE_TOON) +end +function c31733941.dircon(e) + local tp=e:GetHandlerPlayer() + return Duel.IsExistingMatchingCard(c31733941.cfilter1,tp,LOCATION_ONFIELD,0,1,nil) + and not Duel.IsExistingMatchingCard(c31733941.cfilter2,tp,0,LOCATION_MZONE,1,nil) +end +function c31733941.spfilter(c,e,tp) + return c:IsType(TYPE_TOON) and not c:IsCode(31733941) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) +end +function c31733941.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c31733941.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c31733941.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c31733941.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) + end +end diff --git a/script/c31764700.lua b/script/c31764700.lua index deec9af3..820dc203 100644 --- a/script/c31764700.lua +++ b/script/c31764700.lua @@ -49,7 +49,7 @@ function c31764700.damtg(e,tp,eg,ep,ev,re,r,rp,chk) local bc=e:GetLabelObject():GetLabelObject() if chk==0 then return bc end Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,e:GetLabelObject():GetLabel()) - if bc:IsDestructable() then + if bc:IsRelateToBattle() then Duel.SetOperationInfo(0,CATEGORY_DESTROY,bc,1,0,0) end end diff --git a/script/c31768112.lua b/script/c31768112.lua index cc62be4c..b55da644 100644 --- a/script/c31768112.lua +++ b/script/c31768112.lua @@ -85,8 +85,10 @@ function c31768112.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c31768112.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c31768112.drcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c31785398.lua b/script/c31785398.lua index bd573120..e528dffb 100644 --- a/script/c31785398.lua +++ b/script/c31785398.lua @@ -24,6 +24,6 @@ end function c31785398.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c31801517.lua b/script/c31801517.lua old mode 100755 new mode 100644 diff --git a/script/c31826057.lua b/script/c31826057.lua index a09bfedf..6b6f1f94 100644 --- a/script/c31826057.lua +++ b/script/c31826057.lua @@ -31,18 +31,18 @@ function c31826057.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c31826057.filter(chkc) end if chk==0 then return Duel.IsExistingTarget(c31826057.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c31826057.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,c31826057.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.Hint(HINT_SELECTMSG,tp,563) - local rc=Duel.AnnounceRace(tp,1,0xffffff) + local rc=Duel.AnnounceRace(tp,1,0xffffff-g:GetFirst():GetRace()) e:SetLabel(rc) end function c31826057.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c31826057.filter(chkc) end if chk==0 then return Duel.IsExistingTarget(c31826057.filter,tp,LOCATION_MZONE,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c31826057.filter,tp,LOCATION_MZONE,0,1,1,nil) + local g=Duel.SelectTarget(tp,c31826057.filter,tp,LOCATION_MZONE,0,1,1,nil) Duel.Hint(HINT_SELECTMSG,tp,563) - local rc=Duel.AnnounceRace(tp,1,0xffffff) + local rc=Duel.AnnounceRace(tp,1,0xffffff-g:GetFirst():GetRace()) e:SetLabel(rc) end function c31826057.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c31829185.lua b/script/c31829185.lua old mode 100755 new mode 100644 index aecf3c16..674df691 --- a/script/c31829185.lua +++ b/script/c31829185.lua @@ -10,12 +10,24 @@ function c31829185.initial_effect(c) e1:SetCondition(c31829185.spcon) e1:SetOperation(c31829185.spop) c:RegisterEffect(e1) - --destroy + --reg local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e2:SetCode(EVENT_TO_GRAVE) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e2:SetOperation(c31829185.tgop) c:RegisterEffect(e2) + --equip + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e3:SetCode(EVENT_PHASE+PHASE_END) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetRange(LOCATION_GRAVE) + e3:SetCountLimit(1) + e3:SetCondition(c31829185.eqcon) + e3:SetTarget(c31829185.eqtg) + e3:SetOperation(c31829185.eqop) + c:RegisterEffect(e3) end function c31829185.spfilter(c) return c:IsRace(RACE_FIEND) and c:IsAbleToRemoveAsCost() @@ -35,27 +47,17 @@ function c31829185.tgop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) and rp~=tp and bit.band(r,REASON_DESTROY)~=0 then - --equip action - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_GRAVE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetTarget(c31829185.eqtg) - e1:SetOperation(c31829185.eqop) - c:RegisterEffect(e1) + c:RegisterFlagEffect(31829185,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) end end -function c31829185.filter(c) - return c:IsFaceup() and c:IsControlerCanBeChanged() +function c31829185.eqcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(31829185)>0 end function c31829185.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c31829185.filter(chkc) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,c31829185.filter,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) end diff --git a/script/c31893528.lua b/script/c31893528.lua index 4b890c2b..c8c97226 100644 --- a/script/c31893528.lua +++ b/script/c31893528.lua @@ -6,6 +6,10 @@ function c31893528.initial_effect(c) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e2:SetCode(EFFECT_SPSUMMON_COST) + e2:SetCost(c31893528.spcost) c:RegisterEffect(e2) end +function c31893528.spcost(e,c,tp,sumtype) + return sumtype==SUMMON_TYPE_SPECIAL+181 +end diff --git a/script/c31924889.lua b/script/c31924889.lua index 82ba02c0..37871397 100644 --- a/script/c31924889.lua +++ b/script/c31924889.lua @@ -1,6 +1,6 @@ --アーカナイト・マジシャン function c31924889.initial_effect(c) - c:EnableCounterPermit(0x3001) + c:EnableCounterPermit(0x1) --synchro summon aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsRace,RACE_SPELLCASTER),1) c:EnableReviveLimit() @@ -33,29 +33,29 @@ function c31924889.initial_effect(c) c:RegisterEffect(e3) end function c31924889.attackup(e,c) - return c:GetCounter(0x3001)*1000 + return c:GetCounter(0x1)*1000 end function c31924889.addcc(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO end function c31924889.addct(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0x3001) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0x1) end function c31924889.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x3001,2) + e:GetHandler():AddCounter(0x1,2) end end function c31924889.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3001,1,REASON_COST) end - Duel.RemoveCounter(tp,1,0,0x3001,1,REASON_COST) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x1,1,REASON_COST) end + Duel.RemoveCounter(tp,1,0,0x1,1,REASON_COST) end function c31924889.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c31924889.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c31930787.lua b/script/c31930787.lua old mode 100755 new mode 100644 index d8c0be18..69a31e23 --- a/script/c31930787.lua +++ b/script/c31930787.lua @@ -62,8 +62,12 @@ function c31930787.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c31930787.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP)>0 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then c:CompleteProcedure() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c31930787.antarget(e,c) diff --git a/script/c31975743.lua b/script/c31975743.lua index cc3a3fc6..810d7857 100644 --- a/script/c31975743.lua +++ b/script/c31975743.lua @@ -33,7 +33,7 @@ function c31975743.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c31975743.filter(c) - return c:IsPosition(POS_FACEUP_DEFENCE) and c:IsControlerCanBeChanged() + return c:IsPosition(POS_FACEUP_DEFENSE) and c:IsControlerCanBeChanged() end function c31975743.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c31975743.filter(chkc) end @@ -45,14 +45,12 @@ end function c31975743.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - if Duel.GetControl(tc,tp,PHASE_END,1) then + if Duel.GetControl(tc,tp,PHASE_END,1)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) e1:SetReset(RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) - elseif not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) end end end diff --git a/script/c31986288.lua b/script/c31986288.lua index 66bb98dd..881a5df2 100644 --- a/script/c31986288.lua +++ b/script/c31986288.lua @@ -1,4 +1,4 @@ ---スプリット・Ｄ・ローズ +--スプリット・D・ローズ function c31986288.initial_effect(c) --token local e1=Effect.CreateEffect(c) @@ -15,12 +15,14 @@ function c31986288.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c31986288.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,31986289,0,0x4011,1200,1200,3,RACE_PLANT,ATTRIBUTE_DARK) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c31986288.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end if not Duel.IsPlayerCanSpecialSummonMonster(tp,31986289,0,0x4011,1200,1200,3,RACE_PLANT,ATTRIBUTE_DARK) then return end for i=1,2 do diff --git a/script/c32003338.lua b/script/c32003338.lua index 6604b2ef..4c2c5309 100644 --- a/script/c32003338.lua +++ b/script/c32003338.lua @@ -33,9 +33,7 @@ function c32003338.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c32003338.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c32003339.lua b/script/c32003339.lua deleted file mode 100644 index 4683b1c0..00000000 --- a/script/c32003339.lua +++ /dev/null @@ -1,41 +0,0 @@ ---No.34 電算機獣テラ·バイト -function c32003339.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterEqualFunction(Card.GetLevel,3),3) - c:EnableReviveLimit() - --control - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL) - e1:SetDescription(aux.Stringid(32003339,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c32003339.cost) - e1:SetTarget(c32003339.target) - e1:SetOperation(c32003339.operation) - c:RegisterEffect(e1) -end -c32003339.xyz_number=34 -function c32003339.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c32003339.filter(c) - return c:IsFaceup() and c:IsAttackPos() and c:IsLevelBelow(4) and c:IsControlerCanBeChanged() -end -function c32003339.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:GetControler()~=tp and c32003339.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c32003339.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,c32003339.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) -end -function c32003339.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - end -end diff --git a/script/c32013448.lua b/script/c32013448.lua old mode 100755 new mode 100644 index 885e34bf..65071103 --- a/script/c32013448.lua +++ b/script/c32013448.lua @@ -26,7 +26,7 @@ end function c32013448.mtop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetFlagEffect(tp,32013448)~=0 then return end local c=e:GetHandler() - local g=eg:Filter(Card.IsSetCard,nil,0xcf) + local g=eg:Filter(Card.IsSetCard,nil,0x10cf) local rc=g:GetFirst() if not rc then return end local e1=Effect.CreateEffect(c) @@ -58,6 +58,7 @@ function c32013448.mtop(e,tp,eg,ep,ev,re,r,rp) e3:SetReset(RESET_EVENT+0x1fe0000) rc:RegisterEffect(e3,true) end + rc:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(32013448,2)) Duel.RegisterFlagEffect(tp,32013448,RESET_PHASE+PHASE_END,0,1) end function c32013448.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) diff --git a/script/c32015116.lua b/script/c32015116.lua index 237b2cac..dbb9af8b 100644 --- a/script/c32015116.lua +++ b/script/c32015116.lua @@ -28,9 +28,9 @@ function c32015116.rdtg(e,tp,eg,ep,ev,re,r,rp,chk) end function c32015116.rdfilter(c,lv) if lv<6 then - return c:IsFaceup() and c:IsDestructable() and c:GetLevel()==lv + return c:IsFaceup() and c:GetLevel()==lv else - return c:IsFaceup() and c:IsDestructable() and c:GetLevel()>=6 end + return c:IsFaceup() and c:GetLevel()>=6 end end function c32015116.rdop(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end diff --git a/script/c3204467.lua b/script/c3204467.lua index 3407b5f3..64a61de2 100644 --- a/script/c3204467.lua +++ b/script/c3204467.lua @@ -3,7 +3,7 @@ function c3204467.initial_effect(c) --defup local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e1:SetRange(LOCATION_MZONE) e1:SetValue(c3204467.defval) @@ -23,7 +23,7 @@ function c3204467.defval(e,c) end function c3204467.regop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsDefencePos() and c==Duel.GetAttackTarget() then + if c:IsDefensePos() and c==Duel.GetAttackTarget() then local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(3204467,0)) e1:SetCategory(CATEGORY_DESTROY) @@ -36,7 +36,7 @@ function c3204467.regop(e,tp,eg,ep,ev,re,r,rp) end end function c3204467.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c3204467.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c3204467.desfilter(chkc) end diff --git a/script/c32062913.lua b/script/c32062913.lua index 19681516..73e1a011 100644 --- a/script/c32062913.lua +++ b/script/c32062913.lua @@ -11,15 +11,15 @@ function c32062913.initial_effect(c) c:RegisterEffect(e1) end function c32062913.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3001,10,REASON_COST) end - Duel.RemoveCounter(tp,1,0,0x3001,10,REASON_COST) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x1,10,REASON_COST) end + Duel.RemoveCounter(tp,1,0,0x1,10,REASON_COST) end function c32062913.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c32062913.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c32065885.lua b/script/c32065885.lua index 056b04d0..5620e1e1 100644 --- a/script/c32065885.lua +++ b/script/c32065885.lua @@ -20,17 +20,13 @@ end function c32065885.ctlop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) if g:GetCount()==0 then return end - local sg=g:GetMaxGroup(Card.GetDefence) + local sg=g:GetMaxGroup(Card.GetDefense) if sg:GetCount()>1 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) sg=sg:Select(tp,1,1,nil) end local tc=sg:GetFirst() - if not Duel.GetControl(tc,tp,PHASE_END,2) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - else + if Duel.GetControl(tc,tp,PHASE_END,2)~=0 then local c=e:GetHandler() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c32104431.lua b/script/c32104431.lua new file mode 100644 index 00000000..ad25e12a --- /dev/null +++ b/script/c32104431.lua @@ -0,0 +1,111 @@ +--破壊剣の追憶 +function c32104431.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCost(c32104431.cost) + e1:SetTarget(c32104431.target) + e1:SetOperation(c32104431.operation) + c:RegisterEffect(e1) + --fusion summon + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetHintTiming(0,0x1c0) + e2:SetRange(LOCATION_GRAVE) + e2:SetCost(c32104431.fusioncost) + e2:SetTarget(c32104431.fusiontg) + e2:SetOperation(c32104431.fusionop) + c:RegisterEffect(e2) +end +function c32104431.costfilter(c) + return c:IsSetCard(0xd6) and c:IsDiscardable() +end +function c32104431.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c32104431.costfilter,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,c32104431.costfilter,1,1,REASON_COST+REASON_DISCARD) +end +function c32104431.spfilter(c,e,tp) + return c:IsSetCard(0xd7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c32104431.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c32104431.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c32104431.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c32104431.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end +function c32104431.fusioncost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c32104431.filter0(c) + return c:IsCanBeFusionMaterial() and c:IsAbleToRemove() +end +function c32104431.filter1(c,e) + return c:IsCanBeFusionMaterial() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e) +end +function c32104431.filter2(c,e,tp,m,f,chkf) + return c:IsType(TYPE_FUSION) and c:IsCode(86240887) and (not f or f(c)) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) +end +function c32104431.fusiontg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(c32104431.filter0,tp,LOCATION_GRAVE,0,nil) + local res=Duel.IsExistingMatchingCard(c32104431.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) + if not res then + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + local mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + res=Duel.IsExistingMatchingCard(c32104431.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) + end + end + return res + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c32104431.fusionop(e,tp,eg,ep,ev,re,r,rp) + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(c32104431.filter1,tp,LOCATION_GRAVE,0,nil,e) + local sg1=Duel.GetMatchingGroup(c32104431.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) + local mg2=nil + local sg2=nil + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + sg2=Duel.GetMatchingGroup(c32104431.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) + end + if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then + local sg=sg1:Clone() + if sg2 then sg:Merge(sg2) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=sg:Select(tp,1,1,nil) + local tc=tg:GetFirst() + if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then + local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) + tc:SetMaterial(mat1) + Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) + else + local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) + local fop=ce:GetOperation() + fop(ce,e,tp,tc,mat2) + end + tc:CompleteProcedure() + end +end diff --git a/script/c3211439.lua b/script/c3211439.lua old mode 100755 new mode 100644 diff --git a/script/c32134638.lua b/script/c32134638.lua new file mode 100644 index 00000000..559255c4 --- /dev/null +++ b/script/c32134638.lua @@ -0,0 +1,40 @@ +--ダイナミスト・アンキロス +function c32134638.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --negate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(32134638,0)) + e1:SetCategory(CATEGORY_DISABLE) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_CHAIN_SOLVING) + e1:SetRange(LOCATION_PZONE) + e1:SetCondition(c32134638.negcon) + e1:SetOperation(c32134638.negop) + c:RegisterEffect(e1) + --redirect + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_BATTLE_DESTROY_REDIRECT) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetValue(LOCATION_REMOVED) + e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xd8)) + c:RegisterEffect(e2) +end +function c32134638.tfilter(c,tp) + return c:IsFaceup() and c:IsSetCard(0xd8) and c:IsControler(tp) and c:IsLocation(LOCATION_ONFIELD) +end +function c32134638.negcon(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) + return e:GetHandler():GetFlagEffect(32134638)==0 and re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) + and g and g:IsExists(c32134638.tfilter,1,e:GetHandler(),tp) and Duel.IsChainDisablable(ev) +end +function c32134638.negop(e,tp,eg,ep,ev,re,r,rp) + if Duel.SelectYesNo(tp,aux.Stringid(32134638,1)) then + e:GetHandler():RegisterFlagEffect(32134638,RESET_EVENT+0x1fe0000,0,1) + Duel.NegateEffect(ev) + Duel.BreakEffect() + Duel.Destroy(e:GetHandler(),REASON_EFFECT) + end +end diff --git a/script/c32146097.lua b/script/c32146097.lua old mode 100755 new mode 100644 diff --git a/script/c32180819.lua b/script/c32180819.lua index 48d9033c..4befa2e5 100644 --- a/script/c32180819.lua +++ b/script/c32180819.lua @@ -18,10 +18,10 @@ function c32180819.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c32180819.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c32180819.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() and chkc~=e:GetHandler() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,1000) end diff --git a/script/c32224143.lua b/script/c32224143.lua index c37acbd5..90e49773 100644 --- a/script/c32224143.lua +++ b/script/c32224143.lua @@ -33,7 +33,7 @@ function c32224143.cfilter(c) return c:IsFaceup() and c:IsSetCard(0x8d) end function c32224143.filter(c,atk) - return c:IsFaceup() and c:IsAttackBelow(atk) and c:IsDestructable() + return c:IsFaceup() and c:IsAttackBelow(atk) end function c32224143.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local cg=Duel.GetMatchingGroup(c32224143.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) @@ -49,6 +49,12 @@ function c32224143.operation(e,tp,eg,ep,ev,re,r,rp) local seq=tc:GetSequence() if tc:IsControler(1-tp) then seq=seq+16 end if tc:IsRelateToEffect(e) and tc:IsFaceup() and Duel.Destroy(tc,REASON_EFFECT)~=0 then + local g=Duel.GetMatchingGroup(c32224143.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,nil) + local tc=g:GetFirst() + while tc do + tc:RegisterFlagEffect(32224143,RESET_EVENT+0x5fe0000,0,1) + tc=g:GetNext() + end local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD) e1:SetCode(EFFECT_DISABLE_FIELD) @@ -59,8 +65,17 @@ function c32224143.operation(e,tp,eg,ep,ev,re,r,rp) Duel.RegisterEffect(e1,tp) end end +function c32224143.cfilter2(c) + return c32224143.cfilter(c) and c:GetFlagEffect(32224143)~=0 +end function c32224143.discon(e) - if Duel.IsExistingMatchingCard(c32224143.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) then + local g=Duel.GetMatchingGroup(c32224143.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,nil) + if g:IsExists(c32224143.cfilter2,1,nil) then + local tc=g:GetFirst() + while tc do + tc:RegisterFlagEffect(32224143,RESET_EVENT+0x5fe0000,0,1) + tc=g:GetNext() + end return true end e:Reset() diff --git a/script/c32231618.lua b/script/c32231618.lua index bb18d323..cb8a4a88 100644 --- a/script/c32231618.lua +++ b/script/c32231618.lua @@ -22,7 +22,7 @@ function c32231618.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c32231618.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,g) end local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c32298781.lua b/script/c32298781.lua index f24bce4e..e8693039 100644 --- a/script/c32298781.lua +++ b/script/c32298781.lua @@ -28,8 +28,8 @@ function c32298781.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_BASE_DEFENCE) - e2:SetValue(tc:GetBaseDefence()+2000) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) + e2:SetValue(tc:GetBaseDefense()+2000) e2:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e2) tc=g:GetNext() diff --git a/script/c32314730.lua b/script/c32314730.lua index 0e98f7a5..51af5c2f 100644 --- a/script/c32314730.lua +++ b/script/c32314730.lua @@ -32,6 +32,8 @@ function c32314730.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_BEASTWARRIOR) and not c:IsPublic() end function c32314730.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c32314730.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c32314730.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -41,8 +43,10 @@ function c32314730.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(32314730,0),aux.Stringid(32314730,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(32314730,1),aux.Stringid(32314730,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(32314730,1),aux.Stringid(32314730,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(32314730,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -54,7 +58,7 @@ function c32314730.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c32314730.thcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c32391631.lua b/script/c32391631.lua index 0acbdc5a..cdecc619 100644 --- a/script/c32391631.lua +++ b/script/c32391631.lua @@ -5,7 +5,7 @@ function c32391631.initial_effect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) c:RegisterEffect(e1) - --to defence + --to defense local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(32391631,0)) e2:SetCategory(CATEGORY_RECOVER) @@ -22,14 +22,6 @@ function c32391631.initial_effect(c) e3:SetRange(LOCATION_FZONE) e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_CANNOT_EP) - e4:SetRange(LOCATION_FZONE) - e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e4:SetTargetRange(1,1) - e4:SetCondition(c32391631.becon) - c:RegisterEffect(e4) --destroy local e5=Effect.CreateEffect(c) e5:SetDescription(aux.Stringid(32391631,1)) @@ -82,12 +74,9 @@ function c32391631.recop(e,tp,eg,ep,ev,re,r,rp) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) Duel.Recover(p,d,REASON_EFFECT) end -function c32391631.becon(e) - return Duel.IsExistingMatchingCard(Card.IsAttackable,Duel.GetTurnPlayer(),LOCATION_MZONE,0,1,nil) -end function c32391631.desfilter(c) local ct=c:GetFlagEffectLabel(32391631) - return c:IsPosition(POS_FACEUP_ATTACK) and (not ct or ct==0) and c:IsDestructable() + return c:IsPosition(POS_FACEUP_ATTACK) and (not ct or ct==0) end function c32391631.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c32437102.lua b/script/c32437102.lua index 375cfdb8..30940565 100644 --- a/script/c32437102.lua +++ b/script/c32437102.lua @@ -16,7 +16,7 @@ function c32437102.initial_effect(c) e2:SetValue(500) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --race local e4=Effect.CreateEffect(c) diff --git a/script/c32441231.lua b/script/c32441231.lua deleted file mode 100644 index b271918d..00000000 --- a/script/c32441231.lua +++ /dev/null @@ -1,60 +0,0 @@ ---Twin-Bow Centaur -function c32441231.initial_effect(c) ---Activate -local e1=Effect.CreateEffect(c) -e1:SetType(EFFECT_TYPE_ACTIVATE) -e1:SetCode(EVENT_FREE_CHAIN) -c:RegisterEffect(e1) ---Destruction -local e2=Effect.CreateEffect(c) -e2:SetDescription(aux.Stringid(32441231,0)) -e2:SetCategory(CATEGORY_REMOVE+CATEGORY_COIN+CATEGORY_DAMAGE) -e2:SetRange(LOCATION_SZONE) -e2:SetCountLimit(1) -e2:SetType(EFFECT_TYPE_IGNITION) -e2:SetCondition(c32441231.condition) -e2:SetTarget(c32441231.target) -e2:SetOperation(c32441231.desop) -c:RegisterEffect(e2) -end -function c32441231.condition(e,tp,eg,ep,ev,re,r,rp) -return Duel.GetCurrentPhase()==PHASE_MAIN1 -end -function c32441231.filter(c) -return c:IsAbleToRemove() -end -function c32441231.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) -if chkc then return false end -if chk==0 then return Duel.IsExistingTarget(c32441231.filter,tp,LOCATION_MZONE,LOCATION_MZONE,2,nil) end -Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(32441231,1)) -local g1=Duel.SelectTarget(tp,c32441231.filter,tp,LOCATION_MZONE,0,1,1,nil) -Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(32441231,2)) -local g2=Duel.SelectTarget(tp,c32441231.filter,tp,0,LOCATION_MZONE,1,1,nil) -e:SetLabelObject(g1:GetFirst()) -g1:Merge(g2) -Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1) -Duel.SetOperationInfo(0,CATEGORY_REMOVE,g1,2,0,0) -end -function c32441231.desop(e,tp,eg,ep,ev,re,r,rp) -local tc1=e:GetLabelObject() -local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) -local tc2=g:GetFirst() -if tc1==tc2 then tc2=g:GetNext() end -Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(34016756,3)) -local coin=Duel.SelectOption(tp,60,61) -local res=Duel.TossCoin(tp,1) -if coin~=res then -Duel.Remove(tc2,POS_FACEUP,REASON_EFFECT) -Duel.Damage(1-tp,tc2:GetBaseAttack(),REASON_EFFECT) -else -Duel.Remove(tc1,POS_FACEUP,REASON_EFFECT) -Duel.Damage(tp,tc1:GetBaseAttack(),REASON_EFFECT) -end -local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_BP) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end \ No newline at end of file diff --git a/script/c32441317.lua b/script/c32441317.lua index 28652181..634bf7cf 100644 --- a/script/c32441317.lua +++ b/script/c32441317.lua @@ -21,22 +21,21 @@ function c32441317.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) end function c32441317.mgfilter(c,e,tp,sync) - return not c:IsControler(tp) or not c:IsLocation(LOCATION_GRAVE) - or bit.band(c:GetReason(),0x80008)~=0x80008 or c:GetReasonCard()~=sync - or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) or c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsControler(tp) and c:IsLocation(LOCATION_GRAVE) + and bit.band(c:GetReason(),0x80008)==0x80008 and c:GetReasonCard()==sync + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c32441317.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFacedown() or not tc:IsRelateToEffect(e) then return end local mg=tc:GetMaterial() - local sumable=true + local ct=mg:GetCount() local sumtype=tc:GetSummonType() - if Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)==0 or sumtype~=SUMMON_TYPE_SYNCHRO or mg:GetCount()==0 - or mg:GetCount()>Duel.GetLocationCount(tp,LOCATION_MZONE) - or mg:IsExists(c32441317.mgfilter,1,nil,e,tp,tc) then - sumable=false - end - if sumable and Duel.SelectYesNo(tp,aux.Stringid(32441317,0)) then + if Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)~=0 and sumtype==SUMMON_TYPE_SYNCHRO + and ct>0 and not Duel.IsPlayerAffectedByEffect(tp,59822133) + and ct<=Duel.GetLocationCount(tp,LOCATION_MZONE) + and mg:FilterCount(c32441317.mgfilter,nil,e,tp,tc)==ct + and Duel.SelectYesNo(tp,aux.Stringid(32441317,0)) then Duel.BreakEffect() Duel.SpecialSummon(mg,0,tp,tp,false,false,POS_FACEUP) end diff --git a/script/c3244563.lua b/script/c3244563.lua index 1c5171b1..36ec57e3 100644 --- a/script/c3244563.lua +++ b/script/c3244563.lua @@ -31,7 +31,7 @@ function c3244563.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(400) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end diff --git a/script/c32446630.lua b/script/c32446630.lua index be86c997..f1268ae1 100644 --- a/script/c32446630.lua +++ b/script/c32446630.lua @@ -54,7 +54,7 @@ function c32446630.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) token:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) token:RegisterEffect(e2) Duel.SpecialSummonComplete() end diff --git a/script/c32465539.lua b/script/c32465539.lua new file mode 100644 index 00000000..7f27a2b9 --- /dev/null +++ b/script/c32465539.lua @@ -0,0 +1,89 @@ +--電子光虫－コクーンデンサ +function c32465539.initial_effect(c) + --xyzlimit + local e0=Effect.CreateEffect(c) + e0:SetType(EFFECT_TYPE_SINGLE) + e0:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) + e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e0:SetValue(c32465539.xyzlimit) + c:RegisterEffect(e0) + --Special Summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(32465539,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCondition(c32465539.spcon) + e1:SetTarget(c32465539.sptg) + e1:SetOperation(c32465539.spop) + c:RegisterEffect(e1) + --effect gain + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_BE_MATERIAL) + e2:SetCondition(c32465539.efcon) + e2:SetOperation(c32465539.efop) + c:RegisterEffect(e2) +end +function c32465539.xyzlimit(e,c) + if not c then return false end + return not c:IsRace(RACE_INSECT) +end +function c32465539.spcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPosition(POS_FACEUP_ATTACK) +end +function c32465539.spfil(c,e,tp) + return c:GetLevel()==3 and c:IsRace(RACE_INSECT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c32465539.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c32465539.spfil(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c32465539.spfil,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c32465539.spfil,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c32465539.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:IsDefensePos() then return end + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + end +end +function c32465539.efcon(e,tp,eg,ep,ev,re,r,rp) + return r==REASON_XYZ +end +function c32465539.efop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local rc=c:GetReasonCard() + local e1=Effect.CreateEffect(rc) + e1:SetDescription(aux.Stringid(32465539,1)) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT) + e1:SetCode(EFFECT_CANNOT_ACTIVATE) + e1:SetRange(LOCATION_MZONE) + e1:SetTargetRange(0,1) + e1:SetValue(c32465539.aclimit) + e1:SetCondition(c32465539.actcon) + e1:SetReset(RESET_EVENT+0x1fe0000) + rc:RegisterEffect(e1,true) + if not rc:IsType(TYPE_EFFECT) then + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_ADD_TYPE) + e2:SetValue(TYPE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000) + rc:RegisterEffect(e2,true) + end +end +function c32465539.aclimit(e,re,tp) + return not re:GetHandler():IsImmuneToEffect(e) +end +function c32465539.actcon(e) + return Duel.GetAttacker()==e:GetHandler() and Duel.GetAttackTarget() and Duel.GetAttackTarget():IsPosition(POS_DEFENSE) +end diff --git a/script/c32491822.lua b/script/c32491822.lua old mode 100755 new mode 100644 index 9f06a5d3..0f3c82c3 --- a/script/c32491822.lua +++ b/script/c32491822.lua @@ -88,7 +88,7 @@ function c32491822.damop(e,tp,eg,ep,ev,re,r,rp) Duel.Damage(p,d,REASON_EFFECT) end function c32491822.atcon(e) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end function c32491822.atlimit(e,c) return c~=e:GetHandler() diff --git a/script/c32542011.lua b/script/c32542011.lua old mode 100755 new mode 100644 index 26c0c3f8..9e3ba6b1 --- a/script/c32542011.lua +++ b/script/c32542011.lua @@ -25,24 +25,22 @@ function c32542011.spfilter(c,tid,e,tp) return c:GetTurnID()==tid and c:IsReason(REASON_COST) and re and re:IsHasType(0x7e0) and re:IsActiveType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_WATER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end -function c32542011.desfilter(c) - return c:IsDestructable() -end function c32542011.target(e,tp,eg,ep,ev,re,r,rp,chk) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) local b1=Duel.IsExistingMatchingCard(c32542011.cfilter2,tp,LOCATION_MZONE,0,1,nil,ATTRIBUTE_FIRE) - and Duel.IsExistingMatchingCard(c32542011.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) + and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) local b2=Duel.IsExistingMatchingCard(c32542011.cfilter2,tp,LOCATION_MZONE,0,1,nil,ATTRIBUTE_WATER) and ft>0 and Duel.IsExistingMatchingCard(c32542011.spfilter,tp,LOCATION_GRAVE,0,1,nil,Duel.GetTurnCount(),e,tp) if chk==0 then return b1 or b2 end if b1 then - local g=Duel.GetMatchingGroup(c32542011.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end if b2 then + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetMatchingGroup(c32542011.spfilter,tp,LOCATION_GRAVE,0,nil,Duel.GetTurnCount(),e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,ft,0,0) - local dg=Duel.GetMatchingGroup(c32542011.desfilter,tp,LOCATION_MZONE,0,nil) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,1,0,0) end end @@ -53,13 +51,14 @@ function c32542011.activate(e,tp,eg,ep,ev,re,r,rp) if opt==1 or opt==3 then local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft>0 then + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c32542011.spfilter,tp,LOCATION_GRAVE,0,1,ft,nil,Duel.GetTurnCount(),e,tp) if g:GetCount()>0 then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local dg=Duel.SelectMatchingCard(tp,c32542011.desfilter,tp,LOCATION_MZONE,0,1,1,nil) + local dg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_MZONE,0,1,1,nil) Duel.Destroy(dg,REASON_EFFECT) end end @@ -67,7 +66,7 @@ function c32542011.activate(e,tp,eg,ep,ev,re,r,rp) if opt==2 or opt==3 then Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,c32542011.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) if g:GetCount()>0 then Duel.HintSelection(g) Duel.Destroy(g,REASON_EFFECT) diff --git a/script/c32543380.lua b/script/c32543380.lua old mode 100755 new mode 100644 index 434de13f..1e3e0276 --- a/script/c32543380.lua +++ b/script/c32543380.lua @@ -1,72 +1,73 @@ ---ヴォルカニック・デビル -function c32543380.initial_effect(c) - c:EnableReviveLimit() - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c32543380.spcon) - e1:SetOperation(c32543380.spop) - c:RegisterEffect(e1) - --must attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_MUST_ATTACK) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,LOCATION_MZONE) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetCode(EFFECT_MUST_BE_ATTACKED) - e3:SetRange(LOCATION_MZONE) - e3:SetValue(aux.imval1) - c:RegisterEffect(e3) - --special summon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(32543380,0)) - e4:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(EVENT_BATTLE_DESTROYING) - e4:SetCondition(c32543380.descon) - e4:SetTarget(c32543380.destg) - e4:SetOperation(c32543380.desop) - c:RegisterEffect(e4) -end -function c32543380.spfilter(c) - return c:IsFaceup() and c:IsCode(21420702) and c:IsAbleToGraveAsCost() -end -function c32543380.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c32543380.spfilter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c32543380.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c32543380.spfilter,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.SendtoGrave(g, REASON_COST) -end -function c32543380.descon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if a~=c then d=a end - return c:IsRelateToBattle() and c:IsFaceup() - and d and d:GetLocation()==LOCATION_GRAVE and d:IsType(TYPE_MONSTER) -end -function c32543380.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetCount()*500) -end -function c32543380.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - local ct=Duel.Destroy(g,REASON_EFFECT) - if ct>0 then - Duel.Damage(1-tp,ct*500,REASON_EFFECT) - end -end +--ヴォルカニック・デビル +function c32543380.initial_effect(c) + c:EnableReviveLimit() + --special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c32543380.spcon) + e1:SetOperation(c32543380.spop) + c:RegisterEffect(e1) + --must attack + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_MUST_ATTACK) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(0,LOCATION_MZONE) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_MUST_ATTACK_MONSTER) + c:RegisterEffect(e3) + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_MUST_BE_ATTACKED) + e4:SetValue(1) + c:RegisterEffect(e4) + --special summon + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(32543380,0)) + e5:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e5:SetCode(EVENT_BATTLE_DESTROYING) + e5:SetCondition(c32543380.descon) + e5:SetTarget(c32543380.destg) + e5:SetOperation(c32543380.desop) + c:RegisterEffect(e5) +end +function c32543380.spfilter(c) + return c:IsFaceup() and c:IsCode(21420702) and c:IsAbleToGraveAsCost() +end +function c32543380.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c32543380.spfilter,tp,LOCATION_ONFIELD,0,1,nil) +end +function c32543380.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c32543380.spfilter,tp,LOCATION_ONFIELD,0,1,1,nil) + Duel.SendtoGrave(g, REASON_COST) +end +function c32543380.descon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local a=Duel.GetAttacker() + local d=Duel.GetAttackTarget() + if a~=c then d=a end + return c:IsRelateToBattle() and c:IsFaceup() + and d and d:GetLocation()==LOCATION_GRAVE and d:IsType(TYPE_MONSTER) +end +function c32543380.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetCount()*500) +end +function c32543380.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + local ct=Duel.Destroy(g,REASON_EFFECT) + if ct>0 then + Duel.Damage(1-tp,ct*500,REASON_EFFECT) + end +end diff --git a/script/c32548609.lua b/script/c32548609.lua index 4e899834..b152aee4 100644 --- a/script/c32548609.lua +++ b/script/c32548609.lua @@ -19,10 +19,10 @@ function c32548609.initial_effect(c) end function c32548609.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefencePos() + return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefensePos() end function c32548609.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetAttackTarget():IsDestructable() end + if chk==0 then return Duel.GetAttackTarget():IsRelateToBattle() end Duel.SetOperationInfo(0,CATEGORY_DESTROY,Duel.GetAttackTarget(),1,0,0) end function c32548609.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c32588805.lua b/script/c32588805.lua new file mode 100644 index 00000000..51eda887 --- /dev/null +++ b/script/c32588805.lua @@ -0,0 +1,65 @@ +--The despair URANUS +function c32588805.initial_effect(c) + --set + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(32588805,0)) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetCondition(c32588805.setcon) + e1:SetTarget(c32588805.settg) + e1:SetOperation(c32588805.setop) + c:RegisterEffect(e1) + --atkup + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetRange(LOCATION_MZONE) + e2:SetValue(c32588805.atkval) + c:RegisterEffect(e2) + --indes + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e3:SetRange(LOCATION_MZONE) + e3:SetTargetRange(LOCATION_SZONE,0) + e3:SetTarget(c32588805.indtg) + e3:SetValue(1) + c:RegisterEffect(e3) +end +function c32588805.setcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE + and not Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_ONFIELD,0,1,nil,TYPE_SPELL+TYPE_TRAP) +end +function c32588805.setfilter1(c) + return c:IsType(TYPE_CONTINUOUS) and c:IsSSetable() +end +function c32588805.settg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 + and Duel.IsExistingMatchingCard(c32588805.setfilter1,tp,LOCATION_DECK,0,1,nil) end +end +function c32588805.setfilter2(c,typ) + return c:GetType()==typ and c:IsSSetable() +end +function c32588805.setop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,1-tp,555) + local op=Duel.SelectOption(1-tp,71,72) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) + local g=nil + if op==0 then g=Duel.SelectMatchingCard(tp,c32588805.setfilter2,tp,LOCATION_DECK,0,1,1,nil,TYPE_SPELL+TYPE_CONTINUOUS) + else g=Duel.SelectMatchingCard(tp,c32588805.setfilter2,tp,LOCATION_DECK,0,1,1,nil,TYPE_TRAP+TYPE_CONTINUOUS) end + if g:GetCount()>0 then + Duel.SSet(tp,g:GetFirst()) + Duel.ConfirmCards(1-tp,g) + end +end +function c32588805.atkfilter(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsFaceup() +end +function c32588805.atkval(e,c) + return Duel.GetMatchingGroupCount(c32588805.atkfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,nil)*300 +end +function c32588805.indtg(e,c) + return c:GetSequence()<5 and c:IsFaceup() +end diff --git a/script/c32603633.lua b/script/c32603633.lua index 58f1ff5b..84831263 100644 --- a/script/c32603633.lua +++ b/script/c32603633.lua @@ -16,12 +16,11 @@ function c32603633.cost(e,tp,eg,ep,ev,re,r,rp,chk) end function c32603633.filter(c,e,tp) return c:IsSetCard(0x3d) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_MZONE,0,1,nil,c:GetCode()) + and not Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,c:GetCode()) end function c32603633.tg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c32603633.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) - end + and Duel.IsExistingMatchingCard(c32603633.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) end function c32603633.op(e,tp,eg,ep,ev,re,r,rp) @@ -31,7 +30,7 @@ function c32603633.op(e,tp,eg,ep,ev,re,r,rp) while g:GetCount()>0 and ft>0 do Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,1,1,nil) - Duel.SpecialSummonStep(sg:GetFirst(), 0, tp, tp, false, false, POS_FACEUP) + Duel.SpecialSummonStep(sg:GetFirst(),0,tp,tp,false,false,POS_FACEUP) ft=ft-1 g:Remove(Card.IsCode,nil,sg:GetFirst():GetCode()) end diff --git a/script/c32623004.lua b/script/c32623004.lua index be21ae2e..dd4c46d0 100644 --- a/script/c32623004.lua +++ b/script/c32623004.lua @@ -4,7 +4,7 @@ function c32623004.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(32623004,0)) e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_F) + e1:SetType(EFFECT_TYPE_QUICK_F) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_GRAVE) diff --git a/script/c32663969.lua b/script/c32663969.lua index 760863dd..3bbaca49 100644 --- a/script/c32663969.lua +++ b/script/c32663969.lua @@ -32,10 +32,10 @@ function c32663969.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c32663969.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c32663969.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c32687071.lua b/script/c32687071.lua new file mode 100644 index 00000000..f44afc76 --- /dev/null +++ b/script/c32687071.lua @@ -0,0 +1,52 @@ +--アモルファージ・ノーテス +function c32687071.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --maintain + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e1:SetRange(LOCATION_PZONE) + e1:SetCode(EVENT_PHASE+PHASE_STANDBY) + e1:SetCountLimit(1) + e1:SetCondition(c32687071.descon) + e1:SetOperation(c32687071.desop) + c:RegisterEffect(e1) + --spsummon limit + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetTargetRange(1,1) + e2:SetTarget(c32687071.sumlimit) + c:RegisterEffect(e2) + --disable search + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_CANNOT_TO_HAND) + e3:SetRange(LOCATION_PZONE) + e3:SetCondition(c32687071.limcon) + e3:SetTargetRange(LOCATION_DECK,LOCATION_DECK) + c:RegisterEffect(e3) +end +function c32687071.descon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c32687071.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) + if Duel.CheckReleaseGroup(tp,Card.IsReleasableByEffect,1,c) and Duel.SelectYesNo(tp,aux.Stringid(32687071,0)) then + local g=Duel.SelectReleaseGroup(tp,Card.IsReleasableByEffect,1,1,c) + Duel.Release(g,REASON_COST) + else Duel.Destroy(c,REASON_COST) end +end +function c32687071.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) + return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0xe0) +end +function c32687071.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe0) +end +function c32687071.limcon(e) + return Duel.IsExistingMatchingCard(c32687071.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) +end diff --git a/script/c32710364.lua b/script/c32710364.lua index c4bda52f..58834cb3 100644 --- a/script/c32710364.lua +++ b/script/c32710364.lua @@ -32,7 +32,7 @@ function c32710364.repop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fc0000) e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) c:RegisterEffect(e1) - Duel.RaiseEvent(c,47408488,e,0,tp,0,0) + Duel.RaiseEvent(c,EVENT_CUSTOM+47408488,e,0,tp,0,0) end function c32710364.filter(c,e,sp) return c:IsFaceup() and c:IsSetCard(0x1034) and c:IsCanBeSpecialSummoned(e,0,sp,true,false) @@ -41,6 +41,7 @@ function c32710364.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c32710364.filter,tp,LOCATION_SZONE,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end local gct=Duel.GetMatchingGroupCount(c32710364.filter,tp,LOCATION_SZONE,0,nil,e,tp) if ct>gct then Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,gct,tp,LOCATION_SZONE) @@ -48,9 +49,10 @@ function c32710364.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,ct,tp,LOCATION_SZONE) end end -function c32710364.operation(e,tp,eg,ep,ev,re,r,rp,chk) +function c32710364.operation(e,tp,eg,ep,ev,re,r,rp) local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ct==0 then return end + if ct<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end local g=Duel.GetMatchingGroup(c32710364.filter,tp,LOCATION_SZONE,0,nil,e,tp) local gc=g:GetCount() if gc==0 then return end diff --git a/script/c32710366.lua b/script/c32710366.lua deleted file mode 100644 index 9530b93d..00000000 --- a/script/c32710366.lua +++ /dev/null @@ -1,100 +0,0 @@ ---Advanced Crystal Beast Ruby Carbuncle -function c32710366.initial_effect(c) - --Treated as "Crystal Beast Ruby Carbuncle" - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_ADD_CODE) - e1:SetValue(32710364) - c:RegisterEffect(e1) - --Turn Itself Crystal into Beast - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c32710366.itselftobeastcon) - e2:SetTarget(c32710366.itselftobeasttg) - e2:SetOperation(c32710366.itselftobeastop) - c:RegisterEffect(e2) - --Turn Crystals into Beasts - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(32710366,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetTarget(c32710366.crystalstobeaststg) - e3:SetOperation(c32710366.crystalstobeastsop) - c:RegisterEffect(e3) - --Turn into Crystal - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(32710366,1)) - e4:SetCode(EFFECT_SEND_REPLACE) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE) - e4:SetRange(LOCATION_MZONE) - e4:SetTarget(c32710366.crystaltg) - e4:SetOperation(c32710366.crystalop) - c:RegisterEffect(e4) -end -function c32710366.crystaltg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:GetDestination()==LOCATION_GRAVE and c:IsReason(REASON_DESTROY) end - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return false end - return Duel.SelectEffectYesNo(tp,c) -end -function c32710366.crystalop(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(c) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fc0000) - e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) - c:RegisterEffect(e1) - Duel.RaiseEvent(c,47408488,e,0,tp,0,0) -end -function c32710366.crystalstobeastfilter(c,e,sp) - return c:IsFaceup() and c:IsSetCard(0x34) and c:IsCanBeSpecialSummoned(e,0,sp,true,false) -end -function c32710366.crystalstobeaststg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c32710366.crystalstobeastfilter,tp,LOCATION_SZONE,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) - local gct=Duel.GetMatchingGroupCount(c32710366.crystalstobeastfilter,tp,LOCATION_SZONE,0,nil,e,tp) - if ct>gct then - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,gct,tp,LOCATION_SZONE) - else - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,ct,tp,LOCATION_SZONE) - end -end -function c32710366.crystalstobeastsop(e,tp,eg,ep,ev,re,r,rp,chk) - local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ct==0 then return end - local g=Duel.GetMatchingGroup(c32710366.crystalstobeastfilter,tp,LOCATION_SZONE,0,nil,e,tp) - local gc=g:GetCount() - if gc==0 then return end - if gc<=ct then - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:Select(tp,ct,ct,nil) - Duel.SpecialSummon(sg,0,tp,tp,true,false,POS_FACEUP) - end -end -function c32710366.itselftobeastcon(e,c) - return e:GetHandler():IsLocation(LOCATION_SZONE) - and Duel.GetLocationCount(e:GetHandler():GetControler(),LOCATION_MZONE)>0 -end -function c32710366.itselftobeasttg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) -end -function c32710366.itselftobeastop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) -end \ No newline at end of file diff --git a/script/c32723153.lua b/script/c32723153.lua old mode 100755 new mode 100644 diff --git a/script/c32750510.lua b/script/c32750510.lua index 5373a023..e70645d6 100644 --- a/script/c32750510.lua +++ b/script/c32750510.lua @@ -41,16 +41,16 @@ function c32750510.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Release(g,REASON_COST) end function c32750510.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsCanAddCounter(0x15,1) end - if chk==0 then return Duel.IsExistingTarget(Card.IsCanAddCounter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,0x15,1) end + if chkc then return chkc:IsCanAddCounter(0x1015,1) end + if chk==0 then return Duel.IsExistingTarget(Card.IsCanAddCounter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,0x1015,1) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,0x15,1) + local g=Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,0x1015,1) Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0) end function c32750510.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and tc:IsCanAddCounter(0x15,1) then - tc:AddCounter(0x15,1) + if tc and tc:IsRelateToEffect(e) and tc:IsCanAddCounter(0x1015,1) then + tc:AddCounter(0x1015,1) end end function c32750510.descost(e,tp,eg,ep,ev,re,r,rp,chk) @@ -58,7 +58,7 @@ function c32750510.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c32750510.desfilter(c) - return c:GetCounter(0x15)~=0 and c:IsDestructable() + return c:GetCounter(0x1015)~=0 end function c32750510.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c32750510.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end diff --git a/script/c32752319.lua b/script/c32752319.lua index 8eb875f8..e1fba475 100644 --- a/script/c32752319.lua +++ b/script/c32752319.lua @@ -33,7 +33,7 @@ function c32752319.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) c:RegisterEffect(e2) end end diff --git a/script/c3280747.lua b/script/c3280747.lua old mode 100755 new mode 100644 diff --git a/script/c32835363.lua b/script/c32835363.lua index 084bb1dc..33ab0954 100644 --- a/script/c32835363.lua +++ b/script/c32835363.lua @@ -15,14 +15,14 @@ function c32835363.initial_effect(c) e2:SetOperation(c32835363.regop) c:RegisterEffect(e2) -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(32835363,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(32835363) - e2:SetTarget(c32835363.damtg) - e2:SetOperation(c32835363.damop) - c:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(32835363,0)) + e3:SetCategory(CATEGORY_DAMAGE) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetCode(EVENT_CUSTOM+32835363) + e3:SetTarget(c32835363.damtg) + e3:SetOperation(c32835363.damop) + c:RegisterEffect(e3) end function c32835363.regcon(e,tp,eg,ep,ev,re,r,rp) local d1=false @@ -43,7 +43,7 @@ function c32835363.regcon(e,tp,eg,ep,ev,re,r,rp) return evt_p~=PLAYER_NONE end function c32835363.regop(e,tp,eg,ep,ev,re,r,rp) - Duel.RaiseSingleEvent(e:GetHandler(),32835363,e,0,tp,e:GetLabel(),0) + Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+32835363,e,0,tp,e:GetLabel(),0) end function c32835363.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsRelateToEffect(e) end @@ -54,8 +54,9 @@ function c32835363.damop(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end local d=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) if ep==PLAYER_ALL then - Duel.Damage(tp,d,REASON_EFFECT) - Duel.Damage(1-tp,d,REASON_EFFECT) + Duel.Damage(tp,d,REASON_EFFECT,true) + Duel.Damage(1-tp,d,REASON_EFFECT,true) + Duel.RDComplete() else Duel.Damage(ep,d,REASON_EFFECT) end diff --git a/script/c32854013.lua b/script/c32854013.lua index 8b638501..9d3274a9 100644 --- a/script/c32854013.lua +++ b/script/c32854013.lua @@ -12,7 +12,7 @@ function c32854013.initial_effect(c) c:RegisterEffect(e1) end function c32854013.dfilter(c) - return c:IsFaceup() and c:IsRace(RACE_BEAST) and c:IsDestructable() + return c:IsFaceup() and c:IsRace(RACE_BEAST) end function c32854013.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c32907538.lua b/script/c32907538.lua index 29994977..90724d6a 100644 --- a/script/c32907538.lua +++ b/script/c32907538.lua @@ -55,9 +55,9 @@ function c32907538.mtcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c32907538.mtop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLP(tp)>500 and Duel.SelectYesNo(tp,aux.Stringid(32907538,0)) then + if Duel.CheckLPCost(tp,500) and Duel.SelectYesNo(tp,aux.Stringid(32907538,0)) then Duel.PayLPCost(tp,500) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end diff --git a/script/c32912040.lua b/script/c32912040.lua new file mode 100644 index 00000000..ae3246fe --- /dev/null +++ b/script/c32912040.lua @@ -0,0 +1,82 @@ +--トラミッド・マスター +function c32912040.initial_effect(c) + --destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(32912040,0)) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCost(c32912040.descost) + e1:SetTarget(c32912040.destg) + e1:SetOperation(c32912040.desop) + c:RegisterEffect(e1) + --field + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(32912040,1)) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1) + e2:SetCondition(c32912040.condition) + e2:SetTarget(c32912040.target) + e2:SetOperation(c32912040.operation) + c:RegisterEffect(e2) +end +function c32912040.costfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe2) and c:IsAbleToGraveAsCost() +end +function c32912040.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c32912040.costfilter,tp,LOCATION_ONFIELD,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c32912040.costfilter,tp,LOCATION_ONFIELD,0,1,1,nil) + Duel.SendtoGrave(g,REASON_COST) +end +function c32912040.desfilter(c) + return c:IsFacedown() +end +function c32912040.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and c32912040.desfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c32912040.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c32912040.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c32912040.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c32912040.filter(c,tp,code) + return c:IsType(TYPE_FIELD) and c:IsSetCard(0xe2) and c:GetActivateEffect():IsActivatable(tp) and not c:IsCode(code) +end +function c32912040.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp +end +function c32912040.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + if chkc then return false end + if chk==0 then return tc and tc:IsFaceup() and tc:IsSetCard(0xe2) and tc:IsAbleToGrave() and tc:IsCanBeEffectTarget(e) + and Duel.IsExistingMatchingCard(c32912040.filter,tp,LOCATION_DECK,0,1,nil,tp,tc:GetCode()) end + Duel.SetTargetCard(tc) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,tc,1,0,0) +end +function c32912040.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) + local g=Duel.SelectMatchingCard(tp,c32912040.filter,tp,LOCATION_DECK,0,1,1,nil,tp,tc:GetCode()) + if g:GetCount()>0 then + local tc=g:GetFirst() + Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) + local te=tc:GetActivateEffect() + local tep=tc:GetControler() + local cost=te:GetCost() + if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end + Duel.RaiseEvent(tc,EVENT_CHAIN_SOLVED,te,0,tp,tp,Duel.GetCurrentChain()) + end + end +end diff --git a/script/c32933942.lua b/script/c32933942.lua index d5548665..1ea38738 100644 --- a/script/c32933942.lua +++ b/script/c32933942.lua @@ -35,7 +35,7 @@ function c32933942.repop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fc0000) e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) c:RegisterEffect(e1) - Duel.RaiseEvent(c,47408488,e,0,tp,0,0) + Duel.RaiseEvent(c,EVENT_CUSTOM+47408488,e,0,tp,0,0) end function c32933942.rdcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() @@ -44,4 +44,4 @@ function c32933942.rdcon(e,tp,eg,ep,ev,re,r,rp) end function c32933942.rdop(e,tp,eg,ep,ev,re,r,rp) Duel.ChangeBattleDamage(ep,ev/2) -end \ No newline at end of file +end diff --git a/script/c32933944.lua b/script/c32933944.lua deleted file mode 100644 index 9d1cc5cf..00000000 --- a/script/c32933944.lua +++ /dev/null @@ -1,43 +0,0 @@ ---Advanced Crystal Beast Amethyst Cat -function c32933944.initial_effect(c) - --Treated as "Crystal Beast Amethyst Cat" - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_ADD_CODE) - e1:SetValue(32933942) - c:RegisterEffect(e1) - --Direct Attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DIRECT_ATTACK) - c:RegisterEffect(e2) - --Turn into Crystal - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(32933944,0)) - e3:SetCode(EFFECT_SEND_REPLACE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c32933944.crystaltg) - e3:SetOperation(c32933944.crystalop) - c:RegisterEffect(e3) -end -function c32933944.crystaltg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:GetDestination()==LOCATION_GRAVE and c:IsReason(REASON_DESTROY) end - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return false end - return Duel.SelectEffectYesNo(tp,c) -end -function c32933944.crystalop(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(c) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fc0000) - e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) - c:RegisterEffect(e1) - Duel.RaiseEvent(c,47408488,e,0,tp,0,0) -end \ No newline at end of file diff --git a/script/c3298689.lua b/script/c3298689.lua new file mode 100644 index 00000000..74d28209 --- /dev/null +++ b/script/c3298689.lua @@ -0,0 +1,94 @@ +--RUM－幻影騎士団ラウンチ +function c3298689.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCondition(c3298689.condition) + e1:SetTarget(c3298689.target) + e1:SetOperation(c3298689.activate) + c:RegisterEffect(e1) + --material + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(3298689,0)) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_GRAVE) + e2:SetCost(c3298689.matcost) + e2:SetTarget(c3298689.mattg) + e2:SetOperation(c3298689.matop) + c:RegisterEffect(e2) +end +function c3298689.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2 +end +function c3298689.filter1(c,e,tp) + local rk=c:GetRank() + return rk>0 and c:IsFaceup() and c:IsAttribute(ATTRIBUTE_DARK) and c:GetOverlayCount()==0 + and Duel.IsExistingMatchingCard(c3298689.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,c,c:GetRank()+1) +end +function c3298689.filter2(c,e,tp,mc,rk) + if c:GetOriginalCode()==6165656 and mc:GetCode()~=48995978 then return false end + return c:GetRank()==rk and c:IsAttribute(ATTRIBUTE_DARK) and mc:IsCanBeXyzMaterial(c) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) +end +function c3298689.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c3298689.filter1(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingTarget(c3298689.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + local g=Duel.SelectTarget(tp,c3298689.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c3298689.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end + local tc=Duel.GetFirstTarget() + if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c3298689.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc,tc:GetRank()+1) + local sc=g:GetFirst() + if sc then + local mg=tc:GetOverlayGroup() + if mg:GetCount()~=0 then + Duel.Overlay(sc,mg) + end + sc:SetMaterial(Group.FromCards(tc)) + Duel.Overlay(sc,Group.FromCards(tc)) + Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) + sc:CompleteProcedure() + if c:IsRelateToEffect(e) then + c:CancelToGrave() + Duel.Overlay(sc,Group.FromCards(c)) + end + end +end +function c3298689.matcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c3298689.xyzfilter(c) + return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_DARK) and c:IsType(TYPE_XYZ) +end +function c3298689.matfilter(c) + return c:IsSetCard(0x10db) and c:IsType(TYPE_MONSTER) +end +function c3298689.mattg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c3298689.xyzfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c3298689.xyzfilter,tp,LOCATION_MZONE,0,1,nil) + and Duel.IsExistingMatchingCard(c3298689.matfilter,tp,LOCATION_HAND,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c3298689.xyzfilter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c3298689.matop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectMatchingCard(tp,c3298689.matfilter,tp,LOCATION_HAND,0,1,1,nil) + if g:GetCount()>0 then + Duel.Overlay(tc,g) + end + end +end diff --git a/script/c3300267.lua b/script/c3300267.lua index e4c6ef17..70655596 100644 --- a/script/c3300267.lua +++ b/script/c3300267.lua @@ -47,7 +47,7 @@ function c3300267.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c3300267.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c3300267.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c3300267.desfilter(chkc) end @@ -64,7 +64,6 @@ function c3300267.desop(e,tp,eg,ep,ev,re,r,rp) end function c3300267.spfilter(c,e,tp) return c:IsType(TYPE_NORMAL) and c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c3300267.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -75,6 +74,7 @@ function c3300267.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c3300267.spfilter,tp,0x13,0,1,1,nil,e,tp) local tc=g:GetFirst() + if tc and tc:IsHasEffect(EFFECT_NECRO_VALLEY) then return end if tc and Duel.SpecialSummonStep(g:GetFirst(),0,tp,tp,false,false,POS_FACEUP) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) @@ -83,16 +83,8 @@ function c3300267.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) tc:RegisterEffect(e2) Duel.SpecialSummonComplete() - elseif Duel.IsPlayerCanSpecialSummon(tp) then - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_DECK,0) - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ConfirmCards(tp,cg2) - Duel.ShuffleHand(tp) - Duel.ShuffleDeck(tp) end end diff --git a/script/c33017655.lua b/script/c33017655.lua index 25ded194..898bfc90 100644 --- a/script/c33017655.lua +++ b/script/c33017655.lua @@ -16,7 +16,7 @@ function c33017655.initial_effect(c) c:RegisterEffect(e2) --defup local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --discard & draw local e4=Effect.CreateEffect(c) diff --git a/script/c33057951.lua b/script/c33057951.lua index 671f59fd..4cccb62e 100644 --- a/script/c33057951.lua +++ b/script/c33057951.lua @@ -24,6 +24,6 @@ end function c33057951.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c33093439.lua b/script/c33093439.lua index d1710d21..50472b28 100644 --- a/script/c33093439.lua +++ b/script/c33093439.lua @@ -48,7 +48,7 @@ function c33093439.spop(e,tp,eg,ep,ev,re,r,rp,c) e1:SetValue(g:GetCount()*500) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e2) end function c33093439.target(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c33103459.lua b/script/c33103459.lua new file mode 100644 index 00000000..20ab12a8 --- /dev/null +++ b/script/c33103459.lua @@ -0,0 +1,96 @@ +--EMコン +function c33103459.initial_effect(c) + --to hand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(33103459,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCondition(c33103459.thcon) + e1:SetTarget(c33103459.thtg) + e1:SetOperation(c33103459.thop) + c:RegisterEffect(e1) + --lp recover + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(33103459,1)) + e2:SetCategory(CATEGORY_RECOVER) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_GRAVE) + e2:SetCondition(c33103459.lpcon) + e2:SetCost(c33103459.lpcost) + e2:SetTarget(c33103459.lptg) + e2:SetOperation(c33103459.lpop) + c:RegisterEffect(e2) + if not c33103459.global_check then + c33103459.global_check=true + local ge1=Effect.CreateEffect(c) + ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge1:SetCode(EVENT_SUMMON_SUCCESS) + ge1:SetLabel(33103459) + ge1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + ge1:SetOperation(aux.sumreg) + Duel.RegisterEffect(ge1,0) + local ge2=ge1:Clone() + ge2:SetCode(EVENT_SPSUMMON_SUCCESS) + ge2:SetLabel(33103459) + Duel.RegisterEffect(ge2,0) + end +end +function c33103459.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(33103459)~=0 +end +function c33103459.filter(c) + return c:IsFaceup() and c:IsSetCard(0x9f) and c:IsPosition(POS_FACEUP_ATTACK) and c:IsAttackBelow(1000) +end +function c33103459.thfilter(c) + return c:IsSetCard(0x99) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c33103459.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c33103459.filter(chkc) and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingMatchingCard(c33103459.thfilter,tp,LOCATION_DECK,0,1,nil) + and e:GetHandler():IsPosition(POS_FACEUP_ATTACK) + and Duel.IsExistingTarget(c33103459.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end + local g=Duel.SelectTarget(tp,c33103459.filter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c33103459.thop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) and c:IsControler(tp) + and tc:IsRelateToEffect(e) and tc:IsPosition(POS_FACEUP_ATTACK) and tc:IsControler(tp) + and Duel.ChangePosition(Group.FromCards(c,tc),POS_FACEUP_DEFENSE)==2 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c33103459.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end + end +end +function c33103459.cfilter(c) + return c:IsSetCard(0x9f) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() and not c:IsCode(33103459) +end +function c33103459.lpcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp +end +function c33103459.lpcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() + and Duel.IsExistingMatchingCard(c33103459.cfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c33103459.cfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) + g:AddCard(e:GetHandler()) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c33103459.lptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(500) + Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,500) +end +function c33103459.lpop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Recover(p,d,REASON_EFFECT) +end diff --git a/script/c33145233.lua b/script/c33145233.lua old mode 100755 new mode 100644 diff --git a/script/c33184167.lua b/script/c33184167.lua index 7a572a61..9264ace7 100644 --- a/script/c33184167.lua +++ b/script/c33184167.lua @@ -16,7 +16,7 @@ function c33184167.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c33184167.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c33184167.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c33184167.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end @@ -34,7 +34,7 @@ function c33184167.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,dg:GetCount(),0,0) end function c33184167.filter2(c,rc) - return c:IsFaceup() and c:IsRace(rc) and c:IsDestructable() + return c:IsFaceup() and c:IsRace(rc) end function c33184167.operation(e,tp,eg,ep,ev,re,r,rp) local arc=e:GetLabel() diff --git a/script/c33184236.lua b/script/c33184236.lua old mode 100755 new mode 100644 index 2568bab8..573f6c0c --- a/script/c33184236.lua +++ b/script/c33184236.lua @@ -1,34 +1,34 @@ ---カラクリ屋敷 -function c33184236.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_CHANGE_POS) - e1:SetCondition(c33184236.condition) - e1:SetTarget(c33184236.target) - e1:SetOperation(c33184236.activate) - c:RegisterEffect(e1) -end -function c33184236.cfilter(c,tp) - local np=c:GetPosition() - local pp=c:GetPreviousPosition() - return c:IsControler(tp) and c:IsSetCard(0x11) and ((pp==0x1 and np==0x4) or (pp==0x4 and np==0x1)) -end -function c33184236.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c33184236.cfilter,1,nil,tp) -end -function c33184236.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() and chkc~=e:GetHandler() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c33184236.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--カラクリ屋敷 +function c33184236.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_CHANGE_POS) + e1:SetCondition(c33184236.condition) + e1:SetTarget(c33184236.target) + e1:SetOperation(c33184236.activate) + c:RegisterEffect(e1) +end +function c33184236.cfilter(c,tp) + local np=c:GetPosition() + local pp=c:GetPreviousPosition() + return c:IsControler(tp) and c:IsSetCard(0x11) and ((pp==0x1 and np==0x4) or (pp==0x4 and np==0x1)) +end +function c33184236.condition(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c33184236.cfilter,1,nil,tp) +end +function c33184236.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(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c33184236.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c33236860.lua b/script/c33236860.lua index c66a74d8..bd1b6e72 100644 --- a/script/c33236860.lua +++ b/script/c33236860.lua @@ -39,7 +39,7 @@ function c33236860.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.RegisterEffect(e1,tp) end function c33236860.filter(c,atk) - return c:IsFaceup() and c:GetDefence()0 and - Duel.IsExistingMatchingCard(c33244944.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c33244944.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) end function c33244944.activate(e,tp,eg,ep,ev,re,r,rp) @@ -31,7 +31,7 @@ function c33244944.activate(e,tp,eg,ep,ev,re,r,rp) local tg=Duel.SelectMatchingCard(tp,c33244944.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) if tg:GetCount()>0 then local tc=tg:GetFirst() - Duel.SpecialSummon(tc,332449,tp,tp,true,true,POS_FACEUP) + Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP) tc:CompleteProcedure() end end diff --git a/script/c33245030.lua b/script/c33245030.lua old mode 100755 new mode 100644 index 612b64ec..f50407c2 --- a/script/c33245030.lua +++ b/script/c33245030.lua @@ -31,6 +31,6 @@ end function c33245030.operation(e,tp,eg,ep,ev,re,r,rp) local at=Duel.GetAttacker() if at:IsAttackPos() and at:IsRelateToBattle() then - Duel.ChangePosition(at,POS_FACEUP_DEFENCE) + Duel.ChangePosition(at,POS_FACEUP_DEFENSE) end end diff --git a/script/c33256280.lua b/script/c33256280.lua new file mode 100644 index 00000000..94f62f66 --- /dev/null +++ b/script/c33256280.lua @@ -0,0 +1,46 @@ +--メタルフォーゼ・ゴルドライバー +function c33256280.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --destroy and set + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetTarget(c33256280.target) + e1:SetOperation(c33256280.operation) + c:RegisterEffect(e1) +end +function c33256280.desfilter(c,tp) + if c:IsFacedown() then return false end + local ft=Duel.GetLocationCount(tp,LOCATION_SZONE) + if ft==0 and c:IsLocation(LOCATION_SZONE) and c:GetSequence()<5 then + return Duel.IsExistingMatchingCard(c33256280.filter,tp,LOCATION_DECK,0,1,nil,true) + else + return Duel.IsExistingMatchingCard(c33256280.filter,tp,LOCATION_DECK,0,1,nil,false) + end +end +function c33256280.filter(c,ignore) + return c:IsSetCard(0xe1) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable(ignore) +end +function c33256280.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c33256280.desfilter(chkc,tp) and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(c33256280.desfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler(),tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c33256280.desfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler(),tp) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c33256280.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) + local g=Duel.SelectMatchingCard(tp,c33256280.filter,tp,LOCATION_DECK,0,1,1,nil,false) + if g:GetCount()>0 then + Duel.SSet(tp,g:GetFirst()) + Duel.ConfirmCards(1-tp,g) + end + end +end diff --git a/script/c33282498.lua b/script/c33282498.lua new file mode 100644 index 00000000..ae29053c --- /dev/null +++ b/script/c33282498.lua @@ -0,0 +1,82 @@ +--アークブレイブドラゴン +function c33282498.initial_effect(c) + --remove + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_REMOVE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c33282498.condition) + e1:SetTarget(c33282498.target) + e1:SetOperation(c33282498.operation) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetOperation(c33282498.regop) + c:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetRange(LOCATION_GRAVE) + e3:SetCode(EVENT_PHASE+PHASE_STANDBY) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCountLimit(1) + e3:SetCondition(c33282498.spcon) + e3:SetTarget(c33282498.sptg) + e3:SetOperation(c33282498.spop) + c:RegisterEffect(e3) +end +function c33282498.condition(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_GRAVE) +end +function c33282498.filter(c) + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemove() +end +function c33282498.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c33282498.filter,tp,0,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(c33282498.filter,tp,0,LOCATION_ONFIELD,nil) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0) +end +function c33282498.operation(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c33282498.filter,tp,0,LOCATION_ONFIELD,nil) + local ct=Duel.Remove(g,POS_FACEUP,REASON_EFFECT) + local c=e:GetHandler() + if ct>0 and c:IsFaceup() and c:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1ff0000) + e1:SetValue(ct*200) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e2) + end +end +function c33282498.regop(e,tp,eg,ep,ev,re,r,rp) + e:GetHandler():RegisterFlagEffect(33282498,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,2) +end +function c33282498.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:GetTurnID()~=Duel.GetTurnCount() and c:GetFlagEffect(33282498)>0 +end +function c33282498.spfilter(c,e,tp) + return (c:GetLevel()==7 or c:GetLevel()==8) and not c:IsCode(33282498) and c:IsRace(RACE_DRAGON) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c33282498.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c33282498.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c33282498.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c33282498.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c33282498.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c33300669.lua b/script/c33300669.lua new file mode 100644 index 00000000..02cdd4e1 --- /dev/null +++ b/script/c33300669.lua @@ -0,0 +1,63 @@ +--アモルファージ・キャヴム +function c33300669.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --flip + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_FLIP) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetOperation(c33300669.flipop) + c:RegisterEffect(e1) + --maintain + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_PZONE) + e2:SetCountLimit(1) + e2:SetCode(EVENT_PHASE+PHASE_STANDBY) + e2:SetCondition(c33300669.descon) + e2:SetOperation(c33300669.desop) + c:RegisterEffect(e2) + --spsummon limit + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetTargetRange(1,1) + e3:SetTarget(c33300669.sumlimit) + c:RegisterEffect(e3) + --act limit + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e4:SetCode(EVENT_CHAINING) + e4:SetRange(LOCATION_PZONE) + e4:SetOperation(c33300669.chainop) + c:RegisterEffect(e4) +end +function c33300669.flipop(e,tp,eg,ep,ev,re,r,rp) + e:GetHandler():RegisterFlagEffect(33300669,RESET_EVENT+0x1fe0000,0,1) +end +function c33300669.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe0) +end +function c33300669.chainop(e,tp,eg,ep,ev,re,r,rp) + if not Duel.IsExistingMatchingCard(c33300669.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) then return false end + Duel.SetChainLimit(aux.FALSE) +end +function c33300669.descon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c33300669.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) + if Duel.CheckReleaseGroup(tp,Card.IsReleasableByEffect,1,c) and Duel.SelectYesNo(tp,aux.Stringid(33300669,0)) then + local g=Duel.SelectReleaseGroup(tp,Card.IsReleasableByEffect,1,1,c) + Duel.Release(g,REASON_COST) + else Duel.Destroy(c,REASON_COST) end +end +function c33300669.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) + return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0xe0) + and (e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM or e:GetHandler():GetFlagEffect(33300669)~=0) +end diff --git a/script/c33327029.lua b/script/c33327029.lua new file mode 100644 index 00000000..9515123f --- /dev/null +++ b/script/c33327029.lua @@ -0,0 +1,65 @@ +--メタルフォーゼ・カウンター +function c33327029.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_DESTROYED) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e1:SetCondition(c33327029.condition) + e1:SetTarget(c33327029.target) + e1:SetOperation(c33327029.operation) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_GRAVE) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetCondition(aux.exccon) + e2:SetCost(c33327029.thcost) + e2:SetTarget(c33327029.thtg) + e2:SetOperation(c33327029.thop) + c:RegisterEffect(e2) +end +function c33327029.cfilter(c,tp) + return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_ONFIELD) +end +function c33327029.condition(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c33327029.cfilter,1,nil,tp) +end +function c33327029.filter(c,e,tp) + return c:IsSetCard(0xe1) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c33327029.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c33327029.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c33327029.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c33327029.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end +function c33327029.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c33327029.thfilter(c) + return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsSetCard(0xe1) and c:IsAbleToHand() +end +function c33327029.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c33327029.thfilter,tp,LOCATION_EXTRA,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_EXTRA) +end +function c33327029.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c33327029.thfilter,tp,LOCATION_EXTRA,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c33396948.lua b/script/c33396948.lua index b6150410..c6df0b9a 100644 --- a/script/c33396948.lua +++ b/script/c33396948.lua @@ -1,8 +1,9 @@ --封印されしエクゾディア function c33396948.initial_effect(c) + --win local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_DELAY) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_DELAY) e1:SetCode(EVENT_TO_HAND) e1:SetRange(LOCATION_HAND) e1:SetOperation(c33396948.operation) @@ -33,7 +34,7 @@ function c33396948.operation(e,tp,eg,ep,ev,re,r,rp) local g2=Duel.GetFieldGroup(tp,0,LOCATION_HAND) local wtp=c33396948.check(g1) local wntp=c33396948.check(g2) - if wtp and not wntp then + if wtp and not wntp then Duel.ConfirmCards(1-tp,g1) Duel.Win(tp,WIN_REASON_EXODIA) elseif not wtp and wntp then diff --git a/script/c33413279.lua b/script/c33413279.lua index 5f03a1e2..2e9b4c02 100644 --- a/script/c33413279.lua +++ b/script/c33413279.lua @@ -16,11 +16,11 @@ function c33413279.initial_effect(c) c:RegisterEffect(e1) end function c33413279.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3001,2,REASON_COST) end - Duel.RemoveCounter(tp,1,0,0x3001,2,REASON_COST) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x1,2,REASON_COST) end + Duel.RemoveCounter(tp,1,0,0x1,2,REASON_COST) end function c33413279.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c33413279.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c33413279.filter(chkc) end diff --git a/script/c33413638.lua b/script/c33413638.lua old mode 100755 new mode 100644 diff --git a/script/c33423043.lua b/script/c33423043.lua old mode 100755 new mode 100644 diff --git a/script/c33455338.lua b/script/c33455338.lua index 9378e839..992f879c 100644 --- a/script/c33455338.lua +++ b/script/c33455338.lua @@ -31,7 +31,7 @@ function c33455338.atkop(e,tp,eg,ep,ev,re,r,rp) if c:IsRelateToEffect(e) and c:IsFaceup() then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetValue(e:GetLabel()*500) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) c:RegisterEffect(e1) diff --git a/script/c33460840.lua b/script/c33460840.lua new file mode 100644 index 00000000..ae1f2004 --- /dev/null +++ b/script/c33460840.lua @@ -0,0 +1,99 @@ +--巨竜の守護騎士 +function c33460840.initial_effect(c) + --equip + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_EQUIP) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c33460840.eqtg) + e1:SetOperation(c33460840.eqop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_MZONE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCost(c33460840.spcost) + e3:SetTarget(c33460840.sptg) + e3:SetOperation(c33460840.spop) + c:RegisterEffect(e3) +end +function c33460840.filter(c,ec) + return c:IsRace(RACE_DRAGON) and (c:GetLevel()==7 or c:GetLevel()==8) and not c:IsForbidden() +end +function c33460840.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 + and Duel.IsExistingMatchingCard(c33460840.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e:GetHandler()) end + Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) +end +function c33460840.eqop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or c:IsFacedown() or not c:IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + local g=Duel.SelectMatchingCard(tp,c33460840.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,c) + local tc=g:GetFirst() + if not (tc and Duel.Equip(tp,tc,c,true)) then return end + local atk=tc:GetTextAttack()/2 + local def=tc:GetTextDefense()/2 + if atk<0 then atk=0 end + if def<0 then def=0 end + --Add Equip limit + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_EQUIP_LIMIT) + e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(c33460840.eqlimit) + tc:RegisterEffect(e1) + --atk/def + if atk>0 then + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_EQUIP) + e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetReset(RESET_EVENT+0x1fe0000) + e2:SetValue(atk) + tc:RegisterEffect(e2) + end + if def>0 then + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_EQUIP) + e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) + e3:SetReset(RESET_EVENT+0x1fe0000) + e3:SetValue(def) + tc:RegisterEffect(e3) + end +end +function c33460840.eqlimit(e,c) + return e:GetOwner()==c +end +function c33460840.spfilter(c,e,tp) + return c:IsRace(RACE_DRAGON) and (c:GetLevel()==7 or c:GetLevel()==8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c33460840.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:IsReleasable() and Duel.CheckReleaseGroup(tp,nil,1,c) end + local rg=Duel.SelectReleaseGroup(tp,nil,1,1,c) + rg:AddCard(c) + Duel.Release(rg,REASON_COST) +end +function c33460840.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c33460840.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 + and Duel.IsExistingTarget(c33460840.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c33460840.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c33460840.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c33537328.lua b/script/c33537328.lua index 61e59b19..6e5f5391 100644 --- a/script/c33537328.lua +++ b/script/c33537328.lua @@ -1,6 +1,6 @@ --地縛神 Cusillu function c33537328.initial_effect(c) - c:SetUniqueOnField(1,1,10000000) + c:SetUniqueOnField(1,1,10000000,LOCATION_MZONE) -- local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) @@ -40,7 +40,7 @@ function c33537328.sdcon(e) end function c33537328.desreptg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() - if chk==0 then return c:IsReason(REASON_BATTLE) and c:GetBattlePosition()~=POS_FACEUP_DEFENCE + if chk==0 then return c:IsReason(REASON_BATTLE) and c:GetBattlePosition()~=POS_FACEUP_DEFENSE and Duel.CheckReleaseGroup(tp,Card.IsReleasableByEffect,1,c) end if Duel.SelectYesNo(tp,aux.Stringid(33537328,0)) then local g=Duel.SelectReleaseGroup(tp,Card.IsReleasableByEffect,1,1,c) diff --git a/script/c33550694.lua b/script/c33550694.lua index a25d344d..b57b1f1f 100644 --- a/script/c33550694.lua +++ b/script/c33550694.lua @@ -76,14 +76,5 @@ function c33550694.operation(e,tp,eg,ep,ev,re,r,rp) fop(ce,e,tp,tc,mat2) end tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end diff --git a/script/c33551032.lua b/script/c33551032.lua index 5f3f0820..33ee8d8a 100644 --- a/script/c33551032.lua +++ b/script/c33551032.lua @@ -20,11 +20,13 @@ function c33551032.spfilter(c,e,tp) return c:IsSetCard(0x87) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c33551032.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c33551032.spfilter,tp,LOCATION_DECK,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c33551032.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 then return end local g=Duel.GetMatchingGroup(c33551032.spfilter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()<2 then return end diff --git a/script/c33609262.lua b/script/c33609262.lua index 7f6ac5d9..2ad696a9 100644 --- a/script/c33609262.lua +++ b/script/c33609262.lua @@ -12,7 +12,7 @@ function c33609262.initial_effect(c) c:RegisterEffect(e1) end function c33609262.cfilter(c) - return (c:GetAttack()==2400 or c:GetAttack()==2800) and c:GetDefence()==1000 and not c:IsPublic() + return (c:GetAttack()==2400 or c:GetAttack()==2800) and c:GetDefense()==1000 and not c:IsPublic() end function c33609262.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c33609262.cfilter,tp,LOCATION_HAND,0,1,nil) end diff --git a/script/c33622465.lua b/script/c33622465.lua old mode 100755 new mode 100644 index 59ff79c7..1aa41fcf --- a/script/c33622465.lua +++ b/script/c33622465.lua @@ -1,75 +1,69 @@ ---救護部隊 -function c33622465.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c33622465.target) - e1:SetOperation(c33622465.activate) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(33622465,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_DESTROYED) - e2:SetRange(LOCATION_GRAVE) - e2:SetCountLimit(1,33622465) - e2:SetCondition(c33622465.spcon) - e2:SetTarget(c33622465.sptg) - e2:SetOperation(c33622465.spop) - c:RegisterEffect(e2) -end -function c33622465.filter(c) - return c:IsType(TYPE_NORMAL) and c:IsAbleToHand() -end -function c33622465.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c33622465.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c33622465.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c33622465.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c33622465.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end -function c33622465.cfilter(c) - return bit.band(c:GetPreviousTypeOnField(),TYPE_NORMAL)~=0 -end -function c33622465.spcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c33622465.cfilter,1,nil) -end -function c33622465.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,33622465,0,0x11,3,1200,400,RACE_WARRIOR,ATTRIBUTE_EARTH) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c33622465.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - if c:IsRelateToEffect(e) - and Duel.IsPlayerCanSpecialSummonMonster(tp,33622465,0,0x11,3,1200,400,RACE_WARRIOR,ATTRIBUTE_EARTH) then - c:SetStatus(STATUS_NO_LEVEL,false) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(TYPE_NORMAL+TYPE_MONSTER) - e1:SetReset(RESET_EVENT+0x47c0000) - c:RegisterEffect(e1,true) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_DEFENCE) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetReset(RESET_EVENT+0x47e0000) - e2:SetValue(LOCATION_REMOVED) - c:RegisterEffect(e2,true) - end -end +--救護部隊 +function c33622465.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c33622465.target) + e1:SetOperation(c33622465.activate) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(33622465,0)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BATTLE_DESTROYED) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,33622465) + e2:SetCondition(c33622465.spcon) + e2:SetTarget(c33622465.sptg) + e2:SetOperation(c33622465.spop) + c:RegisterEffect(e2) +end +function c33622465.filter(c) + return c:IsType(TYPE_NORMAL) and c:IsAbleToHand() +end +function c33622465.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c33622465.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c33622465.filter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c33622465.filter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c33622465.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c33622465.cfilter(c) + return bit.band(c:GetPreviousTypeOnField(),TYPE_NORMAL)~=0 +end +function c33622465.spcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c33622465.cfilter,1,nil) +end +function c33622465.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsPlayerCanSpecialSummonMonster(tp,33622465,0,0x11,3,1200,400,RACE_WARRIOR,ATTRIBUTE_EARTH) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c33622465.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,33622465,0,0x11,3,1200,400,RACE_WARRIOR,ATTRIBUTE_EARTH) then + c:AddMonsterAttribute(TYPE_NORMAL) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP_DEFENSE) + c:AddMonsterAttributeComplete() + --redirect + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetReset(RESET_EVENT+0x47e0000) + e2:SetValue(LOCATION_REMOVED) + c:RegisterEffect(e2,true) + Duel.SpecialSummonComplete() + end +end diff --git a/script/c33655493.lua b/script/c33655493.lua index f8b099a9..09ea0b16 100644 --- a/script/c33655493.lua +++ b/script/c33655493.lua @@ -8,17 +8,19 @@ function c33655493.initial_effect(c) e1:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET) e1:SetValue(c33655493.tg) c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetTargetRange(0,0xff) - e2:SetValue(c33655493.tglimit) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetTarget(c33655493.tg) + e2:SetValue(c33655493.tgval) c:RegisterEffect(e2) end function c33655493.tg(e,c) return c:IsFaceup() and c:GetCode()~=33655493 end -function c33655493.tglimit(e,re,c) - return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and c:IsControler(e:GetHandlerPlayer()) and c:IsLocation(LOCATION_MZONE) - and c:IsFaceup() and c:GetCode()~=33655493 +function c33655493.tgval(e,re,rp) + return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and rp~=e:GetHandlerPlayer() end diff --git a/script/c33656832.lua b/script/c33656832.lua new file mode 100644 index 00000000..13376840 --- /dev/null +++ b/script/c33656832.lua @@ -0,0 +1,65 @@ +--曲芸の魔術師 +function c33656832.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetRange(LOCATION_PZONE) + e1:SetCode(EVENT_DESTROYED) + e1:SetCountLimit(1,33656832) + e1:SetCondition(c33656832.spcon) + e1:SetTarget(c33656832.sptg) + e1:SetOperation(c33656832.spop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_CHAIN_NEGATED) + e2:SetRange(LOCATION_HAND) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCondition(c33656832.spcon2) + e2:SetTarget(c33656832.sptg) + e2:SetOperation(c33656832.spop) + c:RegisterEffect(e2) + --pendulum set + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_BATTLE_DESTROYED) + e3:SetTarget(c33656832.pentg) + e3:SetOperation(c33656832.penop) + c:RegisterEffect(e3) +end +function c33656832.cfilter(c,tp) + return c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp and c:IsReason(REASON_EFFECT) +end +function c33656832.spcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c33656832.cfilter,1,nil,tp) +end +function c33656832.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c33656832.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c33656832.spcon2(e,tp,eg,ep,ev,re,r,rp) + return re:IsHasType(EFFECT_TYPE_ACTIVATE) +end +function c33656832.pentg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLocation(tp,LOCATION_SZONE,6) or Duel.CheckLocation(tp,LOCATION_SZONE,7) end +end +function c33656832.penop(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():IsRelateToEffect(e) + and (Duel.CheckLocation(tp,LOCATION_SZONE,6) or Duel.CheckLocation(tp,LOCATION_SZONE,7)) then + Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_SZONE,POS_FACEUP,true) + end +end diff --git a/script/c33695750.lua b/script/c33695750.lua index ea3895e9..5fdeb02a 100644 --- a/script/c33695750.lua +++ b/script/c33695750.lua @@ -1,5 +1,6 @@ --デス・モスキート function c33695750.initial_effect(c) + c:EnableCounterPermit(0x27) --summon success local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(33695750,0)) @@ -35,7 +36,7 @@ function c33695750.addct(e,tp,eg,ep,ev,re,r,rp,chk) end function c33695750.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x27+COUNTER_NEED_ENABLE,2) + e:GetHandler():AddCounter(0x27,2) end end function c33695750.attackup(e,c) diff --git a/script/c33698022.lua b/script/c33698022.lua index 2349144c..133ab47f 100644 --- a/script/c33698022.lua +++ b/script/c33698022.lua @@ -14,25 +14,28 @@ function c33698022.initial_effect(c) e1:SetTarget(c33698022.thtg) e1:SetOperation(c33698022.thop) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) + local e2=e1:Clone() e2:SetDescription(aux.Stringid(33698022,1)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1,33698022) - e2:SetCondition(c33698022.thcon) - e2:SetTarget(c33698022.thtg) - e2:SetOperation(c33698022.thop) + e2:SetCode(EVENT_CUSTOM+33698022) c:RegisterEffect(e2) + --event + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c33698022.evcon) + e3:SetOperation(c33698022.evop) + c:RegisterEffect(e3) end function c33698022.cfilter(c,tp) return c:IsFaceup() and c:IsLevelAbove(5) and c:IsControler(tp) end -function c33698022.thcon(e,tp,eg,ep,ev,re,r,rp) +function c33698022.evcon(e,tp,eg,ep,ev,re,r,rp) return not eg:IsContains(e:GetHandler()) and eg:IsExists(c33698022.cfilter,1,nil,1-tp) end +function c33698022.evop(e,tp,eg,ep,ev,re,r,rp) + Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+33698022,re,r,rp,ep,ev) +end function c33698022.filter(c) return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL and c:IsAbleToHand() end diff --git a/script/c33725002.lua b/script/c33725002.lua index 4235bb73..40a2268e 100644 --- a/script/c33725002.lua +++ b/script/c33725002.lua @@ -33,7 +33,7 @@ function c33725002.initial_effect(c) c:RegisterEffect(e3) end function c33725002.spfilter(c,e,tp) - return c:IsSetCard(0x7f) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsSetCard(0x107f) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c33725002.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c33725002.spfilter(chkc,e,tp) end @@ -73,18 +73,19 @@ function c33725002.eqop(e,tp,eg,ep,ev,re,r,rp) e1:SetCode(EFFECT_EQUIP_LIMIT) e1:SetReset(RESET_EVENT+0x1fe0000) e1:SetValue(c33725002.eqlimit) + e1:SetLabelObject(tc) c:RegisterEffect(e1) end function c33725002.eqlimit(e,c) - return c:IsSetCard(0x7f) + return c==e:GetLabelObject() end function c33725002.descost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():GetEquipTarget():CheckRemoveOverlayCard(tp,1,REASON_COST) end e:GetHandler():GetEquipTarget():RemoveOverlayCard(tp,1,1,REASON_COST) end function c33725002.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetCount()*1000) end @@ -103,7 +104,7 @@ function c33725002.desop(e,tp,eg,ep,ev,re,r,rp) e2:SetReset(RESET_EVENT+0x1fe0000) ec:RegisterEffect(e2) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) local ct=Duel.Destroy(g,REASON_EFFECT) if ct>0 then Duel.Damage(1-tp,ct*1000,REASON_EFFECT) diff --git a/script/c33746252.lua b/script/c33746252.lua old mode 100755 new mode 100644 diff --git a/script/c33776734.lua b/script/c33776734.lua index f259583e..c01f112b 100644 --- a/script/c33776734.lua +++ b/script/c33776734.lua @@ -30,11 +30,42 @@ function c33776734.initial_effect(c) e3:SetValue(c33776734.val) c:RegisterEffect(e3) local e4=e3:Clone() - e4:SetCode(EFFECT_SET_DEFENCE) + e4:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e4) + if not c33776734.global_check then + c33776734.global_check=true + local ge1=Effect.CreateEffect(c) + ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + ge1:SetCode(EVENT_CHAINING) + ge1:SetOperation(c33776734.checkop1) + Duel.RegisterEffect(ge1,0) + local ge2=ge1:Clone() + e2:SetCode(EVENT_CHAIN_NEGATED) + e2:SetOperation(c33776734.checkop2) + Duel.RegisterEffect(ge2,0) + end end c33776734.lvupcount=1 c33776734.lvup={33776734} +function c33776734.checkop1(e,tp,eg,ep,ev,re,r,rp) + local tc=eg:GetFirst() + while tc do + if re and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and tc==re:GetHandler() then + tc:RegisterFlagEffect(33776734,RESET_EVENT+0x1fe0000,0,1) + end + tc=eg:GetNext() + end +end +function c33776734.checkop2(e,tp,eg,ep,ev,re,r,rp) + local tc=eg:GetFirst() + while tc do + if re and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and tc==re:GetHandler() then + tc:ResetFlagEffect(33776734) + end + tc=eg:GetNext() + end +end function c33776734.spcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetCurrentChain()>=2 end @@ -45,13 +76,15 @@ function c33776734.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.RegisterFlagEffect(tp,33776734,RESET_CHAIN,0,0) end function c33776734.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c33776734.rmtarget(e,c) - local ty=c:GetOriginalType() - return bit.band(ty,TYPE_SPELL)~=0 and c:IsFaceup() and not c:IsStatus(STATUS_ACTIVATE_DISABLED) + return c:IsFaceup() and c:GetFlagEffect(33776734)>0 end function c33776734.val(e,c) return Duel.GetMatchingGroupCount(Card.IsType,c:GetControler(),0,LOCATION_GRAVE,nil,TYPE_SPELL)*500 diff --git a/script/c33776843.lua b/script/c33776843.lua index 503b60d9..eea7326b 100644 --- a/script/c33776843.lua +++ b/script/c33776843.lua @@ -22,10 +22,10 @@ function c33776843.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c33776843.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c33776843.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c33782437.lua b/script/c33782437.lua old mode 100755 new mode 100644 diff --git a/script/c3381441.lua b/script/c3381441.lua index bcf80615..23149575 100644 --- a/script/c3381441.lua +++ b/script/c3381441.lua @@ -19,7 +19,7 @@ function c3381441.initial_effect(c) --Def local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetRange(LOCATION_MZONE) e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x2e)) diff --git a/script/c33823832.lua b/script/c33823832.lua index cec96658..28022227 100644 --- a/script/c33823832.lua +++ b/script/c33823832.lua @@ -37,8 +37,10 @@ function c33823832.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c33823832.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c33823832.cacon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c33833230.lua b/script/c33833230.lua new file mode 100644 index 00000000..077f6270 --- /dev/null +++ b/script/c33833230.lua @@ -0,0 +1,70 @@ +--EMシール・イール +function c33833230.initial_effect(c) + aux.EnablePendulumAttribute(c) + --Negate effect + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(33833230,0)) + e1:SetCategory(CATEGORY_DISABLE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetTarget(c33833230.distg) + e1:SetOperation(c33833230.disop) + c:RegisterEffect(e1) + --Lock S&T + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(33833230,1)) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetTarget(c33833230.lcktg) + e2:SetOperation(c33833230.lckop) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) +end +function c33833230.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and aux.disfilter1(chkc) end + if chk==0 then return Duel.IsExistingTarget(aux.disfilter1,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,aux.disfilter1,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) +end +function c33833230.disop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + Duel.NegateRelatedChain(tc,RESET_TURN_SET) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + end +end +function c33833230.lcktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and chkc:IsFacedown() end + if chk==0 then return Duel.IsExistingTarget(Card.IsFacedown,tp,0,LOCATION_SZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWN) + Duel.SelectTarget(tp,Card.IsFacedown,tp,0,LOCATION_SZONE,1,1,nil) + Duel.SetChainLimit(aux.FALSE) +end +function c33833230.lckop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_TRIGGER) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(1) + tc:RegisterEffect(e1) + end +end diff --git a/script/c33846209.lua b/script/c33846209.lua index 1e1632fe..3ed83592 100644 --- a/script/c33846209.lua +++ b/script/c33846209.lua @@ -30,10 +30,10 @@ function c33846209.costfilter(c,e,dg) return dg:GetCount()-a>=1 end function c33846209.tgfilter(c,e) - return c:IsDestructable() and c:IsCanBeEffectTarget(e) + return c:IsCanBeEffectTarget(e) end function c33846209.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() and chkc~=e:GetHandler() end + if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end if chk==0 then if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return false end if e:GetLabel()==1 then @@ -43,7 +43,7 @@ function c33846209.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local res=rg:IsExists(c33846209.costfilter,1,e:GetHandler(),e,dg) return res else - return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) + return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end end if e:GetLabel()==1 then @@ -55,7 +55,7 @@ function c33846209.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.Release(sg,REASON_COST) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) end diff --git a/script/c33875961.lua b/script/c33875961.lua index ce2d8c7d..f87a8e6f 100644 --- a/script/c33875961.lua +++ b/script/c33875961.lua @@ -1,6 +1,6 @@ --ダーク・カタパルター function c33875961.initial_effect(c) - c:EnableCounterPermit(0x3028) + c:EnableCounterPermit(0x28) --counter local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(33875961,0)) @@ -26,30 +26,30 @@ function c33875961.initial_effect(c) c:RegisterEffect(e2) end function c33875961.addccon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp and e:GetHandler():IsDefencePos() + return Duel.GetTurnPlayer()==tp and e:GetHandler():IsDefensePos() end function c33875961.addct(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x3028) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x28) end function c33875961.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x3028,1) + e:GetHandler():AddCounter(0x28,1) end end function c33875961.descost(e,tp,eg,ep,ev,re,r,rp,chk) - local ct=e:GetHandler():GetCounter(0x3028) + local ct=e:GetHandler():GetCounter(0x28) if chk==0 then return ct>0 and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,ct,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_GRAVE,0,ct,ct,nil) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c33875961.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c33875961.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c33875961.filter(chkc) end - local ct=e:GetHandler():GetCounter(0x3028) + local ct=e:GetHandler():GetCounter(0x28) if chk==0 then return Duel.IsExistingTarget(c33875961.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,ct,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local g=Duel.SelectTarget(tp,c33875961.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,ct,ct,nil) @@ -60,6 +60,6 @@ function c33875961.desop(e,tp,eg,ep,ev,re,r,rp) if g:FilterCount(Card.IsRelateToEffect,nil,e)==g:GetCount() then Duel.Destroy(g,REASON_EFFECT) end - local ct=e:GetHandler():GetCounter(0x3028) - e:GetHandler():RemoveCounter(tp,0x3028,ct,REASON_EFFECT) + local ct=e:GetHandler():GetCounter(0x28) + e:GetHandler():RemoveCounter(tp,0x28,ct,REASON_EFFECT) end diff --git a/script/c33883834.lua b/script/c33883834.lua index 5484a214..f04da6e0 100644 --- a/script/c33883834.lua +++ b/script/c33883834.lua @@ -4,7 +4,7 @@ function c33883834.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(33883834,0)) e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetRange(LOCATION_HAND) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetCondition(c33883834.con) diff --git a/script/c33900648.lua b/script/c33900648.lua index e53449d4..c9b0df91 100644 --- a/script/c33900648.lua +++ b/script/c33900648.lua @@ -101,10 +101,10 @@ function c33900648.mtcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c33900648.mtop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLP(tp)>500 and Duel.SelectYesNo(tp,aux.Stringid(33900648,0)) then + if Duel.CheckLPCost(tp,500) and Duel.SelectYesNo(tp,aux.Stringid(33900648,0)) then Duel.PayLPCost(tp,500) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end c33900648[0]=0 @@ -142,7 +142,7 @@ function c33900648.descon(e,tp,eg,ep,ev,re,r,rp) return bit.band(c33900648[Duel.GetTurnPlayer()],ATTRIBUTE_EARTH)~=0 end function c33900648.desfilter(c) - return c:IsPosition(POS_FACEUP_DEFENCE) and c:IsDestructable() + return c:IsPosition(POS_FACEUP_DEFENSE) end function c33900648.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local turnp=Duel.GetTurnPlayer() @@ -158,7 +158,7 @@ function c33900648.desop(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end if bit.band(c33900648[Duel.GetTurnPlayer()],ATTRIBUTE_EARTH)==0 then return end local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and tc:IsPosition(POS_FACEUP_DEFENCE) then + if tc and tc:IsRelateToEffect(e) and tc:IsPosition(POS_FACEUP_DEFENSE) then Duel.Destroy(tc,REASON_EFFECT) end end diff --git a/script/c33904024.lua b/script/c33904024.lua index d48e685c..69f8a809 100644 --- a/script/c33904024.lua +++ b/script/c33904024.lua @@ -1,5 +1,6 @@ --強欲なカケラ function c33904024.initial_effect(c) + c:EnableCounterPermit(0xd) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -26,7 +27,7 @@ function c33904024.initial_effect(c) end function c33904024.ctop(e,tp,eg,ep,ev,re,r,rp) if ep==tp and r==REASON_RULE then - e:GetHandler():AddCounter(0xd+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0xd,1) end end function c33904024.drcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c33909817.lua b/script/c33909817.lua old mode 100755 new mode 100644 diff --git a/script/c33911264.lua b/script/c33911264.lua index 8a3ed4d4..60705e3a 100644 --- a/script/c33911264.lua +++ b/script/c33911264.lua @@ -37,7 +37,7 @@ function c33911264.spop(e,tp,eg,ep,ev,re,r,rp,c) e1:SetReset(RESET_EVENT+0xff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) e2:SetValue(1200) c:RegisterEffect(e2) end diff --git a/script/c33950246.lua b/script/c33950246.lua old mode 100755 new mode 100644 diff --git a/script/c33972299.lua b/script/c33972299.lua index 3de505a1..341811d3 100644 --- a/script/c33972299.lua +++ b/script/c33972299.lua @@ -15,15 +15,10 @@ function c33972299.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_SET_BASE_ATTACK) + e2:SetCode(EFFECT_SWAP_BASE_AD) e2:SetRange(LOCATION_MZONE) e2:SetCondition(c33972299.valcon) - e2:SetValue(2800) c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_SET_BASE_DEFENCE) - e3:SetValue(1800) - c:RegisterEffect(e3) end function c33972299.valcon(e) return e:GetHandler():GetFlagEffect(33972299)~=0 diff --git a/script/c33977496.lua b/script/c33977496.lua index 73d9e8fd..549592b1 100644 --- a/script/c33977496.lua +++ b/script/c33977496.lua @@ -12,8 +12,8 @@ function c33977496.initial_effect(c) c:RegisterEffect(e1) end function c33977496.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==e:GetHandler() and e:GetHandler():IsDefencePos() - and Duel.GetAttacker():GetAttack()0 and Duel.SendtoDeck(g,nil,1,REASON_EFFECT)>0 then - Duel.ConfirmCards(1-tp,g) Duel.Draw(tp,1,REASON_EFFECT) end end diff --git a/script/c34004470.lua b/script/c34004470.lua index 928380ee..bed3f2e7 100644 --- a/script/c34004470.lua +++ b/script/c34004470.lua @@ -1,4 +1,4 @@ ---Ｔｈｅ　ｂｉｇ　ＳＡＴＵＲＮ +--The big SATURN function c34004470.initial_effect(c) --cannot special summon local e1=Effect.CreateEffect(c) @@ -58,6 +58,7 @@ function c34004470.damtg(e,tp,eg,ep,ev,re,r,rp,chk) end function c34004470.damop(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) - Duel.Damage(1-tp,d,REASON_EFFECT) - Duel.Damage(tp,d,REASON_EFFECT) + Duel.Damage(1-tp,d,REASON_EFFECT,true) + Duel.Damage(tp,d,REASON_EFFECT,true) + Duel.RDComplete() end diff --git a/script/c34029630.lua b/script/c34029630.lua index d9deb0d9..4da4da15 100644 --- a/script/c34029630.lua +++ b/script/c34029630.lua @@ -3,7 +3,7 @@ function c34029630.initial_effect(c) --counter permit local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_COUNTER_PERMIT+0x3001) + e1:SetCode(EFFECT_COUNTER_PERMIT+0x1) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetCondition(c34029630.ctpermit) c:RegisterEffect(e1) @@ -43,16 +43,16 @@ function c34029630.ctpermit(e) end function c34029630.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c34029630.filter(chkc) end - if chk==0 then return true end local c=e:GetHandler() - c:AddCounter(0x3001,3) - if Duel.GetTurnPlayer()==tp and c:IsCanRemoveCounter(tp,0x3001,1,REASON_EFFECT) - and Duel.IsExistingTarget(c34029630.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) + if chk==0 then return Duel.IsCanAddCounter(tp,0x1,3,c) end + c:AddCounter(0x1,3) + if Duel.GetTurnPlayer()==tp and c:IsCanRemoveCounter(tp,0x1,1,REASON_EFFECT) + and Duel.IsExistingTarget(c34029630.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) and Duel.SelectYesNo(tp,aux.Stringid(34029630,0)) then e:SetProperty(EFFECT_FLAG_CARD_TARGET) Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(34029630,2)) - Duel.SelectTarget(tp,c34029630.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) - e:GetHandler():RegisterFlagEffect(34029630,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) + Duel.SelectTarget(tp,c34029630.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,c) + c:RegisterFlagEffect(34029630,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) else e:SetProperty(0) end @@ -61,24 +61,24 @@ function c34029630.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if not c:IsRelateToEffect(e) then return end local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and c:IsCanRemoveCounter(tp,0x3001,1,REASON_EFFECT) and tc:IsCanAddCounter(0x3001,1) then - c:RemoveCounter(tp,0x3001,1,REASON_EFFECT) - tc:AddCounter(0x3001,1) + if tc and tc:IsRelateToEffect(e) and c:IsCanRemoveCounter(tp,0x1,1,REASON_EFFECT) and tc:IsCanAddCounter(0x1,1) then + c:RemoveCounter(tp,0x1,1,REASON_EFFECT) + tc:AddCounter(0x1,1) end end function c34029630.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c34029630.filter(c) - return c:IsFaceup() and c:IsCanAddCounter(0x3001,1) + return c:IsFaceup() and c:IsCanAddCounter(0x1,1) end function c34029630.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c34029630.filter(chkc) end - if chk==0 then return e:GetHandler():GetFlagEffect(34029630)==0 and e:GetHandler():IsCanRemoveCounter(tp,0x3001,1,REASON_EFFECT) + if chk==0 then return e:GetHandler():GetFlagEffect(34029630)==0 and e:GetHandler():IsCanRemoveCounter(tp,0x1,1,REASON_EFFECT) and Duel.IsExistingTarget(c34029630.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(34029630,2)) Duel.SelectTarget(tp,c34029630.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) end function c34029630.descon(e) - return e:GetHandler():GetCounter(0x3001)==0 + return e:GetHandler():GetCounter(0x1)==0 end \ No newline at end of file diff --git a/script/c3405259.lua b/script/c3405259.lua new file mode 100644 index 00000000..36918096 --- /dev/null +++ b/script/c3405259.lua @@ -0,0 +1,120 @@ +--C－クラッシュ・ワイバーン +function c3405259.initial_effect(c) + --equip + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(3405259,0)) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCategory(CATEGORY_EQUIP) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetTarget(c3405259.eqtg) + e1:SetOperation(c3405259.eqop) + c:RegisterEffect(e1) + --unequip + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(3405259,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_SZONE) + e2:SetTarget(c3405259.sptg) + e2:SetOperation(c3405259.spop) + c:RegisterEffect(e2) + --destroy sub + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_EQUIP) + e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e3:SetCode(EFFECT_DESTROY_SUBSTITUTE) + e3:SetValue(c3405259.repval) + c:RegisterEffect(e3) + --immune + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_EQUIP) + e4:SetCode(EFFECT_IMMUNE_EFFECT) + e4:SetValue(c3405259.efilter) + c:RegisterEffect(e4) + --spsummon + local e5=Effect.CreateEffect(c) + e5:SetCategory(CATEGORY_SPECIAL_SUMMON) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e5:SetProperty(EFFECT_FLAG_DELAY) + e5:SetCode(EVENT_TO_GRAVE) + e5:SetCondition(c3405259.spcon2) + e5:SetTarget(c3405259.sptg2) + e5:SetOperation(c3405259.spop2) + c:RegisterEffect(e5) + --eqlimit + local e6=Effect.CreateEffect(c) + e6:SetType(EFFECT_TYPE_SINGLE) + e6:SetCode(EFFECT_EQUIP_LIMIT) + e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e6:SetValue(c3405259.eqlimit) + c:RegisterEffect(e6) +end +function c3405259.filter(c) + return c:IsFaceup() and c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT) +end +function c3405259.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local c=e:GetHandler() + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c3405259.filter(chkc) end + if chk==0 then return e:GetHandler():GetFlagEffect(3405259)==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 + and Duel.IsExistingTarget(c3405259.filter,tp,LOCATION_MZONE,0,1,c) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + local g=Duel.SelectTarget(tp,c3405259.filter,tp,LOCATION_MZONE,0,1,1,c) + Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) + c:RegisterFlagEffect(3405259,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) +end +function c3405259.eqop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end + if not tc:IsRelateToEffect(e) or not c3405259.filter(tc) then + Duel.SendtoGrave(c,REASON_EFFECT) + return + end + if not Duel.Equip(tp,c,tc,false) then return end + c:SetStatus(STATUS_UNION,true) +end +function c3405259.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:GetFlagEffect(3405259)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) + c:RegisterFlagEffect(3405259,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) +end +function c3405259.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c3405259.repval(e,re,r,rp) + return bit.band(r,REASON_BATTLE)~=0 or bit.band(r,REASON_EFFECT)~=0 +end +function c3405259.efilter(e,te) + return te:GetOwnerPlayer()~=e:GetHandlerPlayer() and te:GetOwner()~=e:GetOwner() + and te:IsActiveType(TYPE_TRAP) +end +function c3405259.spcon2(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) +end +function c3405259.spfilter(c,e,tp) + return c:IsType(TYPE_UNION) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c3405259.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c3405259.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c3405259.spop2(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c3405259.spfilter,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 +function c3405259.eqlimit(e,c) + return (c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT)) or e:GetHandler():GetEquipTarget()==c +end diff --git a/script/c34079868.lua b/script/c34079868.lua new file mode 100644 index 00000000..d00c4f14 --- /dev/null +++ b/script/c34079868.lua @@ -0,0 +1,107 @@ +--真竜剣士マスターP +function c34079868.initial_effect(c) + c:EnableReviveLimit() + --special summon condition + local e0=Effect.CreateEffect(c) + e0:SetType(EFFECT_TYPE_SINGLE) + e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e0:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e0) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c34079868.spcon) + e1:SetOperation(c34079868.spop) + c:RegisterEffect(e1) + --Negate + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(34079868,0)) + e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_CHAINING) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCondition(c34079868.discon) + e2:SetTarget(c34079868.distg) + e2:SetOperation(c34079868.disop) + c:RegisterEffect(e2) + --summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(34079868,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) + e3:SetCode(EVENT_DESTROYED) + e3:SetCondition(c34079868.condition) + e3:SetTarget(c34079868.target) + e3:SetOperation(c34079868.operation) + c:RegisterEffect(e3) +end +function c34079868.rfilter(c,tp) + return c:IsSetCard(0xc7) and Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,c,0xda) +end +function c34079868.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 + and Duel.CheckReleaseGroup(tp,c34079868.rfilter,1,nil,tp) +end +function c34079868.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local g1=Duel.SelectReleaseGroup(tp,c34079868.rfilter,1,1,nil,tp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local g2=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,g1:GetFirst(),0xda) + g1:Merge(g2) + Duel.Release(g1,REASON_COST) +end +function c34079868.discon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end + return Duel.IsChainNegatable(ev) +end +function c34079868.distg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end +end +function c34079868.disop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + if re:GetHandler():IsRelateToEffect(re) then + Duel.Destroy(eg,REASON_EFFECT) + end +end +function c34079868.condition(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return rp==1-tp and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_ONFIELD) +end +function c34079868.spfilter1(c,e,tp) + return c:IsSetCard(0xc7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.IsExistingMatchingCard(c34079868.spfilter2,tp,LOCATION_DECK,0,1,c,e,tp) +end +function c34079868.spfilter2(c,e,tp) + return c:IsSetCard(0xda) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c34079868.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.IsExistingMatchingCard(c34079868.spfilter1,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) +end +function c34079868.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 + or Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g1=Duel.SelectMatchingCard(tp,c34079868.spfilter1,tp,LOCATION_DECK,0,1,1,nil,e,tp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g2=Duel.SelectMatchingCard(tp,c34079868.spfilter2,tp,LOCATION_DECK,0,1,1,g1:GetFirst(),e,tp) + g1:Merge(g2) + if g1:GetCount()==2 then + Duel.SpecialSummon(g1,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c34086406.lua b/script/c34086406.lua old mode 100755 new mode 100644 index b53b20d2..9799f2bb --- a/script/c34086406.lua +++ b/script/c34086406.lua @@ -32,7 +32,7 @@ function c34086406.cost(e,tp,eg,ep,ev,re,r,rp,chk) end function c34086406.target1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,0,1,tp,LOCATION_DECK) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) end function c34086406.target2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_DECK,0,1,nil,TYPE_MONSTER) diff --git a/script/c34103656.lua b/script/c34103656.lua index fc5ea921..519fddb6 100644 --- a/script/c34103656.lua +++ b/script/c34103656.lua @@ -15,7 +15,7 @@ function c34103656.initial_effect(c) e2:SetValue(200) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --lv local e4=Effect.CreateEffect(c) diff --git a/script/c34124316.lua b/script/c34124316.lua index 2eb85f57..8d7b126c 100644 --- a/script/c34124316.lua +++ b/script/c34124316.lua @@ -10,11 +10,11 @@ function c34124316.initial_effect(c) end function c34124316.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c34124316.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.Destroy(g,REASON_EFFECT) local g1=Duel.GetDecktopGroup(tp,5) local g2=Duel.GetDecktopGroup(1-tp,5) @@ -26,7 +26,7 @@ function c34124316.operation(e,tp,eg,ep,ev,re,r,rp) local lv=tc:GetLevel() local pos=0 if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) then pos=pos+POS_FACEUP_ATTACK end - if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENCE) then pos=pos+POS_FACEDOWN_DEFENCE end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) then pos=pos+POS_FACEDOWN_DEFENSE end if lv>0 and lv<=4 and pos~=0 then Duel.DisableShuffleCheck() Duel.SpecialSummonStep(tc,0,tp,tp,false,false,pos) @@ -41,7 +41,7 @@ function c34124316.operation(e,tp,eg,ep,ev,re,r,rp) local lv=tc:GetLevel() local pos=0 if tc:IsCanBeSpecialSummoned(e,0,1-tp,false,false,POS_FACEUP_ATTACK) then pos=pos+POS_FACEUP_ATTACK end - if tc:IsCanBeSpecialSummoned(e,0,1-tp,false,false,POS_FACEDOWN_DEFENCE) then pos=pos+POS_FACEDOWN_DEFENCE end + if tc:IsCanBeSpecialSummoned(e,0,1-tp,false,false,POS_FACEDOWN_DEFENSE) then pos=pos+POS_FACEDOWN_DEFENSE end if lv>0 and lv<=4 and pos~=0 then Duel.DisableShuffleCheck() Duel.SpecialSummonStep(tc,0,1-tp,1-tp,false,false,pos) diff --git a/script/c34230233.lua b/script/c34230233.lua index 979fab44..1904d668 100644 --- a/script/c34230233.lua +++ b/script/c34230233.lua @@ -38,10 +38,10 @@ function c34230233.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsPreviousLocation(LOCATION_HAND) and bit.band(r,0x4040)==0x4040 end function c34230233.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) if rp==tp then e:SetCategory(CATEGORY_DESTROY) else e:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) end diff --git a/script/c34251483.lua b/script/c34251483.lua index ee7da982..b5ab13c4 100644 --- a/script/c34251483.lua +++ b/script/c34251483.lua @@ -5,7 +5,7 @@ function c34251483.initial_effect(c) e1:SetCode(EVENT_ATTACK_ANNOUNCE) e1:SetOperation(c34251483.atkop) c:RegisterEffect(e1) - --to defence + --to defense local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -34,7 +34,7 @@ end function c34251483.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c3428069.lua b/script/c3428069.lua index 1d8287e8..5dbea0f5 100644 --- a/script/c3428069.lua +++ b/script/c3428069.lua @@ -33,7 +33,7 @@ function c3428069.initial_effect(c) end function c3428069.filter(c,e,tp) return c:IsType(TYPE_MONSTER) and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==1-tp - and c:IsLocation(LOCATION_GRAVE) and c:IsReason(REASON_EFFECT+REASON_BATTLE) and c:IsCanBeEffectTarget(e) + and c:IsLocation(LOCATION_GRAVE) and c:IsReason(REASON_EFFECT+REASON_BATTLE) and c:IsCanBeEffectTarget(e) and not c:IsForbidden() end function c3428069.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return eg:IsContains(chkc) and c3428069.filter(chkc,e,tp) end @@ -71,7 +71,7 @@ function c3428069.tgfilter(c,tp) and Duel.IsExistingMatchingCard(c3428069.desfilter,tp,0,LOCATION_MZONE,1,nil,c:GetRace()) end function c3428069.desfilter(c,rc) - return c:IsFaceup() and c:IsRace(rc) and c:IsDestructable() + return c:IsFaceup() and c:IsRace(rc) end function c3428069.descost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():GetEquipGroup():IsExists(c3428069.tgfilter,1,nil,tp) end diff --git a/script/c3429238.lua b/script/c3429238.lua index 3720bf48..43665d2d 100644 --- a/script/c3429238.lua +++ b/script/c3429238.lua @@ -87,16 +87,21 @@ function c3429238.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c3429238.filter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c3429238.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) and Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)>0 then + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c3429238.filter,tp,LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c34318086.lua b/script/c34318086.lua new file mode 100644 index 00000000..296dbcde --- /dev/null +++ b/script/c34318086.lua @@ -0,0 +1,86 @@ +--レモン・マジシャン・ガール +function c34318086.initial_effect(c) + --search + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(34318086,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCost(c34318086.thcost) + e1:SetTarget(c34318086.thtg) + e1:SetOperation(c34318086.thop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(34318086,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_BE_BATTLE_TARGET) + e2:SetCountLimit(1) + e2:SetTarget(c34318086.sptg) + e2:SetOperation(c34318086.spop) + c:RegisterEffect(e2) +end +function c34318086.cfilter(c) + return c:IsSetCard(0x20a2) and not c:IsCode(34318086) +end +function c34318086.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,c34318086.cfilter,1,nil) end + local g=Duel.SelectReleaseGroup(tp,c34318086.cfilter,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c34318086.filter(c) + return c:IsRace(RACE_SPELLCASTER) and c:IsAbleToHand() +end +function c34318086.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c34318086.filter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c34318086.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c34318086.filter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c34318086.spfilter(c,e,tp) + return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c34318086.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c34318086.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c34318086.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c34318086.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp) + local tc=g:GetFirst() + if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2) + Duel.SpecialSummonComplete() + local at=Duel.GetAttacker() + if at and not at:IsImmuneToEffect(e) and Duel.ChangeAttackTarget(tc) then + Duel.BreakEffect() + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_SET_ATTACK_FINAL) + e3:SetReset(RESET_EVENT+0x1fe0000) + e3:SetValue(math.ceil(at:GetAttack()/2)) + at:RegisterEffect(e3) + end + end +end diff --git a/script/c34325937.lua b/script/c34325937.lua new file mode 100644 index 00000000..e670a311 --- /dev/null +++ b/script/c34325937.lua @@ -0,0 +1,118 @@ +--方界合神 +function c34325937.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(34325937,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c34325937.target) + e1:SetOperation(c34325937.activate) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(34325937,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_LEAVE_FIELD) + e2:SetRange(LOCATION_GRAVE) + e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) + e2:SetCondition(c34325937.spcon) + e2:SetCost(c34325937.spcost) + e2:SetTarget(c34325937.sptg) + e2:SetOperation(c34325937.spop) + c:RegisterEffect(e2) +end +function c34325937.filter1(c,e) + return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) +end +function c34325937.filter2(c,e,tp,m,f,chkf) + return c:IsType(TYPE_FUSION) and c:IsSetCard(0xe3) and (not f or f(c)) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) +end +function c34325937.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_HAND+LOCATION_MZONE,0,nil) + local res=Duel.IsExistingMatchingCard(c34325937.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) + if not res then + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + local mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + res=Duel.IsExistingMatchingCard(c34325937.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) + end + end + return res + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c34325937.activate(e,tp,eg,ep,ev,re,r,rp) + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(c34325937.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) + local sg1=Duel.GetMatchingGroup(c34325937.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) + local mg2=nil + local sg2=nil + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + sg2=Duel.GetMatchingGroup(c34325937.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) + end + if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then + local sg=sg1:Clone() + if sg2 then sg:Merge(sg2) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=sg:Select(tp,1,1,nil) + local tc=tg:GetFirst() + if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then + local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) + tc:SetMaterial(mat1) + Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) + else + local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) + local fop=ce:GetOperation() + fop(ce,e,tp,tc,mat2) + end + tc:CompleteProcedure() + end +end +function c34325937.cfilter(c) + return c:IsPreviousSetCard(0xe3) and c:IsPreviousLocation(LOCATION_MZONE) + and c:IsPreviousPosition(POS_FACEUP) +end +function c34325937.spcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c34325937.cfilter,1,nil) +end +function c34325937.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c34325937.spfilter(c,e,tp) + return c:IsSetCard(0xe3) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) +end +function c34325937.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c34325937.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) +end +function c34325937.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c34325937.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP)~=0 then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetValue(1) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + g:GetFirst():RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + g:GetFirst():RegisterEffect(e2) + end +end diff --git a/script/c34351849.lua b/script/c34351849.lua index 121a76de..d888fd4e 100644 --- a/script/c34351849.lua +++ b/script/c34351849.lua @@ -15,7 +15,7 @@ function c34351849.condition(e,tp,eg,ep,ev,re,r,rp) return d and d:IsFaceup() and d:IsControler(tp) and d:IsSetCard(0x12) end function c34351849.filter(c) - return c:IsAttackPos() and c:IsDestructable() + return c:IsAttackPos() end function c34351849.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c34351849.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c34358408.lua b/script/c34358408.lua old mode 100755 new mode 100644 diff --git a/script/c34370473.lua b/script/c34370473.lua index e7ba115a..26311fb4 100644 --- a/script/c34370473.lua +++ b/script/c34370473.lua @@ -10,7 +10,7 @@ function c34370473.initial_effect(c) c:RegisterEffect(e1) end function c34370473.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c34370473.target(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() diff --git a/script/c34379489.lua b/script/c34379489.lua new file mode 100644 index 00000000..0cc2c6b2 --- /dev/null +++ b/script/c34379489.lua @@ -0,0 +1,52 @@ +--EMバブルドッグ +function c34379489.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --destroy replace + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_DESTROY_REPLACE) + e2:SetRange(LOCATION_PZONE) + e2:SetTarget(c34379489.reptg) + e2:SetValue(c34379489.repval) + e2:SetOperation(c34379489.repop) + c:RegisterEffect(e2) + --Indes + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetCondition(c34379489.condition) + e3:SetOperation(c34379489.operation) + c:RegisterEffect(e3) +end +function c34379489.filter(c,tp) + return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) + and not c:IsType(TYPE_PENDULUM) and c:GetSummonLocation()==LOCATION_EXTRA + and c:IsReason(REASON_BATTLE+REASON_EFFECT) and not c:IsReason(REASON_REPLACE) +end +function c34379489.reptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return eg:IsExists(c34379489.filter,1,nil,tp) and not e:GetHandler():IsStatus(STATUS_DESTROY_CONFIRMED) end + return Duel.SelectYesNo(tp,aux.Stringid(34379489,0)) +end +function c34379489.repval(e,c) + return c34379489.filter(c,e:GetHandlerPlayer()) +end +function c34379489.repop(e,tp,eg,ep,ev,re,r,rp) + Duel.Destroy(e:GetHandler(),REASON_EFFECT+REASON_REPLACE) +end +function c34379489.condition(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_EXTRA) +end +function c34379489.operation(e,tp,eg,ep,ev,re,r,rp) + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetTarget(c34379489.indtg) + e2:SetReset(RESET_PHASE+PHASE_END) + e2:SetValue(1) + Duel.RegisterEffect(e2,tp) +end +function c34379489.indtg(e,c) + return c:IsType(TYPE_PENDULUM) and c:GetSummonLocation()==LOCATION_EXTRA +end diff --git a/script/c34449261.lua b/script/c34449261.lua new file mode 100644 index 00000000..b44ad9e7 --- /dev/null +++ b/script/c34449261.lua @@ -0,0 +1,53 @@ +--融合死円舞曲 +function c34449261.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c34449261.target) + e1:SetOperation(c34449261.activate) + c:RegisterEffect(e1) +end +function c34449261.filter1(c,tp) + return c:IsFaceup() and c:IsType(TYPE_FUSION) and c:IsSetCard(0xad) + and Duel.IsExistingTarget(c34449261.filter2,tp,0,LOCATION_MZONE,1,nil,tp,c) +end +function c34449261.filter2(c,tp,tc) + local tg=Group.FromCards(c,tc) + return c:IsFaceup() and c:IsType(TYPE_FUSION) + and Duel.IsExistingMatchingCard(c34449261.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,tg) +end +function c34449261.desfilter(c,tg) + return not tg:IsContains(c) and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c34449261.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.IsExistingTarget(c34449261.filter1,tp,LOCATION_MZONE,0,1,nil,tp) end + local g1=Duel.SelectTarget(tp,c34449261.filter1,tp,LOCATION_MZONE,0,1,1,nil,tp) + local g2=Duel.SelectTarget(tp,c34449261.filter2,tp,0,LOCATION_MZONE,1,1,nil,tp,g1:GetFirst()) + g1:Merge(g2) + local g=Duel.GetMatchingGroup(c34449261.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,g1) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) + local dam=g1:GetSum(Card.GetAttack) + if g:FilterCount(Card.IsControler,nil,1-tp)==0 then + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,dam) + elseif g:FilterCount(Card.IsControler,nil,tp)==0 then + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) + else + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,dam) + end +end +function c34449261.activate(e,tp,eg,ep,ev,re,r,rp) + local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + local dam=tg:Filter(Card.IsFaceup,nil):GetSum(Card.GetAttack) + local g=Duel.GetMatchingGroup(c34449261.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tg) + if g:GetCount()>0 and Duel.Destroy(g,REASON_EFFECT)~=0 and dam>0 then + local dg=Duel.GetOperatedGroup() + Duel.BreakEffect() + if dg:IsExists(aux.FilterEqualFunction(Card.GetPreviousControler,tp),1,nil) then Duel.Damage(tp,dam,REASON_EFFECT,true) end + if dg:IsExists(aux.FilterEqualFunction(Card.GetPreviousControler,1-tp),1,nil) then Duel.Damage(1-tp,dam,REASON_EFFECT,true) end + Duel.RDComplete() + end +end diff --git a/script/c34460239.lua b/script/c34460239.lua old mode 100755 new mode 100644 index 907b5223..ae78b907 --- a/script/c34460239.lua +++ b/script/c34460239.lua @@ -11,7 +11,7 @@ function c34460239.initial_effect(c) c:RegisterEffect(e1) end function c34460239.filter(c,tp) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() and Duel.IsExistingMatchingCard(c34460239.nfilter1,tp,LOCATION_DECK,0,1,nil,c) end function c34460239.nfilter1(c,tc) diff --git a/script/c34471458.lua b/script/c34471458.lua index 0eb6f393..e3797517 100644 --- a/script/c34471458.lua +++ b/script/c34471458.lua @@ -9,7 +9,7 @@ function c34471458.initial_effect(c) e1:SetValue(c34471458.value) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e2) --level up local e3=Effect.CreateEffect(c) diff --git a/script/c34475451.lua b/script/c34475451.lua index 4d625a9e..bd08b364 100644 --- a/script/c34475451.lua +++ b/script/c34475451.lua @@ -29,6 +29,7 @@ function c34475451.operation(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetValue(1) e1:SetReset(RESET_PHASE+PHASE_DAMAGE) c:RegisterEffect(e1) diff --git a/script/c34487429.lua b/script/c34487429.lua index c2be2b42..60c46f49 100644 --- a/script/c34487429.lua +++ b/script/c34487429.lua @@ -113,12 +113,12 @@ function c34487429.filter3(c,e,tp) return c:IsFaceup() and c:IsSetCard(0x1034) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c34487429.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_SZONE and chkc:GetControler()==tp and c34487429.filter3(chkc,e,tp) end + if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and c34487429.filter3(chkc,e,tp) end if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c34487429.filter3,tp,LOCATION_SZONE,0,1,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c34487429.filter3,tp,LOCATION_SZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,tp,LOCATION_SZONE) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) end function c34487429.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end diff --git a/script/c34522216.lua b/script/c34522216.lua new file mode 100644 index 00000000..9b432042 --- /dev/null +++ b/script/c34522216.lua @@ -0,0 +1,69 @@ +--アモルファージ・ガストル +function c34522216.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --flip + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_FLIP) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetOperation(c34522216.flipop) + c:RegisterEffect(e1) + --maintain + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_PZONE) + e2:SetCountLimit(1) + e2:SetCode(EVENT_PHASE+PHASE_STANDBY) + e2:SetCondition(c34522216.descon) + e2:SetOperation(c34522216.desop) + c:RegisterEffect(e2) + --spsummon limit + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetTargetRange(1,1) + e3:SetTarget(c34522216.sumlimit) + c:RegisterEffect(e3) + --act limit + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_CANNOT_ACTIVATE) + e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e4:SetRange(LOCATION_PZONE) + e4:SetTargetRange(1,1) + e4:SetCondition(c34522216.limcon) + e4:SetValue(c34522216.limval) + c:RegisterEffect(e4) +end +function c34522216.flipop(e,tp,eg,ep,ev,re,r,rp) + e:GetHandler():RegisterFlagEffect(34522216,RESET_EVENT+0x1fe0000,0,1) +end +function c34522216.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe0) +end +function c34522216.limcon(e) + return Duel.IsExistingMatchingCard(c34522216.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) +end +function c34522216.limval(e,re,rp) + local rc=re:GetHandler() + return re:IsActiveType(TYPE_MONSTER) and not rc:IsSetCard(0xe0) and not rc:IsImmuneToEffect(e) +end +function c34522216.descon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c34522216.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) + if Duel.CheckReleaseGroup(tp,Card.IsReleasableByEffect,1,c) and Duel.SelectYesNo(tp,aux.Stringid(34522216,0)) then + local g=Duel.SelectReleaseGroup(tp,Card.IsReleasableByEffect,1,1,c) + Duel.Release(g,REASON_COST) + else Duel.Destroy(c,REASON_COST) end +end +function c34522216.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) + return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0xe0) + and (e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM or e:GetHandler():GetFlagEffect(34522216)~=0) +end diff --git a/script/c34541863.lua b/script/c34541863.lua index ae02c587..e1964169 100644 --- a/script/c34541863.lua +++ b/script/c34541863.lua @@ -26,12 +26,12 @@ function c34541863.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_COUNTER,g,1,0xe,1) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,g,1,0x100e,1) end function c34541863.operation(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0xe,1) + tc:AddCounter(0x100e,1) end end diff --git a/script/c34566435.lua b/script/c34566435.lua index c03f023d..74175040 100644 --- a/script/c34566435.lua +++ b/script/c34566435.lua @@ -11,13 +11,6 @@ function c34566435.initial_effect(c) e1:SetTarget(c34566435.target) e1:SetOperation(c34566435.operation) c:RegisterEffect(e1) - --add setcode - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCode(EFFECT_ADD_SETCODE) - e2:SetValue(0xad) - c:RegisterEffect(e2) end function c34566435.filter(c) return (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) and c:IsType(TYPE_FUSION) and c:IsSetCard(0xad) @@ -39,8 +32,8 @@ function c34566435.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetValue(tc:GetBaseDefence()) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) + e2:SetValue(tc:GetBaseDefense()) c:RegisterEffect(e2) end end diff --git a/script/c34568403.lua b/script/c34568403.lua index 3c332d2b..a5533c0a 100644 --- a/script/c34568403.lua +++ b/script/c34568403.lua @@ -1,4 +1,4 @@ ---アルカナフォースVII－THE CHARIOT +--アルカナフォースⅦ－THE CHARIOT function c34568403.initial_effect(c) --coin local e1=Effect.CreateEffect(c) @@ -29,9 +29,7 @@ function c34568403.coinop(e,tp,eg,ep,ev,re,r,rp) else res=Duel.TossCoin(tp,1) end c34568403.arcanareg(c,res) if res==0 then - if not Duel.GetControl(c,1-tp) and not c:IsImmuneToEffect(e) and c:IsAbleToChangeControler() then - Duel.Destroy(c,REASON_EFFECT) - end + Duel.GetControl(c,1-tp) end end function c34568403.arcanareg(c,coin) diff --git a/script/c34614289.lua b/script/c34614289.lua old mode 100755 new mode 100644 index 3cd396ba..027d9882 --- a/script/c34614289.lua +++ b/script/c34614289.lua @@ -46,7 +46,7 @@ function c34614289.postg(e,tp,eg,ep,ev,re,r,rp,chk) end function c34614289.posop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) local og=Duel.GetOperatedGroup() local tc=og:GetFirst() while tc do diff --git a/script/c34646691.lua b/script/c34646691.lua index 0708ae3b..7f56d4bc 100644 --- a/script/c34646691.lua +++ b/script/c34646691.lua @@ -33,5 +33,5 @@ end function c34646691.operation(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end local g=eg:Filter(c34646691.filter,nil,e) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) end diff --git a/script/c34680482.lua b/script/c34680482.lua index 224856b7..d66de152 100644 --- a/script/c34680482.lua +++ b/script/c34680482.lua @@ -57,7 +57,9 @@ function c34680482.spop(e,tp,eg,ep,ev,re,r,rp) Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) tc:RegisterFlagEffect(34680482,RESET_EVENT+0x1fe0000,0,1,Duel.GetTurnCount()) local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(34680482,2)) e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CLIENT_HINT) e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) e1:SetValue(1) e1:SetReset(RESET_EVENT+0x1fe0000) diff --git a/script/c34707034.lua b/script/c34707034.lua index e6bd231e..c98ce829 100644 --- a/script/c34707034.lua +++ b/script/c34707034.lua @@ -16,13 +16,15 @@ function c34707034.filter(c,e,tp) end function c34707034.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c34707034.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and Duel.IsExistingTarget(c34707034.filter,tp,LOCATION_GRAVE,0,3,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c34707034.filter,tp,LOCATION_GRAVE,0,3,3,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,3,0,0) end function c34707034.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()==0 then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c34710660.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end diff --git a/script/c34761062.lua b/script/c34761062.lua old mode 100755 new mode 100644 diff --git a/script/c34822850.lua b/script/c34822850.lua index 4f3edfa4..df581ada 100644 --- a/script/c34822850.lua +++ b/script/c34822850.lua @@ -32,11 +32,14 @@ function c34822850.initial_effect(c) e4:SetTargetRange(0,LOCATION_MZONE) e4:SetValue(c34822850.atlimit) c:RegisterEffect(e4) - local e5=e4:Clone() - e5:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e5:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e5:SetTargetRange(0,0xff) - e5:SetValue(c34822850.tglimit) + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_FIELD) + e5:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e5:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e5:SetRange(LOCATION_FZONE) + e5:SetTargetRange(LOCATION_MZONE,0) + e5:SetTarget(c34822850.tglimit) + e5:SetValue(aux.tgoval) c:RegisterEffect(e5) end function c34822850.spcon(e,tp,eg,ep,ev,re,r,rp) @@ -64,7 +67,7 @@ end function c34822850.atlimit(e,c) return c:IsFaceup() and c:IsSetCard(0xbb) and Duel.IsExistingMatchingCard(c34822850.filter,c:GetControler(),LOCATION_MZONE,0,1,nil,c:GetLevel()) end -function c34822850.tglimit(e,re,c) - return c:IsControler(e:GetHandlerPlayer()) and c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsSetCard(0xbb) +function c34822850.tglimit(e,c) + return c:IsSetCard(0xbb) and Duel.IsExistingMatchingCard(c34822850.filter,c:GetControler(),LOCATION_MZONE,0,1,nil,c:GetLevel()) end diff --git a/script/c34853266.lua b/script/c34853266.lua index 2851d90e..86bf37cb 100644 --- a/script/c34853266.lua +++ b/script/c34853266.lua @@ -1,5 +1,7 @@ --月読命 function c34853266.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,17 +9,6 @@ function c34853266.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(34853266,0)) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c34853266.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --pos local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(34853266,1)) @@ -45,42 +36,6 @@ end function c34853266.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) - end -end -function c34853266.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(34853266,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c34853266.retcon) - e1:SetTarget(c34853266.rettg) - e1:SetOperation(c34853266.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c34853266.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c34853266.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c34853266.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c3493058.lua b/script/c3493058.lua index 11ec5f8d..eae777f9 100644 --- a/script/c3493058.lua +++ b/script/c3493058.lua @@ -11,7 +11,7 @@ function c3493058.initial_effect(c) c:RegisterEffect(e1) end function c3493058.filter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c3493058.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.IsExistingMatchingCard(c3493058.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end diff --git a/script/c34945480.lua b/script/c34945480.lua index fcb62005..de987c49 100644 --- a/script/c34945480.lua +++ b/script/c34945480.lua @@ -1,68 +1,68 @@ ---外神アザトート -function c34945480.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,5,3,c34945480.ovfilter,aux.Stringid(34945480,1)) - c:EnableReviveLimit() - -- - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) - e1:SetValue(1) - c:RegisterEffect(e1) - --summon success - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c34945480.sumcon) - e2:SetOperation(c34945480.sumsuc) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(34945480,0)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c34945480.condition) - e3:SetCost(c34945480.cost) - e3:SetTarget(c34945480.target) - e3:SetOperation(c34945480.operation) - c:RegisterEffect(e3) -end -function c34945480.ovfilter(c) - return c:IsFaceup() and c:IsSetCard(0xb6) and c:IsType(TYPE_XYZ) -end -function c34945480.sumcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ -end -function c34945480.sumsuc(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(0,1) - e1:SetValue(c34945480.actlimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c34945480.actlimit(e,re,tp) - return re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsImmuneToEffect(e) -end -function c34945480.condition(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetHandler():GetOverlayGroup() - return g:IsExists(Card.IsType,1,nil,TYPE_FUSION) and g:IsExists(Card.IsType,1,nil,TYPE_SYNCHRO) - and g:IsExists(Card.IsType,1,nil,TYPE_XYZ) -end -function c34945480.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c34945480.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c34945480.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.Destroy(g,REASON_EFFECT) -end +--外神アザトート +function c34945480.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,5,3,c34945480.ovfilter,aux.Stringid(34945480,1)) + c:EnableReviveLimit() + -- + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) + e1:SetValue(1) + c:RegisterEffect(e1) + --summon success + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetCondition(c34945480.sumcon) + e2:SetOperation(c34945480.sumsuc) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(34945480,0)) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c34945480.condition) + e3:SetCost(c34945480.cost) + e3:SetTarget(c34945480.target) + e3:SetOperation(c34945480.operation) + c:RegisterEffect(e3) +end +function c34945480.ovfilter(c) + return c:IsFaceup() and c:IsSetCard(0xb6) and c:IsType(TYPE_XYZ) +end +function c34945480.sumcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ +end +function c34945480.sumsuc(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(0,1) + e1:SetValue(c34945480.actlimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c34945480.actlimit(e,re,tp) + return re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsImmuneToEffect(e) +end +function c34945480.condition(e,tp,eg,ep,ev,re,r,rp) + local g=e:GetHandler():GetOverlayGroup() + return g:IsExists(Card.IsType,1,nil,TYPE_FUSION) and g:IsExists(Card.IsType,1,nil,TYPE_SYNCHRO) + and g:IsExists(Card.IsType,1,nil,TYPE_XYZ) +end +function c34945480.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c34945480.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c34945480.operation(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c35027493.lua b/script/c35027493.lua index 5a402928..278383b2 100644 --- a/script/c35027493.lua +++ b/script/c35027493.lua @@ -20,7 +20,7 @@ function c35027493.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c35027493.tgfilter(c) - return c:IsFaceup() and c:IsAttackBelow(1500) and c:IsDestructable() + return c:IsFaceup() and c:IsAttackBelow(1500) end function c35027493.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c35035481.lua b/script/c35035481.lua old mode 100755 new mode 100644 index 914f5a93..d70b94c6 --- a/script/c35035481.lua +++ b/script/c35035481.lua @@ -21,7 +21,7 @@ function c35035481.initial_effect(c) c:RegisterEffect(e2) end function c35035481.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c35035481.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c35035481.filter(chkc) and chkc~=e:GetHandler() end @@ -49,17 +49,10 @@ end function c35035481.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() - if c:IsRelateToEffect(e) - and Duel.IsPlayerCanSpecialSummonMonster(tp,35035481,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then - c:SetStatus(STATUS_NO_LEVEL,false) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(TYPE_NORMAL+TYPE_MONSTER) - e1:SetReset(RESET_EVENT+0x47c0000) - c:RegisterEffect(e1,true) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,35035481,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then + c:AddMonsterAttribute(TYPE_NORMAL) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_IMMUNE_EFFECT) @@ -75,6 +68,7 @@ function c35035481.spop(e,tp,eg,ep,ev,re,r,rp) e3:SetReset(RESET_EVENT+0x47e0000) e3:SetValue(LOCATION_REMOVED) c:RegisterEffect(e3,true) + Duel.SpecialSummonComplete() end end function c35035481.efilter(e,re) diff --git a/script/c35037880.lua b/script/c35037880.lua index c1aa43ce..e04fc322 100644 --- a/script/c35037880.lua +++ b/script/c35037880.lua @@ -27,8 +27,9 @@ function c35037880.filter(c) return ((c:IsSetCard(0xd) and c:IsType(TYPE_SPELL+TYPE_TRAP)) or c:IsSetCard(0xb0)) and c:IsAbleToHand() end function c35037880.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Recover(tp,ev,REASON_EFFECT) - Duel.Damage(1-tp,ev,REASON_EFFECT) + Duel.Recover(tp,ev,REASON_EFFECT,true) + Duel.Damage(1-tp,ev,REASON_EFFECT,true) + Duel.RDComplete() local g=Duel.GetMatchingGroup(c35037880.filter,tp,LOCATION_DECK,0,nil) if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(35037880,0)) then Duel.BreakEffect() diff --git a/script/c35058588.lua b/script/c35058588.lua new file mode 100644 index 00000000..3d6de16f --- /dev/null +++ b/script/c35058588.lua @@ -0,0 +1,99 @@ +--方界波動 +function c35058588.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(35058588,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c35058588.atktg) + e1:SetOperation(c35058588.atkop) + c:RegisterEffect(e1) + --add counter + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(35058588,1)) + e2:SetCategory(CATEGORY_COUNTER) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_GRAVE) + e2:SetTarget(c35058588.countertg) + e2:SetOperation(c35058588.counterop) + c:RegisterEffect(e2) +end +function c35058588.atkfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe3) +end +function c35058588.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.IsExistingTarget(c35058588.atkfilter,tp,LOCATION_MZONE,0,1,nil) + and Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELF) + Duel.SelectTarget(tp,c35058588.atkfilter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPPO) + local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) + e:SetLabelObject(g:GetFirst()) +end +function c35058588.atkop(e,tp,eg,ep,ev,re,r,rp) + local hc=e:GetLabelObject() + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local tc=g:GetFirst() + if tc==hc then tc=g:GetNext() end + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(tc:GetAttack()*2) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + if hc:IsFaceup() and hc:IsRelateToEffect(e) then + Duel.BreakEffect() + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_SET_ATTACK_FINAL) + e2:SetValue(hc:GetAttack()/2) + e2:SetReset(RESET_EVENT+0x1fe0000) + hc:RegisterEffect(e2) + end + end +end +function c35058588.cfilter(c) + return c:IsSetCard(0xe3) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() +end +function c35058588.tgfilter(c,e) + return c:IsFaceup() and c:IsCanBeEffectTarget(e) +end +function c35058588.countertg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end + local tg=Duel.GetMatchingGroup(c35058588.tgfilter,tp,0,LOCATION_MZONE,nil,e) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() and tg:GetCount()>0 + and Duel.IsExistingMatchingCard(c35058588.cfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c35058588.cfilter,tp,LOCATION_GRAVE,0,1,tg:GetCount(),nil) + local ct=g:GetCount() + g:AddCard(e:GetHandler()) + Duel.Remove(g,POS_FACEUP,REASON_COST) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + local sg=tg:Select(tp,ct,ct,nil) + Duel.SetTargetCard(sg) +end +function c35058588.counterop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + local tc=g:GetFirst() + while tc do + tc:AddCounter(0x1038,1) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetCondition(c35058588.disable) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_DISABLE) + tc:RegisterEffect(e2) + tc=g:GetNext() + end +end +function c35058588.disable(e) + return e:GetHandler():GetCounter(0x1038)>0 +end diff --git a/script/c35058857.lua b/script/c35058857.lua new file mode 100644 index 00000000..4d9f1104 --- /dev/null +++ b/script/c35058857.lua @@ -0,0 +1,75 @@ +--奇術王 ムーン・スター +function c35058857.initial_effect(c) + --synchro limit + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetValue(c35058857.synlimit) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_HAND) + e2:SetCondition(c35058857.spcon) + c:RegisterEffect(e2) + --level change + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(35058857,0)) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_SUMMON_SUCCESS) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetTarget(c35058857.lvtg) + e3:SetOperation(c35058857.lvop) + c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e4) +end +function c35058857.synlimit(e,c) + if not c then return false end + return not c:IsAttribute(ATTRIBUTE_DARK) +end +function c35058857.filter(c) + return c:IsFaceup() and c:IsType(TYPE_TUNER) +end +function c35058857.spcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c35058857.filter,c:GetControler(),LOCATION_MZONE,0,1,nil) +end +function c35058857.lvfilter(c,lv) + return (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE)) and c:GetLevel()>0 and c:GetLevel()~=lv +end +function c35058857.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local lv=e:GetHandler():GetLevel() + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c35058857.lvfilter(chkc,lv) end + if chk==0 then return Duel.IsExistingTarget(c35058857.lvfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,nil,lv) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,c35058857.lvfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,1,nil,lv) +end +function c35058857.lvop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + local c=e:GetHandler() + if tc:IsRelateToEffect(e) and c:IsFaceup() and c:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CHANGE_LEVEL) + e1:SetValue(tc:GetLevel()) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + end + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetTargetRange(1,0) + e2:SetReset(RESET_PHASE+PHASE_END) + e2:SetTarget(c35058857.splimit) + Duel.RegisterEffect(e2,tp) +end +function c35058857.splimit(e,c,sump,sumtype,sumpos,targetp,se) + return bit.band(sumtype,SUMMON_TYPE_SYNCHRO)~=SUMMON_TYPE_SYNCHRO +end diff --git a/script/c35073065.lua b/script/c35073065.lua index 66f7f355..73515c3c 100644 --- a/script/c35073065.lua +++ b/script/c35073065.lua @@ -17,7 +17,7 @@ function c35073065.initial_effect(c) end function c35073065.spcon(e,tp,eg,ep,ev,re,r,rp) local ec=eg:GetFirst() - return ec:IsControler(tp) and bit.band(ec:GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE + return ep==tp and bit.band(ec:GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE end function c35073065.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -28,7 +28,8 @@ end function c35073065.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local ec=eg:GetFirst() - if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then if ec:IsRelateToEffect(e) and ec:IsFaceup() then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) @@ -58,5 +59,8 @@ function c35073065.spop(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e3) end Duel.SpecialSummonComplete() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c35089369.lua b/script/c35089369.lua index e5b6b5a5..3a72d480 100644 --- a/script/c35089369.lua +++ b/script/c35089369.lua @@ -54,7 +54,7 @@ end function c35089369.sccon(e,tp,eg,ep,ev,re,r,rp) if Duel.GetTurnPlayer()==tp then return false end local ph=Duel.GetCurrentPhase() - return ph==PHASE_MAIN1 or ph==PHASE_BATTLE or ph==PHASE_MAIN2 + return ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2 end function c35089369.mfilter(c) return c:IsSetCard(0x9e) diff --git a/script/c3510565.lua b/script/c3510565.lua index b920b151..dd730bbd 100644 --- a/script/c3510565.lua +++ b/script/c3510565.lua @@ -29,7 +29,7 @@ end function c3510565.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c3510565.damtg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c35112613.lua b/script/c35112613.lua old mode 100755 new mode 100644 diff --git a/script/c35191415.lua b/script/c35191415.lua new file mode 100644 index 00000000..f89b1125 --- /dev/null +++ b/script/c35191415.lua @@ -0,0 +1,79 @@ +--マジシャン・オブ・ブラック・イリュージョン +function c35191415.initial_effect(c) + --change name + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetCode(EFFECT_CHANGE_CODE) + e1:SetRange(LOCATION_MZONE) + e1:SetValue(46986414) + c:RegisterEffect(e1) + --spsummon (self) + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(35191415,0)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetRange(LOCATION_HAND) + e2:SetCode(EVENT_CHAIN_SOLVING) + e2:SetCountLimit(1,35191415) + e2:SetCondition(c35191415.condition1) + e2:SetTarget(c35191415.target1) + e2:SetOperation(c35191415.operation1) + c:RegisterEffect(e2) + --spsummon (DM) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_CHAINING) + e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e3:SetRange(LOCATION_MZONE) + e3:SetOperation(aux.chainreg) + c:RegisterEffect(e3) + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(35191415,1)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_CHAIN_SOLVING) + e4:SetProperty(EFFECT_FLAG_NO_TURN_RESET+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e4:SetRange(LOCATION_MZONE) + e4:SetCountLimit(1,35191416) + e4:SetCondition(c35191415.condition2) + e4:SetTarget(c35191415.target2) + e4:SetOperation(c35191415.operation2) + c:RegisterEffect(e4) +end +function c35191415.condition1(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp and rp==tp and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) +end +function c35191415.target1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c35191415.operation1(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c35191415.condition2(e,tp,eg,ep,ev,re,r,rp) + return rp==tp and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and e:GetHandler():GetFlagEffect(1)>0 +end +function c35191415.filter(c,e,tp) + return c:IsCode(46986414) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c35191415.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c35191415.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c35191415.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c35191415.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c35191415.operation2(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c35255456.lua b/script/c35255456.lua index c9e8601a..5a860ca5 100644 --- a/script/c35255456.lua +++ b/script/c35255456.lua @@ -10,7 +10,7 @@ function c35255456.initial_effect(c) c:RegisterEffect(e1) end function c35255456.filter1(c,e) - return c:IsAbleToDeck() and c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsAbleToDeck() and c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) end function c35255456.filter2(c,e,tp,m,chkf) return c:IsType(TYPE_FUSION) and c:IsSetCard(0x3008) and c:IsSetCard(0x9) and c:GetCode()~=31111109 @@ -36,6 +36,7 @@ function c35255456.activate(e,tp,eg,ep,ev,re,r,rp) local tg=sg:Select(tp,1,1,nil) local tc=tg:GetFirst() local mat=Duel.SelectFusionMaterial(tp,tc,mg,nil,chkf) + if mat:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end local cf=mat:Filter(c35255456.cffilter,nil) if cf:GetCount()>0 then Duel.ConfirmCards(1-tp,cf) diff --git a/script/c35261759.lua b/script/c35261759.lua new file mode 100644 index 00000000..cb3ca990 --- /dev/null +++ b/script/c35261759.lua @@ -0,0 +1,31 @@ +--強欲で貪欲な壺 +function c35261759.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DRAW) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,35261759+EFFECT_COUNT_CODE_OATH) + e1:SetCost(c35261759.cost) + e1:SetTarget(c35261759.target) + e1:SetOperation(c35261759.activate) + c:RegisterEffect(e1) +end +function c35261759.cost(e,tp,eg,ep,ev,re,r,rp,chk) + local g=Duel.GetDecktopGroup(tp,10) + if chk==0 then return g:FilterCount(Card.IsAbleToRemove,nil)==10 + and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=12 end + Duel.DisableShuffleCheck() + Duel.Remove(g,POS_FACEDOWN,REASON_COST) +end +function c35261759.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(2) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) +end +function c35261759.activate(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end diff --git a/script/c35262428.lua b/script/c35262428.lua index 6912a7ad..0b1bca82 100644 --- a/script/c35262428.lua +++ b/script/c35262428.lua @@ -63,7 +63,7 @@ end function c35262428.ctlop(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetHandler() local p=e:GetLabel() - if tc:GetControler()~=p and not Duel.GetControl(tc,p) and not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) + if tc:IsControler(1-p) then + Duel.GetControl(tc,p) end end diff --git a/script/c35268887.lua b/script/c35268887.lua index 99a4b080..c5bc391c 100644 --- a/script/c35268887.lua +++ b/script/c35268887.lua @@ -56,17 +56,21 @@ function c35268887.val(e,re,dam,r,rp,rc) else return dam end end function c35268887.tokentg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return c35268887[tp]~=0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=c35268887[tp] + local ct=c35268887[tp] + if chk==0 then return ct>0 and (ct==1 or not Duel.IsPlayerAffectedByEffect(tp,59822133)) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>=ct and Duel.IsPlayerCanSpecialSummonMonster(tp,35268888,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,c35268887[tp],0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,c35268887[tp],0,0) + Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,ct,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,ct,0,0) end function c35268887.tokenop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) + or Duel.GetLocationCount(tp,LOCATION_MZONE)0 then - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) end local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) @@ -34,6 +34,6 @@ function c35480699.flipcon(e,tp,eg,ep,ev,re,r,rp) end function c35480699.flipop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,0,LOCATION_MZONE,nil) - local ct=Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + local ct=Duel.ChangePosition(g,POS_FACEUP_DEFENSE) Duel.Draw(1-tp,ct,REASON_EFFECT) end diff --git a/script/c35486099.lua b/script/c35486099.lua index 7a41cc6d..c536c00b 100644 --- a/script/c35486099.lua +++ b/script/c35486099.lua @@ -10,10 +10,13 @@ function c35486099.initial_effect(c) e1:SetOperation(c35486099.activate) c:RegisterEffect(e1) end +function c35486099.filter(c) + return c:IsSetCard(0x1034) and not c:IsForbidden() +end function c35486099.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE and chkc:IsSetCard(0x1034) end + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c35486099.filter(chkc) end if chk==0 then - if not Duel.IsExistingTarget(Card.IsSetCard,tp,LOCATION_GRAVE,0,1,nil,0x1034) then return false end + if not Duel.IsExistingTarget(c35486099.filter,tp,LOCATION_GRAVE,0,1,nil) then return false end if e:GetHandler():IsLocation(LOCATION_HAND) then return Duel.GetLocationCount(tp,LOCATION_SZONE)>1 else return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end @@ -21,8 +24,8 @@ function c35486099.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local ft=Duel.GetLocationCount(tp,LOCATION_SZONE) if ft>2 then ft=2 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) - local g=Duel.SelectTarget(tp,Card.IsSetCard,tp,LOCATION_GRAVE,0,1,ft,nil,0x1034) - Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,2,0,0) + local g=Duel.SelectTarget(tp,c35486099.filter,tp,LOCATION_GRAVE,0,1,ft,nil) + Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,g:GetCount(),0,0) end function c35486099.activate(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_SZONE) @@ -31,6 +34,7 @@ function c35486099.activate(e,tp,eg,ep,ev,re,r,rp) local sg=g:Filter(Card.IsRelateToEffect,nil,e) if sg:GetCount()>0 then if sg:GetCount()>ft then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) local rg=sg:Select(tp,ft,ft,nil) sg=rg end @@ -46,6 +50,6 @@ function c35486099.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) tc=sg:GetNext() end - Duel.RaiseEvent(sg,47408488,e,0,tp,0,0) + Duel.RaiseEvent(sg,EVENT_CUSTOM+47408488,e,0,tp,0,0) end end diff --git a/script/c35514096.lua b/script/c35514096.lua index 612e5394..3a291f8c 100644 --- a/script/c35514096.lua +++ b/script/c35514096.lua @@ -14,7 +14,7 @@ function c35514096.condition(e,tp,eg,ep,ev,re,r,rp) return c:IsRelateToBattle() and c:GetBattleTarget():IsType(TYPE_MONSTER) end function c35514096.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c35514096.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c35514096.filter(chkc) end diff --git a/script/c35537251.lua b/script/c35537251.lua index b548d150..fb4b993b 100644 --- a/script/c35537251.lua +++ b/script/c35537251.lua @@ -38,7 +38,10 @@ function c35537251.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVEXYZ) local sg=g:Select(tp,1,1,nil) Duel.SendtoGrave(sg,REASON_EFFECT) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c35537860.lua b/script/c35537860.lua index a4d4ae96..4035d3f3 100644 --- a/script/c35537860.lua +++ b/script/c35537860.lua @@ -18,10 +18,10 @@ function c35537860.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c35537860.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c35537860.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c35537860.activate(e) diff --git a/script/c35539880.lua b/script/c35539880.lua index a06af573..8542acf0 100644 --- a/script/c35539880.lua +++ b/script/c35539880.lua @@ -39,9 +39,10 @@ end function c35539880.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK)==0 then return end + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() end end function c35539880.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c35618486.lua b/script/c35618486.lua index 68ba85fa..89dac2bc 100644 --- a/script/c35618486.lua +++ b/script/c35618486.lua @@ -17,7 +17,7 @@ function c35618486.condition(e,tp,eg,ep,ev,re,r,rp) and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) end function c35618486.filter(c) - return c:IsFaceup() and c:IsType(TYPE_RITUAL+TYPE_FUSION+TYPE_SYNCHRO) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_RITUAL+TYPE_FUSION+TYPE_SYNCHRO) end function c35618486.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c35618486.filter(chkc) end diff --git a/script/c35629124.lua b/script/c35629124.lua old mode 100755 new mode 100644 diff --git a/script/c35686187.lua b/script/c35686187.lua index 72ed3cdb..d6cddba4 100644 --- a/script/c35686187.lua +++ b/script/c35686187.lua @@ -11,13 +11,13 @@ function c35686187.initial_effect(c) c:RegisterEffect(e1) end function c35686187.cfilter(c,tp) - return c:IsControler(tp) and c:IsPreviousPosition(POS_FACEUP_ATTACK) and c:IsPosition(POS_FACEUP_DEFENCE) + return c:IsControler(tp) and c:IsPreviousPosition(POS_FACEUP_ATTACK) and c:IsPosition(POS_FACEUP_DEFENSE) end function c35686187.condition(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c35686187.cfilter,1,nil,1-tp) end function c35686187.filter(c) - return c:IsDefencePos() and c:IsDestructable() + return c:IsDefensePos() end function c35686187.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c35686187.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c35686188.lua b/script/c35686188.lua deleted file mode 100644 index 29e8d192..00000000 --- a/script/c35686188.lua +++ /dev/null @@ -1,32 +0,0 @@ ---断頭台の惨劇(EU) -function c35686188.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHANGE_POS) - e1:SetCondition(c35686188.condition) - e1:SetTarget(c35686188.target) - e1:SetOperation(c35686188.activate) - c:RegisterEffect(e1) -end -function c35686188.cfilter(c,tp) - return c:IsControler(tp) and c:IsPreviousPosition(POS_FACEUP_ATTACK) and c:IsPosition(POS_FACEUP_DEFENCE) -end -function c35686188.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c35686188.cfilter,1,nil,1-tp) -end -function c35686188.filter(c) - return c:IsDefencePos() and c:IsDestructable() -end -function c35686188.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c35686188.filter,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(c35686188.filter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c35686188.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c35686188.filter,tp,0,LOCATION_MZONE,nil) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end -end diff --git a/script/c3576031.lua b/script/c3576031.lua new file mode 100644 index 00000000..210f09de --- /dev/null +++ b/script/c3576031.lua @@ -0,0 +1,73 @@ +--クリスタルP +function c3576031.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --atk&def + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetRange(LOCATION_FZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetValue(300) + e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xea)) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e3) + --draw + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(3576031,0)) + e4:SetCategory(CATEGORY_DRAW) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e4:SetCode(EVENT_PHASE+PHASE_END) + e4:SetRange(LOCATION_FZONE) + e4:SetCountLimit(1) + e4:SetCondition(c3576031.drcon) + e4:SetTarget(c3576031.drtg) + e4:SetOperation(c3576031.drop) + c:RegisterEffect(e4) + if not c3576031.global_check then + c3576031.global_check=true + c3576031[0]=0 + c3576031[1]=0 + local ge1=Effect.CreateEffect(c) + ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge1:SetCode(EVENT_SPSUMMON_SUCCESS) + ge1:SetOperation(c3576031.checkop) + Duel.RegisterEffect(ge1,0) + local ge2=Effect.CreateEffect(c) + ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW) + ge2:SetOperation(c3576031.clearop) + Duel.RegisterEffect(ge2,0) + end +end +function c3576031.checkop(e,tp,eg,ep,ev,re,r,rp) + local tc=eg:GetFirst() + while tc do + if tc:IsSetCard(0xea) and bit.band(tc:GetSummonType(),SUMMON_TYPE_SYNCHRO)==SUMMON_TYPE_SYNCHRO then + local p=tc:GetSummonPlayer() + c3576031[p]=c3576031[p]+1 + end + tc=eg:GetNext() + end +end +function c3576031.clearop(e,tp,eg,ep,ev,re,r,rp) + c3576031[0]=0 + c3576031[1]=0 +end +function c3576031.drcon(e,tp,eg,ep,ev,re,r,rp) + return c3576031[tp]>0 +end +function c3576031.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,c3576031[tp]) end + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,c3576031[tp]) +end +function c3576031.drop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Draw(tp,c3576031[tp],REASON_EFFECT) +end diff --git a/script/c35781051.lua b/script/c35781051.lua index 25e0e309..01b1f377 100644 --- a/script/c35781051.lua +++ b/script/c35781051.lua @@ -1,4 +1,4 @@ ---アルカナフォースIII－THE EMPRESS +--アルカナフォースⅢ－THE EMPRESS function c35781051.initial_effect(c) --coin local e1=Effect.CreateEffect(c) diff --git a/script/c35787450.lua b/script/c35787450.lua index 899efff7..c80e5695 100644 --- a/script/c35787450.lua +++ b/script/c35787450.lua @@ -19,10 +19,10 @@ end function c35787450.addc(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) if tc and tc:IsFaceup() and tc:IsCode(75041269) then - tc:AddCounter(0x1b+COUNTER_NEED_ENABLE,2) + tc:AddCounter(0x1b,2) end tc=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5) if tc and tc:IsFaceup() and tc:IsCode(75041269) then - tc:AddCounter(0x1b+COUNTER_NEED_ENABLE,2) + tc:AddCounter(0x1b,2) end end diff --git a/script/c35798491.lua b/script/c35798491.lua old mode 100755 new mode 100644 index 98a72c10..280e65a4 --- a/script/c35798491.lua +++ b/script/c35798491.lua @@ -25,7 +25,7 @@ function c35798491.mtop(e,tp,eg,ep,ev,re,r,rp) if Duel.CheckLPCost(tp,500) then Duel.PayLPCost(tp,500) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end function c35798491.filter(c,tp) diff --git a/script/c35800511.lua b/script/c35800511.lua index 7dadf007..f1787792 100644 --- a/script/c35800511.lua +++ b/script/c35800511.lua @@ -49,7 +49,7 @@ function c35800511.eqop(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(400) e2:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e2) @@ -64,7 +64,7 @@ function c35800511.condition(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetAttacker() if tc:IsControler(1-tp) then tc=Duel.GetAttackTarget() end e:SetLabelObject(tc) - return tc and tc:IsSetCard(0x9a) and tc:IsDefencePos() and tc:IsRelateToBattle() and Duel.GetAttackTarget()~=nil + return tc and tc:IsSetCard(0x9a) and tc:IsDefensePos() and tc:IsRelateToBattle() and Duel.GetAttackTarget()~=nil end function c35800511.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end @@ -73,10 +73,10 @@ end function c35800511.operation(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetLabelObject() if tc:IsRelateToBattle() and tc:IsFaceup() and tc:IsControler(tp) then - local def=tc:GetBaseDefence() + local def=tc:GetBaseDefense() local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_DEFENCE_FINAL) + e1:SetCode(EFFECT_SET_DEFENSE_FINAL) e1:SetValue(def*2) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) diff --git a/script/c35803249.lua b/script/c35803249.lua index 206a0125..300b403c 100644 --- a/script/c35803249.lua +++ b/script/c35803249.lua @@ -81,7 +81,7 @@ function c35803249.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Release(g,REASON_COST) end function c35803249.filter(c) - return c:IsFaceup() and c:IsType(TYPE_TRAP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_TRAP) end function c35803249.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c35803249.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end diff --git a/script/c35809262.lua b/script/c35809262.lua old mode 100755 new mode 100644 diff --git a/script/c35818851.lua b/script/c35818851.lua old mode 100755 new mode 100644 index 83f8f271..0d299861 --- a/script/c35818851.lua +++ b/script/c35818851.lua @@ -1,80 +1,79 @@ ---不知火の武士 -function c35818851.initial_effect(c) - --atkup - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(35818851,0)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,35818851) - e1:SetCondition(c35818851.condition) - e1:SetCost(c35818851.cost) - e1:SetOperation(c35818851.operation) - c:RegisterEffect(e1) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(35818851,1)) - e2:SetCategory(CATEGORY_TOHAND) - 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,35818852) - e2:SetTarget(c35818851.thtg) - e2:SetOperation(c35818851.thop) - c:RegisterEffect(e2) -end -function c35818851.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c35818851.cfilter(c) - return c:IsRace(RACE_ZOMBIE) and c:IsAbleToRemoveAsCost() -end -function c35818851.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c35818851.cfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c35818851.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c35818851.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(600) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_BATTLED) - e2:SetOperation(c35818851.rmop) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e2) - end -end -function c35818851.rmop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetBattleTarget() - if tc then - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - end -end -function c35818851.filter(c) - return c:IsSetCard(0xd9) and c:IsType(TYPE_MONSTER) and not c:IsCode(35818851) and c:IsAbleToHand() -end -function c35818851.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c35818851.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c35818851.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c35818851.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c35818851.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--不知火の武士 +function c35818851.initial_effect(c) + --atkup + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(35818851,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(TIMING_DAMAGE_STEP) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,35818851) + e1:SetCondition(c35818851.condition) + e1:SetCost(c35818851.cost) + e1:SetOperation(c35818851.operation) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(35818851,1)) + e2:SetCategory(CATEGORY_TOHAND) + 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,35818852) + e2:SetTarget(c35818851.thtg) + e2:SetOperation(c35818851.thop) + c:RegisterEffect(e2) +end +function c35818851.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() +end +function c35818851.cfilter(c) + return c:IsRace(RACE_ZOMBIE) and c:IsAbleToRemoveAsCost() +end +function c35818851.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c35818851.cfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c35818851.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c35818851.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsFaceup() and c:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(600) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_BATTLED) + e2:SetOperation(c35818851.rmop) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e2) + end +end +function c35818851.rmop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetHandler():GetBattleTarget() + if tc then + Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) + end +end +function c35818851.filter(c) + return c:IsSetCard(0xd9) and c:IsType(TYPE_MONSTER) and not c:IsCode(35818851) and c:IsAbleToHand() +end +function c35818851.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c35818851.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c35818851.filter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c35818851.filter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c35818851.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c35842855.lua b/script/c35842855.lua index 27a79bd0..a589b39a 100644 --- a/script/c35842855.lua +++ b/script/c35842855.lua @@ -38,14 +38,11 @@ function c35842855.spcon(e,c) return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and Duel.GetMatchingGroupCount(Card.IsAttribute,c:GetControler(),LOCATION_GRAVE,0,nil,ATTRIBUTE_FIRE)==5 end -function c35842855.filter(c) - return c:IsDestructable() -end function c35842855.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c35842855.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c35842855.filter,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c35842855.filter,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,0) end @@ -54,8 +51,9 @@ function c35842855.desop(e,tp,eg,ep,ev,re,r,rp) if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)==1 then local atk=tc:GetTextAttack()/2 if atk>0 then - Duel.Damage(tp,atk,REASON_EFFECT) - Duel.Damage(1-tp,atk,REASON_EFFECT) + Duel.Damage(tp,atk,REASON_EFFECT,true) + Duel.Damage(1-tp,atk,REASON_EFFECT,true) + Duel.RDComplete() end end end diff --git a/script/c35849881.lua b/script/c35849881.lua deleted file mode 100644 index d9fc6e5e..00000000 --- a/script/c35849881.lua +++ /dev/null @@ -1,44 +0,0 @@ ---Double Magical Arm Bind -function c35849881.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c35849881.cost) - e1:SetTarget(c35849881.target) - e1:SetOperation(c35849881.activate) - c:RegisterEffect(e1) - end - function c35849881.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,nil,2,nil) end - local rg=Duel.SelectReleaseGroup(tp,nil,2,2,nil) - Duel.Release(rg,REASON_COST) -end -function c35849881.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_MZONE and chkc:GetControler()~=tp and chkc:IsControlerCanBeChanged() end - if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,2,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,2,2,nil) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,2,0,0) -end -function c35849881.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc=g:GetFirst() - while tc do - Duel.GetControl(tc,tp) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_CHANGE_POSITION) - tc:RegisterEffect(e2) - tc=g:GetNext() - end - end \ No newline at end of file diff --git a/script/c35884610.lua b/script/c35884610.lua old mode 100755 new mode 100644 index 1c9e0b13..eb7044c5 --- a/script/c35884610.lua +++ b/script/c35884610.lua @@ -23,7 +23,7 @@ function c35884610.initial_effect(c) e3:SetValue(1000) c:RegisterEffect(e3) local e4=e3:Clone() - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e4) --damage double local e5=Effect.CreateEffect(c) @@ -97,6 +97,7 @@ function c35884610.atcon(e,tp,eg,ep,ev,re,r,rp) end function c35884610.atop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end local tc=e:GetHandler():GetEquipTarget() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c35950025.lua b/script/c35950025.lua index 0ab2fcf5..d05d6ea9 100644 --- a/script/c35950025.lua +++ b/script/c35950025.lua @@ -53,7 +53,7 @@ function c35950025.spop(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end end diff --git a/script/c35956022.lua b/script/c35956022.lua index af5c4a3d..c76a460a 100644 --- a/script/c35956022.lua +++ b/script/c35956022.lua @@ -16,7 +16,7 @@ function c35956022.initial_effect(c) c:RegisterEffect(e2) --Def down local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(400) c:RegisterEffect(e3) end diff --git a/script/c359563.lua b/script/c359563.lua index 5e394d2b..03b3804b 100644 --- a/script/c359563.lua +++ b/script/c359563.lua @@ -29,5 +29,5 @@ function c359563.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c359563.operation(e,tp,eg,ep,ev,re,r,rp) local g=eg:Filter(c359563.filter,nil,e,tp) - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) end diff --git a/script/c35975813.lua b/script/c35975813.lua old mode 100755 new mode 100644 index 608d9559..b985ade2 --- a/script/c35975813.lua +++ b/script/c35975813.lua @@ -47,7 +47,7 @@ function c35975813.mtop(e,tp,eg,ep,ev,re,r,rp) if Duel.CheckLPCost(tp,800) then Duel.PayLPCost(tp,800) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end function c35975813.disop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c35984222.lua b/script/c35984222.lua index 4a38afd5..b14d3ea5 100644 --- a/script/c35984222.lua +++ b/script/c35984222.lua @@ -47,14 +47,14 @@ function c35984222.spcon(e,tp,eg,ep,ev,re,r,rp) end function c35984222.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c35984222.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP)~=0 then - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,c) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,c) Duel.Destroy(g,REASON_EFFECT) end end diff --git a/script/c36006208.lua b/script/c36006208.lua old mode 100755 new mode 100644 index af88d9f7..6d46e078 --- a/script/c36006208.lua +++ b/script/c36006208.lua @@ -1,90 +1,90 @@ ---彼岸の沈溺 -function c36006208.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1e0) - e1:SetCost(c36006208.cost) - e1:SetTarget(c36006208.target) - e1:SetOperation(c36006208.activate) - c:RegisterEffect(e1) -end -function c36006208.filter(c) - return c:IsFaceup() and c:IsSetCard(0xb1) and c:IsAbleToGraveAsCost() -end -function c36006208.costfilter(c,rg,dg) - local a=0 - if dg:IsContains(c) then a=1 end - if c:GetEquipCount()==0 then return rg:IsExists(c36006208.costfilter2,1,c,a,dg) end - local eg=c:GetEquipGroup() - local tc=eg:GetFirst() - while tc do - if dg:IsContains(tc) then a=a+1 end - tc=eg:GetNext() - end - return rg:IsExists(c36006208.costfilter2,1,c,a,dg) -end -function c36006208.costfilter2(c,a,dg) - if dg:IsContains(c) then a=a+1 end - if c:GetEquipCount()==0 then return dg:GetCount()-a>=1 end - local eg=c:GetEquipGroup() - local tc=eg:GetFirst() - while tc do - if dg:IsContains(tc) then a=a+1 end - tc=eg:GetNext() - end - return dg:GetCount()-a>=1 -end -function c36006208.tgfilter(c,e) - return c:IsDestructable() and c:IsCanBeEffectTarget(e) -end -function c36006208.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(1) - return true -end -function c36006208.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then - if e:GetLabel()==1 then - e:SetLabel(0) - local rg=Duel.GetMatchingGroup(c36006208.filter,tp,LOCATION_MZONE,0,nil) - local dg=Duel.GetMatchingGroup(c36006208.tgfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),e) - return rg:IsExists(c36006208.costfilter,1,nil,rg,dg) - else - return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) - end - end - if e:GetLabel()==1 then - e:SetLabel(0) - local rg=Duel.GetMatchingGroup(c36006208.filter,tp,LOCATION_MZONE,0,nil) - local dg=Duel.GetMatchingGroup(c36006208.tgfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),e) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local sg1=rg:FilterSelect(tp,c36006208.costfilter,1,1,nil,rg,dg) - local sc=sg1:GetFirst() - local a=0 - if dg:IsContains(sc) then a=1 end - if sc:GetEquipCount()>0 then - local eqg=sc:GetEquipGroup() - local tc=eqg:GetFirst() - while tc do - if dg:IsContains(tc) then a=a+1 end - tc=eqg:GetNext() - end - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local sg2=rg:FilterSelect(tp,c36006208.costfilter2,1,1,sc,a,dg) - sg1:Merge(sg2) - Duel.SendtoGrave(sg1,REASON_COST) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,3,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c36006208.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - Duel.Destroy(sg,REASON_EFFECT) -end +--彼岸の沈溺 +function c36006208.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,0x1e0) + e1:SetCost(c36006208.cost) + e1:SetTarget(c36006208.target) + e1:SetOperation(c36006208.activate) + c:RegisterEffect(e1) +end +function c36006208.filter(c) + return c:IsFaceup() and c:IsSetCard(0xb1) and c:IsAbleToGraveAsCost() +end +function c36006208.costfilter(c,rg,dg) + local a=0 + if dg:IsContains(c) then a=1 end + if c:GetEquipCount()==0 then return rg:IsExists(c36006208.costfilter2,1,c,a,dg) end + local eg=c:GetEquipGroup() + local tc=eg:GetFirst() + while tc do + if dg:IsContains(tc) then a=a+1 end + tc=eg:GetNext() + end + return rg:IsExists(c36006208.costfilter2,1,c,a,dg) +end +function c36006208.costfilter2(c,a,dg) + if dg:IsContains(c) then a=a+1 end + if c:GetEquipCount()==0 then return dg:GetCount()-a>=1 end + local eg=c:GetEquipGroup() + local tc=eg:GetFirst() + while tc do + if dg:IsContains(tc) then a=a+1 end + tc=eg:GetNext() + end + return dg:GetCount()-a>=1 +end +function c36006208.tgfilter(c,e) + return c:IsCanBeEffectTarget(e) +end +function c36006208.cost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(1) + return true +end +function c36006208.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then + if e:GetLabel()==1 then + e:SetLabel(0) + local rg=Duel.GetMatchingGroup(c36006208.filter,tp,LOCATION_MZONE,0,nil) + local dg=Duel.GetMatchingGroup(c36006208.tgfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),e) + return rg:IsExists(c36006208.costfilter,1,nil,rg,dg) + else + return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) + end + end + if e:GetLabel()==1 then + e:SetLabel(0) + local rg=Duel.GetMatchingGroup(c36006208.filter,tp,LOCATION_MZONE,0,nil) + local dg=Duel.GetMatchingGroup(c36006208.tgfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),e) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local sg1=rg:FilterSelect(tp,c36006208.costfilter,1,1,nil,rg,dg) + local sc=sg1:GetFirst() + local a=0 + if dg:IsContains(sc) then a=1 end + if sc:GetEquipCount()>0 then + local eqg=sc:GetEquipGroup() + local tc=eqg:GetFirst() + while tc do + if dg:IsContains(tc) then a=a+1 end + tc=eqg:GetNext() + end + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local sg2=rg:FilterSelect(tp,c36006208.costfilter2,1,1,sc,a,dg) + sg1:Merge(sg2) + Duel.SendtoGrave(sg1,REASON_COST) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,3,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c36006208.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local sg=g:Filter(Card.IsRelateToEffect,nil,e) + Duel.Destroy(sg,REASON_EFFECT) +end diff --git a/script/c36021814.lua b/script/c36021814.lua index 0b8e9613..b8dfdda2 100644 --- a/script/c36021814.lua +++ b/script/c36021814.lua @@ -20,20 +20,15 @@ function c36021814.initial_effect(c) e2:SetOperation(c36021814.operation) c:RegisterEffect(e2) end -function c36021814.filter(c) - local code=c:GetCode() - return code==32274490 or code==36021814 -end function c36021814.atkval(e,c) - return Duel.GetMatchingGroupCount(c36021814.filter,c:GetControler(),LOCATION_GRAVE,0,nil)*1000 + return Duel.GetMatchingGroupCount(Card.IsCode,c:GetControler(),LOCATION_GRAVE,0,nil,32274490,36021814)*1000 end function c36021814.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and bit.band(e:GetHandler():GetReason(),REASON_BATTLE)~=0 end function c36021814.costfilter(c) - local code=c:GetCode() - return (code==32274490 or code==36021814) and c:IsAbleToRemoveAsCost() + return c:IsCode(32274490,36021814) and c:IsAbleToRemoveAsCost() end function c36021814.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c36021814.costfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end diff --git a/script/c3603242.lua b/script/c3603242.lua index 7fa6d513..22a94eda 100644 --- a/script/c3603242.lua +++ b/script/c3603242.lua @@ -18,7 +18,7 @@ function c3603242.cfilter(c,tp) and Duel.IsExistingTarget(c3603242.dfilter,tp,0,LOCATION_MZONE,1,nil,c:GetLevel()) end function c3603242.dfilter(c,lv) - return c:IsFaceup() and c:IsLevelBelow(lv) and c:IsDestructable() + return c:IsFaceup() and c:IsLevelBelow(lv) end function c3603242.descost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c3603242.cfilter,tp,LOCATION_HAND,0,1,nil,tp) end diff --git a/script/c36039163.lua b/script/c36039163.lua index ab2145b4..4bc95442 100644 --- a/script/c36039163.lua +++ b/script/c36039163.lua @@ -22,6 +22,6 @@ end function c36039163.tdop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetFieldGroup(tp,LOCATION_GRAVE,0) if Duel.SendtoDeck(g,nil,0,REASON_EFFECT)~=0 then - Duel.ShuffleDeck(tp) + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end end end diff --git a/script/c36046926.lua b/script/c36046926.lua index fb3c1344..438c8b52 100644 --- a/script/c36046926.lua +++ b/script/c36046926.lua @@ -1,69 +1,69 @@ ---森羅の水先 リーフ -function c36046926.initial_effect(c) - --deck - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(36046926,0)) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c36046926.target) - e1:SetOperation(c36046926.operation) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(36046926,2)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c36046926.descon) - e2:SetTarget(c36046926.destg) - e2:SetOperation(c36046926.desop) - c:RegisterEffect(e2) -end -function c36046926.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1) end -end -function c36046926.operation(e,tp,eg,ep,ev,re,r,rp) - if not Duel.IsPlayerCanDiscardDeck(tp,1) then return end - local ct=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0) - if ct==0 then return end - local ac=1 - if ct>1 then - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(36046926,1)) - ac=Duel.AnnounceNumber(tp,1,2) - end - Duel.ConfirmDecktop(tp,ac) - local g=Duel.GetDecktopGroup(tp,ac) - local sg=g:Filter(Card.IsRace,nil,RACE_PLANT) - if sg:GetCount()>0 then - Duel.DisableShuffleCheck() - Duel.SendtoGrave(sg,REASON_EFFECT+REASON_REVEAL) - end - ac=ac-sg:GetCount() - if ac>0 then - Duel.SortDecktop(tp,tp,ac) - for i=1,ac do - local mg=Duel.GetDecktopGroup(tp,1) - Duel.MoveSequence(mg:GetFirst(),1) - end - end -end -function c36046926.descon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_DECK) and (c:IsReason(REASON_REVEAL) or c:GetPreviousPosition()==POS_FACEUP_DEFENCE) -end -function c36046926.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c36046926.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--森羅の水先 リーフ +function c36046926.initial_effect(c) + --deck + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(36046926,0)) + e1:SetCategory(CATEGORY_TOGRAVE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c36046926.target) + e1:SetOperation(c36046926.operation) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(36046926,2)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCondition(c36046926.descon) + e2:SetTarget(c36046926.destg) + e2:SetOperation(c36046926.desop) + c:RegisterEffect(e2) +end +function c36046926.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1) end +end +function c36046926.operation(e,tp,eg,ep,ev,re,r,rp) + if not Duel.IsPlayerCanDiscardDeck(tp,1) then return end + local ct=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0) + if ct==0 then return end + local ac=1 + if ct>1 then + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(36046926,1)) + ac=Duel.AnnounceNumber(tp,1,2) + end + Duel.ConfirmDecktop(tp,ac) + local g=Duel.GetDecktopGroup(tp,ac) + local sg=g:Filter(Card.IsRace,nil,RACE_PLANT) + if sg:GetCount()>0 then + Duel.DisableShuffleCheck() + Duel.SendtoGrave(sg,REASON_EFFECT+REASON_REVEAL) + end + ac=ac-sg:GetCount() + if ac>0 then + Duel.SortDecktop(tp,tp,ac) + for i=1,ac do + local mg=Duel.GetDecktopGroup(tp,1) + Duel.MoveSequence(mg:GetFirst(),1) + end + end +end +function c36046926.descon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_DECK) and c:IsReason(REASON_REVEAL) +end +function c36046926.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c36046926.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c36076683.lua b/script/c36076683.lua old mode 100755 new mode 100644 diff --git a/script/c36099620.lua b/script/c36099620.lua index a6e1e92b..2903eda2 100644 --- a/script/c36099620.lua +++ b/script/c36099620.lua @@ -1,5 +1,6 @@ --ジャスティス・ワールド function c36099620.initial_effect(c) + c:EnableCounterPermit(0x5) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -39,7 +40,7 @@ function c36099620.cfilter(c,tp) end function c36099620.acop(e,tp,eg,ep,ev,re,r,rp) if eg:IsExists(c36099620.cfilter,1,nil,tp) then - e:GetHandler():AddCounter(0x5+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x5,1) end end function c36099620.desreptg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c36100154.lua b/script/c36100154.lua index 921e9456..830dd5f9 100644 --- a/script/c36100154.lua +++ b/script/c36100154.lua @@ -7,20 +7,26 @@ function c36100154.initial_effect(c) c:RegisterEffect(e1) --atk up local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) e2:SetRange(LOCATION_SZONE) - e2:SetOperation(c36100154.atkup) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetCondition(c36100154.atkcon) + e2:SetTarget(c36100154.atktg) + e2:SetValue(c36100154.atkval) c:RegisterEffect(e2) end -function c36100154.atkup(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() +function c36100154.atkcon(e) + c36100154[0]=false + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and Duel.GetAttackTarget() +end +function c36100154.atktg(e,c) + return c==Duel.GetAttacker() and c:IsSetCard(0x4) +end +function c36100154.atkval(e,c) local d=Duel.GetAttackTarget() - if not a:IsSetCard(0x4) or not d or a:GetAttack()>=d:GetAttack() then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(1000) - a:RegisterEffect(e1) + if c36100154[0] or c:GetAttack()0 and tc:GetAttack()==0 then + Duel.RaiseEvent(tc,EVENT_CUSTOM+54306223,e,0,0,0,0) + end end end diff --git a/script/c3629090.lua b/script/c3629090.lua new file mode 100644 index 00000000..3e331114 --- /dev/null +++ b/script/c3629090.lua @@ -0,0 +1,65 @@ +--サイバー・エンジェル－韋駄天－ +function c3629090.initial_effect(c) + c:EnableReviveLimit() + --to hand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(3629090,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c3629090.thcon) + e1:SetTarget(c3629090.thtg) + e1:SetOperation(c3629090.thop) + c:RegisterEffect(e1) + --atk/def up + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(3629090,1)) + e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_RELEASE) + e2:SetTarget(c3629090.adtg) + e2:SetOperation(c3629090.adop) + c:RegisterEffect(e2) +end +function c3629090.thcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL +end +function c3629090.thfilter(c) + return c:GetType()==0x82 and c:IsAbleToHand() +end +function c3629090.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c3629090.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) +end +function c3629090.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c3629090.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c3629090.adfilter(c) + return c:IsFaceup() and bit.band(c:GetType(),0x81)==0x81 +end +function c3629090.adtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c3629090.adfilter,tp,LOCATION_MZONE,0,1,nil) end +end +function c3629090.adop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c3629090.adfilter,tp,LOCATION_MZONE,0,nil) + local tc=g:GetFirst() + while tc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(1000) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + tc:RegisterEffect(e2) + tc=g:GetNext() + end +end diff --git a/script/c36354007.lua b/script/c36354007.lua index d314aabc..9a331676 100644 --- a/script/c36354007.lua +++ b/script/c36354007.lua @@ -34,15 +34,12 @@ end function c36354007.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE+1 end -function c36354007.filter(c) - return c:IsDestructable() -end function c36354007.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(c36354007.filter,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0,nil) end function c36354007.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c36354007.filter,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c36354008.lua b/script/c36354008.lua deleted file mode 100644 index 8cf66748..00000000 --- a/script/c36354008.lua +++ /dev/null @@ -1,48 +0,0 @@ ---ギルフォード·ザ·ライトニング -function c36354008.initial_effect(c) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(36354008,0)) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetCondition(c36354008.ttcon) - e1:SetOperation(c36354008.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE+1) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(36354008,1)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetCondition(c36354008.descon) - e2:SetTarget(c36354008.destg) - e2:SetOperation(c36354008.desop) - c:RegisterEffect(e2) -end -function c36354008.ttcon(e,c) - if c==nil then return true end - return Duel.GetTributeCount(c)>=3 -end -function c36354008.ttop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g, REASON_SUMMON+REASON_MATERIAL) -end -function c36354008.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE+1 -end -function c36354008.filter(c) - return c:IsDestructable() -end -function c36354008.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(c36354008.filter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0,nil) -end -function c36354008.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c36354008.filter,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) -end diff --git a/script/c36361633.lua b/script/c36361633.lua index b3704ac9..a4f40f16 100644 --- a/script/c36361633.lua +++ b/script/c36361633.lua @@ -4,7 +4,7 @@ function c36361633.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_MAIN_END) + e1:SetHintTiming(0,0xc) e1:SetCondition(c36361633.condition) e1:SetOperation(c36361633.activate) c:RegisterEffect(e1) diff --git a/script/c36378044.lua b/script/c36378044.lua index 1e0b7d62..a3ac6c71 100644 --- a/script/c36378044.lua +++ b/script/c36378044.lua @@ -7,10 +7,10 @@ function c36378044.initial_effect(c) e1:SetTarget(c36378044.atktg1) e1:SetOperation(c36378044.atkop) c:RegisterEffect(e1) - --atk change + --coin local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(36378044,0)) - e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_COIN) + e2:SetCategory(CATEGORY_DRAW+CATEGORY_DESTROY+CATEGORY_COIN) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e2:SetCode(EVENT_ATTACK_ANNOUNCE) e2:SetRange(LOCATION_SZONE) @@ -21,8 +21,9 @@ function c36378044.initial_effect(c) c:RegisterEffect(e2) --life lost local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) e3:SetCode(EVENT_DESTROYED) + e3:SetCondition(c36378044.descon) e3:SetOperation(c36378044.desop) c:RegisterEffect(e3) end @@ -53,12 +54,11 @@ function c36378044.atkop(e,tp,eg,ep,ev,re,r,rp) Duel.Destroy(e:GetHandler(),REASON_EFFECT) end end -function c36378044.desop(e,tp,eg,ep,ev,re,r,rp) +function c36378044.descon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:GetPreviousControler()==tp and c:IsStatus(STATUS_ACTIVATED) then - local lp=Duel.GetLP(tp) - if lp>6000 then lp=lp-6000 - else lp=0 end - Duel.SetLP(tp,lp) - end + return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) +end +function c36378044.desop(e,tp,eg,ep,ev,re,r,rp) + local lp=Duel.GetLP(tp) + Duel.SetLP(tp,lp-6000) end diff --git a/script/c36378213.lua b/script/c36378213.lua old mode 100755 new mode 100644 index dc406d4f..ca47752b --- a/script/c36378213.lua +++ b/script/c36378213.lua @@ -30,6 +30,7 @@ function c36378213.activate(e,tp,eg,ep,ev,re,r,rp) if ft<=0 then return end local g=eg:Filter(c36378213.spfilter,nil,e,tp) if g:GetCount()==0 then return end + if g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if g:GetCount()>ft then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) g=g:Select(tp,ft,ft,nil) diff --git a/script/c36407615.lua b/script/c36407615.lua index 8c5b0715..fa4db9d7 100644 --- a/script/c36407615.lua +++ b/script/c36407615.lua @@ -20,7 +20,7 @@ function c36407615.atop(e,tp,eg,ep,ev,re,r,rp) local tc=g:GetFirst() while tc do local atk=tc:GetAttack() - local def=tc:GetDefence() + local def=tc:GetDefense() local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK_FINAL) @@ -29,7 +29,7 @@ function c36407615.atop(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetValue(atk) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) tc:RegisterEffect(e2) diff --git a/script/c36415522.lua b/script/c36415522.lua index 7ed98fe7..28d0613d 100644 --- a/script/c36415522.lua +++ b/script/c36415522.lua @@ -93,7 +93,7 @@ function c36415522.atktg(e,tp,eg,ep,ev,re,r,rp,chk) end function c36415522.atkop(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetLabelObject() - if tc:IsRelateToBattle() and tc:IsFaceup() then + if tc:IsRelateToBattle() then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD) e1:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) diff --git a/script/c3642509.lua b/script/c3642509.lua index f205ef8f..cad083f4 100644 --- a/script/c3642509.lua +++ b/script/c3642509.lua @@ -29,7 +29,7 @@ function c3642509.atkop(e,tp,eg,ep,ev,re,r,rp) local tc=tg:GetFirst() while tc do local atk=tc:GetAttack() - local def=tc:GetDefence() + local def=tc:GetDefense() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK_FINAL) @@ -38,7 +38,7 @@ function c3642509.atkop(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetValue(def/2) e2:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e2) diff --git a/script/c36468556.lua b/script/c36468556.lua old mode 100755 new mode 100644 diff --git a/script/c3648368.lua b/script/c3648368.lua index 788e3a85..956a7e64 100644 --- a/script/c3648368.lua +++ b/script/c3648368.lua @@ -18,12 +18,12 @@ function c3648368.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD,nil) end function c3648368.filter(c) - return c:IsFacedown() and c:IsDefencePos() + return c:IsFacedown() and c:IsDefensePos() end function c3648368.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c3648368.filter(chkc) end if chk==0 then return Duel.IsExistingTarget(c3648368.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWNDEFENCE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWNDEFENSE) local g=Duel.SelectTarget(tp,c3648368.filter,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) end diff --git a/script/c36499284.lua b/script/c36499284.lua index b599dbe6..9ad3166a 100644 --- a/script/c36499284.lua +++ b/script/c36499284.lua @@ -18,7 +18,7 @@ function c36499284.initial_effect(c) c:RegisterEffect(e2) end function c36499284.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c36499284.filter2(c) return c:IsRace(RACE_BEASTWARRIOR) and c:IsDiscardable() diff --git a/script/c36553319.lua b/script/c36553319.lua old mode 100755 new mode 100644 index e9d38f27..0f913d28 --- a/script/c36553319.lua +++ b/script/c36553319.lua @@ -49,8 +49,11 @@ function c36553319.sstg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c36553319.ssop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c36553319.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) diff --git a/script/c36559572.lua b/script/c36559572.lua deleted file mode 100644 index d688c8bf..00000000 --- a/script/c36559572.lua +++ /dev/null @@ -1,47 +0,0 @@ ---Spider Web -function c36559572.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c36559572.target) - e1:SetOperation(c36559572.operation) - c:RegisterEffect(e1) - if not c36559572.global_check then - c36559572.global_check=true - local ge=Effect.CreateEffect(c) - ge:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge:SetCode(EVENT_TO_GRAVE) - ge:SetOperation(c36559572.op) - Duel.RegisterEffect(ge,0) - end - end -function c36559572.filter(c) - local tid=Duel.GetTurnCount() - return c:IsAbleToHand() and c:GetFlagEffect(36559572)>0 and c:GetTurnID()~=tid - end - -function c36559572.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp and c36559572.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c36559572.filter,tp,0,LOCATION_GRAVE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c36559572.filter,tp,0,LOCATION_GRAVE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c36559572.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,tp,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end -function c36559572.op(e,tp,eg,ep,ev,re,r,rp) -local tc=eg:GetFirst() -while tc do -if tc:IsLocation(LOCATION_GRAVE) then -tc:RegisterFlagEffect(36559572,RESET_PHASE+PHASE_END,0,2,1) -end -tc=eg:GetNext() -end -end diff --git a/script/c3657444.lua b/script/c3657444.lua index 94d365ab..a4129e95 100644 --- a/script/c3657444.lua +++ b/script/c3657444.lua @@ -61,17 +61,14 @@ function c3657444.operation2(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFacedown() or not c:IsRelateToEffect(e) or not tc:IsRelateToEffect(e) then return end local sg=Group.FromCards(c,tc) - Duel.Remove(sg,POS_FACEUP,REASON_EFFECT) + if Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)~=2 then return end Duel.BreakEffect() Duel.Draw(tp,2,REASON_EFFECT) end -function c3657444.filter3(c) - return c:IsAbleToDeck() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end function c3657444.target3(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToRemove() and Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_HAND,0,1,nil) - and Duel.IsExistingMatchingCard(c3657444.filter3,tp,LOCATION_GRAVE,0,1,nil) end + and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_GRAVE,0,1,nil) end Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE) @@ -83,10 +80,10 @@ function c3657444.operation3(e,tp,eg,ep,ev,re,r,rp) local hg=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_HAND,0,1,1,nil) if hg:GetCount()>0 then hg:AddCard(c) - Duel.Remove(hg,POS_FACEUP,REASON_EFFECT) + if Duel.Remove(hg,POS_FACEUP,REASON_EFFECT)~=2 then return end Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local gg=Duel.SelectMatchingCard(tp,c3657444.filter3,tp,LOCATION_GRAVE,0,1,1,nil) + local gg=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_GRAVE,0,1,1,nil) if gg:GetCount()>0 then Duel.SendtoDeck(gg,nil,0,REASON_EFFECT) Duel.ConfirmCards(1-tp,gg) diff --git a/script/c36584821.lua b/script/c36584821.lua index 83821ed2..a5183bac 100644 --- a/script/c36584821.lua +++ b/script/c36584821.lua @@ -11,7 +11,7 @@ function c36584821.initial_effect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) e2:SetValue(c36584821.value) c:RegisterEffect(e2) end diff --git a/script/c36607978.lua b/script/c36607978.lua index 1ca1d728..50824586 100644 --- a/script/c36607978.lua +++ b/script/c36607978.lua @@ -18,7 +18,7 @@ function c36607978.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(300) c:RegisterEffect(e3) --equip limit diff --git a/script/c36625827.lua b/script/c36625827.lua index d0c7c971..ac898bf4 100644 --- a/script/c36625827.lua +++ b/script/c36625827.lua @@ -23,18 +23,18 @@ end function c36625827.addc(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) if tc and tc:IsFaceup() and tc:IsCode(75041269) then - tc:AddCounter(0x1b+COUNTER_NEED_ENABLE,1) + tc:AddCounter(0x1b,1) end tc=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5) if tc and tc:IsFaceup() and tc:IsCode(75041269) then - tc:AddCounter(0x1b+COUNTER_NEED_ENABLE,1) + tc:AddCounter(0x1b,1) end end function c36625827.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c36625827.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c36625827.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c36625827.filter(chkc) end diff --git a/script/c36630403.lua b/script/c36630403.lua old mode 100755 new mode 100644 diff --git a/script/c36687247.lua b/script/c36687247.lua index cb430c5a..6076efed 100644 --- a/script/c36687247.lua +++ b/script/c36687247.lua @@ -37,7 +37,7 @@ function c36687247.regop(e,tp,eg,ep,ev,re,r,rp) end end function c36687247.filter(c) - return c:IsSetCard(0x27) and c:GetCode()~=36687247 and c:IsAbleToHand() + return c:IsSetCard(0x27) and c:GetCode()~=36687247 and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c36687247.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c36687247.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c36693940.lua b/script/c36693940.lua index 1a16d357..bcafc26d 100644 --- a/script/c36693940.lua +++ b/script/c36693940.lua @@ -28,7 +28,8 @@ function c36693940.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetDescription(aux.Stringid(36693940,0)) e1:SetProperty(EFFECT_FLAG_CLIENT_HINT) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(36693940) + e1:SetCode(EFFECT_ADD_FUSION_SETCODE) + e1:SetValue(0xad) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) end diff --git a/script/c36704180.lua b/script/c36704180.lua index 6cbfbeba..ed088f3f 100644 --- a/script/c36704180.lua +++ b/script/c36704180.lua @@ -40,8 +40,10 @@ function c36704180.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c36704180.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c36704180.drcfilter(c) diff --git a/script/c36734924.lua b/script/c36734924.lua index c6720266..37d9d2b4 100644 --- a/script/c36734924.lua +++ b/script/c36734924.lua @@ -31,7 +31,7 @@ function c36734924.tgfilter(c) return c:IsFaceup() and c:IsType(TYPE_EFFECT) and c:IsAbleToGrave() end function c36734924.thfilter(c) - return c:IsSetCard(0xdd) and c:IsAbleToHand() + return c:IsSetCard(0xdd) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c36734924.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c36734924.tgfilter,tp,LOCATION_MZONE,0,1,nil) @@ -49,7 +49,7 @@ function c36734924.thop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local sg1=g:Select(tp,1,1,nil) g:Remove(Card.IsCode,nil,sg1:GetFirst():GetCode()) - if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(36734924,2)) then + if g:GetCount()>0 and Duel.SelectYesNo(tp,210) then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local sg2=g:Select(tp,1,1,nil) sg1:Merge(sg2) diff --git a/script/c36736723.lua b/script/c36736723.lua index 265ee911..3dd86dca 100644 --- a/script/c36736723.lua +++ b/script/c36736723.lua @@ -64,6 +64,5 @@ function c36736723.thop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c36757171.lua b/script/c36757171.lua index 69739a3b..ea7a3f32 100644 --- a/script/c36757171.lua +++ b/script/c36757171.lua @@ -41,9 +41,7 @@ function c36757171.operation(e,tp,eg,ep,ev,re,r,rp) if g:GetCount()==0 then return end Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp) end end diff --git a/script/c3682106.lua b/script/c3682106.lua index 77e41555..16b50262 100644 --- a/script/c3682106.lua +++ b/script/c3682106.lua @@ -19,7 +19,7 @@ c3682106.collection={ [74593218]=true; } function c3682106.filter(c) - return c:IsFaceup() and c3682106.collection[c:GetCode()] and c:IsDestructable() + return c:IsFaceup() and c3682106.collection[c:GetCode()] end function c3682106.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c3682106.filter(chkc) end diff --git a/script/c368382.lua b/script/c368382.lua index 7984d098..63d9553b 100644 --- a/script/c368382.lua +++ b/script/c368382.lua @@ -2,9 +2,8 @@ function c368382.initial_effect(c) --pendulum summon aux.EnablePendulumAttribute(c) - -- + --disable local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(368382,0)) e2:SetCategory(CATEGORY_DISABLE) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetCode(EVENT_CHAIN_SOLVING) @@ -30,7 +29,7 @@ function c368382.negcon(e,tp,eg,ep,ev,re,r,rp) and g and g:IsExists(c368382.tfilter,1,e:GetHandler(),tp) and Duel.IsChainDisablable(ev) end function c368382.negop(e,tp,eg,ep,ev,re,r,rp) - if Duel.SelectYesNo(tp,aux.Stringid(368382,1)) then + if Duel.SelectYesNo(tp,aux.Stringid(368382,0)) then e:GetHandler():RegisterFlagEffect(368382,RESET_EVENT+0x1fe0000,0,1) Duel.NegateEffect(ev) Duel.BreakEffect() diff --git a/script/c36857073.lua b/script/c36857073.lua old mode 100755 new mode 100644 index 2b32d6cc..2af5faa0 --- a/script/c36857073.lua +++ b/script/c36857073.lua @@ -61,14 +61,16 @@ function c36857073.spfilter2(c,e,tp) end function c36857073.spfilter3(c,e,tp,lv) return c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and c:GetLevel()==lv and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + and c:GetLevel()==lv end function c36857073.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c36857073.spfilter2,tp,LOCATION_DECK,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK+LOCATION_GRAVE) end function c36857073.spop2(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g1=Duel.SelectMatchingCard(tp,c36857073.spfilter2,tp,LOCATION_DECK,0,1,1,nil,e,tp) @@ -76,5 +78,6 @@ function c36857073.spop2(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g2=Duel.SelectMatchingCard(tp,c36857073.spfilter3,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,g1:GetFirst():GetLevel()) g1:Merge(g2) - Duel.SpecialSummon(g1,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + if g1:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end + Duel.SpecialSummon(g1,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end diff --git a/script/c36870345.lua b/script/c36870345.lua index 255dccd6..2895e21b 100644 --- a/script/c36870345.lua +++ b/script/c36870345.lua @@ -59,10 +59,10 @@ function c36870345.descon(e,tp,eg,ep,ev,re,r,rp) return c:GetPreviousLocation()==LOCATION_SZONE and not c:IsReason(REASON_LOST_TARGET) end function c36870345.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end + if chkc then return chkc:IsOnField() end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c36870345.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c36898537.lua b/script/c36898537.lua index 50d51f44..0c0ec123 100644 --- a/script/c36898537.lua +++ b/script/c36898537.lua @@ -119,11 +119,7 @@ function c36898537.ctop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(1-tp,Card.IsAbleToChangeControler,1-tp,LOCATION_MZONE,0,1,1,nil) local tc=g:GetFirst() if not tc then return end - if not Duel.GetControl(tc,tp) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - else + if Duel.GetControl(tc,tp)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_ATTACK) diff --git a/script/c36916401.lua b/script/c36916401.lua index 3acd944d..3e115e6f 100644 --- a/script/c36916401.lua +++ b/script/c36916401.lua @@ -30,6 +30,6 @@ end function c36916401.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c36953371.lua b/script/c36953371.lua index 67a8d9ff..903cf95a 100644 --- a/script/c36953371.lua +++ b/script/c36953371.lua @@ -3,10 +3,10 @@ function c36953371.initial_effect(c) --synchro summon aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),aux.NonTuner(Card.IsSetCard,0x9a),1) c:EnableReviveLimit() - --defence attack + --defense attack local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DEFENCE_ATTACK) + e1:SetCode(EFFECT_DEFENSE_ATTACK) e1:SetValue(1) c:RegisterEffect(e1) --destroy @@ -18,20 +18,13 @@ function c36953371.initial_effect(c) e2:SetTarget(c36953371.destg) e2:SetOperation(c36953371.desop) c:RegisterEffect(e2) - --add setcode - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e3:SetCode(EFFECT_ADD_SETCODE) - e3:SetValue(0x9a) - c:RegisterEffect(e3) end function c36953371.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO and not Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_GRAVE,0,1,nil,TYPE_SPELL+TYPE_TRAP) end function c36953371.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c36953371.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c36953371.filter,tp,0,LOCATION_ONFIELD,1,nil) end diff --git a/script/c36956512.lua b/script/c36956512.lua new file mode 100644 index 00000000..14ff8cc6 --- /dev/null +++ b/script/c36956512.lua @@ -0,0 +1,89 @@ +--Gadarla, the Mystery Dust Kaiju +function c36956512.initial_effect(c) + c:SetUniqueOnField(1,0,20000000,LOCATION_MZONE) + --special summon rule + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetRange(LOCATION_HAND) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) + e1:SetTargetRange(POS_FACEUP_ATTACK,1) + e1:SetCondition(c36956512.spcon) + e1:SetOperation(c36956512.spop) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetRange(LOCATION_HAND) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) + e2:SetTargetRange(POS_FACEUP_ATTACK,0) + e2:SetCondition(c36956512.spcon2) + c:RegisterEffect(e2) + --Halve ATK + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(36956512,0)) + e3:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetRange(LOCATION_MZONE) + e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e3:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+0x1c0) + e3:SetCountLimit(1) + e3:SetCondition(c36956512.atkcon) + e3:SetCost(c36956512.atkcost) + e3:SetTarget(c36956512.atktg) + e3:SetOperation(c36956512.atkop) + c:RegisterEffect(e3) +end +function c36956512.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xd3) +end +function c36956512.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(Card.IsReleasable,tp,0,LOCATION_MZONE,1,nil) +end +function c36956512.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local g=Duel.SelectMatchingCard(tp,Card.IsReleasable,tp,0,LOCATION_MZONE,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c36956512.spcon2(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c36956512.cfilter,tp,0,LOCATION_MZONE,1,nil) +end +function c36956512.atkcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() +end +function c36956512.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x37,3,REASON_COST) end + Duel.RemoveCounter(tp,1,1,0x37,3,REASON_COST) +end +function c36956512.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end +end +function c36956512.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,c) + local tc=tg:GetFirst() + while tc do + local atk=tc:GetAttack() + local def=tc:GetDefense() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(atk/2) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) + e2:SetValue(def/2) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2) + tc=tg:GetNext() + end +end diff --git a/script/c36970611.lua b/script/c36970611.lua old mode 100755 new mode 100644 index 23e2886f..1d039a37 --- a/script/c36970611.lua +++ b/script/c36970611.lua @@ -40,7 +40,7 @@ function c36970611.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return c36970611.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end if chk==0 then return true end if c36970611.cost2(e,tp,eg,ep,ev,re,r,rp,0) and c36970611.target2(e,tp,eg,ep,ev,re,r,rp,0,chkc) - and Duel.SelectYesNo(tp,aux.Stringid(36970611,2)) then + and Duel.SelectYesNo(tp,94) then e:SetProperty(EFFECT_FLAG_CARD_TARGET) e:SetOperation(c36970611.operation) c36970611.cost2(e,tp,eg,ep,ev,re,r,rp,1) @@ -52,7 +52,7 @@ function c36970611.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c36970611.cost2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c36970611.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) and e:GetHandler():GetFlagEffect(36970611)==0 end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(36970611,3)) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) local cg=Duel.SelectMatchingCard(tp,c36970611.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil) Duel.Remove(cg,POS_FACEUP,REASON_COST) e:GetHandler():RegisterFlagEffect(36970611,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) diff --git a/script/c36995273.lua b/script/c36995273.lua old mode 100755 new mode 100644 index 9fce3eaa..fadad848 --- a/script/c36995273.lua +++ b/script/c36995273.lua @@ -33,9 +33,9 @@ function c36995273.costcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c36995273.costop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLP(tp)>=500 then + if Duel.CheckLPCost(tp,500) then Duel.PayLPCost(tp,500) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end \ No newline at end of file diff --git a/script/c37053871.lua b/script/c37053871.lua index deeafe5a..f756e9dd 100644 --- a/script/c37053871.lua +++ b/script/c37053871.lua @@ -12,7 +12,7 @@ function c37053871.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(37053871,1)) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BE_BATTLE_TARGET) + e2:SetCode(EVENT_ATTACK_ANNOUNCE) e2:SetRange(LOCATION_SZONE) e2:SetCondition(c37053871.atkcon) e2:SetTarget(c37053871.atktg2) @@ -20,18 +20,22 @@ function c37053871.initial_effect(c) c:RegisterEffect(e2) end function c37053871.atkcon(e,tp,eg,ep,ev,re,r,rp) - return eg:GetFirst():IsControler(tp) + local a=Duel.GetAttacker() + local at=Duel.GetAttackTarget() + return a:IsControler(1-tp) and at and at:IsControler(tp) end function c37053871.atktg1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end + local a=Duel.GetAttacker + local at=Duel.GetAttackTarget() e:SetLabel(0) - if Duel.CheckEvent(EVENT_BE_BATTLE_TARGET) and Duel.GetAttackTarget():IsControler(tp) - and Duel.GetAttackTarget() and Duel.SelectYesNo(tp,aux.Stringid(37053871,0)) then + if Duel.CheckEvent(EVENT_ATTACK_ANNOUNCE) and c37053871.atkcon(e,tp,eg,ep,ev,re,r,rp,chk) + and not Duel.GetAttacker():IsHasEffect(EFFECT_CANNOT_DIRECT_ATTACK) and Duel.SelectYesNo(tp,aux.Stringid(37053871,0)) then e:SetLabel(1) end end function c37053871.atktg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end + if chk==0 then return not Duel.GetAttacker():IsHasEffect(EFFECT_CANNOT_DIRECT_ATTACK) end e:SetLabel(1) end function c37053871.atkop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c37055344.lua b/script/c37055344.lua index 71b3ddcb..105ffd4d 100644 --- a/script/c37055344.lua +++ b/script/c37055344.lua @@ -21,16 +21,16 @@ function c37055344.initial_effect(c) c:RegisterEffect(e2) end function c37055344.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE + return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c37055344.filter1(c) return c:IsFaceup() and c:IsSetCard(0x8d) and c:IsCanTurnSet() end function c37055344.filter2(c) - return c:IsPosition(POS_FACEDOWN_DEFENCE) + return c:IsPosition(POS_FACEDOWN_DEFENSE) end function c37055344.filter3(c) - return c:IsPosition(POS_FACEDOWN_DEFENCE) + return c:IsPosition(POS_FACEDOWN_DEFENSE) end function c37055344.filter4(c) return c:IsFaceup() and c:IsCanTurnSet() @@ -44,7 +44,7 @@ function c37055344.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local b1=Duel.IsExistingTarget(c37055344.filter1,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(c37055344.filter2,tp,0,LOCATION_MZONE,1,nil) local b2=Duel.IsExistingTarget(c37055344.filter3,tp,LOCATION_MZONE,0,1,nil) - if Duel.GetCurrentPhase()==PHASE_BATTLE + if (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) and (b1 or b2) and Duel.SelectYesNo(tp,aux.Stringid(37055344,3)) then local op=0 if b1 and b2 then @@ -60,7 +60,7 @@ function c37055344.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local g=Duel.SelectTarget(tp,c37055344.filter1,tp,LOCATION_MZONE,0,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWNDEFENCE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWNDEFENSE) local g=Duel.SelectTarget(tp,c37055344.filter3,tp,LOCATION_MZONE,0,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) end @@ -93,7 +93,7 @@ function c37055344.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local g=Duel.SelectTarget(tp,c37055344.filter1,tp,LOCATION_MZONE,0,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWNDEFENCE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWNDEFENSE) local g=Duel.SelectTarget(tp,c37055344.filter3,tp,LOCATION_MZONE,0,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) end @@ -104,8 +104,8 @@ function c37055344.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if e:GetLabel()==0 then if not tc:IsRelateToEffect(e) or tc:IsFacedown() then return end - if Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE)==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWNDEFENCE) + if Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)==0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWNDEFENSE) local g=Duel.SelectMatchingCard(tp,c37055344.filter2,tp,0,LOCATION_MZONE,1,1,nil) if g:GetCount()>0 then Duel.ChangePosition(g,POS_FACEUP_ATTACK) @@ -116,7 +116,7 @@ function c37055344.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) local g=Duel.SelectMatchingCard(tp,c37055344.filter4,tp,0,LOCATION_MZONE,1,1,nil) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) end end end diff --git a/script/c37057012.lua b/script/c37057012.lua index b6762e05..ba39563a 100644 --- a/script/c37057012.lua +++ b/script/c37057012.lua @@ -5,21 +5,18 @@ function c37057012.initial_effect(c) aux.AddFusionProcCodeRep(c,64268668,2,false,false) --atk up local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_DAMAGE_CALCULATING) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) e1:SetCondition(c37057012.atkcon) - e1:SetOperation(c37057012.atkop) + e1:SetValue(c37057012.atkval) c:RegisterEffect(e1) end -function c37057012.atkcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler()==Duel.GetAttacker() and Duel.GetAttackTarget()~=nil +function c37057012.atkcon(e) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL + and e:GetHandler()==Duel.GetAttacker() and Duel.GetAttackTarget()~=nil end -function c37057012.atkop(e,tp,eg,ep,ev,re,r,rp) - local bc=Duel.GetAttackTarget() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(bc:GetAttack()/2) - e:GetHandler():RegisterEffect(e1) +function c37057012.atkval(e,c) + return Duel.GetAttackTarget():GetAttack()/2 end diff --git a/script/c37083210.lua b/script/c37083210.lua index fb8a4017..8a33ef41 100644 --- a/script/c37083210.lua +++ b/script/c37083210.lua @@ -14,7 +14,7 @@ function c37083210.condition(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local at=Duel.GetAttackTarget() return Duel.GetCurrentPhase()==PHASE_DAMAGE and not Duel.IsDamageCalculated() - and a:IsControler(1-tp) and at and at:IsPosition(POS_FACEUP_DEFENCE) and a:GetAttack()4 then ft=4 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c37132349.filter,tp,LOCATION_HAND,0,1,ft,nil,e,tp) if g:GetCount()>0 then diff --git a/script/c37169670.lua b/script/c37169670.lua index 5613b365..5ce864b1 100644 --- a/script/c37169670.lua +++ b/script/c37169670.lua @@ -34,14 +34,15 @@ function c37169670.damtg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() local d=Duel.GetAttackTarget() if d==c then d=Duel.GetAttacker() end - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,d:GetDefence()) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,d:GetDefense()) Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,d:GetAttack()) end function c37169670.damop(e,tp,eg,ep,ev,re,r,rp) local ex1,a1,b1,p1,d1=Duel.GetOperationInfo(0,CATEGORY_DAMAGE) local ex2,a2,b2,p2,d2=Duel.GetOperationInfo(0,CATEGORY_RECOVER) - Duel.Damage(1-tp,d1,REASON_EFFECT) - Duel.Recover(tp,d2,REASON_EFFECT) + Duel.Damage(1-tp,d1,REASON_EFFECT,true) + Duel.Recover(tp,d2,REASON_EFFECT,true) + Duel.RDComplete() end function c37169670.spcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsReason(REASON_DESTROY) diff --git a/script/c3717252.lua b/script/c3717252.lua old mode 100755 new mode 100644 diff --git a/script/c37192109.lua b/script/c37192109.lua old mode 100755 new mode 100644 index 61e79ace..5a786ec0 --- a/script/c37192109.lua +++ b/script/c37192109.lua @@ -1,122 +1,123 @@ ---PSYフレームロード・Ζ -function c37192109.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --remove - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(37192109,0)) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1) - e1:SetTarget(c37192109.rmtg) - e1:SetOperation(c37192109.rmop) - c:RegisterEffect(e1) - --to hand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(37192109,1)) - e2:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetTarget(c37192109.thtg) - e2:SetOperation(c37192109.thop) - c:RegisterEffect(e2) -end -function c37192109.rmfilter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:IsAbleToRemove() - and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c37192109.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c37192109.rmfilter(chkc) end - if chk==0 then return e:GetHandler():IsAbleToRemove() - and Duel.IsExistingTarget(c37192109.rmfilter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,c37192109.rmfilter,tp,0,LOCATION_MZONE,1,1,nil) - g:AddCard(e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,2,0,0) -end -function c37192109.rmop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if not c:IsRelateToEffect(e) or not tc:IsRelateToEffect(e) then return end - local g=Group.FromCards(c,tc) - if Duel.Remove(g,0,REASON_EFFECT+REASON_TEMPORARY)~=0 then - local fid=c:GetFieldID() - local rct=1 - if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_STANDBY then rct=2 end - local og=Duel.GetOperatedGroup() - local oc=og:GetFirst() - while oc do - if oc:IsControler(tp) then - oc:RegisterFlagEffect(37192109,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,0,rct,fid) - else - oc:RegisterFlagEffect(37192109,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY+RESET_OPPO_TURN,0,1,fid) - end - oc=og:GetNext() - end - og:KeepAlive() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetCountLimit(1) - e1:SetLabel(fid) - e1:SetLabelObject(og) - e1:SetCondition(c37192109.retcon) - e1:SetOperation(c37192109.retop) - if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_STANDBY then - e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,2) - e1:SetValue(Duel.GetTurnCount()) - else - e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN) - e1:SetValue(0) - end - Duel.RegisterEffect(e1,tp) - end -end -function c37192109.retfilter(c,fid) - return c:GetFlagEffectLabel(37192109)==fid -end -function c37192109.retcon(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetTurnPlayer()~=tp or Duel.GetTurnCount()==e:GetValue() then return false end - local g=e:GetLabelObject() - if not g:IsExists(c37192109.retfilter,1,nil,e:GetLabel()) then - g:DeleteGroup() - e:Reset() - return false - else return true end -end -function c37192109.retop(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject() - local sg=g:Filter(c37192109.retfilter,nil,e:GetLabel()) - g:DeleteGroup() - local tc=sg:GetFirst() - while tc do - Duel.ReturnToField(tc) - tc=sg:GetNext() - end -end -function c37192109.thfilter(c) - return c:IsSetCard(0xc1) and c:IsAbleToHand() -end -function c37192109.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c37192109.thfilter(chkc) and chkc~=e:GetHandler() end - if chk==0 then return e:GetHandler():IsAbleToExtra() - and Duel.IsExistingTarget(c37192109.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c37192109.thfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) -end -function c37192109.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,2,REASON_EFFECT)~=0 - and c:IsLocation(LOCATION_EXTRA) and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end +--PSYフレームロード・Ζ +function c37192109.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --remove + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(37192109,0)) + e1:SetCategory(CATEGORY_REMOVE) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_MZONE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,0x1e0) + e1:SetCountLimit(1) + e1:SetTarget(c37192109.rmtg) + e1:SetOperation(c37192109.rmop) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(37192109,1)) + e2:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetTarget(c37192109.thtg) + e2:SetOperation(c37192109.thop) + c:RegisterEffect(e2) +end +function c37192109.rmfilter(c) + return c:IsPosition(POS_FACEUP_ATTACK) and c:IsAbleToRemove() + and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c37192109.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c37192109.rmfilter(chkc) end + if chk==0 then return e:GetHandler():IsAbleToRemove() + and Duel.IsExistingTarget(c37192109.rmfilter,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectTarget(tp,c37192109.rmfilter,tp,0,LOCATION_MZONE,1,1,nil) + g:AddCard(e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,2,0,0) +end +function c37192109.rmop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if not c:IsRelateToEffect(e) or not tc:IsRelateToEffect(e) then return end + local g=Group.FromCards(c,tc) + if Duel.Remove(g,0,REASON_EFFECT+REASON_TEMPORARY)~=0 then + local fid=c:GetFieldID() + local rct=1 + if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_STANDBY then rct=2 end + local og=Duel.GetOperatedGroup() + local oc=og:GetFirst() + while oc do + if oc:IsControler(tp) then + oc:RegisterFlagEffect(37192109,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,0,rct,fid) + else + oc:RegisterFlagEffect(37192109,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY+RESET_OPPO_TURN,0,rct,fid) + end + oc=og:GetNext() + end + og:KeepAlive() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetCode(EVENT_PHASE+PHASE_STANDBY) + e1:SetCountLimit(1) + e1:SetLabel(fid) + e1:SetLabelObject(og) + e1:SetCondition(c37192109.retcon) + e1:SetOperation(c37192109.retop) + if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_STANDBY then + e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,2) + e1:SetValue(Duel.GetTurnCount()) + else + e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN) + e1:SetValue(0) + end + Duel.RegisterEffect(e1,tp) + end +end +function c37192109.retfilter(c,fid) + return c:GetFlagEffectLabel(37192109)==fid +end +function c37192109.retcon(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetTurnPlayer()~=tp or Duel.GetTurnCount()==e:GetValue() then return false end + local g=e:GetLabelObject() + if not g:IsExists(c37192109.retfilter,1,nil,e:GetLabel()) then + g:DeleteGroup() + e:Reset() + return false + else return true end +end +function c37192109.retop(e,tp,eg,ep,ev,re,r,rp) + local g=e:GetLabelObject() + local sg=g:Filter(c37192109.retfilter,nil,e:GetLabel()) + g:DeleteGroup() + local tc=sg:GetFirst() + while tc do + Duel.ReturnToField(tc) + tc=sg:GetNext() + end +end +function c37192109.thfilter(c) + return c:IsSetCard(0xc1) and c:IsAbleToHand() +end +function c37192109.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c37192109.thfilter(chkc) and chkc~=e:GetHandler() end + if chk==0 then return e:GetHandler():IsAbleToExtra() + and Duel.IsExistingTarget(c37192109.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c37192109.thfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) +end +function c37192109.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,2,REASON_EFFECT)~=0 + and c:IsLocation(LOCATION_EXTRA) and tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c37209439.lua b/script/c37209439.lua index 2edf7604..6e647a5c 100644 --- a/script/c37209439.lua +++ b/script/c37209439.lua @@ -100,7 +100,7 @@ function c37209439.negop(e,tp,eg,ep,ev,re,r,rp) Duel.RegisterEffect(e3,tp) end function c37209439.distg(e,c) - return c:GetFieldID()~=e:GetLabel() and c:IsType(TYPE_TRAP) and c:IsStatus(STATUS_ACTIVATED) + return c:GetFieldID()~=e:GetLabel() and c:IsType(TYPE_TRAP) end function c37209439.disop(e,tp,eg,ep,ev,re,r,rp) local tl=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) diff --git a/script/c37257834.lua b/script/c37257834.lua deleted file mode 100644 index 9e772f5a..00000000 --- a/script/c37257834.lua +++ /dev/null @@ -1,41 +0,0 @@ ---Deck Destruction Virus -function c37257834.initial_effect(c) ---Activate -local e1=Effect.CreateEffect(c) -e1:SetType(EFFECT_TYPE_ACTIVATE) -e1:SetCategory(CATEGORY_DECKDES) -e1:SetCode(EVENT_BATTLE_END) -e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) -e1:SetCondition(c37257834.condition) -e1:SetTarget(c37257834.target) -e1:SetOperation(c37257834.activate) -c:RegisterEffect(e1) ---Randomly Discard 10 cards -local e2=Effect.CreateEffect(c) -e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) -e2:SetProperty(EFFECT_FLAG_DELAY) -e2:SetRange(LOCATION_SZONE) -e2:SetCode(EVENT_BATTLE_END) -e2:SetCondition(c37257834.condition) -e2:SetTarget(c37257834.target) -e2:SetOperation(c37257834.activate) -c:RegisterEffect(e2) -end -function c37257834.condition(e,tp,eg,ep,ev,re,r,rp) -local d=Duel.GetAttackTarget() -local a=Duel.GetAttacker() -if Duel.GetAttackTarget()==nil or Duel.GetAttacker()==nil then return end -return d:IsControler(tp) and d:IsAttribute(ATTRIBUTE_DARK) and d:IsRace(RACE_FIEND) and d:IsAttackBelow(500) and d:IsStatus(STATUS_BATTLE_DESTROYED) -or (a:IsControler(tp) and a:IsAttribute(ATTRIBUTE_DARK) and a:IsAttackBelow(500) and a:IsRace(RACE_FIEND)and a:IsStatus(STATUS_BATTLE_DESTROYED)) -end -function c37257834.filter(c) - return c:IsAbleToGrave() -end -function c37257834.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c37257834.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) - end - function c37257834.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c37257834.filter,tp,0,LOCATION_DECK,nil):RandomSelect(tp,10) - Duel.SendtoGrave(g,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c37279508.lua b/script/c37279508.lua new file mode 100644 index 00000000..e0f8f23a --- /dev/null +++ b/script/c37279508.lua @@ -0,0 +1,72 @@ +--No.37 希望織竜スパイダー・シャーク +function c37279508.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WATER),4,2) + c:EnableReviveLimit() + --atk down + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(37279508,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetRange(LOCATION_MZONE) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetCountLimit(1,37279508) + e1:SetCost(c37279508.atkcost) + e1:SetTarget(c37279508.atktg) + e1:SetOperation(c37279508.atkop) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(37279508,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCountLimit(1,37279509) + e2:SetCondition(c37279508.spcon) + e2:SetTarget(c37279508.sptg) + e2:SetOperation(c37279508.spop) + c:RegisterEffect(e2) +end +c37279508.xyz_number=37 +function c37279508.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c37279508.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end +end +function c37279508.atkop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) + local tc=g:GetFirst() + while tc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(-1000) + tc:RegisterEffect(e1) + tc=g:GetNext() + end +end +function c37279508.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) +end +function c37279508.spfilter(c,e,tp) + return c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c37279508.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c37279508.spfilter(chkc,e,tp) and chkc~=e:GetHandler() end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c37279508.spfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c37279508.spfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler(),e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c37279508.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c37318031.lua b/script/c37318031.lua index c2c9d7e6..7ea9c2f0 100644 --- a/script/c37318031.lua +++ b/script/c37318031.lua @@ -10,7 +10,7 @@ function c37318031.initial_effect(c) c:RegisterEffect(e1) end function c37318031.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c37318031.cfilter(c) return c:IsFaceup() and c:IsSetCard(0x3008) diff --git a/script/c3734202.lua b/script/c3734202.lua old mode 100755 new mode 100644 diff --git a/script/c37364101.lua b/script/c37364101.lua old mode 100755 new mode 100644 diff --git a/script/c37383714.lua b/script/c37383714.lua old mode 100755 new mode 100644 diff --git a/script/c37390589.lua b/script/c37390589.lua index 812d0286..6b1da972 100644 --- a/script/c37390589.lua +++ b/script/c37390589.lua @@ -52,7 +52,7 @@ function c37390589.operation(e,tp,eg,ep,ev,re,r,rp) if opt==0 or opt==2 then local tc=Duel.GetAttacker() if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsAttackable() and not tc:IsStatus(STATUS_ATTACK_CANCELED) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) end end if opt==1 or opt==2 then diff --git a/script/c37390590.lua b/script/c37390590.lua deleted file mode 100644 index b25d3951..00000000 --- a/script/c37390590.lua +++ /dev/null @@ -1,83 +0,0 @@ ---鎖付きブーメラン -function c37390590.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c37390590.condition) - e1:SetTarget(c37390590.target) - e1:SetOperation(c37390590.operation) - c:RegisterEffect(e1) -end -function c37390590.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c37390590.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then - if e:GetLabel()==0 then - return false - elseif e:GetLabel()==1 then - return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() - else return false end - end - local b1=Duel.CheckEvent(EVENT_ATTACK_ANNOUNCE) and Duel.GetTurnPlayer()~=tp - and Duel.GetAttacker():IsLocation(LOCATION_MZONE) and Duel.GetAttacker():IsCanBeEffectTarget(e) - local b2=Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) - if chk==0 then return b1 or b2 end - local opt=0 - if b1 and b2 then - opt=Duel.SelectOption(tp,aux.Stringid(37390590,0),aux.Stringid(37390590,1),aux.Stringid(37390590,2)) - elseif b1 then - opt=Duel.SelectOption(tp,aux.Stringid(37390590,0)) - else - opt=Duel.SelectOption(tp,aux.Stringid(37390590,1))+1 - end - e:SetLabel(opt) - if opt==0 or opt==2 then - Duel.SetTargetCard(Duel.GetAttacker()) - end - if opt==1 or opt==2 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) - e:SetLabelObject(g:GetFirst()) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) - end -end -function c37390590.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local opt=e:GetLabel() - if opt==0 or opt==2 then - local tc=Duel.GetAttacker() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsAttackable() and not tc:IsStatus(STATUS_ATTACK_CANCELED) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) - end - end - if opt==1 or opt==2 then - local tc=e:GetLabelObject() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,c,tc) - c:CancelToGrave() - --Atkup - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_EQUIP) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(500) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(c37390590.eqlimit) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) - end - end -end -function c37390590.eqlimit(e,c) - return c:GetControler()==e:GetOwnerPlayer() -end diff --git a/script/c37412656.lua b/script/c37412656.lua index 3d5a257c..4141482c 100644 --- a/script/c37412656.lua +++ b/script/c37412656.lua @@ -15,7 +15,7 @@ function c37412656.filter(c) return c:IsSetCard(0x3008) and c:IsType(TYPE_NORMAL) and c:IsAbleToHand() end function c37412656.dfilter(c,atk) - return c:IsFaceup() and c:IsDestructable() and c:IsAttackBelow(atk) + return c:IsFaceup() and c:IsAttackBelow(atk) end function c37412656.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp and c37412656.filter(chkc) end diff --git a/script/c37421075.lua b/script/c37421075.lua index cacb241c..5552aa47 100644 --- a/script/c37421075.lua +++ b/script/c37421075.lua @@ -22,25 +22,27 @@ function c37421075.cost(e,tp,eg,ep,ev,re,r,rp,chk) end function c37421075.spfilter(c,e,tp) return c:IsLevelBelow(3) and c:IsRace(RACE_REPTILE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c37421075.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local chkf=(e:GetLabel()==1) e:SetLabel(0) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - return Duel.IsExistingMatchingCard(c37421075.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,nil,e,tp) + return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.IsExistingMatchingCard(c37421075.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,2,nil,e,tp) and ((chkf and ft>0) or (not chkf and ft>1)) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_GRAVE) e:SetLabel(0) end function c37421075.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetMatchingGroup(c37421075.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,nil,e,tp) if g:GetCount()>1 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,2,2,nil) + if sg:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c37445295.lua b/script/c37445295.lua old mode 100755 new mode 100644 index 7804af58..d9b621e0 --- a/script/c37445295.lua +++ b/script/c37445295.lua @@ -37,7 +37,7 @@ end function c37445295.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,tc) end end @@ -51,7 +51,7 @@ function c37445295.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c37445295.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE)~=0 then + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)~=0 then Duel.ConfirmCards(1-tp,c) end end diff --git a/script/c37507488.lua b/script/c37507488.lua index aae74845..75262e7c 100644 --- a/script/c37507488.lua +++ b/script/c37507488.lua @@ -33,7 +33,7 @@ end function c37507488.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then + and tc:IsLocation(LOCATION_HAND) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c37507488.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp) Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) diff --git a/script/c37511832.lua b/script/c37511832.lua old mode 100755 new mode 100644 diff --git a/script/c37520316.lua b/script/c37520316.lua index 5a2b1dcc..bb0c3486 100644 --- a/script/c37520316.lua +++ b/script/c37520316.lua @@ -20,13 +20,7 @@ end function c37520316.activate(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - if not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - return - end + if tc:IsRelateToEffect(e) and Duel.GetControl(tc,tp,PHASE_END,1)~=0 then local e1=Effect.CreateEffect(c) local reset=RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c3752422.lua b/script/c3752422.lua new file mode 100644 index 00000000..6d103176 --- /dev/null +++ b/script/c3752422.lua @@ -0,0 +1,83 @@ +--EMレ・ベルマン +function c3752422.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --level up + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(3752422,0)) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetTarget(c3752422.lvtg) + e1:SetOperation(c3752422.lvop) + c:RegisterEffect(e1) + --level change + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(3752422,1)) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetCountLimit(1) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetTarget(c3752422.target) + e2:SetOperation(c3752422.operation) + c:RegisterEffect(e2) +end +function c3752422.lvfilter(c) + return c:IsFaceup() and bit.band(c:GetSummonType(),SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM and c:GetLevel()>0 +end +function c3752422.lvtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c3752422.lvfilter,tp,LOCATION_MZONE,0,1,nil) end +end +function c3752422.lvop(e,tp,eg,ep,ev,re,r,rp) + local tg=Duel.GetMatchingGroup(c3752422.lvfilter,tp,LOCATION_MZONE,0,nil) + local tc=tg:GetFirst() + while tc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_LEVEL) + e1:SetValue(1) + e1:SetReset(RESET_EVENT+0xfe0000) + tc:RegisterEffect(e1) + tc=tg:GetNext() + end +end +function c3752422.filter(c) + return c:IsFaceup() and c:IsSetCard(0x9f) and c:GetLevel()>0 +end +function c3752422.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local c=e:GetHandler() + if chkc then return chkc~=c and chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c3752422.filter(chkc) end + if chk==0 then return c:GetLevel()>1 + and Duel.IsExistingTarget(c3752422.filter,tp,LOCATION_MZONE,0,1,c) end + local t={} + local p=c:GetLevel()-1 + p=math.min(p,5) + for i=1,p do + t[i]=i + end + Duel.Hint(HINT_SELECTMSG,tp,567) + e:SetLabel(Duel.AnnounceNumber(tp,table.unpack(t))) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,c3752422.filter,tp,LOCATION_MZONE,0,1,1,c) +end +function c3752422.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local lv=e:GetLabel() + if c:IsFaceup() and c:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_LEVEL) + e1:SetValue(-lv) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_UPDATE_LEVEL) + e2:SetValue(lv) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + end + end +end diff --git a/script/c37553541.lua b/script/c37553541.lua deleted file mode 100644 index ff10664b..00000000 --- a/script/c37553541.lua +++ /dev/null @@ -1,28 +0,0 @@ ---Prophecy -function c37553541.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(37553541,0)) - e1:SetCategory(CATEGORY_HANDES) - e1:SetHintTiming(0,TIMING_TOHAND+TIMING_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_SZONE) - e1:SetOperation(c37553541.op) - c:RegisterEffect(e1) -end -function c37553541.op(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND):RandomSelect(tp,1,nil) - local tc=g:GetFirst() - local atk=tc:GetAttack() - local attackToCheck = 2000 - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(37553541,0)) - local op=Duel.SelectOption(tp,aux.Stringid(37553541,1),aux.Stringid(37553541,2),aux.Stringid(37553541,3)) - Duel.ConfirmCards(tp,tc) - Duel.ShuffleHand(1-tp) - if (op==0 and atk<2000) or (op==1 and tc:GetAttack() == attackToCheck) or (op==2 and atk>2000) then - Duel.SendtoHand(tc,tp,REASON_EFFECT) - end -end diff --git a/script/c3758046.lua b/script/c3758046.lua index 7aea4cce..0e13adfe 100644 --- a/script/c3758046.lua +++ b/script/c3758046.lua @@ -29,7 +29,7 @@ function c3758046.initial_effect(c) c:RegisterEffect(e2) end function c3758046.con(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsAbleToEnterBP() or Duel.GetCurrentPhase()==PHASE_BATTLE + return Duel.IsAbleToEnterBP() or (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c3758046.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end @@ -49,9 +49,15 @@ function c3758046.filter(c,e,tp,id) end function c3758046.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c3758046.filter,tp,LOCATION_GRAVE,0,ft,ft,nil,e,tp,Duel.GetTurnCount()) + local tg=Duel.GetMatchingGroup(c3758046.filter,tp,LOCATION_GRAVE,0,nil,e,tp,Duel.GetTurnCount()) + if ft<=0 or (Duel.IsPlayerAffectedByEffect(tp,59822133) and tg:GetCount()>1 and ft>1) then return end + local g=nil + if tg:GetCount()>ft then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + g=tg:Select(tp,ft,ft,nil) + else + g=tg + end if g:GetCount()>0 then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c37580756.lua b/script/c37580756.lua index b2426ea9..0f7d0494 100644 --- a/script/c37580756.lua +++ b/script/c37580756.lua @@ -25,10 +25,10 @@ function c37580756.condition(e,tp,eg,ep,ev,re,r,rp) end end function c37580756.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c37580756.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c37620434.lua b/script/c37620434.lua index 3b73c57b..279e6de4 100644 --- a/script/c37620434.lua +++ b/script/c37620434.lua @@ -23,8 +23,6 @@ end function c37620434.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRace(RACE_FIEND) then - if not Duel.GetControl(tc,tp,PHASE_END,1) and not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c37626500.lua b/script/c37626500.lua new file mode 100644 index 00000000..2b5f672c --- /dev/null +++ b/script/c37626500.lua @@ -0,0 +1,7 @@ +--精霊の祝福 +function c37626500.initial_effect(c) + aux.AddRitualProcEqual2(c,c37626500.ritual_filter) +end +function c37626500.ritual_filter(c) + return c:IsType(TYPE_RITUAL) and c:IsAttribute(ATTRIBUTE_LIGHT) +end diff --git a/script/c37630732.lua b/script/c37630732.lua index 96804897..4b4e9eb5 100644 --- a/script/c37630732.lua +++ b/script/c37630732.lua @@ -81,15 +81,6 @@ function c37630732.activate(e,tp,eg,ep,ev,re,r,rp) e2:SetOperation(c37630732.damop) Duel.RegisterEffect(e2,tp) end - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end function c37630732.damop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c37675138.lua b/script/c37675138.lua index 5db3a2c2..86a00c38 100644 --- a/script/c37675138.lua +++ b/script/c37675138.lua @@ -24,7 +24,7 @@ function c37675138.descon(e,tp,eg,ep,ev,re,r,rp) and e:GetHandler():GetPreviousControler()==tp end function c37675138.desfilter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c37675138.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and c37675138.desfilter(chkc) end diff --git a/script/c37675907.lua b/script/c37675907.lua index 78e6abe5..e10bb16b 100644 --- a/script/c37675907.lua +++ b/script/c37675907.lua @@ -62,7 +62,7 @@ function c37675907.tgcost(e,tp,eg,ep,ev,re,r,rp,chk) end function c37675907.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local opt=Duel.SelectOption(tp,aux.Stringid(37675907,0),aux.Stringid(37675907,1)) + local opt=Duel.SelectOption(tp,aux.Stringid(37675907,2),aux.Stringid(37675907,3)) e:SetLabel(opt) end function c37675907.tgop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c37679169.lua b/script/c37679169.lua new file mode 100644 index 00000000..a1b3c597 --- /dev/null +++ b/script/c37679169.lua @@ -0,0 +1,85 @@ +--Kozmo Delta Shuttle +function c37679169.initial_effect(c) + --atk/def + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1) + e1:SetCost(c37679169.adcost) + e1:SetTarget(c37679169.adtg) + e1:SetOperation(c37679169.adop) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e2:SetCondition(c37679169.spcon) + e2:SetCost(c37679169.spcost) + e2:SetTarget(c37679169.sptg) + e2:SetOperation(c37679169.spop) + c:RegisterEffect(e2) +end +function c37679169.cfilter(c) + return c:IsSetCard(0xd2) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() +end +function c37679169.adcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c37679169.cfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c37679169.cfilter,tp,LOCATION_DECK,0,1,1,nil) + local tc=g:GetFirst() + Duel.SendtoGrave(tc,REASON_COST) + e:SetLabel(tc:GetLevel()) +end +function c37679169.adtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsFaceup() and chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) +end +function c37679169.adop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local lv=e:GetLabel() + --atkdown + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(-100*lv) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + --defdown + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + tc:RegisterEffect(e2) + end +end +function c37679169.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) +end +function c37679169.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:IsAbleToRemoveAsCost() and c:IsLocation(LOCATION_GRAVE) end + Duel.Remove(c,POS_FACEUP,REASON_COST) +end +function c37679169.spfilter(c,e,tp) + return c:IsSetCard(0xd2) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c37679169.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c37679169.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c37679169.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c37679169.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c37694547.lua b/script/c37694547.lua index 925ebba0..29864fbd 100644 --- a/script/c37694547.lua +++ b/script/c37694547.lua @@ -31,7 +31,6 @@ function c37694547.spcon(e,tp,eg,ep,ev,re,r,rp) end function c37694547.filter(c,e,tp) return c:IsSetCard(0x7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and (not c:IsLocation(LOCATION_GRAVE) or not c:IsHasEffect(EFFECT_NECRO_VALLEY)) end function c37694547.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -41,7 +40,7 @@ end function c37694547.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c37694547.filter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) Duel.ShuffleDeck(tp) end diff --git a/script/c37721209.lua b/script/c37721209.lua index a9868d82..103ea4cf 100644 --- a/script/c37721209.lua +++ b/script/c37721209.lua @@ -21,11 +21,11 @@ function c37721209.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c37721209.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c37721209.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c3773196.lua b/script/c3773196.lua index cad1b7aa..8e0713d4 100644 --- a/script/c3773196.lua +++ b/script/c3773196.lua @@ -28,7 +28,7 @@ end function c3773196.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():GetFlagEffect(3773197)==0 end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) - e:GetHandler():RegisterFlagEffect(3773197,RESET_PHASE+PHASE_END,0,1) + e:GetHandler():RegisterFlagEffect(3773197,RESET_EVENT+0x4760000+RESET_PHASE+PHASE_END,0,1) end function c3773196.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c37744402.lua b/script/c37744402.lua old mode 100755 new mode 100644 diff --git a/script/c37745740.lua b/script/c37745740.lua old mode 100755 new mode 100644 index 12e95e26..c7e9e3ef --- a/script/c37745740.lua +++ b/script/c37745740.lua @@ -1,68 +1,67 @@ ---EMガンバッター -function c37745740.initial_effect(c) - --damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(37745740,0)) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,37745740) - e1:SetCost(c37745740.cost) - e1:SetTarget(c37745740.target) - e1:SetOperation(c37745740.operation) - c:RegisterEffect(e1) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(37745740,1)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1,37745741) - e2:SetCost(c37745740.thcost) - e2:SetTarget(c37745740.thtg) - e2:SetOperation(c37745740.thop) - c:RegisterEffect(e2) -end -function c37745740.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x9f) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x9f) - e:SetLabel(g:GetFirst():GetLevel()*100) - Duel.Release(g,REASON_COST) -end -function c37745740.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(e:GetLabel()) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,e:GetLabel()) -end -function c37745740.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c37745740.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x9f) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x9f) - e:SetLabelObject(g:GetFirst()) - Duel.Release(g,REASON_COST) -end -function c37745740.thfilter(c) - return c:IsSetCard(0x9f) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c37745740.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c37745740.thfilter(chkc) and chkc~=e:GetLabelObject() end - if chk==0 then return Duel.IsExistingTarget(c37745740.thfilter,tp,LOCATION_GRAVE,0,1,e:GetLabelObject()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c37745740.thfilter,tp,LOCATION_GRAVE,0,1,1,e:GetLabelObject()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c37745740.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--EMガンバッター +function c37745740.initial_effect(c) + --damage + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(37745740,0)) + e1:SetCategory(CATEGORY_DAMAGE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,37745740) + e1:SetCost(c37745740.cost) + e1:SetTarget(c37745740.target) + e1:SetOperation(c37745740.operation) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(37745740,1)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1,37745741) + e2:SetCost(c37745740.thcost) + e2:SetTarget(c37745740.thtg) + e2:SetOperation(c37745740.thop) + c:RegisterEffect(e2) +end +function c37745740.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x9f) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) + local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x9f) + e:SetLabel(g:GetFirst():GetLevel()*100) + Duel.Release(g,REASON_COST) +end +function c37745740.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(e:GetLabel()) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,e:GetLabel()) +end +function c37745740.operation(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) +end +function c37745740.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x9f) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) + local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x9f) + e:SetLabelObject(g:GetFirst()) + Duel.Release(g,REASON_COST) +end +function c37745740.thfilter(c) + return c:IsSetCard(0x9f) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c37745740.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c37745740.thfilter(chkc) and chkc~=e:GetLabelObject() end + if chk==0 then return Duel.IsExistingTarget(c37745740.thfilter,tp,LOCATION_GRAVE,0,1,e:GetLabelObject()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c37745740.thfilter,tp,LOCATION_GRAVE,0,1,1,e:GetLabelObject()) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) +end +function c37745740.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c3775068.lua b/script/c3775068.lua new file mode 100644 index 00000000..55176f40 --- /dev/null +++ b/script/c3775068.lua @@ -0,0 +1,119 @@ +--方界超帝インディオラ・デス・ボルト +function c3775068.initial_effect(c) + c:EnableReviveLimit() + --special summon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_HAND) + e2:SetCondition(c3775068.sprcon) + e2:SetOperation(c3775068.sprop) + c:RegisterEffect(e2) + --damage + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(3775068,0)) + e3:SetCategory(CATEGORY_DAMAGE) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetCondition(c3775068.damcon) + e3:SetTarget(c3775068.damtg) + e3:SetOperation(c3775068.damop) + c:RegisterEffect(e3) + --special summon + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(3775068,1)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_SEARCH) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetCondition(c3775068.spcon) + e4:SetTarget(c3775068.sptg) + e4:SetOperation(c3775068.spop) + c:RegisterEffect(e4) +end +function c3775068.spcfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe3) and c:IsAbleToGraveAsCost() +end +function c3775068.sprcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 + and Duel.IsExistingMatchingCard(c3775068.spcfilter,tp,LOCATION_MZONE,0,3,nil) +end +function c3775068.sprop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c3775068.spcfilter,tp,LOCATION_MZONE,0,3,3,nil) + Duel.SendtoGrave(g,REASON_COST) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetValue(2400) + e1:SetReset(RESET_EVENT+0xff0000) + c:RegisterEffect(e1) +end +function c3775068.damcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_HAND) +end +function c3775068.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(800) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) +end +function c3775068.damop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) +end +function c3775068.spcon(e,tp,eg,ep,ev,re,r,rp) + return rp~=tp and e:GetHandler():GetPreviousControler()==tp +end +function c3775068.spfilter(c,e,tp) + return c:IsSetCard(0xe3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c3775068.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c3775068.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c3775068.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + local ft=3 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + ft=math.min(ft,Duel.GetLocationCount(tp,LOCATION_MZONE)) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c3775068.spfilter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) +end +function c3775068.thfilter(c) + return c:IsSetCard(0xe3) and c:IsAbleToHand() +end +function c3775068.spop(e,tp,eg,ep,ev,re,r,rp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if g:GetCount()>ft then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + g=g:Select(tp,ft,ft,nil) + end + if Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0 then + local sg=Duel.GetMatchingGroup(c3775068.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,nil) + if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(3775068,2)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + sg=sg:Select(tp,1,1,nil) + if not sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.BreakEffect() + Duel.SendtoHand(sg,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,sg) + Duel.ShuffleDeck(tp) + end + end + end +end diff --git a/script/c37780349.lua b/script/c37780349.lua new file mode 100644 index 00000000..6eaec028 --- /dev/null +++ b/script/c37780349.lua @@ -0,0 +1,71 @@ +--D－HERO ダイナマイトガイ +function c37780349.initial_effect(c) + --Damage to 0 + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(37780349,0)) + e1:SetCategory(CATEGORY_DAMAGE) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) + e1:SetRange(LOCATION_HAND) + e1:SetCost(c37780349.dmcost) + e1:SetTarget(c37780349.dmtg) + e1:SetOperation(c37780349.dmop) + c:RegisterEffect(e1) + --atkup + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(37780349,1)) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCost(c37780349.atkcost) + e2:SetTarget(c37780349.atktg) + e2:SetOperation(c37780349.atkop) + c:RegisterEffect(e2) +end +function c37780349.dmcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) +end +function c37780349.dmtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,1000) +end +function c37780349.dmop(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) + e1:SetOperation(c37780349.damop) + e1:SetReset(RESET_PHASE+PHASE_DAMAGE) + Duel.RegisterEffect(e1,tp) + Duel.Damage(tp,1000,REASON_EFFECT,true) + Duel.Damage(1-tp,1000,REASON_EFFECT,true) + Duel.RDComplete() +end +function c37780349.damop(e,tp,eg,ep,ev,re,r,rp) + Duel.ChangeBattleDamage(tp,0) +end +function c37780349.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c37780349.filter(c) + return c:IsFaceup() and c:IsSetCard(0xc008) +end +function c37780349.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c37780349.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c37780349.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c37780349.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c37780349.atkop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_OPPO_TURN) + e1:SetValue(1000) + tc:RegisterEffect(e1) + end +end diff --git a/script/c37781520.lua b/script/c37781520.lua index 9d99a34b..602c62c6 100644 --- a/script/c37781520.lua +++ b/script/c37781520.lua @@ -48,9 +48,10 @@ function c37781520.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c37781520.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c37781520.thcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c37803172.lua b/script/c37803172.lua index 53f5d319..8a4e046e 100644 --- a/script/c37803172.lua +++ b/script/c37803172.lua @@ -43,11 +43,13 @@ function c37803172.filter(c,e,tp) return c:IsSetCard(0x107d) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c37803172.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c37803172.filter,tp,LOCATION_DECK,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c37803172.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetMatchingGroup(c37803172.filter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()>=2 then diff --git a/script/c37803970.lua b/script/c37803970.lua new file mode 100644 index 00000000..f1754565 --- /dev/null +++ b/script/c37803970.lua @@ -0,0 +1,38 @@ +--アメイジング・ペンデュラム +function c37803970.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,37803970+EFFECT_COUNT_CODE_OATH) + e1:SetCondition(c37803970.condition) + e1:SetTarget(c37803970.target) + e1:SetOperation(c37803970.activate) + c:RegisterEffect(e1) +end +function c37803970.condition(e,tp,eg,ep,ev,re,r,rp) + return not Duel.GetFieldCard(tp,LOCATION_SZONE,6) and not Duel.GetFieldCard(tp,LOCATION_SZONE,7) +end +function c37803970.thfilter(c) + return c:IsFaceup() and c:IsSetCard(0x98) and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand() +end +function c37803970.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local g=Duel.GetMatchingGroup(c37803970.thfilter,tp,LOCATION_EXTRA,0,nil) + return g:GetClassCount(Card.GetCode)>=2 + end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_EXTRA) +end +function c37803970.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c37803970.thfilter,tp,LOCATION_EXTRA,0,nil) + if g:GetClassCount(Card.GetCode)>=2 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g1=g:Select(tp,1,1,nil) + g:Remove(Card.IsCode,nil,g1:GetFirst():GetCode()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g2=g:Select(tp,1,1,nil) + g1:Merge(g2) + Duel.SendtoHand(g1,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g1) + end +end diff --git a/script/c37806313.lua b/script/c37806313.lua index 4ab4780b..dfcd84a7 100644 --- a/script/c37806313.lua +++ b/script/c37806313.lua @@ -23,15 +23,16 @@ function c37806313.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,PLAYER_ALL,1) end -function c37806313.tgfilter(c,e) - return not c:IsRelateToEffect(e) -end function c37806313.operation(e,tp,eg,ep,ev,re,r,rp) local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - if tg:IsExists(c37806313.tgfilter,1,nil,e) then return end + if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=2 then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) - Duel.ShuffleDeck(tp) - Duel.BreakEffect() - Duel.Draw(tp,1,REASON_EFFECT) - Duel.Draw(1-tp,1,REASON_EFFECT) + local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end + local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) + if ct==2 then + Duel.BreakEffect() + Duel.Draw(tp,1,REASON_EFFECT) + Duel.Draw(1-tp,1,REASON_EFFECT) + end end diff --git a/script/c37820550.lua b/script/c37820550.lua index b7fd1652..7014fcfb 100644 --- a/script/c37820550.lua +++ b/script/c37820550.lua @@ -18,7 +18,7 @@ function c37820550.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(300) c:RegisterEffect(e3) --equip limit diff --git a/script/c37829468.lua b/script/c37829468.lua index b0722f84..5afab811 100644 --- a/script/c37829468.lua +++ b/script/c37829468.lua @@ -34,7 +34,7 @@ function c37829468.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c37829468.filter(c) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsDestructable() + return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_LIGHT) end function c37829468.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c37829468.filter(chkc) end diff --git a/script/c37910722.lua b/script/c37910722.lua index de4f35b9..9b1a75b7 100644 --- a/script/c37910722.lua +++ b/script/c37910722.lua @@ -47,24 +47,27 @@ end function c37910722.spfilter(c,e,tp,sync) return c:IsControler(tp) and c:IsLocation(LOCATION_GRAVE) and bit.band(c:GetReason(),0x80008)==0x80008 and c:GetReasonCard()==sync - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c37910722.sptg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() local mg=c:GetMaterial() local ct=mg:GetCount() if chk==0 then return c:GetSummonType()==SUMMON_TYPE_SYNCHRO + and not Duel.IsPlayerAffectedByEffect(tp,59822133) and ct>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=ct and mg:FilterCount(c37910722.spfilter,nil,e,tp,c)==ct end Duel.SetTargetCard(mg) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,mg,ct,0,0) end function c37910722.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local c=e:GetHandler() local mg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local g=mg:Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()0 + and Duel.IsExistingTarget(c38026562.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c38026562.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c38026562.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end +function c38026562.con(e) + return e:GetHandler():GetOverlayCount()>0 +end +function c38026562.atlimit(e,c) + return c:IsFaceup() and c:IsType(TYPE_DUAL) +end +function c38026562.tgcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(Card.IsType,1,nil,TYPE_DUAL) +end +function c38026562.tgcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c38026562.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD+LOCATION_HAND)>0 end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,0,LOCATION_ONFIELD+LOCATION_HAND) +end +function c38026562.tgop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(nil,1-tp,LOCATION_ONFIELD+LOCATION_HAND,0,nil) + if g:GetCount()>0 then + Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE) + local sg=g:Select(1-tp,1,1,nil) + Duel.HintSelection(sg) + Duel.SendtoGrave(sg,REASON_RULE) + end +end diff --git a/script/c38033121.lua b/script/c38033121.lua index 7aa5a099..a28a6789 100644 --- a/script/c38033121.lua +++ b/script/c38033121.lua @@ -10,9 +10,5 @@ function c38033121.initial_effect(c) c:RegisterEffect(e1) end function c38033121.val(e,c) - return Duel.GetMatchingGroupCount(c38033121.filter,c:GetControler(),LOCATION_GRAVE,LOCATION_GRAVE,nil)*300 -end -function c38033121.filter(c) - local code=c:GetCode() - return code==46986414 or code==30208479 + return Duel.GetMatchingGroupCount(Card.IsCode,c:GetControler(),LOCATION_GRAVE,LOCATION_GRAVE,nil,30208479,46986414)*300 end diff --git a/script/c38033122.lua b/script/c38033122.lua deleted file mode 100644 index 4c35334d..00000000 --- a/script/c38033122.lua +++ /dev/null @@ -1,18 +0,0 @@ ---ブラック·マジシャン·ガール -function c38033122.initial_effect(c) - --atkup - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(c38033122.val) - c:RegisterEffect(e1) -end -function c38033122.val(e,c) - return Duel.GetMatchingGroupCount(c38033122.filter,c:GetControler(),LOCATION_GRAVE,LOCATION_GRAVE,nil)*300 -end -function c38033122.filter(c) - local code=c:GetCode() - return code==46986414 or code==30208479 -end diff --git a/script/c38033123.lua b/script/c38033123.lua deleted file mode 100644 index 085f4d02..00000000 --- a/script/c38033123.lua +++ /dev/null @@ -1,18 +0,0 @@ ---ブラック·マジシャン·ガール -function c38033123.initial_effect(c) - --atkup - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(c38033123.val) - c:RegisterEffect(e1) -end -function c38033123.val(e,c) - return Duel.GetMatchingGroupCount(c38033123.filter,c:GetControler(),LOCATION_GRAVE,LOCATION_GRAVE,nil)*300 -end -function c38033123.filter(c) - local code=c:GetCode() - return code==46986414 or code==30208479 -end diff --git a/script/c38033124.lua b/script/c38033124.lua deleted file mode 100644 index cad7da24..00000000 --- a/script/c38033124.lua +++ /dev/null @@ -1,18 +0,0 @@ ---ブラック·マジシャン·ガール -function c38033124.initial_effect(c) - --atkup - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(c38033124.val) - c:RegisterEffect(e1) -end -function c38033124.val(e,c) - return Duel.GetMatchingGroupCount(c38033124.filter,c:GetControler(),LOCATION_GRAVE,LOCATION_GRAVE,nil)*300 -end -function c38033124.filter(c) - local code=c:GetCode() - return code==46986414 or code==30208479 -end diff --git a/script/c38041940.lua b/script/c38041940.lua index 8f045f4a..7ab8d1b1 100644 --- a/script/c38041940.lua +++ b/script/c38041940.lua @@ -24,7 +24,7 @@ function c38041940.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c38041940.spfilter(chkc,e,tp) end if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c38041940.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) - and Duel.IsPlayerCanSpecialSummonMonster(tp,38041941,0,0x4011,0,0,1,RACE_PLANT,ATTRIBUTE_EARTH,POS_FACEUP_DEFENCE,1-tp) end + and Duel.IsPlayerCanSpecialSummonMonster(tp,38041941,0,0x4011,0,0,1,RACE_PLANT,ATTRIBUTE_EARTH,POS_FACEUP_DEFENSE,1-tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c38041940.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) @@ -34,9 +34,9 @@ function c38041940.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then if Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,38041941,0,0x4011,0,0,1,RACE_PLANT,ATTRIBUTE_EARTH,POS_FACEUP_DEFENCE,1-tp) then + and Duel.IsPlayerCanSpecialSummonMonster(tp,38041941,0,0x4011,0,0,1,RACE_PLANT,ATTRIBUTE_EARTH,POS_FACEUP_DEFENSE,1-tp) then local token=Duel.CreateToken(tp,38041941) - Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UNRELEASABLE_SUM) diff --git a/script/c38049934.lua b/script/c38049934.lua index 329ec6ea..5998eebe 100644 --- a/script/c38049934.lua +++ b/script/c38049934.lua @@ -26,14 +26,14 @@ function c38049934.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then if not c38049934.check then return false end c38049934.check=false - return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) + return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end c38049934.check=false - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c38049934.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetLabel(),e:GetHandler()) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetLabel(),e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c38107923.lua b/script/c38107923.lua index b9b80d6b..259665ae 100644 --- a/script/c38107923.lua +++ b/script/c38107923.lua @@ -72,7 +72,7 @@ function c38107923.spop(e,tp,eg,ep,ev,re,r,rp) end end function c38107923.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c38107923.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c38107923.desfilter(chkc) end diff --git a/script/c38109772.lua b/script/c38109772.lua index 605cd96a..89700855 100644 --- a/script/c38109772.lua +++ b/script/c38109772.lua @@ -4,7 +4,7 @@ function c38109772.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(38109772,0)) e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetRange(LOCATION_HAND) e1:SetCondition(c38109772.condition) diff --git a/script/c38124994.lua b/script/c38124994.lua index 14eb5818..20070602 100644 --- a/script/c38124994.lua +++ b/script/c38124994.lua @@ -31,6 +31,5 @@ function c38124994.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c3814632.lua b/script/c3814632.lua index 9cfb34b3..15b41a40 100644 --- a/script/c3814632.lua +++ b/script/c3814632.lua @@ -27,14 +27,11 @@ function c3814632.cost(e,tp,eg,ep,ev,re,r,rp,chk) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e:GetHandler():RegisterEffect(e1) end -function c3814632.filter(c) - return c:IsDestructable() -end function c3814632.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c3814632.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c3814632.filter,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c3814632.filter,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) end diff --git a/script/c38148100.lua b/script/c38148100.lua new file mode 100644 index 00000000..86089ec7 --- /dev/null +++ b/script/c38148100.lua @@ -0,0 +1,74 @@ +--アロマセラフィ－ローズマリー +function c38148100.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --atk & def + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetRange(LOCATION_MZONE) + e1:SetTargetRange(LOCATION_MZONE,0) + e1:SetCondition(c38148100.adcon) + e1:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_PLANT)) + e1:SetValue(500) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e2) + --negate + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(38148100,0)) + e3:SetCategory(CATEGORY_DISABLE) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCode(EVENT_RECOVER) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetCondition(c38148100.negcon) + e3:SetTarget(c38148100.negtg) + e3:SetOperation(c38148100.negop) + c:RegisterEffect(e3) +end +function c38148100.adcon(e) + local tp=e:GetHandlerPlayer() + return Duel.GetLP(tp)>Duel.GetLP(1-tp) +end +function c38148100.negcon(e,tp,eg,ep,ev,re,r,rp) + return ep==tp +end +function c38148100.negtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and aux.disfilter1(chkc) end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,aux.disfilter1,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) +end +function c38148100.negop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc and ((tc:IsFaceup() and not tc:IsDisabled()) or tc:IsType(TYPE_TRAPMONSTER)) and tc:IsRelateToEffect(e) then + Duel.NegateRelatedChain(tc,RESET_TURN_SET) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetValue(RESET_TURN_SET) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + if tc:IsType(TYPE_TRAPMONSTER) then + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e3:SetCode(EFFECT_DISABLE_TRAPMONSTER) + e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e3) + end + end +end diff --git a/script/c38167722.lua b/script/c38167722.lua index d9fca205..e651b0d2 100644 --- a/script/c38167722.lua +++ b/script/c38167722.lua @@ -27,13 +27,20 @@ function c38167722.cfilter(c) end function c38167722.activate(e,tp,eg,ep,ev,re,r,rp) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - local g=Duel.GetMatchingGroup(c38167722.cfilter,p,0,LOCATION_HAND,nil) - if g:GetCount()>0 and Duel.SelectYesNo(1-p,aux.Stringid(38167722,0)) then - Duel.Hint(HINT_SELECTMSG,1-p,HINTMSG_CONFIRM) - local sg=g:Select(1-p,1,1,nil) - Duel.ConfirmCards(p,sg) - Duel.ShuffleHand(1-p) - if Duel.IsChainDisablable(0) then + if Duel.IsChainDisablable(0) then + local sel=1 + local g=Duel.GetMatchingGroup(c38167722.cfilter,p,0,LOCATION_HAND,nil) + Duel.Hint(HINT_SELECTMSG,1-p,aux.Stringid(38167722,0)) + if g:GetCount()>0 then + sel=Duel.SelectOption(1-p,1213,1214) + else + sel=Duel.SelectOption(1-p,1214)+1 + end + if sel==0 then + Duel.Hint(HINT_SELECTMSG,1-p,HINTMSG_CONFIRM) + local sg=g:Select(1-p,1,1,nil) + Duel.ConfirmCards(p,sg) + Duel.ShuffleHand(1-p) Duel.NegateEffect(0) return end diff --git a/script/c38180759.lua b/script/c38180759.lua index fe4584bf..35da6fe1 100644 --- a/script/c38180759.lua +++ b/script/c38180759.lua @@ -44,7 +44,7 @@ function c38180759.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end end diff --git a/script/c38250531.lua b/script/c38250531.lua index 31485bd8..4b60379e 100644 --- a/script/c38250531.lua +++ b/script/c38250531.lua @@ -82,6 +82,6 @@ end function c38250531.spop2(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c38273745.lua b/script/c38273745.lua index 0e7b13d7..7e81d080 100644 --- a/script/c38273745.lua +++ b/script/c38273745.lua @@ -7,11 +7,10 @@ function c38273745.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(38273745,1)) e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_NO_TURN_RESET) e1:SetType(EFFECT_TYPE_IGNITION) e1:SetRange(LOCATION_MZONE) e1:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE) - e1:SetCondition(c38273745.con1) e1:SetCost(c38273745.cost) e1:SetTarget(c38273745.tg1) e1:SetOperation(c38273745.op1) @@ -22,8 +21,8 @@ function c38273745.initial_effect(c) e2:SetCategory(CATEGORY_TOGRAVE) e2:SetType(EFFECT_TYPE_IGNITION) e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_NO_TURN_RESET) e2:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE) - e2:SetCondition(c38273745.con2) e2:SetCost(c38273745.cost) e2:SetTarget(c38273745.tg2) e2:SetOperation(c38273745.op2) @@ -32,11 +31,10 @@ function c38273745.initial_effect(c) local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(38273745,3)) e3:SetCategory(CATEGORY_REMOVE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_NO_TURN_RESET) e3:SetType(EFFECT_TYPE_IGNITION) e3:SetRange(LOCATION_MZONE) e3:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE) - e3:SetCondition(c38273745.con3) e3:SetCost(c38273745.cost) e3:SetTarget(c38273745.tg3) e3:SetOperation(c38273745.op3) @@ -47,15 +45,11 @@ function c38273745.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end -function c38273745.con1(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(38273746)==0 -end function c38273745.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsAbleToHand() end if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,1,nil) - e:GetHandler():RegisterFlagEffect(38273746,RESET_EVENT+0x1fe0000,EFFECT_FLAG_COPY_INHERIT,1) Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) end function c38273745.op1(e,tp,eg,ep,ev,re,r,rp) @@ -64,13 +58,9 @@ function c38273745.op1(e,tp,eg,ep,ev,re,r,rp) Duel.SendtoHand(tc,nil,REASON_EFFECT) end end -function c38273745.con2(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(38273747)==0 -end function c38273745.tg2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetFieldGroupCount(1-tp,LOCATION_HAND,0)~=0 end Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_HAND) - e:GetHandler():RegisterFlagEffect(38273747,RESET_EVENT+0x1fe0000,EFFECT_FLAG_COPY_INHERIT,1) end function c38273745.op2(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0) @@ -78,15 +68,11 @@ function c38273745.op2(e,tp,eg,ep,ev,re,r,rp) local sg=g:RandomSelect(1-tp,1) Duel.SendtoGrave(sg,REASON_EFFECT) end -function c38273745.con3(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(38273748)==0 -end function c38273745.tg3(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_GRAVE) and chkc:IsAbleToRemove() end if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,1,nil) - e:GetHandler():RegisterFlagEffect(38273748,RESET_EVENT+0x1fe0000,EFFECT_FLAG_COPY_INHERIT,1) Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0) end function c38273745.op3(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c38280762.lua b/script/c38280762.lua index 5c03c4c1..7f6852c7 100644 --- a/script/c38280762.lua +++ b/script/c38280762.lua @@ -54,7 +54,7 @@ function c38280762.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RegisterEffect(e1) end function c38280762.desfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c38280762.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c38280762.desfilter(chkc) end diff --git a/script/c38296564.lua b/script/c38296564.lua index ed86cf60..4466fd28 100644 --- a/script/c38296564.lua +++ b/script/c38296564.lua @@ -80,7 +80,7 @@ function c38296564.efilter(e,re) return e:GetOwnerPlayer()~=re:GetOwnerPlayer() end function c38296564.tgval(e,re,rp) - return rp~=e:GetOwnerPlayer() and aux.tgval(e,re,rp) + return rp~=e:GetOwnerPlayer() end function c38296564.checkop(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsDisabled() then diff --git a/script/c38331564.lua b/script/c38331564.lua old mode 100755 new mode 100644 index 5b1b8052..b2ce6728 --- a/script/c38331564.lua +++ b/script/c38331564.lua @@ -1,82 +1,82 @@ ---光天使セプター -function c38331564.initial_effect(c) - --search - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(38331564,0)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetTarget(c38331564.thtg) - e1:SetOperation(c38331564.thop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - --effect gain - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_BE_MATERIAL) - e3:SetCondition(c38331564.effcon) - e3:SetOperation(c38331564.effop) - c:RegisterEffect(e3) -end -function c38331564.filter(c) - return c:IsSetCard(0x86) and not c:IsCode(38331564) and c:IsAbleToHand() -end -function c38331564.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c38331564.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c38331564.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c38331564.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end -function c38331564.effcon(e,tp,eg,ep,ev,re,r,rp) - return r==REASON_XYZ and e:GetHandler():GetReasonCard():GetMaterial():IsExists(Card.IsPreviousLocation,3,nil,LOCATION_MZONE) -end -function c38331564.effop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_CARD,0,38331564) - local c=e:GetHandler() - local rc=c:GetReasonCard() - local e1=Effect.CreateEffect(rc) - e1:SetDescription(aux.Stringid(38331564,1)) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c38331564.descon) - e1:SetTarget(c38331564.destg) - e1:SetOperation(c38331564.desop) - e1:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e1,true) - if not rc:IsType(TYPE_EFFECT) then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_ADD_TYPE) - e2:SetValue(TYPE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e2,true) - end -end -function c38331564.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ -end -function c38331564.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() and chkc~=e:GetHandler() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c38331564.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 and Duel.IsPlayerCanDraw(tp,1) - and Duel.SelectYesNo(tp,aux.Stringid(38331564,2)) then - Duel.Draw(tp,1,REASON_EFFECT) - end -end +--光天使セプター +function c38331564.initial_effect(c) + --search + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(38331564,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e1:SetTarget(c38331564.thtg) + e1:SetOperation(c38331564.thop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --effect gain + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_BE_MATERIAL) + e3:SetCondition(c38331564.effcon) + e3:SetOperation(c38331564.effop) + c:RegisterEffect(e3) +end +function c38331564.filter(c) + return c:IsSetCard(0x86) and not c:IsCode(38331564) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c38331564.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c38331564.filter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c38331564.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c38331564.filter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c38331564.effcon(e,tp,eg,ep,ev,re,r,rp) + return r==REASON_XYZ and e:GetHandler():GetReasonCard():GetMaterial():IsExists(Card.IsPreviousLocation,3,nil,LOCATION_MZONE) +end +function c38331564.effop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_CARD,0,38331564) + local c=e:GetHandler() + local rc=c:GetReasonCard() + local e1=Effect.CreateEffect(rc) + e1:SetDescription(aux.Stringid(38331564,1)) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DRAW) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c38331564.descon) + e1:SetTarget(c38331564.destg) + e1:SetOperation(c38331564.desop) + e1:SetReset(RESET_EVENT+0x1fe0000) + rc:RegisterEffect(e1,true) + if not rc:IsType(TYPE_EFFECT) then + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_ADD_TYPE) + e2:SetValue(TYPE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000) + rc:RegisterEffect(e2,true) + end +end +function c38331564.descon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ +end +function c38331564.destg(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(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c38331564.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 and Duel.IsPlayerCanDraw(tp,1) + and Duel.SelectYesNo(tp,aux.Stringid(38331564,2)) then + Duel.Draw(tp,1,REASON_EFFECT) + end +end diff --git a/script/c38354937.lua b/script/c38354937.lua index 5abb34ca..ab0e62bd 100644 --- a/script/c38354937.lua +++ b/script/c38354937.lua @@ -28,9 +28,5 @@ function c38354937.ctop(e,tp,eg,ep,ev,re,r,rp) sg=sg:Select(tp,1,1,nil) end local tc=sg:GetFirst() - if not Duel.GetControl(tc,tp) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - end + Duel.GetControl(tc,tp) end diff --git a/script/c38369349.lua b/script/c38369349.lua old mode 100755 new mode 100644 diff --git a/script/c38411870.lua b/script/c38411870.lua index d8b3bd4f..7bf83ce3 100644 --- a/script/c38411870.lua +++ b/script/c38411870.lua @@ -15,7 +15,7 @@ function c38411870.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,LOCATION_MZONE)>=4 end function c38411870.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c38411870.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c38411870.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c3841833.lua b/script/c3841833.lua index 1f755d60..7adf92eb 100644 --- a/script/c3841833.lua +++ b/script/c3841833.lua @@ -60,6 +60,5 @@ function c3841833.thop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c38430673.lua b/script/c38430673.lua index f08d76e2..062a9045 100644 --- a/script/c38430673.lua +++ b/script/c38430673.lua @@ -18,12 +18,12 @@ function c38430673.condition(e,tp,eg,ep,ev,re,r,rp) end function c38430673.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,300) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c38430673.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Damage(1-tp,300,REASON_EFFECT) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c38450736.lua b/script/c38450736.lua index dbba402f..a12b4061 100644 --- a/script/c38450736.lua +++ b/script/c38450736.lua @@ -18,7 +18,7 @@ function c38450736.initial_effect(c) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(1000) c:RegisterEffect(e3) --atkup @@ -33,7 +33,7 @@ function c38450736.initial_effect(c) c:RegisterEffect(e3) end function c38450736.filter(c) - return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsForbidden() end function c38450736.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 @@ -47,7 +47,7 @@ function c38450736.eqop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectMatchingCard(tp,c38450736.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil) local tc=g:GetFirst() - if tc then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then if not Duel.Equip(tp,tc,c,true) then return end local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) diff --git a/script/c3846170.lua b/script/c3846170.lua index dcb20690..88a123ae 100644 --- a/script/c3846170.lua +++ b/script/c3846170.lua @@ -5,15 +5,7 @@ function c3846170.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_MUST_ATTACK) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c3846170.becon) - c:RegisterEffect(e2) - --to defence + --to defense local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(3846170,0)) e3:SetCategory(CATEGORY_POSITION) @@ -33,16 +25,13 @@ function c3846170.initial_effect(c) e4:SetOperation(c3846170.spop) c:RegisterEffect(e4) end -function c3846170.becon(e) - return e:GetHandler():IsAttackable() -end function c3846170.poscon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsAttackPos() end function c3846170.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c3846170.spcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c38468214.lua b/script/c38468214.lua index 544711a0..ddb883dd 100644 --- a/script/c38468214.lua +++ b/script/c38468214.lua @@ -14,7 +14,7 @@ function c38468214.initial_effect(c) c:RegisterEffect(e1) end function c38468214.filter(c) - return c:GetCounter(0xe)>0 and c:IsControlerCanBeChanged() + return c:GetCounter(0x100e)>0 and c:IsControlerCanBeChanged() end function c38468214.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c38468214.filter(chkc) end @@ -27,7 +27,7 @@ function c38468214.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFacedown() or not c:IsRelateToEffect(e) then return end local tc=Duel.GetFirstTarget() - if tc:GetCounter(0xe)>0 and tc:IsRelateToEffect(e) then + if tc:GetCounter(0x100e)>0 and tc:IsRelateToEffect(e) then c:SetCardTarget(tc) local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) @@ -63,8 +63,9 @@ function c38468214.rmctcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==e:GetLabel() end function c38468214.rmctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():RemoveCounter(tp,0xe,1,REASON_EFFECT) + e:GetHandler():RemoveCounter(tp,0x100e,1,REASON_EFFECT) + Duel.RaiseEvent(e:GetHandler(),EVENT_REMOVE_COUNTER+0x100e,e,REASON_EFFECT,tp,tp,1) end function c38468214.descon(e) - return e:GetHandler():GetCounter(0xe)==0 + return e:GetHandler():GetCounter(0x100e)==0 end diff --git a/script/c38491199.lua b/script/c38491199.lua new file mode 100644 index 00000000..883a8d9a --- /dev/null +++ b/script/c38491199.lua @@ -0,0 +1,36 @@ +--ジャンクリボー +function c38491199.initial_effect(c) + --negate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(38491199,0)) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_NEGATE) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_CHAINING) + e1:SetRange(LOCATION_HAND) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e1:SetCondition(c38491199.negcon) + e1:SetCost(c38491199.negcost) + e1:SetTarget(c38491199.negtg) + e1:SetOperation(c38491199.negop) + c:RegisterEffect(e1) +end +function c38491199.negcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST) +end +function c38491199.negcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsChainNegatable(ev) and aux.damcon1(e,tp,eg,ep,ev,re,r,rp) +end +function c38491199.negtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsRelateToEffect(re) and re:GetHandler():IsDestructable() then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end +end +function c38491199.negop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + if re:GetHandler():IsRelateToEffect(re) then + Duel.Destroy(eg,REASON_EFFECT) + end +end diff --git a/script/c38495396.lua b/script/c38495396.lua old mode 100755 new mode 100644 diff --git a/script/c38517737.lua b/script/c38517737.lua index a4537578..d225e4fe 100644 --- a/script/c38517737.lua +++ b/script/c38517737.lua @@ -1,71 +1,71 @@ ---青眼の亜白龍 -function c38517737.initial_effect(c) - c:EnableReviveLimit() - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCountLimit(1,38517737) - e1:SetCondition(c38517737.spcon) - e1:SetOperation(c38517737.spop) - c:RegisterEffect(e1) - --code - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_CHANGE_CODE) - e2:SetRange(LOCATION_MZONE+LOCATION_GRAVE) - e2:SetValue(89631139) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(38517737,0)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c38517737.descost) - e3:SetTarget(c38517737.destg) - e3:SetOperation(c38517737.desop) - c:RegisterEffect(e3) -end -function c38517737.spcfilter(c) - return c:IsCode(89631139) and not c:IsPublic() -end -function c38517737.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c38517737.spcfilter,tp,LOCATION_HAND,0,1,nil) -end -function c38517737.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) - local g=Duel.SelectMatchingCard(tp,c38517737.spcfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.ConfirmCards(1-tp,g) - Duel.ShuffleHand(tp) -end -function c38517737.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) -end -function c38517737.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c38517737.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--青眼の亜白龍 +function c38517737.initial_effect(c) + c:EnableReviveLimit() + --special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetRange(LOCATION_HAND) + e1:SetCountLimit(1,38517737) + e1:SetCondition(c38517737.spcon) + e1:SetOperation(c38517737.spop) + c:RegisterEffect(e1) + --code + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetCode(EFFECT_CHANGE_CODE) + e2:SetRange(LOCATION_MZONE+LOCATION_GRAVE) + e2:SetValue(89631139) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(38517737,0)) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCountLimit(1) + e3:SetRange(LOCATION_MZONE) + e3:SetCost(c38517737.descost) + e3:SetTarget(c38517737.destg) + e3:SetOperation(c38517737.desop) + c:RegisterEffect(e3) +end +function c38517737.spcfilter(c) + return c:IsCode(89631139) and not c:IsPublic() +end +function c38517737.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c38517737.spcfilter,tp,LOCATION_HAND,0,1,nil) +end +function c38517737.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) + local g=Duel.SelectMatchingCard(tp,c38517737.spcfilter,tp,LOCATION_HAND,0,1,1,nil) + Duel.ConfirmCards(1-tp,g) + Duel.ShuffleHand(tp) +end +function c38517737.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e:GetHandler():RegisterEffect(e1) +end +function c38517737.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c38517737.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c38522377.lua b/script/c38522377.lua index 9eee57af..cd284cb0 100644 --- a/script/c38522377.lua +++ b/script/c38522377.lua @@ -51,6 +51,8 @@ end function c38522377.atkop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c38522377.atkfilter,nil,e) Duel.SendtoGrave(g,REASON_EFFECT) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end local og=Duel.GetOperatedGroup() local tc=og:GetFirst() local atk=0 @@ -60,12 +62,12 @@ function c38522377.atkop(e,tp,eg,ep,ev,re,r,rp) atk=atk+oatk tc=og:GetNext() end - local e1=Effect.CreateEffect(e:GetHandler()) + local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK_FINAL) e1:SetValue(atk) e1:SetReset(RESET_EVENT+0x1ff0000) - e:GetHandler():RegisterEffect(e1) + c:RegisterEffect(e1) end function c38522377.damcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(Card.IsType,1,nil,TYPE_SYNCHRO) @@ -89,7 +91,8 @@ function c38522377.damop(e,tp,eg,ep,ev,re,r,rp) local ex,g,gc,dp,dv=Duel.GetOperationInfo(0,CATEGORY_DAMAGE) if dp~=PLAYER_ALL then Duel.Damage(dp,1000,REASON_EFFECT) else - Duel.Damage(tp,1000,REASON_EFFECT) - Duel.Damage(1-tp,1000,REASON_EFFECT) + Duel.Damage(tp,1000,REASON_EFFECT,true) + Duel.Damage(1-tp,1000,REASON_EFFECT,true) + Duel.RDComplete() end end diff --git a/script/c38528901.lua b/script/c38528901.lua index de946e64..a2c7d827 100644 --- a/script/c38528901.lua +++ b/script/c38528901.lua @@ -17,7 +17,7 @@ function c38528901.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c38528901.desfilter(c) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WATER) and c:IsDestructable() + return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WATER) end function c38528901.sfilter(c) return c:IsSetCard(0x2f) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() diff --git a/script/c38538445.lua b/script/c38538445.lua index e4f67406..21c7589e 100644 --- a/script/c38538445.lua +++ b/script/c38538445.lua @@ -1,5 +1,7 @@ --不死之炎鳥 function c38538445.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c38538445.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c38538445.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --recover local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(38538445,1)) @@ -42,39 +34,3 @@ function c38538445.operation(e,tp,eg,ep,ev,re,r,rp) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) Duel.Recover(p,d,REASON_EFFECT) end -function c38538445.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(38538445,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c38538445.retcon) - e1:SetTarget(c38538445.rettg) - e1:SetOperation(c38538445.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c38538445.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c38538445.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c38538445.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c38552107.lua b/script/c38552107.lua index ec5e4e6c..56a063d6 100644 --- a/script/c38552107.lua +++ b/script/c38552107.lua @@ -12,7 +12,7 @@ function c38552107.initial_effect(c) --Atk up local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(800) c:RegisterEffect(e2) --Equip limit diff --git a/script/c38562933.lua b/script/c38562933.lua index d720e063..45c3108d 100644 --- a/script/c38562933.lua +++ b/script/c38562933.lua @@ -16,7 +16,7 @@ function c38562933.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() if d==c then d=Duel.GetAttacker() end e:SetLabelObject(d) - return d and d:IsFaceup() and d:GetDefence()<=c:GetAttack() + return d and d:IsFaceup() and d:GetDefense()<=c:GetAttack() end function c38562933.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -25,7 +25,7 @@ end function c38562933.desop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local d=e:GetLabelObject() - if c:IsFaceup() and c:IsRelateToEffect(e) and d:IsRelateToBattle() and d:GetDefence()<=c:GetAttack() then + if c:IsFaceup() and c:IsRelateToEffect(e) and d:IsRelateToBattle() and d:GetDefense()<=c:GetAttack() then Duel.Destroy(d,REASON_EFFECT) end end diff --git a/script/c38601126.lua b/script/c38601126.lua old mode 100755 new mode 100644 diff --git a/script/c38643567.lua b/script/c38643567.lua index 843d6673..85083ed5 100644 --- a/script/c38643567.lua +++ b/script/c38643567.lua @@ -41,7 +41,7 @@ function c38643567.operation(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(500) e2:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e2) @@ -56,7 +56,7 @@ function c38643567.operation(e,tp,eg,ep,ev,re,r,rp) --negate local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(38643567,0)) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e4:SetType(EFFECT_TYPE_QUICK_O) e4:SetCategory(CATEGORY_DISABLE) e4:SetCode(EVENT_CHAINING) e4:SetRange(LOCATION_SZONE) diff --git a/script/c38679204.lua b/script/c38679204.lua index 6280ff00..774ee080 100644 --- a/script/c38679204.lua +++ b/script/c38679204.lua @@ -49,13 +49,13 @@ function c38679204.eqop(e,tp,eg,ep,ev,re,r,rp) e1:SetCode(EFFECT_EQUIP_LIMIT) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetValue(c38679204.eqlimit) - e1:SetLabelObject(tc) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) end end function c38679204.eqlimit(e,c) - return c==e:GetLabelObject() + local tp=e:GetHandlerPlayer() + return c:IsControler(tp) end function c38679204.descon(e,tp,eg,ep,ev,re,r,rp) local ec=e:GetHandler():GetEquipTarget() diff --git a/script/c38680149.lua b/script/c38680149.lua index 5b3a715a..935575b1 100644 --- a/script/c38680149.lua +++ b/script/c38680149.lua @@ -17,8 +17,8 @@ function c38680149.cost(e,tp,eg,ep,ev,re,r,rp,chk) return true end function c38680149.filter1(c,e,tp) - local lv=c:GetLevel() - return lv>=2 and Duel.IsExistingTarget(c38680149.filter2,tp,LOCATION_GRAVE,0,1,nil,lv/2) + local lv=math.floor(c:GetLevel()/2) + return lv>0 and Duel.IsExistingTarget(c38680149.filter2,tp,LOCATION_GRAVE,0,1,nil,lv) end function c38680149.filter2(c,lv) return c:IsLevelBelow(lv) and c:IsType(TYPE_TUNER) and c:IsAbleToHand() @@ -31,7 +31,7 @@ function c38680149.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) return Duel.CheckReleaseGroup(tp,c38680149.filter1,1,nil,e,tp) end local rg=Duel.SelectReleaseGroup(tp,c38680149.filter1,1,1,nil,e,tp) - local lv=rg:GetFirst():GetLevel()/2 + local lv=math.floor(rg:GetFirst():GetLevel()/2) e:SetLabel(lv) Duel.Release(rg,REASON_COST) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) diff --git a/script/c3868277.lua b/script/c3868277.lua index d4807f5d..8b7011fe 100644 --- a/script/c3868277.lua +++ b/script/c3868277.lua @@ -22,14 +22,15 @@ function c3868277.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) end -function c3868277.tgfilter(c,e) - return not c:IsRelateToEffect(e) -end function c3868277.activate(e,tp,eg,ep,ev,re,r,rp) local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - if tg:IsExists(c3868277.tgfilter,1,nil,e) then return end + if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=3 then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) - Duel.ShuffleDeck(tp) - Duel.BreakEffect() - Duel.Draw(tp,2,REASON_EFFECT) + local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end + local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) + if ct==3 then + Duel.BreakEffect() + Duel.Draw(tp,2,REASON_EFFECT) + end end diff --git a/script/c38723936.lua b/script/c38723936.lua index 0181643d..526ceb35 100644 --- a/script/c38723936.lua +++ b/script/c38723936.lua @@ -27,7 +27,7 @@ function c38723936.activate(e,tp,eg,ep,ev,re,r,rp) tc=g:GetNext() end Duel.Hint(HINT_SELECTMSG,1-tp,564) - local ac=Duel.AnnounceCard(1-tp) + local ac=Duel.AnnounceCard(1-tp,TYPE_MONSTER) if ac~=last:GetCode() then Duel.SpecialSummon(last,0,tp,tp,false,false,POS_FACEUP) else diff --git a/script/c387282.lua b/script/c387282.lua index a05dbe94..c1ed813d 100644 --- a/script/c387282.lua +++ b/script/c387282.lua @@ -52,6 +52,7 @@ function c387282.lvop(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CHANGE_LEVEL) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetValue(lv) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) c:RegisterEffect(e1) diff --git a/script/c38730226.lua b/script/c38730226.lua index ec00a9b2..12bb58e8 100644 --- a/script/c38730226.lua +++ b/script/c38730226.lua @@ -2,9 +2,9 @@ function c38730226.initial_effect(c) --draw local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(38730226,0)) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_PHASE+PHASE_END) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetCountLimit(1) e1:SetRange(LOCATION_MZONE) e1:SetCondition(c38730226.con) @@ -16,7 +16,7 @@ function c38730226.con(e,tp,eg,ep,ev,re,r,rp,chk) end function c38730226.op(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetDescription(aux.Stringid(38730226,1)) + e1:SetDescription(aux.Stringid(38730226,0)) e1:SetCategory(CATEGORY_DRAW) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) diff --git a/script/c38737148.lua b/script/c38737148.lua index 316bc28e..06371e02 100644 --- a/script/c38737148.lua +++ b/script/c38737148.lua @@ -34,8 +34,8 @@ function c38737148.spcon(e,c) and Duel.IsExistingMatchingCard(Card.IsAttribute,tp,LOCATION_GRAVE,0,4,nil,ATTRIBUTE_LIGHT) end function c38737148.desfilter(c) - return c:IsDestructable() and c:GetSequence()==5 - and Duel.IsExistingTarget(Card.IsDestructable,0,LOCATION_ONFIELD,LOCATION_ONFIELD,2,c) + return c:GetSequence()==5 + and Duel.IsExistingTarget(aux.TRUE,0,LOCATION_ONFIELD,LOCATION_ONFIELD,2,c) end function c38737148.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end @@ -43,7 +43,7 @@ function c38737148.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local g1=Duel.SelectTarget(tp,c38737148.desfilter,tp,LOCATION_SZONE,LOCATION_SZONE,1,1,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,2,g1:GetFirst()) + local g2=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,2,g1:GetFirst()) g1:Merge(g2) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,g1:GetCount(),0,0) end diff --git a/script/c38761908.lua b/script/c38761908.lua index e4b5ebcd..cc20fd7e 100644 --- a/script/c38761908.lua +++ b/script/c38761908.lua @@ -28,11 +28,11 @@ function c38761908.filter2(c) return c:IsFaceup() and c:IsAbleToRemove() end function c38761908.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c38761908.filter2(chkc) end + if chkc then return chkc:IsOnField() and c38761908.filter2(chkc) and chkc~=e:GetHandler() end if chk==0 then return Duel.IsExistingMatchingCard(c38761908.filter1,tp,LOCATION_HAND,0,1,e:GetHandler()) - and Duel.IsExistingTarget(c38761908.filter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + and Duel.IsExistingTarget(c38761908.filter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,c38761908.filter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,c38761908.filter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) end function c38761908.activate(e,tp,eg,ep,ev,re,r,rp) @@ -55,17 +55,10 @@ end function c38761908.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() - if c:IsRelateToEffect(e) - and Duel.IsPlayerCanSpecialSummonMonster(tp,38761908,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then - c:SetStatus(STATUS_NO_LEVEL,false) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(TYPE_NORMAL+TYPE_MONSTER) - e1:SetReset(RESET_EVENT+0x47c0000) - c:RegisterEffect(e1,true) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,38761908,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then + c:AddMonsterAttribute(TYPE_NORMAL) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_IMMUNE_EFFECT) @@ -73,7 +66,7 @@ function c38761908.spop(e,tp,eg,ep,ev,re,r,rp) e2:SetRange(LOCATION_MZONE) e2:SetValue(c38761908.efilter) e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) + c:RegisterEffect(e2,true) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE) e3:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) @@ -81,6 +74,7 @@ function c38761908.spop(e,tp,eg,ep,ev,re,r,rp) e3:SetReset(RESET_EVENT+0x47e0000) e3:SetValue(LOCATION_REMOVED) c:RegisterEffect(e3,true) + Duel.SpecialSummonComplete() end end function c38761908.efilter(e,re) diff --git a/script/c38777931.lua b/script/c38777931.lua index 1f94d56b..e0d30f18 100644 --- a/script/c38777931.lua +++ b/script/c38777931.lua @@ -12,12 +12,12 @@ function c38777931.initial_effect(c) c:RegisterEffect(e1) end function c38777931.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x7f) end - local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x7f) + if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x107f) end + local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x107f) Duel.Release(g,REASON_COST) end function c38777931.filter(c) - return c:IsFacedown() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFacedown() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c38777931.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c38777931.filter,tp,0,LOCATION_ONFIELD,1,nil) end diff --git a/script/c38814750.lua b/script/c38814750.lua old mode 100755 new mode 100644 index b061b87d..2370102b --- a/script/c38814750.lua +++ b/script/c38814750.lua @@ -12,7 +12,7 @@ function c38814750.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(38814750,0)) e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetRange(LOCATION_HAND) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) @@ -31,7 +31,9 @@ function c38814750.spfilter(c,e,tp) return c:IsCode(49036338) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c38814750.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) + and not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(c38814750.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) @@ -41,6 +43,7 @@ function c38814750.target(e,tp,eg,ep,ev,re,r,rp,chk) end end function c38814750.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 or not e:GetHandler():IsRelateToEffect(e) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c38814750.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) diff --git a/script/c38815069.lua b/script/c38815069.lua index 48f010a6..d3292b14 100644 --- a/script/c38815069.lua +++ b/script/c38815069.lua @@ -26,9 +26,8 @@ end function c38815069.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then - local ct=Duel.SendtoDeck(tc,nil,0,REASON_EFFECT) - if ct>0 then - Duel.ShuffleDeck(tp) + if Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then + if tc:IsLocation(LOCATION_DECK) then Duel.ShuffleDeck(tp) end Duel.Draw(tp,1,REASON_EFFECT) end end diff --git a/script/c38834303.lua b/script/c38834303.lua index ac39500d..4db7d2e4 100644 --- a/script/c38834303.lua +++ b/script/c38834303.lua @@ -22,8 +22,13 @@ end function c38834303.activate(e,tp,eg,ep,ev,re,r,rp) local sg=Duel.GetMatchingGroup(c38834303.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) local tc=sg:GetFirst() + local count=0 while tc do + count=count+tc:GetCounter(0x100e) tc:RemoveCounter(tp,0,0,0) tc=sg:GetNext() end + if count>0 then + Duel.RaiseEvent(e:GetHandler(),EVENT_REMOVE_COUNTER+0x100e,e,REASON_EFFECT,tp,tp,count) + end end diff --git a/script/c38844957.lua b/script/c38844957.lua old mode 100755 new mode 100644 diff --git a/script/c38848158.lua b/script/c38848158.lua new file mode 100644 index 00000000..01d45de7 --- /dev/null +++ b/script/c38848158.lua @@ -0,0 +1,47 @@ +--イグナイト・ユナイト +function c38848158.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,38848158+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c38848158.target) + e1:SetOperation(c38848158.activate) + c:RegisterEffect(e1) +end +function c38848158.desfilter1(c) + return c:IsFaceup() and c:IsSetCard(0xc8) +end +function c38848158.spfilter(c,e,tp) + return c:IsSetCard(0xc8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c38848158.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local c=e:GetHandler() + if chkc then return chkc:IsLocation(e:GetLabel()) and chkc:IsControler(tp) and chkc~=c and c38848158.desfilter1(chkc) end + if chk==0 then + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<-1 then return false end + local loc=LOCATION_ONFIELD + if ft==0 then loc=LOCATION_MZONE end + e:SetLabel(loc) + return Duel.IsExistingTarget(c38848158.desfilter1,tp,loc,0,1,c) + and Duel.IsExistingMatchingCard(c38848158.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c38848158.desfilter1,tp,e:GetLabel(),0,1,1,c) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c38848158.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c38848158.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + end +end diff --git a/script/c38891741.lua b/script/c38891741.lua new file mode 100644 index 00000000..4e2d63ed --- /dev/null +++ b/script/c38891741.lua @@ -0,0 +1,38 @@ +--Ultimate Providence +function c38891741.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_CHAINING) + e1:SetCondition(c38891741.condition) + e1:SetCost(c38891741.cost) + e1:SetTarget(c38891741.target) + e1:SetOperation(c38891741.activate) + c:RegisterEffect(e1) +end +function c38891741.condition(e,tp,eg,ep,ev,re,r,rp) + return (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev) +end +function c38891741.cfilter(c,type) + return c:IsType(type) and c:IsDiscardable() +end +function c38891741.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if Duel.IsPlayerAffectedByEffect(tp,EFFECT_DISCARD_COST_CHANGE) then return true end + local type=re:GetActiveType() + if chk==0 then return Duel.IsExistingMatchingCard(c38891741.cfilter,tp,LOCATION_HAND,0,1,nil,type) end + Duel.DiscardHand(tp,c38891741.cfilter,1,1,REASON_COST+REASON_DISCARD,nil,type) +end +function c38891741.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end +end +function c38891741.activate(e,tp,eg,ep,ev,re,r,rp) + if not Duel.NegateActivation(ev) then return end + if re:GetHandler():IsRelateToEffect(re) then + Duel.Destroy(eg,REASON_EFFECT) + end +end diff --git a/script/c38975369.lua b/script/c38975369.lua index 3afb44ed..39b0efb4 100644 --- a/script/c38975369.lua +++ b/script/c38975369.lua @@ -1,5 +1,7 @@ --軍荼利 function c38975369.initial_effect(c) + --spirit + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c38975369.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c38975369.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --return to hand local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(38975369,0)) @@ -28,42 +20,6 @@ function c38975369.initial_effect(c) e4:SetOperation(c38975369.thop) c:RegisterEffect(e4) end -function c38975369.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(38975369,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c38975369.retcon) - e1:SetTarget(c38975369.rettg) - e1:SetOperation(c38975369.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c38975369.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c38975369.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c38975369.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end function c38975369.thcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local bc=c:GetBattleTarget() diff --git a/script/c38981606.lua b/script/c38981606.lua index 2df4a41d..837a889f 100644 --- a/script/c38981606.lua +++ b/script/c38981606.lua @@ -4,7 +4,7 @@ function c38981606.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetRange(LOCATION_MZONE) e1:SetValue(c38981606.val) c:RegisterEffect(e1) diff --git a/script/c38988538.lua b/script/c38988538.lua index 71be0fb0..daa2cab6 100644 --- a/script/c38988538.lua +++ b/script/c38988538.lua @@ -2,9 +2,8 @@ function c38988538.initial_effect(c) --pendulum summon aux.EnablePendulumAttribute(c) - -- + --disable local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(38988538,0)) e2:SetCategory(CATEGORY_DISABLE) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetCode(EVENT_CHAIN_SOLVING) @@ -12,7 +11,7 @@ function c38988538.initial_effect(c) e2:SetCondition(c38988538.negcon) e2:SetOperation(c38988538.negop) c:RegisterEffect(e2) - -- + --decrease atk/def local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_FIELD) e3:SetCode(EFFECT_UPDATE_ATTACK) @@ -20,12 +19,8 @@ function c38988538.initial_effect(c) e3:SetTargetRange(0,LOCATION_MZONE) e3:SetValue(c38988538.atkval) c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_UPDATE_DEFENCE) - e4:SetRange(LOCATION_MZONE) - e4:SetTargetRange(0,LOCATION_MZONE) - e4:SetValue(c38988538.atkval) + local e4=e3:Clone() + e4:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e4) end function c38988538.tfilter(c,tp) @@ -37,7 +32,7 @@ function c38988538.negcon(e,tp,eg,ep,ev,re,r,rp) and g and g:IsExists(c38988538.tfilter,1,e:GetHandler(),tp) and Duel.IsChainDisablable(ev) end function c38988538.negop(e,tp,eg,ep,ev,re,r,rp) - if Duel.SelectYesNo(tp,aux.Stringid(38988538,1)) then + if Duel.SelectYesNo(tp,aux.Stringid(38988538,0)) then e:GetHandler():RegisterFlagEffect(38988538,RESET_EVENT+0x1fe0000,0,1) Duel.NegateEffect(ev) Duel.BreakEffect() diff --git a/script/c3900605.lua b/script/c3900605.lua index 555f0bf2..da05890b 100644 --- a/script/c3900605.lua +++ b/script/c3900605.lua @@ -9,7 +9,7 @@ function c3900605.initial_effect(c) c:RegisterEffect(e1) end function c3900605.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c3900605.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c39019325.lua b/script/c39019325.lua index 994bdc75..91ef2215 100644 --- a/script/c39019325.lua +++ b/script/c39019325.lua @@ -17,7 +17,7 @@ function c39019325.rfilter(c,e) and c:IsFaceup() and c:IsLevelBelow(2) and c:IsReleasable() and c:IsReleasableByEffect() and not c:IsImmuneToEffect(e) end function c39019325.dfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c39019325.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c39019325.rfilter(chkc,e) end diff --git a/script/c39024589.lua b/script/c39024589.lua new file mode 100644 index 00000000..7dc5cc13 --- /dev/null +++ b/script/c39024589.lua @@ -0,0 +1,78 @@ +--魔界劇団－ダンディ・バイプレイヤー +function c39024589.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --tohand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(39024589,0)) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetRange(LOCATION_PZONE) + e1:SetCondition(c39024589.thcon) + e1:SetTarget(c39024589.thtg) + e1:SetOperation(c39024589.thop) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(39024589,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1,39024589) + e2:SetCondition(c39024589.spcon) + e2:SetCost(c39024589.spcost) + e2:SetTarget(c39024589.sptg) + e2:SetOperation(c39024589.spop) + c:RegisterEffect(e2) +end +function c39024589.cfilter(c,tp) + return c:GetSummonPlayer()==tp and c:GetSummonType()==SUMMON_TYPE_PENDULUM +end +function c39024589.thcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c39024589.cfilter,1,nil,tp) +end +function c39024589.thfilter(c) + local lv=c:GetLevel() + return c:IsFaceup() and c:IsSetCard(0x10ec) and (lv==1 or lv==8) and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand() +end +function c39024589.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c39024589.thfilter,tp,LOCATION_EXTRA,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_EXTRA) +end +function c39024589.thop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c39024589.thfilter,tp,LOCATION_EXTRA,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c39024589.spcon(e,tp,eg,ep,ev,re,r,rp) + local tc1=Duel.GetFieldCard(tp,LOCATION_SZONE,6) + local tc2=Duel.GetFieldCard(tp,LOCATION_SZONE,7) + return tc1 and tc1:IsSetCard(0x10ec) and tc2 and tc2:IsSetCard(0x10ec) +end +function c39024589.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c39024589.filter(c,e,tp) + local lv=c:GetLevel() + return (c:IsLocation(LOCATION_HAND) or (c:IsFaceup() and c:IsLocation(LOCATION_EXTRA))) and c:IsSetCard(0x10ec) + and (lv==1 or lv==8) and c:IsType(TYPE_PENDULUM) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c39024589.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c39024589.filter,tp,LOCATION_EXTRA+LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA+LOCATION_HAND) +end +function c39024589.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c39024589.filter,tp,LOCATION_EXTRA+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 diff --git a/script/c39030163.lua b/script/c39030163.lua index c5156807..78ceccc4 100644 --- a/script/c39030163.lua +++ b/script/c39030163.lua @@ -59,7 +59,7 @@ function c39030163.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) end function c39030163.desfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c39030163.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c39030163.desfilter(chkc) end diff --git a/script/c39037517.lua b/script/c39037517.lua index 6a54a8f9..2f08599a 100644 --- a/script/c39037517.lua +++ b/script/c39037517.lua @@ -31,6 +31,8 @@ function c39037517.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_INSECT) and not c:IsPublic() end function c39037517.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c39037517.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c39037517.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -40,8 +42,10 @@ function c39037517.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(39037517,0),aux.Stringid(39037517,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(39037517,1),aux.Stringid(39037517,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(39037517,1),aux.Stringid(39037517,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(39037517,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -53,7 +57,7 @@ function c39037517.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c39037517.filter(c,e) @@ -66,5 +70,5 @@ function c39037517.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c39037517.operation(e,tp,eg,ep,ev,re,r,rp) local g=eg:Filter(c39037517.filter,nil,e) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) end diff --git a/script/c39118197.lua b/script/c39118197.lua old mode 100755 new mode 100644 index a8a8a124..d07ffc8e --- a/script/c39118197.lua +++ b/script/c39118197.lua @@ -5,15 +5,7 @@ function c39118197.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_MUST_ATTACK) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c39118197.becon) - c:RegisterEffect(e2) - --to defence + --to defense local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(39118197,0)) e3:SetCategory(CATEGORY_POSITION) @@ -33,27 +25,24 @@ function c39118197.initial_effect(c) e4:SetOperation(c39118197.atkop) c:RegisterEffect(e4) end -function c39118197.becon(e) - return e:GetHandler():IsAttackable() -end function c39118197.poscon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsAttackPos() end function c39118197.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c39118197.filter(c) - return c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousPosition(POS_FACEUP) and c:IsPreviousSetCard(0x11) + return c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousPosition(POS_FACEUP) and c:IsPreviousSetCard(0x11) end function c39118197.atkcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c39118197.filter,1,nil) end function c39118197.atkop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then + if c:IsRelateToEffect(e) and c:IsFaceup() then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UPDATE_ATTACK) diff --git a/script/c3912064.lua b/script/c3912064.lua new file mode 100644 index 00000000..39f736d7 --- /dev/null +++ b/script/c3912064.lua @@ -0,0 +1,69 @@ +--The tripping Mercury +function c3912064.initial_effect(c) + --change position + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_POSITION) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetCondition(c3912064.poscon) + e1:SetTarget(c3912064.postg) + e1:SetOperation(c3912064.posop) + c:RegisterEffect(e1) + --summon with 3 tribute + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(3912064,0)) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_SUMMON_PROC) + e2:SetCondition(c3912064.ttcon) + e2:SetOperation(c3912064.ttop) + e2:SetValue(SUMMON_TYPE_ADVANCE+1) + c:RegisterEffect(e2) + --atk down + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_UPDATE_ATTACK) + e3:SetRange(LOCATION_MZONE) + e3:SetTargetRange(0,LOCATION_MZONE) + e3:SetCondition(c3912064.atkcon) + e3:SetValue(c3912064.atkval) + c:RegisterEffect(e3) + --extra attack + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_EXTRA_ATTACK) + e4:SetValue(1) + c:RegisterEffect(e4) +end +function c3912064.posfilter(c) + return c:IsDefensePos() or c:IsFacedown() +end +function c3912064.poscon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE +end +function c3912064.postg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c3912064.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end +end +function c3912064.posop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c3912064.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if g:GetCount()==0 then return end + Duel.ChangePosition(g,POS_FACEUP_ATTACK) +end +function c3912064.ttcon(e,c) + if c==nil then return true end + return Duel.GetTributeCount(c)>=3 +end +function c3912064.ttop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local g=Duel.SelectTribute(tp,c,3,3) + c:SetMaterial(g) + Duel.Release(g, REASON_SUMMON+REASON_MATERIAL) +end +function c3912064.atkcon(e) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE+1 +end +function c3912064.atkval(e,c) + local rec=c:GetBaseAttack() + if rec<0 then rec=0 end + return rec*-1 +end diff --git a/script/c39122311.lua b/script/c39122311.lua index 4bac6f7d..5eeebfcd 100644 --- a/script/c39122311.lua +++ b/script/c39122311.lua @@ -47,7 +47,7 @@ function c39122311.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) - and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then c:SetCardTarget(tc) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c39153655.lua b/script/c39153655.lua index f0d0759c..7d1af6e5 100644 --- a/script/c39153655.lua +++ b/script/c39153655.lua @@ -1,81 +1,80 @@ ---DDケルベロス -function c39153655.initial_effect(c) - --pendulum summon - aux.EnablePendulumAttribute(c) - --atk/def - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(39153655,0)) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetTarget(c39153655.atktg) - e2:SetOperation(c39153655.atkop) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCondition(c39153655.thcon) - e3:SetTarget(c39153655.thtg) - e3:SetOperation(c39153655.thop) - c:RegisterEffect(e3) -end -function c39153655.filter(c) - local lv=c:GetLevel() - return c:IsFaceup() and c:IsSetCard(0xaf) and lv>0 and lv~=4 -end -function c39153655.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c39153655.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c39153655.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c39153655.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c39153655.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetLevel()~=4 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(4) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetValue(400) - tc:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) - tc:RegisterEffect(e3) - end -end -function c39153655.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0xaf) and not c:IsCode(39153655) -end -function c39153655.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetSummonType()==SUMMON_TYPE_PENDULUM and c:IsPreviousLocation(LOCATION_HAND) - and Duel.IsExistingMatchingCard(c39153655.cfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c39153655.thfilter(c) - return c:GetType()==TYPE_SPELL+TYPE_CONTINUOUS and c:IsAbleToHand() -end -function c39153655.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c39153655.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c39153655.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c39153655.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c39153655.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--DDケルベロス +function c39153655.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --atk/def + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(39153655,0)) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_PZONE) + e2:SetCountLimit(1) + e2:SetTarget(c39153655.atktg) + e2:SetOperation(c39153655.atkop) + c:RegisterEffect(e2) + --tohand + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCondition(c39153655.thcon) + e3:SetTarget(c39153655.thtg) + e3:SetOperation(c39153655.thop) + c:RegisterEffect(e3) +end +function c39153655.filter(c) + local lv=c:GetLevel() + return c:IsFaceup() and c:IsSetCard(0xaf) and lv>0 and lv~=4 +end +function c39153655.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c39153655.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c39153655.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c39153655.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c39153655.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetLevel()~=4 then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_CHANGE_LEVEL) + e1:SetValue(4) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetValue(400) + tc:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_UPDATE_DEFENSE) + tc:RegisterEffect(e3) + end +end +function c39153655.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xaf) and not c:IsCode(39153655) +end +function c39153655.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:GetSummonType()==SUMMON_TYPE_PENDULUM and c:IsPreviousLocation(LOCATION_HAND) + and Duel.IsExistingMatchingCard(c39153655.cfilter,tp,LOCATION_MZONE,0,1,nil) +end +function c39153655.thfilter(c) + return c:GetType()==TYPE_SPELL+TYPE_CONTINUOUS and c:IsAbleToHand() +end +function c39153655.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c39153655.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c39153655.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c39153655.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c39153655.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c39163598.lua b/script/c39163598.lua index 0eafad8a..55b50011 100644 --- a/script/c39163598.lua +++ b/script/c39163598.lua @@ -17,7 +17,7 @@ function c39163598.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c39163598.tgfilter(c) - return c:IsFaceup() and c:GetCounter(0xe)==0 and c:IsDestructable() + return c:IsFaceup() and c:GetCounter(0x100e)==0 end function c39163598.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -43,14 +43,14 @@ function c39163598.activate(e,tp,eg,ep,ev,re,r,rp) end function c39163598.ctop1(e,tp,eg,ep,ev,re,r,rp) if ep~=tp then - eg:GetFirst():AddCounter(0xe,1) + eg:GetFirst():AddCounter(0x100e,1) end end function c39163598.ctop2(e,tp,eg,ep,ev,re,r,rp) local tc=eg:GetFirst() while tc do if tc:IsFaceup() and tc:GetSummonPlayer()~=tp then - tc:AddCounter(0xe,1) + tc:AddCounter(0x100e,1) end tc=eg:GetNext() end diff --git a/script/c39168895.lua b/script/c39168895.lua index 785e971e..a7bbf717 100644 --- a/script/c39168895.lua +++ b/script/c39168895.lua @@ -5,14 +5,6 @@ function c39168895.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_MUST_ATTACK) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c39168895.becon) - c:RegisterEffect(e2) --destroy local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE) @@ -22,9 +14,6 @@ function c39168895.initial_effect(c) e3:SetCondition(c39168895.descon) c:RegisterEffect(e3) end -function c39168895.becon(e) - return e:GetHandler():IsAttackable() -end function c39168895.descon(e) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end diff --git a/script/c39180960.lua b/script/c39180960.lua index d0923efd..397baae7 100644 --- a/script/c39180960.lua +++ b/script/c39180960.lua @@ -42,6 +42,6 @@ function c39180960.desop(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(-500) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end diff --git a/script/c39229392.lua b/script/c39229392.lua index aa77d4a1..f8d07721 100644 --- a/script/c39229392.lua +++ b/script/c39229392.lua @@ -6,7 +6,7 @@ function c39229392.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SPSUMMON_CONDITION) c:RegisterEffect(e1) - --to defence + --to defense local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(39229392,0)) e2:SetCategory(CATEGORY_POSITION) @@ -34,7 +34,7 @@ end function c39229392.poop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsPosition(POS_FACEUP_ATTACK) and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c39229392.filter(c) diff --git a/script/c39238953.lua b/script/c39238953.lua new file mode 100644 index 00000000..9675549e --- /dev/null +++ b/script/c39238953.lua @@ -0,0 +1,57 @@ +--天声の服従 +function c39238953.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCost(c39238953.cost) + e1:SetTarget(c39238953.target) + e1:SetOperation(c39238953.activate) + c:RegisterEffect(e1) +end +function c39238953.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,2000) end + Duel.PayLPCost(tp,2000) +end +function c39238953.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,0,LOCATION_DECK,1,nil) + or Duel.IsPlayerCanSpecialSummon(tp) end + Duel.Hint(HINT_SELECTMSG,tp,564) + local ac=Duel.AnnounceCard(tp,TYPE_MONSTER) + Duel.SetTargetParam(ac) + Duel.SetOperationInfo(0,CATEGORY_ANNOUNCE,nil,0,tp,ANNOUNCE_CARD) +end +function c39238953.activate(e,tp,eg,ep,ev,re,r,rp) + local ac=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) + local g=Duel.GetFieldGroup(tp,0,LOCATION_DECK) + if g:GetCount()<1 then return end + Duel.ConfirmCards(1-tp,g) + Duel.Hint(HINT_SELECTMSG,1-tp,526) + local sg=g:FilterSelect(1-tp,Card.IsCode,1,1,nil,ac) + local tc=sg:GetFirst() + if tc then + Duel.ConfirmCards(tp,sg) + local b1=tc:IsAbleToHand() + local b2=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and tc:IsCanBeSpecialSummoned(e,0,tp,true,false,POS_FACEUP_ATTACK,tp) + local sel=0 + if b1 and b2 then + Duel.Hint(HINT_SELECTMSG,1-tp,555) + sel=Duel.SelectOption(1-tp,aux.Stringid(39238953,0),aux.Stringid(39238953,1))+1 + elseif b1 then + Duel.Hint(HINT_SELECTMSG,1-tp,555) + sel=Duel.SelectOption(1-tp,aux.Stringid(39238953,0))+1 + elseif b2 then + Duel.Hint(HINT_SELECTMSG,1-tp,555) + sel=Duel.SelectOption(1-tp,aux.Stringid(39238953,1))+2 + end + if sel==1 then + Duel.SendtoHand(sg,tp,REASON_EFFECT) + Duel.ConfirmCards(1-tp,sg) + elseif sel==2 then + Duel.SpecialSummon(sg,0,tp,tp,true,false,POS_FACEUP_ATTACK) + end + end + Duel.ShuffleDeck(1-tp) +end diff --git a/script/c39261576.lua b/script/c39261576.lua index d35b1d64..0981a198 100644 --- a/script/c39261576.lua +++ b/script/c39261576.lua @@ -14,7 +14,7 @@ function c39261576.initial_effect(c) e2:SetDescription(aux.Stringid(39261576,0)) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(39261576) + e2:SetCode(EVENT_CUSTOM+39261576) e2:SetCost(c39261576.atkcost) e2:SetTarget(c39261576.atktg) e2:SetOperation(c39261576.atkop) @@ -72,13 +72,13 @@ function c39261576.activate(e,tp,eg,ep,ev,re,r,rp) Duel.BreakEffect() Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) e:SetLabelObject(tc) - Duel.RaiseSingleEvent(e:GetHandler(),39261576,e,0,tp,tp,0) + Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+39261576,e,0,tp,tp,0) else local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) local fop=ce:GetOperation() fop(ce,e,tp,tc,mat2) e:SetLabelObject(tc) - Duel.RaiseSingleEvent(e:GetHandler(),39261576,e,0,tp,tp,0) + Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+39261576,e,0,tp,tp,0) end tc:CompleteProcedure() end diff --git a/script/c39272762.lua b/script/c39272762.lua old mode 100755 new mode 100644 index eac0454e..19d87093 --- a/script/c39272762.lua +++ b/script/c39272762.lua @@ -73,19 +73,18 @@ function c39272762.attg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetOverlayCount(tp,0,1)~=0 end end function c39272762.atop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() local g=Duel.GetOverlayGroup(tp,0,1) - if c:IsFacedown() or not c:IsRelateToEffect(e) then return end - if g:GetCount()~=0 then - Duel.SendtoGrave(g,REASON_EFFECT) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(g:GetCount()*500) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end + if g:GetCount()==0 then return end + Duel.SendtoGrave(g,REASON_EFFECT) Duel.BreakEffect() + local c=e:GetHandler() + if c:IsFacedown() or not c:IsRelateToEffect(e) then return end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(g:GetCount()*500) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) diff --git a/script/c39343610.lua b/script/c39343610.lua index 9d5099fc..fcf45d0c 100644 --- a/script/c39343610.lua +++ b/script/c39343610.lua @@ -35,8 +35,8 @@ function c39343610.atkop(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetValue(c:GetBaseDefence()*2) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) + e2:SetValue(c:GetBaseDefense()*2) e2:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e2) end diff --git a/script/c39357122.lua b/script/c39357122.lua index e6715f50..f9fed2c0 100644 --- a/script/c39357122.lua +++ b/script/c39357122.lua @@ -13,7 +13,7 @@ function c39357122.initial_effect(c) c:RegisterEffect(e1) end function c39357122.filter(c,atk) - return c:IsFaceup() and c:GetDefence()0 and c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) - e1:SetValue(ct) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end -end +--トライデント・ドラギオン +function c39402797.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_DRAGON),aux.NonTuner(Card.IsRace,RACE_DRAGON),1) + c:EnableReviveLimit() + --cannot special summon + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(aux.synlimit) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(39402797,0)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetCondition(c39402797.descon) + e2:SetTarget(c39402797.destg) + e2:SetOperation(c39402797.desop) + c:RegisterEffect(e2) +end +function c39402797.descon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO +end +function c39402797.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,0,1,2,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c39402797.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + local c=e:GetHandler() + local ct=Duel.Destroy(g,REASON_EFFECT) + if ct>0 and c:IsRelateToEffect(e) and c:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_EXTRA_ATTACK) + e1:SetValue(ct) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + end +end diff --git a/script/c39432962.lua b/script/c39432962.lua index 1d0d3ec3..742775bc 100644 --- a/script/c39432962.lua +++ b/script/c39432962.lua @@ -31,7 +31,7 @@ function c39432962.spop(e,tp,eg,ep,ev,re,r,rp) if tc then local spos=0 if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then spos=spos+POS_FACEUP_ATTACK end - if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENCE end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENSE end Duel.SpecialSummon(tc,0,tp,tp,false,false,spos) if tc:IsFacedown() then Duel.ConfirmCards(1-tp,tc) diff --git a/script/c39439590.lua b/script/c39439590.lua index 9a06fbcb..1bf93c79 100644 --- a/script/c39439590.lua +++ b/script/c39439590.lua @@ -25,7 +25,9 @@ function c39439590.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c39439590.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c39440937.lua b/script/c39440937.lua index d9f7f1b7..35bde9c6 100644 --- a/script/c39440937.lua +++ b/script/c39440937.lua @@ -20,7 +20,7 @@ end function c39440937.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c39440937.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) diff --git a/script/c39477584.lua b/script/c39477584.lua index 598c3cc4..252d588e 100644 --- a/script/c39477584.lua +++ b/script/c39477584.lua @@ -19,7 +19,7 @@ function c39477584.con(e,tp,eg,ep,ev,re,r,rp) return bit.band(r,REASON_DESTROY)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) end function c39477584.filter(c) - return c:IsSetCard(0x35) and c:IsAbleToHand() + return c:IsSetCard(0x35) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c39477584.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c39477584.filter(chkc) end diff --git a/script/c39526584.lua b/script/c39526584.lua old mode 100755 new mode 100644 diff --git a/script/c39564736.lua b/script/c39564736.lua new file mode 100644 index 00000000..e128a557 --- /dev/null +++ b/script/c39564736.lua @@ -0,0 +1,70 @@ +--重錬装融合 +function c39564736.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(39564736,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c39564736.target) + e1:SetOperation(c39564736.activate) + c:RegisterEffect(e1) +end +function c39564736.filter1(c,e) + return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) +end +function c39564736.filter2(c,e,tp,m,f,chkf) + return c:IsType(TYPE_FUSION) and c:IsSetCard(0xe1) and (not f or f(c)) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) +end +function c39564736.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_HAND+LOCATION_MZONE,0,nil) + local res=Duel.IsExistingMatchingCard(c39564736.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) + if not res then + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + local mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + res=Duel.IsExistingMatchingCard(c39564736.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) + end + end + return res + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c39564736.activate(e,tp,eg,ep,ev,re,r,rp) + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(c39564736.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) + local sg1=Duel.GetMatchingGroup(c39564736.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) + local mg2=nil + local sg2=nil + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + sg2=Duel.GetMatchingGroup(c39564736.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) + end + if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then + local sg=sg1:Clone() + if sg2 then sg:Merge(sg2) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=sg:Select(tp,1,1,nil) + local tc=tg:GetFirst() + if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then + local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) + tc:SetMaterial(mat1) + Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) + else + local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) + local fop=ce:GetOperation() + fop(ce,e,tp,tc,mat2) + end + tc:CompleteProcedure() + end +end diff --git a/script/c39618799.lua b/script/c39618799.lua new file mode 100644 index 00000000..2ac1102d --- /dev/null +++ b/script/c39618799.lua @@ -0,0 +1,71 @@ +--サイバー・エンジェル－荼吉尼－ +function c39618799.initial_effect(c) + c:EnableReviveLimit() + --to grave + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(39618799,0)) + e1:SetCategory(CATEGORY_TOGRAVE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c39618799.tgcon) + e1:SetTarget(c39618799.tgtg) + e1:SetOperation(c39618799.tgop) + c:RegisterEffect(e1) + --pierce + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_PIERCE) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_RITUAL)) + c:RegisterEffect(e2) + --to hand + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(39618799,1)) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCode(EVENT_PHASE+PHASE_END) + e3:SetCountLimit(1) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c39618799.thcon) + e3:SetTarget(c39618799.thtg) + e3:SetOperation(c39618799.thop) + c:RegisterEffect(e3) +end +function c39618799.tgcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL +end +function c39618799.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,0,LOCATION_MZONE) +end +function c39618799.tgop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(nil,1-tp,LOCATION_MZONE,0,nil) + if g:GetCount()>0 then + Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE) + local sg=g:Select(1-tp,1,1,nil) + Duel.HintSelection(sg) + Duel.SendtoGrave(sg,REASON_RULE) + end +end +function c39618799.thcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c39618799.thfilter(c) + return (c:IsCode(39996157) or bit.band(c:GetType(),0x81)==0x81) and c:IsAbleToHand() +end +function c39618799.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c39618799.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c39618799.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c39618799.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c39618799.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c39648965.lua b/script/c39648965.lua index 9a9562d1..5f9c80e3 100644 --- a/script/c39648965.lua +++ b/script/c39648965.lua @@ -29,7 +29,7 @@ end function c39648965.piercecon(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() - return d and a:IsControler(tp) and a~=e:GetHandler() and d:IsDefencePos() and a:IsSetCard(0x13) + return d and a:IsControler(tp) and a~=e:GetHandler() and d:IsDefensePos() and a:IsSetCard(0x13) end function c39648965.piercetg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c3966653.lua b/script/c3966653.lua new file mode 100644 index 00000000..a98e4bfc --- /dev/null +++ b/script/c3966653.lua @@ -0,0 +1,66 @@ +--花札衛－猪鹿蝶－ +function c3966653.initial_effect(c) + c:EnableReviveLimit() + --synchro summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetRange(LOCATION_EXTRA) + e1:SetCondition(aux.SynCondition(nil,aux.NonTuner(nil),2,2)) + e1:SetTarget(aux.SynTarget(nil,aux.NonTuner(nil),2,2)) + e1:SetOperation(aux.SynOperation(nil,aux.NonTuner(nil),2,2)) + e1:SetValue(SUMMON_TYPE_SYNCHRO) + c:RegisterEffect(e1) + --pierce + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_PIERCE) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xe6)) + c:RegisterEffect(e2) + --activate limit + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(3966653,0)) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetCountLimit(1) + e3:SetRange(LOCATION_MZONE) + e3:SetCost(c3966653.cost) + e3:SetOperation(c3966653.operation) + c:RegisterEffect(e3) +end +function c3966653.spfilter(c) + return c:IsSetCard(0xe6) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() +end +function c3966653.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c3966653.spfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c3966653.spfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c3966653.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EFFECT_CANNOT_ACTIVATE) + e1:SetTargetRange(0,1) + e1:SetValue(c3966653.aclimit) + e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN) + Duel.RegisterEffect(e1,tp) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e2:SetTargetRange(0,1) + e2:SetTarget(c3966653.sumlimit) + e2:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN) + Duel.RegisterEffect(e2,tp) +end +function c3966653.aclimit(e,re,tp) + return re:GetActivateLocation()==LOCATION_GRAVE +end +function c3966653.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) + return c:IsLocation(LOCATION_GRAVE) +end diff --git a/script/c39695323.lua b/script/c39695323.lua index 5b179731..b7ac189c 100644 --- a/script/c39695323.lua +++ b/script/c39695323.lua @@ -10,7 +10,7 @@ function c39695323.initial_effect(c) e1:SetTarget(c39695323.sptg) e1:SetOperation(c39695323.spop) c:RegisterEffect(e1) - --to defence + --to defense local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -34,10 +34,10 @@ end function c39695323.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then + if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then Duel.BreakEffect() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end end @@ -47,6 +47,6 @@ end function c39695323.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end diff --git a/script/c39703254.lua b/script/c39703254.lua index 3bdc5bb3..13a1907b 100644 --- a/script/c39703254.lua +++ b/script/c39703254.lua @@ -1 +1,39 @@ ---トマボー function c39703254.initial_effect(c) --draw local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(39703254,0)) e1:SetCategory(CATEGORY_DRAW) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetRange(LOCATION_MZONE) e1:SetCondition(c39703254.condition) e1:SetCost(c39703254.cost) e1:SetTarget(c39703254.target) e1:SetOperation(c39703254.operation) c:RegisterEffect(e1) end function c39703254.condition(e,tp,eg,ep,ev,re,r,rp) if rp==tp or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end if not re:IsActiveType(TYPE_SPELL+TYPE_TRAP) then return false end local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) if not g or g:GetCount()~=1 then return false end local tg=g:GetFirst() local c=e:GetHandler() return tg~=c and tg:IsFaceup() and tg:IsRace(RACE_PLANT) end function c39703254.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsReleasable() end Duel.Release(e:GetHandler(),REASON_COST) end function c39703254.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end Duel.SetTargetPlayer(tp) Duel.SetTargetParam(2) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) end function c39703254.operation(e,tp,eg,ep,ev,re,r,rp) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) Duel.Draw(p,d,REASON_EFFECT) end \ No newline at end of file +--トマボー +function c39703254.initial_effect(c) + --draw + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(39703254,0)) + e1:SetCategory(CATEGORY_DRAW) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_CHAINING) + e1:SetRange(LOCATION_MZONE) + e1:SetCondition(c39703254.condition) + e1:SetCost(c39703254.cost) + e1:SetTarget(c39703254.target) + e1:SetOperation(c39703254.operation) + c:RegisterEffect(e1) +end +function c39703254.condition(e,tp,eg,ep,ev,re,r,rp) + if rp==tp or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end + if not re:IsActiveType(TYPE_SPELL+TYPE_TRAP) then return false end + local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) + if not g or g:GetCount()~=1 then return false end + local tg=g:GetFirst() + local c=e:GetHandler() + return tg~=c and tg:IsFaceup() and tg:IsRace(RACE_PLANT) +end +function c39703254.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c39703254.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(2) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) +end +function c39703254.operation(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end diff --git a/script/c39711336.lua b/script/c39711336.lua index 33dae3c2..f5c1dbbc 100644 --- a/script/c39711336.lua +++ b/script/c39711336.lua @@ -38,7 +38,7 @@ end function c39711336.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c39711336.spfilter(c,e,tp) diff --git a/script/c39712330.lua b/script/c39712330.lua index 28aeb01b..f9867184 100644 --- a/script/c39712330.lua +++ b/script/c39712330.lua @@ -57,7 +57,7 @@ function c39712330.activate1(e,tp,eg,ep,ev,re,r,rp) local tc=g:GetFirst() if tc then if tc:IsSummonable(true,nil) and (not tc:IsMSetable(true,nil) - or Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENCE)==POS_FACEUP_ATTACK) then + or Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) then Duel.Summon(tp,tc,true,nil) else Duel.MSet(tp,tc,true,nil) end end @@ -92,7 +92,7 @@ function c39712330.activate2(e,tp,eg,ep,ev,re,r,rp) if tc then local s1=tc:IsSummonable(true,nil) local s2=tc:IsMSetable(true,nil) - if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENCE)==POS_FACEUP_ATTACK) or not s2 then + if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) or not s2 then Duel.Summon(tp,tc,true,nil) else Duel.MSet(tp,tc,true,nil) diff --git a/script/c39751093.lua b/script/c39751093.lua index cb8d547f..1ffc3455 100644 --- a/script/c39751093.lua +++ b/script/c39751093.lua @@ -1,5 +1,7 @@ --竜宮之姫 function c39751093.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c39751093.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c39751093.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --pos local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(39751093,1)) @@ -41,42 +33,6 @@ end function c39751093.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) - end -end -function c39751093.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(39751093,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c39751093.retcon) - e1:SetTarget(c39751093.rettg) - e1:SetOperation(c39751093.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c39751093.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c39751093.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c39751093.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c39751094.lua b/script/c39751094.lua deleted file mode 100644 index df08f82a..00000000 --- a/script/c39751094.lua +++ /dev/null @@ -1,83 +0,0 @@ ---竜宮之姫 -function c39751094.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c39751094.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) - --pos - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(39751094,1)) - e4:SetCategory(CATEGORY_POSITION) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_SUMMON_SUCCESS) - e4:SetTarget(c39751094.target) - e4:SetOperation(c39751094.operation) - c:RegisterEffect(e4) - local e5=e4:Clone() - e5:SetCode(EVENT_FLIP) - c:RegisterEffect(e5) -end -function c39751094.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c39751094.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) - end -end -function c39751094.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(39751094,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetProperty(EFFECT_FLAG_REPEAT) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c39751094.retcon) - e1:SetTarget(c39751094.rettg) - e1:SetOperation(c39751094.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c39751094.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c39751094.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c39751094.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c39765115.lua b/script/c39765115.lua index a6078abf..4e9dd34f 100644 --- a/script/c39765115.lua +++ b/script/c39765115.lua @@ -33,9 +33,7 @@ function c39765115.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c39765115.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,0,0) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp) end end diff --git a/script/c39765958.lua b/script/c39765958.lua index 083b824b..be468360 100644 --- a/script/c39765958.lua +++ b/script/c39765958.lua @@ -35,7 +35,7 @@ function c39765958.ftarget(e,c) return e:GetLabel()~=c:GetFieldID() end function c39765958.dfilter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:IsDestructable() + return c:IsPosition(POS_FACEUP_ATTACK) end function c39765958.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c39765958.dfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end diff --git a/script/c39774685.lua b/script/c39774685.lua index fb37d4c1..d2089730 100644 --- a/script/c39774685.lua +++ b/script/c39774685.lua @@ -18,7 +18,7 @@ function c39774685.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(300) c:RegisterEffect(e3) --equip limit diff --git a/script/c39778366.lua b/script/c39778366.lua new file mode 100644 index 00000000..fa655583 --- /dev/null +++ b/script/c39778366.lua @@ -0,0 +1,77 @@ +--スクランブル・ユニオン +function c39778366.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1,39778366+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c39778366.target) + e1:SetOperation(c39778366.operation) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_GRAVE) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCondition(aux.exccon) + e2:SetCost(c39778366.thcost) + e2:SetTarget(c39778366.thtg) + e2:SetOperation(c39778366.thop) + c:RegisterEffect(e2) +end +function c39778366.filter(c,e,tp) + return c:IsFaceup() and c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT) + and c:IsType(TYPE_NORMAL+TYPE_UNION) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c39778366.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c39778366.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c39778366.filter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft>3 then ft=3 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c39778366.filter,tp,LOCATION_REMOVED,0,1,ft,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) +end +function c39778366.operation(e,tp,eg,ep,ev,re,r,rp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()==0 or (g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) then return end + if g:GetCount()<=ft then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg=g:Select(tp,ft,ft,nil) + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) + g:Sub(sg) + Duel.SendtoGrave(g,REASON_RULE) + end +end +function c39778366.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c39778366.thfilter(c) + return c:IsFaceup() and c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT) + and c:IsType(TYPE_NORMAL+TYPE_UNION) and c:IsAbleToHand() +end +function c39778366.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_REMOVED) and c39778366.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c39778366.thfilter,tp,LOCATION_REMOVED,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c39778366.thfilter,tp,LOCATION_REMOVED,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c39778366.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,tc) + end +end diff --git a/script/c39823987.lua b/script/c39823987.lua old mode 100755 new mode 100644 diff --git a/script/c39853199.lua b/script/c39853199.lua index 350ff754..89634f49 100644 --- a/script/c39853199.lua +++ b/script/c39853199.lua @@ -1,85 +1,85 @@ ---妖仙獣 閻魔巳裂 -function c39853199.initial_effect(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(39853199,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_BATTLE_START) - e1:SetTarget(c39853199.destg1) - e1:SetOperation(c39853199.desop1) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(39853199,1)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c39853199.descon2) - e2:SetTarget(c39853199.destg2) - e2:SetOperation(c39853199.desop2) - c:RegisterEffect(e2) - --return - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(39853199,2)) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetCondition(c39853199.retcon) - e3:SetTarget(c39853199.rettg) - e3:SetOperation(c39853199.retop) - c:RegisterEffect(e3) - if not c39853199.global_check then - c39853199.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_SPSUMMON_SUCCESS) - ge1:SetLabel(39853199) - ge1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - ge1:SetOperation(aux.sumreg) - Duel.RegisterEffect(ge1,0) - end -end -function c39853199.destg1(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=e:GetHandler():GetBattleTarget() - if chk==0 then return tc and tc:IsFaceup() and tc:GetAttribute()~=ATTRIBUTE_WIND end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) -end -function c39853199.desop1(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetBattleTarget() - if tc:IsRelateToBattle() then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c39853199.descon2(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM -end -function c39853199.destg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c39853199.desop2(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c39853199.retcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(39853199)~=0 -end -function c39853199.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c39853199.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end +--妖仙獣 閻魔巳裂 +function c39853199.initial_effect(c) + --destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(39853199,0)) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_BATTLE_START) + e1:SetTarget(c39853199.destg1) + e1:SetOperation(c39853199.desop1) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(39853199,1)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCondition(c39853199.descon2) + e2:SetTarget(c39853199.destg2) + e2:SetOperation(c39853199.desop2) + c:RegisterEffect(e2) + --return + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(39853199,2)) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetCode(EVENT_PHASE+PHASE_END) + e3:SetCondition(c39853199.retcon) + e3:SetTarget(c39853199.rettg) + e3:SetOperation(c39853199.retop) + c:RegisterEffect(e3) + if not c39853199.global_check then + c39853199.global_check=true + local ge1=Effect.CreateEffect(c) + ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge1:SetCode(EVENT_SPSUMMON_SUCCESS) + ge1:SetLabel(39853199) + ge1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + ge1:SetOperation(aux.sumreg) + Duel.RegisterEffect(ge1,0) + end +end +function c39853199.destg1(e,tp,eg,ep,ev,re,r,rp,chk) + local tc=e:GetHandler():GetBattleTarget() + if chk==0 then return tc and tc:IsFaceup() and tc:GetAttribute()~=ATTRIBUTE_WIND end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) +end +function c39853199.desop1(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetHandler():GetBattleTarget() + if tc:IsRelateToBattle() then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c39853199.descon2(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM +end +function c39853199.destg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c39853199.desop2(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c39853199.retcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(39853199)~=0 +end +function c39853199.rettg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) +end +function c39853199.retop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + Duel.SendtoHand(c,nil,REASON_EFFECT) + end +end diff --git a/script/c39890958.lua b/script/c39890958.lua new file mode 100644 index 00000000..a3fc7765 --- /dev/null +++ b/script/c39890958.lua @@ -0,0 +1,114 @@ +--強化支援メカ・ヘビーアーマー +function c39890958.initial_effect(c) + --equip + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(39890958,0)) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCategory(CATEGORY_EQUIP) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetTarget(c39890958.eqtg) + e1:SetOperation(c39890958.eqop) + c:RegisterEffect(e1) + --unequip + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(39890958,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_SZONE) + e2:SetTarget(c39890958.sptg) + e2:SetOperation(c39890958.spop) + c:RegisterEffect(e2) + --destroy sub + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_EQUIP) + e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e3:SetCode(EFFECT_DESTROY_SUBSTITUTE) + e3:SetValue(c39890958.repval) + c:RegisterEffect(e3) + --untargetable + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_EQUIP) + e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e4:SetValue(aux.tgoval) + c:RegisterEffect(e4) + --spsummon + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(39890958,2)) + e5:SetCategory(CATEGORY_SPECIAL_SUMMON) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e5:SetCode(EVENT_SUMMON_SUCCESS) + e5:SetProperty(EFFECT_FLAG_CARD_TARGET) + e5:SetTarget(c39890958.sumtg) + e5:SetOperation(c39890958.sumop) + c:RegisterEffect(e5) + --eqlimit + local e6=Effect.CreateEffect(c) + e6:SetType(EFFECT_TYPE_SINGLE) + e6:SetCode(EFFECT_EQUIP_LIMIT) + e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e6:SetValue(c39890958.eqlimit) + c:RegisterEffect(e6) +end +function c39890958.filter(c) + return c:IsFaceup() and c:IsRace(RACE_MACHINE) +end +function c39890958.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local c=e:GetHandler() + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c39890958.filter(chkc) end + if chk==0 then return e:GetHandler():GetFlagEffect(39890958)==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 + and Duel.IsExistingTarget(c39890958.filter,tp,LOCATION_MZONE,0,1,c) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + local g=Duel.SelectTarget(tp,c39890958.filter,tp,LOCATION_MZONE,0,1,1,c) + Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) + c:RegisterFlagEffect(39890958,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) +end +function c39890958.eqop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end + if not tc:IsRelateToEffect(e) or not c39890958.filter(tc) then + Duel.SendtoGrave(c,REASON_EFFECT) + return + end + if not Duel.Equip(tp,c,tc,false) then return end + c:SetStatus(STATUS_UNION,true) +end +function c39890958.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:GetFlagEffect(39890958)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) + c:RegisterFlagEffect(39890958,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) +end +function c39890958.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c39890958.repval(e,re,r,rp) + return bit.band(r,REASON_BATTLE)~=0 or bit.band(r,REASON_EFFECT)~=0 +end +function c39890958.spfilter(c,e,tp) + return c:IsType(TYPE_UNION) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c39890958.sumtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c39890958.spfilter(chkc,e,tp) end + if chk==0 then return Duel.IsExistingTarget(c39890958.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c39890958.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c39890958.sumop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end +function c39890958.eqlimit(e,c) + return c:IsRace(RACE_MACHINE) or e:GetHandler():GetEquipTarget()==c +end diff --git a/script/c39892082.lua b/script/c39892082.lua index afb199fd..a8e252c4 100644 --- a/script/c39892082.lua +++ b/script/c39892082.lua @@ -1,5 +1,6 @@ --バルーン・リザード function c39892082.initial_effect(c) + c:EnableCounterPermit(0x29) --counter local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(39892082,0)) @@ -33,7 +34,7 @@ function c39892082.addct(e,tp,eg,ep,ev,re,r,rp,chk) end function c39892082.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x29+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x29,1) end end function c39892082.damcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c39897277.lua b/script/c39897277.lua index f9dac764..7aa2d903 100644 --- a/script/c39897277.lua +++ b/script/c39897277.lua @@ -18,7 +18,7 @@ function c39897277.initial_effect(c) --def down local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(-200) c:RegisterEffect(e3) --equip limit diff --git a/script/c39900763.lua b/script/c39900763.lua index 5cd6e539..e62f7fe2 100644 --- a/script/c39900763.lua +++ b/script/c39900763.lua @@ -26,13 +26,13 @@ function c39900763.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c39900763.filter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp) local tc=g:GetFirst() - if tc then Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) end + if tc then Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) end end if Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 then Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(1-tp,c39900763.filter,1-tp,LOCATION_REMOVED,0,1,1,nil,e,1-tp) local tc=g:GetFirst() - if tc then Duel.SpecialSummonStep(tc,0,1-tp,1-tp,false,false,POS_FACEDOWN_DEFENCE) end + if tc then Duel.SpecialSummonStep(tc,0,1-tp,1-tp,false,false,POS_FACEDOWN_DEFENSE) end end Duel.SpecialSummonComplete() end diff --git a/script/c39910367.lua b/script/c39910367.lua index 4bea9a52..9a5004a5 100644 --- a/script/c39910367.lua +++ b/script/c39910367.lua @@ -1,6 +1,6 @@ --魔法都市エンディミオン function c39910367.initial_effect(c) - c:EnableCounterPermit(0x3001) + c:EnableCounterPermit(0x1) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -18,7 +18,7 @@ function c39910367.initial_effect(c) local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(39910367,0)) e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_RCOUNTER_REPLACE+0x3001) + e4:SetCode(EFFECT_RCOUNTER_REPLACE+0x1) e4:SetRange(LOCATION_FZONE) e4:SetCountLimit(1) e4:SetCondition(c39910367.rcon) @@ -44,33 +44,33 @@ end function c39910367.op(e,tp,eg,ep,ev,re,r,rp) local c=re:GetHandler() if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and c~=e:GetHandler() then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c39910367.rcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(r,REASON_COST)~=0 and ep==e:GetOwnerPlayer() and e:GetHandler():GetCounter(0x3001)>=ev + return bit.band(r,REASON_COST)~=0 and ep==e:GetOwnerPlayer() and e:GetHandler():GetCounter(0x1)>=ev end function c39910367.rop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():RemoveCounter(ep,0x3001,ev,REASON_EFFECT) + e:GetHandler():RemoveCounter(ep,0x1,ev,REASON_EFFECT) end function c39910367.desreptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return not e:GetHandler():IsReason(REASON_RULE) - and e:GetHandler():GetCounter(0x3001)>0 end + and e:GetHandler():GetCounter(0x1)>0 end return Duel.SelectYesNo(tp,aux.Stringid(39910367,1)) end function c39910367.desrepop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():RemoveCounter(ep,0x3001,1,REASON_EFFECT) + e:GetHandler():RemoveCounter(ep,0x1,1,REASON_EFFECT) end function c39910367.addop2(e,tp,eg,ep,ev,re,r,rp) local count=0 local c=eg:GetFirst() while c~=nil do if not c:IsCode(39910367) and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsReason(REASON_DESTROY) then - count=count+c:GetCounter(0x3001) + count=count+c:GetCounter(0x1) end c=eg:GetNext() end if count>0 then - e:GetHandler():AddCounter(0x3001,count) + e:GetHandler():AddCounter(0x1,count) end end diff --git a/script/c39913299.lua b/script/c39913299.lua new file mode 100644 index 00000000..51049914 --- /dev/null +++ b/script/c39913299.lua @@ -0,0 +1,57 @@ +--真実の名 +function c39913299.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,39913299+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c39913299.target) + e1:SetOperation(c39913299.operation) + c:RegisterEffect(e1) +end +function c39913299.filter(c,e,tp) + return c:IsAttribute(ATTRIBUTE_DEVINE) and (c:IsAbleToHand() or c:IsCanBeSpecialSummoned(e,0,tp,false,false)) +end +function c39913299.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1) + and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_DECK,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,0) + local ac=Duel.AnnounceCard(tp) + Duel.SetTargetParam(ac) + Duel.SetOperationInfo(0,CATEGORY_ANNOUNCE,nil,0,tp,ANNOUNCE_CARD) +end +function c39913299.operation(e,tp,eg,ep,ev,re,r,rp) + Duel.ConfirmDecktop(tp,1) + local g=Duel.GetDecktopGroup(tp,1) + local tc=g:GetFirst() + local ac=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) + if tc:IsCode(ac) and tc:IsAbleToHand() then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + local g=Duel.GetMatchingGroup(c39913299.filter,tp,LOCATION_DECK,0,nil,e,tp) + if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(39913299,0)) then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(39913299,1)) + local sg=g:Select(tp,1,1,nil) + local sc=sg:GetFirst() + local b1=sc:IsAbleToHand() + local b2=sc:IsCanBeSpecialSummoned(e,0,tp,false,false) + local op=0 + if b1 and b2 then op=Duel.SelectOption(tp,aux.Stringid(39913299,2),aux.Stringid(39913299,3)) + elseif b1 then op=Duel.SelectOption(tp,aux.Stringid(39913299,2)) + else op=Duel.SelectOption(tp,aux.Stringid(39913299,3))+1 end + if op==0 then + Duel.SendtoHand(sc,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,sc) + else + Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP) + end + else + Duel.DisableShuffleCheck() + end + Duel.ShuffleHand(tp) + else + Duel.DisableShuffleCheck() + Duel.SendtoGrave(tc,REASON_EFFECT+REASON_REVEAL) + end +end diff --git a/script/c39956951.lua b/script/c39956951.lua index fd14f529..5c90dc80 100644 --- a/script/c39956951.lua +++ b/script/c39956951.lua @@ -14,11 +14,11 @@ function c39956951.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>=5 end function c39956951.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) end function c39956951.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.Destroy(sg,REASON_EFFECT) end diff --git a/script/c39964797.lua b/script/c39964797.lua new file mode 100644 index 00000000..98f7419b --- /dev/null +++ b/script/c39964797.lua @@ -0,0 +1,69 @@ +--水晶機巧－クオンダム +function c39964797.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --synchro summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(39964797,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMING_BATTLE_START+TIMING_BATTLE_END) + e1:SetRange(LOCATION_MZONE) + e1:SetCondition(c39964797.sccon) + e1:SetTarget(c39964797.sctg) + e1:SetOperation(c39964797.scop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(39964797,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_DESTROYED) + e2:SetCondition(c39964797.spcon) + e2:SetTarget(c39964797.sptg) + e2:SetOperation(c39964797.spop) + c:RegisterEffect(e2) +end +function c39964797.sccon(e,tp,eg,ep,ev,re,r,rp) + local ph=Duel.GetCurrentPhase() + return not e:GetHandler():IsStatus(STATUS_CHAINING) and Duel.GetTurnPlayer()~=tp + and (ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2) +end +function c39964797.sctg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,e:GetHandler()) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c39964797.scop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:GetControler()~=tp or not c:IsRelateToEffect(e) then return end + local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,c) + if g:GetCount()>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg=g:Select(tp,1,1,nil) + Duel.SynchroSummon(tp,sg:GetFirst(),c) + end +end +function c39964797.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_MZONE) and c:GetSummonType()==SUMMON_TYPE_SYNCHRO and bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 +end +function c39964797.spfilter(c,e,tp) + return c:IsSetCard(0xea) and not c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c39964797.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c39964797.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c39964797.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c39964797.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c39964797.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c39978267.lua b/script/c39978267.lua index dd82fb68..30869b1a 100644 --- a/script/c39978267.lua +++ b/script/c39978267.lua @@ -18,7 +18,7 @@ function c39978267.initial_effect(c) c:RegisterEffect(e3) end function c39978267.desfilter(c) - return c:IsType(TYPE_EQUIP) and c:IsDestructable() + return c:IsType(TYPE_EQUIP) end function c39978267.eqfilter(c,ec) return c:IsType(TYPE_EQUIP) and c:CheckEquipTarget(ec) diff --git a/script/c39987164.lua b/script/c39987164.lua old mode 100755 new mode 100644 diff --git a/script/c39996157.lua b/script/c39996157.lua new file mode 100644 index 00000000..7d6f60b5 --- /dev/null +++ b/script/c39996157.lua @@ -0,0 +1,85 @@ +--機械天使の儀式 +function c39996157.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c39996157.target) + e1:SetOperation(c39996157.activate) + c:RegisterEffect(e1) + --destroy replace + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EFFECT_DESTROY_REPLACE) + e2:SetRange(LOCATION_GRAVE) + e2:SetTarget(c39996157.reptg) + e2:SetValue(c39996157.repval) + e2:SetOperation(c39996157.repop) + c:RegisterEffect(e2) +end +function c39996157.filter(c,e,tp,m,ft) + if not c:IsSetCard(0x2093) or bit.band(c:GetType(),0x81)~=0x81 + or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end + local mg=m:Filter(Card.IsCanBeRitualMaterial,c,c) + if ft>0 then + return mg:CheckWithSumGreater(Card.GetRitualLevel,c:GetLevel(),c) + else + return mg:IsExists(c39996157.filterF,1,nil,tp,mg,c) + end +end +function c39996157.filterF(c,tp,mg,rc) + if c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) then + Duel.SetSelectedCard(c) + return mg:CheckWithSumGreater(Card.GetRitualLevel,rc:GetLevel(),rc) + else return false end +end +function c39996157.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local mg=Duel.GetRitualMaterial(tp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + return ft>-1 and Duel.IsExistingMatchingCard(c39996157.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg,ft) + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c39996157.activate(e,tp,eg,ep,ev,re,r,rp) + local mg=Duel.GetRitualMaterial(tp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=Duel.SelectMatchingCard(tp,c39996157.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg,ft) + local tc=tg:GetFirst() + if tc then + mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc) + local mat=nil + if ft>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,tc:GetLevel(),tc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:FilterSelect(tp,c39996157.filterF,1,1,nil,tp,mg,tc) + Duel.SetSelectedCard(mat) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local mat2=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,tc:GetLevel(),tc) + mat:Merge(mat2) + end + tc:SetMaterial(mat) + Duel.ReleaseRitualMaterial(mat) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP) + tc:CompleteProcedure() + end +end +function c39996157.repfilter(c,tp) + return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsAttribute(ATTRIBUTE_LIGHT) + and c:IsReason(REASON_EFFECT+REASON_BATTLE) +end +function c39996157.reptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(c39996157.repfilter,1,nil,tp) end + return Duel.SelectYesNo(tp,aux.Stringid(39996157,0)) +end +function c39996157.repval(e,c) + return c39996157.repfilter(c,e:GetHandlerPlayer()) +end +function c39996157.repop(e,tp,eg,ep,ev,re,r,rp) + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT) +end diff --git a/script/c40005099.lua b/script/c40005099.lua index 76840961..faa2c1cc 100644 --- a/script/c40005099.lua +++ b/script/c40005099.lua @@ -41,7 +41,7 @@ function c40005099.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsAbleToGraveAsCost,1,1,REASON_COST) end function c40005099.filter1(c,e,tp) - return c:IsRace(RACE_ZOMBIE) and c:GetDefence()==0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsRace(RACE_ZOMBIE) and c:GetDefense()==0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c40005099.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c40005099.filter1(chkc,e,tp) end @@ -59,7 +59,7 @@ function c40005099.operation(e,tp,eg,ep,ev,re,r,rp) end end function c40005099.filter2(c) - return c:IsFaceup() and c:IsRace(RACE_ZOMBIE) and c:GetDefence()==0 + return c:IsFaceup() and c:IsRace(RACE_ZOMBIE) and c:GetDefense()==0 end function c40005099.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c40005099.filter2(chkc) end diff --git a/script/c40012727.lua b/script/c40012727.lua index 704868b3..e451fcbf 100644 --- a/script/c40012727.lua +++ b/script/c40012727.lua @@ -18,7 +18,7 @@ function c40012727.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c40012727.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c40012727.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c40012727.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c40012727.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c40028305.lua b/script/c40028305.lua old mode 100755 new mode 100644 index 47ad1b6b..847ceac4 --- a/script/c40028305.lua +++ b/script/c40028305.lua @@ -45,7 +45,7 @@ function c40028305.eqop(e,tp,eg,ep,ev,re,r,rp) e2:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_EQUIP) @@ -74,8 +74,8 @@ end function c40028305.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if not c:IsRelateToEffect(e) then return end - if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then - elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then - Duel.SendtoGrave(c,REASON_EFFECT) + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c40044918.lua b/script/c40044918.lua index 05fc1650..403105d0 100644 --- a/script/c40044918.lua +++ b/script/c40044918.lua @@ -3,7 +3,6 @@ function c40044918.initial_effect(c) --effect local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(40044918,0)) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) e1:SetCode(EVENT_SUMMON_SUCCESS) @@ -21,7 +20,7 @@ function c40044918.schfilter(c) return c:IsSetCard(0x8) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c40044918.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c40044918.tg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() @@ -45,8 +44,12 @@ function c40044918.tg(e,tp,eg,ep,ev,re,r,rp,chk) e:SetLabel(sel) if sel==1 then local g=Duel.GetMatchingGroup(c40044918.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + e:SetCategory(CATEGORY_DESTROY) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - else Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) end + else + e:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) + end end function c40044918.op(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c40061558.lua b/script/c40061558.lua old mode 100755 new mode 100644 index c9ec9020..69b94537 --- a/script/c40061558.lua +++ b/script/c40061558.lua @@ -14,6 +14,7 @@ function c40061558.initial_effect(c) c:RegisterEffect(e2) --summon with 3 tribute local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(40061558,0)) e3:SetType(EFFECT_TYPE_SINGLE) e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) e3:SetCode(EFFECT_LIMIT_SUMMON_PROC) @@ -72,9 +73,7 @@ function c40061558.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c40061558.ctop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c40089744.lua b/script/c40089744.lua old mode 100755 new mode 100644 index e526ea37..1c740f2d --- a/script/c40089744.lua +++ b/script/c40089744.lua @@ -1,7 +1,7 @@ --混沌の場 function c40089744.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,6) + c:EnableCounterPermit(0x1) + c:SetCounterLimit(0x1,6) --Activate local e1=Effect.CreateEffect(c) e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) @@ -30,7 +30,7 @@ function c40089744.initial_effect(c) c:RegisterEffect(e3) end function c40089744.filter(c) - return ((c:IsSetCard(0xcf) and c:IsType(TYPE_RITUAL)) or c:IsSetCard(0xbd)) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() + return ((c:IsSetCard(0x10cf) and c:IsType(TYPE_RITUAL)) or c:IsSetCard(0xbd)) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c40089744.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c40089744.filter,tp,LOCATION_DECK,0,1,nil) end @@ -51,12 +51,12 @@ end function c40089744.acop(e,tp,eg,ep,ev,re,r,rp) local ct=eg:FilterCount(c40089744.cfilter,nil) if ct>0 then - e:GetHandler():AddCounter(0x3001,ct) + e:GetHandler():AddCounter(0x1,ct,true) end end function c40089744.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x3001,3,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x3001,3,REASON_COST) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,3,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1,3,REASON_COST) end function c40089744.thfilter(c) return c:GetType()==TYPE_SPELL+TYPE_RITUAL and c:IsAbleToHand() diff --git a/script/c40138768.lua b/script/c40138768.lua deleted file mode 100644 index 8181e392..00000000 --- a/script/c40138768.lua +++ /dev/null @@ -1,30 +0,0 @@ ---Chasm of Spikes -function c40138768.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c40138768.condition) - e1:SetTarget(c40138768.target) - e1:SetOperation(c40138768.activate) - c:RegisterEffect(e1) -end -function c40138768.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c40138768.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsDestructable() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) -end -function c40138768.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsAttackable() and not tc:IsStatus(STATUS_ATTACK_CANCELED) then - Duel.Destroy(tc,REASON_EFFECT) - Duel.Damage(1-tp,tc:GetAttack()/4,REASON_EFFECT) - end -end diff --git a/script/c40143123.lua b/script/c40143123.lua index bd89ef5d..611816c2 100644 --- a/script/c40143123.lua +++ b/script/c40143123.lua @@ -23,6 +23,6 @@ function c40143123.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c40143123.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_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c40159926.lua b/script/c40159926.lua old mode 100755 new mode 100644 index 1f78853b..fd7c2a1d --- a/script/c40159926.lua +++ b/script/c40159926.lua @@ -36,7 +36,8 @@ function c40159926.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c40159926.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) @@ -44,6 +45,9 @@ function c40159926.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x47e0000) e1:SetValue(LOCATION_REMOVED) c:RegisterEffect(e1,true) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c40159926.lvfilter(c) diff --git a/script/c40160226.lua b/script/c40160226.lua index 0a41b54f..6751089f 100644 --- a/script/c40160226.lua +++ b/script/c40160226.lua @@ -35,7 +35,7 @@ function c40160226.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c40160226.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c40160226.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c40160226.filter(chkc) end diff --git a/script/c40172183.lua b/script/c40172183.lua old mode 100755 new mode 100644 diff --git a/script/c40189917.lua b/script/c40189917.lua index 31a9a726..14c93b5b 100644 --- a/script/c40189917.lua +++ b/script/c40189917.lua @@ -45,7 +45,7 @@ function c40189917.sumop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL) end function c40189917.cfilter(c) - return c:GetDefence()==200 and c:IsAbleToRemoveAsCost() + return c:GetDefense()==200 and c:IsAbleToRemoveAsCost() end function c40189917.damcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c40189917.cfilter,tp,LOCATION_GRAVE,0,1,nil) end diff --git a/script/c40217358.lua b/script/c40217358.lua old mode 100755 new mode 100644 diff --git a/script/c40225398.lua b/script/c40225398.lua index 3b1fcad9..f43b08a1 100644 --- a/script/c40225398.lua +++ b/script/c40225398.lua @@ -14,7 +14,7 @@ end function c40225398.caop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local bc=c:GetBattleTarget() - if Duel.GetAttacker()==c and bc and bit.band(bc:GetBattlePosition(),POS_DEFENCE)~=0 and c:IsRelateToBattle() and c:IsChainAttackable() then + if Duel.GetAttacker()==c and bc and bit.band(bc:GetBattlePosition(),POS_DEFENSE)~=0 and c:IsRelateToBattle() and c:IsChainAttackable() then Duel.ChainAttack() end end diff --git a/script/c4022819.lua b/script/c4022819.lua index a2c9ac97..86bdb4a2 100644 --- a/script/c4022819.lua +++ b/script/c4022819.lua @@ -74,7 +74,6 @@ function c4022819.lvop(e,tp,eg,ep,ev,re,r,rp) end function c4022819.spfilter(c,e,tp) return c:IsType(TYPE_NORMAL) and c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c4022819.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -85,6 +84,7 @@ function c4022819.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c4022819.spfilter,tp,0x13,0,1,1,nil,e,tp) local tc=g:GetFirst() + if tc and tc:IsHasEffect(EFFECT_NECRO_VALLEY) then return end if tc and Duel.SpecialSummonStep(g:GetFirst(),0,tp,tp,false,false,POS_FACEUP) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) @@ -93,16 +93,8 @@ function c4022819.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) tc:RegisterEffect(e2) Duel.SpecialSummonComplete() - elseif Duel.IsPlayerCanSpecialSummon(tp) then - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_DECK,0) - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ConfirmCards(tp,cg2) - Duel.ShuffleHand(tp) - Duel.ShuffleDeck(tp) end end diff --git a/script/c40230018.lua b/script/c40230018.lua old mode 100755 new mode 100644 diff --git a/script/c40240595.lua b/script/c40240595.lua index cc04f31c..116c13c8 100644 --- a/script/c40240595.lua +++ b/script/c40240595.lua @@ -34,6 +34,7 @@ function c40240595.eqop(e,tp,eg,ep,ev,re,r,rp) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_EQUIP_LIMIT) e1:SetValue(c40240595.eqlimit) + e1:SetLabelObject(tc) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) @@ -48,13 +49,13 @@ function c40240595.eqop(e,tp,eg,ep,ev,re,r,rp) --equip effect local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_SET_ATTACK) + e3:SetCode(EFFECT_SET_BASE_ATTACK) e3:SetValue(0) e3:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e3) local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_SET_DEFENCE) + e4:SetCode(EFFECT_SET_BASE_DEFENSE) e4:SetValue(2000) e4:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e4) @@ -70,5 +71,5 @@ function c40240595.checkop(e,tp,eg,ep,ev,re,r,rp) c:SetTurnCounter(ct) end function c40240595.eqlimit(e,c) - return c:IsCode(58192742) + return c==e:GetLabelObject() end diff --git a/script/c40318957.lua b/script/c40318957.lua index 7fc453c4..2102b107 100644 --- a/script/c40318957.lua +++ b/script/c40318957.lua @@ -7,9 +7,8 @@ function c40318957.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_PZONE) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetTargetRange(1,0) - e2:SetCondition(aux.nfbdncon) e2:SetTarget(c40318957.splimit) c:RegisterEffect(e2) --search diff --git a/script/c4031928.lua b/script/c4031928.lua index 625cdb1d..2ea5a802 100644 --- a/script/c4031928.lua +++ b/script/c4031928.lua @@ -19,9 +19,7 @@ function c4031928.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c4031928.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c40343749.lua b/script/c40343749.lua index be159fca..5b2087e4 100644 --- a/script/c40343749.lua +++ b/script/c40343749.lua @@ -25,11 +25,13 @@ function c40343749.filter(c,e,tp) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp) end function c40343749.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c40343749.filter,tp,LOCATION_DECK+LOCATION_HAND,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK+LOCATION_HAND) end function c40343749.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE) local ft2=Duel.GetLocationCount(1-tp,LOCATION_MZONE) if ft1<=0 or ft2<=0 then return end diff --git a/script/c40350910.lua b/script/c40350910.lua index ffc29c3c..bed527f1 100644 --- a/script/c40350910.lua +++ b/script/c40350910.lua @@ -11,10 +11,11 @@ function c40350910.activate(e,tp,eg,ep,ev,re,r,rp) --indestructable local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_INDESTRUCTABLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) e1:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE) e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) e1:SetTarget(c40350910.infilter) + e1:SetValue(1) e1:SetReset(RESET_PHASE+PHASE_END,2) Duel.RegisterEffect(e1,tp) end diff --git a/script/c40392714.lua b/script/c40392714.lua new file mode 100644 index 00000000..0bf46508 --- /dev/null +++ b/script/c40392714.lua @@ -0,0 +1,104 @@ +--方界帝ゲイラ・ガイル +function c40392714.initial_effect(c) + c:EnableReviveLimit() + --spsummon rule + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_HAND) + e2:SetCondition(c40392714.spcon) + e2:SetOperation(c40392714.spop) + c:RegisterEffect(e2) + --Damage + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DAMAGE) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetCondition(c40392714.damcon) + e3:SetTarget(c40392714.damtg) + e3:SetOperation(c40392714.damop) + c:RegisterEffect(e3) + --special summon + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_SEARCH) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_DAMAGE_STEP_END) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetTarget(c40392714.sptg2) + e4:SetOperation(c40392714.spop2) + c:RegisterEffect(e4) +end +function c40392714.filter(c) + return c:IsFaceup() and c:IsSetCard(0xe3) and c:IsAbleToGraveAsCost() +end +function c40392714.spcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c40392714.filter,c:GetControler(),LOCATION_MZONE,0,1,nil) +end +function c40392714.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c40392714.filter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SendtoGrave(g,REASON_COST) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(800) + e1:SetReset(RESET_EVENT+0xff0000) + c:RegisterEffect(e1) +end +function c40392714.damcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_HAND) +end +function c40392714.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(800) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) +end +function c40392714.damop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) +end +function c40392714.spfilter(c,e,tp) + return c:IsCode(15610297) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c40392714.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local c=e:GetHandler() + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c40392714.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 and c:IsRelateToBattle() + and Duel.IsExistingTarget(c40392714.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + local ft=2 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + ft=math.min(ft,Duel.GetLocationCount(tp,LOCATION_MZONE)+1) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c40392714.spfilter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) +end +function c40392714.thfilter(c) + return c:IsCode(77387463) and c:IsAbleToHand() +end +function c40392714.spop2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or Duel.SendtoGrave(c,REASON_EFFECT)==0 then return end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + local sg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if sg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if sg:GetCount()>ft then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + sg=sg:Select(tp,ft,ft,nil) + end + if Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)~=0 then + local g=Duel.GetMatchingGroup(c40392714.thfilter,tp,LOCATION_DECK,0,nil) + if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(40392714,0)) then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + g=g:Select(tp,1,1,nil) + Duel.SendtoHand(g,tp,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end + end +end diff --git a/script/c40418351.lua b/script/c40418351.lua old mode 100755 new mode 100644 index 2b608ad0..c9194f4c --- a/script/c40418351.lua +++ b/script/c40418351.lua @@ -30,7 +30,7 @@ function c40418351.initial_effect(c) c:RegisterEffect(e3) end function c40418351.filter(c) - return c:IsRace(RACE_DRAGON) + return c:IsRace(RACE_DRAGON) and not c:IsForbidden() end function c40418351.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c40418351.filter(chkc) end diff --git a/script/c4041838.lua b/script/c4041838.lua index d7047d3f..064f29cb 100644 --- a/script/c4041838.lua +++ b/script/c4041838.lua @@ -13,12 +13,12 @@ end function c4041838.targ(e,tp,eg,ep,ev,re,r,rp,chk) local d=Duel.GetAttackTarget() if chk ==0 then return Duel.GetAttacker()==e:GetHandler() - and d~=nil and d:IsFaceup() and d:IsDefencePos() and d:IsDestructable() end + and d~=nil and d:IsFaceup() and d:IsDefensePos() and d:IsRelateToBattle() end Duel.SetOperationInfo(0,CATEGORY_DESTROY,d,1,0,0) end function c4041838.op(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - if d~=nil and d:IsRelateToBattle() and d:IsDefencePos() then + if d~=nil and d:IsRelateToBattle() and d:IsDefensePos() then Duel.Destroy(d,REASON_EFFECT) end end diff --git a/script/c40450317.lua b/script/c40450317.lua index 1659b501..ee51c049 100644 --- a/script/c40450317.lua +++ b/script/c40450317.lua @@ -33,7 +33,8 @@ function c40450317.filter2(c,e,tp,tc) end function c40450317.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c40450317.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c40450317.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) Duel.SelectTarget(tp,c40450317.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) @@ -43,7 +44,8 @@ function c40450317.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) local g=Duel.GetMatchingGroup(c40450317.filter2,tp,LOCATION_DECK,0,nil,e,tp,tc) - if ft>1 and g:GetClassCount(Card.GetCode)>1 and tc:IsRelateToEffect(e) and tc:IsFaceup() then + if not Duel.IsPlayerAffectedByEffect(tp,59822133) + and ft>1 and g:GetClassCount(Card.GetCode)>1 and tc:IsRelateToEffect(e) and tc:IsFaceup() then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g1=g:Select(tp,1,1,nil) g:Remove(Card.IsCode,nil,g1:GetFirst():GetCode()) diff --git a/script/c40473581.lua b/script/c40473581.lua index 167163f1..d19933f0 100644 --- a/script/c40473581.lua +++ b/script/c40473581.lua @@ -1,5 +1,7 @@ --雷帝神 function c40473581.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c40473581.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c40473581.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --half damage local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) @@ -33,39 +25,3 @@ end function c40473581.dop(e,tp,eg,ep,ev,re,r,rp) Duel.ChangeBattleDamage(ep,ev/2) end -function c40473581.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(40473581,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c40473581.retcon) - e1:SetTarget(c40473581.rettg) - e1:SetOperation(c40473581.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c40473581.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c40473581.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c40473581.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c40502912.lua b/script/c40502912.lua index 6202eaf4..b3a96e0a 100644 --- a/script/c40502912.lua +++ b/script/c40502912.lua @@ -8,7 +8,7 @@ function c40502912.initial_effect(c) e1:SetTargetRange(LOCATION_MZONE,0) e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x9b)) e1:SetCondition(c40502912.tgcon) - e1:SetValue(aux.tgval) + e1:SetValue(1) c:RegisterEffect(e1) local e2=e1:Clone() e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) diff --git a/script/c40591390.lua b/script/c40591390.lua old mode 100755 new mode 100644 index 153e0931..f9c8d576 --- a/script/c40591390.lua +++ b/script/c40591390.lua @@ -23,7 +23,7 @@ function c40591390.initial_effect(c) e3:SetValue(c40591390.val) c:RegisterEffect(e3) local e4=e3:Clone() - e4:SetCode(EFFECT_SET_DEFENCE) + e4:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e4) end function c40591390.spcon(e,tp,eg,ep,ev,re,r,rp) @@ -46,6 +46,7 @@ function c40591390.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end if ft>2 then ft=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end g=Duel.GetMatchingGroup(c40591390.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp) if g:GetCount()~=0 and Duel.SelectYesNo(tp,aux.Stringid(40591390,1)) then Duel.BreakEffect() diff --git a/script/c40605147.lua b/script/c40605147.lua old mode 100755 new mode 100644 diff --git a/script/c40607210.lua b/script/c40607210.lua old mode 100755 new mode 100644 index 2548e467..3be1011f --- a/script/c40607210.lua +++ b/script/c40607210.lua @@ -1,73 +1,69 @@ ---ヴァンパイア・グレイス -function c40607210.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(40607210,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetRange(LOCATION_GRAVE) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCountLimit(1,40607210) - e1:SetCondition(c40607210.condition) - e1:SetCost(c40607210.cost) - e1:SetTarget(c40607210.target) - e1:SetOperation(c40607210.operation) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(40607210,1)) - e2:SetCategory(CATEGORY_TOGRAVE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c40607210.tgtg) - e2:SetOperation(c40607210.tgop) - c:RegisterEffect(e2) -end -function c40607210.cfilter(c,tp) - return c:IsLevelAbove(5) and c:IsRace(RACE_ZOMBIE) and c:IsControler(tp) -end -function c40607210.condition(e,tp,eg,ep,ev,re,r,rp) - local rc=re:GetHandler() - return rc and rc:IsRace(RACE_ZOMBIE) and eg:IsExists(c40607210.cfilter,1,nil,tp) - and (re:GetCode()~=EFFECT_SPSUMMON_PROC or not rc:IsHasEffect(EFFECT_REVIVE_LIMIT)) -end -function c40607210.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,2000) end - Duel.PayLPCost(tp,2000) -end -function c40607210.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c40607210.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end -function c40607210.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,555) - local op=Duel.SelectOption(tp,70,71,72) - e:SetLabel(op) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_DECK) -end -function c40607210.tgfilter(c,ty) - return c:IsType(ty) and c:IsAbleToGrave() -end -function c40607210.tgop(e,tp,eg,ep,ev,re,r,rp) - local g=nil - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE) - if e:GetLabel()==0 then g=Duel.SelectMatchingCard(1-tp,c40607210.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil,TYPE_MONSTER) - elseif e:GetLabel()==1 then g=Duel.SelectMatchingCard(1-tp,c40607210.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil,TYPE_SPELL) - else g=Duel.SelectMatchingCard(1-tp,c40607210.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil,TYPE_TRAP) end - if g:GetCount()~=0 then - Duel.SendtoGrave(g,REASON_EFFECT) - else - local cg=Duel.GetFieldGroup(tp,0,LOCATION_DECK) - Duel.ConfirmCards(tp,cg) - Duel.ShuffleDeck(1-tp) - end -end +--ヴァンパイア・グレイス +function c40607210.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(40607210,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetRange(LOCATION_GRAVE) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCountLimit(1,40607210) + e1:SetCondition(c40607210.condition) + e1:SetCost(c40607210.cost) + e1:SetTarget(c40607210.target) + e1:SetOperation(c40607210.operation) + c:RegisterEffect(e1) + -- + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(40607210,1)) + e2:SetCategory(CATEGORY_TOGRAVE) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetTarget(c40607210.tgtg) + e2:SetOperation(c40607210.tgop) + c:RegisterEffect(e2) +end +function c40607210.cfilter(c,tp) + return c:IsLevelAbove(5) and c:IsRace(RACE_ZOMBIE) and c:IsControler(tp) +end +function c40607210.condition(e,tp,eg,ep,ev,re,r,rp) + local rc=re:GetHandler() + return rc and rc:IsRace(RACE_ZOMBIE) and eg:IsExists(c40607210.cfilter,1,nil,tp) + and (re:GetCode()~=EFFECT_SPSUMMON_PROC or not rc:IsHasEffect(EFFECT_REVIVE_LIMIT)) +end +function c40607210.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,2000) end + Duel.PayLPCost(tp,2000) +end +function c40607210.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c40607210.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + end +end +function c40607210.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,555) + local op=Duel.SelectOption(tp,70,71,72) + e:SetLabel(op) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_DECK) +end +function c40607210.tgfilter(c,ty) + return c:IsType(ty) and c:IsAbleToGrave() +end +function c40607210.tgop(e,tp,eg,ep,ev,re,r,rp) + local g=nil + Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE) + if e:GetLabel()==0 then g=Duel.SelectMatchingCard(1-tp,c40607210.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil,TYPE_MONSTER) + elseif e:GetLabel()==1 then g=Duel.SelectMatchingCard(1-tp,c40607210.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil,TYPE_SPELL) + else g=Duel.SelectMatchingCard(1-tp,c40607210.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil,TYPE_TRAP) end + if g:GetCount()~=0 then + Duel.SendtoGrave(g,REASON_EFFECT) + end +end diff --git a/script/c40619741.lua b/script/c40619741.lua index 260536ca..a12e4b18 100644 --- a/script/c40619741.lua +++ b/script/c40619741.lua @@ -21,5 +21,5 @@ end function c40619741.posop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local sg=g:Filter(Card.IsRelateToEffect,nil,e) - Duel.ChangePosition(sg,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(sg,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end diff --git a/script/c40633297.lua b/script/c40633297.lua old mode 100755 new mode 100644 diff --git a/script/c40640057.lua b/script/c40640057.lua index 43bf334d..6443e5ca 100644 --- a/script/c40640057.lua +++ b/script/c40640057.lua @@ -3,7 +3,7 @@ function c40640057.initial_effect(c) --no damage local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(40640057,0)) - e1:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetRange(LOCATION_HAND) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetCondition(c40640057.con) diff --git a/script/c40640058.lua b/script/c40640058.lua deleted file mode 100644 index bf1f33fe..00000000 --- a/script/c40640058.lua +++ /dev/null @@ -1,23 +0,0 @@ ---クリボー -function c40640058.initial_effect(c) - --no damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(40640058,0)) - e1:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_HAND) - e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e1:SetCondition(c40640058.con) - e1:SetCost(c40640058.cost) - e1:SetOperation(c40640058.op) - c:RegisterEffect(e1) -end -function c40640058.con(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and ep==tp -end -function c40640058.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDiscardable() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) -end -function c40640058.op(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,0) -end diff --git a/script/c40640059.lua b/script/c40640059.lua deleted file mode 100644 index 93a4834a..00000000 --- a/script/c40640059.lua +++ /dev/null @@ -1,23 +0,0 @@ ---クリボー -function c40640059.initial_effect(c) - --no damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(40640059,0)) - e1:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_HAND) - e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e1:SetCondition(c40640059.con) - e1:SetCost(c40640059.cost) - e1:SetOperation(c40640059.op) - c:RegisterEffect(e1) -end -function c40640059.con(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and ep==tp -end -function c40640059.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDiscardable() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) -end -function c40640059.op(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,0) -end diff --git a/script/c40659562.lua b/script/c40659562.lua index 7a947004..8c271857 100644 --- a/script/c40659562.lua +++ b/script/c40659562.lua @@ -28,7 +28,7 @@ end function c40659562.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c40659562.thtg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c40695128.lua b/script/c40695128.lua index feacf517..93672db9 100644 --- a/script/c40695128.lua +++ b/script/c40695128.lua @@ -1,5 +1,7 @@ --磨破羅魏 function c40695128.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c40695128.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c40695128.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --summon success local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(40695128,1)) @@ -28,42 +20,6 @@ function c40695128.initial_effect(c) e5:SetCode(EVENT_FLIP) c:RegisterEffect(e5) end -function c40695128.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(40695128,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c40695128.retcon) - e1:SetTarget(c40695128.rettg) - e1:SetOperation(c40695128.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c40695128.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c40695128.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c40695128.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end function c40695128.regop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetFlagEffect(tp,40695128)~=0 then return end local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c40703222.lua b/script/c40703222.lua index a6383634..0346dd61 100644 --- a/script/c40703222.lua +++ b/script/c40703222.lua @@ -22,15 +22,17 @@ function c40703222.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 and Duel.IsPlayerCanSpecialSummonMonster(tp,40703223,0,0x4011,300,200,1,RACE_FIEND,ATTRIBUTE_DARK) end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,ft,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,ft,0,0) end function c40703222.activate(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,40703223,0,0x4011,300,200,1,RACE_FIEND,ATTRIBUTE_DARK) then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end for i=1,ft do local token=Duel.CreateToken(tp,40703223) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UNRELEASABLE_SUM) diff --git a/script/c40732515.lua b/script/c40732515.lua index a7219b50..ee90f9c5 100644 --- a/script/c40732515.lua +++ b/script/c40732515.lua @@ -38,12 +38,12 @@ end function c40732515.spcon(e,c) if c==nil then return true end local fd=Duel.GetFieldCard(c:GetControler(),LOCATION_SZONE,5) - return fd and fd:IsCode(39910367) and fd:IsCanRemoveCounter(c:GetControler(),0x3001,6,REASON_COST) + return fd and fd:IsCode(39910367) and fd:IsCanRemoveCounter(c:GetControler(),0x1,6,REASON_COST) and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 end function c40732515.spop(e,tp,eg,ep,ev,re,r,rp,c) local fd=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - fd:RemoveCounter(tp,0x3001,6,REASON_RULE) + fd:RemoveCounter(tp,0x1,6,REASON_RULE) end function c40732515.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 @@ -73,10 +73,10 @@ function c40732515.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,c40732515.cfilter,1,1,REASON_COST+REASON_DISCARD) end function c40732515.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c40732515.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c40736921.lua b/script/c40736921.lua index 4705d64d..09f4bef4 100644 --- a/script/c40736921.lua +++ b/script/c40736921.lua @@ -14,7 +14,9 @@ function c40736921.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.IsExistingTarget(Card.IsFacedown,tp,LOCATION_SZONE,LOCATION_SZONE,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(40736921,0)) local g=Duel.SelectTarget(tp,Card.IsFacedown,tp,LOCATION_SZONE,LOCATION_SZONE,1,1,e:GetHandler()) - Duel.SetChainLimit(aux.FALSE) + if e:IsHasType(EFFECT_TYPE_ACTIVATE) then + Duel.SetChainLimit(aux.FALSE) + end end function c40736921.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c40737112.lua b/script/c40737112.lua index ac658e18..25db0fb9 100644 --- a/script/c40737112.lua +++ b/script/c40737112.lua @@ -1,88 +1,87 @@ ---混沌の黒魔術師 -function c40737112.initial_effect(c) - --summon success - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(40737112,0)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,40737112) - e1:SetCost(c40737112.thcost) - e1:SetTarget(c40737112.thtg) - e1:SetOperation(c40737112.thop) - c:RegisterEffect(e1) - --remove - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(40737112,1)) - e2:SetCategory(CATEGORY_REMOVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_BATTLED) - e2:SetCondition(c40737112.rmcon) - e2:SetTarget(c40737112.rmtg) - e2:SetOperation(c40737112.rmop) - c:RegisterEffect(e2) - --redirect - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCondition(c40737112.recon) - e3:SetValue(LOCATION_REMOVED) - c:RegisterEffect(e3) - if not c40737112.global_check then - c40737112.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_SUMMON_SUCCESS) - ge1:SetLabel(40737112) - ge1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - ge1:SetOperation(aux.sumreg) - Duel.RegisterEffect(ge1,0) - local ge2=ge1:Clone() - ge2:SetCode(EVENT_SPSUMMON_SUCCESS) - ge2:SetLabel(40737112) - Duel.RegisterEffect(ge2,0) - end -end -function c40737112.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(40737112)~=0 end - e:GetHandler():ResetFlagEffect(40737112) -end -function c40737112.thfilter(c) - return c:IsType(TYPE_SPELL) and c:IsAbleToHand() -end -function c40737112.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c40737112.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c40737112.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c40737112.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c40737112.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end -function c40737112.rmcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - e:SetLabelObject(bc) - return bc and bc:IsStatus(STATUS_BATTLE_DESTROYED) and c:IsStatus(STATUS_OPPO_BATTLE) -end -function c40737112.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,e:GetLabelObject(),1,0,0) -end -function c40737112.rmop(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetLabelObject() - if bc:IsRelateToBattle() and bc:IsAbleToRemove() then - Duel.Remove(bc,POS_FACEUP,REASON_EFFECT) - end -end -function c40737112.recon(e) - return e:GetHandler():IsFaceup() -end +--混沌の黒魔術師 +function c40737112.initial_effect(c) + --summon success + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(40737112,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_PHASE+PHASE_END) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,40737112) + e1:SetCost(c40737112.thcost) + e1:SetTarget(c40737112.thtg) + e1:SetOperation(c40737112.thop) + c:RegisterEffect(e1) + --remove + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(40737112,1)) + e2:SetCategory(CATEGORY_REMOVE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_BATTLED) + e2:SetCondition(c40737112.rmcon) + e2:SetTarget(c40737112.rmtg) + e2:SetOperation(c40737112.rmop) + c:RegisterEffect(e2) + --redirect + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) + e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e3:SetCondition(c40737112.recon) + e3:SetValue(LOCATION_REMOVED) + c:RegisterEffect(e3) + if not c40737112.global_check then + c40737112.global_check=true + local ge1=Effect.CreateEffect(c) + ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge1:SetCode(EVENT_SUMMON_SUCCESS) + ge1:SetLabel(40737112) + ge1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + ge1:SetOperation(aux.sumreg) + Duel.RegisterEffect(ge1,0) + local ge2=ge1:Clone() + ge2:SetCode(EVENT_SPSUMMON_SUCCESS) + ge2:SetLabel(40737112) + Duel.RegisterEffect(ge2,0) + end +end +function c40737112.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetFlagEffect(40737112)~=0 end + e:GetHandler():ResetFlagEffect(40737112) +end +function c40737112.thfilter(c) + return c:IsType(TYPE_SPELL) and c:IsAbleToHand() +end +function c40737112.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c40737112.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c40737112.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c40737112.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c40737112.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c40737112.rmcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local bc=c:GetBattleTarget() + e:SetLabelObject(bc) + return bc and bc:IsStatus(STATUS_BATTLE_DESTROYED) and c:IsStatus(STATUS_OPPO_BATTLE) +end +function c40737112.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_REMOVE,e:GetLabelObject(),1,0,0) +end +function c40737112.rmop(e,tp,eg,ep,ev,re,r,rp) + local bc=e:GetLabelObject() + if bc:IsRelateToBattle() and bc:IsAbleToRemove() then + Duel.Remove(bc,POS_FACEUP,REASON_EFFECT) + end +end +function c40737112.recon(e) + return e:GetHandler():IsFaceup() +end diff --git a/script/c40817915.lua b/script/c40817915.lua old mode 100755 new mode 100644 diff --git a/script/c4081825.lua b/script/c4081825.lua index bb47a205..10862a77 100644 --- a/script/c4081825.lua +++ b/script/c4081825.lua @@ -11,22 +11,22 @@ function c4081825.initial_effect(c) c:RegisterEffect(e1) end function c4081825.spfilter(c,e,tp) - return c:IsSetCard(0x13) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x13) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c4081825.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDefencePos,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDefensePos,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c4081825.spfilter,tp,0x11,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) end function c4081825.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDefencePos,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(Card.IsDefensePos,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if g:GetCount()==0 then return end Duel.ChangePosition(g,POS_FACEUP_ATTACK) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=Duel.SelectMatchingCard(tp,c4081825.spfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) local tc=sg:GetFirst() - if tc then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.BreakEffect() Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c40838625.lua b/script/c40838625.lua old mode 100755 new mode 100644 index 0c93d679..955b093d --- a/script/c40838625.lua +++ b/script/c40838625.lua @@ -23,7 +23,7 @@ function c40838625.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c40838625.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c40838625.filter,tp,0,LOCATION_MZONE,nil) - if Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE)~=0 then + if Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE)~=0 then local og=Duel.GetOperatedGroup() local tc=og:GetFirst() while tc do diff --git a/script/c40844552.lua b/script/c40844552.lua index 2a6532ae..a635ddaa 100644 --- a/script/c40844552.lua +++ b/script/c40844552.lua @@ -25,17 +25,19 @@ function c40844552.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c40844552.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,40844553,0,0x4011,1000,1000,4,RACE_WARRIOR,ATTRIBUTE_EARTH) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c40844552.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end if not Duel.IsPlayerCanSpecialSummonMonster(tp,40844553,0,0x4011,1000,1000,4,RACE_WARRIOR,ATTRIBUTE_EARTH) then return end for i=1,2 do local token=Duel.CreateToken(tp,40844553) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end Duel.SpecialSummonComplete() end diff --git a/script/c40854197.lua b/script/c40854197.lua index c383ef2a..f55a5a74 100644 --- a/script/c40854197.lua +++ b/script/c40854197.lua @@ -1,55 +1,55 @@ ---E・HERO アブソルートZero -function c40854197.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x8),aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WATER),true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.fuslimit) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(40854197,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c40854197.descon) - e2:SetTarget(c40854197.destg) - e2:SetOperation(c40854197.desop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_REMOVE) - c:RegisterEffect(e3) - local e4=e2:Clone() - e4:SetCode(EVENT_TO_DECK) - c:RegisterEffect(e4) - --atkup - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetRange(LOCATION_MZONE) - e5:SetCode(EFFECT_UPDATE_ATTACK) - e5:SetValue(c40854197.atkup) - c:RegisterEffect(e5) -end -function c40854197.atkfilter(c) - return c:IsFaceup() and c:GetCode()~=40854197 and c:IsAttribute(ATTRIBUTE_WATER) -end -function c40854197.atkup(e,c) - return Duel.GetMatchingGroupCount(c40854197.atkfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil)*500 -end -function c40854197.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousPosition(POS_FACEUP) and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) -end -function c40854197.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c40854197.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) -end +--E・HERO アブソルートZero +function c40854197.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x8),aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WATER),true) + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(aux.fuslimit) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(40854197,0)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCondition(c40854197.descon) + e2:SetTarget(c40854197.destg) + e2:SetOperation(c40854197.desop) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_REMOVE) + c:RegisterEffect(e3) + local e4=e2:Clone() + e4:SetCode(EVENT_TO_DECK) + c:RegisterEffect(e4) + --atkup + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_SINGLE) + e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e5:SetRange(LOCATION_MZONE) + e5:SetCode(EFFECT_UPDATE_ATTACK) + e5:SetValue(c40854197.atkup) + c:RegisterEffect(e5) +end +function c40854197.atkfilter(c) + return c:IsFaceup() and c:GetCode()~=40854197 and c:IsAttribute(ATTRIBUTE_WATER) +end +function c40854197.atkup(e,c) + return Duel.GetMatchingGroupCount(c40854197.atkfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil)*500 +end +function c40854197.descon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousPosition(POS_FACEUP) and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) +end +function c40854197.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c40854197.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c40854824.lua b/script/c40854824.lua old mode 100755 new mode 100644 diff --git a/script/c40867519.lua b/script/c40867519.lua index 1cfa40d9..6bf2edcc 100644 --- a/script/c40867519.lua +++ b/script/c40867519.lua @@ -1,6 +1,6 @@ --静寂虫 function c40867519.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(40867519,0)) e1:SetCategory(CATEGORY_POSITION) @@ -43,7 +43,7 @@ end function c40867519.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsAttackPos() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c40867519.distarget(e,c) diff --git a/script/c40884383.lua b/script/c40884383.lua index 3ec81ce4..f2f6a931 100644 --- a/script/c40884383.lua +++ b/script/c40884383.lua @@ -20,6 +20,7 @@ function c40884383.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) and Duel.IsExistingTarget(c40884383.filter,tp,LOCATION_GRAVE,0,1,nil,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectTarget(tp,c40884383.filter,tp,LOCATION_GRAVE,0,1,1,nil,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) end function c40884383.eqop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c40894584.lua b/script/c40894584.lua index 90cbdc07..136fa148 100644 --- a/script/c40894584.lua +++ b/script/c40894584.lua @@ -33,7 +33,7 @@ function c40894584.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsReason(REASON_DESTROY) and e:GetHandler():IsReason(REASON_BATTLE+REASON_EFFECT) end function c40894584.filter(c,e,tp) - return c:GetAttack()==1500 and c:GetDefence()==200 and not c:IsCode(40894584) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:GetAttack()==1500 and c:GetDefense()==200 and not c:IsCode(40894584) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c40894584.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 diff --git a/script/c40908371.lua b/script/c40908371.lua index 846b0e12..58f74afb 100644 --- a/script/c40908371.lua +++ b/script/c40908371.lua @@ -43,7 +43,7 @@ function c40908371.effop(e,tp,eg,ep,ev,re,r,rp) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(aux.tgval) + e2:SetValue(1) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,2) tc:RegisterEffect(e2) tc=g:GetNext() diff --git a/script/c40916023.lua b/script/c40916023.lua index 0d833ed2..e4c83de4 100644 --- a/script/c40916023.lua +++ b/script/c40916023.lua @@ -50,7 +50,7 @@ end function c40916023.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) diff --git a/script/c40921545.lua b/script/c40921545.lua index 709cc640..8bce0980 100644 --- a/script/c40921545.lua +++ b/script/c40921545.lua @@ -17,10 +17,10 @@ function c40921545.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c40921545.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c40921545.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsDestructable() end + if chkc then return chkc:IsLocation(LOCATION_SZONE) end if chk==0 then return Duel.IsExistingTarget(c40921545.filter,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local g=Duel.SelectTarget(tp,c40921545.filter,tp,0,LOCATION_ONFIELD,1,1,nil) diff --git a/script/c40921744.lua b/script/c40921744.lua index fb8a5ae0..607c3680 100644 --- a/script/c40921744.lua +++ b/script/c40921744.lua @@ -58,12 +58,12 @@ function c40921744.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RegisterFlagEffect(40921744,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) end function c40921744.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c40921744.desop(e,tp,eg,ep,ev,re,r,rp,chk) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.Destroy(g,REASON_EFFECT) end function c40921744.sdescon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c40937767.lua b/script/c40937767.lua index c1d1994f..c5a2222a 100644 --- a/script/c40937767.lua +++ b/script/c40937767.lua @@ -22,7 +22,7 @@ function c40937767.initial_effect(c) c:RegisterEffect(e2) end function c40937767.ccon(e) - return Duel.IsExistingMatchingCard(Card.IsPosition,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil,POS_FACEDOWN_DEFENCE) + return Duel.IsExistingMatchingCard(Card.IsPosition,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil,POS_FACEDOWN_DEFENSE) end function c40937767.damcon(e,tp,eg,ep,ev,re,r,rp) return ep==tp and eg:GetFirst()~=e:GetHandler() diff --git a/script/c40941889.lua b/script/c40941889.lua index 7615f3cf..2fbd8f2d 100644 --- a/script/c40941889.lua +++ b/script/c40941889.lua @@ -23,7 +23,7 @@ function c40941889.eqcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():CheckUniqueOnField(tp) end function c40941889.filter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) + return c:IsFaceup() and c:IsSetCard(0x107f) end function c40941889.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c40941889.filter(chkc) end diff --git a/script/c40945356.lua b/script/c40945356.lua index 77fd38eb..7bd2c4d3 100644 --- a/script/c40945356.lua +++ b/script/c40945356.lua @@ -26,13 +26,6 @@ function c40945356.initial_effect(c) e2:SetTarget(c40945356.target2) e2:SetOperation(c40945356.operation2) c:RegisterEffect(e2) - --add setcode - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e3:SetCode(EFFECT_ADD_SETCODE) - e3:SetValue(0x2b) - c:RegisterEffect(e3) end function c40945356.cfilter(c) return c:IsSetCard(0x2b) and c:IsType(TYPE_MONSTER) and c:IsDiscardable() diff --git a/script/c40975574.lua b/script/c40975574.lua old mode 100755 new mode 100644 diff --git a/script/c41039846.lua b/script/c41039846.lua index 9045e968..a5c3adb1 100644 --- a/script/c41039846.lua +++ b/script/c41039846.lua @@ -35,7 +35,7 @@ end function c41039846.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c41039846.hdtg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c41077745.lua b/script/c41077745.lua index 395dfacb..e04932d7 100644 --- a/script/c41077745.lua +++ b/script/c41077745.lua @@ -43,7 +43,7 @@ function c41077745.descon(e,tp,eg,ep,ev,re,r,rp,chk) return ep~=tp and Duel.GetAttackTarget()==nil end function c41077745.filter(c) - return c:IsFacedown() and c:GetSequence()~=5 and c:IsDestructable() + return c:IsFacedown() and c:GetSequence()~=5 end function c41077745.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and c41077745.filter(chkc) end diff --git a/script/c41090784.lua b/script/c41090784.lua index 99733475..cc96b2ac 100644 --- a/script/c41090784.lua +++ b/script/c41090784.lua @@ -1,6 +1,6 @@ --氷結界の大僧正 function c41090784.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(41090784,0)) e1:SetCategory(CATEGORY_POSITION) @@ -29,7 +29,7 @@ end function c41090784.poop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsAttackPos() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c41090784.indval(e,re,rp) diff --git a/script/c41091257.lua b/script/c41091257.lua new file mode 100644 index 00000000..acb7f8ea --- /dev/null +++ b/script/c41091257.lua @@ -0,0 +1,64 @@ +--SPYRAL Super Agent +function c41091257.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(41091257,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_HAND) + e1:SetCountLimit(1,41091257) + e1:SetTarget(c41091257.sptg) + e1:SetOperation(c41091257.spop) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(41091257,1)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetCountLimit(1,41091258) + e2:SetCondition(c41091257.descon) + e2:SetTarget(c41091257.destg) + e2:SetOperation(c41091257.desop) + c:RegisterEffect(e2) +end +function c41091257.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>0 + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE) + e:SetLabel(Duel.SelectOption(tp,70,71,72)) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c41091257.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)==0 then return end + Duel.ConfirmDecktop(1-tp,1) + local g=Duel.GetDecktopGroup(1-tp,1) + local tc=g:GetFirst() + local opt=e:GetLabel() + if (opt==0 and tc:IsType(TYPE_MONSTER)) or (opt==1 and tc:IsType(TYPE_SPELL)) or (opt==2 and tc:IsType(TYPE_TRAP)) then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end + end +end +function c41091257.descon(e,tp,eg,ep,ev,re,r,rp) + return re and re:GetHandler():IsSetCard(0xee) +end +function c41091257.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsType(TYPE_SPELL+TYPE_TRAP) end + if chk==0 then return Duel.IsExistingTarget(Card.IsType,tp,0,LOCATION_ONFIELD,1,nil,TYPE_SPELL+TYPE_TRAP) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,Card.IsType,tp,0,LOCATION_ONFIELD,1,1,nil,TYPE_SPELL+TYPE_TRAP) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c41091257.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c41097056.lua b/script/c41097056.lua old mode 100755 new mode 100644 index 473db196..1a26054a --- a/script/c41097056.lua +++ b/script/c41097056.lua @@ -15,7 +15,7 @@ function c41097056.filter(c,tp) and Duel.IsExistingMatchingCard(c41097056.desfilter,tp,0,LOCATION_MZONE,1,nil,math.max(0,c:GetTextAttack())) end function c41097056.desfilter(c,atk) - return c:IsFaceup() and c:IsAttackBelow(atk) and c:IsDestructable() + return c:IsFaceup() and c:IsAttackBelow(atk) end function c41097056.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c41097056.filter(chkc,tp) end diff --git a/script/c41114306.lua b/script/c41114306.lua new file mode 100644 index 00000000..8c3b6f6d --- /dev/null +++ b/script/c41114306.lua @@ -0,0 +1,81 @@ +--方界獣ダーク・ガネックス +function c41114306.initial_effect(c) + c:EnableReviveLimit() + --special summon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_HAND) + e2:SetCondition(c41114306.spcon) + e2:SetOperation(c41114306.spop) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_SEARCH) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_BATTLE_DESTROYING) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCondition(aux.bdcon) + e3:SetTarget(c41114306.sptg2) + e3:SetOperation(c41114306.spop2) + c:RegisterEffect(e3) +end +function c41114306.filter(c) + return c:IsFaceup() and c:IsSetCard(0xe3) and c:IsAbleToGraveAsCost() +end +function c41114306.spcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c41114306.filter,c:GetControler(),LOCATION_MZONE,0,1,nil) +end +function c41114306.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c41114306.filter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SendtoGrave(g,REASON_COST) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(1000) + e1:SetReset(RESET_EVENT+0xff0000) + c:RegisterEffect(e1) +end +function c41114306.spfilter(c,e,tp) + return c:IsCode(15610297) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c41114306.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c41114306.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingTarget(c41114306.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + local ft=2 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + ft=math.min(ft,Duel.GetLocationCount(tp,LOCATION_MZONE)+1) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c41114306.spfilter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) +end +function c41114306.thfilter(c) + return c:IsCode(78509901) and c:IsAbleToHand() +end +function c41114306.spop2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or Duel.SendtoGrave(c,REASON_EFFECT)==0 then return end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + local sg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if sg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if sg:GetCount()>ft then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + sg=sg:Select(tp,ft,ft,nil) + end + if Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)~=0 then + local g=Duel.GetMatchingGroup(c41114306.thfilter,tp,LOCATION_DECK,0,nil) + if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(41114306,0)) then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + g=g:Select(tp,1,1,nil) + Duel.SendtoHand(g,tp,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end + end +end diff --git a/script/c41128647.lua b/script/c41128647.lua old mode 100755 new mode 100644 index 0f2ed132..c0fe6f9f --- a/script/c41128647.lua +++ b/script/c41128647.lua @@ -15,7 +15,7 @@ function c41128647.initial_effect(c) e2:SetValue(300) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --actlimit local e4=Effect.CreateEffect(c) diff --git a/script/c41141943.lua b/script/c41141943.lua old mode 100755 new mode 100644 index a19b6266..12017df2 --- a/script/c41141943.lua +++ b/script/c41141943.lua @@ -63,7 +63,7 @@ function c41141943.spcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c41141943.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENCE,1-tp) + return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,1-tp) end function c41141943.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 @@ -79,7 +79,7 @@ function c41141943.spop(e,tp,eg,ep,ev,re,r,rp) if ft>2 then ft=2 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,1,ft,nil) - local ct=Duel.SpecialSummon(sg,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) + local ct=Duel.SpecialSummon(sg,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) if ct>0 then Duel.BreakEffect() Duel.Draw(tp,ct,REASON_EFFECT) diff --git a/script/c41147577.lua b/script/c41147577.lua index 3b4f975c..14999d37 100644 --- a/script/c41147577.lua +++ b/script/c41147577.lua @@ -45,7 +45,7 @@ end function c41147577.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) Duel.NegateRelatedChain(tc,RESET_TURN_SET) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c41160533.lua b/script/c41160533.lua index b89da281..34dff09b 100644 --- a/script/c41160533.lua +++ b/script/c41160533.lua @@ -8,7 +8,7 @@ function c41160533.initial_effect(c) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE_START+PHASE_BATTLE) + e2:SetCode(EVENT_PHASE_START+PHASE_BATTLE_START) e2:SetRange(LOCATION_MZONE) e2:SetOperation(c41160533.maop) c:RegisterEffect(e2) diff --git a/script/c41175645.lua b/script/c41175645.lua new file mode 100644 index 00000000..bec2162d --- /dev/null +++ b/script/c41175645.lua @@ -0,0 +1,99 @@ +--沈黙の魔術師－サイレント・マジシャン +function c41175645.initial_effect(c) + c:EnableReviveLimit() + --cannot special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_HAND) + e2:SetCondition(c41175645.spcon) + e2:SetOperation(c41175645.spop) + c:RegisterEffect(e2) + --atk up + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_UPDATE_ATTACK) + e3:SetValue(c41175645.value) + c:RegisterEffect(e3) + --negate + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(41175645,0)) + e4:SetCategory(CATEGORY_NEGATE) + e4:SetType(EFFECT_TYPE_QUICK_O) + e4:SetCode(EVENT_CHAINING) + e4:SetCountLimit(1) + e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e4:SetRange(LOCATION_MZONE) + e4:SetCondition(c41175645.condition) + e4:SetTarget(c41175645.target) + e4:SetOperation(c41175645.operation) + c:RegisterEffect(e4) + --spsummon + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(41175645,1)) + e5:SetCategory(CATEGORY_SPECIAL_SUMMON) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e5:SetProperty(EFFECT_FLAG_DELAY) + e5:SetCode(EVENT_DESTROYED) + e5:SetCondition(c41175645.spcon2) + e5:SetTarget(c41175645.sptg2) + e5:SetOperation(c41175645.spop2) + c:RegisterEffect(e5) +end +function c41175645.spcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.CheckReleaseGroup(c:GetControler(),Card.IsRace,1,nil,RACE_SPELLCASTER) +end +function c41175645.spop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.SelectReleaseGroup(c:GetControler(),Card.IsRace,1,1,nil,RACE_SPELLCASTER) + Duel.Release(g,REASON_COST) +end +function c41175645.value(e,c) + return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_HAND,0)*500 +end +function c41175645.condition(e,tp,eg,ep,ev,re,r,rp) + return re:IsActiveType(TYPE_SPELL) and re:IsHasType(EFFECT_TYPE_ACTIVATE) + and Duel.IsChainNegatable(ev) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) +end +function c41175645.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) +end +function c41175645.operation(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then + Duel.SendtoGrave(eg,REASON_EFFECT) + end +end +function c41175645.spcon2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return (c:IsReason(REASON_BATTLE) or (rp~=tp and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp)) + and c:IsPreviousLocation(LOCATION_ONFIELD) +end +function c41175645.filter(c,e,tp) + return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xe8) and not c:IsCode(41175645) + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) +end +function c41175645.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c41175645.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) +end +function c41175645.spop2(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c41175645.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) + end +end diff --git a/script/c41181774.lua b/script/c41181774.lua index ee0b4c63..f0877f2e 100644 --- a/script/c41181774.lua +++ b/script/c41181774.lua @@ -1,6 +1,6 @@ --地縛神 Wiraqocha Rasca function c41181774.initial_effect(c) - c:SetUniqueOnField(1,1,10000000) + c:SetUniqueOnField(1,1,10000000,LOCATION_MZONE) -- local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c41197012.lua b/script/c41197012.lua index 5387ef30..3a7dbf42 100644 --- a/script/c41197012.lua +++ b/script/c41197012.lua @@ -27,6 +27,7 @@ function c41197012.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) and Duel.IsExistingTarget(c41197012.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) if ct>2 then ct=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c41197012.filter,tp,LOCATION_GRAVE,0,1,ct,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) @@ -34,6 +35,7 @@ end function c41197012.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local sg=g:Filter(Card.IsRelateToEffect,nil,e) if sg:GetCount()==0 then return end diff --git a/script/c41201386.lua b/script/c41201386.lua old mode 100755 new mode 100644 index a1825e1c..874dd824 --- a/script/c41201386.lua +++ b/script/c41201386.lua @@ -1,87 +1,86 @@ ---RUM－レイド・フォース -function c41201386.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(41201386,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c41201386.target) - e1:SetOperation(c41201386.activate) - c:RegisterEffect(e1) - --salvage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(41201386,1)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_GRAVE) - e2:SetCost(c41201386.thcost) - e2:SetTarget(c41201386.thtg) - e2:SetOperation(c41201386.thop) - c:RegisterEffect(e2) -end -function c41201386.filter1(c,e,tp) - local rk=c:GetRank() - return c:IsFaceup() and c:IsType(TYPE_XYZ) - and Duel.IsExistingMatchingCard(c41201386.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,c,rk+1) -end -function c41201386.filter2(c,e,tp,mc,rk) - return c:GetRank()==rk and c:IsSetCard(0xba) and mc:IsCanBeXyzMaterial(c) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) -end -function c41201386.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c41201386.filter1(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c41201386.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c41201386.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c41201386.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end - local tc=Duel.GetFirstTarget() - if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c41201386.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc,tc:GetRank()+1) - local sc=g:GetFirst() - if sc then - local mg=tc:GetOverlayGroup() - if mg:GetCount()~=0 then - Duel.Overlay(sc,mg) - end - sc:SetMaterial(Group.FromCards(tc)) - Duel.Overlay(sc,Group.FromCards(tc)) - Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) - sc:CompleteProcedure() - end -end -function c41201386.cfilter(c) - return c:IsSetCard(0xba) and c:IsAbleToRemoveAsCost() -end -function c41201386.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() - and Duel.IsExistingMatchingCard(c41201386.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c41201386.cfilter,tp,LOCATION_HAND,0,1,1,nil) - g:AddCard(e:GetHandler()) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c41201386.thfilter(c) - return c:IsSetCard(0x95) and not c:IsCode(41201386) and c:IsAbleToHand() -end -function c41201386.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c41201386.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c41201386.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c41201386.thfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c41201386.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--RUM－レイド・フォース +function c41201386.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(41201386,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c41201386.target) + e1:SetOperation(c41201386.activate) + c:RegisterEffect(e1) + --salvage + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(41201386,1)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_GRAVE) + e2:SetCost(c41201386.thcost) + e2:SetTarget(c41201386.thtg) + e2:SetOperation(c41201386.thop) + c:RegisterEffect(e2) +end +function c41201386.filter1(c,e,tp) + local rk=c:GetRank() + return c:IsFaceup() and c:IsType(TYPE_XYZ) + and Duel.IsExistingMatchingCard(c41201386.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,c,rk+1) +end +function c41201386.filter2(c,e,tp,mc,rk) + return c:GetRank()==rk and c:IsSetCard(0xba) and mc:IsCanBeXyzMaterial(c) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) +end +function c41201386.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c41201386.filter1(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingTarget(c41201386.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,c41201386.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c41201386.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end + local tc=Duel.GetFirstTarget() + if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c41201386.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc,tc:GetRank()+1) + local sc=g:GetFirst() + if sc then + local mg=tc:GetOverlayGroup() + if mg:GetCount()~=0 then + Duel.Overlay(sc,mg) + end + sc:SetMaterial(Group.FromCards(tc)) + Duel.Overlay(sc,Group.FromCards(tc)) + Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) + sc:CompleteProcedure() + end +end +function c41201386.cfilter(c) + return c:IsSetCard(0xba) and c:IsAbleToRemoveAsCost() +end +function c41201386.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() + and Duel.IsExistingMatchingCard(c41201386.cfilter,tp,LOCATION_HAND,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c41201386.cfilter,tp,LOCATION_HAND,0,1,1,nil) + g:AddCard(e:GetHandler()) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c41201386.thfilter(c) + return c:IsSetCard(0x95) and not c:IsCode(41201386) and c:IsAbleToHand() +end +function c41201386.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c41201386.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c41201386.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c41201386.thfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c41201386.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c41201555.lua b/script/c41201555.lua index 826740a3..53907cbe 100644 --- a/script/c41201555.lua +++ b/script/c41201555.lua @@ -33,6 +33,8 @@ function c41201555.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_PLANT) and not c:IsPublic() end function c41201555.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c41201555.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c41201555.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -42,8 +44,10 @@ function c41201555.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(41201555,0),aux.Stringid(41201555,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(41201555,1),aux.Stringid(41201555,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(41201555,1),aux.Stringid(41201555,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(41201555,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -55,7 +59,7 @@ function c41201555.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c41201555.condition(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c41209827.lua b/script/c41209827.lua new file mode 100644 index 00000000..d5fb9b51 --- /dev/null +++ b/script/c41209827.lua @@ -0,0 +1,112 @@ +--スターヴ・ヴェノム・フュージョン・ドラゴン +function c41209827.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcFunRep(c,c41209827.ffilter,2,false) + --atk up + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(41209827,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c41209827.atkcon) + e1:SetTarget(c41209827.atktg) + e1:SetOperation(c41209827.atkop) + c:RegisterEffect(e1) + --copy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(41209827,1)) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCost(c41209827.copycost) + e2:SetTarget(c41209827.copytg) + e2:SetOperation(c41209827.copyop) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(41209827,2)) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_DESTROYED) + e3:SetCondition(c41209827.descon) + e3:SetTarget(c41209827.destg) + e3:SetOperation(c41209827.desop) + c:RegisterEffect(e3) +end +function c41209827.ffilter(c) + return c:IsAttribute(ATTRIBUTE_DARK) and c:IsLocation(LOCATION_MZONE) and not c:IsType(TYPE_TOKEN) +end +function c41209827.atkcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c41209827.atkfilter(c) + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL and c:IsFaceup() +end +function c41209827.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c41209827.atkfilter,tp,0,LOCATION_MZONE,1,nil) end +end +function c41209827.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectMatchingCard(tp,c41209827.atkfilter,tp,0,LOCATION_MZONE,1,1,nil) + local tc=g:GetFirst() + if tc and c:IsRelateToEffect(e) and c:IsFaceup() then + local atk=tc:GetAttack() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(atk) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + end +end +function c41209827.copycost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetFlagEffect(41209827)==0 end + e:GetHandler():RegisterFlagEffect(41209827,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) +end +function c41209827.copyfilter(c) + return c:IsFaceup() and c:IsLevelAbove(5) +end +function c41209827.copytg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c41209827.copyfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c41209827.copyfilter,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c41209827.copyfilter,tp,0,LOCATION_MZONE,1,1,nil) +end +function c41209827.copyop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc and c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() and not tc:IsType(TYPE_TOKEN) then + local code=tc:GetOriginalCodeRule() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_CHANGE_CODE) + e1:SetValue(code) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + if not tc:IsType(TYPE_TRAPMONSTER) then + c:CopyEffect(code,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,1) + end + end +end +function c41209827.descon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_MZONE) and bit.band(c:GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c41209827.desfilter(c) + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c41209827.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c41209827.desfilter,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(c41209827.desfilter,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c41209827.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c41209827.desfilter,tp,0,LOCATION_MZONE,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c41224658.lua b/script/c41224658.lua index f18e5628..6e7d2902 100644 --- a/script/c41224658.lua +++ b/script/c41224658.lua @@ -13,10 +13,10 @@ function c41224658.initial_effect(c) c:RegisterEffect(e1) end function c41224658.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,2,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,2,nil) if Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)==Duel.GetMatchingGroupCount(Card.IsPublic,tp,0,LOCATION_HAND,nil) and not Duel.IsExistingMatchingCard(Card.IsType,tp,0,LOCATION_HAND,1,nil,TYPE_MONSTER) then Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) @@ -26,14 +26,21 @@ function c41224658.cfilter(c) return not c:IsPublic() and c:IsType(TYPE_MONSTER) end function c41224658.desop(e,tp,eg,ep,ev,re,r,rp) - local dis=false if Duel.IsChainDisablable(0) then + local sel=1 local cg=Duel.GetMatchingGroup(c41224658.cfilter,tp,0,LOCATION_HAND,nil) - if cg:GetCount()>0 and Duel.SelectYesNo(1-tp,aux.Stringid(41224658,1)) then + Duel.Hint(HINT_SELECTMSG,1-tp,aux.Stringid(41224658,1)) + if cg:GetCount()>0 then + sel=Duel.SelectOption(1-tp,1213,1214) + else + sel=Duel.SelectOption(1-tp,1214)+1 + end + if sel==0 then Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_CONFIRM) local sg=cg:Select(1-tp,1,1,nil) Duel.ConfirmCards(tp,sg) Duel.ShuffleHand(1-tp) + Duel.NegateEffect(0) return end end diff --git a/script/c41230939.lua b/script/c41230939.lua old mode 100755 new mode 100644 index a825cb8a..0195af85 --- a/script/c41230939.lua +++ b/script/c41230939.lua @@ -17,7 +17,7 @@ function c41230939.initial_effect(c) c:RegisterEffect(e2) end function c41230939.filter(c) - return c:IsLevelBelow(3) and c:IsRace(RACE_DRAGON) + return c:IsLevelBelow(3) and c:IsRace(RACE_DRAGON) and not c:IsForbidden() end function c41230939.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c41230939.filter(chkc) end diff --git a/script/c41234315.lua b/script/c41234315.lua index 60b390d5..6ce8b88e 100644 --- a/script/c41234315.lua +++ b/script/c41234315.lua @@ -41,13 +41,13 @@ function c41234315.activate(e,tp,eg,ep,ev,re,r,rp) Duel.RegisterEffect(e3,tp) end function c41234315.spfilter(c,e,tp) - return c:IsCode(89493368) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(89493368) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c41234315.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c41234315.spfilter,tp,0x12,0,1,1,nil,e,tp) - if g:GetCount()~=0 then + if g:GetCount()~=0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP) end end diff --git a/script/c4130270.lua b/script/c4130270.lua index 6f853bc8..d60647b9 100644 --- a/script/c4130270.lua +++ b/script/c4130270.lua @@ -14,5 +14,5 @@ function c4130270.initial_effect(c) c:RegisterEffect(e2) end function c4130270.etarget(e,c) - return c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ) + return bit.band(c:GetOriginalType(),TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ)~=0 end diff --git a/script/c41307269.lua b/script/c41307269.lua index fd306d5b..3c645f09 100644 --- a/script/c41307269.lua +++ b/script/c41307269.lua @@ -27,13 +27,13 @@ function c41307269.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c41307269.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c41307269.filter,tp,LOCATION_MZONE,0,nil) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,0,0) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,0,0) local og=Duel.GetOperatedGroup() local tc=og:GetFirst() while tc do local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetValue(500) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) diff --git a/script/c41309158.lua b/script/c41309158.lua index 2d3fc687..f3987c5a 100644 --- a/script/c41309158.lua +++ b/script/c41309158.lua @@ -29,14 +29,14 @@ function c41309158.poscon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ end function c41309158.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDefencePos() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDefencePos,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEFENCE) - Duel.SelectTarget(tp,Card.IsDefencePos,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDefensePos() end + if chk==0 then return Duel.IsExistingTarget(Card.IsDefensePos,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEFENSE) + Duel.SelectTarget(tp,Card.IsDefensePos,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) end function c41309158.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsDefencePos() and tc:IsRelateToEffect(e) then + if tc:IsDefensePos() and tc:IsRelateToEffect(e) then Duel.ChangePosition(tc,POS_FACEUP_ATTACK) end end diff --git a/script/c41329458.lua b/script/c41329458.lua index 93f6c8b9..b742b213 100644 --- a/script/c41329458.lua +++ b/script/c41329458.lua @@ -50,8 +50,10 @@ function c41329458.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c41329458.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c41329458.cfilter(c) diff --git a/script/c41356845.lua b/script/c41356845.lua index e1cb29f6..3d2273d8 100644 --- a/script/c41356845.lua +++ b/script/c41356845.lua @@ -23,13 +23,13 @@ end function c41356845.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFacedown() then - Duel.ChangePosition(tc,0,POS_FACEUP_ATTACK,0,POS_FACEUP_DEFENCE) - if tc:IsDefenceBelow(2000) then + Duel.ChangePosition(tc,0,POS_FACEUP_ATTACK,0,POS_FACEUP_DEFENSE,false,true) + if tc:IsDefenseBelow(2000) then Duel.BreakEffect() Duel.Destroy(tc,REASON_EFFECT) else Duel.ConfirmCards(1-tc:GetControler(),tc) - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end end diff --git a/script/c41356846.lua b/script/c41356846.lua deleted file mode 100644 index dc55a659..00000000 --- a/script/c41356846.lua +++ /dev/null @@ -1,34 +0,0 @@ ---硫酸のたまった落とし穴 -function c41356846.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c41356846.target) - e1:SetOperation(c41356846.activate) - c:RegisterEffect(e1) -end -function c41356846.filter(c) - return c:IsFacedown() -end -function c41356846.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c41356846.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c41356846.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c41356846.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c41356846.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFacedown() then - Duel.ChangePosition(tc,0,POS_FACEUP_ATTACK,0,POS_FACEUP_DEFENCE) - if tc:IsDefenceBelow(2000) then - Duel.Destroy(tc,REASON_EFFECT) - else - Duel.ConfirmCards(1-tc:GetControler(),tc) - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) - end - end -end diff --git a/script/c41367003.lua b/script/c41367003.lua index a03e4057..421c6a41 100644 --- a/script/c41367003.lua +++ b/script/c41367003.lua @@ -12,13 +12,13 @@ function c41367003.initial_effect(c) c:RegisterEffect(e1) end function c41367003.filter(c,e,tp) - return c:IsPosition(POS_FACEUP_DEFENCE) and c:IsDefenceBelow(1000) + return c:IsPosition(POS_FACEUP_DEFENSE) and c:IsDefenseBelow(1000) end function c41367003.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c41367003.filter(chkc,e,tp) end if chk==0 then return Duel.IsPlayerCanDraw(tp,1) and Duel.IsExistingTarget(c41367003.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUPDEFENCE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUPDEFENSE) Duel.SelectTarget(tp,c41367003.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) end diff --git a/script/c41382147.lua b/script/c41382147.lua index 82c46e67..969f2915 100644 --- a/script/c41382147.lua +++ b/script/c41382147.lua @@ -40,7 +40,7 @@ function c41382147.rmop(e,tp,eg,ep,ev,re,r,rp) if c:IsRelateToEffect(e) and c:IsFaceup() and Duel.Remove(c,POS_FACEUP,REASON_EFFECT+REASON_TEMPORARY)==1 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE_START+PHASE_BATTLE) + e1:SetCode(EVENT_PHASE+PHASE_BATTLE_START) e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,2) e1:SetLabelObject(c) e1:SetCountLimit(1) diff --git a/script/c41398771.lua b/script/c41398771.lua index 91feac3d..bbad64ff 100644 --- a/script/c41398771.lua +++ b/script/c41398771.lua @@ -35,7 +35,7 @@ function c41398771.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(-500) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) tc=g:GetNext() end diff --git a/script/c4141820.lua b/script/c4141820.lua old mode 100755 new mode 100644 diff --git a/script/c41436536.lua b/script/c41436536.lua old mode 100755 new mode 100644 diff --git a/script/c41442341.lua b/script/c41442341.lua index 2fe7337c..1040c4db 100644 --- a/script/c41442341.lua +++ b/script/c41442341.lua @@ -25,7 +25,8 @@ function c41442341.filter(c,e,tp) end function c41442341.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE and c41442341.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c41442341.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c41442341.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) @@ -34,6 +35,7 @@ end function c41442341.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local fg=g:Filter(Card.IsRelateToEffect,nil,e) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) diff --git a/script/c41462084.lua b/script/c41462084.lua deleted file mode 100644 index 26504261..00000000 --- a/script/c41462084.lua +++ /dev/null @@ -1,8 +0,0 @@ ---千年竜 -function c41462084.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode2(c,71625222,88819587,true,true) -end -c41462084.material_count=2 -c41462084.material={71625222,88819587} diff --git a/script/c41470137.lua b/script/c41470137.lua index ebf3da74..cf601ea3 100644 --- a/script/c41470137.lua +++ b/script/c41470137.lua @@ -29,7 +29,7 @@ function c41470137.descon(e,tp,eg,ep,ev,re,r,rp) return st>=(SUMMON_TYPE_SPECIAL+100) and st<(SUMMON_TYPE_SPECIAL+150) end function c41470137.desfilter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c41470137.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c41470137.desfilter(chkc) end diff --git a/script/c41475424.lua b/script/c41475424.lua index f51016a5..1a3141de 100644 --- a/script/c41475424.lua +++ b/script/c41475424.lua @@ -12,16 +12,16 @@ function c41475424.initial_effect(c) c:RegisterEffect(e1) end function c41475424.filter(c) - return c:IsFaceup() and c:IsSetCard(0x13) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x13) end function c41475424.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end if chk==0 then return Duel.IsExistingTarget(c41475424.filter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local g1=Duel.SelectTarget(tp,c41475424.filter,tp,LOCATION_MZONE,0,1,1,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g2=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) g1:Merge(g2) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0) end diff --git a/script/c41493640.lua b/script/c41493640.lua index 696b6a89..e70305c4 100644 --- a/script/c41493640.lua +++ b/script/c41493640.lua @@ -1,4 +1,4 @@ ---ラインモンスター Ｋホース +--ラインモンスター Kホース function c41493640.initial_effect(c) --destroy local e1=Effect.CreateEffect(c) @@ -15,7 +15,7 @@ function c41493640.initial_effect(c) e2:SetDescription(aux.Stringid(41493640,1)) e2:SetCategory(CATEGORY_SPECIAL_SUMMON) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(41493640) + e2:SetCode(EVENT_CUSTOM+41493640) e2:SetTarget(c41493640.sptg) e2:SetOperation(c41493640.spop) c:RegisterEffect(e2) @@ -36,7 +36,7 @@ function c41493640.operation(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(tp,tc) if tc:IsType(TYPE_TRAP) and Duel.Destroy(tc,REASON_EFFECT)~=0 then if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.RaiseSingleEvent(c,41493640,e,0,tp,tp,0) + Duel.RaiseSingleEvent(c,EVENT_CUSTOM+41493640,e,0,tp,tp,0) end end end @@ -53,6 +53,6 @@ function c41493640.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c41493640.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c41517789.lua b/script/c41517789.lua old mode 100755 new mode 100644 diff --git a/script/c41517968.lua b/script/c41517968.lua old mode 100755 new mode 100644 index e862cc6b..c039759b --- a/script/c41517968.lua +++ b/script/c41517968.lua @@ -1,57 +1,57 @@ ---E・HERO ダーク・ブライトマン -function c41517968.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode2(c,20721928,89252153,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.fuslimit) - c:RegisterEffect(e1) - --pierce - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e2) - --to defence - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_DAMAGE_STEP_END) - e3:SetCondition(c41517968.poscon) - e3:SetOperation(c41517968.posop) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(41517968,0)) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetCode(EVENT_DESTROYED) - e4:SetTarget(c41517968.destg) - e4:SetOperation(c41517968.desop) - c:RegisterEffect(e4) -end -function c41517968.poscon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler()==Duel.GetAttacker() and e:GetHandler():IsRelateToBattle() -end -function c41517968.posop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) - end -end -function c41517968.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c41517968.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--E・HERO ダーク・ブライトマン +function c41517968.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcCode2(c,20721928,89252153,true,true) + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(aux.fuslimit) + c:RegisterEffect(e1) + --pierce + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_PIERCE) + c:RegisterEffect(e2) + --to defense + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_DAMAGE_STEP_END) + e3:SetCondition(c41517968.poscon) + e3:SetOperation(c41517968.posop) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(41517968,0)) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetCode(EVENT_DESTROYED) + e4:SetTarget(c41517968.destg) + e4:SetOperation(c41517968.desop) + c:RegisterEffect(e4) +end +function c41517968.poscon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler()==Duel.GetAttacker() and e:GetHandler():IsRelateToBattle() +end +function c41517968.posop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsAttackPos() then + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) + end +end +function c41517968.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c41517968.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c41546.lua b/script/c41546.lua new file mode 100644 index 00000000..b215c1a7 --- /dev/null +++ b/script/c41546.lua @@ -0,0 +1,94 @@ +--DD魔導賢者トーマス +function c41546.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --tohand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(41546,0)) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1,41546) + e1:SetTarget(c41546.thtg) + e1:SetOperation(c41546.thop) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(41546,1)) + e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1,41547) + e2:SetTarget(c41546.destg) + e2:SetOperation(c41546.desop) + c:RegisterEffect(e2) +end +function c41546.thfilter(c) + return c:IsFaceup() and c:IsSetCard(0xaf) and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand() +end +function c41546.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c41546.thfilter,tp,LOCATION_EXTRA,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_EXTRA) +end +function c41546.thop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c41546.thfilter,tp,LOCATION_EXTRA,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c41546.desfilter(c) + return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsSetCard(0xaf) +end +function c41546.spfilter(c,e,tp) + return c:IsSetCard(0x10af) and c:GetLevel()==8 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c41546.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and c41546.desfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c41546.desfilter,tp,LOCATION_SZONE,0,1,nil) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c41546.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c41546.desfilter,tp,LOCATION_SZONE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c41546.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c41546.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + local tc=g:GetFirst() + if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + Duel.SpecialSummonComplete() + end + end + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_CHANGE_DAMAGE) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetTargetRange(0,1) + e3:SetValue(c41546.val) + e3:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e3,tp) +end +function c41546.val(e,re,dam,r,rp,rc) + if bit.band(r,REASON_BATTLE)~=0 then + return math.floor(dam/2) + else return dam end +end diff --git a/script/c41554273.lua b/script/c41554273.lua index 6f375350..fdcbeaf1 100644 --- a/script/c41554273.lua +++ b/script/c41554273.lua @@ -23,8 +23,8 @@ function c41554273.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c41554273.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) local tc=g:GetFirst() - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then - local e1=Effect.CreateEffect(tc) + if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then + local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_PHASE+PHASE_END) e1:SetCountLimit(1) @@ -34,7 +34,7 @@ function c41554273.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetOperation(c41554273.desop) Duel.RegisterEffect(e1,tp) tc:RegisterFlagEffect(41554273,RESET_EVENT+0x1fe0000,0,1) - local e2=Effect.CreateEffect(tc) + local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e2:SetRange(LOCATION_MZONE) @@ -43,6 +43,7 @@ function c41554273.activate(e,tp,eg,ep,ev,re,r,rp) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e2) end + Duel.SpecialSummonComplete() end function c41554273.descon(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetLabelObject() diff --git a/script/c41566979.lua b/script/c41566979.lua deleted file mode 100644 index 9105ccd7..00000000 --- a/script/c41566979.lua +++ /dev/null @@ -1,105 +0,0 @@ ---Graverobber -function c41566979.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c41566979.target) - e1:SetOperation(c41566979.operation) - c:RegisterEffect(e1) -end -function c41566979.filter1(c,e,tp,eg,ep,ev,re,r,rp) - return c:CheckActivateEffect(false,true,false)~=nil or c:IsType(TYPE_MONSTER) -end -function c41566979.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) -if chk==0 then return Duel.IsExistingTarget(c41566979.filter,tp,0,LOCATION_GRAVE,1,nil) end -e:SetProperty(EFFECT_FLAG_CARD_TARGET) -e:SetCategory(0) - local ft=Duel.GetLocationCount(tp,LOCATION_SZONE) - local mt=Duel.GetLocationCount(tp,LOCATION_MZONE) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - if Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then - Duel.SelectTarget(tp,c41566979.filter1,tp,0,LOCATION_GRAVE,1,1,nil) - end -end -function c41566979.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - local tpe=tc:GetType() - if bit.band(tpe,TYPE_MONSTER)~=0 then - Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP) - end - if bit.band(tpe,TYPE_EQUIP+TYPE_CONTINUOUS+TYPE_FIELD+TYPE_MONSTER)==0 then - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - te=tc:GetActivateEffect() - tg=te:GetTarget() - co=te:GetCost() - op=te:GetOperation() - e:SetCategory(te:GetCategory()) - e:SetProperty(te:GetProperty()) - Duel.ClearTargetCard() - tc:CreateEffectRelation(te) - if co then co(te,tp,eg,ep,ev,re,r,rp,1) end - if tg then tg(te,tp,eg,ep,ev,re,r,rp,1) end - Duel.BreakEffect() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local etc=g:GetFirst() - while etc do - etc:CreateEffectRelation(te) - etc=g:GetNext() - end - if op==te:GetOperation() then op(te,tp,eg,ep,ev,re,r,rp) end - tc:ReleaseEffectRelation(te) - etc=g:GetFirst() - while etc do - etc:ReleaseEffectRelation(te) - etc=g:GetNext() - end - Duel.SendtoGrave(tc,REASON_EFFECT) -else - if bit.band(tpe,TYPE_EQUIP+TYPE_CONTINUOUS)~=0 then - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - tpe=tc:GetType() - te=tc:GetActivateEffect() - tg=te:GetTarget() - co=te:GetCost() - op=te:GetOperation() - e:SetCategory(te:GetCategory()) - e:SetProperty(te:GetProperty()) - Duel.ClearTargetCard() - tc:CreateEffectRelation(te) - if co then co(te,tp,eg,ep,ev,re,r,rp,1) end - if tg then tg(te,tp,eg,ep,ev,re,r,rp,1) end - Duel.BreakEffect() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local etc=g:GetFirst() - while etc do - etc:CreateEffectRelation(te) - etc=g:GetNext() - end - if op then op(te,tp,eg,ep,ev,re,r,rp) end - tc:ReleaseEffectRelation(te) - etc=g:GetFirst() - while etc do - etc:ReleaseEffectRelation(te) - etc=g:GetNext() - end - else - if bit.band(tpe,TYPE_FIELD)~=0 then - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - end - if co then co(e,tp,eg,ep,ev,re,r,rp,1) end - if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end - Duel.BreakEffect() - if op then op(e,tp,eg,ep,ev,re,r,rp) end - if bit.band(tpe,TYPE_FIELD)~=0 then - local of=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5) - if of then Duel.Destroy(of,REASON_RULE) end - end - end - end - end \ No newline at end of file diff --git a/script/c4162088.lua b/script/c4162088.lua index 44db40af..dc454429 100644 --- a/script/c4162088.lua +++ b/script/c4162088.lua @@ -20,7 +20,7 @@ function c4162088.initial_effect(c) c:RegisterEffect(e2) end function c4162088.filter(c,atk) - return c:IsFaceup() and (c:IsAttackAbove(atk) or c:IsDefenceAbove(atk)) and c:IsDestructable() + return c:IsFaceup() and (c:IsAttackAbove(atk) or c:IsDefenseAbove(atk)) end function c4162088.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c4162088.filter(chkc,e:GetHandler():GetAttack()) end diff --git a/script/c41628550.lua b/script/c41628550.lua index 82d81764..22ee870d 100644 --- a/script/c41628550.lua +++ b/script/c41628550.lua @@ -27,6 +27,6 @@ end function c41628550.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end diff --git a/script/c41639001.lua b/script/c41639001.lua index eae01a84..76058a3e 100644 --- a/script/c41639001.lua +++ b/script/c41639001.lua @@ -3,7 +3,7 @@ function c41639001.initial_effect(c) --spsummon local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(41639001,0)) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_F) + e1:SetType(EFFECT_TYPE_QUICK_F) e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) e1:SetCode(EVENT_CHAINING) @@ -22,7 +22,6 @@ function c41639001.spcon(e,tp,eg,ep,ev,re,r,rp) end function c41639001.spfilter(c,e,tp) return c:IsType(TYPE_NORMAL) and c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c41639001.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -33,6 +32,7 @@ function c41639001.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c41639001.spfilter,tp,0x13,0,1,1,nil,e,tp) local tc=g:GetFirst() + if tc and tc:IsHasEffect(EFFECT_NECRO_VALLEY) then return end if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) @@ -41,16 +41,8 @@ function c41639001.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) tc:RegisterEffect(e2) Duel.SpecialSummonComplete() - elseif Duel.IsPlayerCanSpecialSummon(tp) then - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_DECK,0) - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ConfirmCards(tp,cg2) - Duel.ShuffleHand(tp) - Duel.ShuffleDeck(tp) end end diff --git a/script/c41705642.lua b/script/c41705642.lua index 0de46ce9..7603dd32 100644 --- a/script/c41705642.lua +++ b/script/c41705642.lua @@ -15,7 +15,7 @@ function c41705642.spcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE end function c41705642.filter(c,e,tp) - return c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c41705642.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -26,7 +26,7 @@ function c41705642.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c41705642.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c41735184.lua b/script/c41735184.lua new file mode 100644 index 00000000..06067b26 --- /dev/null +++ b/script/c41735184.lua @@ -0,0 +1,39 @@ +--黒魔術の継承 +function c41735184.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,41735184+EFFECT_COUNT_CODE_OATH) + e1:SetCost(c41735184.cost) + e1:SetTarget(c41735184.target) + e1:SetOperation(c41735184.activate) + c:RegisterEffect(e1) +end +c41735184.card_code_list={46986414,38033121} +function c41735184.cfilter(c) + return c:IsType(TYPE_SPELL) and c:IsAbleToRemoveAsCost() +end +function c41735184.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c41735184.cfilter,tp,LOCATION_GRAVE,0,2,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c41735184.cfilter,tp,LOCATION_GRAVE,0,2,2,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c41735184.filter(c) + return (aux.IsCodeListed(c,46986414) or aux.IsCodeListed(c,38033121)) + and c:IsType(TYPE_SPELL+TYPE_TRAP) and not c:IsCode(41735184) and c:IsAbleToHand() +end +function c41735184.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c41735184.filter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c41735184.activate(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c41735184.filter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c41741922.lua b/script/c41741922.lua index eff1732b..cd323c5e 100644 --- a/script/c41741922.lua +++ b/script/c41741922.lua @@ -12,20 +12,21 @@ function c41741922.initial_effect(c) c:RegisterEffect(e1) end function c41741922.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDefencePos() and e:GetHandler():IsReleasable() end + if chk==0 then return e:GetHandler():IsDefensePos() and e:GetHandler():IsReleasable() end Duel.Release(e:GetHandler(),REASON_COST) end function c41741922.filter(c,e,tp) return c:IsLevelBelow(3) and c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c41741922.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c41741922.filter,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.IsExistingMatchingCard(c41741922.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_GRAVE) end function c41741922.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c41741922.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) @@ -36,7 +37,7 @@ function c41741922.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) g=Duel.SelectMatchingCard(tp,c41741922.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) tc=g:GetFirst() - if tc then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) end Duel.SpecialSummonComplete() diff --git a/script/c41753322.lua b/script/c41753322.lua index a9e7bd98..1b0a18a0 100644 --- a/script/c41753322.lua +++ b/script/c41753322.lua @@ -69,7 +69,7 @@ end function c41753322.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c41753322.postg2(e,tp,eg,ep,ev,re,r,rp,chk) @@ -79,7 +79,7 @@ function c41753322.postg2(e,tp,eg,ep,ev,re,r,rp,chk) end function c41753322.posop2(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsCanTurnSet,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) end function c41753322.dcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c41767843.lua b/script/c41767843.lua index b18eb858..a8697603 100644 --- a/script/c41767843.lua +++ b/script/c41767843.lua @@ -4,7 +4,7 @@ function c41767843.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(41767843,0)) e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e1:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetRange(LOCATION_HAND) e1:SetCondition(c41767843.condition) @@ -17,7 +17,7 @@ function c41767843.condition(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() if not d then return false end if a:IsControler(1-tp) then a,d=d,a end - return a:IsSetCard(0x9b) and a:IsRelateToBattle() and (d:GetAttack()>0 or d:GetDefence()>0) + return a:IsSetCard(0x9b) and a:IsRelateToBattle() and (d:GetAttack()>0 or d:GetDefense()>0) end function c41767843.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end @@ -35,6 +35,6 @@ function c41767843.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(0) d:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) d:RegisterEffect(e2) end diff --git a/script/c4178474.lua b/script/c4178474.lua index 88f7e76a..d84534b6 100644 --- a/script/c4178474.lua +++ b/script/c4178474.lua @@ -17,10 +17,10 @@ function c4178474.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c4178474.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() and chkc~=e:GetHandler() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c4178474.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c41790855.lua b/script/c41790855.lua deleted file mode 100644 index 1fee9005..00000000 --- a/script/c41790855.lua +++ /dev/null @@ -1,58 +0,0 @@ ---Life Shaver -function c41790855.initial_effect(c) ---discard -local e1=Effect.CreateEffect(c) -e1:SetCategory(CATEGORY_HANDES) -e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) -e1:SetType(EFFECT_TYPE_ACTIVATE) -e1:SetRange(LOCATION_SZONE) -e1:SetCode(EVENT_FREE_CHAIN) -e1:SetCost(c41790855.discost) -e1:SetTarget(c41790855.distg) -e1:SetOperation(c41790855.disop) -c:RegisterEffect(e1) ---turn count -c41790855.global_check=true -local ge=Effect.CreateEffect(c) -ge:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) -ge:SetCode(EVENT_TURN_END) -ge:SetCondition(c41790855.regcon) -ge:SetOperation(c41790855.regop) -Duel.RegisterEffect(ge,0) -end -function c41790855.regcon(e,tp,eg,ep,ev,re,r,rp) -return Duel.GetTurnPlayer()==tp -end -function c41790855.regop(e,tp,eg,ep,ev,re,r,rp) -local c=e:GetHandler() -local ct=c:GetFlagEffectLabel(41790855) -if not ct then -c:RegisterFlagEffect(41790855,RESET_EVENT+0x1fe0000,0,1,0) -else -c:SetFlagEffectLabel(41790855,ct+1) -end -end -function c41790855.discost(e,tp,eg,ep,ev,re,r,rp,chk) -if chk==0 then return e:GetHandler():IsReleasable() end -local ct=e:GetHandler():GetFlagEffectLabel(41790855) -if not ct then ct=0 end -e:SetLabel(ct) -Duel.Release(e:GetHandler(),REASON_COST) -end -function c41790855.distg(e,tp,eg,ep,ev,re,r,rp,chk) -if chk==0 then -local ct=e:GetHandler():GetFlagEffectLabel(41790855) -if not ct then ct=0 end -return Duel.GetFieldGroupCount(0,0,LOCATION_HAND)>ct-1 -end -local ct=e:GetLabel() -Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,ct-1) -end -function c41790855.disop(e,tp,eg,ep,ev,re,r,rp) -local ct=e:GetLabel() -if Duel.GetFieldGroupCount(0,0,LOCATION_HAND)>ct then -for i=1,ct+1 do -Duel.DiscardHand(1-tp,nil,1,1,REASON_EFFECT+REASON_DISCARD) -end -end -end \ No newline at end of file diff --git a/script/c4179255.lua b/script/c4179255.lua index dc515753..86623778 100644 --- a/script/c4179255.lua +++ b/script/c4179255.lua @@ -52,7 +52,7 @@ function c4179255.descon(e,tp,eg,ep,ev,re,r,rp) return c4179255.check() end function c4179255.desfilter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:IsDestructable() + return c:IsPosition(POS_FACEUP_ATTACK) end function c4179255.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c4179255.desfilter(chkc) end diff --git a/script/c41858121.lua b/script/c41858121.lua index a2729a5e..7eeb12c9 100644 --- a/script/c41858121.lua +++ b/script/c41858121.lua @@ -17,7 +17,7 @@ function c41858121.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c41858121.filter(chkc) end if chk==0 then return Duel.IsExistingTarget(c41858121.filter,tp,LOCATION_GRAVE,0,3,nil) and ((Duel.IsPlayerCanDraw(tp) and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0) - or Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil)) + or Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil)) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) local g=Duel.SelectTarget(tp,c41858121.filter,tp,LOCATION_GRAVE,0,3,3,nil) @@ -34,7 +34,7 @@ function c41858121.activate(e,tp,eg,ep,ev,re,r,rp) Duel.BreakEffect() local op=0 local b1=Duel.IsPlayerCanDraw(tp,1) - local b2=Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) + local b2=Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) Duel.Hint(HINT_SELECTMSG,tp,0) if b1 and b2 then op=Duel.SelectOption(tp,aux.Stringid(41858121,0),aux.Stringid(41858121,1)) elseif b1 then op=Duel.SelectOption(tp,aux.Stringid(41858121,0)) @@ -44,7 +44,7 @@ function c41858121.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Draw(tp,1,REASON_EFFECT) else Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local dg=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local dg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.Destroy(dg,REASON_EFFECT) end end diff --git a/script/c41859700.lua b/script/c41859700.lua old mode 100755 new mode 100644 diff --git a/script/c41872150.lua b/script/c41872150.lua index 7db03ee1..061a39ab 100644 --- a/script/c41872150.lua +++ b/script/c41872150.lua @@ -29,11 +29,11 @@ end function c41872150.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c41872150.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c41872150.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c41872150.filter(chkc) end diff --git a/script/c41925941.lua b/script/c41925941.lua index 9d0a4f23..e6c22794 100644 --- a/script/c41925941.lua +++ b/script/c41925941.lua @@ -20,18 +20,20 @@ function c41925941.condition(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() if a:IsControler(tp) then e:SetLabelObject(d) - return a:IsFaceup() and a:IsRace(RACE_FIEND) and a:IsRelateToBattle() and d and d:IsFaceup() and d:IsRelateToBattle() - else + return a:IsFaceup() and a:IsRace(RACE_FIEND) and a:IsRelateToBattle() + and d and d:IsFaceup() and d:IsRelateToBattle() + elseif d and d:IsControler(tp) then e:SetLabelObject(a) - return d:IsFaceup() and d:IsRace(RACE_FIEND) and d:IsRelateToBattle() and a and a:IsFaceup() and a:IsRelateToBattle() + return d:IsFaceup() and d:IsRace(RACE_FIEND) and d:IsRelateToBattle() + and a and a:IsFaceup() and a:IsRelateToBattle() end end function c41925941.cost(e,tp,eg,ep,ev,re,r,rp,chk) local bc=e:GetLabelObject() - if chk==0 then return Duel.CheckLPCost(tp,100) and (bc:IsAttackAbove(100) or bc:IsDefenceAbove(100)) end + if chk==0 then return Duel.CheckLPCost(tp,100) and (bc:IsAttackAbove(100) or bc:IsDefenseAbove(100)) end local maxc=Duel.GetLP(tp) local maxpay=bc:GetAttack() - local def=bc:GetDefence() + local def=bc:GetDefense() if maxpay5000 then maxc=5000 end @@ -61,6 +63,6 @@ function c41925941.operation(e,tp,eg,ep,ev,re,r,rp,chk) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) bc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) bc:RegisterEffect(e2) end diff --git a/script/c4192696.lua b/script/c4192696.lua old mode 100755 new mode 100644 diff --git a/script/c41940225.lua b/script/c41940225.lua index 041b76d0..f68bc449 100644 --- a/script/c41940225.lua +++ b/script/c41940225.lua @@ -33,11 +33,7 @@ function c41940225.filter2(c,e,tp,m,f,chkf) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) end function c41940225.spfilter(c) - if not c.material then return false end - for i,mcode in ipairs(c.material) do - if mcode==78193831 then return true end - end - return false + return aux.IsMaterialListCode(c,78193831) end function c41940225.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then diff --git a/script/c42023223.lua b/script/c42023223.lua new file mode 100644 index 00000000..e2b82e22 --- /dev/null +++ b/script/c42023223.lua @@ -0,0 +1,68 @@ +--電磁石の戦士α +function c42023223.initial_effect(c) + --to hand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(42023223,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetCountLimit(1,42023223) + e1:SetTarget(c42023223.thtg) + e1:SetOperation(c42023223.thop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(42023223,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c42023223.spcon) + e3:SetCost(c42023223.spcost) + e3:SetTarget(c42023223.sptg) + e3:SetOperation(c42023223.spop) + c:RegisterEffect(e3) +end +function c42023223.thfilter(c) + return c:IsSetCard(0xe9) and c:GetLevel()==8 and c:IsAbleToHand() +end +function c42023223.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c42023223.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c42023223.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c42023223.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c42023223.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp +end +function c42023223.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c42023223.spfilter(c,e,tp) + return c:IsSetCard(0x2066) and c:GetLevel()==4 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c42023223.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c42023223.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c42023223.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c42023223.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + end +end diff --git a/script/c42035045.lua b/script/c42035045.lua deleted file mode 100644 index 3e8dff31..00000000 --- a/script/c42035045.lua +++ /dev/null @@ -1,17 +0,0 @@ ---漆黒の豹戦士パンサーウォリアー -function c42035045.initial_effect(c) - --attack cost - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_ATTACK_COST) - e1:SetCost(c42035045.atcost) - e1:SetOperation(c42035045.atop) - c:RegisterEffect(e1) -end -function c42035045.atcost(e,c,tp) - return Duel.CheckReleaseGroup(tp,nil,1,e:GetHandler()) -end -function c42035045.atop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.SelectReleaseGroup(tp,nil,1,1,e:GetHandler()) - Duel.Release(g,REASON_COST) -end diff --git a/script/c4206964.lua b/script/c4206964.lua index 5001b950..03defc7e 100644 --- a/script/c4206964.lua +++ b/script/c4206964.lua @@ -17,8 +17,7 @@ function c4206964.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if not eg then return false end local tc=eg:GetFirst() if chkc then return chkc==tc end - if chk==0 then return ep~=tp and tc:IsFaceup() and tc:GetAttack()>=1000 and tc:IsOnField() - and tc:IsCanBeEffectTarget(e) and tc:IsDestructable() end + if chk==0 then return ep~=tp and tc:IsFaceup() and tc:GetAttack()>=1000 and tc:IsOnField() and tc:IsCanBeEffectTarget(e) end Duel.SetTargetCard(eg) Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) end diff --git a/script/c42079445.lua b/script/c42079445.lua index 02cb7bd3..ae9f797e 100644 --- a/script/c42079445.lua +++ b/script/c42079445.lua @@ -24,7 +24,7 @@ end function c42079445.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) @@ -43,7 +43,7 @@ function c42079445.spop(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e3,true) local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_SET_DEFENCE_FINAL) + e4:SetCode(EFFECT_SET_DEFENSE_FINAL) e4:SetValue(0) e4:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e4,true) diff --git a/script/c42110604.lua b/script/c42110604.lua old mode 100755 new mode 100644 index 2a8ea051..d6ad4314 --- a/script/c42110604.lua +++ b/script/c42110604.lua @@ -1,63 +1,62 @@ ---HSRチャンバライダー -function c42110604.initial_effect(c) - c:SetSPSummonOnce(42110604) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --extra attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) - e1:SetValue(1) - c:RegisterEffect(e1) - --attack up - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(42110604,0)) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_BATTLE_START) - e2:SetCondition(c42110604.condition) - e2:SetOperation(c42110604.operation) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(42110604,1)) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e3:SetTarget(c42110604.thtg) - e3:SetOperation(c42110604.thop) - c:RegisterEffect(e3) -end -function c42110604.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsRelateToBattle() -end -function c42110604.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(200) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - end -end -function c42110604.thfilter(c) - return c:IsSetCard(0x2016) and c:IsAbleToHand() -end -function c42110604.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c42110604.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c42110604.thfilter,tp,LOCATION_REMOVED,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c42110604.thfilter,tp,LOCATION_REMOVED,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c42110604.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--HSRチャンバライダー +function c42110604.initial_effect(c) + c:SetSPSummonOnce(42110604) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --extra attack + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_EXTRA_ATTACK) + e1:SetValue(1) + c:RegisterEffect(e1) + --attack up + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(42110604,0)) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_BATTLE_START) + e2:SetCondition(c42110604.condition) + e2:SetOperation(c42110604.operation) + c:RegisterEffect(e2) + --tohand + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(42110604,1)) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetTarget(c42110604.thtg) + e3:SetOperation(c42110604.thop) + c:RegisterEffect(e3) +end +function c42110604.condition(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsRelateToBattle() +end +function c42110604.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsFaceup() and c:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(200) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + end +end +function c42110604.thfilter(c) + return c:IsFaceup() and c:IsSetCard(0x2016) and c:IsAbleToHand() +end +function c42110604.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c42110604.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c42110604.thfilter,tp,LOCATION_REMOVED,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c42110604.thfilter,tp,LOCATION_REMOVED,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c42110604.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c42143067.lua b/script/c42143067.lua new file mode 100644 index 00000000..4dee0095 --- /dev/null +++ b/script/c42143067.lua @@ -0,0 +1,55 @@ +--怒気土器 +function c42143067.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(42143067,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,42143067) + e1:SetCost(c42143067.spcost) + e1:SetTarget(c42143067.sptg) + e1:SetOperation(c42143067.spop) + c:RegisterEffect(e1) +end +function c42143067.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(100) + return true +end +function c42143067.cfilter(c,e,tp) + return c:IsRace(RACE_ROCK) and c:IsDiscardable() + and Duel.IsExistingMatchingCard(c42143067.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetOriginalAttribute(),c:GetOriginalLevel()) +end +function c42143067.spfilter(c,e,tp,att,lv) + return c:IsRace(RACE_ROCK) and c:GetOriginalAttribute()==att and c:GetOriginalLevel()==lv + and (c:IsCanBeSpecialSummoned(e,0,tp,false,false) or c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN)) +end +function c42143067.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + if e:GetLabel()~=100 then return false end + e:SetLabel(0) + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c42143067.cfilter,tp,LOCATION_HAND,0,1,nil,e,tp) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) + local g=Duel.SelectMatchingCard(tp,c42143067.cfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp) + e:SetLabelObject(g:GetFirst()) + Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) +end +function c42143067.spop(e,tp,eg,ep,ev,re,r,rp) + local gc=e:GetLabelObject() + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c42143067.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,gc:GetOriginalAttribute(),gc:GetOriginalLevel()) + local tc=g:GetFirst() + if tc then + local spos=0 + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then spos=spos+POS_FACEUP_ATTACK end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENSE end + Duel.SpecialSummon(tc,0,tp,tp,false,false,spos) + if tc:IsFacedown() then + Duel.ConfirmCards(1-tp,tc) + end + end +end diff --git a/script/c42175079.lua b/script/c42175079.lua index fb816109..f1764f54 100644 --- a/script/c42175079.lua +++ b/script/c42175079.lua @@ -19,11 +19,11 @@ function c42175079.condition(e,tp,eg,ep,ev,re,r,rp) and Duel.IsExistingMatchingCard(c42175079.filter,tp,LOCATION_ONFIELD,0,1,nil) end function c42175079.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c42175079.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c42199039.lua b/script/c42199039.lua old mode 100755 new mode 100644 diff --git a/script/c42216237.lua b/script/c42216237.lua index 6d10dde5..374d00c4 100644 --- a/script/c42216237.lua +++ b/script/c42216237.lua @@ -49,7 +49,9 @@ function c42216237.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c42216237.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c42237854.lua b/script/c42237854.lua new file mode 100644 index 00000000..7e53b878 --- /dev/null +++ b/script/c42237854.lua @@ -0,0 +1,115 @@ +--機動要塞 メタル・ホールド +function c42237854.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_EQUIP) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c42237854.target) + e1:SetOperation(c42237854.activate) + c:RegisterEffect(e1) + --atk limit + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(0,LOCATION_MZONE) + e2:SetValue(c42237854.atlimit) + c:RegisterEffect(e2) + --cannot be target + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_SET_AVAILABLE) + e3:SetRange(LOCATION_MZONE) + e3:SetTargetRange(LOCATION_MZONE,0) + e3:SetTarget(c42237854.tgtg) + e3:SetValue(aux.tgoval) + c:RegisterEffect(e3) +end +function c42237854.filter(c) + return c:IsFaceup() and c:IsRace(RACE_MACHINE) and c:GetLevel()==4 +end +function c42237854.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c42237854.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c42237854.filter,tp,LOCATION_MZONE,0,1,nil) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 + and Duel.IsPlayerCanSpecialSummonMonster(tp,42237854,0,0x21,0,0,4,RACE_MACHINE,ATTRIBUTE_EARTH) end + local ft=Duel.GetLocationCount(tp,LOCATION_SZONE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + local g=Duel.SelectTarget(tp,c42237854.filter,tp,LOCATION_MZONE,0,1,ft,nil) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) + Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,g:GetCount(),0,0) +end +function c42237854.tgfilter(c,e) + return c:IsFaceup() and c:IsRelateToEffect(e) +end +function c42237854.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + or not Duel.IsPlayerCanSpecialSummonMonster(tp,42237854,0,0x21,0,0,4,RACE_MACHINE,ATTRIBUTE_EARTH) then return end + c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + --atk + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(c42237854.atkval) + c:RegisterEffect(e1) + c:AddMonsterAttributeComplete() + Duel.SpecialSummonComplete() + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c42237854.tgfilter,nil,e) + local ft=Duel.GetLocationCount(tp,LOCATION_SZONE) + if g:GetCount()<=0 or ft<=0 then return end + local tg=nil + if ft0 then + Duel.BreakEffect() + local tc=tg:GetFirst() + while tc do + Duel.Equip(tp,tc,c,false,true) + tc:RegisterFlagEffect(42237854,RESET_EVENT+0x1fe0000,0,0) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_EQUIP_LIMIT) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(c42237854.eqlimit) + tc:RegisterEffect(e1,true) + tc=tg:GetNext() + end + Duel.EquipComplete() + end +end +function c42237854.atkval(e,c) + local atk=0 + local g=c:GetEquipGroup() + local tc=g:GetFirst() + while tc do + if tc:GetFlagEffect(42237854)~=0 and tc:GetAttack()>=0 then + atk=atk+tc:GetAttack() + end + tc=g:GetNext() + end + return atk +end +function c42237854.eqlimit(e,c) + return e:GetOwner()==c +end +function c42237854.atlimit(e,c) + return c~=e:GetHandler() +end +function c42237854.tgtg(e,c) + return c~=e:GetHandler() +end diff --git a/script/c42256406.lua b/script/c42256406.lua old mode 100755 new mode 100644 index b32b714b..6c9398b2 --- a/script/c42256406.lua +++ b/script/c42256406.lua @@ -1,6 +1,6 @@ --カードブロッカー function c42256406.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(42256406,0)) e1:SetCategory(CATEGORY_POSITION) @@ -22,10 +22,13 @@ function c42256406.initial_effect(c) e4:SetCode(EVENT_BE_BATTLE_TARGET) e4:SetRange(LOCATION_MZONE) e4:SetCondition(c42256406.cbcon) + e4:SetTarget(c42256406.cbtg) e4:SetOperation(c42256406.cbop) c:RegisterEffect(e4) + --def local e5=Effect.CreateEffect(c) e5:SetDescription(aux.Stringid(42256406,2)) + e5:SetCategory(CATEGORY_DEFCHANGE) e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e5:SetCode(EVENT_BE_BATTLE_TARGET) e5:SetCost(c42256406.defcost) @@ -39,7 +42,7 @@ end function c42256406.poop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsAttackPos() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c42256406.cbcon(e,tp,eg,ep,ev,re,r,rp) @@ -47,8 +50,14 @@ function c42256406.cbcon(e,tp,eg,ep,ev,re,r,rp) local bt=eg:GetFirst() return r~=REASON_REPLACE and c~=bt and bt:IsFaceup() and bt:GetControler()==c:GetControler() end +function c42256406.cbtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetAttacker():GetAttackableTarget():IsContains(e:GetHandler()) end +end function c42256406.cbop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeAttackTarget(e:GetHandler()) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and not Duel.GetAttacker():IsImmuneToEffect(e) then + Duel.ChangeAttackTarget(c) + end end function c42256406.defcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsPlayerCanDiscardDeckAsCost(tp,1) end @@ -71,7 +80,7 @@ function c42256406.defop(e,tp,eg,ep,ev,re,r,rp) local ct=e:GetLabel() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) e1:SetValue(ct*500) c:RegisterEffect(e1) diff --git a/script/c42280216.lua b/script/c42280216.lua index 6b8b3452..9977ca67 100644 --- a/script/c42280216.lua +++ b/script/c42280216.lua @@ -30,8 +30,7 @@ function c42280216.shcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsReason(REASON_DESTROY) end function c42280216.filter(c) - local code=c:GetCode() - return (code==78275321 or code==78552773) and c:IsAbleToHand() + return c:IsCode(78275321,78552773) and c:IsAbleToHand() end function c42280216.shtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c42280216.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c42291297.lua b/script/c42291297.lua new file mode 100644 index 00000000..64cdab92 --- /dev/null +++ b/script/c42291297.lua @@ -0,0 +1,107 @@ +--花札衛－雨四光－ +function c42291297.initial_effect(c) + c:EnableReviveLimit() + --synchro summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetRange(LOCATION_EXTRA) + e1:SetCondition(aux.SynCondition(nil,aux.NonTuner(nil),3,3)) + e1:SetTarget(aux.SynTarget(nil,aux.NonTuner(nil),3,3)) + e1:SetOperation(aux.SynOperation(nil,aux.NonTuner(nil),3,3)) + e1:SetValue(SUMMON_TYPE_SYNCHRO) + c:RegisterEffect(e1) + --indes + local e2=Effect.CreateEffect(c) + e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xe6)) + e2:SetValue(1) + c:RegisterEffect(e2) + --cannot be target + local e3=e2:Clone() + e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e3:SetValue(aux.tgoval) + c:RegisterEffect(e3) + --damage + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(42291297,0)) + e4:SetCategory(CATEGORY_DAMAGE) + e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e4:SetCode(EVENT_DRAW) + e4:SetRange(LOCATION_MZONE) + e4:SetCondition(c42291297.damcon) + e4:SetTarget(c42291297.damtg) + e4:SetOperation(c42291297.damop) + c:RegisterEffect(e4) + --ep effects + local e5=Effect.CreateEffect(c) + e5:SetCategory(CATEGORY_DISABLE) + e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e5:SetCode(EVENT_PHASE+PHASE_END) + e5:SetRange(LOCATION_MZONE) + e5:SetCountLimit(1) + e5:SetCondition(c42291297.epcon) + e5:SetTarget(c42291297.eptg) + e5:SetOperation(c42291297.epop) + c:RegisterEffect(e5) +end +function c42291297.damcon(e,tp,eg,ep,ev,re,r,rp) + return ep~=tp and r==REASON_RULE +end +function c42291297.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(1500) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1500) +end +function c42291297.damop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) +end +function c42291297.epcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp +end +function c42291297.eptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local c=e:GetHandler() + local op=0 + Duel.Hint(HINT_SELECTMSG,tp,550) + if aux.disfilter1(c) then op=Duel.SelectOption(tp,aux.Stringid(42291297,1),aux.Stringid(42291297,2)) + else op=Duel.SelectOption(tp,aux.Stringid(42291297,1)) end + if op==0 then + e:SetCategory(0) + else + e:SetCategory(CATEGORY_DISABLE) + Duel.SetOperationInfo(0,CATEGORY_DISABLE,c,1,0,0) + end + e:SetLabel(op) +end +function c42291297.epop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if e:GetLabel()==0 then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EFFECT_SKIP_DP) + e1:SetTargetRange(1,0) + e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN) + Duel.RegisterEffect(e1,tp) + elseif c:IsFaceup() and c:IsRelateToEffect(e) then + Duel.NegateRelatedChain(c,RESET_TURN_SET) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY+RESET_OPPO_TURN) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetValue(RESET_TURN_SET) + c:RegisterEffect(e2) + end +end diff --git a/script/c42303365.lua b/script/c42303365.lua index 2d494b9c..526dd1fc 100644 --- a/script/c42303365.lua +++ b/script/c42303365.lua @@ -22,9 +22,7 @@ function c42303365.ctltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c42303365.ctlop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:GetAttack()==0 and not Duel.GetControl(tc,tp) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:GetAttack()==0 then + Duel.GetControl(tc,tp) end end diff --git a/script/c42328171.lua b/script/c42328171.lua index 83d6e5c2..fe392c27 100644 --- a/script/c42328171.lua +++ b/script/c42328171.lua @@ -30,7 +30,7 @@ function c42328171.thop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) and c:IsControler(tp) and tc:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) Duel.SendtoHand(tc,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,tc) end diff --git a/script/c42338879.lua b/script/c42338879.lua index ee20bbb9..81079a89 100644 --- a/script/c42338879.lua +++ b/script/c42338879.lua @@ -13,6 +13,7 @@ function c42338879.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e2:SetCondition(c42338879.recon) e2:SetValue(LOCATION_REMOVED) c:RegisterEffect(e2) diff --git a/script/c423585.lua b/script/c423585.lua index 33a89040..023be20b 100644 --- a/script/c423585.lua +++ b/script/c423585.lua @@ -1,6 +1,6 @@ --召喚僧サモンプリースト function c423585.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(423585,0)) e1:SetCategory(CATEGORY_POSITION) @@ -42,7 +42,7 @@ end function c423585.poop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsAttackPos() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c423585.costfilter(c) diff --git a/script/c42364257.lua b/script/c42364257.lua index 28361978..bc4dcac0 100644 --- a/script/c42364257.lua +++ b/script/c42364257.lua @@ -16,11 +16,11 @@ end function c42364257.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c42364257.activate(e,tp,eg,ep,ev,re,r,rp) Duel.NegateEffect(ev) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c42364374.lua b/script/c42364374.lua index 9da8f140..1ac1a910 100644 --- a/script/c42364374.lua +++ b/script/c42364374.lua @@ -10,7 +10,7 @@ function c42364374.initial_effect(c) e1:SetCondition(c42364374.con) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e2) end function c42364374.filter(c) diff --git a/script/c42386471.lua b/script/c42386471.lua old mode 100755 new mode 100644 diff --git a/script/c4239451.lua b/script/c4239451.lua index 3646a2e1..3d7dfe63 100644 --- a/script/c4239451.lua +++ b/script/c4239451.lua @@ -38,15 +38,22 @@ function c4239451.adop1(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() then + local atk=tc:GetAttack() + local def=tc:GetDefense() local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SWAP_AD) + e1:SetCode(EFFECT_SWAP_ATTACK_FINAL) + e1:SetValue(def) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_SWAP_DEFENSE_FINAL) + e2:SetValue(atk) + tc:RegisterEffect(e2) end end function c4239451.adcon2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_BATTLE and Duel.GetCurrentChain()==0 + return Duel.GetTurnPlayer()==tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) and Duel.GetCurrentChain()==0 end function c4239451.adtg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end @@ -57,11 +64,19 @@ end function c4239451.adop2(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) - and Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)~=0 then + and Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)~=0 then + local atk=tc:GetAttack() + local def=tc:GetDefense() local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SWAP_AD) + e1:SetCode(EFFECT_SWAP_ATTACK_FINAL) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetValue(def) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_SWAP_DEFENSE_FINAL) + e2:SetValue(atk) + tc:RegisterEffect(e2) end end diff --git a/script/c42421606.lua b/script/c42421606.lua index f6df32c6..97df7231 100644 --- a/script/c42421606.lua +++ b/script/c42421606.lua @@ -1,74 +1,74 @@ ---No.85 クレイジー・ボックス -function c42421606.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,4,2) - c:EnableReviveLimit() - -- - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(42421606,0)) - e2:SetCategory(CATEGORY_DICE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCost(c42421606.efcost) - e2:SetTarget(c42421606.eftg) - e2:SetOperation(c42421606.efop) - c:RegisterEffect(e2) -end -c42421606.xyz_number=85 -function c42421606.efcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c42421606.eftg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) -end -function c42421606.efop(e,tp,eg,ep,ev,re,r,rp) - local dc=Duel.TossDice(tp,1) - if dc==1 then - Duel.SetLP(tp,Duel.GetLP(tp)/2) - elseif dc==2 then - Duel.Draw(tp,1,REASON_EFFECT) - elseif dc==3 then - if Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 then - Duel.DiscardHand(1-tp,nil,1,1,REASON_EFFECT+REASON_DISCARD) - end - elseif dc==4 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectMatchingCard(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - if g:GetCount()>0 then - Duel.HintSelection(g) - local tc=g:GetFirst() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetValue(RESET_TURN_SET) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e2) - end - elseif dc==5 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - if g:GetCount()>0 then - Duel.HintSelection(g) - Duel.Destroy(g,REASON_EFFECT) - end - else - if e:GetHandler():IsRelateToEffect(e) then - Duel.Destroy(e:GetHandler(),REASON_EFFECT) - end - end -end +--No.85 クレイジー・ボックス +function c42421606.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,4,2) + c:EnableReviveLimit() + -- + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_ATTACK) + c:RegisterEffect(e1) + -- + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(42421606,0)) + e2:SetCategory(CATEGORY_DICE) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCost(c42421606.efcost) + e2:SetTarget(c42421606.eftg) + e2:SetOperation(c42421606.efop) + c:RegisterEffect(e2) +end +c42421606.xyz_number=85 +function c42421606.efcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c42421606.eftg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) +end +function c42421606.efop(e,tp,eg,ep,ev,re,r,rp) + local dc=Duel.TossDice(tp,1) + if dc==1 then + Duel.SetLP(tp,Duel.GetLP(tp)/2) + elseif dc==2 then + Duel.Draw(tp,1,REASON_EFFECT) + elseif dc==3 then + if Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 then + Duel.DiscardHand(1-tp,nil,1,1,REASON_EFFECT+REASON_DISCARD) + end + elseif dc==4 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectMatchingCard(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + if g:GetCount()>0 then + Duel.HintSelection(g) + local tc=g:GetFirst() + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetValue(RESET_TURN_SET) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + end + elseif dc==5 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + if g:GetCount()>0 then + Duel.HintSelection(g) + Duel.Destroy(g,REASON_EFFECT) + end + else + if e:GetHandler():IsRelateToEffect(e) then + Duel.Destroy(e:GetHandler(),REASON_EFFECT) + end + end +end diff --git a/script/c4252828.lua b/script/c4252828.lua old mode 100755 new mode 100644 diff --git a/script/c42534368.lua b/script/c42534368.lua index f7aa3766..2caf14a9 100644 --- a/script/c42534368.lua +++ b/script/c42534368.lua @@ -24,7 +24,7 @@ end function c42534368.activate(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then + if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_ATTACK) diff --git a/script/c4253484.lua b/script/c4253484.lua index 0d813377..7454c2e0 100644 --- a/script/c4253484.lua +++ b/script/c4253484.lua @@ -3,7 +3,7 @@ function c4253484.initial_effect(c) --def local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_BASE_DEFENCE) + e1:SetCode(EFFECT_SET_BASE_DEFENSE) e1:SetCondition(c4253484.defcon) e1:SetValue(2400) c:RegisterEffect(e1) diff --git a/script/c42548470.lua b/script/c42548470.lua index 33a868f6..1f64c37c 100644 --- a/script/c42548470.lua +++ b/script/c42548470.lua @@ -33,10 +33,10 @@ function c42548470.activate(e,tp,eg,ep,ev,re,r,rp) local tc2=g:GetNext() local lv1=tc1:GetLevel() local lv2=tc2:GetLevel() - if lv1==lv2 then return end if tc1:IsFaceup() and tc1:IsRelateToEffect(e) and tc2:IsFaceup() and tc2:IsRelateToEffect(e) then Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TARGET) local sg=g:Select(1-tp,1,1,nil) + if lv1==lv2 then return end if sg:GetFirst()==tc1 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c42551040.lua b/script/c42551040.lua index f0f1920c..067e1b0d 100644 --- a/script/c42551040.lua +++ b/script/c42551040.lua @@ -35,10 +35,10 @@ function c42551040.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c42551040.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.ChangePosition(tc,POS_FACEUP_DEFENCE)~=0 then + if tc:IsRelateToEffect(e) and Duel.ChangePosition(tc,POS_FACEUP_DEFENSE)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_DEFENCE_FINAL) + e1:SetCode(EFFECT_SET_DEFENSE_FINAL) e1:SetValue(0) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) diff --git a/script/c42562690.lua b/script/c42562690.lua index 3f8a6b62..0c08aea7 100644 --- a/script/c42562690.lua +++ b/script/c42562690.lua @@ -20,7 +20,7 @@ function c42562690.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c42562690.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.ChangePosition(c,POS_FACEUP_DEFENCE)~=0 then + if c:IsRelateToEffect(e) and Duel.ChangePosition(c,POS_FACEUP_DEFENSE)~=0 then Duel.NegateAttack() end end diff --git a/script/c42566602.lua b/script/c42566602.lua new file mode 100644 index 00000000..71414667 --- /dev/null +++ b/script/c42566602.lua @@ -0,0 +1,61 @@ +--瑚之龍 +function c42566602.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(42566602,0)) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1) + e1:SetCost(c42566602.cost) + e1:SetTarget(c42566602.target) + e1:SetOperation(c42566602.operation) + c:RegisterEffect(e1) + --draw + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(42566602,1)) + e2:SetCategory(CATEGORY_DRAW) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCountLimit(1,42566602) + e2:SetCondition(c42566602.drcon) + e2:SetTarget(c42566602.drtg) + e2:SetOperation(c42566602.drop) + c:RegisterEffect(e2) +end +function c42566602.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) +end +function c42566602.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c42566602.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c42566602.drcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_MZONE) and c:GetSummonType()==SUMMON_TYPE_SYNCHRO +end +function c42566602.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c42566602.drop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end diff --git a/script/c42578427.lua b/script/c42578427.lua index 5a060a87..195e5d94 100644 --- a/script/c42578427.lua +++ b/script/c42578427.lua @@ -16,8 +16,7 @@ end function c42578427.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local tc=eg:GetFirst() if chkc then return chkc==tc end - if chk==0 then return ep~=tp and tc:IsFaceup() and tc:GetAttack()<=500 and tc:IsOnField() - and tc:IsCanBeEffectTarget(e) and tc:IsDestructable() end + if chk==0 then return ep~=tp and tc:IsFaceup() and tc:GetAttack()<=500 and tc:IsOnField() and tc:IsCanBeEffectTarget(e) end Duel.SetTargetCard(eg) Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) end diff --git a/script/c4259068.lua b/script/c4259068.lua index 77e3064d..ea6f2f9e 100644 --- a/script/c4259068.lua +++ b/script/c4259068.lua @@ -11,7 +11,7 @@ function c4259068.initial_effect(c) e2:SetCode(EFFECT_LPCOST_CHANGE) e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(1,1) + e2:SetTargetRange(1,0) e2:SetValue(c4259068.costchange) c:RegisterEffect(e2) end diff --git a/script/c42592719.lua b/script/c42592719.lua old mode 100755 new mode 100644 diff --git a/script/c42598242.lua b/script/c42598242.lua index 994f703c..5fecd03b 100644 --- a/script/c42598242.lua +++ b/script/c42598242.lua @@ -15,7 +15,7 @@ function c42598242.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c42598242.filter(c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL and c:IsDestructable() + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL end function c42598242.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c42598242.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c42647539.lua b/script/c42647539.lua index 68895b4f..184aadd4 100644 --- a/script/c42647539.lua +++ b/script/c42647539.lua @@ -27,6 +27,6 @@ end function c42647539.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c42664990.lua b/script/c42664990.lua deleted file mode 100644 index bbd75f38..00000000 --- a/script/c42664990.lua +++ /dev/null @@ -1,30 +0,0 @@ ---Card of Sanctity -function c42664990.initial_effect(c) ---Activate -local e1=Effect.CreateEffect(c) -e1:SetCategory(CATEGORY_DRAW) -e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) -e1:SetType(EFFECT_TYPE_ACTIVATE) -e1:SetCode(EVENT_FREE_CHAIN) -e1:SetTarget(c42664990.target) -e1:SetOperation(c42664990.operation) -c:RegisterEffect(e1) -end -function c42664990.target(e,tp,eg,ep,ev,re,r,rp,chk) -if chk==0 then return Duel.IsPlayerCanDraw(tp) end -local ht=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) -Duel.SetTargetPlayer(tp,1-tp) -Duel.SetTargetParam(6-ht) -Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,1-tp,tp,6-ht) -end -function c42664990.operation(e,tp,eg,ep,ev,re,r,rp) -local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) -local ht=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) -if(ht<6) then -Duel.Draw(tp,6-ht,REASON_EFFECT) -end -local ht=Duel.GetFieldGroupCount(1-tp,LOCATION_HAND,0) -if(ht<6) then -Duel.Draw(1-tp,6-ht,REASON_EFFECT) -end -end diff --git a/script/c4266839.lua b/script/c4266839.lua index 624dc198..82c809cb 100644 --- a/script/c4266839.lua +++ b/script/c4266839.lua @@ -11,7 +11,7 @@ function c4266839.initial_effect(c) c:RegisterEffect(e1) end function c4266839.eqcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==e:GetHandler() and e:GetHandler():GetBattlePosition()==POS_FACEDOWN_DEFENCE + return Duel.GetAttackTarget()==e:GetHandler() and e:GetHandler():GetBattlePosition()==POS_FACEDOWN_DEFENSE end function c4266839.eqop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c42671151.lua b/script/c42671151.lua index 25d7ca60..b49a2a83 100644 --- a/script/c42671151.lua +++ b/script/c42671151.lua @@ -33,7 +33,7 @@ function c42671151.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) token:RegisterEffect(e1,true) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) token:RegisterEffect(e2,true) Duel.SpecialSummonComplete() end diff --git a/script/c42685062.lua b/script/c42685062.lua index fab0fca4..405fee3a 100644 --- a/script/c42685062.lua +++ b/script/c42685062.lua @@ -36,7 +36,7 @@ function c42685062.sumop(e,tp,eg,ep,ev,re,r,rp,c) e2:SetValue(1300) c:RegisterEffect(e2) local e3=e1:Clone() - e3:SetCode(EFFECT_SET_BASE_DEFENCE) + e3:SetCode(EFFECT_SET_BASE_DEFENSE) e3:SetValue(900) c:RegisterEffect(e3) end diff --git a/script/c42713844.lua b/script/c42713844.lua new file mode 100644 index 00000000..c9bb9c91 --- /dev/null +++ b/script/c42713844.lua @@ -0,0 +1,79 @@ +--Subterror Behemoth Umastryx +function c42713844.initial_effect(c) + --flip + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(42713844,0)) + e1:SetCategory(CATEGORY_REMOVE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e1:SetCountLimit(1,42713844) + e1:SetTarget(c42713844.rmtg) + e1:SetOperation(c42713844.rmop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(42713844,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetRange(LOCATION_HAND) + e2:SetCode(EVENT_CHANGE_POS) + e2:SetCondition(c42713844.spcon) + e2:SetTarget(c42713844.sptg) + e2:SetOperation(c42713844.spop) + c:RegisterEffect(e2) + --turn set + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(42713844,2)) + e3:SetCategory(CATEGORY_POSITION) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_MZONE) + e3:SetTarget(c42713844.postg) + e3:SetOperation(c42713844.posop) + c:RegisterEffect(e3) +end +function c42713844.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToRemove() end + if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) +end +function c42713844.rmop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) + end +end +function c42713844.cfilter(c,tp) + return c:IsPreviousPosition(POS_FACEUP) and c:IsFacedown() and c:IsControler(tp) +end +function c42713844.spcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c42713844.cfilter,1,nil,tp) + and not Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) +end +function c42713844.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c42713844.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)==0 + and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c42713844.postg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:IsCanTurnSet() and c:GetFlagEffect(42713844)==0 end + c:RegisterFlagEffect(42713844,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) + Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0) +end +function c42713844.posop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and c:IsFaceup() then + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) + end +end diff --git a/script/c42776855.lua b/script/c42776855.lua index 3080ee4e..e1838967 100644 --- a/script/c42776855.lua +++ b/script/c42776855.lua @@ -7,24 +7,48 @@ function c42776855.initial_effect(c) e1:SetHintTiming(0,0x1e0) e1:SetProperty(EFFECT_FLAG_CARD_TARGET) e1:SetTarget(c42776855.target) - e1:SetOperation(c42776855.operation) c:RegisterEffect(e1) - --Destroy local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_LEAVE_FIELD_P) - e2:SetOperation(c42776855.checkop) + e2:SetRange(LOCATION_SZONE) + e2:SetCode(EVENT_CHAIN_SOLVED) + e2:SetLabelObject(e1) + e2:SetCondition(c42776855.tgcon) + e2:SetOperation(c42776855.tgop) c:RegisterEffect(e2) - --Destroy2 + --indes local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetProperty(EFFECT_FLAG_DELAY) - e3:SetCondition(c42776855.descon2) - e3:SetOperation(c42776855.desop2) + e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e3:SetTarget(c42776855.indestg) + e3:SetValue(1) c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e4:SetValue(c42776855.efilter) + c:RegisterEffect(e4) + --destroy + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(42776855,0)) + e5:SetCategory(CATEGORY_DESTROY) + e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e5:SetCode(EVENT_BATTLE_START) + e5:SetRange(LOCATION_SZONE) + e5:SetCondition(c42776855.atkcon) + e5:SetOperation(c42776855.atkop) + c:RegisterEffect(e5) + --Destroy2 + local e7=Effect.CreateEffect(c) + e7:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e7:SetRange(LOCATION_SZONE) + e7:SetCode(EVENT_LEAVE_FIELD) + e7:SetProperty(EFFECT_FLAG_DELAY) + e7:SetCondition(c42776855.descon2) + e7:SetOperation(c42776855.desop2) + c:RegisterEffect(e7) end function c42776855.filter(c) return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) @@ -35,69 +59,34 @@ function c42776855.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) Duel.SelectTarget(tp,c42776855.filter,tp,LOCATION_MZONE,0,1,1,nil) end -function c42776855.operation(e,tp,eg,ep,ev,re,r,rp) +function c42776855.tgcon(e,tp,eg,ep,ev,re,r,rp) + return re==e:GetLabelObject() +end +function c42776855.tgop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then + local tc=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS):GetFirst() + if c:IsRelateToEffect(re) and tc:IsFaceup() and tc:IsRelateToEffect(re) then c:SetCardTarget(tc) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetCondition(c42776855.rcon) - e1:SetValue(1) - tc:RegisterEffect(e1,true) - local e2=e1:Clone() - e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e2:SetValue(c42776855.efilter) - tc:RegisterEffect(e2,true) - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(42776855,0)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_BATTLE_START) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c42776855.atkcon) - e3:SetTarget(c42776855.atktg) - e3:SetOperation(c42776855.atkop) - e3:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e3) end end -function c42776855.rcon(e) - return e:GetOwner():IsHasCardTarget(e:GetHandler()) +function c42776855.indestg(e,c) + return e:GetHandler():IsHasCardTarget(c) end function c42776855.efilter(e,re) return e:GetOwnerPlayer()~=re:GetOwnerPlayer() end -function c42776855.checkop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsDisabled() then - e:SetLabel(1) - else e:SetLabel(0) end -end -function c42776855.descon2(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetFirstCardTarget() - return tc and eg:IsContains(tc) -end -function c42776855.desop2(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end function c42776855.atkcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=c:GetFirstCardTarget() + if not tc then return false end local bc=tc:GetBattleTarget() - return tc and tc:IsLocation(LOCATION_MZONE) and bc and bc:IsFaceup() and bc:IsLocation(LOCATION_MZONE) and bc:IsLevelAbove(5) -end -function c42776855.atktg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(42776855)==0 end - e:GetHandler():RegisterFlagEffect(42776855,RESET_CHAIN,0,1) + return tc:IsLocation(LOCATION_MZONE) and bc and bc:IsFaceup() and bc:IsLocation(LOCATION_MZONE) and bc:IsLevelAbove(5) end function c42776855.atkop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if not c:IsRelateToEffect(e) then return end local tc=c:GetFirstCardTarget() + if not tc then return false end local bc=tc:GetBattleTarget() local atk=bc:GetBaseAttack() if bc:IsRelateToBattle() and Duel.Destroy(bc,REASON_EFFECT)~=0 and bc:IsType(TYPE_MONSTER) then @@ -105,7 +94,14 @@ function c42776855.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UPDATE_ATTACK) e1:SetValue(atk) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) end end +function c42776855.descon2(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetHandler():GetFirstCardTarget() + return tc and eg:IsContains(tc) +end +function c42776855.desop2(e,tp,eg,ep,ev,re,r,rp) + Duel.Destroy(e:GetHandler(),REASON_EFFECT) +end diff --git a/script/c42776960.lua b/script/c42776960.lua old mode 100755 new mode 100644 diff --git a/script/c42851643.lua b/script/c42851643.lua index f616ae3a..e7f4fe05 100644 --- a/script/c42851643.lua +++ b/script/c42851643.lua @@ -8,7 +8,7 @@ function c42851643.initial_effect(c) e1:SetTarget(c42851643.lvtg) e1:SetOperation(c42851643.lvop) c:RegisterEffect(e1) - --to defence + --to defense local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e2:SetCode(EVENT_DAMAGE_STEP_END) @@ -47,6 +47,6 @@ end function c42851643.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end diff --git a/script/c42880485.lua b/script/c42880485.lua index c8edb4ef..083f8a44 100644 --- a/script/c42880485.lua +++ b/script/c42880485.lua @@ -49,16 +49,9 @@ function c42880485.initial_effect(c) -- local e8=Effect.CreateEffect(c) e8:SetType(EFFECT_TYPE_SINGLE) - e8:SetCode(EFFECT_DEFENCE_ATTACK) + e8:SetCode(EFFECT_DEFENSE_ATTACK) e8:SetValue(1) c:RegisterEffect(e8) - --add setcode - local e9=Effect.CreateEffect(c) - e9:SetType(EFFECT_TYPE_SINGLE) - e9:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e9:SetCode(EFFECT_ADD_SETCODE) - e9:SetValue(0x9a) - c:RegisterEffect(e9) end function c42880485.splimcon(e) return not e:GetHandler():IsForbidden() @@ -94,7 +87,7 @@ end function c42880485.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end function c42880485.otfilter(c,tp) diff --git a/script/c42901635.lua b/script/c42901635.lua new file mode 100644 index 00000000..2b1f95dd --- /dev/null +++ b/script/c42901635.lua @@ -0,0 +1,143 @@ +--電磁石の戦士マグネット・ベルセリオン +function c42901635.initial_effect(c) + c:EnableReviveLimit() + --special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c42901635.spcon) + e1:SetOperation(c42901635.spop) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetCost(c42901635.cost) + e2:SetTarget(c42901635.target) + e2:SetOperation(c42901635.activate) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_DESTROYED) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetCondition(c42901635.spcon2) + e3:SetTarget(c42901635.sptg2) + e3:SetOperation(c42901635.spop2) + c:RegisterEffect(e3) +end +function c42901635.cfilter(c) + return (c:IsLocation(LOCATION_HAND+LOCATION_GRAVE) or c:IsFaceup()) and c:IsAbleToRemoveAsCost() +end +function c42901635.sprfilter1(c,mg,ft) + local mg2=mg:Clone() + local ct=ft + if c:IsLocation(LOCATION_MZONE) then ct=ct+1 end + mg2:RemoveCard(c) + return c:IsCode(42023223) and mg2:IsExists(c42901635.sprfilter2,1,nil,mg2,ct) +end +function c42901635.sprfilter2(c,mg,ft) + local mg2=mg:Clone() + local ct=ft + if c:IsLocation(LOCATION_MZONE) then ct=ct+1 end + mg2:RemoveCard(c) + return c:IsCode(79418928) and mg2:IsExists(c42901635.sprfilter3,1,nil,ct) +end +function c42901635.sprfilter3(c,ft) + local ct=ft + if c:IsLocation(LOCATION_MZONE) then ct=ct+1 end + return c:IsCode(15502037) and ct>0 +end +function c42901635.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local mg=Duel.GetMatchingGroup(c42901635.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,0,nil) + return mg:IsExists(c42901635.sprfilter1,1,nil,mg,ft) +end +function c42901635.spop(e,tp,eg,ep,ev,re,r,rp,c) + local mg=Duel.GetMatchingGroup(c42901635.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,0,nil) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g1=mg:FilterSelect(tp,c42901635.sprfilter1,1,1,nil,mg,ft) + local tc1=g1:GetFirst() + mg:RemoveCard(tc1) + if tc1:IsLocation(LOCATION_MZONE) then ft=ft+1 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g2=mg:FilterSelect(tp,c42901635.sprfilter2,1,1,nil,mg,ft) + local tc2=g2:GetFirst() + if tc2:IsLocation(LOCATION_MZONE) then ft=ft+1 end + mg:RemoveCard(tc2) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g3=mg:FilterSelect(tp,c42901635.sprfilter3,1,1,nil,ft) + g1:Merge(g2) + g1:Merge(g3) + Duel.Remove(g1,POS_FACEUP,REASON_COST) +end +function c42901635.costfilter(c) + return c:IsType(TYPE_MONSTER) and (c:IsSetCard(0x2066) or c:IsCode(99785935,39256679,11549357)) and c:IsLevelBelow(4) and c:IsAbleToRemoveAsCost() +end +function c42901635.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c42901635.costfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c42901635.costfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c42901635.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c42901635.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c42901635.spcon2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_BATTLE) + or (rp~=tp and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp) +end +function c42901635.spfilter(c,e,tp,code) + return c:IsFaceup() and c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c42901635.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 + and Duel.IsExistingTarget(c42901635.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp,42023223) + and Duel.IsExistingTarget(c42901635.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp,79418928) + and Duel.IsExistingTarget(c42901635.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp,15502037) + and not Duel.IsPlayerAffectedByEffect(tp,59822133) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g1=Duel.SelectMatchingCard(tp,c42901635.spfilter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp,42023223) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g2=Duel.SelectMatchingCard(tp,c42901635.spfilter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp,79418928) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g3=Duel.SelectMatchingCard(tp,c42901635.spfilter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp,15502037) + g1:Merge(g2) + g1:Merge(g3) + Duel.SetTargetCard(g1) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,3,0,0) +end +function c42901635.spop2(e,tp,eg,ep,ev,re,r,rp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if ft<=0 or g:GetCount()==0 or g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if g:GetCount()<=ft then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg=g:Select(tp,ft,ft,nil) + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) + g:Sub(sg) + Duel.SendtoGrave(g,REASON_RULE) + end +end diff --git a/script/c4290468.lua b/script/c4290468.lua index ddd360a7..b13c88fd 100644 --- a/script/c4290468.lua +++ b/script/c4290468.lua @@ -53,7 +53,7 @@ function c4290468.atkop(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) end function c4290468.dacon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE and e:GetHandler():GetAttackedGroupCount()~=0 + return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) and e:GetHandler():GetAttackedGroupCount()~=0 and Duel.GetAttacker()==nil and Duel.GetCurrentChain()==0 end function c4290468.dacost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c42921475.lua b/script/c42921475.lua new file mode 100644 index 00000000..8761b295 --- /dev/null +++ b/script/c42921475.lua @@ -0,0 +1,74 @@ +--妖精伝姫－ターリア +function c42921475.initial_effect(c) + --flip + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(42921475,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetTarget(c42921475.sptg) + e1:SetOperation(c42921475.spop) + c:RegisterEffect(e1) + --change effect + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(42921475,1)) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_CHAINING) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1,42921475) + e2:SetCondition(c42921475.chcon) + e2:SetCost(c42921475.chcost) + e2:SetTarget(c42921475.chtg) + e2:SetOperation(c42921475.chop) + c:RegisterEffect(e2) +end +function c42921475.spfilter(c,e,tp) + return c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c42921475.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c42921475.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c42921475.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c42921475.spfilter,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 +function c42921475.chcon(e,tp,eg,ep,ev,re,r,rp) + local rc=re:GetHandler() + return rp==1-tp and (rc:GetType()==TYPE_SPELL or rc:GetType()==TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE) +end +function c42921475.cfilter(c) + return not c:IsStatus(STATUS_BATTLE_DESTROYED) +end +function c42921475.chcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,c42921475.cfilter,1,e:GetHandler()) end + local g=Duel.SelectReleaseGroup(tp,c42921475.cfilter,1,1,e:GetHandler()) + Duel.Release(g,REASON_COST) +end +function c42921475.filter(c) + return c:IsFaceup() and c:IsCanTurnSet() +end +function c42921475.chtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c42921475.filter,rp,0,LOCATION_MZONE,1,nil) end +end +function c42921475.chop(e,tp,eg,ep,ev,re,r,rp) + local g=Group.CreateGroup() + Duel.ChangeTargetCard(ev,g) + Duel.ChangeChainOperation(ev,c42921475.repop) +end +function c42921475.repop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:GetType()==TYPE_SPELL or c:GetType()==TYPE_TRAP then + c:CancelToGrave(false) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectMatchingCard(tp,c42921475.filter,tp,0,LOCATION_MZONE,1,1,nil) + if g:GetCount()>0 then + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) + end +end diff --git a/script/c42940404.lua b/script/c42940404.lua index 4d827b73..5bfbe877 100644 --- a/script/c42940404.lua +++ b/script/c42940404.lua @@ -79,8 +79,10 @@ function c42940404.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c42940404.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c42940404.sfilter(c) diff --git a/script/c42956963.lua b/script/c42956963.lua old mode 100755 new mode 100644 index c33d7d6e..61c6b647 --- a/script/c42956963.lua +++ b/script/c42956963.lua @@ -16,54 +16,32 @@ function c42956963.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c42956963.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>2 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>2 and Duel.IsPlayerCanSpecialSummonMonster(tp,42956964,0x45,0x4011,2000,2000,6,RACE_FIEND,ATTRIBUTE_DARK,POS_FACEUP_ATTACK,1-tp) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,3,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,0) end function c42956963.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(1-tp,LOCATION_MZONE)<3 then return end if not Duel.IsPlayerCanSpecialSummonMonster(tp,42956964,0x45,0x4011,2000,2000,6,RACE_FIEND,ATTRIBUTE_DARK,POS_FACEUP_ATTACK,1-tp) then return end - local g=Group.CreateGroup() for i=1,3 do local token=Duel.CreateToken(tp,42956964) if Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_ATTACK) then - g:AddCard(token) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_LEAVE_FIELD) + e1:SetOperation(c42956963.damop) + token:RegisterEffect(e1,true) end end - g:KeepAlive() - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DESTROYED) - e2:SetLabelObject(g) - e2:SetCondition(c42956963.damcon) - e2:SetOperation(c42956963.damop) - Duel.RegisterEffect(e2,tp) Duel.SpecialSummonComplete() end -function c42956963.dfilter(c,g) - return g:IsContains(c) -end -function c42956963.damcon(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject() - if eg:IsExists(c42956963.dfilter,1,nil,g) then - return true - else - if not g:IsExists(Card.IsLocation,1,nil,LOCATION_MZONE) then - g:DeleteGroup() - e:Reset() - end - return false - end -end function c42956963.damop(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject() - local tc=eg:GetFirst() - while tc do - if g:IsContains(tc) then - Duel.Damage(tc:GetPreviousControler(),800,REASON_EFFECT) - g:RemoveCard(tc) - end - tc=eg:GetNext() + local c=e:GetHandler() + if c:IsReason(REASON_DESTROY) then + Duel.Damage(c:GetPreviousControler(),800,REASON_EFFECT) end + e:Reset() end diff --git a/script/c42994702.lua b/script/c42994702.lua index 46a56f27..ab505ce1 100644 --- a/script/c42994702.lua +++ b/script/c42994702.lua @@ -18,7 +18,7 @@ function c42994702.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c42994702.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() and Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE)>0 then + if c:IsRelateToEffect(e) and c:IsFaceup() and Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE)>0 then local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_MZONE,0,nil) Duel.ShuffleSetCard(g) end diff --git a/script/c43138260.lua b/script/c43138260.lua index f43c9e24..e44f5b5d 100644 --- a/script/c43138260.lua +++ b/script/c43138260.lua @@ -38,20 +38,22 @@ function c43138260.spfilter(c,e,tp) end function c43138260.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c43138260.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c43138260.spfilter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c43138260.spfilter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) end function c43138260.spop2(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()==0 then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,43140792,0x3e,0x4011,0,0,1,RACE_INSECT,ATTRIBUTE_EARTH) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c43140791.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,43140792,0x3e,0x4011,0,0,1,RACE_INSECT,ATTRIBUTE_EARTH) then for i=1,2 do local token=Duel.CreateToken(tp,43140792) diff --git a/script/c43175858.lua b/script/c43175858.lua old mode 100755 new mode 100644 index 7b7c118e..47edc4a9 --- a/script/c43175858.lua +++ b/script/c43175858.lua @@ -19,11 +19,11 @@ function c43175858.initial_effect(c) --cannot be target local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IMMEDIATELY_APPLY) + e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) e3:SetRange(LOCATION_FZONE) - e3:SetTargetRange(0,0xff) - e3:SetValue(c43175858.etarget) + e3:SetTargetRange(LOCATION_MZONE,0) + e3:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_TOON)) + e3:SetValue(aux.tgoval) c:RegisterEffect(e3) --destroy replace local e4=Effect.CreateEffect(c) @@ -48,9 +48,6 @@ function c43175858.activate(e,tp,eg,ep,ev,re,r,rp) Duel.DisableShuffleCheck() Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT) end -function c43175858.etarget(e,re,c) - return c:IsFaceup() and c:IsControler(e:GetHandlerPlayer()) and c:IsLocation(LOCATION_MZONE) and c:IsType(TYPE_TOON) -end function c43175858.repfilter(c,tp) return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsType(TYPE_TOON) and c:IsReason(REASON_BATTLE+REASON_EFFECT) diff --git a/script/c43191636.lua b/script/c43191636.lua index 6c529ee5..4f42b052 100644 --- a/script/c43191636.lua +++ b/script/c43191636.lua @@ -10,7 +10,7 @@ function c43191636.initial_effect(c) e1:SetCode(EFFECT_SET_BASE_ATTACK) e1:SetValue(2300) c:RegisterEffect(e1) - --to defence + --to defense local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -26,7 +26,7 @@ end function c43191636.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c43202238.lua b/script/c43202238.lua index 804c6157..42625fe9 100644 --- a/script/c43202238.lua +++ b/script/c43202238.lua @@ -36,16 +36,16 @@ function c43202238.initial_effect(c) c:RegisterEffect(e3) end function c43202238.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0x9e) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x9e) end function c43202238.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end if chk==0 then return Duel.IsExistingTarget(c43202238.desfilter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local g1=Duel.SelectTarget(tp,c43202238.desfilter,tp,LOCATION_MZONE,0,1,1,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g2=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) g1:Merge(g2) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0) end @@ -74,6 +74,6 @@ function c43202238.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c43202238.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c43237273.lua b/script/c43237273.lua index bbe45a9e..b7f0cc8c 100644 --- a/script/c43237273.lua +++ b/script/c43237273.lua @@ -20,8 +20,8 @@ end function c43237273.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc and c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsType(TYPE_TOKEN) then - local code=tc:GetOriginalCode() + if tc and c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() and not tc:IsType(TYPE_TOKEN) then + local code=tc:GetOriginalCodeRule() local cid=0 local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c43241495.lua b/script/c43241495.lua index 09db27e6..aa26d1fd 100644 --- a/script/c43241495.lua +++ b/script/c43241495.lua @@ -1,57 +1,57 @@ ---EMトランポリンクス -function c43241495.initial_effect(c) - --pendulum summon - aux.EnablePendulumAttribute(c) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(43241495,0)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1,43241495) - e2:SetCondition(c43241495.thcon) - e2:SetTarget(c43241495.thtg) - e2:SetOperation(c43241495.thop1) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(43241495,1)) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetTarget(c43241495.thtg) - e3:SetOperation(c43241495.thop2) - c:RegisterEffect(e3) -end -function c43241495.cfilter(c,tp) - return c:IsControler(tp) and c:GetSummonType()==SUMMON_TYPE_PENDULUM -end -function c43241495.thcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c43241495.cfilter,1,nil,tp) -end -function c43241495.filter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsAbleToHand() -end -function c43241495.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and c43241495.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c43241495.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c43241495.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c43241495.thop1(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end -function c43241495.thop2(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end +--EMトランポリンクス +function c43241495.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(43241495,0)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_PZONE) + e2:SetCountLimit(1,43241495) + e2:SetCondition(c43241495.thcon) + e2:SetTarget(c43241495.thtg) + e2:SetOperation(c43241495.thop1) + c:RegisterEffect(e2) + --tohand + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(43241495,1)) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_SUMMON_SUCCESS) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetTarget(c43241495.thtg) + e3:SetOperation(c43241495.thop2) + c:RegisterEffect(e3) +end +function c43241495.cfilter(c,tp) + return c:GetSummonPlayer()==tp and c:GetSummonType()==SUMMON_TYPE_PENDULUM +end +function c43241495.thcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c43241495.cfilter,1,nil,tp) +end +function c43241495.filter(c) + return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsAbleToHand() +end +function c43241495.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_SZONE) and c43241495.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c43241495.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) + local g=Duel.SelectTarget(tp,c43241495.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c43241495.thop1(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c43241495.thop2(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c43266605.lua b/script/c43266605.lua new file mode 100644 index 00000000..66793bd0 --- /dev/null +++ b/script/c43266605.lua @@ -0,0 +1,69 @@ +--PSYフレーム・マルチスレッダー +function c43266605.initial_effect(c) + --change name + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetCode(EFFECT_CHANGE_CODE) + e1:SetRange(LOCATION_HAND+LOCATION_GRAVE) + e1:SetValue(49036338) + c:RegisterEffect(e1) + --destroy replace + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EFFECT_DESTROY_REPLACE) + e2:SetRange(LOCATION_HAND) + e2:SetTarget(c43266605.reptg) + e2:SetValue(c43266605.repval) + e2:SetOperation(c43266605.repop) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(43266605,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetRange(LOCATION_GRAVE) + e3:SetCountLimit(1,43266605) + e3:SetCondition(c43266605.spcon) + e3:SetTarget(c43266605.sptg) + e3:SetOperation(c43266605.spop) + c:RegisterEffect(e3) +end +function c43266605.repfilter(c,tp) + return c:IsFaceup() and c:IsSetCard(0xc1) and c:IsOnField() and c:IsControler(tp) and c:IsReason(REASON_EFFECT+REASON_BATTLE) +end +function c43266605.reptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() and eg:IsExists(c43266605.repfilter,1,nil,tp) end + return Duel.SelectYesNo(tp,aux.Stringid(43266605,0)) +end +function c43266605.repval(e,c) + return c43266605.repfilter(c,e:GetHandlerPlayer()) +end +function c43266605.repop(e,tp,eg,ep,ev,re,r,rp) + Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT+REASON_DISCARD+REASON_REPLACE) +end +function c43266605.cfilter(c,tp) + return c:IsSetCard(0xc1) and c:IsType(TYPE_TUNER) and c:IsControler(tp) +end +function c43266605.spcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c43266605.cfilter,1,nil,tp) +end +function c43266605.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c43266605.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetReset(RESET_EVENT+0x47e0000) + e1:SetValue(LOCATION_REMOVED) + c:RegisterEffect(e1,true) + end +end diff --git a/script/c43318266.lua b/script/c43318266.lua index af11b840..00326617 100644 --- a/script/c43318266.lua +++ b/script/c43318266.lua @@ -35,7 +35,7 @@ function c43318266.initial_effect(c) c:RegisterEffect(e4) end function c43318266.sdcon(e) - return e:GetHandler():IsPosition(POS_FACEUP_DEFENCE) + return e:GetHandler():IsPosition(POS_FACEUP_DEFENSE) end function c43318266.cfilter(c) return c:IsFaceup() and c:IsSetCard(0x18) @@ -43,21 +43,18 @@ end function c43318266.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then local ct=Duel.GetMatchingGroupCount(c43318266.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - e:GetHandler():AddCounter(0x19,ct) + e:GetHandler():AddCounter(COUNTER_NEED_ENABLE+0x1019,ct) end end function c43318266.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x19,2,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x19,2,REASON_COST) -end -function c43318266.filter(c) - return c:IsDestructable() + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1019,2,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1019,2,REASON_COST) end function c43318266.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c43318266.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c43318266.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c43318266.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c43318266.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c4333086.lua b/script/c4333086.lua index fb708664..be1bea5d 100644 --- a/script/c4333086.lua +++ b/script/c4333086.lua @@ -1,75 +1,75 @@ ---不知火流 燕の太刀 -function c4333086.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,4333086+EFFECT_COUNT_CODE_OATH) - e1:SetHintTiming(0,0x1e0) - e1:SetCost(c4333086.cost) - e1:SetTarget(c4333086.target) - e1:SetOperation(c4333086.activate) - c:RegisterEffect(e1) -end -function c4333086.filter(c) - return c:IsSetCard(0xd9) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() -end -function c4333086.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(1) - return true -end -function c4333086.costfilter(c,e,dg) - if not c:IsRace(RACE_ZOMBIE) then return false end - local a=0 - if dg:IsContains(c) then a=1 end - if c:GetEquipCount()==0 then return dg:GetCount()-a>=2 end - local eg=c:GetEquipGroup() - local tc=eg:GetFirst() - while tc do - if dg:IsContains(tc) then a=a+1 end - tc=eg:GetNext() - end - return dg:GetCount()-a>=2 -end -function c4333086.tgfilter(c,e) - return c:IsDestructable() and c:IsCanBeEffectTarget(e) -end -function c4333086.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if e:GetLabel()==1 then - e:SetLabel(0) - local rg=Duel.GetReleaseGroup(tp) - local dg=Duel.GetMatchingGroup(c4333086.tgfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),e) - local res=rg:IsExists(c4333086.costfilter,1,e:GetHandler(),e,dg) - return res and Duel.IsExistingMatchingCard(c4333086.filter,tp,LOCATION_DECK,0,1,nil) - else - return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,e:GetHandler()) - and Duel.IsExistingMatchingCard(c4333086.filter,tp,LOCATION_DECK,0,1,nil) - end - end - if e:GetLabel()==1 then - e:SetLabel(0) - local rg=Duel.GetReleaseGroup(tp) - local dg=Duel.GetMatchingGroup(c4333086.tgfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),e) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local sg=rg:FilterSelect(tp,c4333086.costfilter,1,1,e:GetHandler(),e,dg) - Duel.Release(sg,REASON_COST) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,2,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c4333086.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if Duel.Destroy(g,REASON_EFFECT)~=0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local rg=Duel.SelectMatchingCard(tp,c4333086.filter,tp,LOCATION_DECK,0,1,1,nil) - if rg:GetCount()>0 then - Duel.BreakEffect() - Duel.Remove(rg,POS_FACEUP,REASON_EFFECT) - end - end -end +--不知火流 燕の太刀 +function c4333086.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,4333086+EFFECT_COUNT_CODE_OATH) + e1:SetHintTiming(0,0x1e0) + e1:SetCost(c4333086.cost) + e1:SetTarget(c4333086.target) + e1:SetOperation(c4333086.activate) + c:RegisterEffect(e1) +end +function c4333086.filter(c) + return c:IsSetCard(0xd9) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() +end +function c4333086.cost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(1) + return true +end +function c4333086.costfilter(c,e,dg) + if not c:IsRace(RACE_ZOMBIE) then return false end + local a=0 + if dg:IsContains(c) then a=1 end + if c:GetEquipCount()==0 then return dg:GetCount()-a>=2 end + local eg=c:GetEquipGroup() + local tc=eg:GetFirst() + while tc do + if dg:IsContains(tc) then a=a+1 end + tc=eg:GetNext() + end + return dg:GetCount()-a>=2 +end +function c4333086.tgfilter(c,e) + return c:IsCanBeEffectTarget(e) +end +function c4333086.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chk==0 then + if chkc then return chkc:IsOnField() end + if e:GetLabel()==1 then + e:SetLabel(0) + local rg=Duel.GetReleaseGroup(tp) + local dg=Duel.GetMatchingGroup(c4333086.tgfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),e) + local res=rg:IsExists(c4333086.costfilter,1,e:GetHandler(),e,dg) + return res and Duel.IsExistingMatchingCard(c4333086.filter,tp,LOCATION_DECK,0,1,nil) + else + return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,e:GetHandler()) + and Duel.IsExistingMatchingCard(c4333086.filter,tp,LOCATION_DECK,0,1,nil) + end + end + if e:GetLabel()==1 then + e:SetLabel(0) + local rg=Duel.GetReleaseGroup(tp) + local dg=Duel.GetMatchingGroup(c4333086.tgfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),e) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local sg=rg:FilterSelect(tp,c4333086.costfilter,1,1,e:GetHandler(),e,dg) + Duel.Release(sg,REASON_COST) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,2,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c4333086.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if Duel.Destroy(g,REASON_EFFECT)~=0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local rg=Duel.SelectMatchingCard(tp,c4333086.filter,tp,LOCATION_DECK,0,1,1,nil) + if rg:GetCount()>0 then + Duel.BreakEffect() + Duel.Remove(rg,POS_FACEUP,REASON_EFFECT) + end + end +end diff --git a/script/c4335645.lua b/script/c4335645.lua index 0fad8d8b..eb3c7f99 100644 --- a/script/c4335645.lua +++ b/script/c4335645.lua @@ -16,10 +16,10 @@ function c4335645.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c4335645.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c4335645.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c43366227.lua b/script/c43366227.lua index 3d87ea7b..b9b3bcbb 100644 --- a/script/c43366227.lua +++ b/script/c43366227.lua @@ -69,7 +69,7 @@ function c43366227.descon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c43366227.cfilter,1,nil,e:GetHandler(),tp) end function c43366227.desfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c43366227.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c43366227.desfilter(chkc) end diff --git a/script/c43378048.lua b/script/c43378048.lua index 3260f37e..06f0f6cb 100644 --- a/script/c43378048.lua +++ b/script/c43378048.lua @@ -39,7 +39,7 @@ function c43378048.splimit(e,se,sp,st) return e:GetHandler():GetLocation()~=LOCATION_EXTRA end function c43378048.spfilter(c,code) - return c:IsFaceup() and c:IsCode(code) and c:IsAbleToRemoveAsCost() + return c:IsFaceup() and c:IsFusionCode(code) and c:IsAbleToRemoveAsCost() end function c43378048.spcon(e,c) if c==nil then return true end diff --git a/script/c43378076.lua b/script/c43378076.lua index ae65eebc..18b4eef2 100644 --- a/script/c43378076.lua +++ b/script/c43378076.lua @@ -1,5 +1,7 @@ --羅刹 function c43378076.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c43378076.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c43378076.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --return local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(43378076,0)) @@ -66,39 +58,3 @@ function c43378076.sretop(e,tp,eg,ep,ev,re,r,rp) Duel.SendtoHand(tc,nil,REASON_EFFECT) end end -function c43378076.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(43378076,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c43378076.retcon) - e1:SetTarget(c43378076.rettg) - e1:SetOperation(c43378076.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c43378076.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c43378076.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c43378076.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c43383478.lua b/script/c43383478.lua old mode 100755 new mode 100644 index e8dd8f46..2c6ec857 --- a/script/c43383478.lua +++ b/script/c43383478.lua @@ -51,7 +51,7 @@ function c43383478.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) and Duel.IsExistingTarget(c43383478.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c43383478.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,tp,LOCATION_EXTRA) end function c43383478.activate(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end @@ -62,6 +62,8 @@ function c43383478.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(tp,c43383478.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc,tc:GetRank()+1) local sc=g:GetFirst() if sc then + Duel.BreakEffect() + sc:SetMaterial(Group.FromCards(tc)) Duel.Overlay(sc,Group.FromCards(tc)) Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) sc:CompleteProcedure() diff --git a/script/c43413875.lua b/script/c43413875.lua new file mode 100644 index 00000000..a9627f2f --- /dev/null +++ b/script/c43413875.lua @@ -0,0 +1,78 @@ +--花札衛－芒に月－ +function c43413875.initial_effect(c) + c:EnableReviveLimit() + --spsummon from hand + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_HAND) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetCondition(c43413875.hspcon) + e1:SetOperation(c43413875.hspop) + c:RegisterEffect(e1) + --draw(spsummon) + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(43413875,0)) + e2:SetCategory(CATEGORY_DRAW+CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetTarget(c43413875.target) + e2:SetOperation(c43413875.operation) + c:RegisterEffect(e2) + --draw(battle) + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DRAW) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_BATTLE_DESTROYING) + e3:SetCountLimit(1) + e3:SetCondition(aux.bdocon) + e3:SetTarget(c43413875.drtg) + e3:SetOperation(c43413875.drop) + c:RegisterEffect(e3) +end +function c43413875.hspfilter(c) + return c:IsSetCard(0xe6) and c:GetLevel()==8 and not c:IsCode(43413875) +end +function c43413875.hspcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.CheckReleaseGroup(c:GetControler(),c43413875.hspfilter,1,nil) +end +function c43413875.hspop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.SelectReleaseGroup(c:GetControler(),c43413875.hspfilter,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c43413875.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c43413875.operation(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + if Duel.Draw(p,d,REASON_EFFECT)~=0 then + local tc=Duel.GetOperatedGroup():GetFirst() + Duel.ConfirmCards(1-tp,tc) + Duel.BreakEffect() + if tc:IsType(TYPE_MONSTER) and tc:IsSetCard(0xe6) then + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.SelectYesNo(tp,aux.Stringid(43413875,1)) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end + else + Duel.SendtoGrave(tc,REASON_EFFECT) + end + Duel.ShuffleHand(tp) + end +end +function c43413875.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c43413875.drop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end diff --git a/script/c43434803.lua b/script/c43434803.lua index c9621788..7504a765 100644 --- a/script/c43434803.lua +++ b/script/c43434803.lua @@ -11,7 +11,7 @@ function c43434803.initial_effect(c) c:RegisterEffect(e1) end function c43434803.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENCE) + return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) end function c43434803.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end @@ -37,10 +37,10 @@ function c43434803.operation(e,tp,eg,ep,ev,re,r,rp) local oc=g:GetFirst() if oc==sc then oc=g:GetNext() end if sc:IsRelateToEffect(e) then - Duel.SpecialSummonStep(sc,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummonStep(sc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) end if oc:IsRelateToEffect(e) then - Duel.SpecialSummonStep(oc,0,1-tp,1-tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummonStep(oc,0,1-tp,1-tp,false,false,POS_FACEDOWN_DEFENSE) end Duel.SpecialSummonComplete() end diff --git a/script/c43455065.lua b/script/c43455065.lua index f031e409..22f62734 100644 --- a/script/c43455065.lua +++ b/script/c43455065.lua @@ -34,6 +34,7 @@ function c43455065.activate(e,tp,eg,ep,ev,re,r,rp) local rct=1 if Duel.GetTurnPlayer()~=tp then rct=2 end local c=e:GetHandler() + --indestructable local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) @@ -47,6 +48,7 @@ function c43455065.activate(e,tp,eg,ep,ev,re,r,rp) e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) e2:SetTargetRange(0,LOCATION_MZONE) Duel.RegisterEffect(e2,tp) + --cannot inactivate/disable local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetCode(EFFECT_CANNOT_INACTIVATE) @@ -59,9 +61,18 @@ function c43455065.activate(e,tp,eg,ep,ev,re,r,rp) e3:SetValue(c43455065.efilter) e3:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,rct) Duel.RegisterEffect(e3,tp) + --cannot disable + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_CANNOT_DISABLE) + e4:SetTargetRange(0,LOCATION_ONFIELD) + e4:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e4:SetTarget(c43455065.indtg) + e4:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,rct) + Duel.RegisterEffect(e4,tp) end function c43455065.indtg(e,c) - return c:IsLocation(LOCATION_SZONE) or (c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP)) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c43455065.efilter(e,ct) local te,tp=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER) diff --git a/script/c43476205.lua b/script/c43476205.lua index d5a8f784..ecaf46da 100644 --- a/script/c43476205.lua +++ b/script/c43476205.lua @@ -6,6 +6,7 @@ function c43476205.initial_effect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetHintTiming(0,TIMING_END_PHASE) e1:SetTarget(c43476205.target) e1:SetOperation(c43476205.activate) c:RegisterEffect(e1) @@ -46,12 +47,7 @@ function c43476205.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if Duel.GetTurnPlayer()~=tp then if not tc:IsRelateToEffect(e) or not tc:IsFaceup() then return end - if not Duel.GetControl(tc,tp) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - return - end + if Duel.GetControl(tc,tp)==0 then return end Duel.BreakEffect() end if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end diff --git a/script/c43509019.lua b/script/c43509019.lua old mode 100755 new mode 100644 index 704af6fc..c4afcc50 --- a/script/c43509019.lua +++ b/script/c43509019.lua @@ -1,10 +1,10 @@ --トゥーン・ディフェンス function c43509019.initial_effect(c) + --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetTarget(c43509019.cbtg) - e1:SetOperation(c43509019.cbop) e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c43509019.target) c:RegisterEffect(e1) --change battle target local e2=Effect.CreateEffect(c) @@ -12,25 +12,30 @@ function c43509019.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e2:SetCode(EVENT_ATTACK_ANNOUNCE) e2:SetRange(LOCATION_SZONE) - e2:SetLabel(1) e2:SetCondition(c43509019.cbcon) + e2:SetTarget(c43509019.cbtg) e2:SetOperation(c43509019.cbop) c:RegisterEffect(e2) end -function c43509019.cbtg(e,tp,eg,ep,ev,re,r,rp,chk) +function c43509019.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local bt=Duel.GetAttackTarget() - if Duel.CheckEvent(EVENT_ATTACK_ANNOUNCE) and bt and bt:IsFaceup() and bt:IsLevelBelow(4) and bt:IsType(TYPE_TOON) - and bt:GetControler()==e:GetHandlerPlayer() and Duel.SelectYesNo(tp,94) then - e:SetLabel(1) - else e:SetLabel(0) end + local res,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(EVENT_ATTACK_ANNOUNCE) + if res and c43509019.cbcon(e,tp,teg,tep,tev,tre,tr,trp) + and c43509019.cbtg(e,tp,teg,tep,tev,tre,tr,trp,0) + and Duel.SelectYesNo(tp,94) then + e:SetOperation(c43509019.cbop) + else + e:SetOperation(nil) + end end function c43509019.cbcon(e,tp,eg,ep,ev,re,r,rp) local bt=Duel.GetAttackTarget() return bt and bt:IsFaceup() and bt:IsLevelBelow(4) and bt:IsType(TYPE_TOON) and bt:GetControler()==e:GetHandlerPlayer() end +function c43509019.cbtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return not Duel.GetAttacker():IsHasEffect(EFFECT_CANNOT_DIRECT_ATTACK) end +end function c43509019.cbop(e,tp,eg,ep,ev,re,r,rp) - if e:GetLabel()==1 then - Duel.ChangeAttackTarget(nil) - end + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.ChangeAttackTarget(nil) end diff --git a/script/c43530283.lua b/script/c43530283.lua index 2b05ae31..038be286 100644 --- a/script/c43530283.lua +++ b/script/c43530283.lua @@ -23,7 +23,7 @@ function c43530283.adop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) e2:SetLabel(1200) c:RegisterEffect(e2) if Duel.GetTurnPlayer()==tp then diff --git a/script/c43543777.lua b/script/c43543777.lua index d0f47cbd..87ed7a2f 100644 --- a/script/c43543777.lua +++ b/script/c43543777.lua @@ -1,5 +1,7 @@ --伊弉波 function c43543777.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,17 +9,6 @@ function c43543777.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(43543777,0)) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c43543777.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --salvage local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(43543777,1)) @@ -54,39 +45,3 @@ function c43543777.thop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,tc) end end -function c43543777.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(43543777,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c43543777.retcon) - e1:SetTarget(c43543777.rettg) - e1:SetOperation(c43543777.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c43543777.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c43543777.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c43543777.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c43573231.lua b/script/c43573231.lua index a64f06d1..0a084141 100644 --- a/script/c43573231.lua +++ b/script/c43573231.lua @@ -35,7 +35,7 @@ function c43573231.adop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end diff --git a/script/c43577607.lua b/script/c43577607.lua index 832dc066..fd7e1c89 100644 --- a/script/c43577607.lua +++ b/script/c43577607.lua @@ -89,12 +89,12 @@ function c43577607.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(e:GetHandler(),REASON_COST) end function c43577607.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c43577607.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) if g:GetCount()>0 then Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c43586926.lua b/script/c43586926.lua index 84632394..85be9873 100644 --- a/script/c43586926.lua +++ b/script/c43586926.lua @@ -38,7 +38,7 @@ function c43586926.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e2) end end diff --git a/script/c43658697.lua b/script/c43658697.lua old mode 100755 new mode 100644 diff --git a/script/c43661068.lua b/script/c43661068.lua index a1f7623a..c992a880 100644 --- a/script/c43661068.lua +++ b/script/c43661068.lua @@ -16,16 +16,16 @@ function c43661068.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SelectTarget(tp,c43661068.tfilter,tp,LOCATION_MZONE,0,1,1,nil,tp) end function c43661068.filter(c,atk,def) - return c:IsFaceup() and c:GetLevel()>0 and (c:GetAttack()==atk or c:GetDefence()==def) + return c:IsFaceup() and c:GetLevel()>0 and (c:GetAttack()==atk or c:GetDefense()==def) end function c43661068.tfilter(c,tp) return c:IsFaceup() and c:GetLevel()>0 - and Duel.IsExistingMatchingCard(c43661068.filter,tp,LOCATION_MZONE,0,1,c,c:GetAttack(),c:GetDefence()) + and Duel.IsExistingMatchingCard(c43661068.filter,tp,LOCATION_MZONE,0,1,c,c:GetAttack(),c:GetDefense()) end function c43661068.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local g=Duel.GetMatchingGroup(c43661068.filter,tp,LOCATION_MZONE,0,tc,tc:GetAttack(),tc:GetDefence()) + local g=Duel.GetMatchingGroup(c43661068.filter,tp,LOCATION_MZONE,0,tc,tc:GetAttack(),tc:GetDefense()) local lv=tc:GetLevel() local lc=g:GetFirst() while lc do diff --git a/script/c43694481.lua b/script/c43694481.lua index dfe09f48..9f1867c1 100644 --- a/script/c43694481.lua +++ b/script/c43694481.lua @@ -6,10 +6,9 @@ function c43694481.initial_effect(c) e1:SetCategory(CATEGORY_DAMAGE) e1:SetType(EFFECT_TYPE_IGNITION) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_NO_TURN_RESET) - e1:SetCountLimit(1) + e1:SetCountLimit(1,43694481) e1:SetRange(LOCATION_MZONE) e1:SetCondition(c43694481.damcon) - e1:SetCost(c43694481.damcost) e1:SetTarget(c43694481.damtg) e1:SetOperation(c43694481.damop) c:RegisterEffect(e1) @@ -17,10 +16,6 @@ end function c43694481.damcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetAttack()>e:GetHandler():GetBaseAttack() end -function c43694481.damcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,43694481)==0 end - Duel.RegisterFlagEffect(tp,43694481,RESET_PHASE+PHASE_END,0,1) -end function c43694481.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end Duel.SetTargetPlayer(1-tp) diff --git a/script/c43698897.lua b/script/c43698897.lua old mode 100755 new mode 100644 index d17fa383..49805787 --- a/script/c43698897.lua +++ b/script/c43698897.lua @@ -1,122 +1,112 @@ ---デストーイ・ファクトリー -function c43698897.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1,43698897) - e2:SetCost(c43698897.spcost) - e2:SetTarget(c43698897.sptg) - e2:SetOperation(c43698897.spop) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e3:SetCountLimit(1,43698898) - e3:SetTarget(c43698897.thtg) - e3:SetOperation(c43698897.thop) - c:RegisterEffect(e3) -end -function c43698897.spfilter(c) - return c:IsSetCard(0x46) and c:IsType(TYPE_SPELL) and c:IsAbleToRemoveAsCost() -end -function c43698897.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c43698897.spfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c43698897.spfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c43698897.filter1(c,e) - return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) -end -function c43698897.filter2(c,e,tp,m,f,chkf) - return c:IsType(TYPE_FUSION) and c:IsSetCard(0xad) and (not f or f(c)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) -end -function c43698897.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_HAND+LOCATION_MZONE,0,nil) - local res=Duel.IsExistingMatchingCard(c43698897.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - res=Duel.IsExistingMatchingCard(c43698897.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c43698897.spop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c43698897.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) - local sg1=Duel.GetMatchingGroup(c43698897.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - sg2=Duel.GetMatchingGroup(c43698897.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end - end -end -function c43698897.thfilter(c) - return c:IsFaceup() and c:IsCode(6077601) and c:IsAbleToHand() -end -function c43698897.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_REMOVED) and c43698897.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c43698897.thfilter,tp,LOCATION_REMOVED,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c43698897.thfilter,tp,LOCATION_REMOVED,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c43698897.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--デストーイ・ファクトリー +function c43698897.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_SZONE) + e2:SetCountLimit(1,43698897) + e2:SetCost(c43698897.spcost) + e2:SetTarget(c43698897.sptg) + e2:SetOperation(c43698897.spop) + c:RegisterEffect(e2) + --tohand + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetCountLimit(1,43698898) + e3:SetTarget(c43698897.thtg) + e3:SetOperation(c43698897.thop) + c:RegisterEffect(e3) +end +function c43698897.spfilter(c) + return c:IsSetCard(0x46) and c:IsType(TYPE_SPELL) and c:IsAbleToRemoveAsCost() +end +function c43698897.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c43698897.spfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c43698897.spfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c43698897.filter1(c,e) + return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) +end +function c43698897.filter2(c,e,tp,m,f,chkf) + return c:IsType(TYPE_FUSION) and c:IsSetCard(0xad) and (not f or f(c)) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) +end +function c43698897.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_HAND+LOCATION_MZONE,0,nil) + local res=Duel.IsExistingMatchingCard(c43698897.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) + if not res then + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + local mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + res=Duel.IsExistingMatchingCard(c43698897.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) + end + end + return res + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c43698897.spop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(c43698897.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) + local sg1=Duel.GetMatchingGroup(c43698897.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) + local mg2=nil + local sg2=nil + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + sg2=Duel.GetMatchingGroup(c43698897.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) + end + if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then + local sg=sg1:Clone() + if sg2 then sg:Merge(sg2) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=sg:Select(tp,1,1,nil) + local tc=tg:GetFirst() + if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then + local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) + tc:SetMaterial(mat1) + Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) + else + local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) + local fop=ce:GetOperation() + fop(ce,e,tp,tc,mat2) + end + tc:CompleteProcedure() + end +end +function c43698897.thfilter(c) + return c:IsFaceup() and c:IsCode(6077601) and c:IsAbleToHand() +end +function c43698897.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_REMOVED) and c43698897.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c43698897.thfilter,tp,LOCATION_REMOVED,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c43698897.thfilter,tp,LOCATION_REMOVED,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c43698897.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c43708640.lua b/script/c43708640.lua index e7cf0c76..2f57331c 100644 --- a/script/c43708640.lua +++ b/script/c43708640.lua @@ -26,11 +26,13 @@ function c43708640.filter(c,e,tp) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c43708640.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c43708640.filter,tp,LOCATION_DECK,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c43708640.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetMatchingGroup(c43708640.filter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()>=2 then diff --git a/script/c43711255.lua b/script/c43711255.lua old mode 100755 new mode 100644 index 463f52cc..df7e9e2c --- a/script/c43711255.lua +++ b/script/c43711255.lua @@ -17,14 +17,6 @@ function c43711255.initial_effect(c) e2:SetTarget(c43711255.bantg) e2:SetLabelObject(e1) c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_DISABLE) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(0x7f,0x7f) - e3:SetTarget(c43711255.bantg) - e3:SetLabelObject(e1) - c:RegisterEffect(e3) end function c43711255.bantg(e,c) return c:IsCode(e:GetLabelObject():GetLabel()) and (not c:IsOnField() or c:GetRealFieldID()>e:GetFieldID()) @@ -40,4 +32,5 @@ function c43711255.activate(e,tp,eg,ep,ev,re,r,rp) local ac=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) e:SetLabel(ac) e:GetHandler():SetHint(CHINT_CARD,ac) + Duel.AdjustInstantly(e:GetHandler()) end diff --git a/script/c43730887.lua b/script/c43730887.lua new file mode 100644 index 00000000..db53a88c --- /dev/null +++ b/script/c43730887.lua @@ -0,0 +1,61 @@ +--ホールディング・アームズ +function c43730887.initial_effect(c) + --summon success + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(43730887,0)) + e1:SetCategory(CATEGORY_DISABLE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c43730887.target) + e1:SetOperation(c43730887.operation) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --disable + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_DISABLE) + e4:SetRange(LOCATION_MZONE) + e4:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e4:SetTarget(c43730887.distg) + c:RegisterEffect(e4) + --cannot attack + local e5=e4:Clone() + e5:SetCode(EFFECT_CANNOT_ATTACK) + c:RegisterEffect(e5) + --indes + local e6=Effect.CreateEffect(c) + e6:SetType(EFFECT_TYPE_SINGLE) + e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e6:SetRange(LOCATION_MZONE) + e6:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e6:SetCondition(c43730887.indcon) + e6:SetValue(1) + c:RegisterEffect(e6) + local e7=e6:Clone() + e7:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + c:RegisterEffect(e7) +end +function c43730887.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) +end +function c43730887.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then + c:SetCardTarget(tc) + end +end +function c43730887.distg(e,c) + return e:GetHandler():IsHasCardTarget(c) +end +function c43730887.indcon(e) + return e:GetHandler():GetFirstCardTarget()~=nil +end diff --git a/script/c43785278.lua b/script/c43785278.lua index c1b5a631..9ea6a363 100644 --- a/script/c43785278.lua +++ b/script/c43785278.lua @@ -7,6 +7,7 @@ function c43785278.initial_effect(c) e1:SetDescription(1160) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_HAND) e1:SetCost(c43785278.reg) c:RegisterEffect(e1) --destroy @@ -31,7 +32,7 @@ function c43785278.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetFlagEffect(43785278)~=0 end function c43785278.filter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c43785278.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c43785278.filter(chkc) end diff --git a/script/c43793530.lua b/script/c43793530.lua deleted file mode 100644 index 8d04dd91..00000000 --- a/script/c43793530.lua +++ /dev/null @@ -1,3 +0,0 @@ ---ギガ·ガガギゴ -function c43793530.initial_effect(c) -end diff --git a/script/c43845801.lua b/script/c43845801.lua new file mode 100644 index 00000000..c5dd4f49 --- /dev/null +++ b/script/c43845801.lua @@ -0,0 +1,53 @@ +--アルティメット・バースト +function c43845801.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCondition(c43845801.condition) + e1:SetTarget(c43845801.target) + e1:SetOperation(c43845801.activate) + c:RegisterEffect(e1) +end +function c43845801.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsAbleToEnterBP() +end +function c43845801.filter(c) + return c:IsFaceup() and bit.band(c:GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION + and c:IsCode(23995346) and not c:IsHasEffect(EFFECT_EXTRA_ATTACK) +end +function c43845801.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c43845801.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c43845801.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,c43845801.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c43845801.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_EXTRA_ATTACK) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetValue(2) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetCode(EFFECT_CANNOT_ACTIVATE) + e2:SetTargetRange(0,1) + e2:SetLabelObject(tc) + e2:SetValue(c43845801.aclimit) + e2:SetCondition(c43845801.actcon) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e2,tp) + end +end +function c43845801.actcon(e) + return Duel.GetAttacker()==e:GetLabelObject() +end +function c43845801.aclimit(e,re,tp) + return not re:GetHandler():IsImmuneToEffect(e) +end diff --git a/script/c43892408.lua b/script/c43892408.lua index efc1680e..7ef9b247 100644 --- a/script/c43892408.lua +++ b/script/c43892408.lua @@ -32,7 +32,7 @@ function c43892408.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsAbleToGraveAsCost,1,1,REASON_COST) end function c43892408.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c43892408.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c43892408.filter(chkc) end diff --git a/script/c43898403.lua b/script/c43898403.lua old mode 100755 new mode 100644 index e116fc91..0efbd278 --- a/script/c43898403.lua +++ b/script/c43898403.lua @@ -6,6 +6,7 @@ function c43898403.initial_effect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetProperty(EFFECT_FLAG_CARD_TARGET) e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMING_END_PHASE+TIMING_EQUIP) e1:SetCost(c43898403.cost) e1:SetTarget(c43898403.target) e1:SetOperation(c43898403.activate) @@ -16,7 +17,7 @@ function c43898403.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c43898403.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c43898403.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c43898403.filter(chkc) and chkc~=e:GetHandler() end diff --git a/script/c43912676.lua b/script/c43912676.lua index a6cdb341..9be13f9a 100644 --- a/script/c43912676.lua +++ b/script/c43912676.lua @@ -1,55 +1,55 @@ ---異層空間 -function c43912676.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --boost - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetRange(LOCATION_FZONE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_WYRM)) - e2:SetValue(300) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(43912676,0)) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetRange(LOCATION_FZONE) - e4:SetCountLimit(1) - e4:SetCost(c43912676.cost) - e4:SetTarget(c43912676.target) - e4:SetOperation(c43912676.operation) - c:RegisterEffect(e4) -end -function c43912676.cfilter(c) - return c:IsRace(RACE_WYRM) and c:IsAbleToRemoveAsCost() -end -function c43912676.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c43912676.cfilter,tp,LOCATION_GRAVE,0,3,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c43912676.cfilter,tp,LOCATION_GRAVE,0,3,3,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c43912676.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c43912676.operation(e,tp,eg,ep,ev,re,r,rp,chk) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--異層空間 +function c43912676.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --boost + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetRange(LOCATION_FZONE) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_WYRM)) + e2:SetValue(300) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(43912676,0)) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetRange(LOCATION_FZONE) + e4:SetCountLimit(1) + e4:SetCost(c43912676.cost) + e4:SetTarget(c43912676.target) + e4:SetOperation(c43912676.operation) + c:RegisterEffect(e4) +end +function c43912676.cfilter(c) + return c:IsRace(RACE_WYRM) and c:IsAbleToRemoveAsCost() +end +function c43912676.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c43912676.cfilter,tp,LOCATION_GRAVE,0,3,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c43912676.cfilter,tp,LOCATION_GRAVE,0,3,3,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c43912676.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c43912676.operation(e,tp,eg,ep,ev,re,r,rp,chk) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c43925870.lua b/script/c43925870.lua index f5e57a98..edcc7404 100644 --- a/script/c43925870.lua +++ b/script/c43925870.lua @@ -32,7 +32,7 @@ function c43925870.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(Duel.SelectMatchingCard(tp,Card.IsAbleToGraveAsCost,tp,LOCATION_HAND,0,1,1,nil),REASON_COST) end function c43925870.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c43925870.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and c43925870.filter(chkc) end diff --git a/script/c43930492.lua b/script/c43930492.lua new file mode 100644 index 00000000..d493cab7 --- /dev/null +++ b/script/c43930492.lua @@ -0,0 +1,66 @@ +--Magical Something +function c43930492.initial_effect(c) + c:EnableCounterPermit(0x1) + --add counter + local e0=Effect.CreateEffect(c) + e0:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e0:SetCode(EVENT_CHAINING) + e0:SetRange(LOCATION_MZONE) + e0:SetOperation(aux.chainreg) + c:RegisterEffect(e0) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e1:SetCode(EVENT_CHAIN_SOLVED) + e1:SetRange(LOCATION_MZONE) + e1:SetOperation(c43930492.acop) + c:RegisterEffect(e1) + --level + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EFFECT_UPDATE_LEVEL) + e2:SetValue(c43930492.lvval) + c:RegisterEffect(e2) + --set + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(43930492,0)) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1,43930492) + e3:SetCost(c43930492.setcost) + e3:SetTarget(c43930492.settg) + e3:SetOperation(c43930492.setop) + c:RegisterEffect(e3) +end +function c43930492.acop(e,tp,eg,ep,ev,re,r,rp) + if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then + e:GetHandler():AddCounter(0x1,1) + end +end +function c43930492.lvval(e,c) + return c:GetCounter(0x1) +end +function c43930492.setcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,3,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1,3,REASON_COST) +end +function c43930492.setfilter(c) + return c:IsType(TYPE_QUICKPLAY) and c:IsSSetable() +end +function c43930492.settg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c43930492.setfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c43930492.setfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) + local g=Duel.SelectTarget(tp,c43930492.setfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) +end +function c43930492.setop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsSSetable() then + Duel.SSet(tp,tc) + Duel.ConfirmCards(1-tp,tc) + end +end diff --git a/script/c43959432.lua b/script/c43959432.lua new file mode 100644 index 00000000..ef926c10 --- /dev/null +++ b/script/c43959432.lua @@ -0,0 +1,90 @@ +--メタモル・クレイ・フォートレス +function c43959432.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_EQUIP) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c43959432.target) + e1:SetOperation(c43959432.activate) + c:RegisterEffect(e1) +end +function c43959432.filter(c) + return c:IsFaceup() and c:IsLevelAbove(4) +end +function c43959432.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c43959432.filter(chkc) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 + and Duel.IsExistingTarget(c43959432.filter,tp,LOCATION_MZONE,0,1,nil) + and Duel.IsPlayerCanSpecialSummonMonster(tp,43959432,0,0x21,1000,1000,4,RACE_ROCK,ATTRIBUTE_EARTH) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + local g=Duel.SelectTarget(tp,c43959432.filter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) + Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) +end +function c43959432.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + or not Duel.IsPlayerCanSpecialSummonMonster(tp,43959432,0,0x21,1000,1000,4,RACE_ROCK,ATTRIBUTE_EARTH) then return end + c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() + --position + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_POSITION) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_DAMAGE_STEP_END) + e1:SetCondition(c43959432.poscon) + e1:SetOperation(c43959432.posop) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1,true) + --atk + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetRange(LOCATION_MZONE) + e2:SetValue(c43959432.atkval) + e2:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e2,true) + local e3=e2:Clone() + e3:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e3,true) + Duel.SpecialSummonComplete() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + Duel.BreakEffect() + if not Duel.Equip(tp,tc,c,false) then return end + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e4:SetCode(EFFECT_EQUIP_LIMIT) + e4:SetReset(RESET_EVENT+0x1fe0000) + e4:SetValue(c43959432.eqlimit) + tc:RegisterEffect(e4,true) + e2:SetLabelObject(tc) + e3:SetLabelObject(tc) + end +end +function c43959432.poscon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler()==Duel.GetAttacker() and e:GetHandler():IsRelateToBattle() +end +function c43959432.posop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsAttackPos() then + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) + end +end +function c43959432.atkval(e,c) + local tc=e:GetLabelObject() + if not tc or tc:GetEquipTarget()~=c then return 0 end + local atk=tc:GetAttack() + if atk<0 then atk=0 end + return atk +end +function c43959432.eqlimit(e,c) + return e:GetOwner()==c +end diff --git a/script/c43973174.lua b/script/c43973174.lua index 05b1234c..2e778372 100644 --- a/script/c43973174.lua +++ b/script/c43973174.lua @@ -5,7 +5,6 @@ function c43973174.initial_effect(c) e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c43973174.condition) e1:SetTarget(c43973174.target) e1:SetOperation(c43973174.activate) c:RegisterEffect(e1) @@ -13,14 +12,12 @@ end function c43973174.cfilter(c) return c:IsFaceup() and c:IsCode(17985575) end -function c43973174.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c43973174.cfilter,tp,LOCATION_MZONE,0,1,nil) -end function c43973174.filter(c,e,tp) return c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c43973174.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c43973174.cfilter,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(c43973174.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) end @@ -28,6 +25,7 @@ function c43973174.activate(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end if ft>2 then ft=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end if not Duel.IsExistingMatchingCard(c43973174.cfilter,tp,LOCATION_MZONE,0,1,nil) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c43973174.filter,tp,LOCATION_HAND,0,1,ft,nil,e,tp) diff --git a/script/c44035031.lua b/script/c44035031.lua index d7a615b8..a213b1df 100644 --- a/script/c44035031.lua +++ b/script/c44035031.lua @@ -41,13 +41,13 @@ function c44035031.atkop(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1) end function c44035031.poscon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_BATTLE + return Duel.GetTurnPlayer()~=tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c44035031.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsDefencePos() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDefencePos,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsDefensePos() end + if chk==0 then return Duel.IsExistingTarget(Card.IsDefensePos,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) - local g=Duel.SelectTarget(tp,Card.IsDefencePos,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,Card.IsDefensePos,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) end function c44035031.posop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c4404099.lua b/script/c4404099.lua index 1dffd355..227099a0 100644 --- a/script/c4404099.lua +++ b/script/c4404099.lua @@ -1,5 +1,6 @@ --海底に潜む深海竜 function c4404099.initial_effect(c) + c:EnableCounterPermit(0x23) --add counter local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(4404099,0)) @@ -26,7 +27,7 @@ function c4404099.addct(e,tp,eg,ep,ev,re,r,rp,chk) end function c4404099.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x23+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x23,1) end end function c4404099.atkcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c440556.lua b/script/c440556.lua index 7f481147..d651d098 100644 --- a/script/c440556.lua +++ b/script/c440556.lua @@ -28,22 +28,16 @@ function c440556.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) end function c440556.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c440556.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c440556.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - else - local cg=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg and cg:GetCount()>0 then - Duel.ConfirmCards(1-tp,cg) - end end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) end diff --git a/script/c44088292.lua b/script/c44088292.lua new file mode 100644 index 00000000..9e69d1ab --- /dev/null +++ b/script/c44088292.lua @@ -0,0 +1,48 @@ +--進化合獣ダイオーキシン +function c44088292.initial_effect(c) + aux.EnableDualAttribute(c) + --cannot disable summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_DISABLE_SUMMON) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_IGNORE_RANGE+EFFECT_FLAG_SET_AVAILABLE) + e1:SetCondition(aux.IsDualState) + e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_DUAL)) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(44088292,0)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1) + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(aux.IsDualState) + e2:SetCost(c44088292.cost) + e2:SetTarget(c44088292.target) + e2:SetOperation(c44088292.activate) + c:RegisterEffect(e2) +end +function c44088292.costfilter(c) + return c:IsType(TYPE_DUAL) and c:IsAbleToRemoveAsCost() +end +function c44088292.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c44088292.costfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c44088292.costfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c44088292.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c44088292.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c44095762.lua b/script/c44095762.lua index 3544f605..432ac6c4 100644 --- a/script/c44095762.lua +++ b/script/c44095762.lua @@ -14,7 +14,7 @@ function c44095762.condition(e,tp,eg,ep,ev,re,r,rp) return tp~=Duel.GetTurnPlayer() end function c44095762.filter(c) - return c:IsAttackPos() and c:IsDestructable() + return c:IsAttackPos() end function c44095762.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c44095762.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c44125452.lua b/script/c44125452.lua old mode 100755 new mode 100644 diff --git a/script/c44155002.lua b/script/c44155002.lua index f556ea48..fec7434d 100644 --- a/script/c44155002.lua +++ b/script/c44155002.lua @@ -7,7 +7,7 @@ function c44155002.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_CHAIN_ACTIVATING) + e1:SetCode(EVENT_CHAIN_SOLVING) e1:SetOperation(c44155002.disop) c:RegisterEffect(e1) end diff --git a/script/c4417407.lua b/script/c4417407.lua index 044fb4aa..20ef06a6 100644 --- a/script/c4417407.lua +++ b/script/c4417407.lua @@ -74,7 +74,7 @@ function c4417407.poscost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c4417407.filter(c) - return not c:IsPosition(POS_FACEUP_DEFENCE) + return not c:IsPosition(POS_FACEUP_DEFENSE) end function c4417407.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c4417407.filter(chkc) end @@ -84,7 +84,7 @@ function c4417407.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c4417407.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not tc:IsPosition(POS_FACEUP_DEFENCE) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) + if tc:IsRelateToEffect(e) and not tc:IsPosition(POS_FACEUP_DEFENSE) then + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) end end diff --git a/script/c44186624.lua b/script/c44186624.lua index a12dd189..a8fc8c49 100644 --- a/script/c44186624.lua +++ b/script/c44186624.lua @@ -58,7 +58,7 @@ function c44186624.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetFlagEffect(44186624)~=0 end function c44186624.filter(c) - return c:GetSequence()<5 and c:IsDestructable() + return c:GetSequence()<5 end function c44186624.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and c44186624.filter(chkc) end diff --git a/script/c44209392.lua b/script/c44209392.lua index 662fd3d3..a0169851 100644 --- a/script/c44209392.lua +++ b/script/c44209392.lua @@ -26,7 +26,7 @@ function c44209392.activate(e,tp,eg,ep,ev,re,r,rp) if tc:IsRelateToEffect(e) and tc:IsFaceup() then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e1:SetValue(500) tc:RegisterEffect(e1) diff --git a/script/c4423206.lua b/script/c4423206.lua index 3c0d9780..8bf3860e 100644 --- a/script/c4423206.lua +++ b/script/c4423206.lua @@ -32,7 +32,7 @@ function c4423206.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c4423206.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then + if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) diff --git a/script/c44311445.lua b/script/c44311445.lua index 4a543f88..17419980 100644 --- a/script/c44311445.lua +++ b/script/c44311445.lua @@ -73,7 +73,7 @@ function c44311445.spop(e,tp,eg,ep,ev,re,r,rp) if tc then local spos=0 if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then spos=spos+POS_FACEUP_ATTACK end - if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENCE end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENSE end Duel.SpecialSummon(tc,0,tp,tp,false,false,spos) if tc:IsFacedown() then Duel.ConfirmCards(1-tp,tc) diff --git a/script/c44330098.lua b/script/c44330098.lua index f2d98f8e..57c1f073 100644 --- a/script/c44330098.lua +++ b/script/c44330098.lua @@ -48,11 +48,14 @@ function c44330098.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) end function c44330098.sumop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - local sumtype=1 - if bit.band(r,REASON_BATTLE)~=0 then sumtype=2 end - if Duel.SpecialSummon(c,sumtype,tp,tp,false,false,POS_FACEUP)==0 then return end + if not c:IsRelateToEffect(e) then return end + local sumtype=1 + if bit.band(r,REASON_BATTLE)~=0 then sumtype=2 end + if Duel.SpecialSummon(c,sumtype,tp,tp,false,false,POS_FACEUP)~=0 then e:SetLabel(ev) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c44330098.sumcon2(e,tp,eg,ep,ev,re,r,rp) @@ -62,7 +65,6 @@ function c44330098.sumtg2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) - Duel.RegisterFlagEffect(tp,EFFECT_SPSUM_EFFECT_ACTIVATED,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) end function c44330098.sumop2(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end @@ -78,7 +80,7 @@ function c44330098.sumop2(e,tp,eg,ep,ev,re,r,rp) token:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) e2:SetValue(val) e2:SetReset(RESET_EVENT+0xfe0000) token:RegisterEffect(e2) diff --git a/script/c44394295.lua b/script/c44394295.lua old mode 100755 new mode 100644 index 56dde6d6..65592333 --- a/script/c44394295.lua +++ b/script/c44394295.lua @@ -80,19 +80,5 @@ function c44394295.activate(e,tp,eg,ep,ev,re,r,rp) fop(ce,e,tp,tc,mat2) end tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_DECK,0) - local cg3=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg3:IsExists(Card.IsFacedown,1,nil) and Duel.IsPlayerCanSpecialSummon(tp) - and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - if bit.band(loc,LOCATION_DECK)==LOCATION_DECK and not Duel.IsPlayerAffectedByEffect(tp,EFFECT_CANNOT_DISCARD_DECK) then - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleDeck(tp) - end - Duel.ConfirmCards(1-tp,cg3) - Duel.ShuffleHand(tp) - end end end diff --git a/script/c44424095.lua b/script/c44424095.lua old mode 100755 new mode 100644 index 50c52940..cd98630a --- a/script/c44424095.lua +++ b/script/c44424095.lua @@ -1,40 +1,40 @@ ---D・スピードユニット -function c44424095.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_DESTROY+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c44424095.target) - e1:SetOperation(c44424095.activate) - c:RegisterEffect(e1) -end -function c44424095.filter(c) - return c:IsSetCard(0x26) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() -end -function c44424095.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() and chkc~=e:GetHandler() end - if chk==0 then return Duel.IsExistingMatchingCard(c44424095.filter,tp,LOCATION_HAND,0,1,nil) - and Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) - and Duel.IsPlayerCanDraw(tp,1) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local dg=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c44424095.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectMatchingCard(tp,c44424095.filter,tp,LOCATION_HAND,0,1,1,nil) - if g:GetCount()==0 then return end - Duel.ConfirmCards(1-tp,g) - Duel.SendtoDeck(g,nil,0,REASON_EFFECT) - Duel.ShuffleDeck(tp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.BreakEffect() - if Duel.Destroy(tc,REASON_EFFECT)==0 then return end - Duel.Draw(tp,1,REASON_EFFECT) - end -end +--D・スピードユニット +function c44424095.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TODECK+CATEGORY_DESTROY+CATEGORY_DRAW) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c44424095.target) + e1:SetOperation(c44424095.activate) + c:RegisterEffect(e1) +end +function c44424095.filter(c) + return c:IsSetCard(0x26) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() +end +function c44424095.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.IsExistingMatchingCard(c44424095.filter,tp,LOCATION_HAND,0,1,nil) + and Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) + and Duel.IsPlayerCanDraw(tp,1) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local dg=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c44424095.activate(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + local g=Duel.SelectMatchingCard(tp,c44424095.filter,tp,LOCATION_HAND,0,1,1,nil) + if g:GetCount()==0 then return end + Duel.ConfirmCards(1-tp,g) + Duel.SendtoDeck(g,nil,0,REASON_EFFECT) + Duel.ShuffleDeck(tp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.BreakEffect() + if Duel.Destroy(tc,REASON_EFFECT)==0 then return end + Duel.Draw(tp,1,REASON_EFFECT) + end +end diff --git a/script/c4446672.lua b/script/c4446672.lua index 76d843f4..66887c72 100644 --- a/script/c4446672.lua +++ b/script/c4446672.lua @@ -11,7 +11,7 @@ function c4446672.initial_effect(c) c:RegisterEffect(e1) end function c4446672.filter(c) - return c:IsFaceup() and c:IsSetCard(0x7) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x7) end function c4446672.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c4446672.filter(chkc) end diff --git a/script/c44481227.lua b/script/c44481227.lua index 3f806395..3877b903 100644 --- a/script/c44481227.lua +++ b/script/c44481227.lua @@ -45,7 +45,7 @@ function c44481227.operation(e,tp,eg,ep,ev,re,r,rp) while gc do local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetValue(-800) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) gc:RegisterEffect(e1) diff --git a/script/c44505297.lua b/script/c44505297.lua index 66b1ecfa..7e6d16da 100644 --- a/script/c44505297.lua +++ b/script/c44505297.lua @@ -30,12 +30,15 @@ end function c44505297.eqcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ end +function c44505297.eqfilter(c) + return c:IsType(TYPE_MONSTER) and not c:IsForbidden() +end function c44505297.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsType(TYPE_MONSTER) end + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c44505297.eqfilter(chkc) end if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(Card.IsType,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,TYPE_MONSTER) end + and Duel.IsExistingTarget(c44505297.eqfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,Card.IsType,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,TYPE_MONSTER) + local g=Duel.SelectTarget(tp,c44505297.eqfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) end function c44505297.eqop(e,tp,eg,ep,ev,re,r,rp) @@ -59,11 +62,11 @@ function c44505297.eqop(e,tp,eg,ep,ev,re,r,rp) e2:SetReset(RESET_EVENT+0x1fe0000) e2:SetValue(atk) tc:RegisterEffect(e2) - local def=tc:GetTextDefence()/2 + local def=tc:GetTextDefense()/2 if def<0 then def=0 end local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetReset(RESET_EVENT+0x1fe0000) e3:SetValue(def) tc:RegisterEffect(e3) diff --git a/script/c44508094.lua b/script/c44508094.lua index a114bd92..dfeab24f 100644 --- a/script/c44508094.lua +++ b/script/c44508094.lua @@ -7,7 +7,7 @@ function c44508094.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(44508094,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_MZONE) diff --git a/script/c44509898.lua b/script/c44509898.lua index 1e690444..1704ad72 100644 --- a/script/c44509898.lua +++ b/script/c44509898.lua @@ -27,7 +27,7 @@ function c44509898.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c44509898.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then + if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) diff --git a/script/c44584775.lua b/script/c44584775.lua index 56712043..23368326 100644 --- a/script/c44584775.lua +++ b/script/c44584775.lua @@ -4,6 +4,11 @@ function c44584775.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e1:SetHintTiming(TIMING_DAMAGE) + e1:SetCondition(c44584775.condition1) + e1:SetTarget(c44584775.target1) + e1:SetOperation(c44584775.activate) c:RegisterEffect(e1) --special summon local e2=Effect.CreateEffect(c) @@ -14,15 +19,38 @@ function c44584775.initial_effect(c) e2:SetRange(LOCATION_SZONE) e2:SetCountLimit(1) e2:SetCondition(c44584775.condition) + e2:SetCost(c44584775.cost) e2:SetTarget(c44584775.target) e2:SetOperation(c44584775.activate) c:RegisterEffect(e2) end +function c44584775.condition1(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetCurrentPhase()~=PHASE_DAMAGE then return true end + local res,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(EVENT_BATTLE_DAMAGE,true) + local a=Duel.GetAttacker() + local d=Duel.GetAttackTarget() + return res and tep==tp and (a:IsRace(RACE_REPTILE) or (d and d:IsRace(RACE_REPTILE))) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c44584775.filter,tp,LOCATION_DECK,0,1,nil,e,tp,ev) +end +function c44584775.target1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + if Duel.GetCurrentPhase()==PHASE_DAMAGE then + e:SetCategory(CATEGORY_SPECIAL_SUMMON) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) + e:GetHandler():RegisterFlagEffect(44584775,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) + else + e:SetCategory(0) + end +end function c44584775.condition(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() return ep==tp and (a:IsRace(RACE_REPTILE) or (d and d:IsRace(RACE_REPTILE))) end +function c44584775.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetFlagEffect(44584775)==0 end + e:GetHandler():RegisterFlagEffect(44584775,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) +end function c44584775.filter(c,e,tp,dam) return c:IsAttackBelow(dam) and c:IsRace(RACE_REPTILE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end @@ -32,6 +60,7 @@ function c44584775.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) end function c44584775.activate(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():GetFlagEffect(44584775)==0 then return end if not e:GetHandler():IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) diff --git a/script/c44656491.lua b/script/c44656491.lua old mode 100755 new mode 100644 index 85f5369c..93dc2332 --- a/script/c44656491.lua +++ b/script/c44656491.lua @@ -31,9 +31,9 @@ function c44656491.mtcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c44656491.mtop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLP(tp)>100 and Duel.SelectYesNo(tp,aux.Stringid(44656491,0)) then + if Duel.CheckLPCost(tp,100) and Duel.SelectYesNo(tp,aux.Stringid(44656491,0)) then Duel.PayLPCost(tp,100) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end diff --git a/script/c4466015.lua b/script/c4466015.lua old mode 100755 new mode 100644 index 69f1ad52..992d83bc --- a/script/c4466015.lua +++ b/script/c4466015.lua @@ -11,20 +11,20 @@ function c4466015.initial_effect(c) c:RegisterEffect(e1) end function c4466015.filter(c) - return c:GetCounter(0x9)>0 + return c:GetCounter(0x1009)>0 end function c4466015.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c4466015.filter(chkc) end if chk==0 then return Duel.IsExistingTarget(c4466015.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) local g=Duel.SelectTarget(tp,c4466015.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetFirst():GetCounter(0x9)*700) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetFirst():GetCounter(0x1009)*700) end function c4466015.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - local ct=tc:GetCounter(0x9) + local ct=tc:GetCounter(0x1009) if ct>0 then - tc:RemoveCounter(tp,0x9,ct,REASON_EFFECT) + tc:RemoveCounter(tp,0x1009,ct,REASON_EFFECT) Duel.Damage(1-tp,ct*700,REASON_EFFECT) end end diff --git a/script/c44665365.lua b/script/c44665365.lua index 442d25fc..de70b638 100644 --- a/script/c44665365.lua +++ b/script/c44665365.lua @@ -5,7 +5,7 @@ function c44665365.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(44665365,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_MZONE) diff --git a/script/c4474060.lua b/script/c4474060.lua new file mode 100644 index 00000000..d88288a0 --- /dev/null +++ b/script/c4474060.lua @@ -0,0 +1,104 @@ +--SPYRAL GEAR - Drone +function c4474060.initial_effect(c) + --sort + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(4474060,0)) + e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c4474060.sttg) + e1:SetOperation(c4474060.stop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --atkup + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(4474060,1)) + e3:SetCategory(CATEGORY_ATKCHANGE) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetRange(LOCATION_MZONE) + e3:SetHintTiming(TIMING_DAMAGE_STEP) + e3:SetCondition(c4474060.atkcon) + e3:SetCost(c4474060.atkcost) + e3:SetTarget(c4474060.atktg) + e3:SetOperation(c4474060.atkop) + c:RegisterEffect(e3) + --to hand + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(4474060,2)) + e4:SetCategory(CATEGORY_TOHAND) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetRange(LOCATION_GRAVE) + e4:SetCost(c4474060.thcost) + e4:SetTarget(c4474060.thtg) + e4:SetOperation(c4474060.thop) + c:RegisterEffect(e4) +end +function c4474060.sttg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>2 end +end +function c4474060.stop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)<3 then return end + Duel.SortDecktop(tp,1-tp,3) +end +function c4474060.atkcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() +end +function c4474060.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c4474060.atkfilter(c) + return c:IsFaceup() and c:IsSetCard(0xee) +end +function c4474060.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c4474060.atkfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c4474060.atkfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c4474060.atkfilter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c4474060.atkop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + local atk=Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)*500 + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(atk) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + end +end +function c4474060.cfilter(c,tp) + return c:IsSetCard(0xee) and c:IsAbleToRemoveAsCost() + and Duel.IsExistingTarget(c4474060.thfilter,tp,LOCATION_GRAVE,0,1,c) +end +function c4474060.thfilter(c) + return c:IsCode(41091257) and c:IsAbleToHand() +end +function c4474060.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:IsAbleToRemoveAsCost() + and Duel.IsExistingMatchingCard(c4474060.cfilter,tp,LOCATION_GRAVE,0,1,c,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c4474060.cfilter,tp,LOCATION_GRAVE,0,1,1,c,tp) + g:AddCard(c) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c4474060.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c4474060.thfilter(chkc) end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c4474060.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c4474060.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c44763025.lua b/script/c44763025.lua old mode 100755 new mode 100644 diff --git a/script/c44771289.lua b/script/c44771289.lua index 7643b953..49c34585 100644 --- a/script/c44771289.lua +++ b/script/c44771289.lua @@ -78,15 +78,6 @@ function c44771289.activate(e,tp,eg,ep,ev,re,r,rp) fop(ce,e,tp,tc,mat2) end tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end function c44771289.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) @@ -112,7 +103,7 @@ function c44771289.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_OPPO_TURN) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end diff --git a/script/c44792253.lua b/script/c44792253.lua index 3e92dc1a..b124cbfb 100644 --- a/script/c44792253.lua +++ b/script/c44792253.lua @@ -15,7 +15,7 @@ function c44792253.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsFaceup() and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) end function c44792253.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c44792253.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c44792253.filter(chkc) end diff --git a/script/c44809721.lua b/script/c44809721.lua deleted file mode 100644 index b5678364..00000000 --- a/script/c44809721.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Red Process - Rubedo -function c44809721.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c44809721.cost) - e1:SetTarget(c44809721.target) - e1:SetOperation(c44809721.activate) - c:RegisterEffect(e1) -end -function c44809721.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,80887952) end - local g=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,80887952) - Duel.Release(g,REASON_COST) -end -function c44809721.filter(c,e,tp) - return c:IsCode(17286057) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c44809721.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c44809721.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c44809721.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c44809721.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - g:GetFirst():CompleteProcedure() - end -end diff --git a/script/c44811425.lua b/script/c44811425.lua old mode 100755 new mode 100644 diff --git a/script/c4483989.lua b/script/c4483989.lua index 8cdb2753..cce493ae 100644 --- a/script/c4483989.lua +++ b/script/c4483989.lua @@ -22,14 +22,14 @@ function c4483989.initial_effect(c) end function c4483989.atkcon(e,tp,eg,ep,ev,re,r,rp) local at=Duel.GetAttackTarget() - return tp~=Duel.GetTurnPlayer() and at and at:IsPosition(POS_FACEUP_DEFENCE) + return tp~=Duel.GetTurnPlayer() and at and at:IsPosition(POS_FACEUP_DEFENSE) end function c4483989.atktg1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end e:SetLabel(0) local at=Duel.GetAttackTarget() if Duel.CheckEvent(EVENT_ATTACK_ANNOUNCE) and tp~=Duel.GetTurnPlayer() - and at and at:IsPosition(POS_FACEUP_DEFENCE) then + and at and at:IsPosition(POS_FACEUP_DEFENSE) then e:SetLabel(1) Duel.GetAttacker():CreateEffectRelation(e) at:CreateEffectRelation(e) @@ -53,8 +53,8 @@ function c4483989.atkop(e,tp,eg,ep,ev,re,r,rp) local res=Duel.TossCoin(1-tp,1) if coin~=res then Duel.ChangePosition(at,POS_FACEUP_ATTACK) - elseif a:GetAttack()>at:GetDefence() then - Duel.Damage(tp,a:GetAttack()-at:GetDefence(),REASON_EFFECT) + elseif a:GetAttack()>at:GetDefense() then + Duel.Damage(tp,a:GetAttack()-at:GetDefense(),REASON_EFFECT) end end end diff --git a/script/c44877690.lua b/script/c44877690.lua index 49877670..ccc281e9 100644 --- a/script/c44877690.lua +++ b/script/c44877690.lua @@ -23,7 +23,7 @@ function c44877690.retreg(e,tp,eg,ep,ev,re,r,rp) --to hand local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(44877690,0)) + e1:SetDescription(1104) e1:SetCategory(CATEGORY_TOHAND) e1:SetCode(EVENT_PHASE+PHASE_END) e1:SetRange(LOCATION_MZONE) @@ -38,7 +38,7 @@ function c44877690.retreg(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetDescription(aux.Stringid(44877690,0)) + e3:SetDescription(1104) e3:SetCategory(CATEGORY_TOHAND) e3:SetCode(EVENT_PHASE+PHASE_END) e3:SetRange(LOCATION_MZONE) diff --git a/script/c44883600.lua b/script/c44883600.lua index 5b67ffa6..edd5e13e 100644 --- a/script/c44883600.lua +++ b/script/c44883600.lua @@ -19,7 +19,7 @@ function c44883600.initial_effect(c) c:RegisterEffect(e2) end function c44883600.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() and Duel.IsExistingMatchingCard(Card.IsPosition,tp,LOCATION_MZONE,0,2,nil,POS_FACEUP_DEFENCE) + return tp~=Duel.GetTurnPlayer() and Duel.IsExistingMatchingCard(Card.IsPosition,tp,LOCATION_MZONE,0,2,nil,POS_FACEUP_DEFENSE) end function c44883600.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local tg=Duel.GetAttacker() diff --git a/script/c44883830.lua b/script/c44883830.lua index 9c25ad1e..465488ae 100644 --- a/script/c44883830.lua +++ b/script/c44883830.lua @@ -17,11 +17,11 @@ function c44883830.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c44883830.cfilter,tp,LOCATION_MZONE,0,3,nil) end function c44883830.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c44883830.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c44954628.lua b/script/c44954628.lua index e3c6b684..16a18033 100644 --- a/script/c44954628.lua +++ b/script/c44954628.lua @@ -1,5 +1,6 @@ --巨大戦艦 テトラン function c44954628.initial_effect(c) + c:EnableCounterPermit(0x1f) --summon success local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(44954628,0)) @@ -52,7 +53,7 @@ function c44954628.addct(e,tp,eg,ep,ev,re,r,rp,chk) end function c44954628.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x1f+COUNTER_NEED_ENABLE,3) + e:GetHandler():AddCounter(0x1f,3) end end function c44954628.rctcon(e,tp,eg,ep,ev,re,r,rp) @@ -82,7 +83,7 @@ function c44954628.descost2(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveCounter(tp,0x1f,1,REASON_COST) end function c44954628.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c44954628.destg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c44954628.filter(chkc) end diff --git a/script/c44968459.lua b/script/c44968459.lua new file mode 100644 index 00000000..22db37b2 --- /dev/null +++ b/script/c44968459.lua @@ -0,0 +1,71 @@ +--サイレント・バーニング +function c44968459.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(44968459,0)) + e1:SetCategory(CATEGORY_DRAW) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCondition(c44968459.condition) + e1:SetTarget(c44968459.target) + e1:SetOperation(c44968459.activate) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(44968459,1)) + e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCost(c44968459.thcost) + e2:SetTarget(c44968459.thtg) + e2:SetOperation(c44968459.thop) + c:RegisterEffect(e2) +end +function c44968459.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe8) +end +function c44968459.condition(e,tp,eg,ep,ev,re,r,rp) + local ct1=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) + local ct2=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND) + local ph=Duel.GetCurrentPhase() + return ct1>ct2 and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE + and Duel.IsExistingMatchingCard(c44968459.cfilter,tp,LOCATION_MZONE,0,1,nil) +end +function c44968459.target(e,tp,eg,ep,ev,re,r,rp,chk) + local ct1=6-Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) + local ct2=6-Duel.GetFieldGroupCount(tp,0,LOCATION_HAND) + if chk==0 then return ct1>0 and Duel.IsPlayerCanDraw(tp,ct1) + and ct2>0 and Duel.IsPlayerCanDraw(1-tp,ct2) end + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,1-tp,ct2) +end +function c44968459.activate(e,tp,eg,ep,ev,re,r,rp) + local ct1=6-Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) + local ct2=6-Duel.GetFieldGroupCount(tp,0,LOCATION_HAND) + if ct1>0 then + Duel.Draw(tp,ct1,REASON_EFFECT) + end + if ct2>0 then + Duel.Draw(1-tp,ct2,REASON_EFFECT) + end +end +function c44968459.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c44968459.thfilter(c) + return c:IsSetCard(0xe8) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c44968459.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c44968459.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c44968459.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c44968459.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c44968687.lua b/script/c44968687.lua old mode 100755 new mode 100644 index cfd2fd4a..c8beead7 --- a/script/c44968687.lua +++ b/script/c44968687.lua @@ -28,6 +28,8 @@ function c44968687.initial_effect(c) local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) e4:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e4:SetRange(LOCATION_MZONE) e4:SetValue(1) c:RegisterEffect(e4) local e5=e4:Clone() diff --git a/script/c450000000.lua b/script/c450000000.lua deleted file mode 100644 index 052534d1..00000000 --- a/script/c450000000.lua +++ /dev/null @@ -1,32 +0,0 @@ ---サザンクロス -function c450000000.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c450000000.target) - e1:SetOperation(c450000000.activate) - c:RegisterEffect(e1) -end -function c450000000.filter(c) - local lv=c:GetLevel() - return c:IsFaceup() and lv>0 and lv~=10 -end -function c450000000.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c450000000.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c450000000.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c450000000.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c450000000.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(10) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end diff --git a/script/c450000001.lua b/script/c450000001.lua deleted file mode 100644 index 0527db33..00000000 --- a/script/c450000001.lua +++ /dev/null @@ -1,63 +0,0 @@ ---機関連結 -function c450000001.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCost(c450000001.cost) - e1:SetTarget(c450000001.target) - e1:SetOperation(c450000001.operation) - c:RegisterEffect(e1) - --Pierce - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e2) - --Atk Change - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_SET_ATTACK) - e3:SetValue(c450000001.value) - c:RegisterEffect(e3) - --equip limit - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_EQUIP_LIMIT) - e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e4:SetValue(c450000001.eqlimit) - c:RegisterEffect(e4) -end -function c450000001.costfilter(c) - return c:IsRace(RACE_MACHINE) and c:GetLevel()>=8 and c:IsAbleToRemoveAsCost() -end -function c450000001.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c450000001.costfilter,tp,LOCATION_GRAVE,0,2,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c450000001.costfilter,tp,LOCATION_GRAVE,0,2,2,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c450000001.eqlimit(e,c) - return c:IsRace(RACE_MACHINE) -end -function c450000001.filter(c) - return c:IsFaceup() and c:IsRace(RACE_MACHINE) -end -function c450000001.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_MZONE and c450000001.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c450000001.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c450000001.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c450000001.value(e,c) - return c:GetBaseAttack()*2 -end -function c450000001.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end - diff --git a/script/c450000004.lua b/script/c450000004.lua deleted file mode 100644 index 3ba62334..00000000 --- a/script/c450000004.lua +++ /dev/null @@ -1,34 +0,0 @@ ---工作列車シグナル・レッド -function c450000004.initial_effect(c) - --end battle phase - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(450000004,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c450000004.condition) - e1:SetTarget(c450000004.target) - e1:SetOperation(c450000004.operation) - c:RegisterEffect(e1) -end -function c450000004.condition(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttacker() - return at:GetControler()~=tp and Duel.GetAttackTarget()==nil -end -function c450000004.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) -end -function c450000004.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK)>0 then - local a=Duel.GetAttacker() - if a:IsOnField() and a:IsFaceup() then - Duel.CalculateDamage(a,c) - end - end -end diff --git a/script/c450000005.lua b/script/c450000005.lua deleted file mode 100644 index 232ad69d..00000000 --- a/script/c450000005.lua +++ /dev/null @@ -1,27 +0,0 @@ ---深夜急行騎士ナイト・エクスプレス・ナイト -function c450000005.initial_effect(c) - --summon & set with no tribute - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(74530899,0)) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetCondition(c450000005.ntcon) - e1:SetOperation(c450000005.ntop) - c:RegisterEffect(e1) -end -function c450000005.ntcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c450000005.ntop(e,tp,eg,ep,ev,re,r,rp,c) - --change base attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetReset(RESET_EVENT+0xff0000) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(0) - c:RegisterEffect(e1) -end diff --git a/script/c450000008.lua b/script/c450000008.lua deleted file mode 100644 index a954364b..00000000 --- a/script/c450000008.lua +++ /dev/null @@ -1,24 +0,0 @@ ---無頼特急バトレイン -function c450000008.initial_effect(c) - --damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(450000008,0)) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c450000008.damtg) - e1:SetOperation(c450000008.damop) - c:RegisterEffect(e1) -end -function c450000008.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(500) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) -end -function c450000008.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c450000103.lua b/script/c450000103.lua deleted file mode 100644 index eba8142e..00000000 --- a/script/c450000103.lua +++ /dev/null @@ -1,43 +0,0 @@ ---獄炎 -function c450000103.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCost(c450000103.cost) - e1:SetCondition(c450000103.condition) - e1:SetTarget(c450000103.target) - e1:SetOperation(c450000103.activate) - c:RegisterEffect(e1) -end -function c450000103.costfilter(c) - return c:IsDiscardable() and c:IsAbleToGraveAsCost() -end -function c450000103.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c450000103.costfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.DiscardHand(tp,c450000103.costfilter,1,1,REASON_COST) -end -function c450000103.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c450000103.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) - local dam=tg:GetAttack() - Duel.SetTargetParam(dam/2) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam/2) -end -function c450000103.activate(e,tp,eg,ep,ev,re,r,rp) - local tg,d=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS,CHAININFO_TARGET_PARAM) - local tc=tg:GetFirst() - if tc:IsRelateToEffect(e) and tc:IsAttackable() and not tc:IsStatus(STATUS_ATTACK_CANCELED) then - if Duel.Destroy(tc,REASON_EFFECT) then - Duel.Damage(1-tp,d,REASON_EFFECT) - end - end -end diff --git a/script/c450000110.lua b/script/c450000110.lua deleted file mode 100644 index 71e74621..00000000 --- a/script/c450000110.lua +++ /dev/null @@ -1,21 +0,0 @@ ---ドリーム・ピッチ -function c450000110.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Pos Change - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SET_POSITION) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetTarget(c450000110.target) - e2:SetValue(POS_FACEUP_DEFENCE+NO_FLIP_EFFECT) - c:RegisterEffect(e2) -end -function c450000110.target(e,c) - return c:IsFacedown() -end diff --git a/script/c450000111.lua b/script/c450000111.lua deleted file mode 100644 index b2f8c9fa..00000000 --- a/script/c450000111.lua +++ /dev/null @@ -1,18 +0,0 @@ ---ストライカー・トップ -function c450000111.initial_effect(c) - --summon with no tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetCondition(c450000111.ntcon) - c:RegisterEffect(e1) -end -function c450000111.filter(c) - return c:IsFaceup() and c:IsCode(450000110) -end -function c450000111.ntcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c450000111.filter,0,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) -end diff --git a/script/c450000112.lua b/script/c450000112.lua deleted file mode 100644 index d0ee32af..00000000 --- a/script/c450000112.lua +++ /dev/null @@ -1,18 +0,0 @@ ---キャプテン・ウィング -function c450000112.initial_effect(c) - --pierce - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_PIERCE) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c450000112.pcon) - c:RegisterEffect(e1) -end -function c450000112.filter(c) - return c:IsFaceup() and c:IsCode(450000110) -end -function c450000112.pcon(e) - return Duel.IsExistingMatchingCard(c450000112.filter,0,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - or Duel.GetEnvironment()==450000110 -end diff --git a/script/c450000130.lua b/script/c450000130.lua deleted file mode 100644 index 436a22d1..00000000 --- a/script/c450000130.lua +++ /dev/null @@ -1,79 +0,0 @@ ---遺言の札 -function c450000130.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAIN_END) - e1:SetCondition(c450000130.condition) - e1:SetTarget(c450000130.target) - e1:SetOperation(c450000130.operation) - c:RegisterEffect(e1) - if not c450000130.global_check then - c450000130.global_check=true - -- - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_ADJUST) - ge1:SetOperation(c450000130.check1) - Duel.RegisterEffect(ge1,tp) - end -end -function c450000130.check1(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil) - if g:GetCount()>0 then - local sc=g:GetFirst() - while sc do - local atk=sc:GetAttack() - if sc:GetFlagEffectLabel(450000130)==nil then - sc:RegisterFlagEffect(450000130,RESET_EVENT+0x1fe0000,0,1,atk) - sc:RegisterFlagEffect(450000130+100000000,RESET_EVENT+0x1fe0000,0,1,0) - else - local flb1=sc:GetFlagEffectLabel(450000130) - local flb2=sc:GetFlagEffectLabel(450000130+100000000) - if flb1~=atk and flb2==0 and atk==0 then - sc:SetFlagEffectLabel(450000130,atk) - sc:SetFlagEffectLabel(450000130+100000000,1) - end - end - -- - sc=g:GetNext() - end - end -end -function c450000130.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local ct=0 - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil) - local sc=g:GetFirst() - while sc do - local atk=sc:GetAttack() - local flb2=sc:GetFlagEffectLabel(450000130+100000000) - if flb2>0 then ct=ct+1 end - sc:SetFlagEffectLabel(450000130,atk) - sc:SetFlagEffectLabel(450000130+100000000,0) - -- - sc=g:GetNext() - end - return ct>0 -end -function c450000130.target(e,tp,eg,ep,ev,re,r,rp,chk) - local hg=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - if chk==0 then return hg:GetCount()<5 - and Duel.IsPlayerCanDraw(tp,5-hg:GetCount()) - end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(5-hg:GetCount()) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,5-hg:GetCount()) -end -function c450000130.operation(e,tp,eg,ep,ev,re,r,rp) - local hg=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - if hg:GetCount()<5 then - Duel.Draw(tp,5-hg:GetCount(),REASON_EFFECT) - end -end - diff --git a/script/c450000153.lua b/script/c450000153.lua deleted file mode 100644 index 19902291..00000000 --- a/script/c450000153.lua +++ /dev/null @@ -1,20 +0,0 @@ ---レインボー・シャーマン -function c450000153.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c450000153.spcon) - c:RegisterEffect(e1) -end -function c450000153.cfilter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) -end -function c450000153.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.IsExistingMatchingCard(c450000153.cfilter,c:GetControler(),0,LOCATION_MZONE,1,nil) - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end \ No newline at end of file diff --git a/script/c450000348.lua b/script/c450000348.lua deleted file mode 100644 index 915ce03a..00000000 --- a/script/c450000348.lua +++ /dev/null @@ -1,32 +0,0 @@ ---フォトン・サブライメーション -function c450000348.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c450000348.cost) - e1:SetTarget(c450000348.target) - e1:SetOperation(c450000348.activate) - c:RegisterEffect(e1) -end -function c450000348.filter(c) - return c:IsAbleToRemoveAsCost() and c:IsType(TYPE_MONSTER) and (c:IsSetCard(0x55) or c:IsCode(31801517)) -end -function c450000348.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c450000348.filter,tp,LOCATION_GRAVE,0,2,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c450000348.filter,tp,LOCATION_GRAVE,0,2,2,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c450000348.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c450000348.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c450000349.lua b/script/c450000349.lua deleted file mode 100644 index ba4567b8..00000000 --- a/script/c450000349.lua +++ /dev/null @@ -1,30 +0,0 @@ ---からくりの宝札 -function c450000349.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c450000349.target) - e1:SetOperation(c450000349.activate) - c:RegisterEffect(e1) -end -function c450000349.filter(c) - return c:IsFaceup() and c:IsSetCard(0x83) and c:IsDestructable() -end -function c450000349.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(c450000349.filter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsPlayerCanDraw(tp,1) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c450000349.filter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c450000349.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - Duel.Draw(tp,1,REASON_EFFECT) - end -end diff --git a/script/c450000350.lua b/script/c450000350.lua deleted file mode 100644 index c3fd69a2..00000000 --- a/script/c450000350.lua +++ /dev/null @@ -1,32 +0,0 @@ ---磁石の荒鷲Δ -function c450000350.initial_effect(c) - --atkup - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(450000350,1)) - e1:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetCode(EVENT_DESTROY) - e1:SetCondition(c450000350.atkcon) - e1:SetTarget(c450000350.atktg) - e1:SetOperation(c450000350.atkop) - c:RegisterEffect(e1) -end -function c450000350.filter(c) - return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) - and c:IsSetCard(0x4721) -end -function c450000350.atkcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c450000350.filter,1,nil) -end -function c450000350.atktg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsRelateToEffect(e) end -end -function c450000350.atkop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(400) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) -end diff --git a/script/c450000351.lua b/script/c450000351.lua deleted file mode 100644 index 94c5a570..00000000 --- a/script/c450000351.lua +++ /dev/null @@ -1,32 +0,0 @@ ---磁石の鱗獣Ｚ -function c450000351.initial_effect(c) - --atkup - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(450000351,1)) - e1:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetCode(EVENT_DESTROY) - e1:SetCondition(c450000351.atkcon) - e1:SetTarget(c450000351.atktg) - e1:SetOperation(c450000351.atkop) - c:RegisterEffect(e1) -end -function c450000351.filter(c) - return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) - and c:IsSetCard(0x4721) -end -function c450000351.atkcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c450000351.filter,1,nil) -end -function c450000351.atktg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsRelateToEffect(e) end -end -function c450000351.atkop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(400) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) -end diff --git a/script/c450000352.lua b/script/c450000352.lua deleted file mode 100644 index 91b8c02b..00000000 --- a/script/c450000352.lua +++ /dev/null @@ -1,32 +0,0 @@ ---磁石の大猿Ｅ -function c450000352.initial_effect(c) - --atkup - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(450000352,1)) - e1:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetCode(EVENT_DESTROY) - e1:SetCondition(c450000352.atkcon) - e1:SetTarget(c450000352.atktg) - e1:SetOperation(c450000352.atkop) - c:RegisterEffect(e1) -end -function c450000352.filter(c) - return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) - and c:IsSetCard(0x4721) -end -function c450000352.atkcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c450000352.filter,1,nil) -end -function c450000352.atktg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsRelateToEffect(e) end -end -function c450000352.atkop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(400) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) -end diff --git a/script/c450000357.lua b/script/c450000357.lua deleted file mode 100644 index 0de10173..00000000 --- a/script/c450000357.lua +++ /dev/null @@ -1,34 +0,0 @@ ---磁力蘇生 -function c450000357.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c450000357.cost) - e1:SetTarget(c450000357.target) - e1:SetOperation(c450000357.activate) - c:RegisterEffect(e1) -end -function c450000357.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,500) end - Duel.PayLPCost(tp,500) -end -function c450000357.filter(c,e,tp) - return c:IsSetCard(0x4721) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c450000357.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c450000357.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c450000357.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c450000357.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c450000357.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c450000410.lua b/script/c450000410.lua deleted file mode 100644 index 262d8632..00000000 --- a/script/c450000410.lua +++ /dev/null @@ -1,36 +0,0 @@ ---悪意の波動 -function c450000410.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_BATTLE_DESTROYED) - e2:SetCondition(c450000410.descon) - e2:SetTarget(c450000410.destg) - e2:SetOperation(c450000410.desop) - c:RegisterEffect(e2) -end -function c450000410.cfilter(c,tp) - return c:IsReason(REASON_BATTLE) and c:GetPreviousControler()==tp -end -function c450000410.descon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c450000410.cfilter,1,nil,tp) -end -function c450000410.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(300) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,300) -end -function c450000410.desop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c45010690.lua b/script/c45010690.lua old mode 100755 new mode 100644 diff --git a/script/c45023678.lua b/script/c45023678.lua index e495eaee..445e067e 100644 --- a/script/c45023678.lua +++ b/script/c45023678.lua @@ -38,10 +38,10 @@ function c45023678.descon(e,tp,eg,ep,ev,re,r,rp) return res==1 end function c45023678.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsDestructable() end + if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c45023678.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c45033006.lua b/script/c45033006.lua index 6ebd2d14..d5a55cc4 100644 --- a/script/c45033006.lua +++ b/script/c45033006.lua @@ -12,7 +12,7 @@ function c45033006.initial_effect(c) c:RegisterEffect(e1) end function c45033006.filter(c) - return c:IsFacedown() and c:IsDefencePos() and c:IsControlerCanBeChanged() + return c:IsFacedown() and c:IsDefensePos() and c:IsControlerCanBeChanged() end function c45033006.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c45033006.filter(chkc) end @@ -23,9 +23,7 @@ function c45033006.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c45033006.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFacedown() and tc:IsDefencePos() and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) and tc:IsFacedown() and tc:IsDefensePos() then + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c45041488.lua b/script/c45041488.lua index d2951279..5257337a 100644 --- a/script/c45041488.lua +++ b/script/c45041488.lua @@ -14,7 +14,7 @@ function c45041488.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(45041488,3)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetCode(EVENT_CHAINING) e2:SetRange(LOCATION_MZONE) @@ -34,6 +34,8 @@ function c45041488.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_ROCK) and not c:IsPublic() end function c45041488.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c45041488.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c45041488.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -44,8 +46,10 @@ function c45041488.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(45041488,0),aux.Stringid(45041488,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(45041488,1),aux.Stringid(45041488,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(45041488,1),aux.Stringid(45041488,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(45041488,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -57,7 +61,7 @@ function c45041488.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c45041488.condition(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c45045866.lua b/script/c45045866.lua index 1d51a5ff..ee6d537d 100644 --- a/script/c45045866.lua +++ b/script/c45045866.lua @@ -16,8 +16,7 @@ function c45045866.initial_effect(c) c:RegisterEffect(e2) end function c45045866.filter(c) - local code=c:GetCode() - return (code==81434470 or code==18828179) and c:IsAbleToHand() + return c:IsCode(81434470,18828179) and c:IsAbleToHand() end function c45045866.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c45082499.lua b/script/c45082499.lua index d246761a..c5ac0e4b 100644 --- a/script/c45082499.lua +++ b/script/c45082499.lua @@ -33,7 +33,7 @@ function c45082499.eqcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():CheckUniqueOnField(tp) end function c45082499.filter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) + return c:IsFaceup() and c:IsSetCard(0x107f) end function c45082499.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c45082499.filter(chkc) end @@ -70,8 +70,8 @@ end function c45082499.eqlimit(e,c) return c==e:GetLabelObject() end -function c45082499.indval(e,re,tp) - return e:GetHandler():GetControler()~=tp +function c45082499.indval(e,re,rp) + return rp==1-e:GetHandlerPlayer() end function c45082499.repval(e,re,r,rp) return bit.band(r,REASON_EFFECT)~=0 diff --git a/script/c45133463.lua b/script/c45133463.lua index 98ef66ed..c7cd4267 100644 --- a/script/c45133463.lua +++ b/script/c45133463.lua @@ -18,8 +18,7 @@ function c45133463.condition(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c45133463.cfiltetr,1,nil,tp) end function c45133463.filter(c,e,tp) - local code=c:GetCode() - return (code==78552773 or code==78275321) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsCode(78552773,78275321) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c45133463.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c45133463.filter(chkc,e,tp) end diff --git a/script/c45141844.lua b/script/c45141844.lua index ad07279e..b1caaf8f 100644 --- a/script/c45141844.lua +++ b/script/c45141844.lua @@ -11,10 +11,10 @@ function c45141844.initial_effect(c) c:RegisterEffect(e1) end function c45141844.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c45141844.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c45159319.lua b/script/c45159319.lua index 2cd7d1b4..095c7137 100644 --- a/script/c45159319.lua +++ b/script/c45159319.lua @@ -19,6 +19,6 @@ end function c45159319.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c45170821.lua b/script/c45170821.lua index 5417e62a..e7b7be08 100644 --- a/script/c45170821.lua +++ b/script/c45170821.lua @@ -41,7 +41,7 @@ function c45170821.valop(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(val) o:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) o:RegisterEffect(e2) end end diff --git a/script/c45178472.lua b/script/c45178472.lua index 656e2a5c..7cc58c08 100644 --- a/script/c45178472.lua +++ b/script/c45178472.lua @@ -12,10 +12,10 @@ function c45178472.initial_effect(c) c:RegisterEffect(e1) end function c45178472.up(c) - return c:IsFaceup() and c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c45178472.down(c) - return c:IsFacedown() and c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsFacedown() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c45178472.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c45184165.lua b/script/c45184165.lua old mode 100755 new mode 100644 index 794d9b80..0c4934bd --- a/script/c45184165.lua +++ b/script/c45184165.lua @@ -1,86 +1,85 @@ ---RR－スカル・イーグル -function c45184165.initial_effect(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCountLimit(1,45184165) - e1:SetCondition(c45184165.thcon) - e1:SetCost(c45184165.thcost) - e1:SetTarget(c45184165.thtg) - e1:SetOperation(c45184165.thop) - c:RegisterEffect(e1) - --effect gain - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_BE_MATERIAL) - e2:SetCondition(c45184165.efcon) - e2:SetOperation(c45184165.efop) - c:RegisterEffect(e2) -end -function c45184165.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_COST) and re:IsHasType(0x7e0) and re:IsActiveType(TYPE_MONSTER) - and c:IsPreviousLocation(LOCATION_OVERLAY) -end -function c45184165.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c45184165.thfilter(c) - return c:IsSetCard(0xba) and c:IsAbleToHand() -end -function c45184165.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c45184165.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c45184165.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c45184165.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c45184165.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end -function c45184165.efcon(e,tp,eg,ep,ev,re,r,rp) - return r==REASON_XYZ -end -function c45184165.efop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local rc=c:GetReasonCard() - local e1=Effect.CreateEffect(rc) - e1:SetDescription(aux.Stringid(45184165,0)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c45184165.atkcon) - e1:SetOperation(c45184165.atkop) - e1:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e1,true) - if not rc:IsType(TYPE_EFFECT) then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_ADD_TYPE) - e2:SetValue(TYPE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e2,true) - end -end -function c45184165.atkcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ -end -function c45184165.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(300) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - end -end +--RR－スカル・イーグル +function c45184165.initial_effect(c) + --destroy + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_TO_GRAVE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e1:SetCountLimit(1,45184165) + e1:SetCondition(c45184165.thcon) + e1:SetCost(c45184165.thcost) + e1:SetTarget(c45184165.thtg) + e1:SetOperation(c45184165.thop) + c:RegisterEffect(e1) + --effect gain + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_BE_MATERIAL) + e2:SetCondition(c45184165.efcon) + e2:SetOperation(c45184165.efop) + c:RegisterEffect(e2) +end +function c45184165.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_COST) and re:IsHasType(0x7e0) and re:IsActiveType(TYPE_MONSTER) + and c:IsPreviousLocation(LOCATION_OVERLAY) +end +function c45184165.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c45184165.thfilter(c) + return c:IsSetCard(0xba) and c:IsAbleToHand() +end +function c45184165.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c45184165.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c45184165.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c45184165.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c45184165.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c45184165.efcon(e,tp,eg,ep,ev,re,r,rp) + return r==REASON_XYZ +end +function c45184165.efop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local rc=c:GetReasonCard() + local e1=Effect.CreateEffect(rc) + e1:SetDescription(aux.Stringid(45184165,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c45184165.atkcon) + e1:SetOperation(c45184165.atkop) + e1:SetReset(RESET_EVENT+0x1fe0000) + rc:RegisterEffect(e1,true) + if not rc:IsType(TYPE_EFFECT) then + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_ADD_TYPE) + e2:SetValue(TYPE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000) + rc:RegisterEffect(e2,true) + end +end +function c45184165.atkcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ +end +function c45184165.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and c:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(300) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + end +end diff --git a/script/c45206713.lua b/script/c45206713.lua old mode 100755 new mode 100644 diff --git a/script/c45215453.lua b/script/c45215453.lua index 350dc509..c941b4ce 100644 --- a/script/c45215453.lua +++ b/script/c45215453.lua @@ -17,7 +17,7 @@ function c45215453.initial_effect(c) c:RegisterEffect(e1) end function c45215453.thcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp and e:GetHandler():IsDefencePos() + return Duel.GetTurnPlayer()==tp and e:GetHandler():IsDefensePos() end function c45215453.filter(c) return c:IsType(TYPE_EQUIP) and c:IsAbleToHand() diff --git a/script/c45286019.lua b/script/c45286019.lua index 46e36c0c..56371d0e 100644 --- a/script/c45286019.lua +++ b/script/c45286019.lua @@ -36,7 +36,6 @@ function c45286019.splimit(e,c,sump,sumtype,sumpos,targetp,se) end function c45286019.filter(c,e,tp) return c:IsSetCard(0x72) and not c:IsCode(45286019) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c45286019.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -48,8 +47,8 @@ function c45286019.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c45286019.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c45311864.lua b/script/c45311864.lua index c3b69434..b8d1836d 100644 --- a/script/c45311864.lua +++ b/script/c45311864.lua @@ -15,6 +15,7 @@ function c45311864.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) end function c45311864.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(1-tp,500,REASON_EFFECT) - Duel.Recover(tp,500,REASON_EFFECT) + Duel.Damage(1-tp,500,REASON_EFFECT,true) + Duel.Recover(tp,500,REASON_EFFECT,true) + Duel.RDComplete() end diff --git a/script/c45313993.lua b/script/c45313993.lua new file mode 100644 index 00000000..c518ed22 --- /dev/null +++ b/script/c45313993.lua @@ -0,0 +1,40 @@ +--レッド・ウルフ +function c45313993.initial_effect(c) + --summon success + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(45313993,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c45313993.spcon) + e1:SetTarget(c45313993.sptg) + e1:SetOperation(c45313993.spop) + c:RegisterEffect(e1) +end +function c45313993.spcon(e,tp,eg,ep,ev,re,r,rp) + return ep==tp and eg:GetFirst():IsSetCard(0x57) +end +function c45313993.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c45313993.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then + local atk=c:GetAttack() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(atk/2) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1,true) + Duel.SpecialSummonComplete() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end diff --git a/script/c45383307.lua b/script/c45383307.lua new file mode 100644 index 00000000..968553cf --- /dev/null +++ b/script/c45383307.lua @@ -0,0 +1,85 @@ +--トラミッド・クルーザー +function c45383307.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --lp recover + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(45383307,0)) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetRange(LOCATION_FZONE) + e2:SetTarget(c45383307.lptg) + e2:SetOperation(c45383307.lpop) + c:RegisterEffect(e2) + --draw + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(45383307,1)) + e3:SetCategory(CATEGORY_DRAW+CATEGORY_HANDES) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_SUMMON_SUCCESS) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetRange(LOCATION_FZONE) + e3:SetTarget(c45383307.drtg) + e3:SetOperation(c45383307.drop) + c:RegisterEffect(e3) + --to hand + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e4:SetDescription(aux.Stringid(45383307,2)) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetProperty(EFFECT_FLAG_DELAY) + e4:SetCountLimit(1,45383307) + e4:SetCondition(c45383307.thcon) + e4:SetTarget(c45383307.thtg) + e4:SetOperation(c45383307.thop) + c:RegisterEffect(e4) +end +function c45383307.lpfilter(c) + return c:IsRace(RACE_ROCK) +end +function c45383307.lptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return eg:IsExists(c45383307.lpfilter,1,nil) end +end +function c45383307.lpop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_CARD,0,e:GetHandler():GetCode()) + Duel.Recover(tp,500,REASON_EFFECT) +end +function c45383307.drfilter(c) + return c:IsSetCard(0xe2) and c:IsType(TYPE_MONSTER) +end +function c45383307.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return eg:IsExists(c45383307.drfilter,1,nil) + and Duel.IsPlayerCanDraw(tp,1) end + Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c45383307.drop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + if Duel.Draw(tp,1,REASON_EFFECT)~=0 then + Duel.BreakEffect() + Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD) + end +end +function c45383307.thfilter(c) + return c:IsSetCard(0xe2) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c45383307.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_SZONE) and c:GetPreviousSequence()==5 and c:IsPreviousPosition(POS_FACEUP) +end +function c45383307.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chk==0 then return Duel.IsExistingMatchingCard(c45383307.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c45383307.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c45383307.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c45410988.lua b/script/c45410988.lua old mode 100755 new mode 100644 index ab1fd3af..a12f4643 --- a/script/c45410988.lua +++ b/script/c45410988.lua @@ -9,11 +9,22 @@ function c45410988.initial_effect(c) e1:SetOperation(c45410988.activate) c:RegisterEffect(e1) end -function c45410988.filter(c,e,tp,m1,m2) +c45410988.fit_monster={19025379} +function c45410988.filter(c,e,tp,m1,m2,ft) if not c:IsCode(19025379) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end local mg=m1:Filter(Card.IsCanBeRitualMaterial,c,c) mg:Merge(m2) - return mg:CheckWithSumGreater(Card.GetRitualLevel,8,c) + if ft>0 then + return mg:CheckWithSumGreater(Card.GetRitualLevel,8,c) + else + return mg:IsExists(c45410988.mfilterf,1,nil,tp,mg,c) + end +end +function c45410988.mfilterf(c,tp,mg,rc) + if c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) then + Duel.SetSelectedCard(c) + return mg:CheckWithSumGreater(Card.GetRitualLevel,8,rc) + else return false end end function c45410988.mfilter(c) return c:IsSetCard(0x3b) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() @@ -22,21 +33,33 @@ function c45410988.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local mg1=Duel.GetRitualMaterial(tp) local mg2=Duel.GetMatchingGroup(c45410988.mfilter,tp,LOCATION_GRAVE,0,nil) - return Duel.IsExistingMatchingCard(c45410988.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg1,mg2) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + return ft>-1 and Duel.IsExistingMatchingCard(c45410988.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg1,mg2,ft) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) end function c45410988.activate(e,tp,eg,ep,ev,re,r,rp) local mg1=Duel.GetRitualMaterial(tp) local mg2=Duel.GetMatchingGroup(c45410988.mfilter,tp,LOCATION_GRAVE,0,nil) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c45410988.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg1,mg2) + local g=Duel.SelectMatchingCard(tp,c45410988.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg1,mg2,ft) local tc=g:GetFirst() if tc then local mg=mg1:Filter(Card.IsCanBeRitualMaterial,tc,tc) mg:Merge(mg2) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,8,tc) + local mat=nil + if ft>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,8,tc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:FilterSelect(tp,c45410988.mfilterf,1,1,nil,tp,mg,tc) + Duel.SetSelectedCard(mat) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local mat2=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,8,tc) + mat:Merge(mat2) + end tc:SetMaterial(mat) Duel.ReleaseRitualMaterial(mat) Duel.BreakEffect() diff --git a/script/c45425051.lua b/script/c45425051.lua index 3d3317ea..8e44f085 100644 --- a/script/c45425051.lua +++ b/script/c45425051.lua @@ -10,12 +10,12 @@ function c45425051.initial_effect(c) e1:SetValue(500) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(500) c:RegisterEffect(e2) end function c45425051.con(e) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end function c45425051.tg(e,c) return c:IsRace(RACE_PLANT) diff --git a/script/c4542651.lua b/script/c4542651.lua index 5be1ae0c..655f771b 100644 --- a/script/c4542651.lua +++ b/script/c4542651.lua @@ -10,7 +10,7 @@ function c4542651.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_SZONE) e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(300) c:RegisterEffect(e2) end diff --git a/script/c45452224.lua b/script/c45452224.lua index 938b6354..6795af3c 100644 --- a/script/c45452224.lua +++ b/script/c45452224.lua @@ -1,5 +1,7 @@ --金華猫 function c45452224.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c45452224.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c45452224.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --spsummon local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(45452224,1)) @@ -60,42 +52,6 @@ function c45452224.spop(e,tp,eg,ep,ev,re,r,rp) tc:CreateRelation(c,RESET_EVENT+0x1fe0000) end end -function c45452224.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(45452224,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c45452224.retcon) - e1:SetTarget(c45452224.rettg) - e1:SetOperation(c45452224.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c45452224.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c45452224.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c45452224.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end function c45452224.leave(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=e:GetLabelObject() diff --git a/script/c4545683.lua b/script/c4545683.lua old mode 100755 new mode 100644 index f05417df..dc1b8514 --- a/script/c4545683.lua +++ b/script/c4545683.lua @@ -28,7 +28,7 @@ function c4545683.initial_effect(c) e3:SetValue(c4545683.val) c:RegisterEffect(e3) local e4=e3:Clone() - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e4) --equip local e5=Effect.CreateEffect(c) @@ -67,8 +67,12 @@ function c4545683.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c4545683.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP)>0 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then c:CompleteProcedure() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c4545683.val(e,c) @@ -131,6 +135,6 @@ end function c4545683.spop2(e,tp,eg,ep,ev,re,r,rp,chk) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c4545854.lua b/script/c4545854.lua index a1bfa46a..7b25f72a 100644 --- a/script/c4545854.lua +++ b/script/c4545854.lua @@ -7,38 +7,36 @@ function c4545854.initial_effect(c) c:RegisterEffect(e1) --ad up local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) e2:SetRange(LOCATION_FZONE) - e2:SetOperation(c4545854.atkup) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetCondition(c4545854.adcon) + e2:SetTarget(c4545854.adtg) + e2:SetValue(c4545854.adval) c:RegisterEffect(e2) - --Destroy replace - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DESTROY_REPLACE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_FZONE) - e3:SetTarget(c4545854.desreptg) + local e3=e2:Clone() + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) + --Destroy replace + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_DESTROY_REPLACE) + e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e4:SetRange(LOCATION_FZONE) + e4:SetTarget(c4545854.desreptg) + c:RegisterEffect(e4) +end +function c4545854.adcon(e) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and Duel.GetAttackTarget() end -function c4545854.atkup(e,tp,eg,ep,ev,re,r,rp,chk) +function c4545854.adtg(e,c) local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() - if not d then return end - c4545854.adup(a,e:GetHandler()) - c4545854.adup(d,e:GetHandler()) + return (c==a or c==d) and c:IsType(TYPE_XYZ) end -function c4545854.adup(c,oc) - if not c:IsType(TYPE_XYZ) then return end - local e1=Effect.CreateEffect(oc) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(c:GetRank()*200) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) +function c4545854.adval(e,c) + return c:GetRank()*200 end function c4545854.desreptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return not e:GetHandler():IsReason(REASON_RULE) diff --git a/script/c45462639.lua b/script/c45462639.lua index f3e0a07a..41bf8acb 100644 --- a/script/c45462639.lua +++ b/script/c45462639.lua @@ -1,6 +1,6 @@ --闇紅の魔導師 function c45462639.initial_effect(c) - c:EnableCounterPermit(0x3001) + c:EnableCounterPermit(0x1) --summon success local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(45462639,0)) @@ -46,24 +46,24 @@ function c45462639.initial_effect(c) end function c45462639.addct(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0x3001) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0x1) end function c45462639.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x3001,2) + e:GetHandler():AddCounter(0x1,2) end end function c45462639.acop(e,tp,eg,ep,ev,re,r,rp) if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c45462639.attackup(e,c) - return c:GetCounter(0x3001)*300 + return c:GetCounter(0x1)*300 end function c45462639.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x3001,2,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x3001,2,REASON_COST) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,2,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1,2,REASON_COST) end function c45462639.destarg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 end diff --git a/script/c45467446.lua b/script/c45467446.lua new file mode 100644 index 00000000..486c398c --- /dev/null +++ b/script/c45467446.lua @@ -0,0 +1,78 @@ +--白き霊龍 +function c45467446.initial_effect(c) + --Normal monster + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetCode(EFFECT_ADD_TYPE) + e1:SetRange(LOCATION_HAND+LOCATION_GRAVE) + e1:SetValue(TYPE_NORMAL) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_REMOVE_TYPE) + e2:SetValue(TYPE_EFFECT) + c:RegisterEffect(e2) + --Remove + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_REMOVE) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_SUMMON_SUCCESS) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetTarget(c45467446.rmtg) + e3:SetOperation(c45467446.rmop) + c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e4) + --Special Summon + local e5=Effect.CreateEffect(c) + e5:SetCategory(CATEGORY_SPECIAL_SUMMON) + e5:SetType(EFFECT_TYPE_QUICK_O) + e5:SetHintTiming(0,TIMING_END_PHASE) + e5:SetCode(EVENT_FREE_CHAIN) + e5:SetRange(LOCATION_MZONE) + e5:SetCondition(c45467446.spcon) + e5:SetCost(c45467446.spcost) + e5:SetTarget(c45467446.sptg) + e5:SetOperation(c45467446.spop) + c:RegisterEffect(e5) +end +function c45467446.rmfilter(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemove() +end +function c45467446.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsControler(1-tp) and c45467446.rmfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c45467446.rmfilter,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectTarget(tp,c45467446.rmfilter,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) +end +function c45467446.rmop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) + end +end +function c45467446.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 +end +function c45467446.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c45467446.spfilter(c,e,tp) + return c:IsCode(89631139) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c45467446.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c45467446.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c45467446.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c45467446.spfilter,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 diff --git a/script/c45531624.lua b/script/c45531624.lua new file mode 100644 index 00000000..ff3bb467 --- /dev/null +++ b/script/c45531624.lua @@ -0,0 +1,66 @@ +--エルフの聖剣士 +function c45531624.initial_effect(c) + --cannot attack + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetCondition(c45531624.atcon) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(45531624,0)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetTarget(c45531624.sptg) + e2:SetOperation(c45531624.spop) + c:RegisterEffect(e2) + --draw + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DRAW) + e3:SetDescription(aux.Stringid(45531624,1)) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_BATTLE_DAMAGE) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetCondition(c45531624.drcon) + e3:SetTarget(c45531624.drtg) + e3:SetOperation(c45531624.drop) + c:RegisterEffect(e3) +end +function c45531624.atcon(e) + return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_HAND,0)>=1 +end +function c45531624.spfilter(c,e,tp) + return c:IsSetCard(0xe4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c45531624.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c45531624.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c45531624.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c45531624.spfilter,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 +function c45531624.drcon(e,tp,eg,ep,ev,re,r,rp) + return ep~=tp and Duel.GetAttacker()==e:GetHandler() +end +function c45531624.drfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe4) +end +function c45531624.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + local ct=Duel.GetMatchingGroupCount(c45531624.drfilter,tp,LOCATION_MZONE,0,nil) + if chk==0 then return ct>0 and Duel.IsPlayerCanDraw(tp,ct) end + Duel.SetTargetPlayer(tp) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct) +end +function c45531624.drop(e,tp,eg,ep,ev,re,r,rp) + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + local d=Duel.GetMatchingGroupCount(c45531624.drfilter,tp,LOCATION_MZONE,0,nil) + Duel.Draw(p,d,REASON_EFFECT) +end diff --git a/script/c45533023.lua b/script/c45533023.lua index 76d11251..05783bb2 100644 --- a/script/c45533023.lua +++ b/script/c45533023.lua @@ -37,10 +37,10 @@ function c45533023.descon(e,tp,eg,ep,ev,re,r,rp) return ep~=tp end function c45533023.destg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c45533023.desop1(e,tp,eg,ep,ev,re,r,rp) @@ -54,7 +54,7 @@ function c45533023.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c45533023.filter(c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL and c:IsDestructable() + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL end function c45533023.destg2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c45533023.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c45591967.lua b/script/c45591967.lua new file mode 100644 index 00000000..0edf3422 --- /dev/null +++ b/script/c45591967.lua @@ -0,0 +1,85 @@ +--EMエクストラ・シューター +function c45591967.initial_effect(c) + aux.EnablePendulumAttribute(c) + --Damage + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(45591967,0)) + e1:SetCategory(CATEGORY_DAMAGE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCountLimit(1,45591967) + e1:SetCost(c45591967.dmcost) + e1:SetTarget(c45591967.dmtg) + e1:SetOperation(c45591967.dmop) + c:RegisterEffect(e1) + --Destroy & Damage + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(45591967,1)) + e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1) + e2:SetCost(c45591967.descost) + e2:SetTarget(c45591967.destg) + e2:SetOperation(c45591967.desop) + c:RegisterEffect(e2) + Duel.AddCustomActivityCounter(45591967,ACTIVITY_SPSUMMON,c45591967.counterfilter) +end +function c45591967.counterfilter(c) + return bit.band(c:GetSummonType(),SUMMON_TYPE_PENDULUM)~=SUMMON_TYPE_PENDULUM +end +function c45591967.dmcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetCustomActivityCount(45591967,tp,ACTIVITY_SPSUMMON)==0 end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetReset(RESET_PHASE+PHASE_END) + e1:SetTargetRange(1,0) + e1:SetTarget(c45591967.splimit) + Duel.RegisterEffect(e1,tp) +end +function c45591967.splimit(e,c,sump,sumtype,sumpos,targetp,se) + return bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM +end +function c45591967.dmfilter(c) + return c:IsFaceup() and c:IsType(TYPE_PENDULUM) +end +function c45591967.dmtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c45591967.dmfilter,tp,LOCATION_EXTRA,0,1,nil) end + local dam=Duel.GetMatchingGroupCount(c45591967.dmfilter,tp,LOCATION_EXTRA,0,nil)*300 + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(dam) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) +end +function c45591967.dmop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + local d=Duel.GetMatchingGroupCount(c45591967.dmfilter,tp,LOCATION_EXTRA,0,nil)*300 + Duel.Damage(p,d,REASON_EFFECT) +end +function c45591967.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_EXTRA,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_EXTRA,0,1,1,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c45591967.desfilter(c) + return (c:GetSequence()==6 or c:GetSequence()==7) +end +function c45591967.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_SZONE) and c45591967.desfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c45591967.desfilter,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c45591967.desfilter,tp,LOCATION_SZONE,LOCATION_SZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,300) +end +function c45591967.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + Duel.Damage(1-tp,300,REASON_EFFECT) + end +end diff --git a/script/c45593005.lua b/script/c45593005.lua index c77b9ace..72baa58b 100644 --- a/script/c45593005.lua +++ b/script/c45593005.lua @@ -26,7 +26,7 @@ end function c45593005.cona(e,tp,eg,ep,ev,re,r,rp) return not e:GetHandler():IsDisabled() and e:GetHandler():IsAttackPos() and Duel.GetMatchingGroupCount(c45593005.cfilter,tp,LOCATION_MZONE,0,e:GetHandler())==2 - and not Duel.IsExistingMatchingCard(Card.IsDefencePos,tp,LOCATION_MZONE,0,1,e:GetHandler()) + and not Duel.IsExistingMatchingCard(Card.IsDefensePos,tp,LOCATION_MZONE,0,1,e:GetHandler()) end function c45593005.tga(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -55,6 +55,7 @@ function c45593005.opa(e,tp,eg,ep,ev,re,r,rp) if sg:GetCount()==0 then return end local atk=sg:GetSum(Card.GetAttack) local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UPDATE_ATTACK) @@ -63,5 +64,5 @@ function c45593005.opa(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1) end function c45593005.cond(e) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end diff --git a/script/c45593826.lua b/script/c45593826.lua old mode 100755 new mode 100644 index fcdcf15e..dd4a082b --- a/script/c45593826.lua +++ b/script/c45593826.lua @@ -48,8 +48,11 @@ function c45593826.sstg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c45593826.ssop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c45593826.dttg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c45627618.lua b/script/c45627618.lua index 4137166f..09bc9974 100644 --- a/script/c45627618.lua +++ b/script/c45627618.lua @@ -1,111 +1,111 @@ ---覇王黒竜オッドアイズ・リベリオン・ドラゴン -function c45627618.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_DRAGON),7,2) - c:EnableReviveLimit() - --pendulum summon - aux.EnablePendulumAttribute(c,false) - --pendulum set - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_PZONE) - e1:SetCountLimit(1) - e1:SetTarget(c45627618.pctg) - e1:SetOperation(c45627618.pcop) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c45627618.descon) - e2:SetTarget(c45627618.destg) - e2:SetOperation(c45627618.desop) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_MATERIAL_CHECK) - e3:SetValue(c45627618.valcheck) - e3:SetLabelObject(e2) - c:RegisterEffect(e3) - --pendulum - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_DESTROYED) - e4:SetProperty(EFFECT_FLAG_DELAY) - e4:SetCondition(c45627618.pencon) - e4:SetTarget(c45627618.pentg) - e4:SetOperation(c45627618.penop) - c:RegisterEffect(e4) -end -c45627618.pendulum_level=7 -function c45627618.pcfilter(c) - return c:IsType(TYPE_PENDULUM) and not c:IsForbidden() -end -function c45627618.pctg(e,tp,eg,ep,ev,re,r,rp,chk) - local seq=e:GetHandler():GetSequence() - if chk==0 then return Duel.CheckLocation(tp,LOCATION_SZONE,13-seq) - and Duel.IsExistingMatchingCard(c45627618.pcfilter,tp,LOCATION_DECK,0,1,nil) end -end -function c45627618.pcop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local seq=e:GetHandler():GetSequence() - if not Duel.CheckLocation(tp,LOCATION_SZONE,13-seq) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) - local g=Duel.SelectMatchingCard(tp,c45627618.pcfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true) - end -end -function c45627618.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ and e:GetLabel()==1 -end -function c45627618.desfilter(c) - return c:IsFaceup() and c:IsLevelBelow(7) and c:IsDestructable() -end -function c45627618.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(c45627618.desfilter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetCount()*1000) -end -function c45627618.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c45627618.desfilter,tp,0,LOCATION_MZONE,nil) - local ct=Duel.Destroy(g,REASON_EFFECT) - if Duel.Damage(1-tp,ct*1000,REASON_EFFECT)~=0 then - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) - e1:SetValue(2) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end -end -function c45627618.valcheck(e,c) - local g=c:GetMaterial() - if g:IsExists(Card.IsType,1,nil,TYPE_XYZ) then - e:GetLabelObject():SetLabel(1) - else - e:GetLabelObject():SetLabel(0) - end -end -function c45627618.pencon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_MZONE) -end -function c45627618.pentg(e,tp,eg,ep,ev,re,r,rp,chk) - local lsc=Duel.GetFieldCard(tp,LOCATION_SZONE,6) - local rsc=Duel.GetFieldCard(tp,LOCATION_SZONE,7) - local g=Group.FromCards(lsc,rsc):Filter(Card.IsDestructable,nil) - if chk==0 then return g:GetCount()>0 end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c45627618.penop(e,tp,eg,ep,ev,re,r,rp) - local lsc=Duel.GetFieldCard(tp,LOCATION_SZONE,6) - local rsc=Duel.GetFieldCard(tp,LOCATION_SZONE,7) - local g=Group.FromCards(lsc,rsc) - if Duel.Destroy(g,REASON_EFFECT)~=0 and e:GetHandler():IsRelateToEffect(e) then - Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_SZONE,POS_FACEUP,true) - end -end +--覇王黒竜オッドアイズ・リベリオン・ドラゴン +function c45627618.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_DRAGON),7,2) + c:EnableReviveLimit() + --pendulum summon + aux.EnablePendulumAttribute(c,false) + --pendulum set + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetTarget(c45627618.pctg) + e1:SetOperation(c45627618.pcop) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetCondition(c45627618.descon) + e2:SetTarget(c45627618.destg) + e2:SetOperation(c45627618.desop) + c:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_MATERIAL_CHECK) + e3:SetValue(c45627618.valcheck) + e3:SetLabelObject(e2) + c:RegisterEffect(e3) + --pendulum + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_DESTROYED) + e4:SetProperty(EFFECT_FLAG_DELAY) + e4:SetCondition(c45627618.pencon) + e4:SetTarget(c45627618.pentg) + e4:SetOperation(c45627618.penop) + c:RegisterEffect(e4) +end +c45627618.pendulum_level=7 +function c45627618.pcfilter(c) + return c:IsType(TYPE_PENDULUM) and not c:IsForbidden() +end +function c45627618.pctg(e,tp,eg,ep,ev,re,r,rp,chk) + local seq=e:GetHandler():GetSequence() + if chk==0 then return Duel.CheckLocation(tp,LOCATION_SZONE,13-seq) + and Duel.IsExistingMatchingCard(c45627618.pcfilter,tp,LOCATION_DECK,0,1,nil) end +end +function c45627618.pcop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local seq=e:GetHandler():GetSequence() + if not Duel.CheckLocation(tp,LOCATION_SZONE,13-seq) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) + local g=Duel.SelectMatchingCard(tp,c45627618.pcfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true) + end +end +function c45627618.descon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ and e:GetLabel()==1 +end +function c45627618.desfilter(c) + return c:IsFaceup() and c:IsLevelBelow(7) +end +function c45627618.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local g=Duel.GetMatchingGroup(c45627618.desfilter,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetCount()*1000) +end +function c45627618.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c45627618.desfilter,tp,0,LOCATION_MZONE,nil) + local ct=Duel.Destroy(g,REASON_EFFECT) + if Duel.Damage(1-tp,ct*1000,REASON_EFFECT)~=0 then + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_EXTRA_ATTACK) + e1:SetValue(2) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + end +end +function c45627618.valcheck(e,c) + local g=c:GetMaterial() + if g:IsExists(Card.IsType,1,nil,TYPE_XYZ) then + e:GetLabelObject():SetLabel(1) + else + e:GetLabelObject():SetLabel(0) + end +end +function c45627618.pencon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_MZONE) +end +function c45627618.pentg(e,tp,eg,ep,ev,re,r,rp,chk) + local lsc=Duel.GetFieldCard(tp,LOCATION_SZONE,6) + local rsc=Duel.GetFieldCard(tp,LOCATION_SZONE,7) + local g=Group.FromCards(lsc,rsc):Filter(aux.TRUE,nil) + if chk==0 then return g:GetCount()>0 end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c45627618.penop(e,tp,eg,ep,ev,re,r,rp) + local lsc=Duel.GetFieldCard(tp,LOCATION_SZONE,6) + local rsc=Duel.GetFieldCard(tp,LOCATION_SZONE,7) + local g=Group.FromCards(lsc,rsc) + if Duel.Destroy(g,REASON_EFFECT)~=0 and e:GetHandler():IsRelateToEffect(e) then + Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_SZONE,POS_FACEUP,true) + end +end diff --git a/script/c45644898.lua b/script/c45644898.lua new file mode 100644 index 00000000..b733b102 --- /dev/null +++ b/script/c45644898.lua @@ -0,0 +1,73 @@ +--青き眼の祭司 +function c45644898.initial_effect(c) + --tohand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(45644898,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c45644898.target) + e1:SetOperation(c45644898.operation) + c:RegisterEffect(e1) + --To grave + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(45644898,1)) + e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,45644898) + e2:SetCost(c45644898.spcost) + e2:SetTarget(c45644898.sptg) + e2:SetOperation(c45644898.spop) + c:RegisterEffect(e2) +end +function c45644898.thfilter(c) + return c:IsType(TYPE_TUNER) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:GetLevel()==1 and c:IsAbleToHand() +end +function c45644898.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c45644898.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c45644898.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c45644898.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c45644898.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c45644898.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end + Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_COST) +end +function c45644898.gvfilter(c) + return c:IsFaceup() and c:IsType(TYPE_EFFECT) and c:IsAbleToGrave() +end +function c45644898.spfilter(c,e,tp) + return c:IsSetCard(0xdd) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c45644898.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c45644898.gvfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c45644898.gvfilter,tp,LOCATION_MZONE,0,1,nil) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c45644898.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectTarget(tp,c45644898.gvfilter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) +end +function c45644898.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) + and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c45644898.spfilter,tp,LOCATION_GRAVE,0,1,1,tc,e,tp) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + end +end diff --git a/script/c45653036.lua b/script/c45653036.lua index b20b99f2..17530188 100644 --- a/script/c45653036.lua +++ b/script/c45653036.lua @@ -20,14 +20,14 @@ function c45653036.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SelectTarget(tp,c45653036.cfilter,tp,LOCATION_MZONE,0,1,1,nil) end function c45653036.filter1(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c45653036.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then local atk=tc:GetAttack() local g1=Duel.GetMatchingGroup(c45653036.filter1,tp,0,LOCATION_ONFIELD,nil) - local g2=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g2=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) local opt=0 local b1=atk>=1000 and g1:GetCount()>0 local b2=atk>=2000 and g2:GetCount()>1 diff --git a/script/c45711266.lua b/script/c45711266.lua index 5a57640a..4758e4b4 100644 --- a/script/c45711266.lua +++ b/script/c45711266.lua @@ -28,7 +28,7 @@ function c45711266.operation(e,tp,eg,ep,ev,re,r,rp) if not c:IsStatus(STATUS_BATTLE_DESTROYED) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetValue(lv*100) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) diff --git a/script/c45742626.lua b/script/c45742626.lua index 71d477e0..dc96afbc 100644 --- a/script/c45742626.lua +++ b/script/c45742626.lua @@ -12,7 +12,7 @@ function c45742626.initial_effect(c) e1:SetValue(c45742626.value) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) --deckdes local e3=Effect.CreateEffect(c) diff --git a/script/c45778932.lua b/script/c45778932.lua index da490fb1..2e5065b1 100644 --- a/script/c45778932.lua +++ b/script/c45778932.lua @@ -16,7 +16,7 @@ function c45778932.initial_effect(c) c:RegisterEffect(e2) --Def down local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(-400) c:RegisterEffect(e3) end diff --git a/script/c45803070.lua b/script/c45803070.lua index 0f26ef28..7e130e1c 100644 --- a/script/c45803070.lua +++ b/script/c45803070.lua @@ -47,7 +47,7 @@ end function c45803070.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end function c45803070.setfilter(c) @@ -66,6 +66,7 @@ function c45803070.setop(e,tp,eg,ep,ev,re,r,rp) if tc:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then Duel.SSet(tp,tc) Duel.ConfirmCards(1-tp,tc) + local fid=e:GetHandler():GetFieldID() local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_PHASE+PHASE_END) @@ -78,10 +79,11 @@ function c45803070.setop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN) end e1:SetLabelObject(tc) + e1:SetValue(fid) e1:SetCondition(c45803070.rmcon) e1:SetOperation(c45803070.rmop) Duel.RegisterEffect(e1,tp) - tc:CreateEffectRelation(e1) + tc:RegisterFlagEffect(45803070,RESET_EVENT+0x1fe0000,0,1,fid) end end function c45803070.rmcon(e,tp,eg,ep,ev,re,r,rp) @@ -89,7 +91,7 @@ function c45803070.rmcon(e,tp,eg,ep,ev,re,r,rp) end function c45803070.rmop(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetLabelObject() - if tc:IsRelateToEffect(e) then + if tc:GetFlagEffectLabel(45803070)==e:GetValue() then Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) end end diff --git a/script/c45871897.lua b/script/c45871897.lua index ae798477..a02bb5f5 100644 --- a/script/c45871897.lua +++ b/script/c45871897.lua @@ -1,9 +1,9 @@ --ロストガーディアン function c45871897.initial_effect(c) - --base defence + --base defense local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_BASE_DEFENCE) + e1:SetCode(EFFECT_SET_BASE_DEFENSE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e1:SetRange(LOCATION_MZONE) e1:SetValue(c45871897.defval) diff --git a/script/c4587638.lua b/script/c4587638.lua index 23c93a31..62074b11 100644 --- a/script/c4587638.lua +++ b/script/c4587638.lua @@ -28,7 +28,7 @@ end function c4587638.atkcon(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() - return d and eg:GetFirst()==a and a:IsControler(tp) and a:IsRace(RACE_BEAST) and d:IsDefencePos() + return d and eg:GetFirst()==a and a:IsControler(tp) and a:IsRace(RACE_BEAST) and d:IsDefensePos() end function c4587638.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end @@ -47,7 +47,7 @@ function c4587638.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end \ No newline at end of file diff --git a/script/c45894482.lua b/script/c45894482.lua index 4f3c39c1..efe94a18 100644 --- a/script/c45894482.lua +++ b/script/c45894482.lua @@ -21,7 +21,7 @@ function c45894482.initial_effect(c) e3:SetDescription(aux.Stringid(45894482,0)) e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_EVENT_PLAYER) - e3:SetCode(45894482) + e3:SetCode(EVENT_CUSTOM+45894482) e3:SetTarget(c45894482.target) e3:SetOperation(c45894482.operation) c:RegisterEffect(e3) @@ -32,7 +32,7 @@ function c45894482.spcon(e,c) end function c45894482.trigop(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 then - Duel.RaiseSingleEvent(e:GetHandler(),45894482,e,r,rp,1-tp,0) + Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+45894482,e,r,rp,1-tp,0) end end function c45894482.filter(c,e,tp) diff --git a/script/c45895206.lua b/script/c45895206.lua index 4d4b00da..503272c3 100644 --- a/script/c45895206.lua +++ b/script/c45895206.lua @@ -17,6 +17,6 @@ end function c45895206.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,0,LOCATION_MZONE,nil) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_DEFENCE,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE) end end diff --git a/script/c45898858.lua b/script/c45898858.lua index a69fc192..c6192de4 100644 --- a/script/c45898858.lua +++ b/script/c45898858.lua @@ -19,7 +19,7 @@ function c45898858.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g1,REASON_COST) end function c45898858.filter(c,e,tp) - return c:IsCode(85066822) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(85066822) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) end function c45898858.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-3 @@ -30,7 +30,7 @@ function c45898858.activate(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c45898858.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP) g:GetFirst():CompleteProcedure() end diff --git a/script/c45939841.lua b/script/c45939841.lua old mode 100755 new mode 100644 index d64954bb..ee56e048 --- a/script/c45939841.lua +++ b/script/c45939841.lua @@ -17,7 +17,7 @@ function c45939841.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.PayLPCost(tp,500) end function c45939841.filter(c) - return c:IsFaceup() and c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c45939841.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c45939841.filter(chkc) and chkc~=e:GetHandler() end diff --git a/script/c45974017.lua b/script/c45974017.lua index 13585b45..d37dafd0 100644 --- a/script/c45974017.lua +++ b/script/c45974017.lua @@ -46,7 +46,8 @@ function c45974017.pctg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if op==0 then e:SetProperty(EFFECT_FLAG_CARD_TARGET) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) - Duel.SelectTarget(tp,c45974017.pcfilter,tp,LOCATION_GRAVE,0,1,1,nil) + local g=Duel.SelectTarget(tp,c45974017.pcfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) else e:SetProperty(0) end diff --git a/script/c46008667.lua b/script/c46008667.lua old mode 100755 new mode 100644 diff --git a/script/c46009906.lua b/script/c46009906.lua index 261c9b9b..ee7496df 100644 --- a/script/c46009906.lua +++ b/script/c46009906.lua @@ -18,7 +18,7 @@ function c46009906.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(300) c:RegisterEffect(e3) --equip limit diff --git a/script/c46031686.lua b/script/c46031686.lua index 63e17e54..26ef0658 100644 --- a/script/c46031686.lua +++ b/script/c46031686.lua @@ -21,6 +21,9 @@ function c46031686.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c46031686.activate(e,tp,eg,ep,ev,re,r,rp) Duel.NegateActivation(ev) + if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then + Duel.SendtoGrave(eg,REASON_EFFECT) + end Duel.Draw(tp,1,REASON_EFFECT) Duel.Draw(1-tp,1,REASON_EFFECT) end diff --git a/script/c46035545.lua b/script/c46035545.lua new file mode 100644 index 00000000..de2e0db8 --- /dev/null +++ b/script/c46035545.lua @@ -0,0 +1,111 @@ +--DD魔導賢者ニコラ +function c46035545.initial_effect(c) + aux.EnablePendulumAttribute(c) + --splimit + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_PZONE) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) + e1:SetTargetRange(1,0) + e1:SetTarget(c46035545.splimit) + c:RegisterEffect(e1) + --atk up + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(46035545,0)) + e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_PZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1) + e2:SetCost(c46035545.atkcost) + e2:SetTarget(c46035545.atktg) + e2:SetOperation(c46035545.atkop) + c:RegisterEffect(e2) + -- + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_DESTROYED) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e3:SetCountLimit(1,46035545) + e3:SetCondition(c46035545.thcon) + e3:SetTarget(c46035545.thtg) + e3:SetOperation(c46035545.thop) + c:RegisterEffect(e3) +end +function c46035545.splimit(e,c,sump,sumtype,sumpos,targetp) + return not c:IsSetCard(0xaf) and bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM +end +function c46035545.atkcfilter(c) + return c:IsSetCard(0x10af) and c:IsType(TYPE_MONSTER) and c:IsDiscardable() +end +function c46035545.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c46035545.atkcfilter,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,c46035545.atkcfilter,1,1,REASON_COST+REASON_DISCARD) +end +function c46035545.atkfilter(c) + return c:IsFaceup() and c:IsSetCard(0xaf) and c:IsLevelBelow(6) +end +function c46035545.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c46035545.atkfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c46035545.atkfilter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,c46035545.atkfilter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c46035545.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(2000) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + tc:RegisterEffect(e2) + end +end +function c46035545.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_SZONE) and (c:GetPreviousSequence()==6 or c:GetPreviousSequence()==7) +end +function c46035545.thfilter(c) + return c:IsFaceup() and c:IsSetCard(0x10af) and c:IsAbleToHand() +end +function c46035545.pfilter(c) + return c:IsFaceup() and c:IsSetCard(0xaf) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden() +end +function c46035545.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c46035545.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c46035545.thfilter,tp,LOCATION_MZONE,0,1,nil) + and (Duel.CheckLocation(tp,LOCATION_SZONE,6) or Duel.CheckLocation(tp,LOCATION_SZONE,7)) + and Duel.IsExistingMatchingCard(c46035545.pfilter,tp,LOCATION_EXTRA,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c46035545.thfilter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c46035545.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 + and tc:IsLocation(LOCATION_HAND) then + local ct=0 + if Duel.CheckLocation(tp,LOCATION_SZONE,6) then ct=ct+1 end + if Duel.CheckLocation(tp,LOCATION_SZONE,7) then ct=ct+1 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) + local g=Duel.SelectMatchingCard(tp,c46035545.pfilter,tp,LOCATION_EXTRA,0,1,ct,nil) + local pc=g:GetFirst() + while pc do + Duel.MoveToField(pc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_TRIGGER) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + pc:RegisterEffect(e1) + pc=g:GetNext() + end + end +end diff --git a/script/c46037213.lua b/script/c46037213.lua index 5c2c361a..7e76cc01 100644 --- a/script/c46037213.lua +++ b/script/c46037213.lua @@ -45,7 +45,9 @@ function c46037213.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c46037213.spop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>=g:GetCount() then + local ct=g:GetCount() + if ct>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)>=ct then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c46044841.lua b/script/c46044841.lua index 878a9759..f2b2aeaa 100644 --- a/script/c46044841.lua +++ b/script/c46044841.lua @@ -29,7 +29,7 @@ function c46044841.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c46044841.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,g) end end diff --git a/script/c46066477.lua b/script/c46066477.lua old mode 100755 new mode 100644 diff --git a/script/c46089249.lua b/script/c46089249.lua index 1561edf6..f0661cc4 100644 --- a/script/c46089249.lua +++ b/script/c46089249.lua @@ -22,7 +22,7 @@ function c46089249.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.ShuffleHand(tp) end function c46089249.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c46089249.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c46089249.filter(chkc) end @@ -36,8 +36,9 @@ function c46089249.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then if Duel.Destroy(tc,REASON_EFFECT)>0 then - Duel.Damage(1-tp,1000,REASON_EFFECT) - Duel.Damage(tp,1000,REASON_EFFECT) + Duel.Damage(1-tp,1000,REASON_EFFECT,true) + Duel.Damage(tp,1000,REASON_EFFECT,true) + Duel.RDComplete() end end end diff --git a/script/c46132282.lua b/script/c46132282.lua old mode 100755 new mode 100644 diff --git a/script/c4614116.lua b/script/c4614116.lua index 3d31cb38..414ace29 100644 --- a/script/c4614116.lua +++ b/script/c4614116.lua @@ -18,7 +18,7 @@ function c4614116.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(300) c:RegisterEffect(e3) --equip limit diff --git a/script/c46173679.lua b/script/c46173679.lua index af7617cf..eea09d48 100644 --- a/script/c46173679.lua +++ b/script/c46173679.lua @@ -38,18 +38,19 @@ function c46173679.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) return e:GetLabelObject()~=se end function c46173679.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsPlayerCanSpecialSummonMonster(tp,46173680,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) - end + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and Duel.IsPlayerCanSpecialSummonMonster(tp,46173680,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c46173679.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,46173680,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) then for i=1,2 do local token=Duel.CreateToken(tp,46173679+i) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UNRELEASABLE_SUM) diff --git a/script/c46195773.lua b/script/c46195773.lua index 69bebeb4..93e048a0 100644 --- a/script/c46195773.lua +++ b/script/c46195773.lua @@ -26,7 +26,7 @@ function c46195773.tfilter(c) return c:IsCode(67270095) or c:IsHasEffect(20932152) end function c46195773.efilter(e,re,rp) - return re:GetHandler():IsLevelBelow(6) and aux.tgval(e,re,rp) + return re:GetHandler():IsLevelBelow(6) end function c46195773.atktg(e,tp,eg,ep,ev,re,r,rp,chk) local d=Duel.GetAttackTarget() diff --git a/script/c46232525.lua b/script/c46232525.lua old mode 100755 new mode 100644 index cbb4d67d..d280a8cd --- a/script/c46232525.lua +++ b/script/c46232525.lua @@ -36,7 +36,7 @@ function c46232525.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(tp,c46232525.tgfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,e,tp,chkf) local tc=g:GetFirst() if tc and not tc:IsImmuneToEffect(e) then - if tc:IsFacedown() then Duel.ConfirmCards(1-tp,tc) end + if tc:IsOnField() and tc:IsFacedown() then Duel.ConfirmCards(1-tp,tc) end local race=tc:GetRace() Duel.SendtoGrave(tc,REASON_EFFECT) if not tc:IsLocation(LOCATION_GRAVE) then return end diff --git a/script/c46239604.lua b/script/c46239604.lua index 3fb9dc94..7c461fde 100644 --- a/script/c46239604.lua +++ b/script/c46239604.lua @@ -35,7 +35,7 @@ function c46239604.condition(e,tp,eg,ep,ev,re,r,rp,chk) return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) end function c46239604.filter(c) - return c:IsSetCard(0x12) and c:GetCode()~=46239604 and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x12) and not c:IsCode(46239604) and c:IsAbleToHand() end function c46239604.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c46239604.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,nil) end @@ -44,7 +44,7 @@ end function c46239604.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c46239604.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end diff --git a/script/c46253216.lua b/script/c46253216.lua new file mode 100644 index 00000000..f2f4c3a6 --- /dev/null +++ b/script/c46253216.lua @@ -0,0 +1,32 @@ +--フレンドリーファイヤ +function c46253216.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_CHAINING) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCondition(c46253216.condition) + e1:SetTarget(c46253216.target) + e1:SetOperation(c46253216.activate) + c:RegisterEffect(e1) +end +function c46253216.condition(e,tp,eg,ep,ev,re,r,rp) + return ep~=tp +end +function c46253216.filter(c,rc) + return c~=rc +end +function c46253216.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and c46253216.filter(chkc,re:GetHandler()) and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(c46253216.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler(),re:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c46253216.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler(),re:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c46253216.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c46259438.lua b/script/c46259438.lua index 3ef04c46..0248c66e 100644 --- a/script/c46259438.lua +++ b/script/c46259438.lua @@ -10,7 +10,7 @@ function c46259438.initial_effect(c) c:RegisterEffect(e1) end function c46259438.filter(c) - return c:IsFaceup() and c:IsSetCard(0xae) and c:GetSequence()<5 and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0xae) and c:GetSequence()<5 end function c46259438.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsPlayerCanDraw(tp) diff --git a/script/c46263076.lua b/script/c46263076.lua index d4ae63fc..8ba01e38 100644 --- a/script/c46263076.lua +++ b/script/c46263076.lua @@ -1,6 +1,6 @@ --地縛神 Ccapac Apu function c46263076.initial_effect(c) - c:SetUniqueOnField(1,1,10000000) + c:SetUniqueOnField(1,1,10000000,LOCATION_MZONE) -- local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c4628897.lua b/script/c4628897.lua new file mode 100644 index 00000000..932c1bc2 --- /dev/null +++ b/script/c4628897.lua @@ -0,0 +1,84 @@ +--超電導戦機インペリオン・マグナム +function c4628897.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcCode2(c,75347539,42901635,false,false) + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(aux.fuslimit) + c:RegisterEffect(e1) + --negate + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(4628897,0)) + e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_CHAINING) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e2:SetCountLimit(1) + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(c4628897.negcon) + e2:SetTarget(c4628897.negtg) + e2:SetOperation(c4628897.negop) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(4628897,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_LEAVE_FIELD) + e3:SetCondition(c4628897.spcon) + e3:SetTarget(c4628897.sptg) + e3:SetOperation(c4628897.spop) + c:RegisterEffect(e3) +end +function c4628897.negcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if ep==tp or c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end + return (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev) +end +function c4628897.negtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end +end +function c4628897.negop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + if re:GetHandler():IsRelateToEffect(re) then + Duel.Destroy(eg,REASON_EFFECT) + end +end +function c4628897.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:GetReasonPlayer()~=tp and c:IsReason(REASON_EFFECT) + and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) +end +function c4628897.spfilter(c,e,tp,code) + return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) +end +function c4628897.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and Duel.IsExistingMatchingCard(c4628897.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp,75347539) + and Duel.IsExistingMatchingCard(c4628897.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp,42901635) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_DECK) +end +function c4628897.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) + or Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end + local g1=Duel.GetMatchingGroup(c4628897.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,nil,e,tp,75347539) + local g2=Duel.GetMatchingGroup(c4628897.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,nil,e,tp,42901635) + if g1:GetCount()>0 and g2:GetCount()>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg1=g1:Select(tp,1,1,nil) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg2=g2:Select(tp,1,1,nil) + sg1:Merge(sg2) + Duel.SpecialSummon(sg1,0,tp,tp,true,false,POS_FACEUP) + end +end diff --git a/script/c46303688.lua b/script/c46303688.lua index 0a55dd7a..52a7f194 100644 --- a/script/c46303688.lua +++ b/script/c46303688.lua @@ -16,7 +16,7 @@ function c46303688.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,2) end function c46303688.dfilter(c,lv) - return c:IsFaceup() and c:GetLevel()==lv and c:IsDestructable() + return c:IsFaceup() and c:GetLevel()==lv end function c46303688.activate(e,tp,eg,ep,ev,re,r,rp) local d1,d2=Duel.TossDice(tp,2) diff --git a/script/c46363422.lua b/script/c46363422.lua index 9772d77c..a47d4d84 100644 --- a/script/c46363422.lua +++ b/script/c46363422.lua @@ -1,7 +1,7 @@ --熟練の白魔導師 function c46363422.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,3) + c:EnableCounterPermit(0x1) + c:SetCounterLimit(0x1,3) --add counter local e0=Effect.CreateEffect(c) e0:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) @@ -29,15 +29,15 @@ function c46363422.initial_effect(c) end function c46363422.acop(e,tp,eg,ep,ev,re,r,rp) if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c46363422.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetCounter(0x3001)==3 and e:GetHandler():IsReleasable() end + if chk==0 then return e:GetHandler():GetCounter(0x1)==3 and e:GetHandler():IsReleasable() end Duel.Release(e:GetHandler(),REASON_COST) end function c46363422.filter(c,e,tp) - return c:IsCode(78193831) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsCode(78193831) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c46363422.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 @@ -48,7 +48,7 @@ function c46363422.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c46363422.filter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c46384672.lua b/script/c46384672.lua index 4c3384f0..33f60725 100644 --- a/script/c46384672.lua +++ b/script/c46384672.lua @@ -44,7 +44,7 @@ function c46384672.cfilter(c,tp) and Duel.IsExistingTarget(c46384672.dfilter,tp,0,LOCATION_MZONE,1,nil,atk) end function c46384672.dfilter(c,atk) - return c:IsFaceup() and c:GetAttack()<=atk and c:IsDestructable() + return c:IsFaceup() and c:GetAttack()<=atk end function c46384672.descost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c46384672.cfilter,tp,LOCATION_HAND,0,1,nil,tp) end diff --git a/script/c464362.lua b/script/c464362.lua index 9281bfdf..0cfa82b5 100644 --- a/script/c464362.lua +++ b/script/c464362.lua @@ -1,47 +1,47 @@ ---デストーイ・シザー・タイガー -function c464362.initial_effect(c) - c:SetUniqueOnField(1,0,464362) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCodeFunRep(c,30068120,aux.FilterBoolFunction(Card.IsFusionSetCard,0xa9),1,63,true,true) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c464362.descon) - e2:SetTarget(c464362.destg) - e2:SetOperation(c464362.desop) - c:RegisterEffect(e2) - --atk - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xad)) - e3:SetValue(c464362.atkval) - c:RegisterEffect(e3) -end -function c464362.descon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c464362.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - local ct=e:GetHandler():GetMaterialCount() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c464362.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - Duel.Destroy(g,REASON_EFFECT) -end -function c464362.atkfilter(c) - return c:IsFaceup() and (c:IsSetCard(0xa9) or c:IsSetCard(0xad)) -end -function c464362.atkval(e,c) - return Duel.GetMatchingGroupCount(c464362.atkfilter,c:GetControler(),LOCATION_MZONE,0,nil)*300 -end +--デストーイ・シザー・タイガー +function c464362.initial_effect(c) + c:SetUniqueOnField(1,0,464362) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcCodeFunRep(c,30068120,aux.FilterBoolFunction(Card.IsFusionSetCard,0xa9),1,63,true,true) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetCondition(c464362.descon) + e2:SetTarget(c464362.destg) + e2:SetOperation(c464362.desop) + c:RegisterEffect(e2) + --atk + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_UPDATE_ATTACK) + e3:SetRange(LOCATION_MZONE) + e3:SetTargetRange(LOCATION_MZONE,0) + e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xad)) + e3:SetValue(c464362.atkval) + c:RegisterEffect(e3) +end +function c464362.descon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c464362.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + local ct=e:GetHandler():GetMaterialCount() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,ct,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c464362.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + Duel.Destroy(g,REASON_EFFECT) +end +function c464362.atkfilter(c) + return c:IsFaceup() and (c:IsSetCard(0xa9) or c:IsSetCard(0xad)) +end +function c464362.atkval(e,c) + return Duel.GetMatchingGroupCount(c464362.atkfilter,c:GetControler(),LOCATION_MZONE,0,nil)*300 +end diff --git a/script/c46480475.lua b/script/c46480475.lua old mode 100755 new mode 100644 diff --git a/script/c46500985.lua b/script/c46500985.lua new file mode 100644 index 00000000..fc0b3c68 --- /dev/null +++ b/script/c46500985.lua @@ -0,0 +1,42 @@ +--メタモルF +function c46500985.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --atk up + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetRange(LOCATION_FZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xe1)) + e2:SetValue(300) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e3) + --immune effect + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_IMMUNE_EFFECT) + e4:SetRange(LOCATION_FZONE) + e4:SetTargetRange(LOCATION_MZONE,0) + e4:SetCondition(c46500985.immcon) + e4:SetTarget(c46500985.etarget) + e4:SetValue(c46500985.efilter) + c:RegisterEffect(e4) +end +function c46500985.immcon(e) + local tp=e:GetHandlerPlayer() + local c1=Duel.GetFieldCard(tp,LOCATION_SZONE,6) + local c2=Duel.GetFieldCard(tp,LOCATION_SZONE,7) + return (c1 and c1:IsSetCard(0xe1)) or (c2 and c2:IsSetCard(0xe1)) +end +function c46500985.etarget(e,c) + return c:IsSetCard(0xe1) and not c:IsType(TYPE_EFFECT) +end +function c46500985.efilter(e,re) + return re:GetOwnerPlayer()~=e:GetHandlerPlayer() +end diff --git a/script/c46502744.lua b/script/c46502744.lua index 4648f676..1b1cade1 100644 --- a/script/c46502744.lua +++ b/script/c46502744.lua @@ -46,9 +46,13 @@ function c46502744.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c46502744.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP)~=0 then c:RegisterFlagEffect(46502745,RESET_EVENT+0xfe0000,0,1) Duel.SpecialSummonComplete() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c46502744.remcon(e) diff --git a/script/c46565218.lua b/script/c46565218.lua index cda98afe..613cb15c 100644 --- a/script/c46565218.lua +++ b/script/c46565218.lua @@ -6,7 +6,7 @@ function c46565218.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_PROC) e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) e1:SetRange(LOCATION_HAND) - e1:SetTargetRange(POS_FACEUP_DEFENCE,1) + e1:SetTargetRange(POS_FACEUP_DEFENSE,1) e1:SetCondition(c46565218.spcon) e1:SetOperation(c46565218.spop) c:RegisterEffect(e1) diff --git a/script/c46589034.lua b/script/c46589034.lua new file mode 100644 index 00000000..77b3fef9 --- /dev/null +++ b/script/c46589034.lua @@ -0,0 +1,64 @@ +--RR－ペイン・レイニアス +function c46589034.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_HAND) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1,46589034) + e1:SetTarget(c46589034.sptg) + e1:SetOperation(c46589034.spop) + c:RegisterEffect(e1) + -- + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) + e2:SetValue(c46589034.xyzlimit) + c:RegisterEffect(e2) +end +function c46589034.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xba) and c:IsLevelAbove(1) and c:GetAttack()~=0 and c:GetDefense()~=0 +end +function c46589034.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c46589034.cfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c46589034.cfilter,tp,LOCATION_MZONE,0,1,nil) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + local g=Duel.SelectTarget(tp,c46589034.cfilter,tp,LOCATION_MZONE,0,1,1,nil) + local tc=g:GetFirst() + local atk=tc:GetAttack() + local def=tc:GetDefense() + local val=math.min(atk,def) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,0,0,tp,val) +end +function c46589034.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsFacedown() or not tc:IsRelateToEffect(e) then return end + local atk=tc:GetAttack() + local def=tc:GetDefense() + local val=math.min(atk,def) + if Duel.Damage(tp,val,REASON_EFFECT)~=0 and c:IsRelateToEffect(e) then + if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then + if Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CHANGE_LEVEL) + e1:SetValue(tc:GetLevel()) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1) + Duel.SpecialSummonComplete() + end + else + Duel.SendtoGrave(c,REASON_RULE) + end + end +end +function c46589034.xyzlimit(e,c) + if not c then return false end + return not c:IsRace(RACE_WINDBEAST) +end diff --git a/script/c46613515.lua b/script/c46613515.lua new file mode 100644 index 00000000..50e2a059 --- /dev/null +++ b/script/c46613515.lua @@ -0,0 +1,70 @@ +--クリアクリボー +function c46613515.initial_effect(c) + --negate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(46613515,0)) + e1:SetCategory(CATEGORY_NEGATE) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_CHAINING) + e1:SetRange(LOCATION_HAND) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e1:SetCondition(c46613515.negcon) + e1:SetCost(c46613515.negcost) + e1:SetTarget(c46613515.negtg) + e1:SetOperation(c46613515.negop) + c:RegisterEffect(e1) + --draw + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(46613515,1)) + e2:SetCategory(CATEGORY_DRAW+CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_ATTACK_ANNOUNCE) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,46613515) + e2:SetCondition(c46613515.drcon) + e2:SetCost(c46613515.drcost) + e2:SetTarget(c46613515.drtg) + e2:SetOperation(c46613515.drop) + c:RegisterEffect(e2) +end +function c46613515.negcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsChainNegatable(ev) and (aux.damcon1(e,tp,eg,ep,ev,re,r,rp) or aux.damcon1(e,1-tp,eg,ep,ev,re,r,rp)) + and re:IsActiveType(TYPE_MONSTER) and ep~=tp +end +function c46613515.negcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) +end +function c46613515.negtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) +end +function c46613515.negop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) +end +function c46613515.drcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil +end +function c46613515.drcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c46613515.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c46613515.drop(e,tp,eg,ep,ev,re,r,rp) + if Duel.Draw(tp,1,REASON_EFFECT)==0 then return end + local tc=Duel.GetOperatedGroup():GetFirst() + if tc:IsType(TYPE_MONSTER) then + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.SelectYesNo(tp,aux.Stringid(46613515,2)) then + Duel.ConfirmCards(1-tp,tc) + Duel.BreakEffect() + if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 and not Duel.GetAttacker():IsImmuneToEffect(e) then + Duel.BreakEffect() + Duel.ChangeAttackTarget(tc) + end + end + end +end diff --git a/script/c46656406.lua b/script/c46656406.lua index f5c80577..15ee8fc4 100644 --- a/script/c46656406.lua +++ b/script/c46656406.lua @@ -10,7 +10,7 @@ function c46656406.initial_effect(c) c:RegisterEffect(e1) end function c46656406.filter(c,tp) - return c:GetSummonPlayer()~=tp and c:IsPreviousLocation(LOCATION_DECK) and c:IsDestructable() + return c:GetSummonPlayer()~=tp and c:IsPreviousLocation(LOCATION_DECK) end function c46656406.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return eg:IsExists(c46656406.filter,1,nil,tp) and Duel.IsPlayerCanDraw(tp,1) end @@ -20,7 +20,7 @@ function c46656406.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) end function c46656406.filter2(c,e,tp) - return c:IsRelateToEffect(e) and c:GetSummonPlayer()~=tp and c:IsPreviousLocation(LOCATION_DECK) and c:IsDestructable() + return c:IsRelateToEffect(e) and c:GetSummonPlayer()~=tp and c:IsPreviousLocation(LOCATION_DECK) end function c46656406.activate(e,tp,eg,ep,ev,re,r,rp) local g=eg:Filter(c46656406.filter2,nil,e,tp) diff --git a/script/c46657337.lua b/script/c46657337.lua index 79a712dd..43c67190 100644 --- a/script/c46657337.lua +++ b/script/c46657337.lua @@ -10,7 +10,7 @@ function c46657337.initial_effect(c) c:RegisterEffect(e1) --defup local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end function c46657337.val(e,c) diff --git a/script/c46659709.lua b/script/c46659709.lua index b11a427a..538d2294 100644 --- a/script/c46659709.lua +++ b/script/c46659709.lua @@ -34,8 +34,11 @@ function c46659709.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c46659709.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP_DEFENCE) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c46659709.filter(c) diff --git a/script/c46668237.lua b/script/c46668237.lua index 79ed976c..138893af 100644 --- a/script/c46668237.lua +++ b/script/c46668237.lua @@ -32,7 +32,9 @@ function c46668237.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c46668237.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c46772449.lua b/script/c46772449.lua index 6947e148..9c3bfb15 100644 --- a/script/c46772449.lua +++ b/script/c46772449.lua @@ -1,57 +1,57 @@ ---励輝士 ヴェルズビュート -function c46772449.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,4,2) - c:EnableReviveLimit() - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(46772449,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_SPSUMMON,TIMING_BATTLE_START) - e1:SetCondition(c46772449.condition) - e1:SetCost(c46772449.cost) - e1:SetTarget(c46772449.target) - e1:SetOperation(c46772449.operation) - c:RegisterEffect(e1) -end -function c46772449.condition(e,tp,eg,ep,ev,re,r,rp) - local ct1=Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD+LOCATION_HAND,0) - local ct2=Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD+LOCATION_HAND) - if ct1>=ct2 then return false end - local ph=Duel.GetCurrentPhase() - if Duel.GetTurnPlayer()==tp then - return ph==PHASE_MAIN1 or ph==PHASE_MAIN2 - else - return ph==PHASE_BATTLE - end -end -function c46772449.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_COST) and c:GetFlagEffect(46772449)==0 end - c:RemoveOverlayCard(tp,1,1,REASON_COST) - c:RegisterFlagEffect(46772449,RESET_CHAIN,0,1) -end -function c46772449.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c46772449.operation(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(0,1) - e1:SetValue(0) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - local e2=e1:Clone() - e2:SetCode(EFFECT_NO_EFFECT_DAMAGE) - e2:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e2,tp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.Destroy(g,REASON_EFFECT) -end +--励輝士 ヴェルズビュート +function c46772449.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,4,2) + c:EnableReviveLimit() + --destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(46772449,0)) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetRange(LOCATION_MZONE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(TIMING_SPSUMMON,TIMING_BATTLE_START) + e1:SetCondition(c46772449.condition) + e1:SetCost(c46772449.cost) + e1:SetTarget(c46772449.target) + e1:SetOperation(c46772449.operation) + c:RegisterEffect(e1) +end +function c46772449.condition(e,tp,eg,ep,ev,re,r,rp) + local ct1=Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD+LOCATION_HAND,0) + local ct2=Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD+LOCATION_HAND) + if ct1>=ct2 then return false end + local ph=Duel.GetCurrentPhase() + if Duel.GetTurnPlayer()==tp then + return ph==PHASE_MAIN1 or ph==PHASE_MAIN2 + else + return (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) + end +end +function c46772449.cost(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_COST) and c:GetFlagEffect(46772449)==0 end + c:RemoveOverlayCard(tp,1,1,REASON_COST) + c:RegisterFlagEffect(46772449,RESET_CHAIN,0,1) +end +function c46772449.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c46772449.operation(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CHANGE_DAMAGE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(0,1) + e1:SetValue(0) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local e2=e1:Clone() + e2:SetCode(EFFECT_NO_EFFECT_DAMAGE) + e2:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e2,tp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c46796664.lua b/script/c46796664.lua index 33080b63..4e67653b 100644 --- a/script/c46796664.lua +++ b/script/c46796664.lua @@ -7,9 +7,8 @@ function c46796664.initial_effect(c) e1:SetType(EFFECT_TYPE_FIELD) e1:SetRange(LOCATION_PZONE) e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e1:SetTargetRange(1,0) - e1:SetCondition(aux.nfbdncon) e1:SetTarget(c46796664.splimit) c:RegisterEffect(e1) --disable diff --git a/script/c46820049.lua b/script/c46820049.lua index 7ddedc8f..0096b1be 100644 --- a/script/c46820049.lua +++ b/script/c46820049.lua @@ -24,7 +24,7 @@ function c46820049.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_HANDES,0,0,1-tp,1) end function c46820049.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetFieldGroup(ep,LOCATION_HAND,0,nil) + local g=Duel.GetFieldGroup(ep,LOCATION_HAND,0) if g:GetCount()==0 then return end local sg=g:RandomSelect(ep,1) Duel.SendtoGrave(sg,REASON_DISCARD+REASON_EFFECT) diff --git a/script/c46833854.lua b/script/c46833854.lua index 91f55cac..15f985d9 100644 --- a/script/c46833854.lua +++ b/script/c46833854.lua @@ -29,7 +29,7 @@ function c46833854.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.ShuffleHand(tp) end function c46833854.filter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c46833854.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c46833854.filter(chkc) end diff --git a/script/c46848859.lua b/script/c46848859.lua index d824afd2..1bb4158b 100644 --- a/script/c46848859.lua +++ b/script/c46848859.lua @@ -4,7 +4,7 @@ function c46848859.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(46848859,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_MZONE) diff --git a/script/c46871387.lua b/script/c46871387.lua index 05e8a446..0eb2c33c 100644 --- a/script/c46871387.lua +++ b/script/c46871387.lua @@ -18,7 +18,7 @@ function c46871387.initial_effect(c) --def local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetRange(LOCATION_MZONE) e2:SetTargetRange(LOCATION_MZONE,0) e2:SetValue(800) diff --git a/script/c4688231.lua b/script/c4688231.lua new file mode 100644 index 00000000..7ca81c34 --- /dev/null +++ b/script/c4688231.lua @@ -0,0 +1,150 @@ +--メタルフォーゼ・ミスリエル +function c4688231.initial_effect(c) + --fusion material + c:EnableReviveLimit() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(c4688231.fscon) + e1:SetOperation(c4688231.fsop) + c:RegisterEffect(e1) + --return + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1,4688231) + e2:SetTarget(c4688231.rettg) + e2:SetOperation(c4688231.retop) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetCondition(c4688231.spcon) + e3:SetTarget(c4688231.sptg) + e3:SetOperation(c4688231.spop) + c:RegisterEffect(e3) +end +function c4688231.filter1(c) + return c:IsFusionSetCard(0xe1) +end +function c4688231.filter2(c) + return c:IsType(TYPE_PENDULUM) +end +function c4688231.fscon(e,g,gc,chkfnf) + if g==nil then return true end + local f1=c4688231.filter1 + local f2=c4688231.filter2 + local chkf=bit.band(chkfnf,0xff) + local tp=e:GetHandlerPlayer() + local fg=Duel.GetMatchingGroup(Card.IsHasEffect,tp,LOCATION_MZONE,0,nil,77693536) + local fc=fg:GetFirst() + while fc do + g:Merge(fc:GetEquipGroup():Filter(Card.IsControler,nil,tp)) + fc=fg:GetNext() + end + local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler(),true) + if gc then + if not gc:IsCanBeFusionMaterial(e:GetHandler(),true) then return false end + return (f1(gc) and mg:IsExists(f2,1,gc)) + or (f2(gc) and mg:IsExists(f1,1,gc)) end + local g1=Group.CreateGroup() local g2=Group.CreateGroup() local fs=false + local tc=mg:GetFirst() + while tc do + if f1(tc) then g1:AddCard(tc) if aux.FConditionCheckF(tc,chkf) then fs=true end end + if f2(tc) then g2:AddCard(tc) if aux.FConditionCheckF(tc,chkf) then fs=true end end + tc=mg:GetNext() + end + if chkf~=PLAYER_NONE then + return fs and g1:IsExists(aux.FConditionFilterF2,1,nil,g2) + else return g1:IsExists(aux.FConditionFilterF2,1,nil,g2) end +end +function c4688231.fsop(e,tp,eg,ep,ev,re,r,rp,gc,chkfnf) + local f1=c4688231.filter1 + local f2=c4688231.filter2 + local chkf=bit.band(chkfnf,0xff) + local fg=Duel.GetMatchingGroup(Card.IsHasEffect,tp,LOCATION_MZONE,0,nil,77693536) + local fc=fg:GetFirst() + while fc do + eg:Merge(fc:GetEquipGroup():Filter(Card.IsControler,nil,tp)) + fc=fg:GetNext() + end + local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler(),true) + if gc then + local sg=Group.CreateGroup() + if f1(gc) then sg:Merge(g:Filter(f2,gc)) end + if f2(gc) then sg:Merge(g:Filter(f1,gc)) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=sg:Select(tp,1,1,nil) + Duel.SetFusionMaterial(g1) + return + end + local sg=g:Filter(aux.FConditionFilterF2c,nil,f1,f2) + local g1=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if chkf~=PLAYER_NONE then + g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) + else g1=sg:Select(tp,1,1,nil) end + local tc1=g1:GetFirst() + sg:RemoveCard(tc1) + local b1=f1(tc1) + local b2=f2(tc1) + if b1 and not b2 then sg:Remove(aux.FConditionFilterF2r,nil,f1,f2) end + if b2 and not b1 then sg:Remove(aux.FConditionFilterF2r,nil,f2,f1) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g2=sg:Select(tp,1,1,nil) + g1:Merge(g2) + Duel.SetFusionMaterial(g1) +end +function c4688231.retfilter1(c) + return c:IsSetCard(0xe1) and c:IsAbleToDeck() +end +function c4688231.retfilter2(c) + return c:IsAbleToHand() +end +function c4688231.rettg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.IsExistingTarget(c4688231.retfilter1,tp,LOCATION_GRAVE,0,2,nil) + and Duel.IsExistingTarget(c4688231.retfilter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + local g1=Duel.SelectTarget(tp,c4688231.retfilter1,tp,LOCATION_GRAVE,0,2,2,nil) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) + local g2=Duel.SelectTarget(tp,c4688231.retfilter2,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g1,g1:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g2,1,0,0) +end +function c4688231.retop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + local g1=g:Filter(Card.IsLocation,nil,LOCATION_GRAVE) + if Duel.SendtoDeck(g1,nil,0,REASON_EFFECT)~=0 then + local og=Duel.GetOperatedGroup() + if og:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end + local g2=g:Filter(Card.IsLocation,nil,LOCATION_ONFIELD) + Duel.SendtoHand(g2,nil,REASON_EFFECT) + end +end +function c4688231.spcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) +end +function c4688231.spfilter(c,e,tp) + return c:IsSetCard(0xe1) and c:IsType(TYPE_PENDULUM) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c4688231.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c4688231.spfilter,tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_EXTRA) +end +function c4688231.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c4688231.spfilter,tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,1,nil,e,tp) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c46895036.lua b/script/c46895036.lua old mode 100755 new mode 100644 diff --git a/script/c46918794.lua b/script/c46918794.lua index fabd0578..9110ef8e 100644 --- a/script/c46918794.lua +++ b/script/c46918794.lua @@ -14,6 +14,7 @@ function c46918794.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,500) end function c46918794.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(1-tp,1000,REASON_EFFECT) - Duel.Damage(tp,500,REASON_EFFECT) + Duel.Damage(1-tp,1000,REASON_EFFECT,true) + Duel.Damage(tp,500,REASON_EFFECT,true) + Duel.RDComplete() end diff --git a/script/c46925518.lua b/script/c46925518.lua index ed07d0a7..615d7cf9 100644 --- a/script/c46925518.lua +++ b/script/c46925518.lua @@ -37,7 +37,7 @@ end function c46925518.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c46925518.fdop(e,tp,eg,ep,ev,re,r,rp) @@ -62,14 +62,14 @@ end function c46925518.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c46925518.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if g:GetCount()==0 then return end - local ct=Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) + local ct=Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local sg=Duel.GetMatchingGroup(c46925518.spfilter,tp,LOCATION_DECK,0,nil,e,tp,ct) if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(46925518,1)) then Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local tg=sg:Select(tp,1,1,nil) - if Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE)~=0 then + if Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)~=0 then Duel.ConfirmCards(1-tp,tg) end end diff --git a/script/c4694209.lua b/script/c4694209.lua index 40e0a058..9c82de2f 100644 --- a/script/c4694209.lua +++ b/script/c4694209.lua @@ -34,30 +34,30 @@ function c4694209.initial_effect(c) end function c4694209.addct(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x21) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x1021) end function c4694209.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x21+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x1021+COUNTER_NEED_ENABLE,1) end end function c4694209.attackup(e,c) - return c:GetCounter(0x21)*300 + return c:GetCounter(0x1021)*300 end function c4694209.addct2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x21,1,REASON_EFFECT) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1021,1,REASON_EFFECT) and Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(4694209,1)) Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler()) end function c4694209.addc2(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:GetCounter(0x21)==0 then return end - c:RemoveCounter(tp,0x21,1,REASON_EFFECT) + if c:GetCounter(0x1021)==0 then return end + c:RemoveCounter(tp,0x1021,1,REASON_EFFECT) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0x21,1) + tc:AddCounter(0x1021,1) if tc:GetFlagEffect(4694209)~=0 then return end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) @@ -70,9 +70,9 @@ function c4694209.addc2(e,tp,eg,ep,ev,re,r,rp) end end function c4694209.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not e:GetHandler():IsReason(REASON_RULE) and e:GetHandler():GetCounter(0x21)>0 end + if chk==0 then return not e:GetHandler():IsReason(REASON_RULE) and e:GetHandler():GetCounter(0x1021)>0 end return true end function c4694209.repop(e,tp,eg,ep,ev,re,r,rp,chk) - e:GetHandler():RemoveCounter(tp,0x21,1,REASON_EFFECT) + e:GetHandler():RemoveCounter(tp,0x1021,1,REASON_EFFECT) end diff --git a/script/c46967601.lua b/script/c46967601.lua index 793d50c2..9daec776 100644 --- a/script/c46967601.lua +++ b/script/c46967601.lua @@ -50,13 +50,17 @@ function c46967601.damcon(e,tp,eg,ep,ev,re,r,rp) end function c46967601.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local dam=e:GetLabelObject():GetTextDefence() + local dam=e:GetLabelObject():GetTextDefense() if dam<0 then dam=0 end Duel.SetTargetPlayer(e:GetLabel()) Duel.SetTargetParam(dam) + Duel.SetTargetCard(e:GetLabelObject()) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,e:GetLabel(),dam) end function c46967601.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()>0 then + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + Duel.Damage(p,g:GetFirst():GetTextDefense(),REASON_EFFECT) + end end diff --git a/script/c47017574.lua b/script/c47017574.lua index 883fc201..95475dea 100644 --- a/script/c47017574.lua +++ b/script/c47017574.lua @@ -26,7 +26,7 @@ function c47017574.initial_effect(c) e3:SetDescription(aux.Stringid(47017574,1)) e3:SetCategory(CATEGORY_DISABLE) e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e3:SetRange(LOCATION_MZONE) e3:SetCountLimit(1) e3:SetCondition(c47017574.discon) diff --git a/script/c47030842.lua b/script/c47030842.lua index 5cc84c79..a76de665 100644 --- a/script/c47030842.lua +++ b/script/c47030842.lua @@ -6,7 +6,7 @@ function c47030842.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_PROC) e1:SetProperty(EFFECT_FLAG_SPSUM_PARAM) e1:SetRange(LOCATION_HAND) - e1:SetTargetRange(POS_FACEUP_DEFENCE,0) + e1:SetTargetRange(POS_FACEUP_DEFENSE,0) e1:SetCondition(c47030842.spcon) c:RegisterEffect(e1) --tohand diff --git a/script/c47060347.lua b/script/c47060347.lua index 38163716..743ae88e 100644 --- a/script/c47060347.lua +++ b/script/c47060347.lua @@ -11,10 +11,17 @@ function c47060347.initial_effect(c) c:RegisterEffect(e1) --leave local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetOperation(c47060347.leave) + e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetCode(EVENT_LEAVE_FIELD_P) + e2:SetOperation(c47060347.checkop) c:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_LEAVE_FIELD) + e3:SetLabelObject(e2) + e3:SetOperation(c47060347.leave) + c:RegisterEffect(e3) end function c47060347.rectg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -27,9 +34,14 @@ function c47060347.recop(e,tp,eg,ep,ev,re,r,rp) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) Duel.Recover(p,d,REASON_EFFECT) end +function c47060347.checkop(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():IsDisabled() then + e:SetLabel(1) + else e:SetLabel(0) end +end function c47060347.leave(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:GetPreviousControler()==tp and c:IsStatus(STATUS_ACTIVATED) then + if e:GetLabelObject():GetLabel()==0 and c:GetPreviousControler()==tp and c:IsStatus(STATUS_ACTIVATED) then Duel.Damage(tp,3000,REASON_EFFECT) end end diff --git a/script/c47075569.lua b/script/c47075569.lua index 3a29e64a..cc14a13f 100644 --- a/script/c47075569.lua +++ b/script/c47075569.lua @@ -1,78 +1,78 @@ ---EMペンデュラム・マジシャン -function c47075569.initial_effect(c) - --pendulum summon - aux.EnablePendulumAttribute(c) - --atk - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_PZONE) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c47075569.atkcon) - e2:SetOperation(c47075569.atkop) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCountLimit(1,47075569) - e3:SetTarget(c47075569.thtg) - e3:SetOperation(c47075569.thop) - c:RegisterEffect(e3) -end -function c47075569.cfilter(c,tp) - return c:IsFaceup() and c:IsSetCard(0x9f) and c:IsControler(tp) and c:GetSummonType()==SUMMON_TYPE_PENDULUM -end -function c47075569.atkcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c47075569.cfilter,1,nil,tp) -end -function c47075569.filter(c) - return c:IsFaceup() and c:IsSetCard(0x9f) -end -function c47075569.atkop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(c47075569.filter,tp,LOCATION_MZONE,0,nil) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(1000) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - tc=g:GetNext() - end -end -function c47075569.thfilter(c) - return c:IsSetCard(0x9f) and c:IsType(TYPE_MONSTER) and not c:IsCode(47075569) and c:IsAbleToHand() -end -function c47075569.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,nil) - and Duel.IsExistingMatchingCard(c47075569.thfilter,tp,LOCATION_DECK,0,1,nil) end - local g=Duel.GetMatchingGroup(c47075569.thfilter,tp,LOCATION_DECK,0,nil) - local ct=g:GetClassCount(Card.GetCode) - if ct>2 then ct=2 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local dg=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,ct,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,dg:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,dg:GetCount(),tp,LOCATION_DECK) -end -function c47075569.thop(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - local ct=Duel.Destroy(dg,REASON_EFFECT) - local g=Duel.GetMatchingGroup(c47075569.thfilter,tp,LOCATION_DECK,0,nil) - if ct==0 or g:GetCount()==0 then return end - if ct>g:GetClassCount(Card.GetCode) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g1=g:Select(tp,1,1,nil) - if ct==2 then - g:Remove(Card.IsCode,nil,g1:GetFirst():GetCode()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g2=g:Select(tp,1,1,nil) - g1:Merge(g2) - end - Duel.SendtoHand(g1,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g1) -end +--EMペンデュラム・マジシャン +function c47075569.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --atk + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e2:SetRange(LOCATION_PZONE) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetCondition(c47075569.atkcon) + e2:SetOperation(c47075569.atkop) + c:RegisterEffect(e2) + --tohand + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetCountLimit(1,47075569) + e3:SetTarget(c47075569.thtg) + e3:SetOperation(c47075569.thop) + c:RegisterEffect(e3) +end +function c47075569.cfilter(c,tp) + return c:IsFaceup() and c:IsSetCard(0x9f) and c:IsControler(tp) and c:GetSummonType()==SUMMON_TYPE_PENDULUM +end +function c47075569.atkcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c47075569.cfilter,1,nil,tp) +end +function c47075569.filter(c) + return c:IsFaceup() and c:IsSetCard(0x9f) +end +function c47075569.atkop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local g=Duel.GetMatchingGroup(c47075569.filter,tp,LOCATION_MZONE,0,nil) + local tc=g:GetFirst() + while tc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(1000) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + tc=g:GetNext() + end +end +function c47075569.thfilter(c) + return c:IsSetCard(0x9f) and c:IsType(TYPE_MONSTER) and not c:IsCode(47075569) and c:IsAbleToHand() +end +function c47075569.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,0,1,nil) + and Duel.IsExistingMatchingCard(c47075569.thfilter,tp,LOCATION_DECK,0,1,nil) end + local g=Duel.GetMatchingGroup(c47075569.thfilter,tp,LOCATION_DECK,0,nil) + local ct=g:GetClassCount(Card.GetCode) + if ct>2 then ct=2 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local dg=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,0,1,ct,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,dg:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,dg:GetCount(),tp,LOCATION_DECK) +end +function c47075569.thop(e,tp,eg,ep,ev,re,r,rp) + local dg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + local ct=Duel.Destroy(dg,REASON_EFFECT) + local g=Duel.GetMatchingGroup(c47075569.thfilter,tp,LOCATION_DECK,0,nil) + if ct==0 or g:GetCount()==0 then return end + if ct>g:GetClassCount(Card.GetCode) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g1=g:Select(tp,1,1,nil) + if ct==2 then + g:Remove(Card.IsCode,nil,g1:GetFirst():GetCode()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g2=g:Select(tp,1,1,nil) + g1:Merge(g2) + end + Duel.SendtoHand(g1,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g1) +end diff --git a/script/c47077318.lua b/script/c47077318.lua index 0d7c1991..971bc18f 100644 --- a/script/c47077318.lua +++ b/script/c47077318.lua @@ -43,7 +43,7 @@ function c47077318.operation(e,tp,eg,ep,ev,re,r,rp) end function c47077318.tdcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_DECK) and (c:IsReason(REASON_REVEAL) or c:GetPreviousPosition()==POS_FACEUP_DEFENCE) + return c:IsPreviousLocation(LOCATION_DECK) and c:IsReason(REASON_REVEAL) end function c47077318.filter(c) return c:IsFaceup() and c:IsRace(RACE_PLANT) @@ -59,7 +59,7 @@ function c47077318.tdop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) tc=g:GetNext() end diff --git a/script/c47111934.lua b/script/c47111934.lua index cf6bdf97..c770124a 100644 --- a/script/c47111934.lua +++ b/script/c47111934.lua @@ -37,13 +37,13 @@ function c47111934.spcon(e,tp,eg,ep,ev,re,r,rp,chk) end function c47111934.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENCE) end + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c47111934.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not c47111934.check(tp) then return end - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE)>0 then + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)>0 then Duel.ConfirmCards(1-tp,c) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c47120245.lua b/script/c47120245.lua old mode 100755 new mode 100644 index 8443733d..77f32ced --- a/script/c47120245.lua +++ b/script/c47120245.lua @@ -61,8 +61,7 @@ function c47120245.thop(e,tp,eg,ep,ev,re,r,rp) local sg=g:Select(tp,3,3,nil) Duel.ConfirmCards(1-tp,sg) Duel.ShuffleDeck(tp) - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_ATOHAND) - local tg=sg:Select(1-tp,1,1,nil) + local tg=sg:RandomSelect(1-tp,1) local tc=tg:GetFirst() if tc:IsAbleToHand() then Duel.SendtoHand(tc,nil,REASON_EFFECT) diff --git a/script/c47121070.lua b/script/c47121070.lua index e89f49c9..e544f2c4 100644 --- a/script/c47121070.lua +++ b/script/c47121070.lua @@ -15,32 +15,36 @@ end function c47121070.tfcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c47121070.filter,1,nil,tp) end +function c47121070.tffilter(c) + return c:IsSetCard(0x1034) and not c:IsForbidden() +end function c47121070.tftg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_DECK,0,1,nil,0x1034) end + and Duel.IsExistingMatchingCard(c47121070.tffilter,tp,LOCATION_DECK,0,1,nil) end end function c47121070.tfop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetValue(1) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) - local g=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_DECK,0,1,1,nil,0x1034) + local g=Duel.SelectMatchingCard(tp,c47121070.tffilter,tp,LOCATION_DECK,0,1,1,nil) if g:GetCount()>0 then local tc=g:GetFirst() Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(tc) + local e1=Effect.CreateEffect(c) e1:SetCode(EFFECT_CHANGE_TYPE) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetReset(RESET_EVENT+0x1fc0000) e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) tc:RegisterEffect(e1) - Duel.RaiseEvent(tc,47408488,e,0,tp,0,0) + Duel.RaiseEvent(tc,EVENT_CUSTOM+47408488,e,0,tp,0,0) end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetValue(1) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) end diff --git a/script/c47121071.lua b/script/c47121071.lua deleted file mode 100644 index 8b55ceea..00000000 --- a/script/c47121071.lua +++ /dev/null @@ -1,41 +0,0 @@ ---Crystal Pair -function c47121071.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c47121071.paircon) - e1:SetOperation(c47121071.pairop) - c:RegisterEffect(e1) -end -function c47121071.pairfilter(c,tp) - return c:IsFaceup() and c:IsSetCard(0x34) -end -function c47121071.paircon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c47121071.pairfilter,tp,LOCATION_SZONE,0,2,nil) -end -function c47121071.pairop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetValue(1) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) - local g=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_DECK,0,1,1,nil,0x34) - if g:GetCount()>0 then - local tc=g:GetFirst() - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(tc) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fc0000) - e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) - tc:RegisterEffect(e1) - Duel.RaiseEvent(tc,47408488,e,0,tp,0,0) - end -end \ No newline at end of file diff --git a/script/c47126872.lua b/script/c47126872.lua index bac7ee9e..a79657d3 100644 --- a/script/c47126872.lua +++ b/script/c47126872.lua @@ -59,7 +59,7 @@ function c47126872.setop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if not tc:IsRelateToEffect(e) then return end if tc:IsType(TYPE_MONSTER) then - Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEDOWN_DEFENSE) else Duel.SSet(tp,tc,1-tp) end diff --git a/script/c47222536.lua b/script/c47222536.lua new file mode 100644 index 00000000..c9d0dbd9 --- /dev/null +++ b/script/c47222536.lua @@ -0,0 +1,70 @@ +--黒の魔導陣 +function c47222536.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,47222536) + e1:SetTarget(c47222536.target) + e1:SetOperation(c47222536.activate) + c:RegisterEffect(e1) + --remove + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(47222536,1)) + e2:SetCategory(CATEGORY_REMOVE) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetRange(LOCATION_SZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e2:SetCountLimit(1,47222537) + e2:SetCondition(c47222536.rmcon) + e2:SetTarget(c47222536.rmtg) + e2:SetOperation(c47222536.rmop) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) +end +c47222536.card_code_list={46986414} +function c47222536.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>2 end +end +function c47222536.filter(c) + return (aux.IsCodeListed(c,46986414) or c:IsCode(46986414)) and c:IsAbleToHand() +end +function c47222536.activate(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)<3 then return end + local g=Duel.GetDecktopGroup(tp,3) + Duel.ConfirmCards(tp,g) + if g:IsExists(c47222536.filter,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(47222536,0)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local sg=g:FilterSelect(tp,c47222536.filter,1,1,nil) + Duel.DisableShuffleCheck() + Duel.SendtoHand(sg,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,sg) + Duel.ShuffleHand(tp) + Duel.SortDecktop(tp,tp,2) + else Duel.SortDecktop(tp,tp,3) end +end +function c47222536.cfilter(c,tp) + return c:IsFaceup() and c:IsCode(46986414) and c:IsControler(tp) +end +function c47222536.rmcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c47222536.cfilter,1,nil,tp) +end +function c47222536.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end + if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) +end +function c47222536.rmop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) + end +end diff --git a/script/c47228077.lua b/script/c47228077.lua index 83b01113..e0b29369 100644 --- a/script/c47228077.lua +++ b/script/c47228077.lua @@ -85,18 +85,20 @@ function c47228077.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c47228077.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c47228077.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsStatus(STATUS_UNION) and e:GetHandler():GetEquipTarget()==eg:GetFirst() end function c47228077.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c47228077.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c47233801.lua b/script/c47233801.lua index d8baff62..c64c3903 100644 --- a/script/c47233801.lua +++ b/script/c47233801.lua @@ -36,6 +36,7 @@ function c47233801.damop(e,tp,eg,ep,ev,re,r,rp) dam=dam*2 c:SetFlagEffectLabel(47233801,dam) end - Duel.Damage(tp,dam,REASON_EFFECT) - Duel.Damage(1-tp,dam,REASON_EFFECT) + Duel.Damage(tp,dam,REASON_EFFECT,true) + Duel.Damage(1-tp,dam,REASON_EFFECT,true) + Duel.RDComplete() end diff --git a/script/c47264717.lua b/script/c47264717.lua index 77bbcd7d..a61a809c 100644 --- a/script/c47264717.lua +++ b/script/c47264717.lua @@ -19,10 +19,10 @@ function c47264717.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c47264717.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end function c47264717.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() and chkc~=e:GetHandler() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c47264717.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c47295267.lua b/script/c47295267.lua old mode 100755 new mode 100644 diff --git a/script/c47297616.lua b/script/c47297616.lua index a788c14f..80718a43 100644 --- a/script/c47297616.lua +++ b/script/c47297616.lua @@ -1,97 +1,97 @@ ---光と闇の竜 -function c47297616.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --Attribute Dark - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_ADD_ATTRIBUTE) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(ATTRIBUTE_DARK) - c:RegisterEffect(e2) - --Negate - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(47297616,2)) - e3:SetCategory(CATEGORY_NEGATE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_F) - e3:SetCode(EVENT_CHAINING) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c47297616.codisable) - e3:SetTarget(c47297616.tgdisable) - e3:SetOperation(c47297616.opdisable) - c:RegisterEffect(e3) - --Special summon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(47297616,4)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetCondition(c47297616.cdspsum) - e4:SetTarget(c47297616.tgspsum) - e4:SetOperation(c47297616.opspsum) - c:RegisterEffect(e4) -end -function c47297616.codisable(e,tp,eg,ep,ev,re,r,rp) - return (re:IsHasType(EFFECT_TYPE_ACTIVATE) or re:IsActiveType(TYPE_MONSTER)) - and not e:GetHandler():IsStatus(STATUS_CHAINING) -end -function c47297616.tgdisable(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:GetFlagEffect(47297616)==0 end - if c:IsHasEffect(EFFECT_REVERSE_UPDATE) then - c:RegisterFlagEffect(47297616,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) -end -function c47297616.opdisable(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsFaceup() or c:GetDefence()<500 or c:GetAttack()< 500 or not c:IsRelateToEffect(e) or Duel.GetCurrentChain()~=ev+1 or c:IsStatus(STATUS_BATTLE_DESTROYED) then - return - end - if Duel.NegateActivation(ev) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) - e1:SetReset(RESET_EVENT+0x1ff0000) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-500) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_COPY_INHERIT) - e2:SetReset(RESET_EVENT+0x1ff0000) - e2:SetCode(EFFECT_UPDATE_DEFENCE) - e2:SetValue(-500) - c:RegisterEffect(e2) - end -end -function c47297616.cdspsum(e) - return e:GetHandler():IsReason(REASON_DESTROY) -end -function c47297616.tgspsum(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) - and chkc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,Card.IsCanBeSpecialSummoned,tp,LOCATION_GRAVE,0,1,1,nil,e,0,tp,false,false,POS_FACEUP,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,0,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,dg:GetCount(),0,0) -end -function c47297616.opspsum(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,0,nil) - Duel.Destroy(dg,REASON_EFFECT) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.BreakEffect() - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end +--光と闇の竜 +function c47297616.initial_effect(c) + --cannot special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(aux.FALSE) + c:RegisterEffect(e1) + --Attribute Dark + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetCode(EFFECT_ADD_ATTRIBUTE) + e2:SetRange(LOCATION_MZONE) + e2:SetValue(ATTRIBUTE_DARK) + c:RegisterEffect(e2) + --Negate + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(47297616,2)) + e3:SetCategory(CATEGORY_NEGATE) + e3:SetType(EFFECT_TYPE_QUICK_F) + e3:SetCode(EVENT_CHAINING) + e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c47297616.codisable) + e3:SetTarget(c47297616.tgdisable) + e3:SetOperation(c47297616.opdisable) + c:RegisterEffect(e3) + --Special summon + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(47297616,4)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetCondition(c47297616.cdspsum) + e4:SetTarget(c47297616.tgspsum) + e4:SetOperation(c47297616.opspsum) + c:RegisterEffect(e4) +end +function c47297616.codisable(e,tp,eg,ep,ev,re,r,rp) + return (re:IsHasType(EFFECT_TYPE_ACTIVATE) or re:IsActiveType(TYPE_MONSTER)) + and not e:GetHandler():IsStatus(STATUS_CHAINING) +end +function c47297616.tgdisable(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:GetFlagEffect(47297616)==0 end + if c:IsHasEffect(EFFECT_REVERSE_UPDATE) then + c:RegisterFlagEffect(47297616,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) + end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) +end +function c47297616.opdisable(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsFaceup() or c:GetDefense()<500 or c:GetAttack()< 500 or not c:IsRelateToEffect(e) or Duel.GetCurrentChain()~=ev+1 or c:IsStatus(STATUS_BATTLE_DESTROYED) then + return + end + if Duel.NegateActivation(ev) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) + e1:SetReset(RESET_EVENT+0x1ff0000) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(-500) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_COPY_INHERIT) + e2:SetReset(RESET_EVENT+0x1ff0000) + e2:SetCode(EFFECT_UPDATE_DEFENSE) + e2:SetValue(-500) + c:RegisterEffect(e2) + end +end +function c47297616.cdspsum(e) + return e:GetHandler():IsReason(REASON_DESTROY) +end +function c47297616.tgspsum(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) + and chkc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp) end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,Card.IsCanBeSpecialSummoned,tp,LOCATION_GRAVE,0,1,1,nil,e,0,tp,false,false,POS_FACEUP,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,0,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,dg:GetCount(),0,0) +end +function c47297616.opspsum(e,tp,eg,ep,ev,re,r,rp) + local dg=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,0,nil) + Duel.Destroy(dg,REASON_EFFECT) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.BreakEffect() + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c47346845.lua b/script/c47346845.lua index 82d7f50e..6a477c19 100644 --- a/script/c47346845.lua +++ b/script/c47346845.lua @@ -15,7 +15,7 @@ function c47346845.initial_effect(c) c:RegisterEffect(e2) end function c47346845.filter(c,e,tp) - return c:IsCode(47346845) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(47346845) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c47346845.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -26,7 +26,7 @@ function c47346845.sumop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c47346845.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c473469.lua b/script/c473469.lua old mode 100755 new mode 100644 index 507a2efc..ce0d4b86 --- a/script/c473469.lua +++ b/script/c473469.lua @@ -19,7 +19,7 @@ function c473469.condition(e,tp,eg,ep,ev,re,r,rp) return rp~=tp and eg:IsExists(c473469.filter,1,nil,tp) end function c473469.desfilter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c473469.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c473469.desfilter(chkc) and chkc~=e:GetHandler() end diff --git a/script/c47349310.lua b/script/c47349310.lua old mode 100755 new mode 100644 diff --git a/script/c47355498.lua b/script/c47355498.lua index 8b382d03..607d1c9a 100644 --- a/script/c47355498.lua +++ b/script/c47355498.lua @@ -15,7 +15,7 @@ function c47355498.initial_effect(c) e2:SetValue(500) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --cannot remove local e4=Effect.CreateEffect(c) @@ -67,29 +67,27 @@ end function c47355498.conntp(e) return not Duel.IsPlayerAffectedByEffect(1-e:GetHandler():GetControler(),EFFECT_NECRO_VALLEY_IM) end -function c47355498.disfilter1(c,im0,im1,targets) - if c:IsControler(0) then return im0 and targets:IsContains(c) and c:IsHasEffect(EFFECT_NECRO_VALLEY) - else return im1 and targets:IsContains(c) and c:IsHasEffect(EFFECT_NECRO_VALLEY) end -end -function c47355498.disfilter2(c,im0,im1) +function c47355498.disfilter(c,im0,im1) if c:IsControler(0) then return im0 and c:IsHasEffect(EFFECT_NECRO_VALLEY) else return im1 and c:IsHasEffect(EFFECT_NECRO_VALLEY) end end function c47355498.discheck(ev,category,re,im0,im1,targets) local ex,tg,ct,p,v=Duel.GetOperationInfo(ev,category) if not ex then return false end + if v==LOCATION_GRAVE then + if p==0 then return im0 + elseif p==1 then return im1 + elseif p==PLAYER_ALL then return im0 and im1 + end + end if tg and tg:GetCount()>0 then - if targets then - return tg:IsExists(c47355498.disfilter1,1,nil,im0,im1,targets) + if targets and targets:IsContains(re:GetHandler()) then + return tg:IsExists(c47355498.disfilter,1,nil,im0,im1) else - return tg:IsExists(c47355498.disfilter2,1,re:GetHandler(),im0,im1) + return tg:IsExists(c47355498.disfilter,1,re:GetHandler(),im0,im1) end end - if v~=LOCATION_GRAVE then return false end - if p~=PLAYER_ALL then - if p==0 then return im0 else return im1 end - end - return im0 and im1 + return false end function c47355498.disop(e,tp,eg,ep,ev,re,r,rp) local tc=re:GetHandler() diff --git a/script/c4740489.lua b/script/c4740489.lua new file mode 100644 index 00000000..28422a1b --- /dev/null +++ b/script/c4740489.lua @@ -0,0 +1,77 @@ +--マグネット・フィールド +function c4740489.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(4740489,0)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_FZONE) + e2:SetCountLimit(1,4740489) + e2:SetCondition(c4740489.spcon) + e2:SetTarget(c4740489.sptg) + e2:SetOperation(c4740489.spop) + c:RegisterEffect(e2) + --bounce + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(4740489,1)) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_DAMAGE_STEP_END) + e3:SetRange(LOCATION_FZONE) + e3:SetCountLimit(1) + e3:SetCondition(c4740489.atcon) + e3:SetOperation(c4740489.atop) + c:RegisterEffect(e3) +end +function c4740489.cfilter(c) + return c:IsFaceup() and c:IsLevelBelow(4) and c:IsRace(RACE_ROCK) and c:IsAttribute(ATTRIBUTE_EARTH) +end +function c4740489.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c4740489.cfilter,tp,LOCATION_MZONE,0,1,nil) +end +function c4740489.spfilter(c,e,tp) + return c:IsSetCard(0x2066) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c4740489.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c4740489.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c4740489.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c4740489.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c4740489.spop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end +function c4740489.atcon(e,tp,eg,ep,ev,re,r,rp) + local a=Duel.GetAttacker() + local d=Duel.GetAttackTarget() + if not d then return end + if d:IsControler(tp) then + e:SetLabelObject(a) + return d:IsRace(RACE_ROCK) and d:IsAttribute(ATTRIBUTE_EARTH) + and a:IsRelateToBattle() and a:IsLocation(LOCATION_ONFIELD) + elseif a:IsControler(tp) then + e:SetLabelObject(d) + return a:IsRace(RACE_ROCK) and a:IsAttribute(ATTRIBUTE_EARTH) + and d:IsRelateToBattle() and d:IsLocation(LOCATION_ONFIELD) + end + return false +end +function c4740489.atop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local tc=e:GetLabelObject() + if tc:IsRelateToBattle() then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c47408488.lua b/script/c47408488.lua index dc66aa76..3a6554cb 100644 --- a/script/c47408488.lua +++ b/script/c47408488.lua @@ -1,5 +1,6 @@ --宝玉の樹 function c47408488.initial_effect(c) + c:EnableCounterPermit(0x6) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -11,7 +12,7 @@ function c47408488.initial_effect(c) e2:SetDescription(aux.Stringid(47408488,0)) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) e2:SetRange(LOCATION_SZONE) - e2:SetCode(47408488) + e2:SetCode(EVENT_CUSTOM+47408488) e2:SetOperation(c47408488.ctop) c:RegisterEffect(e2) --equip @@ -40,7 +41,7 @@ function c47408488.eqcon(e,tp,eg,ep,ev,re,r,rp) return tc:IsFaceup() and tc:IsSetCard(0x1034) end function c47408488.ctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x6+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x6,1) end function c47408488.plcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end @@ -53,12 +54,15 @@ function c47408488.pltg(e,tp,eg,ep,ev,re,r,rp,chk) return ct>0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>=ct end end +function c47408488.plfilter(c) + return c:IsSetCard(0x1034) and not c:IsForbidden() +end function c47408488.plop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_SZONE) if ft<=0 then return end if ft>e:GetLabel() then ft=e:GetLabel() end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) - local g=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_DECK,0,ft,ft,nil,0x1034) + local g=Duel.SelectMatchingCard(tp,c47408488.plfilter,tp,LOCATION_DECK,0,ft,ft,nil) if g:GetCount()>0 then local tc=g:GetFirst() while tc do @@ -72,6 +76,6 @@ function c47408488.plop(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) tc=g:GetNext() end - Duel.RaiseEvent(g,47408488,e,0,tp,0,0) + Duel.RaiseEvent(g,EVENT_CUSTOM+47408488,e,0,tp,0,0) end end diff --git a/script/c47415292.lua b/script/c47415292.lua index 6ba31759..2dee09f1 100644 --- a/script/c47415292.lua +++ b/script/c47415292.lua @@ -28,7 +28,7 @@ function c47415292.initial_effect(c) e3:SetCondition(c47415292.uncon) c:RegisterEffect(e3) local e4=e3:Clone() - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e4) --pierce local e5=Effect.CreateEffect(c) @@ -92,7 +92,9 @@ function c47415292.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c47415292.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c47432275.lua b/script/c47432275.lua index e994668e..80642dac 100644 --- a/script/c47432275.lua +++ b/script/c47432275.lua @@ -4,7 +4,7 @@ function c47432275.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(47432275,0)) e1:SetCategory(CATEGORY_RECOVER+CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetRange(LOCATION_MZONE) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetCountLimit(1) diff --git a/script/c47435107.lua b/script/c47435107.lua new file mode 100644 index 00000000..123b59ef --- /dev/null +++ b/script/c47435107.lua @@ -0,0 +1,43 @@ +--原初の叫喚 +function c47435107.initial_effect(c) + aux.AddRitualProcGreaterCode(c,10441498) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(47435107,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_PHASE+PHASE_END) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_GRAVE) + e1:SetCountLimit(1) + e1:SetCondition(c47435107.spcon) + e1:SetCost(c47435107.spcost) + e1:SetTarget(c47435107.sptg) + e1:SetOperation(c47435107.spop) + c:RegisterEffect(e1) +end +function c47435107.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c47435107.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c47435107.spfilter(c,e,tp,turn) + return c:IsType(TYPE_RITUAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsPreviousLocation(LOCATION_ONFIELD) and c:GetTurnID()==turn +end +function c47435107.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local turn=Duel.GetTurnCount() + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c47435107.spfilter(chkc,e,tp,turn) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c47435107.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,turn) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c47435107.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,turn) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c47435107.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c47436247.lua b/script/c47436247.lua index 851d1776..878d2301 100644 --- a/script/c47436247.lua +++ b/script/c47436247.lua @@ -1,6 +1,6 @@ --紫炎の道場 function c47436247.initial_effect(c) - c:EnableCounterPermit(0x3003) + c:EnableCounterPermit(0x3) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -32,12 +32,12 @@ function c47436247.ctfilter(c) end function c47436247.ctop(e,tp,eg,ep,ev,re,r,rp) if eg:IsExists(c47436247.ctfilter,1,nil) then - e:GetHandler():AddCounter(0x3003,1) + e:GetHandler():AddCounter(0x3,1) end end function c47436247.spcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - local ct=e:GetHandler():GetCounter(0x3003) + local ct=e:GetHandler():GetCounter(0x3) e:SetLabel(ct) Duel.SendtoGrave(e:GetHandler(),REASON_COST) end @@ -47,7 +47,7 @@ function c47436247.filter(c,ct,e,tp) end function c47436247.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c47436247.filter,tp,LOCATION_DECK,0,1,nil,e:GetHandler():GetCounter(0x3003),e,tp) end + and Duel.IsExistingMatchingCard(c47436247.filter,tp,LOCATION_DECK,0,1,nil,e:GetHandler():GetCounter(0x3),e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) end function c47436247.spop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c47459126.lua b/script/c47459126.lua old mode 100755 new mode 100644 diff --git a/script/c47475363.lua b/script/c47475363.lua new file mode 100644 index 00000000..dc296c26 --- /dev/null +++ b/script/c47475363.lua @@ -0,0 +1,29 @@ +--波紋のバリア －ウェーブ・フォース－ +function c47475363.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TODECK) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetCondition(c47475363.condition) + e1:SetTarget(c47475363.target) + e1:SetOperation(c47475363.operation) + c:RegisterEffect(e1) +end +function c47475363.condition(e,tp,eg,ep,ev,re,r,rp) + return eg:GetFirst():IsControler(1-tp) and Duel.GetAttackTarget()==nil +end +function c47475363.filter(c) + return c:IsAttackPos() and c:IsAbleToDeck() +end +function c47475363.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c47475363.filter,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(c47475363.filter,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) +end +function c47475363.operation(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c47475363.filter,tp,0,LOCATION_MZONE,nil) + if g:GetCount()>0 then + Duel.SendtoDeck(g,nil,2,REASON_EFFECT) + end +end diff --git a/script/c47507260.lua b/script/c47507260.lua index 519eac2b..a176a2fb 100644 --- a/script/c47507260.lua +++ b/script/c47507260.lua @@ -36,7 +36,7 @@ function c47507260.bdop(e,tp,eg,ep,ev,re,r,rp) end function c47507260.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefencePos() + return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefensePos() end function c47507260.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c47558785.lua b/script/c47558785.lua new file mode 100644 index 00000000..2a8c83c9 --- /dev/null +++ b/script/c47558785.lua @@ -0,0 +1,34 @@ +--マイルド・ターキー +function c47558785.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --scale change + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(47558785,0)) + e1:SetCategory(CATEGORY_DICE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetTarget(c47558785.sctg) + e1:SetOperation(c47558785.scop) + c:RegisterEffect(e1) +end +function c47558785.sctg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetLeftScale()>1 end + Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) +end +function c47558785.scop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:GetLeftScale()<=1 then return end + local dc=Duel.TossDice(tp,1) + local sch=math.min(c:GetLeftScale()-1,dc) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_LSCALE) + e1:SetValue(-sch) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_RSCALE) + c:RegisterEffect(e2) +end diff --git a/script/c4756629.lua b/script/c4756629.lua old mode 100755 new mode 100644 diff --git a/script/c47579719.lua b/script/c47579719.lua index 58d24afc..d62298c2 100644 --- a/script/c47579719.lua +++ b/script/c47579719.lua @@ -20,12 +20,12 @@ function c47579719.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c47579719.filter(c) - return c:GetPosition()~=POS_FACEUP_DEFENCE + return c:GetPosition()~=POS_FACEUP_DEFENSE end function c47579719.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c47579719.filter,tp,0,LOCATION_MZONE,1,nil) end end function c47579719.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c47579719.filter,tp,0,LOCATION_MZONE,nil) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE,POS_FACEUP_DEFENCE,POS_FACEUP_DEFENCE,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE) end diff --git a/script/c47594192.lua b/script/c47594192.lua index e5520644..ca1420c2 100644 --- a/script/c47594192.lua +++ b/script/c47594192.lua @@ -1,34 +1,34 @@ ---スリーカード -function c47594192.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1e0) - e1:SetCondition(c47594192.condition) - e1:SetTarget(c47594192.target) - e1:SetOperation(c47594192.activate) - c:RegisterEffect(e1) -end -function c47594192.cfilter(c,tp) - return c:IsFaceup() and not c:IsType(TYPE_TOKEN) and Duel.IsExistingMatchingCard(c47594192.cfilter2,tp,LOCATION_MZONE,0,2,c,c:GetCode()) -end -function c47594192.cfilter2(c,code) - return c:IsFaceup() and c:IsCode(code) -end -function c47594192.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c47594192.cfilter,tp,LOCATION_MZONE,0,1,nil,tp) -end -function c47594192.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,3,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,3,3,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,3,0,0) -end -function c47594192.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - Duel.Destroy(g,REASON_EFFECT) -end +--スリーカード +function c47594192.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,0x1e0) + e1:SetCondition(c47594192.condition) + e1:SetTarget(c47594192.target) + e1:SetOperation(c47594192.activate) + c:RegisterEffect(e1) +end +function c47594192.cfilter(c,tp) + return c:IsFaceup() and not c:IsType(TYPE_TOKEN) and Duel.IsExistingMatchingCard(c47594192.cfilter2,tp,LOCATION_MZONE,0,2,c,c:GetCode()) +end +function c47594192.cfilter2(c,code) + return c:IsFaceup() and c:IsCode(code) +end +function c47594192.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c47594192.cfilter,tp,LOCATION_MZONE,0,1,nil,tp) +end +function c47594192.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,3,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,3,3,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,3,0,0) +end +function c47594192.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c47598941.lua b/script/c47598941.lua new file mode 100644 index 00000000..a49326a3 --- /dev/null +++ b/script/c47598941.lua @@ -0,0 +1,89 @@ +--アモルファージ・ライシス +function c47598941.initial_effect(c) + --Activate + local e0=Effect.CreateEffect(c) + e0:SetDescription(aux.Stringid(47598941,0)) + e0:SetType(EFFECT_TYPE_ACTIVATE) + e0:SetCode(EVENT_FREE_CHAIN) + e0:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e0:SetHintTiming(TIMING_DAMAGE_STEP) + e0:SetCondition(c47598941.condition) + c:RegisterEffect(e0) + --Activate(set p) + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(47598941,1)) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_DESTROYED) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCountLimit(1,47598941) + e1:SetCondition(c47598941.setcon) + e1:SetTarget(c47598941.settg1) + e1:SetOperation(c47598941.setop) + c:RegisterEffect(e1) + --set p + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(47598941,1)) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_DESTROYED) + e2:SetRange(LOCATION_SZONE) + e2:SetCountLimit(1,47598941) + e2:SetCondition(c47598941.setcon) + e2:SetTarget(c47598941.settg2) + e2:SetOperation(c47598941.setop) + c:RegisterEffect(e2) + --atk/def down + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetRange(LOCATION_SZONE) + e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e3:SetCode(EFFECT_UPDATE_ATTACK) + e3:SetTarget(c47598941.atktg) + e3:SetValue(c47598941.atkval) + c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e4) +end +function c47598941.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() +end +function c47598941.cfilter(c,tp) + return c:IsPreviousLocation(LOCATION_SZONE) and (c:GetPreviousSequence()==6 or c:GetPreviousSequence()==7) and c:GetPreviousControler()==tp +end +function c47598941.setcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c47598941.cfilter,1,nil,tp) +end +function c47598941.filter(c) + return c:IsSetCard(0xe0) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden() +end +function c47598941.settg1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return (Duel.CheckLocation(tp,LOCATION_SZONE,6) or Duel.CheckLocation(tp,LOCATION_SZONE,7)) + and Duel.IsExistingMatchingCard(c47598941.filter,tp,LOCATION_DECK,0,1,nil) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) +end +function c47598941.settg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsRelateToEffect(e) + and (Duel.CheckLocation(tp,LOCATION_SZONE,6) or Duel.CheckLocation(tp,LOCATION_SZONE,7)) + and Duel.IsExistingMatchingCard(c47598941.filter,tp,LOCATION_DECK,0,1,nil) end +end +function c47598941.setop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if not (Duel.CheckLocation(tp,LOCATION_SZONE,6) or Duel.CheckLocation(tp,LOCATION_SZONE,7)) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) + local g=Duel.SelectMatchingCard(tp,c47598941.filter,tp,LOCATION_DECK,0,1,1,nil) + local tc=g:GetFirst() + if tc then + Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) + end +end +function c47598941.atktg(e,c) + return not c:IsSetCard(0xe0) +end +function c47598941.vfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe0) +end +function c47598941.atkval(e,c) + return Duel.GetMatchingGroupCount(c47598941.vfilter,0,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)*-100 +end diff --git a/script/c47606319.lua b/script/c47606319.lua index 9c761573..cced3250 100644 --- a/script/c47606319.lua +++ b/script/c47606319.lua @@ -39,7 +39,7 @@ function c47606319.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c47606319.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c47606319.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c47658964.lua b/script/c47658964.lua index 91885265..c4560c3e 100644 --- a/script/c47658964.lua +++ b/script/c47658964.lua @@ -32,7 +32,7 @@ function c47658964.activate(e,tp,eg,ep,ev,re,r,rp) if ft0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_MZONE+LOCATION_GRAVE,0,nil) + local res=Duel.IsExistingMatchingCard(c47705572.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) + if not res then + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + local mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + res=Duel.IsExistingMatchingCard(c47705572.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) + end + end + return res + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c47705572.spop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(c47705572.filter1,tp,LOCATION_MZONE+LOCATION_GRAVE,0,nil,e) + local sg1=Duel.GetMatchingGroup(c47705572.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) + local mg2=nil + local sg2=nil + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + sg2=Duel.GetMatchingGroup(c47705572.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) + end + if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then + local sg=sg1:Clone() + if sg2 then sg:Merge(sg2) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=sg:Select(tp,1,1,nil) + local tc=tg:GetFirst() + if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then + local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) + tc:SetMaterial(mat1) + Duel.Remove(mat1,POS_FACEUP,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) + else + local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) + local fop=ce:GetOperation() + fop(ce,e,tp,tc,mat2) + end + tc:CompleteProcedure() + end +end +function c47705572.ptg(e,c) + return c:IsSetCard(0xdf) and c:IsType(TYPE_MONSTER) +end diff --git a/script/c47728740.lua b/script/c47728740.lua index 04d40234..936e3f51 100644 --- a/script/c47728740.lua +++ b/script/c47728740.lua @@ -1,4 +1,4 @@ ---Alich, Malebranche of the Burning Abyss +--彼岸の悪鬼 アリキーノ function c47728740.initial_effect(c) --self destroy local e1=Effect.CreateEffect(c) @@ -49,9 +49,11 @@ function c47728740.sstg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c47728740.ssop(e,tp,eg,ep,ev,re,r,rp) - if Duel.IsExistingMatchingCard(c47728740.filter,tp,LOCATION_ONFIELD,0,1,nil) then return end - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c47728740.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) diff --git a/script/c47731128.lua b/script/c47731128.lua index 1dec47b1..d9c8732a 100644 --- a/script/c47731128.lua +++ b/script/c47731128.lua @@ -18,7 +18,7 @@ function c47731128.cost(e,tp,eg,ep,ev,re,r,rp,chk) end function c47731128.filter(c) local tpe=c:GetType() - return c:IsFaceup() and (tpe==0x20002 or tpe==0x20004) and c:IsDestructable() + return c:IsFaceup() and (tpe==0x20002 or tpe==0x20004) end function c47731128.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c47731128.filter(chkc) end diff --git a/script/c47737087.lua b/script/c47737087.lua old mode 100755 new mode 100644 index 0e62e242..b57728e4 --- a/script/c47737087.lua +++ b/script/c47737087.lua @@ -18,7 +18,7 @@ function c47737087.initial_effect(c) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DEFENCE_ATTACK) + e3:SetCode(EFFECT_DEFENSE_ATTACK) c:RegisterEffect(e3) local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) @@ -28,25 +28,22 @@ function c47737087.initial_effect(c) c:RegisterEffect(e4) --atkdown local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e5:SetCode(EVENT_PRE_DAMAGE_CALCULATE) - e5:SetCondition(c47737087.rdcon) - e5:SetOperation(c47737087.rdop) + e5:SetType(EFFECT_TYPE_SINGLE) + e5:SetCode(EFFECT_SET_ATTACK_FINAL) + e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e5:SetRange(LOCATION_MZONE) + e5:SetCondition(c47737087.atkcon) + e5:SetValue(c47737087.atkval) c:RegisterEffect(e5) end function c47737087.dacon(e) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end -function c47737087.rdcon(e,tp,eg,ep,ev,re,r,rp) +function c47737087.atkcon(e) + if Duel.GetCurrentPhase()~=PHASE_DAMAGE_CAL then return false end local c=e:GetHandler() - return c:IsDefencePos() and c==Duel.GetAttacker() and Duel.GetAttackTarget()==nil and c:GetEffectCount(EFFECT_DIRECT_ATTACK)==1 + return c:IsDefensePos() and c==Duel.GetAttacker() and Duel.GetAttackTarget()==nil and c:GetEffectCount(EFFECT_DIRECT_ATTACK)==1 end -function c47737087.rdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(c:GetAttack()/2) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - c:RegisterEffect(e1) +function c47737087.atkval(e,c) + return c:GetAttack()/2 end diff --git a/script/c47741109.lua b/script/c47741109.lua index 67e359e0..177cef4a 100644 --- a/script/c47741109.lua +++ b/script/c47741109.lua @@ -13,8 +13,7 @@ function c47741109.initial_effect(c) end function c47741109.condition(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_HAND+LOCATION_ONFIELD) or (c:IsPreviousLocation(LOCATION_DECK) and - (c:IsReason(REASON_REVEAL) or c:GetPreviousPosition()==POS_FACEUP_DEFENCE)) + return c:IsPreviousLocation(LOCATION_HAND+LOCATION_ONFIELD) or (c:IsPreviousLocation(LOCATION_DECK) and c:IsReason(REASON_REVEAL)) end function c47741109.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1) end diff --git a/script/c47766694.lua b/script/c47766694.lua old mode 100755 new mode 100644 index 18f7eaa4..5f49ffaa --- a/script/c47766694.lua +++ b/script/c47766694.lua @@ -22,7 +22,7 @@ function c47766694.initial_effect(c) c:RegisterEffect(e2) end function c47766694.filter(c) - return c:IsFaceup() and c:GetSequence()<5 and c:IsDestructable() + return c:IsFaceup() and c:GetSequence()<5 end function c47766694.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and c47766694.filter(chkc) and chkc~=e:GetHandler() end @@ -50,7 +50,7 @@ function c47766694.descon(e,tp,eg,ep,ev,re,r,rp) and bit.band(e:GetHandler():GetPreviousPosition(),POS_FACEDOWN)~=0 end function c47766694.desfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c47766694.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c47766694.desfilter(chkc) end diff --git a/script/c4779091.lua b/script/c4779091.lua index 3b514cb1..c41d907c 100644 --- a/script/c4779091.lua +++ b/script/c4779091.lua @@ -72,11 +72,11 @@ function c4779091.descon(e,tp,eg,ep,ev,re,r,rp) end function c4779091.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c4779091.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) end function c4779091.spcon(e,tp,eg,ep,ev,re,r,rp) @@ -85,7 +85,6 @@ function c4779091.spcon(e,tp,eg,ep,ev,re,r,rp) end function c4779091.filter(c,e,tp) return c:IsCode(31764700) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) - and (not c:IsLocation(LOCATION_GRAVE) or not c:IsHasEffect(EFFECT_NECRO_VALLEY)) end function c4779091.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -96,7 +95,7 @@ function c4779091.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c4779091.filter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP) end end diff --git a/script/c47819246.lua b/script/c47819246.lua index ece96d8e..88876a04 100644 --- a/script/c47819246.lua +++ b/script/c47819246.lua @@ -70,7 +70,7 @@ function c47819246.atkval(e,c) return c:GetRank()*100 end function c47819246.mtcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsType(TYPE_EQUIP) and Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_BATTLE + return e:GetHandler():IsType(TYPE_EQUIP) and Duel.GetTurnPlayer()==tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c47819246.mtcost(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() diff --git a/script/c47826112.lua b/script/c47826112.lua index d53e14b0..3f5fc6f5 100644 --- a/script/c47826112.lua +++ b/script/c47826112.lua @@ -36,9 +36,10 @@ function c47826112.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c47826112.spop(e,tp,eg,ep,ev,re,r,rp,c) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c47826112.thcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c47852924.lua b/script/c47852924.lua index fd2bd499..7a7dde47 100644 --- a/script/c47852924.lua +++ b/script/c47852924.lua @@ -1 +1,22 @@ ---天使の生き血 function c47852924.initial_effect(c) --recover local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCategory(CATEGORY_RECOVER) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetCode(EVENT_FREE_CHAIN) e1:SetTarget(c47852924.tg) e1:SetOperation(c47852924.op) c:RegisterEffect(e1) end function c47852924.tg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end Duel.SetTargetPlayer(tp) Duel.SetTargetParam(800) Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,800) end function c47852924.op(e,tp,eg,ep,ev,re,r,rp) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) Duel.Recover(p,d,REASON_EFFECT) end \ No newline at end of file +--天使の生き血 +function c47852924.initial_effect(c) + --recover + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCategory(CATEGORY_RECOVER) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c47852924.tg) + e1:SetOperation(c47852924.op) + c:RegisterEffect(e1) +end +function c47852924.tg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(800) + Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,800) +end +function c47852924.op(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Recover(p,d,REASON_EFFECT) +end diff --git a/script/c47852925.lua b/script/c47852925.lua deleted file mode 100644 index 6cb1f08b..00000000 --- a/script/c47852925.lua +++ /dev/null @@ -1 +0,0 @@ ---天使の生き血 function c47852925.initial_effect(c) --recover local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCategory(CATEGORY_RECOVER) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetCode(EVENT_FREE_CHAIN) e1:SetTarget(c47852925.tg) e1:SetOperation(c47852925.op) c:RegisterEffect(e1) end function c47852925.tg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end Duel.SetTargetPlayer(tp) Duel.SetTargetParam(800) Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,800) end function c47852925.op(e,tp,eg,ep,ev,re,r,rp) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) Duel.Recover(p,d,REASON_EFFECT) end \ No newline at end of file diff --git a/script/c4786063.lua b/script/c4786063.lua index 9135903d..97fe7e37 100644 --- a/script/c4786063.lua +++ b/script/c4786063.lua @@ -69,12 +69,12 @@ function c4786063.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) end function c4786063.filter(c) - return c:IsPosition(POS_FACEUP_DEFENCE) and c:IsSetCard(0x9a) + return c:IsPosition(POS_FACEUP_DEFENSE) and c:IsSetCard(0x9a) end function c4786063.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c4786063.filter(chkc) end if chk==0 then return Duel.IsExistingTarget(c4786063.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUPDEFENCE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUPDEFENSE) Duel.SelectTarget(tp,c4786063.filter,tp,LOCATION_MZONE,0,1,1,nil) end function c4786063.operation(e,tp,eg,ep,ev,re,r,rp) @@ -82,7 +82,7 @@ function c4786063.operation(e,tp,eg,ep,ev,re,r,rp) if tc:IsRelateToEffect(e) and tc:IsFaceup() then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetValue(-800) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) diff --git a/script/c47863787.lua b/script/c47863787.lua index ad15b034..62cf11fa 100644 --- a/script/c47863787.lua +++ b/script/c47863787.lua @@ -38,8 +38,11 @@ function c47863787.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c47863787.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c47863787.cfilter(c,tp) diff --git a/script/c47942531.lua b/script/c47942531.lua old mode 100755 new mode 100644 diff --git a/script/c4796100.lua b/script/c4796100.lua index 73ede411..d697d0e8 100644 --- a/script/c4796100.lua +++ b/script/c4796100.lua @@ -15,8 +15,7 @@ function c4796100.initial_effect(c) c:RegisterEffect(e1) end function c4796100.spfilter(c,e,tp) - local code=c:GetCode() - return (code==5818798 or code==77207191) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsCode(5818798,77207191) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c4796100.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c4796100.spfilter(chkc,e,tp) end diff --git a/script/c48063985.lua b/script/c48063985.lua index bddc5259..907b0b09 100644 --- a/script/c48063985.lua +++ b/script/c48063985.lua @@ -44,11 +44,11 @@ function c48063985.initial_effect(c) c:RegisterEffect(e4) end function c48063985.spfilter1(c,tp) - return c:IsSetCard(0x10b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() + return c:IsFusionSetCard(0x10b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() and Duel.IsExistingMatchingCard(c48063985.spfilter2,tp,LOCATION_MZONE,0,1,c) end function c48063985.spfilter2(c) - return c:IsSetCard(0x20b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() + return c:IsFusionSetCard(0x20b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() end function c48063985.sprcon(e,c) if c==nil then return true end @@ -106,7 +106,8 @@ function c48063985.filter2(c,e,tp) end function c48063985.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c48063985.filter1,tp,LOCATION_REMOVED,0,1,nil,e,tp) end Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) @@ -119,15 +120,16 @@ end function c48063985.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()==0 then return end if g:GetCount()<=ft then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) else Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,ft,ft,nil) - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENSE) g:Sub(sg) - Duel.SendtoGrave(g,REASON_EFFECT) + Duel.SendtoGrave(g,REASON_RULE) end end diff --git a/script/c4807253.lua b/script/c4807253.lua index 94b0d249..3faf1b72 100644 --- a/script/c4807253.lua +++ b/script/c4807253.lua @@ -73,6 +73,7 @@ function c4807253.damtg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,500) end function c4807253.damop(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(1-tp,500,REASON_EFFECT) - Duel.Damage(tp,500,REASON_EFFECT) + Duel.Damage(1-tp,500,REASON_EFFECT,true) + Duel.Damage(tp,500,REASON_EFFECT,true) + Duel.RDComplete() end diff --git a/script/c48092532.lua b/script/c48092532.lua index f8c09633..7aa7c7af 100644 --- a/script/c48092532.lua +++ b/script/c48092532.lua @@ -33,7 +33,7 @@ end function c48092532.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():GetFlagEffect(48092533)==0 end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) - e:GetHandler():RegisterFlagEffect(48092533,RESET_PHASE+PHASE_END,0,1) + e:GetHandler():RegisterFlagEffect(48092533,RESET_EVENT+0x4760000+RESET_PHASE+PHASE_END,0,1) end function c48092532.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c4810828.lua b/script/c4810828.lua new file mode 100644 index 00000000..72b68281 --- /dev/null +++ b/script/c4810828.lua @@ -0,0 +1,68 @@ +--古聖戴サウラヴィス +function c4810828.initial_effect(c) + c:EnableReviveLimit() + --negate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(4810828,0)) + e1:SetCategory(CATEGORY_NEGATE) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e1:SetCode(EVENT_CHAINING) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c4810828.negcon) + e1:SetCost(c4810828.negcost) + e1:SetTarget(c4810828.negtg) + e1:SetOperation(c4810828.negop) + c:RegisterEffect(e1) + --disable special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(4810828,1)) + e2:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_REMOVE) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_SPSUMMON) + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(c4810828.discon) + e2:SetCost(c4810828.discost) + e2:SetTarget(c4810828.distg) + e2:SetOperation(c4810828.disop) + c:RegisterEffect(e2) +end +function c4810828.cfilter(c,tp) + return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsFaceup() +end +function c4810828.negcon(e,tp,eg,ep,ev,re,r,rp) + if not (rp==1-tp and re:IsHasProperty(EFFECT_FLAG_CARD_TARGET)) then return false end + local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) + return g and g:IsExists(c4810828.cfilter,1,nil,tp) and Duel.IsChainNegatable(ev) +end +function c4810828.negcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) +end +function c4810828.negtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) +end +function c4810828.negop(e,tp,eg,ep,ev,re,r,rp) + if Duel.NegateActivation(ev) then + if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then + Duel.SendtoGrave(eg,REASON_EFFECT) + end + end +end +function c4810828.discon(e,tp,eg,ep,ev,re,r,rp) + return tp~=ep and Duel.GetCurrentChain()==0 +end +function c4810828.discost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToHandAsCost() end + Duel.SendtoHand(e:GetHandler(),nil,REASON_COST) +end +function c4810828.distg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,eg:GetCount(),0,0) +end +function c4810828.disop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateSummon(eg) + Duel.Remove(eg,POS_FACEUP,REASON_EFFECT) +end diff --git a/script/c48115277.lua b/script/c48115277.lua index 869ae246..90e8babc 100644 --- a/script/c48115277.lua +++ b/script/c48115277.lua @@ -42,20 +42,22 @@ function c48115277.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local ct=e:GetHandler():GetFlagEffectLabel(48115277) if not ct then ct=0 end - return Duel.GetLocationCount(tp,LOCATION_MZONE)>ct-1 + return (ct==0 or not Duel.IsPlayerAffectedByEffect(tp,59822133)) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>ct-1 and Duel.IsPlayerCanSpecialSummonMonster(tp,48115278,0,0x4011,1000,1500,4,RACE_ROCK,ATTRIBUTE_EARTH) end local ct=e:GetLabel() - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,ct-1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,ct-1,0,0) + Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,ct+1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,ct+1,0,0) end function c48115277.spop(e,tp,eg,ep,ev,re,r,rp) local ct=e:GetLabel() + if ct>0 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)>ct and Duel.IsPlayerCanSpecialSummonMonster(tp,48115278,0,0x4011,1000,1500,4,RACE_ROCK,ATTRIBUTE_EARTH) then for i=1,ct+1 do local token=Duel.CreateToken(tp,48115278) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_ATTACK) diff --git a/script/c48130397.lua b/script/c48130397.lua index d830e680..d7b0b704 100644 --- a/script/c48130397.lua +++ b/script/c48130397.lua @@ -42,7 +42,9 @@ function c48130397.target(e,tp,eg,ep,ev,re,r,rp,chk) return res end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) - Duel.SetChainLimit(aux.FALSE) + if e:IsHasType(EFFECT_TYPE_ACTIVATE) then + Duel.SetChainLimit(aux.FALSE) + end end function c48130397.activate(e,tp,eg,ep,ev,re,r,rp) local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp diff --git a/script/c48144509.lua b/script/c48144509.lua old mode 100755 new mode 100644 index f7745ba1..b29ca492 --- a/script/c48144509.lua +++ b/script/c48144509.lua @@ -100,14 +100,5 @@ function c48144509.activate(e,tp,eg,ep,ev,re,r,rp) fop(ce,e,tp,tc,mat2) end tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end diff --git a/script/c48156348.lua b/script/c48156348.lua index 735d23d3..4155b380 100644 --- a/script/c48156348.lua +++ b/script/c48156348.lua @@ -1,118 +1,120 @@ ---剣闘獣ガイザレス -function c48156348.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCodeFun(c,41470137,aux.FilterBoolFunction(Card.IsFusionSetCard,0x19),1,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c48156348.splimit) - c:RegisterEffect(e1) - --special summon rule - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_EXTRA) - e2:SetCondition(c48156348.sprcon) - e2:SetOperation(c48156348.sprop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(48156348,0)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetTarget(c48156348.destg) - e3:SetOperation(c48156348.desop) - c:RegisterEffect(e3) - --special summon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(48156348,1)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_PHASE+PHASE_BATTLE) - e4:SetRange(LOCATION_MZONE) - e4:SetCondition(c48156348.spcon) - e4:SetCost(c48156348.spcost) - e4:SetTarget(c48156348.sptg) - e4:SetOperation(c48156348.spop) - c:RegisterEffect(e4) -end -function c48156348.splimit(e,se,sp,st) - return e:GetHandler():GetLocation()~=LOCATION_EXTRA -end -function c48156348.spfilter1(c,tp) - return c:IsCode(41470137) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true) - and Duel.IsExistingMatchingCard(c48156348.spfilter2,tp,LOCATION_MZONE,0,1,c) -end -function c48156348.spfilter2(c) - return c:IsSetCard(0x19) and c:IsCanBeFusionMaterial() and c:IsAbleToDeckOrExtraAsCost() -end -function c48156348.sprcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 - and Duel.IsExistingMatchingCard(c48156348.spfilter1,tp,LOCATION_ONFIELD,0,1,nil,tp) -end -function c48156348.sprop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(48156348,2)) - local g1=Duel.SelectMatchingCard(tp,c48156348.spfilter1,tp,LOCATION_ONFIELD,0,1,1,nil,tp) - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(48156348,3)) - local g2=Duel.SelectMatchingCard(tp,c48156348.spfilter2,tp,LOCATION_MZONE,0,1,1,g1:GetFirst()) - g1:Merge(g2) - local tc=g1:GetFirst() - while tc do - if not tc:IsFaceup() then Duel.ConfirmCards(1-tp,tc) end - tc=g1:GetNext() - end - Duel.SendtoDeck(g1,nil,2,REASON_COST) -end -function c48156348.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,2,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c48156348.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tg=g:Filter(Card.IsRelateToEffect,nil,e) - if tg:GetCount()>0 then - Duel.Destroy(tg,REASON_EFFECT) - end -end -function c48156348.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetBattledGroupCount()>0 -end -function c48156348.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsAbleToExtraAsCost() end - Duel.SendtoDeck(c,nil,0,REASON_COST) -end -function c48156348.filter(c,e,tp) - return not c:IsCode(41470137) and c:IsSetCard(0x19) and c:IsCanBeSpecialSummoned(e,120,tp,false,false) -end -function c48156348.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c48156348.filter,tp,LOCATION_DECK,0,2,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) -end -function c48156348.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - local g=Duel.GetMatchingGroup(c48156348.filter,tp,LOCATION_DECK,0,nil,e,tp) - if g:GetCount()>=2 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:Select(tp,2,2,nil) - local tc=sg:GetFirst() - Duel.SpecialSummonStep(tc,120,tp,tp,false,false,POS_FACEUP) - tc:RegisterFlagEffect(tc:GetOriginalCode(),RESET_EVENT+0x1ff0000,0,0) - tc=sg:GetNext() - Duel.SpecialSummonStep(tc,120,tp,tp,false,false,POS_FACEUP) - tc:RegisterFlagEffect(tc:GetOriginalCode(),RESET_EVENT+0x1ff0000,0,0) - Duel.SpecialSummonComplete() - end -end +--剣闘獣ガイザレス +function c48156348.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcCodeFun(c,41470137,aux.FilterBoolFunction(Card.IsFusionSetCard,0x19),1,true,true) + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(c48156348.splimit) + c:RegisterEffect(e1) + --special summon rule + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_EXTRA) + e2:SetCondition(c48156348.sprcon) + e2:SetOperation(c48156348.sprop) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(48156348,0)) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetTarget(c48156348.destg) + e3:SetOperation(c48156348.desop) + c:RegisterEffect(e3) + --special summon + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(48156348,1)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_PHASE+PHASE_BATTLE) + e4:SetRange(LOCATION_MZONE) + e4:SetCondition(c48156348.spcon) + e4:SetCost(c48156348.spcost) + e4:SetTarget(c48156348.sptg) + e4:SetOperation(c48156348.spop) + c:RegisterEffect(e4) +end +function c48156348.splimit(e,se,sp,st) + return e:GetHandler():GetLocation()~=LOCATION_EXTRA +end +function c48156348.spfilter1(c,tp) + return c:IsFusionCode(41470137) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true) + and Duel.IsExistingMatchingCard(c48156348.spfilter2,tp,LOCATION_MZONE,0,1,c) +end +function c48156348.spfilter2(c) + return c:IsFusionSetCard(0x19) and c:IsCanBeFusionMaterial() and c:IsAbleToDeckOrExtraAsCost() +end +function c48156348.sprcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 + and Duel.IsExistingMatchingCard(c48156348.spfilter1,tp,LOCATION_ONFIELD,0,1,nil,tp) +end +function c48156348.sprop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(48156348,2)) + local g1=Duel.SelectMatchingCard(tp,c48156348.spfilter1,tp,LOCATION_ONFIELD,0,1,1,nil,tp) + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(48156348,3)) + local g2=Duel.SelectMatchingCard(tp,c48156348.spfilter2,tp,LOCATION_MZONE,0,1,1,g1:GetFirst()) + g1:Merge(g2) + local tc=g1:GetFirst() + while tc do + if not tc:IsFaceup() then Duel.ConfirmCards(1-tp,tc) end + tc=g1:GetNext() + end + Duel.SendtoDeck(g1,nil,2,REASON_COST) +end +function c48156348.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,2,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c48156348.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local tg=g:Filter(Card.IsRelateToEffect,nil,e) + if tg:GetCount()>0 then + Duel.Destroy(tg,REASON_EFFECT) + end +end +function c48156348.spcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetBattledGroupCount()>0 +end +function c48156348.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:IsAbleToExtraAsCost() end + Duel.SendtoDeck(c,nil,0,REASON_COST) +end +function c48156348.filter(c,e,tp) + return not c:IsCode(41470137) and c:IsSetCard(0x19) and c:IsCanBeSpecialSummoned(e,120,tp,false,false) +end +function c48156348.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c48156348.filter,tp,LOCATION_DECK,0,2,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) +end +function c48156348.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end + local g=Duel.GetMatchingGroup(c48156348.filter,tp,LOCATION_DECK,0,nil,e,tp) + if g:GetCount()>=2 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg=g:Select(tp,2,2,nil) + local tc=sg:GetFirst() + Duel.SpecialSummonStep(tc,120,tp,tp,false,false,POS_FACEUP) + tc:RegisterFlagEffect(tc:GetOriginalCode(),RESET_EVENT+0x1ff0000,0,0) + tc=sg:GetNext() + Duel.SpecialSummonStep(tc,120,tp,tp,false,false,POS_FACEUP) + tc:RegisterFlagEffect(tc:GetOriginalCode(),RESET_EVENT+0x1ff0000,0,0) + Duel.SpecialSummonComplete() + end +end diff --git a/script/c48179391.lua b/script/c48179391.lua index e7858381..f3b4f30c 100644 --- a/script/c48179391.lua +++ b/script/c48179391.lua @@ -50,7 +50,7 @@ function c48179391.actcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.RegisterFlagEffect(tp,48179391,0,0,0) end function c48179391.desfilter(c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)~=0 and c:IsDestructable() + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)~=0 end function c48179391.acttg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c48210156.lua b/script/c48210156.lua old mode 100755 new mode 100644 index f252bdba..27eb2031 --- a/script/c48210156.lua +++ b/script/c48210156.lua @@ -33,7 +33,7 @@ function c48210156.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) tc:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) diff --git a/script/c48229808.lua b/script/c48229808.lua index cc7cf8fe..ba6099bc 100644 --- a/script/c48229808.lua +++ b/script/c48229808.lua @@ -12,7 +12,7 @@ function c48229808.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(48229808,0)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetCode(EVENT_CHAINING) e2:SetRange(LOCATION_MZONE) diff --git a/script/c48276469.lua b/script/c48276469.lua old mode 100755 new mode 100644 diff --git a/script/c48310593.lua b/script/c48310593.lua new file mode 100644 index 00000000..88e0f218 --- /dev/null +++ b/script/c48310593.lua @@ -0,0 +1,17 @@ +--無念の手札 +function c48310593.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + -- + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_HAND_LIMIT) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetRange(LOCATION_SZONE) + e2:SetTargetRange(1,1) + e2:SetValue(3) + c:RegisterEffect(e2) +end diff --git a/script/c48343627.lua b/script/c48343627.lua index b4eb7149..1195e52c 100644 --- a/script/c48343627.lua +++ b/script/c48343627.lua @@ -16,10 +16,10 @@ function c48343627.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c48343627.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end + if chkc then return chkc:IsOnField() end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c48343627.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c48381268.lua b/script/c48381268.lua index 063cc229..a0a1277c 100644 --- a/script/c48381268.lua +++ b/script/c48381268.lua @@ -24,7 +24,7 @@ function c48381268.cona(e) return e:GetHandler():IsAttackPos() end function c48381268.cond(e) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end function c48381268.tgd(e,c) return c:IsSetCard(0x26) and c~=e:GetHandler() diff --git a/script/c48411996.lua b/script/c48411996.lua index 0ff2008f..21d17acb 100644 --- a/script/c48411996.lua +++ b/script/c48411996.lua @@ -16,11 +16,12 @@ function c48411996.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,0) end function c48411996.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end if not Duel.IsPlayerCanSpecialSummonMonster(tp,48411997,0x22,0x4011,0,0,1,RACE_DINOSAUR,ATTRIBUTE_FIRE) then return end for i=1,2 do local token=Duel.CreateToken(tp,48411997) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UNRELEASABLE_SUM) diff --git a/script/c48422921.lua b/script/c48422921.lua old mode 100755 new mode 100644 index e8db280d..9396d615 --- a/script/c48422921.lua +++ b/script/c48422921.lua @@ -11,7 +11,7 @@ function c48422921.initial_effect(c) c:RegisterEffect(e1) end function c48422921.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsAbleToEnterBP() or Duel.GetCurrentPhase()==PHASE_BATTLE + return Duel.IsAbleToEnterBP() or (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c48422921.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end diff --git a/script/c48424886.lua b/script/c48424886.lua old mode 100755 new mode 100644 index 5f991c86..5bd1636b --- a/script/c48424886.lua +++ b/script/c48424886.lua @@ -1,191 +1,190 @@ ---エルシャドール・エグリスタ -function c48424886.initial_effect(c) - c:EnableReviveLimit() - --fusion material - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(c48424886.fuscon) - e1:SetOperation(c48424886.fusop) - c:RegisterEffect(e1) - --cannot spsummon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCode(EFFECT_SPSUMMON_CONDITION) - e2:SetRange(LOCATION_EXTRA) - e2:SetValue(c48424886.splimit) - c:RegisterEffect(e2) - --disable spsummon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(48424886,0)) - e3:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_SPSUMMON) - e3:SetCountLimit(1,48424886) - e3:SetCondition(c48424886.condition) - e3:SetTarget(c48424886.target) - e3:SetOperation(c48424886.operation) - c:RegisterEffect(e3) - --tohand - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(48424886,1)) - e4:SetCategory(CATEGORY_TOHAND) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e4:SetTarget(c48424886.thtg) - e4:SetOperation(c48424886.thop) - c:RegisterEffect(e4) -end -function c48424886.ffilter1(c) - return c:IsSetCard(0x9d) -end -function c48424886.ffilter2(c) - return c:IsAttribute(ATTRIBUTE_FIRE) or c:IsHasEffect(4904633) -end -function c48424886.exfilter(c,g) - return c:IsFaceup() and c:IsCanBeFusionMaterial() and not g:IsContains(c) -end -function c48424886.fuscon(e,g,gc,chkf) - if g==nil then return true end - local tp=e:GetHandlerPlayer() - local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local exg=Group.CreateGroup() - if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then - local sg=Duel.GetMatchingGroup(c48424886.exfilter,tp,0,LOCATION_MZONE,nil,g) - exg:Merge(sg) - end - if gc then return (c48424886.ffilter1(gc) and (g:IsExists(c48424886.ffilter2,1,gc) or exg:IsExists(c48424886.ffilter2,1,gc))) - or (c48424886.ffilter2(gc) and (g:IsExists(c48424886.ffilter1,1,gc) or exg:IsExists(c48424886.ffilter1,1,gc))) end - local g1=Group.CreateGroup() - local g2=Group.CreateGroup() - local g3=Group.CreateGroup() - local g4=Group.CreateGroup() - local tc=g:GetFirst() - while tc do - if c48424886.ffilter1(tc) then - g1:AddCard(tc) - if aux.FConditionCheckF(tc,chkf) then g3:AddCard(tc) end - end - if c48424886.ffilter2(tc) then - g2:AddCard(tc) - if aux.FConditionCheckF(tc,chkf) then g4:AddCard(tc) end - end - tc=g:GetNext() - end - local exg1=exg:Filter(c48424886.ffilter1,nil) - local exg2=exg:Filter(c48424886.ffilter2,nil) - if chkf~=PLAYER_NONE then - return (g3:IsExists(aux.FConditionFilterF2,1,nil,g2) - or g3:IsExists(aux.FConditionFilterF2,1,nil,exg2) - or g4:IsExists(aux.FConditionFilterF2,1,nil,g1) - or g4:IsExists(aux.FConditionFilterF2,1,nil,exg1)) - else - return (g1:IsExists(aux.FConditionFilterF2,1,nil,g2) - or g1:IsExists(aux.FConditionFilterF2,1,nil,exg2) - or g2:IsExists(aux.FConditionFilterF2,1,nil,exg1)) - end -end -function c48424886.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local exg=Group.CreateGroup() - if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then - local sg=Duel.GetMatchingGroup(c48424886.exfilter,tp,0,LOCATION_MZONE,nil,eg) - exg:Merge(sg) - end - if gc then - local sg1=Group.CreateGroup() - local sg2=Group.CreateGroup() - if c48424886.ffilter1(gc) then - sg1:Merge(eg:Filter(c48424886.ffilter2,gc)) - sg2:Merge(exg:Filter(c48424886.ffilter2,gc)) - end - if c48424886.ffilter2(gc) then - sg1:Merge(eg:Filter(c48424886.ffilter1,gc)) - sg2:Merge(exg:Filter(c48424886.ffilter1,gc)) - end - local g1=nil - if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then - fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1=sg2:Select(tp,1,1,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1=sg1:Select(tp,1,1,nil) - end - Duel.SetFusionMaterial(g1) - return - end - local sg=eg:Filter(aux.FConditionFilterF2c,nil,c48424886.ffilter1,c48424886.ffilter2) - local g1=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if chkf~=PLAYER_NONE then - g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) - else g1=sg:Select(tp,1,1,nil) end - local tc1=g1:GetFirst() - local sg1=Group.CreateGroup() - local sg2=Group.CreateGroup() - if c48424886.ffilter1(tc1) then - sg1:Merge(sg:Filter(c48424886.ffilter2,tc1)) - sg2:Merge(exg:Filter(c48424886.ffilter2,tc1)) - end - if c48424886.ffilter2(tc1) then - sg1:Merge(sg:Filter(c48424886.ffilter1,tc1)) - sg2:Merge(exg:Filter(c48424886.ffilter1,tc1)) - end - local g2=nil - if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then - fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg2:Select(tp,1,1,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg1:Select(tp,1,1,nil) - end - g1:Merge(g2) - Duel.SetFusionMaterial(g1) -end -function c48424886.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c48424886.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=ep and Duel.GetCurrentChain()==0 -end -function c48424886.filter(c) - return c:IsSetCard(0x9d) -end -function c48424886.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c48424886.filter,tp,LOCATION_HAND,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,eg:GetCount(),0,0) -end -function c48424886.operation(e,tp,eg,ep,ev,re,r,rp,chk) - Duel.NegateSummon(eg) - Duel.Destroy(eg,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c48424886.filter,tp,LOCATION_HAND,0,1,1,nil) - if g:GetCount()>0 then - Duel.BreakEffect() - Duel.SendtoGrave(g,REASON_EFFECT) - end -end -function c48424886.thfilter(c) - return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c48424886.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c48424886.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c48424886.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c48424886.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c48424886.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--エルシャドール・エグリスタ +function c48424886.initial_effect(c) + c:EnableReviveLimit() + --fusion material + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(c48424886.fuscon) + e1:SetOperation(c48424886.fusop) + c:RegisterEffect(e1) + --cannot spsummon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetCode(EFFECT_SPSUMMON_CONDITION) + e2:SetRange(LOCATION_EXTRA) + e2:SetValue(c48424886.splimit) + c:RegisterEffect(e2) + --disable spsummon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(48424886,0)) + e3:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EVENT_SPSUMMON) + e3:SetCountLimit(1,48424886) + e3:SetCondition(c48424886.condition) + e3:SetTarget(c48424886.target) + e3:SetOperation(c48424886.operation) + c:RegisterEffect(e3) + --tohand + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(48424886,1)) + e4:SetCategory(CATEGORY_TOHAND) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e4:SetTarget(c48424886.thtg) + e4:SetOperation(c48424886.thop) + c:RegisterEffect(e4) +end +function c48424886.ffilter1(c) + return c:IsFusionSetCard(0x9d) +end +function c48424886.ffilter2(c) + return c:IsAttribute(ATTRIBUTE_FIRE) or c:IsHasEffect(4904633) +end +function c48424886.exfilter(c,g) + return c:IsFaceup() and c:IsCanBeFusionMaterial() and not g:IsContains(c) +end +function c48424886.fuscon(e,g,gc,chkf) + if g==nil then return true end + local tp=e:GetHandlerPlayer() + local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + local exg=Group.CreateGroup() + if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then + local sg=Duel.GetMatchingGroup(c48424886.exfilter,tp,0,LOCATION_MZONE,nil,g) + exg:Merge(sg) + end + if gc then return (c48424886.ffilter1(gc) and (g:IsExists(c48424886.ffilter2,1,gc) or exg:IsExists(c48424886.ffilter2,1,gc))) + or (c48424886.ffilter2(gc) and (g:IsExists(c48424886.ffilter1,1,gc) or exg:IsExists(c48424886.ffilter1,1,gc))) end + local g1=Group.CreateGroup() + local g2=Group.CreateGroup() + local g3=Group.CreateGroup() + local g4=Group.CreateGroup() + local tc=g:GetFirst() + while tc do + if c48424886.ffilter1(tc) then + g1:AddCard(tc) + if aux.FConditionCheckF(tc,chkf) then g3:AddCard(tc) end + end + if c48424886.ffilter2(tc) then + g2:AddCard(tc) + if aux.FConditionCheckF(tc,chkf) then g4:AddCard(tc) end + end + tc=g:GetNext() + end + local exg1=exg:Filter(c48424886.ffilter1,nil) + local exg2=exg:Filter(c48424886.ffilter2,nil) + if chkf~=PLAYER_NONE then + return (g3:IsExists(aux.FConditionFilterF2,1,nil,g2) + or g3:IsExists(aux.FConditionFilterF2,1,nil,exg2) + or g4:IsExists(aux.FConditionFilterF2,1,nil,g1) + or g4:IsExists(aux.FConditionFilterF2,1,nil,exg1)) + else + return (g1:IsExists(aux.FConditionFilterF2,1,nil,g2) + or g1:IsExists(aux.FConditionFilterF2,1,nil,exg2) + or g2:IsExists(aux.FConditionFilterF2,1,nil,exg1)) + end +end +function c48424886.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) + local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + local exg=Group.CreateGroup() + if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then + local sg=Duel.GetMatchingGroup(c48424886.exfilter,tp,0,LOCATION_MZONE,nil,eg) + exg:Merge(sg) + end + if gc then + local sg1=Group.CreateGroup() + local sg2=Group.CreateGroup() + if c48424886.ffilter1(gc) then + sg1:Merge(eg:Filter(c48424886.ffilter2,gc)) + sg2:Merge(exg:Filter(c48424886.ffilter2,gc)) + end + if c48424886.ffilter2(gc) then + sg1:Merge(eg:Filter(c48424886.ffilter1,gc)) + sg2:Merge(exg:Filter(c48424886.ffilter1,gc)) + end + local g1=nil + if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then + fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g1=sg2:Select(tp,1,1,nil) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g1=sg1:Select(tp,1,1,nil) + end + Duel.SetFusionMaterial(g1) + return + end + local sg=eg:Filter(aux.FConditionFilterF2c,nil,c48424886.ffilter1,c48424886.ffilter2) + local g1=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if chkf~=PLAYER_NONE then + g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) + else g1=sg:Select(tp,1,1,nil) end + local tc1=g1:GetFirst() + local sg1=Group.CreateGroup() + local sg2=Group.CreateGroup() + if c48424886.ffilter1(tc1) then + sg1:Merge(sg:Filter(c48424886.ffilter2,tc1)) + sg2:Merge(exg:Filter(c48424886.ffilter2,tc1)) + end + if c48424886.ffilter2(tc1) then + sg1:Merge(sg:Filter(c48424886.ffilter1,tc1)) + sg2:Merge(exg:Filter(c48424886.ffilter1,tc1)) + end + local g2=nil + if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then + fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g2=sg2:Select(tp,1,1,nil) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g2=sg1:Select(tp,1,1,nil) + end + g1:Merge(g2) + Duel.SetFusionMaterial(g1) +end +function c48424886.splimit(e,se,sp,st) + return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c48424886.condition(e,tp,eg,ep,ev,re,r,rp) + return tp~=ep and Duel.GetCurrentChain()==0 +end +function c48424886.filter(c) + return c:IsSetCard(0x9d) +end +function c48424886.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c48424886.filter,tp,LOCATION_HAND,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,eg:GetCount(),0,0) +end +function c48424886.operation(e,tp,eg,ep,ev,re,r,rp,chk) + Duel.NegateSummon(eg) + Duel.Destroy(eg,REASON_EFFECT) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c48424886.filter,tp,LOCATION_HAND,0,1,1,nil) + if g:GetCount()>0 then + Duel.BreakEffect() + Duel.SendtoGrave(g,REASON_EFFECT) + end +end +function c48424886.thfilter(c) + return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() +end +function c48424886.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c48424886.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c48424886.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c48424886.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c48424886.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c48427163.lua b/script/c48427163.lua new file mode 100644 index 00000000..8f4aa737 --- /dev/null +++ b/script/c48427163.lua @@ -0,0 +1,67 @@ +--月光紫蝶 +function c48427163.initial_effect(c) + --atk up + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE+LOCATION_HAND) + e1:SetCost(c48427163.atkcost) + e1:SetTarget(c48427163.atktg) + e1:SetOperation(c48427163.atkop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,48427163) + e2:SetCost(c48427163.spcost) + e2:SetTarget(c48427163.sptg) + e2:SetOperation(c48427163.spop) + c:RegisterEffect(e2) +end +function c48427163.filter(c) + return c:IsFaceup() and c:IsSetCard(0xdf) +end +function c48427163.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST) +end +function c48427163.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c48427163.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c48427163.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c48427163.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c48427163.atkop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(1000) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + end +end +function c48427163.spfilter(c,e,tp) + return c:IsSetCard(0xdf) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c48427163.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c48427163.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c48427163.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c48427163.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c48427163.spfilter,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 diff --git a/script/c48444114.lua b/script/c48444114.lua new file mode 100644 index 00000000..8e1ada2a --- /dev/null +++ b/script/c48444114.lua @@ -0,0 +1,61 @@ +--月光香 +function c48444114.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(48444114,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c48444114.target) + e1:SetOperation(c48444114.activate) + c:RegisterEffect(e1) + --search + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(48444114,1)) + e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCost(c48444114.thcost) + e2:SetTarget(c48444114.thtg) + e2:SetOperation(c48444114.thop) + c:RegisterEffect(e2) +end +function c48444114.filter(c,e,tp) + return c:IsSetCard(0xdf) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c48444114.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c48444114.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c48444114.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c48444114.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c48444114.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end +function c48444114.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() + and Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) + Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) +end +function c48444114.filter2(c) + return c:IsSetCard(0xdf) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c48444114.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c48444114.filter2,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c48444114.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c48444114.filter2,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c48445393.lua b/script/c48445393.lua index 99e93b58..ccac3044 100644 --- a/script/c48445393.lua +++ b/script/c48445393.lua @@ -11,7 +11,7 @@ function c48445393.initial_effect(c) c:RegisterEffect(e1) end function c48445393.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0x24) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x24) end function c48445393.sfilter(c) return c:IsSetCard(0x24) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() diff --git a/script/c48447192.lua b/script/c48447192.lua index 968b483a..f6addca7 100644 --- a/script/c48447192.lua +++ b/script/c48447192.lua @@ -64,10 +64,10 @@ function c48447192.descon(e,tp,eg,ep,ev,re,r,rp) return ec and eg:IsContains(ec) end function c48447192.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c48447192.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c48497555.lua b/script/c48497555.lua old mode 100755 new mode 100644 index 55a1b691..e4c7f1f1 --- a/script/c48497555.lua +++ b/script/c48497555.lua @@ -55,6 +55,6 @@ end function c48497555.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c48546368.lua b/script/c48546368.lua old mode 100755 new mode 100644 index dd4aebd5..0c9b242b --- a/script/c48546368.lua +++ b/script/c48546368.lua @@ -12,7 +12,7 @@ function c48546368.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(48546368,0)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetRange(LOCATION_MZONE) diff --git a/script/c48568432.lua b/script/c48568432.lua index 2e75d5af..430f341d 100644 --- a/script/c48568432.lua +++ b/script/c48568432.lua @@ -82,8 +82,10 @@ function c48568432.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c48568432.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c48568432.spcon2(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c48582558.lua b/script/c48582558.lua index 7bf5a9bd..92014723 100644 --- a/script/c48582558.lua +++ b/script/c48582558.lua @@ -30,14 +30,20 @@ function c48582558.activate(e,tp,eg,ep,ev,re,r,rp) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e2:SetValue(aux.tgval) + e2:SetValue(1) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e2) local e3=Effect.CreateEffect(e:GetHandler()) e3:SetType(EFFECT_TYPE_SINGLE) e3:SetCode(EFFECT_MUST_BE_ATTACKED) - e3:SetValue(aux.imval1) + e3:SetValue(1) e3:SetReset(RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e3) + local e4=Effect.CreateEffect(e:GetHandler()) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_MUST_ATTACK_MONSTER) + e4:SetTargetRange(0,LOCATION_MZONE) + e4:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e4,tp) end end diff --git a/script/c48588176.lua b/script/c48588176.lua index db489711..50084ad6 100644 --- a/script/c48588176.lua +++ b/script/c48588176.lua @@ -15,7 +15,7 @@ function c48588176.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c48588176.filter(c) - return c:IsDefenceBelow(1000) and c:IsRace(RACE_INSECT) and c:IsAbleToHand() + return c:IsDefenseBelow(1000) and c:IsRace(RACE_INSECT) and c:IsAbleToHand() end function c48588176.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c48588176.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c48653261.lua b/script/c48653261.lua index 0fb606ce..0aae24de 100644 --- a/script/c48653261.lua +++ b/script/c48653261.lua @@ -30,7 +30,7 @@ function c48653261.activate(e,tp,eg,ep,ev,re,r,rp) end end function c48653261.filter(c,fid) - return c:GetRealFieldID()==fid and c:IsDefencePos() and c:IsPreviousPosition(POS_ATTACK) + return c:GetRealFieldID()==fid and c:IsDefensePos() and c:IsPreviousPosition(POS_ATTACK) end function c48653261.drcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c48653261.filter,1,nil,e:GetLabel()) diff --git a/script/c48680970.lua b/script/c48680970.lua index 13c125ae..012d4974 100644 --- a/script/c48680970.lua +++ b/script/c48680970.lua @@ -1,133 +1,134 @@ ---永遠の魂 -function c48680970.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetTarget(c48680970.target1) - e1:SetOperation(c48680970.operation) - c:RegisterEffect(e1) - --instant - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(0,TIMING_END_PHASE) - e2:SetCost(c48680970.cost2) - e2:SetTarget(c48680970.target2) - e2:SetOperation(c48680970.operation) - c:RegisterEffect(e2) - --immune effect - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_IMMUNE_EFFECT) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetTarget(c48680970.etarget) - e3:SetValue(c48680970.efilter) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(EVENT_LEAVE_FIELD) - e4:SetCondition(c48680970.descon) - e4:SetTarget(c48680970.destg) - e4:SetOperation(c48680970.desop) - c:RegisterEffect(e4) -end -function c48680970.filter1(c,e,tp) - return c:IsCode(46986414) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c48680970.filter2(c) - return (c:IsCode(2314238) or c:IsCode(63391643)) and c:IsAbleToHand() -end -function c48680970.target1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local b1=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c48680970.filter1,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) - local b2=Duel.IsExistingMatchingCard(c48680970.filter2,tp,LOCATION_DECK,0,1,nil) - local op=2 - e:SetCategory(0) - if Duel.GetFlagEffect(tp,48680970)==0 and (b1 or b2) and Duel.SelectYesNo(tp,aux.Stringid(48680970,0)) then - if b1 and b2 then - op=Duel.SelectOption(tp,aux.Stringid(48680970,1),aux.Stringid(48680970,2)) - elseif b1 then - op=Duel.SelectOption(tp,aux.Stringid(48680970,1)) - else - op=Duel.SelectOption(tp,aux.Stringid(48680970,2))+1 - end - if op==0 then - e:SetCategory(CATEGORY_SPECIAL_SUMMON) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) - else - e:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) - end - Duel.RegisterFlagEffect(tp,48680970,RESET_PHASE+PHASE_END,0,1) - end - e:SetLabel(op) -end -function c48680970.operation(e,tp,eg,ep,ev,re,r,rp) - if e:GetLabel()==2 or not e:GetHandler():IsRelateToEffect(e) then return end - if e:GetLabel()==0 then - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c48680970.filter1,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c48680970.filter2,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end - end -end -function c48680970.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,48680970)==0 end - Duel.RegisterFlagEffect(tp,48680970,RESET_PHASE+PHASE_END,0,1) -end -function c48680970.target2(e,tp,eg,ep,ev,re,r,rp,chk) - local b1=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c48680970.filter1,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) - local b2=Duel.IsExistingMatchingCard(c48680970.filter2,tp,LOCATION_DECK,0,1,nil) - if chk==0 then return b1 or b2 end - local op=0 - if b1 and b2 then - op=Duel.SelectOption(tp,aux.Stringid(48680970,1),aux.Stringid(48680970,2)) - elseif b1 then - op=Duel.SelectOption(tp,aux.Stringid(48680970,1)) - else - op=Duel.SelectOption(tp,aux.Stringid(48680970,2))+1 - end - e:SetLabel(op) - if op==0 then - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) - else - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) - end -end -function c48680970.etarget(e,c) - return c:IsCode(46986414) -end -function c48680970.efilter(e,re) - return re:GetOwnerPlayer()~=e:GetHandlerPlayer() -end -function c48680970.descon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousPosition(POS_FACEUP) and not c:IsLocation(LOCATION_DECK) -end -function c48680970.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c48680970.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) - Duel.Destroy(g,REASON_EFFECT) -end +--永遠の魂 +function c48680970.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMING_END_PHASE) + e1:SetTarget(c48680970.target1) + e1:SetOperation(c48680970.operation) + c:RegisterEffect(e1) + --instant + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_SEARCH) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_SZONE) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetHintTiming(0,TIMING_END_PHASE) + e2:SetCost(c48680970.cost2) + e2:SetTarget(c48680970.target2) + e2:SetOperation(c48680970.operation) + c:RegisterEffect(e2) + --immune effect + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_IMMUNE_EFFECT) + e3:SetRange(LOCATION_SZONE) + e3:SetTargetRange(LOCATION_MZONE,0) + e3:SetTarget(c48680970.etarget) + e3:SetValue(c48680970.efilter) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e4:SetCode(EVENT_LEAVE_FIELD) + e4:SetCondition(c48680970.descon) + e4:SetTarget(c48680970.destg) + e4:SetOperation(c48680970.desop) + c:RegisterEffect(e4) +end +c48680970.card_code_list={46986414} +function c48680970.filter1(c,e,tp) + return c:IsCode(46986414) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c48680970.filter2(c) + return c:IsCode(2314238,63391643) and c:IsAbleToHand() +end +function c48680970.target1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local b1=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c48680970.filter1,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) + local b2=Duel.IsExistingMatchingCard(c48680970.filter2,tp,LOCATION_DECK,0,1,nil) + local op=2 + e:SetCategory(0) + if Duel.GetFlagEffect(tp,48680970)==0 and (b1 or b2) and Duel.SelectYesNo(tp,aux.Stringid(48680970,0)) then + if b1 and b2 then + op=Duel.SelectOption(tp,aux.Stringid(48680970,1),aux.Stringid(48680970,2)) + elseif b1 then + op=Duel.SelectOption(tp,aux.Stringid(48680970,1)) + else + op=Duel.SelectOption(tp,aux.Stringid(48680970,2))+1 + end + if op==0 then + e:SetCategory(CATEGORY_SPECIAL_SUMMON) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) + else + e:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) + end + Duel.RegisterFlagEffect(tp,48680970,RESET_PHASE+PHASE_END,0,1) + end + e:SetLabel(op) +end +function c48680970.operation(e,tp,eg,ep,ev,re,r,rp) + if e:GetLabel()==2 or not e:GetHandler():IsRelateToEffect(e) then return end + if e:GetLabel()==0 then + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c48680970.filter1,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c48680970.filter2,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end + end +end +function c48680970.cost2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFlagEffect(tp,48680970)==0 end + Duel.RegisterFlagEffect(tp,48680970,RESET_PHASE+PHASE_END,0,1) +end +function c48680970.target2(e,tp,eg,ep,ev,re,r,rp,chk) + local b1=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c48680970.filter1,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) + local b2=Duel.IsExistingMatchingCard(c48680970.filter2,tp,LOCATION_DECK,0,1,nil) + if chk==0 then return b1 or b2 end + local op=0 + if b1 and b2 then + op=Duel.SelectOption(tp,aux.Stringid(48680970,1),aux.Stringid(48680970,2)) + elseif b1 then + op=Duel.SelectOption(tp,aux.Stringid(48680970,1)) + else + op=Duel.SelectOption(tp,aux.Stringid(48680970,2))+1 + end + e:SetLabel(op) + if op==0 then + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) + else + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) + end +end +function c48680970.etarget(e,c) + return c:IsCode(46986414) +end +function c48680970.efilter(e,re) + return re:GetOwnerPlayer()~=e:GetHandlerPlayer() +end +function c48680970.descon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousPosition(POS_FACEUP) and not c:IsLocation(LOCATION_DECK) +end +function c48680970.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c48680970.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c48716527.lua b/script/c48716527.lua old mode 100755 new mode 100644 diff --git a/script/c48770333.lua b/script/c48770333.lua new file mode 100644 index 00000000..3da2019d --- /dev/null +++ b/script/c48770333.lua @@ -0,0 +1,82 @@ +--Thunder King, the Lightningstrike Kaiju +function c48770333.initial_effect(c) + c:SetUniqueOnField(1,0,20000000,LOCATION_MZONE) + --special summon rule + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetRange(LOCATION_HAND) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) + e1:SetTargetRange(POS_FACEUP_ATTACK,1) + e1:SetCondition(c48770333.spcon) + e1:SetOperation(c48770333.spop) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetRange(LOCATION_HAND) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) + e2:SetTargetRange(POS_FACEUP_ATTACK,0) + e2:SetCondition(c48770333.spcon2) + c:RegisterEffect(e2) + --multi attack + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(48770333,0)) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetCondition(c48770333.atkcon) + e3:SetCost(c48770333.atkcost) + e3:SetOperation(c48770333.atkop) + c:RegisterEffect(e3) +end +function c48770333.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xd3) +end +function c48770333.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(Card.IsReleasable,tp,0,LOCATION_MZONE,1,nil) +end +function c48770333.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local g=Duel.SelectMatchingCard(tp,Card.IsReleasable,tp,0,LOCATION_MZONE,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c48770333.spcon2(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c48770333.cfilter,tp,0,LOCATION_MZONE,1,nil) +end +function c48770333.atkcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsAbleToEnterBP() +end +function c48770333.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x37,3,REASON_COST) end + Duel.RemoveCounter(tp,1,1,0x37,3,REASON_COST) +end +function c48770333.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EFFECT_CANNOT_ACTIVATE) + e1:SetTargetRange(0,1) + e1:SetValue(c48770333.aclimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + if c:IsRelateToEffect(e) then + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetCode(EFFECT_EXTRA_ATTACK_MONSTER) + e2:SetValue(2) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e2) + end +end +function c48770333.aclimit(e,re,tp) + return not re:GetHandler():IsImmuneToEffect(e) +end diff --git a/script/c48800175.lua b/script/c48800175.lua index 2539b776..3919c7bb 100644 --- a/script/c48800175.lua +++ b/script/c48800175.lua @@ -15,7 +15,7 @@ function c48800175.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c48800175.filter(c) - return c:IsRace(RACE_DRAGON) and c:IsAttackAbove(3000) and c:IsDefenceBelow(2500) and c:IsAbleToHand() + return c:IsRace(RACE_DRAGON) and c:IsAttackAbove(3000) and c:IsDefenseBelow(2500) and c:IsAbleToHand() end function c48800175.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c48800175.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c48868994.lua b/script/c48868994.lua index cdc8aa39..d977ae1c 100644 --- a/script/c48868994.lua +++ b/script/c48868994.lua @@ -46,7 +46,7 @@ function c48868994.opa(e,tp,eg,ep,ev,re,r,rp) Duel.Damage(p,d,REASON_EFFECT) end function c48868994.cond(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefencePos() + return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefensePos() and not e:GetHandler():IsHasEffect(48868994) end function c48868994.filter(c) diff --git a/script/c48934760.lua b/script/c48934760.lua index 333bb920..906f8717 100644 --- a/script/c48934760.lua +++ b/script/c48934760.lua @@ -35,6 +35,6 @@ function c48934760.activate(e,tp,eg,ep,ev,re,r,rp) local tep=tc:GetControler() local cost=te:GetCost() if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end - Duel.RaiseEvent(tc,EVENT_CHAIN_SOLVED,tc:GetActivateEffect(),0,tp,tp,Duel.GetCurrentChain()) + Duel.RaiseEvent(tc,EVENT_CHAIN_SOLVED,te,0,tp,tp,Duel.GetCurrentChain()) end end diff --git a/script/c48948935.lua b/script/c48948935.lua index be9b5e3b..e352b868 100644 --- a/script/c48948935.lua +++ b/script/c48948935.lua @@ -22,20 +22,16 @@ function c48948935.initial_effect(c) e2:SetOperation(c48948935.eqop) c:RegisterEffect(e2) end -function c48948935.spfilter(c) - local code=c:GetCode() - return code==13676474 or code==86569121 -end function c48948935.spcon(e,c) if c==nil then return true end local g=Duel.GetReleaseGroup(c:GetControler()) return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-2 - and g:GetCount()>1 and g:IsExists(c48948935.spfilter,1,nil) + and g:GetCount()>1 and g:IsExists(Card.IsCode,1,nil,13676474,86569121) end function c48948935.spop(e,tp,eg,ep,ev,re,r,rp,c) local g=Duel.GetReleaseGroup(tp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local sg1=g:FilterSelect(tp,c48948935.spfilter,1,1,nil) + local sg1=g:FilterSelect(tp,Card.IsCode,1,1,nil,13676474,86569121) g:RemoveCard(sg1:GetFirst()) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) local sg2=g:Select(tp,1,1,nil) @@ -53,7 +49,7 @@ function c48948935.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_DECK) end function c48948935.filter(c) - return c:IsCode(22610082) and not c:IsHasEffect(EFFECT_FORBIDDEN) + return c:IsCode(22610082) and not c:IsForbidden() end function c48948935.eqop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end diff --git a/script/c4896788.lua b/script/c4896788.lua index 192eb4ab..1b5bc33a 100644 --- a/script/c4896788.lua +++ b/script/c4896788.lua @@ -1,18 +1,36 @@ --強欲な壺の精霊 function c4896788.initial_effect(c) - --activate + --draw local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EVENT_CHAINING) e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_CHAIN_SOLVING) - e1:SetCondition(c4896788.drcon) - e1:SetOperation(c4896788.drop) + e1:SetOperation(aux.chainreg) c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DRAW) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_CHAIN_SOLVING) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(c4896788.drcon) + e2:SetTarget(c4896788.drtg) + e2:SetOperation(c4896788.drop) + c:RegisterEffect(e2) end function c4896788.drcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsAttackPos() + return e:GetHandler():IsAttackPos() and e:GetHandler():GetFlagEffect(1)>0 and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsCode(55144522) end +function c4896788.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(rp,1) end + Duel.SetTargetPlayer(rp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,rp,1) +end function c4896788.drop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeTargetParam(ev,3) + if not e:GetHandler():IsAttackPos() or not e:GetHandler():IsRelateToEffect(e) then return end + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) end diff --git a/script/c48995978.lua b/script/c48995978.lua index 5dedf28a..819da55c 100644 --- a/script/c48995978.lua +++ b/script/c48995978.lua @@ -1,13 +1,13 @@ --No.88 ギミック・パペット－デステニー・レオ function c48995978.initial_effect(c) - c:EnableCounterPermit(0x302b) + c:EnableCounterPermit(0x2b) --xyz summon aux.AddXyzProcedure(c,nil,8,3) c:EnableReviveLimit() --counter local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_COUNTER) e1:SetDescription(aux.Stringid(48995978,0)) + e1:SetCategory(CATEGORY_COUNTER) e1:SetType(EFFECT_TYPE_IGNITION) e1:SetCountLimit(1) e1:SetRange(LOCATION_MZONE) @@ -16,6 +16,14 @@ function c48995978.initial_effect(c) e1:SetTarget(c48995978.target) e1:SetOperation(c48995978.operation) c:RegisterEffect(e1) + --win + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_CHAIN_SOLVING) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_DELAY) + e2:SetOperation(c48995978.winop) + c:RegisterEffect(e2) end c48995978.xyz_number=88 function c48995978.filter(c) @@ -36,16 +44,19 @@ function c48995978.cost(e,tp,eg,ep,ev,re,r,rp,chk) end function c48995978.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_EFFECT) - and e:GetHandler():IsCanAddCounter(0x302b,1) end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x302b) + and e:GetHandler():IsCanAddCounter(0x2b,1) end + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x2b) end function c48995978.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() and c:RemoveOverlayCard(tp,1,1,REASON_EFFECT) then - c:AddCounter(0x302b,1) - if c:GetCounter(0x302b)==3 then - local WIN_REASON_DESTINY_LEO=0x17 - Duel.Win(c:GetControler(),WIN_REASON_DESTINY_LEO) - end + c:AddCounter(0x2b,1) + end +end +function c48995978.winop(e,tp,eg,ep,ev,re,r,rp) + local WIN_REASON_DESTINY_LEO=0x17 + local c=e:GetHandler() + if c:GetCounter(0x2b)==3 then + Duel.Win(tp,WIN_REASON_DESTINY_LEO) end end diff --git a/script/c48996569.lua b/script/c48996569.lua index 142d050b..2df5e612 100644 --- a/script/c48996569.lua +++ b/script/c48996569.lua @@ -52,16 +52,17 @@ function c48996569.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA) end function c48996569.spfilter(c,code) - return c:IsAbleToDeckOrExtraAsCost() and c:IsCode(code) + return c:IsAbleToDeckOrExtraAsCost() and c:IsFusionCode(code) end function c48996569.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-1 then return false end local g1=Duel.GetMatchingGroup(c48996569.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723) local g2=Duel.GetMatchingGroup(c48996569.spfilter,tp,LOCATION_ONFIELD,0,nil,80344569) if g1:GetCount()==0 or g2:GetCount()==0 then return false end + if g1:GetCount()==1 and g2:GetCount()==1 and g1:GetFirst()==g2:GetFirst() then return false end if ft>0 then return true end local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) @@ -79,12 +80,22 @@ function c48996569.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) if ft<=0 then tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() + ft=ft+1 else tc=g1:Select(tp,1,1,nil):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 + if i==1 then + g1:Clear() + if tc:IsFusionCode(89943723) then + local sg=Duel.GetMatchingGroup(c48996569.spfilter,tp,LOCATION_ONFIELD,0,tc,80344569) + g1:Merge(sg) + end + if tc:IsFusionCode(80344569) then + local sg=Duel.GetMatchingGroup(c48996569.spfilter,tp,LOCATION_ONFIELD,0,tc,89943723) + g1:Merge(sg) + end + end end local cg=g:Filter(Card.IsFacedown,nil) if cg:GetCount()>0 then @@ -92,10 +103,10 @@ function c48996569.spop(e,tp,eg,ep,ev,re,r,rp,c) end Duel.SendtoDeck(g,nil,2,REASON_COST) end -function c48996569.retcon1(e,tp,eg,ep,ev,re,r,rp,chk) +function c48996569.retcon1(e,tp,eg,ep,ev,re,r,rp) return not e:GetHandler():IsHasEffect(42015635) end -function c48996569.retcon2(e,tp,eg,ep,ev,re,r,rp,chk) +function c48996569.retcon2(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsHasEffect(42015635) end function c48996569.rettg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c49010598.lua b/script/c49010598.lua old mode 100755 new mode 100644 diff --git a/script/c49036338.lua b/script/c49036338.lua deleted file mode 100755 index 60730934..00000000 --- a/script/c49036338.lua +++ /dev/null @@ -1,4 +0,0 @@ ---PSYFrame Driver -function c49036338.initial_effect(c) - -end diff --git a/script/c4904633.lua b/script/c4904633.lua old mode 100755 new mode 100644 index f2916216..41782f72 --- a/script/c4904633.lua +++ b/script/c4904633.lua @@ -1,62 +1,62 @@ ---影依の原核 -function c4904633.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetTarget(c4904633.target) - e1:SetOperation(c4904633.activate) - c:RegisterEffect(e1) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(4904633,0)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e2:SetCondition(c4904633.thcon) - e2:SetTarget(c4904633.thtg) - e2:SetOperation(c4904633.thop) - c:RegisterEffect(e2) -end -function c4904633.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,4904633,0,0x21,1450,1950,9,RACE_SPELLCASTER,ATTRIBUTE_DARK) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c4904633.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 - or not Duel.IsPlayerCanSpecialSummonMonster(tp,4904633,0,0x21,1450,1950,9,RACE_SPELLCASTER,ATTRIBUTE_DARK) then return end - c:AddTrapMonsterAttribute(TYPE_EFFECT,ATTRIBUTE_DARK,RACE_SPELLCASTER,9,1450,1950) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - c:TrapMonsterBlock() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(4904633) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) -end -function c4904633.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsReason(REASON_EFFECT) -end -function c4904633.thfilter(c) - return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and not c:IsCode(4904633) and c:IsAbleToHand() -end -function c4904633.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c4904633.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c4904633.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c4904633.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c4904633.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--影依の原核 +function c4904633.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMING_END_PHASE) + e1:SetTarget(c4904633.target) + e1:SetOperation(c4904633.activate) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(4904633,0)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e2:SetCondition(c4904633.thcon) + e2:SetTarget(c4904633.thtg) + e2:SetOperation(c4904633.thop) + c:RegisterEffect(e2) +end +function c4904633.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsPlayerCanSpecialSummonMonster(tp,4904633,0,0x21,1450,1950,9,RACE_SPELLCASTER,ATTRIBUTE_DARK) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c4904633.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + or not Duel.IsPlayerCanSpecialSummonMonster(tp,4904633,0,0x21,1450,1950,9,RACE_SPELLCASTER,ATTRIBUTE_DARK) then return end + c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(4904633) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1,true) + Duel.SpecialSummonComplete() +end +function c4904633.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsReason(REASON_EFFECT) +end +function c4904633.thfilter(c) + return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and not c:IsCode(4904633) and c:IsAbleToHand() +end +function c4904633.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c4904633.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c4904633.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c4904633.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c4904633.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c4906301.lua b/script/c4906301.lua old mode 100755 new mode 100644 index c7c3decf..bb180386 --- a/script/c4906301.lua +++ b/script/c4906301.lua @@ -13,7 +13,7 @@ function c4906301.initial_effect(c) c:RegisterEffect(e1) end function c4906301.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and (Duel.IsAbleToEnterBP() or Duel.GetCurrentPhase()==PHASE_BATTLE) + return Duel.GetTurnPlayer()~=tp and (Duel.IsAbleToEnterBP() or (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)) end function c4906301.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end diff --git a/script/c49080532.lua b/script/c49080532.lua index 91fe9a03..4d7fcae7 100644 --- a/script/c49080532.lua +++ b/script/c49080532.lua @@ -29,11 +29,12 @@ function c49080532.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c49080532.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0 then return end - local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ct==0 then return end - if ct>2 then ct=2 end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + if ft>2 then ft=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c49080532.filter,tp,LOCATION_DECK,0,1,ct,nil,e,tp) + local g=Duel.SelectMatchingCard(tp,c49080532.filter,tp,LOCATION_DECK,0,1,ft,nil,e,tp) if g:GetCount()>0 then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end diff --git a/script/c49195710.lua b/script/c49195710.lua index 794da35f..43f031e5 100644 --- a/script/c49195710.lua +++ b/script/c49195710.lua @@ -48,7 +48,7 @@ function c49195710.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end diff --git a/script/c49217579.lua b/script/c49217579.lua index aa83e895..36e1b2bf 100644 --- a/script/c49217579.lua +++ b/script/c49217579.lua @@ -3,10 +3,12 @@ function c49217579.initial_effect(c) c:EnableReviveLimit() --atkup local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_DAMAGE_CALCULATING) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) e1:SetCondition(c49217579.atkcon) - e1:SetOperation(c49217579.atkop) + e1:SetValue(c49217579.atkval) c:RegisterEffect(e1) --remove local e2=Effect.CreateEffect(c) @@ -25,17 +27,11 @@ function c49217579.initial_effect(c) e3:SetValue(aux.FALSE) c:RegisterEffect(e3) end -function c49217579.atkcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetBattleTarget()~=nil +function c49217579.atkcon(e) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and e:GetHandler():GetBattleTarget() end -function c49217579.atkop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetBattleTarget() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(tc:GetBaseAttack()) - e:GetHandler():RegisterEffect(e1) +function c49217579.atkval(e,c) + return e:GetHandler():GetBattleTarget():GetBaseAttack() end function c49217579.rmcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetBattledGroupCount()>0 diff --git a/script/c49221191.lua b/script/c49221191.lua index 2e8baec9..a12396eb 100644 --- a/script/c49221191.lua +++ b/script/c49221191.lua @@ -37,7 +37,7 @@ function c49221191.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c49221191.filter(c) - return c:IsFaceup() and (c:GetAttack()>0 or c:GetDefence()>0) + return c:IsFaceup() and (c:GetAttack()>0 or c:GetDefense()>0) end function c49221191.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c49221191.filter(chkc) end @@ -60,7 +60,7 @@ function c49221191.operation(e,tp,eg,ep,ev,re,r,rp) end tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) tc:RegisterEffect(e2) end end diff --git a/script/c4923662.lua b/script/c4923662.lua index e73b4d56..b02ca099 100644 --- a/script/c4923662.lua +++ b/script/c4923662.lua @@ -23,7 +23,7 @@ end function c4923662.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local tg=Duel.GetAttacker() if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsDestructable() and tg:IsCanBeEffectTarget(e) end + if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end Duel.SetTargetCard(tg) Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) end diff --git a/script/c49267971.lua b/script/c49267971.lua index f16d5604..48a5b2d4 100644 --- a/script/c49267971.lua +++ b/script/c49267971.lua @@ -17,10 +17,10 @@ function c49267971.condition(e,tp,eg,ep,ev,re,r,rp) end function c49267971.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(Card.IsPosition,tp,0,LOCATION_MZONE,1,nil,POS_FACEUP_DEFENCE) + if chk==0 then return Duel.IsExistingTarget(Card.IsPosition,tp,0,LOCATION_MZONE,1,nil,POS_FACEUP_DEFENSE) and Duel.IsExistingTarget(Card.IsPosition,tp,LOCATION_MZONE,0,1,nil,POS_FACEUP_ATTACK) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPPO) - local g1=Duel.SelectTarget(tp,Card.IsPosition,tp,0,LOCATION_MZONE,1,1,nil,POS_FACEUP_DEFENCE) + local g1=Duel.SelectTarget(tp,Card.IsPosition,tp,0,LOCATION_MZONE,1,1,nil,POS_FACEUP_DEFENSE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELF) local g2=Duel.SelectTarget(tp,Card.IsPosition,tp,LOCATION_MZONE,0,1,1,nil,POS_FACEUP_ATTACK) e:SetLabelObject(g1:GetFirst()) @@ -35,7 +35,7 @@ function c49267971.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UPDATE_ATTACK) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(tc1:GetDefence()) + e1:SetValue(tc1:GetDefense()) tc2:RegisterEffect(e1) end end diff --git a/script/c4929256.lua b/script/c4929256.lua index 82fde86b..c32f7a9f 100644 --- a/script/c4929256.lua +++ b/script/c4929256.lua @@ -16,7 +16,7 @@ function c4929256.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE end function c4929256.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c4929256.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c4929256.filter(chkc) end diff --git a/script/c49328340.lua b/script/c49328340.lua index 8fd3ec00..75ee1557 100644 --- a/script/c49328340.lua +++ b/script/c49328340.lua @@ -25,13 +25,12 @@ function c49328340.initial_effect(c) c:RegisterEffect(e3) end function c49328340.pietg(e,c) - local code=c:GetCode() - return code==6368038 or code==16589042 or code==66889139 + return c:IsCode(6368038,16589042,66889139) end function c49328340.condition(e,tp,eg,ep,ev,re,r,rp) local tc=eg:GetFirst() local bc=tc:GetBattleTarget() - return tc:IsControler(tp) and bc and bc:IsDefencePos() and tc:IsCode(66889139) + return tc:IsControler(tp) and bc and bc:IsDefensePos() and tc:IsCode(66889139) end function c49328340.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c49352945.lua b/script/c49352945.lua index f1ca6178..0987196f 100644 --- a/script/c49352945.lua +++ b/script/c49352945.lua @@ -51,7 +51,7 @@ function c49352945.initial_effect(c) e6:SetDescription(aux.Stringid(49352945,2)) e6:SetCategory(CATEGORY_TODECK) e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e6:SetCode(49352945) + e6:SetCode(EVENT_CUSTOM+49352945) e6:SetTarget(c49352945.tdtg) e6:SetOperation(c49352945.tdop) c:RegisterEffect(e6) @@ -59,45 +59,54 @@ end function c49352945.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA) end -function c49352945.spfilter(c,code) - return c:IsAbleToDeckOrExtraAsCost() and c:IsCode(code) +function c49352945.spfilter(c,code1,code2,code3) + return c:IsAbleToDeckOrExtraAsCost() and (c:IsFusionCode(code1) or c:IsFusionCode(code2) or c:IsFusionCode(code3)) +end +function c49352945.spfilter1(c,mg,ft) + local mg2=mg:Clone() + mg2:RemoveCard(c) + if c:IsLocation(LOCATION_MZONE) then ft=ft+1 end + return ft>=-1 and c:IsFusionCode(89943723) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true) + and mg2:IsExists(c49352945.spfilter2,1,nil,mg2,ft) +end +function c49352945.spfilter2(c,mg,ft) + local mg2=mg:Clone() + mg2:RemoveCard(c) + if c:IsLocation(LOCATION_MZONE) then ft=ft+1 end + return ft>=0 and c:IsFusionCode(17955766) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true) + and mg2:IsExists(c49352945.spfilter3,1,nil,ft) +end +function c49352945.spfilter3(c,ft) + if c:IsLocation(LOCATION_MZONE) then ft=ft+1 end + return ft>=1 and c:IsFusionCode(54959865) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true) end function c49352945.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-2 then return false end - local g1=Duel.GetMatchingGroup(c49352945.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723) - local g2=Duel.GetMatchingGroup(c49352945.spfilter,tp,LOCATION_ONFIELD,0,nil,17955766) - local g3=Duel.GetMatchingGroup(c49352945.spfilter,tp,LOCATION_ONFIELD,0,nil,54959865) - if g1:GetCount()==0 or g2:GetCount()==0 or g3:GetCount()==0 then return false end - if ft>0 then return true end - local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - local f3=g3:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - if ft==-2 then return f1+f2+f3==3 - elseif ft==-1 then return f1+f2+f3>=2 - else return f1+f2+f3>=1 end + local mg=Duel.GetMatchingGroup(c49352945.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723,17955766,54959865) + return mg:IsExists(c49352945.spfilter1,1,nil,mg,ft) end function c49352945.spop(e,tp,eg,ep,ev,re,r,rp,c) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local g1=Duel.GetMatchingGroup(c49352945.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723) - local g2=Duel.GetMatchingGroup(c49352945.spfilter,tp,LOCATION_ONFIELD,0,nil,17955766) - local g3=Duel.GetMatchingGroup(c49352945.spfilter,tp,LOCATION_ONFIELD,0,nil,54959865) - g1:Merge(g2) - g1:Merge(g3) + local mg=Duel.GetMatchingGroup(c49352945.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723,17955766,54959865) local g=Group.CreateGroup() local tc=nil for i=1,3 do Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - if ft<=0 then - tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() - else - tc=g1:Select(tp,1,1,nil):GetFirst() + if i==1 then + tc=mg:FilterSelect(tp,c49352945.spfilter1,1,1,nil,mg,ft):GetFirst() + end + if i==2 then + tc=mg:FilterSelect(tp,c49352945.spfilter2,1,1,nil,mg,ft):GetFirst() + end + if i==3 then + tc=mg:FilterSelect(tp,c49352945.spfilter3,1,1,nil,ft):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 + mg:RemoveCard(tc) + if tc:IsLocation(LOCATION_MZONE) then ft=ft+1 end end local cg=g:Filter(Card.IsFacedown,nil) if cg:GetCount()>0 then @@ -105,10 +114,10 @@ function c49352945.spop(e,tp,eg,ep,ev,re,r,rp,c) end Duel.SendtoDeck(g,nil,2,REASON_COST) end -function c49352945.retcon1(e,tp,eg,ep,ev,re,r,rp,chk) +function c49352945.retcon1(e,tp,eg,ep,ev,re,r,rp) return not e:GetHandler():IsHasEffect(42015635) end -function c49352945.retcon2(e,tp,eg,ep,ev,re,r,rp,chk) +function c49352945.retcon2(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsHasEffect(42015635) end function c49352945.rettg(e,tp,eg,ep,ev,re,r,rp,chk) @@ -120,11 +129,11 @@ function c49352945.retop(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) or c:IsFacedown() then return end Duel.SendtoDeck(c,nil,2,REASON_EFFECT) if c:IsLocation(LOCATION_EXTRA) then - Duel.RaiseSingleEvent(c,49352945,e,0,0,0,0) + Duel.RaiseSingleEvent(c,EVENT_CUSTOM+49352945,e,0,0,0,0) end end function c49352945.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c49352945.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c49352945.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end diff --git a/script/c49366157.lua b/script/c49366157.lua index cc7f1638..5aa71b65 100644 --- a/script/c49366157.lua +++ b/script/c49366157.lua @@ -1,35 +1,35 @@ ---マジェスペクター・サイクロン -function c49366157.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1e0) - e1:SetCost(c49366157.cost) - e1:SetTarget(c49366157.target) - e1:SetOperation(c49366157.activate) - c:RegisterEffect(e1) -end -function c49366157.cfilter(c) - return c:IsRace(RACE_SPELLCASTER) and c:IsAttribute(ATTRIBUTE_WIND) -end -function c49366157.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c49366157.cfilter,1,nil) end - local g=Duel.SelectReleaseGroup(tp,c49366157.cfilter,1,1,nil) - Duel.Release(g,REASON_COST) -end -function c49366157.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c49366157.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--マジェスペクター・サイクロン +function c49366157.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,0x1e0) + e1:SetCost(c49366157.cost) + e1:SetTarget(c49366157.target) + e1:SetOperation(c49366157.activate) + c:RegisterEffect(e1) +end +function c49366157.cfilter(c) + return c:IsRace(RACE_SPELLCASTER) and c:IsAttribute(ATTRIBUTE_WIND) +end +function c49366157.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,c49366157.cfilter,1,nil) end + local g=Duel.SelectReleaseGroup(tp,c49366157.cfilter,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c49366157.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c49366157.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c49374988.lua b/script/c49374988.lua index 3ba3709e..9806b716 100644 --- a/script/c49374988.lua +++ b/script/c49374988.lua @@ -58,7 +58,7 @@ end function c49374988.posop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c49374988.pfilter,nil,e) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) local tc=g:GetFirst() while tc do local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c49389523.lua b/script/c49389523.lua index 92cc4890..e3e28c07 100644 --- a/script/c49389523.lua +++ b/script/c49389523.lua @@ -19,8 +19,7 @@ function c49389523.spcon(e,tp,eg,ep,ev,re,r,rp) return rp~=tp and e:GetHandler():GetPreviousControler()==tp end function c49389523.filter(c,e,tp) - local code=c:GetCode() - return (code==77506119 or code==13995824) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsCode(77506119,13995824) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c49389523.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c49389523.filter(chkc,e,tp) end diff --git a/script/c49398568.lua b/script/c49398568.lua old mode 100755 new mode 100644 diff --git a/script/c4939890.lua b/script/c4939890.lua old mode 100755 new mode 100644 diff --git a/script/c4941482.lua b/script/c4941482.lua index 9ad10a16..38b169d0 100644 --- a/script/c4941482.lua +++ b/script/c4941482.lua @@ -17,7 +17,7 @@ function c4941482.condition(e,tp,eg,ep,ev,re,r,rp) return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsReason(REASON_EFFECT) end function c4941482.filter(c) - return c:IsDefencePos() and c:IsControlerCanBeChanged() + return c:IsDefensePos() and c:IsControlerCanBeChanged() end function c4941482.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c4941482.filter(chkc) end @@ -28,9 +28,7 @@ function c4941482.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c4941482.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc and tc:IsDefencePos() and tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc and tc:IsDefensePos() and tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp) end end diff --git a/script/c49456901.lua b/script/c49456901.lua index 90c22cf9..88f6e851 100644 --- a/script/c49456901.lua +++ b/script/c49456901.lua @@ -30,7 +30,7 @@ function c49456901.initial_effect(c) end c49456901.xyz_number=104 function c49456901.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c49456901.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c49456901.desfilter(chkc) end diff --git a/script/c49460512.lua b/script/c49460512.lua index 3343424e..d35ee294 100644 --- a/script/c49460512.lua +++ b/script/c49460512.lua @@ -32,8 +32,11 @@ function c49460512.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c49460512.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c49460512.limitcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c494922.lua b/script/c494922.lua index b05910ca..ec903c00 100644 --- a/script/c494922.lua +++ b/script/c494922.lua @@ -3,10 +3,10 @@ function c494922.initial_effect(c) --synchro summon aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),aux.NonTuner(Card.IsSetCard,0x9a),1) c:EnableReviveLimit() - --defence attack + --defense attack local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DEFENCE_ATTACK) + e1:SetCode(EFFECT_DEFENSE_ATTACK) e1:SetValue(1) c:RegisterEffect(e1) --set @@ -21,13 +21,6 @@ function c494922.initial_effect(c) e2:SetTarget(c494922.settg) e2:SetOperation(c494922.setop) c:RegisterEffect(e2) - --add setcode - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e3:SetCode(EFFECT_ADD_SETCODE) - e3:SetValue(0x9a) - c:RegisterEffect(e3) end function c494922.filter(c) return c:IsType(TYPE_SPELL+TYPE_TRAP) diff --git a/script/c49514333.lua b/script/c49514333.lua old mode 100755 new mode 100644 index 1444375a..fe76b336 --- a/script/c49514333.lua +++ b/script/c49514333.lua @@ -23,9 +23,9 @@ function c49514333.activate(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,49514333,0,0x21,1000,1800,4,RACE_ROCK,ATTRIBUTE_LIGHT) then return end - c:AddTrapMonsterAttribute(TYPE_EFFECT,ATTRIBUTE_LIGHT,RACE_ROCK,4,1000,1800) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - c:TrapMonsterBlock() + c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetRange(LOCATION_MZONE) @@ -34,7 +34,8 @@ function c49514333.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(c49514333.repval) e1:SetReset(RESET_EVENT+0x1fe0000) e1:SetLabelObject(e) - c:RegisterEffect(e1) + c:RegisterEffect(e1,true) + Duel.SpecialSummonComplete() end function c49514333.repfilter(c,tp) return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:GetDestination()==LOCATION_GRAVE and c:IsReason(REASON_DESTROY) diff --git a/script/c49587034.lua b/script/c49587034.lua index c382fe16..ca69cd0d 100644 --- a/script/c49587034.lua +++ b/script/c49587034.lua @@ -15,11 +15,11 @@ function c49587034.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_HAND) end function c49587034.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0,nil) + local g=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0) local rs=g:RandomSelect(1-tp,1) local card=rs:GetFirst() if card==nil then return end - if Duel.Remove(card,POS_FACEDOWN,REASON_EFFECT)>0 then + if Duel.Remove(card,POS_FACEDOWN,REASON_EFFECT)>0 and e:IsHasType(EFFECT_TYPE_ACTIVATE) then local ph=Duel.GetCurrentPhase() local cp=Duel.GetTurnPlayer() local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c49680980.lua b/script/c49680980.lua index 6cac816f..b50770e0 100644 --- a/script/c49680980.lua +++ b/script/c49680980.lua @@ -14,7 +14,7 @@ function c49680980.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(49680980,3)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetCode(EVENT_CHAINING) e2:SetRange(LOCATION_MZONE) @@ -34,6 +34,8 @@ function c49680980.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_ROCK) and not c:IsPublic() end function c49680980.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c49680980.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c49680980.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -44,8 +46,10 @@ function c49680980.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(49680980,0),aux.Stringid(49680980,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(49680980,1),aux.Stringid(49680980,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(49680980,1),aux.Stringid(49680980,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(49680980,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -57,7 +61,7 @@ function c49680980.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c49680980.condition(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c49702428.lua b/script/c49702428.lua index bd84c968..5fd60cfb 100644 --- a/script/c49702428.lua +++ b/script/c49702428.lua @@ -11,13 +11,13 @@ function c49702428.initial_effect(c) c:RegisterEffect(e1) end function c49702428.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x10a2) + return c:IsFaceup() and c:IsSetCard(0x30a2) end function c49702428.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c49702428.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c49702428.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c49702428.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c49702428.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c49721904.lua b/script/c49721904.lua index 3ec8730f..aa2a8c43 100644 --- a/script/c49721904.lua +++ b/script/c49721904.lua @@ -18,7 +18,7 @@ function c49721904.initial_effect(c) e2:SetValue(300) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end function c49721904.spfilter(c) diff --git a/script/c49808196.lua b/script/c49808196.lua index fb48bdd9..2e647b67 100644 --- a/script/c49808196.lua +++ b/script/c49808196.lua @@ -20,11 +20,12 @@ function c49808196.tktg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,0) end function c49808196.tkop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<3 then return end if not Duel.IsPlayerCanSpecialSummonMonster(tp,49808197,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) then return end for i=1,3 do local token=Duel.CreateToken(tp,49808197) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UNRELEASABLE_SUM) diff --git a/script/c49823708.lua b/script/c49823708.lua old mode 100755 new mode 100644 index b006bbc8..e2cb851d --- a/script/c49823708.lua +++ b/script/c49823708.lua @@ -52,7 +52,7 @@ function c49823708.spcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c49823708.spfilter(c,e,tp) - return c:IsCode(78193831) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(78193831) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c49823708.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 @@ -63,7 +63,7 @@ function c49823708.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c49823708.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c49838105.lua b/script/c49838105.lua index 780ea7d8..205dac6c 100644 --- a/script/c49838105.lua +++ b/script/c49838105.lua @@ -7,7 +7,7 @@ function c49838105.initial_effect(c) e1:SetTarget(c49838105.target1) e1:SetOperation(c49838105.operation) c:RegisterEffect(e1) - -- + --attack local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(49838105,0)) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) @@ -18,7 +18,7 @@ function c49838105.initial_effect(c) e2:SetOperation(c49838105.operation) e2:SetLabel(1) c:RegisterEffect(e2) - -- + --draw local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(49838105,1)) e3:SetCategory(CATEGORY_TOHAND) @@ -35,8 +35,9 @@ function c49838105.condition(e,tp,eg,ep,ev,re,r,rp) end function c49838105.target1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - if Duel.CheckEvent(EVENT_ATTACK_ANNOUNCE) and Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil - and Duel.IsPlayerCanDiscardDeck(tp,1) and Duel.SelectYesNo(tp,aux.Stringid(49838105,2)) then + if Duel.CheckEvent(EVENT_ATTACK_ANNOUNCE) + and Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil + and Duel.IsPlayerCanDiscardDeck(tp,1) and Duel.SelectYesNo(tp,94) then e:SetLabel(1) else e:SetLabel(0) end end diff --git a/script/c49868263.lua b/script/c49868263.lua index 3cf5852a..e4f68f8a 100644 --- a/script/c49868263.lua +++ b/script/c49868263.lua @@ -7,7 +7,7 @@ function c49868263.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(49868263,0)) e1:SetCategory(CATEGORY_DISABLE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetRange(LOCATION_MZONE) e1:SetCondition(c49868263.discon) diff --git a/script/c49905576.lua b/script/c49905576.lua old mode 100755 new mode 100644 index beb6e3ac..54c0e734 --- a/script/c49905576.lua +++ b/script/c49905576.lua @@ -1,19 +1,19 @@ ---天空聖者メルティウス -function c49905576.initial_effect(c) - --recover&destroy - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_CHAIN_SOLVED) - e1:SetRange(LOCATION_MZONE) - e1:SetOperation(c49905576.drop) - c:RegisterEffect(e1) -end -function c49905576.drop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not re:GetHandler():IsType(TYPE_COUNTER) or not c:IsLocation(LOCATION_MZONE) or not c:IsFaceup() then return end - Duel.Recover(tp,1000,REASON_EFFECT) - if not Duel.IsEnvironment(56433456) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.Destroy(g,REASON_EFFECT) -end +--天空聖者メルティウス +function c49905576.initial_effect(c) + --recover&destroy + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_CHAIN_SOLVED) + e1:SetRange(LOCATION_MZONE) + e1:SetOperation(c49905576.drop) + c:RegisterEffect(e1) +end +function c49905576.drop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not re:GetHandler():IsType(TYPE_COUNTER) or not c:IsLocation(LOCATION_MZONE) or not c:IsFaceup() then return end + Duel.Recover(tp,1000,REASON_EFFECT) + if not Duel.IsEnvironment(56433456) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c49919798.lua b/script/c49919798.lua index 6c6a2c39..451e03f1 100644 --- a/script/c49919798.lua +++ b/script/c49919798.lua @@ -33,7 +33,7 @@ function c49919798.initial_effect(c) c:RegisterEffect(e3) end function c49919798.thfilter(c) - return c:IsSetCard(0x1066) and not c:IsCode(49919798) and c:IsAbleToHand() + return c:IsSetCard(0x1066) and not c:IsCode(49919798) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c49919798.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c49919798.thfilter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c49959355.lua b/script/c49959355.lua index a9a094d9..8141133f 100644 --- a/script/c49959355.lua +++ b/script/c49959355.lua @@ -69,7 +69,7 @@ function c49959355.lvop2(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(tp,c49959355.tgfilter,tp,LOCATION_DECK,0,1,1,nil) if g:GetCount()==0 or Duel.SendtoGrave(g,REASON_EFFECT)==0 then return end local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then + if tc:IsFaceup() and tc:IsRelateToEffect(e) and g:GetFirst():IsLocation(LOCATION_GRAVE) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UPDATE_LEVEL) diff --git a/script/c49966595.lua b/script/c49966595.lua old mode 100755 new mode 100644 index c15ea098..18f8cc28 --- a/script/c49966595.lua +++ b/script/c49966595.lua @@ -40,17 +40,18 @@ function c49966595.acttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if c49966595.spcon1(e,tp,eg,ep,ev,re,r,rp) and c49966595.spcost1(e,tp,eg,ep,ev,re,r,rp,0) and c49966595.sptg1(e,tp,eg,ep,ev,re,r,rp,0) - and Duel.SelectYesNo(tp,aux.Stringid(49966595,0)) then + and Duel.SelectYesNo(tp,94) then e:SetCategory(CATEGORY_SPECIAL_SUMMON) e:SetProperty(0) e:SetOperation(c49966595.spop1) c49966595.spcost1(e,tp,eg,ep,ev,re,r,rp,1) c49966595.sptg1(e,tp,eg,ep,ev,re,r,rp,1) + e:GetHandler():RegisterFlagEffect(0,RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,65) return elseif c49966595.spcon2(e,tp,eg,ep,ev,re,r,rp) and c49966595.spcost2(e,tp,eg,ep,ev,re,r,rp,0) and c49966595.sptg2(e,tp,eg,ep,ev,re,r,rp,0,chkc) - and Duel.SelectYesNo(tp,aux.Stringid(49966595,0)) then + and Duel.SelectYesNo(tp,94) then e:SetCategory(CATEGORY_SPECIAL_SUMMON) e:SetProperty(EFFECT_FLAG_CARD_TARGET) e:SetOperation(c49966595.spop2) diff --git a/script/c49980185.lua b/script/c49980185.lua index 35cdf078..39fe13c6 100644 --- a/script/c49980185.lua +++ b/script/c49980185.lua @@ -1 +1,47 @@ ---超能力治療 function c49980185.initial_effect(c) --recover local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCategory(CATEGORY_RECOVER) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetCode(EVENT_FREE_CHAIN) e1:SetHintTiming(TIMING_END_PHASE) e1:SetCondition(c49980185.reccon) e1:SetTarget(c49980185.rectg) e1:SetOperation(c49980185.recop) c:RegisterEffect(e1) if not c49980185.global_check then c49980185.global_check=true c49980185[0]=0 local ge1=Effect.CreateEffect(c) ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) ge1:SetCode(EVENT_TO_GRAVE) ge1:SetOperation(c49980185.checkop) Duel.RegisterEffect(ge1,0) local ge2=Effect.CreateEffect(c) ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW) ge2:SetOperation(c49980185.clear) Duel.RegisterEffect(ge2,0) end end function c49980185.checkop(e,tp,eg,ep,ev,re,r,rp) c49980185[0]=c49980185[0]+eg:FilterCount(Card.IsRace,nil,RACE_PSYCHO) end function c49980185.clear(e,tp,eg,ep,ev,re,r,rp) c49980185[0]=0 end function c49980185.reccon(e,tp,eg,ep,ev,re,r,rp,chk) return Duel.GetCurrentPhase()==PHASE_END end function c49980185.rectg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return c49980185[0]~=0 end Duel.SetTargetPlayer(tp) Duel.SetTargetParam(c49980185[0]*1000) Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,c49980185[0]*1000) end function c49980185.recop(e,tp,eg,ep,ev,re,r,rp) local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) Duel.Recover(p,c49980185[0]*1000,REASON_EFFECT) end \ No newline at end of file +--超能力治療 +function c49980185.initial_effect(c) + --recover + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCategory(CATEGORY_RECOVER) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(TIMING_END_PHASE) + e1:SetCondition(c49980185.reccon) + e1:SetTarget(c49980185.rectg) + e1:SetOperation(c49980185.recop) + c:RegisterEffect(e1) + if not c49980185.global_check then + c49980185.global_check=true + c49980185[0]=0 + local ge1=Effect.CreateEffect(c) + ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge1:SetCode(EVENT_TO_GRAVE) + ge1:SetOperation(c49980185.checkop) + Duel.RegisterEffect(ge1,0) + local ge2=Effect.CreateEffect(c) + ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW) + ge2:SetOperation(c49980185.clear) + Duel.RegisterEffect(ge2,0) + end +end +function c49980185.checkop(e,tp,eg,ep,ev,re,r,rp) + c49980185[0]=c49980185[0]+eg:FilterCount(Card.IsRace,nil,RACE_PSYCHO) +end +function c49980185.clear(e,tp,eg,ep,ev,re,r,rp) + c49980185[0]=0 +end +function c49980185.reccon(e,tp,eg,ep,ev,re,r,rp,chk) + return Duel.GetCurrentPhase()==PHASE_END +end +function c49980185.rectg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return c49980185[0]~=0 end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(c49980185[0]*1000) + Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,c49980185[0]*1000) +end +function c49980185.recop(e,tp,eg,ep,ev,re,r,rp) + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + Duel.Recover(p,c49980185[0]*1000,REASON_EFFECT) +end diff --git a/script/c4998619.lua b/script/c4998619.lua new file mode 100644 index 00000000..115c6d49 --- /dev/null +++ b/script/c4998619.lua @@ -0,0 +1,97 @@ +--方界超獣バスター・ガンダイル +function c4998619.initial_effect(c) + c:EnableReviveLimit() + --cannot special summon + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_HAND) + e2:SetCondition(c4998619.spcon) + e2:SetOperation(c4998619.spop) + c:RegisterEffect(e2) + --extra att + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_EXTRA_ATTACK) + e3:SetValue(2) + c:RegisterEffect(e3) + --Special Summon + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_SEARCH) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetCondition(c4998619.spcon2) + e4:SetTarget(c4998619.sptg2) + e4:SetOperation(c4998619.spop2) + c:RegisterEffect(e4) +end +function c4998619.filter(c) + return c:IsFaceup() and c:IsSetCard(0xe3) and c:IsAbleToGraveAsCost() +end +function c4998619.spcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 + and Duel.IsExistingMatchingCard(c4998619.filter,c:GetControler(),LOCATION_MZONE,0,3,nil) +end +function c4998619.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c4998619.filter,tp,LOCATION_MZONE,0,3,3,nil) + Duel.SendtoGrave(g,REASON_COST) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(3000) + e1:SetReset(RESET_EVENT+0xff0000) + c:RegisterEffect(e1) +end +function c4998619.spcon2(e,tp,eg,ep,ev,re,r,rp) + return rp~=tp and e:GetHandler():GetPreviousControler()==tp +end +function c4998619.spfilter(c,e,tp) + return c:IsSetCard(0xe3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c4998619.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c4998619.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c4998619.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + local ft=3 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + ft=math.min(ft,Duel.GetLocationCount(tp,LOCATION_MZONE)) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c4998619.spfilter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) +end +function c4998619.thfilter(c) + return c:IsSetCard(0xe3) and c:IsAbleToHand() +end +function c4998619.spop2(e,tp,eg,ep,ev,re,r,rp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if g:GetCount()>ft then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + g=g:Select(tp,ft,ft,nil) + end + if Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0 then + local sg=Duel.GetMatchingGroup(c4998619.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,nil) + if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(4998619,0)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + sg=sg:Select(tp,1,1,nil) + if not sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.BreakEffect() + Duel.SendtoHand(sg,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,sg) + Duel.ShuffleDeck(tp) + end + end + end +end diff --git a/script/c500000006.lua b/script/c500000006.lua deleted file mode 100644 index b85cbdfc..00000000 --- a/script/c500000006.lua +++ /dev/null @@ -1,33 +0,0 @@ ---古代の機械像 -function c500000006.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c500000006.spcost) - e1:SetTarget(c500000006.sptg) - e1:SetOperation(c500000006.spop) - c:RegisterEffect(e1) -end -function c500000006.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c500000006.filter(c,e,tp) - return c:GetCode()==83104731 -end -function c500000006.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c500000006.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c500000006.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c500000006.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - end -end diff --git a/script/c500000008.lua b/script/c500000008.lua deleted file mode 100644 index 68e75f33..00000000 --- a/script/c500000008.lua +++ /dev/null @@ -1,39 +0,0 @@ ---ショック・ウェーブ -function c500000008.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c500000008.condition) - e1:SetHintTiming(0,0x1e1) - e1:SetTarget(c500000008.target) - e1:SetOperation(c500000008.activate) - c:RegisterEffect(e1) -end -function c500000008.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c500000008.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetLP(tp)<=Duel.GetLP(1-tp)-1 -end -function c500000008.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c500000008.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c500000008.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c500000008.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,0) -end -function c500000008.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local atk=tc:GetAttack() - if Duel.Destroy(tc,REASON_EFFECT)>0 then - Duel.BreakEffect() - Duel.Damage(1-tp,atk,REASON_EFFECT) - Duel.Damage(tp,atk,REASON_EFFECT) - end - end -end diff --git a/script/c500000051.lua b/script/c500000051.lua deleted file mode 100644 index 066b702a..00000000 --- a/script/c500000051.lua +++ /dev/null @@ -1,34 +0,0 @@ ---守護神の宝札 -function c500000051.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c500000051.cost) - e1:SetTarget(c500000051.target) - e1:SetOperation(c500000051.activate) - c:RegisterEffect(e1) - --Effect Draw - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_DRAW_COUNT) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(1,0) - e2:SetValue(2) - c:RegisterEffect(e2) -end -function c500000051.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,5,e:GetHandler()) end - Duel.DiscardHand(tp,Card.IsDiscardable,5,5,REASON_COST+REASON_DISCARD) -end -function c500000051.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c500000051.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c500000090.lua b/script/c500000090.lua deleted file mode 100644 index efacc266..00000000 --- a/script/c500000090.lua +++ /dev/null @@ -1,60 +0,0 @@ ---トゥーン·キングダム -function c500000090.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c500000090.rmtg) - e1:SetOperation(c500000090.rmop) - c:RegisterEffect(e1) - --code - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CHANGE_CODE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_SZONE) - e2:SetValue(15259703) - c:RegisterEffect(e2) - --Battle - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_DESTROY_REPLACE) - e3:SetRange(LOCATION_SZONE) - e3:SetTarget(c500000090.destg) - e3:SetValue(c500000090.value) - c:RegisterEffect(e3) -end -function c500000090.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) --発動コスト - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,5,tp,LOCATION_DECK) -end -function c500000090.rmop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g1=Duel.GetDecktopGroup(tp,5) - Duel.DisableShuffleCheck() - Duel.Remove(g1,POS_FACEUP,REASON_EFFECT) -end - -function c500000090.repfilter(c) - return c:IsAbleToGrave() -end -function c500000090.dfilter(c,tp) - return c:IsControler(tp) and c:IsReason(REASON_BATTLE) and c:IsType(TYPE_TOON) -end -function c500000090.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c500000090.dfilter,1,nil,tp) end - local c=e:GetHandler() - if chk==0 then return c:IsReason(REASON_BATTLE) - end - if Duel.SelectYesNo(tp,aux.Stringid(500000090,0))then - local g2=Duel.GetDecktopGroup(tp,1) - Duel.DisableShuffleCheck() - Duel.Remove(g2,POS_FACEUP,REASON_EFFECT) - return true - else return false end -end -function c500000090.value(e,c) - return c:IsControler(e:GetHandlerPlayer()) and c:IsReason(REASON_BATTLE) -end - diff --git a/script/c500000123.lua b/script/c500000123.lua deleted file mode 100644 index bb61d7fa..00000000 --- a/script/c500000123.lua +++ /dev/null @@ -1,54 +0,0 @@ ---カオス・フォーム -function c500000123.initial_effect(c) - --Activate - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_ACTIVATE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetCondition(c500000123.condition) - e2:SetCost(c500000123.cost) - e2:SetTarget(c500000123.target) - e2:SetOperation(c500000123.activate) - c:RegisterEffect(e2) -end -function c500000123.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c500000123.cfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() -end -function c500000123.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c500000123.cfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c500000123.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) - e:SetLabelObject(g:GetFirst()) -end -function c500000123.filter(c) - return c:IsFaceup() -end -function c500000123.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c500000123.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c500000123.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c500000123.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c500000123.activate(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - local rc=e:GetLabelObject() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e2:SetValue(rc:GetTextAttack()) - tc:RegisterEffect(e2) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e2:SetValue(rc:GetTextDefence()) - tc:RegisterEffect(e2) - end -end diff --git a/script/c500000124.lua b/script/c500000124.lua deleted file mode 100644 index f66518e4..00000000 --- a/script/c500000124.lua +++ /dev/null @@ -1,35 +0,0 @@ ---不滅階級 -function c500000124.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCost(c500000124.cost) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c500000124.target) - e1:SetOperation(c500000124.activate) - c:RegisterEffect(e1) -end -function c500000124.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,nil,2,nil) end - local g=Duel.SelectReleaseGroup(tp,aux.TRUE,1,2,nil) - Duel.Release(g,REASON_COST) -end -function c500000124.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,true,false) and c:IsLevelAbove(7) -end -function c500000124.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c500000124.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c500000124.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c500000124.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c500000124.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - end -end diff --git a/script/c500000140.lua b/script/c500000140.lua deleted file mode 100644 index 12539669..00000000 --- a/script/c500000140.lua +++ /dev/null @@ -1,37 +0,0 @@ ---聖騎士の盾持ち -function c500000140.initial_effect(c) - --draw - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(500000140,0)) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCost(c500000140.cost) - e1:SetTarget(c500000140.target) - e1:SetOperation(c500000140.operation) - c:RegisterEffect(e1) -end -function c500000140.filter(c) - return - c:IsRace(RACE_WARRIOR) and - c:IsAttribute(ATTRIBUTE_LIGHT) and - c:IsAbleToRemoveAsCost() -end -function c500000140.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - return Duel.IsExistingMatchingCard(c500000140.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c500000140.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c500000140.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c500000140.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c500000141.lua b/script/c500000141.lua deleted file mode 100644 index 0819e818..00000000 --- a/script/c500000141.lua +++ /dev/null @@ -1,32 +0,0 @@ ---聖騎士の槍持ち -function c500000141.initial_effect(c) - --search - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(500000141,0)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c500000141.cost) - e1:SetTarget(c500000141.target) - e1:SetOperation(c500000141.operation) - c:RegisterEffect(e1) -end -function c500000141.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c500000141.filter(c) - return c:IsType(TYPE_EQUIP) and c:IsAbleToHand() -end -function c500000141.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c500000141.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c500000141.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c500000141.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c500000142.lua b/script/c500000142.lua deleted file mode 100644 index 54af9afb..00000000 --- a/script/c500000142.lua +++ /dev/null @@ -1,27 +0,0 @@ ---花騎士団の駿馬 -function c500000142.initial_effect(c) - --search - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(500000142,0)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c500000142.tg) - e1:SetOperation(c500000142.op) - c:RegisterEffect(e1) -end -function c500000142.filter(c) - return c:IsCode(24094653) or c:IsCode(500000141) -end -function c500000142.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c500000142.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c500000142.op(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c500000142.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c500000143.lua b/script/c500000143.lua deleted file mode 100644 index 350a6da1..00000000 --- a/script/c500000143.lua +++ /dev/null @@ -1,51 +0,0 @@ ---ケンタウルミナ -function c500000143.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode2(c,500000141,500000142,true,true) - --negate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(500000143,0)) - e1:SetCategory(CATEGORY_NEGATE) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c500000143.discon) - e1:SetTarget(c500000143.target) - e1:SetOperation(c500000143.activate) - c:RegisterEffect(e1) -end -function c500000143.discon(e,tp,eg,ep,ev,re,r,rp) - return re:IsActiveType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) - and rp~=tp and tp==Duel.GetTurnPlayer() -end -function c500000143.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if not re:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) then - return re:GetHandler():IsCanTurnSet() - else return true end - end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsRelateToEffect(re) and re:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) then - Duel.SetOperationInfo(0,CATEGORY_TOHAND,eg,1,0,0) - end -end -function c500000143.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - local rc=re:GetHandler() - if rc:IsRelateToEffect(re) then - if rc:IsStatus(STATUS_ACT_FROM_HAND) then - rc:CancelToGrave() - Duel.SendtoHand(rc,nil,REASON_EFFECT) - else - if rc:IsCanTurnSet() then - rc:CancelToGrave() - Duel.ChangePosition(rc,POS_FACEDOWN) - --rc:SetStatus(STATUS_SET_TURN,false) - Duel.RaiseEvent(rc,EVENT_SSET,e,REASON_EFFECT,tp,tp,0) - end - end - end -end \ No newline at end of file diff --git a/script/c500000147.lua b/script/c500000147.lua deleted file mode 100644 index 95696509..00000000 --- a/script/c500000147.lua +++ /dev/null @@ -1,73 +0,0 @@ ---エコール・ド・ゾーン -function c500000147.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(500000147,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c500000147.target) - e2:SetOperation(c500000147.activate) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - --cannot direct attack - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e4:SetRange(LOCATION_SZONE) - e4:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e4:SetTarget(c500000147.atktarget) - c:RegisterEffect(e4) -end -function c500000147.atktarget(e,c) - return not c:IsType(TYPE_TOKEN) -end -function c500000147.filter(c,tp,ep) - local tpe=c:GetType() - return c:IsFaceup() and c:IsDestructable() and bit.band(tpe,TYPE_TOKEN)==0 -end -function c500000147.target(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=eg:GetFirst() - if chk==0 then return eg:IsExists(c500000147.filter,1,nil,tp) end - local g=eg:Filter(c500000147.filter,nil,tp) - Duel.SetTargetCard(eg) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) -end -function c500000147.filter3(c,e,tp) - local tpe=c:GetType() - return c:IsFaceup() - and c:IsDestructable() and bit.band(tpe,TYPE_TOKEN)==0 -end -function c500000147.activate(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(c500000147.filter3,nil,e,tp) - if g:GetCount()>0 then - local atk=g:GetFirst():GetAttack() - local def=g:GetFirst():GetDefence() - local con=g:GetFirst():GetControler() - local pos=g:GetFirst():GetPosition() - if Duel.Destroy(g,REASON_EFFECT)~=0 then - local token=Duel.CreateToken(tp,500000148) - Duel.SpecialSummonStep(token,0,con,con,false,false,pos) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(atk) - e1:SetReset(RESET_EVENT+0x1fe0000) - token:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) - e2:SetValue(def) - token:RegisterEffect(e2) - Duel.SpecialSummonComplete() - end -end -end diff --git a/script/c500000149.lua b/script/c500000149.lua deleted file mode 100644 index 85f62594..00000000 --- a/script/c500000149.lua +++ /dev/null @@ -1,43 +0,0 @@ ---魂縛門 -function c500000149.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(500000149,0)) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetCountLimit(1) - e2:SetTarget(c500000149.target) - e2:SetOperation(c500000149.activate) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - local e4=e2:Clone() - e4:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e4) -end -function c500000149.filter(c) - local lp=Duel.GetLP(c:GetControler()) - return c:IsFaceup() and c:IsDestructable() and c:GetAttack()<=lp -end -function c500000149.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,500000149)==0 and eg:IsExists(c500000149.filter,1,nil) end - local g=eg:Filter(c500000149.filter,nil,tp) - Duel.SetTargetCard(eg) - Duel.RegisterFlagEffect(tp,500000149,RESET_PHASE+PHASE_END,0,1) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,0) -end -function c500000149.activate(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(c500000149.filter,nil) - if g:GetCount()>0 and Duel.Destroy(g,REASON_EFFECT)>0 then - Duel.Damage(1-tp,800,REASON_EFFECT) - Duel.Damage(tp,800,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c500000152.lua b/script/c500000152.lua deleted file mode 100644 index 8eb9f15c..00000000 --- a/script/c500000152.lua +++ /dev/null @@ -1,40 +0,0 @@ ---呪詛返しのヒトガタ -function c500000152.initial_effect(c) - --reflect - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c500000152.condition) - e1:SetOperation(c500000152.operation) - c:RegisterEffect(e1) -end -function c500000152.condition(e,tp,eg,ep,ev,re,r,rp) - if re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and not re:IsHasType(EFFECT_TYPE_ACTIVATE) then return false end - local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_DAMAGE) - if ex then return true end - ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_RECOVER) - if not ex then return false end - if cp~=PLAYER_ALL then return Duel.IsPlayerAffectedByEffect(cp,EFFECT_REVERSE_RECOVER) - else return Duel.IsPlayerAffectedByEffect(0,EFFECT_REVERSE_RECOVER) - or Duel.IsPlayerAffectedByEffect(1,EFFECT_REVERSE_RECOVER) - end -end -function c500000152.operation(e,tp,eg,ep,ev,re,r,rp) - local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_REFLECT_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetLabel(cid) - e1:SetValue(c500000152.refcon) - e1:SetReset(RESET_CHAIN) - Duel.RegisterEffect(e1,tp) -end -function c500000152.refcon(e,re,val,r,rp,rc) - local cc=Duel.GetCurrentChain() - if cc==0 or bit.band(r,REASON_EFFECT)==0 then return end - local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID) - return cid==e:GetLabel() -end diff --git a/script/c500008302.lua b/script/c500008302.lua deleted file mode 100644 index 5ee2c427..00000000 --- a/script/c500008302.lua +++ /dev/null @@ -1,29 +0,0 @@ ---インスタント・オーバーレイ -function c500008302.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c500008302.target) - e1:SetOperation(c500008302.activate) - c:RegisterEffect(e1) -end -function c500008302.filter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:GetOverlayCount()==0 -end -function c500008302.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c500008302.filter(chkc) end - if chk==0 then return not e:GetHandler():IsLocation(LOCATION_GRAVE) - and Duel.IsExistingTarget(c500008302.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c500008302.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c500008302.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and c:IsRelateToEffect(e) then - c:CancelToGrave() - Duel.Overlay(tc,Group.FromCards(c)) - end -end diff --git a/script/c500008902.lua b/script/c500008902.lua deleted file mode 100644 index f14e96b6..00000000 --- a/script/c500008902.lua +++ /dev/null @@ -1,66 +0,0 @@ ---オーバーレイ・ワールド -function c500008902.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --indes1 - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetTarget(c500008902.targeta) - e2:SetValue(1) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE) - e3:SetCode(EFFECT_TO_GRAVE_REDIRECT) - e3:SetRange(LOCATION_SZONE) - e3:SetTarget(c500008902.rmtarget) - e3:SetValue(LOCATION_REMOVED) - c:RegisterEffect(e3) - --damage - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(500008902,0)) - e4:SetCategory(CATEGORY_DAMAGE) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e4:SetProperty(EFFECT_FLAG_REPEAT) - e4:SetCode(EVENT_PHASE+PHASE_END) - e4:SetRange(LOCATION_SZONE) - e4:SetCountLimit(1) - e4:SetCondition(c500008902.con) - e4:SetTarget(c500008902.damtg) - e4:SetOperation(c500008902.damop) - c:RegisterEffect(e4) -end -function c500008902.targeta(e,c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) -end -function c500008902.filter(c) - return c:IsType(TYPE_XYZ) -end -function c500008902.rmtarget(e,c) - return c:IsReason(REASON_BATTLE) and c:IsType(TYPE_XYZ) -end -function c500008902.con(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_MZONE,0,1,nil,TYPE_XYZ) - or not Duel.IsExistingMatchingCard(Card.IsType,tp,0,LOCATION_MZONE,1,nil,TYPE_XYZ) -end -function c500008902.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,0) -end -function c500008902.damop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local c1=Duel.GetMatchingGroupCount(c500008902.filter,tp,LOCATION_ONFIELD,0,nil) - if c1<2 then - Duel.Damage(tp,500-c1*500,REASON_EFFECT) - end - local c2=Duel.GetMatchingGroupCount(c500008902.filter,1-tp,LOCATION_ONFIELD,0,nil) - if c2<2 then - Duel.Damage(1-tp,500-c2*500,REASON_EFFECT) - end -end diff --git a/script/c500313101.lua b/script/c500313101.lua deleted file mode 100644 index 2e951b1c..00000000 --- a/script/c500313101.lua +++ /dev/null @@ -1,118 +0,0 @@ ---無限牢 -function c500313101.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c500313101.cost1) - e1:SetTarget(c500313101.target1) - e1:SetOperation(c500313101.activate1) - c:RegisterEffect(e1) - --to hand - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(12385,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c500313101.spcon) - e1:SetTarget(c500313101.target3) - e1:SetOperation(c500313101.activate3) - c:RegisterEffect(e1) - --instant - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(500313101,0)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetRange(LOCATION_SZONE) - e3:SetCountLimit(1) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetCost(c500313101.cost2) - e3:SetTarget(c500313101.target2) - e3:SetOperation(c500313101.activate2) - c:RegisterEffect(e3) -end -function c500313101.cost1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - e:SetLabel(0) - if Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) and Duel.SelectYesNo(tp,aux.Stringid(100000012,0)) then - e:GetHandler():RegisterFlagEffect(500313101,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - e:SetLabel(1) - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) - else e:SetProperty(0) - end -end -function c500313101.filter(c) - return c:IsLevelBelow(4) and c:IsType(TYPE_MONSTER) -end -function c500313101.target1(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c500313101.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c500313101.filter,tp,LOCATION_GRAVE,0,1,nil) end - local g=Duel.SelectTarget(tp,c500313101.filter,tp,LOCATION_GRAVE,0,1,1,nil) -end -function c500313101.activate1(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - if e:GetLabel()~=1 then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(c) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fc0000) - e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) - tc:RegisterEffect(e1) - Duel.RaiseEvent(tc,500313101,e,0,tp,0,0) - local sg=e:GetLabelObject() - tc:RegisterFlagEffect(500313101,RESET_EVENT+0x1fe0000,0,1) - end -end -function c500313101.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_SZONE) and e:GetHandler():IsPreviousPosition(POS_FACEUP) -end -function c500313101.filter2(c) - return c:IsType(TYPE_SPELL) and c:IsAbleToHand() - and c:GetFlagEffect(500313101)~=0 -end -function c500313101.target3(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(c500313101.filter2,tp,LOCATION_SZONE,0,1,c) end - local sg=Duel.GetMatchingGroup(c500313101.filter2,tp,LOCATION_SZONE,0,c) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,sg:GetCount(),0,0) -end -function c500313101.activate3(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c500313101.filter2,tp,LOCATION_SZONE,0,e:GetHandler()) - Duel.SendtoHand(sg,nil,REASON_EFFECT) -end -function c500313101.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) and e:GetHandler():GetFlagEffect(500313101)==0 end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) - e:GetHandler():RegisterFlagEffect(500313101,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c500313101.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c500313101.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c500313101.filter,tp,LOCATION_GRAVE,0,1,nil) end - local g=Duel.SelectTarget(tp,c500313101.filter,tp,LOCATION_GRAVE,0,1,1,nil) -end -function c500313101.activate2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(c) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fc0000) - e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) - tc:RegisterEffect(e1) - Duel.RaiseEvent(tc,500313101,e,0,tp,0,0) - local sg=e:GetLabelObject() - tc:RegisterFlagEffect(500313101,RESET_EVENT+0x1fe0000,0,1) - end -end diff --git a/script/c500314601.lua b/script/c500314601.lua deleted file mode 100644 index 5c861e24..00000000 --- a/script/c500314601.lua +++ /dev/null @@ -1,38 +0,0 @@ ---カオス・ブルーム -function c500314601.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c500314601.target) - e1:SetOperation(c500314601.activate) - c:RegisterEffect(e1) -end -function c500314601.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c500314601.dfilter1(c,e) - return c:IsFaceup() and c:IsAttackBelow(1000) -end -function c500314601.activate(e,tp,eg,ep,ev,re,r,rp) - local cb=Duel.GetMatchingGroupCount(Card.IsCode,p,LOCATION_GRAVE,0,nil,500314601) - if cb==0 then - local tc=Duel.SelectMatchingCard(tp,c500314601.dfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.Destroy(tc,REASON_EFFECT) - elseif cb==1 then - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_SZONE,LOCATION_SZONE,e:GetHandler()) - if g:GetCount()<1 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local dg=g:Select(tp,1,1,nil) - Duel.Destroy(dg,REASON_EFFECT) - elseif cb>=2 then - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - if g:GetCount()<1 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local dg=g:Select(tp,1,1,nil) - Duel.Destroy(dg,REASON_EFFECT) - end -end diff --git a/script/c500314701.lua b/script/c500314701.lua deleted file mode 100644 index c5b0130d..00000000 --- a/script/c500314701.lua +++ /dev/null @@ -1,32 +0,0 @@ ---ハイレート・ドロー -function c500314701.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c500314701.target) - e1:SetOperation(c500314701.activate) - c:RegisterEffect(e1) -end -function c500314701.filter1(c) - return c:IsRace(RACE_MACHINE) and c:IsLocation(LOCATION_GRAVE) -end -function c500314701.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,0,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) - Duel.SetTargetPlayer(tp) -end -function c500314701.activate(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0) - if Duel.Destroy(g,REASON_EFFECT)>0 then - local og=Duel.GetOperatedGroup() - local dc=og:FilterCount(c500314701.filter1,nil) - if dc>0 then - Duel.BreakEffect() - Duel.Draw(p,dc,REASON_EFFECT) - end - end -end diff --git a/script/c50045299.lua b/script/c50045299.lua index f294bce4..d0552f0c 100644 --- a/script/c50045299.lua +++ b/script/c50045299.lua @@ -12,7 +12,7 @@ function c50045299.initial_effect(c) e2:SetRange(LOCATION_SZONE) e2:SetTarget(c50045299.target) e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetValue(POS_FACEUP_DEFENCE) + e2:SetValue(POS_FACEUP_DEFENSE) c:RegisterEffect(e2) local e3=e2:Clone() e3:SetCode(EFFECT_CANNOT_CHANGE_POSITION) diff --git a/script/c50074522.lua b/script/c50074522.lua index 7299ab3f..96886b33 100644 --- a/script/c50074522.lua +++ b/script/c50074522.lua @@ -9,7 +9,7 @@ function c50074522.initial_effect(c) c:RegisterEffect(e1) end function c50074522.filter(c) - return c:IsFaceup() and c:IsRace(RACE_MACHINE) and c:IsDestructable() + return c:IsFaceup() and c:IsRace(RACE_MACHINE) end function c50074522.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c50078320.lua b/script/c50078320.lua index 38862eb5..36a9712d 100644 --- a/script/c50078320.lua +++ b/script/c50078320.lua @@ -23,21 +23,21 @@ function c50078320.initial_effect(c) c:RegisterEffect(e2) end function c50078320.condition(e,tp,eg,ep,ev,re,r,rp) - if rp==tp then return false end local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_ANNOUNCE) - return ex and cv==ANNOUNCE_CARD + return rp~=tp and ex and bit.band(cv,ANNOUNCE_CARD)~=0 end function c50078320.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end Duel.SendtoGrave(e:GetHandler(),REASON_COST) end function c50078320.operation(e,tp,eg,ep,ev,re,r,rp) + local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_ANNOUNCE) Duel.Hint(HINT_SELECTMSG,tp,564) - local ac=Duel.AnnounceCard(tp) + local ac=Duel.AnnounceCard(tp,cv) Duel.ChangeTargetParam(ev,ac) end function c50078320.desfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c50078320.regtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c50078320.desfilter(chkc) end diff --git a/script/c50078509.lua b/script/c50078509.lua index 1a429e20..aeca2dcc 100644 --- a/script/c50078509.lua +++ b/script/c50078509.lua @@ -8,16 +8,36 @@ function c50078509.initial_effect(c) e1:SetHintTiming(0,0x1c0) e1:SetProperty(EFFECT_FLAG_CARD_TARGET) e1:SetTarget(c50078509.target) - e1:SetOperation(c50078509.operation) c:RegisterEffect(e1) - --Destroy local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetCondition(c50078509.descon) - e2:SetOperation(c50078509.desop) + e2:SetCode(EVENT_CHAIN_SOLVED) + e2:SetLabelObject(e1) + e2:SetCondition(c50078509.tgcon) + e2:SetOperation(c50078509.tgop) c:RegisterEffect(e2) + --disable + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_DISABLE) + e3:SetRange(LOCATION_SZONE) + e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e3:SetTarget(c50078509.distg) + c:RegisterEffect(e3) + --cannot attack + local e4=e3:Clone() + e4:SetCode(EFFECT_CANNOT_ATTACK) + c:RegisterEffect(e4) + --Destroy + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e5:SetRange(LOCATION_SZONE) + e5:SetCode(EVENT_LEAVE_FIELD) + e5:SetCondition(c50078509.descon) + e5:SetOperation(c50078509.desop) + c:RegisterEffect(e5) end function c50078509.filter(c) return c:IsFaceup() and c:IsType(TYPE_EFFECT) @@ -29,26 +49,18 @@ function c50078509.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local g=Duel.SelectTarget(tp,c50078509.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) end -function c50078509.operation(e,tp,eg,ep,ev,re,r,rp) +function c50078509.tgcon(e,tp,eg,ep,ev,re,r,rp) + return re==e:GetLabelObject() +end +function c50078509.tgop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then + local tc=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS):GetFirst() + if c:IsRelateToEffect(re) and tc:IsFaceup() and tc:IsRelateToEffect(re) then c:SetCardTarget(tc) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetCondition(c50078509.rcon) - tc:RegisterEffect(e1,true) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_ATTACK) - tc:RegisterEffect(e2,true) end end -function c50078509.rcon(e) - return e:GetOwner():IsHasCardTarget(e:GetHandler()) +function c50078509.distg(e,c) + return e:GetHandler():IsHasCardTarget(c) end function c50078509.descon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() @@ -57,5 +69,5 @@ function c50078509.descon(e,tp,eg,ep,ev,re,r,rp) return tc and eg:IsContains(tc) and tc:IsReason(REASON_DESTROY) end function c50078509.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(), REASON_EFFECT) + Duel.Destroy(e:GetHandler(),REASON_EFFECT) end diff --git a/script/c501000000.lua b/script/c501000000.lua deleted file mode 100644 index a41c0388..00000000 --- a/script/c501000000.lua +++ /dev/null @@ -1,49 +0,0 @@ ---アルエヴァ -function c501000000.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c501000000.ttcon) - e1:SetOperation(c501000000.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c501000000.ttcon) - e2:SetOperation(c501000000.ttop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - --tribute limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_TRIBUTE_LIMIT) - e3:SetValue(c501000000.tlimit) - c:RegisterEffect(e3) - --match kill - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MATCH_KILL) - c:RegisterEffect(e4) -end -function c501000000.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c501000000.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c501000000.tlimit(e,c) - return not c:IsRace(RACE_WINDBEAST) -end diff --git a/script/c501000001.lua b/script/c501000001.lua deleted file mode 100644 index ffa78a40..00000000 --- a/script/c501000001.lua +++ /dev/null @@ -1,49 +0,0 @@ ---メテオ・ザ・マッチレス -function c501000001.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c501000001.ttcon) - e1:SetOperation(c501000001.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c501000001.ttcon) - e2:SetOperation(c501000001.ttop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - --tribute limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_TRIBUTE_LIMIT) - e3:SetValue(c501000001.tlimit) - c:RegisterEffect(e3) - --match kill - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MATCH_KILL) - c:RegisterEffect(e4) -end -function c501000001.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c501000001.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c501000001.tlimit(e,c) - return not c:IsRace(RACE_BEASTWARRIOR) -end diff --git a/script/c501000002.lua b/script/c501000002.lua deleted file mode 100644 index 231b5a16..00000000 --- a/script/c501000002.lua +++ /dev/null @@ -1,49 +0,0 @@ ---破壊王ゼクゼクス -function c501000002.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c501000002.ttcon) - e1:SetOperation(c501000002.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c501000002.ttcon) - e2:SetOperation(c501000002.ttop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - --tribute limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_TRIBUTE_LIMIT) - e3:SetValue(c501000002.tlimit) - c:RegisterEffect(e3) - --match kill - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MATCH_KILL) - c:RegisterEffect(e4) -end -function c501000002.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c501000002.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c501000002.tlimit(e,c) - return not c:IsRace(RACE_FIEND) -end diff --git a/script/c501000003.lua b/script/c501000003.lua deleted file mode 100644 index 3478b4af..00000000 --- a/script/c501000003.lua +++ /dev/null @@ -1,49 +0,0 @@ ---永遠の女王エターニア -function c501000003.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c501000003.ttcon) - e1:SetOperation(c501000003.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c501000003.ttcon) - e2:SetOperation(c501000003.ttop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - --tribute limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_TRIBUTE_LIMIT) - e3:SetValue(c501000003.tlimit) - c:RegisterEffect(e3) - --match kill - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MATCH_KILL) - c:RegisterEffect(e4) -end -function c501000003.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c501000003.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c501000003.tlimit(e,c) - return not c:IsRace(RACE_FAIRY) -end diff --git a/script/c501000004.lua b/script/c501000004.lua deleted file mode 100644 index 1d449aa2..00000000 --- a/script/c501000004.lua +++ /dev/null @@ -1,49 +0,0 @@ ---魔導神のオブジェ -function c501000004.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c501000004.ttcon) - e1:SetOperation(c501000004.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c501000004.ttcon) - e2:SetOperation(c501000004.ttop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - --tribute limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_TRIBUTE_LIMIT) - e3:SetValue(c501000004.tlimit) - c:RegisterEffect(e3) - --match kill - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MATCH_KILL) - c:RegisterEffect(e4) -end -function c501000004.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c501000004.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c501000004.tlimit(e,c) - return not c:IsRace(RACE_SPELLCASTER) -end diff --git a/script/c501000005.lua b/script/c501000005.lua deleted file mode 100644 index ff9743b6..00000000 --- a/script/c501000005.lua +++ /dev/null @@ -1,49 +0,0 @@ ---武道神の甲冑 -function c501000005.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c501000005.ttcon) - e1:SetOperation(c501000005.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c501000005.ttcon) - e2:SetOperation(c501000005.ttop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - --tribute limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_TRIBUTE_LIMIT) - e3:SetValue(c501000005.tlimit) - c:RegisterEffect(e3) - --match kill - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MATCH_KILL) - c:RegisterEffect(e4) -end -function c501000005.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c501000005.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c501000005.tlimit(e,c) - return not c:IsRace(RACE_WARRIOR) -end diff --git a/script/c501000006.lua b/script/c501000006.lua deleted file mode 100644 index e48b5f10..00000000 --- a/script/c501000006.lua +++ /dev/null @@ -1,49 +0,0 @@ ---獣王キマイラ -function c501000006.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c501000006.ttcon) - e1:SetOperation(c501000006.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c501000006.ttcon) - e2:SetOperation(c501000006.ttop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - --tribute limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_TRIBUTE_LIMIT) - e3:SetValue(c501000006.tlimit) - c:RegisterEffect(e3) - --match kill - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MATCH_KILL) - c:RegisterEffect(e4) -end -function c501000006.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c501000006.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c501000006.tlimit(e,c) - return not c:IsRace(RACE_BEAST) -end diff --git a/script/c501000007.lua b/script/c501000007.lua deleted file mode 100644 index 3a218550..00000000 --- a/script/c501000007.lua +++ /dev/null @@ -1,49 +0,0 @@ ---エンペラー・オブ・ライトニング -function c501000007.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c501000007.ttcon) - e1:SetOperation(c501000007.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c501000007.ttcon) - e2:SetOperation(c501000007.ttop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - --tribute limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_TRIBUTE_LIMIT) - e3:SetValue(c501000007.tlimit) - c:RegisterEffect(e3) - --match kill - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MATCH_KILL) - c:RegisterEffect(e4) -end -function c501000007.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c501000007.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c501000007.tlimit(e,c) - return not c:IsRace(RACE_THUNDER) -end diff --git a/script/c501000008.lua b/script/c501000008.lua deleted file mode 100644 index 69a5ed4a..00000000 --- a/script/c501000008.lua +++ /dev/null @@ -1,49 +0,0 @@ ---軍神テュール -function c501000008.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c501000008.ttcon) - e1:SetOperation(c501000008.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c501000008.ttcon) - e2:SetOperation(c501000008.ttop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - --tribute limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_TRIBUTE_LIMIT) - e3:SetValue(c501000008.tlimit) - c:RegisterEffect(e3) - --match kill - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MATCH_KILL) - c:RegisterEffect(e4) -end -function c501000008.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c501000008.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c501000008.tlimit(e,c) - return not c:IsRace(RACE_FAIRY) -end diff --git a/script/c501000009.lua b/script/c501000009.lua deleted file mode 100644 index 0e4438ea..00000000 --- a/script/c501000009.lua +++ /dev/null @@ -1,49 +0,0 @@ ---音響機械ローレライ -function c501000009.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c501000009.ttcon) - e1:SetOperation(c501000009.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c501000009.ttcon) - e2:SetOperation(c501000009.ttop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - --tribute limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_TRIBUTE_LIMIT) - e3:SetValue(c501000009.tlimit) - c:RegisterEffect(e3) - --match kill - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MATCH_KILL) - c:RegisterEffect(e4) -end -function c501000009.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c501000009.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c501000009.tlimit(e,c) - return not c:IsRace(RACE_MACHINE) -end diff --git a/script/c501000010.lua b/script/c501000010.lua deleted file mode 100644 index 95f848c5..00000000 --- a/script/c501000010.lua +++ /dev/null @@ -1,49 +0,0 @@ ---アギバ -function c501000010.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c501000010.ttcon) - e1:SetOperation(c501000010.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c501000010.ttcon) - e2:SetOperation(c501000010.ttop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - --tribute limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_TRIBUTE_LIMIT) - e3:SetValue(c501000010.tlimit) - c:RegisterEffect(e3) - --match kill - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MATCH_KILL) - c:RegisterEffect(e4) -end -function c501000010.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c501000010.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c501000010.tlimit(e,c) - return not c:IsRace(RACE_FIEND) -end diff --git a/script/c501000011.lua b/script/c501000011.lua deleted file mode 100644 index 4b41dacd..00000000 --- a/script/c501000011.lua +++ /dev/null @@ -1,49 +0,0 @@ --- -function c501000011.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon with 3 tribute - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e1:SetCondition(c501000011.ttcon) - e1:SetOperation(c501000011.ttop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SET_PROC) - e2:SetCondition(c501000011.ttcon) - e2:SetOperation(c501000011.ttop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - --tribute limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_TRIBUTE_LIMIT) - e3:SetValue(c501000011.tlimit) - c:RegisterEffect(e3) - --match kill - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MATCH_KILL) - c:RegisterEffect(e4) -end -function c501000011.ttcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 -end -function c501000011.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(g) - Duel.Release(g,REASON_SUMMON+REASON_MATERIAL) -end -function c501000011.tlimit(e,c) - return not c:IsRace(RACE_BEASTWARRIOR) -end diff --git a/script/c501000012.lua b/script/c501000012.lua deleted file mode 100644 index 76808aeb..00000000 --- a/script/c501000012.lua +++ /dev/null @@ -1,18 +0,0 @@ ---星屑の巨神 -function c501000012.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_LIGHT),aux.NonTuner(Card.IsRace,RACE_FAIRY),2) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --match kill - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_MATCH_KILL) - c:RegisterEffect(e2) -end diff --git a/script/c501000013.lua b/script/c501000013.lua deleted file mode 100644 index 00dcc3f6..00000000 --- a/script/c501000013.lua +++ /dev/null @@ -1,18 +0,0 @@ ---赤色星獣グリズリー -function c501000013.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_EARTH),aux.NonTuner(Card.IsRace,RACE_BEAST),2) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --match kill - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_MATCH_KILL) - c:RegisterEffect(e2) -end diff --git a/script/c501000014.lua b/script/c501000014.lua deleted file mode 100644 index ae5e1d74..00000000 --- a/script/c501000014.lua +++ /dev/null @@ -1,27 +0,0 @@ ---King Landia the Goldfang -function c501000014.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterEqualFunction(Card.GetLevel,8),3) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --match kill - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_MATCH_KILL) - e2:SetCondition(c501000014.condition) - c:RegisterEffect(e2) -end -function c501000014.spfilter(c) - return c:IsRace(RACE_BEASTWARRIOR) -end -function c501000014.condition(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetHandler():GetMaterial() - return - g:IsExists(c501000014.spfilter,1,nil) -end diff --git a/script/c501000015.lua b/script/c501000015.lua deleted file mode 100644 index c9ad9603..00000000 --- a/script/c501000015.lua +++ /dev/null @@ -1,27 +0,0 @@ ---銀冠の女王ネリア -function c501000015.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterEqualFunction(Card.GetLevel,6),3) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --match kill - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_MATCH_KILL) - e2:SetCondition(c501000015.condition) - c:RegisterEffect(e2) -end -function c501000015.spfilter(c) - return c:IsRace(RACE_PLANT) -end -function c501000015.condition(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetHandler():GetMaterial() - return - g:IsExists(c501000015.spfilter,1,nil) -end diff --git a/script/c501000016.lua b/script/c501000016.lua deleted file mode 100644 index 6a4826c3..00000000 --- a/script/c501000016.lua +++ /dev/null @@ -1,27 +0,0 @@ ---伝説の白き龍 -function c501000016.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterEqualFunction(Card.GetLevel,8),3) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --match kill - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_MATCH_KILL) - e2:SetCondition(c501000016.condition) - c:RegisterEffect(e2) -end -function c501000016.spfilter(c) - return c:IsRace(RACE_DRAGON) -end -function c501000016.condition(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetHandler():GetMaterial() - return - g:IsExists(c501000016.spfilter,1,nil) -end diff --git a/script/c501000017.lua b/script/c501000017.lua deleted file mode 100644 index f8efef8a..00000000 --- a/script/c501000017.lua +++ /dev/null @@ -1,27 +0,0 @@ ---伝説の白き龍 -function c501000017.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterEqualFunction(Card.GetLevel,7),3) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --match kill - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_MATCH_KILL) - e2:SetCondition(c501000017.condition) - c:RegisterEffect(e2) -end -function c501000017.spfilter(c) - return c:IsRace(RACE_SPELLCASTER) -end -function c501000017.condition(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetHandler():GetMaterial() - return - g:IsExists(c501000017.spfilter,1,nil) -end diff --git a/script/c501000018.lua b/script/c501000018.lua deleted file mode 100644 index 8fbb59b9..00000000 --- a/script/c501000018.lua +++ /dev/null @@ -1,27 +0,0 @@ ---E☆HERO Pit Boss -function c501000018.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterEqualFunction(Card.GetLevel,6),3) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --match kill - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_MATCH_KILL) - e2:SetCondition(c501000018.condition) - c:RegisterEffect(e2) -end -function c501000018.spfilter(c) - return c:IsRace(RACE_SPELLCASTER) -end -function c501000018.condition(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetHandler():GetMaterial() - return - g:IsExists(c501000018.spfilter,1,nil) -end diff --git a/script/c501000019.lua b/script/c501000019.lua deleted file mode 100644 index da62843f..00000000 --- a/script/c501000019.lua +++ /dev/null @@ -1,27 +0,0 @@ ---E☆HERO Pit Boss -function c501000019.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterEqualFunction(Card.GetLevel,8),3) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --match kill - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_MATCH_KILL) - e2:SetCondition(c501000019.condition) - c:RegisterEffect(e2) -end -function c501000019.spfilter(c) - return c:IsRace(RACE_MACHINE) -end -function c501000019.condition(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetHandler():GetMaterial() - return - g:IsExists(c501000019.spfilter,1,nil) -end diff --git a/script/c501001004.lua b/script/c501001004.lua deleted file mode 100644 index fcafda28..00000000 --- a/script/c501001004.lua +++ /dev/null @@ -1,110 +0,0 @@ ----オッドアイズ・ペンデュラム・ドラゴン -function c501001004.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001004,0)) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e2:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c501001004.rdcon) - e2:SetOperation(c501001004.rdop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(501001004,1)) - e3:SetProperty(EFFECT_FLAG_REPEAT) - e3:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c501001004.thcon) - e3:SetCost(c501001004.thcos) - e3:SetTarget(c501001004.thtg) - e3:SetOperation(c501001004.thop) - c:RegisterEffect(e3) - -- - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e4:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e4:SetRange(LOCATION_MZONE) - e4:SetCondition(c501001004.dcon) - e4:SetOperation(c501001004.dop) - c:RegisterEffect(e4) -end -function c501001004.rdcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local a=Duel.GetAttacker() - local t=Duel.GetAttackTarget() - return (c:GetSequence()==6 or c:GetSequence()==7) - and Duel.GetFlagEffect(tp,501001004+100000000)==0 - and ep==tp - and (a:IsType(TYPE_PENDULUM) or (t~=nil and t:IsType(TYPE_PENDULUM))) -end -function c501001004.rdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - if Duel.SelectEffectYesNo(tp,c) then - Duel.ChangeBattleDamage(tp,0) - Duel.RegisterFlagEffect(tp,501001004+100000000,RESET_PHASE+PHASE_END,0,1) - end -end -function c501001004.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return (c:GetSequence()==6 or c:GetSequence()==7) - and Duel.GetTurnPlayer()==tp - and Duel.GetFlagEffect(tp,501001004+200000000)==0 -end -function c501001004.thcos(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.GetFlagEffect(tp,501001004+200000000)==0 end - Duel.RegisterFlagEffect(tp,501001004+200000000,RESET_PHASE+PHASE_END,0,1) -end -function c501001004.thfilter(c) - return c:IsAbleToHand() - and c:IsType(TYPE_MONSTER) - and c:IsType(TYPE_PENDULUM) - and c:GetAttack()<=1500 -end -function c501001004.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingMatchingCard(c501001004.thfilter,tp,LOCATION_DECK,0,1,nil) - and c:IsDestructable() - end - Duel.SetOperationInfo(tp,CATEGORY_DESTROY,c,1,tp,LOCATION_SZONE) - Duel.SetOperationInfo(tp,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) - Duel.SetOperationInfo(tp,CATEGORY_SEARCH,nil,1,tp,LOCATION_DECK) -end -function c501001004.thop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local tc=Duel.GetFirstTarget() - local g=Duel.GetMatchingGroup(c501001004.thfilter,tp,LOCATION_DECK,0,nil) - if g:GetCount()>0 and c:IsDestructable() and c:IsRelateToEffect(e) then - if Duel.Destroy(c,REASON_EFFECT)~=0 then - local tg=g:Select(tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - Duel.ShuffleHand(tp) - end - end -end -function c501001004.dcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return ep~=tp - and (c==Duel.GetAttacker() or c==Duel.GetAttackTarget()) - and Duel.GetAttackTarget()~=nil -end -function c501001004.dop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,ev*2) -end diff --git a/script/c501001008.lua b/script/c501001008.lua deleted file mode 100644 index df33588f..00000000 --- a/script/c501001008.lua +++ /dev/null @@ -1,20 +0,0 @@ ----ＥＭディスカバー・ヒッポ -function c501001008.initial_effect(c) - --extra summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetOperation(c501001008.sumop) - c:RegisterEffect(e1) -end -function c501001008.sumop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetFlagEffect(tp,501001008)~=0 then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetTargetRange(LOCATION_HAND,0) - e1:SetCode(EFFECT_EXTRA_SUMMON_COUNT) - e1:SetTarget(aux.TargetBoolFunction(Card.IsLevelAbove,7)) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - Duel.RegisterFlagEffect(tp,501001008,RESET_PHASE+PHASE_END,0,1) -end diff --git a/script/c501001009.lua b/script/c501001009.lua deleted file mode 100644 index 57b8732f..00000000 --- a/script/c501001009.lua +++ /dev/null @@ -1,62 +0,0 @@ ----ＥＭカレイドスコーピオン -function c501001009.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetCondition(c501001009.atkcon) - e2:SetTarget(c501001009.atktg) - e2:SetValue(300) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(501001009,0)) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetTarget(c501001009.target) - e3:SetOperation(c501001009.operation) - c:RegisterEffect(e3) -end -function c501001009.atkcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return (c:GetSequence()==6 or c:GetSequence()==7) -end -function c501001009.atktg(e,c) - return c:IsFaceup() - and c:IsAttribute(ATTRIBUTE_LIGHT) -end -function c501001009.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) -end -function c501001009.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_ATTACK_ALL) - e1:SetValue(c501001009.atkfilter) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end -function c501001009.atkfilter(e,c) - return c:IsFaceup() - and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end diff --git a/script/c501001010.lua b/script/c501001010.lua deleted file mode 100644 index 7ddb16da..00000000 --- a/script/c501001010.lua +++ /dev/null @@ -1,111 +0,0 @@ ----ＥＭビックリカエル -function c501001010.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001010,0)) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetCondition(c501001010.adcon) - e2:SetTarget(c501001010.adtg1) - e2:SetOperation(c501001010.adop1) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(501001010,1)) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetTarget(c501001010.adtg2) - e3:SetOperation(c501001010.adop2) - c:RegisterEffect(e3) -end -function c501001010.adcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return (c:GetSequence()==6 or c:GetSequence()==7) -end -function c501001010.filter1(c) - return c:IsFaceup() - and c:GetAttack()~=c:GetDefence() -end -function c501001010.adtg1(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingTarget(c501001010.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local g=Duel.SelectTarget(tp,c501001010.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - local tc=g:GetFirst() - Duel.SetOperationInfo(tp,CATEGORY_ATKCHANGE,tc,1,tp,tc:GetDefence()) - Duel.SetOperationInfo(tp,CATEGORY_DEFCHANGE,tc,1,tp,tc:GetAttack()) -end -function c501001010.adop1(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local atk=tc:GetAttack() - local def=tc:GetDefence() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(def) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetValue(atk) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e2) - end -end -function c501001010.filter2(c) - return (c:IsFaceup() and c:GetAttack()~=c:GetDefence()) - or c:IsFacedown() -end -function c501001010.adtg2(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingTarget(c501001010.filter2,tp,LOCATION_MZONE,0,1,nil) end - local g=Duel.SelectTarget(tp,c501001010.filter2,tp,LOCATION_MZONE,0,1,1,nil) - local tc=g:GetFirst() - Duel.SetOperationInfo(tp,CATEGORY_ATKCHANGE,tc,1,tp,tc:GetDefence()) - Duel.SetOperationInfo(tp,CATEGORY_DEFCHANGE,tc,1,tp,tc:GetAttack()) -end -function c501001010.adop2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - if tc:IsAttackPos()then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) - else - Duel.ChangePosition(tc,POS_FACEUP_ATTACK) - end - local atk=tc:GetAttack() - local def=tc:GetDefence() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(def) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetValue(atk) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e2) - end -end diff --git a/script/c501001018.lua b/script/c501001018.lua deleted file mode 100644 index 37b2f738..00000000 --- a/script/c501001018.lua +++ /dev/null @@ -1,39 +0,0 @@ ---星因士 デネブ -function c501001018.initial_effect(c) - --search - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001018,0)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCost(c501001018.spcost) - e1:SetTarget(c501001018.thtg) - e1:SetOperation(c501001018.thop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c501001018.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,501001018)==0 end - Duel.RegisterFlagEffect(tp,501001018,RESET_PHASE+PHASE_END,0,1) -end -function c501001018.thfilter(c) - return c:IsSetCard(0x9a) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and not c:IsCode(501001018) -end -function c501001018.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c501001018.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c501001018.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c501001018.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c501001019.lua b/script/c501001019.lua deleted file mode 100644 index 917f4e81..00000000 --- a/script/c501001019.lua +++ /dev/null @@ -1,53 +0,0 @@ ---星因士 アルタイル -function c501001019.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001019,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCost(c501001019.spcost) - e1:SetTarget(c501001019.sumtg) - e1:SetOperation(c501001019.sumop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c501001019.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,501001019)==0 end - Duel.RegisterFlagEffect(tp,501001019,RESET_PHASE+PHASE_END,0,1) -end -function c501001019.alimit(e,c) - return not c:IsSetCard(0x9a) -end -function c501001019.filter(c,e,tp) - return c:IsSetCard(0x9a) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsCode(501001019) -end -function c501001019.sumtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE and c501001019.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c501001019.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c501001019.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) -end -function c501001019.sumop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetTarget(c501001019.alimit) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetReset(RESET_PHASE+RESET_END) - Duel.RegisterEffect(e1,tp) - end -end diff --git a/script/c501001020.lua b/script/c501001020.lua deleted file mode 100644 index d4007b90..00000000 --- a/script/c501001020.lua +++ /dev/null @@ -1,43 +0,0 @@ ---星因士 ベガ -function c501001020.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001020,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCost(c501001020.spcost) - e1:SetTarget(c501001020.sumtg) - e1:SetOperation(c501001020.sumop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c501001020.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,501001020)==0 end - Duel.RegisterFlagEffect(tp,501001020,RESET_PHASE+PHASE_END,0,1) -end -function c501001020.filter(c,e,tp) - return c:IsSetCard(0x9a) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsCode(501001020) -end -function c501001020.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c501001020.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c501001020.sumop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c501001020.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 -end diff --git a/script/c501001023.lua b/script/c501001023.lua deleted file mode 100644 index 4b869fcf..00000000 --- a/script/c501001023.lua +++ /dev/null @@ -1,93 +0,0 @@ ----シャドール・ファルコン -function c501001023.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001023,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_LEAVE_GRAVE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_FLIP) - e1:SetCondition(c501001023.spcon1) - e1:SetCost(c501001023.spcos1) - e1:SetTarget(c501001023.sptg1) - e1:SetOperation(c501001023.spop1) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001023,1)) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_LEAVE_GRAVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c501001023.spcon2) - e2:SetCost(c501001023.spcos2) - e2:SetTarget(c501001023.sptg2) - e2:SetOperation(c501001023.spop2) - c:RegisterEffect(e2) -end -function c501001023.spcon1(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return Duel.GetFlagEffect(tp,501001023)==0 -end -function c501001023.spcos1(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetFlagEffect(tp,501001023)==0 end - Duel.RegisterFlagEffect(tp,501001023,RESET_PHASE+PHASE_END,0,1) -end -function c501001023.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) - and c:IsType(TYPE_MONSTER) - and c:IsSetCard(0x9b) - and c:GetCode()~=501001023 -end -function c501001023.sptg1(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingTarget(c501001023.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - local g=Duel.SelectTarget(tp,c501001023.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,g,1,tp,LOCATION_GRAVE) - Duel.SetOperationInfo(tp,CATEGORY_LEAVE_GRAVE,g,1,tp,0) -end -function c501001023.spop1(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) - end -end -function c501001023.spcon2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return Duel.GetFlagEffect(tp,501001023)==0 - and c:IsReason(REASON_EFFECT) - and not c:IsReason(REASON_RETURN) -end -function c501001023.spcos2(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetFlagEffect(tp,501001023)==0 end - Duel.RegisterFlagEffect(tp,501001023,RESET_PHASE+PHASE_END,0,1) -end -function c501001023.filter(c) - return c:IsFaceup() -end -function c501001023.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) - end - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,c,1,tp,LOCATION_GRAVE) - Duel.SetOperationInfo(tp,CATEGORY_LEAVE_GRAVE,c,1,tp,0) -end -function c501001023.spop2(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(e:GetHandler():GetControler(),LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - local tp=c:GetControler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) - end -end diff --git a/script/c501001024.lua b/script/c501001024.lua deleted file mode 100644 index 42180e5e..00000000 --- a/script/c501001024.lua +++ /dev/null @@ -1,100 +0,0 @@ ----シャドール・ヘッジホッグ -function c501001024.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001024,0)) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_FLIP) - e1:SetCondition(c501001024.thcon1) - e1:SetCost(c501001024.thcos1) - e1:SetTarget(c501001024.thtg1) - e1:SetOperation(c501001024.thop1) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001024,1)) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c501001024.thcon2) - e2:SetCost(c501001024.thcos2) - e2:SetTarget(c501001024.thtg2) - e2:SetOperation(c501001024.thop2) - c:RegisterEffect(e2) -end -function c501001024.thcon1(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return Duel.GetFlagEffect(tp,501001024)==0 -end -function c501001024.thcos1(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetFlagEffect(tp,501001024)==0 end - Duel.RegisterFlagEffect(tp,501001024,RESET_PHASE+PHASE_END,0,1) -end -function c501001024.thfilter1(c) - return c:IsAbleToHand() - and c:IsSetCard(0x9b) - and (c:IsType(TYPE_SPELL) or c:IsType(TYPE_TRAP)) -end -function c501001024.thtg1(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingMatchingCard(c501001024.thfilter1,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(tp,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) - Duel.SetOperationInfo(tp,CATEGORY_SEARCH,nil,1,tp,LOCATION_DECK) -end -function c501001024.thop1(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c501001024.thfilter1,tp,LOCATION_DECK,0,nil) - if g:GetCount()>0 then - local tg=g:Select(tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - Duel.ShuffleHand(tp) - end -end -function c501001024.thcon2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return Duel.GetFlagEffect(tp,501001024)==0 - and c:IsReason(REASON_EFFECT) - and not c:IsReason(REASON_RETURN) -end -function c501001024.thcos2(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetFlagEffect(tp,501001024)==0 end - Duel.RegisterFlagEffect(tp,501001024,RESET_PHASE+PHASE_END,0,1) -end -function c501001024.thfilter2(c) - return c:IsAbleToHand() - and c:IsSetCard(0x9b) - and c:IsType(TYPE_MONSTER) - and c:GetCode()~=501001024 -end -function c501001024.thtg2(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingMatchingCard(c501001024.thfilter2,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(tp,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) - Duel.SetOperationInfo(tp,CATEGORY_SEARCH,nil,1,tp,LOCATION_DECK) -end -function c501001024.thop2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c501001024.thfilter2,tp,LOCATION_DECK,0,nil) - if g:GetCount()>0 then - local tg=g:Select(tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - Duel.ShuffleHand(tp) - end -end diff --git a/script/c501001028.lua b/script/c501001028.lua deleted file mode 100644 index 36db2c95..00000000 --- a/script/c501001028.lua +++ /dev/null @@ -1,198 +0,0 @@ ----炎竜星－シュンゲイ -function c501001028.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001028,0)) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CHAIN_UNIQUE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c501001028.spcon) - e1:SetCost(c501001028.spcos) - e1:SetTarget(c501001028.sptg) - e1:SetOperation(c501001028.spop) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001028,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(0,0x1c0+TIMING_MAIN_END+TIMING_BATTLE_END) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c501001028.sccon) - e2:SetTarget(c501001028.sctarg) - e2:SetOperation(c501001028.scop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_BE_MATERIAL) - e3:SetCondition(c501001028.sxcon) - e3:SetOperation(c501001028.sxop) - c:RegisterEffect(e3) -end -function c501001028.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return Duel.GetFlagEffect(tp,501001028)==0 - and c:IsReason(REASON_DESTROY) - and c:GetPreviousControler()==tp - and c:IsPreviousLocation(LOCATION_MZONE) -end -function c501001028.spcos(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetFlagEffect(tp,501001028)==0 end - Duel.RegisterFlagEffect(tp,501001028,RESET_PHASE+PHASE_END,0,1) -end -function c501001028.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and c:GetCode()~=501001028 - and c:IsSetCard(0x9c) -end -function c501001028.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingMatchingCard(c501001028.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c501001028.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c501001028.spfilter,tp,LOCATION_DECK,0,nil,e,tp) - if g:GetCount()>0 then - local tg=g:Select(tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end -function c501001028.sccon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return not e:GetHandler():IsStatus(STATUS_CHAINING) - and Duel.GetTurnPlayer()~=tp - and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_BATTLE or Duel.GetCurrentPhase()==PHASE_MAIN2) - and (Duel.GetCurrentPhase()~=PHASE_DAMAGE or Duel.GetCurrentPhase()~=PHASE_DAMAGE_CAL) -end -function c501001028.sfilter(c) - return c:IsFaceup() - and not c:IsSetCard(0x9c) -end -function c501001028.sctarg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - local mg=Duel.GetMatchingGroup(c501001028.sfilter,tp,LOCATION_MZONE,0,nil) - local sc=mg:GetFirst() - while sc do - -- - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetValue(1) - e1:SetLabelObject(sc) - e1:SetCondition(c501001028.slimit) - e1:SetReset(RESET_EVENT+0x1fe0000) - sc:RegisterEffect(e1) - -- - local flb=sc:GetFlagEffectLabel(sc:GetCode()+100000000) - if flb==nil then - sc:RegisterFlagEffect(sc:GetCode()+100000000,RESET_EVENT+0x1fe0000,0,1,1) - else - sc:SetFlagEffectLabel(sc:GetCode()+100000000,1) - end - -- - sc=mg:GetNext() - end - local frag=Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,nil) - local sc=mg:GetFirst() - while sc do - local flb=sc:GetFlagEffectLabel(sc:GetCode()+100000000) - if flb==nil then - sc:RegisterFlagEffect(sc:GetCode()+100000000,RESET_EVENT+0x1fe0000,0,1,0) - else - sc:SetFlagEffectLabel(sc:GetCode()+100000000,0) - end - -- - sc=mg:GetNext() - end - if chk==0 then return frag end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c501001028.slimit(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local sc=e:GetLabelObject() - return sc:GetFlagEffectLabel(sc:GetCode()+100000000)==1 -end -function c501001028.scop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local mg=Duel.GetMatchingGroup(c501001028.sfilter,tp,LOCATION_MZONE,0,nil) - local sc=mg:GetFirst() - while sc do - -- - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetValue(1) - e1:SetLabelObject(sc) - e1:SetCondition(c501001028.slimit) - e1:SetReset(RESET_EVENT+0x1fe0000) - sc:RegisterEffect(e1) - -- - local flb=sc:GetFlagEffectLabel(sc:GetCode()+100000000) - if flb==nil then - sc:RegisterFlagEffect(sc:GetCode()+100000000,RESET_EVENT+0x1fe0000,0,1,1) - else - sc:SetFlagEffectLabel(sc:GetCode()+100000000,1) - end - -- - sc=mg:GetNext() - end - local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,nil) - if g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:Select(tp,1,1,nil) - Duel.SynchroSummon(tp,sg:GetFirst(),nil) - end - local sc=mg:GetFirst() - while sc do - local flb=sc:GetFlagEffectLabel(sc:GetCode()+100000000) - if flb==nil then - sc:RegisterFlagEffect(sc:GetCode()+100000000,RESET_EVENT+0x1fe0000,0,1,0) - else - sc:SetFlagEffectLabel(sc:GetCode()+100000000,0) - end - -- - sc=mg:GetNext() - end -end -function c501001028.sxcon(e,tp,eg,ep,ev,re,r,rp) - return r==REASON_SYNCHRO -end -function c501001028.sxop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local rc=c:GetReasonCard() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(500) - e1:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - rc:RegisterEffect(e2) - if not rc:IsType(TYPE_EFFECT) - and rc:IsType(TYPE_SYNCHRO) then - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CHANGE_TYPE) - e3:SetValue(TYPE_MONSTER+TYPE_EFFECT+TYPE_SYNCHRO) - e3:SetReset(RESET_EVENT+0x1ff0000) - rc:RegisterEffect(e3) - end -end diff --git a/script/c501001029.lua b/script/c501001029.lua deleted file mode 100644 index 37d02b84..00000000 --- a/script/c501001029.lua +++ /dev/null @@ -1,195 +0,0 @@ ----地竜星－ヘイカン -function c501001029.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001029,0)) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CHAIN_UNIQUE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c501001029.spcon) - e1:SetCost(c501001029.spcos) - e1:SetTarget(c501001029.sptg) - e1:SetOperation(c501001029.spop) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001029,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(0,0x1c0+TIMING_MAIN_END+TIMING_BATTLE_END) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c501001029.sccon) - e2:SetTarget(c501001029.sctarg) - e2:SetOperation(c501001029.scop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_BE_MATERIAL) - e3:SetCondition(c501001029.sxcon) - e3:SetOperation(c501001029.sxop) - c:RegisterEffect(e3) -end -function c501001029.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return Duel.GetFlagEffect(tp,501001029)==0 - and c:IsReason(REASON_DESTROY) - and c:GetPreviousControler()==tp - and c:IsPreviousLocation(LOCATION_MZONE) -end -function c501001029.spcos(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetFlagEffect(tp,501001029)==0 end - Duel.RegisterFlagEffect(tp,501001029,RESET_PHASE+PHASE_END,0,1) -end -function c501001029.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and c:GetCode()~=501001029 - and c:IsSetCard(0x9c) -end -function c501001029.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingMatchingCard(c501001029.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c501001029.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c501001029.spfilter,tp,LOCATION_DECK,0,nil,e,tp) - if g:GetCount()>0 then - local tg=g:Select(tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end -function c501001029.sccon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return not e:GetHandler():IsStatus(STATUS_CHAINING) - and Duel.GetTurnPlayer()~=tp - and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_BATTLE or Duel.GetCurrentPhase()==PHASE_MAIN2) - and (Duel.GetCurrentPhase()~=PHASE_DAMAGE or Duel.GetCurrentPhase()~=PHASE_DAMAGE_CAL) -end -function c501001029.sfilter(c) - return c:IsFaceup() - and not c:IsSetCard(0x9c) -end -function c501001029.sctarg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - local mg=Duel.GetMatchingGroup(c501001029.sfilter,tp,LOCATION_MZONE,0,nil) - local sc=mg:GetFirst() - while sc do - -- - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetValue(1) - e1:SetLabelObject(sc) - e1:SetCondition(c501001029.slimit) - e1:SetReset(RESET_EVENT+0x1fe0000) - sc:RegisterEffect(e1) - -- - local flb=sc:GetFlagEffectLabel(sc:GetCode()+100000000) - if flb==nil then - sc:RegisterFlagEffect(sc:GetCode()+100000000,RESET_EVENT+0x1fe0000,0,1,1) - else - sc:SetFlagEffectLabel(sc:GetCode()+100000000,1) - end - -- - sc=mg:GetNext() - end - local frag=Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,nil) - local sc=mg:GetFirst() - while sc do - local flb=sc:GetFlagEffectLabel(sc:GetCode()+100000000) - if flb==nil then - sc:RegisterFlagEffect(sc:GetCode()+100000000,RESET_EVENT+0x1fe0000,0,1,0) - else - sc:SetFlagEffectLabel(sc:GetCode()+100000000,0) - end - -- - sc=mg:GetNext() - end - if chk==0 then return frag end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c501001029.slimit(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local sc=e:GetLabelObject() - return sc:GetFlagEffectLabel(sc:GetCode()+100000000)==1 -end -function c501001029.scop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local mg=Duel.GetMatchingGroup(c501001029.sfilter,tp,LOCATION_MZONE,0,nil) - local sc=mg:GetFirst() - while sc do - -- - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetValue(1) - e1:SetLabelObject(sc) - e1:SetCondition(c501001029.slimit) - e1:SetReset(RESET_EVENT+0x1fe0000) - sc:RegisterEffect(e1) - -- - local flb=sc:GetFlagEffectLabel(sc:GetCode()+100000000) - if flb==nil then - sc:RegisterFlagEffect(sc:GetCode()+100000000,RESET_EVENT+0x1fe0000,0,1,1) - else - sc:SetFlagEffectLabel(sc:GetCode()+100000000,1) - end - -- - sc=mg:GetNext() - end - local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,nil) - if g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:Select(tp,1,1,nil) - Duel.SynchroSummon(tp,sg:GetFirst(),nil) - end - local sc=mg:GetFirst() - while sc do - local flb=sc:GetFlagEffectLabel(sc:GetCode()+100000000) - if flb==nil then - sc:RegisterFlagEffect(sc:GetCode()+100000000,RESET_EVENT+0x1fe0000,0,1,0) - else - sc:SetFlagEffectLabel(sc:GetCode()+100000000,0) - end - -- - sc=mg:GetNext() - end -end -function c501001029.sxcon(e,tp,eg,ep,ev,re,r,rp) - return r==REASON_SYNCHRO -end -function c501001029.sxop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local rc=c:GetReasonCard() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e1) - if not rc:IsType(TYPE_EFFECT) - and rc:IsType(TYPE_SYNCHRO) then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CHANGE_TYPE) - e2:SetValue(TYPE_MONSTER+TYPE_EFFECT+TYPE_SYNCHRO) - e2:SetReset(RESET_EVENT+0x1ff0000) - rc:RegisterEffect(e2) - end -end diff --git a/script/c501001032.lua b/script/c501001032.lua deleted file mode 100644 index 26fb58d3..00000000 --- a/script/c501001032.lua +++ /dev/null @@ -1,109 +0,0 @@ ----光竜星－リフン -function c501001032.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001032,0)) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CHAIN_UNIQUE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c501001032.spcon) - e1:SetCost(c501001032.spcos) - e1:SetTarget(c501001032.sptg) - e1:SetOperation(c501001032.spop) - c:RegisterEffect(e1) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001032,0)) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CHAIN_UNIQUE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c501001032.condition) - e1:SetCost(c501001032.cost) - e1:SetTarget(c501001032.target) - e1:SetOperation(c501001032.operation) - c:RegisterEffect(e1) -end -function c501001032.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return Duel.GetFlagEffect(tp,501001032)==0 - and c:IsReason(REASON_DESTROY) - and c:GetPreviousControler()==tp - and c:IsPreviousLocation(LOCATION_MZONE) -end -function c501001032.spcos(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetFlagEffect(tp,501001032)==0 end - Duel.RegisterFlagEffect(tp,501001032,RESET_PHASE+PHASE_END,0,1) -end -function c501001032.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and c:GetCode()~=501001032 - and c:IsSetCard(0x9c) -end -function c501001032.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingMatchingCard(c501001032.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c501001032.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c501001032.spfilter,tp,LOCATION_DECK,0,nil,e,tp) - if g:GetCount()>0 then - local tg=g:Select(tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end -function c501001032.filter1(c,tp) - return c:GetPreviousControler()==tp - and c:IsReason(REASON_DESTROY) - and c:IsPreviousLocation(LOCATION_MZONE) - and c:IsSetCard(0x9c) -end -function c501001032.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return Duel.GetFlagEffect(tp,501001032)==0 - and eg:IsExists(c501001032.filter1,1,nil,tp) -end -function c501001032.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetFlagEffect(tp,501001032)==0 end - Duel.RegisterFlagEffect(tp,501001032,RESET_PHASE+PHASE_END,0,1) -end -function c501001032.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - end - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,c,1,tp,LOCATION_GRAVE) -end -function c501001032.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(e:GetHandler():GetControler(),LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - local tp=c:GetControler() - if c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then - if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then - --redirect - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) - e1:SetCondition(c501001032.recon) - e1:SetValue(LOCATION_REMOVED) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end - end -end -function c501001032.recon(e) - return e:GetHandler():IsFaceup() -end diff --git a/script/c501001033.lua b/script/c501001033.lua deleted file mode 100644 index 9cd56111..00000000 --- a/script/c501001033.lua +++ /dev/null @@ -1,65 +0,0 @@ ---アーティファクト－チャクラム -function c501001033.initial_effect(c) ---set - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_MONSTER_SSET) - e1:SetValue(TYPE_SPELL) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001033,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c501001033.spcon) - e2:SetTarget(c501001033.sptg) - e2:SetOperation(c501001033.spop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e3:SetRange(LOCATION_HAND) - e3:SetCode(EVENT_CHAINING) - e3:SetCondition(c501001033.condition) - e3:SetCost(c501001033.cost) - e3:SetTarget(c501001033.sptg) - e3:SetOperation(c501001033.spop2) - c:RegisterEffect(e3) -end -function c501001033.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_SZONE) and c:IsPreviousPosition(POS_FACEDOWN) - and c:IsReason(REASON_DESTROY) and Duel.GetTurnPlayer()~=tp -end -function c501001033.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c501001033.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) - end -end -function c501001033.cfilter(c,tp) - return c:IsOnField() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsControler(tp) -end -function c501001033.condition(e,tp,eg,ep,ev,re,r,rp) - local ex,tg,tc=Duel.GetOperationInfo(ev,CATEGORY_DESTROY) - return ex and tg~=nil and tc+tg:FilterCount(c501001033.cfilter,nil,tp)-tg:GetCount()>0 -end -function c501001033.filter(c,tp) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHandAsCost() and c:IsFacedown() -end -function c501001033.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c501001033.filter,tp,LOCATION_ONFIELD,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectMatchingCard(tp,c501001033.filter,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.SendtoHand(g,nil,REASON_COST) -end -function c501001033.spop2(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) and e:GetHandler():IsLocation(LOCATION_HAND) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c501001034.lua b/script/c501001034.lua deleted file mode 100644 index a03e73e5..00000000 --- a/script/c501001034.lua +++ /dev/null @@ -1,60 +0,0 @@ ---アーティファクト－ロンギヌス -function c501001034.initial_effect(c) ---set - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_MONSTER_SSET) - e1:SetValue(TYPE_SPELL) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001034,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c501001034.spcon) - e2:SetTarget(c501001034.sptg) - e2:SetOperation(c501001034.spop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(501001034,1)) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetRange(LOCATION_MZONE+LOCATION_HAND) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetCondition(c501001034.condition) - e3:SetCost(c501001034.cost) - e3:SetOperation(c501001034.operation) - c:RegisterEffect(e3) -end -function c501001034.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_SZONE) and c:IsPreviousPosition(POS_FACEDOWN) - and c:IsReason(REASON_DESTROY) and Duel.GetTurnPlayer()~=tp -end -function c501001034.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c501001034.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) - end -end -function c501001034.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c501001034.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c501001034.operation(e,tp,eg,ep,ev,re,r,rp) - --cannot remove - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_REMOVE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,1) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end \ No newline at end of file diff --git a/script/c501001035.lua b/script/c501001035.lua deleted file mode 100644 index dcc7e9ee..00000000 --- a/script/c501001035.lua +++ /dev/null @@ -1,66 +0,0 @@ ----デーモン・イーター -function c501001035.initial_effect(c) - c:SetUniqueOnField(1,0,501001035) - -- - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c501001035.spcon) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001035,0)) - e2:SetProperty(EFFECT_FLAG_REPEAT) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetRange(LOCATION_GRAVE) - e2:SetCountLimit(1) - e2:SetCondition(c501001035.condition) - e2:SetTarget(c501001035.target) - e2:SetOperation(c501001035.operation) - c:RegisterEffect(e2) -end -function c501001035.sfilter(c) - return c:IsFaceup() - and c:IsRace(RACE_SPELLCASTER) -end -function c501001035.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c501001035.sfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c501001035.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return Duel.GetTurnPlayer()~=tp -end -function c501001035.filter(c) - return c:IsDestructable() - and c:IsFaceup() -end -function c501001035.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingTarget(c501001035.filter,tp,LOCATION_MZONE,0,1,nil) - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - end - local g=Duel.SelectTarget(tp,c501001035.filter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(tp,CATEGORY_DESTROY,g,1,tp,LOCATION_MZONE) - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,c,1,tp,LOCATION_GRAVE) -end -function c501001035.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then - if Duel.Destroy(tc,REASON_EFFECT)~=0 then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end - end -end diff --git a/script/c501001036.lua b/script/c501001036.lua deleted file mode 100644 index 698dd0f8..00000000 --- a/script/c501001036.lua +++ /dev/null @@ -1,59 +0,0 @@ ----死の代行者 ウラヌス -function c501001036.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c501001036.ssrcon) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001036,0)) - e2:SetCategory(CATEGORY_TOGRAVE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c501001036.target) - e2:SetOperation(c501001036.operation) - c:RegisterEffect(e2) -end -function c501001036.ssrfilter(c) - return c:IsFaceup() - and c:IsCode(56433456) -end -function c501001036.ssrcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c501001036.ssrfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) -end -function c501001036.filter(c) - return c:IsAbleToGrave() - and c:IsSetCard(0x44) -end -function c501001036.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingMatchingCard(c501001036.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(tp,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c501001036.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c501001036.filter,tp,LOCATION_DECK,0,nil) - if g:GetCount()>0 then - local tg=g:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if Duel.SendtoGrave(tc,REASON_EFFECT)~=0 then - local lv=tc:GetLevel() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(lv) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end - end -end diff --git a/script/c501001040.lua b/script/c501001040.lua deleted file mode 100644 index 549ca851..00000000 --- a/script/c501001040.lua +++ /dev/null @@ -1,111 +0,0 @@ ----黒魔導戦士 ブレイカー -function c501001040.initial_effect(c) - c:EnableCounterPermit(0x3001) - --summon success - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001040,0)) - e1:SetCategory(CATEGORY_COUNTER) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c501001040.addct) - e1:SetOperation(c501001040.addc) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001040,0)) - e2:SetCategory(CATEGORY_COUNTER) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c501001040.addcon) - e2:SetTarget(c501001040.addtg) - e2:SetOperation(c501001040.addop) - c:RegisterEffect(e2) - --attackup - local e3=Effect.CreateEffect(c) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetValue(c501001040.attackup) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(501001040,2)) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_MZONE) - e4:SetCondition(c501001040.descon) - e4:SetCost(c501001040.descost) - e4:SetTarget(c501001040.destg) - e4:SetOperation(c501001040.desop) - c:RegisterEffect(e4) -end -function c501001040.addct(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0x3001) -end -function c501001040.addc(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - if c:IsRelateToEffect(e) then - c:AddCounter(0x3001,2) - end -end -function c501001040.filter(c) - return c:IsFaceup() -end -function c501001040.addcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return c:GetSummonType()==SUMMON_TYPE_PENDULUM -end -function c501001040.addtg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,3,0,0x3001) -end -function c501001040.addop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - if c:IsRelateToEffect(e) then - c:AddCounter(0x3001,3) - end -end -function c501001040.attackup(e,c) - return c:GetCounter(0x3001)*400 -end -function c501001040.descon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return Duel.GetFlagEffect(tp,501001040)==0 -end -function c501001040.descost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetFlagEffect(tp,501001040)==0 - and c:IsCanRemoveCounter(tp,0x3001,1,REASON_COST) - end - c:RemoveCounter(tp,0x3001,1,REASON_COST) - Duel.RegisterFlagEffect(tp,501001040,RESET_PHASE+PHASE_END,0,1) -end -function c501001040.desfilter(c) - return c:IsDestructable() - and c:IsType(TYPE_SPELL+TYPE_TRAP) -end -function c501001040.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingTarget(c501001040.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - local g=Duel.SelectTarget(tp,c501001040.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,tp,LOCATION_ONFIELD) -end -function c501001040.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c501001041.lua b/script/c501001041.lua deleted file mode 100644 index 0c6cb48f..00000000 --- a/script/c501001041.lua +++ /dev/null @@ -1,122 +0,0 @@ ----烈風帝ライザー -function c501001041.initial_effect(c) - --summon with 1 tribute - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001041,0)) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetCondition(c501001041.otcon) - e1:SetOperation(c501001041.otop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_PROC) - c:RegisterEffect(e2) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001041,1)) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCategory(CATEGORY_TODECK+CATEGORY_LEAVE_GRAVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetCondition(c501001041.tdcon) - e2:SetTarget(c501001041.tdtg) - e2:SetOperation(c501001041.tdop) - c:RegisterEffect(e2) -end -function c501001041.otfilter(c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE -end -function c501001041.otcon(e,c) - if c==nil then return true end - local g=Duel.GetTributeGroup(c) - return c:GetLevel()>6 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 - and g:IsExists(c501001041.otfilter,1,nil) -end -function c501001041.otop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.GetTributeGroup(c) - local sg=g:FilterSelect(tp,c501001041.otfilter,1,1,nil) - c:SetMaterial(sg) - Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL) -end -function c501001041.tdcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return c:GetSummonType()==SUMMON_TYPE_ADVANCE -end -function c501001041.tdfilter(c) - return c:IsAbleToDeck() -end -function c501001041.thfilter(c) - return c:IsAbleToHand() -end -function c501001041.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingTarget(c501001041.tdfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - and Duel.IsExistingTarget(c501001041.tdfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil) - end - local g=Group.CreateGroup() - local g1=Duel.SelectMatchingCard(tp,c501001041.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - local g2=Duel.SelectMatchingCard(tp,c501001041.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil) - g:Merge(g1) - g:Merge(g2) - e:SetLabel(0) - local mg=c:GetMaterial() - if mg:IsExists(Card.IsAttribute,1,nil,ATTRIBUTE_WIND) - and Duel.IsExistingTarget(c501001041.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) then - if Duel.SelectYesNo(tp,aux.Stringid(501001041,2)) then - local g3=Duel.SelectMatchingCard(tp,c501001041.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - g:Merge(g3) - e:SetLabelObject(g3:GetFirst()) - e:SetLabel(1) - e:SetCategory(CATEGORY_TODECK+CATEGORY_LEAVE_GRAVE+CATEGORY_TOHAND) - end - end - Duel.SetTargetCard(g) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g1,1,tp,LOCATION_ONFIELD) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g2,1,tp,LOCATION_GRAVE) - if e:GetLabel()==1 then - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g3,1,tp,LOCATION_ONFIELD) - end -end -function c501001041.tdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local fg=tg:Filter(Card.IsRelateToEffect,nil,e) - if e:GetLabel()==0 then - if fg:GetCount()>0 then - Duel.SendtoDeck(fg,nil,0,REASON_EFFECT) - if fg:GetCount()==2 then - local sc1=fg:GetFirst() - local sc2=fg:GetNext() - if sc1:GetOwner()==sc2:GetOwner() and sc1:GetLocation()==LOCATION_DECK and sc2:GetLocation()==LOCATION_DECK then - Duel.SortDecktop(sc1:GetOwner(),sc1:GetOwner(),2) - end - end - end - else - local tc=e:GetLabelObject() - local g=Group.CreateGroup() - if fg:IsContains(tc) then - g:AddCard(tc) - fg:RemoveCard(tc) - end - if fg:GetCount()>0 then - Duel.SendtoDeck(fg,nil,0,REASON_EFFECT) - if fg:GetCount()==2 then - local sc1=fg:GetFirst() - local sc2=fg:GetNext() - if sc1:GetOwner()==sc2:GetOwner() and sc1:GetLocation()==LOCATION_DECK and sc2:GetLocation()==LOCATION_DECK then - Duel.SortDecktop(sc1:GetOwner(),sc1:GetOwner(),2) - end - end - end - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - end - end -end diff --git a/script/c501001047.lua b/script/c501001047.lua deleted file mode 100644 index b2036d05..00000000 --- a/script/c501001047.lua +++ /dev/null @@ -1,104 +0,0 @@ ----ワイトプリンス -function c501001047.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_CODE) - e1:SetRange(LOCATION_GRAVE) - e1:SetValue(32274490) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001047,0)) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCategory(CATEGORY_TOGRAVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c501001047.tgcon) - e2:SetTarget(c501001047.tgtg) - e2:SetOperation(c501001047.tgop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(501001047,1)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_GRAVE) - e3:SetCost(c501001047.spcos) - e3:SetTarget(c501001047.sptg) - e3:SetOperation(c501001047.spop) - c:RegisterEffect(e3) -end -function c501001047.tgcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return not c:IsReason(REASON_RETURN) -end -function c501001047.tgfilter1(c) - return c:IsAbleToGrave() - and c:IsCode(32274490) -end -function c501001047.tgfilter2(c) - return c:IsAbleToGrave() - and c:IsCode(40991587) -end -function c501001047.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingMatchingCard(c501001047.tgfilter1,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) - and Duel.IsExistingMatchingCard(c501001047.tgfilter2,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) - end - Duel.SetOperationInfo(tp,CATEGORY_TOGRAVE,nil,2,tp,LOCATION_HAND+LOCATION_DECK) -end -function c501001047.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local g1=Duel.GetMatchingGroup(c501001047.tgfilter1,tp,LOCATION_HAND+LOCATION_DECK,0,nil) - local g2=Duel.GetMatchingGroup(c501001047.tgfilter2,tp,LOCATION_HAND+LOCATION_DECK,0,nil) - if g1:GetCount()>0 and g2:GetCount()>0 then - local tg1=g1:Select(tp,1,1,nil) - local tg2=g2:Select(tp,1,1,nil) - local tg=Group.CreateGroup() - tg:Merge(tg1) - tg:Merge(tg2) - Duel.SendtoGrave(tg,REASON_EFFECT) - end -end -function c501001047.spcfilter(c) - return c:IsAbleToRemoveAsCost() - and c:IsCode(32274490) -end -function c501001047.spcos(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingMatchingCard(c501001047.spcfilter,tp,LOCATION_GRAVE,0,2,c) - and c:IsAbleToRemoveAsCost() - end - local g=Duel.SelectMatchingCard(tp,c501001047.spcfilter,tp,LOCATION_GRAVE,0,2,2,c) - g:AddCard(c) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c501001047.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and c:IsCode(36021814) -end -function c501001047.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c501001047.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) - end - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c501001047.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(e:GetHandler():GetControler(),LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c501001047.spfilter,tp,LOCATION_DECK,0,nil,e,tp) - if g:GetCount()>0 then - local tg=g:Select(tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c501001048.lua b/script/c501001048.lua deleted file mode 100644 index 0f6fb606..00000000 --- a/script/c501001048.lua +++ /dev/null @@ -1,121 +0,0 @@ ----エルシャドール・ミドラーシュ -function c501001048.initial_effect(c) - -- - aux.AddFusionProcFun2(c,aux.FilterBoolFunction(c501001048.fumfilter1) - ,aux.FilterBoolFunction(c501001048.fumfilter2) - ,true) - c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c501001048.splimit) - c:RegisterEffect(e1) - --indestructable - local e3=Effect.CreateEffect(c) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e3:SetRange(LOCATION_MZONE) - e3:SetValue(c501001048.indval) - c:RegisterEffect(e3) - --disable summon - local e4=Effect.CreateEffect(c) - e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e4:SetRange(LOCATION_MZONE) - e4:SetTargetRange(1,1) - e4:SetTarget(c501001048.tg) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD) - e5:SetRange(LOCATION_SZONE) - e5:SetCode(501001048) - e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e5:SetTargetRange(1,1) - c:RegisterEffect(e5) - -- - local e6=Effect.CreateEffect(c) - e6:SetDescription(aux.Stringid(501001048,0)) - e6:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e6:SetCategory(CATEGORY_TOHAND) - e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e6:SetCode(EVENT_TO_GRAVE) - e6:SetTarget(c501001048.thtg) - e6:SetOperation(c501001048.thop) - c:RegisterEffect(e6) - if not c501001048.global_check then - c501001048.global_check=true - c501001048[0]=0 - c501001048[1]=0 - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_SPSUMMON_SUCCESS) - ge1:SetOperation(c501001048.checkop) - Duel.RegisterEffect(ge1,0) - local ge2=Effect.CreateEffect(c) - ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW) - ge2:SetOperation(c501001048.clear) - Duel.RegisterEffect(ge2,0) - end -end -function c501001048.fumfilter1(c) - return c:IsCanBeFusionMaterial() - and c:IsSetCard(0x9b) -end -function c501001048.fumfilter2(c) - return c:IsCanBeFusionMaterial() - and (c:IsAttribute(ATTRIBUTE_DARK) - or (c:IsCode(501001073) and c:GetFlagEffect(c:GetCode())==1) - ) -end -function c501001048.splimit(e,se,sp,st) - local c=e:GetHandler() - return not c:IsLocation(LOCATION_EXTRA) - or bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c501001048.indval(e,re,tp) - return e:GetHandler():GetControler()~=tp -end -function c501001048.tg(e,sc,sp,st) - return c501001048[sp]>=1 -end -function c501001048.checkop(e,tp,eg,ep,ev,re,r,rp) - local s1=false - local s2=false - local tc=eg:GetFirst() - while tc do - if tc:GetSummonPlayer()==0 then s1=true - else s2=true end - tc=eg:GetNext() - end - if s1 then c501001048[0]=c501001048[0]+1 end - if s2 then c501001048[1]=c501001048[1]+1 end -end -function c501001048.clear(e,tp,eg,ep,ev,re,r,rp) - c501001048[0]=0 - c501001048[1]=0 -end -function c501001048.thfilter(c) - return c:IsAbleToHand() - and c:IsSetCard(0x9b) - and (c:IsType(TYPE_SPELL) or c:IsType(TYPE_TRAP)) -end -function c501001048.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingTarget(c501001048.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - local g=Duel.SelectTarget(tp,c501001048.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,tp,LOCATION_GRAVE) -end -function c501001048.thop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - Duel.ShuffleHand(tp) - end -end diff --git a/script/c501001049.lua b/script/c501001049.lua deleted file mode 100644 index 2732317b..00000000 --- a/script/c501001049.lua +++ /dev/null @@ -1,116 +0,0 @@ ----エルシャドール・ネフィリム -function c501001049.initial_effect(c) - -- - aux.AddFusionProcFun2(c,aux.FilterBoolFunction(c501001049.fumfilter1) - ,aux.FilterBoolFunction(c501001049.fumfilter2) - ,true) - c:EnableReviveLimit() - -- - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c501001049.splimit) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001049,0)) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCategory(CATEGORY_TOGRAVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetTarget(c501001049.tgtg) - e2:SetOperation(c501001049.tgop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(26593852,1)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_BATTLE_START) - e3:SetTarget(c501001049.destg) - e3:SetOperation(c501001049.desop) - c:RegisterEffect(e3) - -- - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(501001049,2)) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e4:SetCategory(CATEGORY_TOHAND) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetTarget(c501001049.thtg) - e4:SetOperation(c501001049.thop) - c:RegisterEffect(e4) -end -function c501001049.fumfilter1(c) - return c:IsCanBeFusionMaterial() - and c:IsSetCard(0x9b) -end -function c501001049.fumfilter2(c) - return c:IsCanBeFusionMaterial() - and (c:IsAttribute(ATTRIBUTE_LIGHT) - or (c:IsCode(501001073) and c:GetFlagEffect(c:GetCode())==1) - ) -end -function c501001049.splimit(e,se,sp,st) - local c=e:GetHandler() - return not c:IsLocation(LOCATION_EXTRA) - or bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c501001049.tgfilter(c) - return c:IsAbleToGrave() - and c:IsSetCard(0x9b) -end -function c501001049.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingMatchingCard(c501001049.tgfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(tp,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c501001049.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c501001049.tgfilter,tp,LOCATION_DECK,0,nil) - if g:GetCount()>0 then - local tg=g:Select(tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SendtoGrave(tc,REASON_EFFECT) - end -end -function c501001049.destg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - local a=Duel.GetAttacker() - local t=Duel.GetAttackTarget() - if a==c then tc=t else tc=a end - if chk==0 then return tc and bit.band(tc:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL end - Duel.SetOperationInfo(tp,CATEGORY_DESTROY,tc,1,tp,LOCATION_MZONE) -end -function c501001049.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local a=Duel.GetAttacker() - local t=Duel.GetAttackTarget() - if a==c then tc=t else tc=a end - if tc:IsRelateToBattle() then Duel.Destroy(tc,REASON_EFFECT) end -end -function c501001049.thfilter(c) - return c:IsAbleToHand() - and c:IsSetCard(0x9b) - and (c:IsType(TYPE_SPELL) or c:IsType(TYPE_TRAP)) -end -function c501001049.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingTarget(c501001049.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - local g=Duel.SelectTarget(tp,c501001049.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,tp,LOCATION_GRAVE) -end -function c501001049.thop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - Duel.ShuffleHand(tp) - end -end diff --git a/script/c501001050.lua b/script/c501001050.lua deleted file mode 100644 index 58bdad65..00000000 --- a/script/c501001050.lua +++ /dev/null @@ -1,79 +0,0 @@ ---森羅の鎮神 オレイア -function c501001050.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,7),2) - c:EnableReviveLimit() - --announce - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001050,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c501001050.cost) - e1:SetTarget(c501001050.target) - e1:SetOperation(c501001050.operation) - c:RegisterEffect(e1) - --deck - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001050,2)) - e2:SetCategory(CATEGORY_TOGRAVE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c501001050.tdcost) - e2:SetTarget(c501001050.tdtarget) - e2:SetOperation(c501001050.tdoperation) - c:RegisterEffect(e2) -end -function c501001050.cfilter(c) - return c:IsRace(RACE_PLANT) and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsAbleToGraveAsCost() -end -function c501001050.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c501001050.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c501001050.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil) - if g:GetFirst():GetLevel()>0 then e:SetLabel(g:GetFirst():GetLevel()) end - Duel.SendtoGrave(g,REASON_COST) -end -function c501001050.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>e:GetLabel() end -end -function c501001050.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.SortDecktop(tp,tp,e:GetLabel()) -end -function c501001050.tdcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c501001050.tdtarget(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end -end -function c501001050.tdoperation(e,tp,eg,ep,ev,re,r,rp) - local ct=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0) - if ct==0 then return end - if ct>3 then ct=3 end - local t={} - for i=1,ct do t[i]=i end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(501001050,1)) - local ac=Duel.AnnounceNumber(tp,table.unpack(t)) - Duel.ConfirmDecktop(tp,ac) - local g=Duel.GetDecktopGroup(tp,ac) - local sg=g:Filter(Card.IsRace,nil,RACE_PLANT) - if sg:GetCount()>0 then - Duel.DisableShuffleCheck() - Duel.SendtoGrave(sg,REASON_EFFECT+REASON_REVEAL) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOHAND) - local rg=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,0,sg:GetCount(),sg:GetCount(),nil) - Duel.HintSelection(rg) - Duel.SendtoHand(rg,nil,REASON_EFFECT) - end - ac=ac-sg:GetCount() - if ac>0 then - Duel.SortDecktop(tp,tp,ac) - for i=1,ac do - local mg=Duel.GetDecktopGroup(tp,1) - Duel.MoveSequence(mg:GetFirst(),1) - end - end -end - diff --git a/script/c501001051.lua b/script/c501001051.lua deleted file mode 100644 index a43cdf91..00000000 --- a/script/c501001051.lua +++ /dev/null @@ -1,108 +0,0 @@ ----輝竜星－ショウフク -function c501001051.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(c501001051.syctfilter) - ,aux.FilterBoolFunction(c501001051.sycmfilter),1) - c:EnableReviveLimit() - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001051,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_TODECK) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c501001051.con) - e1:SetTarget(c501001051.tg) - e1:SetOperation(c501001051.op) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001051,1)) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON+CATEGORY_LEAVE_GRAVE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c501001051.target) - e2:SetOperation(c501001051.operation) - c:RegisterEffect(e2) -end -function c501001051.syctfilter(c) - return c:IsType(TYPE_TUNER) -end -function c501001051.sycmfilter(c) - return not c:IsType(TYPE_TUNER) - and c:IsSetCard(0x9c) -end -function c501001051.con(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return c:GetSummonType()==SUMMON_TYPE_SYNCHRO -end -function c501001051.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - local mc=c:GetMaterial() - local fg=mc:Filter(Card.IsSetCard,nil,0x9c) - local gs=fg:GetClassCount(Card.GetOriginalAttribute) - local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,gs,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,LOCATION_ONFIELD) -end -function c501001051.op(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - Duel.SendtoDeck(sg,nil,2,REASON_EFFECT) -end -function c501001051.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and c:GetLevel()<=4 -end -function c501001051.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ct<=0 then - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingTarget(c501001051.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) - end - else - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,nil) - and Duel.IsExistingTarget(c501001051.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) - end - end - if ct<=0 then - g1=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_MZONE,0,1,1,nil) - else - g1=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,1,nil) - end - local g2=Duel.SelectMatchingCard(tp,c501001051.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - e:SetLabelObject(g2:GetFirst()) - local g=Group.CreateGroup() - g:Merge(g1) - g:Merge(g2) - Duel.SetTargetCard(g) - Duel.SetOperationInfo(tp,CATEGORY_DESTROY,g1,1,tp,LOCATION_ONFIELD) - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,g2,1,tp,LOCATION_GRAVE) - Duel.SetOperationInfo(tp,CATEGORY_LEAVE_GRAVE,g2,1,tp,LOCATION_GRAVE) -end -function c501001051.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) - local tg=Duel.GetChainInfo(tp,CHAININFO_TARGET_CARDS) - local fg=tg:Filter(Card.IsRelateToEffect,nil,e) - if fg:GetCount()==2 then - local tc2=e:GetLabelObject() - fg:RemoveCard(tc2) - local tc1=fg:GetFirst() - if ct<=0 and tc1:GetLocation()~=LOCATION_MZONE then return end - if tc1:IsDestructable() and tc2:IsCanBeSpecialSummoned(e,0,tp,false,false) then - if Duel.Destroy(tc1,REASON_EFFECT)~=0 then - Duel.SpecialSummon(tc2,0,tp,tp,false,false,POS_FACEUP) - end - end - end -end diff --git a/script/c501001052.lua b/script/c501001052.lua deleted file mode 100644 index 4c3fb3e9..00000000 --- a/script/c501001052.lua +++ /dev/null @@ -1,37 +0,0 @@ ---転生竜サンサーラ -function c501001052.initial_effect(c) - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c501001052.retcon) - e1:SetTarget(c501001052.target) - e1:SetOperation(c501001052.activate) - c:RegisterEffect(e1) -end -function c501001052.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return ((c:IsReason(REASON_EFFECT) and not c:IsReason(REASON_RETURN)) or c:IsReason(REASON_BATTLE)) - and rp~=tp and c:GetPreviousControler()==tp -end -function c501001052.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c501001052.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c501001052.filter(chkc,e,tp) end - if chk==0 then return Duel.GetFlagEffect(tp,501001052)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c501001052.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c501001052.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp) - Duel.RegisterFlagEffect(tp,501001052,RESET_PHASE+PHASE_END,0,1) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c501001052.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c501001053.lua b/script/c501001053.lua deleted file mode 100644 index f2d90ad9..00000000 --- a/script/c501001053.lua +++ /dev/null @@ -1,85 +0,0 @@ ---星輝士 デルタテロス -function c501001053.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,4),3) - c:EnableReviveLimit() - --summon success - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c501001053.sumcon) - e1:SetOperation(c501001053.sumsuc) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c501001053.cost) - e3:SetTarget(c501001053.target) - e3:SetOperation(c501001053.operation) - c:RegisterEffect(e3) - -- - local e4=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetCondition(c501001053.drcon) - e4:SetTarget(c501001053.drtg) - e4:SetOperation(c501001053.drop) - c:RegisterEffect(e4) -end -function c501001053.sumcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetOverlayCount()~=0 and ep==tp -end -function c501001053.sumsuc(e,tp,eg,ep,ev,re,r,rp) - Duel.SetChainLimitTillChainEnd(c501001053.efun) -end -function c501001053.efun(e,ep,tp) - return ep==tp -end -function c501001053.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c501001053.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c501001053.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c501001053.drcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) -end -function c501001053.filter(c,e,tp) - return c:IsSetCard(0x9a) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c501001053.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c501001053.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c501001053.drop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c501001053.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end - end -end \ No newline at end of file diff --git a/script/c501001055.lua b/script/c501001055.lua deleted file mode 100644 index 4b795706..00000000 --- a/script/c501001055.lua +++ /dev/null @@ -1,67 +0,0 @@ ----カバーカーニバル -function c501001055.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetTarget(c501001055.target) - e1:SetOperation(c501001055.activate) - c:RegisterEffect(e1) -end -function c501001055.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>=3 - and Duel.IsPlayerCanSpecialSummonMonster(tp,501001091,0,0x4011,0,0,1,RACE_BEAST,ATTRIBUTE_EARTH) - end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,3,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,0) -end -function c501001055.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)>=3 - and Duel.IsPlayerCanSpecialSummonMonster(tp,501001091,0,0x4011,0,0,1,RACE_BEAST,ATTRIBUTE_EARTH) then - for i=1,3 do - local token=Duel.CreateToken(tp,501001091) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - -- - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UNRELEASABLE_SUM) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000) - token:RegisterEffect(e1,true) - local e2=e1:Clone() - e2:SetCode(EFFECT_UNRELEASABLE_NONSUM) - token:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(1,0) - e3:SetTarget(c501001055.splimit) - token:RegisterEffect(e3) - end - Duel.SpecialSummonComplete() - end - -- - local ge1=Effect.CreateEffect(e:GetHandler()) - ge1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - ge1:SetType(EFFECT_TYPE_FIELD) - ge1:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - ge1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - ge1:SetTarget(c501001055.bctg) - ge1:SetValue(1) - ge1:SetReset(RESET_PHASE+PHASE_END,1) - Duel.RegisterEffect(ge1,tp) -end -function c501001055.splimit(e,c) - return c:IsLocation(LOCATION_EXTRA) -end -function c501001055.bctg(e,c) - return not c:IsCode(501001091) -end diff --git a/script/c501001057.lua b/script/c501001057.lua deleted file mode 100644 index e79801e1..00000000 --- a/script/c501001057.lua +++ /dev/null @@ -1,46 +0,0 @@ ---銀河の施し -function c501001057.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c501001057.condition) - e1:SetCost(c501001057.cost) - e1:SetTarget(c501001057.target) - e1:SetOperation(c501001057.activate) - c:RegisterEffect(e1) -end -function c501001057.filter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) and (c:IsSetCard(0x7b) or c:IsCode(1040)) -end -function c501001057.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c501001057.filter,tp,LOCATION_MZONE,0,1,nil) -end -function c501001057.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,501001057)==0 and Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD,nil) - Duel.RegisterFlagEffect(tp,501001057,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(0,1) - e1:SetValue(c501001057.damval) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c501001057.damval(e,re,val,r,rp,rc) - return val/2 -end -function c501001057.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c501001057.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c501001058.lua b/script/c501001058.lua deleted file mode 100644 index 45a599d1..00000000 --- a/script/c501001058.lua +++ /dev/null @@ -1,53 +0,0 @@ ---天架ける星因士 -function c501001058.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c501001058.cost) - e1:SetTarget(c501001058.target) - e1:SetOperation(c501001058.activate) - c:RegisterEffect(e1) -end -function c501001058.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,501001058)==0 end - Duel.RegisterFlagEffect(tp,501001058,RESET_PHASE+PHASE_END,0,1) -end -function c501001058.cfilter(c,e,tp) - return c:IsFaceup() and c:IsSetCard(0x9a) - and Duel.IsExistingMatchingCard(c501001058.spfilter,tp,LOCATION_DECK,0,1,nil,c:GetCode(),e,tp) -end -function c501001058.spfilter(c,code,e,tp) - return c:GetCode()~=code and c:IsSetCard(0x9a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c501001058.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c501001058.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c501001058.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c501001058.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c501001058.spfilter,tp,LOCATION_DECK,0,1,1,nil,tc:GetCode(),e,tp) - if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)>0 then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetTargetRange(1,0) - e1:SetTarget(c501001058.splimit) - g:GetFirst():RegisterEffect(e1) - Duel.BreakEffect() - Duel.SendtoDeck(tc,nil,2,REASON_EFFECT) - end -end -function c501001058.splimit(e,c) - return not c:IsSetCard(0x9a) -end diff --git a/script/c501001059.lua b/script/c501001059.lua deleted file mode 100644 index 6d8044cb..00000000 --- a/script/c501001059.lua +++ /dev/null @@ -1,105 +0,0 @@ ----影依融合 -function c501001059.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c501001059.condition) - e1:SetCost(c501001059.cost) - e1:SetTarget(c501001059.target) - e1:SetOperation(c501001059.activate) - c:RegisterEffect(e1) -end -function c501001059.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return Duel.GetFlagEffect(tp,501001059)==0 -end -function c501001059.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetFlagEffect(tp,501001059)==0 end - Duel.RegisterFlagEffect(tp,501001059,RESET_PHASE+PHASE_END,0,1) -end -function c501001059.filter0(c,e) - return c:IsPreviousLocation(LOCATION_EXTRA) - and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c501001059.filter1(c,e) - return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) -end -function c501001059.filter2(c,e,tp,m,f,chkf) - return c:IsType(TYPE_FUSION) - and (not f or f(c)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) - and c:CheckFusionMaterial(m,nil,chkf) - and c:IsSetCard(0x9b) -end -function c501001059.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Group.CreateGroup() - if Duel.IsExistingMatchingCard(c501001059.filter0,tp,0,LOCATION_MZONE,1,nil) then - mg=Duel.GetMatchingGroup(c501001059.filter1,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_DECK,0,nil,e) - mg1:Merge(mg) - else - mg=Duel.GetMatchingGroup(c501001059.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) - mg1:Merge(mg) - end - local res=Duel.IsExistingMatchingCard(c501001059.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - res=Duel.IsExistingMatchingCard(c501001059.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c501001059.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Group.CreateGroup() - if Duel.IsExistingMatchingCard(c501001059.filter0,tp,0,LOCATION_MZONE,1,nil) then - mg=Duel.GetMatchingGroup(c501001059.filter1,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_DECK,0,nil,e) - mg1:Merge(mg) - else - mg=Duel.GetMatchingGroup(c501001059.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) - mg1:Merge(mg) - end - local sg1=Duel.GetMatchingGroup(c501001059.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - sg2=Duel.GetMatchingGroup(c501001059.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end diff --git a/script/c501001071.lua b/script/c501001071.lua deleted file mode 100644 index 921c908a..00000000 --- a/script/c501001071.lua +++ /dev/null @@ -1,42 +0,0 @@ ---神星なる因子 -function c501001071.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c501001071.condition) - e1:SetCost(c501001071.cost) - e1:SetTarget(c501001071.target) - e1:SetOperation(c501001071.activate) - c:RegisterEffect(e1) -end -function c501001071.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsChainNegatable(ev) - and (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) -end -function c501001071.cfilter(c) - return c:IsAbleToGraveAsCost() - and c:IsFaceup() - and c:IsSetCard(0x9a) -end -function c501001071.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c501001071.cfilter,tp,LOCATION_MZONE,0,1,nil) end - local g=Duel.SelectMatchingCard(tp,c501001071.cfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c501001071.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c501001071.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end - Duel.BreakEffect() - Duel.Draw(tp,1,REASON_EFFECT) -end diff --git a/script/c501001073.lua b/script/c501001073.lua deleted file mode 100644 index 1276cfd3..00000000 --- a/script/c501001073.lua +++ /dev/null @@ -1,74 +0,0 @@ ----影依の原核 -function c501001073.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c501001073.sptg) - e1:SetOperation(c501001073.spop) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501001073,0)) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_LEAVE_GRAVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c501001073.thcon) - e2:SetTarget(c501001073.thtg) - e2:SetOperation(c501001073.thop) - c:RegisterEffect(e2) -end -function c501001073.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,501001073,0,0x21,1450,1950,9,RACE_SPELLCASTER,ATTRIBUTE_DARK) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c501001073.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(e:GetHandler():GetControler(),LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - local tp=c:GetControler() - if not Duel.IsPlayerCanSpecialSummonMonster(tp,501001073,0,0x21,1450,1950,9,RACE_SPELLCASTER,ATTRIBUTE_DARK) then return end - if c:IsRelateToEffect(e) then - c:AddTrapMonsterAttribute(true,ATTRIBUTE_DARK,RACE_SPELLCASTER,9,1450,1950) - if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then - c:TrapMonsterBlock() - c:RegisterFlagEffect(501001073,RESET_EVENT+0x1fe0000,0,1) - end - end -end -function c501001073.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return c:IsReason(REASON_EFFECT) - and not c:IsReason(REASON_RETURN) -end -function c501001073.thfilter(c) - return c:IsAbleToHand() - and c:GetCode()~=501001073 - and c:IsSetCard(0x9b) - and (c:IsType(TYPE_SPELL) or c:IsType(TYPE_TRAP)) -end -function c501001073.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingTarget(c501001073.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - local g=Duel.SelectTarget(tp,c501001073.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(tp,CATEGORY_TOHAND,g,1,tp,LOCATION_GRAVE) - Duel.SetOperationInfo(tp,CATEGORY_LEAVE_GRAVE,g,1,tp,LOCATION_GRAVE) -end -function c501001073.thop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - Duel.ShuffleHand(tp) - end -end diff --git a/script/c501001101.lua b/script/c501001101.lua deleted file mode 100644 index 1cd457b2..00000000 --- a/script/c501001101.lua +++ /dev/null @@ -1,74 +0,0 @@ ---電池メン－角型 -function c501001101.initial_effect(c) - --search - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001101,0)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CHAIN_UNIQUE) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCountLimit(1,501001101) - e1:SetTarget(c501001101.target) - e1:SetOperation(c501001101.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(501001101,1)) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(EVENT_PHASE+PHASE_END) - e4:SetRange(LOCATION_MZONE) - e4:SetCountLimit(1) - e4:SetCondition(c501001101.sdcon) - e4:SetTarget(c501001101.sdtg) - e4:SetOperation(c501001101.sdop) - c:RegisterEffect(e4) -end -function c501001101.filter(c) - return c:IsSetCard(0x28) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c501001101.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c501001101.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c501001101.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c501001101.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - if c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(c:GetBaseAttack()*2) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1,true) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetValue(c:GetBaseDefence()*2) - e2:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e2,true) - end - end -end -function c501001101.sdcon(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() -end -function c501001101.sdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) -end -function c501001101.sdop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.Destroy(c,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c501001102.lua b/script/c501001102.lua deleted file mode 100644 index 1b9c30b2..00000000 --- a/script/c501001102.lua +++ /dev/null @@ -1,41 +0,0 @@ ---ＥＭソード・フィッシュ -function c501001102.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501001102,0)) - e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetOperation(c501001102.adop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(501001102,1)) - e3:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c501001102.condition) - e3:SetOperation(c501001102.adop) - c:RegisterEffect(e3) -end -function c501001102.condition(e,tp,eg,ep,ev,re,r,rp) - return not eg:IsContains(e:GetHandler()) and rp==tp -end -function c501001102.adop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-600) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - tc:RegisterEffect(e2) - tc=g:GetNext() - end -end \ No newline at end of file diff --git a/script/c501002000.lua b/script/c501002000.lua deleted file mode 100644 index 1fe2746a..00000000 --- a/script/c501002000.lua +++ /dev/null @@ -1,3 +0,0 @@ ---垃圾壓陣隊員 -function c501002000.initial_effect(c) -end \ No newline at end of file diff --git a/script/c501002001.lua b/script/c501002001.lua deleted file mode 100644 index 914790e9..00000000 --- a/script/c501002001.lua +++ /dev/null @@ -1,56 +0,0 @@ ----プリミティブ・バタフライ -function c501002001.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c501002001.spcon) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(501002001,0)) - e2:SetCategory(CATEGORY_LVCHANGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c501002001.target) - e2:SetOperation(c501002001.operation) - c:RegisterEffect(e2) -end -function c501002001.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c501002001.filter(c) - return c:IsFaceup() - and c:GetLevel()>0 - and c:IsRace(RACE_INSECT) -end -function c501002001.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingMatchingCard(c501002001.filter,tp,LOCATION_MZONE,0,1,nil) end - local g=Duel.GetMatchingGroup(c501002001.filter,tp,LOCATION_MZONE,0,nil) - Duel.SetOperationInfo(tp,CATEGORY_LVCHANGE,g,g:GetCount(),tp,1) -end -function c501002001.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c501002001.filter,tp,LOCATION_MZONE,0,nil) - if g:GetCount()>0 then - local sc=g:GetFirst() - while sc do - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000) - sc:RegisterEffect(e1) - -- - sc=g:GetNext() - end - end -end diff --git a/script/c501003001.lua b/script/c501003001.lua deleted file mode 100644 index f74b8ff4..00000000 --- a/script/c501003001.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Soul Charge -function c501003001.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(501003001,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,501003001+EFFECT_COUNT_CODE_OATH) - e1:SetCost(c501003001.cost) - e1:SetTarget(c501003001.target) - e1:SetOperation(c501003001.operation) - c:RegisterEffect(e1) -end -function c501003001.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetCurrentPhase()~=PHASE_MAIN2 end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_BP) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c501003001.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c501003001.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c501003001.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c501003001.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c501003001.filter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) -end -function c501003001.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - if Duel.GetLocationCount(tp,LOCATION_MZONE)0 then - local ctr=Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) - local lp=Duel.GetLP(tp) - if lp<=ctr*1000 then - Duel.SetLP(tp,0) - else - Duel.SetLP(tp,lp-ctr*1000) - end - end -end \ No newline at end of file diff --git a/script/c5010422.lua b/script/c5010422.lua index 78f26299..d8786122 100644 --- a/script/c5010422.lua +++ b/script/c5010422.lua @@ -18,7 +18,7 @@ function c5010422.flipop(e,tp,eg,ep,ev,re,r,rp) Duel.RegisterEffect(e1,tp) end function c5010422.desfilter(c) - return c:IsDefencePos() and c:IsDestructable() + return c:IsDefensePos() end function c5010422.desop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c5010422.desfilter,tp,0,LOCATION_MZONE,nil) diff --git a/script/c50122883.lua b/script/c50122883.lua index 2c1a478a..6ccbe2d1 100644 --- a/script/c50122883.lua +++ b/script/c50122883.lua @@ -20,6 +20,6 @@ end function c50122883.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c50140163.lua b/script/c50140163.lua index d43a4d9a..6ace95d1 100644 --- a/script/c50140163.lua +++ b/script/c50140163.lua @@ -53,7 +53,7 @@ function c50140163.eqop(e,tp,eg,ep,ev,re,r,rp) if tc:IsRelateToEffect(e) then if c:IsFaceup() and c:IsRelateToEffect(e) then local atk=tc:GetTextAttack() - local def=tc:GetTextDefence() + local def=tc:GetTextDefense() if atk<0 then atk=0 end if def<0 then def=0 end if not Duel.Equip(tp,tc,c,false) then return end diff --git a/script/c50155385.lua b/script/c50155385.lua old mode 100755 new mode 100644 diff --git a/script/c50179591.lua b/script/c50179591.lua new file mode 100644 index 00000000..be2bf0ca1f --- /dev/null +++ b/script/c50179591.lua @@ -0,0 +1,81 @@ +--魔界台本「火竜の住処」 +function c50179591.initial_effect(c) + --activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c50179591.target) + e1:SetOperation(c50179591.operation) + c:RegisterEffect(e1) + --destroyed + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(50179591,1)) + e2:SetCategory(CATEGORY_REMOVE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_DESTROYED) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCountLimit(1,50179591) + e2:SetCondition(c50179591.rmcon2) + e2:SetTarget(c50179591.rmtg2) + e2:SetOperation(c50179591.rmop2) + c:RegisterEffect(e2) +end +function c50179591.filter(c) + return c:IsFaceup() and c:IsSetCard(0x10ec) +end +function c50179591.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c50179591.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c50179591.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c50179591.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c50179591.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + tc:RegisterFlagEffect(50179591,RESET_EVENT+0x1220000+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(50179591,0)) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_BATTLE_DESTROYING) + e1:SetLabelObject(tc) + e1:SetCondition(c50179591.rmcon1) + e1:SetOperation(c50179591.rmop1) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + end +end +function c50179591.rmcon1(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + return eg:IsContains(tc) and tc:GetFlagEffect(50179591)~=0 +end +function c50179591.rmop1(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_EXTRA,nil) + if g:GetCount()<3 then return end + Duel.Hint(HINT_CARD,0,50179591) + Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_REMOVE) + local mg=g:Select(1-tp,3,3,nil) + if mg:GetCount()>0 then + Duel.Remove(mg,POS_FACEUP,REASON_EFFECT) + end +end +function c50179591.rmcon2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return rp==1-tp and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp + and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEDOWN) + and Duel.IsExistingMatchingCard(c50179591.filter,tp,LOCATION_EXTRA,0,1,nil) +end +function c50179591.rmtg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_EXTRA,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,0) +end +function c50179591.rmop2(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA) + if g:GetCount()==0 then return end + Duel.ConfirmCards(tp,g) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local mg=g:FilterSelect(tp,Card.IsAbleToRemove,1,1,nil) + if mg:GetCount()>0 then + Duel.Remove(mg,POS_FACEUP,REASON_EFFECT) + end +end diff --git a/script/c50185950.lua b/script/c50185950.lua old mode 100755 new mode 100644 diff --git a/script/c502001000.lua b/script/c502001000.lua deleted file mode 100644 index 649db7cd..00000000 --- a/script/c502001000.lua +++ /dev/null @@ -1,109 +0,0 @@ ----Noble Knight Brothers -function c502001000.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetCondition(c502001000.atkcon) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(502001000,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c502001000.sptg) - e2:SetOperation(c502001000.spop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(502001000,1)) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetTarget(c502001000.drtg) - e3:SetOperation(c502001000.drop) - c:RegisterEffect(e3) -end -function c502001000.atkfilter(c) - return c:IsFaceup() - and c:IsSetCard(0x107a) -end -function c502001000.atkcon(e) - local tp=e:GetHandlerPlayer() - local g=Duel.GetMatchingGroup(c502001000.atkfilter,tp,LOCATION_MZONE,0,nil) - return not (g:GetCount()==3 - and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==3) -end -function c502001000.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and c:IsSetCard(0x107a) -end -function c502001000.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c502001000.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) - end - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c502001000.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(e:GetHandler():GetControler(),LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - local tp=c:GetControler() - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft>2 then ft=2 end - local g=Duel.GetMatchingGroup(c502001000.spfilter,tp,LOCATION_HAND,0,nil,e,tp) - if g:GetCount()>0 then - local tg=g:Select(tp,1,ft,nil) - local sc=tg:GetFirst() - while sc do - Duel.SpecialSummonStep(sc,0,tp,tp,false,false,POS_FACEUP) - -- - sc=tg:GetNext() - end - Duel.SpecialSummonComplete() - end - -- - local ge1=Effect.CreateEffect(c) - ge1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - ge1:SetType(EFFECT_TYPE_FIELD) - ge1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - ge1:SetTargetRange(1,0) - ge1:SetTarget(c502001000.splimit) - ge1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(ge1,tp) -end -function c502001000.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return not c:IsSetCard(0x107a) -end -function c502001000.drfilter(c) - return c:IsAbleToDeck() - and (c:IsSetCard(0x107a) or c:IsSetCard(0x207a)) -end -function c502001000.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingTarget(c502001000.drfilter,tp,LOCATION_GRAVE,0,1,nil) end - local g=Duel.SelectTarget(tp,c502001000.drfilter,tp,LOCATION_GRAVE,0,3,3,nil) - Duel.SetOperationInfo(tp,CATEGORY_TODECK,g,g:GetCount(),tp,LOCATION_GRAVE) - Duel.SetOperationInfo(tp,CATEGORY_DRAW,nil,0,tp,1) -end -function c502001000.drop(e,tp,eg,ep,ev,re,r,rp) - Duel.DisableShuffleCheck() - local c=e:GetHandler() - local tp=c:GetControler() - local tg=Duel.GetChainInfo(tp,CHAININFO_TARGET_CARDS) - local fg=tg:Filter(Card.IsRelateToEffect,nil,e) - if fg:GetCount()==3 then - Duel.SendtoDeck(fg,nil,0,REASON_EFFECT) - local g=fg:Filter(Card.IsLocation,nil,LOCATION_DECK) - if g:GetCount()==3 then - Duel.ShuffleDeck(tp) - Duel.BreakEffect() - Duel.Draw(tp,1,REASON_EFFECT) - end - end -end diff --git a/script/c502001001.lua b/script/c502001001.lua deleted file mode 100644 index a2c737be..00000000 --- a/script/c502001001.lua +++ /dev/null @@ -1,70 +0,0 @@ ---Artifact Scythe -function c502001001.initial_effect(c) - --set - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_MONSTER_SSET) - e1:SetValue(TYPE_SPELL) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(502001001,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c502001001.spcon) - e2:SetTarget(c502001001.sptg) - e2:SetOperation(c502001001.spop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(502001001,1)) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCondition(c502001001.condition) - e3:SetOperation(c502001001.operation) - c:RegisterEffect(e3) -end -function c502001001.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return c:IsPreviousLocation(LOCATION_SZONE) - and c:IsPreviousPosition(POS_FACEDOWN) - and c:IsReason(REASON_DESTROY) - and Duel.GetTurnPlayer()~=tp -end -function c502001001.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return true end - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,c,1,tp,LOCATION_GRAVE) -end -function c502001001.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end -function c502001001.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return Duel.GetTurnPlayer()~=tp -end -function c502001001.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetTargetRange(0,1) - e1:SetTarget(c502001001.sumlimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c502001001.sumlimit(e,c) - return c:IsLocation(LOCATION_EXTRA) -end diff --git a/script/c502001083.lua b/script/c502001083.lua deleted file mode 100644 index 0c05f854..00000000 --- a/script/c502001083.lua +++ /dev/null @@ -1,107 +0,0 @@ ----Sylvan Princessprout -function c502001083.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(502001083,0)) - e1:SetProperty(EFFECT_FLAG_CHAIN_UNIQUE) - e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TODECK) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,502001083+100000000+EFFECT_COUNT_CODE_OATH) - e1:SetCost(c502001083.gdcos) - e1:SetTarget(c502001083.gdtg) - e1:SetOperation(c502001083.gdop) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(502001083,2)) - e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CHAIN_UNIQUE) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCountLimit(1,502001083+200000000+EFFECT_COUNT_CODE_OATH) - e2:SetCondition(c502001083.condition) - e2:SetTarget(c502001083.target) - e2:SetOperation(c502001083.operation) - c:RegisterEffect(e2) -end -function c502001083.gdcos(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return c:IsReleasable() end - Duel.Release(c,REASON_COST) -end -function c502001083.gdtg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - local dg=Duel.GetDecktopGroup(tp,1) - if chk==0 then return dg:IsExists(Card.IsAbleToGrave,1,nil) end - Duel.SetOperationInfo(tp,CATEGORY_TOGRAVE,dg,dg:GetCount(),tp,LOCATION_DECK) - Duel.SetOperationInfo(tp,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE) -end -function c502001083.tdfilter(c) - return c:IsAbleToDeck() - and c:IsType(TYPE_MONSTER) --- and c:IsSetCard() - and (c:IsCode(10753491) or c:IsCode(502001083)) -end -function c502001083.gdop(e,tp,eg,ep,ev,re,r,rp) - Duel.DisableShuffleCheck() - local c=e:GetHandler() - local tp=c:GetControler() - local dg=Duel.GetDecktopGroup(tp,1) - if dg:IsExists(Card.IsAbleToGrave,1,nil) then - Duel.ConfirmCards(1-tp,dg) - if Duel.SendtoGrave(dg,REASON_EFFECT+REASON_REVEAL)~=0 then - local g=Duel.GetMatchingGroup(c502001083.tdfilter,tp,LOCATION_GRAVE,0,nil) - if g:GetCount()>0 then - if Duel.SelectYesNo(tp,aux.Stringid(502001083,2)) then - Duel.BreakEffect() - local tg=g:Select(tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SendtoDeck(tc,nil,0,REASON_EFFECT) - end - end - end - end -end -function c502001083.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return c:IsPreviousLocation(LOCATION_DECK) - and c:IsReason(REASON_EFFECT) - and c:IsReason(REASON_REVEAL) -end -function c502001083.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end - local t={} - local i=1 - local p=1 - for i=1,8 do - t[p]=i p=p+1 - end - t[p]=nil - local ac=Duel.AnnounceNumber(tp,table.unpack(t)) - e:SetLabel(ac) - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,c,1,tp,LOCATION_GRAVE) -end -function c502001083.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(e:GetHandler():GetControler(),LOCATION_MZONE)<=0 then return end - local lv=e:GetLabel() - local c=e:GetHandler() - local tp=c:GetControler() - if c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then - if Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP)~=0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(lv) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - -- - Duel.SpecialSummonComplete() - end - end -end diff --git a/script/c502001086.lua b/script/c502001086.lua deleted file mode 100644 index f18be1dd..00000000 --- a/script/c502001086.lua +++ /dev/null @@ -1,147 +0,0 @@ ---Gladiator Beast Nerokius -function c502001086.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsSetCard,0x19),3,true) - -- - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c502001086.splimit) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_EXTRA) - e2:SetCondition(c502001086.sprcon) - e2:SetOperation(c502001086.sprop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetValue(1) - c:RegisterEffect(e3) - -- - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_ATTACK_ANNOUNCE) - e4:SetOperation(c502001086.actop) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e5:SetCode(EVENT_BE_BATTLE_TARGET) - e5:SetOperation(c502001086.actop) - c:RegisterEffect(e5) - -- - local e6=Effect.CreateEffect(c) - e6:SetDescription(aux.Stringid(502001086,0)) - e6:SetCategory(CATEGORY_SPECIAL_SUMMON) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e6:SetCode(EVENT_PHASE+PHASE_BATTLE) - e6:SetRange(LOCATION_MZONE) - e6:SetCondition(c502001086.spcon) - e6:SetCost(c502001086.spcost) - e6:SetTarget(c502001086.sptg) - e6:SetOperation(c502001086.spop) - c:RegisterEffect(e6) -end -function c502001086.splimit(e,se,sp,st) - return e:GetHandler():GetLocation()~=LOCATION_EXTRA -end -function c502001086.sprfilter(c) - local tpe=c:GetOriginalType() - return c:IsCanBeFusionMaterial() - and c:IsSetCard(0x19) - and( - (bit.band(tpe,TYPE_FUSION)>0 and c:IsAbleToExtraAsCost()) - or - (bit.band(tpe,TYPE_FUSION)==0 and c:IsAbleToDeckAsCost()) - ) -end -function c502001086.sprcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-3 - and Duel.IsExistingMatchingCard(c502001086.sprfilter,tp,LOCATION_MZONE,0,3,nil) -end -function c502001086.sprop(e,tp,eg,ep,ev,re,r,rp,c) - local tp=c:GetControler() - local g=Duel.SelectMatchingCard(tp,c502001086.sprfilter,tp,LOCATION_MZONE,0,3,3,nil) - local tc=g:GetFirst() - while tc do - if not tc:IsFaceup() then - Duel.ConfirmCards(1-tp,tc) - end - -- - tc=g:GetNext() - end - Duel.SendtoDeck(g,nil,2,REASON_COST) -end -function c502001086.actop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetTargetRange(0,1) - e1:SetValue(aux.TRUE) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE) - Duel.RegisterEffect(e1,tp) -end -function c502001086.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return c:GetBattledGroupCount()>0 -end -function c502001086.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return c:IsAbleToExtraAsCost() end - Duel.SendtoDeck(c,nil,0,REASON_COST) -end -function c502001086.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,120,tp,false,false) - and c:IsSetCard(0x19) -end -function c502001086.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 - and Duel.IsExistingMatchingCard(c502001086.spfilter,tp,LOCATION_DECK,0,2,nil,e,tp) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) -end -function c502001086.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(e:GetHandler():GetControler(),LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - local tp=c:GetControler() - local zc=Duel.GetLocationCount(tp,LOCATION_MZONE) - local g=Duel.GetMatchingGroup(c502001086.spfilter,tp,LOCATION_DECK,0,nil,e,tp) - if g:GetCount()>0 then - if zc==1 then - local sg=g:Select(tp,2,2,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - sg:RemoveCard(tc) - Duel.SpecialSummon(tc,120,tp,tp,false,false,POS_FACEUP) - tc:RegisterFlagEffect(tc:GetOriginalCode(),RESET_EVENT+0x1ff0000,0,0) - Duel.Destroy(sg,REASON_EFFECT) - else - local tg=g:Select(tp,2,2,nil) - local sc=tg:GetFirst() - while sc do - Duel.SpecialSummonStep(sc,120,tp,tp,false,false,POS_FACEUP) - sc:RegisterFlagEffect(sc:GetOriginalCode(),RESET_EVENT+0x1ff0000,0,0) - -- - sc=tg:GetNext() - end - Duel.SpecialSummonComplete() - end - end -end diff --git a/script/c502001087.lua b/script/c502001087.lua deleted file mode 100644 index ad4dedfc..00000000 --- a/script/c502001087.lua +++ /dev/null @@ -1,173 +0,0 @@ ----Noble Knights of the Round Table -function c502001087.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(502001087,0)) - e2:SetProperty(EFFECT_FLAG_REPEAT) - e2:SetCategory(CATEGORY_TOGRAVE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetLabel(3) - e2:SetCondition(c502001087.con) - e2:SetTarget(c502001087.tg1) - e2:SetOperation(c502001087.op1) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(502001087,1)) - e3:SetProperty(EFFECT_FLAG_REPEAT) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetRange(LOCATION_SZONE) - e3:SetCountLimit(1) - e3:SetLabel(6) - e3:SetCondition(c502001087.con) - e3:SetTarget(c502001087.tg2) - e3:SetOperation(c502001087.op2) - c:RegisterEffect(e3) - -- - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(502001087,2)) - e4:SetProperty(EFFECT_FLAG_REPEAT+EFFECT_FLAG_CARD_TARGET) - e4:SetCategory(CATEGORY_TOHAND) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_PHASE+PHASE_END) - e4:SetRange(LOCATION_SZONE) - e4:SetCountLimit(1) - e4:SetLabel(9) - e4:SetCondition(c502001087.con) - e4:SetTarget(c502001087.tg3) - e4:SetOperation(c502001087.op3) - c:RegisterEffect(e4) - -- - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(502001087,3)) - e5:SetProperty(EFFECT_FLAG_REPEAT+EFFECT_FLAG_PLAYER_TARGET) - e5:SetCategory(CATEGORY_DRAW) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e5:SetCode(EVENT_PHASE+PHASE_END) - e5:SetRange(LOCATION_SZONE) - e5:SetCountLimit(1) - e5:SetLabel(12) - e5:SetCondition(c502001087.con) - e5:SetTarget(c502001087.tg4) - e5:SetOperation(c502001087.op4) - c:RegisterEffect(e5) -end -function c502001087.confilter(c) - return c:IsFaceup() - and c:IsSetCard(0x107a) -end -function c502001087.con(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c502001087.confilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil) - return Duel.GetTurnPlayer()==tp - and g:GetClassCount(Card.GetCode)>=e:GetLabel() -end -function c502001087.tgfilter(c) - return c:IsAbleToGrave() - and c:IsType(TYPE_MONSTER) - and c:IsSetCard(0x107a) -end -function c502001087.tg1(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingMatchingCard(c502001087.tgfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(tp,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c502001087.op1(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c502001087.tgfilter,tp,LOCATION_DECK,0,nil) - if g:GetCount()>0 then - local tg=g:Select(tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SendtoGrave(tc,REASON_EFFECT) - end -end -function c502001087.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and c:IsType(TYPE_MONSTER) - and c:IsSetCard(0x107a) -end -function c502001087.tg2(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c502001087.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) - end - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c502001087.sqfilter(c,tc) - return c:CheckEquipTarget(tc) - and c:IsType(TYPE_SPELL) - and c:IsType(TYPE_EQUIP) - and c:IsSetCard(0x207a) -end -function c502001087.op2(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetLocationCount(e:GetHandler():GetControler(),LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - local tp=c:GetControler() - local g=Duel.GetMatchingGroup(c502001087.spfilter,tp,LOCATION_HAND,0,nil,e,tp) - if g:GetCount()>0 then - local tg=g:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then - local g2=Duel.GetMatchingGroup(c502001087.sqfilter,tp,LOCATION_HAND,0,nil,tc) - if g2:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then - if Duel.SelectYesNo(tp,aux.Stringid(502001087,4)) then - Duel.BreakEffect() - local tg2=g2:Select(tp,1,1,nil) - local tc2=tg2:GetFirst() - Duel.Equip(tp,tc2,tc) - end - end - end - end -end -function c502001087.thfilter(c) - return c:IsAbleToHand() - and c:IsType(TYPE_MONSTER) - and c:IsSetCard(0x107a) -end -function c502001087.tg3(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingTarget(c502001087.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - local g=Duel.SelectTarget(tp,c502001087.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(tp,CATEGORY_TOHAND,g,1,tp,LOCATION_GRAVE) -end -function c502001087.op3(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local c=e:GetHandler() - local tp=c:GetControler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - Duel.ShuffleHand(tp) - end -end -function c502001087.tg4(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetOperationInfo(tp,CATEGORY_DRAW,nil,0,tp,1) -end -function c502001087.op4(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local c=e:GetHandler() - local tp=c:GetControler() - Duel.Draw(tp,1,REASON_EFFECT) -end diff --git a/script/c502001101.lua b/script/c502001101.lua deleted file mode 100644 index dad0d1f9..00000000 --- a/script/c502001101.lua +++ /dev/null @@ -1,127 +0,0 @@ ----Ｎｏ.９９ 希望皇龍ホープドラグーン -function c502001101.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(c502001101.xyzfilter),10),3) - c:EnableReviveLimit() - -- - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c502001101.ssrcon) - e1:SetOperation(c502001101.ssrop) - e1:SetValue(SUMMON_TYPE_XYZ) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(502001101,0)) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c502001101.sptg) - e2:SetOperation(c502001101.spop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(502001101,1)) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e3:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_CHAINING) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c502001101.discon) - e3:SetCost(c502001101.discost) - e3:SetTarget(c502001101.distg) - e3:SetOperation(c502001101.disop) - c:RegisterEffect(e3) -end -function c502001101.xyzfilter(c) - return c:IsFaceup() -end -function c502001101.cxfilter1(c) - return c:IsFaceup() - and c:IsType(TYPE_XYZ) - and c:IsSetCard(0x7f) -end -function c502001101.cxfilter2(c) - return c:IsDiscardable() - and c:IsType(TYPE_SPELL) - and c:IsSetCard(0x95) -end -function c502001101.ssrcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.IsExistingMatchingCard(c502001101.cxfilter1,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c502001101.cxfilter2,tp,LOCATION_HAND,0,1,nil) -end -function c502001101.ssrop(e,tp,eg,ep,ev,re,r,rp,c) - local tp=c:GetControler() - Duel.DiscardHand(tp,c502001101.cxfilter2,1,1,REASON_COST) - local g=Duel.SelectMatchingCard(tp,c502001101.cxfilter1,tp,LOCATION_MZONE,0,1,1,nil) - local tc=g:GetFirst() - local mg=tc:GetOverlayGroup() - if mg:GetCount()~=0 then - Duel.Overlay(c,mg) - end - Duel.Overlay(c,Group.FromCards(tc)) -end -function c502001101.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and c:IsSetCard(0x48) -end -function c502001101.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tp=c:GetControler() - if chk==0 then return Duel.IsExistingTarget(c502001101.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - local g=Duel.SelectTarget(tp,c502001101.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,g,1,tp,LOCATION_GRAVE) -end -function c502001101.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - -- - Duel.SpecialSummonComplete() - end - end -end -function c502001101.discon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end - if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) or not re:IsActiveType(TYPE_MONSTER) then return end - local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) - return tg and tg:IsContains(c) and Duel.IsChainNegatable(ev) -end -function c502001101.discost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_COST) end - c:RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c502001101.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c502001101.disop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c502001401.lua b/script/c502001401.lua deleted file mode 100644 index 16b527c2..00000000 --- a/script/c502001401.lua +++ /dev/null @@ -1,18 +0,0 @@ ----氷帝家臣エッシャー -function c502001401.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c502001401.spcon) - c:RegisterEffect(e1) -end -function c502001401.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local g=Duel.GetFieldGroup(tp,0,LOCATION_SZONE) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and g:GetCount()>=2 -end diff --git a/script/c50215517.lua b/script/c50215517.lua index 10103709..e0bab048 100644 --- a/script/c50215517.lua +++ b/script/c50215517.lua @@ -17,7 +17,7 @@ function c50215517.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c50215517.cfilter,tp,LOCATION_ONFIELD,0,1,nil) end function c50215517.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c50215517.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c50215517.filter,tp,0,LOCATION_ONFIELD,1,nil) end diff --git a/script/c50243722.lua b/script/c50243722.lua index 84b62f52..905cc194 100644 --- a/script/c50243722.lua +++ b/script/c50243722.lua @@ -30,6 +30,6 @@ end function c50243722.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c50260683.lua b/script/c50260683.lua index 35b3fabe..45778582 100644 --- a/script/c50260683.lua +++ b/script/c50260683.lua @@ -64,7 +64,7 @@ function c50260683.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c50260683.filter2(c) - return c:IsFaceup() and c:GetAttack()~=c:GetBaseAttack() and c:IsDestructable() + return c:IsFaceup() and c:GetAttack()~=c:GetBaseAttack() end function c50260683.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c50260683.filter2(chkc) end diff --git a/script/c5026221.lua b/script/c5026221.lua old mode 100755 new mode 100644 index 313f9c48..64b46021 --- a/script/c5026221.lua +++ b/script/c5026221.lua @@ -25,7 +25,7 @@ function c5026221.target1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end local tn=Duel.GetTurnPlayer() local ph=Duel.GetCurrentPhase() - if ((tn==tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)) or (tn~=tp and ph==PHASE_BATTLE)) + if ((tn==tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)) or (tn~=tp and (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE))) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c5026221.filter,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.SelectYesNo(tp,94) then diff --git a/script/c50263751.lua b/script/c50263751.lua index b6b75e8b..71ed2590 100644 --- a/script/c50263751.lua +++ b/script/c50263751.lua @@ -9,7 +9,7 @@ function c50263751.initial_effect(c) e1:SetValue(c50263751.atkval) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) c:RegisterEffect(e2) --lvup local e2=Effect.CreateEffect(c) diff --git a/script/c50277973.lua b/script/c50277973.lua old mode 100755 new mode 100644 index 5c420095..62295812 --- a/script/c50277973.lua +++ b/script/c50277973.lua @@ -51,7 +51,8 @@ function c50277973.activate(e,tp,eg,ep,ev,re,r,rp) local att=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,50277973,0,0x11,1800,1000,4,rac,att) then return end - c:AddTrapMonsterAttribute(TYPE_NORMAL,att,rac,4,1800,1000) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - c:TrapMonsterBlock() + c:AddMonsterAttribute(TYPE_NORMAL+TYPE_TRAP,att,rac,0,0,0) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() + Duel.SpecialSummonComplete() end diff --git a/script/c50278554.lua b/script/c50278554.lua index ae1df566..2bf8e779 100644 --- a/script/c50278554.lua +++ b/script/c50278554.lua @@ -1,68 +1,68 @@ ---スクラップ・ツイン・ドラゴン -function c50278554.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x24),aux.NonTuner(nil),1) - c:EnableReviveLimit() - --Destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(50278554,0)) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c50278554.destg) - e1:SetOperation(c50278554.desop) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(50278554,1)) - e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c50278554.spcon) - e2:SetTarget(c50278554.sptg) - e2:SetOperation(c50278554.spop) - c:RegisterEffect(e2) -end -function c50278554.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,nil) - and Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,2,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,1,0,0) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g2=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,2,2,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g2,2,0,0) -end -function c50278554.desop(e,tp,eg,ep,ev,re,r,rp) - local ex,g1=Duel.GetOperationInfo(0,CATEGORY_DESTROY) - local ex,g2=Duel.GetOperationInfo(0,CATEGORY_TOHAND) - if g1:GetFirst():IsRelateToEffect(e) and Duel.Destroy(g1,REASON_EFFECT)~=0 then - local hg=g2:Filter(Card.IsRelateToEffect,nil,e) - Duel.SendtoHand(hg,nil,REASON_EFFECT) - end -end -function c50278554.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local crp=c:GetReasonPlayer() - return c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp and tp~=crp and crp~=PLAYER_NONE -end -function c50278554.spfilter(c,e,tp) - return c:IsSetCard(0x24) and not c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c50278554.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c50278554.spfilter(chkc,e,tp) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c50278554.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c50278554.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end +--スクラップ・ツイン・ドラゴン +function c50278554.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x24),aux.NonTuner(nil),1) + c:EnableReviveLimit() + --Destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(50278554,0)) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetCountLimit(1) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c50278554.destg) + e1:SetOperation(c50278554.desop) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(50278554,1)) + e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCondition(c50278554.spcon) + e2:SetTarget(c50278554.sptg) + e2:SetOperation(c50278554.spop) + c:RegisterEffect(e2) +end +function c50278554.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,0,1,nil) + and Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,2,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g1=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,1,0,0) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) + local g2=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,2,2,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g2,2,0,0) +end +function c50278554.desop(e,tp,eg,ep,ev,re,r,rp) + local ex,g1=Duel.GetOperationInfo(0,CATEGORY_DESTROY) + local ex,g2=Duel.GetOperationInfo(0,CATEGORY_TOHAND) + if g1:GetFirst():IsRelateToEffect(e) and Duel.Destroy(g1,REASON_EFFECT)~=0 then + local hg=g2:Filter(Card.IsRelateToEffect,nil,e) + Duel.SendtoHand(hg,nil,REASON_EFFECT) + end +end +function c50278554.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local crp=c:GetReasonPlayer() + return c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp and tp~=crp and crp~=PLAYER_NONE +end +function c50278554.spfilter(c,e,tp) + return c:IsSetCard(0x24) and not c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c50278554.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c50278554.spfilter(chkc,e,tp) end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c50278554.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c50278554.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c50282757.lua b/script/c50282757.lua index 1a0eac94..13b8c5ea 100644 --- a/script/c50282757.lua +++ b/script/c50282757.lua @@ -37,7 +37,7 @@ function c50282757.splimit(e,se,sp,st) return st==SUMMON_TYPE_FUSION+0x10 end function c50282757.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPosition(POS_FACEUP_DEFENCE) and Duel.GetTurnPlayer()==tp + return e:GetHandler():IsPosition(POS_FACEUP_DEFENSE) and Duel.GetTurnPlayer()==tp end function c50282757.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c50287060.lua b/script/c50287060.lua old mode 100755 new mode 100644 index f313ecb8..f1e8f104 --- a/script/c50287060.lua +++ b/script/c50287060.lua @@ -5,7 +5,7 @@ function c50287060.initial_effect(c) e1:SetDescription(aux.Stringid(50287060,0)) e1:SetCategory(CATEGORY_EQUIP) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) e1:SetCode(EVENT_TO_GRAVE) e1:SetTarget(c50287060.eqtg) e1:SetOperation(c50287060.eqop) diff --git a/script/c50371210.lua b/script/c50371210.lua new file mode 100644 index 00000000..1f6a91c3 --- /dev/null +++ b/script/c50371210.lua @@ -0,0 +1,94 @@ +--光の導き +function c50371210.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c50371210.target) + e1:SetOperation(c50371210.operation) + c:RegisterEffect(e1) + --extra attack + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_EQUIP) + e2:SetCode(EFFECT_EXTRA_ATTACK) + e2:SetValue(c50371210.val) + c:RegisterEffect(e2) + --remove + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_LEAVE_FIELD) + e3:SetOperation(c50371210.rmop) + c:RegisterEffect(e3) + --cannot attack + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_CANNOT_ATTACK) + e4:SetRange(LOCATION_SZONE) + e4:SetTargetRange(LOCATION_MZONE,0) + e4:SetTarget(c50371210.ftarget) + c:RegisterEffect(e4) +end +function c50371210.spfilter(c,e,tp) + return c:IsSetCard(0xdd) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c50371210.gvfilter(c) + return c:IsSetCard(0xdd) +end +function c50371210.cfilter(c) + return c:IsFaceup() and c:IsCode(50371210) +end +function c50371210.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c50371210.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c50371210.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) + and Duel.IsExistingMatchingCard(c50371210.gvfilter,tp,LOCATION_GRAVE,0,3,nil) + and not Duel.IsExistingMatchingCard(c50371210.cfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c50371210.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) +end +function c50371210.eqlimit(e,c) + return e:GetOwner()==c +end +function c50371210.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then + if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)==0 then return end + Duel.Equip(tp,c,tc) + --Add Equip limit + local e1=Effect.CreateEffect(tc) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_EQUIP_LIMIT) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(c50371210.eqlimit) + c:RegisterEffect(e1) + --Disable + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_DISABLE_EFFECT) + tc:RegisterEffect(e3) + Duel.SpecialSummonComplete() + end +end +function c50371210.rmop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetHandler():GetEquipTarget() + if tc then + Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) + end +end +function c50371210.ftarget(e,c) + return e:GetHandler():GetEquipTarget()~=c +end +function c50371210.val(e,c) + local ct=Duel.GetMatchingGroupCount(Card.IsSetCard,e:GetHandlerPlayer(),LOCATION_GRAVE,0,nil,0xdd) + return math.max(0,ct-1) +end diff --git a/script/c5037726.lua b/script/c5037726.lua index ca975d69..c230a3b4 100644 --- a/script/c5037726.lua +++ b/script/c5037726.lua @@ -41,18 +41,25 @@ function c5037726.cfilter(c) return not c:IsPublic() and c:IsType(TYPE_TRAP) end function c5037726.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local g=Duel.GetMatchingGroup(c5037726.cfilter,tp,0,LOCATION_HAND,nil) - if g:GetCount()>0 and Duel.SelectYesNo(1-tp,aux.Stringid(5037726,0)) then - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_CONFIRM) - local sg=g:Select(1-tp,1,1,nil) - Duel.ConfirmCards(tp,sg) - Duel.ShuffleHand(1-tp) - if Duel.IsChainDisablable(0) then + if Duel.IsChainDisablable(0) then + local sel=1 + local g=Duel.GetMatchingGroup(c5037726.cfilter,tp,0,LOCATION_HAND,nil) + Duel.Hint(HINT_SELECTMSG,1-tp,aux.Stringid(5037726,0)) + if g:GetCount()>0 then + sel=Duel.SelectOption(1-tp,1213,1214) + else + sel=Duel.SelectOption(1-tp,1214)+1 + end + if sel==0 then + Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_CONFIRM) + local sg=g:Select(1-tp,1,1,nil) + Duel.ConfirmCards(tp,sg) + Duel.ShuffleHand(1-tp) Duel.NegateEffect(0) return end end + local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) end diff --git a/script/c50407691.lua b/script/c50407691.lua index 8eb63331..48d632bd 100644 --- a/script/c50407691.lua +++ b/script/c50407691.lua @@ -23,8 +23,7 @@ end function c50407691.thtg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() local pc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-c:GetSequence()) - if chk==0 then return c:IsDestructable() and pc:IsDestructable() - and Duel.IsExistingMatchingCard(c50407691.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end + if chk==0 then return Duel.IsExistingMatchingCard(c50407691.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end local g=Group.FromCards(c,pc) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) diff --git a/script/c50412166.lua b/script/c50412166.lua index 84986567..ce8b639e 100644 --- a/script/c50412166.lua +++ b/script/c50412166.lua @@ -3,7 +3,7 @@ function c50412166.initial_effect(c) --indes local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(50412166,0)) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_FREE_CHAIN) e1:SetRange(LOCATION_HAND) e1:SetCondition(c50412166.condition) diff --git a/script/c50418970.lua b/script/c50418970.lua index 9b5e39cf..99ebb1e0 100644 --- a/script/c50418970.lua +++ b/script/c50418970.lua @@ -67,7 +67,7 @@ function c50418970.postg(e,tp,eg,ep,ev,re,r,rp,chk) end function c50418970.posop(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.ChangePosition(e:GetHandler():GetEquipTarget(),POS_FACEUP_DEFENCE) + Duel.ChangePosition(e:GetHandler():GetEquipTarget(),POS_FACEUP_DEFENSE) end function c50418970.damcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c50427388.lua b/script/c50427388.lua index d92ba914..7d161c1b 100644 --- a/script/c50427388.lua +++ b/script/c50427388.lua @@ -18,7 +18,7 @@ function c50427388.cfilter(c) return c:IsType(TYPE_SPELL) and c:IsAbleToRemove() end function c50427388.filter(c,def) - return c:IsFaceup() and c:IsDefenceBelow(def) and c:IsDestructable() + return c:IsFaceup() and c:IsDefenseBelow(def) end function c50427388.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then diff --git a/script/c50433147.lua b/script/c50433147.lua index 8646dcf2..a7cfb749 100644 --- a/script/c50433147.lua +++ b/script/c50433147.lua @@ -32,7 +32,7 @@ function c50433147.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) end function c50433147.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0x42) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x42) end function c50433147.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c50457953.lua b/script/c50457953.lua index 32e38218..963218f6 100644 --- a/script/c50457953.lua +++ b/script/c50457953.lua @@ -30,7 +30,7 @@ function c50457953.lvop(e,tp,eg,ep,ev,re,r,rp) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CHANGE_LEVEL) e1:SetValue(tc:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) end end diff --git a/script/c50470982.lua b/script/c50470982.lua old mode 100755 new mode 100644 diff --git a/script/c50485594.lua b/script/c50485594.lua index d6193d7f..9f2ae729 100644 --- a/script/c50485594.lua +++ b/script/c50485594.lua @@ -77,11 +77,13 @@ function c50485594.spfilter2(c,code,e,tp) return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c50485594.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c50485594.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c50485594.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) local g=Duel.SelectMatchingCard(tp,c50485594.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) diff --git a/script/c50501121.lua b/script/c50501121.lua new file mode 100644 index 00000000..ad32a091 --- /dev/null +++ b/script/c50501121.lua @@ -0,0 +1,41 @@ +--背徳の堕天使 +function c50501121.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,50501121+EFFECT_COUNT_CODE_OATH) + e1:SetCost(c50501121.cost) + e1:SetTarget(c50501121.target) + e1:SetOperation(c50501121.activate) + c:RegisterEffect(e1) +end +function c50501121.costfilter(c) + return c:IsSetCard(0xef) + and c:IsType(TYPE_MONSTER) and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsAbleToGraveAsCost() + and Duel.IsExistingMatchingCard(nil,0,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) +end +function c50501121.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c50501121.costfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c50501121.costfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil) + Duel.SendtoGrave(g,REASON_COST) +end +function c50501121.target(e,tp,eg,ep,ev,re,r,rp,chk) + local exc=nil + if e:IsHasType(EFFECT_TYPE_ACTIVATE) then exc=e:GetHandler() end + local g=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,exc) + if chk==0 then return g:GetCount()>0 end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c50501121.activate(e,tp,eg,ep,ev,re,r,rp) + local exc=nil + if e:IsHasType(EFFECT_TYPE_ACTIVATE) then exc=e:GetHandler() end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,exc) + if g:GetCount()>0 then + Duel.HintSelection(g) + Duel.Destroy(g,REASON_EFFECT) + end +end diff --git a/script/c5050644.lua b/script/c5050644.lua index da11c7ad..f8d3b0ca 100644 --- a/script/c5050644.lua +++ b/script/c5050644.lua @@ -52,7 +52,7 @@ function c5050644.reop1(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN) Duel.RegisterEffect(e1,tp) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) Duel.RegisterEffect(e2,tp) end function c5050644.cfilter2(c,tp) diff --git a/script/c50527144.lua b/script/c50527144.lua index 6a3d7e6d..a29bc428 100644 --- a/script/c50527144.lua +++ b/script/c50527144.lua @@ -25,7 +25,7 @@ function c50527144.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) e1:SetTargetRange(LOCATION_ONFIELD,0) e1:SetTarget(c50527144.tgfilter) - e1:SetValue(aux.tgval) + e1:SetValue(1) e1:SetReset(RESET_PHASE+PHASE_END) Duel.RegisterEffect(e1,tp) local e2=e1:Clone() diff --git a/script/c50554729.lua b/script/c50554729.lua new file mode 100644 index 00000000..134f7bd3 --- /dev/null +++ b/script/c50554729.lua @@ -0,0 +1,71 @@ +--アモルファージ・インフェクション +function c50554729.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --atk + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetRange(LOCATION_SZONE) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xe0)) + e2:SetValue(c50554729.value) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e3) + --To Hand + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) + e4:SetCode(EVENT_RELEASE) + e4:SetRange(LOCATION_SZONE) + e4:SetCountLimit(1,50554729) + e4:SetCondition(c50554729.thcon1) + e4:SetTarget(c50554729.thtg) + e4:SetOperation(c50554729.thop) + c:RegisterEffect(e4) + local e5=e4:Clone() + e5:SetCode(EVENT_DESTROYED) + e5:SetCondition(c50554729.thcon2) + c:RegisterEffect(e5) +end +function c50554729.filter(c) + return c:IsFaceup() and c:IsSetCard(0xe0) +end +function c50554729.value(e,c) + return Duel.GetMatchingGroupCount(c50554729.filter,0,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)*100 +end +function c50554729.cfilter1(c,tp) + return c:IsType(TYPE_MONSTER) and c:IsPreviousLocation(LOCATION_MZONE+LOCATION_HAND) and c:GetPreviousControler()==tp +end +function c50554729.thcon1(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c50554729.cfilter1,1,nil,tp) +end +function c50554729.cfilter2(c,tp) + return c:IsType(TYPE_MONSTER) and c:IsReason(REASON_BATTLE+REASON_EFFECT) + and c:IsPreviousLocation(LOCATION_MZONE+LOCATION_HAND) and c:GetPreviousControler()==tp +end +function c50554729.thcon2(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c50554729.cfilter2,1,nil,tp) +end +function c50554729.thfilter(c) + return c:IsSetCard(0xe0) and c:IsAbleToHand() +end +function c50554729.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c50554729.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c50554729.thop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c50554729.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c50584941.lua b/script/c50584941.lua new file mode 100644 index 00000000..dbe9e3d8 --- /dev/null +++ b/script/c50584941.lua @@ -0,0 +1,59 @@ +--レッド・スプレマシー +function c50584941.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCost(c50584941.cost) + e1:SetTarget(c50584941.target) + e1:SetOperation(c50584941.activate) + c:RegisterEffect(e1) +end +function c50584941.cfilter(c,tp) + local code=c:GetOriginalCode() + return c:IsSetCard(0x1045) and c:IsType(TYPE_SYNCHRO) and c:IsAbleToRemoveAsCost() + and Duel.IsExistingTarget(c50584941.filter,tp,LOCATION_MZONE,0,1,nil,code) +end +function c50584941.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + if Duel.IsExistingMatchingCard(c50584941.cfilter,tp,LOCATION_GRAVE,0,1,nil,tp) then + e:SetLabel(1) + return true + else + return false + end + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c50584941.cfilter,tp,LOCATION_GRAVE,0,1,1,nil,tp) + Duel.Remove(g,POS_FACEUP,REASON_COST) + e:SetLabel(g:GetFirst():GetOriginalCode()) +end +function c50584941.filter(c,code) + return c:IsFaceup() and c:IsSetCard(0x1045) and c:IsType(TYPE_SYNCHRO) and not c:IsCode(code) +end +function c50584941.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c50584941.filter(chkc,e:GetLabel()) end + if chk==0 then + if e:GetLabel()~=1 then return false end + e:SetLabel(0) + return true + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c50584941.filter,tp,LOCATION_MZONE,0,1,1,nil,e:GetLabel()) +end +function c50584941.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + local code=e:GetLabel() + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CHANGE_CODE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetValue(code) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + tc:ReplaceEffect(code,RESET_EVENT+0x1fe0000) + end +end diff --git a/script/c50593156.lua b/script/c50593156.lua index 1c15ee4e..00f59f1c 100644 --- a/script/c50593156.lua +++ b/script/c50593156.lua @@ -13,16 +13,16 @@ function c50593156.initial_effect(c) end function c50593156.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,3) end function c50593156.desop(e,tp,eg,ep,ev,re,r,rp) local c1,c2,c3=Duel.TossCoin(tp,3) if c1+c2+c3==3 then - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.Destroy(g,REASON_EFFECT) elseif c1+c2+c3==0 then - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil) Duel.Destroy(g,REASON_EFFECT) end end diff --git a/script/c50615578.lua b/script/c50615578.lua index fdd437cb..252489c8 100644 --- a/script/c50615578.lua +++ b/script/c50615578.lua @@ -5,14 +5,6 @@ function c50615578.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_MUST_ATTACK) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c50615578.becon) - c:RegisterEffect(e2) --pos change local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(50615578,0)) @@ -32,17 +24,14 @@ function c50615578.initial_effect(c) e4:SetOperation(c50615578.drop) c:RegisterEffect(e4) end -function c50615578.becon(e) - return e:GetHandler():IsAttackable() -end function c50615578.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end function c50615578.drfilter(c) - return c:IsPosition(POS_FACEUP_DEFENCE) and c:IsSetCard(0x11) + return c:IsPosition(POS_FACEUP_DEFENSE) and c:IsSetCard(0x11) end function c50615578.drtg(e,tp,eg,ep,ev,re,r,rp,chk) local ct=Duel.GetMatchingGroupCount(c50615578.drfilter,tp,LOCATION_MZONE,0,nil) diff --git a/script/c50619462.lua b/script/c50619462.lua new file mode 100644 index 00000000..d05d840b --- /dev/null +++ b/script/c50619462.lua @@ -0,0 +1,90 @@ +--Cattle Call +function c50619462.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,50619462+EFFECT_COUNT_CODE_OATH) + e1:SetCost(c50619462.spcost) + e1:SetTarget(c50619462.sptg) + e1:SetOperation(c50619462.spop) + c:RegisterEffect(e1) +end +function c50619462.cfilter(c,e,tp) + local race=c:GetOriginalRace() + return c:IsFaceup() and (race==RACE_WINDBEAST or race==RACE_BEAST + or race==RACE_BEASTWARRIOR) and c:IsAbleToGraveAsCost() + and Duel.IsExistingMatchingCard(c50619462.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,race) +end +function c50619462.spfilter(c,e,tp,race) + return c:GetOriginalRace()==race and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c50619462.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(100) + return true +end +function c50619462.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + if e:GetLabel()~=100 then return false end + e:SetLabel(0) + return Duel.IsExistingMatchingCard(c50619462.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c50619462.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) + local tc=g:GetFirst() + Duel.SendtoGrave(tc,REASON_COST) + e:SetLabelObject(tc) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c50619462.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then + local race=e:GetLabelObject():GetOriginalRace() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c50619462.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,race) + local tc=g:GetFirst() + if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then + tc:RegisterFlagEffect(50619462,RESET_EVENT+0x1fe0000,0,1) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_PHASE+PHASE_END) + e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e3:SetCountLimit(1) + e3:SetLabelObject(tc) + e3:SetCondition(c50619462.descon) + e3:SetOperation(c50619462.desop) + Duel.RegisterEffect(e3,tp) + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_CANNOT_ATTACK) + e4:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e4:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e4,true) + Duel.SpecialSummonComplete() + end + end +end +function c50619462.descon(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + if tc:GetFlagEffect(50619462)~=0 then + return true + else + e:Reset() + return false + end +end +function c50619462.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + Duel.Destroy(tc,REASON_EFFECT) +end diff --git a/script/c5067884.lua b/script/c5067884.lua new file mode 100644 index 00000000..c77ac3d6 --- /dev/null +++ b/script/c5067884.lua @@ -0,0 +1,87 @@ +--ダイナミスト・スピノス +function c5067884.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --destroy replace + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_DESTROY_REPLACE) + e1:SetRange(LOCATION_PZONE) + e1:SetTarget(c5067884.reptg) + e1:SetValue(c5067884.repval) + e1:SetOperation(c5067884.repop) + c:RegisterEffect(e1) + --Attack + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(c5067884.atkcon) + e2:SetCost(c5067884.atkcost) + e2:SetTarget(c5067884.atktg) + e2:SetOperation(c5067884.atkop) + c:RegisterEffect(e2) +end +function c5067884.repfilter(c,tp) + return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_ONFIELD) and c:IsSetCard(0xd8) + and (c:IsReason(REASON_BATTLE) or (c:IsReason(REASON_EFFECT) and c:GetReasonPlayer()~=tp)) +end +function c5067884.reptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return eg:IsExists(c5067884.repfilter,1,e:GetHandler(),tp) and not e:GetHandler():IsStatus(STATUS_DESTROY_CONFIRMED) end + return Duel.SelectYesNo(tp,aux.Stringid(5067884,0)) +end +function c5067884.repval(e,c) + return c5067884.repfilter(c,e:GetHandlerPlayer()) +end +function c5067884.repop(e,tp,eg,ep,ev,re,r,rp) + Duel.Destroy(e:GetHandler(),REASON_EFFECT+REASON_REPLACE) +end +function c5067884.atkcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsAbleToEnterBP() +end +function c5067884.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,c,0xd8) end + local rg=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,c,0xd8) + Duel.Release(rg,REASON_COST) +end +function c5067884.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + local con1=c:GetFlagEffect(5067884)==0 + local con2=c:GetFlagEffect(5067885)==0 + if chk==0 then return con1 or con2 end + local op=0 + if con1 and con2 then + op=Duel.SelectOption(tp,aux.Stringid(5067884,1),aux.Stringid(5067884,2)) + elseif con1 then + op=Duel.SelectOption(tp,aux.Stringid(5067884,1)) + else + op=Duel.SelectOption(tp,aux.Stringid(5067884,2))+1 + end + e:SetLabel(op) +end +function c5067884.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local op=e:GetLabel() + if op==0 then + if c:IsFaceup() and c:IsRelateToEffect(e) then + c:RegisterFlagEffect(5067884,RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END,0,0) + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DIRECT_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + end + elseif op==1 then + if c:IsFaceup() and c:IsRelateToEffect(e) then + c:RegisterFlagEffect(5067885,RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END,0,0) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_EXTRA_ATTACK) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetValue(1) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e2) + end + end +end diff --git a/script/c50692511.lua b/script/c50692511.lua index 06c9edf6..fff34828 100644 --- a/script/c50692511.lua +++ b/script/c50692511.lua @@ -55,7 +55,7 @@ function c50692511.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c50692511.filter2,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp,code) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end end diff --git a/script/c50702124.lua b/script/c50702124.lua index 86c03efa..7f5d22b7 100644 --- a/script/c50702124.lua +++ b/script/c50702124.lua @@ -24,8 +24,11 @@ function c50702124.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c50702124.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then c:CompleteProcedure() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c50720316.lua b/script/c50720316.lua old mode 100755 new mode 100644 diff --git a/script/c50725996.lua b/script/c50725996.lua index 8f9e2271..1ba7f30a 100644 --- a/script/c50725996.lua +++ b/script/c50725996.lua @@ -18,10 +18,10 @@ function c50725996.initial_effect(c) c:RegisterEffect(e2) end function c50725996.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end + if chkc then return chkc:IsOnField() end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c50725996.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c50766506.lua b/script/c50766506.lua index 33637881..30adfe62 100644 --- a/script/c50766506.lua +++ b/script/c50766506.lua @@ -23,7 +23,7 @@ function c50766506.cfilter(c,e,tp) end function c50766506.spfilter(c,lv,e,tp) return c:IsLevelBelow(lv) and c:IsSetCard(0x2b) and - (c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) or c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENCE)) + (c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) or c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)) end function c50766506.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 and Duel.CheckReleaseGroup(tp,c50766506.cfilter,1,nil,e,tp) end @@ -34,7 +34,7 @@ function c50766506.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c50766506.spfilter2(c,e,tp) return c:IsSetCard(0x2b) and - (c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) or c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENCE)) + (c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) or c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)) end function c50766506.operation(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end @@ -53,7 +53,7 @@ function c50766506.operation(e,tp,eg,ep,ev,re,r,rp) slv=slv-tc:GetLevel() local spos=0 if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then spos=spos+POS_FACEUP_ATTACK end - if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENCE end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENSE end Duel.SpecialSummonStep(tc,0,tp,tp,false,false,spos) if tc:IsFacedown() then cg:AddCard(tc) end c:SetCardTarget(tc) diff --git a/script/c50789693.lua b/script/c50789693.lua index 62dd7356..32aa3df8 100644 --- a/script/c50789693.lua +++ b/script/c50789693.lua @@ -40,7 +40,7 @@ function c50789693.adop(e,tp,eg,ep,ev,re,r,rp) if opt==0 then e1:SetCode(EFFECT_UPDATE_ATTACK) else - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) end e1:SetValue(1000) e1:SetReset(RESET_EVENT+0x1ff0000) diff --git a/script/c50866755.lua b/script/c50866755.lua index 880f5a9f..4c68b70d 100644 --- a/script/c50866755.lua +++ b/script/c50866755.lua @@ -1,5 +1,7 @@ --鳳凰 function c50866755.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c50866755.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c50866755.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --destroy local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(50866755,1)) @@ -31,7 +23,7 @@ function c50866755.initial_effect(c) c:RegisterEffect(e5) end function c50866755.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c50866755.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -42,39 +34,3 @@ function c50866755.desop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c50866755.filter,tp,0,LOCATION_SZONE,nil) Duel.Destroy(g,REASON_EFFECT) end -function c50866755.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(50866755,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c50866755.retcon) - e1:SetTarget(c50866755.rettg) - e1:SetOperation(c50866755.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c50866755.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c50866755.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c50866755.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c50896944.lua b/script/c50896944.lua index 752e48f1..b230394c 100644 --- a/script/c50896944.lua +++ b/script/c50896944.lua @@ -12,7 +12,7 @@ function c50896944.initial_effect(c) c:RegisterEffect(e1) end function c50896944.filter(c) - return not c:IsPosition(POS_FACEUP_DEFENCE) + return not c:IsPosition(POS_FACEUP_DEFENSE) end function c50896944.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c50896944.filter(chkc) end @@ -22,7 +22,7 @@ function c50896944.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c50896944.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not tc:IsPosition(POS_FACEUP_DEFENCE) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) + if tc:IsRelateToEffect(e) and not tc:IsPosition(POS_FACEUP_DEFENSE) then + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) end end diff --git a/script/c50903514.lua b/script/c50903514.lua index 3322066d..438ede5b 100644 --- a/script/c50903514.lua +++ b/script/c50903514.lua @@ -29,7 +29,7 @@ function c50903514.initial_effect(c) end function c50903514.condition(e,tp,eg,ep,ev,re,r,rp) local ph=Duel.GetCurrentPhase() - return ph==PHASE_BATTLE or (ph==PHASE_DAMAGE and not Duel.IsDamageCalculated()) + return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE and (ph~=PHASE_DAMAGE or not Duel.IsDamageCalculated()) end function c50903514.filter(c) return c:IsFaceup() and c:IsRace(RACE_WARRIOR) diff --git a/script/c50913601.lua b/script/c50913601.lua index ad9ec5e3..39f3ae52 100644 --- a/script/c50913601.lua +++ b/script/c50913601.lua @@ -16,7 +16,7 @@ function c50913601.initial_effect(c) c:RegisterEffect(e2) --Def local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(200) c:RegisterEffect(e3) end diff --git a/script/c50916353.lua b/script/c50916353.lua index 7a406a4a..95edde5c 100644 --- a/script/c50916353.lua +++ b/script/c50916353.lua @@ -12,7 +12,7 @@ function c50916353.initial_effect(c) end function c50916353.regcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return ep==tp and c:GetBattleTarget()==eg:GetFirst() + return ep==tp and c==Duel.GetAttackTarget() end function c50916353.regop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() @@ -21,12 +21,16 @@ function c50916353.regop(e,tp,eg,ep,ev,re,r,rp) e1:SetCategory(CATEGORY_DAMAGE) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) e1:SetCode(EVENT_BATTLE_DESTROYED) + e1:SetCondition(c50916353.damcon) e1:SetTarget(c50916353.damtg) e1:SetOperation(c50916353.damop) e1:SetLabel(ev) e1:SetReset(RESET_PHASE+PHASE_DAMAGE) c:RegisterEffect(e1) end +function c50916353.damcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsLocation(LOCATION_GRAVE) +end function c50916353.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end Duel.SetTargetPlayer(1-tp) diff --git a/script/c50920465.lua b/script/c50920465.lua index 3bf75f3d..6f433bff 100644 --- a/script/c50920465.lua +++ b/script/c50920465.lua @@ -21,14 +21,16 @@ function c50920465.cost(e,tp,eg,ep,ev,re,r,rp,chk) end function c50920465.filter(c,e,tp) return c:IsRace(RACE_WINDBEAST) and c:IsAttribute(ATTRIBUTE_WATER) - and not c:IsCode(50920465) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + and not c:IsCode(50920465) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c50920465.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c50920465.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_GRAVE) end -function c50920465.operation(e,tp,eg,ep,ev,re,r,rp,chk) +function c50920465.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g1=Duel.GetMatchingGroup(c50920465.filter,tp,LOCATION_HAND,0,nil,e,tp) local g2=Duel.GetMatchingGroup(c50920465.filter,tp,LOCATION_GRAVE,0,nil,e,tp) @@ -38,6 +40,7 @@ function c50920465.operation(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg2=g2:Select(tp,1,1,nil) sg1:Merge(sg2) + if sg1:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummon(sg1,0,tp,tp,false,false,POS_FACEUP) if e:GetHandler():IsRelateToEffect(e) then Duel.BreakEffect() diff --git a/script/c50954680.lua b/script/c50954680.lua new file mode 100644 index 00000000..97aab408 --- /dev/null +++ b/script/c50954680.lua @@ -0,0 +1,70 @@ +--クリスタルウィング・シンクロ・ドラゴン +function c50954680.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsType,TYPE_SYNCHRO),1) + c:EnableReviveLimit() + --negate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(50954680,0)) + e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_CHAINING) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCondition(c50954680.condition) + e1:SetTarget(c50954680.target) + e1:SetOperation(c50954680.operation) + c:RegisterEffect(e1) + -- + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) + e2:SetCode(EVENT_PRE_DAMAGE_CALCULATE) + e2:SetCondition(c50954680.atkcon) + e2:SetOperation(c50954680.atkop) + c:RegisterEffect(e2) +end +function c50954680.condition(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local rc=re:GetHandler() + return re:IsActiveType(TYPE_MONSTER) and rc~=c and not c:IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) +end +function c50954680.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end +end +function c50954680.operation(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + local c=e:GetHandler() + local rc=re:GetHandler() + if rc:IsRelateToEffect(re) and Duel.Destroy(rc,REASON_EFFECT)~=0 and rc:GetBaseAttack()>=0 + and c:IsRelateToEffect(e) and c:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) + e1:SetValue(rc:GetBaseAttack()) + c:RegisterEffect(e1) + end +end +function c50954680.atkcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local bc=c:GetBattleTarget() + return bc and bc:IsLevelAbove(5) and bc:IsControler(1-tp) +end +function c50954680.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local bc=c:GetBattleTarget() + if c:IsRelateToBattle() and c:IsFaceup() and bc:IsRelateToBattle() and bc:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) + e1:SetValue(bc:GetAttack()) + c:RegisterEffect(e1) + end +end diff --git a/script/c50957346.lua b/script/c50957346.lua index 8802b957..3cf8dacc 100644 --- a/script/c50957346.lua +++ b/script/c50957346.lua @@ -15,7 +15,7 @@ function c50957346.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c50957346.filter(c) - return (c:IsFacedown() or c:GetAttribute()~=ATTRIBUTE_EARTH) and c:IsDestructable() + return (c:IsFacedown() or c:GetAttribute()~=ATTRIBUTE_EARTH) end function c50957346.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c510000000.lua b/script/c510000000.lua deleted file mode 100644 index ffa20b26..00000000 --- a/script/c510000000.lua +++ /dev/null @@ -1,64 +0,0 @@ ---Sp－シンクロ・パニック -function c510000000.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c510000000.cost) - e1:SetTarget(c510000000.tg) - e1:SetOperation(c510000000.op) - c:RegisterEffect(e1) -end -function c510000000.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>6 -end -function c510000000.filter(c,e,tp) - return c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c510000000.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c510000000.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c510000000.op(e,tp,eg,ep,ev,re,r,rp) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c510000000.filter,tp,LOCATION_GRAVE,0,ft,ft,nil,e,tp) - if g:GetCount()==0 then return end - local c=e:GetHandler() - local tc=g:GetFirst() - while tc do - Duel.SpecialSummonStep(tc, 0, tp, tp, false, false, POS_FACEUP_ATTACK) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_SET_ATTACK_FINAL) - e3:SetValue(0) - e3:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_UPDATE_LEVEL) - e4:SetValue(-11) - e4:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_CANNOT_CHANGE_POSITION) - e5:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e5) - tc=g:GetNext() - end -end diff --git a/script/c51028231.lua b/script/c51028231.lua new file mode 100644 index 00000000..dd88798d --- /dev/null +++ b/script/c51028231.lua @@ -0,0 +1,101 @@ +--魔界劇団－サッシー・ルーキー +function c51028231.initial_effect(c) + aux.EnablePendulumAttribute(c) + --destroy replace + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_DESTROY_REPLACE) + e1:SetRange(LOCATION_PZONE) + e1:SetTarget(c51028231.reptg) + e1:SetValue(c51028231.repval) + e1:SetOperation(c51028231.repop) + c:RegisterEffect(e1) + --indes + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EFFECT_INDESTRUCTABLE_COUNT) + e2:SetCountLimit(1) + e2:SetValue(c51028231.indct) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(51028231,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_DESTROYED) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetCondition(c51028231.spcon) + e3:SetTarget(c51028231.sptg) + e3:SetOperation(c51028231.spop) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(51028231,2)) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_DESTROYED) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e4:SetCondition(c51028231.descon) + e4:SetTarget(c51028231.destg) + e4:SetOperation(c51028231.desop) + c:RegisterEffect(e4) +end +function c51028231.filter(c,tp) + return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) + and c:IsSetCard(0x10ec) and not c:IsReason(REASON_REPLACE) +end +function c51028231.reptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return eg:IsExists(c51028231.filter,1,nil,tp) and not e:GetHandler():IsStatus(STATUS_DESTROY_CONFIRMED) end + return Duel.SelectYesNo(tp,aux.Stringid(51028231,0)) +end +function c51028231.repval(e,c) + return c51028231.filter(c,e:GetHandlerPlayer()) +end +function c51028231.repop(e,tp,eg,ep,ev,re,r,rp) + Duel.Destroy(e:GetHandler(),REASON_EFFECT+REASON_REPLACE) +end +function c51028231.indct(e,re,r,rp) + return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 +end +function c51028231.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return (rp==1-tp and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE)) or c:IsReason(REASON_BATTLE) +end +function c51028231.spfilter(c,e,tp) + return c:IsSetCard(0x10ec) and c:IsLevelBelow(4) and not c:IsCode(51028231) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c51028231.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c51028231.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) +end +function c51028231.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c51028231.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end +function c51028231.descon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_EFFECT) and c:IsPreviousLocation(LOCATION_SZONE) and (c:GetPreviousSequence()==6 or c:GetPreviousSequence()==7) +end +function c51028231.desfilter(c) + return c:IsFaceup() and c:IsLevelBelow(4) +end +function c51028231.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c51028231.desfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c51028231.desfilter,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c51028231.desfilter,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c51028231.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c51053997.lua b/script/c51053997.lua new file mode 100644 index 00000000..753fddbf --- /dev/null +++ b/script/c51053997.lua @@ -0,0 +1,141 @@ +--PSYフレーム・アクセラレーター +function c51053997.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(51053997,0)) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMING_END_PHASE) + e1:SetTarget(c51053997.target1) + e1:SetOperation(c51053997.operation) + c:RegisterEffect(e1) + --remove + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(51053997,2)) + e3:SetCategory(CATEGORY_REMOVE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetRange(LOCATION_SZONE) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetHintTiming(0,TIMING_END_PHASE) + e3:SetCountLimit(1) + e3:SetCost(c51053997.cost) + e3:SetTarget(c51053997.target2) + e3:SetOperation(c51053997.operation) + c:RegisterEffect(e3) + --special summon + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(51053997,3)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e4:SetProperty(EFFECT_FLAG_DELAY) + e4:SetCode(EVENT_LEAVE_FIELD) + e4:SetRange(LOCATION_SZONE) + e4:SetCountLimit(1) + e4:SetCondition(c51053997.spcon) + e4:SetCost(c51053997.spcost) + e4:SetTarget(c51053997.sptg2) + e4:SetOperation(c51053997.spop) + c:RegisterEffect(e4) +end +function c51053997.rmfilter(c) + return c:IsSetCard(0xc1) and c:IsAbleToRemove() +end +function c51053997.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c51053997.rmfilter(chkc) end + if chk==0 then return true end + if e:GetHandler():GetFlagEffect(51053997)==0 and Duel.CheckLPCost(tp,500) + and Duel.IsExistingTarget(c51053997.rmfilter,tp,LOCATION_MZONE,0,1,nil) + and Duel.SelectYesNo(tp,94) then + e:SetCategory(CATEGORY_REMOVE) + e:SetProperty(EFFECT_FLAG_CARD_TARGET) + e:GetHandler():RegisterFlagEffect(51053997,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) + Duel.PayLPCost(tp,500) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectTarget(tp,c51053997.rmfilter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) + else + e:SetCategory(0) + e:SetProperty(0) + end +end +function c51053997.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,500) + and e:GetHandler():GetFlagEffect(51053997)==0 end + Duel.PayLPCost(tp,500) + e:GetHandler():RegisterFlagEffect(51053997,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) +end +function c51053997.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c51053997.rmfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c51053997.rmfilter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectTarget(tp,c51053997.rmfilter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) +end +function c51053997.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:GetFlagEffect(51053997)==0 or not c:IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Remove(tc,0,REASON_EFFECT+REASON_TEMPORARY)~=0 then + local ct=1 + if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_STANDBY then ct=2 end + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(51053997,4)) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetCode(EVENT_PHASE+PHASE_STANDBY) + e1:SetCountLimit(1) + e1:SetLabelObject(tc) + e1:SetCondition(c51053997.retcon) + e1:SetOperation(c51053997.retop) + if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_STANDBY then + e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,2) + e1:SetValue(Duel.GetTurnCount()) + else + e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN) + e1:SetValue(0) + end + Duel.RegisterEffect(e1,tp) + tc:RegisterFlagEffect(51053998,RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,0,ct) + end +end +function c51053997.retcon(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetTurnPlayer()~=tp or Duel.GetTurnCount()==e:GetValue() then return false end + return e:GetLabelObject():GetFlagEffect(51053998)~=0 +end +function c51053997.retop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + if tc:IsForbidden() then + Duel.SendtoGrave(tc,REASON_RULE) + else + Duel.ReturnToField(tc) + end +end +function c51053997.cfilter(c,tp) + return c:IsPreviousSetCard(0xc1) and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousControler()==tp +end +function c51053997.spcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c51053997.cfilter,1,e:GetHandler(),tp) +end +function c51053997.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetFlagEffect(51053999)==0 end + e:GetHandler():RegisterFlagEffect(51053999,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) +end +function c51053997.spfilter(c,e,tp) + return c:IsSetCard(0xc1) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c51053997.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsRelateToEffect(e) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c51053997.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c51053997.spop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c51053997.spfilter,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 diff --git a/script/c51085303.lua b/script/c51085303.lua index 2fbc4bf6..2c21fd38 100644 --- a/script/c51085303.lua +++ b/script/c51085303.lua @@ -29,7 +29,7 @@ function c51085303.adcon(e,tp,eg,ep,ev,re,r,rp) end function c51085303.adop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() and c:GetDefence()>=200 then + if c:IsRelateToEffect(e) and c:IsFaceup() and c:GetDefense()>=200 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UPDATE_ATTACK) @@ -38,7 +38,7 @@ function c51085303.adop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(-200) c:RegisterEffect(e2) end diff --git a/script/c51099515.lua b/script/c51099515.lua old mode 100755 new mode 100644 diff --git a/script/c511000001.lua b/script/c511000001.lua deleted file mode 100644 index 7b608e39..00000000 --- a/script/c511000001.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Spark Breaker -function c511000001.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1) - e1:SetHintTiming(0,TIMING_END_PHASE) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000001,1)) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetCountLimit(1) - e2:SetHintTiming(0,TIMING_END_PHASE) - e2:SetTarget(c511000001.target) - e2:SetOperation(c511000001.operation) - c:RegisterEffect(e2) - end -function c511000001.filter(c) - return c:IsDestructable() -end -function c511000001.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsOnField() and c511000001.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c511000001.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c511000001.filter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c511000001.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c511000002.lua b/script/c511000002.lua deleted file mode 100644 index 8995a91a..00000000 --- a/script/c511000002.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Floral Shield -function c511000002.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c511000002.condition) - e1:SetTarget(c511000002.target) - e1:SetOperation(c511000002.activate) - c:RegisterEffect(e1) -end -function c511000002.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c511000002.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c511000002.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsAttackable() then - if Duel.NegateAttack(tc) then - Duel.Draw(tp,1,REASON_EFFECT) - end - end -end \ No newline at end of file diff --git a/script/c511000003.lua b/script/c511000003.lua deleted file mode 100644 index aa8afa76..00000000 --- a/script/c511000003.lua +++ /dev/null @@ -1,39 +0,0 @@ ---Zero Sprite -function c511000003.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetDescription(aux.Stringid(511000003,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c511000003.target) - e1:SetOperation(c511000003.operation) - c:RegisterEffect(e1) - end -function c511000003.filter(c) - return c:IsFaceup() -end -function c511000003.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return c:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c511000003.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c511000003.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c511000003.filter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) -end -function c511000003.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and c511000003.filter(tc) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(0) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EFFECT_EXTRA_ATTACK) - e2:SetValue(1) - tc:RegisterEffect(e2) - end -end diff --git a/script/c511000004.lua b/script/c511000004.lua deleted file mode 100644 index 08622f5e..00000000 --- a/script/c511000004.lua +++ /dev/null @@ -1,30 +0,0 @@ ---Twin Vortex -function c511000004.initial_effect(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c511000004.target) - e1:SetOperation(c511000004.operation) - c:RegisterEffect(e1) -end -function c511000004.desfilter(c) - return c:IsFaceup() and c:IsRace(RACE_MACHINE) and c:IsDestructable() - and Duel.IsExistingTarget(Card.IsDestructable,0,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) -end -function c511000004.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c511000004.desfilter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,c511000004.desfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,g1:GetFirst()) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,g1:GetCount(),0,0) -end -function c511000004.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - Duel.Destroy(g,REASON_EFFECT) -end diff --git a/script/c511000005.lua b/script/c511000005.lua deleted file mode 100644 index dfdf0682..00000000 --- a/script/c511000005.lua +++ /dev/null @@ -1,36 +0,0 @@ ---Toy Soldier -function c511000005.initial_effect(c) - --to deck - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000005,1)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetProperty(EFFECT_FLAG_REPEAT) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c511000005.con) - e1:SetTarget(c511000005.target) - e1:SetOperation(c511000005.operation) - c:RegisterEffect(e1) -end -function c511000005.con(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c511000005.filter(c,e,tp) - return c:IsCode(511000005) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) -end -function c511000005.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c511000005.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c511000005.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000005.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP_ATTACK) - end -end \ No newline at end of file diff --git a/script/c511000006.lua b/script/c511000006.lua deleted file mode 100644 index 4a87c994..00000000 --- a/script/c511000006.lua +++ /dev/null @@ -1,28 +0,0 @@ ---Toy Emperor -function c511000006.initial_effect(c) - --draw - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000006,0)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_BATTLE_DESTROYING) - e1:SetTarget(c511000006.target) - e1:SetOperation(c511000006.operation) - c:RegisterEffect(e1) -end -function c511000006.filter(c) - return c:IsType(TYPE_TRAP) and c:IsAbleToHand() -end -function c511000006.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000006.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c511000006.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c511000006.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c511000007.lua b/script/c511000007.lua deleted file mode 100644 index 35a8035b..00000000 --- a/script/c511000007.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Crowning of the Emperor -function c511000007.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c511000007.cost) - e1:SetTarget(c511000007.target) - e1:SetOperation(c511000007.operation) - c:RegisterEffect(e1) -end -function c511000007.afilter(c, code) - return c:IsCode(511000005) and c:IsFaceup() -end -function c511000007.bfilter(c,e,tp) - return c:IsCode(511000006) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) -end -function c511000007.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c511000007.afilter,1,nil) end - local g=Duel.SelectReleaseGroup(tp,c511000007.afilter,1,1,nil) - Duel.Release(g,REASON_COST) -end -function c511000007.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c511000007.bfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c511000007.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000007.bfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c511000008.lua b/script/c511000008.lua deleted file mode 100644 index da3041f9..00000000 --- a/script/c511000008.lua +++ /dev/null @@ -1,53 +0,0 @@ ---Hook the Hidden Knight -function c511000008.initial_effect(c) - --Change Battle Position - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000008,0)) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_BE_BATTLE_TARGET) - e1:SetTarget(c511000008.target) - e1:SetOperation(c511000008.operation) - c:RegisterEffect(e1) - --Inflict Damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000008,0)) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_CHANGE_POS) - e2:SetCondition(c511000008.condition) - e2:SetTarget(c511000008.damtg) - e2:SetOperation(c511000008.damop) - c:RegisterEffect(e2) -end -function c511000008.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return false end - local c=e:GetHandler() - local bc=Duel.GetAttacker() - if chk==0 then return bc and bc:IsOnField() and bc:IsCanBeEffectTarget(e) and c:IsAttackPos() and bc:IsAttackPos() end - Duel.SetTargetCard(bc) - local g=Group.FromCards(c,bc) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,2,0,0) -end -function c511000008.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if not c:IsRelateToEffect(e) or not tc:IsRelateToEffect(e) then return end - local g=Group.FromCards(c,tc) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) -end -function c511000008.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return bit.band(c:GetPreviousPosition(),POS_ATTACK)~=0 and c:IsFaceup() and c:IsDefencePos() -end -function c511000008.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(800) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) -end -function c511000008.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c511000009.lua b/script/c511000009.lua deleted file mode 100644 index 3ec27df2..00000000 --- a/script/c511000009.lua +++ /dev/null @@ -1,41 +0,0 @@ ---Archfiend Matador -function c511000009.initial_effect(c) - c:EnableReviveLimit() - --cannot attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - c:RegisterEffect(e1) - --battle indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(1) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - e3:SetValue(1) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(511000009,0)) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetCode(EVENT_DAMAGE_STEP_END) - e4:SetTarget(c511000009.destg) - e4:SetOperation(c511000009.desop) - c:RegisterEffect(e4) -end -function c511000009.destg(e,tp,eg,ep,ev,re,r,rp,chk) - local bc=e:GetHandler():GetBattleTarget() - if chk==0 then return bc and bc:IsRelateToBattle() end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,bc,1,0,0) -end -function c511000009.desop(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetHandler():GetBattleTarget() - if bc:IsRelateToBattle() then - Duel.Destroy(bc,REASON_EFFECT) - end -end diff --git a/script/c511000010.lua b/script/c511000010.lua deleted file mode 100644 index 9562a873..00000000 --- a/script/c511000010.lua +++ /dev/null @@ -1,4 +0,0 @@ ---Ritual of the Matador -function c511000010.initial_effect(c) - aux.AddRitualProcGreater(c,aux.FilterBoolFunction(Card.IsCode,511000009)) -end diff --git a/script/c511000011.lua b/script/c511000011.lua deleted file mode 100644 index 770cdbec..00000000 --- a/script/c511000011.lua +++ /dev/null @@ -1,46 +0,0 @@ ---Kiteroid -function c511000011.initial_effect(c) - --no damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000011,0)) - e1:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_HAND) - e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e1:SetCondition(c511000011.con) - e1:SetCost(c511000011.cost) - e1:SetOperation(c511000011.op) - c:RegisterEffect(e1) - --no damage 2 - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000011,0)) - e1:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) - e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c511000011.con2) - e1:SetCost(c511000011.cost2) - e1:SetOperation(c511000011.op2) - c:RegisterEffect(e1) -end -function c511000011.con(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttacker() - return at:GetControler()~=tp and Duel.GetAttackTarget()==nil -end -function c511000011.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDiscardable() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) -end -function c511000011.op(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,0) -end -function c511000011.con2(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttacker() - return at:GetControler()~=tp and Duel.GetAttackTarget()==nil -end -function c511000011.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,511000011 )==0 and e:GetHandler():IsAbleToRemoveAsCost() end - Duel.RegisterFlagEffect(tp,511000011,0,0,0) - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c511000011.op2(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,0) -end \ No newline at end of file diff --git a/script/c511000012.lua b/script/c511000012.lua deleted file mode 100644 index 2e5061d4..00000000 --- a/script/c511000012.lua +++ /dev/null @@ -1,104 +0,0 @@ ---Fenrir of the Nordic Wicked Wolves -function c511000012.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) - e1:SetRange(LOCATION_HAND) - e1:SetTargetRange(POS_FACEUP_DEFENCE,1) - e1:SetCondition(c511000012.spccon) - e1:SetOperation(c511000012.spcop) - c:RegisterEffect(e1) - --Change Battle Pos - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000012,0)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_PHASE+PHASE_STANDBY) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c511000012.bptg) - e3:SetOperation(c511000012.bpop) - c:RegisterEffect(e3) - --selfdes - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_SINGLE) - e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e7:SetRange(LOCATION_MZONE) - e7:SetCode(EFFECT_SELF_DESTROY) - e7:SetCondition(c511000012.descon) - c:RegisterEffect(e7) - --Share Damage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EVENT_DAMAGE) - e2:SetCondition(c511000012.sdcon) - e2:SetOperation(c511000012.sdop) - c:RegisterEffect(e2) - --Cost - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_SPSUMMON_COST) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCost(c511000012.spcost) - e3:SetOperation(c511000012.spop) - c:RegisterEffect(e3) -end -function c511000012.bptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(aux.TRUE,tp,LOCATION_MZONE,1,nil) end - local sg=Duel.GetFieldGroup(tp,aux.TRUE,tp,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,sg,sg:GetCount(),0,0) -end -function c511000012.bpop(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetFieldGroup(tp,LOCATION_MZONE,nil) - if sg:GetCount()>0 then - Duel.ChangePosition(sg,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) - end -end -function c511000012.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0x42) -end -function c511000012.descon(e) - return not Duel.IsExistingMatchingCard(c511000012.desfilter,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil) -end -function c511000012.sdcon(e,tp,eg,ep,ev,re,r,rp) - return ep==1-tp and r==REASON_BATTLE and (Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()) and Duel.GetAttackTarget()~=nil -end -function c511000012.sdop(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(tp,ev,REASON_EFFECT) -end -function c511000012.spccon(e,c,tp) - return not Duel.CheckNormalSummonActivity(tp) - end -function c511000012.spcop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetReset(RESET_PHASE+RESET_END) - e1:SetTargetRange(1,0) - Duel.RegisterEffect(e1,tp) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_MSET) - Duel.RegisterEffect(e2,tp) -end -function c511000012.spcost(e,c,tp) - return not Duel.CheckNormalSummonActivity(tp) -end -function c511000012.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetReset(RESET_PHASE+RESET_END) - e1:SetTargetRange(1,0) - Duel.RegisterEffect(e1,tp) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_MSET) - Duel.RegisterEffect(e2,tp) -end \ No newline at end of file diff --git a/script/c511000013.lua b/script/c511000013.lua deleted file mode 100644 index b2c3f2d8..00000000 --- a/script/c511000013.lua +++ /dev/null @@ -1,75 +0,0 @@ ---Jormungandr of the Nordic Wicked Dragons -function c511000013.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) - e1:SetRange(LOCATION_HAND) - e1:SetTargetRange(POS_FACEUP_DEFENCE,1) - e1:SetCondition(c511000013.spcon) - e1:SetOperation(c511000013.spcop) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(88438034,1)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e2:SetCode(EVENT_CHANGE_POS) - e2:SetCondition(c511000013.damcon) - e2:SetTarget(c511000013.damtg) - e2:SetOperation(c511000013.damop) - c:RegisterEffect(e2) - --Cost - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_SPSUMMON_COST) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCost(c511000013.spcost) - e3:SetOperation(c511000013.spop) - c:RegisterEffect(e3) -end -function c511000013.damcon(e,tp,eg,ep,ev,re,r,rp) -local c=e:GetHandler() - return bit.band(c:GetPreviousPosition(),POS_DEFENCE)~=0 and c:IsFaceup() and c:IsAttackPos() -end -function c511000013.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,0,0,tp,3000) -end -function c511000013.damop(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(e:GetHandler():GetControler(),3000,REASON_EFFECT) -end -function c511000013.spcon(e,c,tp) - return not Duel.CheckNormalSummonActivity(tp) -end -function c511000013.spcop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetReset(RESET_PHASE+RESET_END) - e1:SetTargetRange(1,0) - Duel.RegisterEffect(e1,tp) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_MSET) - Duel.RegisterEffect(e2,tp) -end -function c511000013.spcost(e,c,tp) - return not Duel.CheckNormalSummonActivity(tp) -end -function c511000013.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetReset(RESET_PHASE+RESET_END) - e1:SetTargetRange(1,0) - Duel.RegisterEffect(e1,tp) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_MSET) - Duel.RegisterEffect(e2,tp) -end \ No newline at end of file diff --git a/script/c511000014.lua b/script/c511000014.lua deleted file mode 100644 index 396e4d20..00000000 --- a/script/c511000014.lua +++ /dev/null @@ -1,33 +0,0 @@ ---Gatling Ogre -function c511000014.initial_effect(c) - --inflict damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000014,0)) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_PLAYER_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c511000014.cost) - e1:SetTarget(c511000014.target) - e1:SetOperation(c511000014.operation) - c:RegisterEffect(e1) -end -function c511000014.filter(c) - return c:IsFacedown() and c:IsAbleToGraveAsCost() -end -function c511000014.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(800) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) -end -function c511000014.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000014.filter,tp,LOCATION_SZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c511000014.filter,tp,LOCATION_SZONE,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c511000014.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c511000015.lua b/script/c511000015.lua deleted file mode 100644 index 0f64fe40..00000000 --- a/script/c511000015.lua +++ /dev/null @@ -1,56 +0,0 @@ ---Basara -function c511000015.initial_effect(c) - --Activate - local e0=Effect.CreateEffect(c) - e0:SetType(EFFECT_TYPE_ACTIVATE) - e0:SetCode(EVENT_FREE_CHAIN) - e0:SetHintTiming(0,TIMING_END_PHASE) - c:RegisterEffect(e0) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_SZONE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1) - e1:SetCost(c511000015.descost) - e1:SetTarget(c511000015.destg) - e1:SetOperation(c511000015.desop) - c:RegisterEffect(e1) -end -function c511000015.cfilter(c,tp) - return c:IsType(TYPE_MONSTER) - and Duel.IsExistingTarget(c511000015.dfilter,tp,0,LOCATION_MZONE,1,nil,c:GetLevel()) -end -function c511000015.dfilter(c,lv) - return c:IsFaceup() and c:IsLevelAbove(lv+1) and c:IsDestructable() -end -function c511000015.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000015.cfilter,tp,LOCATION_MZONE,0,1,nil,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local g=Duel.SelectMatchingCard(tp,c511000015.cfilter,tp,LOCATION_MZONE,0,1,1,nil,tp) - local lv=g:GetFirst():GetLevel() - e:SetLabel(lv) - Duel.Release(g,REASON_COST) -end -function c511000015.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c511000015.dfilter(chkc,e:GetLabel()) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c511000015.dfilter,tp,0,LOCATION_MZONE,1,1,nil,e:GetLabel()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(800) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) -end - - -function c511000015.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsControler(1-tp) and tc:IsRelateToEffect(e) and tc:IsLevelAbove(e:GetLabel()+1) then - Duel.Destroy(tc,REASON_EFFECT) - end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000016.lua b/script/c511000016.lua deleted file mode 100644 index 51d12cd7..00000000 --- a/script/c511000016.lua +++ /dev/null @@ -1,60 +0,0 @@ ---Gate Defender (Script by RaiZZZ19) -function c511000016.initial_effect(c) - --negate 1 attack - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000016,0)) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_BE_BATTLE_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c511000016.nacon) - e1:SetOperation(c511000016.naop) - c:RegisterEffect(e1) - --cannot be battle target - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e2:SetCondition(c511000016.cbbtcon) - e2:SetValue(1) - c:RegisterEffect(e2) - --Self-destruct - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(66600006,1)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetCode(EVENT_BATTLE_DESTROYED) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c511000016.sdcon) - e3:SetTarget(c511000016.sdtg) - e3:SetOperation(c511000016.operation) - c:RegisterEffect(e3) -end -function c511000016.nacon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bt=eg:GetFirst() - return bt:GetControler()==c:GetControler() -end -function c511000016.naop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateAttack() -end -function c511000016.cbbtcon(e) - return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_MZONE,0)>1 -end -function c511000016.filter(c,tp) ---------affects one side of field---------------- - return c:IsReason(REASON_BATTLE) and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp and c:IsType(TYPE_MONSTER) -end -function c511000016.sdcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c511000016.filter,1,nil,tp) -end -function c511000016.sdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) -end -function c511000016.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.Destroy(c,nil,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c511000017.lua b/script/c511000017.lua deleted file mode 100644 index b8d987e7..00000000 --- a/script/c511000017.lua +++ /dev/null @@ -1,66 +0,0 @@ ---Dark Arena -function c511000017.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --choice - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetCondition(c511000017.condition) - e2:SetOperation(c511000017.operation) - c:RegisterEffect(e2) - --choice2 - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_ATTACK_ANNOUNCE) - e3:SetCondition(c511000017.condition2) - e3:SetOperation(c511000017.operation2) - c:RegisterEffect(e3) - --must attack - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_MUST_ATTACK) - e4:SetRange(LOCATION_SZONE) - e4:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD) - e5:SetCode(EFFECT_CANNOT_EP) - e5:SetRange(LOCATION_SZONE) - e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e5:SetTargetRange(1,1) - e5:SetCondition(c511000017.becon) - c:RegisterEffect(e5) -end -function c511000017.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c511000017.operation(e,tp,eg,ep,ev,re,r,rp) - local ats=eg:GetFirst():GetAttackableTarget() - local at=Duel.GetAttackTarget() - if ats:GetCount()==0 or (at and ats:GetCount()==1) then return end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(511000017,1)) - local g=ats:Select(tp,1,1,nil) - Duel.HintSelection(g) - Duel.ChangeAttackTarget(g:GetFirst()) -end -function c511000017.condition2(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() -end -function c511000017.operation2(e,tp,eg,ep,ev,re,r,rp) - local ats=eg:GetFirst():GetAttackableTarget() - local at=Duel.GetAttackTarget() - if ats:GetCount()==0 or (at and ats:GetCount()==1) then return end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(511000017,1)) - local g=ats:Select(1-tp,1,1,nil) - Duel.HintSelection(g) - Duel.ChangeAttackTarget(g:GetFirst()) -end -function c511000017.becon(e) - return Duel.IsExistingMatchingCard(Card.IsAttackable,Duel.GetTurnPlayer(),LOCATION_MZONE,0,1,nil) -end \ No newline at end of file diff --git a/script/c511000018.lua b/script/c511000018.lua deleted file mode 100644 index 5c91700c..00000000 --- a/script/c511000018.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Fleur de Vertige -function c511000018.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetTarget(c511000018.target) - e1:SetOperation(c511000018.activate) - c:RegisterEffect(e1) -end -function c511000018.filter(c,tp) - return c:IsFaceup() and c:GetSummonPlayer()~=tp - and c:IsAbleToRemove() -end -function c511000018.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c511000018.filter,1,nil,tp) end - local g=eg:Filter(c511000018.filter,nil,tp) - Duel.SetTargetCard(eg) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0) -end -function c511000018.activate(e,tp,eg,ep,ev,re,r,rp,chk) - Duel.NegateSummon(eg) - Duel.Destroy(eg,REASON_EFFECT) -end -function c511000018.filter2(c,e,tp) - return c:IsFaceup() and c:GetSummonPlayer()~=tp - and c:IsRelateToEffect(e) and c:IsLocation(LOCATION_MZONE) and c:IsAbleToRemove() -end -function c511000018.activate(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(c511000018.filter2,nil,e,tp) - if g:GetCount()>0 then - Duel.Remove(g,POS_FACEUP,REASON_EFFECT) - end -end diff --git a/script/c511000019.lua b/script/c511000019.lua deleted file mode 100644 index 87ff894c..00000000 --- a/script/c511000019.lua +++ /dev/null @@ -1,29 +0,0 @@ ---Shield Recovery -function c511000019.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000019,0)) - e1:SetCategory(CATEGORY_COUNTER) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c511000019.target) - e1:SetOperation(c511000019.activate) - c:RegisterEffect(e1) -end -function c511000019.filter(c) - return c:IsFaceup() and c:IsSetCard(0x15) and c:IsCanAddCounter(0x1f,3) -end -function c511000019.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c511000019.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c511000019.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c511000019.filter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,3,0,0x1f) -end -function c511000019.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsSetCard(0x15) and tc:IsRelateToEffect(e) then - tc:AddCounter(0x1f,3) - end -end diff --git a/script/c511000021.lua b/script/c511000021.lua deleted file mode 100644 index b25cef23..00000000 --- a/script/c511000021.lua +++ /dev/null @@ -1,43 +0,0 @@ ---Burst Impact -function c511000021.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c511000021.condition) - e1:SetTarget(c511000021.target) - e1:SetOperation(c511000021.activate) - c:RegisterEffect(e1) -end -function c511000021.cfilter(c) - return c:IsFaceup() and c:IsCode(58932615) -end -function c511000021.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c511000021.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c511000021.cfilter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c511000021.tfilter(c) - return not (c:IsFaceup() and c:IsCode(58932615)) and c:IsDestructable() -end -function c511000021.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000021.tfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(c511000021.tfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,0,g:GetCount()*300) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(c19613556.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end - local sg=Duel.GetMatchingGroup(c511000021.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c511000021.activate(e,tp,eg,ep,ev,re,r,rp) - local g1=Duel.GetMatchingGroup(c511000021.tfilter,tp,LOCATION_MZONE,0,nil) - local g2=Duel.GetMatchingGroup(c511000021.tfilter,tp,0,LOCATION_MZONE,nil) - local ct1=Duel.Destroy(g1,REASON_EFFECT) - local ct2=Duel.Destroy(g2,REASON_EFFECT) - local sg=Duel.GetMatchingGroup(c511000021.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.Destroy(sg,REASON_EFFECT)Duel.Damage(tp,ct1*300,REASON_EFFECT) - Duel.Damage(1-tp,ct2*300,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000022.lua b/script/c511000022.lua deleted file mode 100644 index a8ac8ef8..00000000 --- a/script/c511000022.lua +++ /dev/null @@ -1,28 +0,0 @@ ---Suit of Sword X -function c511000022.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_COIN) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c511000022.target) - e1:SetOperation(c511000022.activate) - c:RegisterEffect(e1) -end -function c511000022.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) and Duel.IsExistingMatchingCard(Card.IsDestructable,1-tp,LOCATION_MZONE,0,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - local sa=Duel.GetMatchingGroup(Card.IsDestructable,1-tp,LOCATION_MZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sa,sa:GetCount(),0,0) -end -function c511000022.activate(e,tp,eg,ep,ev,re,r,rp) - local res=Duel.TossCoin(tp,1) - if res==1 then - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) - else - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) - Duel.Destroy(g,REASON_EFFECT) - end -end diff --git a/script/c511000023.lua b/script/c511000023.lua deleted file mode 100644 index ee7f6d85..00000000 --- a/script/c511000023.lua +++ /dev/null @@ -1,53 +0,0 @@ ---Superficial Peace -function c511000023.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetOperation(c511000023.operation) - c:RegisterEffect(e1) -end -function c511000023.operation(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetValue(1) - Duel.RegisterEffect(e1,tp) - --destroy - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetDescription(aux.Stringid(511000023,0)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_BATTLE_DAMAGE) - e2:SetCondition(c511000023.descon) - e2:SetTarget(c511000023.destg) - e2:SetOperation(c511000023.desop) - e2:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e2,tp) -end -function c511000023.aclimit(e,re,tp) - return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) -end -function c511000023.descon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp and eg:GetFirst():GetControler()==tp -end -function c511000023.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c511000023.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and c511000023.desfilter(chkc) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c511000023.desfilter,tp,0,LOCATION_SZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c511000023.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c511000024.lua b/script/c511000024.lua deleted file mode 100644 index 5f2b1c30..00000000 --- a/script/c511000024.lua +++ /dev/null @@ -1,112 +0,0 @@ ---White Veil - function c511000024.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c511000024.target) - e1:SetOperation(c511000024.operation) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(1) - c:RegisterEffect(e2) - --negates Spell&Traps - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_ATTACK_ANNOUNCE) - e3:SetOperation(c511000024.lmop) - c:RegisterEffect(e3) - --damage - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(511000024,0)) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCategory(CATEGORY_DAMAGE) - e4:SetCode(EVENT_LEAVE_FIELD) - e4:SetCondition(c511000024.damcon) - e4:SetTarget(c511000024.damtg) - e4:SetOperation(c511000024.damop) - c:RegisterEffect(e4) -end -function c511000024.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c511000024.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,c,tc) - end -end - -----S/T negate -function c511000024.lmop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetAttacker()~=e:GetHandler():GetEquipTarget() then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(0,1) - e1:SetValue(c511000024.aclimit) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE) - Duel.RegisterEffect(e1,tp) - --disable - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_DISABLE) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(0,LOCATION_SZONE) - e2:SetTarget(c511000024.distg) - e2:SetReset(RESET_PHASE+PHASE_DAMAGE) - Duel.RegisterEffect(e2,tp) - --disable trap monster - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_DISABLE_TRAPMONSTER) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(0,LOCATION_MZONE) - e3:SetTarget(c511000024.distg) - e3:SetReset(RESET_PHASE+PHASE_DAMAGE) - Duel.RegisterEffect(e3,tp) -end -function c511000024.aclimit(e,re,tp) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) -end - -function c511000024.distg(e,c) - return c~=e:GetHandler() and c:IsType(TYPE_TRAP+TYPE_SPELL) -end ---destroy s/t -function c511000024.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker()==e:GetHandler():GetEquipTarget() -end - ------damage -function c511000024.damcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local ec=c:GetPreviousEquipTarget() - if not ec then return end - e:SetLabelObject(ec) - e:SetLabel(ec:GetPreviousControler()) - return c:IsReason(REASON_LOST_TARGET) and ec:IsReason(REASON_DESTROY) -end -function c511000024.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local dam=e:GetLabelObject():GetAttack() - if dam<0 then dam=0 end - Duel.SetTargetPlayer(e:GetLabel()) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,e:GetLabel(),dam) -end -function c511000024.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000025.lua b/script/c511000025.lua deleted file mode 100644 index aab9ba63..00000000 --- a/script/c511000025.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Tuning Collapse -function c511000025.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DECKDES) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_PLAYER_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c511000025.condition) - e1:SetTarget(c511000025.target) - e1:SetOperation(c511000025.operation) - c:RegisterEffect(e1) -end -function c511000025.cfilter(c,tp) - return c:IsType(TYPE_SYNCHRO) and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) -end -function c511000025.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c511000025.cfilter,1,nil,tp) -end -function c511000025.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and c511000025.cfilter(chkc) end - if chk==0 then return true end - local g=eg:Filter(c511000025.cfilter,nil,e,tp) - Duel.SetTargetCard(g) - local tc1=Duel.GetFirstTarget() - local desc=tc1:GetLevel() - local desp=1-tp - Duel.SetTargetPlayer(desp) - Duel.SetTargetParam(desc) - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,desp,desc) -end -function c511000025.operation(e,tp,eg,ep,ev,re,r,rp) - local dp,dc=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.DiscardDeck(dp,dc,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000026.lua b/script/c511000026.lua deleted file mode 100644 index 41b6e0ae..00000000 --- a/script/c511000026.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Jester Queen -function c511000026.initial_effect(c) - --Destroy Spell and Trap - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000026,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c511000026.sttg) - e1:SetOperation(c511000026.stop) - c:RegisterEffect(e1) - --Mulitple Attacks - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EXTRA_ATTACK) - e2:SetValue(c511000026.value) - c:RegisterEffect(e2) -end -function c511000026.stfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c511000026.sttg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(c511000026.stfilter,tp,LOCATION_ONFIELD,0,1,c) end - local sg=Duel.GetMatchingGroup(c511000026.stfilter,tp,LOCATION_ONFIELD,0,c) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c511000026.stop(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c511000026.filter,tp,LOCATION_ONFIELD,0,e:GetHandler()) - Duel.Destroy(sg,REASON_EFFECT) -end -function c511000026.value(e,c) - return Duel.GetMatchingGroupCount(Card.IsType,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,nil,TYPE_SPELL+TYPE_TRAP) -end \ No newline at end of file diff --git a/script/c511000027.lua b/script/c511000027.lua deleted file mode 100644 index c57d69cc..00000000 --- a/script/c511000027.lua +++ /dev/null @@ -1,41 +0,0 @@ ---Defender's Mind -function c511000027.initial_effect(c) - c:SetUniqueOnField(1,0,511000027) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetHintTiming(0,TIMING_MAIN_END) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c511000027.condition) - c:RegisterEffect(e1) - --Pos Change - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SET_POSITION) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetValue(POS_FACEUP_DEFENCE) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_CANNOT_CHANGE_POSITION) - c:RegisterEffect(e3) - --Double DEF - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_SET_DEFENCE_FINAL) - e4:SetRange(LOCATION_SZONE) - e4:SetTargetRange(LOCATION_MZONE,0) - e4:SetProperty(EFFECT_FLAG_REPEAT) - e4:SetTarget(c511000027.target) - e4:SetValue(c511000027.defval) - c:RegisterEffect(e4) -end -function c511000027.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2 -end -function c511000027.target(e,c) - return c~=e:GetHandler() -end -function c511000027.defval(e,c) - return c:GetDefence()*2 -end \ No newline at end of file diff --git a/script/c511000028.lua b/script/c511000028.lua deleted file mode 100644 index b2ca6532..00000000 --- a/script/c511000028.lua +++ /dev/null @@ -1,46 +0,0 @@ ---Labyrinth of Kline -function c511000028.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c511000028.condition) - e1:SetTarget(c511000028.target) - e1:SetOperation(c511000028.activate) - c:RegisterEffect(e1) -end -function c511000028.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c511000028.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) - Duel.SetTargetParam(1) -end -function c511000028.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsAttackable() then - if Duel.NegateAttack(tc) then - local atk=tc:GetBaseAttack() - local def=tc:GetBaseDefence() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(def) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,2) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_BASE_DEFENCE) - e2:SetValue(atk) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,2) - tc:RegisterEffect(e2) - end - end -end \ No newline at end of file diff --git a/script/c511000029.lua b/script/c511000029.lua deleted file mode 100644 index bd10fadd..00000000 --- a/script/c511000029.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Chain Close -function c511000029.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c511000029.condition) - e1:SetOperation(c511000029.operation) - c:RegisterEffect(e1) -end -function c511000029.cfilter(c,tp) - return c:IsPreviousLocation(LOCATION_MZONE+LOCATION_SZONE) or c:IsPreviousLocation(LOCATION_SZONE) -end -function c511000029.condition(e,tp,eg,ep,ev,re,r,rp) - return not eg:IsContains(e:GetHandler()) and eg:IsExists(c511000029.cfilter,1,nil,tp) and bit.band(r,REASON_DESTROY)~=0 - end -function c511000029.elimit(e,te,tp) - return te:IsHasType(EFFECT_TYPE_ACTIVATE) -end -function c511000029.operation(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetTargetRange(0,1) - e1:SetValue(1) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - Duel.SetChainLimit(c511000029.climit) -end -function c511000029.climit(e,lp,tp) - return lp==tp or not e:IsHasType(EFFECT_TYPE_ACTIVATE) -end \ No newline at end of file diff --git a/script/c511000030.lua b/script/c511000030.lua deleted file mode 100644 index e0c228c7..00000000 --- a/script/c511000030.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Crown of the Empress -function c511000030.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetTarget(c511000030.target) - e1:SetOperation(c511000030.activate) - c:RegisterEffect(e1) - --act in hand - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_TRAP_ACT_IN_HAND) - c:RegisterEffect(e2) - end -function c511000030.gfilter(c) - return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) -end -function c511000030.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local g=Duel.GetMatchingGroup(c511000030.gfilter,tp,0,LOCATION_MZONE,nil) - local ct=Duel.GetMatchingGroupCount(c511000030.gfilter,tp,0,LOCATION_MZONE,nil)*2 - e:SetLabel(ct) - return ct>0 and Duel.IsPlayerCanDraw(tp,ct) - end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(ct) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct) -end -function c511000030.activate(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetMatchingGroup(c511000030.gfilter,tp,0,LOCATION_MZONE,nil) - local ct=Duel.GetMatchingGroupCount(c511000030.gfilter,tp,0,LOCATION_MZONE,nil)*2 - Duel.Draw(p,ct,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000031.lua b/script/c511000031.lua deleted file mode 100644 index 73811235..00000000 --- a/script/c511000031.lua +++ /dev/null @@ -1,58 +0,0 @@ ---Power Converter -function c511000031.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c511000031.target) - e1:SetOperation(c511000031.operation) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetValue(1) - c:RegisterEffect(e2) - --Gain LP - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000031,0)) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_SZONE) - e3:SetCountLimit(1) - e3:SetCondition(c511000031.condition) - e3:SetOperation(c511000031.lpop) - c:RegisterEffect(e3) - end -function c511000031.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_MAIN1 -end -function c511000031.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c511000031.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end -function c511000031.lpop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local ec=c:GetEquipTarget() - local lp=ec:GetAttack()/2 - if ec and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - ec:RegisterEffect(e1) - end - Duel.Recover(tp,lp,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000032.lua b/script/c511000032.lua deleted file mode 100644 index daad3b2f..00000000 --- a/script/c511000032.lua +++ /dev/null @@ -1,42 +0,0 @@ ---For Our Dreams -function c511000032.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c511000032.condition) - e1:SetCost(c511000032.cost) - e1:SetTarget(c511000032.target) - e1:SetOperation(c511000032.activate) - c:RegisterEffect(e1) -end -function c511000032.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsRace,1,nil,RACE_WARRIOR) end - local g=Duel.SelectReleaseGroup(tp,Card.IsRace,1,1,nil,RACE_WARRIOR) - Duel.Release(g,REASON_EFFECT) -end -function c511000032.filter(c) - return c:IsFaceup() and c:IsRace(RACE_WARRIOR) -end -function c511000032.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c511000032.filter,tp,LOCATION_MZONE,0,2,nil) -end - -function c511000032.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) end - if chk==0 then return Duel.IsExistingTarget(Card.IsPosition,tp,LOCATION_MZONE,0,1,nil,POS_FACEUP_ATTACK) end - Duel.SelectTarget(tp,c511000032.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c511000032.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c511000033.lua b/script/c511000033.lua deleted file mode 100644 index 94d3ba5c..00000000 --- a/script/c511000033.lua +++ /dev/null @@ -1,81 +0,0 @@ ---Diving Exploder -function c511000033.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetDescription(aux.Stringid(511000033,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_HAND) - e1:SetCost(c511000033.cost) - e1:SetTarget(c511000033.target) - e1:SetOperation(c511000033.operation) - c:RegisterEffect(e1) -end -function c511000033.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsAbleToGraveAsCost() and c:IsDiscardable() end - Duel.SendtoGrave(c,REASON_COST) -end -function c511000033.filter(c) - return c:IsFaceup() -end -function c511000033.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000033.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end -end -function c511000033.operation(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c511000033.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - local c=e:GetHandler() - local tc=sg:GetFirst() - while tc do - local atk=tc:GetAttack() - local def=tc:GetDefence() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(def) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetValue(atk) - tc:RegisterEffect(e2) - tc=sg:GetNext() - end - --Reset ATK/DEF - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000033,0)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCode(EVENT_BATTLE_DESTROYED) - e3:SetCountLimit(1) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e3:SetTarget(c511000033.target) - e3:SetOperation(c511000033.resetop) - Duel.RegisterEffect(e3,tp) -end -function c511000033.resetop(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c511000033.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - local c=e:GetHandler() - local tc=sg:GetFirst() - while tc do - local atk=tc:GetAttack() - local def=tc:GetDefence() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(def) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetValue(atk) - tc:RegisterEffect(e2) - tc=sg:GetNext() - end -end \ No newline at end of file diff --git a/script/c511000034.lua b/script/c511000034.lua deleted file mode 100644 index 41562f0c..00000000 --- a/script/c511000034.lua +++ /dev/null @@ -1,71 +0,0 @@ ---Antidote Nurse -function c511000034.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,3),3) - c:EnableReviveLimit() - --baseatk - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(0,LOCATION_MZONE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetCondition(c511000034.basecon) - e1:SetTarget(c511000034.basetg) - e1:SetValue(c511000034.baseval) - c:RegisterEffect(e1) - --atkup - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetDescription(aux.Stringid(511000034,0)) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(TIMING_DAMAGE_CAL) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e2:SetCountLimit(1) - e2:SetCondition(c511000034.condition) - e2:SetCost(c511000034.cost) - e2:SetOperation(c511000034.operation) - c:RegisterEffect(e2) -end -function c511000034.atktg(e,c) - return c==e:GetHandler():GetBattleTarget() -end -function c511000034.vala(e,c) - return c:GetBaseAttack() -end -function c511000034.condition(e,tp,eg,ep,ev,re,r,rp) - local phase=Duel.GetCurrentPhase() - if (phase~=PHASE_DAMAGE and phase~=PHASE_DAMAGE_CAL) or Duel.IsDamageCalculated() then return false end - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - return (a:GetControler()==tp and a:IsRelateToBattle()) - or (d and d:GetControler()==tp and d:IsRelateToBattle()) -end -function c511000034.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c511000034.operation(e,tp,eg,ep,ev,re,r,rp,chk) - local a=Duel.GetAttacker() - if Duel.GetTurnPlayer()~=tp then a=Duel.GetAttackTarget() end - if not a:IsRelateToBattle() then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(1000) - a:RegisterEffect(e1) -end -function c511000034.basecon(e) - local ph=Duel.GetCurrentPhase() - return (ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) and Duel.GetAttackTarget()~=nil - and (Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()) -end -function c511000034.basetg(e,c) - return c==e:GetHandler():GetBattleTarget() -end -function c511000034.baseval(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler():GetBattleTarget() - return c:GetBaseAttack() -end \ No newline at end of file diff --git a/script/c511000035.lua b/script/c511000035.lua deleted file mode 100644 index c067ebb6..00000000 --- a/script/c511000035.lua +++ /dev/null @@ -1,68 +0,0 @@ ---Infernity Des Gunman -function c511000035.initial_effect(c) - --Negate Damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000035,1)) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c511000035.con) - e1:SetCost(c511000035.cost) - e1:SetOperation(c511000035.op) - c:RegisterEffect(e1) - --deck check - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000035,0)) - e2:SetType(EFFECT_TYPE_QUICK_F) - e2:SetCode(EVENT_REMOVE) - e2:SetRange(LOCATION_REMOVED) - e2:SetCountLimit(1) - e2:SetTarget(c511000035.target) - e2:SetOperation(c511000035.operation) - c:RegisterEffect(e2) -end -function c511000035.con(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)==0 -end -function c511000035.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c511000035.op(e,tp,eg,ep,ev,re,r,rp) - local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetLabel(cid) - e1:SetValue(c511000035.refcon) - e1:SetReset(RESET_CHAIN) - Duel.RegisterEffect(e1,tp) -end -function c511000035.refcon(e,re,val,r,rp,rc) - local cc=Duel.GetCurrentChain() - if cc==0 or bit.band(r,REASON_EFFECT)==0 then return end - local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID) - if cid==e:GetLabel() then return 0 - else return val end -end -function c511000035.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end -end -function c511000035.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.IsChainNegatable(Duel.GetCurrentChain()) and Duel.SelectYesNo(1-tp,aux.Stringid(100010007,REASON_EFFECT)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EFFECT) - if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end - Duel.ConfirmDecktop(tp,1) - local g=Duel.GetDecktopGroup(tp,1) - local tc=g:GetFirst() - if tc:IsType(TYPE_MONSTER) then - Duel.Damage(tp,2000,REASON_EFFECT) - Duel.ShuffleDeck(tp,REASON_EFFECT) - else - Duel.Damage(1-tp,2000,REASON_EFFECT) - Duel.ShuffleDeck(tp,REASON_EFFECT) - end - end -end \ No newline at end of file diff --git a/script/c511000036.lua b/script/c511000036.lua deleted file mode 100644 index 08264109..00000000 --- a/script/c511000036.lua +++ /dev/null @@ -1,72 +0,0 @@ ---Jurassic Impact -function c511000036.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c511000036.condition) - e1:SetTarget(c511000036.target) - e1:SetOperation(c511000036.activate) - c:RegisterEffect(e1) -end -function c511000036.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c511000036.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetLP(tp)0 then - local tg=g:GetMaxGroup(Card.GetAttack) - if tg:GetCount()>1 then - local sg=tg:Select(tp,1,1,nil) - local tc=sg:GetFirst() - Duel.ChainAttack(tc) - else - local tc=tg:GetFirst() - Duel.ChainAttack(tc) end - end -end \ No newline at end of file diff --git a/script/c511000043.lua b/script/c511000043.lua deleted file mode 100644 index 3c49371f..00000000 --- a/script/c511000043.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Dark Matter -function c511000043.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c511000043.condition) - e1:SetTarget(c511000043.target) - e1:SetOperation(c511000043.activate) - c:RegisterEffect(e1) -end -function c511000043.cfilter(c,tp) - return c:IsType(TYPE_SYNCHRO) and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) and c:IsAttribute(ATTRIBUTE_DARK) -end -function c511000043.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c511000043.cfilter,1,nil,tp) -end -function c511000043.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsPlayerCanSpecialSummonMonster(tp,511000042,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) - end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) -end -function c511000043.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsPlayerCanSpecialSummonMonster(tp,511000042,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) then - for i=1,2 do - local token=Duel.CreateToken(tp,511000042) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000) - token:RegisterEffect(e1) - local de=Effect.CreateEffect(e:GetHandler()) - de:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - de:SetRange(LOCATION_MZONE) - de:SetCode(EVENT_PHASE+PHASE_END) - de:SetOperation(c511000043.desop) - de:SetReset(RESET_EVENT+0x1fe0000) - token:RegisterEffect(de) - end - Duel.SpecialSummonComplete() - end -end -function c511000043.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000044.lua b/script/c511000044.lua deleted file mode 100644 index 2c7989ae..00000000 --- a/script/c511000044.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Imitation -function c511000044.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c511000044.target) - e1:SetOperation(c511000044.activate) - c:RegisterEffect(e1) -end -function c511000044.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsOnField() and c511000001.filter(chkc) end - if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 end - local g=Duel.SelectTarget(tp,Card.IsType,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,TYPE_TOKEN) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,tp,0) -end -function c511000044.activate(e,tp,eg,ep,ev,re,r,rp) - local ec=Duel.GetFirstTarget() - if not ec:IsRelateToEffect(e) or ec:IsFacedown() then return end - if Duel.GetLocationCount(1-tp,LOCATION_MZONE)<=0 - or not Duel.IsPlayerCanSpecialSummonMonster(tp,500000148,0,0x4011,ec:GetBaseAttack(),ec:GetBaseDefence(), - ec:GetOriginalLevel(),ec:GetOriginalRace(),ec:GetOriginalAttribute()) then return end - ec:RegisterFlagEffect(500000148,RESET_EVENT+0x17a0000,0,0) - local token=Duel.CreateToken(1-tp,500000148) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(ec:GetBaseAttack()) - e1:SetReset(RESET_EVENT+0xfe0000) - token:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) - e2:SetValue(ec:GetBaseDefence()) - token:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EFFECT_CHANGE_LEVEL) - e3:SetValue(ec:GetOriginalLevel()) - token:RegisterEffect(e3) - local e4=e1:Clone() - e4:SetCode(EFFECT_CHANGE_RACE) - e4:SetValue(ec:GetOriginalRace()) - token:RegisterEffect(e4) - local e5=e1:Clone() - e5:SetCode(EFFECT_CHANGE_ATTRIBUTE) - e5:SetValue(ec:GetOriginalAttribute()) - token:RegisterEffect(e5) - Duel.SpecialSummon(token,0,tp,1-tp,false,false,POS_FACEUP) - Duel.Damage(1-tp,ec:GetAttack()/2,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000045.lua b/script/c511000045.lua deleted file mode 100644 index 708a973e..00000000 --- a/script/c511000045.lua +++ /dev/null @@ -1,41 +0,0 @@ ---Name of a Friend -function c511000045.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetHintTiming(0,TIMING_MAIN_END) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c511000045.target) - e1:SetOperation(c511000045.activate) - c:RegisterEffect(e1) -end -function c511000045.filter(c,e,tp) - return c:IsType(TYPE_MONSTER) -end -function c511000045.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==1-tp end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c511000045.filter,tp,0,LOCATION_GRAVE,1,nil,e,0,tp,false,false) - and Duel.IsPlayerCanSpecialSummonMonster(tp,511000045,0,0x11,0,0,4,RACE_SPELLCASTER,ATTRIBUTE_LIGHT) end - local g=Duel.SelectTarget(tp,c511000045.filter,tp,0,LOCATION_GRAVE,1,1,nil,e,0,tp,false,false) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c511000045.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if not c:IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 - or not Duel.IsPlayerCanSpecialSummonMonster(tp,511000045,0,0x11,0,0,1,RACE_SPELLCASTER,ATTRIBUTE_LIGHT) then return end - c:AddTrapMonsterAttribute(TYPE_NORMAL,ATTRIBUTE_LIGHT,RACE_SPELLCASTER,1,0,0) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_DEFENCE) - c:TrapMonsterBlock() - local code=tc:GetOriginalCode() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetCode(EFFECT_CHANGE_CODE) - e1:SetValue(code) - c:RegisterEffect(e1) -end diff --git a/script/c511000046.lua b/script/c511000046.lua deleted file mode 100644 index 279045aa..00000000 --- a/script/c511000046.lua +++ /dev/null @@ -1,68 +0,0 @@ ---Amphibian Angel - Frog-Hael -function c511000046.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c511000046.spcon) - e1:SetOperation(c511000046.spop) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000046,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetTarget(c511000046.tg) - e2:SetOperation(c511000046.op) - c:RegisterEffect(e2) - e1:SetLabelObject(e2) - --cannot be battle target - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e3:SetCondition(c511000046.ccon) - e3:SetValue(1) - c:RegisterEffect(e3) -end -function c511000046.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(tp,nil,2,nil) -end -function c511000046.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g1=Duel.SelectReleaseGroup(tp,nil,2,2,nil) - Duel.Release(g1,REASON_COST) -end -function c511000046.filter(c,e,tp) - return c:IsSetCard(0x12) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c511000046.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c511000046.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c511000046.op(e,tp,eg,ep,ev,re,r,rp) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000046.filter,tp,LOCATION_GRAVE,0,ft,ft,nil,e,tp) - if g:GetCount()>0 then - local fid=e:GetHandler():GetFieldID() - local tc=g:GetFirst() - while tc do - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) - tc:RegisterFlagEffect(511000046,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1,fid) - tc=g:GetNext() - end - Duel.SpecialSummonComplete() - g:KeepAlive() - end -end -function c511000046.ccon(e) - return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_ONFIELD,0)>1 -end \ No newline at end of file diff --git a/script/c511000047.lua b/script/c511000047.lua deleted file mode 100644 index 8df441f4..00000000 --- a/script/c511000047.lua +++ /dev/null @@ -1,63 +0,0 @@ --- Chariot Pile --- Scripted by: UnknownGuest -function c511000047.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000047,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_SZONE) - e2:SetTarget(c511000047.damtg) - e2:SetOperation(c511000047.damop) - c:RegisterEffect(e2) - -- pay 800 - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000047,1)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_ATTACK_ANNOUNCE) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_SZONE) - e3:SetCost(c511000047.descost) - e3:SetCondition(c511000047.condition) - e3:SetTarget(c511000047.target) - e3:SetOperation(c511000047.desop) - c:RegisterEffect(e3) -end -function c511000047.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(511000047)==0 end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(300) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,300) - e:GetHandler():RegisterFlagEffect(511000047,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c511000047.damop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c511000047.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.PayLPCost(tp,800) -end -function c511000047.condition(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttacker() - return at:GetControler()~=tp and Duel.GetAttackTarget()==nil -end -function c511000047.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsDestructable() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) -end -function c511000047.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(Duel.GetAttacker(),REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000048.lua b/script/c511000048.lua deleted file mode 100644 index 8d633c3b..00000000 --- a/script/c511000048.lua +++ /dev/null @@ -1,42 +0,0 @@ --- Thousand Crisscross --- Scripted by: UnknownGuest -function c511000048.initial_effect(c) - --recover - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_NO_TURN_RESET) - e1:SetCategory(CATEGORY_RECOVER) - e1:SetType(EFFECT_TYPE_ACTIVATE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetRange(LOCATION_SZONE) - e1:SetCondition(c511000048.condition) - e1:SetOperation(c511000048.operation) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000048,1)) - e2:SetProperty(EFFECT_FLAG_NO_TURN_RESET) - e2:SetCategory(CATEGORY_RECOVER) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetLabel(2) - e2:SetCountLimit(2) - e2:SetHintTiming(0,TIMING_END_PHASE) - e2:SetCondition(c511000048.condition) - e2:SetOperation(c511000048.operation) - c:RegisterEffect(e2) -end -function c511000048.condition(e,tp,eg,ep,ev,re,r,rp) - local p=e:GetHandler():GetControler() - return Duel.GetLP(p)<2000 -end -function c511000048.operation(e,tp,eg,ep,ev,re,r,rp) - local p=e:GetHandler():GetControler() - Duel.SetLP(tp,2000,REASON_EFFECT) - local ct=e:GetLabel() - ct=ct-1 - e:SetLabel(ct) - if ct==0 then - Duel.Destroy(e:GetHandler(),REASON_EFFECT) - end -end diff --git a/script/c511000049.lua b/script/c511000049.lua deleted file mode 100644 index 34d51a48..00000000 --- a/script/c511000049.lua +++ /dev/null @@ -1,44 +0,0 @@ ---Central Shield -function c511000049.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c511000049.target) - e1:SetOperation(c511000049.operation) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetValue(1) - c:RegisterEffect(e2) - --Prevent Damage - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetValue(1) - e3:SetTarget(c511000049.dmtg) - c:RegisterEffect(e3) -end -function c511000049.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c511000049.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end -function c511000049.dmtg(e,c) - return c~=e:GetHandler():GetEquipTarget() -end \ No newline at end of file diff --git a/script/c511000050.lua b/script/c511000050.lua deleted file mode 100644 index e75b336f..00000000 --- a/script/c511000050.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Late Penalty -function c511000050.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_DRAW_PHASE) - c:RegisterEffect(e1) - --Skip Battle Phase - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000050,0)) - e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetHintTiming(0,TIMING_MAIN_END+TIMING_DRAW_PHASE) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetCondition(c511000050.condition) - e2:SetOperation(c511000050.activate) - c:RegisterEffect(e2) -end -function c511000050.cfilter(c) - return c:IsFaceup() and c:IsRace(RACE_SPELLCASTER) and c:GetLevel()<=2 -end -function c511000050.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and not Duel.CheckPhaseActivity() - and Duel.IsExistingMatchingCard(c511000050.cfilter,tp,LOCATION_MZONE,0,1,nil) - and Duel.GetFieldGroupCount(e:GetHandlerPlayer(),0,LOCATION_MZONE)==0 -end -function c511000050.activate(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SKIP_BP) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(0,1) - e1:SetReset(RESET_PHASE+PHASE_BATTLE+RESET_OPPO_TURN,1) - Duel.RegisterEffect(e1,tp) -end \ No newline at end of file diff --git a/script/c511000051.lua b/script/c511000051.lua deleted file mode 100644 index 2c885869..00000000 --- a/script/c511000051.lua +++ /dev/null @@ -1,56 +0,0 @@ ---Divergence -function c511000051.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_BATTLE_START) - e1:SetTarget(c511000051.atktg1) - e1:SetOperation(c511000051.atkop) - c:RegisterEffect(e1) - --change target - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000051,0)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BE_BATTLE_TARGET) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c511000051.condition) - e2:SetTarget(c511000051.atktg2) - e2:SetOperation(c511000051.atkop) - c:RegisterEffect(e2) -end -function c511000051.condition(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - return tc:IsControler(tp) and tc:IsFaceup() and tc:IsRace(RACE_MACHINE) -end -function c511000051.filter(c) - return c:IsFaceup() and c:IsRace(RACE_MACHINE) -end -function c511000051.atktg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c511000051.filter(chkc) end - if chk==0 then return true end - e:SetProperty(0) - if Duel.CheckEvent(EVENT_ATTACK_ANNOUNCE) and tp~=Duel.GetTurnPlayer() then - local at=Duel.GetAttackTarget() - if at and Duel.IsExistingTarget(c511000051.filter,tp,LOCATION_MZONE,0,1,at) and Duel.SelectYesNo(tp,aux.Stringid(511000051,1)) then - e:SetProperty(EFFECT_FLAG_CARD_TARGET) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c511000051.filter,tp,LOCATION_MZONE,0,1,1,at) - end - end -end -function c511000051.atktg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c511000051.filter(chkc) end - local at=Duel.GetAttackTarget() - if chk==0 then return Duel.IsExistingTarget(c511000051.filter,tp,LOCATION_MZONE,0,1,at) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c511000051.filter,tp,LOCATION_MZONE,0,1,1,at) -end -function c511000051.atkop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangeAttackTarget(tc) - end -end diff --git a/script/c511000052.lua b/script/c511000052.lua deleted file mode 100644 index 3ff381f1..00000000 --- a/script/c511000052.lua +++ /dev/null @@ -1,60 +0,0 @@ ---Pain to Power -function c511000052.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c511000052.target) - e1:SetOperation(c511000052.operation) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetValue(1) - c:RegisterEffect(e2) - --Gain ATK - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_DAMAGE) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetCondition(c511000052.atkcon) - e3:SetTarget(c511000052.atktg) - e3:SetOperation(c511000052.atkop) - c:RegisterEffect(e3) -end -function c511000052.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c511000052.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end -function c511000052.atktg(e,c) - return c~=e:GetHandler():GetEquipTarget() -end -function c511000052.atkcon(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() and bit.band(r,REASON_BATTLE)>0 and ep==tp -end -function c511000052.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetFlagEffect(511000052)==0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_EQUIP) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(ev) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c511000053.lua b/script/c511000053.lua deleted file mode 100644 index b06e1da5..00000000 --- a/script/c511000053.lua +++ /dev/null @@ -1,50 +0,0 @@ ---Synchro Back -function c511000053.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_MAIN_END) - e1:SetTarget(c511000053.target) - e1:SetOperation(c511000053.activate) - c:RegisterEffect(e1) -end -function c511000053.tfilter(c) - return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:IsAbleToExtra() -end -function c511000053.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c511000053.tfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c511000053.tfilter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,c511000053.tfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) -end -function c511000053.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local code=tc:GetOriginalCode() - if Duel.SendtoDeck(tc,nil,0,REASON_EFFECT) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetCountLimit(1) - e1:SetCondition(c511000053.spcon) - e1:SetOperation(c511000053.spop) - Duel.RegisterEffect(e1,tp) - end -end -function c511000053.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c511000053.filter2(c,code,e,tp) - return c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c511000053.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local code=e:GetLabel() - local tc=Duel.GetFirstMatchingCard(c511000053.filter2,tp,LOCATION_EXTRA,0,nil,code,e,tp) - if tc and Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) then - tc:CompleteProcedure() - end -end \ No newline at end of file diff --git a/script/c511000054.lua b/script/c511000054.lua deleted file mode 100644 index 3a6fa37d..00000000 --- a/script/c511000054.lua +++ /dev/null @@ -1,72 +0,0 @@ ---Climactic Barricade -function c511000054.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetOperation(c511000054.operation) - c:RegisterEffect(e1) -end -function c511000054.operation(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTargetRange(0,LOCATION_MZONE) - e1:SetTarget(c511000054.atktarget) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetValue(1) - Duel.RegisterEffect(e1,tp) - --Damage LP - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetDescription(aux.Stringid(511000054,0)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetTarget(c511000054.damtg) - e2:SetOperation(c511000054.damop) - e2:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e2,tp) -end -function c511000054.aclimit(e,re,tp) - return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) -end -function c511000054.descon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp and eg:GetFirst():GetControler()==tp -end -function c511000054.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c511000054.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and c511000054.desfilter(chkc) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c511000054.desfilter,tp,0,LOCATION_SZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c511000054.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c511000054.atktarget(e,c) - return c:GetLevel()<=4 -end -function c511000054.filter(c) - return c:IsFaceup() and c:GetLevel()<=4 -end -function c511000054.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000054.filter,tp,0,LOCATION_MZONE,1,nil) end - local dam=Duel.GetMatchingGroupCount(c511000054.filter,tp,0,LOCATION_MZONE,nil)*500 - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - if dam>0 then Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) end -end -function c511000054.damop(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local dam=Duel.GetMatchingGroupCount(c511000054.filter,tp,0,LOCATION_MZONE,nil)*500 - Duel.Damage(p,dam,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000055.lua b/script/c511000055.lua deleted file mode 100644 index f9456b27..00000000 --- a/script/c511000055.lua +++ /dev/null @@ -1,48 +0,0 @@ ---Ferocious Flora -function c511000055.initial_effect(c) - --atkdown - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetDescription(aux.Stringid(511000055,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_CAL) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c511000055.condition) - e1:SetTarget(c511000055.target) - e1:SetOperation(c511000055.operation) - c:RegisterEffect(e1) -end -function c511000055.condition(e,tp,eg,ep,ev,re,r,rp) - local phase=Duel.GetCurrentPhase() - if (phase~=PHASE_DAMAGE and phase~=PHASE_DAMAGE_CAL) or Duel.IsDamageCalculated() then return false end - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - return (d~=nil and a:GetControler()==tp and a:IsRace(RACE_PLANT) and a:IsRelateToBattle()) - or (d~=nil and d:GetControler()==tp and d:IsRace(RACE_PLANT) and d:IsRelateToBattle()) -end -function c511000055.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if chkc then return (a:GetControler()==tp and chkc==d) or (d:GetControler()==tp and chkc==a) end - if chk==0 then - if a:GetControler()==tp then - return a:IsRace(RACE_PLANT) and d and d:IsCanBeEffectTarget(e) - else return d:IsRace(RACE_PLANT) and a:IsCanBeEffectTarget(e) end - end - if a:GetControler()==tp then Duel.SetTargetCard(d) - else Duel.SetTargetCard(a) end -end -function c511000055.operation(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetFirstTarget() - local c=e:GetHandler() - if not tc or not tc:IsRelateToEffect(e) or not c:IsRelateToEffect(e) then return end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(-800) - tc:RegisterEffect(e1) -end diff --git a/script/c511000056.lua b/script/c511000056.lua deleted file mode 100644 index cbb673fa..00000000 --- a/script/c511000056.lua +++ /dev/null @@ -1,69 +0,0 @@ ---Double Ripple -function c511000056.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c511000056.target) - e1:SetOperation(c511000056.activate) - c:RegisterEffect(e1) -end -function c511000056.filter1(c,tp) - local lv1=c:GetLevel() - return c:IsFaceup() and lv1>0 and c:IsType(TYPE_TUNER) - and Duel.IsExistingTarget(c511000056.filter2,tp,LOCATION_MZONE,0,1,nil,lv1) -end -function c511000056.filter2(c,lv1) - local lv2=c:GetLevel() - return c:IsFaceup() and lv2>0 and lv1+lv2==7 and not c:IsType(TYPE_TUNER) -end -function c511000056.spfilter1(c,e,tp,lv) - return c:GetCode()==2403771 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c511000056.spfilter2(c,e,tp,lv) - return c:GetCode()==25862681 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c511000056.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return false end - local sg1=Duel.GetMatchingGroup(c511000056.spfilter1,tp,LOCATION_EXTRA,0,nil,e,tp) - local sg2=Duel.GetMatchingGroup(c511000056.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp) - if chk==0 then - if sg1:GetCount()==0 then return false end - local mg,mlv=sg1:GetMinGroup(Card.GetLevel) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c511000056.filter1,tp,LOCATION_MZONE,0,1,nil,tp,mlv) - end - if chk==0 then - if sg2:GetCount()==0 then return false end - local mg,mlv=sg2:GetMinGroup(Card.GetLevel) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c511000056.filter1,tp,LOCATION_MZONE,0,1,nil,tp,mlv) - end - local mg,mlv=sg1:GetMinGroup(Card.GetLevel) - local mg,mlv=sg2:GetMinGroup(Card.GetLevel) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectTarget(tp,c511000056.filter1,tp,LOCATION_MZONE,0,1,1,nil,tp,mlv) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g2=Duel.SelectTarget(tp,c511000056.filter2,tp,LOCATION_MZONE,0,1,1,nil,g1:GetFirst():GetLevel(),mlv) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g1,2,0,0) - sg1:Merge(sg2) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg1,2,0,0) -end -function c511000056.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tg=g:Filter(Card.IsRelateToEffect,nil,e) - if tg:GetCount()==0 then return end - Duel.SendtoGrave(tg,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - Duel.BreakEffect() - local s1=Duel.GetFirstMatchingCard(c511000056.spfilter1,tp,LOCATION_EXTRA,0,nil,e,tp) - Duel.SpecialSummonStep(s1,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - local s2=Duel.GetFirstMatchingCard(c511000056.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp) - Duel.SpecialSummonStep(s2,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - Duel.SpecialSummonComplete() -end \ No newline at end of file diff --git a/script/c511000059.lua b/script/c511000059.lua deleted file mode 100644 index 3fa6f398..00000000 --- a/script/c511000059.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Final Penalty -function c511000059.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c511000059.condition) - e1:SetTarget(c511000059.target) - e1:SetOperation(c511000059.activate) - c:RegisterEffect(e1) -end -function c511000059.filter(c,tp) - return c:GetPreviousControler()==tp and c:IsPreviousPosition(POS_FACEUP) - and c==Duel.GetAttackTarget() and c:IsRace(RACE_FIEND) and c:IsLocation(LOCATION_GRAVE) -end -function c511000059.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c511000059.filter,1,nil,tp) -end -function c511000059.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local at=Duel.GetAttacker() - if chkc then return chkc==at end - if chk==0 then return at:IsControler(1-tp) and at:IsRelateToBattle() and at:IsCanBeEffectTarget(e) and at:IsDestructable() end - Duel.SetTargetCard(at) - local atk=at:GetAttack() - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,atk) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,at,1,0,0) -end -function c511000059.activate(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetFirstTarget() - if a:IsRelateToEffect(e) then - local atk=a:GetAttack() - if Duel.Damage(1-tp,atk,REASON_EFFECT) then - Duel.Destroy(a,REASON_EFFECT) - end - end -end diff --git a/script/c511000060.lua b/script/c511000060.lua deleted file mode 100644 index 6ba0544a..00000000 --- a/script/c511000060.lua +++ /dev/null @@ -1,23 +0,0 @@ ---Secret Passage -function c511000060.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --direct attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EFFECT_DIRECT_ATTACK) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetTarget(c511000060.attg) - c:RegisterEffect(e2) -end -function c511000060.filter(c,atk) - return c:IsFacedown() or c:GetAttack()<=atk -end -function c511000060.attg(e,c,tp,eg,ep,ev,re,r,rp) - return c:IsType(TYPE_MONSTER) and c:IsFaceup() and c:IsLevelBelow(2) and c:IsRace(RACE_SPELLCASTER) - and not c:IsHasEffect(EFFECT_CANNOT_ATTACK) and not not Duel.IsExistingMatchingCard(c511000060.filter,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil,e:GetHandler():GetAttack()) -end \ No newline at end of file diff --git a/script/c511000061.lua b/script/c511000061.lua deleted file mode 100644 index 9313d2b7..00000000 --- a/script/c511000061.lua +++ /dev/null @@ -1,65 +0,0 @@ ---Gjallarhorn -function c511000061.initial_effect(c) - --Return - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_GRAVE) - e1:SetCountLimit(1) - e1:SetCondition(c511000061.rcon) - e1:SetTarget(c511000061.rtg) - e1:SetOperation(c511000061.rop) - c:RegisterEffect(e1) - --Activate - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000061,0)) - e2:SetProperty(EFFECT_FLAG_NO_TURN_RESET) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetTarget(c511000061.atg) - c:RegisterEffect(e2) -end -function c511000061.rfilter(c) - return c:IsFaceup() and c:IsSetCard(0x4B) -end -function c511000061.rcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c511000061.rfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c511000061.rtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end -end -function c511000061.rop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - if c:IsRelateToEffect(e) then - Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - end -end -function c511000061.atg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetRange(LOCATION_SZONE) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetLabel(3) - e1:SetCountLimit(1) - e1:SetOperation(c511000061.tgop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_SELF_TURN,3) - e:GetHandler():RegisterEffect(e1) -end -function c511000061.tgop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetTurnPlayer()~=tp then return end - local ct=e:GetLabel() - ct=ct-1 - e:SetLabel(ct) - if ct==0 then - local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_MZONE,0,nil) - Duel.Remove(g,POS_FACEUP,REASON_EFFECT) - local dg=Duel.GetOperatedGroup() - local sum=dg:GetSum(Card.GetAttack) - Duel.Damage(1-tp,sum,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c511000062.lua b/script/c511000062.lua deleted file mode 100644 index 60f04dba..00000000 --- a/script/c511000062.lua +++ /dev/null @@ -1,43 +0,0 @@ ---The Unchosen One -function c511000062.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c511000062.condition) - e1:SetTarget(c511000062.target) - e1:SetOperation(c511000062.operation) - c:RegisterEffect(e1) -end -function c511000062.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,2,nil) -end -function c511000062.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetCurrentPhase()~=PHASE_MAIN2 - and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,2,nil) end - local g1=Duel.SelectTarget(1-tp,Card.IsDestructable,1-tp,LOCATION_MZONE,0,1,1,nil) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,g1:GetFirst()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g2,1,0,0) -end -function c511000062.filter(c,tp,eg,ep,ev,re,r,rp) - return c:IsLocation(LOCATION_GRAVE) and c:IsType(TYPE_MONSTER) and c:IsPreviousLocation(LOCATION_ONFIELD) -end -function c511000062.operation(e,tp,eg,ep,ev,re,r,rp) - local ex1,dg=Duel.GetOperationInfo(0,CATEGORY_DESTROY) - local dc=dg:GetFirst() - if dc:IsRelateToEffect(e) and Duel.Destroy(dc,REASON_EFFECT) then - if dc:IsCanBeSpecialSummoned(e,0,tp,false,false) and c511000062.filter(dc) then - Duel.BreakEffect() - Duel.SpecialSummon(dc,0,tp,tp,false,false,POS_FACEUP_ATTACK) - end - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_BP) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end \ No newline at end of file diff --git a/script/c511000063.lua b/script/c511000063.lua deleted file mode 100644 index 2d31c6b8..00000000 --- a/script/c511000063.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Double Type Rescue -function c511000063.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c511000063.target) - e1:SetOperation(c511000063.activate) - c:RegisterEffect(e1) -end -function c511000063.filter(c,e) - return c:IsType(TYPE_MONSTER) -end -function c511000063.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c511000063.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp - and chkc:IsCanBeSpecialSummoned(e,0,tp,false,false) end - if chk==0 then - local g=Duel.GetMatchingGroup(c511000063.filter,tp,LOCATION_ONFIELD,0,nil,e) - return g:GetClassCount(Card.GetRace)>=2 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)0 then - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - local h=Duel.GetDecktopGroup(tp,1) - local tc=h:GetFirst() - Duel.Draw(p,d,REASON_EFFECT) - if tc then - Duel.ConfirmCards(1-tp,tc) - if tc:GetCode()==511000064 then - Duel.BreakEffect() - if Duel.SendtoGrave(tc,REASON_COST)>0 then - local i=Duel.GetMatchingGroup(c511000064.tfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - local ct=Duel.Destroy(i,REASON_EFFECT) - Duel.Damage(1-tp,ct*1000,REASON_EFFECT) - end - end - Duel.ShuffleHand(tp) - end - end -end diff --git a/script/c511000065.lua b/script/c511000065.lua deleted file mode 100644 index f9cec316..00000000 --- a/script/c511000065.lua +++ /dev/null @@ -1,87 +0,0 @@ ---High and Low -function c511000065.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_BE_BATTLE_TARGET) - e1:SetTarget(c511000065.target) - e1:SetOperation(c511000065.operation) - c:RegisterEffect(e1) -end -function c511000065.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc==Duel.GetAttackTarget() end - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if chk==0 then return d and d:IsControler(tp) and d:IsFaceup() and d:IsCanBeEffectTarget(e) - and d:GetAttack()0 then - local tcs=Duel.GetOperatedGroup():GetFirst() - if tcs:IsType(TYPE_MONSTER) then - local ca=tcs:GetAttack() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(ca) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - if tc:IsRelateToEffect(e) and a:GetAttack()0 then - local tcs=Duel.GetOperatedGroup():GetFirst() - if tcs:IsType(TYPE_MONSTER) then - local ca=tcs:GetAttack() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(ca) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - if tc:IsRelateToEffect(e) and a:GetAttack()0 then - local tcs=Duel.GetOperatedGroup():GetFirst() - if tcs:IsType(TYPE_MONSTER) then - local ca=tcs:GetAttack() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(ca) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - if tc:IsRelateToEffect(e) and a:GetAttack()0 then - local dg=Duel.GetMatchingGroup(c511000066.dfilter,tp,LOCATION_MZONE,0,nil) - local tg=dg:GetFirst() - while tg do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DIRECT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tg:RegisterEffect(e1) - tg=dg:GetNext() - end - end - end - end - if tc:IsType(TYPE_TRAP) then - if Duel.IsExistingMatchingCard(c511000066.costfilter2,tp,LOCATION_HAND,0,1,nil) then - local g=Duel.SelectMatchingCard(tp,c511000066.costfilter2,tp,LOCATION_HAND,0,1,1,nil) - Duel.ConfirmCards(1-tp,g) - Duel.ShuffleHand(tp) - if Duel.Destroy(tc,REASON_EFFECT)>0 then - local dg=Duel.GetMatchingGroup(c511000066.dfilter,tp,LOCATION_MZONE,0,nil) - local tg=dg:GetFirst() - while tg do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DIRECT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tg:RegisterEffect(e1) - tg=dg:GetNext() - end - end - end - end - end -end -function c511000066.attg(e,c,tp,eg,ep,ev,re,r,rp) - return c:IsType(TYPE_MONSTER) and c:IsFaceup() and c:IsLevelBelow(2) and c:IsRace(RACE_SPELLCASTER) - and not c:IsHasEffect(EFFECT_CANNOT_ATTACK) and not not Duel.IsExistingMatchingCard(c511000060.filter,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil,e:GetHandler():GetAttack()) -end \ No newline at end of file diff --git a/script/c511000067.lua b/script/c511000067.lua deleted file mode 100644 index 54b2133c..00000000 --- a/script/c511000067.lua +++ /dev/null @@ -1,93 +0,0 @@ ---Endless Loan -function c511000067.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Activate - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000067,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetCondition(c511000067.condition) - e2:SetTarget(c511000067.sptg) - e2:SetOperation(c511000067.spop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - --[[local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(511000067,0)) - e4:SetType(EFFECT_TYPE_QUICK_O) - e4:SetRange(LOCATION_SZONE) - e4:SetProperty(EFFECT_FLAG_BOTH_SIDE) - e4:SetCode(EVENT_CHAINING) - e4:SetCondition(c511000067.descon) - e4:SetCost(c511000067.descost) - e4:SetTarget(c511000067.destg) - e4:SetOperation(c511000067.desop) - c:RegisterEffect(e4)]] -end -function c511000067.condition(e,tp,eg,ep,ev,re,r,rp) - local ec=eg:GetFirst() - return ep~=tp and ec:GetCode()~=511000068 -end -function c511000067.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=eg:GetFirst() - if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,511000068,0,0x4011,0,0,1,RACE_ROCK,ATTRIBUTE_LIGHT) end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) -end -function c511000067.spop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,511000068,0,0x4011,0,0,1,RACE_ROCK,ATTRIBUTE_LIGHT) then - local token=Duel.CreateToken(tp,511000068) - Duel.SpecialSummonStep(token,0x20,tp,1-tp,false,false,POS_FACEUP_DEFENCE) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UNRELEASABLE_NONSUM) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000) - token:RegisterEffect(e1,true) - local e2=e1:Clone() - e2:SetCode(EFFECT_UNRELEASABLE_SUM) - token:RegisterEffect(e2,true) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetValue(1) - e3:SetReset(RESET_EVENT+0x1fe0000) - token:RegisterEffect(e3,true) - end - Duel.SpecialSummonComplete() -end ---[[function c511000067.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp - and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) -end -function c511000067.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,Card.IsAbleToGraveAsCost,1,1,REASON_COST) -end -function c511000067.desfilter(c) - return c:IsCode(511000068) and c:IsDestructable() -end -function c511000067.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsOnField() and c511000001.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c511000067.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c511000067.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c511000067.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end]] \ No newline at end of file diff --git a/script/c511000069.lua b/script/c511000069.lua deleted file mode 100644 index ef5b3e60..00000000 --- a/script/c511000069.lua +++ /dev/null @@ -1,40 +0,0 @@ ---Toichi the Nefarious Debt Collector -function c511000069.initial_effect(c) - c:SetUniqueOnField(1,0,511000069) - --damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000069,0)) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c511000069.target) - e1:SetOperation(c511000069.operation) - c:RegisterEffect(e1) - --indes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetCondition(c511000069.indcon) - e2:SetValue(1) - c:RegisterEffect(e2) -end -function c511000069.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,511000068) end - local dam=Duel.GetMatchingGroupCount(Card.IsCode,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,511000068)*1000 - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c511000069.operation(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local d=Duel.GetMatchingGroupCount(Card.IsCode,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,511000068)*1000 - Duel.Damage(p,d,REASON_EFFECT) -end -function c511000069.indfilter(c) - return c:IsFaceup() and c:IsCode(511000068) -end -function c511000069.indcon(e) - return Duel.IsExistingMatchingCard(c511000069.indfilter,e:GetOwnerPlayer(),LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) -end diff --git a/script/c511000071.lua b/script/c511000071.lua deleted file mode 100644 index c11e6548..00000000 --- a/script/c511000071.lua +++ /dev/null @@ -1,105 +0,0 @@ ---Terminal Countdown -function c511000071.initial_effect(c) - --Cannot Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetOperation(c511000071.op) - c:RegisterEffect(e1) - --Set Card - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(94212438,0)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetProperty(EFFECT_FLAG_REPEAT) - e2:SetCountLimit(1) - e2:SetCondition(c511000071.setcon) - e2:SetTarget(c511000071.settg) - e2:SetOperation(c511000071.setop) - c:RegisterEffect(e2) - --Damage LP - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(80604091,0)) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetCountLimit(1) - e3:SetCondition(c511000071.damcon) - --e3:SetTarget(c511000071.damtg) - e3:SetOperation(c511000071.damop) - c:RegisterEffect(e3) -end -function c511000071.op(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetRange(LOCATION_SZONE) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetTargetRange(1,0) - e1:SetValue(c511000071.aclimit) - e1:SetReset(RESET_EVENT+0x1fe0000) - e:GetHandler():RegisterEffect(e1) -end -function c511000071.setcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c511000071.aclimit(e,re,tp) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) -end -function c511000071.filter(c) - return (c:IsType(TYPE_TRAP) or c:IsType(TYPE_SPELL)) and c:IsSSetable() -end -function c511000071.settg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingMatchingCard(c511000071.filter,tp,LOCATION_DECK,0,1,nil) end -end -function c511000071.setop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) - local g=Duel.SelectMatchingCard(tp,c511000071.filter,tp,LOCATION_DECK,0,1,1,nil) - local tc=g:GetFirst() - if g:GetCount()>0 then - Duel.ConfirmCards(1-tp,tc) - Duel.SSet(tp,g:GetFirst()) - c:SetCardTarget(tc) - end -end -function c511000071.damcon(e,tp,eg,ep,ev,re,r,rp) - local tn=Duel.GetTurnPlayer() - local ph=Duel.GetCurrentPhase() - return (tn==tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)) -end -function c511000071.damfilter(c,rc) - return rc:GetCardTarget():IsContains(c) -end -function c511000071.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - local dg=Duel.GetMatchingGroup(c511000071.damfilter,tp,LOCATION_SZONE,LOCATION_SZONE,nil,c) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() - and Duel.IsExistingTarget(c511000071.damfilter,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil,e,tp) - and dg:IsAbleToGraveAsCost() end -end -function c511000071.damop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetCardTargetCount()>0 then - local dg=Duel.GetMatchingGroup(c511000071.damfilter,tp,LOCATION_SZONE,LOCATION_SZONE,nil,c) - Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT) - local ct=Duel.SendtoGrave(dg,REASON_EFFECT) - if ct==1 then - Duel.Damage(1-tp,500,REASON_EFFECT) - end - if ct==2 then - Duel.Damage(1-tp,1500,REASON_EFFECT) - end - if ct==3 then - Duel.Damage(1-tp,3000,REASON_EFFECT) - end - if ct==4 then - Duel.Damage(1-tp,6000,REASON_EFFECT) - end - end -end diff --git a/script/c511000072.lua b/script/c511000072.lua deleted file mode 100644 index 886a4550..00000000 --- a/script/c511000072.lua +++ /dev/null @@ -1,78 +0,0 @@ ---T.G. Cyber Magician (TF5) -function c511000072.initial_effect(c) - --synchro limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetValue(c511000072.synlimit) - c:RegisterEffect(e1) - --synchro custom - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SYNCHRO_MATERIAL_CUSTOM) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetTarget(c511000072.syntg) - e2:SetValue(1) - e2:SetOperation(c511000072.synop) - c:RegisterEffect(e2) - --Type Machine - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetCode(EFFECT_ADD_RACE) - e3:SetRange(LOCATION_MZONE) - e3:SetValue(RACE_MACHINE) - c:RegisterEffect(e3) - --Add to hand - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(511000072,0)) - e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetCondition(c511000072.scon) - e4:SetTarget(c511000072.stg) - e4:SetOperation(c511000072.sop) - c:RegisterEffect(e4) -end -function c511000072.synlimit(e,c) - if not c then return false end - return not c:IsSetCard(0x27) -end -c511000072.tuner_filter=aux.FALSE -function c511000072.synfilter(c,syncard,tuner,f,lv) - return c:IsCanBeSynchroMaterial(syncard,tuner) and (f==nil or f(c)) and c:GetLevel()==lv -end -function c511000072.syntg(e,syncard,f,minc) - local c=e:GetHandler() - if minc>1 then return false end - local lv=syncard:GetLevel()-c:GetLevel() - if lv<=0 then return false end - return Duel.IsExistingMatchingCard(c511000072.synfilter,syncard:GetControler(),LOCATION_HAND,0,1,nil,syncard,c,f,lv) -end -function c511000072.synop(e,tp,eg,ep,ev,re,r,rp,syncard,f,minc) - local c=e:GetHandler() - local lv=syncard:GetLevel()-c:GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local g=Duel.SelectMatchingCard(tp,c511000072.synfilter,tp,LOCATION_HAND,0,1,1,nil,syncard,c,f,lv) - Duel.SetSynchroMaterial(g) -end -function c511000072.scon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsReason(REASON_DESTROY) -end -function c511000072.sfilter(c) - return c:IsCode(64910482) and c:IsAbleToHand() -end -function c511000072.stg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000072.sfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c511000072.sop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c511000072.sfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c511000073.lua b/script/c511000073.lua deleted file mode 100644 index dbe3b705..00000000 --- a/script/c511000073.lua +++ /dev/null @@ -1,53 +0,0 @@ ---T.G. Rush Rhino (TF5) -function c511000073.initial_effect(c) - --atkup - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c511000073.atcon) - e1:SetValue(400) - c:RegisterEffect(e1) - --Type Machine - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_ADD_RACE) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(RACE_MACHINE) - c:RegisterEffect(e2) - --Add to hand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000073,0)) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c511000073.scon) - e3:SetTarget(c511000073.stg) - e3:SetOperation(c511000073.sop) - c:RegisterEffect(e3) -end -function c511000073.atcon(e) - local ph=Duel.GetCurrentPhase() - return (ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) and e:GetHandler()==Duel.GetAttacker() -end -function c511000073.scon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsReason(REASON_DESTROY) -end -function c511000073.sfilter(c) - return c:IsCode(36687247) and c:IsAbleToHand() -end -function c511000073.stg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000073.sfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c511000073.sop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c511000073.sfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c511000074.lua b/script/c511000074.lua deleted file mode 100644 index da1749ec..00000000 --- a/script/c511000074.lua +++ /dev/null @@ -1,54 +0,0 @@ ---T.G. Striker (TF5) -function c511000074.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c511000074.spcon) - c:RegisterEffect(e1) - --Type Machine - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_ADD_RACE) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(RACE_MACHINE) - c:RegisterEffect(e2) - --Add to hand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000074,0)) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c511000074.scon) - e3:SetTarget(c511000074.stg) - e3:SetOperation(c511000074.sop) - c:RegisterEffect(e3) -end -function c511000074.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)>0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c511000074.scon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsReason(REASON_DESTROY) -end -function c511000074.sfilter(c) - return c:IsCode(1315120) and c:IsAbleToHand() -end -function c511000074.stg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000074.sfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c511000074.sop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c511000074.sfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c511000075.lua b/script/c511000075.lua deleted file mode 100644 index 14e7f3ea..00000000 --- a/script/c511000075.lua +++ /dev/null @@ -1,68 +0,0 @@ ---T.G. Warwolf -function c511000075.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000075,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetRange(LOCATION_HAND) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c511000075.spcon) - e1:SetTarget(c511000075.sptg) - e1:SetOperation(c511000075.spop) - c:RegisterEffect(e1) - --Type Machine - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_ADD_RACE) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(RACE_MACHINE) - c:RegisterEffect(e2) - --Add to hand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000075,0)) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c511000075.scon) - e3:SetTarget(c511000075.stg) - e3:SetOperation(c511000075.sop) - c:RegisterEffect(e3) -end -function c511000075.cfilter(c,tp) - return c:IsFaceup() and c:IsControler(tp) and c:IsLevelBelow(2) -end -function c511000075.spcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c511000075.cfilter,1,nil,tp) -end -function c511000075.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c511000075.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end -function c511000075.scon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsReason(REASON_DESTROY) -end -function c511000075.sfilter(c) - return c:IsCode(293542) and c:IsAbleToHand() -end -function c511000075.stg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000075.sfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c511000075.sop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c511000075.sfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c511000076.lua b/script/c511000076.lua deleted file mode 100644 index 7859bb7c..00000000 --- a/script/c511000076.lua +++ /dev/null @@ -1,122 +0,0 @@ ---T.G. Blade Blaster (TF5) -function c511000076.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure2(c,aux.FilterBoolFunction(Card.IsType,TYPE_SYNCHRO),aux.NonTuner(Card.IsType,TYPE_SYNCHRO)) - c:EnableReviveLimit() - --Negate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000076,0)) - e1:SetCategory(CATEGORY_DISABLE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c511000076.discon) - e1:SetCost(c511000076.discost) - e1:SetTarget(c511000076.distg) - e1:SetOperation(c511000076.disop) - c:RegisterEffect(e1) - --negate attack - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000076,0)) - e2:SetCategory(CATEGORY_REMOVE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c511000076.rmcon) - e2:SetTarget(c511000076.rmtg) - e2:SetOperation(c511000076.rmop) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000076,1)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetRange(LOCATION_REMOVED) - e3:SetCountLimit(1) - e3:SetCondition(c511000076.spcon) - e3:SetTarget(c511000076.sptg) - e3:SetOperation(c511000076.spop) - c:RegisterEffect(e3) - --special summon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(511000076,2)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetCondition(c511000076.sscon) - e4:SetTarget(c511000076.sstg) - e4:SetOperation(c511000076.ssop) - c:RegisterEffect(e4) -end -function c511000076.discon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end - if not re:IsHasType(EFFECT_TYPE_ACTIVATE) or not Duel.IsChainDisablable(ev) then return false end - return re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) and Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS):IsContains(c) -end -function c511000076.discost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGraveAsCost,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c511000076.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) -end -function c511000076.disop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateEffect(ev) - if e:GetHandler():IsRelateToEffect(e) then - Duel.Destroy(eg,REASON_EFFECT) - end -end -function c511000076.rmcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker():GetControler()~=tp -end -function c511000076.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc==Duel.GetAttacker() end - if chk==0 then return e:GetHandler():IsAbleToRemove() end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,e:GetHandler(),1,0,0) -end -function c511000076.rmop(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if Duel.Remove(c,POS_FACEUP,REASON_EFFECT)~=0 then - c:RegisterFlagEffect(511000076,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - end -end -function c511000076.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(511000076)~=0 -end -function c511000076.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c511000076.spop(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end -function c511000076.sscon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsReason(REASON_DESTROY) -end -function c511000076.ssfilter(c,e,tp) - return c:IsSetCard(0x27) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c511000076.sstg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c511000076.ssfilter(chkc,e,tp) end - if chk==0 then return Duel.IsExistingTarget(c511000076.ssfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c511000076.ssfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) -end -function c511000076.ssop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c511000077.lua b/script/c511000077.lua deleted file mode 100644 index ab90abd6..00000000 --- a/script/c511000077.lua +++ /dev/null @@ -1,48 +0,0 @@ ---T.G. Power Gladiator (TF5) -function c511000077.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x27),aux.NonTuner(nil),1) - c:EnableReviveLimit() - --pierce - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e1) - --Type Machine - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_ADD_RACE) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(RACE_MACHINE) - c:RegisterEffect(e2) - --Add to hand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000077,0)) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c511000077.scon) - e3:SetTarget(c511000077.stg) - e3:SetOperation(c511000077.sop) - c:RegisterEffect(e3) -end -function c511000077.scon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsReason(REASON_DESTROY) -end -function c511000077.sfilter(c) - return c:IsSetCard(0x27) and c:IsAbleToHand() -end -function c511000077.stg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000077.sfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c511000077.sop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c511000077.sfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c511000078.lua b/script/c511000078.lua deleted file mode 100644 index baeff9e0..00000000 --- a/script/c511000078.lua +++ /dev/null @@ -1,84 +0,0 @@ ---T.G. Wonder Magician (TF5) -function c511000078.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --synchro limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetValue(c511000078.synlimit) - c:RegisterEffect(e1) - --synchro effect - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000078,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(0,0x1c0+TIMING_MAIN_END) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c511000078.sccon) - e2:SetTarget(c511000078.sctg) - e2:SetOperation(c511000078.scop) - c:RegisterEffect(e2) - --Type Machine - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetCode(EFFECT_ADD_RACE) - e3:SetRange(LOCATION_MZONE) - e3:SetValue(RACE_MACHINE) - c:RegisterEffect(e3) - --Add to hand - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(511000078,1)) - e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetCondition(c511000078.scon) - e4:SetTarget(c511000078.stg) - e4:SetOperation(c511000078.sop) - c:RegisterEffect(e4) -end -function c511000078.synlimit(e,c) - if not c then return false end - return not c:IsSetCard(0x27) -end -function c511000078.sccon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsStatus(STATUS_CHAINING) and Duel.GetTurnPlayer()~=tp - and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) -end -function c511000078.sctg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,e:GetHandler()) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c511000078.scop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetControler()~=tp or not c:IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,c) - if g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:Select(tp,1,1,nil) - Duel.SynchroSummon(tp,sg:GetFirst(),c) - end -end -function c511000078.scon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsReason(REASON_DESTROY) -end -function c511000078.sfilter(c) - return c:IsSetCard(0x27) and c:IsAbleToHand() -end -function c511000078.stg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000078.sfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c511000078.sop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c511000078.sfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c511000080.lua b/script/c511000080.lua deleted file mode 100644 index 99a89a41..00000000 --- a/script/c511000080.lua +++ /dev/null @@ -1,40 +0,0 @@ ---Cold Sleeper -function c511000080.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000080,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetTarget(c511000080.sptg) - e1:SetOperation(c511000080.spop) - c:RegisterEffect(e1) -end -function c511000080.cfilter(c,e,tp) - return c:IsLocation(LOCATION_GRAVE) and c:GetPreviousControler()==tp and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c511000080.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=eg:GetFirst() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and eg:IsExists(c511000080.cfilter,1,nil,e,tp) end - local dis=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,0) - e:SetLabel(dis) - local g=eg:Filter(c511000080.cfilter,nil,e,tp) - Duel.SetTargetCard(g) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c511000080.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_DISABLE_FIELD) - e1:SetOperation(c511000080.disop) - e1:SetLabel(e:GetLabel()) - e:GetHandler():RegisterEffect(e1) - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) - Duel.SpecialSummonComplete() -end -function c511000080.disop(e,tp) - return e:GetLabel() -end diff --git a/script/c511000081.lua b/script/c511000081.lua deleted file mode 100644 index 6f18f0f1..00000000 --- a/script/c511000081.lua +++ /dev/null @@ -1,57 +0,0 @@ ---Illusion Ice Sculpture -function c511000081.initial_effect(c) - c:SetUniqueOnField(1,0,511000081) - --atk def - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000081,0)) - e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c511000081.target) - e1:SetOperation(c511000081.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e3) - --at limit - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetRange(LOCATION_MZONE) - e4:SetTargetRange(LOCATION_MZONE,0) - e4:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e4:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e4:SetTarget(c511000081.atlimit) - e4:SetValue(1) - c:RegisterEffect(e4) -end -function c511000081.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) -end -function c511000081.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) and tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(tc:GetBaseAttack()) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE) - e2:SetValue(tc:GetBaseDefence()) - e2:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e2) - end -end -function c511000081.atlimit(e,c) - return c~=e:GetHandler() -end \ No newline at end of file diff --git a/script/c511000082.lua b/script/c511000082.lua deleted file mode 100644 index a4c36471..00000000 --- a/script/c511000082.lua +++ /dev/null @@ -1,23 +0,0 @@ ---Snow Fairy -function c511000082.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_DRAW_PHASE) - c:RegisterEffect(e1) - --cannot activate - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EFFECT_CANNOT_ACTIVATE) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,1) - e2:SetValue(c511000082.aclimit) - c:RegisterEffect(e2) -end -function c511000082.aclimit(e,re,tp) - if not re:IsHasType(EFFECT_TYPE_ACTIVATE) or not re:IsActiveType(TYPE_SPELL) then return false end - local c=re:GetHandler() - return not c:IsLocation(LOCATION_SZONE) or Duel.GetTurnCount()-c:GetTurnID()<2 -end diff --git a/script/c511000083.lua b/script/c511000083.lua deleted file mode 100644 index 67067970..00000000 --- a/script/c511000083.lua +++ /dev/null @@ -1,63 +0,0 @@ ---White Blizzard -function c511000083.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Damage LP - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000083,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_BATTLE_DESTROYED) - e2:SetCondition(c511000083.damcon) - e2:SetTarget(c511000083.damtg) - e2:SetOperation(c511000083.damop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000083,0)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetCondition(c511000083.descon) - e3:SetTarget(c511000083.destg) - e3:SetOperation(c511000083.desop) - c:RegisterEffect(e3) -end -function c511000083.cfil(c,tp) - return c:IsReason(REASON_BATTLE) and c:GetPreviousControler()==tp -end -function c511000083.damcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c511000083.cfil,1,nil,1-tp) -end -function c511000083.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(600) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,600) -end -function c511000083.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c511000083.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsReason(REASON_DESTROY) -end -function c511000083.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c511000083.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c511000084.lua b/script/c511000084.lua deleted file mode 100644 index bca79cb6..00000000 --- a/script/c511000084.lua +++ /dev/null @@ -1,24 +0,0 @@ ---White Night Fort -function c511000084.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --actlimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_TRIGGER) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c511000084.actcon) - e2:SetTargetRange(0xa,0xa) - e2:SetTarget(c511000084.aclimit) - c:RegisterEffect(e2) -end -function c511000084.actcon(e) - return Duel.GetTurnPlayer()~=e:GetHandler():GetControler() -end -function c511000084.aclimit(e,c) - return c:IsType(TYPE_TRAP) -end diff --git a/script/c511000085.lua b/script/c511000085.lua deleted file mode 100644 index f53f6c30..00000000 --- a/script/c511000085.lua +++ /dev/null @@ -1,47 +0,0 @@ ---Clear Sacrifice -function c511000085.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c511000085.target) - e1:SetOperation(c511000085.operation) - c:RegisterEffect(e1) -end -function c511000085.filter(c) - return c:GetLevel()>4 and (c:IsCode(97811903) or c:IsCode(100000160) or c:IsCode(100000161) or c:IsCode(100000162) or c:IsCode(100000163)) -end -function c511000085.rfilter(c) - return c:IsType(TYPE_MONSTER) and (c:IsCode(97811903) or c:IsCode(100000160) or c:IsCode(100000161) or c:IsCode(100000162) or c:IsCode(100000163)) and c:IsAbleToRemove() -end -function c511000085.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - return Duel.IsExistingMatchingCard(c511000085.filter,tp,LOCATION_HAND,0,1,nil) - and Duel.IsExistingMatchingCard(c511000085.rfilter,tp,LOCATION_GRAVE,0,2,nil) end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_GRAVE) -end -function c511000085.operation(e,tp,eg,ep,ev,re,r,rp) - local rg=Duel.GetMatchingGroup(c511000085.rfilter,tp,LOCATION_GRAVE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(511000085,1)) - local g=Duel.SelectMatchingCard(tp,c511000085.filter,tp,LOCATION_HAND,0,1,1,nil,rg) - local tc=g:GetFirst() - if tc then - Duel.ConfirmCards(1-tp,tc) - Duel.ShuffleHand(tp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local rg=Duel.SelectMatchingCard(tp,c511000085.rfilter,tp,LOCATION_GRAVE,0,2,2,nil) - Duel.Remove(rg,POS_FACEUP,REASON_EFFECT) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetDescription(aux.Stringid(511000085,0)) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetCondition(c511000085.ntcon) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end -function c511000085.ntcon(e,c) - if c==nil then return true end - return c:GetLevel()>4 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end diff --git a/script/c511000086.lua b/script/c511000086.lua deleted file mode 100644 index 90abdb71..00000000 --- a/script/c511000086.lua +++ /dev/null @@ -1,30 +0,0 @@ ---Bounce Spell -function c511000086.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c511000086.target) - e1:SetOperation(c511000086.activate) - c:RegisterEffect(e1) -end -function c511000086.filter(c) - return c:IsType(TYPE_SPELL) and c:IsFaceup() and c:IsAbleToChangeControler() -end -function c511000086.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c511000086.filter(chkc) and chkc~=e:GetHandler() end - if chk==0 then return Duel.IsExistingTarget(c511000086.filter,tp,0,LOCATION_SZONE,1,e:GetHandler()) - and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,c511000086.filter,tp,0,LOCATION_SZONE,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) -end -function c511000086.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - end -end diff --git a/script/c511000087.lua b/script/c511000087.lua deleted file mode 100644 index 1c44ca03..00000000 --- a/script/c511000087.lua +++ /dev/null @@ -1,74 +0,0 @@ ---Summoning Clock -function c511000087.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c511000087.condition) - e1:SetTarget(c511000087.reset) - c:RegisterEffect(e1) - --Special Summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000087,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c511000087.spcost) - e2:SetTarget(c511000087.sptg) - e2:SetOperation(c511000087.spop) - c:RegisterEffect(e2) - --turn - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCode(EVENT_PHASE_START+PHASE_STANDBY) - e3:SetRange(LOCATION_SZONE) - e3:SetOperation(c511000087.turncount) - c:RegisterEffect(e3) -end -function c511000087.condition(e,tp,eg,ep,ev,re,r,rp) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) and rp~=tp -end -function c511000087.turncount(e,tp,eg,ep,ev,re,r,rp) - if tp~=Duel.GetTurnPlayer() then return end - local c=e:GetHandler() - local ct=c:GetTurnCounter() - ct=ct+1 - c:SetTurnCounter(ct) -end -function c511000087.reset(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - e:GetHandler():SetTurnCounter(0) -end -function c511000087.spfilter(c,e,tp) - return c:IsSummonableCard() and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c511000087.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local ctc=c:GetTurnCounter()-1 - local ct=c:GetTurnCounter() - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() and Duel.CheckReleaseGroup(tp,nil,1,nil) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>ctc and Duel.IsExistingMatchingCard(c511000087.spfilter,tp,LOCATION_HAND,0,ct,nil,e,tp) end - local g=Duel.SelectReleaseGroup(tp,aux.TRUE,1,1,nil) - Duel.SendtoGrave(e:GetHandler(),REASON_COST) - Duel.Release(g,REASON_COST) -end -function c511000087.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local c=e:GetHandler() - local ct=c:GetTurnCounter() - if chkc then return chkc:IsLocation(LOCATION_HAND) and chkc:IsControler(tp) and c511000087.spfilter(chkc,e,tp) end - if chk==0 then return c:GetTurnCounter()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=ct - and Duel.IsExistingMatchingCard(c511000087.spfilter,tp,LOCATION_HAND,0,ct,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c511000087.spfilter,tp,LOCATION_HAND,0,ct,ct,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) -end -function c511000087.spop(e,tp,eg,ep,ev,re,r,rp,chk) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c511000088.lua b/script/c511000088.lua deleted file mode 100644 index 80fe3a56..00000000 --- a/script/c511000088.lua +++ /dev/null @@ -1,49 +0,0 @@ ---Royal Straight -function c511000088.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c511000088.cost) - e1:SetTarget(c511000088.target) - e1:SetOperation(c511000088.activate) - c:RegisterEffect(e1) -end -function c511000088.filter(c,e,tp) - return c:IsCode(511000089) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c511000088.filter1(c) - return c:IsCode(25652259) and c:IsPosition(POS_FACEUP_ATTACK) -end -function c511000088.filter2(c) - return c:IsCode(64788463) and c:IsPosition(POS_FACEUP_ATTACK) -end -function c511000088.filter3(c) - return c:IsCode(90876561) and c:IsPosition(POS_FACEUP_ATTACK) -end -function c511000088.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c511000088.filter1,1,nil) - and Duel.CheckReleaseGroup(tp,c511000088.filter2,1,nil) - and Duel.CheckReleaseGroup(tp,c511000088.filter3,1,nil) end - local g1=Duel.SelectReleaseGroup(tp,c511000088.filter1,1,1,nil) - local g2=Duel.SelectReleaseGroup(tp,c511000088.filter2,1,1,nil) - local g3=Duel.SelectReleaseGroup(tp,c511000088.filter3,1,1,nil) - g1:Merge(g2) - g1:Merge(g3) - Duel.Release(g1,REASON_COST) -end -function c511000088.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c511000088.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) -end -function c511000088.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000088.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP) - g:GetFirst():CompleteProcedure() - end -end diff --git a/script/c511000089.lua b/script/c511000089.lua deleted file mode 100644 index 76d2a682..00000000 --- a/script/c511000089.lua +++ /dev/null @@ -1,70 +0,0 @@ ---Royal Straight Slasher -function c511000089.initial_effect(c) - c:EnableReviveLimit() - --spsummon limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c511000089.splimit) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(85771019,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c511000089.descost) - e2:SetTarget(c511000089.destg) - e2:SetOperation(c511000089.desop) - c:RegisterEffect(e2) -end -function c511000089.splimit(e,se,sp,st) - return st==(SUMMON_TYPE_SPECIAL+511000088) -end -function c511000089.desfilter1(c) - return c:IsType(TYPE_MONSTER) and c:GetLevel()==1 and c:IsAbleToGrave() -end -function c511000089.desfilter2(c) - return c:IsType(TYPE_MONSTER) and c:GetLevel()==2 and c:IsAbleToGrave() -end -function c511000089.desfilter3(c) - return c:IsType(TYPE_MONSTER) and c:GetLevel()==3 and c:IsAbleToGrave() -end -function c511000089.desfilter4(c) - return c:IsType(TYPE_MONSTER) and c:GetLevel()==4 and c:IsAbleToGrave() -end -function c511000089.desfilter5(c) - return c:IsType(TYPE_MONSTER) and c:GetLevel()==5 and c:IsAbleToGrave() -end -function c511000089.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000089.desfilter1,tp,LOCATION_DECK,0,1,nil) - and Duel.IsExistingMatchingCard(c511000089.desfilter2,tp,LOCATION_DECK,0,1,nil) - and Duel.IsExistingMatchingCard(c511000089.desfilter3,tp,LOCATION_DECK,0,1,nil) - and Duel.IsExistingMatchingCard(c511000089.desfilter4,tp,LOCATION_DECK,0,1,nil) - and Duel.IsExistingMatchingCard(c511000089.desfilter5,tp,LOCATION_DECK,0,1,nil) - and Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,c511000089.desfilter1,tp,LOCATION_DECK,0,1,1,nil) - local g2=Duel.SelectMatchingCard(tp,c511000089.desfilter2,tp,LOCATION_DECK,0,1,1,nil) - local g3=Duel.SelectMatchingCard(tp,c511000089.desfilter3,tp,LOCATION_DECK,0,1,1,nil) - local g4=Duel.SelectMatchingCard(tp,c511000089.desfilter4,tp,LOCATION_DECK,0,1,1,nil) - local g5=Duel.SelectMatchingCard(tp,c511000089.desfilter5,tp,LOCATION_DECK,0,1,1,nil) - g1:Merge(g2) - g1:Merge(g3) - g1:Merge(g4) - g1:Merge(g5) - if g1:GetCount()==5 then - Duel.SendtoGrave(g1,REASON_COST) - end -end -function c511000089.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0,nil) -end -function c511000089.desop(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.Destroy(sg,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000090.lua b/script/c511000090.lua deleted file mode 100644 index 94d42fe4..00000000 --- a/script/c511000090.lua +++ /dev/null @@ -1,80 +0,0 @@ ---Ground Erosion -function c511000090.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c511000090.reset) - c:RegisterEffect(e1) - --Negate effect/Decrease ATK - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000090,0)) - e2:SetCategory(CATEGORY_DISABLE+CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c511000090.cost) - e2:SetTarget(c511000090.tg) - e2:SetOperation(c511000090.op) - c:RegisterEffect(e2) - --turn - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCode(EVENT_PHASE_START+PHASE_STANDBY) - e3:SetRange(LOCATION_SZONE) - e3:SetOperation(c511000090.turncount) - c:RegisterEffect(e3) -end -function c511000090.turncount(e,tp,eg,ep,ev,re,r,rp) - if tp~=Duel.GetTurnPlayer() then return end - local c=e:GetHandler() - local ct=c:GetTurnCounter() - ct=ct+1 - c:SetTurnCounter(ct) -end -function c511000090.reset(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - e:GetHandler():SetTurnCounter(0) -end -function c511000090.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local ct=c:GetTurnCounter() - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() and Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c511000090.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local c=e:GetHandler() - local ct=c:GetTurnCounter() - if chkc then return chkc:IsControler(1-tp) and chkc:IsFaceup() and chkc:IsLocation(LOCATION_MZONE) end - if chk==0 then return c:GetTurnCounter()>0 and Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) -end -function c511000090.op(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local ct=c:GetTurnCounter() - local tc=Duel.GetFirstTarget() - local dec=ct*500 - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.NegateRelatedChain(tc,RESET_TURN_SET) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetValue(RESET_TURN_SET) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetValue(-dec) - e3:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e3) - end -end diff --git a/script/c511000091.lua b/script/c511000091.lua deleted file mode 100644 index 644b0490..00000000 --- a/script/c511000091.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Turn Jump -function c511000091.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_BATTLE_START,0) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCondition(c511000091.condition) - e1:SetOperation(c511000091.operation) - c:RegisterEffect(e1) -end -function c511000091.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE and not Duel.CheckPhaseActivity() and Duel.GetCurrentChain()==0 -end -function c511000091.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetTurnPlayer()==tp then - Duel.SkipPhase(tp,PHASE_DRAW,RESET_PHASE+PHASE_END,4) - Duel.SkipPhase(tp,PHASE_MAIN1,RESET_PHASE+PHASE_END,4) - Duel.SkipPhase(tp,PHASE_BATTLE,RESET_PHASE+PHASE_END,2,2) - Duel.SkipPhase(tp,PHASE_MAIN2,RESET_PHASE+PHASE_END,2) - Duel.SkipPhase(1-tp,PHASE_DRAW,RESET_PHASE+PHASE_END,3) - Duel.SkipPhase(1-tp,PHASE_MAIN1,RESET_PHASE+PHASE_END,3) - Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_END,3,3) - Duel.SkipPhase(1-tp,PHASE_MAIN2,RESET_PHASE+PHASE_END,3) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_BP) - e1:SetTargetRange(1,1) - e1:SetReset(RESET_PHASE+PHASE_END,6) - Duel.RegisterEffect(e1,tp) - elseif Duel.GetTurnPlayer()~=tp then - Duel.SkipPhase(1-tp,PHASE_DRAW,RESET_PHASE+PHASE_END,4) - Duel.SkipPhase(1-tp,PHASE_MAIN1,RESET_PHASE+PHASE_END,4) - Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_END,2,2) - Duel.SkipPhase(1-tp,PHASE_MAIN2,RESET_PHASE+PHASE_END,2) - Duel.SkipPhase(tp,PHASE_DRAW,RESET_PHASE+PHASE_END,3) - Duel.SkipPhase(tp,PHASE_MAIN1,RESET_PHASE+PHASE_END,3) - Duel.SkipPhase(tp,PHASE_BATTLE,RESET_PHASE+PHASE_END,3,3) - Duel.SkipPhase(tp,PHASE_MAIN2,RESET_PHASE+PHASE_END,3) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_BP) - e1:SetTargetRange(1,1) - e1:SetReset(RESET_PHASE+PHASE_END,6) - Duel.RegisterEffect(e1,tp) - end -end diff --git a/script/c511000092.lua b/script/c511000092.lua deleted file mode 100644 index f143e8e3..00000000 --- a/script/c511000092.lua +++ /dev/null @@ -1,39 +0,0 @@ ---Blue Expense Falcon -function c511000092.initial_effect(c) - --summon success - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000092,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c511000092.sumtg) - e1:SetOperation(c511000092.sumop) - c:RegisterEffect(e1) - --syn limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetValue(c511000092.synlimit) - c:RegisterEffect(e2) -end -function c511000092.synlimit(e,c) - if not c then return false end - return not c:IsAttribute(ATTRIBUTE_WIND) -end -function c511000092.filter(c,e,tp) - return c:GetLevel()<=4 and c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c511000092.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c511000092.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c511000092.sumop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000092.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 diff --git a/script/c511000093.lua b/script/c511000093.lua deleted file mode 100644 index d6c51484..00000000 --- a/script/c511000093.lua +++ /dev/null @@ -1,30 +0,0 @@ ---Speed Spell - Defense Buster -function c511000093.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c511000093.con) - e1:SetTarget(c511000093.target) - e1:SetOperation(c511000093.activate) - c:RegisterEffect(e1) -end -function c511000093.con(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - return tc:GetCounter(0x91)>1 -end -function c511000093.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDefencePos() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDefencePos,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) - local g=Duel.SelectTarget(tp,Card.IsDefencePos,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c511000093.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not tc:IsAttackPos() then - Duel.ChangePosition(tc,0,0,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) - end -end diff --git a/script/c511000094.lua b/script/c511000094.lua deleted file mode 100644 index db2f449e..00000000 --- a/script/c511000094.lua +++ /dev/null @@ -1,33 +0,0 @@ ---Star Gatherer -function c511000094.initial_effect(c) - --Change Level - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000094,1)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c511000094.lvtg) - e1:SetOperation(c511000094.lvop) - c:RegisterEffect(e1) -end -function c511000094.lvfilter(c) - return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:GetLevel()>0 -end -function c511000094.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c511000094.lvfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c511000094.lvfilter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c511000094.lvfilter,tp,0,LOCATION_MZONE,1,1,nil) -end -function c511000094.lvop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local c=e:GetHandler() - if tc:IsRelateToEffect(e) and c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()-1) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end diff --git a/script/c511000095.lua b/script/c511000095.lua deleted file mode 100644 index 1d495bf0..00000000 --- a/script/c511000095.lua +++ /dev/null @@ -1,36 +0,0 @@ ---Break Tune -function c511000095.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c511000095.condition) - e1:SetTarget(c511000095.target) - e1:SetOperation(c511000095.activate) - c:RegisterEffect(e1) -end -function c511000095.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c511000095.filter,tp,LOCATION_HAND,0,1,nil,e,tp) -end -function c511000095.filter(c,e,tp) - return c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c511000095.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c511000095.filter,tp,LOCATION_HAND,0,1,nil,e,tp) - and tg:IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c511000095.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000095.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - if Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)>0 then - Duel.NegateAttack() - end - end -end \ No newline at end of file diff --git a/script/c511000096.lua b/script/c511000096.lua deleted file mode 100644 index 5c66bde3..00000000 --- a/script/c511000096.lua +++ /dev/null @@ -1,31 +0,0 @@ ---Triangle Warrior -function c511000096.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) - e1:SetDescription(aux.Stringid(511000096,0)) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetTarget(c511000096.target) - e1:SetOperation(c511000096.activate) - c:RegisterEffect(e1) -end -function c511000096.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp)>1 and Duel.GetLocationCount(tp,LOCATION_MZONE,tp)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,511000097,0xf,0x4011,1200,1200,2,RACE_WARRIOR,ATTRIBUTE_LIGHT,POS_FACEUP_DEFENCE,1-tp) - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c511000096.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp)<2 then return end - if not Duel.IsPlayerCanSpecialSummonMonster(tp,511000097,0xf,0x4011,1200,1200,2,RACE_WARRIOR,ATTRIBUTE_LIGHT,POS_FACEUP_DEFENCE,1-tp) then return end - for i=1,2 do - local token=Duel.CreateToken(tp,511000097) - Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) - end - Duel.SpecialSummonComplete() -end diff --git a/script/c511000098.lua b/script/c511000098.lua deleted file mode 100644 index ed2c7462..00000000 --- a/script/c511000098.lua +++ /dev/null @@ -1,48 +0,0 @@ ---Double Tribute -function c511000098.initial_effect(c) - --Activate(summon) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCondition(c511000098.condition) - e1:SetTarget(c511000098.target) - e1:SetOperation(c511000098.activate) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) -end -function c511000098.cfilter(c,tp) - return c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) -end -function c511000098.condition(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(c511000098.cfilter,nil,tp) - if g:GetCount()~=1 then return end - local tc=g:GetFirst() - e:SetLabelObject(tc) - return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) -end -function c511000098.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if not eg then return false end - local tc=e:GetLabelObject() - if chkc then return chkc==tc end - if chk==0 then return ep==tp and tc:IsFaceup() and tc:IsOnField() and tc:IsCanBeEffectTarget(e) - and tc:IsDestructable() end - Duel.SetTargetCard(eg) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) -end -function c511000098.filter(c) - return c:IsDestructable() -end -function c511000098.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - if Duel.Destroy(tc,REASON_EFFECT)>0 then - local g=Duel.SelectTarget(tp,c511000098.filter,tp,0,LOCATION_MZONE,1,1,nil) - local tc2=g:GetFirst() - Duel.Destroy(tc2,REASON_EFFECT) - end - end -end diff --git a/script/c511000099.lua b/script/c511000099.lua deleted file mode 100644 index 76256c66..00000000 --- a/script/c511000099.lua +++ /dev/null @@ -1,40 +0,0 @@ ---Level Cannon -function c511000099.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_DRAW_PHASE) - c:RegisterEffect(e1) - --Damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000099,0)) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetRange(LOCATION_SZONE) - e2:SetTarget(c511000099.target) - e2:SetOperation(c511000099.operation) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e3) - local e4=e2:Clone() - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e4) -end -function c511000099.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsRelateToEffect(e) end - Duel.SetTargetCard(eg) - tc=eg:GetFirst() - Duel.SetTargetPlayer(tc:GetControler()) - Duel.SetTargetParam(tc:GetLevel()*200) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tc:GetControler(),tc:GetLevel()*200) -end -function c511000099.filter(c,e) - return c:IsFaceup() and c:IsRelateToEffect(e) -end -function c511000099.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c511000100.lua b/script/c511000100.lua deleted file mode 100644 index 260ce2ec..00000000 --- a/script/c511000100.lua +++ /dev/null @@ -1,32 +0,0 @@ ---Tomatoknight -function c511000100.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000100,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_DESTROYED) - e1:SetCondition(c511000100.condition) - e1:SetTarget(c511000100.target) - e1:SetOperation(c511000100.operation) - c:RegisterEffect(e1) -end -function c511000100.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE+REASON_EFFECT) -end -function c511000100.filter(c,e,tp) - return c:IsCode(511000100) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c511000100.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c511000100.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c511000100.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000100.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c511000101.lua b/script/c511000101.lua deleted file mode 100644 index f3976b33..00000000 --- a/script/c511000101.lua +++ /dev/null @@ -1,28 +0,0 @@ ---フォトン・カイザー -function c511000101.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000101,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c511000101.sptg) - e1:SetOperation(c511000101.spop) - c:RegisterEffect(e1) -end -function c511000101.filter(c,e,tp) - return c:IsCode(100000548) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c511000101.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c511000101.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND) -end -function c511000101.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000101.filter,tp,LOCATION_DECK+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 diff --git a/script/c511000102.lua b/script/c511000102.lua deleted file mode 100644 index d54822ca..00000000 --- a/script/c511000102.lua +++ /dev/null @@ -1,31 +0,0 @@ ---H－C エクスカリバー -function c511000102.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,3),3) - c:EnableReviveLimit() - --attack up - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetDescription(aux.Stringid(511000102,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c511000102.cost) - e1:SetOperation(c511000102.operation) - c:RegisterEffect(e1) -end -function c511000102.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c511000102.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(c:GetBaseAttack()*2) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN) - c:RegisterEffect(e1) - end -end diff --git a/script/c511000103.lua b/script/c511000103.lua deleted file mode 100644 index 7d9bb50b..00000000 --- a/script/c511000103.lua +++ /dev/null @@ -1,70 +0,0 @@ ---Tomato Paradise -function c511000103.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --token - local g=Group.CreateGroup() - g:KeepAlive() - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000103,0)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetCondition(c511000103.tkcon) - e2:SetTarget(c511000103.tktg) - e2:SetOperation(c511000103.tkop) - e2:SetLabelObject(g) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - e3:SetLabelObject(g) - c:RegisterEffect(e3) - local e4=e2:Clone() - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - e4:SetLabelObject(g) - c:RegisterEffect(e4) -end -function c511000103.ctfilter(c) - return c:IsFaceup() and c:IsRace(RACE_PLANT) -end -function c511000103.tkcon(e,tp,eg,ep,ev,re,r,rp) - if eg:IsExists(c150.ctfilter,1,nil) and eg:GetFirst():GetSummonType()~=SUMMON_TYPE_SPECIAL+0x20 then - e:GetLabelObject():Clear() - e:GetLabelObject():Merge(eg) - return true - else return false end -end -function c511000103.tktg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) end - Duel.SetTargetCard(e:GetLabelObject()) - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) -end -function c511000103.tkop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - local tc=g:GetFirst() - if not tc then return end - local s0=false - local s1=false - while tc do - if tc:IsControler(tp) then s0=true - else s1=true end - tc=g:GetNext() - end - if s0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,511000104,0,0x4011,0,0,1,RACE_PLANT,ATTRIBUTE_EARTH) then - local token=Duel.CreateToken(tp,511000104) - Duel.SpecialSummonStep(token,0x20,tp,tp,false,false,POS_FACEUP) - end - if s1 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,511000104,0,0x4011,0,0,1,RACE_PLANT,ATTRIBUTE_EARTH,1-tp) then - local token=Duel.CreateToken(1-tp,511000104) - Duel.SpecialSummonStep(token,0x20,tp,1-tp,false,false,POS_FACEUP) - end - Duel.SpecialSummonComplete() -end \ No newline at end of file diff --git a/script/c511000105.lua b/script/c511000105.lua deleted file mode 100644 index eca3ec13..00000000 --- a/script/c511000105.lua +++ /dev/null @@ -1,35 +0,0 @@ ---マスドライバー -function c511000105.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000105,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c511000105.damcost) - e2:SetTarget(c511000105.damtg) - e2:SetOperation(c511000105.damop) - c:RegisterEffect(e2) -end -function c511000105.damcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsRace,1,nil,RACE_PLANT) end - local g=Duel.SelectReleaseGroup(tp,Card.IsRace,1,1,nil,RACE_PLANT) - Duel.Release(g,REASON_COST) -end -function c511000105.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(400) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,400) -end -function c511000105.damop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c511000106.lua b/script/c511000106.lua deleted file mode 100644 index 34d77ae9..00000000 --- a/script/c511000106.lua +++ /dev/null @@ -1,38 +0,0 @@ ---リミッター解除 -function c511000106.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetCondition(c511000106.condition) - e1:SetTarget(c511000106.target) - e1:SetOperation(c511000106.activate) - c:RegisterEffect(e1) -end -function c511000106.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c511000106.filter(c) - return c:IsFaceup() and c:IsRace(RACE_PLANT) -end -function c511000106.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000106.filter,tp,LOCATION_MZONE,0,1,nil) end -end -function c511000106.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c511000106.filter,tp,LOCATION_MZONE,0,nil) - local c=e:GetHandler() - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_SELF_TURN,2) - e1:SetValue(500) - tc:RegisterEffect(e1) - tc:RegisterFlagEffect(511000106,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - tc=g:GetNext() - end -end \ No newline at end of file diff --git a/script/c511000108.lua b/script/c511000108.lua deleted file mode 100644 index 4c7fa9de..00000000 --- a/script/c511000108.lua +++ /dev/null @@ -1,96 +0,0 @@ ---Beetron-2 Beetleturbo -function c511000108.initial_effect(c) - --equip - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000108,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c511000108.eqtg) - e1:SetOperation(c511000108.eqop) - c:RegisterEffect(e1) - --unequip - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000108,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c511000108.uncon) - e2:SetTarget(c511000108.sptg) - e2:SetOperation(c511000108.spop) - c:RegisterEffect(e2) - --Atk up - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetValue(400) - e3:SetCondition(c511000108.uncon) - c:RegisterEffect(e3) - --Def up - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_UPDATE_DEFENCE) - e4:SetValue(400) - e4:SetCondition(c511000108.uncon) - c:RegisterEffect(e4) - --destroy sub - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_EQUIP) - e5:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e5:SetCode(EFFECT_DESTROY_SUBSTITUTE) - e5:SetCondition(c511000108.uncon) - e5:SetValue(c511000108.repval) - c:RegisterEffect(e5) - --eqlimit - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetCode(EFFECT_EQUIP_LIMIT) - e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e6:SetValue(c511000108.eqlimit) - c:RegisterEffect(e6) -end -function c511000108.uncon(e) - return e:GetHandler():IsStatus(STATUS_UNION) -end -function c511000108.repval(e,re,r,rp) - return bit.band(r,REASON_BATTLE)~=0 -end -function c511000108.eqlimit(e,c) - return c:IsCode(511000107) -end -function c511000108.filter(c) - return c:IsFaceup() and c:IsCode(511000107) and c:GetUnionCount()==0 -end -function c511000108.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c511000108.filter(chkc) end - if chk==0 then return e:GetHandler():GetFlagEffect(511000108)==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c511000108.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,c511000108.filter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) - e:GetHandler():RegisterFlagEffect(511000108,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) -end -function c511000108.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if not c:IsRelateToEffect(e) or c:IsFacedown() then return end - if not tc:IsRelateToEffect(e) or not c511000108.filter(tc) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - if not Duel.Equip(tp,c,tc,false) then return end - c:SetStatus(STATUS_UNION,true) -end -function c511000108.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(511000108)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) - e:GetHandler():RegisterFlagEffect(511000108,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) -end -function c511000108.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) - end -end diff --git a/script/c511000109.lua b/script/c511000109.lua deleted file mode 100644 index 94b4ca0b..00000000 --- a/script/c511000109.lua +++ /dev/null @@ -1,98 +0,0 @@ ---Z－メタル·キャタピラー -function c511000109.initial_effect(c) - --equip - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000109,0)) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c511000109.eqtg) - e1:SetOperation(c511000109.eqop) - c:RegisterEffect(e1) - --unequip - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000109,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c511000109.uncon) - e2:SetTarget(c511000109.sptg) - e2:SetOperation(c511000109.spop) - c:RegisterEffect(e2) - --Atk up - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetValue(600) - e3:SetCondition(c511000109.uncon) - c:RegisterEffect(e3) - --Def up - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_UPDATE_DEFENCE) - e4:SetValue(600) - e4:SetCondition(c511000109.uncon) - c:RegisterEffect(e4) - --destroy sub - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_EQUIP) - e5:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e5:SetCode(EFFECT_DESTROY_SUBSTITUTE) - e5:SetCondition(c511000109.uncon) - e5:SetValue(c511000109.repval) - c:RegisterEffect(e5) - --eqlimit - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetCode(EFFECT_EQUIP_LIMIT) - e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e6:SetValue(c511000109.eqlimit) - c:RegisterEffect(e6) -end -function c511000109.uncon(e) - return e:GetHandler():IsStatus(STATUS_UNION) -end -function c511000109.repval(e,re,r,rp) - return bit.band(r,REASON_BATTLE)~=0 -end -function c511000109.eqlimit(e,c) - local code=c:GetCode() - return code==511000107 or code==511000108 -end -function c511000109.filter(c) - local code=c:GetCode() - return c:IsFaceup() and (code==511000107 or code==511000108) and c:GetUnionCount()==0 -end -function c511000109.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c511000109.filter(chkc) end - if chk==0 then return e:GetHandler():GetFlagEffect(511000109)==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c511000109.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,c511000109.filter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) - e:GetHandler():RegisterFlagEffect(511000109,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) -end -function c511000109.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if not c:IsRelateToEffect(e) or c:IsFacedown() then return end - if not tc:IsRelateToEffect(e) or not c511000109.filter(tc) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - if not Duel.Equip(tp,c,tc,false) then return end - c:SetStatus(STATUS_UNION,true) -end -function c511000109.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(511000109)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) - e:GetHandler():RegisterFlagEffect(511000109,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) -end -function c511000109.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) - end -end diff --git a/script/c511000110.lua b/script/c511000110.lua deleted file mode 100644 index ba01d66e..00000000 --- a/script/c511000110.lua +++ /dev/null @@ -1,99 +0,0 @@ ---Assault Cannon Beetle -function c511000110.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode3(c,511000107,511000108,511000109,false,false) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c511000110.splimit) - c:RegisterEffect(e1) - --special summon rule - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_EXTRA) - e2:SetCondition(c511000110.spcon) - e2:SetOperation(c511000110.spop) - c:RegisterEffect(e2) - --damage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000110,0)) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c511000110.cost) - e3:SetTarget(c511000110.target) - e3:SetOperation(c511000110.operation) - c:RegisterEffect(e3) -end -function c511000110.splimit(e,se,sp,st) - return not e:GetHandler():IsLocation(LOCATION_EXTRA) -end -function c511000110.spfilter(c,code) - if c:GetCode()~=code then return false end - if c:IsType(TYPE_FUSION) then return c:IsAbleToExtraAsCost() - else return c:IsAbleToDeckAsCost() end -end -function c511000110.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<-2 then return false end - local g1=Duel.GetMatchingGroup(c511000110.spfilter,tp,LOCATION_ONFIELD,0,nil,511000107) - local g2=Duel.GetMatchingGroup(c511000110.spfilter,tp,LOCATION_ONFIELD,0,nil,511000108) - local g3=Duel.GetMatchingGroup(c511000110.spfilter,tp,LOCATION_ONFIELD,0,nil,511000109) - if g1:GetCount()==0 or g2:GetCount()==0 or g3:GetCount()==0 then return false end - if ft>0 then return true end - local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - local f3=g3:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - if ft==-2 then return f1+f2+f3==3 - elseif ft==-1 then return f1+f2+f3>=2 - else return f1+f2+f3>=1 end -end -function c511000110.spop(e,tp,eg,ep,ev,re,r,rp,c) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local g1=Duel.GetMatchingGroup(c511000110.spfilter,tp,LOCATION_ONFIELD,0,nil,511000107) - local g2=Duel.GetMatchingGroup(c511000110.spfilter,tp,LOCATION_ONFIELD,0,nil,511000108) - local g3=Duel.GetMatchingGroup(c511000110.spfilter,tp,LOCATION_ONFIELD,0,nil,511000109) - g1:Merge(g2) - g1:Merge(g3) - local g=Group.CreateGroup() - local tc=nil - for i=1,3 do - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - if ft<=0 then - tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() - else - tc=g1:Select(tp,1,1,nil):GetFirst() - end - g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 - end - local cg=g:Filter(Card.IsFacedown,nil) - if cg:GetCount()>0 then - Duel.ConfirmCards(1-tp,cg) - end - Duel.SendtoDeck(g,nil,1,REASON_COST) -end -function c511000110.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,nil,1,nil) end - local sg=Duel.SelectReleaseGroup(tp,nil,1,1,nil) - Duel.Release(sg,REASON_COST) -end -function c511000110.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(800) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) -end -function c511000110.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c511000111.lua b/script/c511000111.lua deleted file mode 100644 index 034a3f1f..00000000 --- a/script/c511000111.lua +++ /dev/null @@ -1,101 +0,0 @@ ---Combat Scissors Beetle -function c511000111.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode3(c,511000107,511000108,511000109,false,false) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c511000111.splimit) - c:RegisterEffect(e1) - --special summon rule - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_EXTRA) - e2:SetCondition(c511000111.spcon) - e2:SetOperation(c511000111.spop) - c:RegisterEffect(e2) - --damage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000111,0)) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetCode(EVENT_BATTLE_DESTROYED) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c511000111.damcon) - e3:SetTarget(c511000111.damtg) - e3:SetOperation(c511000111.damop) - c:RegisterEffect(e3) -end -function c511000111.splimit(e,se,sp,st) - return not e:GetHandler():IsLocation(LOCATION_EXTRA) -end -function c511000111.spfilter(c,code) - if c:GetCode()~=code then return false end - if c:IsType(TYPE_FUSION) then return c:IsAbleToExtraAsCost() - else return c:IsAbleToDeckAsCost() end -end -function c511000111.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<-2 then return false end - local g1=Duel.GetMatchingGroup(c511000111.spfilter,tp,LOCATION_ONFIELD,0,nil,511000107) - local g2=Duel.GetMatchingGroup(c511000111.spfilter,tp,LOCATION_ONFIELD,0,nil,511000108) - local g3=Duel.GetMatchingGroup(c511000111.spfilter,tp,LOCATION_ONFIELD,0,nil,511000109) - if g1:GetCount()==0 or g2:GetCount()==0 or g3:GetCount()==0 then return false end - if ft>0 then return true end - local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - local f3=g3:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - if ft==-2 then return f1+f2+f3==3 - elseif ft==-1 then return f1+f2+f3>=2 - else return f1+f2+f3>=1 end -end -function c511000111.spop(e,tp,eg,ep,ev,re,r,rp,c) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local g1=Duel.GetMatchingGroup(c511000111.spfilter,tp,LOCATION_ONFIELD,0,nil,511000107) - local g2=Duel.GetMatchingGroup(c511000111.spfilter,tp,LOCATION_ONFIELD,0,nil,511000108) - local g3=Duel.GetMatchingGroup(c511000111.spfilter,tp,LOCATION_ONFIELD,0,nil,511000109) - g1:Merge(g2) - g1:Merge(g3) - local g=Group.CreateGroup() - local tc=nil - for i=1,3 do - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - if ft<=0 then - tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() - else - tc=g1:Select(tp,1,1,nil):GetFirst() - end - g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 - end - local cg=g:Filter(Card.IsFacedown,nil) - if cg:GetCount()>0 then - Duel.ConfirmCards(1-tp,cg) - end - Duel.SendtoDeck(g,nil,1,REASON_COST) -end -function c511000111.damcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and c:IsFaceup() and bc:IsLocation(LOCATION_GRAVE) - and bc:IsReason(REASON_BATTLE) and bc:IsType(TYPE_MONSTER) -end -function c511000111.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) -end -function c511000111.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000112.lua b/script/c511000112.lua deleted file mode 100644 index c456b1e3..00000000 --- a/script/c511000112.lua +++ /dev/null @@ -1,63 +0,0 @@ ---拘束解除 -function c511000112.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c511000112.cost) - e1:SetTarget(c511000112.target) - e1:SetOperation(c511000112.activate) - c:RegisterEffect(e1) - --Activate2 - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_ACTIVATE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetCost(c511000112.cost2) - e2:SetTarget(c511000112.target2) - e2:SetOperation(c511000112.activate2) - c:RegisterEffect(e2) -end -function c511000112.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,511000110) end - local g=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,511000110) - Duel.Release(g,REASON_COST) -end -function c511000112.filter(c,e,tp) - return c:IsCode(511000111) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c511000112.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c511000112.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c511000112.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000112.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP)>0 then - g:GetFirst():CompleteProcedure() - end -end -function c511000112.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,511000111) end - local g=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,511000111) - Duel.Release(g,REASON_COST) -end -function c511000112.filter2(c,e,tp) - return c:IsCode(511000110) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c511000112.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c511000112.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c511000112.activate2(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000112.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP)>0 then - g:GetFirst():CompleteProcedure() - end -end diff --git a/script/c511000113.lua b/script/c511000113.lua deleted file mode 100644 index f5ce5242..00000000 --- a/script/c511000113.lua +++ /dev/null @@ -1,94 +0,0 @@ ---Assault Cannon Beetle -function c511000113.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode3(c,511000107,511000108,false,false) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c511000113.splimit) - c:RegisterEffect(e1) - --special summon rule - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_EXTRA) - e2:SetCondition(c511000113.spcon) - e2:SetOperation(c511000113.spop) - c:RegisterEffect(e2) - --damage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000113,0)) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c511000113.cost) - e3:SetTarget(c511000113.target) - e3:SetOperation(c511000113.operation) - c:RegisterEffect(e3) -end -function c511000113.splimit(e,se,sp,st) - return not e:GetHandler():IsLocation(LOCATION_EXTRA) -end -function c511000113.spfilter(c,code) - if c:GetCode()~=code then return false end - if c:IsType(TYPE_FUSION) then return c:IsAbleToExtraAsCost() - else return c:IsAbleToDeckAsCost() end -end -function c511000113.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<-2 then return false end - local g1=Duel.GetMatchingGroup(c511000113.spfilter,tp,LOCATION_ONFIELD,0,nil,511000107) - local g2=Duel.GetMatchingGroup(c511000113.spfilter,tp,LOCATION_ONFIELD,0,nil,511000108) - if g1:GetCount()==0 or g2:GetCount()==0 then return false end - if ft>0 then return true end - local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - if ft==-1 then return f1>0 and f2>0 - else return f1>0 or f2>0 end -end -function c511000113.spop(e,tp,eg,ep,ev,re,r,rp,c) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local g1=Duel.GetMatchingGroup(c511000113.spfilter,tp,LOCATION_ONFIELD,0,nil,511000107) - local g2=Duel.GetMatchingGroup(c511000113.spfilter,tp,LOCATION_ONFIELD,0,nil,511000108) - g1:Merge(g2) - local g=Group.CreateGroup() - local tc=nil - for i=1,2 do - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - if ft<=0 then - tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() - else - tc=g1:Select(tp,1,1,nil):GetFirst() - end - g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 - end - local cg=g:Filter(Card.IsFacedown,nil) - if cg:GetCount()>0 then - Duel.ConfirmCards(1-tp,cg) - end - Duel.SendtoDeck(g,nil,1,REASON_COST) -end -function c511000113.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,nil,1,nil) end - local sg=Duel.SelectReleaseGroup(tp,nil,1,1,nil) - Duel.Release(sg,REASON_COST) -end -function c511000113.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(500) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) -end -function c511000113.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c511000114.lua b/script/c511000114.lua deleted file mode 100644 index 6aefefcc..00000000 --- a/script/c511000114.lua +++ /dev/null @@ -1,94 +0,0 @@ ---Assault Cannon Beetle -function c511000114.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode3(c,511000107,511000108,false,false) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c511000114.splimit) - c:RegisterEffect(e1) - --special summon rule - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_EXTRA) - e2:SetCondition(c511000114.spcon) - e2:SetOperation(c511000114.spop) - c:RegisterEffect(e2) - --damage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000114,0)) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c511000114.cost) - e3:SetTarget(c511000114.target) - e3:SetOperation(c511000114.operation) - c:RegisterEffect(e3) -end -function c511000114.splimit(e,se,sp,st) - return not e:GetHandler():IsLocation(LOCATION_EXTRA) -end -function c511000114.spfilter(c,code) - if c:GetCode()~=code then return false end - if c:IsType(TYPE_FUSION) then return c:IsAbleToExtraAsCost() - else return c:IsAbleToDeckAsCost() end -end -function c511000114.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<-2 then return false end - local g1=Duel.GetMatchingGroup(c511000114.spfilter,tp,LOCATION_ONFIELD,0,nil,511000107) - local g2=Duel.GetMatchingGroup(c511000114.spfilter,tp,LOCATION_ONFIELD,0,nil,511000109) - if g1:GetCount()==0 or g2:GetCount()==0 then return false end - if ft>0 then return true end - local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - if ft==-1 then return f1>0 and f2>0 - else return f1>0 or f2>0 end -end -function c511000114.spop(e,tp,eg,ep,ev,re,r,rp,c) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local g1=Duel.GetMatchingGroup(c511000114.spfilter,tp,LOCATION_ONFIELD,0,nil,511000107) - local g2=Duel.GetMatchingGroup(c511000114.spfilter,tp,LOCATION_ONFIELD,0,nil,511000109) - g1:Merge(g2) - local g=Group.CreateGroup() - local tc=nil - for i=1,2 do - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - if ft<=0 then - tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() - else - tc=g1:Select(tp,1,1,nil):GetFirst() - end - g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 - end - local cg=g:Filter(Card.IsFacedown,nil) - if cg:GetCount()>0 then - Duel.ConfirmCards(1-tp,cg) - end - Duel.SendtoDeck(g,nil,1,REASON_COST) -end -function c511000114.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,nil,1,nil) end - local sg=Duel.SelectReleaseGroup(tp,nil,1,1,nil) - Duel.Release(sg,REASON_COST) -end -function c511000114.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(500) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) -end -function c511000114.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c511000115.lua b/script/c511000115.lua deleted file mode 100644 index c5198210..00000000 --- a/script/c511000115.lua +++ /dev/null @@ -1,40 +0,0 @@ ---リバイバルスライム -function c511000115.initial_effect(c) - --reborn preparation - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000115,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c511000115.spcon) - e1:SetCost(c511000115.spcost) - e1:SetOperation(c511000115.spop) - c:RegisterEffect(e1) - --reborn - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetRange(LOCATION_GRAVE) - e2:SetCountLimit(1) - e2:SetCondition(c511000115.spcon2) - e2:SetOperation(c511000115.spop2) - c:RegisterEffect(e2) -end -function c511000115.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) -end -function c511000115.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,0) end - Duel.PayLPCost(tp,0) -end -function c511000115.spop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():RegisterFlagEffect(511000115,RESET_EVENT+0x1fe0000,0,0) -end -function c511000115.spcon2(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() and e:GetHandler():GetFlagEffect(12300)>0 -end -function c511000115.spop2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - c:ResetFlagEffect(511000115) - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENCE) -end diff --git a/script/c511000116.lua b/script/c511000116.lua deleted file mode 100644 index 21477db3..00000000 --- a/script/c511000116.lua +++ /dev/null @@ -1,50 +0,0 @@ ---Spirit Shield -function c511000116.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetRange(LOCATION_SZONE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c511000116.condition) - e1:SetOperation(c511000116.operation) - c:RegisterEffect(e1) - --negate - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetCondition(c511000116.condition) - e2:SetOperation(c511000116.operation) - c:RegisterEffect(e2) - --self destroy - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_SELF_DESTROY) - e3:SetCondition(c511000116.descon) - c:RegisterEffect(e3) -end -function c511000116.filter(c) - return c:IsFaceup() and c:IsRace(RACE_FIEND+RACE_ZOMBIE) -end -function c511000116.descon(e) - local c=e:GetHandler() - return not Duel.IsExistingMatchingCard(c511000116.filter,c:GetControler(),LOCATION_GRAVE,0,1,c) -end -function c511000116.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() - and not e:GetHandler():IsStatus(STATUS_CHAINING) -end -function c511000116.operation(e,tp,eg,ep,ev,re,r,rp) - if chk==0 then return Duel.IsExistingMatchingCard(c511000116.cfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c511000116.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_EFFECT) - if Duel.NegateAttack() then - Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) - end -end -function c511000116.cfilter(c) - return c:IsRace(RACE_FIEND+RACE_ZOMBIE) and c:IsAbleToRemoveAsCost() -end diff --git a/script/c511000117.lua b/script/c511000117.lua deleted file mode 100644 index 037a1841..00000000 --- a/script/c511000117.lua +++ /dev/null @@ -1,41 +0,0 @@ ---Duke of Demise -function c511000117.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode2(c,5434080,66989694,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c511000117.splimit) - c:RegisterEffect(e1) - --maintain - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCode(EVENT_PHASE+0x02) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetOperation(c511000117.mtop) - c:RegisterEffect(e2) - --Battle Indestructable - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetValue(1) - c:RegisterEffect(e3) -end -c511000117.material_count=2 -c511000117.material={5434080,66989694} -function c511000117.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c511000117.mtop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetTurnPlayer()~=tp then return end - if Duel.GetLP(tp)>500 and Duel.SelectYesNo(tp,aux.Stringid(511000117,0)) then - Duel.PayLPCost(tp,500) - else - Duel.Destroy(e:GetHandler(),REASON_RULE) - end -end \ No newline at end of file diff --git a/script/c511000118.lua b/script/c511000118.lua deleted file mode 100644 index de7fb579..00000000 --- a/script/c511000118.lua +++ /dev/null @@ -1,97 +0,0 @@ ---Diabound Kernel -function c511000118.initial_effect(c) - --equip - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c511000118.eqtg) - e1:SetOperation(c511000118.eqop) - c:RegisterEffect(e1) - --unequip - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c511000118.uncon) - e2:SetTarget(c511000118.sptg) - e2:SetOperation(c511000118.spop) - c:RegisterEffect(e2) - --eqlimit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EQUIP_LIMIT) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetValue(1) - c:RegisterEffect(e3) - --atk,def - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_UPDATE_ATTACK) - e4:SetCondition(c511000118.uncon) - e4:SetValue(-1800) - c:RegisterEffect(e4) - --spsummon - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(511000118,0)) - e5:SetCategory(CATEGORY_SPECIAL_SUMMON) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e5:SetCode(EVENT_TO_GRAVE) - e5:SetCondition(c511000118.spcon) - e5:SetTarget(c511000118.sptg2) - e5:SetOperation(c511000118.spop2) - c:RegisterEffect(e5) -end -function c511000118.uncon(e) - return e:GetHandler():IsStatus(STATUS_UNION) -end -function c511000118.filter(c) - return c:IsFaceup() -end -function c511000118.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c511000118.filter(chkc) end - if chk==0 then return e:GetHandler():GetFlagEffect(12309)==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c511000118.filter,tp,0,LOCATION_MZONE,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,c511000118.filter,tp,0,LOCATION_MZONE,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) - e:GetHandler():RegisterFlagEffect(511000118,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) -end -function c511000118.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc=g:GetFirst() - if not c:IsRelateToEffect(e) or c:IsFacedown() then return end - if not tc:IsRelateToEffect(e) or not c511000118.filter(tc) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - if not Duel.Equip(tp,c,tc,false) then return end - c:SetStatus(STATUS_UNION,true) -end -function c511000118.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(511000118)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) - e:GetHandler():RegisterFlagEffect(511000118,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) -end -function c511000118.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - end -end - -function c511000118.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_SZONE) and rp~=tp -end -function c511000118.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c511000118.spop2(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),1,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c511000119.lua b/script/c511000119.lua deleted file mode 100644 index 82d41a33..00000000 --- a/script/c511000119.lua +++ /dev/null @@ -1,88 +0,0 @@ -----Dark Sanctuary -function c511000119.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --atk change - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000119,0)) - e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_COIN) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c511000119.atkcon) - e2:SetTarget(c511000119.atktg2) - e2:SetOperation(c511000119.atkop) - c:RegisterEffect(e2) - --to hand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetDescription(aux.Stringid(511000119,0)) - e3:SetType(EFFECT_TYPE_QUICK_F) - e3:SetCode(EVENT_DESTROYED) - e3:SetRange(LOCATION_GRAVE+LOCATION_DECK) - e3:SetCondition(c511000119.cond) - e3:SetTarget(c511000119.thtg) - e3:SetOperation(c511000119.thop) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_TOHAND) - e4:SetDescription(aux.Stringid(511000119,0)) - e4:SetType(EFFECT_TYPE_QUICK_F) - e4:SetCode(EVENT_BATTLE_DESTROYED) - e4:SetRange(LOCATION_GRAVE+LOCATION_DECK) - e4:SetCondition(c511000119.cond) - e4:SetTarget(c511000119.thtg) - e4:SetOperation(c511000119.thop) - c:RegisterEffect(e4) -end - -function c511000119.cfilter(c,tp) - return c:IsCode(31829185) and c:GetPreviousControler()==tp -end -function c511000119.cond(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c511000119.cfilter,1,nil,tp) -end - -function c511000119.atkcon(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() - and Duel.IsExistingMatchingCard(c511000119.dfilter,tp,LOCATION_GRAVE,0,1,nil) -end - -function c511000119.dfilter(c) - return c:IsCode(31829185) -end - -function c511000119.atktg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - e:SetLabel(1) - Duel.SetTargetCard(Duel.GetAttacker()) - Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1) -end -function c511000119.atkop(e,tp,eg,ep,ev,re,r,rp) - if e:GetLabel()==0 or not e:GetHandler():IsRelateToEffect(e) then return end - local a=Duel.GetAttacker() - if not a:IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(21598948,4)) - local coin=Duel.SelectOption(tp,aux.Stringid(21598948,2),aux.Stringid(21598948,3)) - local res=Duel.TossCoin(tp,1) - if coin~=res then - local atk=a:IsFaceup() and a:GetAttack() or 0 - if Duel.Destroy(a,REASON_EFFECT)>0 and atk~=0 then - Duel.Recover(tp,atk,REASON_EFFECT) end - end -end - -function c511000119.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToHand() end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c511000119.thop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SendtoHand(c,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,c) - end -end \ No newline at end of file diff --git a/script/c511000120.lua b/script/c511000120.lua deleted file mode 100644 index f0343a48..00000000 --- a/script/c511000120.lua +++ /dev/null @@ -1,53 +0,0 @@ ---Cursed Twin Dolls -function c511000120.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Recover - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetRange(LOCATION_SZONE) - e2:SetOperation(c511000120.operation) - c:RegisterEffect(e2) - --discard deck - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000120,0)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCategory(CATEGORY_DECKDES) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c511000120.damcon) - e3:SetTarget(c511000120.damtg) - e3:SetOperation(c511000120.damop) - c:RegisterEffect(e3) -end -function c511000120.filter1(c,tp) - return c:GetOwner()==1-tp -end - -function c511000120.operation(e,tp,eg,ep,ev,re,r,rp) - local d1=eg:FilterCount(c511000120.filter1,nil,tp)*200 - Duel.Recover(1-tp,d1,REASON_EFFECT) -end - -function c511000120.cfilter(c,tp) - return c:IsPreviousLocation(LOCATION_DECK) and c:GetPreviousControler()==tp -end -function c511000120.damcon(e,tp,eg,ep,ev,re,r,rp) - return re and bit.band(r,REASON_EFFECT)~=0 and eg:IsExists(c511000120.cfilter,1,nil,1-tp) and re:GetHandler():GetCode()~=511000120 -end -function c511000120.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsType,tp,0,LOCATION_GRAVE,1,nil,TYPE_MONSTER) end - Duel.SetTargetPlayer(1-tp) - local dam=Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER)*1 - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,1-tp,dam) -end -function c511000120.damop(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local dam=Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_MONSTER)*1 - Duel.DiscardDeck(1-tp,dam,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000121.lua b/script/c511000121.lua deleted file mode 100644 index 45693027..00000000 --- a/script/c511000121.lua +++ /dev/null @@ -1,70 +0,0 @@ ---Counterbalance -function c511000121.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --discard opp deck - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCategory(CATEGORY_DECKDES) - e2:SetDescription(aux.Stringid(511000121,1)) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetRange(LOCATION_SZONE) - e2:SetProperty(EFFECT_FLAG_REPEAT) - e2:SetCountLimit(1) - e2:SetCondition(c511000121.discon) - e2:SetTarget(c511000121.target) - e2:SetOperation(c511000121.activate) - e2:SetLabelObject(e1) - c:RegisterEffect(e2) - --discard your deck - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCategory(CATEGORY_DECKDES) - e3:SetDescription(aux.Stringid(511000121,1)) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetRange(LOCATION_SZONE) - e3:SetProperty(EFFECT_FLAG_REPEAT) - e3:SetCountLimit(1) - e3:SetCondition(c511000121.discon2) - e3:SetTarget(c511000121.target2) - e3:SetOperation(c511000121.activate2) - e3:SetLabelObject(e1) - c:RegisterEffect(e3) -end - -function c511000121.discon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end - -function c511000121.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,TYPE_MONSTER) end - Duel.SetTargetPlayer(1-tp) - local dam=Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_MZONE,LOCATION_MZONE,nil,TYPE_MONSTER)*1 - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c511000121.activate(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local dam=Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_MZONE,LOCATION_MZONE,nil,TYPE_MONSTER)*1 - Duel.DiscardDeck(1-tp,dam,REASON_EFFECT) -end - -function c511000121.discon2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end - -function c511000121.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,TYPE_MONSTER) end - Duel.SetTargetPlayer(tp) - local dis=Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_MZONE,LOCATION_MZONE,nil,TYPE_MONSTER)*1 - Duel.SetTargetParam(dis) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,dis) -end -function c511000121.activate2(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local dis=Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_MZONE,LOCATION_MZONE,nil,TYPE_MONSTER)*1 - Duel.DiscardDeck(tp,dis,REASON_EFFECT) -end diff --git a/script/c511000122.lua b/script/c511000122.lua deleted file mode 100644 index ace20311..00000000 --- a/script/c511000122.lua +++ /dev/null @@ -1,8 +0,0 @@ ---Ancient Citty -function c511000122.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) -end \ No newline at end of file diff --git a/script/c511000123.lua b/script/c511000123.lua deleted file mode 100644 index 0aca9b00..00000000 --- a/script/c511000123.lua +++ /dev/null @@ -1,42 +0,0 @@ ---Ancient Tome -function c511000123.initial_effect(c) - --Activate - local e0=Effect.CreateEffect(c) - e0:SetType(EFFECT_TYPE_ACTIVATE) - e0:SetCondition(c511000123.condition) - e0:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e0) - --Swap Cards - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000123,0)) - e1:SetCategory(CATEGORY_DRAW+CATEGORY_TODECK) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_SZONE) - e1:SetCountLimit(1) - e1:SetTarget(c511000123.drtg) - e1:SetOperation(c511000123.drop) - c:RegisterEffect(e1) -end - -function c511000123.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c511000123.drop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - local ct=Duel.Draw(p,d,REASON_EFFECT) - if ct~=0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoDeck(g,nil,0,REASON_EFFECT) - end -end - -function c511000123.cfilter(c) - return c:IsFaceup() and c:IsCode(511000122) -end -function c511000123.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c511000123.cfilter,tp,LOCATION_ONFIELD,0,1,nil) -end \ No newline at end of file diff --git a/script/c511000124.lua b/script/c511000124.lua deleted file mode 100644 index bab8046d..00000000 --- a/script/c511000124.lua +++ /dev/null @@ -1,75 +0,0 @@ ---Ancient Key -function c511000124.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c511000124.condition) - e1:SetOperation(c511000124.operation) - c:RegisterEffect(e1) - --Add - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetDescription(aux.Stringid(511000124,1)) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c511000124.cost) - e2:SetTarget(c511000124.target) - e2:SetOperation(c511000124.operation2) - c:RegisterEffect(e2) -end - -function c511000124.costfilter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:IsCode(511000127) -end -function c511000124.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c511000124.costfilter,2,nil) end - local g=Duel.SelectReleaseGroup(tp,c511000124.costfilter,2,2,nil) - Duel.Release(g,REASON_COST) -end - -function c511000124.filter1(c) - return c:IsCode(511000125) and c:IsAbleToHand() -end -function c511000124.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000124.filter1,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c511000124.operation2(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c511000124.filter1,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end - -function c511000124.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler() - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c511000124.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) - and Duel.IsExistingMatchingCard(c511000124.zfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) - and Duel.IsExistingMatchingCard(c511000124.cfilter,tp,LOCATION_ONFIELD,0,1,nil) -end - -function c511000124.filter(c,e,tp) - return c:IsCode(511000127) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) -end -function c511000124.zfilter(c,e,tp) - return c:IsCode(511000127) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) -end -function c511000124.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g1=Duel.SelectMatchingCard(tp,c511000124.zfilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) - if g1:GetCount()>0 then Duel.SpecialSummonStep(g1:GetFirst(),0,tp,tp,true,true,POS_FACEUP_DEFENCE) end - local g2=Duel.SelectMatchingCard(tp,c511000124.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) - if g2:GetCount()>0 then Duel.SpecialSummonStep(g2:GetFirst(),0,tp,tp,true,true,POS_FACEUP_DEFENCE) end - Duel.SpecialSummonComplete() -end -function c511000124.cfilter(c) - return c:IsFaceup() and c:IsCode(511000122) -end \ No newline at end of file diff --git a/script/c511000125.lua b/script/c511000125.lua deleted file mode 100644 index 1279204d..00000000 --- a/script/c511000125.lua +++ /dev/null @@ -1,48 +0,0 @@ ---Ancient Gate -function c511000125.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c511000125.condition) - e1:SetTarget(c511000125.target) - e1:SetOperation(c511000125.activate) - c:RegisterEffect(e1) -end -function c511000125.cfilter(c) - return c:IsFaceup() and c:IsCode(511000122) -end -function c511000125.dfilter(c) - return c:IsFaceup() and c:IsCode(511000124) -end -function c511000125.efilter(c) - return c:IsFaceup() and c:IsCode(511000123) -end -function c511000125.ffilter(c) - return c:IsFaceup() and c:IsCode(511000126) -end -function c511000125.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c511000125.cfilter,tp,LOCATION_SZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c511000125.dfilter,tp,LOCATION_SZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c511000125.efilter,tp,LOCATION_SZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c511000125.ffilter,tp,LOCATION_MZONE,0,1,nil) -end -function c511000125.filter(c,e,tp) - return c:IsCode(511000128) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) -end -function c511000125.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c511000125.filter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE) -end -function c511000125.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000125.filter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP) - end -end - diff --git a/script/c511000126.lua b/script/c511000126.lua deleted file mode 100644 index c04df301..00000000 --- a/script/c511000126.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Ancient Giant -function c511000126.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c511000126.spcon) - c:RegisterEffect(e1) - --damage LP - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetOperation(c511000126.retop) - c:RegisterEffect(e2) -end - -function c511000126.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if Duel.GetTurnPlayer()==tp and c:GetAttackedCount()==0 then - Duel.Damage(tp,300,REASON_EFFECT) - end -end - -function c511000126.spfilter(c) - return c:IsFaceup() and c:IsCode(511000122) -end -function c511000126.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_SZONE)>0 and - Duel.IsExistingMatchingCard(c511000126.spfilter,c:GetControler(),LOCATION_SZONE,0,1,nil) -end \ No newline at end of file diff --git a/script/c511000127.lua b/script/c511000127.lua deleted file mode 100644 index 3c2e92dd..00000000 --- a/script/c511000127.lua +++ /dev/null @@ -1,18 +0,0 @@ ---Stone Giant -function c511000127.initial_effect(c) - --damage LP - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetOperation(c511000127.retop) - c:RegisterEffect(e2) -end - -function c511000127.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if Duel.GetTurnPlayer()==tp and c:GetAttackedCount()==0 then - Duel.Damage(tp,500,REASON_EFFECT) - end -end diff --git a/script/c511000128.lua b/script/c511000128.lua deleted file mode 100644 index c47030c1..00000000 --- a/script/c511000128.lua +++ /dev/null @@ -1,82 +0,0 @@ ---Ancient Dragon -function c511000128.initial_effect(c) - --cannot special summon - local e0=Effect.CreateEffect(c) - e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e0:SetType(EFFECT_TYPE_SINGLE) - e0:SetCode(EFFECT_SPSUMMON_CONDITION) - e0:SetValue(aux.FALSE) - c:RegisterEffect(e0) - --destroy1 - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000128,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_BATTLE_END) - e1:SetCondition(c511000128.condition1) - e1:SetTarget(c511000128.target1) - e1:SetOperation(c511000128.operation1) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetOperation(c511000128.spr) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000128,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetRange(LOCATION_GRAVE) - e3:SetCountLimit(1) - e3:SetProperty(EFFECT_FLAG_REPEAT) - e3:SetCode(EVENT_PHASE+PHASE_STANDBY) - e3:SetCondition(c511000128.spcon) - e3:SetTarget(c511000128.sptg) - e3:SetOperation(c511000128.spop) - c:RegisterEffect(e3) -end -function c511000128.condition1(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker()==e:GetHandler() and Duel.GetAttackTarget() -end -function c511000128.filter1(c) - return not c:IsAttackPos() and c:IsDestructable() -end -function c511000128.target1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(c511000128.filter1,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c511000128.operation1(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c511000128.filter1,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) -end - -function c511000128.spr(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local pos=c:GetPreviousPosition() - if Duel.GetCurrentPhase()==PHASE_DAMAGE then pos=c:GetBattlePosition() end - if c:IsReason(REASON_DESTROY) and c:IsPreviousLocation(LOCATION_ONFIELD) - and bit.band(pos,POS_FACEUP)~=0 then - c:RegisterFlagEffect(511000128,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY,0,1) - end -end -function c511000128.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetTurnID()~=Duel.GetTurnCount() and c:GetFlagEffect(511000128)>0 - and Duel.IsExistingMatchingCard(c511000128.cfilter,tp,LOCATION_SZONE,0,1,nil) -end -function c511000128.cfilter(c) - return c:IsFaceup() and c:IsCode(511000122) -end -function c511000128.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c511000128.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c511000129.lua b/script/c511000129.lua deleted file mode 100644 index 255b0c54..00000000 --- a/script/c511000129.lua +++ /dev/null @@ -1,73 +0,0 @@ ---Sacred Defence Barrier -function c511000129.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --remove - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_COUNTER) - e2:SetDescription(aux.Stringid(511000129,0)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c511000129.target) - e2:SetOperation(c511000129.activate) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_COUNTER) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - e3:SetTarget(c511000129.target) - e3:SetOperation(c511000129.activate) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_COUNTER) - e4:SetDescription(aux.Stringid(511000129,0)) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e4:SetRange(LOCATION_SZONE) - e4:SetCondition(c511000129.condition) - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - e4:SetTarget(c511000129.target) - e4:SetOperation(c511000129.activate) - c:RegisterEffect(e4) -end -function c511000129.condition(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(c511000129.filter,nil,tp) - if g:GetCount()~=1 then return end - local tc=g:GetFirst() - e:SetLabelObject(tc) - return tc:IsRace(RACE_ROCK) and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) -end -function c511000129.filter(c,tp,ep) - return c:IsFaceup() and c:IsRace(RACE_ROCK) -end -function c511000129.target(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=eg:GetFirst() - if chk==0 then return c511000129.filter(tc,tp,ep) end - Duel.SetTargetCard(eg) - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x96) -end -function c511000129.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=eg:GetFirst() - if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRace(RACE_ROCK) then - tc:AddCounter(0x96,1) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EFFECT_DESTROY_REPLACE) - e1:SetTarget(c511000129.reptg) - e1:SetOperation(c511000129.repop) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end -function c511000129.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetCounter(0x96)>0 end - return true -end -function c511000129.repop(e,tp,eg,ep,ev,re,r,rp,chk) - e:GetHandler():RemoveCounter(tp,0x96,1,REASON_EFFECT) -end diff --git a/script/c511000130.lua b/script/c511000130.lua deleted file mode 100644 index 3aac059b..00000000 --- a/script/c511000130.lua +++ /dev/null @@ -1,43 +0,0 @@ ---Volcanic Curse -function c511000130.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetCondition(c511000130.condition) - e1:SetTarget(c511000130.target) - e1:SetOperation(c511000130.activate) - c:RegisterEffect(e1) -end - -function c511000130.condition(e,tp,eg,ep,ev,re,r,rp) - local t=Duel.GetAttackTarget() - return t and t:IsControler(tp) and t:IsSetCard(0x32) -end -function c511000130.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttackTarget() - if chkc then return chkc==tg end - if chk==0 then return Duel.GetAttacker():IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) -end -function c511000130.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(c511000130.val) - tc:RegisterEffect(e1) - end -end - -function c511000130.atkfilter(c) - return c:IsRace(RACE_PYRO) -end -function c511000130.val(e,c) - return Duel.GetMatchingGroupCount(c511000130.atkfilter,c:GetControler(),LOCATION_GRAVE,LOCATION_GRAVE,nil)*500 -end diff --git a/script/c511000131.lua b/script/c511000131.lua deleted file mode 100644 index 8256c9d7..00000000 --- a/script/c511000131.lua +++ /dev/null @@ -1,25 +0,0 @@ ---Flame Wall -function c511000131.initial_effect(c) - --Activate - local e0=Effect.CreateEffect(c) - e0:SetType(EFFECT_TYPE_ACTIVATE) - e0:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e0) - --avoid effect damage - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_SZONE) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetCondition(c511000131.condition) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetValue(c511000131.damval) - c:RegisterEffect(e1) -end -function c511000131.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(Card.IsRace,tp,LOCATION_GRAVE,0,1,nil,RACE_PYRO) -end -function c511000131.damval(e,re,val,r,rp,rc) - if rp~=e:GetHandlerPlayer() and bit.band(r,REASON_EFFECT)~=0 then return 0 - else return val end -end \ No newline at end of file diff --git a/script/c511000132.lua b/script/c511000132.lua deleted file mode 100644 index 4388cfc4..00000000 --- a/script/c511000132.lua +++ /dev/null @@ -1,44 +0,0 @@ ---Prima Light -function c511000132.initial_effect(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000132,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c511000132.cost) - e1:SetTarget(c511000132.target) - e1:SetOperation(c511000132.activate) - c:RegisterEffect(e1) -end - -function c511000132.costfilter(c,e,tp) - return c:IsFaceup() and c:IsCode(49375719) and c:IsAbleToGraveAsCost() -end -function c511000132.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000132.costfilter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c511000132.costfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end - -function c511000132.filter(c,e,tp) - return c: IsCode(2158562) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c511000132.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_HAND+LOCATION_DECK and chkc:GetControler()==tp - and chkc:IsCanBeSpecialSummoned(e,0,tp,false,false) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c511000132.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c511000132.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c511000132.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)==0 then return end - c:SetCardTarget(tc) - end -end \ No newline at end of file diff --git a/script/c511000133.lua b/script/c511000133.lua deleted file mode 100644 index 58c026c4..00000000 --- a/script/c511000133.lua +++ /dev/null @@ -1,42 +0,0 @@ ---Ritual Sanctuary -function c511000133.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --search - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetDescription(aux.Stringid(511000133,1)) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c511000133.cost) - e2:SetTarget(c511000133.target) - e2:SetOperation(c511000133.operation) - c:RegisterEffect(e2) - -end -function c511000133.cfilter(c) - return c:IsType(TYPE_SPELL) and c:IsDiscardable() -end -function c511000133.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000133.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,c511000133.cfilter,1,1,REASON_COST+REASON_DISCARD) -end - -function c511000133.filter(c) - return c:GetType()==0x82 and c:IsAbleToHand() -end -function c511000133.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000133.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c511000133.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c511000133.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c511000134.lua b/script/c511000134.lua deleted file mode 100644 index 68356eef..00000000 --- a/script/c511000134.lua +++ /dev/null @@ -1,32 +0,0 @@ ---Allegro Toil -function c511000134.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCondition(c511000134.condition) - e1:SetTarget(c511000134.target) - e1:SetOperation(c511000134.activate) - c:RegisterEffect(e1) -end -function c511000134.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c511000134.filter(c) - return c:IsDestructable() -end -function c511000134.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and c511000134.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c511000134.filter,tp,0,LOCATION_SZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c511000134.filter,tp,0,LOCATION_SZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c511000134.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c511000135.lua b/script/c511000135.lua deleted file mode 100644 index 7d9e9bb2..00000000 --- a/script/c511000135.lua +++ /dev/null @@ -1,90 +0,0 @@ ---Angel Wing -function c511000135.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c511000135.target) - e1:SetOperation(c511000135.operation) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(c511000135.eqlimit) - c:RegisterEffect(e2) - --damage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000135,0)) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_BATTLE_DAMAGE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c511000135.damcon) - e3:SetTarget(c511000135.damtg) - e3:SetOperation(c511000135.damop) - c:RegisterEffect(e3) - --draw - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(511000135,0)) - e4:SetCategory(CATEGORY_DRAW) - e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetCondition(c511000135.drcon) - e4:SetTarget(c511000135.drtg) - e4:SetOperation(c511000135.drop) - c:RegisterEffect(e4) -end -function c511000135.eqlimit(e,c) - return c:IsFaceup() -end -function c511000135.filter(c) - return c:IsFaceup() -end -function c511000135.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c511000135.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c511000135.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c511000135.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c511000135.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end - -function c511000135.damcon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c511000135.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(300) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,300) -end -function c511000135.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end - -function c511000135.drcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) -end -function c511000135.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c511000135.drop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000136.lua b/script/c511000136.lua deleted file mode 100644 index 2f36f6ee..00000000 --- a/script/c511000136.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Angel Blast -function c511000136.initial_effect(c) - --Negate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c511000136.condition) - e1:SetTarget(c511000136.target) - e1:SetOperation(c511000136.operation) - c:RegisterEffect(e1) -end -function c511000136.cfilter(c) - return c:IsOnField() and c:IsType(TYPE_MONSTER) -end -function c511000136.condition(e,tp,eg,ep,ev,re,r,rp) - if tp==ep or not Duel.IsChainNegatable(ev) then return false end - if not re:IsActiveType(TYPE_MONSTER) and not re:IsHasType(EFFECT_TYPE_ACTIVATE) then return false end - local ex,tg,tc=Duel.GetOperationInfo(ev,CATEGORY_DESTROY) - return ex and tg~=nil and tc+tg:FilterCount(c511000136.cfilter,nil)-tg:GetCount()>0 -end - -function c511000136.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c511000136.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end diff --git a/script/c511000137.lua b/script/c511000137.lua deleted file mode 100644 index f06d4908..00000000 --- a/script/c511000137.lua +++ /dev/null @@ -1,16 +0,0 @@ ---Dark Guardian -function c511000137.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --battle indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(1) - c:RegisterEffect(e2) -end \ No newline at end of file diff --git a/script/c511000138.lua b/script/c511000138.lua deleted file mode 100644 index b77f021c..00000000 --- a/script/c511000138.lua +++ /dev/null @@ -1,54 +0,0 @@ ---Dark Element -function c511000138.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c511000138.cost) - e1:SetCondition(c511000138.condition) - e1:SetTarget(c511000138.target) - e1:SetOperation(c511000138.activate) - c:RegisterEffect(e1) -end -function c511000138.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not Duel.CheckNormalSummonActivity(tp) end - local lp=Duel.GetLP(tp) - local costlp=math.floor((lp+1)/2) - Duel.PayLPCost(tp,costlp) - --oath effects - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - Duel.RegisterEffect(e1,tp) - local e2=e1:Clone(e1) - e2:SetCode(EFFECT_CANNOT_MSET) - Duel.RegisterEffect(e2,tp) -end -function c511000138.cfilter(c) - return c:IsCode(25833572) -end -function c12374.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c511000138.cfilter,tp,LOCATION_GRAVE,0,1,nil) -end -function c511000138.filter(c,e,tp) - return c:IsCode(511000137) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c511000138.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c511000138.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c511000138.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000138.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - g:GetFirst():CompleteProcedure() - end -end diff --git a/script/c511000139.lua b/script/c511000139.lua deleted file mode 100644 index 1e069b3d..00000000 --- a/script/c511000139.lua +++ /dev/null @@ -1,43 +0,0 @@ ---Zombie Werewolf -function c511000139.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000139,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c511000139.condition) - e1:SetTarget(c511000139.target) - e1:SetOperation(c511000139.operation) - c:RegisterEffect(e1) - --Atk up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(c511000139.atkval) - c:RegisterEffect(e2) -end -function c511000139.atkval(e,c) - return Duel.GetMatchingGroupCount(Card.IsCode,c:GetControler(),LOCATION_GRAVE,0,nil,511000139)*500 -end -function c511000139.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) -end -function c511000139.filter(c,e,tp) - return c:IsCode(511000139) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c511000139.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c511000139.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c511000139.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000139.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c511000140.lua b/script/c511000140.lua deleted file mode 100644 index 765f90fc..00000000 --- a/script/c511000140.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Vampire Bat -function c511000140.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetTarget(c511000140.tg1) - e1:SetValue(200) - c:RegisterEffect(e1) - --Destroy replace - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_DESTROY_REPLACE) - e2:SetTarget(c511000140.desreptg) - c:RegisterEffect(e2) -end -function c511000140.tg1(e,c) - return c:IsRace(RACE_ZOMBIE) -end - -function c511000140.repfilter(c) - return c:IsCode(511000140) and c:IsAbleToGrave() -end -function c511000140.desreptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return not c:IsReason(REASON_REPLACE) - and Duel.IsExistingMatchingCard(c511000140.repfilter,tp,LOCATION_DECK,0,1,nil) end - if Duel.SelectYesNo(tp,aux.Stringid(511000140,0)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c511000140.repfilter,tp,LOCATION_DECK,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) - return true - else return false end -end \ No newline at end of file diff --git a/script/c511000141.lua b/script/c511000141.lua deleted file mode 100644 index d9d4ef07..00000000 --- a/script/c511000141.lua +++ /dev/null @@ -1,54 +0,0 @@ ---Infernalvania -function c511000141.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(511000141,0)) - e2:SetProperty(EFFECT_FLAG_BOTH_SIDE) - e2:SetCategory(CATEGORY_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c511000141.cost) - e2:SetTarget(c511000141.target) - e2:SetOperation(c511000141.operation) - e2:SetLabelObject(e1) - c:RegisterEffect(e2) -end -function c511000141.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not Duel.CheckNormalSummonActivity(tp) and not Duel.CheckSpecialSummonActivity(tp) end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetLabelObject(e) - e1:SetTarget(c511000141.sumlimit) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e2:SetCode(EFFECT_CANNOT_SUMMON) - e2:SetReset(RESET_PHASE+PHASE_END) - e2:SetTargetRange(1,0) - Duel.RegisterEffect(e2,tp) - local e3=e2:Clone(e1) - e3:SetCode(EFFECT_CANNOT_MSET) - Duel.RegisterEffect(e3,tp) -end -function c511000141.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) - return e:GetLabelObject()~=se -end -function c511000141.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c511000141.operation(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c511000142.lua b/script/c511000142.lua deleted file mode 100644 index 0270485c..00000000 --- a/script/c511000142.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Zombie Bed -function c511000142.initial_effect(c) - --Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000142,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c511000142.spcon) - e1:SetTarget(c511000142.target) - e1:SetOperation(c511000142.operation) - c:RegisterEffect(e1) -end -function c511000142.spcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(r,REASON_DESTROY)~=0 - and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) - and e:GetHandler():IsPreviousPosition(POS_FACEDOWN) -end -function c511000142.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp - and chkc:IsCanBeSpecialSummoned(e,0,tp,false,false) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c511000142.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c511000142.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c511000142.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)==0 then return end - c:SetCardTarget(tc) - end -end -function c511000142.filter(c,e,tp) - return c:IsRace(RACE_ZOMBIE) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end \ No newline at end of file diff --git a/script/c511000143.lua b/script/c511000143.lua deleted file mode 100644 index 56932101..00000000 --- a/script/c511000143.lua +++ /dev/null @@ -1,41 +0,0 @@ ---Red Ghost Moon -function c511000143.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION+CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_BATTLE_START+TIMING_BATTLE_END) - e1:SetCondition(c511000143.condition) - e1:SetCost(c511000143.cost) - e1:SetTarget(c511000143.target) - e1:SetOperation(c511000143.activate) - c:RegisterEffect(e1) -end -function c511000143.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_BATTLE -end - -function c511000143.cfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_ZOMBIE) and c:IsDiscardable() -end -function c511000143.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000143.cfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.DiscardHand(tp,c511000143.cfilter,1,1,REASON_COST+REASON_DISCARD) -end -function c511000143.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c511000143.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c511000143.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPPO) - local g=Duel.SelectTarget(tp,c511000143.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,0) -end -function c511000143.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Recover(tp,tc:GetAttack(),REASON_EFFECT) - Duel.BreakEffect() - Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) - end -end diff --git a/script/c511000145.lua b/script/c511000145.lua deleted file mode 100644 index c88be2a1..00000000 --- a/script/c511000145.lua +++ /dev/null @@ -1,176 +0,0 @@ ---Infernity Zero -function c511000145.initial_effect(c) - c:EnableReviveLimit() - c:SetCounterLimit(0x97,3) - --Survival - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_CHAINING) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c511000145.condition) - e1:SetTarget(c511000145.target) - e1:SetOperation(c511000145.operation) - c:RegisterEffect(e1) - --No Losing by battle LP - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c511000145.nlcon) - e2:SetOperation(c511000145.nlop) - c:RegisterEffect(e2) - --damage reduce - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CHANGE_DAMAGE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(1,0) - e3:SetValue(c511000145.dlval) - c:RegisterEffect(e3) - --cannot destroy - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e4:SetRange(LOCATION_MZONE) - e4:SetCondition(c511000145.ncon) - e4:SetValue(1) - c:RegisterEffect(e4) - --place counter - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e5:SetRange(LOCATION_MZONE) - e5:SetCode(EVENT_DAMAGE) - e5:SetCondition(c511000145.bcon) - e5:SetOperation(c511000145.bop) - c:RegisterEffect(e5) - --self destroy - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e6:SetRange(LOCATION_MZONE) - e6:SetCode(EFFECT_SELF_DESTROY) - e6:SetCondition(c511000145.sdcon) - c:RegisterEffect(e6) - --lose - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e7:SetCode(EVENT_LEAVE_FIELD) - e7:SetCondition(c511000145.losecon) - e7:SetOperation(c511000145.lose) - c:RegisterEffect(e7) - --Cant deck out - local e8=Effect.CreateEffect(c) - e8:SetType(EFFECT_TYPE_FIELD) - e8:SetCode(EFFECT_DRAW_COUNT) - e8:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e8:SetRange(LOCATION_MZONE) - e8:SetTargetRange(1,0) - e8:SetValue(c511000145.dc) - c:RegisterEffect(e8) - --damage reduce - local e9=Effect.CreateEffect(c) - e9:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_F) - e9:SetCode(EVENT_CHAINING) - e9:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DELAY) - e9:SetRange(LOCATION_MZONE) - e9:SetTargetRange(1,0) - e9:SetCondition(c511000145.damcon) - e9:SetOperation(c511000145.damval) - c:RegisterEffect(e9) -end -function c511000145.damcon(e,tp,eg,ep,ev,re,dam,r,rp) - local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_DAMAGE) - if ex and cp==tp then return true end - ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_RECOVER) - local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID) - return ex and cp==tp and Duel.IsPlayerAffectedByEffect(tp,EFFECT_REVERSE_RECOVER) and Duel.GetLP(tp)<=dam - end -function c511000145.damval(e,tp,eg,ep,ev,re,r,rp) - local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetLabel(cid) - e1:SetValue(c511000145.damcon2) - e1:SetReset(RESET_PHASE+PHASE_END,1) - Duel.RegisterEffect(e1,tp) - Duel.RegisterFlagEffect(tp,511000145,0,0,0) -end -function c511000145.damcon2(e,re,dam,r,rp,rc) - local cc=Duel.GetCurrentChain() - if cc==0 or bit.band(r,REASON_EFFECT)==0 then return dam end - local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID) - if cid==e:GetLabel() and Duel.GetLP(tp)<=dam then return Duel.SetLP(tp,1) - else return dam end -end -function c511000145.condition(e,tp,eg,ep,ev,re,r,rp) - local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_DAMAGE) - if ex and cp==tp then return true end - ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_RECOVER) - return ex and cp==tp and Duel.IsPlayerAffectedByEffect(tp,EFFECT_REVERSE_RECOVER) and Duel.GetLP(tp)<=2000 -end -function c511000145.target(e,tp,eg,ep,ev,re,r,rp,chk) -local c=e:GetHandler() - if chk==0 then return Duel.GetLP(tp)<=2000 - end -end -function c511000145.operation(e,tp,eg,ep,ev,re,r,rp) - local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID) - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,true,true,POS_FACEUP) - local sg=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD,e:GetHandler()) -end -function c511000145.nlcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetBattleDamage(tp)>=Duel.GetLP(tp) -end -function c511000145.nlop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x97,1) - Duel.ChangeBattleDamage(ep,0) - local lp=Duel.GetLP(tp) - e:SetLabel(lp-1) - Duel.PayLPCost(tp,lp-1) - Duel.RegisterFlagEffect(tp,511000145,0,0,0) -end -function c511000145.dlval(e,re,val,r,rp,rc) - if bit.band(r,REASON_EFFECT)~=0 then - e:GetHandler():AddCounter(0x97,1) - end - if Duel.GetLP(e:GetHandler():GetControler())<=val then - Duel.SetLP(e:GetHandler():GetControler(),1) - return 0 - else - return val end -end -function c511000145.ncon(e) - return Duel.GetFieldGroupCount(e:GetHandler():GetControler(),LOCATION_HAND,0)==0 -end -function c511000145.bcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(r,REASON_BATTLE)>0 and ep==tp -end -function c511000145.bop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x97,1) -end -function c511000145.sdcon(e) - return e:GetHandler():GetCounter(0x97)==3 -end -function c511000145.losecon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetLP(tp)<=1 and Duel.GetFlagEffect(tp,511000145)~=0 -end -function c511000145.lose(e,tp,eg,ep,ev,re,r,rp) - Duel.SetLP(tp,0) -end -function c511000145.dc(e) - local tp=e:GetHandler():GetControler() - if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 then - return 1 - else - return 0 - end -end diff --git a/script/c511000146.lua b/script/c511000146.lua deleted file mode 100644 index 525d103a..00000000 --- a/script/c511000146.lua +++ /dev/null @@ -1,40 +0,0 @@ ---Aria from Beyond -function c511000146.initial_effect(c) - --copy spell - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0x1e1,0x1e1) - e1:SetTarget(c511000146.target) - e1:SetOperation(c511000146.operation) - c:RegisterEffect(e1) -end -function c511000146.filter(c,e,tp,eg,ep,ev,re,r,rp) - return c:GetType()==0x2 and not c:IsCode(511000146) and c:CheckActivateEffect(false,true,false)~=nil -end -function c511000146.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then - local te=e:GetLabelObject() - local tg=te:GetTarget() - return tg and tg(e,tp,eg,ep,ev,re,r,rp,1,true) - end - if chk==0 then return Duel.IsExistingTarget(c511000146.filter,tp,LOCATION_REMOVED,0,1,nil) end - e:SetProperty(EFFECT_FLAG_CARD_TARGET) - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(511000146,0)) - local g=Duel.SelectTarget(tp,c511000146.filter,tp,LOCATION_REMOVED,0,1,1,nil) - local te,eg,ep,ev,re,r,rp=g:GetFirst():CheckActivateEffect(false,true,true) - e:SetLabelObject(te) - Duel.ClearTargetCard() - g:GetFirst():CreateEffectRelation(e) - local tg=te:GetTarget() - e:SetCategory(te:GetCategory()) - e:SetProperty(te:GetProperty()) - if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end -end -function c511000146.operation(e,tp,eg,ep,ev,re,r,rp) - local te=e:GetLabelObject() - if not te:GetHandler():IsRelateToEffect(e) then return end - if not te then return end - local op=te:GetOperation() - if op then op(e,tp,eg,ep,ev,re,r,rp) end -end \ No newline at end of file diff --git a/script/c511000147.lua b/script/c511000147.lua deleted file mode 100644 index b2e9ba44..00000000 --- a/script/c511000147.lua +++ /dev/null @@ -1,66 +0,0 @@ ---Glory Shield -function c511000147.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c511000147.target) - e1:SetOperation(c511000147.operation) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c511000147.descon) - e2:SetTarget(c511000147.destar) - e2:SetOperation(c511000147.desact) - c:RegisterEffect(e2) - --Equip limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EQUIP_LIMIT) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetValue(c511000147.eqlimit) - c:RegisterEffect(e3) -end -function c511000147.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_MZONE and c511000147.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c511000147.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c511000147.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c511000147.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,c,tc) - end -end -function c511000147.eqlimit(e,c) - return c:IsFaceup() -end -function c511000147.descon(e,tp,eg,ep,ev,re,r,rp) - return eg:GetFirst()==e:GetHandler():GetEquipTarget() -end -function c511000147.dfilter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) -end -function c511000147.destar(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c511000147.dfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c511000147.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c511000147.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c511000147.desact(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c511000148.lua b/script/c511000148.lua deleted file mode 100644 index d66469ee..00000000 --- a/script/c511000148.lua +++ /dev/null @@ -1,161 +0,0 @@ ---Five Star Twilight -function c511000148.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(511000148,1)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCondition(c511000148.condition) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c511000148.cost) - e1:SetTarget(c511000148.sptg) - e1:SetOperation(c511000148.spop) - c:RegisterEffect(e1) -end - -function c511000148.confilter(c) - return c:IsCode(40640057) -end -function c511000148.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_MZONE,0)==1 - and Duel.IsExistingMatchingCard(c511000148.confilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,nil) -end - -function c511000148.cfilter(c) - return c:GetLevel()==5 -end -function c511000148.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(1) - if chk==0 then return Duel.CheckReleaseGroup(tp,c511000148.cfilter,1,nil) end - local rg=Duel.SelectReleaseGroup(tp,c511000148.cfilter,1,1,nil) - Duel.Release(rg,REASON_COST) -end - -function c511000148.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,4,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,4,0,0) -end -function c511000148.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then return end - if Duel.IsPlayerCanSpecialSummonMonster(tp,511000151,0,0x4011,300,200,1,RACE_FIEND,ATTRIBUTE_DARK) then - local token=Duel.CreateToken(tp,511000151) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetDescription(aux.Stringid(511000148,0)) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_BE_BATTLE_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c511000148.ncondition) - e1:SetOperation(c511000148.noperation) - e1:SetCountLimit(1) - token:RegisterEffect(e1) - local e01=Effect.CreateEffect(e:GetHandler()) - e01:SetType(EFFECT_TYPE_SINGLE) - e01:SetCode(EFFECT_UNRELEASEABLE_SUM) - e01:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e01:SetValue(1) - token:RegisterEffect(e01,true) - end - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,511000152,0,0x4011,300,200,1,RACE_FIEND,ATTRIBUTE_DARK) then - local token=Duel.CreateToken(tp,511000152) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_UNRELEASEABLE_SUM) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(1) - token:RegisterEffect(e2,true) - end - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,511000154,0,0x4011,300,200,1,RACE_FIEND,ATTRIBUTE_DARK) then - local token=Duel.CreateToken(tp,511000154) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - local e4=Effect.CreateEffect(e:GetHandler()) - e4:SetDescription(aux.Stringid(511000148,0)) - e4:SetCategory(CATEGORY_ATKCHANGE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_MZONE) - e4:SetCountLimit(1) - e4:SetTarget(c511000148.target) - e4:SetOperation(c511000148.operation) - token:RegisterEffect(e4) - local e04=Effect.CreateEffect(e:GetHandler()) - e04:SetType(EFFECT_TYPE_SINGLE) - e04:SetCode(EFFECT_UNRELEASEABLE_SUM) - e04:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e04:SetValue(1) - token:RegisterEffect(e04,true) - end - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,511000153,0,0x4011,300,200,1,RACE_FIEND,ATTRIBUTE_DARK) then - local token=Duel.CreateToken(tp,511000153) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetDescription(aux.Stringid(511000148,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetTarget(c511000148.sptg2) - e3:SetOperation(c511000148.spop2) - token:RegisterEffect(e3) - local e03=Effect.CreateEffect(e:GetHandler()) - e03:SetType(EFFECT_TYPE_SINGLE) - e03:SetCode(EFFECT_UNRELEASEABLE_SUM) - e03:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e03:SetValue(1) - token:RegisterEffect(e03,true) - end - - Duel.SpecialSummonComplete() -end - -function c511000148.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsFaceup() and chkc:IsLocation(LOCATION_MZONE) end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) -end - -function c511000148.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(tc:GetAttack()/2) - tc:RegisterEffect(e1) - end -end - -function c511000148.ncondition(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_BATTLE then return end - local ec=eg:GetFirst() - return ec:IsFaceup() and ec:IsCode(511000151) or ec:IsCode(511000152) or ec:IsCode(511000153) or ec:IsCode(511000154) or ec:IsCode(40640057) -end - -function c511000148.noperation(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateAttack() -end - -function c511000148.spfilter(c,e,tp) - return c:IsCode(40640057) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end - -function c511000148.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000148.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) -end -function c511000148.spop2(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000148.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP) - tc:CompleteProcedure() - end -end \ No newline at end of file diff --git a/script/c511000149.lua b/script/c511000149.lua deleted file mode 100644 index 3f000246..00000000 --- a/script/c511000149.lua +++ /dev/null @@ -1,89 +0,0 @@ ---Kuribandit -function c511000149.initial_effect(c) -c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c511000149.splimit) - c:RegisterEffect(e1) - --special summon rule - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_EXTRA) - e2:SetCondition(c511000149.sprcon) - e2:SetOperation(c511000149.sprop) - c:RegisterEffect(e2) - --effect - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000149,0)) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetHintTiming(0,TIMING_STANDBY_PHASE+0x1c0) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c511000149.cost) - e3:SetOperation(c511000149.operation) - c:RegisterEffect(e3) -end -c511000149.material_count=5 -c511000149.material={511000151,511000152,511000153,511000154,40640057} -function c511000149.splimit(e,se,sp,st) - return e:GetHandler():GetLocation()~=LOCATION_EXTRA -end -function c511000149.sprfilter(c,code) - return c:IsCode(code) -end -function c511000149.sprcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.IsExistingMatchingCard(c511000149.sprfilter,tp,LOCATION_ONFIELD,0,1,nil,511000151) - and Duel.IsExistingMatchingCard(c511000149.sprfilter,tp,LOCATION_ONFIELD,0,1,nil,511000152) - and Duel.IsExistingMatchingCard(c511000149.sprfilter,tp,LOCATION_ONFIELD,0,1,nil,511000153) - and Duel.IsExistingMatchingCard(c511000149.sprfilter,tp,LOCATION_ONFIELD,0,1,nil,511000154) - and Duel.IsExistingMatchingCard(c511000149.sprfilter,tp,LOCATION_ONFIELD,0,1,nil,40640057) -end -function c511000149.sprop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local g1=Duel.SelectMatchingCard(tp,c511000149.sprfilter,tp,LOCATION_ONFIELD,0,1,1,nil,511000151) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local g2=Duel.SelectMatchingCard(tp,c511000149.sprfilter,tp,LOCATION_ONFIELD,0,1,1,nil,511000152) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local g3=Duel.SelectMatchingCard(tp,c511000149.sprfilter,tp,LOCATION_ONFIELD,0,1,1,nil,511000153) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local g4=Duel.SelectMatchingCard(tp,c511000149.sprfilter,tp,LOCATION_ONFIELD,0,1,1,nil,511000154) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local g5=Duel.SelectMatchingCard(tp,c511000149.sprfilter,tp,LOCATION_ONFIELD,0,1,1,nil,40640057) - g1:Merge(g2) - g1:Merge(g3) - g1:Merge(g4) - g1:Merge(g5) - local tc=g1:GetFirst() - while tc do - if not tc:IsFaceup() then Duel.ConfirmCards(1-tp,tc) end - tc=g1:GetNext() - end - Duel.Release(g1,nil,5,REASON_COST) -end - -function c511000149.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c511000149.filter(c) - return c:IsType(TYPE_TRAP+TYPE_SPELL) and c:IsAbleToHand() -end -function c511000149.operation(e,tp,eg,ep,ev,re,r,rp,chk) - if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)<5 then return end - local g=Duel.GetDecktopGroup(tp,5) - Duel.ConfirmDecktop(tp,5) - if g:IsExists(c511000149.filter,1,nil) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local sg=g:Filter(c511000149.filter,nil) - Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sg) - Duel.ShuffleHand(tp) - end -end \ No newline at end of file diff --git a/script/c511000150.lua b/script/c511000150.lua deleted file mode 100644 index f4ff42dc..00000000 --- a/script/c511000150.lua +++ /dev/null @@ -1,208 +0,0 @@ ---Kuribabylon -function c511000150.initial_effect(c) -c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c511000150.splimit) - c:RegisterEffect(e1) - --special summon rule - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_EXTRA) - e2:SetCondition(c511000150.sprcon) - e2:SetOperation(c511000150.sprop) - c:RegisterEffect(e2) - --effect - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(511000150,0)) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c511000150.condition) - e3:SetCost(c511000150.spcost) - e3:SetTarget(c511000150.sptg) - e3:SetOperation(c511000150.spop) - c:RegisterEffect(e3) -end -c511000150.material_count=5 -c511000150.material={511000151,511000152,511000153,511000154,40640057} -function c511000150.splimit(e,se,sp,st) - return e:GetHandler():GetLocation()~=LOCATION_EXTRA -end -function c511000150.sprfilter(c,code) - return c:IsCode(code) -end -function c511000150.sprcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.IsExistingMatchingCard(c511000150.sprfilter,tp,LOCATION_ONFIELD,0,1,nil,511000151) - and Duel.IsExistingMatchingCard(c511000150.sprfilter,tp,LOCATION_ONFIELD,0,1,nil,511000152) - and Duel.IsExistingMatchingCard(c511000150.sprfilter,tp,LOCATION_ONFIELD,0,1,nil,511000153) - and Duel.IsExistingMatchingCard(c511000150.sprfilter,tp,LOCATION_ONFIELD,0,1,nil,511000154) - and Duel.IsExistingMatchingCard(c511000150.sprfilter,tp,LOCATION_ONFIELD,0,1,nil,40640057) -end -function c511000150.sprop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,c511000150.sprfilter,tp,LOCATION_ONFIELD,0,1,1,nil,511000151) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g2=Duel.SelectMatchingCard(tp,c511000150.sprfilter,tp,LOCATION_ONFIELD,0,1,1,nil,511000152) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g3=Duel.SelectMatchingCard(tp,c511000150.sprfilter,tp,LOCATION_ONFIELD,0,1,1,nil,511000153) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g4=Duel.SelectMatchingCard(tp,c511000150.sprfilter,tp,LOCATION_ONFIELD,0,1,1,nil,511000154) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g5=Duel.SelectMatchingCard(tp,c511000150.sprfilter,tp,LOCATION_ONFIELD,0,1,1,nil,40640057) - g1:Merge(g2) - g1:Merge(g3) - g1:Merge(g4) - g1:Merge(g5) - local tc=g1:GetFirst() - while tc do - if not tc:IsFaceup() then Duel.ConfirmCards(1-tp,tc) end - tc=g1:GetNext() - end - Duel.Release(g1,nil,5,REASON_COST) -end - -function c511000150.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_MAIN1 -end - -function c511000150.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsAbleToExtraAsCost() end - Duel.SendtoDeck(c,nil,0,REASON_COST) -end -function c511000150.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,4,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,4,0,0) -end -function c511000150.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then return end - if Duel.IsPlayerCanSpecialSummonMonster(tp,511000151,0,0x4011,300,200,1,RACE_FIEND,ATTRIBUTE_DARK) then - local token=Duel.CreateToken(tp,511000151) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetDescription(aux.Stringid(511000150,0)) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_BE_BATTLE_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c511000150.ncondition) - e1:SetOperation(c511000150.noperation) - e1:SetCountLimit(1) - token:RegisterEffect(e1) - local e01=Effect.CreateEffect(e:GetHandler()) - e01:SetType(EFFECT_TYPE_SINGLE) - e01:SetCode(EFFECT_UNRELEASEABLE_SUM) - e01:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e01:SetValue(1) - token:RegisterEffect(e01,true) - end - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,511000152,0,0x4011,300,200,1,RACE_FIEND,ATTRIBUTE_DARK) then - local token=Duel.CreateToken(tp,511000152) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_UNRELEASEABLE_SUM) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(1) - token:RegisterEffect(e2,true) - end - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,511000154,0,0x4011,300,200,1,RACE_FIEND,ATTRIBUTE_DARK) then - local token=Duel.CreateToken(tp,511000154) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - local e4=Effect.CreateEffect(e:GetHandler()) - e4:SetDescription(aux.Stringid(511000150,0)) - e4:SetCategory(CATEGORY_ATKCHANGE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_MZONE) - e4:SetCountLimit(1) - e4:SetTarget(c511000150.target) - e4:SetOperation(c511000150.operation) - token:RegisterEffect(e4) - local e04=Effect.CreateEffect(e:GetHandler()) - e04:SetType(EFFECT_TYPE_SINGLE) - e04:SetCode(EFFECT_UNRELEASEABLE_SUM) - e04:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e04:SetValue(1) - token:RegisterEffect(e04,true) - end - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,511000153,0,0x4011,300,200,1,RACE_FIEND,ATTRIBUTE_DARK) then - local token=Duel.CreateToken(tp,511000153) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetDescription(aux.Stringid(511000150,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetTarget(c511000150.sptg2) - e3:SetOperation(c511000150.spop2) - token:RegisterEffect(e3) - local e03=Effect.CreateEffect(e:GetHandler()) - e03:SetType(EFFECT_TYPE_SINGLE) - e03:SetCode(EFFECT_UNRELEASEABLE_SUM) - e03:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e03:SetValue(1) - token:RegisterEffect(e03,true) - end - - Duel.SpecialSummonComplete() -end - -function c511000150.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsFaceup() and chkc:IsLocation(LOCATION_MZONE) end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) -end - -function c511000150.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(tc:GetAttack()/2) - tc:RegisterEffect(e1) - end -end - -function c511000150.ncondition(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_BATTLE then return end - local ec=eg:GetFirst() - return ec:IsFaceup() and ec:IsCode(511000151) or ec:IsCode(511000152) or ec:IsCode(511000153) or ec:IsCode(511000154) or ec:IsCode(40640057) -end - -function c511000150.noperation(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateAttack() -end - -function c511000150.spfilter(c,e,tp) - return c:IsCode(40640057) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end - -function c511000150.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000150.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) -end -function c511000150.spop2(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c511000150.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP) - tc:CompleteProcedure() - end -end \ No newline at end of file diff --git a/script/c511000216.lua b/script/c511000216.lua deleted file mode 100644 index 99dbe71a..00000000 --- a/script/c511000216.lua +++ /dev/null @@ -1,24 +0,0 @@ ---Anti-Magic Arrows -function c511000216.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c511000216.target) - e1:SetOperation(c511000216.activate) - c:RegisterEffect(e1) -end -function c511000216.filter(c) - return c:IsFacedown() and c:IsDestructable() -end -function c511000216.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000216.filter,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(c511000216.filter,tp,0,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetChainLimit(aux.FALSE) -end -function c511000216.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c511000216.filter,tp,0,LOCATION_ONFIELD,nil) - Duel.Destroy(g,REASON_EFFECT) -end diff --git a/script/c511000270.lua b/script/c511000270.lua deleted file mode 100644 index 1f4d985d..00000000 --- a/script/c511000270.lua +++ /dev/null @@ -1,105 +0,0 @@ ---Nibelung's Treasure -function c511000270.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c511000270.condition) - e1:SetTarget(c511000270.target) - e1:SetOperation(c511000270.operation) - c:RegisterEffect(e1) -end -function c511000270.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetLocationCount(1-tp,LOCATION_SZONE)>0 -end -function c511000270.filter1(c,e,tp,eg,ep,ev,re,r,rp) -return c:CheckActivateEffect(false,false,false)~=nil and c:IsType(TYPE_SPELL) -end - -function c511000270.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) -if chk==0 then return Duel.IsExistingTarget(c511000270.filter1,tp,LOCATION_DECK,0,1,nil) end -e:SetProperty(EFFECT_FLAG_CARD_TARGET) -e:SetCategory(0) - local ft=Duel.GetLocationCount(1-tp,LOCATION_SZONE) - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(5) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - if Duel.GetLocationCount(1-tp,LOCATION_SZONE)>0 then - Duel.SelectTarget(tp,c511000270.filter1,tp,LOCATION_DECK,0,1,1,nil) - end - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,5) -end -function c511000270.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - local tpe=tc:GetType() - if bit.band(tpe,TYPE_EQUIP+TYPE_CONTINUOUS+TYPE_FIELD)==0 then - Duel.MoveToField(tc,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true) - te=tc:GetActivateEffect() - tg=te:GetTarget() - co=te:GetCost() - op=te:GetOperation() - e:SetCategory(te:GetCategory()) - e:SetProperty(te:GetProperty()) - Duel.ClearTargetCard() - tc:CreateEffectRelation(te) - if co then co(te,tp,eg,ep,ev,re,r,rp,1) end - if tg then tg(te,tp,eg,ep,ev,re,r,rp,1) end - Duel.BreakEffect() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local etc=g:GetFirst() - while etc do - etc:CreateEffectRelation(te) - etc=g:GetNext() - end - if op==te:GetOperation() then op(te,tp,eg,ep,ev,re,r,rp) end - tc:ReleaseEffectRelation(te) - etc=g:GetFirst() - while etc do - etc:ReleaseEffectRelation(te) - etc=g:GetNext() - end - Duel.SendtoGrave(tc,REASON_EFFECT) - else - if bit.band(tpe,TYPE_EQUIP+TYPE_CONTINUOUS)~=0 then - if Duel.GetLocationCount(1-tp,LOCATION_SZONE)<=0 then return end - Duel.MoveToField(tc,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true) - tpe=tc:GetType() - te=tc:GetActivateEffect() - tg=te:GetTarget() - co=te:GetCost() - op=te:GetOperation() - e:SetCategory(te:GetCategory()) - e:SetProperty(te:GetProperty()) - Duel.ClearTargetCard() - tc:CreateEffectRelation(te) - if co then co(te,tp,eg,ep,ev,re,r,rp,1) end - if tg then tg(te,tp,eg,ep,ev,re,r,rp,1) end - Duel.BreakEffect() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local etc=g:GetFirst() - while etc do - etc:CreateEffectRelation(te) - etc=g:GetNext() - end - if op then op(te,tp,eg,ep,ev,re,r,rp) end - tc:ReleaseEffectRelation(te) - etc=g:GetFirst() - while etc do - etc:ReleaseEffectRelation(te) - etc=g:GetNext() - end - else - if bit.band(tpe,TYPE_FIELD)~=0 then - Duel.MoveToField(tc,tp,1-tp,LOCATION_SZONE,POS_FACEUP,true) - end - if co then co(e,tp,eg,ep,ev,re,r,rp,1) end - if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end - Duel.BreakEffect() - if op then op(e,tp,eg,ep,ev,re,r,rp) end - end -end -local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) -Duel.Draw(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000398.lua b/script/c511000398.lua deleted file mode 100644 index 15840cec..00000000 --- a/script/c511000398.lua +++ /dev/null @@ -1,23 +0,0 @@ ---Magic Removal Virus Cannon -function c511000398.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c511000398.target) - e1:SetOperation(c511000398.activate) - c:RegisterEffect(e1) -end -function c511000398.filter(c) - return c:IsType(TYPE_SPELL) and c:IsAbleToGrave() -end -function c511000398.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c511000398.filter,tp,0,LOCATION_DECK+LOCATION_HAND,1,nil) end - local sg=Duel.GetMatchingGroup(c511000398.filter,tp,0,LOCATION_DECK+LOCATION_HAND,nil) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,sg,sg:GetCount(),0,0) -end -function c511000398.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c511000398.filter,tp,0,LOCATION_DECK+LOCATION_HAND,nil) - Duel.SendtoGrave(sg,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c511000399.lua b/script/c511000399.lua deleted file mode 100644 index b416856e..00000000 --- a/script/c511000399.lua +++ /dev/null @@ -1,32 +0,0 @@ ---Negative Energy Generator -function c511000399.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c511000399.target) - e1:SetOperation(c511000399.operation) - c:RegisterEffect(e1) -end -function c511000399.filter(c) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_DARK) -end -function c511000399.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c511000399.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c511000399.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c511000399.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c511000399.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(tc:GetBaseAttack()*3) - tc:RegisterEffect(e1) - end -end diff --git a/script/c51119924.lua b/script/c51119924.lua index 388a9f18..e0fd5ef7 100644 --- a/script/c51119924.lua +++ b/script/c51119924.lua @@ -29,8 +29,6 @@ end function c51119924.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRace(RACE_WARRIOR+RACE_SPELLCASTER) then - if not Duel.GetControl(tc,tp,PHASE_END,1) and not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c51124303.lua b/script/c51124303.lua old mode 100755 new mode 100644 index 2484d9e7..bbb3d083 --- a/script/c51124303.lua +++ b/script/c51124303.lua @@ -35,6 +35,7 @@ function c51124303.filter(c,e,tp) local sg=Duel.GetMatchingGroup(c51124303.spfilter,tp,LOCATION_HAND,0,c,e,tp,c) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if c:IsLocation(LOCATION_MZONE) then ft=ft+1 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end return sg:IsExists(c51124303.rfilter,1,nil,c) or sg:CheckWithSumEqual(Card.GetLevel,c:GetLevel(),1,ft) end function c51124303.mfilter(c) @@ -74,6 +75,7 @@ function c51124303.activate(e,tp,eg,ep,ev,re,r,rp) if not mc then return end local sg=Duel.GetMatchingGroup(c51124303.spfilter,tp,LOCATION_HAND,0,mc,e,tp,mc) if mc:IsLocation(LOCATION_MZONE) then ft=ft+1 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local b1=sg:IsExists(c51124303.rfilter,1,nil,mc) local b2=sg:CheckWithSumEqual(Card.GetLevel,mc:GetLevel(),1,ft) if b1 and (not b2 or Duel.SelectYesNo(tp,aux.Stringid(51124303,0))) then diff --git a/script/c51192573.lua b/script/c51192573.lua index f6e0b6db..0b13f6df 100644 --- a/script/c51192573.lua +++ b/script/c51192573.lua @@ -23,11 +23,17 @@ function c51192573.initial_effect(c) c:RegisterEffect(e2) --atk def local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_DAMAGE_CALCULATING) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_UPDATE_ATTACK) e3:SetRange(LOCATION_MZONE) - e3:SetOperation(c51192573.adval) + e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e3:SetCondition(c51192573.adcon) + e3:SetTarget(c51192573.adtg) + e3:SetValue(c51192573.adval) c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e4) end function c51192573.otfilter(c,tp) return c:GetOwner()==tp @@ -49,30 +55,21 @@ function c51192573.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_COUNTER,g,1,0xe,1) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,g,1,0x100e,1) end function c51192573.ctop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0xe,1) + tc:AddCounter(0x100e,1) end end -function c51192573.addown(c,e) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(c:GetCounter(0xe)*-300) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) +function c51192573.adcon(e) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and Duel.GetAttackTarget() +end +function c51192573.adtg(e,c) + local bc=c:GetBattleTarget() + return bc and c:GetCounter(0x100e)~=0 and bc:IsSetCard(0xc) end -function c51192573.adval(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if not d then return end - if a:GetCounter(0xe)>0 and d:IsSetCard(0xc) then c51192573.addown(a,e) end - if d:GetCounter(0xe)>0 and a:IsSetCard(0xc) then c51192573.addown(d,e) end +function c51192573.adval(e,c) + return c:GetCounter(0x100e)*-300 end diff --git a/script/c51194046.lua b/script/c51194046.lua index 3490c7ac..1940fe73 100644 --- a/script/c51194046.lua +++ b/script/c51194046.lua @@ -6,10 +6,9 @@ function c51194046.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetRange(LOCATION_PZONE) e2:SetTargetRange(1,0) - e2:SetCondition(aux.nfbdncon) e2:SetTarget(c51194046.splimit) c:RegisterEffect(e2) --draw diff --git a/script/c51196805.lua b/script/c51196805.lua old mode 100755 new mode 100644 index 08278e2b..1206fe77 --- a/script/c51196805.lua +++ b/script/c51196805.lua @@ -41,7 +41,7 @@ end function c51196805.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c51196805.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c51232472.lua b/script/c51232472.lua index 5d15e658..f94f8dfb 100644 --- a/script/c51232472.lua +++ b/script/c51232472.lua @@ -16,7 +16,7 @@ function c51232472.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetPreviousLocation()==LOCATION_HAND and bit.band(r,0x4040)==0x4040 end function c51232472.desfilter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c51232472.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c51232472.desfilter(chkc) end diff --git a/script/c51254980.lua b/script/c51254980.lua index cddb3f8f..698971e7 100644 --- a/script/c51254980.lua +++ b/script/c51254980.lua @@ -21,7 +21,7 @@ function c51254980.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c51254980.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return ep~=tp and eg:GetFirst():IsDestructable() end + if chk==0 then return ep~=tp and eg:GetFirst():IsLocation(LOCATION_MZONE) end eg:GetFirst():CreateEffectRelation(e) Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) end diff --git a/script/c5126490.lua b/script/c5126490.lua index 4fcabbbe..0fb89fc5 100644 --- a/script/c5126490.lua +++ b/script/c5126490.lua @@ -34,55 +34,40 @@ function c5126490.initial_effect(c) e4:SetValue(1) c:RegisterEffect(e4) end -function c5126490.spfilter(c,code) - return c:IsFaceup() and c:IsCode(code) and c:IsAbleToGraveAsCost() +function c5126490.spfilter1(c,tp) + return c:IsFaceup() and c:IsCode(89943723) and c:IsAbleToGraveAsCost() + and Duel.IsExistingMatchingCard(c5126490.spfilter2,tp,LOCATION_MZONE,0,1,c) +end +function c5126490.spfilter2(c) + return c:IsFaceup() and c:IsCode(78371393) and c:IsAbleToGraveAsCost() end function c5126490.spcon(e,c) if c==nil then return true end local tp=c:GetControler() - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<-1 then return false end - local g1=Duel.GetMatchingGroup(c5126490.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723) - local g2=Duel.GetMatchingGroup(c5126490.spfilter,tp,LOCATION_ONFIELD,0,nil,78371393) - if g1:GetCount()==0 or g2:GetCount()==0 then return false end - if ft>0 then return true end - local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) - local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) - if ft==-1 then return f1>0 and f2>0 - else return f1>0 or f2>0 end + return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 + and Duel.IsExistingMatchingCard(c5126490.spfilter1,tp,LOCATION_MZONE,0,1,nil,tp) end function c5126490.spop(e,tp,eg,ep,ev,re,r,rp,c) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local g1=Duel.GetMatchingGroup(c5126490.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723) - local g2=Duel.GetMatchingGroup(c5126490.spfilter,tp,LOCATION_ONFIELD,0,nil,78371393) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g1=Duel.SelectMatchingCard(tp,c5126490.spfilter1,tp,LOCATION_MZONE,0,1,1,nil,tp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g2=Duel.SelectMatchingCard(tp,c5126490.spfilter2,tp,LOCATION_MZONE,0,1,1,g1:GetFirst()) g1:Merge(g2) - local g=Group.CreateGroup() - local tc=nil - for i=1,2 do - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - if ft<=0 then - tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() - else - tc=g1:Select(tp,1,1,nil):GetFirst() - end - g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 - end - Duel.SendtoGrave(g,REASON_COST) + Duel.SendtoGrave(g1,REASON_COST) end function c5126490.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetAttackTarget()~=nil end local bc=e:GetHandler():GetBattleTarget() Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,bc:GetAttack()) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,bc:GetDefence()) + Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,bc:GetDefense()) end function c5126490.damop(e,tp,eg,ep,ev,re,r,rp) local bc=e:GetHandler():GetBattleTarget() local atk=bc:GetAttack() - local def=bc:GetDefence() + local def=bc:GetDefense() if atk<0 then atk=0 end if def<0 then def=0 end - Duel.Damage(1-tp,atk,REASON_EFFECT) - Duel.Recover(tp,def,REASON_EFFECT) + Duel.Damage(1-tp,atk,REASON_EFFECT,true) + Duel.Recover(tp,def,REASON_EFFECT,true) + Duel.RDComplete() end diff --git a/script/c51267887.lua b/script/c51267887.lua index 9d044974..d177395e 100644 --- a/script/c51267887.lua +++ b/script/c51267887.lua @@ -18,7 +18,7 @@ function c51267887.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(300) c:RegisterEffect(e3) --equip limit diff --git a/script/c51282878.lua b/script/c51282878.lua index 2b903b25..0af537de 100644 --- a/script/c51282878.lua +++ b/script/c51282878.lua @@ -7,16 +7,11 @@ function c51282878.initial_effect(c) e1:SetType(EFFECT_TYPE_IGNITION) e1:SetProperty(EFFECT_FLAG_NO_TURN_RESET) e1:SetRange(LOCATION_GRAVE) - e1:SetCountLimit(1) - e1:SetCost(c51282878.cost) + e1:SetCountLimit(1,51282878) e1:SetTarget(c51282878.target) e1:SetOperation(c51282878.operation) c:RegisterEffect(e1) end -function c51282878.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,51282878)==0 end - Duel.RegisterFlagEffect(tp,51282878,RESET_PHASE+PHASE_END,0,1) -end function c51282878.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 diff --git a/script/c5128859.lua b/script/c5128859.lua index eeecb541..e3afe7da 100644 --- a/script/c5128859.lua +++ b/script/c5128859.lua @@ -34,19 +34,17 @@ function c5128859.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA) end function c5128859.spfilter(c,code) - return c:IsAbleToDeckOrExtraAsCost() and c:IsCode(code) -end -function c5128859.spfilter2(c,code) - return c:IsAbleToDeckOrExtraAsCost() and c:GetOriginalCode()==code + return c:IsAbleToDeckOrExtraAsCost() and c:IsFusionCode(code) end function c5128859.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-1 then return false end local g1=Duel.GetMatchingGroup(c5128859.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723) - local g2=Duel.GetMatchingGroup(c5128859.spfilter2,tp,LOCATION_ONFIELD,0,nil,78734254) + local g2=Duel.GetMatchingGroup(c5128859.spfilter,tp,LOCATION_ONFIELD,0,nil,78734254) if g1:GetCount()==0 or g2:GetCount()==0 then return false end + if g1:GetCount()==1 and g2:GetCount()==1 and g1:GetFirst()==g2:GetFirst() then return false end if ft>0 then return true end local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) @@ -56,7 +54,7 @@ end function c5128859.spop(e,tp,eg,ep,ev,re,r,rp,c) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) local g1=Duel.GetMatchingGroup(c5128859.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723) - local g2=Duel.GetMatchingGroup(c5128859.spfilter2,tp,LOCATION_ONFIELD,0,nil,78734254) + local g2=Duel.GetMatchingGroup(c5128859.spfilter,tp,LOCATION_ONFIELD,0,nil,78734254) g1:Merge(g2) local g=Group.CreateGroup() local tc=nil @@ -64,12 +62,22 @@ function c5128859.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) if ft<=0 then tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() + ft=ft+1 else tc=g1:Select(tp,1,1,nil):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 + if i==1 then + g1:Clear() + if tc:IsFusionCode(89943723) then + local sg=Duel.GetMatchingGroup(c5128859.spfilter,tp,LOCATION_ONFIELD,0,tc,78734254) + g1:Merge(sg) + end + if tc:IsFusionCode(78734254) then + local sg=Duel.GetMatchingGroup(c5128859.spfilter,tp,LOCATION_ONFIELD,0,tc,89943723) + g1:Merge(sg) + end + end end local cg=g:Filter(Card.IsFacedown,nil) if cg:GetCount()>0 then diff --git a/script/c5133471.lua b/script/c5133471.lua old mode 100755 new mode 100644 index b81acfad..915f59c9 --- a/script/c5133471.lua +++ b/script/c5133471.lua @@ -25,7 +25,7 @@ function c5133471.initial_effect(c) c:RegisterEffect(e2) end function c5133471.filter(c) - return c:IsFacedown() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFacedown() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c5133471.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c5133471.filter(chkc) and chkc~=e:GetHandler() end @@ -45,7 +45,7 @@ function c5133471.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) end function c5133471.filter2(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c5133471.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c5133471.filter2(chkc) and chkc~=e:GetHandler() end diff --git a/script/c51345461.lua b/script/c51345461.lua index 991bd6e3..7c5f90f3 100644 --- a/script/c51345461.lua +++ b/script/c51345461.lua @@ -13,11 +13,10 @@ function c51345461.initial_effect(c) c:RegisterEffect(e1) end function c51345461.filter(c,rc,tid) - return c:IsReason(REASON_BATTLE) and c:GetReasonCard()==rc and c:GetTurnID()==tid + return c:IsReason(REASON_BATTLE) and c:GetReasonCard()==rc and c:GetTurnID()==tid and not c:IsForbidden() end -function c51345461.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingMatchingCard(c51345461.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e:GetHandler(),Duel.GetTurnCount()) end +function c51345461.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end local g=Duel.GetMatchingGroup(c51345461.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil,e:GetHandler(),Duel.GetTurnCount()) Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,g:GetCount(),0,0) end @@ -26,13 +25,10 @@ function c51345461.eqop(e,tp,eg,ep,ev,re,r,rp) if ft<=0 then return end local c=e:GetHandler() if not c:IsRelateToEffect(e) or c:IsFacedown() then return end - local gc=Duel.GetMatchingGroup(c51345461.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil,e:GetHandler(),Duel.GetTurnCount()) - if gc:GetCount()==0 then return end - if gc:GetCount()>ft then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - gc=gc:Select(tp,ft,ft,nil) - end - local tc=gc:GetFirst() + local g=Duel.GetMatchingGroup(c51345461.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil,e:GetHandler(),Duel.GetTurnCount()) + if g:GetCount()==0 then return end + if g:GetCount()>ft then return end + local tc=g:GetFirst() while tc do Duel.Equip(tp,tc,c,false,true) local e1=Effect.CreateEffect(c) @@ -49,7 +45,7 @@ function c51345461.eqop(e,tp,eg,ep,ev,re,r,rp) e2:SetReset(RESET_EVENT+0x1fe0000) e2:SetValue(200) tc:RegisterEffect(e2) - tc=gc:GetNext() + tc=g:GetNext() end Duel.EquipComplete() end diff --git a/script/c51370047.lua b/script/c51370047.lua deleted file mode 100644 index 3e2cfd35..00000000 --- a/script/c51370047.lua +++ /dev/null @@ -1,28 +0,0 @@ ---Petal Elf the Sibyl -function c51370047.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetTarget(c51370047.target) - e1:SetOperation(c51370047.operation) - c:RegisterEffect(e1) -end -function c51370047.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAttackPos,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsAttackPos,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) -end -function c51370047.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsAttackPos,tp,0,LOCATION_MZONE,nil) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE,0,POS_FACEUP_DEFENCE,0) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - tc=g:GetNext() - end -end diff --git a/script/c51370048.lua b/script/c51370048.lua deleted file mode 100644 index 30b73047..00000000 --- a/script/c51370048.lua +++ /dev/null @@ -1,25 +0,0 @@ ---Coinorma the Sibyl -function c51370048.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetTarget(c51370048.target) - e1:SetOperation(c51370048.operation) - c:RegisterEffect(e1) -end -function c51370048.filter(c) - return c:IsType(TYPE_FLIP) and c:IsLevelBelow(4) -end -function c51370048.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE+LOCATION_DECK) and c51370048.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c51370048.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,c51370048.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) -end -function c51370048.operation(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetFirstTarget() - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) - Duel.ConfirmCards(1-tp,sg) -end diff --git a/script/c51370049.lua b/script/c51370049.lua deleted file mode 100644 index bec4c360..00000000 --- a/script/c51370049.lua +++ /dev/null @@ -1,25 +0,0 @@ ---Arrowsylph the Sibyl -function c51370049.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetTarget(c51370049.tg) - e1:SetOperation(c51370049.op) - c:RegisterEffect(e1) -end -function c51370049.filter(c) - return c:IsType(TYPE_RITUAL) and c:IsAbleToHand() and c:IsType(TYPE_SPELL) -end -function c51370049.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c51370049.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c51370049.op(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c51370049.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c51370050.lua b/script/c51370050.lua deleted file mode 100644 index 320670ad..00000000 --- a/script/c51370050.lua +++ /dev/null @@ -1,25 +0,0 @@ ---Arrowsylph the Sibyl -function c51370050.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetTarget(c51370050.tg) - e1:SetOperation(c51370050.op) - c:RegisterEffect(e1) -end -function c51370050.filter(c) - return c:IsType(TYPE_RITUAL) and c:IsAbleToHand() and c:IsType(TYPE_MONSTER) -end -function c51370050.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c51370050.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c51370050.op(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c51370050.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c51370051.lua b/script/c51370051.lua deleted file mode 100644 index 07736f0b..00000000 --- a/script/c51370051.lua +++ /dev/null @@ -1,20 +0,0 @@ ---Glare of the Black Cat -function c51370051.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c51370051.condition) - e1:SetOperation(c51370051.activate) - c:RegisterEffect(e1) -end -function c51370051.cfilter(c) - local ph=Duel.GetCurrentPhase() - return Duel.GetTurnPlayer()~=tp and ph==PHASE_BATTLE and c:IsFacedown() -end -function c51370051.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c51370051.cfilter,tp,LOCATION_MZONE,0,2,nil) -end -function c51370051.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) -end diff --git a/script/c51370052.lua b/script/c51370052.lua deleted file mode 100644 index 0fc98663..00000000 --- a/script/c51370052.lua +++ /dev/null @@ -1,5 +0,0 @@ ---Ritual of the Sibylla -function c51370052.initial_effect(c) - aux.AddRitualProcGreater(c,aux.FilterBoolFunction(Card.IsCode,51370053)) -end - diff --git a/script/c51370053.lua b/script/c51370053.lua deleted file mode 100644 index 1e31f5f2..00000000 --- a/script/c51370053.lua +++ /dev/null @@ -1,70 +0,0 @@ ---Tarotray the Sibylla -function c51370053.initial_effect(c) - c:EnableReviveLimit() - --turn set - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(46925518,0)) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCost(c51370053.damcost) - e2:SetTarget(c51370053.target) - e2:SetOperation(c51370053.operation) - c:RegisterEffect(e2) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(41309158,0)) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1e0) - e1:SetCountLimit(1) - e1:SetCondition(c51370053.con) - e1:SetTarget(c51370053.tg) - e1:SetOperation(c51370053.op) - c:RegisterEffect(e1) -end -function c51370053.damcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) -end -function c51370053.filter(c) - return c:IsFaceup() and c:IsType(TYPE_FLIP) -end - -function c51370053.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c51370053.filter,tp,LOCATION_MZONE,0,1,nil) end - local g=Duel.GetMatchingGroup(c51370053.filter,tp,LOCATION_MZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) -end -function c51370053.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c51370053.filter,tp,LOCATION_MZONE,0,nil) - if g:GetCount()==0 then return end - local ct=Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) -end - - -function c51370053.con(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c51370053.filter2(c) - return c:IsFacedown() -end -function c51370053.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c51370053.filter2,tp,LOCATION_MZONE,0,1,nil) end - local g=Duel.GetMatchingGroup(c51370053.filter2,tp,LOCATION_MZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) -end -function c51370053.op(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_MZONE,0,nil) - if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEUP_ATTACK) - end -end diff --git a/script/c51370054.lua b/script/c51370054.lua deleted file mode 100644 index 5e707611..00000000 --- a/script/c51370054.lua +++ /dev/null @@ -1,85 +0,0 @@ ---Gottoms' Emergency Convocation -function c51370054.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c51370054.condition) - e1:SetTarget(c51370054.target) - e1:SetOperation(c51370054.operation) - c:RegisterEffect(e1) - if not c51370054.global_check then - c51370054.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_SPSUMMON_SUCCESS) - ge1:SetOperation(c51370054.checkop) - Duel.RegisterEffect(ge1,0) - local ge2=Effect.CreateEffect(c) - ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW) - ge2:SetOperation(c51370054.clear) - Duel.RegisterEffect(ge2,0) - end -end -function c51370054.checkop(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - while tc do - if not tc:IsSetCard(0x100d) then - c51370054[tc:GetSummonPlayer()]=false - end - tc=eg:GetNext() - end -end -function c51370054.clear(e,tp,eg,ep,ev,re,r,rp) - c51370054[0]=true - c51370054[1]=true -end -function c51370054.lvcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return c51370054[tp] end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c51370054.splimit) - Duel.RegisterEffect(e1,tp) -end -function c51370054.splimit(e,c) - return not c:IsSetCard(0x100d) -end -function c51370054.sfilter(c,e,tp) - return c:IsType(TYPE_SYNCHRO) and c:IsSetCard(0x100d) -end -function c51370054.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c51370054.sfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c51370054.filter(c,e,tp) - return c:IsSetCard(0x100d) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) -end -function c51370054.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c51370054.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c51370054.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c51370054.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) -end -function c51370054.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if Duel.GetLocationCount(tp,LOCATION_MZONE)0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(atk) - e1:SetReset(RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end - end -end - - - -function c51370056.bttg(e,c) - return c51370056.atkfilter(c,e:GetHandlerPlayer()) -end -function c51370056.btval(e,c) - return c==e:GetHandler() -end -function c51370056.atkfilter(e,c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c51370056.tg(e,c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_NORMAL) -end -function c51370056.btval(e,c) - return c==e:GetHandler() -end diff --git a/script/c51370057.lua b/script/c51370057.lua deleted file mode 100644 index f951693f..00000000 --- a/script/c51370057.lua +++ /dev/null @@ -1,95 +0,0 @@ ---Raid Raptors - Readiness -function c51370057.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e1:SetCondition(c51370057.condition) - e1:SetTarget(c51370057.target) - e1:SetOperation(c51370057.operation) - c:RegisterEffect(e1) - --reflect - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c51370057.condition2) - e1:SetOperation(c51370057.operation2) - c:RegisterEffect(e1) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(19113101,0)) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetRange(LOCATION_GRAVE) - e1:SetCost(c51370057.bancost) - e1:SetCondition(c51370057.condition2) - e1:SetOperation(c51370057.banoperation) - c:RegisterEffect(e1) -end -function c51370057.condition(e,tp,eg,ep,ev,re,r,rp) - return ep==tp -end -function c51370057.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c51370057.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,0) - Duel.Draw(tp,1,REASON_EFFECT) -end - -function c51370057.condition2(e,tp,eg,ep,ev,re,r,rp) - local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_DAMAGE) - if ex then return true end - ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_RECOVER) - return ex -end -function c51370057.operation2(e,tp,eg,ep,ev,re,r,rp) - local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,1) - e1:SetLabel(cid) - e1:SetValue(c51370057.refcon) - e1:SetReset(RESET_CHAIN) - Duel.RegisterEffect(e1,tp) -end -function c51370057.refcon(e,re,val,r,rp,rc) - local cc=Duel.GetCurrentChain() - if cc==0 or bit.band(r,REASON_EFFECT)==0 then return end - local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID) - if cid==e:GetLabel() then return 0 end - return val -end - - -function c51370057.bancost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c51370057.banoperation(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetValue(c51370057.damval) - e1:SetReset(RESET_PHASE+PHASE_END,1) - Duel.RegisterEffect(e1,tp) - Duel.SetLP(tp,10) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetValue(1) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c51370057.damval(e,re,val,r,rp,rc) - if bit.band(r,REASON_EFFECT)~=0 then return 0 - else return val end -end diff --git a/script/c51370058.lua b/script/c51370058.lua deleted file mode 100644 index c151f6ca..00000000 --- a/script/c51370058.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Dimension Xyz -function c51370058.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c51370058.condition) - e1:SetOperation(c51370058.activate) - c:RegisterEffect(e1) -end -function c51370058.cfilter(c,tp) - return Duel.IsExistingMatchingCard(c51370058.cfilter2,tp,LOCATION_MZONE+LOCATION_HAND+LOCATION_GRAVE,0,2,c,c:GetCode()) -end -function c51370058.cfilter2(c,code) - return c:GetCode()==code -end -function c51370058.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c51370058.cfilter,tp,LOCATION_MZONE+LOCATION_HAND+LOCATION_GRAVE,0,1,nil,tp) - and Duel.GetLP(tp)<=1000 -end -function c51370058.xyzfilter(c,mg) - local mg=Duel.GetMatchingGroup(c51370058.cfilter,tp,LOCATION_MZONE+LOCATION_HAND+LOCATION_GRAVE,0,nil,e,tp) - if c.xyz_count~=3 then return false end - return c:IsXyzSummonable(mg) -end -function c51370058.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.SelectMatchingCard(tp,c51370058.cfilter,tp,LOCATION_MZONE+LOCATION_HAND+LOCATION_GRAVE,0,3,3,nil,e,tp) - if tc:GetCount()==0 then return end - local xyzg=Duel.GetMatchingGroup(c51370058.xyzfilter,tp,LOCATION_EXTRA,0,nil,g) - if xyzg:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local xyz=xyzg:Select(tp,1,1,nil):GetFirst() - Duel.XyzSummon(tp,xyz,tc) - end -end diff --git a/script/c51370059.lua b/script/c51370059.lua deleted file mode 100644 index 6012ba5e..00000000 --- a/script/c51370059.lua +++ /dev/null @@ -1,44 +0,0 @@ ---Raid Raptors - Nest -function c51370059.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --remove - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetTarget(c51370059.target) - e2:SetOperation(c51370059.operation) - c:RegisterEffect(e2) -end -function c51370059.cfilter(c,tp) - return c:IsFaceup() and Duel.IsExistingMatchingCard(c51370059.cfilter2,tp,LOCATION_MZONE,0,1,c,c:GetCode()) - and (c:IsCode(51370044) or c:IsCode(51370056)) -end -function c51370059.cfilter2(c,code) - return c:IsFaceup() and c:GetCode()==code -end -function c51370059.filter2(c,code,e,tp) - return c:IsCode(code) -end -function c51370059.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c51370059.cfilter(chkc,e,tp) end - if chk==0 then return Duel.IsExistingTarget(c51370059.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c51370059.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c51370059.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local sg=Duel.SelectMatchingCard(tp,c51370059.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,tc:GetCode(),e,tp) - if sg:GetCount()>0 then - Duel.SendtoHand(sg,nil,REASON_EFFECT) - end - end -end diff --git a/script/c51391183.lua b/script/c51391183.lua new file mode 100644 index 00000000..742a369b --- /dev/null +++ b/script/c51391183.lua @@ -0,0 +1,106 @@ +--魔界劇団－ワイルド・ホープ +function c51391183.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --scale + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(51391183,0)) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetTarget(c51391183.target) + e1:SetOperation(c51391183.operation) + c:RegisterEffect(e1) + --atk up + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetTarget(c51391183.atktg) + e2:SetOperation(c51391183.atkop) + c:RegisterEffect(e2) + --to hand + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_DESTROYED) + e3:SetCountLimit(1,51391183) + e3:SetCondition(c51391183.thcon) + e3:SetTarget(c51391183.thtg) + e3:SetOperation(c51391183.thop) + c:RegisterEffect(e3) +end +function c51391183.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + local seq=e:GetHandler():GetSequence() + local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) + if chk==0 then return tc and tc:IsSetCard(0x10ec) and tc:IsCanBeEffectTarget(e) end + Duel.SetTargetCard(tc) +end +function c51391183.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CHANGE_LSCALE) + e1:SetValue(9) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_CHANGE_RSCALE) + tc:RegisterEffect(e2) + end + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetTargetRange(1,0) + e3:SetTarget(c51391183.splimit) + e3:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e3,tp) +end +function c51391183.splimit(e,c) + return not c:IsSetCard(0x10ec) +end +function c51391183.atkfilter(c) + return c:IsSetCard(0x10ec) and c:IsFaceup() +end +function c51391183.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c51391183.atkfilter,tp,LOCATION_MZONE,0,1,nil) end +end +function c51391183.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local g=Duel.GetMatchingGroup(c51391183.atkfilter,tp,LOCATION_MZONE,0,nil) + if c:IsFaceup() and c:IsRelateToEffect(e) then + local atkval=g:GetClassCount(Card.GetCode)*100 + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(atkval) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + end +end +function c51391183.thcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 +end +function c51391183.filter(c) + return c:IsSetCard(0x10ec) and c:IsAbleToHand() and not c:IsCode(51391183) +end +function c51391183.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c51391183.filter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c51391183.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c51391183.filter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c51402177.lua b/script/c51402177.lua index f8bfdeca..e3c023ef 100644 --- a/script/c51402177.lua +++ b/script/c51402177.lua @@ -58,11 +58,11 @@ end function c51402177.damcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and bc:IsType(TYPE_MONSTER) and bit.band(bc:GetBattlePosition(),POS_DEFENCE)~=0 + return c:IsRelateToBattle() and bc:IsType(TYPE_MONSTER) and bit.band(bc:GetBattlePosition(),POS_DEFENSE)~=0 end function c51402177.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local dam=e:GetHandler():GetBattleTarget():GetBaseDefence()/2 + local dam=e:GetHandler():GetBattleTarget():GetBaseDefense()/2 if dam<0 then dam=0 end Duel.SetTargetPlayer(1-tp) Duel.SetTargetParam(dam) diff --git a/script/c51402908.lua b/script/c51402908.lua index 65dc9a6c..21ef071f 100644 --- a/script/c51402908.lua +++ b/script/c51402908.lua @@ -1,4 +1,4 @@ ---ＴＨＥ　Ｓｕｐｒｅｍａｃｙ　Ｓｕｎ +--The supremacy SUN function c51402908.initial_effect(c) --cannot special summon local e1=Effect.CreateEffect(c) diff --git a/script/c51435705.lua b/script/c51435705.lua index b2ae114f..29bb9595 100644 --- a/script/c51435705.lua +++ b/script/c51435705.lua @@ -25,7 +25,6 @@ function c51435705.shcost(e,tp,eg,ep,ev,re,r,rp,chk) end function c51435705.filter(c) return c:IsSetCard(0x70) and c:GetCode()~=51435705 and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c51435705.shtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c51435705.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,nil) end @@ -34,7 +33,7 @@ end function c51435705.shop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c51435705.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end diff --git a/script/c51447164.lua b/script/c51447164.lua index 65fb4a2c..8a2d54da 100644 --- a/script/c51447164.lua +++ b/script/c51447164.lua @@ -7,7 +7,7 @@ function c51447164.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(51447164,0)) e1:SetCategory(CATEGORY_DISABLE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetRange(LOCATION_MZONE) e1:SetCondition(c51447164.discon) @@ -96,7 +96,10 @@ function c51447164.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c51447164.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c51452091.lua b/script/c51452091.lua index b884f36b..db200552 100644 --- a/script/c51452091.lua +++ b/script/c51452091.lua @@ -31,7 +31,7 @@ function c51452091.initial_effect(c) c:RegisterEffect(e4) end function c51452091.distarget(e,c) - return c~=e:GetHandler() and c:IsType(TYPE_TRAP) and c:IsStatus(STATUS_ACTIVATED) + return c~=e:GetHandler() and c:IsType(TYPE_TRAP) end function c51452091.disop(e,tp,eg,ep,ev,re,r,rp) local tl=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) diff --git a/script/c51482758.lua b/script/c51482758.lua index 76183d7d..eb784f00 100644 --- a/script/c51482758.lua +++ b/script/c51482758.lua @@ -11,7 +11,7 @@ function c51482758.initial_effect(c) c:RegisterEffect(e1) end function c51482758.filter(c) - return c:IsFaceup() and c:IsDestructable() and c:IsType(TYPE_TRAP) + return c:IsFaceup() and c:IsType(TYPE_TRAP) end function c51482758.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c51482758.filter(chkc) end diff --git a/script/c51531505.lua b/script/c51531505.lua index ea4dddcb..f3b75b7c 100644 --- a/script/c51531505.lua +++ b/script/c51531505.lua @@ -29,7 +29,7 @@ function c51531505.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,c51531505.cfilter,1,1,REASON_COST+REASON_DISCARD) end function c51531505.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c51531505.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c51531505.filter(chkc) end diff --git a/script/c51543904.lua b/script/c51543904.lua index b60a4114..2175996f 100644 --- a/script/c51543904.lua +++ b/script/c51543904.lua @@ -18,7 +18,7 @@ function c51543904.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(51543904,2)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetRange(LOCATION_MZONE) @@ -33,7 +33,7 @@ function c51543904.cfilter(c) return c:IsSetCard(0x95) and c:IsType(TYPE_SPELL) and c:IsDiscardable() end function c51543904.ovfilter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) + return c:IsFaceup() and c:IsSetCard(0x107f) end function c51543904.xyzop(e,tp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c51543904.cfilter,tp,LOCATION_HAND,0,1,nil) end @@ -53,7 +53,7 @@ end function c51543904.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c51549976.lua b/script/c51549976.lua index 24ea13fa..59078a3d 100644 --- a/script/c51549976.lua +++ b/script/c51549976.lua @@ -21,11 +21,11 @@ function c51549976.cost(e,tp,eg,ep,ev,re,r,rp,chk) end function c51549976.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c51549976.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.Destroy(g,REASON_EFFECT) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD) diff --git a/script/c51555725.lua b/script/c51555725.lua index 4e451627..88d23f4d 100644 --- a/script/c51555725.lua +++ b/script/c51555725.lua @@ -30,7 +30,7 @@ function c51555725.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 end function c51555725.filter(c) - return c:IsFaceup() and c:IsSetCard(0x24) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x24) end function c51555725.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c51555725.filter(chkc) end diff --git a/script/c51562916.lua b/script/c51562916.lua index 7123b85b..31271d4c 100644 --- a/script/c51562916.lua +++ b/script/c51562916.lua @@ -10,7 +10,7 @@ function c51562916.initial_effect(c) c:RegisterEffect(e1) end function c51562916.dfilter(c) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WATER) and c:IsDestructable() + return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WATER) end function c51562916.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c51562916.dfilter,tp,LOCATION_MZONE,0,1,nil) end diff --git a/script/c51589188.lua b/script/c51589188.lua index 13b545dc..c0ec47e6 100644 --- a/script/c51589188.lua +++ b/script/c51589188.lua @@ -56,7 +56,7 @@ function c51589188.descon(e,tp,eg,ep,ev,re,r,rp) return ep~=tp and eg:GetFirst()==e:GetLabelObject() end function c51589188.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c51589188.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c51589188.desfilter(chkc) end diff --git a/script/c51606429.lua b/script/c51606429.lua new file mode 100644 index 00000000..33d3726c --- /dev/null +++ b/script/c51606429.lua @@ -0,0 +1,89 @@ +--幻影騎士団トゥーム・シールド +function c51606429.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCost(c51606429.cost) + e1:SetTarget(c51606429.target) + e1:SetOperation(c51606429.activate) + c:RegisterEffect(e1) + --negate + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(51606429,0)) + e2:SetCategory(CATEGORY_DISABLE) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_GRAVE) + e2:SetCondition(c51606429.negcon) + e2:SetCost(c51606429.negcost) + e2:SetTarget(c51606429.negtg) + e2:SetOperation(c51606429.negop) + c:RegisterEffect(e2) +end +function c51606429.cost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(1) + return true +end +function c51606429.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + if e:GetLabel()==0 then return false end + e:SetLabel(0) + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsPlayerCanSpecialSummonMonster(tp,51606429,0x10db,0x11,3,0,0,RACE_WARRIOR,ATTRIBUTE_DARK) end + e:SetLabel(0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c51606429.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,51606429,0x10db,0x11,3,0,0,RACE_WARRIOR,ATTRIBUTE_DARK) then + c:AddMonsterAttribute(TYPE_NORMAL) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + c:AddMonsterAttributeComplete() + Duel.SpecialSummonComplete() + end +end +function c51606429.negcon(e,tp,eg,ep,ev,re,r,rp) + return aux.exccon(e) and Duel.GetTurnPlayer()==tp +end +function c51606429.negcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c51606429.negfilter(c) + return c:IsFaceup() and c:IsType(TYPE_TRAP) and not c:IsDisabled() +end +function c51606429.negtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c51606429.negfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c51606429.negfilter,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c51606429.negfilter,tp,0,LOCATION_ONFIELD,1,1,nil) +end +function c51606429.negop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() and not tc:IsDisabled() then + Duel.NegateRelatedChain(tc,RESET_TURN_SET) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetValue(RESET_TURN_SET) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + if tc:IsType(TYPE_TRAPMONSTER) then + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_DISABLE_TRAPMONSTER) + e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e3) + end + end +end diff --git a/script/c51632798.lua b/script/c51632798.lua index a01086a1..2c2a466e 100644 --- a/script/c51632798.lua +++ b/script/c51632798.lua @@ -28,7 +28,7 @@ function c51632798.ntop(e,tp,eg,ep,ev,re,r,rp,c) e1:SetValue(1400) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) e2:SetValue(1000) c:RegisterEffect(e2) end diff --git a/script/c51670553.lua b/script/c51670553.lua old mode 100755 new mode 100644 diff --git a/script/c51717541.lua b/script/c51717541.lua index 451123cd..2c0d1b04 100644 --- a/script/c51717541.lua +++ b/script/c51717541.lua @@ -20,14 +20,14 @@ function c51717541.filter(c) end function c51717541.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) and Duel.IsExistingTarget(c51717541.filter,tp,LOCATION_GRAVE,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) local g1=Duel.SelectTarget(tp,c51717541.filter,tp,LOCATION_GRAVE,0,1,1,nil) local rm=g1:GetFirst() Duel.SetOperationInfo(0,CATEGORY_REMOVE,rm,1,0,0) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g2=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) local ds=g2:GetFirst() Duel.SetOperationInfo(0,CATEGORY_DESTROY,ds,1,0,0) end diff --git a/script/c51728779.lua b/script/c51728779.lua new file mode 100644 index 00000000..c0ed5e39 --- /dev/null +++ b/script/c51728779.lua @@ -0,0 +1,94 @@ +--堕天使アムドゥシアス +function c51728779.initial_effect(c) + c:SetSPSummonOnce(51728779) + --to hand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(51728779,0)) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_HAND) + e1:SetCountLimit(1,51728779) + e1:SetCost(c51728779.thcost) + e1:SetTarget(c51728779.thtg) + e1:SetOperation(c51728779.thop) + c:RegisterEffect(e1) + --copy effect + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(51728779,1)) + e2:SetCategory(CATEGORY_TODECK) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetCountLimit(1,51728780) + e2:SetCost(c51728779.cpcost) + e2:SetTarget(c51728779.cptg) + e2:SetOperation(c51728779.cpop) + c:RegisterEffect(e2) +end +function c51728779.cfilter(c) + return c:IsSetCard(0xef) and c:IsDiscardable() +end +function c51728779.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() + and Duel.IsExistingMatchingCard(c51728779.cfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) + local g=Duel.SelectMatchingCard(tp,c51728779.cfilter,tp,LOCATION_HAND,0,1,1,e:GetHandler()) + g:AddCard(e:GetHandler()) + Duel.SendtoGrave(g,REASON_DISCARD+REASON_COST) +end +function c51728779.thfilter(c) + return c:IsSetCard(0xef) and c:IsAbleToHand() +end +function c51728779.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c51728779.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c51728779.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c51728779.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c51728779.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c51728779.cpcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,1000) end + Duel.PayLPCost(tp,1000) +end +function c51728779.cpfilter(c) + return c:IsSetCard(0xef) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck() and c:CheckActivateEffect(false,true,false)~=nil +end +function c51728779.cptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then + local te=e:GetLabelObject() + local tg=te:GetTarget() + return tg and tg(e,tp,eg,ep,ev,re,r,rp,0,chkc) + end + if chk==0 then return Duel.IsExistingTarget(c51728779.cpfilter,tp,LOCATION_GRAVE,0,1,nil) end + e:SetProperty(EFFECT_FLAG_CARD_TARGET) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + local g=Duel.SelectTarget(tp,c51728779.cpfilter,tp,LOCATION_GRAVE,0,1,1,nil) + local te,ceg,cep,cev,cre,cr,crp=g:GetFirst():CheckActivateEffect(false,true,true) + Duel.ClearTargetCard() + g:GetFirst():CreateEffectRelation(e) + local tg=te:GetTarget() + e:SetCategory(te:GetCategory()) + e:SetProperty(te:GetProperty()) + if tg then tg(e,tp,ceg,cep,cev,cre,cr,crp,1) end + te:SetLabelObject(e:GetLabelObject()) + e:SetLabelObject(te) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,0,0,0) +end +function c51728779.cpop(e,tp,eg,ep,ev,re,r,rp) + local te=e:GetLabelObject() + if not te then return end + if not te:GetHandler():IsRelateToEffect(e) then return end + e:SetLabelObject(te:GetLabelObject()) + local op=te:GetOperation() + if op then op(e,tp,eg,ep,ev,re,r,rp) end + Duel.BreakEffect() + Duel.SendtoDeck(te:GetHandler(),nil,2,REASON_EFFECT) +end diff --git a/script/c51777272.lua b/script/c51777272.lua new file mode 100644 index 00000000..322b18f7 --- /dev/null +++ b/script/c51777272.lua @@ -0,0 +1,72 @@ +--月光舞猫姫 +function c51777272.initial_effect(c) + --fusion material + aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0xdf),2,true) + c:EnableReviveLimit() + --battle indestructable + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetValue(1) + c:RegisterEffect(e1) + --Multiple attacks + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(51777272,0)) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCondition(c51777272.condition) + e2:SetCost(c51777272.cost) + e2:SetOperation(c51777272.operation) + c:RegisterEffect(e2) + --atk + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(51777272,1)) + e3:SetCategory(CATEGORY_DAMAGE) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetCode(EVENT_ATTACK_ANNOUNCE) + e3:SetTarget(c51777272.damtg) + e3:SetOperation(c51777272.damop) + c:RegisterEffect(e3) +end +function c51777272.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsAbleToEnterBP() +end +function c51777272.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,e:GetHandler(),0xdf) end + local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,e:GetHandler(),0xdf) + Duel.Release(g,REASON_COST) +end +function c51777272.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT) + e1:SetTargetRange(0,LOCATION_MZONE) + e1:SetValue(c51777272.indct) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + if c:IsRelateToEffect(e) then + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_ATTACK_ALL) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e2:SetValue(2) + c:RegisterEffect(e2) + end +end +function c51777272.indct(e,re,r,rp) + if bit.band(r,REASON_BATTLE)~=0 then + return 1 + else return 0 end +end +function c51777272.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(100) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,100) +end +function c51777272.damop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) +end diff --git a/script/c51814159.lua b/script/c51814159.lua index 95976ea4..5bc03dcd 100644 --- a/script/c51814159.lua +++ b/script/c51814159.lua @@ -1,48 +1,47 @@ ---RR－ネクロ・ヴァルチャー -function c51814159.initial_effect(c) - --tohand - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(51814159,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c51814159.thcost) - e1:SetTarget(c51814159.thtg) - e1:SetOperation(c51814159.thop) - c:RegisterEffect(e1) -end -function c51814159.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0xba) end - local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0xba) - Duel.Release(g,REASON_COST) -end -function c51814159.thfilter(c) - return c:IsSetCard(0x95) and c:IsType(TYPE_SPELL) and c:IsAbleToHand() -end -function c51814159.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c51814159.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c51814159.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c51814159.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c51814159.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetTarget(c51814159.splimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c51814159.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return bit.band(sumtype,SUMMON_TYPE_XYZ)==SUMMON_TYPE_XYZ and not se:GetHandler():IsSetCard(0x95) -end +--RR－ネクロ・ヴァルチャー +function c51814159.initial_effect(c) + --tohand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(51814159,0)) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCost(c51814159.thcost) + e1:SetTarget(c51814159.thtg) + e1:SetOperation(c51814159.thop) + c:RegisterEffect(e1) +end +function c51814159.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0xba) end + local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0xba) + Duel.Release(g,REASON_COST) +end +function c51814159.thfilter(c) + return c:IsSetCard(0x95) and c:IsType(TYPE_SPELL) and c:IsAbleToHand() +end +function c51814159.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c51814159.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c51814159.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c51814159.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c51814159.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetTarget(c51814159.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c51814159.splimit(e,c,sump,sumtype,sumpos,targetp,se) + return bit.band(sumtype,SUMMON_TYPE_XYZ)==SUMMON_TYPE_XYZ and not se:GetHandler():IsSetCard(0x95) +end diff --git a/script/c5183693.lua b/script/c5183693.lua index 81c597ee..f574221f 100644 --- a/script/c5183693.lua +++ b/script/c5183693.lua @@ -11,10 +11,10 @@ function c5183693.initial_effect(c) c:RegisterEffect(e1) --atk up local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) - e2:SetRange(LOCATION_SZONE) - e2:SetOperation(c5183693.atkup) + e2:SetType(EFFECT_TYPE_EQUIP) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetCondition(c5183693.atkcon) + e2:SetValue(c5183693.atkval) c:RegisterEffect(e2) --Equip limit local e3=Effect.CreateEffect(c) @@ -52,25 +52,15 @@ function c5183693.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Equip(tp,e:GetHandler(),tc) end end -function c5183693.atkup(e,tp,eg,ep,ev,re,r,rp) +function c5183693.atkcon(e) + if Duel.GetCurrentPhase()~=PHASE_DAMAGE_CAL then return false end local eqc=e:GetHandler():GetEquipTarget() - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if not d or (a~=eqc and d~=eqc) then return end - local la=a:GetLevel() - local ld=d:GetLevel() - if (a==eqc and ld<=la) or (d==eqc and la<=ld) then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - if a==eqc then - e1:SetValue((ld-la)*500) - a:RegisterEffect(e1) - else - e1:SetValue((la-ld)*500) - d:RegisterEffect(e1) - end + local bc=eqc:GetBattleTarget() + return eqc:GetLevel()>0 and bc and bc:GetLevel()>eqc:GetLevel() +end +function c5183693.atkval(e,c) + local bc=c:GetBattleTarget() + return (bc:GetLevel()-c:GetLevel())*500 end function c5183693.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToDeck() end diff --git a/script/c51852507.lua b/script/c51852507.lua index 8774c62c..396f6f44 100644 --- a/script/c51852507.lua +++ b/script/c51852507.lua @@ -4,7 +4,7 @@ function c51852507.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(51852507,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_HAND) diff --git a/script/c51858306.lua b/script/c51858306.lua old mode 100755 new mode 100644 index 4be55d86..2e6b36e1 --- a/script/c51858306.lua +++ b/script/c51858306.lua @@ -40,11 +40,6 @@ function c51858306.operation(e,tp,eg,ep,ev,re,r,rp) e:SetLabelObject(tc) e:GetHandler():RegisterFlagEffect(51858306,RESET_EVENT+0x1e60000,0,1) tc:RegisterFlagEffect(51858306,RESET_EVENT+0x1fe0000,0,1) - else - local cg=Duel.GetFieldGroup(tp,LOCATION_DECK,0) - Duel.ConfirmCards(1-tp,cg) - Duel.ConfirmCards(tp,cg) - Duel.ShuffleDeck(tp) end end function c51858306.thcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c51865604.lua b/script/c51865604.lua index a1f71494..7eb942d6 100644 --- a/script/c51865604.lua +++ b/script/c51865604.lua @@ -27,7 +27,7 @@ function c51865604.initial_effect(c) c:RegisterEffect(e2) end function c51865604.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) + return c:IsFaceup() and c:IsSetCard(0x107f) end function c51865604.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c51865604.cfilter,tp,LOCATION_MZONE,0,1,nil) @@ -47,7 +47,7 @@ function c51865604.spfilter(c,e,tp) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCanBeEffectTarget(e) end function c51865604.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE and eg:IsExists(c51865604.spfilter,1,nil,e,tp) + return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) and eg:IsExists(c51865604.spfilter,1,nil,e,tp) end function c51865604.spcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end diff --git a/script/c5186893.lua b/script/c5186893.lua index fcc4f7e5..0c06bb6c 100644 --- a/script/c5186893.lua +++ b/script/c5186893.lua @@ -43,14 +43,14 @@ function c5186893.spcon(e,tp,eg,ep,ev,re,r,rp) if c==tc then tc=Duel.GetAttackTarget() end e:SetLabelObject(tc) if not c:IsRelateToBattle() or c:IsFacedown() then return false end - return tc:GetLocation()==LOCATION_GRAVE and tc:IsRace(RACE_ZOMBIE) + return tc:IsLocation(LOCATION_GRAVE) and tc:IsRace(RACE_ZOMBIE) end function c5186893.sptg(e,tp,eg,ep,ev,re,r,rp,chk) local tc=e:GetLabelObject() if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) end tc:CreateEffectRelation(e) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tc,1,0,LOCATION_GRAVE) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tc,1,0,0) end function c5186893.spop(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetLabelObject() diff --git a/script/c51916032.lua b/script/c51916032.lua index 64689aef..8b3921dd 100644 --- a/script/c51916032.lua +++ b/script/c51916032.lua @@ -25,7 +25,7 @@ function c51916032.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c51916032.filter(c) - return c:IsSetCard(0xbc) and not c:IsCode(51916032) and c:IsAbleToHand() + return c:IsSetCard(0xbc) and not c:IsCode(51916032) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c51916032.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c51916032.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c51922742.lua b/script/c51922742.lua deleted file mode 100644 index 9f668d93..00000000 --- a/script/c51922742.lua +++ /dev/null @@ -1,90 +0,0 @@ ---急袭猛禽-革命猎鹰 -function c51922742.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_WINDBEAST),6,3) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(51922742,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c51922742.cost) - e1:SetOperation(c51922742.operation) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,LOCATION_MZONE) - e2:SetCode(EFFECT_SET_ATTACK_FINAL) - e2:SetCondition(c51922742.condtion) - e2:SetTarget(c51922742.target) - e2:SetValue(0) - c:RegisterEffect(e2) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,LOCATION_MZONE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetCondition(c51922742.condtion) - e2:SetTarget(c51922742.target) - e2:SetValue(0) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(51922742,1)) - e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c51922742.descon) - e3:SetTarget(c51922742.destg) - e3:SetOperation(c51922742.desop) - c:RegisterEffect(e3) -end -function c51922742.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c51922742.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_ATTACK_ALL) - e2:SetValue(1) - c:RegisterEffect(e2) -end -function c51922742.condtion(e) - local ph=Duel.GetCurrentPhase() - return (ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) and Duel.GetAttackTarget()~=nil - and (Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()) -end -function c51922742.target(e,c) - return c==e:GetHandler():GetBattleTarget() and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end - -function c51922742.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetOverlayGroup():IsExists(Card.IsSetCard,1,nil,0xba) -end -function c51922742.filter(c) - return c:IsDestructable() -end -function c51922742.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c51922742.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c51922742.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c51922742.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetFirst():GetAttack()) -end -function c51922742.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsControler(1-tp) then - local atk=tc:GetAttack()/2 - if atk<0 or tc:IsFacedown() then atk=0 end - if Duel.Destroy(tc,REASON_EFFECT)~=0 then - Duel.Damage(1-tp,atk,REASON_EFFECT) - end - end -end diff --git a/script/c51976476.lua b/script/c51976476.lua index 07cc6a67..42809f3e 100644 --- a/script/c51976476.lua +++ b/script/c51976476.lua @@ -10,7 +10,7 @@ function c51976476.initial_effect(c) c:RegisterEffect(e1) end function c51976476.filter(c,e,tp) - return c:GetSummonPlayer()==tp and c:IsDefencePos() and c:IsAbleToRemove() + return c:GetSummonPlayer()==tp and c:IsDefensePos() and c:IsAbleToRemove() and (not e or (c:IsRelateToEffect(e) and c:IsLocation(LOCATION_MZONE))) end function c51976476.target(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c51987571.lua b/script/c51987571.lua index 31e1d595..ae53aa00 100644 --- a/script/c51987571.lua +++ b/script/c51987571.lua @@ -27,6 +27,7 @@ function c51987571.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c51987571.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end if not Duel.IsPlayerCanSpecialSummonMonster(tp,51987572,0,0x4011,0,0,1,RACE_ROCK,ATTRIBUTE_EARTH) then return end for i=1,2 do diff --git a/script/c52031567.lua b/script/c52031567.lua old mode 100755 new mode 100644 diff --git a/script/c52035300.lua b/script/c52035300.lua old mode 100755 new mode 100644 diff --git a/script/c52038272.lua b/script/c52038272.lua index 81b9bc3f..4879f7fb 100644 --- a/script/c52038272.lua +++ b/script/c52038272.lua @@ -95,10 +95,10 @@ function c52038272.descost(e,tp,eg,ep,ev,re,r,rp,chk) c:RegisterEffect(e1) end function c52038272.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c52038272.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c52040216.lua b/script/c52040216.lua index 5bcd9281..5295bd97 100644 --- a/script/c52040216.lua +++ b/script/c52040216.lua @@ -9,7 +9,7 @@ function c52040216.initial_effect(c) e1:SetValue(c52040216.val) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end function c52040216.val(e,c) diff --git a/script/c52068432.lua b/script/c52068432.lua old mode 100755 new mode 100644 index 04255976..62d8f9cf --- a/script/c52068432.lua +++ b/script/c52068432.lua @@ -55,6 +55,9 @@ function c52068432.negtg(e,tp,eg,ep,ev,re,r,rp,chk) end function c52068432.negop(e,tp,eg,ep,ev,re,r,rp) Duel.NegateActivation(ev) + if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then + Duel.SendtoGrave(eg,REASON_EFFECT) + end end function c52068432.remcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_RITUAL diff --git a/script/c52085072.lua b/script/c52085072.lua index a0d3d75e..2404740e 100644 --- a/script/c52085072.lua +++ b/script/c52085072.lua @@ -54,7 +54,7 @@ function c52085072.antarget(e,c) return c~=e:GetHandler() end function c52085072.btcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE and not e:GetHandler():IsStatus(STATUS_CHAINING) + return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) and not e:GetHandler():IsStatus(STATUS_CHAINING) and (Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()) end function c52085072.btcfilter(c) diff --git a/script/c52097679.lua b/script/c52097679.lua old mode 100755 new mode 100644 index 3bf938a7..ce222888 --- a/script/c52097679.lua +++ b/script/c52097679.lua @@ -23,20 +23,11 @@ function c52097679.activate(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=sg:GetFirst() while tc do - local atk=tc:GetBaseAttack() - local def=tc:GetBaseDefence() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_BASE_ATTACK) + e1:SetCode(EFFECT_SWAP_BASE_AD) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(def) tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_BASE_DEFENCE) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetValue(atk) - tc:RegisterEffect(e2) tc=sg:GetNext() end end diff --git a/script/c52098461.lua b/script/c52098461.lua index 84ba4977..c37f8937 100644 --- a/script/c52098461.lua +++ b/script/c52098461.lua @@ -16,10 +16,10 @@ end function c52098461.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c52098461.filter(chkc) end if chk==0 then return Duel.IsExistingTarget(c52098461.filter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,e:GetHandler()) end + and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) local g=Duel.SelectTarget(tp,c52098461.filter,tp,LOCATION_MZONE,0,1,1,nil) - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) dg:RemoveCard(g:GetFirst()) Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,dg:GetCount(),0,0) @@ -29,7 +29,7 @@ function c52098461.activate(e,tp,eg,ep,ev,re,r,rp) if tc:IsRelateToEffect(e) and c52098461.filter(tc) and Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_DECK) then Duel.BreakEffect() - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) end end diff --git a/script/c52101615.lua b/script/c52101615.lua index b7115bc5..5f609e69 100644 --- a/script/c52101615.lua +++ b/script/c52101615.lua @@ -23,7 +23,7 @@ function c52101615.subcon(e) end function c52101615.filter(c,e,tp,m,gc) return c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_DARK) - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:CheckFusionMaterial(m,gc) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:CheckFusionMaterial(m,gc,PLAYER_NONE+0x100) end function c52101615.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:SetLabel(1) @@ -40,7 +40,7 @@ function c52101615.target(e,tp,eg,ep,ev,re,r,rp,chk) local mg=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_MZONE,0,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c52101615.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,mg,c) - local mat=Duel.SelectFusionMaterial(tp,g:GetFirst(),mg,c) + local mat=Duel.SelectFusionMaterial(tp,g:GetFirst(),mg,c,PLAYER_NONE+0x100) Duel.Release(mat,REASON_COST) e:SetLabel(g:GetFirst():GetCode()) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) diff --git a/script/c52105192.lua b/script/c52105192.lua index 336522ef..26ce0f8f 100644 --- a/script/c52105192.lua +++ b/script/c52105192.lua @@ -26,16 +26,16 @@ function c52105192.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.RegisterEffect(e2,tp) end function c52105192.filter(c) - return c:IsType(TYPE_EQUIP) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsType(TYPE_EQUIP) and c:IsAbleToHand() end function c52105192.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c52105192.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,0,1,0,LOCATION_DECK+LOCATION_GRAVE) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) end function c52105192.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c52105192.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end diff --git a/script/c52112003.lua b/script/c52112003.lua old mode 100755 new mode 100644 index 88dcc884..2308cf11 --- a/script/c52112003.lua +++ b/script/c52112003.lua @@ -22,5 +22,8 @@ function c52112003.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(0x1) e1:SetReset(RESET_PHASE+PHASE_END) Duel.RegisterEffect(e1,tp) + local e2=e1:Clone() + e2:SetCode(EFFECT_EXTRA_SET_COUNT) + Duel.RegisterEffect(e2,tp) Duel.RegisterFlagEffect(tp,52112003,RESET_PHASE+PHASE_END,0,1) end diff --git a/script/c52145422.lua b/script/c52145422.lua old mode 100755 new mode 100644 index 14ac025a..c582d284 --- a/script/c52145422.lua +++ b/script/c52145422.lua @@ -1,86 +1,86 @@ ---グレイドル・ドラゴン -function c52145422.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_AQUA),aux.NonTuner(nil),1) - c:EnableReviveLimit() - --destroy - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCountLimit(1,52145422) - e1:SetCondition(c52145422.descon) - e1:SetTarget(c52145422.destg) - e1:SetOperation(c52145422.desop) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_MATERIAL_CHECK) - e2:SetValue(c52145422.valcheck) - e2:SetLabelObject(e1) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCountLimit(1,52145423) - e3:SetCondition(c52145422.spcon) - e3:SetTarget(c52145422.sptg) - e3:SetOperation(c52145422.spop) - c:RegisterEffect(e3) -end -function c52145422.valcheck(e,c) - local ct=e:GetHandler():GetMaterial():FilterCount(Card.IsAttribute,nil,ATTRIBUTE_WATER) - e:GetLabelObject():SetLabel(ct) -end -function c52145422.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO -end -function c52145422.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - local ct=e:GetLabel() - if chk==0 then return ct>0 and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,ct,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c52145422.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end -end -function c52145422.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsReason(REASON_DESTROY) and e:GetHandler():IsReason(REASON_BATTLE+REASON_EFFECT) -end -function c52145422.filter(c,e,tp) - return c:IsAttribute(ATTRIBUTE_WATER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c52145422.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c52145422.filter(chkc,e,tp) and chkc~=e:GetHandler() end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c52145422.filter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c52145422.filter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler(),e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c52145422.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - Duel.SpecialSummonComplete() - end -end +--グレイドル・ドラゴン +function c52145422.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_AQUA),aux.NonTuner(nil),1) + c:EnableReviveLimit() + --destroy + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCountLimit(1,52145422) + e1:SetCondition(c52145422.descon) + e1:SetTarget(c52145422.destg) + e1:SetOperation(c52145422.desop) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_MATERIAL_CHECK) + e2:SetValue(c52145422.valcheck) + e2:SetLabelObject(e1) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetCountLimit(1,52145423) + e3:SetCondition(c52145422.spcon) + e3:SetTarget(c52145422.sptg) + e3:SetOperation(c52145422.spop) + c:RegisterEffect(e3) +end +function c52145422.valcheck(e,c) + local ct=e:GetHandler():GetMaterial():FilterCount(Card.IsAttribute,nil,ATTRIBUTE_WATER) + e:GetLabelObject():SetLabel(ct) +end +function c52145422.descon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO +end +function c52145422.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + local ct=e:GetLabel() + if chk==0 then return ct>0 and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,ct,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c52145422.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()>0 then + Duel.Destroy(g,REASON_EFFECT) + end +end +function c52145422.spcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsReason(REASON_DESTROY) and e:GetHandler():IsReason(REASON_BATTLE+REASON_EFFECT) +end +function c52145422.filter(c,e,tp) + return c:IsAttribute(ATTRIBUTE_WATER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c52145422.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c52145422.filter(chkc,e,tp) and chkc~=e:GetHandler() end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c52145422.filter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c52145422.filter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler(),e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c52145422.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2) + Duel.SpecialSummonComplete() + end +end diff --git a/script/c52158283.lua b/script/c52158283.lua index 165f60e8..8d5c9618 100644 --- a/script/c52158283.lua +++ b/script/c52158283.lua @@ -33,13 +33,13 @@ function c52158283.operation(e,tp,eg,ep,ev,re,r,rp) if tc:IsAttackPos() then local pos=0 if tc:IsCanTurnSet() then - pos=Duel.SelectPosition(tp,tc,POS_DEFENCE) + pos=Duel.SelectPosition(tp,tc,POS_DEFENSE) else - pos=Duel.SelectPosition(tp,tc,POS_FACEUP_DEFENCE) + pos=Duel.SelectPosition(tp,tc,POS_FACEUP_DEFENSE) end Duel.ChangePosition(tc,pos) else - Duel.ChangePosition(tc,0,0,POS_FACEDOWN_DEFENCE,POS_FACEUP_DEFENCE) + Duel.ChangePosition(tc,0,0,POS_FACEDOWN_DEFENSE,POS_FACEUP_DEFENSE) end end end diff --git a/script/c52176579.lua b/script/c52176579.lua new file mode 100644 index 00000000..bbc1de8a --- /dev/null +++ b/script/c52176579.lua @@ -0,0 +1,82 @@ +--クリストロン・エントリー +function c52176579.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c52176579.target) + e1:SetOperation(c52176579.activate) + c:RegisterEffect(e1) + --level + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(52176579,0)) + e2:SetCategory(CATEGORY_TOGRAVE) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,52176579) + e2:SetCondition(aux.exccon) + e2:SetCost(c52176579.lvcost) + e2:SetTarget(c52176579.lvtg) + e2:SetOperation(c52176579.lvop) + c:RegisterEffect(e2) +end +function c52176579.filter(c,e,tp) + return c:IsSetCard(0xea) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c52176579.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and Duel.IsExistingMatchingCard(c52176579.filter,tp,LOCATION_HAND,0,1,nil,e,tp) + and Duel.IsExistingMatchingCard(c52176579.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_GRAVE) +end +function c52176579.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end + local g1=Duel.GetMatchingGroup(c52176579.filter,tp,LOCATION_HAND,0,nil,e,tp) + local g2=Duel.GetMatchingGroup(c52176579.filter,tp,LOCATION_GRAVE,0,nil,e,tp) + if g1:GetCount()==0 or g2:GetCount()==0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg1=g1:Select(tp,1,1,nil) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg2=g2:Select(tp,1,1,nil) + sg1:Merge(sg2) + if sg1:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end + Duel.SpecialSummon(sg1,0,tp,tp,false,false,POS_FACEUP) +end +function c52176579.lvfilter(c,tp) + local lv=c:GetLevel() + return lv>0 and c:IsFaceup() and c:IsSetCard(0xea) and Duel.IsExistingMatchingCard(c52176579.tgfilter,tp,LOCATION_DECK,0,1,nil,lv) +end +function c52176579.tgfilter(c,lv) + return c:IsSetCard(0xea) and c:GetLevel()~=lv and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() +end +function c52176579.lvcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c52176579.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c52176579.lvfilter(chkc,tp) end + if chk==0 then return Duel.IsExistingTarget(c52176579.lvfilter,tp,LOCATION_MZONE,0,1,nil,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c52176579.lvfilter,tp,LOCATION_MZONE,0,1,1,nil,tp) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) +end +function c52176579.lvop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c52176579.tgfilter,tp,LOCATION_DECK,0,1,1,nil,tc) + if g:GetCount()>0 then + local gc=g:GetFirst() + if Duel.SendtoGrave(gc,REASON_EFFECT)~=0 and gc:IsLocation(LOCATION_GRAVE) and tc:IsRelateToEffect(e) and tc:IsFaceup() then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CHANGE_LEVEL) + e1:SetValue(gc:GetLevel()) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + end + end +end diff --git a/script/c52182715.lua b/script/c52182715.lua old mode 100755 new mode 100644 diff --git a/script/c52188962.lua b/script/c52188962.lua deleted file mode 100644 index 7aace65f..00000000 --- a/script/c52188962.lua +++ /dev/null @@ -1,70 +0,0 @@ ---ヴァンパイア帝国 -function c52188962.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Atk up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) - e2:SetRange(LOCATION_SZONE) - e2:SetOperation(c52188962.adval) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(52188962,0)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DESTROY) - e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c52188962.condtion) - e3:SetTarget(c52188962.target) - e3:SetOperation(c52188962.operation) - c:RegisterEffect(e3) -end -function c52188962.adval(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - c52188962.atkup(a,e:GetHandler()) - c52188962.atkup(d,e:GetHandler()) -end -function c52188962.atkup(c,oc) - if not c or not c:IsRace(RACE_ZOMBIE) then return end - local e1=Effect.CreateEffect(oc) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) - e1:SetValue(500) - c:RegisterEffect(e1) -end -function c52188962.cfilter(c,tp) - return c:IsPreviousLocation(LOCATION_DECK) and c:GetPreviousControler()==tp -end -function c52188962.condtion(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c52188962.cfilter,1,nil,1-tp) -end -function c52188962.filter(c,e,tp) - return c:IsSetCard(0x8d) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToGrave() -end -function c52188962.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c52188962.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) and Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_DECK) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g2,1,0,0) -end -function c52188962.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c52188962.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT) then - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end - end -end diff --git a/script/c5220687.lua b/script/c5220687.lua index 424b38ee..5c6bd4d1 100644 --- a/script/c5220687.lua +++ b/script/c5220687.lua @@ -24,7 +24,7 @@ function c5220687.operation(e,tp,eg,ep,ev,re,r,rp) if g:GetCount()>0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,1,1,nil) - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,sg) end end diff --git a/script/c52228131.lua b/script/c52228131.lua index c9039de5..2388e87d 100644 --- a/script/c52228131.lua +++ b/script/c52228131.lua @@ -27,6 +27,7 @@ function c52228131.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) local g=Duel.SelectMatchingCard(tp,c52228131.filter,tp,LOCATION_HAND,0,1,1,nil) if g:GetCount()==0 then return end + Duel.ConfirmCards(1-tp,g) Duel.SendtoDeck(g,nil,2,REASON_EFFECT) Duel.NegateActivation(ev) if re:GetHandler():IsRelateToEffect(re) then diff --git a/script/c52240819.lua b/script/c52240819.lua new file mode 100644 index 00000000..537dcc9b --- /dev/null +++ b/script/c52240819.lua @@ -0,0 +1,102 @@ +--魔界劇団－デビル・ヒール +function c52240819.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --atk down (p zone) + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(52240819,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetCost(c52240819.atkcost1) + e1:SetTarget(c52240819.atktg1) + e1:SetOperation(c52240819.atkop1) + c:RegisterEffect(e1) + --atk down (summon) + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetTarget(c52240819.atktg2) + e2:SetOperation(c52240819.atkop2) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) + --set + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_BATTLE_DESTROYING) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetCondition(aux.bdocon) + e4:SetTarget(c52240819.settg) + e4:SetOperation(c52240819.setop) + c:RegisterEffect(e4) +end +function c52240819.atkcost1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x10ec) end + local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x10ec) + e:SetLabel(g:GetFirst():GetBaseAttack()) + Duel.Release(g,REASON_COST) +end +function c52240819.atktg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end + if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) +end +function c52240819.atkop1(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(-e:GetLabel()) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + end +end +function c52240819.atkfilter(c) + return c:IsSetCard(0x10ec) and c:IsFaceup() +end +function c52240819.atktg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end + if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) + and Duel.IsExistingMatchingCard(c52240819.atkfilter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) +end +function c52240819.atkop2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local atkval=Duel.GetMatchingGroupCount(c52240819.atkfilter,tp,LOCATION_MZONE,0,nil)*1000 + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(-atkval) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + end +end +function c52240819.cfilter(c) + return c:IsSetCard(0x20ec) and c:IsType(TYPE_SPELL) and c:IsSSetable() +end +function c52240819.settg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c52240819.cfilter(chkc) end + if chk==0 then return Duel.IsExistingMatchingCard(c52240819.cfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) + local g=Duel.SelectTarget(tp,c52240819.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) +end +function c52240819.setop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsSSetable() then + Duel.SSet(tp,tc) + Duel.ConfirmCards(1-tp,tc) + end +end diff --git a/script/c52248570.lua b/script/c52248570.lua old mode 100755 new mode 100644 index 6227a3bb..c541012b --- a/script/c52248570.lua +++ b/script/c52248570.lua @@ -30,7 +30,7 @@ function c52248570.mtop(e,tp,eg,ep,ev,re,r,rp) if Duel.CheckLPCost(tp,1000) then Duel.PayLPCost(tp,1000) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end function c52248570.atkcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c52286175.lua b/script/c52286175.lua index c20e89fb..b99b3445 100644 --- a/script/c52286175.lua +++ b/script/c52286175.lua @@ -4,7 +4,7 @@ function c52286175.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(52286175,0)) e1:SetCategory(CATEGORY_DAMAGE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetCode(EVENT_CHAINING) e1:SetRange(LOCATION_MZONE) diff --git a/script/c52323207.lua b/script/c52323207.lua index ef00d850..0b7283ea 100644 --- a/script/c52323207.lua +++ b/script/c52323207.lua @@ -29,7 +29,7 @@ end function c52323207.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c52323207.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) diff --git a/script/c52323874.lua b/script/c52323874.lua old mode 100755 new mode 100644 diff --git a/script/c52339733.lua b/script/c52339733.lua index 1d7263ec..45287ad2 100644 --- a/script/c52339733.lua +++ b/script/c52339733.lua @@ -21,11 +21,11 @@ function c52339733.atkop(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(a:GetDefence()) + e1:SetValue(a:GetDefense()) e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) a:RegisterEffect(e1) local e2=e1:Clone() - e2:SetValue(d:GetDefence()) + e2:SetValue(d:GetDefense()) d:RegisterEffect(e2) end end diff --git a/script/c52346240.lua b/script/c52346240.lua index 588f4984..36910388 100644 --- a/script/c52346240.lua +++ b/script/c52346240.lua @@ -25,7 +25,7 @@ end function c52346240.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c52352005.lua b/script/c52352005.lua index d95c2067..82d0400d 100644 --- a/script/c52352005.lua +++ b/script/c52352005.lua @@ -13,6 +13,23 @@ function c52352005.initial_effect(c) e1:SetTarget(c52352005.target) e1:SetOperation(c52352005.operation) c:RegisterEffect(e1) + --double tuner check + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_MATERIAL_CHECK) + e2:SetValue(c52352005.valcheck) + c:RegisterEffect(e2) +end +function c52352005.valcheck(e,c) + local g=c:GetMaterial() + if g:IsExists(Card.IsType,2,nil,TYPE_TUNER) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(21142671) + e1:SetReset(RESET_EVENT+0xfe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + end end function c52352005.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x100d) end @@ -24,7 +41,7 @@ function c52352005.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,1-tp,1) end function c52352005.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0,nil) + local g=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0) local sg=g:RandomSelect(1-tp,1) Duel.SendtoGrave(sg,REASON_DISCARD+REASON_EFFECT) end diff --git a/script/c5237827.lua b/script/c5237827.lua old mode 100755 new mode 100644 diff --git a/script/c52418898.lua b/script/c52418898.lua deleted file mode 100644 index 44965c40..00000000 --- a/script/c52418898.lua +++ /dev/null @@ -1,73 +0,0 @@ ---Necromancy -function c52418898.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c52418898.target) - e1:SetOperation(c52418898.activate) - c:RegisterEffect(e1) -end -function c52418898.filter1(c,e,tp) -return c:IsType(TYPE_MONSTER) -end -function c52418898.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==1-tp - and chkc:IsCanBeSpecialSummoned(e,0,tp,false,false) end - if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp)>0 and Duel.IsExistingTarget(c52418898.filter1,tp,0,LOCATION_GRAVE,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,nil,1,tp,0) - end - function c52418898.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local gct=Duel.GetMatchingGroupCount(Card.IsType,tp,0,LOCATION_GRAVE,nil,TYPE_MONSTER) - if gct>=4 then - local g=Duel.GetMatchingGroup(c52418898.filter1,tp,0,LOCATION_GRAVE,nil):RandomSelect(tp,4) - local tc=g:GetFirst() - while tc do - Duel.SpecialSummonStep(tc,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) - tc:RegisterFlagEffect(52418898,RESET_EVENT+0x17a0000,0,1) - tc=g:GetNext() - end - Duel.SpecialSummonComplete() - else - local g=Duel.GetMatchingGroup(c52418898.filter1,tp,0,LOCATION_GRAVE,nil):RandomSelect(tp,gct) - local tc=g:GetFirst() - while tc do - Duel.SpecialSummonStep(tc,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) - tc:RegisterFlagEffect(52418898,RESET_EVENT+0x17a0000,0,1) - tc=g:GetNext() - end - Duel.SpecialSummonComplete() - end - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetCondition(c52418898.drcon) - e2:SetOperation(c52418898.operation) - Duel.RegisterEffect(e2,tp) -end -function c52418898.drfilter(c,tp) - return c:GetFlagEffect(52418898)~=0 and c:GetOwner()==tp and c:IsReason(REASON_DESTROY) -end -function c52418898.drcon(e,tp,eg,ep,ev,re,r,rp) -return eg:IsExists(c52418898.drfilter,1,nil,1-tp) -end -function c52418898.operation(e,tp,eg,ep,ev,re,r,rp) -local ct=eg:GetCount(c52418898.drfilter,nil,tp) -local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) -if g:GetCount()==0 then return end -local sc=g:GetFirst() -while sc do -local e3=Effect.CreateEffect(e:GetHandler()) -e3:SetType(EFFECT_TYPE_SINGLE) -e3:SetCode(EFFECT_UPDATE_ATTACK) -e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) -e3:SetValue(-(ct*600)) -sc:RegisterEffect(e3) -sc=g:GetNext() - end -end \ No newline at end of file diff --git a/script/c5244497.lua b/script/c5244497.lua index 8837c63c..ab54f80c 100644 --- a/script/c5244497.lua +++ b/script/c5244497.lua @@ -13,7 +13,7 @@ function c5244497.initial_effect(c) end function c5244497.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsFaceup() and d:GetDefence()>e:GetHandler():GetAttack() + return e:GetHandler()==Duel.GetAttacker() and d and d:IsFaceup() and d:GetDefense()>e:GetHandler():GetAttack() end function c5244497.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -21,7 +21,7 @@ function c5244497.destg(e,tp,eg,ep,ev,re,r,rp,chk) end function c5244497.desop(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - if d:IsRelateToBattle() and d:GetDefence()>e:GetHandler():GetAttack() then + if d:IsRelateToBattle() and d:GetDefense()>e:GetHandler():GetAttack() then Duel.Destroy(d,REASON_EFFECT) end end diff --git a/script/c52503575.lua b/script/c52503575.lua old mode 100755 new mode 100644 diff --git a/script/c525110.lua b/script/c525110.lua index 5392596f..3ccc0b01 100644 --- a/script/c525110.lua +++ b/script/c525110.lua @@ -26,6 +26,7 @@ function c525110.operation(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end if ft>=2 then ft=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c525110.filter,tp,LOCATION_DECK,0,1,ft,nil,e,tp) if g:GetCount()>0 then diff --git a/script/c52518793.lua b/script/c52518793.lua index 89a926e0..e5c9e7d5 100644 --- a/script/c52518793.lua +++ b/script/c52518793.lua @@ -1,5 +1,6 @@ --剣闘獣の檻－コロッセウム function c52518793.initial_effect(c) + c:EnableCounterPermit(0x7) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -24,7 +25,7 @@ function c52518793.initial_effect(c) e3:SetValue(c52518793.atkval) c:RegisterEffect(e3) local e4=e3:Clone() - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e4) --Destroy replace local e5=Effect.CreateEffect(c) @@ -46,7 +47,7 @@ function c52518793.accon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c52518793.cfilter,1,nil,tp) end function c52518793.acop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x7+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x7,1) end function c52518793.desreptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return not e:GetHandler():IsReason(REASON_RULE) diff --git a/script/c5255013.lua b/script/c5255013.lua index 991bcd93..d9a7aa81 100644 --- a/script/c5255013.lua +++ b/script/c5255013.lua @@ -24,7 +24,7 @@ function c5255013.initial_effect(c) e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e3:SetRange(LOCATION_SZONE) e3:SetCondition(c5255013.tgcon) - e3:SetValue(aux.tgval) + e3:SetValue(1) c:RegisterEffect(e3) --self destroy local e4=Effect.CreateEffect(c) diff --git a/script/c52551211.lua b/script/c52551211.lua old mode 100755 new mode 100644 index 20282a0d..ce111785 --- a/script/c52551211.lua +++ b/script/c52551211.lua @@ -1,61 +1,60 @@ ---シャドール・ハウンド -function c52551211.initial_effect(c) - --tohand - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(52551211,0)) - e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetCountLimit(1,52551211) - e1:SetTarget(c52551211.thtg) - e1:SetOperation(c52551211.thop) - c:RegisterEffect(e1) - --pos - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(52551211,1)) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e2:SetCountLimit(1,52551211) - e2:SetCondition(c52551211.poscon) - e2:SetTarget(c52551211.postg) - e2:SetOperation(c52551211.posop) - c:RegisterEffect(e2) -end -function c52551211.filter(c) - return c:IsSetCard(0x9d) and c:IsAbleToHand() -end -function c52551211.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c52551211.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c52551211.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c52551211.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c52551211.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end -function c52551211.poscon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsReason(REASON_EFFECT) -end -function c52551211.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) end - if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) - local g=Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c52551211.posop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - if tc:IsSetCard(0x9d) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) - else - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,true) - end -end +--シャドール・ハウンド +function c52551211.initial_effect(c) + --tohand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(52551211,0)) + e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e1:SetCountLimit(1,52551211) + e1:SetTarget(c52551211.thtg) + e1:SetOperation(c52551211.thop) + c:RegisterEffect(e1) + --pos + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(52551211,1)) + e2:SetCategory(CATEGORY_POSITION) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e2:SetCountLimit(1,52551211) + e2:SetCondition(c52551211.poscon) + e2:SetTarget(c52551211.postg) + e2:SetOperation(c52551211.posop) + c:RegisterEffect(e2) +end +function c52551211.filter(c) + return c:IsSetCard(0x9d) and c:IsAbleToHand() +end +function c52551211.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c52551211.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c52551211.filter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c52551211.filter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c52551211.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c52551211.poscon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsReason(REASON_EFFECT) +end +function c52551211.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) + local g=Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) +end +function c52551211.posop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if not tc:IsRelateToEffect(e) then return end + if tc:IsSetCard(0x9d) then + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + else + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,true) + end +end diff --git a/script/c52575195.lua b/script/c52575195.lua index bf1b4c55..407e2c1b 100644 --- a/script/c52575195.lua +++ b/script/c52575195.lua @@ -67,8 +67,11 @@ function c52575195.tgop(e,tp,eg,ep,ev,re,r,rp) e1:SetCondition(c52575195.retcon) e1:SetOperation(c52575195.retop) tc:RegisterEffect(e1) - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end end diff --git a/script/c5257687.lua b/script/c5257687.lua index b534e8c5..6e52f7b9 100644 --- a/script/c5257687.lua +++ b/script/c5257687.lua @@ -20,14 +20,12 @@ end function c5257687.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then - if Duel.GetControl(tc,tp,PHASE_END,1) then + if Duel.GetControl(tc,tp,PHASE_END,1)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DIRECT_ATTACK) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) - elseif not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) end end end diff --git a/script/c52601736.lua b/script/c52601736.lua index 0ec1ee69..eadb9cf3 100644 --- a/script/c52601736.lua +++ b/script/c52601736.lua @@ -27,7 +27,7 @@ function c52601736.initial_effect(c) c:RegisterEffect(e3) end function c52601736.filter(c) - return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsForbidden() end function c52601736.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 @@ -41,7 +41,7 @@ function c52601736.eqop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectMatchingCard(tp,c52601736.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil) local tc=g:GetFirst() - if tc then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then if not Duel.Equip(tp,tc,c,true) then return end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c52628687.lua b/script/c52628687.lua old mode 100755 new mode 100644 diff --git a/script/c52648457.lua b/script/c52648457.lua index ce9e4f86..a75dacf8 100644 --- a/script/c52648457.lua +++ b/script/c52648457.lua @@ -19,5 +19,5 @@ function c52648457.activate(e,tp,eg,ep,ev,re,r,rp) Duel.RegisterEffect(e1,tp) end function c52648457.distg(e,c) - return c:IsDefencePos() + return c:IsDefensePos() end diff --git a/script/c52653092.lua b/script/c52653092.lua index 07ed105e..8389f0aa 100644 --- a/script/c52653092.lua +++ b/script/c52653092.lua @@ -34,7 +34,7 @@ function c52653092.initial_effect(c) e4:SetValue(c52653092.atkval) c:RegisterEffect(e4) local e5=e4:Clone() - e5:SetCode(EFFECT_UPDATE_DEFENCE) + e5:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e5) --activate limit local e6=Effect.CreateEffect(c) @@ -54,7 +54,7 @@ function c52653092.cfilter(c) return c:IsSetCard(0x95) and c:GetType()==TYPE_SPELL and c:IsDiscardable() end function c52653092.ovfilter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) + return c:IsFaceup() and c:IsSetCard(0x107f) end function c52653092.mfilter(c,xyzc) return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsSetCard(0x48) and c:IsCanBeXyzMaterial(xyzc) @@ -65,30 +65,62 @@ end function c52653092.xyzfilter2(c,rk) return c:GetRank()==rk end -function c52653092.xyzcon(e,c,og) +function c52653092.xyzcon(e,c,og,min,max) if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) local ct=-ft if 3<=ct then return false end - if ct<1 and Duel.IsExistingMatchingCard(aux.XyzAlterFilter,tp,LOCATION_MZONE,0,1,nil,c52653092.ovfilter,c) + if min and (min>3 or max<3) then return false end + local altmg=nil + if og then + altmg=og + else + altmg=Duel.GetFieldGroup(tp,LOCATION_MZONE,0) + end + if ct<1 and (not min or min<=1) and altmg:IsExists(aux.XyzAlterFilter,1,nil,c52653092.ovfilter,c) and Duel.IsExistingMatchingCard(c52653092.cfilter,tp,LOCATION_HAND,0,1,nil) then return true end - local mg=Duel.GetMatchingGroup(c52653092.mfilter,tp,LOCATION_MZONE,0,nil,c) + local mg=nil + if og then + mg=og:Filter(c52653092.mfilter,nil,c) + else + mg=Duel.GetMatchingGroup(c52653092.mfilter,tp,LOCATION_MZONE,0,nil,c) + end return mg:IsExists(c52653092.xyzfilter1,1,nil,mg) end -function c52653092.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og) +function c52653092.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og,min,max) + if og and not min then + local sg=Group.CreateGroup() + local tc=og:GetFirst() + while tc do + sg:Merge(tc:GetOverlayGroup()) + tc=og:GetNext() + end + Duel.SendtoGrave(sg,REASON_RULE) + c:SetMaterial(og) + Duel.Overlay(c,og) + return + end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) local ct=-ft - local mg=Duel.GetMatchingGroup(c52653092.mfilter,tp,LOCATION_MZONE,0,nil,c) + local mg=nil + local altmg=nil + if og then + mg=og:Filter(c52653092.mfilter,nil,c) + altmg=og + else + mg=Duel.GetMatchingGroup(c52653092.mfilter,tp,LOCATION_MZONE,0,nil,c) + altmg=Duel.GetFieldGroup(tp,LOCATION_MZONE,0) + end local b1=mg:IsExists(c52653092.xyzfilter1,1,nil,mg) - local b2=ct<1 and Duel.IsExistingMatchingCard(aux.XyzAlterFilter,tp,LOCATION_MZONE,0,1,nil,c52653092.ovfilter,c) + local b2=ct<1 and (not min or min<=1) and altmg:IsExists(aux.XyzAlterFilter,1,nil,c52653092.ovfilter,c) and Duel.IsExistingMatchingCard(c52653092.cfilter,tp,LOCATION_HAND,0,1,nil) if b2 and (not b1 or Duel.SelectYesNo(tp,aux.Stringid(52653092,0))) then Duel.DiscardHand(tp,c52653092.cfilter,1,1,REASON_COST+REASON_DISCARD,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local g=Duel.SelectMatchingCard(tp,aux.XyzAlterFilter,tp,LOCATION_MZONE,0,1,1,nil,c52653092.ovfilter,c) + local g=altmg:FilterSelect(tp,aux.XyzAlterFilter,1,1,nil,c52653092.ovfilter,c) local g2=g:GetFirst():GetOverlayGroup() if g2:GetCount()~=0 then Duel.Overlay(c,g2) @@ -140,7 +172,10 @@ function c52653092.actop(e,tp,eg,ep,ev,re,r,rp) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetCode(EFFECT_CANNOT_ACTIVATE) e1:SetTargetRange(0,1) - e1:SetValue(aux.TRUE) + e1:SetValue(c52653092.actlimit) e1:SetReset(RESET_PHASE+PHASE_END) Duel.RegisterEffect(e1,tp) end +function c52653092.actlimit(e,re,tp) + return not re:GetHandler():IsImmuneToEffect(e) +end diff --git a/script/c52665542.lua b/script/c52665542.lua index 90b57ed0..ea1c395f 100644 --- a/script/c52665542.lua +++ b/script/c52665542.lua @@ -1,97 +1,97 @@ ---ライトロードの神域 -function c52665542.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --to hand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(52665542,0)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c52665542.cost) - e2:SetTarget(c52665542.target) - e2:SetOperation(c52665542.operation) - c:RegisterEffect(e2) - --add counter - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetRange(LOCATION_SZONE) - e3:SetProperty(EFFECT_FLAG_DELAY) - e3:SetCondition(c52665542.accon) - e3:SetOperation(c52665542.acop) - c:RegisterEffect(e3) - --destroy replace - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_DESTROY_REPLACE) - e4:SetRange(LOCATION_SZONE) - e4:SetTarget(c52665542.destg) - e4:SetValue(c52665542.value) - e4:SetOperation(c52665542.desop) - c:RegisterEffect(e4) -end -function c52665542.costfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x38) and c:IsAbleToGraveAsCost() -end -function c52665542.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c52665542.costfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end - local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local sg=g:FilterSelect(tp,c52665542.costfilter,1,1,nil) - e:SetLabelObject(sg:GetFirst()) - Duel.SendtoGrave(sg,REASON_COST) -end -function c52665542.tgfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x38) and c:IsAbleToHand() -end -function c52665542.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local cc=e:GetLabelObject() - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c52665542.tgfilter(chkc) and chkc~=cc end - if chk==0 then return Duel.IsExistingTarget(c52665542.tgfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local sg=Duel.SelectTarget(tp,c52665542.tgfilter,tp,LOCATION_GRAVE,0,1,1,cc) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,1,0,0) -end -function c52665542.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end -function c52665542.cfilter(c,tp) - return c:IsPreviousLocation(LOCATION_DECK) and c:GetPreviousControler()==tp -end -function c52665542.accon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c52665542.cfilter,1,nil,tp) -end -function c52665542.acop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x5+COUNTER_NEED_ENABLE,1) -end -function c52665542.dfilter(c,tp) - return c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD) - and c:IsSetCard(0x38) and c:IsControler(tp) and c:IsReason(REASON_EFFECT) -end -function c52665542.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local count=eg:FilterCount(c52665542.dfilter,nil,tp) - e:SetLabel(count) - return count>0 and Duel.IsCanRemoveCounter(tp,1,0,0x5,count*2,REASON_EFFECT) - end - return Duel.SelectYesNo(tp,aux.Stringid(52665542,1)) -end -function c52665542.value(e,c) - return c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD) - and c:IsSetCard(0x38) and c:IsControler(e:GetHandlerPlayer()) and c:IsReason(REASON_EFFECT) -end -function c52665542.desop(e,tp,eg,ep,ev,re,r,rp) - local count=e:GetLabel() - Duel.RemoveCounter(tp,1,0,0x5,count*2,REASON_EFFECT) -end +--ライトロードの神域 +function c52665542.initial_effect(c) + c:EnableCounterPermit(0x5) + --activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(52665542,0)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1) + e2:SetRange(LOCATION_SZONE) + e2:SetCost(c52665542.cost) + e2:SetTarget(c52665542.target) + e2:SetOperation(c52665542.operation) + c:RegisterEffect(e2) + --add counter + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetRange(LOCATION_SZONE) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetCondition(c52665542.accon) + e3:SetOperation(c52665542.acop) + c:RegisterEffect(e3) + --destroy replace + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_DESTROY_REPLACE) + e4:SetRange(LOCATION_SZONE) + e4:SetTarget(c52665542.destg) + e4:SetValue(c52665542.value) + e4:SetOperation(c52665542.desop) + c:RegisterEffect(e4) +end +function c52665542.costfilter(c) + return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x38) and c:IsAbleToGraveAsCost() +end +function c52665542.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c52665542.costfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end + local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local sg=g:FilterSelect(tp,c52665542.costfilter,1,1,nil) + e:SetLabelObject(sg:GetFirst()) + Duel.SendtoGrave(sg,REASON_COST) +end +function c52665542.tgfilter(c) + return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x38) and c:IsAbleToHand() +end +function c52665542.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local cc=e:GetLabelObject() + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c52665542.tgfilter(chkc) and chkc~=cc end + if chk==0 then return Duel.IsExistingTarget(c52665542.tgfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local sg=Duel.SelectTarget(tp,c52665542.tgfilter,tp,LOCATION_GRAVE,0,1,1,cc) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,1,0,0) +end +function c52665542.operation(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c52665542.cfilter(c,tp) + return c:IsPreviousLocation(LOCATION_DECK) and c:GetPreviousControler()==tp +end +function c52665542.accon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c52665542.cfilter,1,nil,tp) +end +function c52665542.acop(e,tp,eg,ep,ev,re,r,rp) + e:GetHandler():AddCounter(0x5,1) +end +function c52665542.dfilter(c,tp) + return c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD) + and c:IsSetCard(0x38) and c:IsControler(tp) and c:IsReason(REASON_EFFECT) +end +function c52665542.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local count=eg:FilterCount(c52665542.dfilter,nil,tp) + e:SetLabel(count) + return count>0 and Duel.IsCanRemoveCounter(tp,1,0,0x5,count*2,REASON_EFFECT) + end + return Duel.SelectYesNo(tp,aux.Stringid(52665542,1)) +end +function c52665542.value(e,c) + return c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD) + and c:IsSetCard(0x38) and c:IsControler(e:GetHandlerPlayer()) and c:IsReason(REASON_EFFECT) +end +function c52665542.desop(e,tp,eg,ep,ev,re,r,rp) + local count=e:GetLabel() + Duel.RemoveCounter(tp,1,0,0x5,count*2,REASON_EFFECT) +end diff --git a/script/c52702748.lua b/script/c52702748.lua index efcdf435..3bd88e4f 100644 --- a/script/c52702748.lua +++ b/script/c52702748.lua @@ -29,9 +29,7 @@ end function c52702748.ctlop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if not c:IsRelateToEffect(e) or c:IsFacedown() then return end - if not Duel.GetControl(c,1-tp) and not c:IsImmuneToEffect(e) and c:IsAbleToChangeControler() then - Duel.Destroy(c,REASON_EFFECT) - end + Duel.GetControl(c,1-tp) end function c52702748.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and chkc:IsAbleToRemove(1-tp) end diff --git a/script/c52709508.lua b/script/c52709508.lua index 01a761f8..6845d08b 100644 --- a/script/c52709508.lua +++ b/script/c52709508.lua @@ -45,6 +45,7 @@ function c52709508.regop(e,tp,eg,ep,ev,re,r,rp) e1:SetOperation(c52709508.atkop) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) + c:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(52709508,2)) end if bit.band(att,ATTRIBUTE_FIRE)~=0 then local e1=Effect.CreateEffect(c) @@ -58,6 +59,7 @@ function c52709508.regop(e,tp,eg,ep,ev,re,r,rp) e1:SetOperation(c52709508.damop) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) + c:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(52709508,3)) end if bit.band(att,ATTRIBUTE_LIGHT)~=0 then local e1=Effect.CreateEffect(c) @@ -71,6 +73,7 @@ function c52709508.regop(e,tp,eg,ep,ev,re,r,rp) e1:SetOperation(c52709508.spop) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) + c:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(52709508,4)) end end function c52709508.atkop(e,tp,eg,ep,ev,re,r,rp) @@ -104,7 +107,7 @@ function c52709508.damop(e,tp,eg,ep,ev,re,r,rp) Duel.Damage(p,d,REASON_EFFECT) end function c52709508.spfilter(c,e,tp) - return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENCE) + return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) end function c52709508.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c52709508.spfilter(chkc,e,tp) end @@ -117,7 +120,7 @@ end function c52709508.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c52768103.lua b/script/c52768103.lua index 241c61a6..8e8233fd 100644 --- a/script/c52768103.lua +++ b/script/c52768103.lua @@ -1,4 +1,4 @@ ---ＫＡ－２ デス・シザース +--KA－２ デス・シザース function c52768103.initial_effect(c) --damage local e1=Effect.CreateEffect(c) diff --git a/script/c52823314.lua b/script/c52823314.lua old mode 100755 new mode 100644 diff --git a/script/c52840267.lua b/script/c52840267.lua new file mode 100644 index 00000000..94ea6217 --- /dev/null +++ b/script/c52840267.lua @@ -0,0 +1,88 @@ +--堕天使イシュタム +function c52840267.initial_effect(c) + c:SetSPSummonOnce(52840267) + --cannot spsummon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(52840267,1)) + e1:SetCategory(CATEGORY_DRAW) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetRange(LOCATION_HAND) + e1:SetCountLimit(1,52840267) + e1:SetCost(c52840267.drcost) + e1:SetTarget(c52840267.drtg) + e1:SetOperation(c52840267.drop) + c:RegisterEffect(e1) + --copy effect + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(52840267,1)) + e2:SetCategory(CATEGORY_TODECK) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetCountLimit(1,52840268) + e2:SetCost(c52840267.cpcost) + e2:SetTarget(c52840267.cptg) + e2:SetOperation(c52840267.cpop) + c:RegisterEffect(e2) +end +function c52840267.cfilter(c) + return c:IsSetCard(0xef) and c:IsDiscardable() +end +function c52840267.drcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() + and Duel.IsExistingMatchingCard(c52840267.cfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) + local g=Duel.SelectMatchingCard(tp,c52840267.cfilter,tp,LOCATION_HAND,0,1,1,e:GetHandler()) + g:AddCard(e:GetHandler()) + Duel.SendtoGrave(g,REASON_DISCARD+REASON_COST) +end +function c52840267.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(2) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) +end +function c52840267.drop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end +function c52840267.cpcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,1000) end + Duel.PayLPCost(tp,1000) +end +function c52840267.cpfilter(c) + return c:IsSetCard(0xef) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck() and c:CheckActivateEffect(false,true,false)~=nil +end +function c52840267.cptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then + local te=e:GetLabelObject() + local tg=te:GetTarget() + return tg and tg(e,tp,eg,ep,ev,re,r,rp,0,chkc) + end + if chk==0 then return Duel.IsExistingTarget(c52840267.cpfilter,tp,LOCATION_GRAVE,0,1,nil) end + e:SetProperty(EFFECT_FLAG_CARD_TARGET) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + local g=Duel.SelectTarget(tp,c52840267.cpfilter,tp,LOCATION_GRAVE,0,1,1,nil) + local te,ceg,cep,cev,cre,cr,crp=g:GetFirst():CheckActivateEffect(false,true,true) + Duel.ClearTargetCard() + g:GetFirst():CreateEffectRelation(e) + local tg=te:GetTarget() + e:SetCategory(te:GetCategory()) + e:SetProperty(te:GetProperty()) + if tg then tg(e,tp,ceg,cep,cev,cre,cr,crp,1) end + te:SetLabelObject(e:GetLabelObject()) + e:SetLabelObject(te) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,0,0,0) +end +function c52840267.cpop(e,tp,eg,ep,ev,re,r,rp) + local te=e:GetLabelObject() + if not te then return end + if not te:GetHandler():IsRelateToEffect(e) then return end + e:SetLabelObject(te:GetLabelObject()) + local op=te:GetOperation() + if op then op(e,tp,eg,ep,ev,re,r,rp) end + Duel.BreakEffect() + Duel.SendtoDeck(te:GetHandler(),nil,2,REASON_EFFECT) +end diff --git a/script/c52846880.lua b/script/c52846880.lua old mode 100755 new mode 100644 diff --git a/script/c52860176.lua b/script/c52860176.lua index a53b923c..41e7f0a3 100644 --- a/script/c52860176.lua +++ b/script/c52860176.lua @@ -24,13 +24,6 @@ function c52860176.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_CONTROL,nil,1,1-tp,LOCATION_MZONE) end function c52860176.operation(e,tp,eg,ep,ev,re,r,rp) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectMatchingCard(tp,c52860176.filter,tp,0,LOCATION_MZONE,ft,ft,nil) - local tc=g:GetFirst() - while tc do - Duel.GetControl(tc,tp) - tc=g:GetNext() - end + local g=Duel.GetMatchingGroup(c52860176.filter,tp,0,LOCATION_MZONE,nil) + Duel.GetControl(g,tp) end diff --git a/script/c52869807.lua b/script/c52869807.lua index 03dd48ca..b0a7a872 100644 --- a/script/c52869807.lua +++ b/script/c52869807.lua @@ -10,10 +10,13 @@ function c52869807.initial_effect(c) c:RegisterEffect(e1) --atk down local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) e2:SetRange(LOCATION_MZONE) - e2:SetOperation(c52869807.atkup) + e2:SetTargetRange(0,LOCATION_MZONE) + e2:SetCondition(c52869807.atkcon) + e2:SetTarget(c52869807.atktg) + e2:SetValue(-300) c:RegisterEffect(e2) end function c52869807.spcon(e,c) @@ -21,14 +24,13 @@ function c52869807.spcon(e,c) return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_ONFIELD,0)==0 end -function c52869807.atkup(e,tp,eg,ep,ev,re,r,rp,chk) - local a=Duel.GetAttacker() +function c52869807.atkcon(e) + local ph=Duel.GetCurrentPhase() local d=Duel.GetAttackTarget() - if not d or not d:IsSetCard(0x33) or d:IsControler(1-tp) then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(-300) - a:RegisterEffect(e1) + local tp=e:GetHandlerPlayer() + return (ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) + and d and d:IsControler(tp) and d:IsSetCard(0x33) +end +function c52869807.atktg(e,c) + return c==Duel.GetAttacker() end diff --git a/script/c52875873.lua b/script/c52875873.lua index 237240cd..ba7f0d16 100644 --- a/script/c52875873.lua +++ b/script/c52875873.lua @@ -1,58 +1,58 @@ ---エヴォリューション・バースト -function c52875873.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c52875873.condition) - e1:SetCost(c52875873.cost) - e1:SetTarget(c52875873.target) - e1:SetOperation(c52875873.activate) - c:RegisterEffect(e1) - if not c52875873.global_check then - c52875873.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_ATTACK_ANNOUNCE) - ge1:SetOperation(c52875873.checkop) - Duel.RegisterEffect(ge1,0) - end -end -function c52875873.checkop(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - if tc:IsCode(70095154) then - Duel.RegisterFlagEffect(tc:GetControler(),52875873,RESET_PHASE+PHASE_END,0,1) - end -end -function c52875873.cfilter(c) - return c:IsFaceup() and c:IsCode(70095154) -end -function c52875873.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c52875873.cfilter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c52875873.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,52875873)==0 end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetProperty(EFFECT_FLAG_OATH) - e1:SetTarget(aux.TargetBoolFunction(Card.IsCode,70095154)) - e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c52875873.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c52875873.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--エヴォリューション・バースト +function c52875873.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCondition(c52875873.condition) + e1:SetCost(c52875873.cost) + e1:SetTarget(c52875873.target) + e1:SetOperation(c52875873.activate) + c:RegisterEffect(e1) + if not c52875873.global_check then + c52875873.global_check=true + local ge1=Effect.CreateEffect(c) + ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge1:SetCode(EVENT_ATTACK_ANNOUNCE) + ge1:SetOperation(c52875873.checkop) + Duel.RegisterEffect(ge1,0) + end +end +function c52875873.checkop(e,tp,eg,ep,ev,re,r,rp) + local tc=eg:GetFirst() + if tc:IsCode(70095154) then + Duel.RegisterFlagEffect(tc:GetControler(),52875873,RESET_PHASE+PHASE_END,0,1) + end +end +function c52875873.cfilter(c) + return c:IsFaceup() and c:IsCode(70095154) +end +function c52875873.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c52875873.cfilter,tp,LOCATION_ONFIELD,0,1,nil) +end +function c52875873.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFlagEffect(tp,52875873)==0 end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) + e1:SetProperty(EFFECT_FLAG_OATH) + e1:SetTarget(aux.TargetBoolFunction(Card.IsCode,70095154)) + e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c52875873.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c52875873.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c5288597.lua b/script/c5288597.lua index ca835676..5b591540 100644 --- a/script/c5288597.lua +++ b/script/c5288597.lua @@ -1,54 +1,57 @@ ---トランスターン -function c5288597.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetLabel(0) - e1:SetCountLimit(1,5288597) - e1:SetCost(c5288597.cost) - e1:SetTarget(c5288597.target) - e1:SetOperation(c5288597.activate) - c:RegisterEffect(e1) -end -function c5288597.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(100) - if chk==0 then return true end -end -function c5288597.cfilter(c,e,tp) - local lv=c:GetOriginalLevel() - local rc=nil - if Duel.IsEnvironment(4064256) then rc=RACE_ZOMBIE - else rc=c:GetOriginalRace() end - return bit.band(c:GetOriginalType(),TYPE_MONSTER)~=0 and lv>0 and c:IsFaceup() and c:IsAbleToGraveAsCost() - and Duel.IsExistingMatchingCard(c5288597.spfilter,tp,LOCATION_DECK,0,1,nil,lv+1,rc,c:GetOriginalAttribute(),e,tp) -end -function c5288597.spfilter(c,lv,rc,att,e,tp) - return c:GetLevel()==lv and c:IsRace(rc) and c:IsAttribute(att) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5288597.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if e:GetLabel()~=100 then return false end - e:SetLabel(0) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c5288597.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) - end - e:SetLabel(0) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c5288597.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - local tc=g:GetFirst() - Duel.SendtoGrave(tc,REASON_COST) - Duel.SetTargetCard(tc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c5288597.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5288597.spfilter,tp,LOCATION_DECK,0,1,1,nil,tc:GetLevel()+1,tc:GetRace(),tc:GetAttribute(),e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end +--トランスターン +function c5288597.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetLabel(0) + e1:SetCountLimit(1,5288597) + e1:SetCost(c5288597.cost) + e1:SetTarget(c5288597.target) + e1:SetOperation(c5288597.activate) + c:RegisterEffect(e1) +end +function c5288597.cost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(100) + if chk==0 then return true end +end +function c5288597.cfilter(c,e,tp) + local lv=c:GetOriginalLevel() + local rc=nil + local att=nil + if Duel.IsEnvironment(4064256) then rc=RACE_ZOMBIE + else rc=c:GetOriginalRace() end + if Duel.IsEnvironment(12644061) and c:IsSetCard(0x1034) then att=ATTRIBUTE_DARK + else att=c:GetOriginalAttribute() end + return bit.band(c:GetOriginalType(),TYPE_MONSTER)~=0 and lv>0 and c:IsFaceup() and c:IsAbleToGraveAsCost() + and Duel.IsExistingMatchingCard(c5288597.spfilter,tp,LOCATION_DECK,0,1,nil,lv+1,rc,att,e,tp) +end +function c5288597.spfilter(c,lv,rc,att,e,tp) + return c:GetLevel()==lv and c:IsRace(rc) and c:IsAttribute(att) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c5288597.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + if e:GetLabel()~=100 then return false end + e:SetLabel(0) + return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c5288597.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) + end + e:SetLabel(0) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c5288597.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) + local tc=g:GetFirst() + Duel.SendtoGrave(tc,REASON_COST) + Duel.SetTargetCard(tc) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c5288597.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + local tc=Duel.GetFirstTarget() + if not tc:IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c5288597.spfilter,tp,LOCATION_DECK,0,1,1,nil,tc:GetLevel()+1,tc:GetRace(),tc:GetAttribute(),e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c52963531.lua b/script/c52963531.lua index b5ed25cf..2a406acb 100644 --- a/script/c52963531.lua +++ b/script/c52963531.lua @@ -102,14 +102,5 @@ function c52963531.operation(e,tp,eg,ep,ev,re,r,rp) fop(ce,e,tp,tc,mat2) end tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end diff --git a/script/c52971673.lua b/script/c52971673.lua index e37f78d5..e4caf440 100644 --- a/script/c52971673.lua +++ b/script/c52971673.lua @@ -10,10 +10,10 @@ function c52971673.initial_effect(c) c:RegisterEffect(e1) end function c52971673.cfilter(c) - return c:IsType(TYPE_TOKEN) and c:IsDestructable() + return c:IsType(TYPE_TOKEN) end function c52971673.dfilter(c) - return not c:IsType(TYPE_TOKEN) and c:IsDestructable() + return not c:IsType(TYPE_TOKEN) end function c52971673.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c52971673.cfilter,tp,LOCATION_MZONE,0,1,nil) @@ -25,7 +25,7 @@ function c52971673.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c52971673.cfilter,tp,LOCATION_MZONE,0,nil) local dt=Duel.Destroy(g,REASON_EFFECT) if dt==0 then return end - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) if dg:GetCount()>0 then Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) diff --git a/script/c53027855.lua b/script/c53027855.lua index 40f158b1..29967096 100644 --- a/script/c53027855.lua +++ b/script/c53027855.lua @@ -38,7 +38,7 @@ function c53027855.spcon(e,c) Duel.GetMatchingGroupCount(Card.IsAttribute,c:GetControler(),LOCATION_GRAVE,0,nil,ATTRIBUTE_WIND)==5 end function c53027855.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c53027855.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c53039326.lua b/script/c53039326.lua index 58af0575..663357d3 100644 --- a/script/c53039326.lua +++ b/script/c53039326.lua @@ -28,7 +28,7 @@ function c53039326.initial_effect(c) e4:SetDescription(aux.Stringid(53039326,2)) e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_EVENT_PLAYER) - e4:SetCode(53039326) + e4:SetCode(EVENT_CUSTOM+53039326) e4:SetTarget(c53039326.target) e4:SetOperation(c53039326.operation) c:RegisterEffect(e4) @@ -40,6 +40,8 @@ function c53039326.mtcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c53039326.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g=Duel.GetMatchingGroup(c53039326.cfilter,tp,LOCATION_HAND,0,nil) local sel=1 if g:GetCount()~=0 then @@ -53,7 +55,7 @@ function c53039326.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,cg) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c53039326.check(e,tp,eg,ep,ev,re,r,rp) @@ -69,8 +71,8 @@ function c53039326.check(e,tp,eg,ep,ev,re,r,rp) end tc=eg:GetNext() end - if b1 then Duel.RaiseSingleEvent(c,53039326,e,r,rp,turnp,0) end - if b2 then Duel.RaiseSingleEvent(c,53039326,e,r,rp,1-turnp,0) end + if b1 then Duel.RaiseSingleEvent(c,EVENT_CUSTOM+53039326,e,r,rp,turnp,0) end + if b2 then Duel.RaiseSingleEvent(c,EVENT_CUSTOM+53039326,e,r,rp,1-turnp,0) end end function c53039326.filter(c) return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x1d) and c:IsAbleToHand() diff --git a/script/c53054833.lua b/script/c53054833.lua old mode 100755 new mode 100644 diff --git a/script/c53063039.lua b/script/c53063039.lua index dd2de3e3..6074b4bf 100644 --- a/script/c53063039.lua +++ b/script/c53063039.lua @@ -19,10 +19,10 @@ function c53063039.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c53063039.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c53063039.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c53063039.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c53090623.lua b/script/c53090623.lua index b9a40e75..dab30303 100644 --- a/script/c53090623.lua +++ b/script/c53090623.lua @@ -34,8 +34,10 @@ function c53090623.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c53090623.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c53090623.rdcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c53112492.lua b/script/c53112492.lua index c659d54a..6c1fb713 100644 --- a/script/c53112492.lua +++ b/script/c53112492.lua @@ -15,8 +15,8 @@ function c53112492.condition(e,tp,eg,ep,ev,re,r,rp) return re:IsActiveType(TYPE_SPELL) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) end function c53112492.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3001,2,REASON_COST) end - Duel.RemoveCounter(tp,1,0,0x3001,2,REASON_COST) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x1,2,REASON_COST) end + Duel.RemoveCounter(tp,1,0,0x1,2,REASON_COST) end function c53112492.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c53119267.lua b/script/c53119267.lua old mode 100755 new mode 100644 diff --git a/script/c53129443.lua b/script/c53129443.lua index ea902288..3c23da5e 100644 --- a/script/c53129443.lua +++ b/script/c53129443.lua @@ -10,11 +10,11 @@ function c53129443.initial_effect(c) c:RegisterEffect(e1) end function c53129443.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) end function c53129443.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.Destroy(sg,REASON_EFFECT) end diff --git a/script/c53136004.lua b/script/c53136004.lua index 1c633e33..a06d18c7 100644 --- a/script/c53136004.lua +++ b/script/c53136004.lua @@ -48,9 +48,7 @@ function c53136004.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c53136004.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c53152590.lua b/script/c53152590.lua index eb10003f..9f350e43 100644 --- a/script/c53152590.lua +++ b/script/c53152590.lua @@ -31,7 +31,7 @@ function c53152590.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end diff --git a/script/c53162898.lua b/script/c53162898.lua index 64a0e3a0..95798a9a 100644 --- a/script/c53162898.lua +++ b/script/c53162898.lua @@ -16,7 +16,7 @@ function c53162898.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler()==Duel.GetAttacker() and e:GetHandler():IsRelateToBattle() end function c53162898.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c53162898.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c53162898.filter(chkc) end diff --git a/script/c53183600.lua b/script/c53183600.lua old mode 100755 new mode 100644 diff --git a/script/c5318639.lua b/script/c5318639.lua index d9f39ece..d80b92e5 100644 --- a/script/c5318639.lua +++ b/script/c5318639.lua @@ -12,7 +12,7 @@ function c5318639.initial_effect(c) c:RegisterEffect(e1) end function c5318639.filter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c5318639.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c5318639.filter(chkc) and chkc~=e:GetHandler() end diff --git a/script/c53262004.lua b/script/c53262004.lua index a02203f7..480eddc6 100644 --- a/script/c53262004.lua +++ b/script/c53262004.lua @@ -16,7 +16,7 @@ function c53262004.initial_effect(c) --negate local e2=Effect.CreateEffect(c) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetRange(LOCATION_MZONE) diff --git a/script/c53291093.lua b/script/c53291093.lua index e928122d..cebe1bca 100644 --- a/script/c53291093.lua +++ b/script/c53291093.lua @@ -12,7 +12,7 @@ function c53291093.initial_effect(c) c:RegisterEffect(e1) end function c53291093.filter(c) - return c:GetCounter(0xe)>0 and c:IsDestructable() + return c:GetCounter(0x100e)>0 end function c53291093.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c53291093.filter(chkc) end diff --git a/script/c53315891.lua b/script/c53315891.lua index ac5e269b..bc67d60c 100644 --- a/script/c53315891.lua +++ b/script/c53315891.lua @@ -46,7 +46,7 @@ function c53315891.initial_effect(c) c:RegisterEffect(e5) end function c53315891.sprfilter(c,code) - return c:IsCode(code) and c:IsAbleToGraveAsCost() + return c:IsFusionCode(code) and c:IsAbleToGraveAsCost() end function c53315891.sprcon(e,c) if c==nil then return true end @@ -97,25 +97,27 @@ function c53315891.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(atk) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) c:RegisterEffect(e2) end end function c53315891.spfilter(c,e,tp) return c:IsSetCard(0xa0) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c53315891.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>=3 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>=3 and Duel.IsExistingMatchingCard(c53315891.spfilter,tp,0x13,0,3,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,tp,0x13) end function c53315891.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<3 then return end local g=Duel.GetMatchingGroup(c53315891.spfilter,tp,0x13,0,nil,e,tp) if g:GetCount()>2 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,3,3,nil) + if sg:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummon(sg,0,tp,tp,true,true,POS_FACEUP) end end diff --git a/script/c53334471.lua b/script/c53334471.lua old mode 100755 new mode 100644 diff --git a/script/c53334641.lua b/script/c53334641.lua index 31cbe8da..33a38c05 100644 --- a/script/c53334641.lua +++ b/script/c53334641.lua @@ -6,8 +6,8 @@ function c53334641.initial_effect(c) --win local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_CHAIN_SOLVING) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EVENT_ADJUST) e1:SetRange(LOCATION_MZONE) e1:SetOperation(c53334641.winop) c:RegisterEffect(e1) diff --git a/script/c53347303.lua b/script/c53347303.lua index 9362e3ae..1d519c1e 100644 --- a/script/c53347303.lua +++ b/script/c53347303.lua @@ -29,7 +29,7 @@ function c53347303.initial_effect(c) local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(53347303,0)) e4:SetCategory(CATEGORY_DISABLE) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e4:SetType(EFFECT_TYPE_QUICK_O) e4:SetCode(EVENT_CHAINING) e4:SetRange(LOCATION_MZONE) e4:SetCondition(c53347303.discon) diff --git a/script/c53389254.lua b/script/c53389254.lua new file mode 100644 index 00000000..dbee7ba2 --- /dev/null +++ b/script/c53389254.lua @@ -0,0 +1,108 @@ +--A BF－五月雨のソハヤ +function c53389254.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --add type + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c53389254.tncon) + e1:SetOperation(c53389254.tnop) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_MATERIAL_CHECK) + e2:SetValue(c53389254.valcheck) + e2:SetLabelObject(e1) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(53389254,0)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetCountLimit(1,53389254) + e3:SetCondition(c53389254.spcon1) + e3:SetTarget(c53389254.sptg1) + e3:SetOperation(c53389254.spop1) + c:RegisterEffect(e3) + --special summon + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(53389254,1)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_GRAVE) + e4:SetCountLimit(1,53389255) + e4:SetCondition(c53389254.spcon2) + e4:SetCost(c53389254.spcost) + e4:SetTarget(c53389254.sptg2) + e4:SetOperation(c53389254.spop2) + c:RegisterEffect(e4) +end +function c53389254.valcheck(e,c) + local g=c:GetMaterial() + if g:IsExists(Card.IsSetCard,1,nil,0x33) then + e:GetLabelObject():SetLabel(1) + else + e:GetLabelObject():SetLabel(0) + end +end +function c53389254.tncon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO and e:GetLabel()==1 +end +function c53389254.tnop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_ADD_TYPE) + e1:SetValue(TYPE_TUNER) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1) +end +function c53389254.spcon1(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO +end +function c53389254.spfilter(c,e,tp) + return c:IsSetCard(0x1033) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c53389254.sptg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c53389254.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c53389254.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c53389254.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c53389254.spop1(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end +function c53389254.spcon2(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetTurnID()==Duel.GetTurnCount() and not e:GetHandler():IsReason(REASON_RETURN) +end +function c53389254.costfilter(c) + return c:IsCode(53389254) and c:IsAbleToRemoveAsCost() +end +function c53389254.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c53389254.costfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c53389254.costfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c53389254.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c53389254.spop2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c53408006.lua b/script/c53408006.lua index 1f0f2d38..c48a6c84 100644 --- a/script/c53408006.lua +++ b/script/c53408006.lua @@ -40,6 +40,6 @@ function c53408006.operation(e,tp,eg,ep,ev,re,r,rp,chk) e1:SetValue(1000) a:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) a:RegisterEffect(e2) end diff --git a/script/c53485634.lua b/script/c53485634.lua old mode 100755 new mode 100644 index 620b24e0..ada59111 --- a/script/c53485634.lua +++ b/script/c53485634.lua @@ -39,22 +39,21 @@ function c53485634.sptg(e,tp,eg,ep,ev,re,r,rp,chk) and eg:IsExists(c53485634.spfilter,1,nil,e,tp) end local g=eg:Filter(c53485634.spfilter,nil,e,tp) Duel.SetTargetCard(g) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),2,tp,LOCATION_GRAVE) end function c53485634.filter(c,e,tp) return c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c53485634.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() if not c:IsRelateToEffect(e) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c53485634.filter,nil,e,tp) - if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then - local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ct<=0 or g:GetCount()==0 then return end - if g:GetCount()>ct then + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 or g:GetCount()==0 or (ft>1 and g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) then return end + if g:GetCount()>ft then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - g=g:Select(tp,ct,ct,nil) + g=g:Select(tp,ft,ft,nil) end local tc=g:GetFirst() while tc do @@ -63,6 +62,9 @@ function c53485634.spop(e,tp,eg,ep,ev,re,r,rp) tc=g:GetNext() end Duel.SpecialSummonComplete() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c53485634.sumcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c53527835.lua b/script/c53527835.lua index 9b8ff8d7..cec05337 100644 --- a/script/c53527835.lua +++ b/script/c53527835.lua @@ -7,20 +7,26 @@ function c53527835.initial_effect(c) c:RegisterEffect(e1) --atk up local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) e2:SetRange(LOCATION_FZONE) - e2:SetOperation(c53527835.atkup) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetCondition(c53527835.atkcon) + e2:SetTarget(c53527835.atktg) + e2:SetValue(c53527835.atkval) c:RegisterEffect(e2) end -function c53527835.atkup(e,tp,eg,ep,ev,re,r,rp,chk) - local a=Duel.GetAttacker() +function c53527835.atkcon(e) + c53527835[0]=false + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and Duel.GetAttackTarget() +end +function c53527835.atktg(e,c) + return c==Duel.GetAttacker() and c:IsSetCard(0xc008) +end +function c53527835.atkval(e,c) local d=Duel.GetAttackTarget() - if not a:IsSetCard(0xc008) or not d or a:GetAttack()>=d:GetAttack() then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(1000) - a:RegisterEffect(e1) + if c53527835[0] or c:GetAttack()=2 end function c53567095.tgfilter(c,e) - return c:IsDestructable() and c:IsCanBeEffectTarget(e) + return c:IsCanBeEffectTarget(e) end function c53567095.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end + if chkc then return chkc:IsOnField() end if e:GetLabel()==1 then e:SetLabel(0) local rg=Duel.GetReleaseGroup(tp) @@ -42,7 +42,7 @@ function c53567095.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local res=rg:IsExists(c53567095.costfilter,1,e:GetHandler(),e,dg) return res else - return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,e:GetHandler()) + return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,e:GetHandler()) end end if e:GetLabel()==1 then @@ -54,7 +54,7 @@ function c53567095.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.Release(sg,REASON_COST) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,2,e:GetHandler()) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,2,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c53567095.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c53569894.lua b/script/c53569894.lua index d29b5871..b662b572 100644 --- a/script/c53569894.lua +++ b/script/c53569894.lua @@ -7,19 +7,30 @@ function c53569894.initial_effect(c) c:RegisterEffect(e1) --destroy local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_REMOVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetOperation(c53569894.leave) + e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetCode(EVENT_LEAVE_FIELD_P) + e2:SetOperation(c53569894.checkop) c:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DESTROY+CATEGORY_REMOVE) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_LEAVE_FIELD) + e3:SetLabelObject(e2) + e3:SetOperation(c53569894.leave) + c:RegisterEffect(e3) end function c53569894.filter(c) - local code=c:GetCode() - return c:IsFaceup() and (code==15013468 or code==51402177) and c:IsDestructable() + return c:IsFaceup() and c:IsCode(15013468,51402177) +end +function c53569894.checkop(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():IsDisabled() then + e:SetLabel(1) + else e:SetLabel(0) end end function c53569894.leave(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:GetPreviousControler()==tp and c:IsStatus(STATUS_ACTIVATED) then + if e:GetLabelObject():GetLabel()==0 and c:GetPreviousControler()==tp and c:IsStatus(STATUS_ACTIVATED) then local g=Duel.GetMatchingGroup(c53569894.filter,tp,LOCATION_ONFIELD,0,nil) Duel.Destroy(g,REASON_EFFECT,LOCATION_REMOVED) end diff --git a/script/c53573406.lua b/script/c53573406.lua index a61e782b..b225b454 100644 --- a/script/c53573406.lua +++ b/script/c53573406.lua @@ -47,7 +47,7 @@ function c53573406.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) return e:GetLabel()~=se:GetLabel() and not c:IsLocation(LOCATION_EXTRA) end function c53573406.filter(c,e,tp) - return c:GetDefence()==0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:GetDefense()==0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c53573406.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE and c53573406.filter(chkc,e,tp) end @@ -60,7 +60,7 @@ end function c53573406.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c53582587.lua b/script/c53582587.lua index 44159dc0..5619d76e 100644 --- a/script/c53582587.lua +++ b/script/c53582587.lua @@ -24,12 +24,12 @@ function c53582587.initial_effect(c) c:RegisterEffect(e3) end function c53582587.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c53582587.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if g:GetCount()>0 then Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c5361647.lua b/script/c5361647.lua old mode 100755 new mode 100644 diff --git a/script/c53678698.lua b/script/c53678698.lua index a8e41448..3266db35 100644 --- a/script/c53678698.lua +++ b/script/c53678698.lua @@ -48,8 +48,10 @@ function c53678698.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c53678698.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c53678698.thcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c53778229.lua b/script/c53778229.lua old mode 100755 new mode 100644 diff --git a/script/c53804307.lua b/script/c53804307.lua index 7ba210de..6b6ca3b8 100644 --- a/script/c53804307.lua +++ b/script/c53804307.lua @@ -63,8 +63,10 @@ function c53804307.hsptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c53804307.hspop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c53804307.retcon(e,tp,eg,ep,ev,re,r,rp) @@ -92,14 +94,11 @@ function c53804307.descost(e,tp,eg,ep,ev,re,r,rp,chk) g:AddCard(e:GetHandler()) Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD) end -function c53804307.desfilter(c) - return c:IsDestructable() -end function c53804307.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c53804307.desfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c53804307.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c53804307.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c53804307.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c53819808.lua b/script/c53819808.lua index bdc86f55..74c0b3c1 100644 --- a/script/c53819808.lua +++ b/script/c53819808.lua @@ -1,6 +1,6 @@ --六武院 function c53819808.initial_effect(c) - c:EnableCounterPermit(0x3003) + c:EnableCounterPermit(0x3) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -30,9 +30,9 @@ function c53819808.ctfilter(c) end function c53819808.ctop(e,tp,eg,ep,ev,re,r,rp) if eg:IsExists(c53819808.ctfilter,1,nil) then - e:GetHandler():AddCounter(0x3003,1) + e:GetHandler():AddCounter(0x3,1) end end function c53819808.val(e) - return e:GetHandler():GetCounter(0x3003)*-100 + return e:GetHandler():GetCounter(0x3)*-100 end diff --git a/script/c53828396.lua b/script/c53828396.lua index 3889fb8f..ebd61774 100644 --- a/script/c53828396.lua +++ b/script/c53828396.lua @@ -11,7 +11,7 @@ function c53828396.initial_effect(c) c:RegisterEffect(e1) end function c53828396.eqcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==e:GetHandler() and e:GetHandler():GetBattlePosition()==POS_FACEDOWN_DEFENCE + return Duel.GetAttackTarget()==e:GetHandler() and e:GetHandler():GetBattlePosition()==POS_FACEDOWN_DEFENSE end function c53828396.eqop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c53855409.lua b/script/c53855409.lua index e9d26e19..8c0982b2 100644 --- a/script/c53855409.lua +++ b/script/c53855409.lua @@ -35,20 +35,24 @@ function c53855409.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c53855409.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c53855409.tcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO end function c53855409.ttg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,53855410,0,0x4011,400,400,1,RACE_WARRIOR,ATTRIBUTE_DARK) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c53855409.top(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end if not Duel.IsPlayerCanSpecialSummonMonster(tp,53855410,0,0x4011,400,400,1,RACE_WARRIOR,ATTRIBUTE_DARK) then return end for i=1,2 do diff --git a/script/c53932291.lua b/script/c53932291.lua old mode 100755 new mode 100644 diff --git a/script/c5399521.lua b/script/c5399521.lua index 57f8deef..63dcc1ed 100644 --- a/script/c5399521.lua +++ b/script/c5399521.lua @@ -49,7 +49,7 @@ function c5399521.thcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c5399521.thfilter(c) - return c:IsFaceup() and c:IsSetCard(0x1066) and c:IsAbleToHand() + return c:IsFaceup() and c:IsSetCard(0x1066) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c5399521.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_REMOVED) and c5399521.thfilter(chkc) end diff --git a/script/c54040221.lua b/script/c54040221.lua index e2fdf1c3..3a00631a 100644 --- a/script/c54040221.lua +++ b/script/c54040221.lua @@ -29,9 +29,9 @@ function c54040221.op(e,tp,eg,ep,ev,re,r,rp) if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=4 then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) if ct==4 then - Duel.ShuffleDeck(tp) Duel.BreakEffect() Duel.Draw(tp,2,REASON_EFFECT) end diff --git a/script/c54059040.lua b/script/c54059040.lua index 685509ef..5c9fe5a3 100644 --- a/script/c54059040.lua +++ b/script/c54059040.lua @@ -37,7 +37,7 @@ function c54059040.target1(e,tp,eg,ep,ev,re,r,rp,chk) end if res and Duel.IsExistingMatchingCard(c54059040.cfilter,tp,LOCATION_MZONE,0,1,nil) and teg:IsExists(c54059040.pfilter,1,nil) - and Duel.SelectYesNo(tp,aux.Stringid(54059040,1)) then + and Duel.SelectYesNo(tp,94) then e:SetLabel(1) Duel.SetTargetCard(teg) Duel.SetOperationInfo(0,CATEGORY_POSITION,teg,teg:GetCount(),0,0) @@ -55,5 +55,5 @@ end function c54059040.operation(e,tp,eg,ep,ev,re,r,rp) if e:GetLabel()==0 or not e:GetHandler():IsRelateToEffect(e) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c54059040.pfilter,nil,e) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) end diff --git a/script/c54094821.lua b/script/c54094821.lua index 61e161db..31e26a86 100644 --- a/script/c54094821.lua +++ b/script/c54094821.lua @@ -8,8 +8,11 @@ function c54094821.initial_effect(c) e1:SetOperation(c54094821.activate) c:RegisterEffect(e1) end +function c54094821.cfilter(c) + return bit.band(c:GetSummonType(),SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL +end function c54094821.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:GetCount()==1 and eg:GetFirst():GetSummonType()==SUMMON_TYPE_RITUAL + return eg:IsExists(c54094821.cfilter,1,nil) end function c54094821.activate(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c54109233.lua b/script/c54109233.lua index 8e3f4f45..bce4e1f1 100644 --- a/script/c54109233.lua +++ b/script/c54109233.lua @@ -4,6 +4,9 @@ function c54109233.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(TIMING_END_PHASE) + e1:SetTarget(c54109233.target1) + e1:SetOperation(c54109233.activate) c:RegisterEffect(e1) --destroy local e2=Effect.CreateEffect(c) @@ -15,6 +18,7 @@ function c54109233.initial_effect(c) e2:SetCode(EVENT_PHASE+PHASE_END) e2:SetTarget(c54109233.target) e2:SetOperation(c54109233.activate) + e2:SetLabel(1) c:RegisterEffect(e2) if not c54109233.global_check then c54109233.global_check=true @@ -34,15 +38,30 @@ function c54109233.checkop(e,tp,eg,ep,ev,re,r,rp) eg:GetFirst():RegisterFlagEffect(54109233,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) end function c54109233.filter(c) - return c:IsLevelBelow(3) and c:GetFlagEffect(54109233)~=0 and c:IsDestructable() + return c:IsLevelBelow(3) and c:GetFlagEffect(54109233)~=0 end -function c54109233.target(e,tp,eg,ep,ev,re,r,rp,chk) +function c54109233.target1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end + if Duel.GetCurrentPhase()==PHASE_END and Duel.SelectYesNo(tp,94) then + e:SetCategory(CATEGORY_DESTROY) + e:SetLabel(1) + local g=Duel.GetMatchingGroup(c54109233.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) + e:GetHandler():RegisterFlagEffect(54109234,RESET_PHASE+PHASE_END,0,1) + e:GetHandler():RegisterFlagEffect(0,RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,65) + else + e:SetCategory(0) + e:SetLabel(0) + end +end +function c54109233.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetFlagEffect(54109234)==0 end local g=Duel.GetMatchingGroup(c54109233.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) + e:GetHandler():RegisterFlagEffect(54109234,RESET_PHASE+PHASE_END,0,1) end function c54109233.activate(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end + if e:GetLabel()==0 or not e:GetHandler():IsRelateToEffect(e) then return end local g=Duel.GetMatchingGroup(c54109233.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c54135423.lua b/script/c54135423.lua new file mode 100644 index 00000000..bc4f4de3 --- /dev/null +++ b/script/c54135423.lua @@ -0,0 +1,77 @@ +--花札衛－柳－ +function c54135423.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c54135423.spcon) + e1:SetTarget(c54135423.sptg) + e1:SetOperation(c54135423.spop) + c:RegisterEffect(e1) + --shuffle + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetTarget(c54135423.target) + e2:SetOperation(c54135423.operation) + c:RegisterEffect(e2) +end +function c54135423.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe6) and c:IsLevelBelow(10) +end +function c54135423.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c54135423.cfilter,tp,LOCATION_MZONE,0,1,nil) +end +function c54135423.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c54135423.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 + and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetTarget(c54135423.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local e2=e1:Clone() + e2:SetCode(EFFECT_CANNOT_SUMMON) + Duel.RegisterEffect(e2,tp) +end +function c54135423.splimit(e,c) + return not c:IsSetCard(0xe6) +end +function c54135423.filter(c) + return c:IsSetCard(0xe6) and c:IsAbleToDeck() +end +function c54135423.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c54135423.filter(chkc) end + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) and Duel.IsExistingTarget(c54135423.filter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + local g=Duel.SelectTarget(tp,c54135423.filter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c54135423.operation(e,tp,eg,ep,ev,re,r,rp) + local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=1 then return end + Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) + local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end + local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) + if ct==1 then + Duel.BreakEffect() + Duel.Draw(tp,1,REASON_EFFECT) + end +end diff --git a/script/c54149433.lua b/script/c54149433.lua index bdead36f..9fb1a7fb 100644 --- a/script/c54149433.lua +++ b/script/c54149433.lua @@ -39,8 +39,10 @@ function c54149433.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c54149433.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c54149433.spcon2(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c54161401.lua b/script/c54161401.lua index 89feb01f..a4ead3d9 100644 --- a/script/c54161401.lua +++ b/script/c54161401.lua @@ -26,7 +26,10 @@ function c54161401.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c54161401.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c54175023.lua b/script/c54175023.lua new file mode 100644 index 00000000..f6cc474e --- /dev/null +++ b/script/c54175023.lua @@ -0,0 +1,65 @@ +--ディメンション・ガーディアン +function c54175023.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c54175023.target) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_SZONE) + e2:SetCode(EVENT_CHAIN_SOLVED) + e2:SetCondition(c54175023.tgcon) + e2:SetOperation(c54175023.tgop) + e2:SetLabelObject(e1) + c:RegisterEffect(e2) + --indes + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e3:SetRange(LOCATION_SZONE) + e3:SetValue(1) + e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e3:SetTarget(c54175023.indtg) + c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + c:RegisterEffect(e4) + --destroy + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e5:SetRange(LOCATION_SZONE) + e5:SetCode(EVENT_LEAVE_FIELD) + e5:SetCondition(c54175023.descon) + e5:SetOperation(c54175023.desop) + c:RegisterEffect(e5) +end +function c54175023.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsPosition(POS_FACEUP_ATTACK) end + if chk==0 then return Duel.IsExistingTarget(Card.IsPosition,tp,LOCATION_MZONE,0,1,nil,POS_FACEUP_ATTACK) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUPATTACK) + Duel.SelectTarget(tp,Card.IsPosition,tp,LOCATION_MZONE,0,1,1,nil,POS_FACEUP_ATTACK) +end +function c54175023.tgcon(e,tp,eg,ep,ev,re,r,rp) + return re==e:GetLabelObject() +end +function c54175023.tgop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS):GetFirst() + if c:IsRelateToEffect(re) and tc:IsFaceup() and tc:IsRelateToEffect(re) then + c:SetCardTarget(tc) + end +end +function c54175023.indtg(e,c) + return e:GetHandler():IsHasCardTarget(c) +end +function c54175023.descon(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetHandler():GetFirstCardTarget() + return tc and eg:IsContains(tc) +end +function c54175023.desop(e,tp,eg,ep,ev,re,r,rp) + Duel.Destroy(e:GetHandler(),REASON_EFFECT) +end diff --git a/script/c54241725.lua b/script/c54241725.lua old mode 100755 new mode 100644 index 7c7559f1..fcbd7f71 --- a/script/c54241725.lua +++ b/script/c54241725.lua @@ -91,16 +91,10 @@ end function c54241725.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() - if c:IsRelateToEffect(e) - and Duel.IsPlayerCanSpecialSummonMonster(tp,54241725,0,0x11,5,1000,2400,RACE_FAIRY,ATTRIBUTE_LIGHT) then - c:SetStatus(STATUS_NO_LEVEL,false) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(TYPE_NORMAL+TYPE_MONSTER) - e1:SetReset(RESET_EVENT+0x47c0000) - c:RegisterEffect(e1,true) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_DEFENCE) + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,54241725,0,0x11,5,1000,2400,RACE_FAIRY,ATTRIBUTE_LIGHT) then + c:AddMonsterAttribute(TYPE_NORMAL) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP_DEFENSE) + c:AddMonsterAttributeComplete() + Duel.SpecialSummonComplete() end end diff --git a/script/c54248491.lua b/script/c54248491.lua index 0aea2f13..1398a3ab 100644 --- a/script/c54248491.lua +++ b/script/c54248491.lua @@ -20,7 +20,7 @@ function c54248491.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c54248491.filter(c) - return c:IsPosition(POS_FACEUP_DEFENCE) and c:IsDestructable() + return c:IsPosition(POS_FACEUP_DEFENSE) end function c54248491.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c54248491.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c54250060.lua b/script/c54250060.lua index 506cf3f0..3d6e983c 100644 --- a/script/c54250060.lua +++ b/script/c54250060.lua @@ -15,7 +15,7 @@ function c54250060.initial_effect(c) e2:SetValue(300) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --spsummon local e4=Effect.CreateEffect(c) diff --git a/script/c54289683.lua b/script/c54289683.lua index a8bc01fb..af09f900 100644 --- a/script/c54289683.lua +++ b/script/c54289683.lua @@ -12,7 +12,7 @@ function c54289683.filter(c) return c:IsFaceup() and c:IsCode(93130021) end function c54289683.desfilter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c54289683.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end @@ -22,7 +22,7 @@ function c54289683.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local c=cg:GetFirst() local t1=Duel.IsExistingTarget(c54289683.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) local t2=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,93130022,0,0x4011,c:GetAttack(),c:GetDefence(),c:GetLevel(),c:GetRace(),c:GetAttribute()) + and Duel.IsPlayerCanSpecialSummonMonster(tp,93130022,0,0x4011,c:GetAttack(),c:GetDefense(),c:GetLevel(),c:GetRace(),c:GetAttribute()) Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(93130021,0)) if t1 and t2 then op=Duel.SelectOption(tp,aux.Stringid(93130021,1),aux.Stringid(93130021,2),aux.Stringid(93130021,3)) @@ -61,7 +61,7 @@ function c54289683.operation(e,tp,eg,ep,ev,re,r,rp) elseif e:GetLabel()==2 then if tc:IsFacedown() or not tc:IsRelateToEffect(e) then return end local atk=tc:GetAttack() - local def=tc:GetDefence() + local def=tc:GetDefense() local lv=tc:GetLevel() local race=tc:GetRace() local att=tc:GetAttribute() @@ -80,7 +80,7 @@ function c54289683.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0xfe0000) token:RegisterEffect(e1,true) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetValue(c54289683.tokendef) e2:SetLabelObject(tc) token:RegisterEffect(e2,true) @@ -129,7 +129,7 @@ function c54289683.tokenatk(e,c) return e:GetLabelObject():GetAttack() end function c54289683.tokendef(e,c) - return e:GetLabelObject():GetDefence() + return e:GetLabelObject():GetDefense() end function c54289683.tokenlv(e,c) return e:GetLabelObject():GetLevel() diff --git a/script/c54297661.lua b/script/c54297661.lua new file mode 100644 index 00000000..0ac56a3c --- /dev/null +++ b/script/c54297661.lua @@ -0,0 +1,76 @@ +--ディメンション・リフレクター +function c54297661.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCost(c54297661.cost) + e1:SetTarget(c54297661.target) + e1:SetOperation(c54297661.activate) + c:RegisterEffect(e1) +end +function c54297661.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_MZONE,0,2,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_MZONE,0,2,2,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c54297661.filter(c,tp) + return c:IsFaceup() + and Duel.IsPlayerCanSpecialSummonMonster(tp,54297661,0,0x21,c:GetAttack(),c:GetDefense(),4,RACE_SPELLCASTER,ATTRIBUTE_DARK) +end +function c54297661.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c54297661.filter(chkc,tp) end + if chk==0 then return Duel.IsExistingTarget(c54297661.filter,tp,0,LOCATION_MZONE,1,nil,tp) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,c54297661.filter,tp,0,LOCATION_MZONE,1,1,nil,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c54297661.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if not (c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup()) then return end + local atk=tc:GetAttack() + local def=tc:GetDefense() + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + or not Duel.IsPlayerCanSpecialSummonMonster(tp,54297661,0,0x21,atk,def,4,RACE_SPELLCASTER,ATTRIBUTE_DARK) then return end + c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP) + if Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) then + c:AddMonsterAttributeComplete() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK) + e1:SetValue(atk) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_SET_DEFENSE) + e2:SetValue(def) + c:RegisterEffect(e2) + --damage + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(54297661,0)) + e3:SetCategory(CATEGORY_DAMAGE) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetTarget(c54297661.damtg) + e3:SetOperation(c54297661.damop) + e3:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e3,true) + end + Duel.SpecialSummonComplete() +end +function c54297661.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local dam=e:GetHandler():GetAttack() + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(dam) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) +end +function c54297661.damop(e,tp,eg,ep,ev,re,r,rp) + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + Duel.Damage(p,e:GetHandler():GetAttack(),REASON_EFFECT) +end diff --git a/script/c54306223.lua b/script/c54306223.lua old mode 100755 new mode 100644 index 3ddd6156..c209ebcf --- a/script/c54306223.lua +++ b/script/c54306223.lua @@ -1,84 +1,78 @@ ---ヴェノム・スワンプ -function c54306223.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Add counter - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(54306223,0)) - e2:SetCategory(CATEGORY_COUNTER) - e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_FZONE) - e2:SetOperation(c54306223.acop) - c:RegisterEffect(e2) - --atk down - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetRange(LOCATION_FZONE) - e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e3:SetValue(c54306223.atkval) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(54306223,1)) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(54306223) - e4:SetTarget(c54306223.destg) - e4:SetOperation(c54306223.desop) - c:RegisterEffect(e4) - local g=Group.CreateGroup() - g:KeepAlive() - e2:SetLabelObject(g) - e4:SetLabelObject(g) -end -function c54306223.atkval(e,c) - return c:GetCounter(0x9)*-500 -end -function c54306223.acop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=e:GetLabelObject() - g:Clear() - for i=0,4 do - local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i) - if tc and tc:IsCanAddCounter(0x9,1) and not tc:IsSetCard(0x50) then - local atk=tc:GetAttack() - tc:AddCounter(0x9,1) - if atk>0 and tc:GetAttack()==0 then - g:AddCard(tc) - end - end - end - for i=0,4 do - local tc=Duel.GetFieldCard(1-tp,LOCATION_MZONE,i) - if tc and tc:IsCanAddCounter(0x9,1) and not tc:IsSetCard(0x50) then - local atk=tc:GetAttack() - tc:AddCounter(0x9,1) - if atk>0 and tc:GetAttack()==0 then - g:AddCard(tc) - end - end - end - if g:GetCount()>0 then - Duel.RaiseSingleEvent(e:GetHandler(),54306223,e,0,0,0,0) - end -end -function c54306223.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=e:GetLabelObject() - Duel.SetTargetCard(g) - local sg=g:Filter(Card.IsDestructable,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c54306223.desop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=e:GetLabelObject():Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end -end +--ヴェノム・スワンプ +function c54306223.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --Add counter + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(54306223,0)) + e2:SetCategory(CATEGORY_COUNTER) + e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) + e2:SetCode(EVENT_PHASE+PHASE_END) + e2:SetCountLimit(1) + e2:SetRange(LOCATION_FZONE) + e2:SetOperation(c54306223.acop) + c:RegisterEffect(e2) + --atk down + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_UPDATE_ATTACK) + e3:SetRange(LOCATION_FZONE) + e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e3:SetValue(c54306223.atkval) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(54306223,1)) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e4:SetCode(EVENT_CUSTOM+54306223) + e4:SetRange(LOCATION_FZONE) + e4:SetTarget(c54306223.destg) + e4:SetOperation(c54306223.desop) + c:RegisterEffect(e4) +end +function c54306223.atkval(e,c) + return c:GetCounter(0x1009)*-500 +end +function c54306223.acop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local g=Group.CreateGroup() + for i=0,4 do + local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i) + if tc and tc:IsCanAddCounter(0x1009,1) and not tc:IsSetCard(0x50) then + local atk=tc:GetAttack() + tc:AddCounter(0x1009,1) + if atk>0 and tc:GetAttack()==0 then + g:AddCard(tc) + end + end + end + for i=0,4 do + local tc=Duel.GetFieldCard(1-tp,LOCATION_MZONE,i) + if tc and tc:IsCanAddCounter(0x1009,1) and not tc:IsSetCard(0x50) then + local atk=tc:GetAttack() + tc:AddCounter(0x1009,1) + if atk>0 and tc:GetAttack()==0 then + g:AddCard(tc) + end + end + end + if g:GetCount()>0 then + Duel.RaiseEvent(g,EVENT_CUSTOM+54306223,e,0,0,0,0) + end +end +function c54306223.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetCard(eg) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,eg:GetCount(),0,0) +end +function c54306223.desop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local g=eg:Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()>0 then + Duel.Destroy(g,REASON_EFFECT) + end +end diff --git a/script/c54320860.lua b/script/c54320860.lua old mode 100755 new mode 100644 diff --git a/script/c54343893.lua b/script/c54343893.lua index 0209085d..5cfc7554 100644 --- a/script/c54343893.lua +++ b/script/c54343893.lua @@ -25,7 +25,7 @@ function c54343893.spop(e,tp,eg,ep,ev,re,r,rp,c) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_BASE_DEFENCE) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) e2:SetValue(1200) e2:SetReset(RESET_EVENT+0xff0000) c:RegisterEffect(e2) diff --git a/script/c54351224.lua b/script/c54351224.lua index 15ae93b6..b11bd910 100644 --- a/script/c54351224.lua +++ b/script/c54351224.lua @@ -18,7 +18,7 @@ function c54351224.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(1500) c:RegisterEffect(e3) --Equip limit diff --git a/script/c54358015.lua b/script/c54358015.lua new file mode 100644 index 00000000..0b16c0c3 --- /dev/null +++ b/script/c54358015.lua @@ -0,0 +1,57 @@ +--銀河影竜 +function c54358015.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_DRAGON),4,2) + c:EnableReviveLimit() + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(54358015,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCost(c54358015.spcost) + e1:SetTarget(c54358015.sptg) + e1:SetOperation(c54358015.spop) + c:RegisterEffect(e1) + --cannot be target + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(LOCATION_ONFIELD,0) + e2:SetTarget(c54358015.tgtg) + e2:SetValue(aux.tgoval) + c:RegisterEffect(e2) + --indes + local e3=e2:Clone() + e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e3:SetValue(c54358015.indval) + c:RegisterEffect(e3) +end +function c54358015.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c54358015.spfilter(c,e,tp) + return c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c54358015.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c54358015.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c54358015.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c54358015.spfilter,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 +function c54358015.tgtg(e,c) + return c:IsSetCard(0x7b) and c~=e:GetHandler() +end +function c54358015.indval(e,re,rp) + return rp~=e:GetHandlerPlayer() +end diff --git a/script/c54359696.lua b/script/c54359696.lua old mode 100755 new mode 100644 diff --git a/script/c54360049.lua b/script/c54360049.lua index 863fb881..102414e8 100644 --- a/script/c54360049.lua +++ b/script/c54360049.lua @@ -22,7 +22,7 @@ function c54360049.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c54360049.filter(c,tp) - return c:GetSummonPlayer()~=tp and c:IsDestructable() + return c:GetSummonPlayer()~=tp end function c54360049.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return eg:IsExists(c54360049.filter,1,nil,tp) end @@ -31,7 +31,7 @@ function c54360049.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c54360049.dfilter(c,e,tp) - return c:GetSummonPlayer()~=tp and c:IsDestructable() and c:IsRelateToEffect(e) + return c:GetSummonPlayer()~=tp and c:IsRelateToEffect(e) end function c54360049.operation(e,tp,eg,ep,ev,re,r,rp) local g=eg:Filter(c54360049.dfilter,nil,e,tp) diff --git a/script/c54401832.lua b/script/c54401832.lua new file mode 100644 index 00000000..0975511a --- /dev/null +++ b/script/c54401832.lua @@ -0,0 +1,153 @@ +--メタルフォーゼ・カーディナル +function c54401832.initial_effect(c) + --fusion material + c:EnableReviveLimit() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(c54401832.fscon) + e1:SetOperation(c54401832.fsop) + c:RegisterEffect(e1) +end +function c54401832.filter1(c) + return c:IsFusionSetCard(0xe1) +end +function c54401832.filter2(c) + return c:IsAttackBelow(3000) +end +function c54401832.fscon(e,g,gc,chkfnf) + if g==nil then return true end + local f1=c54401832.filter1 + local f2=c54401832.filter2 + local minc=2 + local chkf=bit.band(chkfnf,0xff) + local tp=e:GetHandlerPlayer() + local fg=Duel.GetMatchingGroup(Card.IsHasEffect,tp,LOCATION_MZONE,0,nil,77693536) + local fc=fg:GetFirst() + while fc do + g:Merge(fc:GetEquipGroup():Filter(Card.IsControler,nil,tp)) + fc=fg:GetNext() + end + local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler(),true) + if gc then + if not gc:IsCanBeFusionMaterial(e:GetHandler(),true) then return false end + if aux.FConditionFilterFFR(gc,f1,f2,mg,minc,chkf) then + return true + elseif f2(gc) then + mg:RemoveCard(gc) + if aux.FConditionCheckF(gc,chkf) then chkf=PLAYER_NONE end + return mg:IsExists(aux.FConditionFilterFFR,1,nil,f1,f2,mg,minc-1,chkf) + else return false end + end + return mg:IsExists(aux.FConditionFilterFFR,1,nil,f1,f2,mg,minc,chkf) +end +function c54401832.fsop(e,tp,eg,ep,ev,re,r,rp,gc,chkfnf) + local f1=c54401832.filter1 + local f2=c54401832.filter2 + local chkf=bit.band(chkfnf,0xff) + local fg=Duel.GetMatchingGroup(Card.IsHasEffect,tp,LOCATION_MZONE,0,nil,77693536) + local fc=fg:GetFirst() + while fc do + eg:Merge(fc:GetEquipGroup():Filter(Card.IsControler,nil,tp)) + fc=fg:GetNext() + end + local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler(),true) + local minct=2 + local maxct=2 + if gc then + g:RemoveCard(gc) + if aux.FConditionFilterFFR(gc,f1,f2,g,minct,chkf) then + if aux.FConditionCheckF(gc,chkf) then chkf=PLAYER_NONE end + local g1=Group.CreateGroup() + if f2(gc) then + local mg1=g:Filter(aux.FConditionFilterFFR,nil,f1,f2,g,minct-1,chkf) + if mg1:GetCount()>0 then + --if gc fits both, should allow an extra material that fits f1 but doesn't fit f2 + local mg2=g:Filter(f2,nil) + mg1:Merge(mg2) + if chkf~=PLAYER_NONE then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg1:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) + g1:Merge(sg) + mg1:Sub(sg) + minct=minct-1 + maxct=maxct-1 + if not f2(sg:GetFirst()) then + if mg1:GetCount()>0 and maxct>0 and (minct>0 or Duel.SelectYesNo(tp,93)) then + if minct<=0 then minct=1 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg1:FilterSelect(tp,f2,minct,maxct,nil) + g1:Merge(sg) + end + Duel.SetFusionMaterial(g1) + return + end + end + if maxct>1 and (minct>1 or Duel.SelectYesNo(tp,93)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg1:FilterSelect(tp,f2,minct-1,maxct-1,nil) + g1:Merge(sg) + mg1:Sub(sg) + local ct=sg:GetCount() + minct=minct-ct + maxct=maxct-ct + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg1:Select(tp,1,1,nil) + g1:Merge(sg) + mg1:Sub(sg) + minct=minct-1 + maxct=maxct-1 + if mg1:GetCount()>0 and maxct>0 and (minct>0 or Duel.SelectYesNo(tp,93)) then + if minct<=0 then minct=1 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg1:FilterSelect(tp,f2,minct,maxct,nil) + g1:Merge(sg) + end + Duel.SetFusionMaterial(g1) + return + end + end + local mg=g:Filter(f2,nil) + if chkf~=PLAYER_NONE then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) + g1:Merge(sg) + mg:Sub(sg) + minct=minct-1 + maxct=maxct-1 + end + if mg:GetCount()>0 and maxct>0 and (minct>0 or Duel.SelectYesNo(tp,93)) then + if minct<=0 then minct=1 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg:Select(tp,minct,maxct,nil) + g1:Merge(sg) + end + Duel.SetFusionMaterial(g1) + return + else + if aux.FConditionCheckF(gc,chkf) then chkf=PLAYER_NONE end + minct=minct-1 + maxct=maxct-1 + end + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=g:FilterSelect(tp,aux.FConditionFilterFFR,1,1,nil,f1,f2,g,minct,chkf) + local mg=g:Filter(f2,g1:GetFirst()) + if chkf~=PLAYER_NONE and not aux.FConditionCheckF(g1:GetFirst(),chkf) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) + g1:Merge(sg) + mg:Sub(sg) + minct=minct-1 + maxct=maxct-1 + end + if mg:GetCount()>0 and maxct>0 and (minct>0 or Duel.SelectYesNo(tp,93)) then + if minct<=0 then minct=1 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg:Select(tp,minct,maxct,nil) + g1:Merge(sg) + end + Duel.SetFusionMaterial(g1) +end diff --git a/script/c54447022.lua b/script/c54447022.lua index 449a23ab..afcc7c24 100644 --- a/script/c54447022.lua +++ b/script/c54447022.lua @@ -30,23 +30,21 @@ function c54447022.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c54447022.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c54447022.filter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) end function c54447022.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local sg=g:Filter(Card.IsRelateToEffect,nil,e) + if sg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if sg:GetCount()>ft then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) sg=sg:Select(tp,ft,ft,nil) end local ct=Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) - local lp=Duel.GetLP(tp) - if lp<=ct*1000 then - Duel.SetLP(tp,0) - else - Duel.SetLP(tp,lp-ct*1000) - end + Duel.SetLP(tp,Duel.GetLP(tp)-ct*1000) end diff --git a/script/c54484652.lua b/script/c54484652.lua old mode 100755 new mode 100644 index f53887c4..4a490e87 --- a/script/c54484652.lua +++ b/script/c54484652.lua @@ -49,7 +49,6 @@ function c54484652.spcon(e,tp,eg,ep,ev,re,r,rp) end function c54484652.spfilter(c,e,tp) return c:IsSetCard(0xbd) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c54484652.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -60,7 +59,7 @@ function c54484652.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c54484652.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c54490275.lua b/script/c54490275.lua index 2021a193..9411e26c 100644 --- a/script/c54490275.lua +++ b/script/c54490275.lua @@ -41,7 +41,7 @@ end function c54490275.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c54490275.poscon2(e,tp,eg,ep,ev,re,r,rp) @@ -57,7 +57,7 @@ end function c54490275.posop2(e,tp,eg,ep,ev,re,r,rp) local rc=Duel.GetFirstTarget() if rc:IsFaceup() and rc:IsRelateToEffect(e) then - Duel.ChangePosition(rc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(rc,POS_FACEDOWN_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) diff --git a/script/c54493213.lua b/script/c54493213.lua index 9d6e9e7d..a6501e84 100644 --- a/script/c54493213.lua +++ b/script/c54493213.lua @@ -8,7 +8,7 @@ function c54493213.initial_effect(c) e1:SetValue(c54493213.value) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e2) end function c54493213.filter(c) diff --git a/script/c54497620.lua b/script/c54497620.lua index 9d67b411..62fdbd5d 100644 --- a/script/c54497620.lua +++ b/script/c54497620.lua @@ -32,5 +32,5 @@ end function c54497620.op(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local sg=g:Filter(c54497620.tfilter,nil,e) - Duel.ChangePosition(sg,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(sg,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end diff --git a/script/c54507222.lua b/script/c54507222.lua new file mode 100644 index 00000000..67d437d7 --- /dev/null +++ b/script/c54507222.lua @@ -0,0 +1,42 @@ +--ギャラクシー・ワーム +function c54507222.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetCondition(c54507222.spcon) + e1:SetTarget(c54507222.sptg) + e1:SetOperation(c54507222.spop) + c:RegisterEffect(e1) +end +function c54507222.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==1 +end +function c54507222.spfilter(c,e,tp) + return c:IsSetCard(0x7b) and c:IsLevelBelow(3) and c:IsType(TYPE_EFFECT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c54507222.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c54507222.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c54507222.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c54507222.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + local tc=g:GetFirst() + if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1,true) + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2,true) + Duel.SpecialSummonComplete() + end +end diff --git a/script/c54512827.lua b/script/c54512827.lua index 7b31f3f3..6513d1be 100644 --- a/script/c54512827.lua +++ b/script/c54512827.lua @@ -52,7 +52,7 @@ end function c54512827.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c54512827.spcon1(e,tp,eg,ep,ev,re,r,rp) @@ -70,7 +70,13 @@ function c54512827.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c54512827.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.NegateAttack() and c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE)~=0 then - Duel.ConfirmCards(1-tp,c) + if Duel.NegateAttack() then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)~=0 then + Duel.ConfirmCards(1-tp,c) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then + Duel.SendtoGrave(c,REASON_RULE) + end end end diff --git a/script/c54520292.lua b/script/c54520292.lua index f3507586..c20d963e 100644 --- a/script/c54520292.lua +++ b/script/c54520292.lua @@ -32,6 +32,8 @@ function c54520292.cfilter2(c) return c:GetType()==TYPE_SPELL+TYPE_CONTINUOUS and not c:IsPublic() end function c54520292.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c54520292.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c54520292.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -41,8 +43,10 @@ function c54520292.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(54520292,0),aux.Stringid(54520292,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(54520292,1),aux.Stringid(54520292,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(54520292,1),aux.Stringid(54520292,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(54520292,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -54,7 +58,7 @@ function c54520292.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c54520292.descost(e,tp,eg,ep,ev,re,r,rp,chk) @@ -64,7 +68,7 @@ function c54520292.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c54520292.filter(c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL and c:IsDestructable() + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL end function c54520292.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c54520292.filter(chkc) end diff --git a/script/c54537489.lua b/script/c54537489.lua old mode 100755 new mode 100644 diff --git a/script/c54578613.lua b/script/c54578613.lua index 4b2a2ba0..638f12bc 100644 --- a/script/c54578613.lua +++ b/script/c54578613.lua @@ -23,7 +23,7 @@ function c54578613.initial_effect(c) c:RegisterEffect(e2) end function c54578613.filter(c) - return c:IsSetCard(0x29) and c:IsLevelBelow(3) and c:IsRace(RACE_DRAGON) + return c:IsSetCard(0x29) and c:IsLevelBelow(3) and c:IsRace(RACE_DRAGON) and not c:IsForbidden() end function c54578613.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c54578613.filter(chkc) end @@ -62,7 +62,7 @@ function c54578613.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c54578613.desfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c54578613.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c54578613.desfilter(chkc) end diff --git a/script/c54582424.lua b/script/c54582424.lua index 7d98db58..313fca89 100644 --- a/script/c54582424.lua +++ b/script/c54582424.lua @@ -22,7 +22,7 @@ function c54582424.initial_effect(c) end function c54582424.spcon(e,tp,eg,ep,ev,re,r,rp) local ec=eg:GetFirst() - return ec:IsControler(tp) and ec:IsRace(RACE_WARRIOR) + return ep==tp and ec:IsRace(RACE_WARRIOR) end function c54582424.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -31,8 +31,11 @@ function c54582424.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c54582424.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then c:CompleteProcedure() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c54635862.lua b/script/c54635862.lua index 16a0e34d..bd78f0db 100644 --- a/script/c54635862.lua +++ b/script/c54635862.lua @@ -31,8 +31,10 @@ function c54635862.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c54635862.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c54635862.atlimit(e,c) diff --git a/script/c54652250.lua b/script/c54652250.lua index a3d87835..6e66f1bd 100644 --- a/script/c54652250.lua +++ b/script/c54652250.lua @@ -11,10 +11,10 @@ function c54652250.initial_effect(c) c:RegisterEffect(e1) end function c54652250.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c54652250.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c54719828.lua b/script/c54719828.lua index c1d8393f..b323b71b 100644 --- a/script/c54719828.lua +++ b/script/c54719828.lua @@ -28,14 +28,19 @@ function c54719828.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT) e1:SetCode(EFFECT_CANNOT_ACTIVATE) e1:SetTargetRange(1,1) if e:GetLabel()==0 then + e1:SetDescription(aux.Stringid(54719828,2)) e1:SetValue(c54719828.aclimit1) elseif e:GetLabel()==1 then + e1:SetDescription(aux.Stringid(54719828,3)) e1:SetValue(c54719828.aclimit2) - else e1:SetValue(c54719828.aclimit3) end + else + e1:SetDescription(aux.Stringid(54719828,4)) + e1:SetValue(c54719828.aclimit3) + end e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,1) Duel.RegisterEffect(e1,tp) end diff --git a/script/c54747648.lua b/script/c54747648.lua index cbcd0c63..e9f7eb70 100644 --- a/script/c54747648.lua +++ b/script/c54747648.lua @@ -11,10 +11,10 @@ function c54747648.initial_effect(c) c:RegisterEffect(e1) end function c54747648.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c54747648.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c54749427.lua b/script/c54749427.lua index 6fb6cafb..45c17f25 100644 --- a/script/c54749427.lua +++ b/script/c54749427.lua @@ -18,7 +18,7 @@ function c54749427.condition(e,tp,eg,ep,ev,re,r,rp) return tp~=Duel.GetTurnPlayer() end function c54749427.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDefencePos() end + if chk==0 then return e:GetHandler():IsDefensePos() end Duel.SetTargetPlayer(1-tp) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,1-tp,1) end diff --git a/script/c54773234.lua b/script/c54773234.lua index 1403d829..aadba15f 100644 --- a/script/c54773234.lua +++ b/script/c54773234.lua @@ -38,10 +38,10 @@ function c54773234.activate(e,tp,eg,ep,ev,re,r,rp) Duel.RegisterEffect(e3,tp) if a:IsRelateToBattle() then local aa=a:GetTextAttack() - local ad=a:GetTextDefence() + local ad=a:GetTextDefense() if a:IsImmuneToEffect(e) then aa=a:GetBaseAttack() - ad=a:GetBaseDefence() end + ad=a:GetBaseDefense() end if aa<0 then aa=0 end if ad<0 then ad=0 end local e4=Effect.CreateEffect(c) @@ -56,17 +56,17 @@ function c54773234.activate(e,tp,eg,ep,ev,re,r,rp) e5:SetType(EFFECT_TYPE_SINGLE) e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE) e5:SetRange(LOCATION_MZONE) - e5:SetCode(EFFECT_SET_DEFENCE_FINAL) + e5:SetCode(EFFECT_SET_DEFENSE_FINAL) e5:SetReset(RESET_PHASE+PHASE_DAMAGE) e5:SetValue(ad) a:RegisterEffect(e5,true) end if d and d:IsRelateToBattle() then local da=d:GetTextAttack() - local dd=d:GetTextDefence() + local dd=d:GetTextDefense() if d:IsImmuneToEffect(e) then da=d:GetBaseAttack() - dd=d:GetBaseDefence() end + dd=d:GetBaseDefense() end if da<0 then da=0 end if dd<0 then dd=0 end local e6=Effect.CreateEffect(c) @@ -81,7 +81,7 @@ function c54773234.activate(e,tp,eg,ep,ev,re,r,rp) e7:SetType(EFFECT_TYPE_SINGLE) e7:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE) e7:SetRange(LOCATION_MZONE) - e7:SetCode(EFFECT_SET_DEFENCE_FINAL) + e7:SetCode(EFFECT_SET_DEFENSE_FINAL) e7:SetValue(dd) e7:SetReset(RESET_PHASE+PHASE_DAMAGE) d:RegisterEffect(e7,true) diff --git a/script/c5479217.lua b/script/c5479217.lua index 9fe0f74c..0390e9df 100644 --- a/script/c5479217.lua +++ b/script/c5479217.lua @@ -17,11 +17,11 @@ function c5479217.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c5479217.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c5479217.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c5479217.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c54813225.lua b/script/c54813225.lua index d7dbb002..96b0e25c 100644 --- a/script/c54813225.lua +++ b/script/c54813225.lua @@ -32,8 +32,9 @@ function c54813225.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c54813225.spop(e,tp,eg,ep,ev,re,r,rp,c) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c5487.lua b/script/c5487.lua deleted file mode 100644 index 32ba8205..00000000 --- a/script/c5487.lua +++ /dev/null @@ -1,31 +0,0 @@ ---黒・爆・裂・破・魔・導 -function c5487.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c5487.condition) - e1:SetTarget(c5487.target) - e1:SetOperation(c5487.activate) - c:RegisterEffect(e1) -end -function c5487.cfilter1(c) - return c:IsFaceup() and c:GetOriginalCode()==46986414 -end -function c5487.cfilter2(c) - return c:IsFaceup() and c:GetOriginalCode()==38033121 -end -function c5487.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c5487.cfilter1,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c5487.cfilter2,tp,LOCATION_MZONE,0,1,nil) -end -function c5487.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c5487.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.Destroy(g,REASON_EFFECT) -end diff --git a/script/c54912977.lua b/script/c54912977.lua index b9015bee..b360d9b3 100644 --- a/script/c54912977.lua +++ b/script/c54912977.lua @@ -22,7 +22,7 @@ function c54912977.initial_effect(c) end function c54912977.condition(e,tp,eg,ep,ev,re,r,rp) return r~=REASON_REPLACE and Duel.GetAttackTarget()==e:GetHandler() and Duel.GetAttacker():IsControler(1-tp) - and e:GetHandler():GetBattlePosition()==POS_FACEDOWN_DEFENCE + and e:GetHandler():GetBattlePosition()==POS_FACEDOWN_DEFENSE end function c54912977.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) end @@ -32,8 +32,10 @@ function c54912977.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c54912977.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.ChangeAttackTarget(tc) + local a=Duel.GetAttacker() + if tc and tc:IsRelateToEffect(e) + and a:IsAttackable() and not a:IsImmuneToEffect(e) then + Duel.CalculateDamage(a,tc) end end function c54912977.spfilter(c,e,tp) diff --git a/script/c54941203.lua b/script/c54941203.lua old mode 100755 new mode 100644 index 3c7d7496..05c47e7a --- a/script/c54941203.lua +++ b/script/c54941203.lua @@ -36,7 +36,8 @@ function c54941203.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c54941203.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) @@ -44,6 +45,9 @@ function c54941203.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x47e0000) e1:SetValue(LOCATION_REMOVED) c:RegisterEffect(e1,true) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c54941203.rectg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c5495.lua b/script/c5495.lua deleted file mode 100644 index 3fc24efa..00000000 --- a/script/c5495.lua +++ /dev/null @@ -1,79 +0,0 @@ ---ハーピィ・ハーピスト -function c5495.initial_effect(c) - --change name - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_CHANGE_CODE) - e1:SetRange(LOCATION_MZONE+LOCATION_GRAVE) - e1:SetValue(76812113) - c:RegisterEffect(e1) - --return - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c5495.target) - e2:SetOperation(c5495.operation) - c:RegisterEffect(e2) - --to grave - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetOperation(c5495.regop) - c:RegisterEffect(e3) -end -function c5495.filter1(c) - return c:IsFaceup() and c:IsRace(RACE_WINDBEAST) and c:IsAbleToHand() -end -function c5495.filter2(c) - return c:IsFaceup() and c:IsAbleToHand() -end -function c5495.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c5495.filter1,tp,LOCATION_MZONE,0,1,e:GetHandler()) - and Duel.IsExistingTarget(c5495.filter2,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g1=Duel.SelectTarget(tp,c5495.filter1,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g2=Duel.SelectTarget(tp,c5495.filter2,tp,0,LOCATION_MZONE,1,1,nil) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g1,2,0,0) -end -function c5495.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - end -end -function c5495.regop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsReason(REASON_RETURN) then - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetCountLimit(1,6495) - e1:SetRange(LOCATION_GRAVE) - e1:SetTarget(c5495.thtg) - e1:SetOperation(c5495.thop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end -end -function c5495.thfilter(c) - return c:IsAttackBelow(1600) and c:IsRace(RACE_WINDBEAST) and c:GetLevel()==4 and c:IsAbleToHand() -end -function c5495.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5495.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5495.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5495.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c5497.lua b/script/c5497.lua deleted file mode 100644 index d2cb1170..00000000 --- a/script/c5497.lua +++ /dev/null @@ -1,85 +0,0 @@ ---Malacoda, Netherlord of the Burning Abyss -function c5497.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --to hand - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(TIMING_DAMAGE_STEP) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCondition(c5497.adcon) - e2:SetCost(c5497.adcost) - e2:SetTarget(c5497.adtg) - e2:SetOperation(c5497.adop) - c:RegisterEffect(e2) - --draw - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOGRAVE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c5497.tgcon) - e3:SetTarget(c5497.tgtg) - e3:SetOperation(c5497.tgop) - c:RegisterEffect(e3) -end -function c5497.filter(c) - return c:IsSetCard(0xb1) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() -end -function c5497.adcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c5497.adcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5497.filter,tp,LOCATION_HAND,0,1,nil) end - local g=Duel.SelectMatchingCard(tp,c5497.filter,tp,LOCATION_HAND,0,1,1,nil) - e:SetLabelObject(g:GetFirst()) - Duel.SendtoGrave(g,REASON_COST) -end -function c5497.adtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsControler(1-tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,1,nil) -end -function c5497.adop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local cc=e:GetLabelObject() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-cc:GetAttack()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - e2:SetValue(-cc:GetDefence()) - tc:RegisterEffect(e2) - end -end -function c5497.tgcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) -end -function c5497.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsAbleToGrave() end - if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectTarget(tp,Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0) -end -function c5497.tgop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoGrave(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c54974237.lua b/script/c54974237.lua index 7686b10a..7c6299e0 100644 --- a/script/c54974237.lua +++ b/script/c54974237.lua @@ -20,7 +20,7 @@ function c54974237.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c54974237.tgfilter(c,ty) - return c:IsFaceup() and c:IsType(ty) and c:IsDestructable() + return c:IsFaceup() and c:IsType(ty) end function c54974237.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c5499.lua b/script/c5499.lua deleted file mode 100644 index 3a04d2ec..00000000 --- a/script/c5499.lua +++ /dev/null @@ -1,44 +0,0 @@ ---Dragoons of Draconia -function c5499.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --search - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLED) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetCondition(c5499.condition) - e2:SetTarget(c5499.target) - e2:SetOperation(c5499.operation) - c:RegisterEffect(e2) -end -function c5499.filter(c) - return c:IsType(TYPE_NORMAL) and c:IsLevelAbove(4) and c:IsAbleToHand() -end -function c5499.condition(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if not d then return false end - if d:IsControler(tp) then a,d=d,a end - if a:IsType(TYPE_NORMAL) and d:IsStatus(STATUS_BATTLE_DESTROYED) then - return true - else return false end -end -function c5499.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5499.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5499.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5499.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c5500.lua b/script/c5500.lua deleted file mode 100644 index e8841667..00000000 --- a/script/c5500.lua +++ /dev/null @@ -1,69 +0,0 @@ ---クリアウィング・シンクロ・ドラゴン -function c5500.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --negate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(5500,0)) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c5500.condition1) - e1:SetTarget(c5500.target) - e1:SetOperation(c5500.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e1:SetDescription(aux.Stringid(5500,1)) - e1:SetCondition(c5500.condition2) - c:RegisterEffect(e2) -end -function c5500.condition1(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) then return false end - if not re:IsActiveType(TYPE_MONSTER) then return false end - local rc=re:GetHandler() - return Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_MZONE and Duel.IsChainNegatable(ev) - and rc~=e:GetHandler() and rc:IsLevelAbove(5) -end -function c5500.condition2(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) then return false end - if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) or not re:IsActiveType(TYPE_MONSTER) then return false end - local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) - local tc=tg:GetFirst() - return tg and tg:GetCount()==1 and tc:IsOnField() and tc:IsLevelAbove(5) and Duel.IsChainNegatable(ev) -end -function c5500.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c5500.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - if c:IsRelateToEffect(e) and c:IsFaceup() then - local dg=Duel.GetOperatedGroup() - local atk=0 - local dc=dg:GetFirst() - while dc do - if dc:GetBaseAttack()>0 then atk=atk+dc:GetBaseAttack() end - dc=dg:GetNext() - end - if atk>0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(atk) - c:RegisterEffect(e1) - end - end - end -end diff --git a/script/c55001420.lua b/script/c55001420.lua index a7d8d07b..26a2281e 100644 --- a/script/c55001420.lua +++ b/script/c55001420.lua @@ -33,7 +33,7 @@ function c55001420.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c55001420.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c55001420.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c55001420.filter(chkc) end diff --git a/script/c5501.lua b/script/c5501.lua deleted file mode 100644 index 10cb1693..00000000 --- a/script/c5501.lua +++ /dev/null @@ -1,70 +0,0 @@ ---宝竜星－セフィラフウシ -function c5501.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --splimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_PZONE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) - e2:SetTargetRange(1,0) - e2:SetTarget(c5501.splimit) - e2:SetCondition(c5501.splimcon) - c:RegisterEffect(e2) - --spsummon success - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1,5501) - e3:SetCondition(c5501.condition) - e3:SetTarget(c5501.target) - e3:SetOperation(c5501.operation) - c:RegisterEffect(e3) -end -function c5501.splimit(e,c,sump,sumtype,sumpos,targetp) - if c:IsSetCard(0x9e) or c:IsSetCard(0xc2) then return false end - return bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM -end -function c5501.splimcon(e) - return not e:GetHandler():IsForbidden() -end -function c5501.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetSummonType()==SUMMON_TYPE_PENDULUM or c:IsPreviousLocation(LOCATION_DECK) -end -function c5501.filter(c) - return c:IsFaceup() and not c:IsCode(5501) and (c:IsSetCard(0x9e) or c:IsSetCard(0xc2)) -end -function c5501.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c5501.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5501.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c5501.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c5501.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_ADD_TYPE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(TYPE_TUNER) - tc:RegisterEffect(e1) - end - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetReset(RESET_EVENT+0x47e0000) - e2:SetValue(LOCATION_DECKBOT) - c:RegisterEffect(e2) -end diff --git a/script/c55010259.lua b/script/c55010259.lua new file mode 100644 index 00000000..cc1fa6ea --- /dev/null +++ b/script/c55010259.lua @@ -0,0 +1,63 @@ +--ゴールド・ガジェット +function c55010259.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(55010259,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetCountLimit(1,55010259) + e1:SetTarget(c55010259.sptg1) + e1:SetOperation(c55010259.spop1) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(55010259,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_DESTROYED) + e3:SetCountLimit(1,55010259) + e3:SetCondition(c55010259.spcon2) + e3:SetTarget(c55010259.sptg2) + e3:SetOperation(c55010259.spop2) + c:RegisterEffect(e3) +end +function c55010259.spfilter1(c,e,tp) + return c:IsRace(RACE_MACHINE) and c:GetLevel()==4 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c55010259.sptg1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c55010259.spfilter1,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c55010259.spop1(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c55010259.spfilter1,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 +function c55010259.spcon2(e,tp,eg,ep,ev,re,r,rp) + return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 +end +function c55010259.spfilter2(c,e,tp) + return c:IsSetCard(0x51) and c:GetLevel()==4 and not c:IsCode(55010259) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c55010259.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c55010259.spfilter2,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c55010259.spop2(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c55010259.spfilter2,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c5502.lua b/script/c5502.lua deleted file mode 100644 index 13506947..00000000 --- a/script/c5502.lua +++ /dev/null @@ -1,72 +0,0 @@ ---覚星輝士－セフィラビュート -function c5502.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --splimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_PZONE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) - e2:SetTargetRange(1,0) - e2:SetTarget(c5502.splimit) - e2:SetCondition(c5502.splimcon) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1,5502) - e3:SetTarget(c5502.target) - e3:SetOperation(c5502.operation) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e4) - local e5=e3:Clone() - e5:SetCode(EVENT_SPSUMMON_SUCCESS) - e5:SetCondition(c5502.condition) - c:RegisterEffect(e5) -end -function c5502.splimit(e,c,sump,sumtype,sumpos,targetp) - if c:IsSetCard(0x9c) or c:IsSetCard(0xc3) then return false end - return bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM -end -function c5502.splimcon(e) - return not e:GetHandler():IsForbidden() -end -function c5502.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM -end -function c5502.filter1(c) - return (c:IsLocation(LOCATION_MZONE) or (c:IsLocation(LOCATION_SZONE) and (c:GetSequence()==6 or c:GetSequence()==7))) - and c:IsFaceup() and (c:IsSetCard(0x9c) or c:IsSetCard(0xc3)) and c:IsDestructable() -end -function c5502.filter2(c) - return c:IsFacedown() and c:IsDestructable() -end -function c5502.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c5502.filter1,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) - and Duel.IsExistingTarget(c5502.filter2,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,c5502.filter1,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,c5502.filter2,tp,0,LOCATION_ONFIELD,1,1,nil) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0) -end -function c5502.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end -end diff --git a/script/c5503.lua b/script/c5503.lua deleted file mode 100644 index bda6f5e0..00000000 --- a/script/c5503.lua +++ /dev/null @@ -1,67 +0,0 @@ ---オルシャドール－セフィラルーツ -function c5503.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --splimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_PZONE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) - e2:SetTargetRange(1,0) - e2:SetTarget(c5503.splimit) - e2:SetCondition(c5503.splimcon) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1,5503) - e3:SetCondition(c5503.condition1) - e3:SetTarget(c5503.target) - e3:SetOperation(c5503.operation) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EVENT_TO_GRAVE) - e4:SetCondition(c5503.condition2) - c:RegisterEffect(e4) -end -function c5503.splimit(e,c,sump,sumtype,sumpos,targetp) - if c:IsSetCard(0x9d) or c:IsSetCard(0xc3) then return false end - return bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM -end -function c5503.splimcon(e) - return not e:GetHandler():IsForbidden() -end -function c5503.condition1(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM -end -function c5503.condition2(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsReason(REASON_RETURN) -end -function c5503.filter(c,e,tp) - return c:IsFaceup() and (c:GetSequence()==6 or c:GetSequence()==7) - and not c:IsCode(5503) and c:IsSetCard(0xc3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5503.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and c5503.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5503.filter,tp,LOCATION_SZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5503.filter,tp,LOCATION_SZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c5503.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c5504.lua b/script/c5504.lua deleted file mode 100644 index c9cb1738..00000000 --- a/script/c5504.lua +++ /dev/null @@ -1,57 +0,0 @@ ---炎獣の影霊衣－セフィラエグザ -function c5504.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --splimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_PZONE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) - e2:SetTargetRange(1,0) - e2:SetTarget(c5504.splimit) - e2:SetCondition(c5504.splimcon) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetRange(LOCATION_HAND+LOCATION_GRAVE) - e3:SetCode(EVENT_DESTROY) - e3:SetCountLimit(1,5504) - e3:SetCondition(c5504.condition) - e3:SetTarget(c5504.target) - e3:SetOperation(c5504.operation) - c:RegisterEffect(e3) -end -function c5504.splimit(e,c,sump,sumtype,sumpos,targetp) - if c:IsSetCard(0xb4) or c:IsSetCard(0xc3) then return false end - return bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM -end -function c5504.splimcon(e) - return not e:GetHandler():IsForbidden() -end -function c5504.filter(c,tp) - return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsControler(tp) and not c:IsCode(5504) and (c:IsSetCard(0xb4) or c:IsSetCard(0xc3)) - and (c:IsLocation(LOCATION_MZONE) or (c:IsLocation(LOCATION_SZONE) and (c:GetSequence()==6 or c:GetSequence()==7))) -end -function c5504.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c5504.filter,1,nil,tp) -end -function c5504.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c5504.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - end -end diff --git a/script/c5505.lua b/script/c5505.lua deleted file mode 100644 index 28919b91..00000000 --- a/script/c5505.lua +++ /dev/null @@ -1,102 +0,0 @@ ---英霊獣使い－セフィラムピリカ -function c5505.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --splimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_PZONE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) - e2:SetTargetRange(1,0) - e2:SetTarget(c5505.splimit) - e2:SetCondition(c5505.splimcon) - c:RegisterEffect(e2) - --spsummon limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e3:SetCondition(c5505.limcon) - c:RegisterEffect(e3) - --spsummon - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_SUMMON_SUCCESS) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetTarget(c5505.target) - e4:SetOperation(c5505.operation) - c:RegisterEffect(e4) - local e5=e4:Clone() - e5:SetCode(EVENT_SPSUMMON_SUCCESS) - e5:SetCondition(c5505.condition) - c:RegisterEffect(e5) - if not c5505.global_check then - c5505.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_SPSUMMON_SUCCESS) - ge1:SetOperation(c5505.checkop) - Duel.RegisterEffect(ge1,0) - end -end -function c5505.checkop(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - local p1=false - local p2=false - while tc do - if tc:IsCode(5505) then - if tc:GetSummonPlayer()==0 then p1=true else p2=true end - end - tc=eg:GetNext() - end - if p1 then Duel.RegisterFlagEffect(0,5505,RESET_PHASE+PHASE_END,0,1) end - if p2 then Duel.RegisterFlagEffect(1,5505,RESET_PHASE+PHASE_END,0,1) end -end -function c5505.splimit(e,c,sump,sumtype,sumpos,targetp) - if c:IsSetCard(0xb5) or c:IsSetCard(0xc3) then return false end - return bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM -end -function c5505.splimcon(e) - return not e:GetHandler():IsForbidden() -end -function c5505.limcon(e) - return Duel.GetFlagEffect(e:GetHandlerPlayer(),5505)~=0 -end -function c5505.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM -end -function c5505.filter(c,e,tp) - return not c:IsCode(5505) and (c:IsSetCard(0xb5) or c:IsSetCard(0xc3)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5505.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c5505.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5505.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5505.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c5505.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetOperation(c5505.desop) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end -function c5505.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end diff --git a/script/c5506.lua b/script/c5506.lua deleted file mode 100644 index 5443556f..00000000 --- a/script/c5506.lua +++ /dev/null @@ -1,122 +0,0 @@ ---永遠の魂 -function c5506.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetTarget(c5506.target1) - e1:SetOperation(c5506.operation) - c:RegisterEffect(e1) - --instant - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(0,TIMING_END_PHASE) - e2:SetCost(c5506.cost2) - e2:SetTarget(c5506.target2) - e2:SetOperation(c5506.operation) - c:RegisterEffect(e2) - --immune effect - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_IMMUNE_EFFECT) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetTarget(c5506.etg) - e3:SetValue(c5506.eval) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(EVENT_LEAVE_FIELD) - e4:SetCondition(c5506.descon) - e4:SetTarget(c5506.destg) - e4:SetOperation(c5506.desop) - c:RegisterEffect(e4) -end -function c5506.filter1(c,e,tp) - return c:IsCode(46986414) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5506.filter2(c) - return (c:IsCode(2314238) or c:IsCode(63391643)) and c:IsAbleToHand() -end -function c5506.target1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local b1=Duel.IsExistingMatchingCard(c5506.filter1,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) - local b2=Duel.IsExistingMatchingCard(c5506.filter2,tp,LOCATION_DECK,0,1,nil) - local op=2 - if Duel.GetFlagEffect(tp,5506)==0 and (b1 or b2) and Duel.SelectYesNo(tp,aux.Stringid(5506,0)) then - if b1 and b2 then - op=Duel.SelectOption(tp,aux.Stringid(5506,1),aux.Stringid(5506,2)) - elseif b1 then - op=Duel.SelectOption(tp,aux.Stringid(5506,1)) - else - op=Duel.SelectOption(tp,aux.Stringid(5506,2))+1 - end - if op==0 then Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) end - if op==1 then Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) end - Duel.RegisterFlagEffect(tp,5506,RESET_PHASE+PHASE_END,0,1) - end - e:SetLabel(op) -end -function c5506.operation(e,tp,eg,ep,ev,re,r,rp) - if e:GetLabel()==2 or not e:GetHandler():IsRelateToEffect(e) then return end - if e:GetLabel()==0 then - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5506.filter1,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5506.filter2,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end - end -end -function c5506.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,5506)==0 end - Duel.RegisterFlagEffect(tp,5506,RESET_PHASE+PHASE_END,0,1) -end -function c5506.target2(e,tp,eg,ep,ev,re,r,rp,chk) - local b1=Duel.IsExistingMatchingCard(c5506.filter1,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) - local b2=Duel.IsExistingMatchingCard(c5506.filter2,tp,LOCATION_DECK,0,1,nil) - if chk==0 then return b1 or b2 end - local op=0 - if b1 and b2 then - op=Duel.SelectOption(tp,aux.Stringid(5506,1),aux.Stringid(5506,2)) - elseif b1 then - op=Duel.SelectOption(tp,aux.Stringid(5506,1)) - else - op=Duel.SelectOption(tp,aux.Stringid(5506,2))+1 - end - e:SetLabel(op) - if op==0 then Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) end - if op==1 then Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) end -end -function c5506.etg(e,c) - return c:IsCode(46986414) -end -function c5506.eval(e,re,rp) - return re:GetHandlerPlayer()~=e:GetHandlerPlayer() -end -function c5506.descon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousPosition(POS_FACEUP) and c:GetLocation()~=LOCATION_DECK -end -function c5506.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c5506.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) - Duel.Destroy(g,REASON_EFFECT) -end diff --git a/script/c55063751.lua b/script/c55063751.lua index 6e3323c8..cada4d81 100644 --- a/script/c55063751.lua +++ b/script/c55063751.lua @@ -1,6 +1,6 @@ --Gameciel, the Sea Turtle Kaiju function c55063751.initial_effect(c) - c:SetUniqueOnField(1,0,20000000) + c:SetUniqueOnField(1,0,20000000,LOCATION_MZONE) --special summon rule local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) @@ -23,7 +23,7 @@ function c55063751.initial_effect(c) local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(55063751,0)) e3:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e3:SetType(EFFECT_TYPE_QUICK_O) e3:SetCode(EVENT_CHAINING) e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e3:SetRange(LOCATION_MZONE) diff --git a/script/c5506791.lua b/script/c5506791.lua index d2836083..fe933a5c 100644 --- a/script/c5506791.lua +++ b/script/c5506791.lua @@ -9,6 +9,7 @@ function c5506791.initial_effect(c) e2:SetCode(EVENT_SUMMON_SUCCESS) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP) e2:SetCountLimit(1,5506791) + e2:SetTarget(c5506791.regtg) e2:SetOperation(c5506791.regop) c:RegisterEffect(e2) local e3=e2:Clone() @@ -34,6 +35,9 @@ end function c5506791.thfilter(c) return c:IsSetCard(0xd0) and c:IsAbleToHand() end +function c5506791.regtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_DECK,0,1,nil,0xd0) end +end function c5506791.regop(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) diff --git a/script/c5507.lua b/script/c5507.lua deleted file mode 100644 index 47476e54..00000000 --- a/script/c5507.lua +++ /dev/null @@ -1,49 +0,0 @@ ---ピースの輪 -function c5507.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_TO_HAND) - e1:SetCondition(c5507.regcon) - e1:SetOperation(c5507.regop) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_ACTIVATE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetCondition(c5507.condition) - e2:SetTarget(c5507.target) - e2:SetOperation(c5507.activate) - c:RegisterEffect(e2) -end -function c5507.regcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,0)==0 and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>=3 - and Duel.GetCurrentPhase()==PHASE_DRAW and c:IsReason(REASON_DRAW) and c:IsReason(REASON_RULE) -end -function c5507.regop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if Duel.SelectYesNo(tp,aux.Stringid(5507,0)) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_PUBLIC) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_MAIN1) - c:RegisterEffect(e1) - c:RegisterFlagEffect(5507,RESET_PHASE+PHASE_MAIN1,0,1) - end -end -function c5507.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_MAIN1 and e:GetHandler():GetFlagEffect(5507)~=0 -end -function c5507.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5507.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - 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) - end -end diff --git a/script/c5508.lua b/script/c5508.lua deleted file mode 100644 index 7cace1b5..00000000 --- a/script/c5508.lua +++ /dev/null @@ -1,30 +0,0 @@ ---黒・魔・導・爆・裂・破 -function c5508.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c5508.condition) - e1:SetTarget(c5508.target) - e1:SetOperation(c5508.activate) - c:RegisterEffect(e1) -end -function c5508.cfilter(c) - return c:IsFaceup() and (c:IsCode(38033121) or c:IsCode(90960358) or c:IsCode(43892408)) -end -function c5508.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c5508.cfilter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c5508.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c5508.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5508.filter,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(c5508.filter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c5508.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c5508.filter,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c5509.lua b/script/c5509.lua deleted file mode 100644 index 6aab92b9..00000000 --- a/script/c5509.lua +++ /dev/null @@ -1,67 +0,0 @@ ---SNo.39 希望皇ホープ・ザ・ライトニング -function c5509.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_LIGHT),5,3,c5509.ovfilter,aux.Stringid(5509,0)) - c:EnableReviveLimit() - --xyzlimit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) - e1:SetValue(1) - c:RegisterEffect(e1) - --actlimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_ACTIVATE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,1) - e2:SetValue(c5509.aclimit) - e2:SetCondition(c5509.actcon) - c:RegisterEffect(e2) - --atk - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e3:SetHintTiming(TIMING_DAMAGE_CAL) - e3:SetCondition(c5509.atkcon) - e3:SetCost(c5509.atkcost) - e3:SetOperation(c5509.atkop) - c:RegisterEffect(e3) -end -function c5509.ovfilter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) and c:GetRank()==5 -end -function c5509.aclimit(e,re,tp) - return not re:GetHandler():IsImmuneToEffect(e) -end -function c5509.actcon(e) - return Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler() -end -function c5509.atkcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetOverlayGroup():IsExists(Card.IsSetCard,1,nil,0x7f) - and c:GetBattleTarget()~=nil - and Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and not Duel.IsDamageCalculated() -end -function c5509.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:CheckRemoveOverlayCard(tp,2,REASON_COST) and c:GetFlagEffect(5509)==0 end - c:RemoveOverlayCard(tp,2,2,REASON_COST) - c:RegisterFlagEffect(5509,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL,0,1) -end -function c5509.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(5000) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL) - c:RegisterEffect(e1) - end -end diff --git a/script/c55100740.lua b/script/c55100740.lua new file mode 100644 index 00000000..567d8fd2 --- /dev/null +++ b/script/c55100740.lua @@ -0,0 +1,38 @@ +--化合獣ハイドロン・ホーク +function c55100740.initial_effect(c) + aux.EnableDualAttribute(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(55100740,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetCountLimit(1,55100740) + e1:SetRange(LOCATION_MZONE) + e1:SetCondition(aux.IsDualState) + e1:SetCost(c55100740.spcost) + e1:SetTarget(c55100740.sptg) + e1:SetOperation(c55100740.spop) + c:RegisterEffect(e1) +end +function c55100740.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) +end +function c55100740.filter(c,e,tp) + return c:IsType(TYPE_DUAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c55100740.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c55100740.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c55100740.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c55100740.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c55100740.spop(e,tp,eg,ep,ev,re,r,rp,chk) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + end +end diff --git a/script/c55106249.lua b/script/c55106249.lua index a541136b..26301cf2 100644 --- a/script/c55106249.lua +++ b/script/c55106249.lua @@ -1,89 +1,87 @@ ---ブンボーグ006 -function c55106249.initial_effect(c) - --pendulum summon - aux.EnablePendulumAttribute(c) - --splimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_PZONE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) - e2:SetTargetRange(1,0) - e2:SetCondition(aux.nfbdncon) - e2:SetTarget(c55106249.splimit) - c:RegisterEffect(e2) - --pos - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_POSITION) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetTarget(c55106249.postg) - e3:SetOperation(c55106249.posop) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e4) - --atk - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_UPDATE_ATTACK) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetRange(LOCATION_MZONE) - e5:SetValue(c55106249.atkval) - c:RegisterEffect(e5) - --to hand - local e6=Effect.CreateEffect(c) - e6:SetCategory(CATEGORY_TOHAND) - e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e6:SetCode(EVENT_DESTROYED) - e6:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e6:SetCountLimit(1,55106249) - e6:SetCondition(c55106249.thcon) - e6:SetTarget(c55106249.thtg) - e6:SetOperation(c55106249.thop) - c:RegisterEffect(e6) -end -function c55106249.splimit(e,c,tp,sumtp,sumpos) - return not c:IsSetCard(0xab) and bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM -end -function c55106249.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) end - if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) - local g=Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c55106249.posop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) - end -end -function c55106249.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0xab) -end -function c55106249.atkval(e,c) - return Duel.GetMatchingGroupCount(c55106249.cfilter,c:GetControler(),LOCATION_EXTRA,0,nil)*500 -end -function c55106249.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_SZONE) and (c:GetPreviousSequence()==6 or c:GetPreviousSequence()==7) -end -function c55106249.thfilter(c) - return c:IsSetCard(0xab) and c:IsAbleToHand() -end -function c55106249.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c55106249.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c55106249.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c55106249.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c55106249.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--ブンボーグ006 +function c55106249.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --splimit + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetRange(LOCATION_PZONE) + e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) + e2:SetTargetRange(1,0) + e2:SetTarget(c55106249.splimit) + c:RegisterEffect(e2) + --pos + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_POSITION) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_SUMMON_SUCCESS) + e3:SetTarget(c55106249.postg) + e3:SetOperation(c55106249.posop) + c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e4) + --atk + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_SINGLE) + e5:SetCode(EFFECT_UPDATE_ATTACK) + e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e5:SetRange(LOCATION_MZONE) + e5:SetValue(c55106249.atkval) + c:RegisterEffect(e5) + --to hand + local e6=Effect.CreateEffect(c) + e6:SetCategory(CATEGORY_TOHAND) + e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e6:SetCode(EVENT_DESTROYED) + e6:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e6:SetCountLimit(1,55106249) + e6:SetCondition(c55106249.thcon) + e6:SetTarget(c55106249.thtg) + e6:SetOperation(c55106249.thop) + c:RegisterEffect(e6) +end +function c55106249.splimit(e,c,tp,sumtp,sumpos) + return not c:IsSetCard(0xab) and bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM +end +function c55106249.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) + local g=Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) +end +function c55106249.posop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + end +end +function c55106249.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xab) +end +function c55106249.atkval(e,c) + return Duel.GetMatchingGroupCount(c55106249.cfilter,c:GetControler(),LOCATION_EXTRA,0,nil)*500 +end +function c55106249.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_SZONE) and (c:GetPreviousSequence()==6 or c:GetPreviousSequence()==7) +end +function c55106249.thfilter(c) + return c:IsSetCard(0xab) and c:IsAbleToHand() +end +function c55106249.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c55106249.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c55106249.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c55106249.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c55106249.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c55119278.lua b/script/c55119278.lua index 6a9b6316..0a026a4c 100644 --- a/script/c55119278.lua +++ b/script/c55119278.lua @@ -12,7 +12,7 @@ function c55119278.initial_effect(c) c:RegisterEffect(e1) --def local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetCondition(c55119278.cond) e2:SetValue(1000) c:RegisterEffect(e2) @@ -21,5 +21,5 @@ function c55119278.cona(e) return e:GetHandler():IsAttackPos() end function c55119278.cond(e) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end diff --git a/script/c55171412.lua b/script/c55171412.lua index 2eedd33d..48e2eb96 100644 --- a/script/c55171412.lua +++ b/script/c55171412.lua @@ -52,16 +52,17 @@ function c55171412.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA) end function c55171412.spfilter(c,code) - return c:IsAbleToDeckOrExtraAsCost() and c:IsCode(code) + return c:IsAbleToDeckOrExtraAsCost() and c:IsFusionCode(code) end function c55171412.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-1 then return false end local g1=Duel.GetMatchingGroup(c55171412.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723) local g2=Duel.GetMatchingGroup(c55171412.spfilter,tp,LOCATION_ONFIELD,0,nil,17955766) if g1:GetCount()==0 or g2:GetCount()==0 then return false end + if g1:GetCount()==1 and g2:GetCount()==1 and g1:GetFirst()==g2:GetFirst() then return false end if ft>0 then return true end local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) @@ -79,12 +80,22 @@ function c55171412.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) if ft<=0 then tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() + ft=ft+1 else tc=g1:Select(tp,1,1,nil):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 + if i==1 then + g1:Clear() + if tc:IsFusionCode(89943723) then + local sg=Duel.GetMatchingGroup(c55171412.spfilter,tp,LOCATION_ONFIELD,0,tc,17955766) + g1:Merge(sg) + end + if tc:IsFusionCode(17955766) then + local sg=Duel.GetMatchingGroup(c55171412.spfilter,tp,LOCATION_ONFIELD,0,tc,89943723) + g1:Merge(sg) + end + end end local cg=g:Filter(Card.IsFacedown,nil) if cg:GetCount()>0 then @@ -92,10 +103,10 @@ function c55171412.spop(e,tp,eg,ep,ev,re,r,rp,c) end Duel.SendtoDeck(g,nil,2,REASON_COST) end -function c55171412.retcon1(e,tp,eg,ep,ev,re,r,rp,chk) +function c55171412.retcon1(e,tp,eg,ep,ev,re,r,rp) return not e:GetHandler():IsHasEffect(42015635) end -function c55171412.retcon2(e,tp,eg,ep,ev,re,r,rp,chk) +function c55171412.retcon2(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsHasEffect(42015635) end function c55171412.rettg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c55204071.lua b/script/c55204071.lua index 9304f774..9f1aff03 100644 --- a/script/c55204071.lua +++ b/script/c55204071.lua @@ -46,7 +46,7 @@ function c55204071.spcon2(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 end function c55204071.spfilter(c,e,tp) - return c:IsCode(55204071) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(55204071) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c55204071.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -57,7 +57,7 @@ function c55204071.spop2(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c55204071.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end @@ -73,4 +73,4 @@ function c55204071.spop3(e,tp,eg,ep,ev,re,r,rp,c) end function c55204071.splimit(e,c) return not c:IsSetCard(0x83) -end \ No newline at end of file +end diff --git a/script/c55256016.lua b/script/c55256016.lua old mode 100755 new mode 100644 index 815be389..5f3fd8e9 --- a/script/c55256016.lua +++ b/script/c55256016.lua @@ -33,7 +33,7 @@ function c55256016.target(e,tp,eg,ep,ev,re,r,rp,chk) end end function c55256016.desfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c55256016.operation(e,tp,eg,ep,ev,re,r,rp) Duel.NegateActivation(ev) diff --git a/script/c55277252.lua b/script/c55277252.lua index 3fcf8831..2ac2eee5 100644 --- a/script/c55277252.lua +++ b/script/c55277252.lua @@ -37,8 +37,11 @@ function c55277252.op(e,tp,eg,ep,ev,re,r,rp) local sg=g:Select(tp,1,1,e:GetHandler()) Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD) end - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),1,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c55277252.con2(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c55321970.lua b/script/c55321970.lua index 01234afb..93008a3c 100644 --- a/script/c55321970.lua +++ b/script/c55321970.lua @@ -18,7 +18,7 @@ function c55321970.initial_effect(c) --def down local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(-200) c:RegisterEffect(e3) --equip limit diff --git a/script/c55326322.lua b/script/c55326322.lua new file mode 100644 index 00000000..d50a29fd --- /dev/null +++ b/script/c55326322.lua @@ -0,0 +1,93 @@ +--水晶機巧－ローズニクス +function c55326322.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1,55326322) + e1:SetTarget(c55326322.sptg) + e1:SetOperation(c55326322.spop) + c:RegisterEffect(e1) + --token + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,55326322) + e2:SetCost(c55326322.tkcost) + e2:SetTarget(c55326322.tktg) + e2:SetOperation(c55326322.tkop) + c:RegisterEffect(e2) +end +function c55326322.desfilter(c) + return c:IsFaceup() +end +function c55326322.spfilter(c,e,tp) + return c:IsSetCard(0xea) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c55326322.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(e:GetLabel()) and chkc:IsControler(tp) and c55326322.desfilter(chkc) end + if chk==0 then + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<-1 then return false end + local loc=LOCATION_ONFIELD + if ft==0 then loc=LOCATION_MZONE end + e:SetLabel(loc) + return Duel.IsExistingTarget(c55326322.desfilter,tp,loc,0,1,nil) + and Duel.IsExistingMatchingCard(c55326322.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c55326322.desfilter,tp,e:GetLabel(),0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c55326322.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c55326322.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetTarget(c55326322.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c55326322.splimit(e,c) + return not (c:IsRace(RACE_MACHINE) and c:IsType(TYPE_SYNCHRO)) and c:IsLocation(LOCATION_EXTRA) +end +function c55326322.tkcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c55326322.tktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsPlayerCanSpecialSummonMonster(tp,55326323,0xea,0x4011,0,0,1,RACE_MACHINE,ATTRIBUTE_WATER) end + Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) +end +function c55326322.tkop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + or not Duel.IsPlayerCanSpecialSummonMonster(tp,55326323,0xea,0x4011,0,0,1,RACE_MACHINE,ATTRIBUTE_WATER) then return end + local token=Duel.CreateToken(tp,55326323) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UNRELEASABLE_SUM) + e1:SetValue(1) + e1:SetReset(RESET_EVENT+0x1fe0000) + token:RegisterEffect(e1,true) + local e2=e1:Clone() + e2:SetCode(EFFECT_UNRELEASABLE_NONSUM) + token:RegisterEffect(e2,true) + Duel.SpecialSummonComplete() +end diff --git a/script/c55348096.lua b/script/c55348096.lua index 2f5bd7d5..9232db53 100644 --- a/script/c55348096.lua +++ b/script/c55348096.lua @@ -21,9 +21,5 @@ function c55348096.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(1-tp,c55348096.tgfilter,1-tp,LOCATION_DECK,0,1,1,nil) if g:GetCount()>0 then Duel.SendtoGrave(g,REASON_EFFECT) - else - local cg=Duel.GetFieldGroup(1-tp,LOCATION_DECK,0) - Duel.ConfirmCards(tp,cg) - Duel.ShuffleDeck(1-tp) end end diff --git a/script/c55375684.lua b/script/c55375684.lua index 51976cf4..4a014642 100644 --- a/script/c55375684.lua +++ b/script/c55375684.lua @@ -22,7 +22,6 @@ function c55375684.condition(e,tp,eg,ep,ev,re,r,rp) end function c55375684.filter(c,e,tp) return c:IsLevelBelow(4) and c:IsSetCard(0x18) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c55375684.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -35,7 +34,7 @@ function c55375684.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c55375684.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then local grav=g:GetFirst():IsLocation(LOCATION_GRAVE) Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) if grav then Duel.Destroy(e:GetHandler(),REASON_EFFECT) end diff --git a/script/c55401221.lua b/script/c55401221.lua old mode 100755 new mode 100644 diff --git a/script/c55410871.lua b/script/c55410871.lua new file mode 100644 index 00000000..29c02d8a --- /dev/null +++ b/script/c55410871.lua @@ -0,0 +1,48 @@ +--ブルーアイズ・カオス・MAX・ドラゴン +function c55410871.initial_effect(c) + c:EnableReviveLimit() + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(aux.ritlimit) + c:RegisterEffect(e1) + --cannot target + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e2:SetValue(aux.tgoval) + c:RegisterEffect(e2) + --indes + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetValue(c55410871.indval) + c:RegisterEffect(e3) + --pierce + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_PIERCE) + c:RegisterEffect(e4) + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e5:SetCode(EVENT_PRE_BATTLE_DAMAGE) + e5:SetCondition(c55410871.damcon) + e5:SetOperation(c55410871.damop) + c:RegisterEffect(e5) +end +function c55410871.indval(e,re,tp) + return tp~=e:GetHandlerPlayer() +end +function c55410871.damcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return ep~=tp and c==Duel.GetAttacker() and Duel.GetAttackTarget() and Duel.GetAttackTarget():IsDefensePos() +end +function c55410871.damop(e,tp,eg,ep,ev,re,r,rp) + Duel.ChangeBattleDamage(ep,ev*2) +end diff --git a/script/c55416843.lua b/script/c55416843.lua index 509694cb..6e2a2c99 100644 --- a/script/c55416843.lua +++ b/script/c55416843.lua @@ -11,7 +11,6 @@ function c55416843.initial_effect(c) end function c55416843.filter(c,e,tp) return c:GetLevel()==5 and c:IsRace(RACE_WARRIOR) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c55416843.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -25,7 +24,7 @@ function c55416843.operation(e,tp,eg,ep,ev,re,r,rp) if ft>2 then ft=2 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c55416843.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,ft,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then local tc=g:GetFirst() while tc do Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) diff --git a/script/c55424270.lua b/script/c55424270.lua index 89fc1967..81a699d4 100644 --- a/script/c55424270.lua +++ b/script/c55424270.lua @@ -1,6 +1,6 @@ --魔導獣 ケルベロス function c55424270.initial_effect(c) - c:EnableCounterPermit(0x3001) + c:EnableCounterPermit(0x1) --add counter local e0=Effect.CreateEffect(c) e0:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) @@ -33,17 +33,17 @@ function c55424270.initial_effect(c) end function c55424270.acop(e,tp,eg,ep,ev,re,r,rp) if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c55424270.attackup(e,c) - return c:GetCounter(0x3001)*500 + return c:GetCounter(0x1)*500 end function c55424270.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetBattledGroupCount()>0 end function c55424270.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - local n=c:GetCounter(0x3001) - if n~=0 then c:RemoveCounter(tp,0x3001,n,REASON_EFFECT) end + local n=c:GetCounter(0x1) + if n~=0 then c:RemoveCounter(tp,0x1,n,REASON_EFFECT) end end diff --git a/script/c55428242.lua b/script/c55428242.lua index 8a6a4f30..81294ff1 100644 --- a/script/c55428242.lua +++ b/script/c55428242.lua @@ -29,6 +29,14 @@ function c55428242.initial_effect(c) e4:SetRange(LOCATION_MZONE) e4:SetValue(c55428242.chainfilter) c:RegisterEffect(e4) + --cannot disable + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_FIELD) + e5:SetCode(EFFECT_CANNOT_DISABLE) + e5:SetRange(LOCATION_MZONE) + e5:SetTargetRange(LOCATION_ONFIELD,0) + e5:SetTarget(c55428242.distarget) + c:RegisterEffect(e5) end function c55428242.efilter(e,te) local c=te:GetHandler() @@ -37,6 +45,9 @@ end function c55428242.etarget(e,c) return c:GetType()==TYPE_TRAP and (c:IsSetCard(0x4c) or c:IsSetCard(0x89)) end +function c55428242.distarget(e,c) + return c:GetType()==TYPE_TRAP or c:GetType()==TYPE_TRAP+TYPE_EQUIP +end function c55428242.chainfilter(e,ct) local p=e:GetHandlerPlayer() local te,tp=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER) diff --git a/script/c55428811.lua b/script/c55428811.lua index f7f90911..78d4300c 100644 --- a/script/c55428811.lua +++ b/script/c55428811.lua @@ -30,9 +30,9 @@ function c55428811.activate(e,tp,eg,ep,ev,re,r,rp) if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=5 then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) if ct==5 then - Duel.ShuffleDeck(tp) Duel.BreakEffect() Duel.Draw(tp,e:GetLabel(),REASON_EFFECT) end diff --git a/script/c55461064.lua b/script/c55461064.lua index fc610287..485731e0 100644 --- a/script/c55461064.lua +++ b/script/c55461064.lua @@ -16,12 +16,12 @@ function c55461064.initial_effect(c) c:RegisterEffect(e1) end function c55461064.atkcon(e,tp,eg,ep,ev,re,r,rp) - local phase=Duel.GetCurrentPhase() - return Duel.GetTurnPlayer()~=tp and (phase==PHASE_BATTLE or (phase==PHASE_DAMAGE and not Duel.IsDamageCalculated())) + local ph=Duel.GetCurrentPhase() + return Duel.GetTurnPlayer()~=tp and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE and (ph~=PHASE_DAMAGE or not Duel.IsDamageCalculated()) end function c55461064.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) + if chk==0 then return e:GetHandler():IsDiscardable() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) end function c55461064.filter(c) return c:IsFaceup() and c:IsSetCard(0xc008) @@ -29,7 +29,7 @@ end function c55461064.atktg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c55461064.filter,tp,LOCATION_MZONE,0,1,nil) end end -function c55461064.atkop(e,tp,eg,ep,ev,re,r,rp,chk) +function c55461064.atkop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c55461064.filter,tp,LOCATION_MZONE,0,nil) local tc=g:GetFirst() while tc do @@ -42,4 +42,4 @@ function c55461064.atkop(e,tp,eg,ep,ev,re,r,rp,chk) tc:RegisterEffect(e1) tc=g:GetNext() end -end \ No newline at end of file +end diff --git a/script/c55465441.lua b/script/c55465441.lua index 8db60d79..cba29944 100644 --- a/script/c55465441.lua +++ b/script/c55465441.lua @@ -11,7 +11,7 @@ function c55465441.initial_effect(c) c:RegisterEffect(e1) end function c55465441.filter(c,e,tp) - return c:GetLevel()>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENCE,1-tp) + return c:GetLevel()>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,1-tp) end function c55465441.filter2(c) return c:IsFaceup() and not c:IsType(TYPE_XYZ) @@ -33,7 +33,7 @@ function c55465441.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local tc2=g:GetFirst() if tc2==tc1 then tc2=g:GetNext() end - if tc2:IsRelateToEffect(e) and Duel.SpecialSummon(tc2,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE)~=0 + if tc2:IsRelateToEffect(e) and Duel.SpecialSummon(tc2,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE)~=0 and tc1:IsFaceup() and tc1:IsRelateToEffect(e) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c55470553.lua b/script/c55470553.lua new file mode 100644 index 00000000..71a99643 --- /dev/null +++ b/script/c55470553.lua @@ -0,0 +1,69 @@ +--No.98 絶望皇ホープレス +function c55470553.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,4,2) + c:EnableReviveLimit() + --pos + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(55470553,0)) + e1:SetCategory(CATEGORY_POSITION) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetRange(LOCATION_MZONE) + e1:SetCost(c55470553.poscost) + e1:SetTarget(c55470553.postg) + e1:SetOperation(c55470553.posop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(55470553,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetHintTiming(0,TIMING_BATTLE_START) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,55470553) + e2:SetTarget(c55470553.sptg) + e2:SetOperation(c55470553.spop) + c:RegisterEffect(e2) +end +c55470553.xyz_number=98 +function c55470553.poscost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c55470553.postg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetAttacker():IsAttackPos() end +end +function c55470553.posop(e,tp,eg,ep,ev,re,r,rp) + local at=Duel.GetAttacker() + if at:IsAttackPos() and at:IsRelateToBattle() then + Duel.ChangePosition(at,POS_FACEUP_DEFENSE) + end +end +function c55470553.spfilter(c,tp) + return c:IsFaceup() and c:IsSetCard(0x107f) and not c:IsType(TYPE_TOKEN) + and (c:IsControler(tp) or c:IsAbleToChangeControler()) +end +function c55470553.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and c55470553.spfilter(chkc,tp) end + if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c55470553.spfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,c55470553.spfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c55470553.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 + and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then + local og=tc:GetOverlayGroup() + if og:GetCount()>0 then + Duel.SendtoGrave(og,REASON_RULE) + end + Duel.Overlay(c,Group.FromCards(tc)) + end +end diff --git a/script/c5550.lua b/script/c5550.lua deleted file mode 100644 index d6f71cd6..00000000 --- a/script/c5550.lua +++ /dev/null @@ -1,65 +0,0 @@ ---オッドアイズ・セイバー・ドラゴン -function c5550.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetCost(c5550.spcost) - e1:SetTarget(c5550.sptg) - e1:SetOperation(c5550.spop) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetCondition(c5550.descon) - e2:SetTarget(c5550.destg) - e2:SetOperation(c5550.desop) - c:RegisterEffect(e2) -end -function c5550.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsAttribute,1,nil,ATTRIBUTE_LIGHT) end - local g=Duel.SelectReleaseGroup(tp,Card.IsAttribute,1,1,nil,ATTRIBUTE_LIGHT) - Duel.Release(g,REASON_COST) -end -function c5550.filter(c) - return c:IsCode(53025096) and c:IsAbleToGrave() -end -function c5550.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5550.filter,tp,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_DECK,0,1,nil) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_DECK) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c5550.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c5550.filter,tp,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_DECK,0,1,1,nil) - if Duel.SendtoGrave(g,REASON_EFFECT)~=0 then - local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP) - end - end -end -function c5550.descon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER) -end -function c5550.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c5550.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - if g:GetCount()>0 then - Duel.HintSelection(g) - Duel.Destroy(g,REASON_EFFECT) - end -end diff --git a/script/c5551.lua b/script/c5551.lua deleted file mode 100644 index de3973d2..00000000 --- a/script/c5551.lua +++ /dev/null @@ -1,67 +0,0 @@ ---ＤＤＤ覇龍王ペンドラゴン -function c5551.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetCost(c5551.spcost) - e1:SetTarget(c5551.sptg) - e1:SetOperation(c5551.spop) - c:RegisterEffect(e1) - --atk up/destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCost(c5551.cost) - e2:SetOperation(c5551.operation) - c:RegisterEffect(e2) -end -function c5551.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroupEx(tp,Card.IsRace,1,e:GetHandler(),RACE_DRAGON) - and Duel.CheckReleaseGroupEx(tp,Card.IsRace,1,e:GetHandler(),RACE_FIEND) end - local g1=Duel.SelectReleaseGroupEx(tp,Card.IsRace,1,1,e:GetHandler(),RACE_DRAGON) - local g2=Duel.SelectReleaseGroupEx(tp,Card.IsRace,1,1,e:GetHandler(),RACE_FIEND) - g1:Merge(g2) - Duel.Release(g1,REASON_COST) -end -function c5551.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c5551.spop(e,tp,eg,ep,ev,re,r,rp,c) - local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP) - end -end -function c5551.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c5551.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c5551.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) and not c:IsImmuneToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(500) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - if Duel.IsExistingMatchingCard(c5551.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - and Duel.SelectYesNo(tp,aux.Stringid(5551,0)) then - Duel.BreakEffect() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,c5551.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.HintSelection(g) - Duel.Destroy(g,REASON_EFFECT) - end - end -end \ No newline at end of file diff --git a/script/c55553602.lua b/script/c55553602.lua new file mode 100644 index 00000000..8df93851 --- /dev/null +++ b/script/c55553602.lua @@ -0,0 +1,59 @@ +--EMドラマチックシアター +function c55553602.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --atk up + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetRange(LOCATION_FZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetValue(c55553602.atkvalue) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetCountLimit(1) + e3:SetRange(LOCATION_FZONE) + e3:SetCondition(c55553602.condition) + e3:SetTarget(c55553602.target) + e3:SetOperation(c55553602.operation) + c:RegisterEffect(e3) +end +function c55553602.atkfilter(c) + return c:IsFaceup() and c:GetRace()~=0 +end +function c55553602.atkvalue(e,c) + local g=Duel.GetMatchingGroup(c55553602.atkfilter,c:GetControler(),LOCATION_MZONE,0,nil) + local ct=g:GetClassCount(Card.GetRace) + return ct*200 +end +function c55553602.confilter(c) + return c:IsFaceup() and c:IsSetCard(0x9f) and c:GetRace()~=0 +end +function c55553602.condition(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c55553602.confilter,tp,LOCATION_MZONE,0,nil) + local ct=g:GetClassCount(Card.GetRace) + return ct==4 +end +function c55553602.spfilter(c,e,sp) + return c:IsSetCard(0x99) and c:IsCanBeSpecialSummoned(e,0,sp,false,false) +end +function c55553602.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c55553602.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) +end +function c55553602.operation(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c55553602.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c5556499.lua b/script/c5556499.lua index 10760bb5..1e721a12 100644 --- a/script/c5556499.lua +++ b/script/c5556499.lua @@ -54,10 +54,10 @@ function c5556499.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c5556499.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c5556499.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c55586621.lua b/script/c55586621.lua index 4e98c904..c975c675 100644 --- a/script/c55586621.lua +++ b/script/c55586621.lua @@ -9,7 +9,7 @@ function c55586621.initial_effect(c) e1:SetValue(c55586621.value) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e2) --level up local e3=Effect.CreateEffect(c) diff --git a/script/c55589254.lua b/script/c55589254.lua index 6b9fe0fc..43f8ca65 100644 --- a/script/c55589254.lua +++ b/script/c55589254.lua @@ -52,10 +52,10 @@ function c55589254.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c55589254.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c55589254.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c55608151.lua b/script/c55608151.lua index 244220fe..d1e9bbb1 100644 --- a/script/c55608151.lua +++ b/script/c55608151.lua @@ -14,7 +14,7 @@ function c55608151.condition(e,tp,eg,ep,ev,re,r,rp) return rp~=tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsCode(18144506) and Duel.IsChainDisablable(ev) end function c55608151.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c55608151.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c55615891.lua b/script/c55615891.lua old mode 100755 new mode 100644 index 3db01dbb..c62b6c10 --- a/script/c55615891.lua +++ b/script/c55615891.lua @@ -27,7 +27,7 @@ function c55615891.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c55615891.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c55615891.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c55615891.filter(chkc) end diff --git a/script/c55623480.lua b/script/c55623480.lua new file mode 100644 index 00000000..12e6d90a --- /dev/null +++ b/script/c55623480.lua @@ -0,0 +1,74 @@ +--妖精伝姫－シラユキ +function c55623480.initial_effect(c) + --position + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(55623480,0)) + e1:SetCategory(CATEGORY_POSITION) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c55623480.postg) + e1:SetOperation(c55623480.posop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(55623480,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetRange(LOCATION_GRAVE) + e3:SetCost(c55623480.spcost) + e3:SetTarget(c55623480.sptg) + e3:SetOperation(c55623480.spop) + c:RegisterEffect(e3) +end +function c55623480.posfilter(c) + return c:IsFaceup() and c:IsCanTurnSet() +end +function c55623480.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c55623480.posfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c55623480.posfilter,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,c55623480.posfilter,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) +end +function c55623480.posop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) + end +end +function c55623480.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local ct=-ft+1 + local sg=Duel.GetMatchingGroup(Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,0,e:GetHandler()) + if chk==0 then return sg:GetCount()>=7 and (ft>0 or sg:IsExists(Card.IsLocation,ct,nil,LOCATION_MZONE)) end + local g=nil + if ft<=0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + g=sg:FilterSelect(tp,Card.IsLocation,ct,ct,nil,LOCATION_MZONE) + if ct<7 then + sg:Sub(g) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g1=sg:Select(tp,7-ct,7-ct,nil) + g:Merge(g1) + end + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + g=sg:Select(tp,7,7,nil) + end + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c55623480.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c55623480.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c55624610.lua b/script/c55624610.lua index 48e83019..4a018673 100644 --- a/script/c55624610.lua +++ b/script/c55624610.lua @@ -13,7 +13,7 @@ function c55624610.initial_effect(c) c:RegisterEffect(e1) end function c55624610.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0x24) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x24) end function c55624610.sfilter(c) return c:IsType(TYPE_TUNER) and c:IsAbleToGrave() diff --git a/script/c55690251.lua b/script/c55690251.lua old mode 100755 new mode 100644 diff --git a/script/c55696885.lua b/script/c55696885.lua index 435feaf5..e44a9fed 100644 --- a/script/c55696885.lua +++ b/script/c55696885.lua @@ -12,6 +12,7 @@ function c55696885.initial_effect(c) end function c55696885.atkop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK_FINAL) @@ -34,5 +35,8 @@ function c55696885.destg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) end function c55696885.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + Duel.Destroy(c,REASON_EFFECT) + end end diff --git a/script/c55735315.lua b/script/c55735315.lua old mode 100755 new mode 100644 diff --git a/script/c55742055.lua b/script/c55742055.lua index 8867993e..93236617 100644 --- a/script/c55742055.lua +++ b/script/c55742055.lua @@ -71,7 +71,7 @@ function c55742055.filter1(c) end function c55742055.target1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c55742055.filter1,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,0,1,tp,LOCATION_DECK) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) end function c55742055.operation1(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end diff --git a/script/c55758589.lua b/script/c55758589.lua index 679c3eba..4688d037 100644 --- a/script/c55758589.lua +++ b/script/c55758589.lua @@ -14,7 +14,7 @@ function c55758589.initial_effect(c) c:RegisterEffect(e2) end function c55758589.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c55758589.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c55763552.lua b/script/c55763552.lua index 912a9bcf..65c8a7ee 100644 --- a/script/c55763552.lua +++ b/script/c55763552.lua @@ -10,7 +10,7 @@ function c55763552.initial_effect(c) c:RegisterEffect(e1) end function c55763552.filter(c) - return c:IsFaceup() and c:IsCode(50045299) and c:IsDestructable() + return c:IsFaceup() and c:IsCode(50045299) end function c55763552.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -18,7 +18,7 @@ function c55763552.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c55763552.pfilter(c) - return c:IsPosition(POS_FACEUP_DEFENCE) and c:IsRace(RACE_DRAGON) + return c:IsPosition(POS_FACEUP_DEFENSE) and c:IsRace(RACE_DRAGON) end function c55763552.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c55763552.filter,tp,LOCATION_SZONE,LOCATION_SZONE,nil) diff --git a/script/c5577649.lua b/script/c5577649.lua index f7809107..8e22598d 100644 --- a/script/c5577649.lua +++ b/script/c5577649.lua @@ -18,7 +18,7 @@ function c5577649.condition(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c5577649.cfilter,1,nil,tp) end function c5577649.filter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c5577649.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c5577649.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end diff --git a/script/c55794644.lua b/script/c55794644.lua index 69a4d24d..a0ce9b70 100644 --- a/script/c55794644.lua +++ b/script/c55794644.lua @@ -58,10 +58,10 @@ function c55794644.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c55794644.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) e:GetHandler():RegisterFlagEffect(55794644,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) end diff --git a/script/c55824220.lua b/script/c55824220.lua index a3743758..13fda91e 100644 --- a/script/c55824220.lua +++ b/script/c55824220.lua @@ -65,14 +65,5 @@ function c55824220.activate(e,tp,eg,ep,ev,re,r,rp) fop(ce,e,tp,tc,mat2) end tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end diff --git a/script/c55885348.lua b/script/c55885348.lua index a5c38ecb..c201dbd0 100644 --- a/script/c55885348.lua +++ b/script/c55885348.lua @@ -1,76 +1,73 @@ ---Kozmo Dark Destroyer -function c55885348.initial_effect(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(55885348,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetTarget(c55885348.destg) - e1:SetOperation(c55885348.desop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - --cannot be target - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetValue(c55885348.tgval) - c:RegisterEffect(e3) - --spsummon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(55885348,1)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetProperty(EFFECT_FLAG_DELAY) - e4:SetCondition(c55885348.spcon) - e4:SetCost(c55885348.spcost) - e4:SetTarget(c55885348.sptg) - e4:SetOperation(c55885348.spop) - c:RegisterEffect(e4) -end -function c55885348.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c55885348.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c55885348.tgval(e,re,rp) - return rp~=e:GetHandlerPlayer() and not re:GetHandler():IsImmuneToEffect(e) -end -function c55885348.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) -end -function c55885348.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() and e:GetHandler():IsLocation(LOCATION_GRAVE) end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c55885348.spfilter(c,e,tp) - return c:IsSetCard(0xd2) and c:IsLevelBelow(7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c55885348.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c55885348.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c55885348.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c55885348.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end +--Kozmo Dark Destroyer +function c55885348.initial_effect(c) + --destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(55885348,0)) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e1:SetTarget(c55885348.destg) + e1:SetOperation(c55885348.desop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --cannot be target + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetValue(aux.tgoval) + c:RegisterEffect(e3) + --spsummon + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(55885348,1)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetProperty(EFFECT_FLAG_DELAY) + e4:SetCondition(c55885348.spcon) + e4:SetCost(c55885348.spcost) + e4:SetTarget(c55885348.sptg) + e4:SetOperation(c55885348.spop) + c:RegisterEffect(e4) +end +function c55885348.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c55885348.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c55885348.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) +end +function c55885348.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() and e:GetHandler():IsLocation(LOCATION_GRAVE) end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c55885348.spfilter(c,e,tp) + return c:IsSetCard(0xd2) and c:IsLevelBelow(7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c55885348.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c55885348.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c55885348.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c55885348.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c55888045.lua b/script/c55888045.lua index b6708d40..ea175c61 100644 --- a/script/c55888045.lua +++ b/script/c55888045.lua @@ -7,7 +7,7 @@ function c55888045.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(55888045,0)) e1:SetCategory(CATEGORY_NEGATE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_F) + e1:SetType(EFFECT_TYPE_QUICK_F) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_MZONE) diff --git a/script/c5592689.lua b/script/c5592689.lua old mode 100755 new mode 100644 diff --git a/script/c55948544.lua b/script/c55948544.lua old mode 100755 new mode 100644 diff --git a/script/c55982698.lua b/script/c55982698.lua index a192ec83..32d1aa1a 100644 --- a/script/c55982698.lua +++ b/script/c55982698.lua @@ -21,7 +21,7 @@ function c55982698.initial_effect(c) end function c55982698.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefencePos() + return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefensePos() end function c55982698.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c55991637.lua b/script/c55991637.lua index be7fdf65..c080da7d 100644 --- a/script/c55991637.lua +++ b/script/c55991637.lua @@ -41,7 +41,7 @@ function c55991637.damop(e,tp,eg,ep,ev,re,r,rp) Duel.Damage(p,d,REASON_EFFECT) end function c55991637.dfilter(c) - return c:IsFaceup() and c:IsDefenceBelow(800) and c:IsDestructable() + return c:IsFaceup() and c:IsDefenseBelow(800) end function c55991637.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c55991637.dfilter(chkc) end diff --git a/script/c56043447.lua b/script/c56043447.lua deleted file mode 100644 index b5c07691..00000000 --- a/script/c56043447.lua +++ /dev/null @@ -1,58 +0,0 @@ ---万力魔神バイサー·デス -function c56043447.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(56043447,0)) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c56043447.target) - e1:SetOperation(c56043447.operation) - c:RegisterEffect(e1) -end -function c56043447.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,nil,tp,0,LOCATION_MZONE,1,1,nil) -end -function c56043447.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - c:SetCardTarget(tc) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetCondition(c56043447.descon) - e1:SetOperation(c56043447.desop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,3) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(1) - e2:SetCondition(c56043447.rcon) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,3) - c:RegisterEffect(e2) - end -end -function c56043447.rcon(e) - return e:GetHandler():GetFirstCardTarget()~=nil -end -function c56043447.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c56043447.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetFirstCardTarget() - if not tc then return end - local ct=e:GetLabel() - ct=ct+1 - e:SetLabel(ct) - e:GetHandler():SetTurnCounter(ct) - if ct==3 then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c56049970.lua b/script/c56049970.lua new file mode 100644 index 00000000..701e51ec --- /dev/null +++ b/script/c56049970.lua @@ -0,0 +1,89 @@ +--水晶機巧－プラシレータ +function c56049970.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(56049970,0)) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,56049970) + e1:SetTarget(c56049970.sptg1) + e1:SetOperation(c56049970.spop1) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(56049970,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,56049970) + e2:SetCost(c56049970.spcost) + e2:SetTarget(c56049970.sptg2) + e2:SetOperation(c56049970.spop2) + c:RegisterEffect(e2) +end +function c56049970.desfilter(c) + return c:IsFaceup() +end +function c56049970.spfilter1(c,e,tp) + return c:IsSetCard(0xea) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c56049970.sptg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(e:GetLabel()) and chkc:IsControler(tp) and c56049970.desfilter(chkc) end + if chk==0 then + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<-1 then return false end + local loc=LOCATION_ONFIELD + if ft==0 then loc=LOCATION_MZONE end + e:SetLabel(loc) + return Duel.IsExistingTarget(c56049970.desfilter,tp,loc,0,1,nil) + and Duel.IsExistingMatchingCard(c56049970.spfilter1,tp,LOCATION_DECK,0,1,nil,e,tp) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c56049970.desfilter,tp,e:GetLabel(),0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c56049970.spop1(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c56049970.spfilter1,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetTarget(c56049970.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c56049970.splimit(e,c) + return not (c:IsRace(RACE_MACHINE) and c:IsType(TYPE_SYNCHRO)) and c:IsLocation(LOCATION_EXTRA) +end +function c56049970.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c56049970.spfilter2(c,e,tp) + return c:IsSetCard(0xea) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c56049970.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c56049970.spfilter2,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c56049970.spop2(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c56049970.spfilter2,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 diff --git a/script/c56051086.lua b/script/c56051086.lua index cf7a8dd8..9bf7b358 100644 --- a/script/c56051086.lua +++ b/script/c56051086.lua @@ -46,7 +46,7 @@ function c56051086.eqcost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c56051086.filter(c) - return c:IsSetCard(0x48) and c:IsType(TYPE_MONSTER) + return c:IsSetCard(0x48) and c:IsType(TYPE_MONSTER) and not c:IsForbidden() end function c56051086.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c56051086.filter(chkc) end @@ -86,12 +86,14 @@ function c56051086.damtg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,ev) end function c56051086.damop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end + local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) e1:SetCode(EFFECT_UPDATE_ATTACK) e1:SetValue(ev) e1:SetReset(RESET_EVENT+0x1ff0000) - e:GetHandler():RegisterEffect(e1) + c:RegisterEffect(e1) Duel.Damage(1-tp,ev,REASON_EFFECT) end diff --git a/script/c56051648.lua b/script/c56051648.lua index 16d3c7f5..7c072ae9 100644 --- a/script/c56051648.lua +++ b/script/c56051648.lua @@ -16,12 +16,14 @@ function c56051648.condition(e,tp,eg,ep,ev,re,r,rp) end function c56051648.target(e,tp,eg,ep,ev,re,r,rp,chk) local tg=Duel.GetAttacker() - if chk==0 then return tg:IsOnField() and Duel.GetLocationCount(tp,LOCATION_MZONE)>=3 + if chk==0 then return tg:IsOnField() and not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>=3 and Duel.IsPlayerCanSpecialSummonMonster(tp,56051649,0,0x4011,100,100,1,RACE_INSECT,ATTRIBUTE_EARTH) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,3,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,0) end function c56051648.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.NegateAttack() and Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and Duel.IsPlayerCanSpecialSummonMonster(tp,56051649,0,0x4011,100,100,1,RACE_INSECT,ATTRIBUTE_EARTH) then for i=1,3 do diff --git a/script/c56052205.lua b/script/c56052205.lua index 31f22bc2..0cdaa638 100644 --- a/script/c56052205.lua +++ b/script/c56052205.lua @@ -25,7 +25,7 @@ function c56052205.condition(e,tp,eg,ep,ev,re,r,rp) and Duel.IsExistingMatchingCard(c56052205.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c56052205.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c56052205.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and c56052205.filter(chkc) end diff --git a/script/c5606466.lua b/script/c5606466.lua index d1a0190e..82274208 100644 --- a/script/c5606466.lua +++ b/script/c5606466.lua @@ -18,13 +18,13 @@ function c5606466.initial_effect(c) c:RegisterEffect(e3) end function c5606466.filter(c,e,tp) - return c:IsFacedown() and c:GetReasonPlayer()==tp and c:IsCanBeEffectTarget(e) and c:IsDestructable() and c:IsAbleToRemove() + return c:IsPosition(POS_FACEDOWN_DEFENSE) and c:GetReasonPlayer()==tp and c:IsCanBeEffectTarget(e) and c:IsAbleToRemove() end function c5606466.filter2(c,e) - return c:IsDestructable() and c:IsAbleToRemove() and c:IsCanBeEffectTarget(e) + return c:IsAbleToRemove() and c:IsCanBeEffectTarget(e) end function c5606466.filter3(c,e,tp) - return c:IsFacedown() and c:GetSummonPlayer()==tp and c:IsCanBeEffectTarget(e) and c:IsDestructable() and c:IsAbleToRemove() + return c:IsPosition(POS_FACEDOWN_DEFENSE) and c:GetSummonPlayer()==tp and c:IsCanBeEffectTarget(e) and c:IsAbleToRemove() end function c5606466.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c56074358.lua b/script/c56074358.lua index 83d5e307..ccb1899e 100644 --- a/script/c56074358.lua +++ b/script/c56074358.lua @@ -1,5 +1,6 @@ --D・フィールド function c56074358.initial_effect(c) + c:EnableCounterPermit(0x8) --activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -46,7 +47,7 @@ function c56074358.accon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c56074358.cfilter,1,nil) end function c56074358.acop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x8+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x8,1) end function c56074358.spcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c56105047.lua b/script/c56105047.lua index 4d5b3d69..a05cc6a7 100644 --- a/script/c56105047.lua +++ b/script/c56105047.lua @@ -26,10 +26,10 @@ end function c56105047.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE)==1 then + if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)==1 then if c:IsPosition(POS_FACEUP_ATTACK) and c:IsRelateToEffect(e) then Duel.BreakEffect() - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end end diff --git a/script/c56111151.lua b/script/c56111151.lua index f6a94db5..e2c3a0ac 100644 --- a/script/c56111151.lua +++ b/script/c56111151.lua @@ -1,5 +1,6 @@ --Kyoutou Waterfront function c56111151.initial_effect(c) + c:EnableCounterPermit(0x37) c:SetCounterLimit(0x37,5) --Activate local e1=Effect.CreateEffect(c) @@ -39,7 +40,7 @@ end function c56111151.counter(e,tp,eg,ep,ev,re,r,rp) local ct=eg:FilterCount(c56111151.cfilter,nil) if ct>0 then - e:GetHandler():AddCounter(0x37+COUNTER_NEED_ENABLE,ct) + e:GetHandler():AddCounter(0x37,ct,true) end end function c56111151.thfilter(c) diff --git a/script/c56119752.lua b/script/c56119752.lua new file mode 100644 index 00000000..9aacaec6 --- /dev/null +++ b/script/c56119752.lua @@ -0,0 +1,25 @@ +--プレゼントカード +function c56119752.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_HANDES+CATEGORY_DRAW) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,56119752+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c56119752.target) + e1:SetOperation(c56119752.activate) + c:RegisterEffect(e1) +end +function c56119752.target(e,tp,eg,ep,ev,re,r,rp,chk) + local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND) + if chk==0 then return ct>0 and Duel.IsPlayerCanDraw(1-tp,5) end + Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,1-tp,ct) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,1-tp,5) +end +function c56119752.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND) + if Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD)~=0 then + Duel.BreakEffect() + Duel.Draw(1-tp,5,REASON_EFFECT) + end +end diff --git a/script/c56120475.lua b/script/c56120475.lua index aa70a6dc..110a6af5 100644 --- a/script/c56120475.lua +++ b/script/c56120475.lua @@ -17,7 +17,7 @@ end function c56120475.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local tg=Duel.GetAttacker() if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsDestructable() and tg:IsCanBeEffectTarget(e) end + if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end Duel.SetTargetCard(tg) Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) end diff --git a/script/c56132807.lua b/script/c56132807.lua new file mode 100644 index 00000000..7778a929 --- /dev/null +++ b/script/c56132807.lua @@ -0,0 +1,79 @@ +--アップル・マジシャン・ガール +function c56132807.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_BE_BATTLE_TARGET) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCountLimit(1) + e1:SetTarget(c56132807.sptg) + e1:SetOperation(c56132807.spop) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_DESTROYED) + e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) + e2:SetCondition(c56132807.thcon) + e2:SetTarget(c56132807.thtg) + e2:SetOperation(c56132807.thop) + c:RegisterEffect(e2) +end +function c56132807.spfilter(c,e,tp) + return c:IsRace(RACE_SPELLCASTER) and c:IsLevelBelow(5) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c56132807.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c56132807.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c56132807.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c56132807.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp) + local tc=g:GetFirst() + if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then + local a=Duel.GetAttacker() + local ag=a:GetAttackableTarget() + if a:IsAttackable() and not a:IsImmuneToEffect(e) and ag:IsContains(tc) then + Duel.BreakEffect() + Duel.ChangeAttackTarget(tc) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(math.ceil(a:GetAttack()/2)) + a:RegisterEffect(e1) + end + end +end +function c56132807.thcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 +end +function c56132807.thfilter(c) + return c:IsSetCard(0x20a2) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c56132807.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c56132807.thfilter(chkc) end + local c=e:GetHandler() + if chk==0 then return Duel.IsExistingTarget(c56132807.thfilter,tp,LOCATION_GRAVE,0,1,c) end + local g=Duel.GetMatchingGroup(c56132807.thfilter,tp,LOCATION_GRAVE,0,c):Filter(Card.IsCanBeEffectTarget,nil,e) + local tg=Group.CreateGroup() + repeat + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local sg=g:Select(tp,1,1,nil) + tg:Merge(sg) + g:Remove(Card.IsCode,nil,sg:GetFirst():GetCode()) + until tg:GetCount()==3 or g:GetCount()==0 or not Duel.SelectYesNo(tp,aux.Stringid(56132807,0)) + Duel.SetTargetCard(tg) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,tg,tg:GetCount(),0,0) +end +function c56132807.thop(e,tp,eg,ep,ev,re,r,rp) + local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if tg:GetCount()>0 then + Duel.SendtoHand(tg,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,tg) + end +end diff --git a/script/c5616412.lua b/script/c5616412.lua index c41111c4..64eeeb3e 100644 --- a/script/c5616412.lua +++ b/script/c5616412.lua @@ -14,10 +14,10 @@ function c5616412.condition(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() return d and a:IsControler(1-tp) and a:IsRelateToBattle() - and d:IsDefencePos() and d:IsRelateToBattle() and d:GetDefence()>a:GetAttack() + and d:IsDefensePos() and d:IsRelateToBattle() and d:GetDefense()>a:GetAttack() end function c5616412.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetAttacker():IsDestructable() end + if chk==0 then return true end Duel.SetTargetCard(Duel.GetAttacker()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,Duel.GetAttacker(),1,0,0) end diff --git a/script/c56209279.lua b/script/c56209279.lua index dd10e6a0..c11451da 100644 --- a/script/c56209279.lua +++ b/script/c56209279.lua @@ -1,6 +1,6 @@ --インフェルニティ・ネクロマンサー function c56209279.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(56209279,0)) e1:SetCategory(CATEGORY_POSITION) @@ -29,7 +29,7 @@ end function c56209279.poop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsAttackPos() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c56209279.spcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c56223084.lua b/script/c56223084.lua old mode 100755 new mode 100644 diff --git a/script/c56240989.lua b/script/c56240989.lua index cf6fa3f4..e3b82ca5 100644 --- a/script/c56240989.lua +++ b/script/c56240989.lua @@ -39,11 +39,13 @@ end function c56240989.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local g=Duel.GetMatchingGroup(c56240989.filter,tp,LOCATION_DECK,0,nil,e,tp) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and g:IsExists(c56240989.filter2,1,nil,g) + return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and g:IsExists(c56240989.filter2,1,nil,g) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c56240989.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local c=e:GetHandler() local g=Duel.GetMatchingGroup(c56240989.filter,tp,LOCATION_DECK,0,nil,e,tp) diff --git a/script/c56252810.lua b/script/c56252810.lua index a836e5a2..b8795246 100644 --- a/script/c56252810.lua +++ b/script/c56252810.lua @@ -25,17 +25,17 @@ function c56252810.filter(c,e,tp) end function c56252810.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c56252810.filter(chkc,e,tp) end - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,0,1,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingTarget(c56252810.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c56252810.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,dg:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) end function c56252810.activate(e,tp,eg,ep,ev,re,r,rp) - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) - Duel.Destroy(dg,REASON_EFFECT) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil) + if Duel.Destroy(dg,REASON_EFFECT)~=dg:GetCount() then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local tc=Duel.GetFirstTarget() local c=e:GetHandler() diff --git a/script/c56286179.lua b/script/c56286179.lua index 2d55d1be..8ba1cd55 100644 --- a/script/c56286179.lua +++ b/script/c56286179.lua @@ -29,7 +29,7 @@ function c56286179.drcon(e,tp,eg,ep,ev,re,r,rp) if ep==tp then return false end local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() - return d and d:IsDefencePos() and a:IsControler(tp) and a:IsRace(RACE_WARRIOR) + return d and d:IsDefensePos() and a:IsControler(tp) and a:IsRace(RACE_WARRIOR) end function c56286179.drtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end diff --git a/script/c5629.lua b/script/c5629.lua deleted file mode 100644 index 16944628..00000000 --- a/script/c5629.lua +++ /dev/null @@ -1,107 +0,0 @@ ----ＲＵＭ－ラプターズ・フォース -function c5629.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c5629.condition) - e1:SetTarget(c5629.target) - e1:SetOperation(c5629.operation) - c:RegisterEffect(e1) - -- - if not c5629.global_check then - c5629.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_TO_GRAVE) - ge1:SetCondition(c5629.con) - ge1:SetOperation(c5629.op) - Duel.RegisterEffect(ge1,tp) - end -end -function c5629.conF(c) - return c:IsReason(REASON_DESTROY) - and c:IsType(TYPE_MONSTER) - and c:IsType(TYPE_XYZ) - and c:IsSetCard(0xba) -end -function c5629.con(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c5629.conF,1,nil) -end -function c5629.op(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(c5629.conF,nil) - local sc=g:GetFirst() - while sc do - if Duel.GetFlagEffect(sc:GetPreviousControler(),5629)==0 then - Duel.RegisterFlagEffect(sc:GetPreviousControler(),5629,RESET_PHASE+PHASE_END,0,1) - end - -- - sc=g:GetNext() - end -end -function c5629.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFlagEffect(tp,5629)~=0 -end -function c5629.rumF1(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) - and c:IsType(TYPE_MONSTER) - and c:IsType(TYPE_XYZ) - and c:IsSetCard(0xba) - and Duel.IsExistingMatchingCard(c5629.rumF2,tp,LOCATION_EXTRA,0,1,nil,e,tp,c) -end -function c5629.rumF2(c,e,tp,tc) - if c:IsCode(6165656) and tc:GetCode()~=48995978 then return false end - local rk=tc:GetRank() - return c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) - and c:IsType(TYPE_MONSTER) - and c:IsType(TYPE_XYZ) - and c:GetRank()==rk+1 - and c:IsSetCard(0xba) -end -function c5629.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then - return c5629.rumF1(chkc) - and chkc:IsLocation(LOCATION_GRAVE) - and chkc:IsControler(tp) - end - -- - if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5629.rumF1,tp,LOCATION_GRAVE,0,1,nil,e,tp) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,c5629.rumF1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - local tc=g:GetFirst() - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,tc,1,tp,LOCATION_GRAVE) - Duel.SetOperationInfo(tp,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c5629.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonCount(tp,2) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local g=Duel.GetMatchingGroup(c5629.rumF2,tp,LOCATION_EXTRA,0,nil,e,tp,tc) - if g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,509) - local tg=g:Select(tp,1,1,nil) - local sc=tg:GetFirst() - local pos=POS_FACEUP_ATTACK - if not tc:IsCanBeSpecialSummoned(e,0,tp,false,false,pos) then - pos=POS_FACEUP_DEFENCE - end - if Duel.SpecialSummon(tc,0,tp,tp,false,false,pos)~=0 then - local mg=tc:GetOverlayGroup() - if mg:GetCount()>0 then - Duel.Overlay(sc,mg) - end - Duel.Overlay(sc,tc) - if Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP)~=0 then - sc:CompleteProcedure() - end - end - end - end -end diff --git a/script/c56292140.lua b/script/c56292140.lua new file mode 100644 index 00000000..934bb30c --- /dev/null +++ b/script/c56292140.lua @@ -0,0 +1,64 @@ +--No.51 怪腕のフィニッシュ・ホールド +function c56292140.initial_effect(c) + c:EnableCounterPermit(0x40) + c:SetCounterLimit(0x40,3) + --xyz summon + aux.AddXyzProcedure(c,nil,3,3) + c:EnableReviveLimit() + --battle indestructable + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetValue(1) + c:RegisterEffect(e1) + --return + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(56292140,0)) + e2:SetCategory(CATEGORY_COUNTER) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_DAMAGE_STEP_END) + e2:SetCost(c56292140.ctcost) + e2:SetTarget(c56292140.cttg) + e2:SetOperation(c56292140.ctop) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(56292140,1)) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_PHASE+PHASE_BATTLE) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetCondition(c56292140.descon) + e3:SetTarget(c56292140.destg) + e3:SetOperation(c56292140.desop) + c:RegisterEffect(e3) +end +c56292140.xyz_number=51 +function c56292140.ctcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c56292140.cttg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x40) +end +function c56292140.ctop(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():IsRelateToEffect(e) then + e:GetHandler():AddCounter(0x40,1) + end +end +function c56292140.descon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetBattledGroupCount()>0 and e:GetHandler():GetCounter(0x40)==3 +end +function c56292140.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c56292140.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) + if g:GetCount()>0 then + Duel.Destroy(g,REASON_EFFECT) + end +end diff --git a/script/c5630.lua b/script/c5630.lua deleted file mode 100644 index 03069138..00000000 --- a/script/c5630.lua +++ /dev/null @@ -1,32 +0,0 @@ ---ラプターズ・ガスト -function c5630.initial_effect(c) - --negate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c5630.condition) - e1:SetTarget(c5630.target) - e1:SetOperation(c5630.activate) - c:RegisterEffect(e1) -end -function c5630.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0xba) -end -function c5630.condition(e,tp,eg,ep,ev,re,r,rp) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) - and Duel.IsExistingMatchingCard(c5630.cfilter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c5630.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c5630.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end diff --git a/script/c5631.lua b/script/c5631.lua deleted file mode 100644 index 889c0520..00000000 --- a/script/c5631.lua +++ /dev/null @@ -1,71 +0,0 @@ ---ＲＲ－リターン -function c5631.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c5631.condition) - e1:SetTarget(c5631.target) - e1:SetOperation(c5631.activate) - c:RegisterEffect(e1) - --search - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_DESTROYED) - e2:SetRange(LOCATION_GRAVE) - e2:SetCountLimit(1,5631) - e2:SetCondition(c5631.thcon) - e2:SetCost(c5631.thcost) - e2:SetTarget(c5631.thtg) - e2:SetOperation(c5631.thop) - c:RegisterEffect(e2) -end -function c5631.cfilter(c,tp) - return c:IsSetCard(0xba) and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp -end -function c5631.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c5631.cfilter,1,nil,tp) -end -function c5631.tgfilter(c) - return c:IsSetCard(0xba) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c5631.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c5631.tgfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5631.tgfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local sg=Duel.SelectTarget(tp,c5631.tgfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,sg:GetCount(),0,0) -end -function c5631.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end -function c5631.thcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(r,REASON_EFFECT)~=0 and eg:IsExists(c5631.cfilter,1,nil,tp) -end -function c5631.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c5631.filter(c) - return c:IsSetCard(0xba) and c:IsAbleToHand() -end -function c5631.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5631.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5631.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5631.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c5632.lua b/script/c5632.lua deleted file mode 100644 index 1dcf047f..00000000 --- a/script/c5632.lua +++ /dev/null @@ -1,281 +0,0 @@ ----インフェルノイド・ティエラ -function c5632.initial_effect(c) - if c.material_count==nil then - local code=c:GetOriginalCode() - local mt=_G["c" .. code] - mt.material_count=2 - mt.material={14799437,23440231} - end - c:EnableReviveLimit() - local f1=Effect.CreateEffect(c) - f1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - f1:SetType(EFFECT_TYPE_SINGLE) - f1:SetCode(EFFECT_FUSION_MATERIAL) - f1:SetCondition(c5632.fuscon) - f1:SetOperation(c5632.fusop) - c:RegisterEffect(f1) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(5632,0)) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c5632.condition) - e1:SetTarget(c5632.target) - e1:SetOperation(c5632.operation) - c:RegisterEffect(e1) -end -function c5632.fumfilter(c,g1,ct1,g2,ct2,g3,ct3) - local flag1=true - local flag2=true - local flag3=true - if ct1>0 then flag1=g1:IsExists(aux.TRUE,ct1,c) end - if ct2>0 then flag2=g2:IsExists(aux.TRUE,ct2,c) end - if ct3>0 then flag3=g3:IsExists(aux.TRUE,ct3,c) end - return flag1 and flag2 and flag3 -end -function c5632.fumfilter1(c) - return c:IsCanBeFusionMaterial() - and (c:IsCode(14799437) or c:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) -end -function c5632.fumfilter2(c) - return c:IsCanBeFusionMaterial() - and (c:IsCode(23440231) or c:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) -end -function c5632.fumfilter3(c) - return c:IsCanBeFusionMaterial() - and c:IsSetCard(0xbb) -end -function c5632.fuscon(e,g,gc,chkf) - if g==nil then return true end - local flag=false local flag1=false local flag2=false local flag3=false - if gc then g:AddCard(gc) end - local g1=g:Filter(c5632.fumfilter1,nil) - local g2=g:Filter(c5632.fumfilter2,nil) - local g3=g:Filter(c5632.fumfilter3,nil) - local ct1=1 local ct2=1 local ct3=1 - local fg1=g1:Filter(c5632.fumfilter,nil,g1,ct1-1,g2,ct2,g3,ct3) - local fg2=g2:Filter(c5632.fumfilter,nil,g1,ct1,g2,ct2-1,g3,ct3) - local fg3=g3:Filter(c5632.fumfilter,nil,g1,ct1,g2,ct2,g3,ct3-1) - local fg=Group.CreateGroup() - fg:Merge(fg1) - fg:Merge(fg2) - fg:Merge(fg3) - if gc then - if c5632.fumfilter1(gc) and fg2:GetCount()>0 and fg3:GetCount()>0 then - flag1=true - if chkf~=PLAYER_NONE then - fg:Sub(fg1) - flag1=flag1 and fg:IsExists(aux.FConditionCheckF,1,nil,chkf) - fg:Merge(fg1) - end - end - if c5632.fumfilter2(gc) and fg1:GetCount()>0 and fg3:GetCount()>0 then - flag2=true - if chkf~=PLAYER_NONE then - fg:Sub(fg2) - flag2=flag2 and fg:IsExists(aux.FConditionCheckF,1,nil,chkf) - fg:Merge(fg2) - end - end - if c5632.fumfilter3(gc) and fg1:GetCount()>0 and fg2:GetCount()>0 then - flag3=true - if chkf~=PLAYER_NONE then - fg:Sub(fg3) - flag3=flag3 and fg:IsExists(aux.FConditionCheckF,1,nil,chkf) - fg:Merge(fg3) - end - end - else - flag=fg1:GetCount()>0 and fg2:GetCount()>0 and fg3:GetCount()>0 - if chkf~=PLAYER_NONE then flag=flag and fg:IsExists(aux.FConditionCheckF,1,nil,chkf) end - end - return flag or flag1 or flag2 or flag3 or flag4 -end -function c5632.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local g=eg:Clone() - if gc then g:AddCard(gc) end - local g1=g:Filter(c5632.fumfilter1,nil) - local g2=g:Filter(c5632.fumfilter2,nil) - local g3=g:Filter(c5632.fumfilter3,nil) - local ct1=1 local ct2=1 local ct3=1 - local fg1=g1:Filter(c5632.fumfilter,nil,g1,ct1-1,g2,ct2,g3,ct3) - local fg2=g2:Filter(c5632.fumfilter,nil,g1,ct1,g2,ct2-1,g3,ct3) - local fg3=g3:Filter(c5632.fumfilter,nil,g1,ct1,g2,ct2,g3,ct3-1) - local fg=Group.CreateGroup() - fg:Merge(fg1) - fg:Merge(fg2) - fg:Merge(fg3) - -- - local mg=Group.CreateGroup() - -- - fg1:Sub(mg) - if chkf~=PLAYER_NONE then - local fgs=fg:Clone() - fgs:Sub(fg1) - if not fgs:IsExists(aux.FConditionCheckF,1,nil,chkf) then - fg1=fg1:Filter(aux.FConditionCheckF,nil,chkf) - end - end - if gc then - if not c5632.fumfilter2(gc) - and not c5632.fumfilter3(gc) - then - fg1=nil - fg1:AddCard(gc) - end - end - Duel.Hint(HINT_SELECTMSG,tp,511) - local tg=fg1:Select(tp,1,1,nil) - mg:Merge(tg) - -- - fg2:Sub(mg) - if chkf~=PLAYER_NONE then - local fgs=fg:Clone() - fgs:Sub(fg2) - if not fgs:IsExists(aux.FConditionCheckF,1,nil,chkf) then - fg2=fg2:Filter(aux.FConditionCheckF,nil,chkf) - end - end - if gc then - if not c5632.fumfilter1(gc) - and not c5632.fumfilter3(gc) - then - fg2=nil - fg2:AddCard(gc) - end - end - Duel.Hint(HINT_SELECTMSG,tp,511) - local tg=fg2:Select(tp,1,1,nil) - mg:Merge(tg) - -- - fg3:Sub(mg) - if chkf~=PLAYER_NONE then - local fgs=fg:Clone() - fgs:Sub(fg3) - if not fgs:IsExists(aux.FConditionCheckF,1,nil,chkf) then - fg3=fg3:Filter(aux.FConditionCheckF,nil,chkf) - end - end - if gc then - if not c5632.fumfilter1(gc) - and not c5632.fumfilter2(gc) - then - fg3=nil - fg3:AddCard(gc) - end - end - Duel.Hint(HINT_SELECTMSG,tp,511) - local tg=fg3:Select(tp,1,1,nil) - mg:Merge(tg) - -- - if Duel.SelectYesNo(tp,aux.Stringid(5632,0)) then - fg3:Sub(mg) - local fg3s=fg3:Filter(Card.IsLocation,nil,LOCATION_DECK) - fg3:Sub(fg3s) - if fg3s:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(5632,1)) then - Duel.Hint(HINT_SELECTMSG,tp,511) - local tg=fg3s:Select(tp,1,6-mg:Filter(Card.IsLocation,nil,LOCATION_DECK):GetCount(),nil) - mg:Merge(tg) - end - if fg3:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(5632,2)) then - Duel.Hint(HINT_SELECTMSG,tp,511) - local tg=fg3:Select(tp,1,60,nil) - mg:Merge(tg) - end - end - -- - Duel.SetFusionMaterial(mg) - -- -end -function c5632.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - return bit.band(c:GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c5632.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local c=e:GetHandler() - local tp=c:GetControler() - local mg=c:GetMaterial() - local ct=0 - if mg:GetCount()>0 then - ct=mg:GetClassCount(Card.GetOriginalCode) - end - local flag1=ct>=3 - and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_EXTRA,0,3,nil) - and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,0,LOCATION_EXTRA,3,nil) - local flag2=ct>=5 - and Duel.GetDecktopGroup(tp,3):IsExists(Card.IsAbleToGrave,3,nil) - and Duel.GetDecktopGroup(1-tp,3):IsExists(Card.IsAbleToGrave,3,nil) - local flag3=ct>=8 - and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_REMOVED,0,3,nil) - and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,0,LOCATION_REMOVED,3,nil) - local flag4=ct>=10 - and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,nil) - and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,0,LOCATION_HAND,1,nil) - if chk==0 then return flag1 or flag2 or flag3 or flag4 end - local ft=0 - local loc=0 - if flag1 then - loc=loc+LOCATION_EXTRA - ft=ft+6 - end - if flag2 then - loc=loc+LOCATION_DECK - ft=ft+6 - end - if flag3 then - loc=loc+LOCATION_REMOVED - ft=ft+6 - end - if flag4 then - loc=loc+LOCATION_HAND - ft=ft+Duel.GetFieldGroupCount(tp,LOCATION_HAND,LOCATION_HAND) - end - local g=Group.CreateGroup() - g:Merge(Duel.GetDecktopGroup(tp,3)) - g:Merge(Duel.GetDecktopGroup(1-tp,3)) - Duel.SetOperationInfo(tp,CATEGORY_TOGRAVE,g,ft,PLAYER_ALL,loc) -end -function c5632.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tp=c:GetControler() - local mg=c:GetMaterial() - local ct=mg:GetClassCount(Card.GetOriginalCode) - local g=Group.CreateGroup() - -- - local exg1=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,LOCATION_EXTRA,0,nil) - local exg2=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_EXTRA,nil) - if ct>=3 and exg1:GetCount()>0 and exg2:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,504) - local extg1=exg1:Select(tp,3,3,nil) - Duel.Hint(HINT_SELECTMSG,1-tp,504) - local extg2=exg2:Select(1-tp,3,3,nil) - extg1:Merge(extg2) - Duel.SendtoGrave(extg1,REASON_EFFECT) - end - -- - local dg1=Duel.GetDecktopGroup(tp,3):Filter(Card.IsAbleToGrave,nil) - local dg2=Duel.GetDecktopGroup(1-tp,3):Filter(Card.IsAbleToGrave,nil) - if ct>=5 and dg1:GetCount()>0 and dg2:GetCount()>0 then - dg1:Merge(dg2) - Duel.SendtoGrave(dg1,REASON_EFFECT) - end - -- - local rmg1=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,LOCATION_REMOVED,0,nil) - local rmg2=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_REMOVED,nil) - if ct>=8 and rmg1:GetCount()>0 and rmg2:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,504) - local rmtg1=rmg1:Select(tp,1,3,nil) - Duel.Hint(HINT_SELECTMSG,1-tp,504) - local rmtg2=rmg2:Select(1-tp,1,3,nil) - rmtg1:Merge(rmtg2) - Duel.SendtoGrave(rmtg1,REASON_EFFECT+REASON_RETURN) - end - -- - local hg=Duel.GetFieldGroup(tp,LOCATION_HAND,LOCATION_HAND):Filter(Card.IsAbleToGrave,nil) - if ct>=10 and hg:GetCount()>0 then - Duel.SendtoGrave(hg,REASON_EFFECT) - end -end diff --git a/script/c56321639.lua b/script/c56321639.lua index 8927b408..783d3a2d 100644 --- a/script/c56321639.lua +++ b/script/c56321639.lua @@ -1,6 +1,6 @@ --魔導書廊エトワール function c56321639.initial_effect(c) - c:EnableCounterPermit(0x3001) + c:EnableCounterPermit(0x1) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -48,14 +48,14 @@ function c56321639.ctcon(e,tp,eg,ep,ev,re,r,rp) return re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and c:IsSetCard(0x106e) and e:GetHandler():GetFlagEffect(1)>0 end function c56321639.ctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end function c56321639.atkval(e,c) - return e:GetHandler():GetCounter(0x3001)*100 + return e:GetHandler():GetCounter(0x1)*100 end function c56321639.thcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - local ct=c:GetCounter(0x3001) + local ct=c:GetCounter(0x1) e:SetLabel(ct) return ct>0 and c:IsLocation(LOCATION_GRAVE) and c:IsReason(REASON_DESTROY) end diff --git a/script/c5633.lua b/script/c5633.lua deleted file mode 100644 index eb0890cb..00000000 --- a/script/c5633.lua +++ /dev/null @@ -1,45 +0,0 @@ ---インフェルノイド・デカトロン -function c5633.initial_effect(c) - --send to grave - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c5633.target) - e1:SetOperation(c5633.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) -end -function c5633.tgfilter(c) - return c:IsSetCard(0xbb) and not c:IsCode(5633) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() -end -function c5633.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5633.tgfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c5633.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c5633.tgfilter,tp,LOCATION_DECK,0,1,1,nil) - local tc=g:GetFirst() - local c=e:GetHandler() - if tc and Duel.SendtoGrave(tc,REASON_EFFECT) and c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetValue(tc:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetCode(EFFECT_CHANGE_CODE) - e2:SetValue(tc:GetOriginalCode()) - c:RegisterEffect(e2) - c:CopyEffect(tc:GetOriginalCode(),RESET_EVENT+0x1fe0000,1) - end -end diff --git a/script/c56339050.lua b/script/c56339050.lua index ca2065a6..a2e606a1 100644 --- a/script/c56339050.lua +++ b/script/c56339050.lua @@ -26,7 +26,7 @@ function c56339050.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if Duel.CheckEvent(EVENT_ATTACK_ANNOUNCE) and Duel.GetTurnPlayer()~=tp then local tc=Duel.GetAttacker() if Duel.IsExistingMatchingCard(c56339050.cfilter,tp,LOCATION_MZONE,0,1,nil,tc:GetAttack()) - and tc:IsOnField() and tc:IsCanBeEffectTarget(e) and tc:IsDestructable() then + and tc:IsOnField() and tc:IsCanBeEffectTarget(e) then e:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) e:SetProperty(EFFECT_FLAG_CARD_TARGET) Duel.SetTargetCard(tc) @@ -60,8 +60,7 @@ end function c56339050.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local tc=Duel.GetAttacker() if chkc then return chkc==tc end - if chk==0 then return e:GetHandler():GetFlagEffect(56339050)==0 - and tc:IsOnField() and tc:IsCanBeEffectTarget(e) and tc:IsDestructable() end + if chk==0 then return e:GetHandler():GetFlagEffect(56339050)==0 and tc:IsOnField() and tc:IsCanBeEffectTarget(e) end Duel.SetTargetCard(tc) local dam=tc:GetAttack()/2 Duel.SetTargetParam(dam) diff --git a/script/c5634.lua b/script/c5634.lua deleted file mode 100644 index a5dcb1c1..00000000 --- a/script/c5634.lua +++ /dev/null @@ -1,126 +0,0 @@ ---煉獄の虚夢 -function c5634.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_LVCHANGE) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CHANGE_LEVEL) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetTarget(c5634.lvtg) - e2:SetValue(1) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c5634.damcon) - e3:SetOperation(c5634.damop) - c:RegisterEffect(e3) - -- - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(5634,0)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_SZONE) - e4:SetCost(c5634.cost) - e4:SetTarget(c5634.target) - e4:SetOperation(c5634.operation) - c:RegisterEffect(e4) -end -function c5634.lvtg(e,c) - return c:GetOriginalLevel()>=2 and c:IsSetCard(0xbb) -end -function c5634.damcon(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local t=Duel.GetAttackTarget() - local flaga=a and a:IsSetCard(0xbb) and a:GetControler()==tp and a:GetOriginalLevel()>=2 - local flagt=t and t:IsSetCard(0xbb) and t:GetControler()==tp and t:GetOriginalLevel()>=2 - return ep~=tp - and (flaga or flagt) -end -function c5634.damop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,ev/2) -end -function c5634.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsAbleToGraveAsCost() end - Duel.SendtoGrave(c,REASON_COST) -end -function c5634.filter1(c,e) - return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) -end -function c5634.filter2(c,e,tp,m,f,chkf) - return c:IsType(TYPE_FUSION) and c:IsSetCard(0xbb) and (not f or f(c)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) -end -function c5634.fspfilter(c) - return c:GetSummonLocation()==LOCATION_EXTRA -end -function c5634.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c5634.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) - if Duel.IsExistingMatchingCard(c5634.fspfilter,tp,0,LOCATION_MZONE,1,nil) - and not Duel.IsExistingMatchingCard(c5634.fspfilter,tp,LOCATION_MZONE,0,1,nil) then - local mg1s=Duel.GetMatchingGroup(c5634.filter1,tp,LOCATION_DECK,0,nil,e) - mg1:Merge(mg1s) - end - local res=Duel.IsExistingMatchingCard(c5634.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - res=Duel.IsExistingMatchingCard(c5634.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c5634.operation(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c5634.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) - if Duel.IsExistingMatchingCard(c5634.fspfilter,tp,0,LOCATION_MZONE,1,nil) - and not Duel.IsExistingMatchingCard(c5634.fspfilter,tp,LOCATION_MZONE,0,1,nil) then - local mg1s=Duel.GetMatchingGroup(c5634.filter1,tp,LOCATION_DECK,0,nil,e) - mg1:Merge(mg1s) - end - local sg1=Duel.GetMatchingGroup(c5634.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - sg2=Duel.GetMatchingGroup(c5634.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end diff --git a/script/c56346071.lua b/script/c56346071.lua new file mode 100644 index 00000000..f0125c81 --- /dev/null +++ b/script/c56346071.lua @@ -0,0 +1,30 @@ +--トーテム・ファイブ +function c56346071.initial_effect(c) + --destroy + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e1:SetRange(LOCATION_MZONE) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c56346071.descon) + e1:SetTarget(c56346071.destg) + e1:SetOperation(c56346071.desop) + c:RegisterEffect(e1) +end +function c56346071.descon(e,tp,eg,ep,ev,re,r,rp) + return eg:GetCount()==5 and eg:IsContains(e:GetHandler()) +end +function c56346071.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetCount()*500) +end +function c56346071.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) + Duel.Destroy(g,REASON_EFFECT) + local sg=Duel.GetOperatedGroup() + if sg:GetCount()>0 then + Duel.Damage(1-tp,sg:GetCount()*500,REASON_EFFECT) + end +end diff --git a/script/c5635.lua b/script/c5635.lua deleted file mode 100644 index 54b97186..00000000 --- a/script/c5635.lua +++ /dev/null @@ -1,64 +0,0 @@ ---伝説の黒石 -function c5635.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(5635,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c5635.cost) - e1:SetCountLimit(1,5635) - e1:SetTarget(c5635.target1) - e1:SetOperation(c5635.operation1) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(5635,0)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e2:SetCountLimit(1,5635) - e2:SetTarget(c5635.target) - e2:SetOperation(c5635.operation) - c:RegisterEffect(e2) -end -function c5635.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c5635.spfilter(c,e,tp) - return c:IsSetCard(0x3b) and c:IsLevelBelow(7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5635.target1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5635.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK) -end -function c5635.operation1(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5635.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end -function c5635.filter(c) - return c:IsSetCard(0x3b) and c:IsLevelBelow(7) and c:IsAbleToDeck() -end -function c5635.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return e:GetHandler():IsAbleToHand() - and Duel.IsExistingTarget(c5635.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,c5635.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c5635.operation(e,tp,eg,ep,ev,re,r,rp) - local ex,g=Duel.GetOperationInfo(0,CATEGORY_TODECK) - if g:GetFirst():IsRelateToEffect(e) and e:GetHandler():IsRelateToEffect(e) then - Duel.SendtoDeck(g,nil,2,REASON_EFFECT) - Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,e:GetHandler()) - end -end diff --git a/script/c56350972.lua b/script/c56350972.lua index bde56b0c..450c9364 100644 --- a/script/c56350972.lua +++ b/script/c56350972.lua @@ -72,11 +72,14 @@ function c56350972.target(e,tp,eg,ep,ev,re,r,rp,chk) local sel=opval[op] e:SetLabel(sel) if sel==1 then + e:SetCategory(CATEGORY_DRAW+CATEGORY_HANDES) Duel.SetOperationInfo(0,CATEGORY_DRAW,0,0,tp,2) Duel.SetOperationInfo(0,CATEGORY_HANDES,0,0,tp,1) elseif sel==2 then + e:SetCategory(CATEGORY_HANDES) Duel.SetOperationInfo(0,CATEGORY_HANDES,0,0,1-tp,1) else + e:SetCategory(CATEGORY_TOHAND) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) end end diff --git a/script/c5636.lua b/script/c5636.lua deleted file mode 100644 index 6fa10f26..00000000 --- a/script/c5636.lua +++ /dev/null @@ -1,28 +0,0 @@ ---真紅眼の凶雷皇ーエビル・デーモン -function c5636.initial_effect(c) - aux.EnableDualAttribute(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(5636,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(aux.IsDualState) - e1:SetTarget(c5636.destg) - e1:SetOperation(c5636.desop) - c:RegisterEffect(e1) -end -function c5636.filter(c,atk) - return c:IsFaceup() and c:IsDestructable() and c:GetDefence()0 -end -function c5637.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local dam=e:GetHandler():GetBaseAttack() - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c5637.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - local c=e:GetHandler() - if c:IsFaceup() then - Duel.Damage(p,d,REASON_EFFECT) - end -end diff --git a/script/c5638.lua b/script/c5638.lua deleted file mode 100644 index f9705151..00000000 --- a/script/c5638.lua +++ /dev/null @@ -1,101 +0,0 @@ ---真紅眼融合 -function c5638.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,5638) - e1:SetCost(c5638.cost) - e1:SetTarget(c5638.target) - e1:SetOperation(c5638.activate) - c:RegisterEffect(e1) -end -function c5638.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_SUMMON)==0 - and Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)==0 end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c5638.sumlimit) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e2:SetCode(EFFECT_CANNOT_SUMMON) - e2:SetReset(RESET_PHASE+PHASE_END) - e2:SetTargetRange(1,0) - Duel.RegisterEffect(e2,tp) -end -function c5638.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) - return e:GetHandler()~=se:GetHandler() -end -function c5638.filter1(c,e) - return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) -end -function c5638.filter2(c,e,tp,m,f,chkf) - return c:IsType(TYPE_FUSION) and (c:IsCode(11901678) or c:IsCode(90660762) or c:IsCode(5639)) - and (not f or f(c)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) -end - -function c5638.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c5638.filter1,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_DECK,0,nil,e) - local res=Duel.IsExistingMatchingCard(c5638.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - res=Duel.IsExistingMatchingCard(c5638.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c5638.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c5638.filter1,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_DECK,0,nil,e) - local sg1=Duel.GetMatchingGroup(c5638.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - sg2=Duel.GetMatchingGroup(c5638.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_CODE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(74677422) - tc:RegisterEffect(e1) - end -end diff --git a/script/c5639.lua b/script/c5639.lua deleted file mode 100644 index b496c762..00000000 --- a/script/c5639.lua +++ /dev/null @@ -1,63 +0,0 @@ ---悪魔竜ブラック・デーモンズ・ドラゴン -function c5639.initial_effect(c) - c:SetSPSummonOnce(5639) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFun2(c,c5639.mfilter1,c5639.mfilter2,true) - --damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(5639,0)) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_PHASE+PHASE_BATTLE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c5639.condition) - e1:SetTarget(c5639.damtg) - e1:SetOperation(c5639.damop) - c:RegisterEffect(e1) - --actlimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EFFECT_CANNOT_ACTIVATE) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,1) - e2:SetValue(c5639.aclimit) - e2:SetCondition(c5639.actcon) - c:RegisterEffect(e2) -end -function c5639.mfilter1(c) - return c:IsSetCard(0x45) and c:IsType(TYPE_NORMAL) and c:GetLevel()==6 -end -function c5639.mfilter2(c) - return c:IsSetCard(0x3b) and c:IsType(TYPE_NORMAL) -end -function c5639.aclimit(e,re,tp) - return not re:GetHandler():IsImmuneToEffect(e) -end -function c5639.actcon(e) - return Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler() -end -function c5639.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetBattledGroupCount()>0 - and bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c5639.filter(c) - return c:IsSetCard(0x3b) and c:IsType(TYPE_NORMAL) and c:IsAbleToDeck() -end -function c5639.damtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c5639.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5639.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - Duel.SelectTarget(tp,c5639.filter,tp,LOCATION_GRAVE,0,1,1,nil) -end -function c5639.damop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.Damage(1-tp,tc:GetBaseAttack(),REASON_EFFECT) - Duel.BreakEffect() - Duel.SendtoDeck(tc,nil,2,REASON_EFFECT) - end -end diff --git a/script/c56399890.lua b/script/c56399890.lua index ea83987b..f98da728 100644 --- a/script/c56399890.lua +++ b/script/c56399890.lua @@ -16,7 +16,7 @@ function c56399890.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsPreviousLocation(LOCATION_HAND) and bit.band(r,REASON_DISCARD)~=0 end function c56399890.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c56399890.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c56399890.filter(chkc) end diff --git a/script/c5640.lua b/script/c5640.lua deleted file mode 100644 index 22c8eeb8..00000000 --- a/script/c5640.lua +++ /dev/null @@ -1,78 +0,0 @@ ---クリスタル・ローズ -function c5640.initial_effect(c) - --to grave - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c5640.tgtg) - e1:SetOperation(c5640.tgop) - c:RegisterEffect(e1) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_GRAVE) - e1:SetCountLimit(1,5640) - e1:SetCost(c5640.spcost) - e1:SetTarget(c5640.sptg) - e1:SetOperation(c5640.spop) - c:RegisterEffect(e1) -end -function c5640.filter(c) - return (c:IsSetCard(0x1047) or c:IsSetCard(0x9b)) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() -end -function c5640.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5640.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) end -end -function c5640.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) or c:IsFacedown() then return end - local g=Duel.SelectMatchingCard(tp,c5640.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil) - Duel.SendtoGrave(g,REASON_EFFECT) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_CODE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(g:GetFirst():GetCode()) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(5640,0)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetLabelObject(e1) - e2:SetOperation(c5640.rstop) - c:RegisterEffect(e2) -end -function c5640.rstop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=e:GetLabelObject() - e1:Reset() - Duel.HintSelection(Group.FromCards(c)) - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) -end -function c5640.cfilter(c) - return c:IsType(TYPE_FUSION) and c:IsAbleToRemoveAsCost() -end -function c5640.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5640.cfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c5640.cfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c5640.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c5640.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end diff --git a/script/c5640330.lua b/script/c5640330.lua index f8f3eee6..ce5d072f 100644 --- a/script/c5640330.lua +++ b/script/c5640330.lua @@ -1,7 +1,7 @@ --ハンニバル・ネクロマンサー function c5640330.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,1) + c:EnableCounterPermit(0x1) + c:SetCounterLimit(0x1,1) --summon success local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(5640330,0)) @@ -25,19 +25,19 @@ function c5640330.initial_effect(c) end function c5640330.addct(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x3001) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x1) end function c5640330.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c5640330.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x3001,1,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x3001,1,REASON_COST) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,1,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1,1,REASON_COST) end function c5640330.filter(c) - return c:IsType(TYPE_TRAP) and c:IsFaceup() and c:IsDestructable() + return c:IsType(TYPE_TRAP) and c:IsFaceup() end function c5640330.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c5640330.filter(chkc) end diff --git a/script/c5641.lua b/script/c5641.lua deleted file mode 100644 index 7574c440..00000000 --- a/script/c5641.lua +++ /dev/null @@ -1,66 +0,0 @@ ---イグナイト・アヴェンジャー -function c5641.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetTarget(c5641.sptg) - e1:SetOperation(c5641.spop) - c:RegisterEffect(e1) - --return - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_TODECK) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c5641.target) - e2:SetOperation(c5641.operation) - c:RegisterEffect(e2) -end -function c5641.filter(c) - return c:IsFaceup() and c:IsSetCard(0xc6) and c:IsDestructable() -end -function c5641.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c5641.filter,tp,LOCATION_ONFIELD,0,3,nil) - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c5641.filter,tp,LOCATION_ONFIELD,0,3,3,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,3,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c5641.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if Duel.Destroy(g,REASON_EFFECT)~=0 and c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end -function c5641.thfilter(c) - return c:IsFaceup() and c:IsSetCard(0xc6) and c:IsAbleToHand() -end -function c5641.tdfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck() -end -function c5641.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc~=e:GetHandler() and c5641.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5641.thfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) - and Duel.IsExistingMatchingCard(c5641.tdfilter,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c5641.thfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,1-tp,LOCATION_ONFIELD) -end -function c5641.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local dg=Duel.GetMatchingGroup(c5641.tdfilter,tp,0,LOCATION_ONFIELD,nil) - if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND+LOCATION_EXTRA) and dg:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local rg=dg:Select(tp,1,1,nil) - Duel.HintSelection(rg) - Duel.SendtoDeck(rg,nil,1,REASON_EFFECT) - end -end diff --git a/script/c5642.lua b/script/c5642.lua deleted file mode 100644 index 1da70131..00000000 --- a/script/c5642.lua +++ /dev/null @@ -1,48 +0,0 @@ ---イグナイト・マグナム -function c5642.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_PZONE) - e3:SetCondition(c5642.thcon) - e3:SetTarget(c5642.thtg) - e3:SetOperation(c5642.thop) - c:RegisterEffect(e3) -end -function c5642.thcon(e,tp,eg,ep,ev,re,r,rp) - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_SZONE,13-seq) - return tc and tc:IsSetCard(0xc6) -end -function c5642.dfilter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() -end -function c5642.thfilter(c) - return c:IsRace(RACE_WARRIOR) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5642.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5642.dfilter,tp,LOCATION_SZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c5642.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - local g=Duel.GetMatchingGroup(c5642.dfilter,tp,LOCATION_SZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c5642.thop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(c5642.dfilter,tp,LOCATION_SZONE,0,nil) - if Duel.Destroy(g,REASON_EFFECT)==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5642.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c56421754.lua b/script/c56421754.lua old mode 100755 new mode 100644 diff --git a/script/c56427559.lua b/script/c56427559.lua index 4a631c6f..1aefec54 100644 --- a/script/c56427559.lua +++ b/script/c56427559.lua @@ -37,7 +37,7 @@ function c56427559.lvop(e,tp,eg,ep,ev,re,r,rp) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CHANGE_LEVEL) e1:SetValue(tc:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) end end diff --git a/script/c5643.lua b/script/c5643.lua deleted file mode 100644 index fa1d9189..00000000 --- a/script/c5643.lua +++ /dev/null @@ -1,48 +0,0 @@ ---イグナイト・イーグル -function c5643.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_PZONE) - e3:SetCondition(c5643.thcon) - e3:SetTarget(c5643.thtg) - e3:SetOperation(c5643.thop) - c:RegisterEffect(e3) -end -function c5643.thcon(e,tp,eg,ep,ev,re,r,rp) - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_SZONE,13-seq) - return tc and tc:IsSetCard(0xc6) -end -function c5643.dfilter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() -end -function c5643.thfilter(c) - return c:IsRace(RACE_WARRIOR) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5643.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5643.dfilter,tp,LOCATION_SZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c5643.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - local g=Duel.GetMatchingGroup(c5643.dfilter,tp,LOCATION_SZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c5643.thop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(c5643.dfilter,tp,LOCATION_SZONE,0,nil) - if Duel.Destroy(g,REASON_EFFECT)==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5643.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c5644.lua b/script/c5644.lua deleted file mode 100644 index 403ba4f9..00000000 --- a/script/c5644.lua +++ /dev/null @@ -1,48 +0,0 @@ ---イグナイト・ドラグノフ -function c5644.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_PZONE) - e3:SetCondition(c5644.thcon) - e3:SetTarget(c5644.thtg) - e3:SetOperation(c5644.thop) - c:RegisterEffect(e3) -end -function c5644.thcon(e,tp,eg,ep,ev,re,r,rp) - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_SZONE,13-seq) - return tc and tc:IsSetCard(0xc6) -end -function c5644.dfilter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() -end -function c5644.thfilter(c) - return c:IsRace(RACE_WARRIOR) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5644.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5644.dfilter,tp,LOCATION_SZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c5644.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - local g=Duel.GetMatchingGroup(c5644.dfilter,tp,LOCATION_SZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c5644.thop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(c5644.dfilter,tp,LOCATION_SZONE,0,nil) - if Duel.Destroy(g,REASON_EFFECT)==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5644.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c5645.lua b/script/c5645.lua deleted file mode 100644 index e67f1273..00000000 --- a/script/c5645.lua +++ /dev/null @@ -1,48 +0,0 @@ ---イグナイト・マスケット -function c5645.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_PZONE) - e3:SetCondition(c5645.thcon) - e3:SetTarget(c5645.thtg) - e3:SetOperation(c5645.thop) - c:RegisterEffect(e3) -end -function c5645.thcon(e,tp,eg,ep,ev,re,r,rp) - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_SZONE,13-seq) - return tc and tc:IsSetCard(0xc6) -end -function c5645.dfilter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() -end -function c5645.thfilter(c) - return c:IsRace(RACE_WARRIOR) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5645.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5645.dfilter,tp,LOCATION_SZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c5645.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - local g=Duel.GetMatchingGroup(c5645.dfilter,tp,LOCATION_SZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c5645.thop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(c5645.dfilter,tp,LOCATION_SZONE,0,nil) - if Duel.Destroy(g,REASON_EFFECT)==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5645.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c5645210.lua b/script/c5645210.lua index a4926ef4..232197ff 100644 --- a/script/c5645210.lua +++ b/script/c5645210.lua @@ -1,4 +1,4 @@ ---Ｔｈｅ　ｓｐｌｅｎｄｉｄ　ＶＥＮＵＳ +--The splendid VENUS function c5645210.initial_effect(c) --atk,def local e1=Effect.CreateEffect(c) @@ -11,7 +11,7 @@ function c5645210.initial_effect(c) c:RegisterEffect(e1) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetRange(LOCATION_MZONE) e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) e1:SetTarget(c5645210.target) @@ -22,7 +22,9 @@ function c5645210.initial_effect(c) e3:SetType(EFFECT_TYPE_FIELD) e3:SetCode(EFFECT_CANNOT_DISABLE) e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(LOCATION_SZONE,0) + e3:SetTargetRange(LOCATION_ONFIELD,0) + e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e3:SetTarget(c5645210.distarget) c:RegisterEffect(e3) --inactivatable local e4=Effect.CreateEffect(c) @@ -47,3 +49,6 @@ function c5645210.effectfilter(e,ct) local tc=te:GetHandler() return p==tp and tc:IsType(TYPE_SPELL+TYPE_TRAP) end +function c5645210.distarget(e,c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) +end diff --git a/script/c564541.lua b/script/c564541.lua old mode 100755 new mode 100644 diff --git a/script/c5646.lua b/script/c5646.lua deleted file mode 100644 index 6a0c1e84..00000000 --- a/script/c5646.lua +++ /dev/null @@ -1,48 +0,0 @@ ---イグナイト・ライオット -function c5646.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_PZONE) - e3:SetCondition(c5646.thcon) - e3:SetTarget(c5646.thtg) - e3:SetOperation(c5646.thop) - c:RegisterEffect(e3) -end -function c5646.thcon(e,tp,eg,ep,ev,re,r,rp) - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_SZONE,13-seq) - return tc and tc:IsSetCard(0xc6) -end -function c5646.dfilter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() -end -function c5646.thfilter(c) - return c:IsRace(RACE_WARRIOR) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5646.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5646.dfilter,tp,LOCATION_SZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c5646.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - local g=Duel.GetMatchingGroup(c5646.dfilter,tp,LOCATION_SZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c5646.thop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(c5646.dfilter,tp,LOCATION_SZONE,0,nil) - if Duel.Destroy(g,REASON_EFFECT)==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5646.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c5647.lua b/script/c5647.lua deleted file mode 100644 index 085420fd..00000000 --- a/script/c5647.lua +++ /dev/null @@ -1,48 +0,0 @@ ---イグナイト・キャリバー -function c5647.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_PZONE) - e3:SetCondition(c5647.thcon) - e3:SetTarget(c5647.thtg) - e3:SetOperation(c5647.thop) - c:RegisterEffect(e3) -end -function c5647.thcon(e,tp,eg,ep,ev,re,r,rp) - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_SZONE,13-seq) - return tc and tc:IsSetCard(0xc6) -end -function c5647.dfilter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() -end -function c5647.thfilter(c) - return c:IsRace(RACE_WARRIOR) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5647.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5647.dfilter,tp,LOCATION_SZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c5647.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - local g=Duel.GetMatchingGroup(c5647.dfilter,tp,LOCATION_SZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c5647.thop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(c5647.dfilter,tp,LOCATION_SZONE,0,nil) - if Duel.Destroy(g,REASON_EFFECT)==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5647.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c5648.lua b/script/c5648.lua deleted file mode 100644 index 75aaaeef..00000000 --- a/script/c5648.lua +++ /dev/null @@ -1,53 +0,0 @@ ---霊廟の守護者 -function c5648.initial_effect(c) - --double tribute - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DOUBLE_TRIBUTE) - e1:SetValue(c5648.condition) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(18175965,0)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetRange(LOCATION_HAND+LOCATION_GRAVE) - e2:SetCondition(c5648.spcon) - e2:SetTarget(c5648.sptg) - e2:SetOperation(c5648.spop) - c:RegisterEffect(e2) -end -function c5648.condition(e,c) - return c:IsRace(RACE_DRAGON) -end -function c5648.cfilter(c) - return c:IsFaceup() and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) - and c:IsRace(RACE_DRAGON) and not c:IsCode(5648) - and (c:IsReason(REASON_EFFECT) or (c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE))) -end -function c5648.spcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c5648.cfilter,1,nil) -end -function c5648.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c5648.thfilter(c) - return c:IsRace(RACE_DRAGON) and c:IsType(TYPE_NORMAL) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5648.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)>0 then - local g=eg:Filter(c5648.cfilter,nil) - local mg=Duel.GetMatchingGroup(c5648.thfilter,tp,LOCATION_GRAVE,0,nil) - if g:IsExists(Card.IsType,1,nil,TYPE_NORMAL) and mg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(5648,0)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local sg=mg:Select(tp,1,1,nil) - Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sg) - end - end -end diff --git a/script/c5649.lua b/script/c5649.lua deleted file mode 100644 index e593d813..00000000 --- a/script/c5649.lua +++ /dev/null @@ -1,41 +0,0 @@ ---紅玉の宝札 -function c5649.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,5649+EFFECT_COUNT_CODE_OATH) - e1:SetCost(c5649.cost) - e1:SetTarget(c5649.target) - e1:SetOperation(c5649.activate) - c:RegisterEffect(e1) -end -function c5649.cfilter(c) - return c:GetLevel()==7 and c:IsSetCard(0x3b) and c:IsAbleToGraveAsCost() -end -function c5649.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5649.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c5649.cfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c5649.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c5649.tgfilter(c) - return c:GetLevel()==7 and c:IsSetCard(0x3b) and c:IsAbleToGrave() -end -function c5649.activate(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - if Duel.Draw(p,d,REASON_EFFECT)~=0 and Duel.IsExistingMatchingCard(c5649.tgfilter,tp,LOCATION_DECK,0,1,nil) - and Duel.SelectYesNo(tp,aux.Stringid(5649,0)) then - Duel.BreakEffect() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c5649.tgfilter,tp,LOCATION_DECK,0,1,1,nil) - Duel.SendtoGrave(g,REASON_EFFECT) - end -end diff --git a/script/c5650.lua b/script/c5650.lua deleted file mode 100644 index cc4d70a8..00000000 --- a/script/c5650.lua +++ /dev/null @@ -1,110 +0,0 @@ ---Ｅｍトラピーズ・マジシャン -function c5650.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_SPELLCASTER),4,2) - c:EnableReviveLimit() - --avoid damage - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetValue(c5650.damval) - c:RegisterEffect(e1) - --double attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1) - e2:SetCondition(c5650.condition) - e2:SetCost(c5650.cost) - e2:SetTarget(c5650.target) - e2:SetOperation(c5650.operation) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c5650.spcon) - e3:SetTarget(c5650.sptg) - e3:SetOperation(c5650.spop) - c:RegisterEffect(e3) -end -function c5650.damval(e,re,val,r,rp,rc) - if bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 and val<=e:GetHandler():GetAttack() then return 0 - else return val end -end -function c5650.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnCount()~=1 and Duel.GetCurrentPhase()==PHASE_MAIN1 - and not Duel.IsPlayerAffectedByEffect(Duel.GetTurnPlayer(),EFFECT_CANNOT_BP) -end -function c5650.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c5650.filter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:IsControler(Duel.GetTurnPlayer()) and not c:IsHasEffect(EFFECT_EXTRA_ATTACK) -end -function c5650.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc~=e:GetHandler() and c5650.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5650.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c5650.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler()) -end -function c5650.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local fid=e:GetHandler():GetFieldID() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(1) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_BATTLE) - e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e2:SetReset(RESET_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetLabel(fid) - e2:SetLabelObject(tc) - e2:SetCondition(c5650.descon) - e2:SetOperation(c5650.desop) - Duel.RegisterEffect(e2,tp) - end -end -function c5650.descon(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - if not tc:GetFlagEffectLabel(5650)==e:GetLabel() then - e:Reset() - return false - else return true end -end -function c5650.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - Duel.Destroy(tc,REASON_EFFECT) -end -function c5650.spcon(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and e:GetHandler():IsReason(REASON_DESTROY) -end -function c5650.spfilter(c,e,tp) - return c:IsSetCard(0xc7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5650.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5650.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c5650.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5650.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) -end diff --git a/script/c5651.lua b/script/c5651.lua deleted file mode 100644 index 6c496fdf..00000000 --- a/script/c5651.lua +++ /dev/null @@ -1,99 +0,0 @@ ---Ｅｍダメージ・ジャグラー -function c5651.initial_effect(c) - --Negate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(5651,0)) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c5651.discon) - e1:SetCost(c5651.cost) - e1:SetTarget(c5651.distg) - e1:SetOperation(c5651.disop) - c:RegisterEffect(e1) - --change damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(5651,1)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetRange(LOCATION_HAND) - e2:SetCondition(c5651.damcon) - e2:SetCost(c5651.cost) - e2:SetOperation(c5651.damop) - c:RegisterEffect(e2) - --search - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_GRAVE) - e3:SetCountLimit(1,5651) - e3:SetCost(c5651.thcost) - e3:SetTarget(c5651.thtg) - e3:SetOperation(c5651.thop) - c:RegisterEffect(e3) -end -function c5651.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDiscardable() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) -end -function c5651.discon(e,tp,eg,ep,ev,re,r,rp) - if not ((re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev)) then return false end - local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_DAMAGE) - if ex and (cp==tp or cp==PLAYER_ALL) then return true end - ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_RECOVER) - return ex and (cp==tp or cp==PLAYER_ALL) and Duel.IsPlayerAffectedByEffect(tp,EFFECT_REVERSE_RECOVER) -end -function c5651.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c5651.disop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end -function c5651.damcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE -end -function c5651.damop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetValue(c5651.damval) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - Duel.RegisterFlagEffect(tp,5651,RESET_PHASE+PHASE_END,0,1) -end -function c5651.damval(e,re,val,r,rp,rc) - local tp=e:GetHandlerPlayer() - if Duel.GetFlagEffect(tp,5651)==0 or bit.band(r,REASON_BATTLE)==0 then return val end - Duel.ResetFlagEffect(tp,5651) - return 0 -end -function c5651.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c5651.thfilter(c) - return c:IsSetCard(0xc7) and not c:IsCode(5651) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c5651.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5651.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5651.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5651.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c56511382.lua b/script/c56511382.lua index 8834f89d..cb28638f 100644 --- a/script/c56511382.lua +++ b/script/c56511382.lua @@ -23,7 +23,7 @@ function c56511382.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c56511382.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c56511382.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c56511382.filter(chkc) end diff --git a/script/c5653.lua b/script/c5653.lua deleted file mode 100644 index 912e04df..00000000 --- a/script/c5653.lua +++ /dev/null @@ -1,40 +0,0 @@ ---Sea Dragoons of Draconia -function c5653.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_DESTROYED) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1,5653) - e2:SetCondition(c5653.spcon) - e2:SetTarget(c5653.sptg) - e2:SetOperation(c5653.spop) - c:RegisterEffect(e2) -end -function c5653.spcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(Card.IsPreviousLocation,1,nil,LOCATION_MZONE) -end -function c5653.filter(c,e,tp) - return c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5653.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5653.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c5653.spop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5653.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 diff --git a/script/c56532353.lua b/script/c56532353.lua new file mode 100644 index 00000000..23dca684 --- /dev/null +++ b/script/c56532353.lua @@ -0,0 +1,71 @@ +--真青眼の究極竜 +function c56532353.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcCodeRep(c,89631139,3,true,true) + --chain attack + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_DAMAGE_STEP_END) + e1:SetCountLimit(2,56532353) + e1:SetCondition(c56532353.atcon) + e1:SetCost(c56532353.atcost) + e1:SetOperation(c56532353.atop) + c:RegisterEffect(e1) + --Negate + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_CHAINING) + e2:SetRange(LOCATION_GRAVE) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e2:SetCondition(c56532353.condition) + e2:SetCost(c56532353.cost) + e2:SetTarget(c56532353.target) + e2:SetOperation(c56532353.operation) + c:RegisterEffect(e2) +end +function c56532353.costfilter(c) + return c:IsSetCard(0xdd) and c:IsType(TYPE_FUSION) and c:IsAbleToGraveAsCost() +end +function c56532353.atcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return bit.band(c:GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION + and Duel.GetAttacker()==c and c:IsChainAttackable(0) + and not Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_ONFIELD,0,1,c) +end +function c56532353.atcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c56532353.costfilter,tp,LOCATION_EXTRA,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c56532353.costfilter,tp,LOCATION_EXTRA,0,1,1,nil) + Duel.SendtoGrave(g,REASON_COST) +end +function c56532353.atop(e,tp,eg,ep,ev,re,r,rp) + Duel.ChainAttack() +end +function c56532353.filter(c,tp) + return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsSetCard(0xdd) +end +function c56532353.condition(e,tp,eg,ep,ev,re,r,rp) + if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end + local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) + return g and g:IsExists(c56532353.filter,1,nil,tp) + and Duel.IsChainNegatable(ev) +end +function c56532353.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c56532353.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end +end +function c56532353.operation(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + if re:GetHandler():IsRelateToEffect(re) then + Duel.Destroy(eg,REASON_EFFECT) + end +end diff --git a/script/c56535497.lua b/script/c56535497.lua index dbb0bee4..b8dc6324 100644 --- a/script/c56535497.lua +++ b/script/c56535497.lua @@ -27,12 +27,7 @@ function c56535497.filter(c) end function c56535497.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then - local ph=Duel.GetCurrentPhase() - if Duel.GetTurnPlayer()==tp then return ph==PHASE_MAIN1 or ph==PHASE_MAIN2 - else return ph==PHASE_BATTLE or (ph==PHASE_DAMAGE - and Duel.IsExistingTarget(c56535497.filter,tp,LOCATION_MZONE,LOCATION_MZONE,2,nil)) end - end + if chk==0 then return true end if Duel.GetCurrentPhase()==PHASE_DAMAGE or (Duel.IsExistingTarget(c56535497.filter,tp,LOCATION_MZONE,LOCATION_MZONE,2,nil) and Duel.SelectYesNo(tp,aux.Stringid(56535497,0))) then e:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) @@ -50,7 +45,7 @@ end function c56535497.condition2(e,tp,eg,ep,ev,re,r,rp) local ph=Duel.GetCurrentPhase() if Duel.GetTurnPlayer()==tp then return ph==PHASE_MAIN1 or ph==PHASE_MAIN2 - else return ph==PHASE_BATTLE or ph==PHASE_DAMAGE end + else return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE and (ph~=PHASE_DAMAGE or not Duel.IsDamageCalculated()) end end function c56535497.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c5654.lua b/script/c5654.lua deleted file mode 100644 index 9aa1e1e5..00000000 --- a/script/c5654.lua +++ /dev/null @@ -1,83 +0,0 @@ ---Ｅｍフレイム・イーター -function c5654.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c5654.spcon) - e1:SetTarget(c5654.sptg) - e1:SetOperation(c5654.spop) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c5654.damtg) - e2:SetOperation(c5654.damop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) -end -function c5654.spcon(e,tp,eg,ep,ev,re,r,rp) - local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_DAMAGE) - if ex and (cp==tp or cp==PLAYER_ALL) then return true end - ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_RECOVER) - return ex and (cp==tp or cp==PLAYER_ALL) and Duel.IsPlayerAffectedByEffect(tp,EFFECT_REVERSE_RECOVER) -end -function c5654.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c5654.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x47e0000) - e1:SetValue(LOCATION_REMOVED) - c:RegisterEffect(e1,true) - local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CHANGE_DAMAGE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetLabel(cid) - e2:SetValue(c5654.damcon) - e2:SetReset(RESET_CHAIN) - Duel.RegisterEffect(e2,tp) - end - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e3:SetReset(RESET_PHASE+PHASE_END) - e3:SetTargetRange(1,0) - e3:SetTarget(c5654.splimit) - Duel.RegisterEffect(e3,tp) -end -function c5654.damcon(e,re,val,r,rp,rc) - local cc=Duel.GetCurrentChain() - if cc==0 or bit.band(r,REASON_EFFECT)==0 then return val end - local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID) - if cid==e:GetLabel() then return 0 else return val end -end -function c5654.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return not c:IsSetCard(0xc7) -end -function c5654.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,500) -end -function c5654.damop(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(tp,500,REASON_EFFECT) - Duel.Damage(1-tp,500,REASON_EFFECT) -end diff --git a/script/c5655.lua b/script/c5655.lua deleted file mode 100644 index cb51d452..00000000 --- a/script/c5655.lua +++ /dev/null @@ -1,81 +0,0 @@ ---トリック・ボックス -function c5655.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c5655.condition) - e1:SetTarget(c5655.target) - e1:SetOperation(c5655.activate) - c:RegisterEffect(e1) -end -function c5655.cfilter(c,tp) - return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsSetCard(0xc7) - and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp -end -function c5655.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c5655.cfilter,1,nil,tp) -end -function c5655.spfilter(c,e,tp) - return c:IsSetCard(0xc7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5655.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsControlerCanBeChanged() end - if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) - and Duel.IsExistingMatchingCard(c5655.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g1=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c5655.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - if not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - return - end - Duel.BreakEffect() - if Duel.GetLocationCount(1-tp,LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5655.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc and Duel.SpecialSummonStep(tc,0,tp,1-tp,true,false,POS_FACEUP) then - local fid=e:GetHandler():GetFieldID() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetLabel(fid) - e1:SetLabelObject(tc) - e1:SetCondition(c5655.ctcon) - e1:SetOperation(c5655.ctop) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - tc:RegisterFlagEffect(5655,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1,fid) - end - Duel.SpecialSummonComplete() -end -function c5655.ctcon(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - if not tc:GetFlagEffectLabel(5655)==e:GetLabel() then - e:Reset() - return false - else return true end -end -function c5655.ctop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - tc:ResetEffect(EFFECT_SET_CONTROL,RESET_CODE) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_CONTROL) - e1:SetValue(tc:GetOwner()) - e1:SetReset(RESET_EVENT+0xec0000) - tc:RegisterEffect(e1) -end diff --git a/script/c5656.lua b/script/c5656.lua deleted file mode 100644 index 03471467..00000000 --- a/script/c5656.lua +++ /dev/null @@ -1,97 +0,0 @@ ---真紅眼の鎧旋 -function c5656.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c5656.target1) - e1:SetOperation(c5656.operation) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c5656.condition2) - e2:SetCost(c5656.cost2) - e2:SetTarget(c5656.target2) - e2:SetOperation(c5656.operation) - e2:SetLabel(0) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCountLimit(1,5656) - e3:SetCondition(c5656.condition3) - e3:SetTarget(c5656.target3) - e3:SetOperation(c5656.operation) - e2:SetLabel(2) - c:RegisterEffect(e3) -end -function c5656.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x3b) -end -function c5656.filter1(c,e,tp) - return c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5656.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c5656.filter1(chkc,e,tp) end - if chk==0 then return true end - if Duel.GetFlagEffect(tp,5656)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5656.cfilter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingTarget(c5656.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) - and Duel.SelectYesNo(tp,aux.Stringid(5656,0)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5656.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) - e:SetCategory(CATEGORY_SPECIAL_SUMMON) - e:SetProperty(EFFECT_FLAG_CARD_TARGET) - e:SetLabel(0) - Duel.RegisterFlagEffect(tp,5656,RESET_PHASE+PHASE_END,0,1) - else - e:SetCategory(0) - e:SetProperty(0) - e:SetLabel(1) - end -end -function c5656.operation(e,tp,eg,ep,ev,re,r,rp) - if e:GetLabel()~=2 and (e:GetLabel()==1 or not e:GetHandler():IsRelateToEffect(e)) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end -function c5656.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c5656.cfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c5656.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,5656)==0 end - Duel.RegisterFlagEffect(tp,5656,RESET_PHASE+PHASE_END,0,1) -end -function c5656.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c5656.filter1(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5656.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5656.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c5656.condition3(e,tp,eg,ep,ev,re,r,rp) - return bit.band(r,REASON_EFFECT+REASON_DESTROY)==REASON_EFFECT+REASON_DESTROY and rp~=tp and e:GetHandler():GetPreviousControler()==tp -end -function c5656.filter2(c,e,tp) - return c:IsSetCard(0x3b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5656.target3(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c5656.filter2(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5656.filter2,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5656.filter2,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end diff --git a/script/c56562619.lua b/script/c56562619.lua new file mode 100644 index 00000000..a14c4421 --- /dev/null +++ b/script/c56562619.lua @@ -0,0 +1,157 @@ +--黒竜の忍者 +function c56562619.initial_effect(c) + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(c56562619.splimit) + c:RegisterEffect(e1) + --remove + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(56562619,0)) + e2:SetCategory(CATEGORY_REMOVE) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER_E) + e2:SetCountLimit(1) + e2:SetCost(c56562619.rmcost) + e2:SetTarget(c56562619.rmtg) + e2:SetOperation(c56562619.rmop) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(56562619,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetCode(EVENT_LEAVE_FIELD) + e3:SetCondition(c56562619.spcon) + e3:SetTarget(c56562619.sptg) + e3:SetOperation(c56562619.spop) + c:RegisterEffect(e3) + local ng=Group.CreateGroup() + ng:KeepAlive() + e3:SetLabelObject(ng) + e2:SetLabelObject(e3) +end +function c56562619.splimit(e,se,sp,st) + return (se:IsActiveType(TYPE_MONSTER) and se:GetHandler():IsSetCard(0x2b)) or se:GetHandler():IsSetCard(0x61) +end +function c56562619.cfilter1(c) + return (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsType(TYPE_MONSTER) and c:IsSetCard(0x2b) and c:IsAbleToGraveAsCost() +end +function c56562619.cfilter2(c) + return (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsSetCard(0x61) and c:IsAbleToGraveAsCost() +end +function c56562619.rmcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c56562619.cfilter1,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil) + and Duel.IsExistingMatchingCard(c56562619.cfilter2,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g1=Duel.SelectMatchingCard(tp,c56562619.cfilter1,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g2=Duel.SelectMatchingCard(tp,c56562619.cfilter2,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil) + g1:Merge(g2) + Duel.SendtoGrave(g1,REASON_COST) +end +function c56562619.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToRemove() end + if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) +end +function c56562619.rmop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + local c=e:GetHandler() + if tc:IsRelateToEffect(e) and Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)~=0 and c:IsRelateToEffect(e) then + tc:RegisterFlagEffect(56562619,RESET_EVENT+0x1fe0000,0,0) + e:GetLabelObject():SetLabel(1) + if c:GetFlagEffect(56562619)==0 then + c:RegisterFlagEffect(56562619,RESET_EVENT+0x1680000,0,0) + e:GetLabelObject():GetLabelObject():Clear() + end + e:GetLabelObject():GetLabelObject():AddCard(tc) + end +end +function c56562619.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local rg=e:GetLabelObject() + local act=e:GetLabel() + e:SetLabel(0) + if act==1 and c:IsPreviousPosition(POS_FACEUP) and c:GetLocation()~=LOCATION_DECK + and c:GetFlagEffect(56562619)~=0 then return true + else rg:Clear() return false end +end +function c56562619.spfilter(c,e,tp) + return c:GetFlagEffect(56562619)~=0 + and (c:IsCanBeSpecialSummoned(e,0,tp,false,false) or c:IsCanBeSpecialSummoned(e,0,tp,false,false,1-tp)) +end +function c56562619.spfilter1(c,e,tp) + return c:GetFlagEffect(56562619)~=0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:GetOwner()==tp +end +function c56562619.spfilter2(c,e,tp) + return c:GetFlagEffect(56562619)~=0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false,1-tp) and c:GetOwner()==1-tp +end +function c56562619.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + local rg=e:GetLabelObject() + if chk==0 then + if rg:IsExists(c56562619.spfilter,1,nil,e,tp) then return true + else rg:Clear() return false end + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,rg,rg:GetCount(),0,0) +end +function c56562619.spop(e,tp,eg,ep,ev,re,r,rp) + local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE) + local ft2=Duel.GetLocationCount(1-tp,LOCATION_MZONE) + local rg=e:GetLabelObject() + if (ft1<=0 and ft2<=0) or rg:GetCount()<=0 then return end + local sg=nil + local sg1=rg:Filter(c56562619.spfilter1,nil,e,tp) + local sg2=rg:Filter(c56562619.spfilter2,nil,e,tp) + local gc1=sg1:GetCount() + local gc2=sg2:GetCount() + if Duel.IsPlayerAffectedByEffect(tp,59822133) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + if ft1<=0 and gc2>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + sg=sg2:Select(tp,1,1,nil) + elseif ft2<=0 and gc1>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + sg=sg1:Select(tp,1,1,nil) + elseif (gc1>0 and ft1>0) or (gc2>0 and ft2>0) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + sg=rg:FilterSelect(tp,c56562619.spfilter,1,1,nil,e,tp) + end + if sg~=nil then + Duel.SpecialSummon(sg,0,tp,sg:GetFirst():GetOwner(),false,false,POS_FACEUP) + end + rg:Clear() + return + end + if gc1>0 and ft1>0 then + if sg1:GetCount()>ft1 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + sg1=sg1:Select(tp,ft1,ft1,nil) + end + local sg=sg1:GetFirst() + while sg do + Duel.SpecialSummonStep(sg,0,tp,tp,false,false,POS_FACEUP) + sg=sg1:GetNext() + end + end + if gc2>0 and ft2>0 then + if sg2:GetCount()>ft2 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + sg2=sg2:Select(tp,ft2,ft2,nil) + end + local sg=sg2:GetFirst() + while sg do + Duel.SpecialSummonStep(sg,0,tp,1-tp,false,false,POS_FACEUP) + sg=sg2:GetNext() + end + end + Duel.SpecialSummonComplete() + rg:Clear() +end diff --git a/script/c5657.lua b/script/c5657.lua deleted file mode 100644 index 2641b104..00000000 --- a/script/c5657.lua +++ /dev/null @@ -1,66 +0,0 @@ ---真紅眼の鋼炎竜 -function c5657.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,7,2) - c:EnableReviveLimit() - --indes - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c5657.indcon) - e1:SetValue(1) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_CHAINING) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c5657.damcon) - e2:SetOperation(c5657.damop) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c5657.spcost) - e3:SetTarget(c5657.sptg) - e3:SetOperation(c5657.spop) - c:RegisterEffect(e3) -end -function c5657.indcon(e) - return e:GetHandler():GetOverlayCount()~=0 -end -function c5657.damcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetOverlayCount()~=0 and rp~=tp -end -function c5657.damop(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(1-tp,500,REASON_EFFECT) -end -function c5657.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c5657.filter(c,e,tp) - return c:IsSetCard(0x3b) and c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5657.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c5657.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5657.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5657.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c5657.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c5658.lua b/script/c5658.lua deleted file mode 100644 index f4384ebe..00000000 --- a/script/c5658.lua +++ /dev/null @@ -1,80 +0,0 @@ ---黒鋼竜 -function c5658.initial_effect(c) - --equip - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(90361010,0)) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_HAND+LOCATION_MZONE) - e1:SetTarget(c5658.eqtg) - e1:SetOperation(c5658.eqop) - c:RegisterEffect(e1) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(90361010,1)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c5658.thcon) - e2:SetTarget(c5658.thtg) - e2:SetOperation(c5658.thop) - c:RegisterEffect(e2) -end -function c5658.filter(c) - return c:IsFaceup() and c:IsSetCard(0x3b) -end -function c5658.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c5658.filter(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c5658.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c5658.filter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) -end -function c5658.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - if c:IsLocation(LOCATION_MZONE) and c:IsFacedown() then return end - local tc=Duel.GetFirstTarget() - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:GetControler()~=tp or tc:IsFacedown() or not tc:IsRelateToEffect(e) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - Duel.Equip(tp,c,tc,true) - e:SetLabelObject(tc) - local e1=Effect.CreateEffect(tc) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c5658.eqlimit) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetValue(600) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) -end -function c5658.eqlimit(e,c) - return e:GetOwner()==c -end -function c5658.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) -end -function c5658.thfilter(c) - return c:IsSetCard(0x3b) and c:IsAbleToHand() -end -function c5658.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5658.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5658.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5658.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c56585883.lua b/script/c56585883.lua old mode 100755 new mode 100644 index 04c341fe..0f5c88aa --- a/script/c56585883.lua +++ b/script/c56585883.lua @@ -19,12 +19,14 @@ function c56585883.initial_effect(c) e2:SetTarget(c56585883.target) e2:SetOperation(c56585883.operation) c:RegisterEffect(e2) - --to grave + --reg local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e3:SetCode(EVENT_TO_GRAVE) + e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e3:SetOperation(c56585883.regop) c:RegisterEffect(e3) + --search local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(56585883,1)) e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) diff --git a/script/c5659.lua b/script/c5659.lua deleted file mode 100644 index a134b44f..00000000 --- a/script/c5659.lua +++ /dev/null @@ -1,52 +0,0 @@ ---トゥーン・サイバー・ドラゴン -function c5659.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c5659.spcon) - c:RegisterEffect(e1) - --cannot attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c5659.atklimit) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - local e4=e2:Clone() - e4:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e4) - --direct attack - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_DIRECT_ATTACK) - e5:SetCondition(c5659.dircon) - c:RegisterEffect(e5) -end -function c5659.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)>0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c5659.atklimit(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) -end -function c5659.dirfilter1(c) - return c:IsFaceup() and c:IsCode(15259703) -end -function c5659.dirfilter2(c) - return c:IsFaceup() and c:IsType(TYPE_TOON) -end -function c5659.dircon(e) - return Duel.IsExistingMatchingCard(c5659.dirfilter1,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil) - and not Duel.IsExistingMatchingCard(c5659.dirfilter2,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil) -end diff --git a/script/c56594520.lua b/script/c56594520.lua index 726028f9..fa5f0879 100644 --- a/script/c56594520.lua +++ b/script/c56594520.lua @@ -16,7 +16,7 @@ function c56594520.initial_effect(c) c:RegisterEffect(e2) --Def down local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(-400) c:RegisterEffect(e3) end diff --git a/script/c56597272.lua b/script/c56597272.lua index 34311a58..3bdb952c 100644 --- a/script/c56597272.lua +++ b/script/c56597272.lua @@ -20,11 +20,12 @@ function c56597272.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c56597272.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end if not Duel.IsPlayerCanSpecialSummonMonster(tp,56597273,0x18,0x4011,0,0,1,RACE_FAIRY,ATTRIBUTE_WATER) then return end for i=1,2 do local token=Duel.CreateToken(tp,56597273) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UNRELEASABLE_SUM) diff --git a/script/c5660.lua b/script/c5660.lua deleted file mode 100644 index cf4b4b33..00000000 --- a/script/c5660.lua +++ /dev/null @@ -1,63 +0,0 @@ ---イグナイト・アヴェンジャー -function c5660.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetTarget(c5660.sptg) - e1:SetOperation(c5660.spop) - c:RegisterEffect(e1) - --return - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_TODECK) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c5660.target) - e2:SetOperation(c5660.operation) - c:RegisterEffect(e2) -end -function c5660.filter(c) - return c:IsFaceup() and c:IsSetCard(0xc6) and c:IsDestructable() -end -function c5660.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c5660.filter,tp,LOCATION_ONFIELD,0,3,nil) - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c5660.filter,tp,LOCATION_ONFIELD,0,3,3,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,3,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c5660.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if Duel.Destroy(g,REASON_EFFECT)~=0 and c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end -function c5660.thfilter(c) - return c:IsFaceup() and c:IsSetCard(0xc6) and c:IsAbleToHand() -end -function c5660.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc~=e:GetHandler() and c5660.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5660.thfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) - and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c5660.thfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,1-tp,LOCATION_MZONE) -end -function c5660.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local dg=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_MZONE,nil) - if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND+LOCATION_EXTRA) and dg:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local rg=dg:Select(tp,1,1,nil) - Duel.HintSelection(rg) - Duel.SendtoDeck(rg,nil,1,REASON_EFFECT) - end -end diff --git a/script/c56606928.lua b/script/c56606928.lua index 639e92ae..4d1cbe14 100644 --- a/script/c56606928.lua +++ b/script/c56606928.lua @@ -10,7 +10,7 @@ function c56606928.initial_effect(c) c:RegisterEffect(e1) end function c56606928.filter(c) - return c:IsRace(RACE_FISH) and c:IsFaceup() and c:IsDestructable() + return c:IsRace(RACE_FISH) and c:IsFaceup() end function c56606928.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c56606928.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c5661.lua b/script/c5661.lua deleted file mode 100644 index 2f23a16b..00000000 --- a/script/c5661.lua +++ /dev/null @@ -1,57 +0,0 @@ ---イグニッションＰ -function c5661.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Atk/Def up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_FZONE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xc6)) - e2:SetValue(300) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e3) - --search - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_FZONE) - e4:SetCountLimit(1) - e4:SetTarget(c5661.target) - e4:SetOperation(c5661.operation) - c:RegisterEffect(e4) -end -function c5661.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0xc6) and c:IsDestructable() -end -function c5661.thfilter(c) - return c:IsSetCard(0xc6) and c:IsAbleToHand() -end -function c5661.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c5661.desfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5661.desfilter,tp,LOCATION_ONFIELD,0,1,nil) - and Duel.IsExistingMatchingCard(c5661.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c5661.desfilter,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5661.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5661.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end - end -end diff --git a/script/c56611470.lua b/script/c56611470.lua index 7e8ab772..d0874539 100644 --- a/script/c56611470.lua +++ b/script/c56611470.lua @@ -13,7 +13,7 @@ function c56611470.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(56611470,0)) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DELAY) e2:SetCode(EVENT_DESTROYED) e2:SetCondition(c56611470.drcon) e2:SetCost(c56611470.drcost) @@ -25,36 +25,42 @@ function c56611470.filter(c,e) return c:IsFaceup() and c:IsSetCard(0x97) and c:IsCanBeEffectTarget(e) end function c56611470.xyzfilter(c,mg) - if c.xyz_count~=2 then return false end - return c:IsXyzSummonable(mg) + return c:IsXyzSummonable(mg,2,2) end -function c56611470.mfilter1(c,exg) - return exg:IsExists(c56611470.mfilter2,1,nil,c) +function c56611470.mfilter1(c,mg,exg) + return mg:IsExists(c56611470.mfilter2,1,c,c,exg) end -function c56611470.mfilter2(c,mc) - return c.xyz_filter(mc) -end -function c56611470.mfilter3(c,mc,exg) +function c56611470.mfilter2(c,mc,exg) return exg:IsExists(Card.IsXyzSummonable,1,nil,Group.FromCards(c,mc)) end function c56611470.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end local mg=Duel.GetMatchingGroup(c56611470.filter,tp,LOCATION_MZONE,0,nil,e) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 and mg:GetCount()>1 - and Duel.IsExistingMatchingCard(c56611470.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,mg) end local exg=Duel.GetMatchingGroup(c56611470.xyzfilter,tp,LOCATION_EXTRA,0,nil,mg) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 + and exg:GetCount()>0 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local sg1=mg:FilterSelect(tp,c56611470.mfilter1,1,1,nil,exg) + local sg1=mg:FilterSelect(tp,c56611470.mfilter1,1,1,nil,mg,exg) local tc1=sg1:GetFirst() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local sg2=mg:FilterSelect(tp,c56611470.mfilter3,1,1,tc1,tc1,exg) + local sg2=mg:FilterSelect(tp,c56611470.mfilter2,1,1,tc1,tc1,exg) sg1:Merge(sg2) Duel.SetTargetCard(sg1) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) end +function c56611470.tfilter(c,e) + return c:IsRelateToEffect(e) and c:IsFaceup() +end function c56611470.activate(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetTargetRange(LOCATION_MZONE,0) + e1:SetTarget(c56611470.attg) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<-1 then return end - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c56611470.tfilter,nil,e) if g:GetCount()<2 then return end local xyzg=Duel.GetMatchingGroup(c56611470.xyzfilter,tp,LOCATION_EXTRA,0,nil,g) if xyzg:GetCount()>0 then @@ -62,13 +68,6 @@ function c56611470.activate(e,tp,eg,ep,ev,re,r,rp) local xyz=xyzg:Select(tp,1,1,nil):GetFirst() Duel.XyzSummon(tp,xyz,g) end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetTarget(c56611470.attg) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) end function c56611470.attg(e,c) return not c:IsSetCard(0x97) @@ -92,7 +91,7 @@ function c56611470.drtg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetTargetParam(1) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) end -function c56611470.drop(e,tp,eg,ep,ev,re,r,rp,chk) +function c56611470.drop(e,tp,eg,ep,ev,re,r,rp) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) Duel.Draw(p,d,REASON_EFFECT) end diff --git a/script/c56619314.lua b/script/c56619314.lua index 1193ba81..5400d406 100644 --- a/script/c56619314.lua +++ b/script/c56619314.lua @@ -59,8 +59,10 @@ function c56619314.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c56619314.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c56619314.cost(e,tp,eg,ep,ev,re,r,rp,chk) @@ -68,7 +70,7 @@ function c56619314.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c56619314.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c56619314.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c5662.lua b/script/c5662.lua deleted file mode 100644 index 2dbfa616..00000000 --- a/script/c5662.lua +++ /dev/null @@ -1,104 +0,0 @@ ---イグナイト・バースト -function c5662.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c5662.target1) - e1:SetOperation(c5662.operation) - c:RegisterEffect(e1) - --search - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetCondition(c5662.condition) - e2:SetCost(c5662.cost) - e2:SetTarget(c5662.target2) - e2:SetOperation(c5662.operation) - e2:SetLabel(1) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c5662.thcon) - e3:SetTarget(c5662.thtg) - e3:SetOperation(c5662.thop) - c:RegisterEffect(e3) -end -function c5662.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0xc6) and c:IsDestructable() -end -function c5662.target1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local c=e:GetHandler() - local ph=Duel.GetCurrentPhase() - if c:GetFlagEffect(5662)==0 and Duel.GetTurnPlayer()==tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2) - and Duel.IsExistingMatchingCard(c5662.desfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) - and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) - and Duel.SelectYesNo(tp,aux.Stringid(5662,0)) then - e:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND) - c:RegisterFlagEffect(5662,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - c:RegisterFlagEffect(0,RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(5662,1)) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,LOCATION_ONFIELD) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,1-tp,LOCATION_ONFIELD) - e:SetLabel(1) - else - e:SetCategory(0) - e:SetLabel(0) - end -end -function c5662.operation(e,tp,eg,ep,ev,re,r,rp) - if e:GetLabel()==0 or not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local dg1=Duel.GetMatchingGroup(c5662.desfilter,tp,LOCATION_ONFIELD,0,e:GetHandler()) - local rg1=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,nil) - local ct=math.min(dg1:GetCount(),rg1:GetCount(),3) - if ct<1 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local dg2=dg1:Select(tp,1,ct,nil) - local op=Duel.Destroy(dg2,REASON_EFFECT) - if op>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local rg2=rg1:Select(tp,1,op,nil) - if rg2:GetCount()>0 then - Duel.SendtoHand(rg2,nil,REASON_EFFECT) - end - end -end -function c5662.condition(e,tp,eg,ep,ev,re,r,rp) - local ph=Duel.GetCurrentPhase() - return Duel.GetTurnPlayer()==tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2) -end -function c5662.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(5662)==0 end - e:GetHandler():RegisterFlagEffect(5662,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c5662.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5662.desfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) - and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,LOCATION_ONFIELD) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,1-tp,LOCATION_ONFIELD) -end -function c5662.thcon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsReason(REASON_RETURN) -end -function c5662.thfilter(c) - return c:IsFaceup() and c:IsSetCard(0xc6) and c:IsAbleToHand() -end -function c5662.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5662.thfilter,tp,LOCATION_EXTRA,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_EXTRA) -end -function c5662.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5662.thfilter,tp,LOCATION_EXTRA,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c5663.lua b/script/c5663.lua deleted file mode 100644 index a79e98e0..00000000 --- a/script/c5663.lua +++ /dev/null @@ -1,103 +0,0 @@ ---覇王黒竜オッドアイズ・リベリオン・ドラゴン -function c5663.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_DRAGON),7,2) - c:EnableReviveLimit() - --pendulum summon - aux.AddPendulumProcedure(c) - --pendulum set - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetCondition(c5663.pcon1) - e2:SetTarget(c5663.ptg1) - e2:SetOperation(c5663.pop1) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCondition(c5663.descon) - e3:SetTarget(c5663.destg) - e3:SetOperation(c5663.desop) - c:RegisterEffect(e3) - --pendulum set - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_DESTROYED) - e4:SetCondition(c5663.pcon2) - e4:SetTarget(c5663.ptg2) - e4:SetOperation(c5663.pop2) - c:RegisterEffect(e4) -end -c5663.pendulum_level=7 -function c5663.pcon1(e,tp,eg,ep,ev,re,r,rp) - local seq=e:GetHandler():GetSequence() - return Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq)==nil -end -function c5663.pfilter(c) - return c:IsType(TYPE_PENDULUM) and not c:IsForbidden() -end -function c5663.ptg1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5663.pfilter,tp,LOCATION_DECK,0,1,nil) end -end -function c5663.pop1(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local seq=e:GetHandler():GetSequence() - if Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq)~=nil then return end - local g=Duel.SelectMatchingCard(tp,c5663.pfilter,tp,LOCATION_DECK,0,1,1,nil) - local tc=g:GetFirst() - if tc then - local scale=0 - if 13-seq==6 then scale=tc:GetLeftScale() - else scale=tc:GetRightScale() end - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - tc:RegisterFlagEffect(5687,RESET_EVENT+0x1fe0000,0,1,scale) - end -end -function c5663.descon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetSummonType()==SUMMON_TYPE_XYZ and c:GetMaterial():IsExists(Card.IsType,1,nil,TYPE_XYZ) -end -function c5663.dfilter(c) - return c:IsFaceup() and c:IsLevelBelow(7) and c:IsDestructable() -end -function c5663.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(c5663.dfilter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c5663.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c5663.dfilter,tp,0,LOCATION_MZONE,nil) - local ct=Duel.Destroy(g,REASON_EFFECT) - if ct>0 and Duel.Damage(1-tp,ct*1000,REASON_EFFECT)~=0 then - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(2) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end -end -function c5663.pcon2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsPreviousLocation(LOCATION_MZONE) -end -function c5663.pdfilter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() -end -function c5663.ptg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5663.pdfilter,tp,LOCATION_SZONE,0,1,nil) end - local g=Duel.GetMatchingGroup(c5663.pdfilter,tp,LOCATION_SZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c5663.pop2(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c5663.pdfilter,tp,LOCATION_SZONE,0,nil) - if Duel.Destroy(g,REASON_EFFECT)==0 then return end - Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_SZONE,POS_FACEUP,true) -end diff --git a/script/c5663825.lua b/script/c5663825.lua deleted file mode 100644 index bad32999..00000000 --- a/script/c5663825.lua +++ /dev/null @@ -1,88 +0,0 @@ ---星輝士 デルタテロス -function c5663825.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,4),3) - c:EnableReviveLimit() - --act limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c5663825.limcon) - e1:SetOperation(c5663825.limop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(5663825,0)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1) - e3:SetCost(c5663825.descost) - e3:SetTarget(c5663825.destg) - e3:SetOperation(c5663825.desop) - c:RegisterEffect(e3) - --spsummon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(5663825,1)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e4:SetCondition(c5663825.spcon) - e4:SetTarget(c5663825.sptg) - e4:SetOperation(c5663825.spop) - c:RegisterEffect(e4) -end -function c5663825.limfilter(c,tp) - return c:GetSummonPlayer()==tp -end -function c5663825.limcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetOverlayCount()>0 and eg:IsExists(c5663825.limfilter,1,nil,tp) -end -function c5663825.limop(e,tp,eg,ep,ev,re,r,rp) - Duel.SetChainLimitTillChainEnd(c5663825.chainlm) -end -function c5663825.chainlm(e,rp,tp) - return tp==rp -end -function c5663825.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c5663825.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c5663825.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c5663825.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) -end -function c5663825.spfilter(c,e,tp) - return c:IsSetCard(0x9c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5663825.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5663825.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c5663825.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5663825.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c56638325.lua b/script/c56638325.lua index c8d1b6e2..153592c2 100644 --- a/script/c56638325.lua +++ b/script/c56638325.lua @@ -71,10 +71,10 @@ function c56638325.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c56638325.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c56638325.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c5664.lua b/script/c5664.lua deleted file mode 100644 index 6db5e1a0..00000000 --- a/script/c5664.lua +++ /dev/null @@ -1,86 +0,0 @@ ---相克の魔術師 -function c5664.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --xyz material set - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1) - e2:SetTarget(c5664.target) - e2:SetOperation(c5664.operation) - c:RegisterEffect(e2) - --disable - local e3=Effect.CreateEffect(c) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetRange(LOCATION_MZONE) - e3:SetHintTiming(0,0x1c0) - e3:SetCountLimit(1) - e3:SetTarget(c5664.distg) - e3:SetOperation(c5664.disop) - c:RegisterEffect(e3) -end -function c5664.filter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) -end -function c5664.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c5664.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5664.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c5664.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c5664.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_XYZ_LEVEL) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(aux.TargetBoolFunction(Card.GetRank)) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end -function c5664.disfilter(c) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_LIGHT) and not c:IsDisabled() - and (c:IsType(TYPE_SPELL+TYPE_TRAP+TYPE_EFFECT) or bit.band(c:GetOriginalType(),TYPE_EFFECT)~=0) -end -function c5664.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c5664.disfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5664.disfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c5664.disfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) -end -function c5664.disop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsDisabled() then - Duel.NegateRelatedChain(tc,RESET_TURN_SET) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e2) - if tc:IsType(TYPE_TRAPMONSTER) then - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DISABLE_TRAPMONSTER) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e3) - end - end -end diff --git a/script/c56641453.lua b/script/c56641453.lua old mode 100755 new mode 100644 index fea2140f..0006c1a8 --- a/script/c56641453.lua +++ b/script/c56641453.lua @@ -19,7 +19,7 @@ function c56641453.filter1(c,e,tp) return tcode and Duel.IsExistingTarget(c56641453.filter2,tp,0x13,0,1,nil,tcode,e,tp) end function c56641453.filter2(c,tcode,e,tp) - return c:IsCode(tcode) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(tcode) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) end function c56641453.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:SetLabel(1) @@ -56,7 +56,7 @@ function c56641453.activate(e,tp,eg,ep,ev,re,r,rp) local tcode=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c56641453.filter2,tp,0x13,0,1,1,nil,tcode,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c5665.lua b/script/c5665.lua deleted file mode 100644 index 13855b1f..00000000 --- a/script/c5665.lua +++ /dev/null @@ -1,104 +0,0 @@ ---相生の魔術師 -function c5665.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --rank change - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1) - e2:SetTarget(c5665.target) - e2:SetOperation(c5665.operation) - c:RegisterEffect(e2) - --scale - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CHANGE_LSCALE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_PZONE) - e3:SetCondition(c5665.slcon) - e3:SetValue(4) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_CHANGE_RSCALE) - c:RegisterEffect(e4) - --no battle damage - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_NO_BATTLE_DAMAGE) - c:RegisterEffect(e5) - --atk - local e6=Effect.CreateEffect(c) - e6:SetCategory(CATEGORY_ATKCHANGE) - e6:SetType(EFFECT_TYPE_IGNITION) - e6:SetProperty(EFFECT_FLAG_CARD_TARGET) - e6:SetRange(LOCATION_MZONE) - e6:SetCountLimit(1) - e6:SetTarget(c5665.atktg) - e6:SetOperation(c5665.atkop) - c:RegisterEffect(e6) -end -function c5665.filter1(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) -end -function c5665.filter2(c) - return c:IsFaceup() and c:IsLevelAbove(5) -end -function c5665.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c5665.filter1,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingTarget(c5665.filter2,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c5665.filter1,tp,LOCATION_MZONE,0,1,1,nil) - e:SetLabelObject(g:GetFirst()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c5665.filter2,tp,LOCATION_MZONE,0,1,1,nil) -end -function c5665.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc1=e:GetLabelObject() - local tc2=g:GetFirst() - if tc1==tc2 then tc2=g:GetNext() end - if tc1:IsFaceup() and tc1:IsRelateToEffect(e) and tc2:IsFaceup() and tc2:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_RANK) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(tc2:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc1:RegisterEffect(e1) - end -end -function c5665.slcon(e) - local tp=e:GetHandlerPlayer() - return Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,0)>Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD) -end -function c5665.atkfilter(c,atk) - return c:IsFaceup() and c:GetAttack()~=atk -end -function c5665.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local c=e:GetHandler() - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc~=c and c5665.atkfilter(chkc,c:GetAttack()) end - if chk==0 then return Duel.IsExistingTarget(c5665.atkfilter,tp,LOCATION_MZONE,0,1,c,c:GetAttack()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c5665.atkfilter,tp,LOCATION_MZONE,0,1,1,c,c:GetAttack()) -end -function c5665.atkop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) and tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(tc:GetAttack()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - c:RegisterEffect(e1) - end -end diff --git a/script/c56655675.lua b/script/c56655675.lua index 8c328f66..bb386b14 100644 --- a/script/c56655675.lua +++ b/script/c56655675.lua @@ -26,30 +26,38 @@ function c56655675.initial_effect(c) e3:SetOperation(c56655675.operation) c:RegisterEffect(e3) end -function c56655675.spfilter1(c) - return c:IsSetCard(0x40b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() +function c56655675.spfilter1(c,mg) + local mg2=mg:Clone() + mg2:RemoveCard(c) + return c:IsFusionSetCard(0x40b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() + and mg2:IsExists(c56655675.spfilter2,1,nil,mg2) end -function c56655675.spfilter2(c) - return c:IsSetCard(0x10b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() +function c56655675.spfilter2(c,mg) + local mg2=mg:Clone() + mg2:RemoveCard(c) + return c:IsFusionSetCard(0x10b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() + and mg2:IsExists(c56655675.spfilter3,1,nil) end function c56655675.spfilter3(c) - return c:IsSetCard(0x20b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() + return c:IsFusionSetCard(0x20b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() end function c56655675.spcon(e,c) if c==nil then return true end local tp=c:GetControler() + local mg=Duel.GetMatchingGroup(Card.IsFusionSetCard,tp,LOCATION_MZONE,0,nil,0xb5) return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 - and Duel.IsExistingMatchingCard(c56655675.spfilter1,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c56655675.spfilter2,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c56655675.spfilter3,tp,LOCATION_MZONE,0,1,nil) + and mg:IsExists(c56655675.spfilter1,1,nil,mg) end function c56655675.spop(e,tp,eg,ep,ev,re,r,rp,c) + local mg=Duel.GetMatchingGroup(Card.IsFusionSetCard,tp,LOCATION_MZONE,0,nil,0xb5) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g1=Duel.SelectMatchingCard(tp,c56655675.spfilter1,tp,LOCATION_MZONE,0,1,1,nil) + local g1=mg:FilterSelect(tp,c56655675.spfilter1,1,1,nil,mg) + mg:RemoveCard(g1:GetFirst()) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g2=Duel.SelectMatchingCard(tp,c56655675.spfilter2,tp,LOCATION_MZONE,0,1,1,nil) + local g2=mg:FilterSelect(tp,c56655675.spfilter2,1,1,nil,mg) + mg:RemoveCard(g2:GetFirst()) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g3=Duel.SelectMatchingCard(tp,c56655675.spfilter3,tp,LOCATION_MZONE,0,1,1,nil) + local g3=mg:FilterSelect(tp,c56655675.spfilter3,1,1,nil) g1:Merge(g2) g1:Merge(g3) c:SetMaterial(g1) @@ -61,7 +69,7 @@ end function c56655675.operation(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_MZONE) diff --git a/script/c5666.lua b/script/c5666.lua deleted file mode 100644 index 4abbf78e..00000000 --- a/script/c5666.lua +++ /dev/null @@ -1,18 +0,0 @@ ---ＤＤＤ神託王ダルク -function c5666.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsSetCard,0xaf),2,true) - --damage conversion - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_REVERSE_DAMAGE) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(1,0) - e1:SetValue(c5666.rev) - c:RegisterEffect(e1) -end -function c5666.rev(e,re,r,rp,rc) - return bit.band(r,REASON_EFFECT)>0 -end diff --git a/script/c5667.lua b/script/c5667.lua deleted file mode 100644 index dfd3c811..00000000 --- a/script/c5667.lua +++ /dev/null @@ -1,31 +0,0 @@ ---ＤＤパンドラ -function c5667.initial_effect(c) - --draw - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c5667.condition) - e1:SetTarget(c5667.target) - e1:SetOperation(c5667.operation) - c:RegisterEffect(e1) -end -function c5667.filter(c) - return not c:IsStatus(STATUS_LEAVE_CONFIRMED) -end -function c5667.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return rp~=tp and c:IsReason(REASON_DESTROY) and c:IsPreviousLocation(LOCATION_ONFIELD) - and not Duel.IsExistingMatchingCard(c5667.filter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c5667.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) -end -function c5667.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c56675280.lua b/script/c56675280.lua new file mode 100644 index 00000000..cb6d4e29 --- /dev/null +++ b/script/c56675280.lua @@ -0,0 +1,60 @@ +--EMインコーラス +function c56675280.initial_effect(c) + aux.EnablePendulumAttribute(c) + --scale change + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(56675280,0)) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetCondition(c56675280.sccon) + e1:SetTarget(c56675280.sctg) + e1:SetOperation(c56675280.scop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(56675280,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BATTLE_DESTROYED) + e2:SetTarget(c56675280.sptg) + e2:SetOperation(c56675280.spop) + c:RegisterEffect(e2) +end +function c56675280.sccon(e,tp,eg,ep,ev,re,r,rp) + local seq=e:GetHandler():GetSequence() + local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) + return tc and (tc:IsSetCard(0x98) or tc:IsSetCard(0x99) or tc:IsSetCard(0x9f)) and not tc:IsCode(56675280) +end +function c56675280.sctg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetLeftScale()~=7 end +end +function c56675280.scop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:GetLeftScale()==7 then return end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CHANGE_LSCALE) + e1:SetValue(7) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_CHANGE_RSCALE) + c:RegisterEffect(e2) +end +function c56675280.spfilter(c,e,tp) + return c:IsSetCard(0x9f) and not c:IsType(TYPE_PENDULUM) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c56675280.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c56675280.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c56675280.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c56675280.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c5668.lua b/script/c5668.lua deleted file mode 100644 index 34d5f943..00000000 --- a/script/c5668.lua +++ /dev/null @@ -1,87 +0,0 @@ ---ＤＤＤ狙撃王テル -function c5668.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,5,2,c5668.ovfilter,aux.Stringid(5668,0)) - c:EnableReviveLimit() - --atk/def down - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c5668.condition) - e1:SetCost(c5668.cost) - e1:SetTarget(c5668.target) - e1:SetOperation(c5668.operation) - c:RegisterEffect(e1) - --to grave - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOGRAVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCondition(c5668.tgcon) - e2:SetTarget(c5668.tgtg) - e2:SetOperation(c5668.tgop) - c:RegisterEffect(e2) - if not c5668.global_check then - c5668.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_DAMAGE) - ge1:SetOperation(c5668.checkop) - Duel.RegisterEffect(ge1,0) - end -end -function c5668.checkop(e,tp,eg,ep,ev,re,r,rp) - Duel.RegisterFlagEffect(ep,5668,RESET_PHASE+PHASE_END,0,1) -end -function c5668.ovfilter(c) - return c:IsFaceup() and c:GetRank()==4 and c:IsSetCard(0x10af) -end -function c5668.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFlagEffect(tp,5668)~=0 -end -function c5668.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c5668.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c5668.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-1000) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - tc:RegisterEffect(e2) - Duel.Damage(1-tp,1000,REASON_EFFECT) - end -end -function c5668.tgcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) -end -function c5668.tgfilter(c) - return (c:IsSetCard(0xaf) or c:IsSetCard(0xae)) and c:IsAbleToGrave() -end -function c5668.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5668.tgfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c5668.tgop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c5668.tgfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - end -end diff --git a/script/c56681873.lua b/script/c56681873.lua index 51eccd9c..2f7c623d 100644 --- a/script/c56681873.lua +++ b/script/c56681873.lua @@ -23,6 +23,6 @@ function c56681873.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c56681873.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_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c5669.lua b/script/c5669.lua deleted file mode 100644 index 79267d78..00000000 --- a/script/c5669.lua +++ /dev/null @@ -1,78 +0,0 @@ ---アロマガーデン -function c5669.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - ----recover - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_RECOVER) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_FZONE) - e2:SetCountLimit(1) - e2:SetCondition(c5669.condition1) - e2:SetTarget(c5669.target1) - e2:SetOperation(c5669.operation1) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_RECOVER) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetRange(LOCATION_FZONE) - e3:SetCondition(c5669.condition2) - e3:SetTarget(c5669.target2) - e3:SetOperation(c5669.operation2) - c:RegisterEffect(e3) -end -function c5669.cfilter1(c) - return c:IsFaceup() and c:IsSetCard(0xc8) -end -function c5669.condition1(e,tp,eg,ep,ev,re,r,rp,chk) - return Duel.IsExistingMatchingCard(c5669.cfilter1,tp,LOCATION_MZONE,0,1,nil) -end -function c5669.target1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(500) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,500) -end -function c5669.operation1(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Recover(p,d,REASON_EFFECT) - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(500) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_OPPO_TURN) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - tc:RegisterEffect(e2) - tc=g:GetNext() - end -end -function c5669.cfilter2(c,tp) - return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsSetCard(0xc8) - and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp -end -function c5669.condition2(e,tp,eg,ep,ev,re,r,rp,chk) - return eg:IsExists(c5669.cfilter2,1,nil,tp) -end -function c5669.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,1000) -end -function c5669.operation2(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Recover(p,d,REASON_EFFECT) -end diff --git a/script/c5670.lua b/script/c5670.lua deleted file mode 100644 index aa1941bc..00000000 --- a/script/c5670.lua +++ /dev/null @@ -1,43 +0,0 @@ ---アロマージ－ジャスミン -function c5670.initial_effect(c) - --extra summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0) - e1:SetCode(EFFECT_EXTRA_SUMMON_COUNT) - e1:SetCondition(c5670.excon) - e1:SetTarget(c5670.extg) - c:RegisterEffect(e1) - --draw - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DRAW) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_RECOVER) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCondition(c5670.drcon) - e2:SetTarget(c5670.drtg) - e2:SetOperation(c5670.drop) - c:RegisterEffect(e2) -end -function c5670.excon(e) - local tp=e:GetHandlerPlayer() - return Duel.GetLP(tp)>Duel.GetLP(1-tp) -end -function c5670.extg(e,c) - return c:IsRace(RACE_PLANT) and not c:IsCode(5670) -end -function c5670.drcon(e,tp,eg,ep,ev,re,r,rp) - return ep==tp -end -function c5670.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c5670.drop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end diff --git a/script/c5671.lua b/script/c5671.lua deleted file mode 100644 index 2a837e62..00000000 --- a/script/c5671.lua +++ /dev/null @@ -1,46 +0,0 @@ ---アロマージ－ベルガモット -function c5671.initial_effect(c) - --extra summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetCode(EFFECT_PIERCE) - e1:SetCondition(c5671.pcon) - e1:SetTarget(c5671.ptg) - c:RegisterEffect(e1) - --atk/def up - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_RECOVER) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCondition(c5671.adcon) - e2:SetOperation(c5671.adop) - c:RegisterEffect(e2) -end -function c5671.pcon(e) - local tp=e:GetHandlerPlayer() - return Duel.GetLP(tp)>Duel.GetLP(1-tp) -end -function c5671.ptg(e,c) - return c:IsRace(RACE_PLANT) -end -function c5671.adcon(e,tp,eg,ep,ev,re,r,rp) - return ep==tp -end -function c5671.adop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(1000) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END+RESET_OPPO_TURN) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) - end -end diff --git a/script/c5672.lua b/script/c5672.lua deleted file mode 100644 index 82908ae0..00000000 --- a/script/c5672.lua +++ /dev/null @@ -1,50 +0,0 @@ ---アロマージ－カナンガ -function c5672.initial_effect(c) - --atk/def down - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetTargetRange(0,LOCATION_MZONE) - e1:SetCondition(c5672.atkcon) - e1:SetValue(-500) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) - --to hand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCode(EVENT_RECOVER) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCondition(c5672.thcon) - e3:SetTarget(c5672.thtg) - e3:SetOperation(c5672.thop) - c:RegisterEffect(e3) -end -function c5672.atkcon(e) - local tp=e:GetHandlerPlayer() - return Duel.GetLP(tp)>Duel.GetLP(1-tp) -end -function c5672.thcon(e,tp,eg,ep,ev,re,r,rp) - return ep==tp -end -function c5672.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c5672.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c5672.filter(chkc) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c5672.filter,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c5672.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end diff --git a/script/c5672432.lua b/script/c5672432.lua index 1c7862c8..cd23eab2 100644 --- a/script/c5672432.lua +++ b/script/c5672432.lua @@ -5,7 +5,7 @@ function c5672432.initial_effect(c) e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_DESTROYED) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) e1:SetCondition(c5672432.condition) e1:SetTarget(c5672432.target) e1:SetOperation(c5672432.operation) @@ -18,7 +18,7 @@ function c5672432.condition(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c5672432.cfilter,1,nil,tp) end function c5672432.filter(c,e,tp) - return c:IsSetCard(0x9f) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x9f) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c5672432.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -29,7 +29,7 @@ function c5672432.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c5672432.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c5673.lua b/script/c5673.lua deleted file mode 100644 index a60270f6..00000000 --- a/script/c5673.lua +++ /dev/null @@ -1,49 +0,0 @@ ---アロマージ－ローズマリー -function c5673.initial_effect(c) - --actlimit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(0,1) - e1:SetValue(c5673.aclimit) - e1:SetCondition(c5673.actcon) - c:RegisterEffect(e1) - --poschange - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_RECOVER) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCondition(c5673.poscon) - e2:SetTarget(c5673.postg) - e2:SetOperation(c5673.posop) - c:RegisterEffect(e2) -end -function c5673.aclimit(e,re,tp) - return not re:GetHandler():IsImmuneToEffect(e) and re:IsActiveType(TYPE_MONSTER) -end -function c5673.actcon(e) - local tp=e:GetHandlerPlayer() - local rc=Duel.GetAttacker() - return rc and rc:IsControler(tp) and rc:IsRace(RACE_PLANT) and Duel.GetLP(tp)>Duel.GetLP(1-tp) -end -function c5673.poscon(e,tp,eg,ep,ev,re,r,rp) - return ep==tp -end -function c5673.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) -end -function c5673.posop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) - end -end diff --git a/script/c5674.lua b/script/c5674.lua deleted file mode 100644 index d98d9c2d..00000000 --- a/script/c5674.lua +++ /dev/null @@ -1,68 +0,0 @@ ---伝説の騎士 クリティウス -function c5674.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --remove - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_REMOVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetTarget(c5674.rmtg) - e2:SetOperation(c5674.rmop) - c:RegisterEffect(e2) - --set - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BE_BATTLE_TARGET) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetTarget(c5674.settg) - e3:SetOperation(c5674.setop) - c:RegisterEffect(e3) -end -function c5674.rmfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemove() and c:IsFaceup() -end -function c5674.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c5674.rmfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5674.rmfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,c5674.rmfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c5674.rmop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - end -end -function c5674.setfilter(c) - return c:IsType(TYPE_TRAP) and c:IsSSetable() -end -function c5674.settg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c5674.setfilter(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c5674.setfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) - local g=Duel.SelectTarget(tp,c5674.setfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) -end -function c5674.setop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then - Duel.SSet(tp,tc) - Duel.ConfirmCards(1-tp,tc) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN) - e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end diff --git a/script/c56747793.lua b/script/c56747793.lua index 60a717a5..38545e99 100644 --- a/script/c56747793.lua +++ b/script/c56747793.lua @@ -17,7 +17,7 @@ function c56747793.initial_effect(c) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(c56747793.value) c:RegisterEffect(e3) --Equip limit diff --git a/script/c5675.lua b/script/c5675.lua deleted file mode 100644 index 895af3e6..00000000 --- a/script/c5675.lua +++ /dev/null @@ -1,50 +0,0 @@ ---クリティウスの牙 -function c5675.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,5675+EFFECT_COUNT_CODE_OATH) - e1:SetTarget(c5675.target) - e1:SetOperation(c5675.activate) - c:RegisterEffect(e1) - --add code - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCode(EFFECT_ADD_CODE) - e2:SetValue(10000051) - c:RegisterEffect(e2) -end -function c5675.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5675.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_ONFIELD) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c5675.spfilter(c,e,tp) - local f=c.critias_filter - if not f or not c:IsCanBeSpecialSummoned(e,0,tp,true,false) then return false end - return Duel.IsExistingMatchingCard(c5675.tgfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil,f) -end -function c5675.tgfilter(c,f) - return c:IsType(TYPE_TRAP) and c:IsAbleToGrave() and f(c) -end -function c5675.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=Duel.SelectMatchingCard(tp,c5675.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - local sc=sg:GetFirst() - if sc then - local f=sc.critias_filter - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local tg=Duel.SelectMatchingCard(tp,c5675.tgfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil,f) - local tc=tg:GetFirst() - if tc:IsLocation(LOCATION_ONFIELD) and tc:IsFacedown() then Duel.ConfirmCards(1-tp,tc) end - Duel.SendtoGrave(tc,REASON_EFFECT) - Duel.BreakEffect() - Duel.SpecialSummon(sc,0,tp,tp,true,false,POS_FACEUP) - sc:CompleteProcedure() - end -end diff --git a/script/c5676.lua b/script/c5676.lua deleted file mode 100644 index 6520ed20..00000000 --- a/script/c5676.lua +++ /dev/null @@ -1,109 +0,0 @@ ---合神竜ティマイオス -function c5676.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode3(c,80019195,5674,5685,true,true) - --spsummon atkcon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --special summon rule - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_EXTRA) - e2:SetCondition(c5676.spcon) - e2:SetOperation(c5676.spop) - c:RegisterEffect(e2) - --immune - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_IMMUNE_EFFECT) - e3:SetValue(c5676.efilter) - c:RegisterEffect(e3) - --atk - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_PRE_DAMAGE_CALCULATE) - e4:SetCondition(c5676.atkcon) - e4:SetOperation(c5676.atkop) - c:RegisterEffect(e4) - --spsummon - local e5=Effect.CreateEffect(c) - e5:SetCategory(CATEGORY_SPECIAL_SUMMON) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e5:SetCode(EVENT_BATTLE_DESTROYED) - e5:SetTarget(c5676.target) - e5:SetOperation(c5676.operation) - c:RegisterEffect(e5) -end -function c5676.cfilter(c,code) - return c:IsFaceup() and c:IsCode(code) and c:IsAbleToGraveAsCost() -end -function c5676.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-3 - and Duel.IsExistingMatchingCard(c5676.cfilter,tp,LOCATION_ONFIELD,0,1,nil,80019195) - and Duel.IsExistingMatchingCard(c5676.cfilter,tp,LOCATION_ONFIELD,0,1,nil,5674) - and Duel.IsExistingMatchingCard(c5676.cfilter,tp,LOCATION_ONFIELD,0,1,nil,5685) -end -function c5676.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g1=Duel.SelectMatchingCard(tp,c5676.cfilter,tp,LOCATION_ONFIELD,0,1,1,nil,80019195) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g2=Duel.SelectMatchingCard(tp,c5676.cfilter,tp,LOCATION_ONFIELD,0,1,1,nil,5674) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g3=Duel.SelectMatchingCard(tp,c5676.cfilter,tp,LOCATION_ONFIELD,0,1,1,nil,5685) - g1:Merge(g2) - g1:Merge(g3) - Duel.SendtoGrave(g1,REASON_COST) -end -function c5676.efilter(e,te) - return te:GetOwner()~=e:GetOwner() -end -function c5676.atkval() - local g=Duel.GetMatchingGroup(Card.IsFaceup,0,LOCATION_MZONE,LOCATION_MZONE,nil) - local tg,val=g:GetMaxGroup(Card.GetAttack) - return val -end -function c5676.atkcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsRelateToBattle() and (c5676.atkval()~=c:GetAttack() or c5676.atkval()~=c:GetDefence()) -end -function c5676.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToBattle() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(c5676.atkval()) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - c:RegisterEffect(e2) - end -end -function c5676.filter(c,e,tp) - return (c:IsCode(80019195) or c:IsCode(5674) or c:IsCode(5685)) - and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5676.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>=3 - and Duel.IsExistingMatchingCard(c5676.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,3,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) -end -function c5676.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<3 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5676.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,3,3,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - end -end diff --git a/script/c5677.lua b/script/c5677.lua deleted file mode 100644 index 4a4657a2..00000000 --- a/script/c5677.lua +++ /dev/null @@ -1,40 +0,0 @@ ---インフェルニティ・ビショップ -function c5677.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c5677.spcon) - c:RegisterEffect(e1) - --destroy replace - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_DESTROY_REPLACE) - e2:SetRange(LOCATION_GRAVE) - e2:SetTarget(c5677.reptg) - e2:SetValue(c5677.repval) - e2:SetOperation(c5677.repop) - c:RegisterEffect(e2) -end -function c5677.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_HAND,0)==1 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c5677.filter(c,tp) - return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) - and c:IsSetCard(0xb) and not c:IsReason(REASON_REPLACE) -end -function c5677.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)==0 - and eg:IsExists(c5677.filter,1,nil,tp) and e:GetHandler():IsAbleToRemove() end - return Duel.SelectYesNo(tp,aux.Stringid(5677,0)) -end -function c5677.repval(e,c) - return c5677.filter(c,e:GetHandlerPlayer()) -end -function c5677.repop(e,tp,eg,ep,ev,re,r,rp) - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT+REASON_REPLACE) -end diff --git a/script/c5678.lua b/script/c5678.lua deleted file mode 100644 index b96e0445..00000000 --- a/script/c5678.lua +++ /dev/null @@ -1,86 +0,0 @@ ---ゴゴゴアリステラ＆デクシア -function c5678.initial_effect(c) - --untargetable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(0,LOCATION_MZONE) - e1:SetCondition(c5678.tgcon) - e1:SetValue(c5678.atlimit) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetTargetRange(0,0xff) - e2:SetValue(c5678.tglimit) - c:RegisterEffect(e2) - --effect gain - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_BE_MATERIAL) - e3:SetCondition(c5678.effcon) - e3:SetOperation(c5678.effop) - c:RegisterEffect(e3) -end -function c5678.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x59) -end -function c5678.tgcon(e) - return Duel.IsExistingMatchingCard(c5678.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) -end -function c5678.atlimit(e,c) - return c:IsFaceup() and c:IsSetCard(0x59) -end -function c5678.tglimit(e,re,c) - return c:IsFaceup() and c:IsSetCard(0x59) and c:IsType(TYPE_MONSTER) -end -function c5678.effcon(e,tp,eg,ep,ev,re,r,rp) - local mg=e:GetHandler():GetReasonCard():GetMaterial() - return r==REASON_XYZ and mg:IsExists(Card.IsSetCard,mg:GetCount(),nil,0x59) -end -function c5678.effop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_CARD,0,5678) - local c=e:GetHandler() - local rc=c:GetReasonCard() - local e1=Effect.CreateEffect(rc) - e1:SetDescription(aux.Stringid(5678,0)) - e1:SetCategory(CATEGORY_POSITION+CATEGORY_DEFCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c5678.poscon) - e1:SetTarget(c5678.postg) - e1:SetOperation(c5678.posop) - e1:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e1,true) - if not rc:IsType(TYPE_EFFECT) then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CHANGE_TYPE) - e2:SetValue(TYPE_MONSTER+TYPE_EFFECT+TYPE_XYZ) - e2:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e2) - end -end -function c5678.poscon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ -end -function c5678.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsPosition(POS_FACEUP_ATTACK) end - if chk==0 then return Duel.IsExistingTarget(Card.IsPosition,tp,0,LOCATION_MZONE,1,nil,POS_FACEUP_ATTACK) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) - local g=Duel.SelectTarget(tp,Card.IsPosition,tp,0,LOCATION_MZONE,1,1,nil,POS_FACEUP_ATTACK) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c5678.posop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc or tc:IsDefencePos() or not tc:IsRelateToEffect(e) then return end - if Duel.ChangePosition(tc,POS_FACEUP_DEFENCE)==0 then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_DEFENCE_FINAL) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(0) - tc:RegisterEffect(e1) -end diff --git a/script/c56784842.lua b/script/c56784842.lua index 66b991b4..bfd7c7e3 100644 --- a/script/c56784842.lua +++ b/script/c56784842.lua @@ -1,4 +1,4 @@ ---エンジェルＯ７ +--エンジェルO７ function c56784842.initial_effect(c) --act limit local e1=Effect.CreateEffect(c) diff --git a/script/c5679.lua b/script/c5679.lua deleted file mode 100644 index 815bbf3c..00000000 --- a/script/c5679.lua +++ /dev/null @@ -1,47 +0,0 @@ ---邪神官 チラム・サバク -function c5679.initial_effect(c) - --summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(5679,0)) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetCondition(c5679.ntcon) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_DESTROYED) - e2:SetCountLimit(1,5679) - e2:SetCondition(c5679.condition) - e2:SetTarget(c5679.target) - e2:SetOperation(c5679.operation) - c:RegisterEffect(e2) -end -function c5679.ntcon(e,c,minc) - if c==nil then return true end - return minc==0 and c:GetLevel()>4 - and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_HAND,0)>=5 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c5679.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) -end -function c5679.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c5679.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_ADD_TYPE) - e1:SetValue(TYPE_TUNER) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - Duel.SpecialSummonComplete() - end -end diff --git a/script/c5680.lua b/script/c5680.lua deleted file mode 100644 index a6ef204c..00000000 --- a/script/c5680.lua +++ /dev/null @@ -1,42 +0,0 @@ ---ギャラクシー・ワーム -function c5680.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCondition(c5680.condition) - e1:SetTarget(c5680.target) - e1:SetOperation(c5680.operation) - c:RegisterEffect(e1) -end -function c5680.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==1 -end -function c5680.spfilter(c,e,tp) - return c:IsSetCard(0x7b) and c:IsLevelBelow(3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5680.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5680.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c5680.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5680.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - end - Duel.SpecialSummonComplete() -end diff --git a/script/c5681.lua b/script/c5681.lua deleted file mode 100644 index 454f95c8..00000000 --- a/script/c5681.lua +++ /dev/null @@ -1,47 +0,0 @@ ---ロード・オブ・ザ・レッド -function c5681.initial_effect(c) - c:EnableReviveLimit() - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(5681,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_CHAINING) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c5681.condition) - e1:SetTarget(c5681.target1) - e1:SetOperation(c5681.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetDescription(aux.Stringid(5681,1)) - e2:SetTarget(c5681.target2) - c:RegisterEffect(e2) -end -function c5681.condition(e,tp,eg,ep,ev,re,r,rp) - return not re:GetHandler():IsCode(5681) -end -function c5681.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c5681.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c5681.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c5681.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5681.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c5681.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c5681.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c5682.lua b/script/c5682.lua deleted file mode 100644 index b2201845..00000000 --- a/script/c5682.lua +++ /dev/null @@ -1,47 +0,0 @@ ---レッドアイズ・トランスマイグレーション -function c5682.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c5682.target) - e1:SetOperation(c5682.activate) - c:RegisterEffect(e1) -end -function c5682.filter(c,e,tp,m) - if not c:IsCode(5681) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,true,false) then return false end - local mg=m:Clone() - mg:RemoveCard(c) - return mg:CheckWithSumGreater(Card.GetRitualLevel,c:GetOriginalLevel(),c) -end -function c5682.mfilter(c) - return c:IsSetCard(0x3b) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() -end -function c5682.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local mg1=Duel.GetRitualMaterial(tp) - local mg2=Duel.GetMatchingGroup(c5682.mfilter,tp,LOCATION_GRAVE,0,nil) - mg1:Merge(mg2) - return Duel.IsExistingMatchingCard(c5682.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg1) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c5682.activate(e,tp,eg,ep,ev,re,r,rp) - local mg1=Duel.GetRitualMaterial(tp) - local mg2=Duel.GetMatchingGroup(c5682.mfilter,tp,LOCATION_GRAVE,0,nil) - mg1:Merge(mg2) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c5682.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg1) - if tg:GetCount()>0 then - local tc=tg:GetFirst() - mg1:RemoveCard(tc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=mg1:SelectWithSumGreater(tp,Card.GetRitualLevel,tc:GetOriginalLevel(),tc) - tc:SetMaterial(mat) - Duel.ReleaseRitualMaterial(mat) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,true,false,POS_FACEUP) - tc:CompleteProcedure() - end -end diff --git a/script/c5683.lua b/script/c5683.lua deleted file mode 100644 index 2277c4e7..00000000 --- a/script/c5683.lua +++ /dev/null @@ -1,63 +0,0 @@ ---トゥーン・アンティーク・ギアゴーレム -function c5683.initial_effect(c) - --cannot attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetOperation(c5683.atklimit) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e3) - --direct attack - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_DIRECT_ATTACK) - e4:SetCondition(c5683.dircon) - c:RegisterEffect(e4) - --pierce - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e5) - --actlimit - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e6:SetCode(EVENT_ATTACK_ANNOUNCE) - e6:SetOperation(c5683.atkop) - c:RegisterEffect(e6) -end -function c5683.atklimit(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) -end -function c5683.dirfilter1(c) - return c:IsFaceup() and c:IsCode(15259703) -end -function c5683.dirfilter2(c) - return c:IsFaceup() and c:IsType(TYPE_TOON) -end -function c5683.dircon(e) - return Duel.IsExistingMatchingCard(c5683.dirfilter1,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil) - and not Duel.IsExistingMatchingCard(c5683.dirfilter2,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil) -end - -function c5683.atkop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetTargetRange(0,1) - e1:SetValue(c5683.aclimit) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE) - Duel.RegisterEffect(e1,tp) -end -function c5683.aclimit(e,re,tp) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) -end diff --git a/script/c56832966.lua b/script/c56832966.lua index 717514c9..1e5f094f 100644 --- a/script/c56832966.lua +++ b/script/c56832966.lua @@ -24,7 +24,7 @@ function c56832966.initial_effect(c) local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(56832966,1)) e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) + e3:SetType(EFFECT_TYPE_QUICK_O) e3:SetRange(LOCATION_MZONE) e3:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e3:SetCondition(c56832966.atkcon) @@ -34,7 +34,7 @@ function c56832966.initial_effect(c) end c56832966.xyz_number=39 function c56832966.ovfilter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) and c:IsType(TYPE_XYZ) and c:GetRank()==4 + return c:IsFaceup() and c:IsSetCard(0x107f) and c:IsType(TYPE_XYZ) and c:GetRank()==4 end function c56832966.aclimit(e,re,tp) return not re:GetHandler():IsImmuneToEffect(e) @@ -43,7 +43,7 @@ function c56832966.actcon(e) return Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler() end function c56832966.atkcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetBattleTarget()~=nil and e:GetHandler():GetOverlayGroup():IsExists(Card.IsSetCard,1,nil,0x7f) + return e:GetHandler():GetBattleTarget()~=nil and e:GetHandler():GetOverlayGroup():IsExists(Card.IsSetCard,1,nil,0x107f) end function c56832966.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() diff --git a/script/c5684.lua b/script/c5684.lua deleted file mode 100644 index e0cc9526..00000000 --- a/script/c5684.lua +++ /dev/null @@ -1,74 +0,0 @@ ---gD[ELO_ -function c5684.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c5684.target) - e1:SetOperation(c5684.activate) - c:RegisterEffect(e1) - --change name - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_CHANGE_CODE) - e2:SetRange(LOCATION_FZONE) - e2:SetValue(15259703) - c:RegisterEffect(e2) - --cannot be target - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e3:SetRange(LOCATION_FZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetTarget(c5684.tgtg) - e3:SetValue(c5684.tgval) - c:RegisterEffect(e3) - --destroy replace - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_DESTROY_REPLACE) - e4:SetRange(LOCATION_SZONE) - e4:SetTarget(c5684.destg) - e4:SetValue(c5684.desval) - e4:SetOperation(c5684.desop) - c:RegisterEffect(e4) -end -function c5684.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetDecktopGroup(tp,3):IsExists(Card.IsAbleToRemove,3,nil) end -end -function c5684.activate(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetDecktopGroup(tp,3) - Duel.DisableShuffleCheck() - Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT) -end -function c5684.tgtg(e,c) - return c:IsType(TYPE_TOON) -end -function c5684.tgval(e,re,rp) - return rp~=e:GetHandlerPlayer() -end -function c5684.dfilter(c,tp) - return c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD) - and c:IsType(TYPE_TOON) and c:IsControler(tp) and c:IsReason(REASON_BATTLE+REASON_EFFECT) -end -function c5684.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local count=eg:FilterCount(c5684.dfilter,nil,tp) - e:SetLabel(count) - return count>0 and Duel.GetDecktopGroup(tp,count):IsExists(Card.IsAbleToRemove,count,nil) - end - return Duel.SelectYesNo(tp,aux.Stringid(5684,0)) -end -function c5684.desval(e,c) - return c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD) - and c:IsType(TYPE_TOON) and c:IsControler(e:GetHandlerPlayer()) and c:IsReason(REASON_BATTLE+REASON_EFFECT) -end -function c5684.desop(e,tp,eg,ep,ev,re,r,rp) - local count=e:GetLabel() - local g=Duel.GetDecktopGroup(tp,count) - Duel.DisableShuffleCheck() - Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT) -end diff --git a/script/c5685.lua b/script/c5685.lua deleted file mode 100644 index 4d845e30..00000000 --- a/script/c5685.lua +++ /dev/null @@ -1,76 +0,0 @@ ---伝説の騎士 ヘルモス -function c5685.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --remove - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_REMOVE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetTarget(c5685.rmtg) - e2:SetOperation(c5685.rmop) - c:RegisterEffect(e2) - --copy - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BE_BATTLE_TARGET) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1) - e3:SetCost(c5685.cpcost) - e3:SetTarget(c5685.cptg) - e3:SetOperation(c5685.cpop) - c:RegisterEffect(e3) -end -function c5685.rmfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemove() and c:IsFaceup() -end -function c5685.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c5685.rmfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5685.rmfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,c5685.rmfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c5685.rmop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - end -end -function c5685.cpcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(5685)==0 end -end -function c5685.cpfilter(c) - return c:IsFaceup() and c:IsType(TYPE_EFFECT) -end -function c5685.cptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c5685.cpfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5685.cpfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c5685.cpfilter,tp,LOCATION_GRAVE,0,1,1,nil) -end -function c5685.cpop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) then - local code=tc:GetOriginalCode() - if code==5685 then - c:RegisterFlagEffect(5685,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END+RESET_SELF_TURN) - e1:SetCode(EFFECT_CHANGE_CODE) - e1:SetValue(code) - c:RegisterEffect(e1) - c:CopyEffect(code,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_SELF_TURN,1) - end -end diff --git a/script/c5686.lua b/script/c5686.lua deleted file mode 100644 index 276485a3..00000000 --- a/script/c5686.lua +++ /dev/null @@ -1,54 +0,0 @@ ---ヘルモスの爪 -function c5686.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,5686+EFFECT_COUNT_CODE_OATH) - e1:SetTarget(c5686.target) - e1:SetOperation(c5686.activate) - c:RegisterEffect(e1) - --add code - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCode(EFFECT_ADD_CODE) - e2:SetValue(10000052) - c:RegisterEffect(e2) -end -function c5686.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c5686.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_MZONE) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c5686.spfilter(c,e,tp) - local f=c.hermos_filter - if not f or not c:IsCanBeSpecialSummoned(e,0,tp,true,false) then return false end - local loc=LOCATION_HAND+LOCATION_MZONE - if Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then loc=LOCATION_MZONE end - return Duel.IsExistingMatchingCard(c5686.tgfilter,tp,loc,0,1,nil,f) -end -function c5686.tgfilter(c,f) - return c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() and f(c) -end -function c5686.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=Duel.SelectMatchingCard(tp,c5686.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - local sc=sg:GetFirst() - if sc then - local f=sc.hermos_filter - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local loc=LOCATION_HAND+LOCATION_MZONE - if Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then loc=LOCATION_MZONE end - local tg=Duel.SelectMatchingCard(tp,c5686.tgfilter,tp,loc,0,1,1,nil,f) - local tc=tg:GetFirst() - if tc:IsLocation(LOCATION_MZONE) and tc:IsFacedown() then Duel.ConfirmCards(1-tp,tc) end - Duel.SendtoGrave(tc,REASON_EFFECT) - Duel.BreakEffect() - Duel.SpecialSummon(sc,0,tp,tp,true,false,POS_FACEUP) - sc:CompleteProcedure() - end -end diff --git a/script/c5687.lua b/script/c5687.lua deleted file mode 100644 index c91604cc..00000000 --- a/script/c5687.lua +++ /dev/null @@ -1,106 +0,0 @@ ---慧眼の魔術師 -function c5687.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(5687,0)) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetTarget(c5687.destg) - e2:SetOperation(c5687.desop) - c:RegisterEffect(e2) - --pscale - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(5687,1)) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_HAND) - e3:SetCost(c5687.cost) - e3:SetTarget(c5687.target) - e3:SetOperation(c5687.operation) - c:RegisterEffect(e3) - if not c5687.global_check then - c5687.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_ADJUST) - ge1:SetOperation(c5687.checkop) - Duel.RegisterEffect(ge1,0) - end -end -function c5687.checkop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_SZONE,LOCATION_SZONE,nil) - if g:GetCount()>0 then - local sc=g:GetFirst() - while sc do - if (sc:GetSequence()==6 or sc:GetSequence()==7) and sc:GetFlagEffectLabel(5687)==nil then - if sc:GetSequence()==6 then sc:RegisterFlagEffect(5687,RESET_EVENT+0x1fe0000,0,1,sc:GetLeftScale()) - else sc:RegisterFlagEffect(5687,RESET_EVENT+0x1fe0000,0,1,sc:GetRightScale()) end - end - sc=g:GetNext() - end - end -end -function c5687.pfilter(c) - return c:IsSetCard(0x98) and not c:IsCode(5687) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden() -end -function c5687.destg(e,tp,eg,ep,ev,re,r,rp,chk) - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) - if chk==0 then return Duel.IsExistingMatchingCard(c5687.pfilter,tp,LOCATION_DECK,0,1,nil) - and tc and (tc:IsSetCard(0x98) or tc:IsSetCard(0x9f)) and e:GetHandler():IsDestructable() end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) -end -function c5687.desop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.Destroy(e:GetHandler(),REASON_EFFECT)~=0 then - local g=Duel.SelectMatchingCard(tp,c5687.pfilter,tp,LOCATION_DECK,0,1,1,nil) - local tc=g:GetFirst() - if tc then - local seq=6 - if Duel.GetFieldCard(tp,LOCATION_SZONE,6)~=nil then seq=7 end - local scale=0 - if seq==6 then scale=tc:GetLeftScale() - else scale=tc:GetRightScale() end - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - tc:RegisterFlagEffect(5687,RESET_EVENT+0x1fe0000,0,1,scale) - end - end -end -function c5687.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDiscardable() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) -end -function c5687.filter(c) - if not c:IsFaceup() and not (c:GetSequence()==6 or c:GetSequence()==7) then return false end - return (c:GetSequence()==6 and c:GetLeftScale()~=c:GetFlagEffectLabel(5687)) - or (c:GetSequence()==7 and c:GetRightScale()~=c:GetFlagEffectLabel(5687)) -end -function c5687.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and c5687.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5687.filter,tp,LOCATION_SZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c5687.filter,tp,LOCATION_SZONE,0,1,1,nil) -end -function c5687.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LSCALE) - e1:SetValue(tc:GetFlagEffectLabel(5687)) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_CHANGE_RSCALE) - tc:RegisterEffect(e2) - end -end diff --git a/script/c5690.lua b/script/c5690.lua deleted file mode 100644 index 69907ab5..00000000 --- a/script/c5690.lua +++ /dev/null @@ -1,52 +0,0 @@ ---獄落鳥 -function c5690.initial_effect(c) - --atk/def up - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(c5690.val) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) - --control - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_CONTROL) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCost(c5690.ctcost) - e3:SetTarget(c5690.cttg) - e3:SetOperation(c5690.ctop) - c:RegisterEffect(e3) -end -function c5690.val(e,c) - return Duel.GetMatchingGroupCount(Card.IsType,c:GetControler(),LOCATION_GRAVE,0,nil,TYPE_TUNER)*100 -end -function c5690.cfilter(c) - return c:IsType(TYPE_TUNER) and c:IsAbleToGraveAsCost() -end -function c5690.ctcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5690.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c5690.cfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c5690.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsControlerCanBeChanged() end - if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) -end -function c5690.ctop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - end -end diff --git a/script/c56907986.lua b/script/c56907986.lua index 091a6fb1..aa4fb205 100644 --- a/script/c56907986.lua +++ b/script/c56907986.lua @@ -80,13 +80,24 @@ function c56907986.spop2(e,tp,eg,ep,ev,re,r,rp) e3:SetRange(LOCATION_MZONE) e3:SetCode(EVENT_PHASE+PHASE_END) e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e3:SetOperation(c56907986.desop) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e3:SetCountLimit(1) - tc:RegisterEffect(e3,true) + e3:SetCondition(c56907986.descon) + e3:SetOperation(c56907986.desop) + e3:SetLabelObject(tc) + Duel.RegisterEffect(e3,tp) + tc:RegisterFlagEffect(56907986,RESET_EVENT+0x1fe0000,0,1) Duel.SpecialSummonComplete() end end +function c56907986.descon(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + if tc:GetFlagEffect(56907986)==0 then + e:Reset() + return false + end + return true +end function c56907986.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) + local tc=e:GetLabelObject() + Duel.Destroy(tc,REASON_EFFECT) end diff --git a/script/c5691.lua b/script/c5691.lua deleted file mode 100644 index 464b64d8..00000000 --- a/script/c5691.lua +++ /dev/null @@ -1,48 +0,0 @@ ---ファーニマル・マウス -function c5691.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_NO_TURN_RESET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c5691.spcost) - e1:SetTarget(c5691.sptg) - e1:SetOperation(c5691.spop) - c:RegisterEffect(e1) - Duel.AddCustomActivityCounter(5691,ACTIVITY_SPSUMMON,c5691.counterfilter) -end -function c5691.counterfilter(c) - return c:IsSetCard(0xad) or not c:IsLocation(LOCATION_EXTRA) -end -function c5691.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetCustomActivityCount(5691,tp,ACTIVITY_SPSUMMON)==0 end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c5691.splimit) - Duel.RegisterEffect(e1,tp) -end -function c5691.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return not c:IsSetCard(0xad) and c:IsLocation(LOCATION_EXTRA) -end -function c5691.filter(c,e,tp) - return c:IsCode(5691) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5691.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5691.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c5691.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5691.filter,tp,LOCATION_DECK,0,1,2,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c56916805.lua b/script/c56916805.lua index c09c3c74..89f73b72 100644 --- a/script/c56916805.lua +++ b/script/c56916805.lua @@ -32,7 +32,7 @@ function c56916805.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(val) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end diff --git a/script/c5692.lua b/script/c5692.lua deleted file mode 100644 index c8e14169..00000000 --- a/script/c5692.lua +++ /dev/null @@ -1,77 +0,0 @@ ---ＲＲ－ファジー・レイニアス -function c5692.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1,5692) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c5692.spcon) - e1:SetCost(c5692.cost) - e1:SetTarget(c5692.sptg) - e1:SetOperation(c5692.spop) - c:RegisterEffect(e1) - --to hand - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCountLimit(1,6692) - e2:SetCondition(c5692.thcon) - e2:SetCost(c5692.cost) - e2:SetTarget(c5692.thtg) - e2:SetOperation(c5692.thop) - c:RegisterEffect(e2) - Duel.AddCustomActivityCounter(5692,ACTIVITY_SPSUMMON,c5692.counterfilter) -end -function c5692.counterfilter(c) - return c:IsSetCard(0xba) -end -function c5692.spfilter(c) - return c:IsFaceup() and c:IsSetCard(0xba) and not c:IsCode(5692) -end -function c5692.spcon(e,tp,eg,ep,ev,re,r,rp,chk) - return Duel.IsExistingMatchingCard(c5692.spfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c5692.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetCustomActivityCount(5692,tp,ACTIVITY_SPSUMMON)==0 end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c5692.splimit) - Duel.RegisterEffect(e1,tp) -end -function c5692.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return not c:IsSetCard(0xba) -end -function c5692.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c5692.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not c:IsRelateToEffect(e) then return end - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) -end -function c5692.thcon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsReason(REASON_RETURN) -end -function c5692.thfilter(c) - return c:IsCode(5692) and c:IsAbleToHand() -end -function c5692.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5692.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5692.thop(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetFirstMatchingCard(c5692.thfilter,tp,LOCATION_DECK,0,nil) - if tg then - Duel.SendtoHand(tg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tg) - end -end diff --git a/script/c56921677.lua b/script/c56921677.lua index 8672dcad..018030f8 100644 --- a/script/c56921677.lua +++ b/script/c56921677.lua @@ -14,9 +14,6 @@ end function c56921677.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetBattleTarget()~=nil end -function c56921677.filter(c) - return c:IsDestructable() -end function c56921677.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end local tc=e:GetHandler():GetBattleTarget() diff --git a/script/c5693.lua b/script/c5693.lua deleted file mode 100644 index ac4c172a..00000000 --- a/script/c5693.lua +++ /dev/null @@ -1,49 +0,0 @@ ---ミラーフォース・ドラゴン -function c5693.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BE_BATTLE_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c5693.condition1) - e2:SetTarget(c5693.target) - e2:SetOperation(c5693.operation) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_BECOME_TARGET) - e3:SetCondition(c5693.condition2) - c:RegisterEffect(e3) -end -function c5693.critias_filter(c) - return c:IsCode(44095762) -end -function c5693.condition1(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - return tc:IsControler(tp) -end -function c5693.cfilter(c,tp) - return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) -end -function c5693.condition2(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and eg:IsExists(c5693.cfilter,1,nil,tp) -end -function c5693.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c5693.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end -end diff --git a/script/c56931015.lua b/script/c56931015.lua index b4f48b22..7e4fba79 100644 --- a/script/c56931015.lua +++ b/script/c56931015.lua @@ -37,18 +37,18 @@ end function c56931015.destg(e,tp,eg,ep,ev,re,r,rp,chk) local c1=Duel.GetFieldCard(0,LOCATION_SZONE,5) local c2=Duel.GetFieldCard(1,LOCATION_SZONE,5) - if chk==0 then return (c1 and c1:IsDestructable()) or (c2 and c2:IsDestructable()) end + if chk==0 then return c1 or c2 end local g=Group.CreateGroup() - if c1 and c1:IsDestructable() then g:AddCard(c1) end - if c2 and c2:IsDestructable() then g:AddCard(c2) end + if c1 then g:AddCard(c1) end + if c2 then g:AddCard(c2) end Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c56931015.desop(e,tp,eg,ep,ev,re,r,rp) local c1=Duel.GetFieldCard(0,LOCATION_SZONE,5) local c2=Duel.GetFieldCard(1,LOCATION_SZONE,5) local g=Group.CreateGroup() - if c1 and c1:IsDestructable() then g:AddCard(c1) end - if c2 and c2:IsDestructable() then g:AddCard(c2) end + if c1 then g:AddCard(c1) end + if c2 then g:AddCard(c2) end if g:GetCount()>0 then Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c5694.lua b/script/c5694.lua deleted file mode 100644 index e2df00f0..00000000 --- a/script/c5694.lua +++ /dev/null @@ -1,81 +0,0 @@ ---デス・ウイルス・ドラゴン -function c5694.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetTarget(c5694.target) - e2:SetOperation(c5694.activate) - c:RegisterEffect(e2) -end -function c5694.critias_filter(c) - return c:IsCode(57728570) -end -function c5694.tgfilter(c) - return c:IsFaceup() and c:IsAttackAbove(1500) and c:IsDestructable() -end -function c5694.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(c5694.tgfilter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c5694.filter(c) - return c:IsType(TYPE_MONSTER) and c:IsAttackAbove(1500) and c:IsDestructable() -end -function c5694.activate(e,tp,eg,ep,ev,re,r,rp) - local conf=Duel.GetFieldGroup(tp,0,LOCATION_MZONE+LOCATION_HAND) - if conf:GetCount()>0 then - Duel.ConfirmCards(tp,conf) - local dg=conf:Filter(c5694.filter,nil) - Duel.Destroy(dg,REASON_EFFECT) - Duel.ShuffleHand(1-tp) - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_DRAW) - e1:SetOperation(c5694.desop) - e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,3) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetCondition(c5694.turncon) - e2:SetOperation(c5694.turnop) - e2:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,3) - Duel.RegisterEffect(e2,tp) - e2:SetLabelObject(e1) - e:GetHandler():RegisterFlagEffect(1082946,RESET_PHASE+PHASE_END+RESET_OPPO_TURN,0,3) - c5694[e:GetHandler()]=e2 -end -function c5694.desop(e,tp,eg,ep,ev,re,r,rp) - if ep==e:GetOwnerPlayer() then return end - local hg=eg:Filter(Card.IsLocation,nil,LOCATION_HAND) - if hg:GetCount()==0 then return end - Duel.ConfirmCards(1-ep,hg) - local dg=hg:Filter(c5694.filter,nil) - Duel.Destroy(dg,REASON_EFFECT) - Duel.ShuffleHand(ep) -end -function c5694.turncon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c5694.turnop(e,tp,eg,ep,ev,re,r,rp) - local ct=e:GetLabel() - ct=ct+1 - e:SetLabel(ct) - e:GetHandler():SetTurnCounter(ct) - if ct==3 then - e:GetLabelObject():Reset() - e:GetOwner():ResetFlagEffect(1082946) - end -end diff --git a/script/c5695.lua b/script/c5695.lua deleted file mode 100644 index 954c4a98..00000000 --- a/script/c5695.lua +++ /dev/null @@ -1,73 +0,0 @@ ---タイラント・バースト・ドラゴン -function c5695.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --attack all - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_ATTACK_ALL) - e2:SetValue(1) - c:RegisterEffect(e2) - --equip - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCategory(CATEGORY_EQUIP) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c5695.eqtg) - e3:SetOperation(c5695.eqop) - c:RegisterEffect(e3) -end -function c5695.critias_filter(c) - return c:IsCode(5696) -end -function c5695.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() and e:GetHandler()~=chkc end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) -end -function c5695.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) or c:IsFacedown() then return end - local tc=Duel.GetFirstTarget() - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:GetControler()~=tp or tc:IsFacedown() or not tc:IsRelateToEffect(e) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - Duel.Equip(tp,c,tc,true) - --Atkup - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_EQUIP) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(400) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) - --Equip limit - local e3=Effect.CreateEffect(tc) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EQUIP_LIMIT) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetReset(RESET_EVENT+0x1fe0000) - e3:SetValue(c5696.eqlimit) - c:RegisterEffect(e3) - --Extra Attack - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_EXTRA_ATTACK) - e4:SetValue(2) - e4:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e4) -end -function c5696.eqlimit(e,c) - return e:GetOwner()==c -end diff --git a/script/c5696.lua b/script/c5696.lua deleted file mode 100644 index 5c53462c..00000000 --- a/script/c5696.lua +++ /dev/null @@ -1,99 +0,0 @@ ---タイラント・ウィング -function c5696.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c5696.condition) - e1:SetTarget(c5696.target) - e1:SetOperation(c5696.operation) - c:RegisterEffect(e1) -end -function c5696.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c5696.filter(c) - return c:IsFaceup() and c:IsRace(RACE_DRAGON) -end -function c5696.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c5696.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5696.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,c5696.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c5696.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsLocation(LOCATION_SZONE) then return end - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,c,tc) - c:CancelToGrave() - --Atkup - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_EQUIP) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(400) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) - --Equip limit - local e3=Effect.CreateEffect(tc) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EQUIP_LIMIT) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetReset(RESET_EVENT+0x1fe0000) - e3:SetValue(c5696.eqlimit) - c:RegisterEffect(e3) - --Double Attack - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_EXTRA_ATTACK) - e4:SetValue(1) - e4:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_EQUIP) - e5:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e5:SetCondition(c5696.dircon) - e5:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e5) - --destroy - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e6:SetRange(LOCATION_SZONE) - e6:SetCode(EVENT_PHASE+PHASE_END) - e6:SetCountLimit(1) - e6:SetCondition(c5696.descon) - e6:SetTarget(c5696.destg) - e6:SetOperation(c5696.desop) - e6:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e6) - end -end -function c5696.eqlimit(e,c) - return e:GetOwner()==c -end -function c5696.dircon(e) - local ec=e:GetHandler():GetEquipTarget() - return ec:GetAttackAnnouncedCount()>0 -end -function c5696.descon(e,tp,eg,ep,ev,re,r,rp) - local ec=e:GetHandler():GetEquipTarget() - return ec and ec:GetAttackAnnouncedCount()>0 and ec:GetBattledGroup():GetCount()>0 -end -function c5696.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) -end -function c5696.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.Destroy(c,REASON_EFFECT) - end -end diff --git a/script/c5697.lua b/script/c5697.lua deleted file mode 100644 index 8dd7672b..00000000 --- a/script/c5697.lua +++ /dev/null @@ -1,44 +0,0 @@ ---ダブルマジックアームバインド -function c5697.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c5697.cost) - e1:SetTarget(c5697.target) - e1:SetOperation(c5697.activate) - c:RegisterEffect(e1) -end -function c5697.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,nil,2,nil) end - local rg=Duel.SelectReleaseGroup(tp,nil,2,2,nil) - Duel.Release(rg,REASON_COST) -end -function c5697.filter1(c) - return c:IsFaceup() and c:IsControlerCanBeChanged() -end -function c5697.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c5697.filter,tp,0,LOCATION_MZONE,2,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,c5697.filter,tp,0,LOCATION_MZONE,2,2,nil) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,2,0,0) -end -function c5697.filter2(c,e) - return c:IsFaceup() and c:IsRelateToEffect(e) -end -function c5697.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c5697.filter2,nil,e) - if not g or g:GetCount()~=2 then return end - local tc=g:GetFirst() - while tc do - if not Duel.GetControl(tc,tp,PHASE_END+RESET_SELF_TURN,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - end - tc=g:GetNext() - end -end diff --git a/script/c5697558.lua b/script/c5697558.lua new file mode 100644 index 00000000..844bbf73 --- /dev/null +++ b/script/c5697558.lua @@ -0,0 +1,82 @@ +--The Hidden City +function c5697558.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,5697558+EFFECT_COUNT_CODE_OATH) + e1:SetOperation(c5697558.activate) + c:RegisterEffect(e1) + --change pos + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(5697558,1)) + e2:SetCategory(CATEGORY_POSITION) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_FZONE) + e2:SetCountLimit(1) + e2:SetTarget(c5697558.postg) + e2:SetOperation(c5697558.posop) + c:RegisterEffect(e2) + --negate attack + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_POSITION) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_ATTACK_ANNOUNCE) + e3:SetRange(LOCATION_FZONE) + e3:SetCountLimit(1) + e3:SetCondition(c5697558.condition) + e3:SetTarget(c5697558.target) + e3:SetOperation(c5697558.operation) + c:RegisterEffect(e3) +end +function c5697558.thfilter(c) + return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xed) and c:IsAbleToHand() +end +function c5697558.activate(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local g=Duel.GetMatchingGroup(c5697558.thfilter,tp,LOCATION_DECK,0,nil) + if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(5697558,0)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local sg=g:Select(tp,1,1,nil) + Duel.SendtoHand(sg,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,sg) + end +end +function c5697558.filter(c) + return c:IsSetCard(0xed) and c:IsFacedown() and c:IsDefensePos() +end +function c5697558.postg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c5697558.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_POSITION,nil,1,0,0) +end +function c5697558.posop(e,tp,eg,ep,ev,re,r,rp,chk) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) + local g=Duel.SelectMatchingCard(tp,c5697558.filter,tp,LOCATION_MZONE,0,1,1,nil) + local tc=g:GetFirst() + if tc then + local pos=Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEUP_DEFENSE) + Duel.ChangePosition(tc,pos) + end +end +function c5697558.condition(e,tp,eg,ep,ev,re,r,rp) + return tp~=Duel.GetTurnPlayer() +end +function c5697558.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c5697558.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_POSITION,nil,1,0,0) +end +function c5697558.operation(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) + local g=Duel.SelectMatchingCard(tp,c5697558.filter,tp,LOCATION_MZONE,0,1,1,nil) + local tc=g:GetFirst() + if tc then + local pos=Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEUP_DEFENSE) + if Duel.ChangePosition(tc,pos)~=0 and Duel.SelectYesNo(tp,aux.Stringid(5697558,2)) then + Duel.BreakEffect() + Duel.NegateAttack() + end + end +end diff --git a/script/c5698.lua b/script/c5698.lua deleted file mode 100644 index 494b6794..00000000 --- a/script/c5698.lua +++ /dev/null @@ -1,85 +0,0 @@ ---コミックハンド -function c5698.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL+CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c5698.target) - e1:SetOperation(c5698.operation) - c:RegisterEffect(e1) - --equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(c5698.eqlimit) - c:RegisterEffect(e2) - --control - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_SET_CONTROL) - e3:SetValue(c5698.ctval) - c:RegisterEffect(e3) - --add type - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_ADD_TYPE) - e4:SetValue(TYPE_TOON) - c:RegisterEffect(e4) - --direct attack - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_EQUIP) - e5:SetCode(EFFECT_DIRECT_ATTACK) - e5:SetCondition(c5698.dircon) - c:RegisterEffect(e5) - --self destroy - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e6:SetCode(EFFECT_SELF_DESTROY) - e6:SetRange(LOCATION_SZONE) - e6:SetCondition(c5698.descon) - c:RegisterEffect(e6) -end -function c5698.cfilter(c) - return c:IsFaceup() and c:IsCode(15259703) -end -function c5698.filter(c,tp) - return Duel.IsExistingMatchingCard(c5698.cfilter,tp,LOCATION_ONFIELD,0,1,nil) - and c:IsFaceup() and c:IsControlerCanBeChanged() -end -function c5698.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c5698.filter(chkc,tp) end - if chk==0 then return Duel.IsExistingTarget(c5698.filter,tp,0,LOCATION_MZONE,1,nil,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,c5698.filter,tp,0,LOCATION_MZONE,1,1,nil,tp) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c5698.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c5698.descon(e) then Duel.Destroy(c,REASON_EFFECT) end - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.Equip(tp,c,tc) - end -end -function c5698.eqlimit(e,c) - return (Duel.IsExistingMatchingCard(c5698.cfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil) - and e:GetHandlerPlayer()~=c:GetControler()) - or e:GetHandler():GetEquipTarget()==c -end -function c5698.ctval(e,c) - return e:GetHandlerPlayer() -end -function c5698.dirfilter(c) - return c:IsFaceup() and c:IsType(TYPE_TOON) -end -function c5698.dircon(e) - return not Duel.IsExistingMatchingCard(c5698.dirfilter,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil) -end -function c5698.descon(e) - return not Duel.IsExistingMatchingCard(c5698.cfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) -end diff --git a/script/c56981417.lua b/script/c56981417.lua index a3b49af1..230b372a 100644 --- a/script/c56981417.lua +++ b/script/c56981417.lua @@ -28,13 +28,13 @@ function c56981417.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.ShuffleHand(tp) end function c56981417.filter(c) - return c:IsSetCard(0x106e) and c:GetCode()~=56981417 and c:GetType()==TYPE_SPELL and c:CheckActivateEffect(true,true,false)~=nil + return c:IsSetCard(0x106e) and not c:IsCode(56981417) and c:GetType()==TYPE_SPELL and c:CheckActivateEffect(true,true,false)~=nil end function c56981417.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then local te=e:GetLabelObject() local tg=te:GetTarget() - return tg and tg(te,tp,eg,ep,ev,re,r,rp,0,chkc) + return tg and tg(e,tp,eg,ep,ev,re,r,rp,0,chkc) end if chk==0 then return Duel.IsExistingTarget(c56981417.filter,tp,LOCATION_GRAVE,0,1,nil) end e:SetProperty(EFFECT_FLAG_CARD_TARGET) @@ -42,30 +42,25 @@ function c56981417.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) local g=Duel.SelectTarget(tp,c56981417.filter,tp,LOCATION_GRAVE,0,1,1,nil) local te=g:GetFirst():CheckActivateEffect(true,true,false) - e:SetLabelObject(te) Duel.ClearTargetCard() - g:GetFirst():CreateEffectRelation(e) - local tg=te:GetTarget() e:SetCategory(te:GetCategory()) e:SetProperty(te:GetProperty()) - if tg then tg(te,tp,eg,ep,ev,re,r,rp,1) end - local cg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc=cg:GetFirst() - while tc do - tc:CreateEffectRelation(te) - tc=cg:GetNext() - end + e:SetLabel(te:GetLabel()) + e:SetLabelObject(te:GetLabelObject()) + local tg=te:GetTarget() + if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end + te:SetLabel(e:GetLabel()) + te:SetLabelObject(e:GetLabelObject()) + e:SetLabelObject(te) end function c56981417.operation(e,tp,eg,ep,ev,re,r,rp) local te=e:GetLabelObject() if te:GetHandler():IsRelateToEffect(e) then + e:SetLabel(te:GetLabel()) + e:SetLabelObject(te:GetLabelObject()) local op=te:GetOperation() - if op then op(te,tp,eg,ep,ev,re,r,rp) end - local cg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc=cg:GetFirst() - while tc do - tc:ReleaseEffectRelation(te) - tc=cg:GetNext() - end + if op then op(e,tp,eg,ep,ev,re,r,rp) end + te:SetLabel(e:GetLabel()) + te:SetLabelObject(e:GetLabelObject()) end end diff --git a/script/c5699.lua b/script/c5699.lua deleted file mode 100644 index 61c8b99a..00000000 --- a/script/c5699.lua +++ /dev/null @@ -1,67 +0,0 @@ ---エキセントリック・デーモン -function c5699.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1,5699) - e2:SetTarget(c5699.target1) - e2:SetOperation(c5699.operation1) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1,6699) - e3:SetCost(c5699.cost) - e3:SetTarget(c5699.target2) - e3:SetOperation(c5699.operation2) - c:RegisterEffect(e3) -end -function c5699.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c5699.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c5699.filter(chkc) and chkc~=e:GetHandler() end - if chk==0 then return Duel.IsExistingTarget(c5699.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c5699.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) - g:AddCard(e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) -end -function c5699.operation1(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local g=Group.FromCards(e:GetHandler(),tc) - Duel.Destroy(g,REASON_EFFECT) - end -end -function c5699.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c5699.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c5699.operation2(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c56993276.lua b/script/c56993276.lua old mode 100755 new mode 100644 diff --git a/script/c5700.lua b/script/c5700.lua deleted file mode 100644 index 0a088490..00000000 --- a/script/c5700.lua +++ /dev/null @@ -1,51 +0,0 @@ ---ジェムナイトレディ・ブリリアント・ダイヤ -function c5700.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsSetCard,0x1047),3,false) - --spsummon condition - c:SetSPSummonOnce(5700) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c5700.splimit) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c5700.target) - e2:SetOperation(c5700.operation) - c:RegisterEffect(e2) -end -function c5700.splimit(e,se,sp,st) - return not e:GetHandler():IsLocation(LOCATION_EXTRA) or bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c5700.tgfilter(c) - return c:IsFaceup() and c:IsSetCard(0x1047) and c:IsAbleToGrave() -end -function c5700.spfilter(c,e,tp) - return c:IsType(TYPE_FUSION) and c:IsSetCard(0x1047) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c5700.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c5700.tgfilter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c5700.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_MZONE) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c5700.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local tg=Duel.SelectMatchingCard(tp,c5700.tgfilter,tp,LOCATION_MZONE,0,1,1,nil) - if tg:GetCount()>0 and Duel.SendtoGrave(tg,REASON_EFFECT)>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=Duel.SelectMatchingCard(tp,c5700.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - if sg:GetCount()>0 then - Duel.SpecialSummon(sg,0,tp,tp,true,false,POS_FACEUP) - end - end -end diff --git a/script/c57006589.lua b/script/c57006589.lua old mode 100755 new mode 100644 diff --git a/script/c5701.lua b/script/c5701.lua deleted file mode 100644 index edc80e1a..00000000 --- a/script/c5701.lua +++ /dev/null @@ -1,135 +0,0 @@ ---ブリリアント・フュージョン -function c5701.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,5701) - e1:SetTarget(c5701.target) - e1:SetOperation(c5701.activate) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetOperation(c5701.desop) - c:RegisterEffect(e2) - --atk/def up - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetCost(c5701.adcost) - e2:SetTarget(c5701.adtg) - e2:SetOperation(c5701.adop) - c:RegisterEffect(e2) -end -function c5701.filter1(c,e) - return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) -end -function c5701.filter2(c,e,tp,m,f,chkf) - return c:IsSetCard(0x1047) and c:IsType(TYPE_FUSION) and (not f or f(c)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) -end -function c5701.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_DECK,0,nil) - local res=Duel.IsExistingMatchingCard(c5701.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - res=Duel.IsExistingMatchingCard(c5701.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c5701.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c5701.filter1,tp,LOCATION_DECK,0,nil,e) - local sg1=Duel.GetMatchingGroup(c5701.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - sg2=Duel.GetMatchingGroup(c5701.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0xfe0000) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) - tc:RegisterEffect(e2) - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - c:SetCardTarget(tc) - end -end -function c5701.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetFirstCardTarget() - if tc and tc:IsLocation(LOCATION_MZONE) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c5701.descon2(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetFirstCardTarget() - return tc and eg:IsContains(tc) and tc:IsReason(REASON_DESTROY) -end -function c5701.cfilter(c) - return c:IsType(TYPE_SPELL) and c:IsDiscardable() -end -function c5701.adcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5701.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,c5701.cfilter,1,1,REASON_COST+REASON_DISCARD) -end -function c5701.adtg(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=e:GetHandler():GetFirstCardTarget() - if chk==0 then return tc and (tc:GetBaseAttack()~=0 or tc:GetBaseDefence()~=0) end -end -function c5701.adop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=c:GetFirstCardTarget() - if c:IsRelateToEffect(e) and tc and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_OPPO_TURN) - e1:SetValue(tc:GetBaseAttack()) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - e2:SetValue(tc:GetBaseDefence()) - tc:RegisterEffect(e2) - end -end diff --git a/script/c5702.lua b/script/c5702.lua deleted file mode 100644 index c6431ba0..00000000 --- a/script/c5702.lua +++ /dev/null @@ -1,46 +0,0 @@ ---dgbNENE -function c5702.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCountLimit(1,5702) - e1:SetCondition(c5702.spcon) - e1:SetTarget(c5702.sptg) - e1:SetOperation(c5702.spop) - c:RegisterEffect(e1) -end -function c5702.spcon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsReason(REASON_RETURN) -end -function c5702.spfilter(c,e,tp) - return c:IsSetCard(0xc7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5702.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c5702.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5702.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5702.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,1000) -end -function c5702.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) - tc:RegisterEffect(e2) - Duel.SpecialSummonComplete() - Duel.BreakEffect() - Duel.Damage(tp,1000,REASON_EFFECT) - end -end diff --git a/script/c5703.lua b/script/c5703.lua deleted file mode 100644 index 67262def..00000000 --- a/script/c5703.lua +++ /dev/null @@ -1,28 +0,0 @@ ---幻奏の音女オペラ -function c5703.initial_effect(c) - --tohand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_BE_MATERIAL) - e1:SetCondition(c5703.condition) - e1:SetOperation(c5703.operation) - c:RegisterEffect(e1) -end -function c5703.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_FUSION -end -function c5703.operation(e,tp,eg,ep,ev,re,r,rp) - --indes - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x9b)) - e1:SetValue(1) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - local e2=e1:Clone() - e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - Duel.RegisterEffect(e2,tp) -end diff --git a/script/c57031794.lua b/script/c57031794.lua index f7712748..4e44728f 100644 --- a/script/c57031794.lua +++ b/script/c57031794.lua @@ -1,80 +1,81 @@ ---超量機獣マグナライガー -function c57031794.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,5,2) - c:EnableReviveLimit() - --cannot attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetCondition(c57031794.atcon) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetDescription(aux.Stringid(57031794,0)) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE) - e2:SetCondition(c57031794.descon1) - e2:SetCost(c57031794.descost) - e2:SetTarget(c57031794.destg) - e2:SetOperation(c57031794.desop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetCondition(c57031794.descon2) - c:RegisterEffect(e3) - --material - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(57031794,1)) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_MZONE) - e4:SetCountLimit(1) - e4:SetTarget(c57031794.mttg) - e4:SetOperation(c57031794.mtop) - c:RegisterEffect(e4) -end -function c57031794.atcon(e) - return e:GetHandler():GetOverlayCount()==0 -end -function c57031794.descon1(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,59975920) -end -function c57031794.descon2(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,59975920) -end -function c57031794.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c57031794.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c57031794.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c57031794.mtfilter(c,e) - return (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and not c:IsType(TYPE_TOKEN) and c:IsSetCard(0x10dc) and not c:IsImmuneToEffect(e) -end -function c57031794.mttg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c57031794.mtfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil,e) end -end -function c57031794.mtop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) or c:IsFacedown() then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local g=Duel.SelectMatchingCard(tp,c57031794.mtfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,e) - if g:GetCount()>0 then - Duel.Overlay(c,g) - end -end +--超量機獣マグナライガー +function c57031794.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,5,2) + c:EnableReviveLimit() + --cannot attack + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetCondition(c57031794.atcon) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetDescription(aux.Stringid(57031794,0)) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE) + e2:SetCondition(c57031794.descon1) + e2:SetCost(c57031794.descost) + e2:SetTarget(c57031794.destg) + e2:SetOperation(c57031794.desop) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetHintTiming(0,0x1e0) + e3:SetCondition(c57031794.descon2) + c:RegisterEffect(e3) + --material + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(57031794,1)) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_MZONE) + e4:SetCountLimit(1) + e4:SetTarget(c57031794.mttg) + e4:SetOperation(c57031794.mtop) + c:RegisterEffect(e4) +end +function c57031794.atcon(e) + return e:GetHandler():GetOverlayCount()==0 +end +function c57031794.descon1(e,tp,eg,ep,ev,re,r,rp) + return not e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,59975920) +end +function c57031794.descon2(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,59975920) +end +function c57031794.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c57031794.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c57031794.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c57031794.mtfilter(c,e) + return (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and not c:IsType(TYPE_TOKEN) and c:IsSetCard(0x10dc) and not c:IsImmuneToEffect(e) +end +function c57031794.mttg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c57031794.mtfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil,e) end +end +function c57031794.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) + local g=Duel.SelectMatchingCard(tp,c57031794.mtfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,e) + if g:GetCount()>0 then + Duel.Overlay(c,g) + end +end diff --git a/script/c57036718.lua b/script/c57036718.lua index 7a09f1d8..aadb3a56 100644 --- a/script/c57036718.lua +++ b/script/c57036718.lua @@ -23,7 +23,7 @@ function c57036718.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetFlagEffect(57036718)~=0 end function c57036718.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c57036718.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c5703682.lua b/script/c5703682.lua index d9e0bd32..214bcc02 100644 --- a/script/c5703682.lua +++ b/script/c5703682.lua @@ -28,8 +28,8 @@ function c5703682.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_BASE_DEFENCE) - e2:SetValue(tc:GetBaseDefence()+1000) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) + e2:SetValue(tc:GetBaseDefense()+1000) e2:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e2) tc=g:GetNext() diff --git a/script/c5704.lua b/script/c5704.lua deleted file mode 100644 index 49a2d603..00000000 --- a/script/c5704.lua +++ /dev/null @@ -1,71 +0,0 @@ ---真紅眼の黒竜剣 -function c5704.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --equip - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_EQUIP) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetTarget(c5704.eqtg) - e2:SetOperation(c5704.eqop) - c:RegisterEffect(e2) -end -function c5704.hermos_filter(c) - return c:IsRace(RACE_DRAGON) -end -function c5704.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler()) -end -function c5704.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - if c:IsLocation(LOCATION_MZONE) and c:IsFacedown() then return end - local tc=Duel.GetFirstTarget() - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc==nil or tc:IsFacedown() or not tc:IsRelateToEffect(e) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - Duel.Equip(tp,c,tc,true) - e:SetLabelObject(tc) - local e1=Effect.CreateEffect(tc) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c5704.eqlimit) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetValue(1000) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetValue(c5704.val) - e3:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e4) -end -function c5704.eqlimit(e,c) - return e:GetOwner()==c -end -function c5704.filter(c) - return c:IsFaceup() and c:IsRace(RACE_DRAGON) -end -function c5704.val(e,c) - return Duel.GetMatchingGroupCount(c5704.filter,c:GetControler(),LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,nil)*500 -end diff --git a/script/c57043117.lua b/script/c57043117.lua old mode 100755 new mode 100644 index a4f31998..8453d629 --- a/script/c57043117.lua +++ b/script/c57043117.lua @@ -38,7 +38,7 @@ function c57043117.operation(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetValue(1000) e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) c:RegisterEffect(e1) diff --git a/script/c57046845.lua b/script/c57046845.lua index 5ed28cba..9dd8db98 100644 --- a/script/c57046845.lua +++ b/script/c57046845.lua @@ -19,10 +19,10 @@ function c57046845.initial_effect(c) c:RegisterEffect(e2) end function c57046845.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end + if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c57046845.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c5705.lua b/script/c5705.lua deleted file mode 100644 index 53f4e4d4..00000000 --- a/script/c5705.lua +++ /dev/null @@ -1,80 +0,0 @@ ---ＥＭラクダウン -function c5705.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(5687,0)) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --pierce - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(5705,0)) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1) - e2:SetTarget(c5705.target) - e2:SetOperation(c5705.operation) - c:RegisterEffect(e2) - --atk down - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BATTLE_DESTROYED) - e3:SetCondition(c5705.atkcon) - e3:SetTarget(c5705.atktg) - e3:SetOperation(c5705.atkop) - c:RegisterEffect(e3) -end -function c5705.filter(c) - return c:IsFaceup() and not c:IsHasEffect(EFFECT_PIERCE) -end -function c5705.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(c5705.filter,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c5705.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c5705.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) - if g:GetCount()==0 then return end - local sc=g:GetFirst() - while sc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) - e1:SetValue(-800) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - sc:RegisterEffect(e1) - sc=g:GetNext() - end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_PIERCE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - end -end -function c5705.atkcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsReason(REASON_BATTLE) -end -function c5705.atktg(e,tp,eg,ep,ev,re,r,rp,chk) - return e:GetHandler():GetReasonCard():IsRelateToBattle() -end -function c5705.atkop(e,tp,eg,ep,ev,re,r,rp) - local rc=e:GetHandler():GetReasonCard() - if rc:IsRelateToBattle() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-800) - e1:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e1) - end -end diff --git a/script/c5706.lua b/script/c5706.lua deleted file mode 100644 index fbf69a30..00000000 --- a/script/c5706.lua +++ /dev/null @@ -1,51 +0,0 @@ ---竜脈の魔術師 -function c5706.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetCondition(c5706.condition) - e2:SetCost(c5706.cost) - e2:SetTarget(c5706.target) - e2:SetOperation(c5706.operation) - c:RegisterEffect(e2) -end -function c5706.condition(e,tp,eg,ep,ev,re,r,rp) - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) - return tc and tc:IsSetCard(0x98) -end -function c5706.cfilter(c) - return c:IsType(TYPE_PENDULUM) and c:IsDiscardable() -end -function c5706.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5706.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,c5706.cfilter,1,1,REASON_COST+REASON_DISCARD) -end -function c5706.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c5706.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c5706.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5706.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c5706.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c5706.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c57062206.lua b/script/c57062206.lua index f2125903..1dc1e49a 100644 --- a/script/c57062206.lua +++ b/script/c57062206.lua @@ -83,7 +83,9 @@ function c57062206.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c57062206.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c57069605.lua b/script/c57069605.lua old mode 100755 new mode 100644 index 23b8dd89..5c31b690 --- a/script/c57069605.lua +++ b/script/c57069605.lua @@ -18,7 +18,7 @@ function c57069605.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetCode(EFFECT_SKIP_BP) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetTargetRange(0,1) - if Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_BATTLE then + if Duel.GetTurnPlayer()~=tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) then e1:SetLabel(Duel.GetTurnCount()) e1:SetCondition(c57069605.skipcon) e1:SetReset(RESET_PHASE+PHASE_BATTLE+RESET_OPPO_TURN,2) diff --git a/script/c5707.lua b/script/c5707.lua deleted file mode 100644 index b6a81f3b..00000000 --- a/script/c5707.lua +++ /dev/null @@ -1,51 +0,0 @@ ---竜穴の魔術師 -function c5707.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetCondition(c5707.condition) - e2:SetCost(c5707.cost) - e2:SetTarget(c5707.target) - e2:SetOperation(c5707.operation) - c:RegisterEffect(e2) -end -function c5707.condition(e,tp,eg,ep,ev,re,r,rp) - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) - return tc and tc:IsSetCard(0x98) -end -function c5707.cfilter(c) - return c:IsType(TYPE_PENDULUM) and c:IsDiscardable() -end -function c5707.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5707.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,c5707.cfilter,1,1,REASON_COST+REASON_DISCARD) -end -function c5707.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c5707.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c5707.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5707.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c5707.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c5707.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c5708.lua b/script/c5708.lua deleted file mode 100644 index 708ab712..00000000 --- a/script/c5708.lua +++ /dev/null @@ -1,63 +0,0 @@ ---オッドアイズ・アブソリュート・ドラゴン -function c5708.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,7,2) - c:EnableReviveLimit() - --disable attack - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCountLimit(1,5708) - e1:SetCost(c5708.atkcost) - e1:SetOperation(c5708.atkop) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCondition(c5708.spcon) - e2:SetTarget(c5708.sptg) - e2:SetOperation(c5708.spop) - c:RegisterEffect(e2) -end -function c5708.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c5708.spfilter1(c,e,tp) - return c:IsSetCard(0x99) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5708.atkop(e,tp,eg,ep,ev,re,r,rp) - if Duel.NegateAttack() then - local g1=Duel.GetMatchingGroup(c5708.spfilter1,tp,LOCATION_HAND+LOCATION_GRAVE,0,nil,e,tp) - if g1:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(tp,aux.Stringid(5708,0)) then - Duel.BreakEffect() - local g2=g1:Select(tp,1,1,nil) - Duel.SpecialSummon(g2,0,tp,tp,false,false,POS_FACEUP) - end - end -end -function c5708.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return not c:IsReason(REASON_RETURN) and c:IsPreviousLocation(LOCATION_ONFIELD) and bit.band(c:GetSummonType(),SUMMON_TYPE_XYZ)==SUMMON_TYPE_XYZ -end -function c5708.spfilter2(c,e,tp) - return c:IsSetCard(0x99) and not c:IsCode(5708) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5708.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5708.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c5708.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5708.spfilter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c5709.lua b/script/c5709.lua deleted file mode 100644 index 5486308f..00000000 --- a/script/c5709.lua +++ /dev/null @@ -1,155 +0,0 @@ ---ラーの翼神竜－球体型 -function c5709.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon with 3 tribute - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_LIMIT_SUMMON_PROC) - e2:SetCondition(c5709.ttcon) - e2:SetOperation(c5709.ttop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_LIMIT_SET_PROC) - e3:SetCondition(c5709.setcon) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e4:SetCode(EVENT_SUMMON_SUCCESS) - e4:SetOperation(c5709.retreg) - c:RegisterEffect(e4) - --cannot attack - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_CANNOT_ATTACK) - c:RegisterEffect(e5) - --cannot be target - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e6:SetRange(LOCATION_MZONE) - e6:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e6:SetValue(aux.imval1) - c:RegisterEffect(e6) - local e7=e6:Clone() - e7:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e7:SetValue(aux.tgoval) - c:RegisterEffect(e7) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c5709.spcost) - e2:SetTarget(c5709.sptg) - e2:SetOperation(c5709.spop) - c:RegisterEffect(e2) - local e9=Effect.CreateEffect(c) - e9:SetType(EFFECT_TYPE_FIELD) - e9:SetCode(EFFECT_EXTRA_RELEASE) - e9:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_SET_AVAILABLE) - e9:SetRange(LOCATION_HAND) - e9:SetTargetRange(0,LOCATION_MZONE) - e9:SetCondition(c5709.check) - c:RegisterEffect(e9) -end -function c5709.check(e) - return e:GetHandler():GetFlagEffect(5709)~=0 -end -function c5709.ttcon(e,c) - if c==nil then return true end - local b1=Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 - c:RegisterFlagEffect(5709,0,0,1) - local g=Duel.GetFieldGroup(c:GetControler(),0,LOCATION_MZONE) - local b2=Duel.GetLocationCount(1-c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c,g)>=3 - c:ResetFlagEffect(5709) - return b1 or b2 -end -function c5709.ttop(e,tp,eg,ep,ev,re,r,rp,c) - local c=e:GetHandler() - local b1=Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c)>=3 - c:RegisterFlagEffect(5709,0,0,1) - local g=Duel.GetFieldGroup(c:GetControler(),0,LOCATION_MZONE) - local b2=Duel.GetLocationCount(1-c:GetControler(),LOCATION_MZONE)>-3 and Duel.GetTributeCount(c,g)>=3 - local op=0 - if b1 and b2 then op=Duel.SelectOption(tp,aux.Stringid(5709,0),aux.Stringid(5709,1)) - elseif b1 then op=Duel.SelectOption(tp,aux.Stringid(5709,0)) - else op=Duel.SelectOption(tp,aux.Stringid(5709,1))+1 end - if op==0 then - c:ResetFlagEffect(5709) - local mg=Duel.SelectTribute(tp,c,3,3) - c:SetMaterial(mg) - Duel.Release(mg,REASON_SUMMON+REASON_MATERIAL) - else - local mg=Duel.SelectTribute(tp,c,3,3,g) - c:SetMaterial(mg) - Duel.Release(mg,REASON_SUMMON+REASON_MATERIAL) - c:ResetFlagEffect(5709) - e:SetProperty(EFFECT_FLAG_SPSUM_PARAM) - e:SetTargetRange(POS_FACEUP_ATTACK,1) - end -end -function c5709.setcon(e,c) - if not c then return true end - return false -end -function c5709.retreg(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetLabel(Duel.GetTurnCount()) - e1:SetCountLimit(1) - e1:SetCondition(c5709.retcon) - e1:SetOperation(c5709.retop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END,2) - e:GetHandler():RegisterEffect(e1) -end -function c5709.retcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnCount()~=e:GetLabel() -end -function c5709.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetControler()~=c:GetOwner() then - Duel.GetControl(c,c:GetOwner()) - end -end -function c5709.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c5709.filter(c,e,tp) - return c:IsCode(10000010) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c5709.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c5709.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,0,tp,LOCATION_HAND+LOCATION_DECK) -end -function c5709.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5709.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc and Duel.SpecialSummonStep(tc,0,tp,tp,true,false,POS_FACEUP) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(4000) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) - tc:RegisterEffect(e2) - Duel.SpecialSummonComplete() - end -end diff --git a/script/c5710.lua b/script/c5710.lua deleted file mode 100644 index 323b2ff5..00000000 --- a/script/c5710.lua +++ /dev/null @@ -1,41 +0,0 @@ ---魔道化リジョン -function c5710.initial_effect(c) - --extra summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_EXTRA_SUMMON_COUNT) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_HAND,0) - e1:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_SPELLCASTER)) - e1:SetValue(0x1) - c:RegisterEffect(e1) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCountLimit(1,5710) - e2:SetCondition(c5710.condition) - e2:SetTarget(c5710.target) - e2:SetOperation(c5710.operation) - c:RegisterEffect(e2) -end -function c5710.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) -end -function c5710.filter(c) - return c:IsType(TYPE_NORMAL) and c:IsRace(RACE_SPELLCASTER) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5710.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5710.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c5710.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5710.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c57108202.lua b/script/c57108202.lua index 4a2eaec2..d9520194 100644 --- a/script/c57108202.lua +++ b/script/c57108202.lua @@ -55,7 +55,7 @@ function c57108202.opa(e,tp,eg,ep,ev,re,r,rp) end end function c57108202.cond(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefencePos() + return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefensePos() end function c57108202.filterd(c,tp) local lv=c:GetLevel() diff --git a/script/c5711.lua b/script/c5711.lua deleted file mode 100644 index 30076ca4..00000000 --- a/script/c5711.lua +++ /dev/null @@ -1,60 +0,0 @@ ---ジュラゲド -function c5711.initial_effect(c) - --summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_RECOVER) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_HAND) - e1:SetCountLimit(1,5711) - e1:SetCondition(c5711.condition) - e1:SetTarget(c5711.target) - e1:SetOperation(c5711.operation) - c:RegisterEffect(e1) - --atk - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(TIMING_DAMAGE_STEP) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c5711.atkcost) - e2:SetTarget(c5711.atktg) - e2:SetOperation(c5711.atkop) - c:RegisterEffect(e2) -end -function c5711.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE and not Duel.CheckTiming(TIMING_BATTLE_START) and not Duel.CheckTiming(TIMING_BATTLE_END) -end -function c5711.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c5711.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then - Duel.Recover(tp,1000,REASON_EFFECT) - end -end -function c5711.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c5711.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) -end -function c5711.atkop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFacedown() or not tc:IsRelateToEffect(e) then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(1000) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,2) - tc:RegisterEffect(e1) -end diff --git a/script/c57116034.lua b/script/c57116034.lua deleted file mode 100644 index f21f3d3f..00000000 --- a/script/c57116034.lua +++ /dev/null @@ -1,24 +0,0 @@ ---ハネクリボー -function c57116034.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(57116034,0)) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c57116034.con) - e1:SetOperation(c57116034.op) - c:RegisterEffect(e1) -end -function c57116034.con(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsReason(REASON_DESTROY) -end -function c57116034.op(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_AVOID_BATTLE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetValue(1) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end diff --git a/script/c5712.lua b/script/c5712.lua deleted file mode 100644 index c1b4488c..00000000 --- a/script/c5712.lua +++ /dev/null @@ -1,32 +0,0 @@ ---封魔の矢 -function c5712.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_BATTLE_START,0) - e1:SetCondition(c5712.condition) - e1:SetTarget(c5712.target) - e1:SetOperation(c5712.operation) - c:RegisterEffect(e1) -end -function c5712.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE and not Duel.CheckPhaseActivity() -end -function c5712.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetChainLimit(aux.FALSE) -end -function c5712.operation(e,tp,eg,ep,ev,re,r,rp) - 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(c5712.aclimit) - e1:SetReset(RESET_PHASE+PHASE_END,2) - Duel.RegisterEffect(e1,tp) -end -function c5712.aclimit(e,re,tp) - return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) -end diff --git a/script/c5713.lua b/script/c5713.lua deleted file mode 100644 index d1855dbd..00000000 --- a/script/c5713.lua +++ /dev/null @@ -1,45 +0,0 @@ ---死なばもろとも -function c5713.initial_effect(c) - --draw - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,5713+EFFECT_COUNT_CODE_OATH) - e1:SetCondition(c5713.condition) - e1:SetTarget(c5713.target) - e1:SetOperation(c5713.activate) - c:RegisterEffect(e1) -end -function c5713.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>=3 and Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>=3 -end -function c5713.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,5) and Duel.IsPlayerCanDraw(1-tp,5) end - local g1=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - local g2=Duel.GetFieldGroup(tp,0,LOCATION_HAND) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g1,g1:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,PLAYER_ALL,5) -end -function c5713.activate(e,tp,eg,ep,ev,re,r,rp) - local ct1=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) - local ct2=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g1=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_HAND,0,ct1,ct1,nil) - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TODECK) - local g2=Duel.SelectMatchingCard(1-tp,aux.TRUE,tp,0,LOCATION_HAND,ct2,ct2,nil) - g1:Merge(g2) - local count=Duel.SendtoDeck(g1,nil,1,REASON_EFFECT) - if count>1 then - Duel.BreakEffect() - local lp=Duel.GetLP(tp) - if lp<=count*300 then - Duel.SetLP(tp,0) - else - Duel.SetLP(tp,lp-count*300) - end - Duel.Draw(tp,5,REASON_EFFECT) - Duel.Draw(1-tp,5,REASON_EFFECT) - end -end diff --git a/script/c57139487.lua b/script/c57139487.lua old mode 100755 new mode 100644 diff --git a/script/c5714.lua b/script/c5714.lua deleted file mode 100644 index b8626e33..00000000 --- a/script/c5714.lua +++ /dev/null @@ -1,82 +0,0 @@ ---聖占術姫タロットレイ -function c5714.initial_effect(c) - c:EnableReviveLimit() - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(5714,0)) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,5714) - e1:SetTarget(c5714.tutg) - e1:SetOperation(c5714.tuop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetDescription(aux.Stringid(5714,1)) - e2:SetTarget(c5714.tdtg) - e2:SetOperation(c5714.tdop) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(5714,2)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCondition(c5714.spcon) - e3:SetTarget(c5714.sptg) - e3:SetOperation(c5714.spop) - c:RegisterEffect(e3) -end -function c5714.filter(c) - return c:IsFaceup() and c:IsCanTurnSet() -end -function c5714.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c5714.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5714.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c5714.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c5714.tdop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) - end -end -function c5714.tutg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFacedown() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFacedown,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWN) - local g=Duel.SelectTarget(tp,Card.IsFacedown,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c5714.tuop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_ATTACK) - end -end -function c5714.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c5714.spfilter(c,e,tp) - return c:IsType(TYPE_FLIP) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5714.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5714.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) -end -function c5714.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5714.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) - end -end diff --git a/script/c57143342.lua b/script/c57143342.lua old mode 100755 new mode 100644 index b73ec454..fc6625d9 --- a/script/c57143342.lua +++ b/script/c57143342.lua @@ -49,8 +49,11 @@ function c57143342.sstg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c57143342.ssop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c57143342.spfilter(c,e,tp) diff --git a/script/c5715.lua b/script/c5715.lua deleted file mode 100644 index fa6dcf02..00000000 --- a/script/c5715.lua +++ /dev/null @@ -1,26 +0,0 @@ ---占術姫アローシルフ -function c5715.initial_effect(c) - --flip - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DELAY) - e1:SetTarget(c5715.target) - e1:SetOperation(c5715.operation) - c:RegisterEffect(e1) -end -function c5715.filter(c) - return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_SPELL) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5715.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5715.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c5715.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5715.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c5716.lua b/script/c5716.lua deleted file mode 100644 index dfe986e9..00000000 --- a/script/c5716.lua +++ /dev/null @@ -1,36 +0,0 @@ ---聖占術の儀式 -function c5716.initial_effect(c) - aux.AddRitualProcGreater(c,aux.FilterBoolFunction(Card.IsCode,5714)) - --search - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c5716.thcon) - e1:SetCost(c5716.thcost) - e1:SetTarget(c5716.thtg) - e1:SetOperation(c5716.thop) - c:RegisterEffect(e1) -end -function c5716.thcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnCount()~=e:GetHandler():GetTurnID() -end -function c5716.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c5716.filter(c) - return c:IsSetCard(0x1c9) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c5716.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5716.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5716.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5716.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c5717.lua b/script/c5717.lua deleted file mode 100644 index 3a6127a2..00000000 --- a/script/c5717.lua +++ /dev/null @@ -1,54 +0,0 @@ ---黒猫の睨み -function c5717.initial_effect(c) - --end battle phase - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c5717.condition) - e1:SetOperation(c5717.activate) - c:RegisterEffect(e1) - --position - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetRange(LOCATION_GRAVE) - e2:SetCost(c5717.poscost) - e2:SetTarget(c5717.postg) - e2:SetOperation(c5717.posop) - c:RegisterEffect(e2) -end -function c5717.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_BATTLE - and Duel.IsExistingMatchingCard(Card.IsPosition,tp,LOCATION_MZONE,0,2,nil,POS_FACEDOWN_DEFENCE) -end -function c5717.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) -end -function c5717.filter1(c,tp) - return c:IsFaceup() and c:IsSetCard(0x1c9) and c:IsCanTurnSet() - and Duel.IsExistingTarget(c5717.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,c) -end -function c5717.filter2(c) - return c:IsFaceup() and c:IsCanTurnSet() -end -function c5717.poscost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c5717.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c5717.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g1=Duel.SelectTarget(tp,c5717.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,tp) - local g2=Duel.SelectTarget(tp,c5717.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,g1:GetFirst()) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g1,2,0,0) -end -function c5717.posop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) - end -end diff --git a/script/c5718.lua b/script/c5718.lua deleted file mode 100644 index ad195a0d..00000000 --- a/script/c5718.lua +++ /dev/null @@ -1,28 +0,0 @@ ---アクアアクトレス・グッピー -function c5718.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c5718.sptg) - e1:SetOperation(c5718.spop) - c:RegisterEffect(e1) -end -function c5718.spfilter(c,e,tp) - return c:IsSetCard(0x1ca) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5718.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5718.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c5718.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5718.spfilter,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 diff --git a/script/c5719.lua b/script/c5719.lua deleted file mode 100644 index 9521f237..00000000 --- a/script/c5719.lua +++ /dev/null @@ -1,27 +0,0 @@ ---アクアアクトレス・アロワナ -function c5719.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c5719.thtg) - e1:SetOperation(c5719.thop) - c:RegisterEffect(e1) -end -function c5719.thfilter(c) - return c:IsSetCard(0x1ca) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c5719.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5719.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5719.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5719.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c5720.lua b/script/c5720.lua deleted file mode 100644 index 9042bd4c..00000000 --- a/script/c5720.lua +++ /dev/null @@ -1,73 +0,0 @@ ---水舞台 -function c5720.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --indes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetTarget(aux.TargetBoolFunction(Card.IsAttribute,ATTRIBUTE_WATER)) - e2:SetValue(c5720.indval) - c:RegisterEffect(e2) - --immune - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EFFECT_IMMUNE_EFFECT) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x1ca)) - e3:SetValue(c5720.efilter) - c:RegisterEffect(e3) - --spsummon - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e4:SetCondition(c5720.spcon) - e4:SetTarget(c5720.sptg) - e4:SetOperation(c5720.spop) - c:RegisterEffect(e4) -end -function c5720.indval(e,c) - return not c:IsAttribute(ATTRIBUTE_WATER) -end -function c5720.efilter(e,te) - return te:IsActiveType(TYPE_MONSTER) and e:GetOwnerPlayer()~=te:GetOwnerPlayer() -end -function c5720.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) -end -function c5720.spfilter(c,e,tp) - return c:IsRace(RACE_AQUA) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5720.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c5720.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5720.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5720.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c5720.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetTarget(c5720.splimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c5720.splimit(e,c) - return not c:IsRace(RACE_AQUA) -end diff --git a/script/c5721.lua b/script/c5721.lua deleted file mode 100644 index d01cce24..00000000 --- a/script/c5721.lua +++ /dev/null @@ -1,82 +0,0 @@ ---水照明 -function c5721.initial_effect(c) - c:SetUniqueOnField(1,0,5721) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_PRE_DAMAGE_CALCULATE) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c5721.condition) - e2:SetOperation(c5721.operation) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCondition(c5721.spcon) - e3:SetTarget(c5721.sptg) - e3:SetOperation(c5721.spop) - c:RegisterEffect(e3) -end -function c5721.condition(e,tp,eg,ep,ev,re,r,rp) - local c=Duel.GetAttackTarget() - if not c then return false end - if c:IsControler(1-tp) then c=Duel.GetAttacker() end - e:SetLabelObject(c) - return c and c:IsSetCard(0x1ca) and c:IsRelateToBattle() -end -function c5721.operation(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetLabelObject() - if c:IsFaceup() and c:IsRelateToBattle() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(c:GetAttack()*2) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL) - e2:SetValue(c:GetDefence()*2) - c:RegisterEffect(e2) - end -end -function c5721.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) -end -function c5721.spfilter(c,e,tp) - return c:IsRace(RACE_AQUA) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5721.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c5721.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5721.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5721.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c5721.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetTarget(c5721.splimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c5721.splimit(e,c) - return not c:IsRace(RACE_AQUA) -end diff --git a/script/c5722.lua b/script/c5722.lua deleted file mode 100644 index 8d2561df..00000000 --- a/script/c5722.lua +++ /dev/null @@ -1,70 +0,0 @@ ---賤竜の魔術師 -function c5722.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --to hand - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1,5722) - e2:SetCondition(c5722.pcon) - e2:SetTarget(c5722.ptg) - e2:SetOperation(c5722.pop) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCountLimit(1,6722) - e3:SetTarget(c5722.thtg) - e3:SetOperation(c5722.thop) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e4) -end -function c5722.pcon(e,tp,eg,ep,ev,re,r,rp) - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) - return tc and tc:IsSetCard(0x98) -end -function c5722.pfilter(c) - return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and (c:IsSetCard(0x98) or c:IsSetCard(0x99)) and not c:IsCode(5722) and c:IsAbleToHand() -end -function c5722.ptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5722.pfilter,tp,LOCATION_EXTRA,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_EXTRA) -end -function c5722.pop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5722.pfilter,tp,LOCATION_EXTRA,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end -function c5722.thfilter(c) - return c:IsType(TYPE_MONSTER) and ((c:IsSetCard(0x98) and c:IsType(TYPE_PENDULUM)) or c:IsSetCard(0x99)) and not c:IsCode(5722) and c:IsAbleToHand() -end -function c5722.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c5722.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5722.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c5722.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c5722.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c5723.lua b/script/c5723.lua deleted file mode 100644 index 1d3cd69b..00000000 --- a/script/c5723.lua +++ /dev/null @@ -1,88 +0,0 @@ ---貴竜の魔術師 -function c5723.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --selfdes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_SELF_DESTROY) - e2:SetRange(LOCATION_PZONE) - e2:SetCondition(c5723.descon) - c:RegisterEffect(e2) - --synchro limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e3:SetValue(c5723.synlimit) - c:RegisterEffect(e3) - --todeck - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e4:SetCode(EFFECT_SEND_REPLACE) - e4:SetTarget(c5723.check) - e4:SetValue(aux.FALSE) - c:RegisterEffect(e4) - --spsummon - local e5=Effect.CreateEffect(c) - e5:SetCategory(CATEGORY_SPECIAL_SUMMON) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetRange(LOCATION_HAND+LOCATION_GRAVE) - e5:SetTarget(c5723.sptg) - e5:SetOperation(c5723.spop) - c:RegisterEffect(e5) -end -function c5723.descon(e) - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_SZONE,13-seq) - return not tc or not tc:IsSetCard(0x98) -end -function c5723.synlimit(e,c) - if not c then return false end - return not c:IsRace(RACE_DRAGON) -end -function c5723.synfilter(c,syncard,tuner,f) - return c:IsFaceup() and c:IsNotTuner() and c:IsCanBeSynchroMaterial(syncard,tuner) and (f==nil or f(c)) -end -function c5723.sfilter(c) - return not c:IsSetCard(0x99) -end -function c5723.check(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return bit.band(r,REASON_SYNCHRO)~=0 and eg:IsExists(c5723.sfilter,1,e:GetHandler()) end - Duel.SendtoDeck(e:GetHandler(),nil,1,r) - return true -end -function c5723.cfilter(c) - return c:IsFaceup() and c:GetLevel()>=7 and c:IsSetCard(0x99) -end -function c5723.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c5723.cfilter(chkc) end - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingTarget(c5723.cfilter,tp,LOCATION_MZONE,0,1,nil) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c5723.cfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) -end -function c5723.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsImmuneToEffect(e) or tc:GetLevel()<4 then return end - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(-3) - tc:RegisterEffect(e1) - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c5724.lua b/script/c5724.lua deleted file mode 100644 index 6b83a171..00000000 --- a/script/c5724.lua +++ /dev/null @@ -1,72 +0,0 @@ ---真紅眼の遡刻竜 -function c5724.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetRange(LOCATION_HAND) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCondition(c5724.spcon) - e1:SetTarget(c5724.sptg) - e1:SetOperation(c5724.spop) - c:RegisterEffect(e1) - --extra summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c5724.sumcost) - e2:SetOperation(c5724.sumop) - c:RegisterEffect(e2) -end -function c5724.cfilter(c,tp) - return c:IsLevelBelow(7) and c:IsSetCard(0x3b) and c:GetPreviousControler()==tp - and c:IsPreviousPosition(POS_FACEUP) and c:IsPreviousLocation(LOCATION_MZONE) - and c:IsReason(REASON_EFFECT+REASON_BATTLE) and c:GetReasonPlayer()~=tp and c:IsControler(tp) -end -function c5724.spcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c5724.cfilter,1,nil,tp) -end -function c5724.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c5724.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false,c:GetPreviousPosition()) -end -function c5724.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then - local g=eg:Filter(c5724.spfilter,nil,e,tp) - local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) - if g:GetCount()<=0 or ct<=0 then return end - if g:GetCount()>ct then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - g=g:Select(tp,ct,ct,nil) - end - local tc=g:GetFirst() - while tc do - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,tc:GetPreviousPosition()) - tc=g:GetNext() - end - Duel.SpecialSummonComplete() - end -end -function c5724.sumcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c5724.sumop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetFlagEffect(tp,5724)~=0 then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetTargetRange(LOCATION_HAND,0) - e1:SetCode(EFFECT_EXTRA_SUMMON_COUNT) - e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x3b)) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - Duel.RegisterFlagEffect(tp,5724,RESET_PHASE+PHASE_END,0,1) -end diff --git a/script/c5725.lua b/script/c5725.lua deleted file mode 100644 index 37b8a701..00000000 --- a/script/c5725.lua +++ /dev/null @@ -1,68 +0,0 @@ ---Ｍ・ＨＥＲＯ ブラスト -function c5725.initial_effect(c) - c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --atk down - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetTarget(c5725.atktg) - e2:SetOperation(c5725.atkop) - c:RegisterEffect(e2) - --to hand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1) - e3:SetCost(c5725.thcost) - e3:SetTarget(c5725.thtg) - e3:SetOperation(c5725.thop) - c:RegisterEffect(e3) -end -function c5725.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) -end -function c5725.atkop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(tc:GetAttack()/2) - tc:RegisterEffect(e1) - end -end -function c5725.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,500) end - Duel.PayLPCost(tp,500) -end -function c5725.thfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c5725.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c5725.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5725.thfilter,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c5725.thfilter,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c5725.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end diff --git a/script/c5726.lua b/script/c5726.lua deleted file mode 100644 index 04d3457b..00000000 --- a/script/c5726.lua +++ /dev/null @@ -1,102 +0,0 @@ ---聖珖神竜 スターダスト・シフル -function c5726.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsType,TYPE_SYNCHRO),aux.NonTuner(Card.IsType,TYPE_SYNCHRO),2) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --indes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EFFECT_DESTROY_REPLACE) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c5726.reptg) - e2:SetValue(c5726.repval) - c:RegisterEffect(e2) - local g=Group.CreateGroup() - g:KeepAlive() - e2:SetLabelObject(g) - --negate - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_CHAINING) - e3:SetCountLimit(1) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c5726.discon) - e3:SetTarget(c5726.distg) - e3:SetOperation(c5726.disop) - c:RegisterEffect(e3) - --Special Summon - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetRange(LOCATION_GRAVE) - e4:SetCost(c5726.sumcost) - e4:SetTarget(c5726.sumtg) - e4:SetOperation(c5726.sumop) - c:RegisterEffect(e4) -end -function c5726.repfilter(c,tp) - return c:IsControler(tp) and c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:GetFlagEffect(5726)==0 -end -function c5726.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c5726.repfilter,1,nil,tp) end - local g=eg:Filter(c5726.repfilter,nil,tp) - local tc=g:GetFirst() - while tc do - tc:RegisterFlagEffect(5726,RESET_EVENT+0x1fc0000+RESET_PHASE+RESET_END,0,1) - tc=g:GetNext() - end - e:GetLabelObject():Clear() - e:GetLabelObject():Merge(g) - return true -end -function c5726.repval(e,c) - local g=e:GetLabelObject() - return g:IsContains(c) -end -function c5726.discon(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and re:IsActiveType(TYPE_MONSTER) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) -end -function c5726.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,PLAYER_ALL,LOCATION_ONFIELD) -end -function c5726.disop(e,tp,eg,ep,ev,re,r,rp) - if Duel.NegateActivation(ev) then - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end - end -end -function c5726.sumcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c5726.filter(c,e,tp) - return c:IsSetCard(0xa3) and c:IsLevelBelow(8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5726.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c5726.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5726.filter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5726.filter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler(),e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c5726.sumop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c57261568.lua b/script/c57261568.lua new file mode 100644 index 00000000..bdafc2eb --- /dev/null +++ b/script/c57261568.lua @@ -0,0 +1,108 @@ +--花札衛－牡丹に蝶－ +function c57261568.initial_effect(c) + c:EnableReviveLimit() + --special summon rule + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_HAND) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetCondition(c57261568.hspcon) + e1:SetOperation(c57261568.hspop) + c:RegisterEffect(e1) + --draw + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(57261568,0)) + e2:SetCategory(CATEGORY_DRAW) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetTarget(c57261568.target) + e2:SetOperation(c57261568.operation) + c:RegisterEffect(e2) + --synchro level + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_SYNCHRO_MATERIAL_CUSTOM) + e3:SetTarget(c57261568.syntg) + e3:SetValue(1) + e3:SetOperation(c57261568.synop) + c:RegisterEffect(e3) +end +function c57261568.hspfilter(c) + return c:IsSetCard(0xe6) and not c:IsCode(57261568) +end +function c57261568.hspcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.CheckReleaseGroup(c:GetControler(),c57261568.hspfilter,1,nil) +end +function c57261568.hspop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.SelectReleaseGroup(c:GetControler(),c57261568.hspfilter,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c57261568.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c57261568.operation(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + if Duel.Draw(p,d,REASON_EFFECT)~=0 then + local tc=Duel.GetOperatedGroup():GetFirst() + Duel.ConfirmCards(1-tp,tc) + if tc:IsType(TYPE_MONSTER) and tc:IsSetCard(0xe6) then + local ct=Duel.GetFieldGroupCount(1-tp,LOCATION_DECK,0) + if ct<3 then return end + Duel.BreakEffect() + local g=Duel.GetDecktopGroup(1-tp,3) + Duel.ConfirmCards(tp,g) + local opt=Duel.SelectOption(tp,aux.Stringid(57261568,1),aux.Stringid(57261568,2)) + Duel.SortDecktop(tp,1-tp,3) + if opt==1 then + for i=1,3 do + local mg=Duel.GetDecktopGroup(1-tp,1) + Duel.MoveSequence(mg:GetFirst(),1) + end + end + else + Duel.BreakEffect() + Duel.SendtoGrave(tc,REASON_EFFECT) + end + Duel.ShuffleHand(tp) + end +end +function c57261568.cardiansynlevel(c) + return 2 +end +function c57261568.synfilter(c,syncard,tuner,f) + return c:IsFaceup() and c:IsNotTuner() and c:IsCanBeSynchroMaterial(syncard,tuner) and (f==nil or f(c)) +end +function c57261568.syntg(e,syncard,f,minc,maxc) + local c=e:GetHandler() + local lv=syncard:GetLevel()-c:GetLevel() + local lv2=syncard:GetLevel()-c57261568.cardiansynlevel(c) + if lv<=0 and lv2<=0 then return false end + local g=Duel.GetMatchingGroup(c57261568.synfilter,syncard:GetControler(),LOCATION_MZONE,LOCATION_MZONE,c,syncard,c,f) + local res=g:CheckWithSumEqual(Card.GetSynchroLevel,lv,minc,maxc,syncard) + local res2=g:CheckWithSumEqual(c57261568.cardiansynlevel,lv2,minc,maxc) + return res or res2 +end +function c57261568.synop(e,tp,eg,ep,ev,re,r,rp,syncard,f,minc,maxc) + local c=e:GetHandler() + local lv=syncard:GetLevel()-c:GetLevel() + local lv2=syncard:GetLevel()-c57261568.cardiansynlevel(c) + local g=Duel.GetMatchingGroup(c57261568.synfilter,syncard:GetControler(),LOCATION_MZONE,LOCATION_MZONE,c,syncard,c,f) + local res=g:CheckWithSumEqual(Card.GetSynchroLevel,lv,minc,maxc,syncard) + local res2=g:CheckWithSumEqual(c57261568.cardiansynlevel,lv2,minc,maxc) + local sg=nil + if (res2 and res and Duel.SelectYesNo(tp,aux.Stringid(57261568,3))) + or (res2 and not res) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + sg=g:SelectWithSumEqual(tp,c57261568.cardiansynlevel,lv2,minc,maxc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + sg=g:SelectWithSumEqual(tp,Card.GetSynchroLevel,lv,minc,maxc,syncard) + end + Duel.SetSynchroMaterial(sg) +end diff --git a/script/c5727.lua b/script/c5727.lua deleted file mode 100644 index 45e551b7..00000000 --- a/script/c5727.lua +++ /dev/null @@ -1,142 +0,0 @@ ---ＳＮｏ.０ ホープ・ゼアル -function c5727.initial_effect(c) - --xyz summon - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c5727.xyzcon) - e1:SetOperation(c5727.xyzop) - e1:SetValue(SUMMON_TYPE_XYZ) - c:RegisterEffect(e1) - --cannot disable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON) - e2:SetCondition(c5727.ndcon) - c:RegisterEffect(e2) - --activate limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetOperation(c5727.sumop) - c:RegisterEffect(e3) - --atk/def up - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_UPDATE_ATTACK) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetRange(LOCATION_MZONE) - e4:SetValue(c5727.val) - c:RegisterEffect(e4) - local e5=e4:Clone() - e5:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e5) - --activate limit - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_QUICK_O) - e6:SetCode(EVENT_FREE_CHAIN) - e6:SetRange(LOCATION_MZONE) - e6:SetHintTiming(0,TIMING_DRAW_PHASE) - e6:SetCountLimit(1) - e6:SetCondition(c5727.nacon) - e6:SetCost(c5727.nacost) - e6:SetOperation(c5727.naop) - c:RegisterEffect(e6) -end -c5727.xyz_number=0 -function c5727.cfilter(c) - return c:IsSetCard(0x95) and c:GetType()==TYPE_SPELL and c:IsDiscardable() -end -function c5727.ovfilter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) -end -function c5727.mfilter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsSetCard(0x48) -end -function c5727.xyzfilter1(c,g) - return g:IsExists(c5727.xyzfilter2,2,c,c:GetRank()) -end -function c5727.xyzfilter2(c,rk) - return c:GetRank()==rk -end -function c5727.xyzcon(e,c,og) - if c==nil then return true end - local tp=c:GetControler() - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local ct=-ft - if ct>=2 then return false end - if ct<1 and Duel.IsExistingMatchingCard(aux.XyzAlterFilter,tp,LOCATION_MZONE,0,1,nil,c5727.ovfilter,c) - and Duel.IsExistingMatchingCard(c5727.cfilter,tp,LOCATION_HAND,0,1,nil) then - return true - end - local mg=Duel.GetMatchingGroup(c5727.mfilter,tp,LOCATION_MZONE,0,nil) - return mg:IsExists(c5727.xyzfilter1,1,nil,mg) -end -function c5727.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local ct=-ft - local mg=Duel.GetMatchingGroup(c5727.mfilter,tp,LOCATION_MZONE,0,nil) - local b1=mg:IsExists(c5727.xyzfilter1,1,nil,mg) - local b2=ct<1 and Duel.IsExistingMatchingCard(aux.XyzAlterFilter,tp,LOCATION_MZONE,0,1,nil,c5727.ovfilter,c) - and Duel.IsExistingMatchingCard(c5727.cfilter,tp,LOCATION_HAND,0,1,nil) - if b2 and (not b1 or Duel.SelectYesNo(tp,aux.Stringid(5727,0))) then - Duel.DiscardHand(tp,c5727.cfilter,1,1,REASON_COST+REASON_DISCARD) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local g=Duel.SelectMatchingCard(tp,aux.XyzAlterFilter,tp,LOCATION_MZONE,0,1,1,nil,c5727.ovfilter,c) - local g2=g:GetFirst():GetOverlayGroup() - if g2:GetCount()~=0 then - Duel.Overlay(c,g2) - end - c:SetMaterial(g) - Duel.Overlay(c,g) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local g1=mg:FilterSelect(tp,c5727.xyzfilter1,1,1,nil,mg) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local g2=mg:FilterSelect(tp,c5727.xyzfilter2,2,2,g1:GetFirst(),g1:GetFirst():GetRank()) - g1:Merge(g2) - local sg=Group.CreateGroup() - local tc=g1:GetFirst() - while tc do - sg:Merge(tc:GetOverlayGroup()) - tc=g1:GetNext() - end - Duel.SendtoGrave(sg,REASON_RULE) - c:SetMaterial(g1) - Duel.Overlay(c,g1) - end -end -function c5727.ndcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ -end -function c5727.sumop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():GetSummonType()~=SUMMON_TYPE_XYZ then return end - Duel.SetChainLimitTillChainEnd(c5727.chainlm) -end -function c5727.chainlm(e,rp,tp) - return tp==rp -end -function c5727.val(e,c) - return c:GetOverlayCount()*1000 -end -function c5727.nacon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c5727.nacost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c5727.naop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(0,1) - e1:SetValue(aux.TRUE) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end diff --git a/script/c5728.lua b/script/c5728.lua deleted file mode 100644 index 8c56912d..00000000 --- a/script/c5728.lua +++ /dev/null @@ -1,79 +0,0 @@ ---法眼の魔術師 -function c5728.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --scale change - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetTarget(c5728.target) - e2:SetOperation(c5728.operation) - c:RegisterEffect(e2) - --summon success - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetOperation(c5728.sumsuc) - c:RegisterEffect(e3) -end -function c5728.cffilter(c,tp) - return c:IsType(TYPE_PENDULUM) and not c:IsPublic() - and Duel.IsExistingTarget(c5728.filter,tp,LOCATION_SZONE,0,1,nil,c) -end -function c5728.filter(c,pc) - return c:IsFaceup() and c:IsSetCard(0x98) - and ((c:GetSequence()==6 and c:GetLeftScale()~=pc:GetOriginalLeftScale()) - or (c:GetSequence()==7 and c:GetRightScale()~=pc:GetOriginalRightScale())) -end -function c5728.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_SZONE) and c5728.filter(chkc,e:GetLabelObject()) end - if chk==0 then return Duel.IsExistingMatchingCard(c5728.cffilter,tp,LOCATION_HAND,0,1,nil,tp) end - local g=Duel.SelectMatchingCard(tp,c5728.cffilter,tp,LOCATION_HAND,0,1,1,nil,tp) - local tc=g:GetFirst() - e:SetLabelObject(tc) - Duel.ConfirmCards(1-tp,tc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c5728.filter,tp,LOCATION_SZONE,0,1,1,nil,tc) -end -function c5728.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - local pc=e:GetLabelObject() - if tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LSCALE) - e1:SetValue(pc:GetOriginalLeftScale()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_CHANGE_RSCALE) - e2:SetValue(pc:GetOriginalRightScale()) - tc:RegisterEffect(e2) - end -end -function c5728.sumsuc(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetSummonType()~=SUMMON_TYPE_PENDULUM then return end - --indes - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x98)) - e1:SetValue(c5728.indval) - e1:SetReset(RESET_EVENT+0x1ec0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1,true) -end -function c5728.indval(e,re,rp) - return rp~=e:GetHandlerPlayer() -end diff --git a/script/c57281778.lua b/script/c57281778.lua index 71f0d8f7..738fcafe 100644 --- a/script/c57281778.lua +++ b/script/c57281778.lua @@ -15,10 +15,10 @@ function c57281778.descon(e,tp,eg,ep,ev,re,r,rp) local t=Duel.GetAttackTarget() if ev==1 then t=Duel.GetAttacker() end e:SetLabelObject(t) - return t and t:IsRace(RACE_SPELLCASTER+RACE_WARRIOR) and t:IsRelateToBattle() + return t and t:IsRace(RACE_SPELLCASTER+RACE_WARRIOR) end function c57281778.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetLabelObject():IsDestructable() end + if chk==0 then return e:GetLabelObject():IsRelateToBattle() end Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetLabelObject(),1,0,0) end function c57281778.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c57288064.lua b/script/c57288064.lua index cc771a2b..b37cab42 100644 --- a/script/c57288064.lua +++ b/script/c57288064.lua @@ -48,7 +48,7 @@ function c57288064.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)~=0 then local g=Duel.GetMatchingGroup(c57288064.posfilter,tp,0,LOCATION_MZONE,nil,tc:GetAttack()) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) end end function c57288064.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) diff --git a/script/c5729.lua b/script/c5729.lua deleted file mode 100644 index 941bbd02..00000000 --- a/script/c5729.lua +++ /dev/null @@ -1,59 +0,0 @@ ---竜剣士ラスターＰ -function c5729.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetTarget(c5729.destg) - e2:SetOperation(c5729.desop) - c:RegisterEffect(e2) - --limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL) - e3:SetValue(c5729.limit) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - c:RegisterEffect(e4) - local e5=e3:Clone() - e5:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) - c:RegisterEffect(e5) -end -function c5729.filter(c,code) - return c:IsCode(code) and c:IsAbleToHand() -end -function c5729.destg(e,tp,eg,ep,ev,re,r,rp,chk) - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) - if chk==0 then return tc and tc:IsDestructable() - and Duel.IsExistingMatchingCard(c5729.filter,tp,LOCATION_DECK,0,1,nil,tc:GetCode()) end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5729.desop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) - if tc and Duel.Destroy(tc,REASON_EFFECT)~=0 then - local sc=Duel.GetFirstMatchingCard(c5729.filter,tp,LOCATION_DECK,0,nil,tc:GetCode()) - if sc then - Duel.SendtoHand(sc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sc) - end - end -end -function c5729.limit(e,c) - if not c then return false end - return not c:IsSetCard(0xcb) -end diff --git a/script/c5730.lua b/script/c5730.lua deleted file mode 100644 index 6078277b..00000000 --- a/script/c5730.lua +++ /dev/null @@ -1,78 +0,0 @@ ---爆竜剣士イグニスターＰ -function c5730.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsType,TYPE_PENDULUM),1) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(5730,0)) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_TODECK) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c5730.target) - e2:SetOperation(c5730.operation) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(5730,1)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c5730.sptg) - e3:SetOperation(c5730.spop) - c:RegisterEffect(e3) -end -function c5730.filter(c,tp) - return ((c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsType(TYPE_PENDULUM)) - or (c:IsLocation(LOCATION_SZONE) and (c:GetSequence()==6 or c:GetSequence()==7))) - and c:IsDestructable() and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) -end -function c5730.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c5730.filter(chkc,tp) end - if chk==0 then return Duel.IsExistingTarget(c5730.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c5730.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,tp) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c5730.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - if g:GetCount()>0 then - Duel.HintSelection(g) - Duel.SendtoDeck(g,nil,2,REASON_EFFECT) - end - end -end -function c5730.spfilter(c,e,tp) - return c:IsSetCard(0xcb) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5730.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5730.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c5730.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5730.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end - Duel.SpecialSummonComplete() -end diff --git a/script/c5731.lua b/script/c5731.lua deleted file mode 100644 index 06a09246..00000000 --- a/script/c5731.lua +++ /dev/null @@ -1,50 +0,0 @@ ---コピーキャット -function c5731.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,5731+EFFECT_COUNT_CODE_OATH) - e1:SetCondition(c5731.condition) - e1:SetTarget(c5731.target) - e1:SetOperation(c5731.activate) - c:RegisterEffect(e1) -end -function c5731.cfilter1(c) - return c:IsFaceup() and c:IsCode(15259703) -end -function c5731.cfilter2(c) - return c:IsFaceup() and c:IsType(TYPE_TOON) -end -function c5731.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c5731.cfilter1,tp,LOCATION_ONFIELD,0,1,nil) - and Duel.IsExistingMatchingCard(c5731.cfilter2,tp,LOCATION_MZONE,0,1,nil) -end -function c5731.filter(c,e,tp) - return (c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)) - or (c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable(true) and (c:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0)) -end -function c5731.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and c5731.filter(chkc,e,tp) end - if chk==0 then return Duel.IsExistingTarget(c5731.filter,tp,0,LOCATION_GRAVE,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,c5731.filter,tp,0,LOCATION_GRAVE,1,1,nil,e,tp) - if g:GetFirst():IsType(TYPE_MONSTER) then - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) - else - Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) - end -end -function c5731.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - if tc:IsType(TYPE_MONSTER) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - elseif tc:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then - Duel.SSet(tp,tc) - Duel.ConfirmCards(1-tp,tc) - end - end -end diff --git a/script/c57314798.lua b/script/c57314798.lua new file mode 100644 index 00000000..a8406ceb --- /dev/null +++ b/script/c57314798.lua @@ -0,0 +1,176 @@ +--No.100 ヌメロン・ドラゴン +function c57314798.initial_effect(c) + c:EnableReviveLimit() + --xyz summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetRange(LOCATION_EXTRA) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetCondition(c57314798.xyzcon) + e1:SetOperation(c57314798.xyzop) + e1:SetValue(SUMMON_TYPE_XYZ) + c:RegisterEffect(e1) + --atk up + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(57314798,0)) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCost(c57314798.atkcost) + e2:SetTarget(c57314798.atktg) + e2:SetOperation(c57314798.atkop) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(57314798,1)) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_DESTROYED) + e3:SetCondition(c57314798.descon) + e3:SetTarget(c57314798.destg) + e3:SetOperation(c57314798.desop) + c:RegisterEffect(e3) + --spsummon + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(57314798,2)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_ATTACK_ANNOUNCE) + e4:SetRange(LOCATION_GRAVE) + e4:SetCondition(c57314798.spcon) + e4:SetTarget(c57314798.sptg) + e4:SetOperation(c57314798.spop) + c:RegisterEffect(e4) +end +c57314798.xyz_number=100 +function c57314798.mfilter(c,xyzc) + return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsSetCard(0x48) and c:IsCanBeXyzMaterial(xyzc) +end +function c57314798.xyzfilter1(c,g) + return g:IsExists(c57314798.xyzfilter2,1,c,c:GetRank(),c:GetCode()) +end +function c57314798.xyzfilter2(c,rk,code) + return c:GetRank()==rk and c:IsCode(code) +end +function c57314798.xyzcon(e,c,og,min,max) + if c==nil then return true end + local tp=c:GetControler() + local mg=nil + if og then + mg=og:Filter(c57314798.mfilter,nil,c) + else + mg=Duel.GetMatchingGroup(c57314798.mfilter,tp,LOCATION_MZONE,0,nil,c) + end + return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and (not min or min<=2 and max>=2) + and mg:IsExists(c57314798.xyzfilter1,1,nil,mg) +end +function c57314798.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og,min,max) + local g=nil + local sg=Group.CreateGroup() + if og and not min then + g=og + local tc=og:GetFirst() + while tc do + sg:Merge(tc:GetOverlayGroup()) + tc=og:GetNext() + end + else + local mg=nil + if og then + mg=og:Filter(c57314798.mfilter,nil,c) + else + mg=Duel.GetMatchingGroup(c57314798.mfilter,tp,LOCATION_MZONE,0,nil,c) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) + g=mg:FilterSelect(tp,c57314798.xyzfilter1,1,1,nil,mg) + local tc1=g:GetFirst() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) + local g2=mg:FilterSelect(tp,c57314798.xyzfilter2,1,1,tc1,tc1:GetRank(),tc1:GetCode()) + local tc2=g2:GetFirst() + g:Merge(g2) + sg:Merge(tc1:GetOverlayGroup()) + sg:Merge(tc2:GetOverlayGroup()) + end + Duel.SendtoGrave(sg,REASON_RULE) + c:SetMaterial(g) + Duel.Overlay(c,g) +end +function c57314798.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c57314798.filter(c) + return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:GetRank()>0 +end +function c57314798.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c57314798.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end +end +function c57314798.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsFaceup() and c:IsRelateToEffect(e) then + local g=Duel.GetMatchingGroup(c57314798.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local atk=g:GetSum(Card.GetRank) + if atk>0 then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(atk*1000) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END+RESET_OPPO_TURN) + c:RegisterEffect(e1) + end + end +end +function c57314798.descon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsReason(REASON_EFFECT) +end +function c57314798.setfilter(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable() +end +function c57314798.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,nil,2,PLAYER_ALL,LOCATION_GRAVE) +end +function c57314798.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if Duel.Destroy(g,REASON_EFFECT)~=0 then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) + local g1=Duel.SelectMatchingCard(tp,c57314798.setfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SET) + local g2=Duel.SelectMatchingCard(1-tp,c57314798.setfilter,1-tp,LOCATION_GRAVE,0,1,1,nil) + local tc1=g1:GetFirst() + local tc2=g2:GetFirst() + if (tc1 and tc1:IsHasEffect(EFFECT_NECRO_VALLEY)) or (tc2 and tc2:IsHasEffect(EFFECT_NECRO_VALLEY)) then return end + if tc1 then + Duel.SSet(tp,tc1) + Duel.ConfirmCards(1-tp,tc1) + end + if tc2 then + Duel.SSet(1-tp,tc2) + Duel.ConfirmCards(tp,tc2) + end + end +end +function c57314798.spfilter(c) + return not c:IsStatus(STATUS_LEAVE_CONFIRMED) +end +function c57314798.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil + and not Duel.IsExistingMatchingCard(c57314798.spfilter,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,nil) +end +function c57314798.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c57314798.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c57319935.lua b/script/c57319935.lua index eb02abca..5466357e 100644 --- a/script/c57319935.lua +++ b/script/c57319935.lua @@ -39,13 +39,9 @@ function c57319935.activate(e,tp,eg,ep,ev,re,r,rp) local tc1=Duel.SelectMatchingCard(tp,Card.IsRankBelow,tp,LOCATION_EXTRA,0,1,1,nil,e:GetLabel()):GetFirst() Duel.Hint(HINT_SELECTMSG,1-tp,aux.Stringid(57319935,0)) local tc2=Duel.SelectMatchingCard(1-tp,Card.IsRankBelow,1-tp,LOCATION_EXTRA,0,1,1,nil,e:GetLabel()):GetFirst() - if tc1 then + if tc1 and tc2 then Duel.ConfirmCards(1-tp,tc1) - end - if tc2 then Duel.ConfirmCards(tp,tc2) - end - if tc1 and tc2 then local atk1=tc1:GetAttack() local atk2=tc2:GetAttack() if atk1>atk2 then @@ -55,18 +51,9 @@ function c57319935.activate(e,tp,eg,ep,ev,re,r,rp) end elseif tc1 then Duel.ConfirmCards(1-tp,tc1) - local g=Duel.GetFieldGroup(1-tp,LOCATION_EXTRA,0) - Duel.ConfirmCards(tp,g) Duel.Damage(1-tp,tc1:GetAttack(),REASON_EFFECT) elseif tc2 then Duel.ConfirmCards(tp,tc2) - local g=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - Duel.ConfirmCards(1-tp,g) Duel.Damage(tp,tc2:GetAttack(),REASON_EFFECT) - else - local g1=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - local g2=Duel.GetFieldGroup(1-tp,LOCATION_EXTRA,0) - Duel.ConfirmCards(tp,g2) - Duel.ConfirmCards(1-tp,g1) end end diff --git a/script/c57354389.lua b/script/c57354389.lua new file mode 100644 index 00000000..24532dd9 --- /dev/null +++ b/script/c57354389.lua @@ -0,0 +1,32 @@ +--岩石の番兵 +function c57354389.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(57354389,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_GRAVE) + e1:SetCountLimit(1,57354389) + e1:SetCondition(c57354389.spcon) + e1:SetTarget(c57354389.sptg) + e1:SetOperation(c57354389.spop) + c:RegisterEffect(e1) +end +function c57354389.cfilter(c) + return c:IsFacedown() or not c:IsRace(RACE_ROCK) +end +function c57354389.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0 + and not Duel.IsExistingMatchingCard(c57354389.cfilter,tp,LOCATION_MZONE,0,1,nil) +end +function c57354389.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c57354389.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c57355219.lua b/script/c57355219.lua old mode 100755 new mode 100644 diff --git a/script/c57384901.lua b/script/c57384901.lua index 89bf7e05..8cdaf295 100644 --- a/script/c57384901.lua +++ b/script/c57384901.lua @@ -15,7 +15,7 @@ function c57384901.filter1(c) return c:IsAbleToChangeControler() end function c57384901.filter2(c) - return c:GetCounter(0xe)>0 and c:IsAbleToChangeControler() + return c:GetCounter(0x100e)>0 and c:IsAbleToChangeControler() end function c57384901.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c57470761.lua b/script/c57470761.lua old mode 100755 new mode 100644 index 0d3c53b6..db21760b --- a/script/c57470761.lua +++ b/script/c57470761.lua @@ -46,24 +46,14 @@ function c57470761.activate(e,tp,eg,ep,ev,re,r,rp) e2:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_EXTRA_ATTACK) + e4:SetCode(EFFECT_EXTRA_ATTACK_MONSTER) e4:SetValue(1) e4:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_EQUIP) - e5:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e5:SetCondition(c57470761.dircon) - e5:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e5) - local e6=e5:Clone() - e6:SetCode(EFFECT_CANNOT_ATTACK) - e6:SetCondition(c57470761.atkcon) - c:RegisterEffect(e6) local e7=Effect.CreateEffect(c) e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e7:SetCode(EVENT_BATTLE_START) @@ -94,12 +84,6 @@ end function c57470761.eqlimit(e,c) return c:IsRace(RACE_DRAGON) end -function c57470761.dircon(e) - return e:GetHandler():GetEquipTarget():GetAttackAnnouncedCount()>0 -end -function c57470761.atkcon(e) - return e:GetHandler():GetEquipTarget():IsDirectAttacked() -end function c57470761.regop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local ec=c:GetEquipTarget() diff --git a/script/c57473560.lua b/script/c57473560.lua old mode 100755 new mode 100644 diff --git a/script/c57543573.lua b/script/c57543573.lua index b8c4d57c..b17bf7e3 100644 --- a/script/c57543573.lua +++ b/script/c57543573.lua @@ -1,68 +1,69 @@ ---ワーム・イリダン -function c57543573.initial_effect(c) - --add counter - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_MSET) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c57543573.accon1) - e1:SetOperation(c57543573.acop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SSET) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_CHANGE_POS) - e3:SetCondition(c57543573.accon2) - c:RegisterEffect(e3) - local e4=e1:Clone() - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - e4:SetCondition(c57543573.accon3) - c:RegisterEffect(e4) - --destroy - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(57543573,0)) - e5:SetCategory(CATEGORY_DESTROY) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetRange(LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET) - e5:SetCost(c57543573.descost) - e5:SetTarget(c57543573.destg) - e5:SetOperation(c57543573.desop) - c:RegisterEffect(e5) -end -function c57543573.accon1(e,tp,eg,ep,ev,re,r,rp) - return eg:GetFirst():IsControler(tp) -end -function c57543573.filter2(c,tp) - return c:IsControler(tp) and bit.band(c:GetPreviousPosition(),POS_FACEUP)~=0 and bit.band(c:GetPosition(),POS_FACEDOWN)~=0 -end -function c57543573.accon2(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c57543573.filter2,1,nil,tp) -end -function c57543573.filter3(c,tp) - return c:IsControler(tp) and c:IsFacedown() -end -function c57543573.accon3(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c57543573.filter3,1,nil,tp) -end -function c57543573.acop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0xf+COUNTER_NEED_ENABLE,1) -end -function c57543573.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0xf,2,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0xf,2,REASON_COST) -end -function c57543573.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c57543573.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--ワーム・イリダン +function c57543573.initial_effect(c) + c:EnableCounterPermit(0xf) + --add counter + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_MSET) + e1:SetRange(LOCATION_MZONE) + e1:SetCondition(c57543573.accon1) + e1:SetOperation(c57543573.acop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SSET) + c:RegisterEffect(e2) + local e3=e1:Clone() + e3:SetCode(EVENT_CHANGE_POS) + e3:SetCondition(c57543573.accon2) + c:RegisterEffect(e3) + local e4=e1:Clone() + e4:SetCode(EVENT_SPSUMMON_SUCCESS) + e4:SetCondition(c57543573.accon3) + c:RegisterEffect(e4) + --destroy + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(57543573,0)) + e5:SetCategory(CATEGORY_DESTROY) + e5:SetType(EFFECT_TYPE_IGNITION) + e5:SetRange(LOCATION_MZONE) + e5:SetProperty(EFFECT_FLAG_CARD_TARGET) + e5:SetCost(c57543573.descost) + e5:SetTarget(c57543573.destg) + e5:SetOperation(c57543573.desop) + c:RegisterEffect(e5) +end +function c57543573.accon1(e,tp,eg,ep,ev,re,r,rp) + return eg:GetFirst():IsControler(tp) +end +function c57543573.filter2(c,tp) + return c:IsControler(tp) and bit.band(c:GetPreviousPosition(),POS_FACEUP)~=0 and bit.band(c:GetPosition(),POS_FACEDOWN)~=0 +end +function c57543573.accon2(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c57543573.filter2,1,nil,tp) +end +function c57543573.filter3(c,tp) + return c:IsControler(tp) and c:IsFacedown() +end +function c57543573.accon3(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c57543573.filter3,1,nil,tp) +end +function c57543573.acop(e,tp,eg,ep,ev,re,r,rp) + e:GetHandler():AddCounter(0xf,1) +end +function c57543573.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0xf,2,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0xf,2,REASON_COST) +end +function c57543573.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c57543573.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c57549932.lua b/script/c57549932.lua index 84780f16..82faf79d 100644 --- a/script/c57549932.lua +++ b/script/c57549932.lua @@ -1,13 +1,13 @@ --サンライズ・ガードナー function c57549932.initial_effect(c) aux.EnableDualAttribute(c) - --change base defence + --change base defense local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e1:SetRange(LOCATION_MZONE) e1:SetCondition(aux.IsDualState) - e1:SetCode(EFFECT_SET_BASE_DEFENCE) + e1:SetCode(EFFECT_SET_BASE_DEFENSE) e1:SetValue(2300) c:RegisterEffect(e1) end diff --git a/script/c575512.lua b/script/c575512.lua old mode 100755 new mode 100644 diff --git a/script/c57554544.lua b/script/c57554544.lua old mode 100755 new mode 100644 index 032b442c..269a0b9c --- a/script/c57554544.lua +++ b/script/c57554544.lua @@ -1,102 +1,102 @@ ---炎王の孤島 -function c57554544.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(57554544,0)) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_FZONE) - e2:SetCountLimit(1,57554544) - e2:SetTarget(c57554544.target) - e2:SetOperation(c57554544.operation) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(57554544,1)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_FZONE) - e3:SetCountLimit(1,57554544) - e3:SetCondition(c57554544.spcon) - e3:SetTarget(c57554544.sptg) - e3:SetOperation(c57554544.spop) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(57554544,2)) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetCondition(c57554544.descon) - e4:SetTarget(c57554544.destg) - e4:SetOperation(c57554544.desop) - c:RegisterEffect(e4) - local e5=e4:Clone() - e5:SetCode(EVENT_REMOVE) - c:RegisterEffect(e5) -end -function c57554544.filter1(c) - return c:IsType(TYPE_MONSTER) and c:IsDestructable() -end -function c57554544.filter2(c) - return c:IsSetCard(0x81) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c57554544.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c57554544.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) - and Duel.IsExistingMatchingCard(c57554544.filter2,tp,LOCATION_DECK,0,1,nil) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,LOCATION_HAND+LOCATION_MZONE) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c57554544.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,c57554544.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil) - if g:GetCount()>0 and Duel.Destroy(g,REASON_EFFECT)~=0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c57554544.filter2,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end - end -end -function c57554544.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 -end -function c57554544.spfilter(c,e,tp) - return c:IsRace(RACE_WINDBEAST) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c57554544.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c57554544.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c57554544.spop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c57554544.spfilter,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 -function c57554544.descon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_SZONE) and c:GetPreviousSequence()==5 and c:IsPreviousPosition(POS_FACEUP) -end -function c57554544.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c57554544.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) - Duel.Destroy(g,REASON_EFFECT) -end +--炎王の孤島 +function c57554544.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(57554544,0)) + e2:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_FZONE) + e2:SetCountLimit(1,57554544) + e2:SetTarget(c57554544.target) + e2:SetOperation(c57554544.operation) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(57554544,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_FZONE) + e3:SetCountLimit(1,57554544) + e3:SetCondition(c57554544.spcon) + e3:SetTarget(c57554544.sptg) + e3:SetOperation(c57554544.spop) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(57554544,2)) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetCondition(c57554544.descon) + e4:SetTarget(c57554544.destg) + e4:SetOperation(c57554544.desop) + c:RegisterEffect(e4) + local e5=e4:Clone() + e5:SetCode(EVENT_REMOVE) + c:RegisterEffect(e5) +end +function c57554544.filter1(c) + return c:IsType(TYPE_MONSTER) +end +function c57554544.filter2(c) + return c:IsSetCard(0x81) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c57554544.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c57554544.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) + and Duel.IsExistingMatchingCard(c57554544.filter2,tp,LOCATION_DECK,0,1,nil) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,LOCATION_HAND+LOCATION_MZONE) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c57554544.operation(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectMatchingCard(tp,c57554544.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil) + if g:GetCount()>0 and Duel.Destroy(g,REASON_EFFECT)~=0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c57554544.filter2,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end + end +end +function c57554544.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 +end +function c57554544.spfilter(c,e,tp) + return c:IsRace(RACE_WINDBEAST) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c57554544.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c57554544.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c57554544.spop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c57554544.spfilter,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 +function c57554544.descon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_SZONE) and c:GetPreviousSequence()==5 and c:IsPreviousPosition(POS_FACEUP) +end +function c57554544.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c57554544.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c57610714.lua b/script/c57610714.lua index 0482e700..3843111c 100644 --- a/script/c57610714.lua +++ b/script/c57610714.lua @@ -24,12 +24,12 @@ function c57610714.initial_effect(c) c:RegisterEffect(e3) end function c57610714.sdcon(e) - return e:GetHandler():IsPosition(POS_FACEUP_DEFENCE) + return e:GetHandler():IsPosition(POS_FACEUP_DEFENSE) end function c57610714.filter(c) return c:IsFaceup() and not c:IsSetCard(0x18) end function c57610714.posop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c57610714.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end diff --git a/script/c57624336.lua b/script/c57624336.lua index b639b26c..17c1b3d2 100644 --- a/script/c57624336.lua +++ b/script/c57624336.lua @@ -1,62 +1,62 @@ ---エキセントリック・デーモン -function c57624336.initial_effect(c) - --pendulum summon - aux.EnablePendulumAttribute(c) - --Destroy spell & trap - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1,57624336) - e2:SetTarget(c57624336.destg1) - e2:SetOperation(c57624336.desop1) - c:RegisterEffect(e2) - --Destroy monster - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1,57624337) - e3:SetCost(c57624336.descost2) - e3:SetTarget(c57624336.destg2) - e3:SetOperation(c57624336.desop2) - c:RegisterEffect(e3) -end -function c57624336.filter1(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c57624336.destg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c57624336.filter1(chkc) and chkc~=e:GetHandler() end - if chk==0 then return e:GetHandler():IsDestructable() - and Duel.IsExistingTarget(c57624336.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c57624336.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) - g:AddCard(e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) -end -function c57624336.desop1(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(Group.FromCards(tc,e:GetHandler()),REASON_EFFECT) - end -end -function c57624336.descost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c57624336.destg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c57624336.desop2(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsType(TYPE_MONSTER) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--エキセントリック・デーモン +function c57624336.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --Destroy spell & trap + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_PZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1,57624336) + e2:SetTarget(c57624336.destg1) + e2:SetOperation(c57624336.desop1) + c:RegisterEffect(e2) + --Destroy monster + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_MZONE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCountLimit(1,57624337) + e3:SetCost(c57624336.descost2) + e3:SetTarget(c57624336.destg2) + e3:SetOperation(c57624336.desop2) + c:RegisterEffect(e3) +end +function c57624336.filter1(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) +end +function c57624336.destg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and c57624336.filter1(chkc) and chkc~=e:GetHandler() end + if chk==0 then return e:GetHandler():IsDestructable() + and Duel.IsExistingTarget(c57624336.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c57624336.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + g:AddCard(e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) +end +function c57624336.desop1(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(Group.FromCards(tc,e:GetHandler()),REASON_EFFECT) + end +end +function c57624336.descost2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c57624336.destg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c57624336.desop2(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsType(TYPE_MONSTER) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c5763020.lua b/script/c5763020.lua index 1bd65fbd..ba528850 100644 --- a/script/c5763020.lua +++ b/script/c5763020.lua @@ -27,6 +27,9 @@ function c5763020.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c5763020.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not c:IsRelateToEffect(e) then return end - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end end diff --git a/script/c57662975.lua b/script/c57662975.lua index e0567a86..74ac9f20 100644 --- a/script/c57662975.lua +++ b/script/c57662975.lua @@ -24,7 +24,7 @@ function c57662975.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c57662975.dfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c57662975.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c57662975.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,nil) end diff --git a/script/c57666212.lua b/script/c57666212.lua index 5825b4b0..83ccc6e3 100644 --- a/script/c57666212.lua +++ b/script/c57666212.lua @@ -24,10 +24,10 @@ function c57666212.initial_effect(c) c:RegisterEffect(e4) end function c57666212.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,2,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,2,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c57666212.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c5767.lua b/script/c5767.lua deleted file mode 100644 index e2d3d8ec..00000000 --- a/script/c5767.lua +++ /dev/null @@ -1,64 +0,0 @@ ---水物語－ウラシマ -function c5767.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c5767.condition) - e1:SetTarget(c5767.target) - e1:SetOperation(c5767.activate) - c:RegisterEffect(e1) -end -function c5767.cfilter(c) - return c:IsSetCard(0x1ca) and c:IsType(TYPE_MONSTER) -end -function c5767.condition(e,tp,eg,ep,ev,re,r,rp) - return (Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated()) - and Duel.IsExistingMatchingCard(c5767.cfilter,tp,LOCATION_GRAVE,0,1,nil) -end -function c5767.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c5767.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.NegateRelatedChain(tc,RESET_TURN_SET) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetValue(RESET_TURN_SET) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_SET_ATTACK_FINAL) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e3:SetValue(100) - tc:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_SET_DEFENCE_FINAL) - tc:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetRange(LOCATION_MZONE) - e5:SetCode(EFFECT_IMMUNE_EFFECT) - e5:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e5:SetValue(c5767.efilter) - e5:SetOwnerPlayer(tp) - tc:RegisterEffect(e5) - end -end -function c5767.efilter(e,re) - return e:GetOwnerPlayer()~=re:GetOwnerPlayer() -end diff --git a/script/c5768.lua b/script/c5768.lua deleted file mode 100644 index 7f455380..00000000 --- a/script/c5768.lua +++ /dev/null @@ -1,57 +0,0 @@ ---トゥーン・マスク -function c5768.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c5768.target) - e1:SetOperation(c5768.activate) - c:RegisterEffect(e1) -end -function c5768.filter(c,e,tp) - if not c:IsFaceup() then return false end - local lv=c:GetLevel() - if c:IsType(TYPE_XYZ) then - lv=c:GetRank() - end - return Duel.IsExistingMatchingCard(c5768.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,lv) -end -function c5768.spfilter(c,e,tp,lv) - return c:IsLevelBelow(lv) and c:IsType(TYPE_TOON) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c5768.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then - if chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c:IsFaceup() then - local lv=chkc:GetLevel() - if chkc:IsType(TYPE_XYZ) then - lv=chkc:GetRank() - end - return lv==e:GetLabel() - end - return false - end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5768.filter,tp,0,LOCATION_MZONE,1,nil,e,tp) end - local g=Duel.SelectTarget(tp,c5768.filter,tp,0,LOCATION_MZONE,1,1,nil,e,tp) - local tc=g:GetFirst() - local lv=tc:GetLevel() - if tc:IsType(TYPE_XYZ) then - lv=tc:GetRank() - end - e:SetLabel(lv) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c5768.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local lv=tc:GetLevel() - if tc:IsType(TYPE_XYZ) then - lv=tc:GetRank() - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5768.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp,lv) - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - end -end diff --git a/script/c5769.lua b/script/c5769.lua deleted file mode 100644 index 984f2e4e..00000000 --- a/script/c5769.lua +++ /dev/null @@ -1,29 +0,0 @@ ---レッドアイズ・スピリッツ -function c5769.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c5769.target) - e1:SetOperation(c5769.activate) - c:RegisterEffect(e1) -end -function c5769.filter(c,e,tp) - return c:IsSetCard(0x3b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5769.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c5769.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5769.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5769.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c5769.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c57690191.lua b/script/c57690191.lua index a3e8b60e..dd56b9ff 100644 --- a/script/c57690191.lua +++ b/script/c57690191.lua @@ -46,6 +46,7 @@ function c57690191.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end if ft>2 then ft=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c57690191.spfilter,tp,LOCATION_HAND,0,1,ft,nil,e,tp) if g:GetCount()~=0 then @@ -74,14 +75,15 @@ function c57690191.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) end -function c57690191.tgfilter(c,e) - return not c:IsRelateToEffect(e) -end function c57690191.drop(e,tp,eg,ep,ev,re,r,rp) local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - if tg:IsExists(c57690191.tgfilter,1,nil,e) then return end + if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=3 then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) - Duel.ShuffleDeck(tp) - Duel.BreakEffect() - Duel.Draw(tp,1,REASON_EFFECT) + local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end + local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) + if ct==3 then + Duel.BreakEffect() + Duel.Draw(tp,1,REASON_EFFECT) + end end diff --git a/script/c5770.lua b/script/c5770.lua deleted file mode 100644 index 15f2aa25..00000000 --- a/script/c5770.lua +++ /dev/null @@ -1,74 +0,0 @@ ---Barbar, Malebranche of the Burning Abyss -function c5770.initial_effect(c) - --self destroy - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_SELF_DESTROY) - e1:SetCondition(c5770.sdcon) - c:RegisterEffect(e1) - --Special Summon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_HAND) - e2:SetCountLimit(1,5770) - e2:SetCondition(c5770.sscon) - e2:SetTarget(c5770.sstg) - e2:SetOperation(c5770.ssop) - c:RegisterEffect(e2) - --damage - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_REMOVE+CATEGORY_DAMAGE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCountLimit(1,5770) - e3:SetCondition(c5770.damcon) - e3:SetTarget(c5770.damtg) - e3:SetOperation(c5770.damop) - c:RegisterEffect(e3) -end -function c5770.sdfilter(c) - return not c:IsFaceup() or not c:IsSetCard(0xb1) -end -function c5770.sdcon(e) - return Duel.IsExistingMatchingCard(c5770.sdfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end -function c5770.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) -end -function c5770.sscon(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c5770.filter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c5770.sstg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c5770.ssop(e,tp,eg,ep,ev,re,r,rp) - if Duel.IsExistingMatchingCard(c5770.filter,tp,LOCATION_ONFIELD,0,1,nil) then return end - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) - end -end -function c5770.damcon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsReason(REASON_RETURN) -end -function c5770.damfilter(c,e,tp) - return c:IsSetCard(0xb1) and not c:IsCode(5770) and c:IsAbleToRemove() -end -function c5770.damtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c5770.damfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,c5770.damfilter,tp,LOCATION_GRAVE,0,1,3,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetCount()*300) -end -function c5770.damop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - local ct=Duel.Remove(g,POS_FACEUP,REASON_EFFECT) - Duel.Damage(1-tp,ct*300,REASON_EFFECT) -end diff --git a/script/c57707471.lua b/script/c57707471.lua old mode 100755 new mode 100644 index 44626af1..3d0b49a3 --- a/script/c57707471.lua +++ b/script/c57707471.lua @@ -1,97 +1,122 @@ ---No.21 氷結のレディ・ジャスティス -function c57707471.initial_effect(c) - c:EnableReviveLimit() - --xyz summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c57707471.xyzcon) - e1:SetOperation(c57707471.xyzop) - e1:SetValue(SUMMON_TYPE_XYZ) - c:RegisterEffect(e1) - --atk - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(c57707471.atkval) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCost(c57707471.descost) - e3:SetTarget(c57707471.destg) - e3:SetOperation(c57707471.desop) - c:RegisterEffect(e3) - if not c57707471.xyz_filter then - c57707471.xyz_filter=function(mc) return mc:IsXyzLevel(c,6) end - end -end -c57707471.xyz_number=21 -c57707471.xyz_count=2 -function c57707471.ovfilter(c,tp,xyzc) - return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:GetRank()==5 and c:IsCanBeXyzMaterial(xyzc) - and c:CheckRemoveOverlayCard(tp,1,REASON_COST) -end -function c57707471.xyzcon(e,c,og) - if c==nil then return true end - local tp=c:GetControler() - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local ct=-ft - if 2<=ct then return false end - if ct<1 and not og and Duel.IsExistingMatchingCard(c57707471.ovfilter,tp,LOCATION_MZONE,0,1,nil,tp,c) then - return true - end - return Duel.CheckXyzMaterial(c,nil,6,2,2,og) -end -function c57707471.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og) - if og then - c:SetMaterial(og) - Duel.Overlay(c,og) - else - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local ct=-ft - local b1=Duel.CheckXyzMaterial(c,nil,6,2,2,og) - local b2=ct<1 and Duel.IsExistingMatchingCard(c57707471.ovfilter,tp,LOCATION_MZONE,0,1,nil,tp,c) - if b2 and (not b1 or Duel.SelectYesNo(tp,aux.Stringid(57707471,0))) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local mg=Duel.SelectMatchingCard(tp,c57707471.ovfilter,tp,LOCATION_MZONE,0,1,1,nil,tp,c) - mg:GetFirst():RemoveOverlayCard(tp,1,1,REASON_COST) - local mg2=mg:GetFirst():GetOverlayGroup() - if mg2:GetCount()~=0 then - Duel.Overlay(c,mg2) - end - c:SetMaterial(mg) - Duel.Overlay(c,mg) - else - local mg=Duel.SelectXyzMaterial(tp,c,nil,6,2,2) - c:SetMaterial(mg) - Duel.Overlay(c,mg) - end - end -end -function c57707471.atkval(e,c) - return c:GetOverlayCount()*1000 -end -function c57707471.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c57707471.desfilter(c) - return c:IsDefencePos() and c:IsDestructable() -end -function c57707471.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c57707471.desfilter,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(c57707471.desfilter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c57707471.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c57707471.desfilter,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) -end +--No.21 氷結のレディ・ジャスティス +function c57707471.initial_effect(c) + c:EnableReviveLimit() + --xyz summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetRange(LOCATION_EXTRA) + e1:SetCondition(c57707471.xyzcon) + e1:SetTarget(c57707471.xyztg) + e1:SetOperation(c57707471.xyzop) + e1:SetValue(SUMMON_TYPE_XYZ) + c:RegisterEffect(e1) + --atk + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetRange(LOCATION_MZONE) + e2:SetValue(c57707471.atkval) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetCost(c57707471.descost) + e3:SetTarget(c57707471.destg) + e3:SetOperation(c57707471.desop) + c:RegisterEffect(e3) +end +c57707471.xyz_number=21 +function c57707471.ovfilter(c,tp,xyzc) + return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:GetRank()==5 and c:IsCanBeXyzMaterial(xyzc) + and c:CheckRemoveOverlayCard(tp,1,REASON_COST) +end +function c57707471.xyzcon(e,c,og,min,max) + if c==nil then return true end + local tp=c:GetControler() + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local ct=-ft + if 2<=ct then return false end + if min and (min>2 or max<2) then return false end + local mg=nil + if og then + mg=og + else + mg=Duel.GetFieldGroup(tp,LOCATION_MZONE,0) + end + if ct<1 and (not min or min<=1) and mg:IsExists(c57707471.ovfilter,1,nil,tp,c) then + return true + end + return Duel.CheckXyzMaterial(c,nil,6,2,2,og) +end +function c57707471.xyztg(e,tp,eg,ep,ev,re,r,rp,chk,c,og,min,max) + if og and not min then + return true + end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local ct=-ft + local mg=nil + if og then + mg=og + else + mg=Duel.GetFieldGroup(tp,LOCATION_MZONE,0) + end + local b1=Duel.CheckXyzMaterial(c,nil,6,2,2,og) + local b2=ct<1 and (not min or min<=1) and mg:IsExists(c57707471.ovfilter,1,nil,tp,c) + local g=nil + if b2 and (not b1 or Duel.SelectYesNo(tp,aux.Stringid(57707471,0))) then + e:SetLabel(1) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) + g=mg:FilterSelect(tp,c57707471.ovfilter,1,1,nil,tp,c) + g:GetFirst():RemoveOverlayCard(tp,1,1,REASON_COST) + else + e:SetLabel(0) + g=Duel.SelectXyzMaterial(tp,c,nil,6,2,2,og) + end + if g then + g:KeepAlive() + e:SetLabelObject(g) + return true + else return false end +end +function c57707471.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og,min,max) + if og and not min then + c:SetMaterial(og) + Duel.Overlay(c,og) + else + local mg=e:GetLabelObject() + if e:GetLabel()==1 then + local mg2=mg:GetFirst():GetOverlayGroup() + if mg2:GetCount()~=0 then + Duel.Overlay(c,mg2) + end + end + c:SetMaterial(mg) + Duel.Overlay(c,mg) + mg:DeleteGroup() + end +end +function c57707471.atkval(e,c) + return c:GetOverlayCount()*1000 +end +function c57707471.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c57707471.desfilter(c) + return c:IsDefensePos() +end +function c57707471.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c57707471.desfilter,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(c57707471.desfilter,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c57707471.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c57707471.desfilter,tp,0,LOCATION_MZONE,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c5771.lua b/script/c5771.lua deleted file mode 100644 index ae8b1538..00000000 --- a/script/c5771.lua +++ /dev/null @@ -1,70 +0,0 @@ ---Draghig, Malebranche of the Burning Abyss -function c5771.initial_effect(c) - --self destroy - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_SELF_DESTROY) - e1:SetCondition(c5771.sdcon) - c:RegisterEffect(e1) - --Special Summon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_HAND) - e2:SetCountLimit(1,5771) - e2:SetCondition(c5771.sscon) - e2:SetTarget(c5771.sstg) - e2:SetOperation(c5771.ssop) - c:RegisterEffect(e2) - --to deck top - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCountLimit(1,5771) - e3:SetCondition(c5771.condition) - e3:SetTarget(c5771.target) - e3:SetOperation(c5771.operation) - c:RegisterEffect(e3) -end -function c5771.sdfilter(c) - return not c:IsFaceup() or not c:IsSetCard(0xb1) -end -function c5771.sdcon(e) - return Duel.IsExistingMatchingCard(c5771.sdfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end -function c5771.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) -end -function c5771.sscon(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c5771.filter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c5771.sstg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c5771.ssop(e,tp,eg,ep,ev,re,r,rp) - if Duel.IsExistingMatchingCard(c5771.filter,tp,LOCATION_ONFIELD,0,1,nil) then return end - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) - end -end -function c5771.condition(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsReason(REASON_RETURN) -end -function c5771.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_DECK,0,1,nil,0xb1) end -end -function c5771.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(5771,0)) - local g=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_DECK,0,1,1,nil,0xb1) - local tc=g:GetFirst() - if tc then - Duel.ShuffleDeck(tp) - Duel.MoveSequence(tc,0) - Duel.ConfirmDecktop(tp,1) - end -end diff --git a/script/c5772.lua b/script/c5772.lua deleted file mode 100644 index aaf4ed10..00000000 --- a/script/c5772.lua +++ /dev/null @@ -1,111 +0,0 @@ ---The Terminus of the Burning Abyss -function c5772.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c5772.target) - e1:SetOperation(c5772.activate) - c:RegisterEffect(e1) - --salvage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e2:SetDescription(aux.Stringid(5772,1)) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c5772.atkcon) - e2:SetCost(c5772.atkcost) - e2:SetTarget(c5772.atktg) - e2:SetOperation(c5772.atkop) - c:RegisterEffect(e2) -end -function c5772.filter1(c,e) - return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) -end -function c5772.filter2(c,e,tp,m,f,chkf) - return c:IsType(TYPE_FUSION) and c:IsSetCard(0xb1) and (not f or f(c)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) -end -function c5772.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c5772.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) - local res=Duel.IsExistingMatchingCard(c5772.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - res=Duel.IsExistingMatchingCard(c5772.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c5772.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c5772.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) - local sg1=Duel.GetMatchingGroup(c5772.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - sg2=Duel.GetMatchingGroup(c5772.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end -function c5772.atkcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetTurnID()~=Duel.GetTurnCount() -end -function c5772.atkfilter(c) - return c:IsFaceup() and c:IsSetCard(0xb1) -end -function c5772.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c5772.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c5772.atkfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5772.atkfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c5772.atkfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c5772.atkop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END+RESET_OPPO_TURN) - e1:SetValue(800) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - tc:RegisterEffect(e2) - end -end diff --git a/script/c57728570.lua b/script/c57728570.lua index beab1ae7..d6c2c8cd 100644 --- a/script/c57728570.lua +++ b/script/c57728570.lua @@ -20,7 +20,7 @@ function c57728570.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c57728570.filter(c) - return c:IsAttackAbove(1500) and c:IsDestructable() + return c:IsAttackAbove(1500) end function c57728570.hgfilter(c) return not c:IsPublic() or c57728570.filter(c) diff --git a/script/c57728571.lua b/script/c57728571.lua deleted file mode 100644 index a0417964..00000000 --- a/script/c57728571.lua +++ /dev/null @@ -1,81 +0,0 @@ ---死のデッキ破壊ウイルス -function c57728571.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_TOHAND) - e1:SetCost(c57728571.cost) - e1:SetTarget(c57728571.target) - e1:SetOperation(c57728571.activate) - c:RegisterEffect(e1) -end -function c57728571.costfilter(c) - return c:IsAttribute(ATTRIBUTE_DARK) and c:IsAttackBelow(1000) -end -function c57728571.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c57728571.costfilter,1,nil) end - local g=Duel.SelectReleaseGroup(tp,c57728571.costfilter,1,1,nil) - Duel.Release(g,REASON_COST) -end -function c57728571.tgfilter(c) - return c:IsFaceup() and c:GetAttack()>=1500 and c:IsDestructable() -end -function c57728571.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(c57728571.tgfilter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c57728571.filter(c) - return c:IsType(TYPE_MONSTER) and c:IsAttackAbove(1500) -end -function c57728571.activate(e,tp,eg,ep,ev,re,r,rp) - local conf=Duel.GetFieldGroup(tp,0,LOCATION_MZONE+LOCATION_HAND) - if conf:GetCount()>0 then - Duel.ConfirmCards(tp,conf) - local dg=conf:Filter(c57728571.filter,nil) - Duel.Destroy(dg,REASON_EFFECT) - Duel.ShuffleHand(1-tp) - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_DRAW) - e1:SetOperation(c57728571.desop) - e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,3) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetCondition(c57728571.turncon) - e2:SetOperation(c57728571.turnop) - e2:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,3) - Duel.RegisterEffect(e2,tp) - e2:SetLabelObject(e1) - e:GetHandler():RegisterFlagEffect(1082946,RESET_PHASE+PHASE_END+RESET_OPPO_TURN,0,3) - c57728571[e:GetHandler()]=e2 -end -function c57728571.desop(e,tp,eg,ep,ev,re,r,rp) - if ep==e:GetOwnerPlayer() then return end - local hg=eg:Filter(Card.IsLocation,nil,LOCATION_HAND) - if hg:GetCount()==0 then return end - Duel.ConfirmCards(1-ep,hg) - local dg=hg:Filter(c57728571.filter,nil) - Duel.Destroy(dg,REASON_EFFECT) - Duel.ShuffleHand(ep) -end -function c57728571.turncon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c57728571.turnop(e,tp,eg,ep,ev,re,r,rp) - local ct=e:GetLabel() - ct=ct+1 - e:SetLabel(ct) - e:GetHandler():SetTurnCounter(ct) - if ct==3 then - e:GetLabelObject():Reset() - e:GetOwner():ResetFlagEffect(1082946) - end -end diff --git a/script/c5773.lua b/script/c5773.lua deleted file mode 100644 index 068bfcfe..00000000 --- a/script/c5773.lua +++ /dev/null @@ -1,123 +0,0 @@ ---Dante, Pilgrim of the Burning Abyss -function c5773.initial_effect(c) - --fusion material - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(c5773.fcon) - e1:SetOperation(c5773.fop) - c:RegisterEffect(e1) - --spsummon condition - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCode(EFFECT_SPSUMMON_CONDITION) - e2:SetValue(c5773.splimit) - c:RegisterEffect(e2) - --cannot target - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e3:SetValue(c5773.tgvalue) - c:RegisterEffect(e3) - --draw - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DRAW) - e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e4:SetType(EFFECT_TYPE_QUICK_O) - e4:SetCode(EVENT_FREE_CHAIN) - e4:SetRange(LOCATION_MZONE) - e4:SetCountLimit(1) - e4:SetCost(c5773.drcost) - e4:SetTarget(c5773.drtg) - e4:SetOperation(c5773.drop) - c:RegisterEffect(e4) - --handes - local e5=Effect.CreateEffect(c) - e5:SetCategory(CATEGORY_TOGRAVE) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e5:SetCode(EVENT_TO_GRAVE) - e5:SetCondition(c5773.condition) - e5:SetTarget(c5773.target) - e5:SetOperation(c5773.operation) - c:RegisterEffect(e5) -end -function c5773.fcon(e,g,gc,chkf) - if g==nil then return true end - local g1=g:Filter(Card.IsSetCard,nil,0xb1) - if gc then - if not gc:IsSetCard(0xb1) then return false end - g1:Remove(Card.IsCode,nil,gc:GetCode()) - return g1:GetClassCount(Card.GetCode)>=2 - end - if chkf~=PLAYER_NONE and g1:FilterCount(Card.IsOnField,nil)==0 then return false end - return g1:GetClassCount(Card.GetCode)>=3 -end -function c5773.fop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local count=3 - local flag=false - if chkf~=PLAYER_NONE then flag=true end - local sg=eg:Filter(Card.IsSetCard,nil,0xb1) - if gc then - count=2 - flag=false - sg:Remove(Card.IsCode,nil,gc:GetCode()) - end - local g=Group.CreateGroup() - for i=1,count do - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local tg=nil - if flag==true then - tg=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) - else - tg=sg:Select(tp,1,1,nil) - end - local tc=tg:GetFirst() - g:AddCard(tc) - sg:Remove(Card.IsCode,nil,tc:GetCode()) - end - Duel.SetFusionMaterial(g) -end -function c5773.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c5773.tgvalue(e,re,rp) - return rp~=e:GetHandlerPlayer() -end -function c5773.cfilter(c) - return c:IsSetCard(0xb1) and c:IsAbleToGraveAsCost() -end -function c5773.drcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5773.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c5773.cfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c5773.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c5773.drop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end -function c5773.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) -end -function c5773.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 end - Duel.SetOperationInfo(0,CATEGORY_HANDES,0,0,1-tp,1) -end -function c5773.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0) - local sg=g:RandomSelect(1-tp,1) - Duel.SendtoGrave(sg,REASON_EFFECT) -end diff --git a/script/c57734012.lua b/script/c57734012.lua old mode 100755 new mode 100644 index 7d751e30..4974bc69 --- a/script/c57734012.lua +++ b/script/c57734012.lua @@ -43,8 +43,10 @@ function c57734012.filter1(c,e,tp) local m=_G["c"..c:GetCode()] if not m then return false end local no=m.xyz_number + local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp] return no and no>=101 and no<=107 and c:IsSetCard(0x48) and not c:IsSetCard(0x1048) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and (not ect or ect>1 or c:IsLocation(LOCATION_GRAVE)) and Duel.IsExistingMatchingCard(c57734012.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,c,no) end function c57734012.filter2(c,e,tp,mc,no) diff --git a/script/c5774.lua b/script/c5774.lua deleted file mode 100644 index 5c874df3..00000000 --- a/script/c5774.lua +++ /dev/null @@ -1,37 +0,0 @@ ---占術姫コインノーマ -function c5774.initial_effect(c) - --flip - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DELAY) - e1:SetTarget(c5774.target) - e1:SetOperation(c5774.operation) - c:RegisterEffect(e1) -end -function c5774.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5774.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c5774.filter(c,e,tp) - return c:IsType(TYPE_FLIP) and c:IsLevelAbove(3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) -end -function c5774.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.SelectMatchingCard(tp,c5774.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) - Duel.ConfirmCards(1-tp,g) - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetValue(c5774.aclimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c5774.aclimit(e,re,tp) - return not re:GetHandler():IsSetCard(0x1c9) and re:IsActiveType(TYPE_MONSTER) -end diff --git a/script/c5775.lua b/script/c5775.lua deleted file mode 100644 index 599156fa..00000000 --- a/script/c5775.lua +++ /dev/null @@ -1,92 +0,0 @@ ---Moon Mirror Shield -function c5775.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c5775.target) - e1:SetOperation(c5775.operation) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(1) - c:RegisterEffect(e2) - --atk down - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_PRE_DAMAGE_CALCULATE) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c5775.atkcon) - e3:SetOperation(c5775.atkup) - c:RegisterEffect(e3) - --to deck - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_TODECK) - e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetCondition(c5775.tdcon) - e4:SetCost(c5775.tdcost) - e4:SetTarget(c5775.tdtg) - e4:SetOperation(c5775.tdop) - e4:SetValue(c5775.valcheck) - c:RegisterEffect(e4) -end -function c5775.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c5775.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,c,tc) - end -end -function c5775.atkcon(e,tp,eg,ep,ev,re,r,rp) - local eqc=e:GetHandler():GetEquipTarget() - return (Duel.GetAttacker()==eqc or Duel.GetAttackTarget()==eqc) and eqc:GetBattleTarget()~=nil -end -function c5775.atkup(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local eqc=e:GetHandler():GetEquipTarget() - local tc=eqc:GetBattleTarget() - if tc:IsRelateToBattle() then - local val=math.max(tc:GetAttack(),tc:GetDefence()) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) - e1:SetValue(val+100) - eqc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - eqc:RegisterEffect(e2) - end -end -function c5775.tdcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) -end -function c5775.tdcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,500) end - Duel.PayLPCost(tp,500) -end -function c5775.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToDeck() end - Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) -end -function c5775.tdop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - local op=Duel.SelectOption(tp,aux.Stringid(5775,0),aux.Stringid(5775,1)) - Duel.SendtoDeck(e:GetHandler(),nil,op,REASON_EFFECT) - end -end diff --git a/script/c5776.lua b/script/c5776.lua deleted file mode 100644 index 2c0808ab..00000000 --- a/script/c5776.lua +++ /dev/null @@ -1,57 +0,0 @@ ---U.A. Dreadnought Dunker -function c5776.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCountLimit(1,5776) - e1:SetCondition(c5776.spcon) - e1:SetOperation(c5776.spop) - c:RegisterEffect(e1) - --pierce - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BATTLE_DAMAGE) - e3:SetCondition(c5776.descon) - e3:SetTarget(c5776.destg) - e3:SetOperation(c5776.desop) - c:RegisterEffect(e3) -end -function c5776.spfilter(c) - return c:IsFaceup() and c:IsSetCard(0xb2) and not c:IsCode(5776) and c:IsAbleToHandAsCost() -end -function c5776.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c5776.spfilter,c:GetControler(),LOCATION_MZONE,0,1,nil) -end -function c5776.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectMatchingCard(tp,c5776.spfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SendtoHand(g,nil,REASON_COST) -end -function c5776.descon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c5776.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c5776.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c5777.lua b/script/c5777.lua deleted file mode 100644 index 5fc275a3..00000000 --- a/script/c5777.lua +++ /dev/null @@ -1,59 +0,0 @@ ---U.A. Rival Rebounder -function c5777.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCountLimit(1,5777) - e1:SetCondition(c5777.hspcon) - e1:SetOperation(c5777.hspop) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetCountLimit(1,6777) - e2:SetTarget(c5777.sptg) - e2:SetOperation(c5777.spop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCondition(c5777.spcon) - c:RegisterEffect(e3) -end -function c5777.hspfilter(c) - return c:IsFaceup() and c:IsSetCard(0xb2) and not c:IsCode(5777) and c:IsAbleToHandAsCost() -end -function c5777.hspcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c5777.hspfilter,c:GetControler(),LOCATION_MZONE,0,1,nil) -end -function c5777.hspop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectMatchingCard(tp,c5777.hspfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SendtoHand(g,nil,REASON_COST) -end -function c5777.spfilter(c,e,tp) - return c:IsSetCard(0xb2) and not c:IsCode(5777) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c5777.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5777.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) -end -function c5777.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5777.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end -function c5777.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end diff --git a/script/c57774843.lua b/script/c57774843.lua index f9ef9dfe..08f5ab32 100644 --- a/script/c57774843.lua +++ b/script/c57774843.lua @@ -55,12 +55,12 @@ function c57774843.cost(e,tp,eg,ep,ev,re,r,rp,chk) end function c57774843.target(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) end function c57774843.operation(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.Destroy(sg,REASON_EFFECT) end function c57774843.condition2(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c57777714.lua b/script/c57777714.lua index 09bb3229..7e108d8f 100644 --- a/script/c57777714.lua +++ b/script/c57777714.lua @@ -8,10 +8,9 @@ function c57777714.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_PZONE) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetTargetRange(1,0) e2:SetTarget(c57777714.splimit) - e2:SetCondition(aux.nfbdncon) c:RegisterEffect(e2) --spsummon local e3=Effect.CreateEffect(c) diff --git a/script/c5778.lua b/script/c5778.lua deleted file mode 100644 index 3fc72b78..00000000 --- a/script/c5778.lua +++ /dev/null @@ -1,53 +0,0 @@ ---U.A. Signing Deal -function c5778.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,5778+EFFECT_COUNT_CODE_OATH) - e1:SetTarget(c5778.target) - e1:SetOperation(c5778.activate) - c:RegisterEffect(e1) -end -function c5778.filter(c,e,tp) - return c:IsSetCard(0xb2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5778.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5778.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c5778.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5778.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1,true) - local e2=e1:Clone() - e2:SetCode(EFFECT_DISABLE_EFFECT) - tc:RegisterEffect(e2,true) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e3:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e3:SetValue(1) - e3:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e3,true) - local e4=e3:Clone() - e4:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) - tc:RegisterEffect(e4,true) - Duel.SpecialSummonComplete() - Duel.BreakEffect() - if Duel.GetLP(tp)>=tc:GetLevel()*300 then - Duel.SetLP(tp,Duel.GetLP(tp)-tc:GetLevel()*300) - else - Duel.SetLP(tp,0) - end - end -end diff --git a/script/c57784563.lua b/script/c57784563.lua old mode 100755 new mode 100644 diff --git a/script/c5779.lua b/script/c5779.lua deleted file mode 100644 index ff6d5eac..00000000 --- a/script/c5779.lua +++ /dev/null @@ -1,126 +0,0 @@ ---U.A. Penalty Box -function c5779.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetCondition(c5779.rmcon1) - e1:SetTarget(c5779.rmtg1) - e1:SetOperation(c5779.rmop) - c:RegisterEffect(e1) - --remove - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_REMOVE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_START) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c5779.rmcon2) - e2:SetCost(c5779.rmcost) - e2:SetTarget(c5779.rmtg2) - e2:SetOperation(c5779.rmop) - c:RegisterEffect(e2) - --search - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetRange(LOCATION_GRAVE) - e3:SetCost(c5779.thcost) - e3:SetTarget(c5779.thtg) - e3:SetOperation(c5779.thop) - c:RegisterEffect(e3) -end -function c5779.rmchk(e,tp,eg,ep,ev,re,r,rp) - return Duel.CheckEvent(EVENT_BATTLE_START) - and c5779.rmcon2(e,tp,eg,ep,ev,re,r,rp) - and c5779.rmcost(e,tp,eg,ep,ev,re,r,rp,0) - and c5779.rmtg2(e,tp,eg,ep,ev,re,r,rp,0) -end -function c5779.rmcon1(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE - or c5779.rmchk(e,tp,eg,ep,ev,re,r,rp) -end -function c5779.rmtg1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - if c5779.rmchk(e,tp,eg,ep,ev,re,r,rp) then - e:SetCategory(CATEGORY_REMOVE) - c5779.rmcost(e,tp,eg,ep,ev,re,r,rp,1) - c5779.rmtg2(e,tp,eg,ep,ev,re,r,rp,1) - e:GetHandler():RegisterFlagEffect(0,RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(5779,0)) - else - e:SetCategory(0) - end -end -function c5779.rmcon2(e,tp,eg,ep,ev,re,r,rp) - local c=Duel.GetAttacker() - local bc=Duel.GetAttackTarget() - if not bc then return false end - if c:IsControler(1-tp) then bc,c=c,bc end - e:SetLabelObject(bc) - return c:IsFaceup() and c:IsSetCard(0xb2) -end -function c5779.rmcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,5779)==0 end - Duel.RegisterFlagEffect(tp,5779,RESET_PHASE+PHASE_END,0,1) -end -function c5779.rmtg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetLabelObject():IsAbleToRemove() end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,e:GetLabelObject(),1,0,0) -end -function c5779.rmop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) or Duel.GetFlagEffect(tp,5779)==0 then return end - local tc=e:GetLabelObject() - if tc:IsRelateToBattle() and Duel.Remove(tc,tc:GetPosition(),REASON_EFFECT+REASON_TEMPORARY)~=0 then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN,2) - e1:SetCountLimit(1) - e1:SetLabel(fid) - e1:SetLabelObject(tc) - e1:SetCondition(c5779.retcon) - e1:SetOperation(c5779.retop) - Duel.RegisterEffect(e1,tp) - tc:SetTurnCounter(0) - tc:RegisterFlagEffect(5779,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_SELF_TURN,0,2,fid) - end -end -function c5779.retcon(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetTurnPlayer()==tp then return false end - local tc=e:GetLabelObject() - if tc:GetFlagEffectLabel(5779)==e:GetLabel() then - return true - else - e:Reset() - return false - end -end -function c5779.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetLabelObject() - local ct=c:GetTurnCounter() - c:SetTurnCounter(ct+1) - if ct==1 then - Duel.ReturnToField(e:GetLabelObject()) - end -end -function c5779.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c5779.filter(c) - return c:IsSetCard(0xb2) and c:IsType(TYPE_SPELL) and c:IsAbleToHand() -end -function c5779.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5779.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5779.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5779.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c57793869.lua b/script/c57793869.lua index 1f4d5454..36bc4812 100644 --- a/script/c57793869.lua +++ b/script/c57793869.lua @@ -27,7 +27,7 @@ function c57793869.initial_effect(c) e4:SetValue(c57793869.adval) c:RegisterEffect(e4) local e5=e4:Clone() - e5:SetCode(EFFECT_SET_DEFENCE) + e5:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e5) --Eraser local e6=Effect.CreateEffect(c) @@ -66,7 +66,7 @@ function c57793869.erascon(e) end function c57793869.erastg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,dg:GetCount(),0,0) end function c57793869.erasop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c5780.lua b/script/c5780.lua deleted file mode 100644 index 140f2b89..00000000 --- a/script/c5780.lua +++ /dev/null @@ -1,110 +0,0 @@ ---タイムマジック・ハンマー -function c5780.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --equip - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_EQUIP) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetTarget(c5780.eqtg) - e2:SetOperation(c5780.eqop) - c:RegisterEffect(e2) -end -function c5780.hermos_filter(c) - return c:IsRace(RACE_SPELLCASTER) -end -function c5780.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler()) -end -function c5780.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - if c:IsLocation(LOCATION_MZONE) and c:IsFacedown() then return end - local tc=Duel.GetFirstTarget() - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc==nil or tc:IsFacedown() or not tc:IsRelateToEffect(e) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - Duel.Equip(tp,c,tc,true) - e:SetLabelObject(tc) - local e1=Effect.CreateEffect(tc) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c5780.eqlimit) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCategory(CATEGORY_REMOVE+CATEGORY_DICE) - e2:SetCode(EVENT_BATTLE_START) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c5780.rmcon) - e2:SetTarget(c5780.rmtg) - e2:SetOperation(c5780.rmop) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) -end -function c5780.eqlimit(e,c) - return e:GetOwner()==c -end -function c5780.rmcon(e,tp,eg,ep,ev,re,r,rp) - local tg=e:GetHandler():GetEquipTarget() - return tg and (Duel.GetAttacker()==tg or Duel.GetAttackTarget()==tg) -end -function c5780.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tc=c:GetEquipTarget():GetBattleTarget() - if chk==0 then return tc and tc:IsControler(1-tp) end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,tc,1,0,0) -end -function c5780.rmop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local c=e:GetHandler() - local tc=c:GetEquipTarget():GetBattleTarget() - if tc:IsRelateToBattle() then - local dc=Duel.TossDice(tp,1) - if Duel.Remove(tc,tc:GetPosition(),REASON_EFFECT+REASON_TEMPORARY)==0 then return end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetReset(RESET_PHASE+PHASE_STANDBY,dc) - e1:SetCountLimit(1) - e1:SetLabel(fid) - e1:SetLabelObject(tc) - e1:SetCondition(c5780.retcon) - e1:SetOperation(c5780.retop(dc)) - Duel.RegisterEffect(e1,tp) - tc:SetTurnCounter(0) - tc:RegisterFlagEffect(5780,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY,0,dc,fid) - end -end -function c5780.retcon(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - if tc:GetFlagEffectLabel(5780)==e:GetLabel() then - return true - else - e:Reset() - return false - end -end -function c5780.retop(turn) - return function(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetLabelObject() - local ct=c:GetTurnCounter()+1 - c:SetTurnCounter(ct) - if ct==turn then - Duel.ReturnToField(e:GetLabelObject()) - end - end -end diff --git a/script/c5781.lua b/script/c5781.lua deleted file mode 100644 index 0da9bd4c..00000000 --- a/script/c5781.lua +++ /dev/null @@ -1,61 +0,0 @@ ---ロケット・ヘルモス・キャノン -function c5781.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --equip - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_EQUIP) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetTarget(c5781.eqtg) - e2:SetOperation(c5781.eqop) - c:RegisterEffect(e2) -end -function c5781.hermos_filter(c) - return c:IsRace(RACE_WARRIOR) -end -function c5781.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler()) -end -function c5781.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - if c:IsLocation(LOCATION_MZONE) and c:IsFacedown() then return end - local tc=Duel.GetFirstTarget() - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc==nil or tc:IsFacedown() or not tc:IsRelateToEffect(e) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - Duel.Equip(tp,c,tc,true) - e:SetLabelObject(tc) - local e1=Effect.CreateEffect(tc) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c5781.eqlimit) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_EXTRA_ATTACK) - e2:SetValue(1) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_PIERCE) - e3:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e3) -end -function c5781.eqlimit(e,c) - return e:GetOwner()==c -end diff --git a/script/c57815601.lua b/script/c57815601.lua index 984e3981..2fd748ba 100644 --- a/script/c57815601.lua +++ b/script/c57815601.lua @@ -20,7 +20,8 @@ function c57815601.filter2(c,e,tp) end function c57815601.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c57815601.filter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g1=Duel.SelectTarget(tp,c57815601.filter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp) @@ -31,17 +32,18 @@ function c57815601.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c57815601.activate(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()==0 then return end - if g:GetCount()<=ft then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:Select(tp,ft,ft,nil) - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - g:Sub(sg) - Duel.SendtoGrave(g,REASON_EFFECT) + if ft>0 and g:GetCount()>0 then + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + if g:GetCount()<=ft then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg=g:Select(tp,ft,ft,nil) + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + g:Sub(sg) + Duel.SendtoGrave(g,REASON_RULE) + end end if e:IsHasType(EFFECT_TYPE_ACTIVATE) then local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c5782.lua b/script/c5782.lua deleted file mode 100644 index c4d273e2..00000000 --- a/script/c5782.lua +++ /dev/null @@ -1,42 +0,0 @@ ---ルーレット・スパイダー -function c5782.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DICE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c5782.condition) - e1:SetOperation(c5782.activate) - c:RegisterEffect(e1) -end -function c5782.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c5782.activate(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttacker() - local dc=Duel.TossDice(tp,1) - if dc==1 then - Duel.SetLP(tp,Duel.GetLP(tp)/2) - end - if dc==2 and at:IsAttackable() and not at:IsStatus(STATUS_ATTACK_CANCELED) then - Duel.ChangeAttackTarget(nil) - end - if dc==3 then - local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_MZONE,0,1,1,Duel.GetAttackTarget()) - if g:GetCount()>0 then - Duel.CalculateDamage(at,g:GetFirst()) - end - end - if dc==4 then - local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,at) - if g:GetCount()>0 then - Duel.CalculateDamage(at,g:GetFirst()) - end - end - if dc==5 and Duel.NegateAttack() then - Duel.Damage(1-tp,at:GetAttack(),REASON_EFFECT) - end - if dc==6 then - Duel.Destroy(at,REASON_EFFECT) - end -end diff --git a/script/c5783.lua b/script/c5783.lua deleted file mode 100644 index 268418d2..00000000 --- a/script/c5783.lua +++ /dev/null @@ -1,72 +0,0 @@ ---女神の聖弓－アルテミス -function c5783.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --equip - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_EQUIP) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetTarget(c5783.eqtg) - e2:SetOperation(c5783.eqop) - c:RegisterEffect(e2) -end -function c5783.hermos_filter(c) - return c:IsRace(RACE_WARRIOR) -end -function c5783.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler()) -end -function c5783.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - if c:IsLocation(LOCATION_MZONE) and c:IsFacedown() then return end - local tc=Duel.GetFirstTarget() - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc==nil or tc:IsFacedown() or not tc:IsRelateToEffect(e) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - Duel.Equip(tp,c,tc,true) - e:SetLabelObject(tc) - local e1=Effect.CreateEffect(tc) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c5783.eqlimit) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_CHAIN_SOLVING) - e2:SetRange(LOCATION_SZONE) - e2:SetOperation(c5783.disop) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) -end -function c5783.eqlimit(e,c) - return e:GetOwner()==c -end -function c5783.disop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local ec=c:GetEquipTarget() - local ph=Duel.GetCurrentPhase() - if re:GetOwnerPlayer()~=tp and (ph==PHASE_BATTLE or ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) - and c:GetFlagEffect(5783)==0 and Duel.NegateEffect(ev) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - ec:RegisterEffect(e1) - c:RegisterFlagEffect(5783,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - end -end diff --git a/script/c57831349.lua b/script/c57831349.lua new file mode 100644 index 00000000..6a9d939c --- /dev/null +++ b/script/c57831349.lua @@ -0,0 +1,45 @@ +--竜星の九支 +function c57831349.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_NEGATE+CATEGORY_TODECK+CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_CHAINING) + e1:SetCondition(c57831349.condition) + e1:SetTarget(c57831349.target) + e1:SetOperation(c57831349.activate) + c:RegisterEffect(e1) +end +function c57831349.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0x9e) +end +function c57831349.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c57831349.cfilter,tp,LOCATION_ONFIELD,0,1,nil) + and (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev) +end +function c57831349.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_TODECK,eg,1,0,0) + end +end +function c57831349.desfilter(c) + return c:IsFaceup() and c:IsSetCard(0x9e) +end +function c57831349.activate(e,tp,eg,ep,ev,re,r,rp) + local ec=re:GetHandler() + Duel.NegateActivation(ev) + if ec:IsRelateToEffect(re) then + ec:CancelToGrave() + if Duel.SendtoDeck(ec,nil,2,REASON_EFFECT)~=0 and ec:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then + local g=Duel.GetMatchingGroup(c57831349.desfilter,tp,LOCATION_ONFIELD,0,e:GetHandler()) + if g:GetCount()>0 then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local sg=g:Select(tp,1,1,nil) + Duel.Destroy(sg,REASON_EFFECT) + end + end + end +end diff --git a/script/c57836546.lua b/script/c57836546.lua index f19a1359..bd904e10 100644 --- a/script/c57836546.lua +++ b/script/c57836546.lua @@ -24,7 +24,8 @@ function c57836546.filter2(c,e,tp,atk) end function c57836546.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c57836546.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp,Duel.GetTurnCount()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g1=Duel.SelectTarget(tp,c57836546.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,Duel.GetTurnCount()) @@ -34,6 +35,7 @@ function c57836546.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,2,0,0) end function c57836546.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()~=2 or Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local fid=e:GetHandler():GetFieldID() diff --git a/script/c57882509.lua b/script/c57882509.lua index 14d4c99f..071b79a4 100644 --- a/script/c57882509.lua +++ b/script/c57882509.lua @@ -4,18 +4,25 @@ function c57882509.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetCategory(CATEGORY_ATKCHANGE) e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_BE_BATTLE_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) + e1:SetHintTiming(TIMING_DAMAGE_STEP) + e1:SetCondition(c57882509.condition) e1:SetTarget(c57882509.target) e1:SetOperation(c57882509.activate) c:RegisterEffect(e1) end -function c57882509.target(e,tp,eg,ep,ev,re,r,rp,chk) +function c57882509.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() +end +function c57882509.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local tc=Duel.GetAttacker() - if chk==0 then return tc:IsOnField() end - tc:CreateEffectRelation(e) + if chkc then return chkc==tc end + if chk==0 then return tc and tc:IsOnField() and tc:IsCanBeEffectTarget(e) end + Duel.SetTargetCard(tc) end function c57882509.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetAttacker() + local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c5795980.lua b/script/c5795980.lua index ac1c9458..2214ff88 100644 --- a/script/c5795980.lua +++ b/script/c5795980.lua @@ -99,7 +99,7 @@ function c5795980.atcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) end function c5795980.attg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) end + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,562) local rc=Duel.AnnounceAttribute(tp,1,0xffff) e:SetLabel(rc) diff --git a/script/c5796.lua b/script/c5796.lua deleted file mode 100644 index e171e490..00000000 --- a/script/c5796.lua +++ /dev/null @@ -1,71 +0,0 @@ ---ＤＤＤ怒濤壊薙王カエサル・ラグナロク -function c5796.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsSetCard,0x10af),2,true) - --tohand - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c5796.condition) - e1:SetTarget(c5796.target) - e1:SetOperation(c5796.operation) - c:RegisterEffect(e1) -end -function c5796.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return (Duel.GetAttacker()==c or Duel.GetAttackTarget()==c) -end -function c5796.thfilter(c) - return c:IsFaceup() and (c:IsSetCard(0xaf) or c:IsSetCard(0xae)) and c:IsAbleToHand() -end -function c5796.eqfilter(c) - return c:IsFaceup() and c:IsAbleToChangeControler() -end -function c5796.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingTarget(c5796.thfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) - and Duel.IsExistingMatchingCard(c5796.eqfilter,tp,0,LOCATION_MZONE,1,e:GetHandler():GetBattleTarget()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g1=Duel.SelectTarget(tp,c5796.thfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g1,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,1-tp,LOCATION_MZONE) -end -function c5796.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 then - Duel.ConfirmCards(1-tp,tc) - local g=Duel.GetMatchingGroup(c5796.eqfilter,tp,0,LOCATION_MZONE,c:GetBattleTarget()) - if c:IsFaceup() and c:IsRelateToEffect(e) and g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local ec=g:Select(tp,1,1,nil):GetFirst() - local atk=ec:GetTextAttack() - if atk<0 then atk=0 end - if not Duel.Equip(tp,ec,c,false) then return end - --Add Equip limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c5796.eqlimit) - ec:RegisterEffect(e1) - if atk>0 then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(atk) - ec:RegisterEffect(e2) - end - end - end -end -function c5796.eqlimit(e,c) - return e:GetOwner()==c -end diff --git a/script/c57962537.lua b/script/c57962537.lua index 6843d910..67db38aa 100644 --- a/script/c57962537.lua +++ b/script/c57962537.lua @@ -31,7 +31,7 @@ function c57962537.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) and c:IsControler(tp) and tc:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c5797.lua b/script/c5797.lua deleted file mode 100644 index 29aad227..00000000 --- a/script/c5797.lua +++ /dev/null @@ -1,93 +0,0 @@ ---ＤＤＤ双暁王カリ・ユガ -function c5797.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0xaf),8,2) - c:EnableReviveLimit() - --summon success - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetOperation(c5797.sumsuc) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(5797,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetCountLimit(1) - e2:SetCost(c5797.cost) - e2:SetTarget(c5797.destg) - e2:SetOperation(c5797.desop) - c:RegisterEffect(e2) - --set - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(5797,1)) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c5797.cost) - e3:SetTarget(c5797.settg) - e3:SetOperation(c5797.setop) - c:RegisterEffect(e3) -end -function c5797.sumsuc(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetSummonType()~=SUMMON_TYPE_XYZ then return end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,1) - e1:SetValue(c5797.aclimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_DISABLE) - e2:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD) - e2:SetTarget(c5797.disable) - e2:SetReset(RESET_PHASE+RESET_END) - Duel.RegisterEffect(e2,tp) -end -function c5797.aclimit(e,re,tp) - return re:GetHandler():IsOnField() and e:GetHandler()~=re:GetHandler() -end -function c5797.disable(e,c) - return c~=e:GetHandler() and (not c:IsType(TYPE_MONSTER) or (c:IsType(TYPE_EFFECT) or bit.band(c:GetOriginalType(),TYPE_EFFECT)==TYPE_EFFECT)) -end -function c5797.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c5797.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c5797.destg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(c5797.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - local sg=Duel.GetMatchingGroup(c5797.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c5797.desop(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c5797.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - Duel.Destroy(sg,REASON_EFFECT) -end -function c5797.setfilter(c) - return c:IsSetCard(0xae) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable() -end -function c5797.settg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c5797.setfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5797.setfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) - local g=Duel.SelectTarget(tp,c5797.setfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) -end -function c5797.setop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsSSetable() then - Duel.SSet(tp,tc) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c5798.lua b/script/c5798.lua deleted file mode 100644 index 50900504..00000000 --- a/script/c5798.lua +++ /dev/null @@ -1,38 +0,0 @@ ---ケンタウルス -function c5798.initial_effect(c) - --atk up - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) - e1:SetCountLimit(1) - e1:SetCondition(c5798.condition) - e1:SetTarget(c5798.target) - e1:SetOperation(c5798.operation) - c:RegisterEffect(e1) -end -function c5798.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()~=nil -end -function c5798.tgfilter(c) - return c:IsRace(RACE_BEAST+RACE_BEASTWARRIOR+RACE_WINDBEAST) and c:IsAbleToGrave() -end -function c5798.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5798.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c5798.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c5798.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil) - local tc=g:GetFirst() - if tc and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE) - and c:IsRelateToBattle() and c:IsFaceup() then - local lv=tc:GetLevel() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(lv*100) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - c:RegisterEffect(e1) - end -end diff --git a/script/c5799.lua b/script/c5799.lua deleted file mode 100644 index aa858be3..00000000 --- a/script/c5799.lua +++ /dev/null @@ -1,43 +0,0 @@ ---ダイナソーイング -function c5799.initial_effect(c) - --ind - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - c:RegisterEffect(e1) - --atk/def up - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_BE_BATTLE_TARGET) - e2:SetOperation(c5799.operation) - c:RegisterEffect(e2) - --atk clear - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_BATTLED) - e3:SetCondition(c5799.retcon) - e3:SetOperation(c5799.retop) - c:RegisterEffect(e3) -end -function c5799.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(1000) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) - end -end -function c5799.retcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker()==e:GetHandler() -end -function c5799.retop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():ResetEffect(RESET_DISABLE,RESET_EVENT) -end diff --git a/script/c57996334.lua b/script/c57996334.lua index e9649644..7201e77f 100644 --- a/script/c57996334.lua +++ b/script/c57996334.lua @@ -54,6 +54,6 @@ end function c57996334.sumop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c5800.lua b/script/c5800.lua deleted file mode 100644 index 995329c9..00000000 --- a/script/c5800.lua +++ /dev/null @@ -1,43 +0,0 @@ ---たつの父 -function c5800.initial_effect(c) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c5800.splimit) - c:RegisterEffect(e1) - --token - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_MZONE) - e4:SetCountLimit(3,5800) - e4:SetTarget(c5800.sptg) - e4:SetOperation(c5800.spop) - c:RegisterEffect(e4) -end -function c5800.splimit(e,se,sp,st) - return se:IsActiveType(TYPE_MONSTER) and se:GetHandler():IsRace(RACE_WYRM) -end -function c5800.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,5801,0,0x4011,300,200,1,RACE_WYRM,ATTRIBUTE_WATER) end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) -end -function c5800.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFacedown() or not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) or c:GetLevel()<2 then return end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(-1) - c:RegisterEffect(e1) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,5801,0,0x4011,300,200,1,RACE_WYRM,ATTRIBUTE_WATER) then - local token=Duel.CreateToken(tp,5801) - Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c58012107.lua b/script/c58012107.lua index 778e2124..464d69a4 100644 --- a/script/c58012107.lua +++ b/script/c58012107.lua @@ -1,6 +1,6 @@ --エーリアン・サイコ function c58012107.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(58012107,0)) e1:SetCategory(CATEGORY_POSITION) @@ -28,9 +28,9 @@ end function c58012107.poop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsAttackPos() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c58012107.atktg(e,c) - return c:GetCounter(0xe)>0 + return c:GetCounter(0x100e)>0 end diff --git a/script/c58016954.lua b/script/c58016954.lua index 6d746caa..2db3d2b9 100644 --- a/script/c58016954.lua +++ b/script/c58016954.lua @@ -7,10 +7,9 @@ function c58016954.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_PZONE) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetTargetRange(1,0) e2:SetTarget(c58016954.splimit) - e2:SetCondition(aux.nfbdncon) c:RegisterEffect(e2) --spsummon local e3=Effect.CreateEffect(c) diff --git a/script/c5802.lua b/script/c5802.lua deleted file mode 100644 index a0f5424f..00000000 --- a/script/c5802.lua +++ /dev/null @@ -1,99 +0,0 @@ ---旧神ヌトス -function c5802.initial_effect(c) - c:SetSPSummonOnce(5802) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsType,TYPE_SYNCHRO),aux.FilterBoolFunction(Card.IsType,TYPE_XYZ),false) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c5802.splimit) - c:RegisterEffect(e1) - --special summon rule - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_EXTRA) - e2:SetCondition(c5802.spcon) - e2:SetOperation(c5802.spop) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c5802.sumtg) - e3:SetOperation(c5802.sumop) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e4:SetCondition(c5802.descon) - e4:SetTarget(c5802.destg) - e4:SetOperation(c5802.desop) - c:RegisterEffect(e4) -end -function c5802.splimit(e,se,sp,st) - return not e:GetHandler():IsLocation(LOCATION_EXTRA) -end -function c5802.spfilter1(c,tp) - return c:IsType(TYPE_SYNCHRO) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial() - and Duel.IsExistingMatchingCard(c5802.spfilter2,tp,LOCATION_MZONE,0,1,c) -end -function c5802.spfilter2(c) - return c:IsType(TYPE_XYZ) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial() -end -function c5802.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 - and Duel.IsExistingMatchingCard(c5802.spfilter1,tp,LOCATION_MZONE,0,1,nil,tp) -end -function c5802.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,c5802.spfilter1,tp,LOCATION_MZONE,0,1,1,nil,tp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g2=Duel.SelectMatchingCard(tp,c5802.spfilter2,tp,LOCATION_MZONE,0,1,1,g1:GetFirst()) - g1:Merge(g2) - c:SetMaterial(g1) - Duel.SendtoGrave(g1,REASON_COST) -end -function c5802.sumfilter(c,e,tp) - return c:GetLevel()==4 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5802.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5802.sumfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_HAND) -end -function c5802.sumop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5802.sumfilter,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 -function c5802.descon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsReason(REASON_RETURN) -end -function c5802.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c5802.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c5803.lua b/script/c5803.lua deleted file mode 100644 index 86c40a38..00000000 --- a/script/c5803.lua +++ /dev/null @@ -1,116 +0,0 @@ ---ドリームランド -function c5803.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,5803) - c:RegisterEffect(e1) - --draw - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(5803,0)) - e2:SetCategory(CATEGORY_DRAW) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetRange(LOCATION_FZONE) - e2:SetCountLimit(1) - e2:SetCondition(c5803.drcon) - e2:SetTarget(c5803.drtg) - e2:SetOperation(c5803.drop) - c:RegisterEffect(e2) - --lv - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(5803,1)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetRange(LOCATION_FZONE) - e3:SetCondition(c5803.lvcon) - e3:SetTarget(c5803.lvtg) - e3:SetOperation(c5803.lvop) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e4) - --destroy - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(5803,2)) - e5:SetCategory(CATEGORY_DESTROY) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e5:SetRange(LOCATION_FZONE) - e5:SetCode(EVENT_PHASE+PHASE_END) - e5:SetCountLimit(1) - e5:SetCondition(c5803.descon) - e5:SetTarget(c5803.destg) - e5:SetOperation(c5803.desop) - c:RegisterEffect(e5) -end -function c5803.cfilter(c,type) - return c:IsFaceup() and c:IsType(type) -end -function c5803.drcfilter() - return c:IsPreviousLocation(LOCATION_HAND+LOCATION_MZONE) and c:IsType(TYPE_MONSTER) and c:IsReason(REASON_EFFECT) -end -function c5803.drcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c5803.cfilter,tp,LOCATION_MZONE,0,1,nil,TYPE_FUSION) - and eg:IsExists(c5803.drcfilter,1,nil) -end -function c5803.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) -end -function c5803.drop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end -function c5803.lvcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c5803.cfilter,tp,LOCATION_MZONE,0,1,nil,TYPE_SYNCHRO) -end -function c5803.lvfilter(c) - return c:IsFaceup() and c:GetLevel()>0 -end -function c5803.lvtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c5803.lvfilter,1,nil) end - Duel.SetTargetCard(eg) - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) -end -function c5803.lvop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=eg:Filter(c5803.lvfilter,nil):Filter(Card.IsRelateToEffect,nil,e) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(1) - tc:RegisterEffect(e1) - tc=g:GetNext() - end -end -function c5803.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c5803.cfilter,tp,LOCATION_MZONE,0,1,nil,TYPE_XYZ) - and Duel.GetTurnPlayer()==tp -end -function c5803.desfilter(c,lv) - return c:IsFaceup() and c:GetLevel()==lv and c:GetLevel()>0 and c:IsDestructable() -end -function c5803.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g,lv=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil):GetMaxGroup(Card.GetLevel) - local dg=Duel.GetMatchingGroup(c5803.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,lv) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,dg:GetCount(),0,0) - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) -end -function c5803.desop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g,lv=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil):GetMaxGroup(Card.GetLevel) - local dg=Duel.GetMatchingGroup(c5803.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,lv) - if dg:GetCount()>0 then - Duel.Destroy(dg,REASON_EFFECT) - end -end diff --git a/script/c5804.lua b/script/c5804.lua deleted file mode 100644 index e3e39416..00000000 --- a/script/c5804.lua +++ /dev/null @@ -1,56 +0,0 @@ ---オッドアイズ・メテオバースト・ドラゴン -function c5804.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCountLimit(1,5804) - e1:SetTarget(c5804.sptg) - e1:SetOperation(c5804.spop) - c:RegisterEffect(e1) - --activate limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EFFECT_CANNOT_ACTIVATE) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,1) - e2:SetCondition(c5804.condition) - e2:SetValue(c5804.aclimit) - c:RegisterEffect(e2) -end -function c5804.filter(c,e,tp) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5804.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and c5804.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5804.filter,tp,LOCATION_SZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5804.filter,tp,LOCATION_SZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c5804.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end -end -function c5804.condition(e) - local ph=Duel.GetCurrentPhase() - return ph==PHASE_BATTLE or ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL -end -function c5804.aclimit(e,re,tp) - return re:IsActiveType(TYPE_MONSTER) -end diff --git a/script/c58054262.lua b/script/c58054262.lua index 2ec12c9c..d8172c61 100644 --- a/script/c58054262.lua +++ b/script/c58054262.lua @@ -41,7 +41,8 @@ function c58054262.filter(c,code,e,tp) end function c58054262.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>=2 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>=2 and Duel.IsExistingTarget(c58054262.filter,tp,LOCATION_GRAVE,0,1,nil,60999392,e,tp) and Duel.IsExistingTarget(c58054262.filter,tp,LOCATION_GRAVE,0,1,nil,23782705,e,tp) and Duel.IsExistingTarget(c58054262.filter,tp,LOCATION_GRAVE,0,1,nil,96384007,e,tp) @@ -57,6 +58,7 @@ function c58054262.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,3,0,0) end function c58054262.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<3 then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) if g:FilterCount(Card.IsRelateToEffect,nil,e)~=3 then return end diff --git a/script/c58055134.lua b/script/c58055134.lua deleted file mode 100644 index 69606300..00000000 --- a/script/c58055134.lua +++ /dev/null @@ -1,53 +0,0 @@ ---シャイニート·マジシャン -function c58055134.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,1),2) - c:EnableReviveLimit() - --battle indes - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT) - e1:SetCountLimit(1) - e1:SetValue(c58055134.valcon) - c:RegisterEffect(e1) - --negate - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(58055134,0)) - e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_CHAINING) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c58055134.negcon) - e2:SetCost(c58055134.negcost) - e2:SetTarget(c58055134.negtg) - e2:SetOperation(c58055134.negop) - c:RegisterEffect(e2) -end -function c58055134.valcon(e,re,r,rp) - return bit.band(r,REASON_BATTLE)~=0 -end -function c58055134.negcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end - local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) - return g and g:IsContains(c) -end -function c58055134.negcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c58055134.negtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsRelateToEffect(re) and re:GetHandler():IsDestructable() then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c58055134.negop(e,tp,eg,ep,ev,re,r,rp) - if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(re:GetHandler(),REASON_EFFECT) - end -end diff --git a/script/c58058134.lua b/script/c58058134.lua index 00bf0fe1..aded9b0f 100644 --- a/script/c58058134.lua +++ b/script/c58058134.lua @@ -16,7 +16,7 @@ function c58058134.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(58058134,0)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetRange(LOCATION_MZONE) diff --git a/script/c5806.lua b/script/c5806.lua deleted file mode 100644 index fa14748e..00000000 --- a/script/c5806.lua +++ /dev/null @@ -1,52 +0,0 @@ ---ＥＭドクロバット・ジョーカー -function c5806.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --splimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_PZONE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) - e2:SetTargetRange(1,0) - e2:SetCondition(c5806.splimcon) - e2:SetTarget(c5806.splimit) - c:RegisterEffect(e2) - --search - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetTarget(c5806.thtg) - e3:SetOperation(c5806.thop) - c:RegisterEffect(e3) -end -function c5806.filter(c) - return c:IsSetCard(0x9f) or (c:IsSetCard(0x98) and c:IsType(TYPE_PENDULUM)) or c:IsSetCard(0x99) -end -function c5806.splimcon(e) - return not e:GetHandler():IsForbidden() -end -function c5806.splimit(e,c,tp,sumtp,sumpos) - return not c5806.filter(c) and bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM -end -function c5806.thfilter(c) - return c5806.filter(c) and not c:IsCode(5806) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c5806.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5806.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5806.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5806.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c5807.lua b/script/c5807.lua deleted file mode 100644 index 4b6a7aa8..00000000 --- a/script/c5807.lua +++ /dev/null @@ -1,62 +0,0 @@ ---ペンデュラム・コール -function c5807.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,5807+EFFECT_COUNT_CODE_OATH) - e1:SetCondition(c5807.condition) - e1:SetCost(c5807.cost) - e1:SetTarget(c5807.target) - e1:SetOperation(c5807.activate) - c:RegisterEffect(e1) - Duel.AddCustomActivityCounter(5807,ACTIVITY_CHAIN,c5807.chainfilter) -end -function c5807.chainfilter(re,tp,cid) - local rc=re:GetHandler() - return not (re:IsActiveType(TYPE_SPELL) and not re:IsHasType(EFFECT_TYPE_ACTIVATE) - and (rc:GetSequence()==6 or rc:GetSequence()==7) and rc:IsSetCard(0x98)) -end -function c5807.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCustomActivityCount(5807,tp,ACTIVITY_CHAIN)==0 -end -function c5807.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c5807.thfilter(c) - return c:IsSetCard(0x98) and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand() -end -function c5807.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local g=Duel.GetMatchingGroup(c5807.thfilter,tp,LOCATION_DECK,0,nil) - return g:GetClassCount(Card.GetCode)>=2 - end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_DECK) -end -function c5807.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c5807.thfilter,tp,LOCATION_DECK,0,nil) - if g:GetCount()>=2 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g1=g:Select(tp,1,1,nil) - g:Remove(Card.IsCode,nil,g1:GetFirst():GetCode()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g2=g:Select(tp,1,1,nil) - g:Remove(Card.IsCode,nil,g2:GetFirst():GetCode()) - g1:Merge(g2) - Duel.SendtoHand(g1,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g1) - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e1:SetTargetRange(LOCATION_SZONE,0) - e1:SetTarget(c5807.indtg) - e1:SetValue(1) - e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN) - Duel.RegisterEffect(e1,tp) -end -function c5807.indtg(e,c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsSetCard(0x98) -end diff --git a/script/c58071123.lua b/script/c58071123.lua index 340cc905..62752015 100644 --- a/script/c58071123.lua +++ b/script/c58071123.lua @@ -19,6 +19,7 @@ function c58071123.damtg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,800) end function c58071123.damop(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(tp,800,REASON_EFFECT) - Duel.Damage(1-tp,800,REASON_EFFECT) + Duel.Damage(tp,800,REASON_EFFECT,true) + Duel.Damage(1-tp,800,REASON_EFFECT,true) + Duel.RDComplete() end diff --git a/script/c5808.lua b/script/c5808.lua deleted file mode 100644 index f0b7467b..00000000 --- a/script/c5808.lua +++ /dev/null @@ -1,60 +0,0 @@ ---天空の虹彩 -function c5808.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --cannot be target - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e2:SetRange(LOCATION_FZONE) - e2:SetTargetRange(LOCATION_SZONE,0) - e2:SetTarget(c5808.tgtg) - e2:SetValue(aux.tgoval) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_FZONE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1,5808) - e3:SetTarget(c5808.destg) - e3:SetOperation(c5808.desop) - c:RegisterEffect(e3) -end -function c5808.tgtg(e,c) - return (c:IsSetCard(0x98) or c:IsSetCard(0x9f) or c:IsSetCard(0x99)) - and (c:GetSequence()==6 or c:GetSequence()==7) -end -function c5808.desfilter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c5808.thfilter(c) - return c:IsSetCard(0x99) and c:IsAbleToHand() -end -function c5808.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c5808.desfilter(chkc) and chkc~=e:GetHandler() end - if chk==0 then return Duel.IsExistingTarget(c5808.desfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) - and Duel.IsExistingMatchingCard(c5808.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c5808.desfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5808.desop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5808.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end - end -end diff --git a/script/c5809.lua b/script/c5809.lua deleted file mode 100644 index eac5d171..00000000 --- a/script/c5809.lua +++ /dev/null @@ -1,121 +0,0 @@ ---超重武者ヌス－１０ -function c5809.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c5809.hspcon) - e1:SetValue(1) - c:RegisterEffect(e1) - --spsummon limit - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c5809.hspcon2) - e2:SetOperation(c5809.hspop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c5809.descost) - e3:SetTarget(c5809.destg) - e3:SetOperation(c5809.desop) - c:RegisterEffect(e3) -end -function c5809.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) -end -function c5809.hspcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and not Duel.IsExistingMatchingCard(c5809.filter,tp,LOCATION_GRAVE,0,1,nil) -end -function c5809.hspcon2(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 -end -function c5809.hspop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetTarget(c5809.splimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c5809.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return not c:IsSetCard(0x9a) -end -function c5809.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c5809.desfilter1(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:GetSequence()<5 and c:IsDestructable() -end -function c5809.desfilter2(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() -end -function c5809.destg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then - local sel=0 - if Duel.IsExistingMatchingCard(c5809.desfilter1,tp,0,LOCATION_SZONE,1,nil) then sel=sel+1 end - if Duel.IsExistingMatchingCard(c5809.desfilter2,tp,0,LOCATION_SZONE,1,nil) then sel=sel+2 end - e:SetLabel(sel) - return sel~=0 - end - local sel=e:GetLabel() - if sel==3 then - sel=Duel.SelectOption(tp,aux.Stringid(5809,0),aux.Stringid(5809,1))+1 - elseif sel==1 then - Duel.SelectOption(tp,aux.Stringid(5809,0)) - else - Duel.SelectOption(tp,aux.Stringid(5809,1)) - end - e:SetLabel(sel) - if sel==0 then - local g=Duel.GetMatchingGroup(c5809.desfilter1,tp,0,LOCATION_SZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - else - local g=Duel.GetMatchingGroup(c5809.desfilter2,tp,0,LOCATION_SZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - end -end -function c5809.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local sel=e:GetLabel() - if sel==1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,c5809.desfilter1,tp,0,LOCATION_SZONE,1,1,nil) - if g:GetCount()>0 then - Duel.HintSelection(g) - Duel.Destroy(g,REASON_EFFECT) - local tc=g:GetFirst() - if Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and tc:IsType(TYPE_SPELL+TYPE_TRAP) - and not tc:IsLocation(LOCATION_HAND+LOCATION_DECK) - and tc:IsSSetable(true) and Duel.SelectYesNo(tp,aux.Stringid(5809,2)) then - Duel.SSet(tp,tc) - Duel.ConfirmCards(1-tp,tc) - end - end - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,c5809.desfilter2,tp,0,LOCATION_SZONE,1,1,nil) - if g:GetCount()>0 then - Duel.HintSelection(g) - Duel.Destroy(g,REASON_EFFECT) - local tc=g:GetFirst() - if (Duel.CheckLocation(tp,LOCATION_SZONE,6) or Duel.CheckLocation(tp,LOCATION_SZONE,7)) - and not tc:IsLocation(LOCATION_HAND+LOCATION_DECK) and Duel.SelectYesNo(tp,aux.Stringid(5809,3)) then - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - end - end - end -end diff --git a/script/c5810.lua b/script/c5810.lua deleted file mode 100644 index 58166364..00000000 --- a/script/c5810.lua +++ /dev/null @@ -1,84 +0,0 @@ ---超重武者ヒキャ－Ｑ -function c5810.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c5810.hspcon) - e1:SetValue(1) - c:RegisterEffect(e1) - --spsummon limit - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c5810.hspcon2) - e2:SetOperation(c5810.hspop) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c5810.spcon) - e3:SetCost(c5810.spcost) - e3:SetTarget(c5810.sptg) - e3:SetOperation(c5810.spop) - c:RegisterEffect(e3) -end -function c5810.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) -end -function c5810.hspcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and not Duel.IsExistingMatchingCard(c5810.filter,tp,LOCATION_GRAVE,0,1,nil) -end -function c5810.hspcon2(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 -end -function c5810.hspop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetTarget(c5810.splimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c5810.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return not c:IsSetCard(0x9a) -end -function c5810.spcon(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c5810.filter,tp,LOCATION_GRAVE,0,1,nil) -end -function c5810.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c5810.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENCE,1-tp) -end -function c5810.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanDraw(tp,1) - and Duel.IsExistingMatchingCard(c5810.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c5810.spop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c5810.spfilter,tp,LOCATION_HAND,0,nil,e,tp) - if g:GetCount()<=0 then return end - local ct=1 - if g:GetCount()>=2 and Duel.IsPlayerCanDraw(tp,2) then ct=2 end - local sg=g:Select(tp,1,ct,nil) - local cnt=Duel.SpecialSummon(sg,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) - if cnt>0 then - Duel.BreakEffect() - Duel.Draw(tp,cnt,REASON_EFFECT) - end -end diff --git a/script/c581014.lua b/script/c581014.lua index ef4c46a1..af5361ad 100644 --- a/script/c581014.lua +++ b/script/c581014.lua @@ -55,16 +55,17 @@ function c581014.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local g=Duel.SelectTarget(tp,c581014.filter2,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) end -function c581014.tgfilter(c,e) - return not c:IsRelateToEffect(e) -end function c581014.operation1(e,tp,eg,ep,ev,re,r,rp) local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - if tg:IsExists(c581014.tgfilter,1,nil,e) then return end + if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=3 then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) - Duel.ShuffleDeck(tp) - Duel.BreakEffect() - Duel.Draw(tp,1,REASON_EFFECT) + local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end + local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) + if ct==3 then + Duel.BreakEffect() + Duel.Draw(tp,1,REASON_EFFECT) + end end function c581014.operation2(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() diff --git a/script/c5811.lua b/script/c5811.lua deleted file mode 100644 index 19959f5b..00000000 --- a/script/c5811.lua +++ /dev/null @@ -1,120 +0,0 @@ ---誤封の契約書 -function c5811.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c5811.target) - c:RegisterEffect(e1) - --disable - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(5811,0)) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetCountLimit(1) - e2:SetCost(c5811.regcost) - e2:SetOperation(c5811.regop) - c:RegisterEffect(e2) - --damage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(5811,1)) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_PHASE+PHASE_STANDBY) - e3:SetRange(LOCATION_SZONE) - e3:SetCountLimit(1) - e3:SetCondition(c5811.damcon) - e3:SetCost(c5811.damcost) - e3:SetTarget(c5811.damtg) - e3:SetOperation(c5811.damop) - c:RegisterEffect(e3) -end -function c5811.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local b2=Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_STANDBY - if Duel.SelectYesNo(tp,aux.Stringid(5811,2)) then - local op=0 - if b2 then op=Duel.SelectOption(tp,aux.Stringid(5811,0),aux.Stringid(5811,1)) - else op=Duel.SelectOption(tp,aux.Stringid(5811,0)) end - if op==0 then - e:GetHandler():RegisterFlagEffect(5811,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - e:GetHandler():RegisterFlagEffect(0,RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(5811,3)) - e:SetOperation(c5811.regop) - else - e:GetHandler():RegisterFlagEffect(6811,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - e:GetHandler():RegisterFlagEffect(0,RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(5811,4)) - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,0,0,tp,1000) - e:SetOperation(c5811.damop) - end - else - e:SetOperation(0) - end -end -function c5811.regcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(5811)==0 end - e:GetHandler():RegisterFlagEffect(5811,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c5811.regop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local fid=c:GetFieldID() - --disable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_DISABLE) - e1:SetRange(LOCATION_SZONE) - e1:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE) - e1:SetTarget(c5811.distarget) - e1:SetLabel(fid) - e1:SetReset(RESET_PHASE+RESET_END) - Duel.RegisterEffect(e1,tp) - --disable effect - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_CHAIN_SOLVING) - e2:SetRange(LOCATION_SZONE) - e2:SetOperation(c5811.disop) - e2:SetLabel(fid) - e2:SetReset(RESET_PHASE+RESET_END) - Duel.RegisterEffect(e2,tp) - --disable trap monster - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_DISABLE_TRAPMONSTER) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e3:SetTarget(c5811.distarget) - e3:SetLabel(fid) - e3:SetReset(RESET_PHASE+RESET_END) - Duel.RegisterEffect(e3,tp) -end -function c5811.distarget(e,c) - return c:GetFieldID()~=e:GetLabel() and c:IsType(TYPE_TRAP) and c:IsStatus(STATUS_ACTIVATED) -end -function c5811.disop(e,tp,eg,ep,ev,re,r,rp) - local tl=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) - if tl==LOCATION_SZONE and re:IsActiveType(TYPE_TRAP) and re:GetHandler():GetFieldID()~=e:GetLabel() then - Duel.NegateEffect(ev) - end -end -function c5811.damcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c5811.damcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(6811)==0 end - e:GetHandler():RegisterFlagEffect(6811,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c5811.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,0,0,tp,1000) -end -function c5811.damop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c5812.lua b/script/c5812.lua deleted file mode 100644 index fbb5fa4e..00000000 --- a/script/c5812.lua +++ /dev/null @@ -1,68 +0,0 @@ ---オッドアイズ・ボルテックス・ドラゴン -function c5812.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsSetCard,0x99),aux.FilterBoolFunction(Card.IsType,TYPE_PENDULUM),false) - --tohand - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCountLimit(1,5812) - e1:SetTarget(c5812.thtg) - e1:SetOperation(c5812.thop) - c:RegisterEffect(e1) - --negate - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_CHAINING) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1,6812) - e2:SetCondition(c5812.discon) - e2:SetTarget(c5812.distg) - e2:SetOperation(c5812.disop) - c:RegisterEffect(e2) -end -function c5812.filter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:IsAbleToHand() -end -function c5812.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c5812.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5812.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c5812.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c5812.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end -end -function c5812.discon(e,tp,eg,ep,ev,re,r,rp) - return re:GetHandler()~=e:GetHandler() and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) -end -function c5812.tdfilter(c) - return c:IsType(TYPE_PENDULUM) and c:IsFaceup() and c:IsAbleToDeck() -end -function c5812.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5812.tdfilter,tp,LOCATION_EXTRA,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,1-tp,LOCATION_EXTRA) - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c5812.disop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectMatchingCard(tp,c5812.tdfilter,tp,LOCATION_EXTRA,0,1,1,nil) - if g:GetCount()>0 and Duel.SendtoDeck(g,nil,2,REASON_EFFECT)~=0 then - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end - end -end diff --git a/script/c5813.lua b/script/c5813.lua deleted file mode 100644 index 57e22ec0..00000000 --- a/script/c5813.lua +++ /dev/null @@ -1,120 +0,0 @@ ---ＥＭマンモスプラッシュ -function c5813.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetRange(LOCATION_PZONE) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCountLimit(1) - e2:SetCondition(c5813.spcon) - e2:SetTarget(c5813.sptg) - e2:SetOperation(c5813.spop) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1,5813+EFFECT_COUNT_CODE_DUEL) - e3:SetTarget(c5813.target) - e3:SetOperation(c5813.operation) - c:RegisterEffect(e3) -end -function c5813.cfilter(c,tp) - return c:IsFaceup() and c:IsType(TYPE_FUSION) and c:IsControler(tp) -end -function c5813.spcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c5813.cfilter,1,nil,tp) -end -function c5813.spfilter(c,e,tp) - return c:IsFaceup() and c:IsSetCard(0x99) and c:IsType(TYPE_PENDULUM) - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5813.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5813.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c5813.spop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5813.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end -function c5813.filter1(c,e) - return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) -end -function c5813.filter2(c,e,tp,m,f,chkf) - return c:IsType(TYPE_FUSION) and c:IsRace(RACE_DRAGON) and (not f or f(c)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) -end -function c5813.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_MZONE,0,nil) - local res=Duel.IsExistingMatchingCard(c5813.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - res=Duel.IsExistingMatchingCard(c5813.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c5813.operation(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c5813.filter1,tp,LOCATION_MZONE,0,nil,e) - local sg1=Duel.GetMatchingGroup(c5813.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - sg2=Duel.GetMatchingGroup(c5813.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end - end -end diff --git a/script/c58132856.lua b/script/c58132856.lua index 602577d4..c50f5c3b 100644 --- a/script/c58132856.lua +++ b/script/c58132856.lua @@ -52,7 +52,7 @@ function c58132856.cfilter(c) return c:IsFaceup() and c:IsCode(58132856) end function c58132856.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c58132856.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c58139128.lua b/script/c58139128.lua index 44401b4d..c06888e5 100644 --- a/script/c58139128.lua +++ b/script/c58139128.lua @@ -3,7 +3,7 @@ function c58139128.initial_effect(c) --def up local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e1:SetRange(LOCATION_MZONE) e1:SetValue(c58139128.defval) diff --git a/script/c5814.lua b/script/c5814.lua deleted file mode 100644 index 4fc5bdf9..00000000 --- a/script/c5814.lua +++ /dev/null @@ -1,104 +0,0 @@ ---オッドアイズ・フュージョン -function c5814.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,5814+EFFECT_COUNT_CODE_OATH) - e1:SetTarget(c5814.target) - e1:SetOperation(c5814.activate) - c:RegisterEffect(e1) -end -function c5814.filter0(c) - return c:IsCanBeFusionMaterial() and c:IsAbleToGrave() -end -function c5814.filter1(c,e) - return c:IsCanBeFusionMaterial() and c:IsAbleToGrave() and not c:IsImmuneToEffect(e) -end -function c5814.exfilter0(c) - return c:IsSetCard(0x99) and c5814.filter0(c) -end -function c5814.exfilter1(c,e) - return c:IsSetCard(0x99) and c5814.filter1(c,e) -end -function c5814.filter2(c,e,tp,m,f,chkf) - local mg=m:Clone() - mg:RemoveCard(c) - if c:GetOriginalCode()==99267150 then - mg:Remove(Card.IsLocation,nil,LOCATION_EXTRA) - end - return c:IsType(TYPE_FUSION) and c:IsRace(RACE_DRAGON) and (not f or f(c)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(mg,nil,chkf) -end -function c5814.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c5814.filter0,tp,LOCATION_HAND+LOCATION_MZONE,0,nil) - if Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 - and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>=2 then - local sg=Duel.GetMatchingGroup(c5814.exfilter0,tp,LOCATION_EXTRA,0,nil) - mg1:Merge(sg) - end - local res=Duel.IsExistingMatchingCard(c5814.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - res=Duel.IsExistingMatchingCard(c5814.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c5814.activate(e,tp,eg,ep,ev,re,r,rp) - local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp - local mg1=Duel.GetMatchingGroup(c5814.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) - if Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 - and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>=2 then - local sg=Duel.GetMatchingGroup(c5814.exfilter1,tp,LOCATION_EXTRA,0,nil,e) - mg1:Merge(sg) - end - local sg1=Duel.GetMatchingGroup(c5814.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - sg2=Duel.GetMatchingGroup(c5814.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - mg1:RemoveCard(tc) - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end - end -end diff --git a/script/c5815.lua b/script/c5815.lua deleted file mode 100644 index 1c7d7802..00000000 --- a/script/c5815.lua +++ /dev/null @@ -1,55 +0,0 @@ ---マジェスペクター・ラクーン -function c5815.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --search - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c5815.thtg) - e2:SetOperation(c5815.thop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - --cannot target - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetRange(LOCATION_MZONE) - e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e4:SetValue(aux.tgoval) - c:RegisterEffect(e4) - --indes - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e5:SetRange(LOCATION_MZONE) - e5:SetValue(c5815.indval) - c:RegisterEffect(e5) -end -function c5815.thfilter(c) - return c:IsSetCard(0xcf) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c5815.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5815.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5815.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5815.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end -function c5815.indval(e,re,tp) - return tp~=e:GetHandlerPlayer() -end diff --git a/script/c5816.lua b/script/c5816.lua deleted file mode 100644 index f775248b..00000000 --- a/script/c5816.lua +++ /dev/null @@ -1,60 +0,0 @@ ---マジェスペクター・キャット -function c5816.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --search - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c5816.regop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - --cannot target - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetRange(LOCATION_MZONE) - e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e4:SetValue(aux.tgoval) - c:RegisterEffect(e4) - --indes - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e5:SetRange(LOCATION_MZONE) - e5:SetValue(c5816.indval) - c:RegisterEffect(e5) -end -function c5816.thfilter(c) - return c:IsSetCard(0xcf) and c:IsAbleToHand() -end -function c5816.regop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetOperation(c5816.thop) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c5816.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_CARD,0,5816) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5816.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end -function c5816.indval(e,re,tp) - return tp~=e:GetHandlerPlayer() -end diff --git a/script/c5817.lua b/script/c5817.lua deleted file mode 100644 index 0a917286..00000000 --- a/script/c5817.lua +++ /dev/null @@ -1,34 +0,0 @@ ---マジェスペクター・ストーム -function c5817.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c5817.cost) - e1:SetTarget(c5817.target) - e1:SetOperation(c5817.activate) - c:RegisterEffect(e1) -end -function c5817.cfilter(c) - return c:IsRace(RACE_SPELLCASTER) and c:IsAttribute(ATTRIBUTE_WIND) -end -function c5817.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c5817.cfilter,1,nil) end - local rg=Duel.SelectReleaseGroup(tp,c5817.cfilter,1,1,nil) - Duel.Release(rg,REASON_COST) -end -function c5817.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsAbleToDeck() end - if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToDeck,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) -end -function c5817.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoDeck(tc,nil,2,REASON_EFFECT) - end -end diff --git a/script/c5817857.lua b/script/c5817857.lua index 0103a8f0..c1cd54d2 100644 --- a/script/c5817857.lua +++ b/script/c5817857.lua @@ -30,6 +30,8 @@ function c5817857.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_ZOMBIE) and not c:IsPublic() end function c5817857.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c5817857.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c5817857.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -39,8 +41,10 @@ function c5817857.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(5817857,0),aux.Stringid(5817857,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(5817857,1),aux.Stringid(5817857,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(5817857,1),aux.Stringid(5817857,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(5817857,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -52,7 +56,7 @@ function c5817857.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c5817857.rfilter(c) diff --git a/script/c5818.lua b/script/c5818.lua deleted file mode 100644 index 1467e313..00000000 --- a/script/c5818.lua +++ /dev/null @@ -1,34 +0,0 @@ ---マジェスペクター・トルネード -function c5818.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c5818.cost) - e1:SetTarget(c5818.target) - e1:SetOperation(c5818.activate) - c:RegisterEffect(e1) -end -function c5818.cfilter(c) - return c:IsRace(RACE_SPELLCASTER) and c:IsAttribute(ATTRIBUTE_WIND) -end -function c5818.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c5818.cfilter,1,nil) end - local rg=Duel.SelectReleaseGroup(tp,c5818.cfilter,1,1,nil) - Duel.Release(rg,REASON_COST) -end -function c5818.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end - if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c5818.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - end -end diff --git a/script/c58185394.lua b/script/c58185394.lua index 6381e0a9..9c9a5a71 100644 --- a/script/c58185394.lua +++ b/script/c58185394.lua @@ -1,4 +1,4 @@ ---Ｇ・コザッキー +--G・コザッキー function c58185394.initial_effect(c) --self destroy local e1=Effect.CreateEffect(c) diff --git a/script/c5820.lua b/script/c5820.lua deleted file mode 100644 index 658c27da..00000000 --- a/script/c5820.lua +++ /dev/null @@ -1,74 +0,0 @@ ---真閃珖竜 スターダスト・クロニクル -function c5820.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsType,TYPE_SYNCHRO),aux.NonTuner(Card.IsType,TYPE_SYNCHRO),1) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --immune - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCost(c5820.cost) - e2:SetOperation(c5820.operation) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_DESTROYED) - e3:SetCondition(c5820.spcon) - e3:SetTarget(c5820.sptg) - e3:SetOperation(c5820.spop) - c:RegisterEffect(e3) -end -function c5820.cfilter(c) - return c:IsType(TYPE_SYNCHRO) and c:IsAbleToRemoveAsCost() -end -function c5820.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5820.cfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c5820.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c5820.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_IMMUNE_EFFECT) - e1:SetValue(c5820.efilter) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - c:RegisterEffect(e1) - end -end -function c5820.efilter(e,re) - return e:GetHandler()~=re:GetOwner() -end -function c5820.spcon(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and e:GetHandler():GetPreviousControler()==tp -end -function c5820.spfilter(c) - return c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5820.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_REMOVED) and c5820.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5820.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5820.spfilter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c5820.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c5821.lua b/script/c5821.lua deleted file mode 100644 index 86e92250..00000000 --- a/script/c5821.lua +++ /dev/null @@ -1,34 +0,0 @@ ---d҃cd|R -function c5821.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(5821,1)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCountLimit(1,5821) - e1:SetCondition(c5821.spcon) - e1:SetTarget(c5821.sptg) - e1:SetOperation(c5821.spop) - c:RegisterEffect(e1) -end -function c5821.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsReason(REASON_DESTROY) -end -function c5821.spfilter(c,e,tp) - return c:IsSetCard(0x9a) and not c:IsCode(5821) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5821.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c5821.spfilter(chkc,e,tp) end - if chk==0 then return Duel.IsExistingTarget(c5821.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5821.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) -end -function c5821.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c5822.lua b/script/c5822.lua deleted file mode 100644 index 9c8655bd..00000000 --- a/script/c5822.lua +++ /dev/null @@ -1,89 +0,0 @@ ---禁忌の壺 -function c5822.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DELAY) - e1:SetCountLimit(1,5822) - e1:SetTarget(c5822.target) - c:RegisterEffect(e1) -end -function c5822.target(e,tp,eg,ep,ev,re,r,rp,chk) - local b1=Duel.IsPlayerCanDraw(tp,2) - local b2=Duel.IsExistingMatchingCard(c5822.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - local b3=Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) - local b4=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_HAND,1,nil) - if chk==0 then return b1 or b2 or b3 or b4 end - local off=1 - local ops={} - local opval={} - if b1 then - ops[off]=aux.Stringid(5822,0) - opval[off-1]=1 - off=off+1 - end - if b2 then - ops[off]=aux.Stringid(5822,1) - opval[off-1]=2 - off=off+1 - end - if b3 then - ops[off]=aux.Stringid(5822,2) - opval[off-1]=3 - off=off+1 - end - if b4 then - ops[off]=aux.Stringid(5822,3) - opval[off-1]=4 - off=off+1 - end - local op=Duel.SelectOption(tp,table.unpack(ops)) - if opval[op]==1 then - e:SetCategory(CATEGORY_DRAW) - e:SetOperation(c5822.drop) - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) - elseif opval[op]==2 then - e:SetCategory(CATEGORY_TOHAND) - e:SetOperation(c5822.thop) - local sg=Duel.GetMatchingGroup(c5822.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,sg:GetCount(),0,0) - elseif opval[op]==3 then - e:SetCategory(CATEGORY_DESTROY) - e:SetOperation(c5822.desop) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) - else - e:SetCategory(CATEGORY_TODECK) - e:SetOperation(c5822.tdop) - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,0,1-tp,LOCATION_HAND) - end -end -function c5822.drop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end -function c5822.thfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c5822.thop(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c5822.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - Duel.SendtoHand(sg,nil,REASON_EFFECT) -end -function c5822.desop(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(sg,REASON_EFFECT) -end -function c5822.tdop(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetFieldGroup(p,0,LOCATION_HAND) - if g:GetCount()>0 then - Duel.ConfirmCards(p,g) - Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK) - local sg=g:FilterSelect(p,Card.IsAbleToDeck,1,1,nil) - Duel.SendtoDeck(sg,nil,2,REASON_EFFECT) - Duel.ShuffleHand(1-p) - end -end diff --git a/script/c5823.lua b/script/c5823.lua deleted file mode 100644 index 90a67e37..00000000 --- a/script/c5823.lua +++ /dev/null @@ -1,56 +0,0 @@ ---マジェスペクター・クロウ -function c5823.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --search - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetCountLimit(1,5823) - e2:SetTarget(c5823.thtg) - e2:SetOperation(c5823.thop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - --cannot target - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetRange(LOCATION_MZONE) - e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e4:SetValue(aux.tgoval) - c:RegisterEffect(e4) - --indes - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e5:SetRange(LOCATION_MZONE) - e5:SetValue(c5823.indval) - c:RegisterEffect(e5) -end -function c5823.thfilter(c) - return c:IsSetCard(0xcf) and c:IsType(TYPE_SPELL) and c:IsAbleToHand() -end -function c5823.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c5823.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c5823.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c5823.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end -function c5823.indval(e,re,tp) - return tp~=e:GetHandlerPlayer() -end diff --git a/script/c5824.lua b/script/c5824.lua deleted file mode 100644 index 9def8bc2..00000000 --- a/script/c5824.lua +++ /dev/null @@ -1,34 +0,0 @@ ---マジェスペクター・サイクロン -function c5824.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c5824.cost) - e1:SetTarget(c5824.target) - e1:SetOperation(c5824.activate) - c:RegisterEffect(e1) -end -function c5824.cfilter(c) - return c:IsRace(RACE_SPELLCASTER) and c:IsAttribute(ATTRIBUTE_WIND) -end -function c5824.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c5824.cfilter,1,nil) end - local rg=Duel.SelectReleaseGroup(tp,c5824.cfilter,1,1,nil) - Duel.Release(rg,REASON_COST) -end -function c5824.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c5824.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c58242947.lua b/script/c58242947.lua index de1729b7..49df9f3e 100644 --- a/script/c58242947.lua +++ b/script/c58242947.lua @@ -3,7 +3,7 @@ function c58242947.initial_effect(c) --copy trap local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(58242947,0)) - e1:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetRange(LOCATION_MZONE) e1:SetCode(EVENT_FREE_CHAIN) e1:SetHintTiming(0,0x1e1) diff --git a/script/c5825.lua b/script/c5825.lua deleted file mode 100644 index 7abe5540..00000000 --- a/script/c5825.lua +++ /dev/null @@ -1,61 +0,0 @@ ---マジェスペクター・テンペスト -function c5825.initial_effect(c) - --Activate(summon) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_SPSUMMON) - e1:SetCondition(c5825.condition1) - e1:SetCost(c5825.cost) - e1:SetTarget(c5825.target1) - e1:SetOperation(c5825.activate1) - c:RegisterEffect(e1) - --Activate(effect) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e2:SetType(EFFECT_TYPE_ACTIVATE) - e2:SetCode(EVENT_CHAINING) - e2:SetCondition(c5825.condition2) - e2:SetCost(c5825.cost) - e2:SetTarget(c5825.target2) - e2:SetOperation(c5825.activate2) - c:RegisterEffect(e2) -end -function c5825.cfilter(c) - return c:IsRace(RACE_SPELLCASTER) and c:IsAttribute(ATTRIBUTE_WIND) -end -function c5825.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c5825.cfilter,1,nil) end - local rg=Duel.SelectReleaseGroup(tp,c5825.cfilter,1,1,nil) - Duel.Release(rg,REASON_COST) -end -function c5825.condition1(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentChain()==0 -end -function c5825.target1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,eg:GetCount(),0,0) -end -function c5825.activate1(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateSummon(eg) - Duel.Destroy(eg,REASON_EFFECT) -end -function c5825.condition2(e,tp,eg,ep,ev,re,r,rp) - if not Duel.IsChainNegatable(ev) then return false end - return re:IsActiveType(TYPE_MONSTER) -end -function c5825.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c5825.activate2(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end diff --git a/script/c58268433.lua b/script/c58268433.lua index 9c86f1c7..10383ded 100644 --- a/script/c58268433.lua +++ b/script/c58268433.lua @@ -14,13 +14,13 @@ function c58268433.initial_effect(c) end function c58268433.condition(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return bit.band(c:GetPreviousPosition(),POS_ATTACK)~=0 and c:IsFaceup() and c:IsDefencePos() + return bit.band(c:GetPreviousPosition(),POS_ATTACK)~=0 and c:IsFaceup() and c:IsDefensePos() end function c58268433.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c58268433.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c5827.lua b/script/c5827.lua deleted file mode 100644 index fb70d7a9..00000000 --- a/script/c5827.lua +++ /dev/null @@ -1,87 +0,0 @@ ---ＲＵＭ－レイド・フォース -function c5827.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(5827,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c5827.target) - e1:SetOperation(c5827.activate) - c:RegisterEffect(e1) - --salvage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(5827,1)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_GRAVE) - e2:SetCost(c5827.thcost) - e2:SetTarget(c5827.thtg) - e2:SetOperation(c5827.thop) - c:RegisterEffect(e2) -end -function c5827.filter1(c,e,tp) - local rk=c:GetRank() - return c:IsFaceup() and c:IsType(TYPE_XYZ) - and Duel.IsExistingMatchingCard(c5827.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,c,rk+1) -end -function c5827.filter2(c,e,tp,mc,rk) - return c:GetRank()==rk and c:IsSetCard(0xba) and mc:IsCanBeXyzMaterial(c) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) -end -function c5827.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c5827.filter1(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c5827.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c5827.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c5827.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end - local tc=Duel.GetFirstTarget() - if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5827.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc,tc:GetRank()+1,tc:GetCode()) - local sc=g:GetFirst() - if sc then - local mg=tc:GetOverlayGroup() - if mg:GetCount()~=0 then - Duel.Overlay(sc,mg) - end - sc:SetMaterial(Group.FromCards(tc)) - Duel.Overlay(sc,Group.FromCards(tc)) - Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) - sc:CompleteProcedure() - end -end -function c5827.cfilter(c) - return c:IsSetCard(0xba) and c:IsAbleToRemoveAsCost() -end -function c5827.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() - and Duel.IsExistingMatchingCard(c5827.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c5827.cfilter,tp,LOCATION_HAND,0,1,1,nil) - g:AddCard(e:GetHandler()) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c5827.thfilter(c) - return c:IsSetCard(0x95) and not c:IsCode(5827) and c:IsAbleToHand() -end -function c5827.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c5827.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5827.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local sg=Duel.SelectTarget(tp,c5827.thfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,sg:GetCount(),0,0) -end -function c5827.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c5828.lua b/script/c5828.lua deleted file mode 100644 index a2d4dbe1..00000000 --- a/script/c5828.lua +++ /dev/null @@ -1,102 +0,0 @@ ---ＤＤスワラル・スライム -function c5828.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetCountLimit(1,5828) - e1:SetTarget(c5828.target) - e1:SetOperation(c5828.operation) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e2:SetCountLimit(1,6828) - e2:SetCost(c5828.spcost) - e2:SetTarget(c5828.sptg) - e2:SetOperation(c5828.spop) - c:RegisterEffect(e2) -end -function c5828.filter1(c,e) - return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) -end -function c5828.filter2(c,e,tp,m,f,gc) - return c:IsType(TYPE_FUSION) and c:IsSetCard(0x10af) and (not f or f(c)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,gc) -end -function c5828.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then - local mg1=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_HAND,0,c) - local res=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5828.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,c) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - res=Duel.IsExistingMatchingCard(c5828.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,c) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c5828.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end - local mg1=Duel.GetMatchingGroup(c5828.filter1,tp,LOCATION_HAND,0,c,e) - local sg1=Duel.GetMatchingGroup(c5828.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,c) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - sg2=Duel.GetMatchingGroup(c5828.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,c) - end - if (Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and sg1:GetCount()>0) or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,c) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,c) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end -function c5828.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c5828.spfilter(c,e,tp) - return c:IsSetCard(0xaf) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5828.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c5828.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c5828.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c5828.spfilter,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 \ No newline at end of file diff --git a/script/c5829.lua b/script/c5829.lua deleted file mode 100644 index 9c24c3fd..00000000 --- a/script/c5829.lua +++ /dev/null @@ -1,105 +0,0 @@ ---伝説のフィッシャーマン三世 -function c5829.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND) - e2:SetCondition(c5829.spcon) - e2:SetOperation(c5829.spop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_REMOVE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetTarget(c5829.rmtg) - e3:SetOperation(c5829.rmop) - c:RegisterEffect(e3) - --indes - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e4:SetValue(1) - c:RegisterEffect(e4) - local e5=e4:Clone() - e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e5) - --immune - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e6:SetRange(LOCATION_MZONE) - e6:SetCode(EFFECT_IMMUNE_EFFECT) - e6:SetValue(c5829.efilter) - c:RegisterEffect(e6) - --double damage - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_IGNITION) - e7:SetRange(LOCATION_MZONE) - e7:SetCountLimit(1) - e7:SetTarget(c5829.damtg) - e7:SetOperation(c5829.damop) - c:RegisterEffect(e7) -end -function c5829.spcon(e,c) - if c==nil then return true end - return Duel.CheckReleaseGroup(c:GetControler(),Card.IsCode,1,nil,3643300) -end -function c5829.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectReleaseGroup(c:GetControler(),Card.IsCode,1,1,nil,3643300) - Duel.Release(g,REASON_COST) -end -function c5829.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0) -end -function c5829.rmop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,nil) - if g:GetCount()>0 and Duel.Remove(g,POS_FACEUP,REASON_EFFECT)~=0 then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) - end -end -function c5829.efilter(e,te) - return te:IsActiveType(TYPE_SPELL+TYPE_TRAP) -end -function c5829.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_REMOVED,1,nil) end - local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_REMOVED,nil) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0) -end -function c5829.damop(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_REMOVED,nil) - if sg:GetCount()>0 and Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN)~=0 then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(0,1) - e1:SetValue(c5829.damval) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - Duel.RegisterFlagEffect(tp,5829,RESET_PHASE+PHASE_END,0,1) - end -end -function c5829.damval(e,re,val,r,rp,rc) - local tp=e:GetHandlerPlayer() - if Duel.GetFlagEffect(tp,5829)==0 or bit.band(r,REASON_BATTLE+REASON_EFFECT)==0 then return val end - Duel.ResetFlagEffect(tp,5829) - return val*2 -end diff --git a/script/c58293343.lua b/script/c58293343.lua index 12841eaa..34e42c9c 100644 --- a/script/c58293343.lua +++ b/script/c58293343.lua @@ -55,7 +55,7 @@ function c58293343.eqop(e,tp,eg,ep,ev,re,r,rp) e2:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_EQUIP) diff --git a/script/c58332301.lua b/script/c58332301.lua index 7957e299..7b644a10 100644 --- a/script/c58332301.lua +++ b/script/c58332301.lua @@ -49,11 +49,11 @@ function c58332301.atkop(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1) end function c58332301.postg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDefencePos,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDefencePos,tp,0,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDefensePos,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(Card.IsDefensePos,tp,0,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) end function c58332301.posop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDefencePos,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(Card.IsDefensePos,tp,0,LOCATION_MZONE,nil) Duel.ChangePosition(g,0,0,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,true) end diff --git a/script/c58369990.lua b/script/c58369990.lua old mode 100755 new mode 100644 index 800b7275..26f9bf58 --- a/script/c58369990.lua +++ b/script/c58369990.lua @@ -18,7 +18,7 @@ function c58369990.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c58369990.filter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() + return (c:GetSequence()==6 or c:GetSequence()==7) end function c58369990.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and c58369990.filter(chkc) end diff --git a/script/c58383100.lua b/script/c58383100.lua new file mode 100644 index 00000000..5474e2f4 --- /dev/null +++ b/script/c58383100.lua @@ -0,0 +1,90 @@ +--光波鏡騎士 +function c58383100.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(58383100,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e1:SetCode(EVENT_TO_GRAVE) + e1:SetRange(LOCATION_HAND) + e1:SetCost(c58383100.spcost) + e1:SetTarget(c58383100.sptg) + e1:SetOperation(c58383100.spop) + c:RegisterEffect(e1) + --search + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetOperation(c58383100.regop) + c:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(58383100,1)) + e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_PHASE+PHASE_END) + e3:SetRange(LOCATION_GRAVE) + e3:SetCountLimit(1,58383100) + e3:SetCondition(c58383100.thcon) + e3:SetTarget(c58383100.thtg) + e3:SetOperation(c58383100.thop) + c:RegisterEffect(e3) +end +function c58383100.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) +end +function c58383100.cfilter(c,e,tp) + return c:IsControler(tp) and c:IsLocation(LOCATION_GRAVE) and c:IsReason(REASON_BATTLE) + and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousSetCard(0xe5) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c58383100.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and eg:IsExists(c58383100.cfilter,1,nil,e,tp) + and eg:GetCount()==1 + and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_HAND+LOCATION_MZONE,0,1,e:GetHandler()) end + local g=eg:Filter(c58383100.cfilter,nil,e,tp) + Duel.SetTargetCard(g) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_MZONE) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c58383100.spop(e,tp,eg,ep,ev,re,r,rp) + local tg=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then + tg=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_MZONE,0,1,1,nil) + else + tg=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil) + end + local tc=tg:GetFirst() + if tc and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE) then + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + end +end +function c58383100.regop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + c:RegisterFlagEffect(58383100,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) +end +function c58383100.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(58383100)>0 +end +function c58383100.thfilter(c) + return c:IsSetCard(0xe5) and c:IsAbleToHand() +end +function c58383100.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c58383100.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c58383100.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c58383100.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c5851097.lua b/script/c5851097.lua index 319808c3..1c81f877 100644 --- a/script/c5851097.lua +++ b/script/c5851097.lua @@ -29,7 +29,7 @@ function c5851097.filter(c,tp) return c:IsPreviousLocation(LOCATION_DECK+LOCATION_ONFIELD) and c:IsLocation(LOCATION_GRAVE) and c:IsControler(tp) end function c5851097.descon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c5851097.filter,1,nil,tp) and e:GetHandler():IsStatus(STATUS_ACTIVATED) + return eg:IsExists(c5851097.filter,1,nil,tp) end function c5851097.destg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() diff --git a/script/c58531587.lua b/script/c58531587.lua index 8caaa1d3..5d204688 100644 --- a/script/c58531587.lua +++ b/script/c58531587.lua @@ -47,6 +47,7 @@ end function c58531587.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return end if chk==0 then + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return false end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return false end local g=Duel.GetMatchingGroup(c58531587.filter,tp,LOCATION_GRAVE,0,nil,e,tp) return g:IsExists(c58531587.filter2,1,nil,g) @@ -62,6 +63,7 @@ function c58531587.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg1,2,0,0) end function c58531587.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if Duel.GetLocationCount(tp,LOCATION_MZONE)minc then minc=min end + if maxmaxc then return false end + end + return ctminc then minc=min end + if max3) or (pp<3 and np>3)) +end +function c58600555.condition(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c58600555.cfilter,1,nil) +end +function c58600555.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsRace,tp,LOCATION_GRAVE,0,1,nil,RACE_INSECT) end +end +function c58600555.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) + local g=Duel.SelectMatchingCard(tp,Card.IsRace,tp,LOCATION_GRAVE,0,1,1,nil,RACE_INSECT) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.Overlay(c,g) + end +end diff --git a/script/c58601383.lua b/script/c58601383.lua index cc9b909a..a8755740 100644 --- a/script/c58601383.lua +++ b/script/c58601383.lua @@ -25,7 +25,7 @@ function c58601383.ffilter(c) return c:IsType(TYPE_SYNCHRO) and not c:IsType(TYPE_EFFECT) end function c58601383.efilter1(e,re,rp) - return re:IsActiveType(TYPE_EFFECT) and aux.tgval(e,re,rp) + return re:IsActiveType(TYPE_EFFECT) end function c58601383.efilter2(e,re) return re:IsActiveType(TYPE_EFFECT) diff --git a/script/c58604027.lua b/script/c58604027.lua index f2876179..7266f22e 100644 --- a/script/c58604027.lua +++ b/script/c58604027.lua @@ -78,7 +78,6 @@ function c58604027.thcon(e,tp,eg,ep,ev,re,r,rp) end function c58604027.thfilter(c) return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x40) and c:IsAbleToHand() - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c58604027.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c5861892.lua b/script/c5861892.lua index 3ae081ec..56522ebb 100644 --- a/script/c5861892.lua +++ b/script/c5861892.lua @@ -66,7 +66,7 @@ function c5861892.arcanareg(c,coin) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(5861892,2)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_F) + e2:SetType(EFFECT_TYPE_QUICK_F) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetRange(LOCATION_MZONE) diff --git a/script/c58628539.lua b/script/c58628539.lua index b37c053d..ef49d307 100644 --- a/script/c58628539.lua +++ b/script/c58628539.lua @@ -15,10 +15,10 @@ function c58628539.condition(e,tp,eg,ep,ev,re,r,rp) return eg:GetCount()==1 and eg:GetFirst():GetSummonType()==SUMMON_TYPE_XYZ and eg:GetFirst():IsControler(tp) end function c58628539.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() and chkc~=e:GetHandler() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + if chkc then return chkc:IsOnField() and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c58628539.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c58760121.lua b/script/c58760121.lua index f61bb7b7..103bf824 100644 --- a/script/c58760121.lua +++ b/script/c58760121.lua @@ -18,5 +18,5 @@ function c58760121.postg(e,tp,eg,ep,ev,re,r,rp,chk) end function c58760121.posop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c58760121.filter,tp,LOCATION_MZONE,0,e:GetHandler()) - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE,0,POS_FACEDOWN_DEFENCE,0) + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE,0,POS_FACEDOWN_DEFENSE,0) end diff --git a/script/c58786132.lua b/script/c58786132.lua index fe4d99c2..21a25214 100644 --- a/script/c58786132.lua +++ b/script/c58786132.lua @@ -38,9 +38,6 @@ function c58786132.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c58786132.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) @@ -49,6 +46,11 @@ function c58786132.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetTargetRange(1,0) e1:SetTarget(c58786132.splimit) Duel.RegisterEffect(e1,tp) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end end function c58786132.splimit(e,c,sump,sumtype,sumpos,targetp,se) return c:IsLocation(LOCATION_EXTRA) diff --git a/script/c58820923.lua b/script/c58820923.lua index 7dda8712..4180726b 100644 --- a/script/c58820923.lua +++ b/script/c58820923.lua @@ -1,112 +1,92 @@ ---No.95 ギャラクシーアイズ・ダークマター・ドラゴン -function c58820923.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,9,3,c58820923.ovfilter,aux.Stringid(58820923,0)) - c:EnableReviveLimit() - --xyzlimit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) - e1:SetValue(1) - c:RegisterEffect(e1) - --remove - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c58820923.rmcon) - e2:SetCost(c58820923.rmcost) - e2:SetTarget(c58820923.rmtg) - e2:SetOperation(c58820923.rmop) - c:RegisterEffect(e2) - --multi attack - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c58820923.atkcon) - e3:SetCost(c58820923.atkcost) - e3:SetTarget(c58820923.atktg) - e3:SetOperation(c58820923.atkop) - c:RegisterEffect(e3) -end -c58820923.xyz_number=95 -function c58820923.ovfilter(c) - return c:IsFaceup() and c:IsSetCard(0x107b) and c:IsType(TYPE_XYZ) -end -function c58820923.rmcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ -end -function c58820923.cfilter(c) - return c:IsRace(RACE_DRAGON) and c:IsAbleToGraveAsCost() -end -function c58820923.rmcost(e,tp,eg,ep,ev,re,r,rp,chk) - local g=Duel.GetMatchingGroup(c58820923.cfilter,tp,LOCATION_DECK,0,nil) - if chk==0 then return g:GetClassCount(Card.GetCode)>2 end - local tg=Group.CreateGroup() - for i=1,3 do - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local sg=g:Select(tp,1,1,nil) - g:Remove(Card.IsCode,nil,sg:GetFirst():GetCode()) - tg:Merge(sg) - end - Duel.SendtoGrave(tg,REASON_COST) -end -function c58820923.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>2 - and not Duel.IsPlayerAffectedByEffect(1-tp,30459350) end -end -function c58820923.rmfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() -end -function c58820923.rmop(e,tp,eg,ep,ev,re,r,rp) - if Duel.IsPlayerAffectedByEffect(1-tp,30459350) then return end - local g=Duel.GetMatchingGroup(c58820923.rmfilter,1-tp,LOCATION_DECK,0,nil) - if g:GetCount()>2 then - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_REMOVE) - local sg=g:Select(1-tp,3,3,nil) - Duel.Remove(sg,POS_FACEUP,REASON_EFFECT) - else - local cg=Duel.GetFieldGroup(1-tp,LOCATION_DECK,0) - Duel.ConfirmCards(tp,cg) - Duel.ShuffleDeck(1-tp) - end -end -function c58820923.atkcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsAbleToEnterBP() -end -function c58820923.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c58820923.atktg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetEffectCount(EFFECT_EXTRA_ATTACK)==0 end -end -function c58820923.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e2:SetCondition(c58820923.dircon) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_CANNOT_ATTACK) - e3:SetCondition(c58820923.atkcon2) - c:RegisterEffect(e3) - end -end -function c58820923.dircon(e) - return e:GetHandler():GetAttackAnnouncedCount()>0 -end -function c58820923.atkcon2(e) - return e:GetHandler():IsDirectAttacked() -end +--No.95 ギャラクシーアイズ・ダークマター・ドラゴン +function c58820923.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,9,3,c58820923.ovfilter,aux.Stringid(58820923,0)) + c:EnableReviveLimit() + --xyzlimit + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) + e1:SetValue(1) + c:RegisterEffect(e1) + --remove + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetCondition(c58820923.rmcon) + e2:SetCost(c58820923.rmcost) + e2:SetTarget(c58820923.rmtg) + e2:SetOperation(c58820923.rmop) + c:RegisterEffect(e2) + --multi attack + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c58820923.atkcon) + e3:SetCost(c58820923.atkcost) + e3:SetTarget(c58820923.atktg) + e3:SetOperation(c58820923.atkop) + c:RegisterEffect(e3) +end +c58820923.xyz_number=95 +function c58820923.ovfilter(c) + return c:IsFaceup() and c:IsSetCard(0x107b) and c:IsType(TYPE_XYZ) +end +function c58820923.rmcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ +end +function c58820923.cfilter(c) + return c:IsRace(RACE_DRAGON) and c:IsAbleToGraveAsCost() +end +function c58820923.rmcost(e,tp,eg,ep,ev,re,r,rp,chk) + local g=Duel.GetMatchingGroup(c58820923.cfilter,tp,LOCATION_DECK,0,nil) + if chk==0 then return g:GetClassCount(Card.GetCode)>2 end + local tg=Group.CreateGroup() + for i=1,3 do + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local sg=g:Select(tp,1,1,nil) + g:Remove(Card.IsCode,nil,sg:GetFirst():GetCode()) + tg:Merge(sg) + end + Duel.SendtoGrave(tg,REASON_COST) +end +function c58820923.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>2 + and not Duel.IsPlayerAffectedByEffect(1-tp,30459350) end +end +function c58820923.rmfilter(c) + return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() +end +function c58820923.rmop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(1-tp,30459350) then return end + local g=Duel.GetMatchingGroup(c58820923.rmfilter,1-tp,LOCATION_DECK,0,nil) + if g:GetCount()>2 then + Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_REMOVE) + local sg=g:Select(1-tp,3,3,nil) + Duel.Remove(sg,POS_FACEUP,REASON_EFFECT) + end +end +function c58820923.atkcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsAbleToEnterBP() +end +function c58820923.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c58820923.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetEffectCount(EFFECT_EXTRA_ATTACK)==0 + and e:GetHandler():GetEffectCount(EFFECT_EXTRA_ATTACK_MONSTER)==0 end +end +function c58820923.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_EXTRA_ATTACK_MONSTER) + e1:SetValue(1) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + end +end diff --git a/script/c58851034.lua b/script/c58851034.lua old mode 100755 new mode 100644 diff --git a/script/c58859575.lua b/script/c58859575.lua index 47d60ec4..86144de6 100644 --- a/script/c58859575.lua +++ b/script/c58859575.lua @@ -35,16 +35,17 @@ function c58859575.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA) end function c58859575.spfilter(c,code) - return c:IsCode(code) and c:IsAbleToRemoveAsCost() + return c:IsFusionCode(code) and c:IsAbleToRemoveAsCost() end function c58859575.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-1 then return false end local g1=Duel.GetMatchingGroup(c58859575.spfilter,tp,LOCATION_ONFIELD,0,nil,51638941) local g2=Duel.GetMatchingGroup(c58859575.spfilter,tp,LOCATION_ONFIELD,0,nil,96300057) if g1:GetCount()==0 or g2:GetCount()==0 then return false end + if g1:GetCount()==1 and g2:GetCount()==1 and g1:GetFirst()==g2:GetFirst() then return false end if ft>0 then return true end local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) @@ -62,12 +63,22 @@ function c58859575.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) if ft<=0 then tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() + ft=ft+1 else tc=g1:Select(tp,1,1,nil):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 + if i==1 then + g1:Clear() + if tc:IsFusionCode(96300057) then + local sg=Duel.GetMatchingGroup(c58859575.spfilter,tp,LOCATION_ONFIELD,0,tc,51638941) + g1:Merge(sg) + end + if tc:IsFusionCode(51638941) then + local sg=Duel.GetMatchingGroup(c58859575.spfilter,tp,LOCATION_ONFIELD,0,tc,96300057) + g1:Merge(sg) + end + end end Duel.Remove(g,POS_FACEUP,REASON_COST) end @@ -85,6 +96,6 @@ end function c58859575.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,true) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,true) end end diff --git a/script/c58873391.lua b/script/c58873391.lua old mode 100755 new mode 100644 index eaf42034..bace03ba --- a/script/c58873391.lua +++ b/script/c58873391.lua @@ -1,67 +1,67 @@ ---フィッシャーチャージ -function c58873391.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1e0) - e1:SetCost(c58873391.cost) - e1:SetTarget(c58873391.target) - e1:SetOperation(c58873391.activate) - c:RegisterEffect(e1) -end -function c58873391.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(1) - return true -end -function c58873391.costfilter(c,e,dg) - if not c:IsRace(RACE_FISH) then return false end - local a=0 - if dg:IsContains(c) then a=1 end - if c:GetEquipCount()==0 then return dg:GetCount()-a>=1 end - local eg=c:GetEquipGroup() - local tc=eg:GetFirst() - while tc do - if dg:IsContains(tc) then a=a+1 end - tc=eg:GetNext() - end - return dg:GetCount()-a>=1 -end -function c58873391.tgfilter(c,e) - return c:IsDestructable() and c:IsCanBeEffectTarget(e) -end -function c58873391.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() and chkc~=e:GetHandler() end - if chk==0 then - if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return false end - if e:GetLabel()==1 then - e:SetLabel(0) - local rg=Duel.GetReleaseGroup(tp) - local dg=Duel.GetMatchingGroup(c58873391.tgfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),e) - local res=rg:IsExists(c58873391.costfilter,1,e:GetHandler(),e,dg) - return res - else - return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) - end - end - if e:GetLabel()==1 then - e:SetLabel(0) - local rg=Duel.GetReleaseGroup(tp) - local dg=Duel.GetMatchingGroup(c58873391.tgfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),e) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local sg=rg:FilterSelect(tp,c58873391.costfilter,1,1,e:GetHandler(),e,dg) - Duel.Release(sg,REASON_COST) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c58873391.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)>0 then - Duel.Draw(tp,1,REASON_EFFECT) - end -end +--フィッシャーチャージ +function c58873391.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,0x1e0) + e1:SetCost(c58873391.cost) + e1:SetTarget(c58873391.target) + e1:SetOperation(c58873391.activate) + c:RegisterEffect(e1) +end +function c58873391.cost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(1) + return true +end +function c58873391.costfilter(c,e,dg) + if not c:IsRace(RACE_FISH) then return false end + local a=0 + if dg:IsContains(c) then a=1 end + if c:GetEquipCount()==0 then return dg:GetCount()-a>=1 end + local eg=c:GetEquipGroup() + local tc=eg:GetFirst() + while tc do + if dg:IsContains(tc) then a=a+1 end + tc=eg:GetNext() + end + return dg:GetCount()-a>=1 +end +function c58873391.tgfilter(c,e) + return c:IsCanBeEffectTarget(e) +end +function c58873391.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 + if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return false end + if e:GetLabel()==1 then + e:SetLabel(0) + local rg=Duel.GetReleaseGroup(tp) + local dg=Duel.GetMatchingGroup(c58873391.tgfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),e) + local res=rg:IsExists(c58873391.costfilter,1,e:GetHandler(),e,dg) + return res + else + return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) + end + end + if e:GetLabel()==1 then + e:SetLabel(0) + local rg=Duel.GetReleaseGroup(tp) + local dg=Duel.GetMatchingGroup(c58873391.tgfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler(),e) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local sg=rg:FilterSelect(tp,c58873391.costfilter,1,1,e:GetHandler(),e,dg) + Duel.Release(sg,REASON_COST) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c58873391.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)>0 then + Duel.Draw(tp,1,REASON_EFFECT) + end +end diff --git a/script/c58901502.lua b/script/c58901502.lua old mode 100755 new mode 100644 diff --git a/script/c58911105.lua b/script/c58911105.lua index 66b249e5..572cc366 100644 --- a/script/c58911105.lua +++ b/script/c58911105.lua @@ -37,7 +37,7 @@ function c58911105.operation(e,tp,eg,ep,ev,re,r,rp,chk) local tc=g:GetFirst() if not tc then return end local spos=0 - if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then spos=spos+POS_FACEUP_DEFENCE end - if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENCE end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then spos=spos+POS_FACEUP_DEFENSE end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENSE end Duel.SpecialSummon(tc,0,tp,tp,false,false,spos) end diff --git a/script/c58947797.lua b/script/c58947797.lua index 2cfbc0b0..be30303d 100644 --- a/script/c58947797.lua +++ b/script/c58947797.lua @@ -43,7 +43,7 @@ end function c58947797.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end function c58947797.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c58988903.lua b/script/c58988903.lua new file mode 100644 index 00000000..fb9e62ec --- /dev/null +++ b/script/c58988903.lua @@ -0,0 +1,88 @@ +--RUM－スキップ・フォース +function c58988903.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(58988903,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c58988903.target) + e1:SetOperation(c58988903.activate) + c:RegisterEffect(e1) + --Special Summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(58988903,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCondition(aux.exccon) + e2:SetCost(c58988903.spcost) + e2:SetTarget(c58988903.sptg) + e2:SetOperation(c58988903.spop) + c:RegisterEffect(e2) +end +function c58988903.filter1(c,e,tp) + local rk=c:GetRank() + return c:IsFaceup() and c:IsSetCard(0xba) and c:IsType(TYPE_XYZ) + and Duel.IsExistingMatchingCard(c58988903.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,c,rk+2) +end +function c58988903.filter2(c,e,tp,mc,rk) + return c:GetRank()==rk and c:IsSetCard(0xba) and mc:IsCanBeXyzMaterial(c) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) +end +function c58988903.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c58988903.filter1(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingTarget(c58988903.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,c58988903.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c58988903.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end + local tc=Duel.GetFirstTarget() + if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c58988903.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc,tc:GetRank()+2) + local sc=g:GetFirst() + if sc then + local mg=tc:GetOverlayGroup() + if mg:GetCount()~=0 then + Duel.Overlay(sc,mg) + end + sc:SetMaterial(Group.FromCards(tc)) + Duel.Overlay(sc,Group.FromCards(tc)) + Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) + sc:CompleteProcedure() + end +end +function c58988903.cfilter(c,e,tp) + return c:IsSetCard(0xba) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() + and Duel.IsExistingTarget(c58988903.spfilter,tp,LOCATION_GRAVE,0,1,c,e,tp) +end +function c58988903.spfilter(c,e,tp) + return c:IsSetCard(0xba) and c:IsType(TYPE_XYZ) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c58988903.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() + and Duel.IsExistingMatchingCard(c58988903.cfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c58988903.cfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + g:AddCard(e:GetHandler()) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c58988903.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c58988903.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c58988903.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c58988903.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c58990362.lua b/script/c58990362.lua index 1cd32ea9..58375a98 100644 --- a/script/c58990362.lua +++ b/script/c58990362.lua @@ -7,10 +7,9 @@ function c58990362.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_PZONE) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetTargetRange(1,0) e2:SetTarget(c58990362.splimit) - e2:SetCondition(aux.nfbdncon) c:RegisterEffect(e2) --search local e3=Effect.CreateEffect(c) diff --git a/script/c58990631.lua b/script/c58990631.lua index aefcdb36..60d42919 100644 --- a/script/c58990631.lua +++ b/script/c58990631.lua @@ -30,7 +30,7 @@ function c58990631.cost(e,tp,eg,ep,ev,re,r,rp,chk) end function c58990631.filter(c,tp,ep) return c:IsFaceup() and c:IsAttackAbove(1000) - and ep~=tp and c:IsDestructable() + and ep~=tp end function c58990631.target(e,tp,eg,ep,ev,re,r,rp,chk) local tc=eg:GetFirst() @@ -46,7 +46,6 @@ function c58990631.activate(e,tp,eg,ep,ev,re,r,rp) end function c58990631.filter2(c,tp) return c:IsFaceup() and c:IsAttackAbove(1000) and c:GetSummonPlayer()~=tp - and c:IsDestructable() end function c58990631.target2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return eg:IsExists(c58990631.filter2,1,nil,tp) end @@ -56,7 +55,7 @@ function c58990631.target2(e,tp,eg,ep,ev,re,r,rp,chk) end function c58990631.filter3(c,e,tp) return c:IsFaceup() and c:IsAttackAbove(1000) and c:GetSummonPlayer()~=tp - and c:IsRelateToEffect(e) and c:IsDestructable() + and c:IsRelateToEffect(e) end function c58990631.activate2(e,tp,eg,ep,ev,re,r,rp) local g=eg:Filter(c58990631.filter3,nil,e,tp) diff --git a/script/c58996430.lua b/script/c58996430.lua old mode 100755 new mode 100644 diff --git a/script/c59042331.lua b/script/c59042331.lua index 8d57cd43..5b11cdab 100644 --- a/script/c59042331.lua +++ b/script/c59042331.lua @@ -4,7 +4,7 @@ function c59042331.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(59042331,0)) e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetRange(LOCATION_HAND) e1:SetCondition(c59042331.atkcon) diff --git a/script/c59048135.lua b/script/c59048135.lua index ae5b70ff..ff0bdbf4 100644 --- a/script/c59048135.lua +++ b/script/c59048135.lua @@ -34,7 +34,7 @@ function c59048135.etarget(e,c) return c:IsRace(RACE_PSYCHO) and c:IsType(TYPE_XYZ) end function c59048135.evalue(e,re,rp) - return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and aux.tgval(e,re,rp) + return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) end function c59048135.cfilter(c) return c:IsSetCard(0x76) and c:IsType(TYPE_MONSTER) and c:IsDiscardable() diff --git a/script/c59057152.lua b/script/c59057152.lua old mode 100755 new mode 100644 index b6616773..bc567bdf --- a/script/c59057152.lua +++ b/script/c59057152.lua @@ -64,7 +64,7 @@ function c59057152.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c59057152.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then + if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local dg=Duel.SelectMatchingCard(tp,c59057152.desfilter,tp,LOCATION_SZONE,0,1,1,nil) Duel.Destroy(dg,REASON_EFFECT) diff --git a/script/c59057953.lua b/script/c59057953.lua new file mode 100644 index 00000000..031ce49f --- /dev/null +++ b/script/c59057953.lua @@ -0,0 +1,39 @@ +--魔界劇団の楽屋入り +function c59057953.initial_effect(c) + --activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,59057953+EFFECT_COUNT_CODE_OATH) + e1:SetCondition(c59057953.condition) + e1:SetTarget(c59057953.target) + e1:SetOperation(c59057953.operation) + c:RegisterEffect(e1) +end +function c59057953.condition(e,tp,eg,ep,ev,re,r,rp) + local tc1=Duel.GetFieldCard(tp,LOCATION_SZONE,6) + local tc2=Duel.GetFieldCard(tp,LOCATION_SZONE,7) + return tc1 and tc1:IsSetCard(0x10ec) and tc2 and tc2:IsSetCard(0x10ec) +end +function c59057953.filter(c) + return c:IsType(TYPE_PENDULUM) and c:IsSetCard(0x10ec) and not c:IsForbidden() +end +function c59057953.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local g=Duel.GetMatchingGroup(c59057953.filter,tp,LOCATION_DECK,0,nil) + return g:GetClassCount(Card.GetCode)>=2 + end +end +function c59057953.operation(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c59057953.filter,tp,LOCATION_DECK,0,nil) + if g:GetClassCount(Card.GetCode)<2 then return end + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(59057953,0)) + local tg1=g:Select(tp,1,1,nil) + g:Remove(Card.IsCode,nil,tg1:GetFirst():GetCode()) + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(59057953,0)) + local tg2=g:Select(tp,1,1,nil) + tg1:Merge(tg2) + if tg1:GetCount()==2 then + Duel.SendtoExtraP(tg1,tp,REASON_EFFECT) + end +end diff --git a/script/c5908650.lua b/script/c5908650.lua index 1e002f05..c42daa15 100644 --- a/script/c5908650.lua +++ b/script/c5908650.lua @@ -45,6 +45,5 @@ function c5908650.thop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c59123194.lua b/script/c59123194.lua index 00de604f..528070d6 100644 --- a/script/c59123194.lua +++ b/script/c59123194.lua @@ -1,70 +1,68 @@ ---覚醒の魔導剣士 -function c59123194.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - -- - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCountLimit(1,59123194) - e1:SetCondition(c59123194.thcon) - e1:SetTarget(c59123194.thtg) - e1:SetOperation(c59123194.thop) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetCondition(aux.bdocon) - e2:SetTarget(c59123194.damtg) - e2:SetOperation(c59123194.damop) - c:RegisterEffect(e2) -end -function c59123194.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetSummonType()==SUMMON_TYPE_SYNCHRO and c:GetMaterial():IsExists(c59123194.pmfilter,1,nil) -end -function c59123194.thfilter(c) - return c:IsType(TYPE_SPELL) and c:IsAbleToHand() -end -function c59123194.pmfilter(c) - return c:IsSetCard(0x98) and c:IsType(TYPE_PENDULUM) -end -function c59123194.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c59123194.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c59123194.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c59123194.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c59123194.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end -function c59123194.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local bc=e:GetHandler():GetBattleTarget() - Duel.SetTargetCard(bc) - local dam=bc:GetAttack() - if dam<0 then dam=0 end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c59123194.damop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local dam=tc:GetAttack() - if dam<0 then dam=0 end - Duel.Damage(p,dam,REASON_EFFECT) - end -end +--覚醒の魔導剣士 +function c59123194.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + -- + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1,59123194) + e1:SetCondition(c59123194.thcon) + e1:SetTarget(c59123194.thtg) + e1:SetOperation(c59123194.thop) + c:RegisterEffect(e1) + --damage + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DAMAGE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetCode(EVENT_BATTLE_DESTROYING) + e2:SetCondition(aux.bdocon) + e2:SetTarget(c59123194.damtg) + e2:SetOperation(c59123194.damop) + c:RegisterEffect(e2) +end +function c59123194.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:GetSummonType()==SUMMON_TYPE_SYNCHRO and c:GetMaterial():IsExists(c59123194.pmfilter,1,nil) +end +function c59123194.thfilter(c) + return c:IsType(TYPE_SPELL) and c:IsAbleToHand() +end +function c59123194.pmfilter(c) + return c:IsSetCard(0x98) and c:IsType(TYPE_PENDULUM) +end +function c59123194.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c59123194.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c59123194.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c59123194.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c59123194.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c59123194.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + local bc=e:GetHandler():GetBattleTarget() + local dam=bc:GetTextAttack() + if chk==0 then return dam>0 end + Duel.SetTargetCard(bc) + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(dam) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) +end +function c59123194.damop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + local dam=tc:GetTextAttack() + if dam<0 then dam=0 end + Duel.Damage(p,dam,REASON_EFFECT) + end +end diff --git a/script/c5914184.lua b/script/c5914184.lua index 365acb46..48e4e3c1 100644 --- a/script/c5914184.lua +++ b/script/c5914184.lua @@ -1,5 +1,6 @@ --倍返し function c5914184.initial_effect(c) + c:EnableCounterPermit(0x1a) --counter local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -15,7 +16,7 @@ function c5914184.actop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then local ct=math.floor(ev/1000) - c:AddCounter(0x1a+COUNTER_NEED_ENABLE,ct) + c:AddCounter(0x1a,ct) --damage local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(5914184,0)) diff --git a/script/c59156966.lua b/script/c59156966.lua index e6eeadf1..efaf0c40 100644 --- a/script/c59156966.lua +++ b/script/c59156966.lua @@ -35,7 +35,7 @@ function c59156966.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e2:SetValue(1500) tc:RegisterEffect(e2) diff --git a/script/c59170782.lua b/script/c59170782.lua index feaa811c..bc056c1c 100644 --- a/script/c59170782.lua +++ b/script/c59170782.lua @@ -72,7 +72,7 @@ function c59170782.tgcon2(e,tp,eg,ep,ev,re,r,rp) end function c59170782.tgop2(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then + if c:IsRelateToEffect(e) and not Duel.GetAttacker():IsImmuneToEffect(e) then Duel.ChangeAttackTarget(c) end end diff --git a/script/c59197169.lua b/script/c59197169.lua index 8b17d54f..ae47bce7 100644 --- a/script/c59197169.lua +++ b/script/c59197169.lua @@ -15,7 +15,7 @@ function c59197169.initial_effect(c) c:RegisterEffect(e2) --Def local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end function c59197169.val(e,c) diff --git a/script/c59235795.lua b/script/c59235795.lua index 10f860c3..ba009e27 100644 --- a/script/c59235795.lua +++ b/script/c59235795.lua @@ -15,7 +15,7 @@ function c59235795.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c59235795.filter(c) - return (c:IsFacedown() or c:GetAttribute()~=ATTRIBUTE_WIND) and c:IsDestructable() + return (c:IsFacedown() or c:GetAttribute()~=ATTRIBUTE_WIND) end function c59235795.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c59255742.lua b/script/c59255742.lua index f696c8ca..903e5507 100644 --- a/script/c59255742.lua +++ b/script/c59255742.lua @@ -96,14 +96,7 @@ end function c59255742.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if Duel.GetLocationCount(tp,LOCATION_MZONE)0 and c:IsControlerCanBeChanged() + return c:GetCounter(0x100e)>0 and c:IsControlerCanBeChanged() end function c59258334.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c59258334.filter(chkc) end @@ -49,7 +49,7 @@ function c59258334.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if not c:IsRelateToEffect(e) then return end local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:GetCounter(0xe)>0 and tc:IsRelateToEffect(e) then + if tc:IsFaceup() and tc:GetCounter(0x100e)>0 and tc:IsRelateToEffect(e) then c:SetCardTarget(tc) local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE) @@ -68,7 +68,7 @@ end function c59258334.descon(e) local c=e:GetHandler() if c:GetCardTargetCount()==0 then return false end - return c:GetFirstCardTarget():GetCounter(0xe)==0 + return c:GetFirstCardTarget():GetCounter(0x100e)==0 end function c59258334.descon2(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetHandler():GetFirstCardTarget() @@ -82,5 +82,6 @@ function c59258334.rccon(e,tp,eg,ep,ev,re,r,rp) end function c59258334.rcop(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetHandler():GetFirstCardTarget() - tc:RemoveCounter(tp,0xe,1,REASON_EFFECT) + tc:RemoveCounter(tp,0x100e,1,REASON_EFFECT) + Duel.RaiseEvent(e:GetHandler(),EVENT_REMOVE_COUNTER+0x100e,e,REASON_EFFECT,tp,tp,1) end diff --git a/script/c59297550.lua b/script/c59297550.lua index cd2e3943..3d67bf8b 100644 --- a/script/c59297550.lua +++ b/script/c59297550.lua @@ -33,6 +33,6 @@ function c59297550.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c59297550.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c5929801.lua b/script/c5929801.lua index fa794a69..d8b501b2 100644 --- a/script/c5929801.lua +++ b/script/c5929801.lua @@ -54,8 +54,10 @@ function c5929801.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c5929801.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c5929801.thfilter(c) diff --git a/script/c59344077.lua b/script/c59344077.lua index dbcf6d0c..02ca6c3f 100644 --- a/script/c59344077.lua +++ b/script/c59344077.lua @@ -13,12 +13,19 @@ function c59344077.condition(e,tp,eg,ep,ev,re,r,rp) return rp~=tp and re:IsActiveType(TYPE_SPELL) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) end function c59344077.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsType,tp,0,LOCATION_HAND,nil,TYPE_SPELL) - if g:GetCount()>0 and Duel.SelectYesNo(1-tp,aux.Stringid(59344077,0)) then - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_DISCARD) - local sg=g:Select(1-tp,1,1,nil) - Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD) - if Duel.IsChainDisablable(0) then + if Duel.IsChainDisablable(0) then + local sel=1 + local g=Duel.GetMatchingGroup(Card.IsType,tp,0,LOCATION_HAND,nil,TYPE_SPELL) + Duel.Hint(HINT_SELECTMSG,1-tp,aux.Stringid(59344077,0)) + if g:GetCount()>0 then + sel=Duel.SelectOption(1-tp,1213,1214) + else + sel=Duel.SelectOption(1-tp,1214)+1 + end + if sel==0 then + Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_DISCARD) + local sg=g:Select(1-tp,1,1,nil) + Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD) Duel.NegateEffect(0) return end diff --git a/script/c59364406.lua b/script/c59364406.lua index 3f44f727..0dfea2e7 100644 --- a/script/c59364406.lua +++ b/script/c59364406.lua @@ -89,15 +89,17 @@ function c59364406.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c59364406.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c59364406.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsStatus(STATUS_UNION) and ep~=tp and eg:GetFirst()==e:GetHandler():GetEquipTarget() end function c59364406.desfilter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c59364406.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c59364406.desfilter(chkc) end diff --git a/script/c59368956.lua b/script/c59368956.lua index cd03abea..289cc18a 100644 --- a/script/c59368956.lua +++ b/script/c59368956.lua @@ -20,7 +20,7 @@ function c59368956.initial_effect(c) e2:SetValue(500) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end function c59368956.filter(c) diff --git a/script/c59380081.lua b/script/c59380081.lua old mode 100755 new mode 100644 diff --git a/script/c59388357.lua b/script/c59388357.lua index 836986a0..584f14c4 100644 --- a/script/c59388357.lua +++ b/script/c59388357.lua @@ -12,7 +12,7 @@ function c59388357.initial_effect(c) c:RegisterEffect(e1) end function c59388357.desfilter(c) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsDestructable() + return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_FIRE) end function c59388357.spfilter(c,e,tp) return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) diff --git a/script/c59432181.lua b/script/c59432181.lua new file mode 100644 index 00000000..3d19cbf8 --- /dev/null +++ b/script/c59432181.lua @@ -0,0 +1,43 @@ +--融合識別 +function c59432181.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c59432181.target) + e1:SetOperation(c59432181.activate) + c:RegisterEffect(e1) +end +function c59432181.filter(c) + return c:IsType(TYPE_FUSION) +end +function c59432181.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end + if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) + and Duel.IsExistingMatchingCard(c59432181.filter,tp,LOCATION_EXTRA,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) +end +function c59432181.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if not tc:IsRelateToEffect(e) or tc:IsFacedown() then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) + local cg=Duel.SelectMatchingCard(tp,c59432181.filter,tp,LOCATION_EXTRA,0,1,1,nil) + if cg:GetCount()==0 then return end + Duel.ConfirmCards(1-tp,cg) + local code1,code2=cg:GetFirst():GetOriginalCodeRule() + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetDescription(aux.Stringid(59432181,0)) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_ADD_FUSION_CODE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CLIENT_HINT) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(code1) + tc:RegisterEffect(e1) + if code2 then + local e2=e1:Clone() + e2:SetValue(code2) + tc:RegisterEffect(e2) + end +end diff --git a/script/c59463312.lua b/script/c59463312.lua old mode 100755 new mode 100644 index 6db25425..2d081ed6 --- a/script/c59463312.lua +++ b/script/c59463312.lua @@ -42,7 +42,7 @@ function c59463312.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) end function c59463312.filter(c,e,tp) - return c:GetAttack()==800 and c:GetDefence()==1000 and not c:IsCode(59463312) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:GetAttack()==800 and c:GetDefense()==1000 and not c:IsCode(59463312) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c59463312.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c59463312.filter(chkc,e,tp) end @@ -56,7 +56,7 @@ function c59463312.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c59464593.lua b/script/c59464593.lua index b4bdf667..851e28e5 100644 --- a/script/c59464593.lua +++ b/script/c59464593.lua @@ -42,7 +42,7 @@ function c59464593.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Release(g,REASON_COST) end function c59464593.dfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c59464593.descost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_HAND,0,1,nil) end diff --git a/script/c59482302.lua b/script/c59482302.lua index 089ed379..4048c345 100644 --- a/script/c59482302.lua +++ b/script/c59482302.lua @@ -17,7 +17,7 @@ function c59482302.condition(e,tp,eg,ep,ev,re,r,rp) and e:GetHandler():GetReasonCard():IsAttribute(ATTRIBUTE_LIGHT) end function c59482302.filter(c,e) - return c:IsDestructable() and c:IsCanBeEffectTarget(e) + return c:IsCanBeEffectTarget(e) end function c59482302.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c59482302.filter(chkc,e) end diff --git a/script/c59496924.lua b/script/c59496924.lua new file mode 100644 index 00000000..1613bf29 --- /dev/null +++ b/script/c59496924.lua @@ -0,0 +1,77 @@ +--Kozmo Landwalker +function c59496924.initial_effect(c) + --destroy replace + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_DESTROY_REPLACE) + e1:SetRange(LOCATION_MZONE) + e1:SetTarget(c59496924.reptg) + e1:SetValue(c59496924.repval) + e1:SetOperation(c59496924.repop) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(59496924,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCondition(c59496924.spcon) + e2:SetCost(c59496924.spcost) + e2:SetTarget(c59496924.sptg) + e2:SetOperation(c59496924.spop) + c:RegisterEffect(e2) +end +function c59496924.repfilter(c,tp) + return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_ONFIELD) and c:IsSetCard(0xd2) + and (c:IsReason(REASON_BATTLE) or (c:IsReason(REASON_EFFECT) and c:GetReasonPlayer()~=tp)) and not c:IsReason(REASON_REPLACE) +end +function c59496924.desfilter(c,tp) + return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_ONFIELD) and c:IsSetCard(0xd2) + and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_BATTLE_DESTROYED) +end +function c59496924.reptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return eg:IsExists(c59496924.repfilter,1,nil,tp) + and Duel.IsExistingMatchingCard(c59496924.desfilter,tp,LOCATION_ONFIELD,0,1,nil,tp) end + if Duel.SelectYesNo(tp,aux.Stringid(59496924,0)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESREPLACE) + local g=Duel.SelectMatchingCard(tp,c59496924.desfilter,tp,LOCATION_ONFIELD,0,1,1,nil,tp) + e:SetLabelObject(g:GetFirst()) + Duel.HintSelection(g) + g:GetFirst():SetStatus(STATUS_DESTROY_CONFIRMED,true) + return true + end + return false +end +function c59496924.repval(e,c) + return c59496924.repfilter(c,e:GetHandlerPlayer()) +end +function c59496924.repop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + tc:SetStatus(STATUS_DESTROY_CONFIRMED,false) + Duel.Destroy(tc,REASON_EFFECT+REASON_REPLACE) +end +function c59496924.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) +end +function c59496924.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() and e:GetHandler():IsLocation(LOCATION_GRAVE) end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c59496924.spfilter(c,e,tp) + return c:IsSetCard(0xd2) and c:IsLevelBelow(5) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c59496924.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c59496924.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c59496924.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c59496924.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c59546797.lua b/script/c59546797.lua old mode 100755 new mode 100644 index 3a1af4f6..84ad55df --- a/script/c59546797.lua +++ b/script/c59546797.lua @@ -6,6 +6,7 @@ function c59546797.initial_effect(c) e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_RECOVER) e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMING_BATTLE_STEP_END) e1:SetRange(LOCATION_HAND) e1:SetCountLimit(1,59546797) e1:SetCondition(c59546797.spcon) @@ -28,7 +29,7 @@ function c59546797.initial_effect(c) c:RegisterEffect(e2) end function c59546797.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE and not Duel.CheckTiming(TIMING_BATTLE_START+TIMING_BATTLE_END) + return Duel.GetCurrentPhase()==PHASE_BATTLE_STEP end function c59546797.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -42,7 +43,7 @@ function c59546797.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then Duel.Recover(tp,1000,REASON_EFFECT) elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then - Duel.SendtoGrave(c,REASON_EFFECT) + Duel.SendtoGrave(c,REASON_RULE) end end function c59546797.atkcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c59560625.lua b/script/c59560625.lua index fba210f4..248dc2ff 100644 --- a/script/c59560625.lua +++ b/script/c59560625.lua @@ -37,7 +37,7 @@ function c59560625.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c59560625.activate1(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then + if tc:IsRelateToEffect(e) and not Duel.GetAttacker():IsImmuneToEffect(e) then Duel.ChangeAttackTarget(tc) end end diff --git a/script/c59560831.lua b/script/c59560831.lua deleted file mode 100644 index e947caa5..00000000 --- a/script/c59560831.lua +++ /dev/null @@ -1,71 +0,0 @@ ---Clone Dragon -function c59560831.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetRange(LOCATION_HAND) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCondition(c59560831.condition) - e1:SetTarget(c59560831.target) - e1:SetOperation(c59560831.activate) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - local e3=e1:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e3) - --attack cost - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_ATTACK_COST) - e4:SetCost(c59560831.atcost) - e4:SetOperation(c59560831.atop) - c:RegisterEffect(e4) -end -function c59560831.atcost(e,c,tp) - return Duel.CheckLPCost(tp,1000) -end -function c59560831.atop(e,tp,eg,ep,ev,re,r,rp) - Duel.PayLPCost(tp,1000) -end - -function c59560831.condition(e,tp,eg,ep,ev,re,r,rp) - local ec=eg:GetFirst() - return ec:IsControler(tp) -end -function c59560831.target(e,tp,eg,ep,ev,re,r,rp,chk) - local ec=eg:GetFirst() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetTargetCard(eg) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) - end - function c59560831.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local ec=eg:GetFirst() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then - if ec:IsRelateToEffect(e) and ec:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(ec:GetBaseAttack()) - e1:SetReset(RESET_EVENT+0xfe0000) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) - e2:SetValue(ec:GetBaseDefence()) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CHANGE_CODE) - e3:SetValue(ec:GetCode()) - e3:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e3) - end - Duel.SpecialSummonComplete() - end - end - \ No newline at end of file diff --git a/script/c59593925.lua b/script/c59593925.lua index d85768cc..b683e18d 100644 --- a/script/c59593925.lua +++ b/script/c59593925.lua @@ -39,10 +39,10 @@ function c59593925.descon(e,tp,eg,ep,ev,re,r,rp) return r==REASON_SYNCHRO and eg:IsExists(c59593925.cfilter,1,nil) end function c59593925.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsDestructable() end + if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end if chk==0 then return e:GetHandler():IsRelateToEffect(e) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c59593925.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c596051.lua b/script/c596051.lua index 7b80ec91..cfd1fb48 100644 --- a/script/c596051.lua +++ b/script/c596051.lua @@ -26,7 +26,7 @@ function c596051.activate(e,tp,eg,ep,ev,re,r,rp) if tc:IsRelateToEffect(e) and tc:IsFaceup() then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e1:SetValue(-500) tc:RegisterEffect(e1) diff --git a/script/c59627393.lua b/script/c59627393.lua index 915dfbd0..ab61c646 100644 --- a/script/c59627393.lua +++ b/script/c59627393.lua @@ -20,7 +20,7 @@ c59627393.xyz_number=105 function c59627393.condition(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local at=Duel.GetAttackTarget() - return Duel.GetCurrentPhase()==PHASE_BATTLE and at and ((a:IsControler(tp) and a:IsOnField() and a:IsSetCard(0x84)) + return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) and at and ((a:IsControler(tp) and a:IsOnField() and a:IsSetCard(0x84)) or (at:IsControler(tp) and at:IsOnField() and at:IsFaceup() and at:IsSetCard(0x84))) end function c59627393.cost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c59640711.lua b/script/c59640711.lua new file mode 100644 index 00000000..47269838 --- /dev/null +++ b/script/c59640711.lua @@ -0,0 +1,33 @@ +--SR電々大公 +function c59640711.initial_effect(c) + --destroy + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_GRAVE) + e1:SetCountLimit(1,59640711) + e1:SetCost(c59640711.spcost) + e1:SetTarget(c59640711.sptg) + e1:SetOperation(c59640711.spop) + c:RegisterEffect(e1) +end +function c59640711.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c59640711.spfilter(c,e,tp) + return c:IsSetCard(0x2016) and c:IsType(TYPE_TUNER) and not c:IsCode(59640711) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c59640711.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c59640711.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) +end +function c59640711.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c59640711.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c59644958.lua b/script/c59644958.lua old mode 100755 new mode 100644 diff --git a/script/c59650656.lua b/script/c59650656.lua index fcefbd86..9a8806cf 100644 --- a/script/c59650656.lua +++ b/script/c59650656.lua @@ -26,14 +26,15 @@ function c59650656.initial_effect(c) c:RegisterEffect(e2) end function c59650656.cfilter(c,tp) - return c:IsFaceup() and c:IsSetCard(0x7b) and c:IsType(TYPE_XYZ) - and c:IsReason(REASON_DESTROY) and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp + return c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) + and (c:IsReason(REASON_DESTROY) and c:IsReason(REASON_EFFECT) or c:IsReason(REASON_BATTLE) and Duel.GetTurnPlayer()==1-tp) + and c:IsSetCard(0x7b) and c:IsType(TYPE_XYZ) end function c59650656.descon(e,tp,eg,ep,ev,re,r,rp) return rp~=tp and eg:IsExists(c59650656.cfilter,1,nil,tp) end function c59650656.filter(c) - return c:IsFaceup() and c:IsDestructable() and c:IsAbleToRemove() + return c:IsFaceup() and c:IsAbleToRemove() end function c59650656.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c59650656.filter,tp,0,LOCATION_ONFIELD,1,nil) end diff --git a/script/c59695933.lua b/script/c59695933.lua index 4ee15515..28e6c1a3 100644 --- a/script/c59695933.lua +++ b/script/c59695933.lua @@ -24,9 +24,7 @@ function c59695933.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c59695933.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,0,0) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp) end end diff --git a/script/c59699355.lua b/script/c59699355.lua index 48e63980..50b1937c 100644 --- a/script/c59699355.lua +++ b/script/c59699355.lua @@ -11,14 +11,14 @@ function c59699355.initial_effect(c) end function c59699355.condition(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return d and d:IsDefencePos() and d:IsSetCard(0x24) + return d and d:IsDefensePos() and d:IsSetCard(0x24) end function c59699355.activate(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() if d:IsRelateToBattle() then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetValue(2000) e1:SetReset(RESET_EVENT+0x1fe0000) d:RegisterEffect(e1) diff --git a/script/c59708927.lua b/script/c59708927.lua index 9cb381d9..6f7a7580 100644 --- a/script/c59708927.lua +++ b/script/c59708927.lua @@ -29,13 +29,15 @@ function c59708927.spcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.RegisterEffect(e2,tp) end function c59708927.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(c59708927.filter,tp,LOCATION_HAND,0,1,e:GetHandler(),e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND) end function c59708927.spop(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c59708927.filter,tp,LOCATION_HAND,0,1,1,e:GetHandler(),e,tp) diff --git a/script/c59718521.lua b/script/c59718521.lua old mode 100755 new mode 100644 diff --git a/script/c5972394.lua b/script/c5972394.lua index 1226a7db..2dafeef1 100644 --- a/script/c5972394.lua +++ b/script/c5972394.lua @@ -16,7 +16,7 @@ function c5972394.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 end function c5972394.filter(c,e,tp) - return c:IsLevelBelow(2) and c:IsPosition(POS_FACEUP_DEFENCE) + return c:IsLevelBelow(2) and c:IsPosition(POS_FACEUP_DEFENSE) and Duel.IsExistingMatchingCard(c5972394.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetCode()) end function c5972394.spfilter(c,e,tp,code) @@ -26,7 +26,7 @@ function c5972394.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c5972394.filter(chkc,e,tp) end if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c5972394.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUPDEFENCE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUPDEFENSE) Duel.SelectTarget(tp,c5972394.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) end @@ -36,7 +36,7 @@ function c5972394.activate(e,tp,eg,ep,ev,re,r,rp) if tc:IsFacedown() or not tc:IsRelateToEffect(e) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c5972394.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,tc:GetCode()) - if Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then + if Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) diff --git a/script/c5973663.lua b/script/c5973663.lua index 883c9994..0269f200 100644 --- a/script/c5973663.lua +++ b/script/c5973663.lua @@ -1,131 +1,132 @@ ---世界樹 -function c5973663.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --add counter - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_DESTROYED) - e2:SetCondition(c5973663.ctcon) - e2:SetOperation(c5973663.ctop) - c:RegisterEffect(e2) - --atkup defup - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetDescription(aux.Stringid(5973663,0)) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_SZONE) - e3:SetCost(c5973663.cost1) - e3:SetTarget(c5973663.tg1) - e3:SetOperation(c5973663.op1) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetDescription(aux.Stringid(5973663,1)) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_SZONE) - e4:SetCost(c5973663.cost2) - e4:SetTarget(c5973663.tg2) - e4:SetOperation(c5973663.op2) - c:RegisterEffect(e4) - --special summon - local e5=Effect.CreateEffect(c) - e5:SetCategory(CATEGORY_SPECIAL_SUMMON) - e5:SetDescription(aux.Stringid(5973663,2)) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetRange(LOCATION_SZONE) - e5:SetCost(c5973663.cost3) - e5:SetTarget(c5973663.tg3) - e5:SetOperation(c5973663.op3) - c:RegisterEffect(e5) -end -function c5973663.ctfilter(c) - return c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousPosition(POS_FACEUP) and bit.band(c:GetPreviousRaceOnField(),RACE_PLANT)~=0 -end -function c5973663.ctcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c5973663.ctfilter,1,nil) -end -function c5973663.ctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x18+COUNTER_NEED_ENABLE,1) -end -function c5973663.cost1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x18,1,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - e:GetHandler():RemoveCounter(tp,0x18,1,REASON_COST) -end -function c5973663.filter1(c) - return c:IsFaceup() and c:IsRace(RACE_PLANT) -end -function c5973663.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c5973663.filter1(chkc) end - if chk==0 then return Duel.IsExistingTarget(c5973663.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c5973663.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,1,0,500) -end -function c5973663.op1(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(400) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - tc:RegisterEffect(e2) - end -end -function c5973663.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x18,2,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - e:GetHandler():RemoveCounter(tp,0x18,2,REASON_COST) -end -function c5973663.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c5973663.op2(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c5973663.cost3(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x18,3,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - e:GetHandler():RemoveCounter(tp,0x18,3,REASON_COST) -end -function c5973663.filter3(c,e,tp) - return c:IsRace(RACE_PLANT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c5973663.tg3(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c5973663.filter3(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c5973663.filter3,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c5973663.filter3,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c5973663.op3(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end +--世界樹 +function c5973663.initial_effect(c) + c:EnableCounterPermit(0x18) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --add counter + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetRange(LOCATION_SZONE) + e2:SetCode(EVENT_DESTROYED) + e2:SetCondition(c5973663.ctcon) + e2:SetOperation(c5973663.ctop) + c:RegisterEffect(e2) + --atkup defup + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_ATKCHANGE) + e3:SetDescription(aux.Stringid(5973663,0)) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_SZONE) + e3:SetCost(c5973663.cost1) + e3:SetTarget(c5973663.tg1) + e3:SetOperation(c5973663.op1) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetDescription(aux.Stringid(5973663,1)) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_SZONE) + e4:SetCost(c5973663.cost2) + e4:SetTarget(c5973663.tg2) + e4:SetOperation(c5973663.op2) + c:RegisterEffect(e4) + --special summon + local e5=Effect.CreateEffect(c) + e5:SetCategory(CATEGORY_SPECIAL_SUMMON) + e5:SetDescription(aux.Stringid(5973663,2)) + e5:SetProperty(EFFECT_FLAG_CARD_TARGET) + e5:SetType(EFFECT_TYPE_IGNITION) + e5:SetRange(LOCATION_SZONE) + e5:SetCost(c5973663.cost3) + e5:SetTarget(c5973663.tg3) + e5:SetOperation(c5973663.op3) + c:RegisterEffect(e5) +end +function c5973663.ctfilter(c) + return c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousPosition(POS_FACEUP) and bit.band(c:GetPreviousRaceOnField(),RACE_PLANT)~=0 +end +function c5973663.ctcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c5973663.ctfilter,1,nil) +end +function c5973663.ctop(e,tp,eg,ep,ev,re,r,rp) + e:GetHandler():AddCounter(0x18,1) +end +function c5973663.cost1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x18,1,REASON_COST) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) + e:GetHandler():RemoveCounter(tp,0x18,1,REASON_COST) +end +function c5973663.filter1(c) + return c:IsFaceup() and c:IsRace(RACE_PLANT) +end +function c5973663.tg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and c5973663.filter1(chkc) end + if chk==0 then return Duel.IsExistingTarget(c5973663.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,c5973663.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,1,0,500) +end +function c5973663.op1(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(400) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + tc:RegisterEffect(e2) + end +end +function c5973663.cost2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x18,2,REASON_COST) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) + e:GetHandler():RemoveCounter(tp,0x18,2,REASON_COST) +end +function c5973663.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c5973663.op2(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c5973663.cost3(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x18,3,REASON_COST) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) + e:GetHandler():RemoveCounter(tp,0x18,3,REASON_COST) +end +function c5973663.filter3(c,e,tp) + return c:IsRace(RACE_PLANT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c5973663.tg3(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c5973663.filter3(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c5973663.filter3,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c5973663.filter3,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c5973663.op3(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c59744639.lua b/script/c59744639.lua index e84d0e05..f05b6adb 100644 --- a/script/c59744639.lua +++ b/script/c59744639.lua @@ -17,5 +17,5 @@ function c59744639.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c59744639.operation(e,tp,eg,ep,ev,re,r,rp) local sg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) - Duel.ChangePosition(sg,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(sg,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end diff --git a/script/c5975022.lua b/script/c5975022.lua index 6f30033d..e24702df 100644 --- a/script/c5975022.lua +++ b/script/c5975022.lua @@ -29,7 +29,7 @@ function c5975022.descon(e,tp,eg,ep,ev,re,r,rp) return st>=(SUMMON_TYPE_SPECIAL+100) and st<(SUMMON_TYPE_SPECIAL+150) end function c5975022.desfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c5975022.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:GetLocation()==LOCATION_MZONE and c5975022.desfilter(chkc) end diff --git a/script/c59750328.lua b/script/c59750328.lua new file mode 100644 index 00000000..1260b461 --- /dev/null +++ b/script/c59750328.lua @@ -0,0 +1,61 @@ +--命削りの宝札 +function c59750328.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DRAW) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,59750328+EFFECT_COUNT_CODE_OATH) + e1:SetCost(c59750328.cost) + e1:SetTarget(c59750328.target) + e1:SetOperation(c59750328.activate) + c:RegisterEffect(e1) +end +function c59750328.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)==0 end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetReset(RESET_PHASE+PHASE_END) + e1:SetTargetRange(1,0) + Duel.RegisterEffect(e1,tp) +end +function c59750328.target(e,tp,eg,ep,ev,re,r,rp,chk) + local ct=3-Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) + if chk==0 then return ct>0 and Duel.IsPlayerCanDraw(tp,ct) end + Duel.SetTargetPlayer(tp) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct) +end +function c59750328.activate(e,tp,eg,ep,ev,re,r,rp) + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + local ct=3-Duel.GetFieldGroupCount(p,LOCATION_HAND,0) + if ct>0 then + Duel.Draw(p,ct,REASON_EFFECT) + end + if e:IsHasType(EFFECT_TYPE_ACTIVATE) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CHANGE_DAMAGE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(0,1) + e1:SetValue(0) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,p) + local e2=e1:Clone() + e2:SetCode(EFFECT_NO_EFFECT_DAMAGE) + e2:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e2,p) + end + local e3=Effect.CreateEffect(e:GetHandler()) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_PHASE+PHASE_END) + e3:SetCountLimit(1) + e3:SetReset(RESET_PHASE+PHASE_END) + e3:SetOperation(c59750328.tgop) + Duel.RegisterEffect(e3,p) +end +function c59750328.tgop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetFieldGroup(e:GetOwnerPlayer(),LOCATION_HAND,0) + Duel.SendtoGrave(g,REASON_EFFECT) +end diff --git a/script/c59755122.lua b/script/c59755122.lua index b4e5497d..35fceaf9 100644 --- a/script/c59755122.lua +++ b/script/c59755122.lua @@ -18,7 +18,9 @@ function c59755122.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c59755122.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c59762399.lua b/script/c59762399.lua new file mode 100644 index 00000000..4f6b0211 --- /dev/null +++ b/script/c59762399.lua @@ -0,0 +1,80 @@ +--EMオッドアイズ・ライトフェニックス +function c59762399.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(59762399,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetRange(LOCATION_PZONE) + e1:SetCondition(c59762399.spcon) + e1:SetTarget(c59762399.sptg) + e1:SetOperation(c59762399.spop) + c:RegisterEffect(e1) + --atk + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(59762399,1)) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_MZONE) + e2:SetHintTiming(TIMING_DAMAGE_STEP) + e2:SetCondition(c59762399.atkcon) + e2:SetCost(c59762399.atkcost) + e2:SetTarget(c59762399.atktg) + e2:SetOperation(c59762399.atkop) + c:RegisterEffect(e2) +end +function c59762399.spcon(e,tp,eg,ep,ev,re,r,rp) + local at=Duel.GetAttacker() + local seq=e:GetHandler():GetSequence() + return at:GetControler()~=tp and Duel.GetAttackTarget()==nil and Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) +end +function c59762399.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + local seq=c:GetSequence() + local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) +end +function c59762399.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local seq=c:GetSequence() + local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) + if tc and Duel.Destroy(tc,REASON_EFFECT)~=0 then + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + end +end +function c59762399.atkcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() +end +function c59762399.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c59762399.atkfilter(c) + return c:IsFaceup() and c:IsSetCard(0x9f) +end +function c59762399.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c59762399.atkfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c59762399.atkfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,c59762399.atkfilter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,1,0,0) +end +function c59762399.atkop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsFacedown() or not tc:IsRelateToEffect(e) then return end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetValue(1000) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) +end diff --git a/script/c59771339.lua b/script/c59771339.lua index fd0c67c7..1ecf5d37 100644 --- a/script/c59771339.lua +++ b/script/c59771339.lua @@ -58,7 +58,7 @@ function c59771339.operation(e,tp,eg,ep,ev,re,r,rp) end function c59771339.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsDefencePos() + return e:GetHandler()==Duel.GetAttacker() and d and d:IsDefensePos() end function c59771339.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c59784896.lua b/script/c59784896.lua index a702d464..f77b9256 100644 --- a/script/c59784896.lua +++ b/script/c59784896.lua @@ -1,6 +1,6 @@ --ダークゼブラ function c59784896.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(59784896,0)) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) @@ -15,7 +15,6 @@ function c59784896.initial_effect(c) end function c59784896.condition(e,tp,eg,ep,ev,re,r,rp) return tp==Duel.GetTurnPlayer() and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==1 - and e:GetHandler():IsAttackPos() end function c59784896.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -23,13 +22,12 @@ function c59784896.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c59784896.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) and Duel.ChangePosition(c,POS_FACEUP_DEFENSE)~=0 then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_COPY_INHERIT) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_COPY_INHERIT) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) end diff --git a/script/c59785059.lua b/script/c59785059.lua index 5f9227b3..8e5e8c5a 100644 --- a/script/c59785059.lua +++ b/script/c59785059.lua @@ -21,7 +21,7 @@ function c59785059.initial_effect(c) c:RegisterEffect(e2) end function c59785059.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0xc8) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0xc8) end function c59785059.desfilter2(c,e) return c59785059.desfilter(c) and c:IsCanBeEffectTarget(e) @@ -55,7 +55,12 @@ end function c59785059.spop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if Duel.Destroy(g,REASON_EFFECT)~=0 then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end end end function c59785059.thfilter(c) diff --git a/script/c59797187.lua b/script/c59797187.lua index ec0b45d5..4196ae30 100644 --- a/script/c59797187.lua +++ b/script/c59797187.lua @@ -18,6 +18,6 @@ end function c59797187.operation(e,tp,eg,ep,ev,re,r,rp) local bc=e:GetHandler():GetBattleTarget() if bc:IsRelateToBattle() and bc:IsFaceup() then - Duel.ChangePosition(bc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(bc,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c59808784.lua b/script/c59808784.lua index b5304454..c65ac13c 100644 --- a/script/c59808784.lua +++ b/script/c59808784.lua @@ -33,9 +33,6 @@ function c59808784.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c59808784.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) @@ -44,6 +41,11 @@ function c59808784.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetTargetRange(1,0) e1:SetTarget(c59808784.splimit) Duel.RegisterEffect(e1,tp) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end end function c59808784.splimit(e,c,sump,sumtype,sumpos,targetp,se) return c:IsLocation(LOCATION_EXTRA) diff --git a/script/c59822133.lua b/script/c59822133.lua new file mode 100644 index 00000000..624b3997 --- /dev/null +++ b/script/c59822133.lua @@ -0,0 +1,93 @@ +--青眼の精霊龍 +function c59822133.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsSetCard,0xdd),1) + c:EnableReviveLimit() + --special summon limit + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(59822133) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,1) + c:RegisterEffect(e1) + --negate + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(59822133,0)) + e2:SetCategory(CATEGORY_NEGATE) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCode(EVENT_CHAINING) + e2:SetCondition(c59822133.negcon) + e2:SetTarget(c59822133.negtg) + e2:SetOperation(c59822133.negop) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(59822133,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER_E) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetCondition(c59822133.spcon) + e3:SetCost(c59822133.spcost) + e3:SetTarget(c59822133.sptg) + e3:SetOperation(c59822133.spop) + c:RegisterEffect(e3) +end +function c59822133.negcon(e,tp,eg,ep,ev,re,r,rp) + return re:GetActivateLocation()==LOCATION_GRAVE and Duel.IsChainNegatable(ev) +end +function c59822133.negtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) +end +function c59822133.negop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) +end +function c59822133.spcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SYNCHRO)==SUMMON_TYPE_SYNCHRO +end +function c59822133.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c59822133.spfilter(c,e,tp) + return c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsType(TYPE_SYNCHRO) + and not c:IsCode(59822133) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c59822133.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c59822133.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c59822133.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c59822133.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) + local tc=g:GetFirst() + if tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then + tc:RegisterFlagEffect(59822133,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_PHASE+PHASE_END) + e1:SetCountLimit(1) + e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetLabelObject(tc) + e1:SetReset(RESET_PHASE+PHASE_END) + e1:SetCondition(c59822133.descon) + e1:SetOperation(c59822133.desop) + Duel.RegisterEffect(e1,tp) + end +end +function c59822133.descon(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + return tc:GetFlagEffect(59822133)~=0 +end +function c59822133.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + Duel.Destroy(tc,REASON_EFFECT) +end diff --git a/script/c59839761.lua b/script/c59839761.lua index 143cede9..e4ba61ba 100644 --- a/script/c59839761.lua +++ b/script/c59839761.lua @@ -27,7 +27,7 @@ function c59839761.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c59839761.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c59839761.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c59839761.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c59839761.filter,tp,0,LOCATION_SZONE,1,nil) end diff --git a/script/c5990062.lua b/script/c5990062.lua index 48eafa71..83fde76b 100644 --- a/script/c5990062.lua +++ b/script/c5990062.lua @@ -12,14 +12,10 @@ function c5990062.cfilter(c) return not c:IsAbleToGraveAsCost() end function c5990062.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local g1=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,0) - local g2=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - g1:RemoveCard(e:GetHandler()) - g2:RemoveCard(e:GetHandler()) - if chk==0 then return g1:GetCount()>0 and not g1:IsExists(c5990062.cfilter,1,nil) - and g2:GetCount()>0 and not g2:IsExists(c5990062.cfilter,1,nil) end - g1:Merge(g2) - Duel.SendtoGrave(g1,REASON_COST) + local g=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_ONFIELD,0) + g:RemoveCard(e:GetHandler()) + if chk==0 then return g:GetCount()>0 and not g:IsExists(c5990062.cfilter,1,nil) end + Duel.SendtoGrave(g,REASON_COST) end function c5990062.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetDecktopGroup(tp,1) diff --git a/script/c59911557.lua b/script/c59911557.lua index 18586f3c..1da2b7bf 100644 --- a/script/c59911557.lua +++ b/script/c59911557.lua @@ -28,7 +28,7 @@ end function c59911557.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end function c59911557.tgcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c59965151.lua b/script/c59965151.lua index 502f18c4..834323e1 100644 --- a/script/c59965151.lua +++ b/script/c59965151.lua @@ -7,6 +7,7 @@ function c59965151.initial_effect(c) e1:SetCode(EVENT_BE_BATTLE_TARGET) e1:SetRange(LOCATION_MZONE) e1:SetCondition(c59965151.cbcon) + e1:SetTarget(c59965151.cbtg) e1:SetOperation(c59965151.cbop) c:RegisterEffect(e1) --atkdown @@ -25,8 +26,14 @@ function c59965151.cbcon(e,tp,eg,ep,ev,re,r,rp) local bt=eg:GetFirst() return c~=bt and bt:IsFaceup() and bt:GetControler()==c:GetControler() end +function c59965151.cbtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetAttacker():GetAttackableTarget():IsContains(e:GetHandler()) end +end function c59965151.cbop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeAttackTarget(e:GetHandler()) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and not Duel.GetAttacker():IsImmuneToEffect(e) then + Duel.ChangeAttackTarget(c) + end end function c59965151.atkcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsReason(REASON_DESTROY) diff --git a/script/c59975920.lua b/script/c59975920.lua index 6ccf6348..ddbc664c 100644 --- a/script/c59975920.lua +++ b/script/c59975920.lua @@ -1,82 +1,82 @@ ---超量士レッドレイヤー -function c59975920.initial_effect(c) - --spsummon proc - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(59975920,0)) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c59975920.spcon) - c:RegisterEffect(e1) - --to hand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(59975920,1)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetCountLimit(1,59975920) - e2:SetTarget(c59975920.thtg) - e2:SetOperation(c59975920.thop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - --special summon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(59975920,2)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e4:SetCountLimit(1,59975921) - e4:SetTarget(c59975920.sptg) - e4:SetOperation(c59975920.spop) - c:RegisterEffect(e4) -end -function c59975920.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0,nil)==0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c59975920.thfilter(c) - return c:IsSetCard(0xdc) and c:IsAbleToHand() -end -function c59975920.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c59975920.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c59975920.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c59975920.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c59975920.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end -function c59975920.filter(c,e,tp) - return c:IsSetCard(0xdc) and not c:IsCode(59975920) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c59975920.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c59975920.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c59975920.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c59975920.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c59975920.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_TRIGGER) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - Duel.SpecialSummonComplete() - end -end +--超量士レッドレイヤー +function c59975920.initial_effect(c) + --spsummon proc + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(59975920,0)) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c59975920.spcon) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(59975920,1)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetCountLimit(1,59975920) + e2:SetTarget(c59975920.thtg) + e2:SetOperation(c59975920.thop) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) + --special summon + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(59975920,2)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e4:SetCountLimit(1,59975921) + e4:SetTarget(c59975920.sptg) + e4:SetOperation(c59975920.spop) + c:RegisterEffect(e4) +end +function c59975920.spcon(e,c) + if c==nil then return true end + return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0,nil)==0 + and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 +end +function c59975920.thfilter(c) + return c:IsSetCard(0xdc) and c:IsAbleToHand() +end +function c59975920.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c59975920.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c59975920.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c59975920.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c59975920.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c59975920.filter(c,e,tp) + return c:IsSetCard(0xdc) and not c:IsCode(59975920) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c59975920.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c59975920.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c59975920.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c59975920.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c59975920.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetDescription(aux.Stringid(59975920,3)) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_TRIGGER) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CLIENT_HINT) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + Duel.SpecialSummonComplete() + end +end diff --git a/script/c6000.lua b/script/c6000.lua deleted file mode 100644 index 15a194bb..00000000 --- a/script/c6000.lua +++ /dev/null @@ -1,96 +0,0 @@ ---Scripted by Eerie Code ---Antihope, the God of Despair -function c6000.initial_effect(c) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND+LOCATION_GRAVE) - e2:SetCondition(c6000.spcon) - e2:SetOperation(c6000.spop) - c:RegisterEffect(e2) - --cannot attack announce - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_CANNOT_ATTACK) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetTarget(c6000.antarget) - c:RegisterEffect(e3) - --Invincible - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(6000,0)) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e4:SetCode(EVENT_FREE_CHAIN) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetHintTiming(TIMING_BATTLE_PHASE) - e4:SetRange(LOCATION_MZONE) - e4:SetCondition(c6000.incon) - e4:SetCost(c6000.incost) - e4:SetOperation(c6000.inop) - c:RegisterEffect(e4) -end - -function c6000.spfilter(c) - return c:IsFaceup() and c:GetLevel()==1 and c:IsAbleToGraveAsCost() -end -function c6000.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-4 and Duel.IsExistingMatchingCard(c6000.spfilter,c:GetControler(),LOCATION_MZONE,0,4,nil) -end -function c6000.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c6000.spfilter,c:GetControler(),LOCATION_MZONE,0,4,4,nil) - Duel.SendtoGrave(g,REASON_COST) -end - -function c6000.antarget(e,c) - return c~=e:GetHandler() -end - -function c6000.infil(c) - return c:IsType(TYPE_MONSTER) and c:GetLevel()==1 and c:IsAbleToRemoveAsCost() -end -function c6000.incon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bt=Duel.GetAttacker() - if bt and bt==c then return not c:IsStatus(STATUS_CHAINING) end - bt=Duel.GetAttackTarget() - return bt and bt==c and not c:IsStatus(STATUS_CHAINING) -end -function c6000.incost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(6000)==0 and Duel.IsExistingMatchingCard(c6000.infil,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c6000.infil,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) - e:GetHandler():RegisterFlagEffect(6000,RESET_PHASE+RESET_DAMAGE_CAL,0,1) -end -function c6000.inop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_IMMUNE_EFFECT) - e1:SetValue(c6000.efilter) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(1) - e2:SetReset(RESET_PHASE+PHASE_DAMAGE) - c:RegisterEffect(e2) -end -function c6000.efilter(e,te) - return te:GetOwner()~=e:GetOwner() -end \ No newline at end of file diff --git a/script/c60004971.lua b/script/c60004971.lua index 180c346a..cd772973 100644 --- a/script/c60004971.lua +++ b/script/c60004971.lua @@ -65,7 +65,7 @@ function c60004971.efilter(e,re) return re:IsActiveType(TYPE_TRAP) end function c60004971.eqfilter(c) - return c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) and c:IsType(TYPE_TUNER) + return c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) and c:IsType(TYPE_TUNER) and not c:IsForbidden() end function c60004971.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 diff --git a/script/c6003.lua b/script/c6003.lua deleted file mode 100755 index 28c23887..00000000 --- a/script/c6003.lua +++ /dev/null @@ -1,47 +0,0 @@ ---Scripted by Eerie Code, fixed by Percival18 ---Sakuriboh -function c6003.initial_effect(c) - --Draw - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6003,0)) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_RELEASE) - e1:SetTarget(c6003.drtg) - e1:SetOperation(c6003.drop) - c:RegisterEffect(e1) - --Destroy Replace - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_DESTROY_REPLACE) - e2:SetRange(LOCATION_GRAVE) - e2:SetTarget(c6003.reptg) - e2:SetValue(c6003.repval) - e2:SetOperation(c6003.repop) - c:RegisterEffect(e2) -end - -function c6003.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c6003.drop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end - -function c6003.filter(c,tp) - return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsReason(REASON_BATTLE) -end -function c6003.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c6003.filter,1,nil,tp) and not e:GetHandler():IsStatus(STATUS_DESTROY_CONFIRMED) end - return Duel.SelectYesNo(tp,aux.Stringid(6003,1)) -end -function c6003.repval(e,c) - return c6003.filter(c,e:GetHandlerPlayer()) -end -function c6003.repop(e,tp,eg,ep,ev,re,r,rp) - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT+REASON_REPLACE) -end \ No newline at end of file diff --git a/script/c6007213.lua b/script/c6007213.lua index 3cf88e26..5f3c35b7 100644 --- a/script/c6007213.lua +++ b/script/c6007213.lua @@ -70,7 +70,7 @@ function c6007213.atkval(e,c) return Duel.GetMatchingGroupCount(c6007213.atkfilter,c:GetControler(),LOCATION_GRAVE,0,nil)*1000 end function c6007213.desfilter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c6007213.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and c6007213.desfilter(chkc) end diff --git a/script/c60082869.lua b/script/c60082869.lua index b49c4f8e..996a415b 100644 --- a/script/c60082869.lua +++ b/script/c60082869.lua @@ -12,7 +12,7 @@ function c60082869.initial_effect(c) c:RegisterEffect(e1) end function c60082869.filter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c60082869.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c60082869.filter(chkc) end diff --git a/script/c6010.lua b/script/c6010.lua deleted file mode 100755 index 0f141f91..00000000 --- a/script/c6010.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Scripted by Eerie Code ---Performapal La Panda -function c6010.initial_effect(c) - --Pendulum Summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Scale change - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6010,0)) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetOperation(c6010.scop) - c:RegisterEffect(e2) - --negate attack - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6010,1)) - e3:SetProperty(EFFECT_FLAG_NO_TURN_RESET) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BE_BATTLE_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1,6010) - e3:SetCondition(c6010.condition) - e3:SetOperation(c6010.operation) - c:RegisterEffect(e3) -end - -function c6010.scop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) or c:GetLeftScale()==12 then return end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LSCALE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_RSCALE) - c:RegisterEffect(e2) -end -function c6010.condition(e,tp,eg,ep,ev,re,r,rp) - local d=Duel.GetAttackTarget() - return d and d:IsControler(tp) and d:IsFaceup() and d:IsType(TYPE_PENDULUM) -end -function c6010.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateAttack() -end diff --git a/script/c60102563.lua b/script/c60102563.lua old mode 100755 new mode 100644 diff --git a/script/c6011.lua b/script/c6011.lua deleted file mode 100755 index 68145b1d..00000000 --- a/script/c6011.lua +++ /dev/null @@ -1,44 +0,0 @@ ---Scripted by Eerie Code ---Stardust Assault Warrior -function c6011.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --pierce - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e1) - --Special Summon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1,6011) - e2:SetCondition(c6011.spcon) - e2:SetTarget(c6011.sptg) - e2:SetOperation(c6011.spop) - c:RegisterEffect(e2) -end - -function c6011.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==1 -end -function c6011.filter(c,e,tp) - return c:IsSetCard(0x43) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6011.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6011.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and - Duel.IsExistingTarget(c6011.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c6011.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c6011.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c601193.lua b/script/c601193.lua old mode 100755 new mode 100644 diff --git a/script/c6012.lua b/script/c6012.lua deleted file mode 100755 index faa1ffbc..00000000 --- a/script/c6012.lua +++ /dev/null @@ -1,153 +0,0 @@ ---Scripted by Eerie Code ---Number 93: Utopia Kaiser -function c6012.initial_effect(c) - --Xyz Summon - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetRange(LOCATION_EXTRA) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetCondition(c6012.xyzcon) - e1:SetOperation(c6012.xyzop) - e1:SetValue(SUMMON_TYPE_XYZ) - c:RegisterEffect(e1) - --Special Summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6012,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCondition(c6012.spcon) - e2:SetTarget(c6012.sptg) - e2:SetOperation(c6012.spop) - c:RegisterEffect(e2) - --Indes - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetCondition(c6012.indcon) - e3:SetValue(1) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e4) -end - -c6012.xyz_number=93 - -function c6012.mfilter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsSetCard(0x48) and c:GetOverlayCount()>0 -end -function c6012.xyzfilter1(c,g) - return g:IsExists(c6012.xyzfilter2,1,c,c:GetRank()) -end -function c6012.xyzfilter2(c,rk) - return c:GetRank()==rk -end -function c6012.xyzcon(e,c,og) - if c==nil then return true end - local tp=c:GetControler() - local mg=Duel.GetMatchingGroup(c6012.mfilter,tp,LOCATION_MZONE,0,nil) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and mg:IsExists(c6012.xyzfilter1,1,nil,mg) -end -function c6012.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og) - local mg=Duel.GetMatchingGroup(c6012.mfilter,tp,LOCATION_MZONE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local g1=mg:FilterSelect(tp,c6012.xyzfilter1,1,1,nil,mg) - local tc1=g1:GetFirst() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) - local g2=mg:FilterSelect(tp,c6012.xyzfilter2,1,4,tc1,tc1:GetRank()) - --local tc2=g2:GetFirst() - --g1:Merge(g2) - local sg1=tc1:GetOverlayGroup() - --local sg2=tc2:GetOverlayGroup() - --sg1:Merge(sg2) - local tc=g2:GetFirst() - while tc do - local sg=tc:GetOverlayGroup() - sg1:Merge(sg) - g1:AddCard(tc) - tc=g2:GetNext() - end - Duel.SendtoGrave(sg1,REASON_RULE) - c:SetMaterial(g1) - Duel.Overlay(c,g1) -end - -function c6012.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetOverlayCount()>0 -end -function c6012.spfil1(c,e,tp) - return c:IsSetCard(0x48) and c:IsRankBelow(9) and c:IsAttackBelow(3000) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6012.spfil2(c,rk) - return c:GetRank()==rk -end -function c6012.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c6012.spfil1,tp,LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c6012.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local oc=c:GetOverlayCount() - local g=Duel.GetMatchingGroup(c6012.spfil1,tp,LOCATION_EXTRA,0,nil,e,tp) - local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) - local cg=Group.CreateGroup() - while oc>0 and ct>0 do - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:Select(tp,1,1,nil) - g:Remove(c6012.spfil2,nil,sg:GetFirst():GetRank()) - cg:Merge(sg) - oc=oc-1 - ct=ct-1 - if oc>0 and ct>0 then - if not Duel.SelectYesNo(tp,aux.Stringid(6012,1)) then oc=0 end - end - end - local tc=cg:GetFirst() - while tc do - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1,true) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2,true) - tc=cg:GetNext() - end - Duel.SpecialSummonComplete() - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(0,1) - e1:SetValue(c6012.val) - e1:SetReset(RESET_PHASE+RESET_END) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetReset(RESET_PHASE+RESET_END) - Duel.RegisterEffect(e2,tp) -end -function c6012.val(e,re,dam,r,rp,rc) - if bit.band(r,REASON_BATTLE)~=0 then - return dam/2 - else return dam end -end - -function c6012.indcon(e) - return Duel.IsExistingMatchingCard(Card.IsSetCard,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,e:GetHandler(),0x48) -end \ No newline at end of file diff --git a/script/c60187739.lua b/script/c60187739.lua index bb86db2b..2cfb63db 100644 --- a/script/c60187739.lua +++ b/script/c60187739.lua @@ -36,8 +36,7 @@ function c60187739.initial_effect(c) end end function c60187739.checkop(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - c60187739[tc:GetControler()]=true + c60187739[ep]=true end function c60187739.clear(e,tp,eg,ep,ev,re,r,rp) c60187739[0]=false diff --git a/script/c60202749.lua b/script/c60202749.lua index 7df45f94..7d320d19 100644 --- a/script/c60202749.lua +++ b/script/c60202749.lua @@ -55,9 +55,9 @@ function c60202749.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c60202749.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE) diff --git a/script/c60222582.lua b/script/c60222582.lua index d2ab4788..087d2d08 100644 --- a/script/c60222582.lua +++ b/script/c60222582.lua @@ -30,6 +30,6 @@ function c60222582.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c60222582.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c60226558.lua b/script/c60226558.lua index 9209cd4f..efc861de 100644 --- a/script/c60226558.lua +++ b/script/c60226558.lua @@ -119,14 +119,5 @@ function c60226558.spop(e,tp,eg,ep,ev,re,r,rp) fop(ce,e,tp,tc,mat2) end tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end diff --git a/script/c60228941.lua b/script/c60228941.lua old mode 100755 new mode 100644 index 1340f9e2..885c3d15 --- a/script/c60228941.lua +++ b/script/c60228941.lua @@ -15,7 +15,7 @@ function c60228941.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsPreviousLocation(LOCATION_HAND) and bit.band(r,0x4040)==0x4040 end function c60228941.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return c60228941.filter2(chkc) and chkc:IsControler(1-tp) and IsLocation(LOCATION_GRAVE) end + if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_GRAVE) and c60228941.filter2(chkc,e,tp) end if chk==0 then return true end Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) if tp~=rp and tp==e:GetLabel() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -45,7 +45,7 @@ function c60228941.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then Duel.BreakEffect() - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end end diff --git a/script/c60234913.lua b/script/c60234913.lua index 0218edc2..6ee7e58b 100644 --- a/script/c60234913.lua +++ b/script/c60234913.lua @@ -31,7 +31,7 @@ function c60234913.utop(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e1:SetValue(aux.tgval) + e1:SetValue(1) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) end diff --git a/script/c6025.lua b/script/c6025.lua deleted file mode 100755 index dd5b6f38..00000000 --- a/script/c6025.lua +++ /dev/null @@ -1,82 +0,0 @@ ---Scripted by Eerie Code ---Sacred Black Luster Soldier -function c6025.initial_effect(c) - --Remove - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6025,0)) - e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_REMOVE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCountLimit(1,6025) - e1:SetTarget(c6025.rmtg) - e1:SetOperation(c6025.rmop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - --Tohand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6025,1)) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetCode(EVENT_BATTLE_DESTROYING) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetCondition(c6025.thcon) - e3:SetTarget(c6025.thtg) - e3:SetOperation(c6025.thop) - c:RegisterEffect(e3) -end - -function c6025.rmfil1(c) - return c:IsFaceup() and (c:IsAttribute(ATTRIBUTE_LIGHT) or c:IsAttribute(ATTRIBUTE_DARK)) -end -function c6025.rmfil2(c) - return c:IsAbleToRemove() -end -function c6025.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c6025.rmfil1,tp,LOCATION_REMOVED,0,1,nil) - and Duel.IsExistingTarget(c6025.rmfil2,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectTarget(tp,c6025.rmfil1,tp,LOCATION_REMOVED,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g1,1,0,0) - e:SetLabelObject(g1:GetFirst()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g2=Duel.SelectTarget(tp,c6025.rmfil2,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g2,1,0,0) -end -function c6025.rmop(e,tp,eg,ep,ev,re,r,rp) - local tc1=e:GetLabelObject() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc2=g:GetFirst() - if tc1==tc2 then tc2=g:GetNext() end - if tc1:IsRelateToEffect(e) and Duel.SendtoGrave(tc1,REASON_EFFECT+REASON_RETURN)~=0 then - if tc2:IsFaceup() and tc2:IsRelateToEffect(e) then - Duel.Remove(tc2,POS_FACEUP,REASON_EFFECT) - end - end -end - -function c6025.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and bc:IsType(TYPE_MONSTER) -end -function c6025.thfilter(c) - return c:IsLevelBelow(7) and c:IsRace(RACE_WARRIOR) and c:IsAbleToHand() -end -function c6025.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6025.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6025.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c6025.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c6025.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end \ No newline at end of file diff --git a/script/c60258960.lua b/script/c60258960.lua index c98cfa1c..65f8f44f 100644 --- a/script/c60258960.lua +++ b/script/c60258960.lua @@ -1,7 +1,7 @@ --伝説の爆炎使い function c60258960.initial_effect(c) c:EnableReviveLimit() - c:EnableCounterPermit(0x3001) + c:EnableCounterPermit(0x1) --add counter local e0=Effect.CreateEffect(c) e0:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) @@ -29,20 +29,20 @@ function c60258960.initial_effect(c) end function c60258960.acop(e,tp,eg,ep,ev,re,r,rp) if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c60258960.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x3001,3,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x3001,3,REASON_COST) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,3,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1,3,REASON_COST) end function c60258960.destg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,c) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,c) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,c) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,c) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c60258960.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c60306104.lua b/script/c60306104.lua index 267296bb..14888af7 100644 --- a/script/c60306104.lua +++ b/script/c60306104.lua @@ -17,5 +17,5 @@ function c60306104.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c60306104.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsAttackPos,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,0,0) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,0,0) end diff --git a/script/c60316373.lua b/script/c60316373.lua index a1aff3b1..7e5e87fb 100644 --- a/script/c60316373.lua +++ b/script/c60316373.lua @@ -23,7 +23,7 @@ function c60316373.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c60316373.filter(c) - return c:IsSetCard(0x76) and c:IsAbleToHand() + return c:IsSetCard(0x76) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c60316373.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c60316373.filter(chkc) end diff --git a/script/c60398723.lua b/script/c60398723.lua index 945b499e..9b62b8cb 100644 --- a/script/c60398723.lua +++ b/script/c60398723.lua @@ -26,7 +26,7 @@ end function c60398723.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsControler(1-tp) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) local rg=Duel.GetMatchingGroup(c60398723.rfilter,tp,LOCATION_SZONE,LOCATION_SZONE,nil) if rg:GetCount()~=0 and Duel.SelectYesNo(tp,aux.Stringid(60398723,0)) then Duel.BreakEffect() diff --git a/script/c60399954.lua b/script/c60399954.lua old mode 100755 new mode 100644 index f44d4901..1a08a357 --- a/script/c60399954.lua +++ b/script/c60399954.lua @@ -33,7 +33,7 @@ function c60399954.operation(e,tp,eg,ep,ev,re,r,rp) if tc:IsFaceup() and tc:IsRelateToEffect(e) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE_START+PHASE_BATTLE) + e1:SetCode(EVENT_PHASE+PHASE_BATTLE_START) e1:SetRange(LOCATION_MZONE) e1:SetCountLimit(1) e1:SetOperation(c60399954.atkop) diff --git a/script/c60406591.lua b/script/c60406591.lua index 57faf462..68543df0 100644 --- a/script/c60406591.lua +++ b/script/c60406591.lua @@ -40,15 +40,19 @@ function c60406591.condition(e,tp,eg,ep,ev,re,r,rp) return c60406591[0]==tp and eg:GetCount()==1 and eg:GetFirst()==c60406591[2] end function c60406591.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return c60406591[1]>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>c60406591[1] + local ct=c60406591[1] + if chk==0 then return ct>0 and (ct==1 or not Duel.IsPlayerAffectedByEffect(tp,59822133)) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>=ct and Duel.IsPlayerCanSpecialSummonMonster(tp,60406592,0,0x4011,100,100,1,RACE_PLANT,ATTRIBUTE_DARK) end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,c60406591[1],0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,c60406591[1],0,0) + Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,ct,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,ct,0,0) end function c60406591.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) + or Duel.GetLocationCount(tp,LOCATION_MZONE)0 + and Duel.IsPlayerCanSpecialSummonMonster(tp,60433216,0,0x1011,0,0,1,RACE_FIEND,ATTRIBUTE_FIRE) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c60433216.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetAttacker() + if tc:IsControler(1-tp) then tc=Duel.GetAttackTarget() end + if not tc or not tc:IsRelateToBattle() then return end + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetValue(1) + e1:SetReset(RESET_PHASE+PHASE_DAMAGE) + tc:RegisterEffect(e1) + if not c:IsRelateToEffect(e) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + or not Duel.IsPlayerCanSpecialSummonMonster(tp,60433216,0,0x1011,0,0,1,RACE_FIEND,ATTRIBUTE_FIRE) then return end + c:AddMonsterAttribute(TYPE_NORMAL+TYPE_TUNER+TYPE_TRAP) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() + Duel.SpecialSummonComplete() +end diff --git a/script/c60434101.lua b/script/c60434101.lua index 06c76889..5440adf9 100644 --- a/script/c60434101.lua +++ b/script/c60434101.lua @@ -20,7 +20,7 @@ function c60434101.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,c60434101.costfilter,1,1,REASON_DISCARD+REASON_COST) end function c60434101.filter(c,atk) - return c:IsFaceup() and c:IsDestructable() and c:GetDefence()<=atk + return c:IsFaceup() and c:GetDefense()<=atk end function c60434101.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local c=e:GetHandler() @@ -33,7 +33,7 @@ end function c60434101.op(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetDefence()<=c:GetAttack() then + if c:IsFaceup() and c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetDefense()<=c:GetAttack() then Duel.Destroy(tc,REASON_EFFECT) end end diff --git a/script/c60434189.lua b/script/c60434189.lua old mode 100755 new mode 100644 diff --git a/script/c60473572.lua b/script/c60473572.lua new file mode 100644 index 00000000..82a1417b --- /dev/null +++ b/script/c60473572.lua @@ -0,0 +1,46 @@ +--メタルフォーゼ・スティエレン +function c60473572.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --destroy and set + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetTarget(c60473572.target) + e1:SetOperation(c60473572.operation) + c:RegisterEffect(e1) +end +function c60473572.desfilter(c,tp) + if c:IsFacedown() then return false end + local ft=Duel.GetLocationCount(tp,LOCATION_SZONE) + if ft==0 and c:IsLocation(LOCATION_SZONE) and c:GetSequence()<5 then + return Duel.IsExistingMatchingCard(c60473572.filter,tp,LOCATION_DECK,0,1,nil,true) + else + return Duel.IsExistingMatchingCard(c60473572.filter,tp,LOCATION_DECK,0,1,nil,false) + end +end +function c60473572.filter(c,ignore) + return c:IsSetCard(0xe1) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable(ignore) +end +function c60473572.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c60473572.desfilter(chkc,tp) and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(c60473572.desfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler(),tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c60473572.desfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler(),tp) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c60473572.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) + local g=Duel.SelectMatchingCard(tp,c60473572.filter,tp,LOCATION_DECK,0,1,1,nil,false) + if g:GetCount()>0 then + Duel.SSet(tp,g:GetFirst()) + Duel.ConfirmCards(1-tp,g) + end + end +end diff --git a/script/c60482781.lua b/script/c60482781.lua index d7803006..10d0afbf 100644 --- a/script/c60482781.lua +++ b/script/c60482781.lua @@ -21,7 +21,7 @@ c60482781.lvdncount=2 c60482781.lvdn={47507260,74591968} function c60482781.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefencePos() + return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefensePos() end function c60482781.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c60493189.lua b/script/c60493189.lua old mode 100755 new mode 100644 index f9a7c833..03643c18 --- a/script/c60493189.lua +++ b/script/c60493189.lua @@ -32,7 +32,7 @@ function c60493189.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c60493189.filter(c) - return c:IsAttackPos() and c:IsDestructable() + return c:IsAttackPos() end function c60493189.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c60493189.filter(chkc) end diff --git a/script/c60508057.lua b/script/c60508057.lua new file mode 100644 index 00000000..951c1f9f --- /dev/null +++ b/script/c60508057.lua @@ -0,0 +1,75 @@ +--RR－ナパーム・ドラゴニアス +function c60508057.initial_effect(c) + --damage + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(60508057,0)) + e1:SetCategory(CATEGORY_DAMAGE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetCountLimit(1) + e1:SetRange(LOCATION_MZONE) + e1:SetTarget(c60508057.damtg) + e1:SetOperation(c60508057.damop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(60508057,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BATTLE_DESTROYED) + e2:SetCondition(c60508057.spcon) + e2:SetTarget(c60508057.sptg) + e2:SetOperation(c60508057.spop) + c:RegisterEffect(e2) +end +function c60508057.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(600) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,600) +end +function c60508057.damop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetValue(c60508057.actlimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c60508057.actlimit(e,re,rp) + local rc=re:GetHandler() + return re:IsActiveType(TYPE_MONSTER) and not rc:IsSetCard(0xba) and not rc:IsImmuneToEffect(e) +end +function c60508057.spcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsLocation(LOCATION_GRAVE) +end +function c60508057.spfilter(c,e,tp) + return c:IsSetCard(0xba) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c60508057.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c60508057.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c60508057.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c60508057.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + local tc=g:GetFirst() + if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2) + end + Duel.SpecialSummonComplete() +end diff --git a/script/c60549248.lua b/script/c60549248.lua index 79d79506..2aca9751 100644 --- a/script/c60549248.lua +++ b/script/c60549248.lua @@ -51,8 +51,8 @@ function c60549248.thop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetValue(c:GetBaseDefence()*2) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) + e2:SetValue(c:GetBaseDefense()*2) c:RegisterEffect(e2) end end diff --git a/script/c6061630.lua b/script/c6061630.lua index 76a12ee0..68fc4949 100644 --- a/script/c6061630.lua +++ b/script/c6061630.lua @@ -1,6 +1,6 @@ --マジカル・コンダクター function c6061630.initial_effect(c) - c:EnableCounterPermit(0x3001) + c:EnableCounterPermit(0x1) --add counter local e0=Effect.CreateEffect(c) e0:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) @@ -28,12 +28,12 @@ function c6061630.initial_effect(c) end function c6061630.acop(e,tp,eg,ep,ev,re,r,rp) if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then - e:GetHandler():AddCounter(0x3001,2) + e:GetHandler():AddCounter(0x1,2) end end function c6061630.filter(c,cc,e,tp) - return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) - and c:GetLevel()>0 and cc:IsCanRemoveCounter(tp,0x3001,c:GetLevel(),REASON_COST) + return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and c:GetLevel()>0 and cc:IsCanRemoveCounter(tp,0x1,c:GetLevel(),REASON_COST) end function c6061630.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -53,12 +53,12 @@ function c6061630.sptg(e,tp,eg,ep,ev,re,r,rp,chk) lvt[pc]=nil Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(6061630,1)) local lv=Duel.AnnounceNumber(tp,table.unpack(lvt)) - e:GetHandler():RemoveCounter(tp,0x3001,lv,REASON_COST) + e:GetHandler():RemoveCounter(tp,0x1,lv,REASON_COST) e:SetLabel(lv) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) end function c6061630.sfilter(c,lv,e,tp) - return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:GetLevel()==lv end function c6061630.spop(e,tp,eg,ep,ev,re,r,rp) @@ -66,7 +66,7 @@ function c6061630.spop(e,tp,eg,ep,ev,re,r,rp) local lv=e:GetLabel() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c6061630.sfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,lv,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c60621361.lua b/script/c60621361.lua index 03703a39..4d6c16cb 100644 --- a/script/c60621361.lua +++ b/script/c60621361.lua @@ -69,9 +69,10 @@ end function c60621361.activate(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE)==0 then return end + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() end end function c60621361.checkop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c60627999.lua b/script/c60627999.lua old mode 100755 new mode 100644 diff --git a/script/c60634565.lua b/script/c60634565.lua index 30a45b39..c71c9dfe 100644 --- a/script/c60634565.lua +++ b/script/c60634565.lua @@ -18,7 +18,7 @@ function c60634565.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO end function c60634565.desfilter(c) - return c:IsFaceup() and c:GetAttack()==0 and c:IsDestructable() + return c:IsFaceup() and c:GetAttack()==0 end function c60634565.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c60666820.lua b/script/c60666820.lua old mode 100755 new mode 100644 index 3fd0cca1..dd038e4c --- a/script/c60666820.lua +++ b/script/c60666820.lua @@ -35,7 +35,7 @@ function c60666820.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()~=tp end function c60666820.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c60666820.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c60666820.filter(chkc) end diff --git a/script/c60668166.lua b/script/c60668166.lua index 59bdaec8..d72e3a1b 100644 --- a/script/c60668166.lua +++ b/script/c60668166.lua @@ -26,15 +26,16 @@ function c60668166.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c60668166.operation(e,tp,eg,ep,ev,re,r,rp) local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ct==0 then return end + if ct<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end local g=Duel.GetMatchingGroup(c60668166.filter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()>0 then local t1=g:GetFirst() local t2=g:GetNext() - Duel.SpecialSummonStep(t1,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummonStep(t1,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,t1) if t2 and ct>1 and Duel.SelectYesNo(tp,aux.Stringid(60668166,1)) then - Duel.SpecialSummonStep(t2,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummonStep(t2,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,t2) end Duel.SpecialSummonComplete() diff --git a/script/c60681103.lua b/script/c60681103.lua new file mode 100644 index 00000000..ca3fd0b1 --- /dev/null +++ b/script/c60681103.lua @@ -0,0 +1,73 @@ +--巨神竜フェルグラント +function c60681103.initial_effect(c) + --remove + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_REMOVE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e1:SetCondition(c60681103.rmcon) + e1:SetTarget(c60681103.rmtg) + e1:SetOperation(c60681103.rmop) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_BATTLE_DESTROYING) + e2:SetCondition(aux.bdocon) + e2:SetTarget(c60681103.sptg) + e2:SetOperation(c60681103.spop) + c:RegisterEffect(e2) +end +function c60681103.rmcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonLocation()==LOCATION_GRAVE +end +function c60681103.rmfilter(c) + return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() +end +function c60681103.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and chkc:IsControler(1-tp) and c60681103.rmfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c60681103.rmfilter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectTarget(tp,c60681103.rmfilter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) +end +function c60681103.rmop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + local c=e:GetHandler() + local atk=0 + if tc:IsRelateToEffect(e) and Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)~=0 then + if tc:IsType(TYPE_XYZ) then atk=tc:GetRank() else atk=tc:GetLevel() end + if c:IsFaceup() and c:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(atk*100) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e2) + end + end +end +function c60681103.filter(c,e,tp) + return c:IsRace(RACE_DRAGON) and (c:GetLevel()==7 or c:GetLevel()==8) and not c:IsCode(60681103) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c60681103.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c60681103.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c60681103.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c60681103.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c60681103.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c60718396.lua b/script/c60718396.lua index 67b8afb2..5b1ba91f 100644 --- a/script/c60718396.lua +++ b/script/c60718396.lua @@ -15,7 +15,7 @@ function c60718396.condition(e,tp,eg,ep,ev,re,r,rp) return re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) end function c60718396.cfilter(c) - return c:GetDefence()==200 and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToRemoveAsCost() + return c:GetDefense()==200 and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToRemoveAsCost() end function c60718396.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c60718396.cfilter,tp,LOCATION_GRAVE,0,1,nil) end diff --git a/script/c60728397.lua b/script/c60728397.lua index 90997875..f4a42d8c 100644 --- a/script/c60728397.lua +++ b/script/c60728397.lua @@ -12,8 +12,7 @@ function c60728397.initial_effect(c) c:RegisterEffect(e1) end function c60728397.cfilter(c) - local code=c:GetCode() - return c:IsFaceup() and (code==72677437 or code==8062132 or c:IsSetCard(0x50)) + return c:IsFaceup() and (c:IsCode(72677437,8062132) or c:IsSetCard(0x50)) end function c60728397.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c60728397.cfilter,tp,LOCATION_MZONE,0,1,nil) @@ -22,11 +21,11 @@ function c60728397.tgfilter(c) return c:IsRace(RACE_REPTILE) and c:IsAbleToGrave() end function c60728397.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsCanAddCounter(0x9,2) end - if chk==0 then return Duel.IsExistingTarget(Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,nil,0x9,2) + if chkc then return chkc:IsControler(1-tp) and chkc:IsCanAddCounter(0x1009,2) end + if chk==0 then return Duel.IsExistingTarget(Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,nil,0x1009,2) and Duel.IsExistingMatchingCard(c60728397.tgfilter,tp,LOCATION_DECK,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,1,nil,0x9,2) + local g=Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,1,nil,0x1009,2) Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0) end function c60728397.activate(e,tp,eg,ep,ev,re,r,rp) @@ -35,8 +34,12 @@ function c60728397.activate(e,tp,eg,ep,ev,re,r,rp) if g:GetCount()>0 then Duel.SendtoGrave(g,REASON_EFFECT) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsCanAddCounter(0x9,2) and g:GetFirst():IsLocation(LOCATION_GRAVE) then - tc:AddCounter(0x9,2) + if tc:IsRelateToEffect(e) and tc:IsCanAddCounter(0x1009,2) and g:GetFirst():IsLocation(LOCATION_GRAVE) then + local atk=tc:GetAttack() + tc:AddCounter(0x1009,2) + if atk>0 and tc:GetAttack()==0 then + Duel.RaiseEvent(tc,EVENT_CUSTOM+54306223,e,0,0,0,0) + end end end end diff --git a/script/c6075801.lua b/script/c6075801.lua new file mode 100644 index 00000000..7d283a02 --- /dev/null +++ b/script/c6075801.lua @@ -0,0 +1,94 @@ +--巨竜の聖騎士 +function c6075801.initial_effect(c) + --equip + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_EQUIP) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c6075801.eqtg) + e1:SetOperation(c6075801.eqop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --immune + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_IMMUNE_EFFECT) + e3:SetCondition(c6075801.eqcon) + e3:SetValue(c6075801.efilter) + c:RegisterEffect(e3) + --spsummon + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_MZONE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetCost(c6075801.spcost) + e4:SetTarget(c6075801.sptg) + e4:SetOperation(c6075801.spop) + c:RegisterEffect(e4) +end +function c6075801.filter(c) + return c:IsRace(RACE_DRAGON) and (c:GetLevel()==7 or c:GetLevel()==8) and not c:IsForbidden() +end +function c6075801.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 + and Duel.IsExistingMatchingCard(c6075801.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e:GetHandler()) end + Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_DECK+LOCATION_HAND) +end +function c6075801.eqop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or c:IsFacedown() or not c:IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + local g=Duel.SelectMatchingCard(tp,c6075801.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,c) + local tc=g:GetFirst() + if c:IsFaceup() and c:IsRelateToEffect(e) then + if not Duel.Equip(tp,tc,c,true) then return end + --Add Equip limit + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_EQUIP_LIMIT) + e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(c6075801.eqlimit) + tc:RegisterEffect(e1) + else Duel.SendtoGrave(tc,REASON_EFFECT) end +end +function c6075801.eqlimit(e,c) + return e:GetOwner()==c +end +function c6075801.eqcon(e) + local eg=e:GetHandler():GetEquipGroup() + return eg:GetCount()>0 +end +function c6075801.efilter(e,te) + return te:IsActiveType(TYPE_MONSTER) and te:GetOwner()~=e:GetOwner() +end +function c6075801.spfilter(c,e,tp) + return c:IsRace(RACE_DRAGON) and (c:GetLevel()==7 or c:GetLevel()==8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c6075801.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:IsReleasable() and Duel.CheckReleaseGroup(tp,nil,1,c) end + local rg=Duel.SelectReleaseGroup(tp,nil,1,1,c) + rg:AddCard(c) + Duel.Release(rg,REASON_COST) +end +function c6075801.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c6075801.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 + and Duel.IsExistingTarget(c6075801.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c6075801.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c6075801.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c60764581.lua b/script/c60764581.lua index b874f7c9..0f190b65 100644 --- a/script/c60764581.lua +++ b/script/c60764581.lua @@ -37,17 +37,19 @@ function c60764581.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) return e:GetLabelObject()~=se end function c60764581.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,60764582,0,0x4011,0,0,1,RACE_BEAST,ATTRIBUTE_EARTH) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c60764581.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,60764582,0,0x4011,0,0,1,RACE_BEAST,ATTRIBUTE_EARTH) then for i=1,2 do local token=Duel.CreateToken(tp,60764581+i) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end Duel.SpecialSummonComplete() end diff --git a/script/c60800381.lua b/script/c60800381.lua index 00d5daac..ad44afbf 100644 --- a/script/c60800381.lua +++ b/script/c60800381.lua @@ -26,7 +26,7 @@ end function c60800381.op(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local g=Duel.GetMatchingGroup(c60800381.filter,tp,LOCATION_MZONE,0,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and c:IsFaceup() and c:IsRelateToEffect(e) then local atk=0 local tc=g:GetFirst() while tc do diff --git a/script/c60866277.lua b/script/c60866277.lua index 67d94e6e..db781afc 100644 --- a/script/c60866277.lua +++ b/script/c60866277.lua @@ -10,18 +10,35 @@ function c60866277.initial_effect(c) e1:SetOperation(c60866277.operation) c:RegisterEffect(e1) end -function c60866277.filter(c) - return c:IsFaceup() and c:IsDestructable() -end function c60866277.desfilter(c,att) - return c:IsFaceup() and c:IsDestructable() and c:IsAttribute(att) + return c:IsFaceup() and c:IsAttribute(att) end function c60866277.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c60866277.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if chk==0 then + if g:GetCount()==0 then return false end + local tc=g:GetFirst() + local att=0 + while tc do + att=bit.bor(att,tc:GetAttribute()) + tc=g:GetNext() + end + return bit.band(att,att-1)~=0 + end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c60866277.operation(e,tp,eg,ep,ev,re,r,rp) + local sg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if sg:GetCount()==0 then return false end + local tc=sg:GetFirst() + local att=0 + while tc do + att=bit.bor(att,tc:GetAttribute()) + tc=sg:GetNext() + end + if bit.band(att,att-1)==0 then return end Duel.Hint(HINT_SELECTMSG,tp,562) - local att1=Duel.AnnounceAttribute(tp,2,0xff) + local att1=Duel.AnnounceAttribute(tp,2,att) Duel.Hint(HINT_SELECTMSG,1-tp,562) local att2=Duel.AnnounceAttribute(1-tp,1,att1) local g=Duel.GetMatchingGroup(c60866277.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,att2) diff --git a/script/c60879050.lua b/script/c60879050.lua old mode 100755 new mode 100644 index 68aa1a68..3ec3a882 --- a/script/c60879050.lua +++ b/script/c60879050.lua @@ -32,7 +32,6 @@ function c60879050.initial_effect(c) local e5=Effect.CreateEffect(c) e5:SetType(EFFECT_TYPE_FIELD) e5:SetCode(EFFECT_CANNOT_ATTACK) - e5:SetProperty(EFFECT_FLAG_OATH) e5:SetRange(LOCATION_SZONE) e5:SetTargetRange(LOCATION_MZONE,0) e5:SetTarget(c60879050.ftarget) diff --git a/script/c60930169.lua b/script/c60930169.lua index de1b2dfb..eaf0e7f4 100644 --- a/script/c60930169.lua +++ b/script/c60930169.lua @@ -21,10 +21,10 @@ end function c60930169.checkop(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local t=Duel.GetAttackTarget() - if a and a:IsDefencePos() and a:GetDefence()>a:GetAttack() and a:IsStatus(STATUS_BATTLE_DESTROYED) then + if a and a:IsDefensePos() and a:GetDefense()>a:GetAttack() and a:IsStatus(STATUS_BATTLE_DESTROYED) then a:RegisterFlagEffect(60930169,RESET_PHASE+PHASE_DAMAGE,0,1) end - if t and t:IsDefencePos() and t:GetDefence()>t:GetAttack() and t:IsStatus(STATUS_BATTLE_DESTROYED) then + if t and t:IsDefensePos() and t:GetDefense()>t:GetAttack() and t:IsStatus(STATUS_BATTLE_DESTROYED) then t:RegisterFlagEffect(60930169,RESET_PHASE+PHASE_DAMAGE,0,1) end end @@ -52,6 +52,6 @@ function c60930169.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c60930169.spfilter,tp,LOCATION_DECK,0,1,ft,nil,e,tp,e:GetLabel()) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c60946968.lua b/script/c60946968.lua index cd1f1356..0fccaa85 100644 --- a/script/c60946968.lua +++ b/script/c60946968.lua @@ -1,33 +1,32 @@ --異界空間－Aゾーン function c60946968.initial_effect(c) + --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) c:RegisterEffect(e1) --atk def local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) e2:SetRange(LOCATION_FZONE) - e2:SetOperation(c60946968.adval) + e2:SetTargetRange(0,LOCATION_MZONE) + e2:SetCondition(c60946968.adcon) + e2:SetTarget(c60946968.adtg) + e2:SetValue(-300) c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e3) end -function c60946968.addown(c,e) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(-300) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) -end -function c60946968.adval(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() +function c60946968.adcon(e) + if Duel.GetCurrentPhase()~=PHASE_DAMAGE_CAL then return false end local d=Duel.GetAttackTarget() - if not d then return end - if a:IsControler(1-tp) and d:IsSetCard(0xc) then c60946968.addown(a,e) end - if d:IsControler(1-tp) and a:IsSetCard(0xc) then c60946968.addown(d,e) end + if not d then return false end + local tp=e:GetHandlerPlayer() + if d:IsControler(1-tp) then d=Duel.GetAttacker() end + return d:IsSetCard(0xc) +end +function c60946968.adtg(e,c) + return c==Duel.GetAttacker() or c==Duel.GetAttackTarget() end diff --git a/script/c60950180.lua b/script/c60950180.lua index 71c74d91..c6bcb782 100644 --- a/script/c60950180.lua +++ b/script/c60950180.lua @@ -52,7 +52,7 @@ end function c60950180.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) end end function c60950180.spcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c60953118.lua b/script/c60953118.lua index 69b4d1e3..72179048 100644 --- a/script/c60953118.lua +++ b/script/c60953118.lua @@ -1,9 +1,9 @@ ---アルカナフォースXIV－TEMPERANCE +--アルカナフォースⅩⅣ－TEMPERANCE function c60953118.initial_effect(c) --no damage local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(60953118,1)) - e1:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetRange(LOCATION_HAND) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetCondition(c60953118.damcon) diff --git a/script/c60953949.lua b/script/c60953949.lua index e62682c4..a66aa05b 100644 --- a/script/c60953949.lua +++ b/script/c60953949.lua @@ -5,7 +5,7 @@ function c60953949.initial_effect(c) e1:SetDescription(aux.Stringid(60953949,0)) e1:SetCategory(CATEGORY_TOHAND) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) e1:SetCode(EVENT_TO_HAND) e1:SetCountLimit(1,60953949) e1:SetCondition(c60953949.thcon) @@ -18,7 +18,7 @@ function c60953949.thcon(e,tp,eg,ep,ev,re,r,rp) and e:GetHandler():IsPreviousLocation(LOCATION_DECK+LOCATION_GRAVE) end function c60953949.filter(c) - return (c:GetAttack()==500 or c:GetDefence()==500) and c:GetCode()~=60953949 + return (c:GetAttack()==500 or c:GetDefense()==500) and c:GetCode()~=60953949 and c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsAbleToHand() end function c60953949.thtg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c60990740.lua b/script/c60990740.lua old mode 100755 new mode 100644 diff --git a/script/c60992105.lua b/script/c60992105.lua old mode 100755 new mode 100644 diff --git a/script/c60992364.lua b/script/c60992364.lua index d79521da..141cd14e 100644 --- a/script/c60992364.lua +++ b/script/c60992364.lua @@ -61,7 +61,7 @@ function c60992364.operation(e,tp,eg,ep,ev,re,r,rp) end end function c60992364.filter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) + return c:IsFaceup() and c:IsSetCard(0x107f) end function c60992364.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c60992364.filter(chkc) end @@ -98,7 +98,7 @@ function c60992364.eqlimit(e,c) return c==e:GetLabelObject() end function c60992364.atcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_BATTLE and Duel.GetCurrentChain()==0 + return Duel.GetTurnPlayer()==tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) and Duel.GetCurrentChain()==0 end function c60992364.atcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end diff --git a/script/c61011311.lua b/script/c61011311.lua index fee332e2..c279d09c 100644 --- a/script/c61011311.lua +++ b/script/c61011311.lua @@ -24,7 +24,7 @@ end function c61011311.activate(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c61019812.lua b/script/c61019812.lua old mode 100755 new mode 100644 diff --git a/script/c61044390.lua b/script/c61044390.lua index 50efe460..870bf5fe 100644 --- a/script/c61044390.lua +++ b/script/c61044390.lua @@ -14,11 +14,11 @@ function c61044390.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetFieldGroupCount(tp,LOCATION_REMOVED,0)>=7 end function c61044390.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c61044390.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c6104968.lua b/script/c6104968.lua index 82b34991..6a6289ca 100644 --- a/script/c6104968.lua +++ b/script/c6104968.lua @@ -22,7 +22,7 @@ function c6104968.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local tc=Duel.GetFirstMatchingCard(c6104968.filter,tp,LOCATION_DECK,0,nil,e,tp) if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c6106.lua b/script/c6106.lua deleted file mode 100755 index e13f023c..00000000 --- a/script/c6106.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Scripted by Eerie Code ---Awakened Gaia the Fierce Knight -function c6106.initial_effect(c) - --ritual material - local e0=Effect.CreateEffect(c) - e0:SetType(EFFECT_TYPE_SINGLE) - e0:SetCode(EFFECT_EXTRA_RITUAL_MATERIAL) - e0:SetValue(aux.FilterBoolFunction(Card.IsSetCard,0xd0)) - c:RegisterEffect(e0) - --Normal Summon without Tribute - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6106,0)) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetCondition(c6106.ntcon) - c:RegisterEffect(e1) - --Special Summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6106,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_RELEASE) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCountLimit(1,6106) - e2:SetTarget(c6106.sptg) - e2:SetOperation(c6106.spop) - c:RegisterEffect(e2) -end - -function c6106.ntcon(e,c,minc) - if c==nil then return true end - return minc==0 and c:GetLevel()>4 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0,nil)0 - and Duel.IsExistingMatchingCard(c6106.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND) -end -function c6106.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6106.filter,tp,LOCATION_GRAVE+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 diff --git a/script/c61068510.lua b/script/c61068510.lua index e6ef8d37..f65b7ffa 100644 --- a/script/c61068510.lua +++ b/script/c61068510.lua @@ -19,7 +19,7 @@ function c61068510.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c61068510.cfilter,tp,0,LOCATION_SZONE,3,nil) end function c61068510.filter(c) - return c:IsDestructable() and c:GetSequence()<5 + return c:GetSequence()<5 end function c61068510.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and c61068510.filter(chkc) end diff --git a/script/c6107.lua b/script/c6107.lua deleted file mode 100755 index 02704e18..00000000 --- a/script/c6107.lua +++ /dev/null @@ -1,242 +0,0 @@ ---Scripted by Eerie Code ---Hot Red Dragon Archfiend King Calamity -function c6107.initial_effect(c) - --synchro summon - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c6107.syncon) - e1:SetOperation(c6107.synop) - e1:SetValue(SUMMON_TYPE_SYNCHRO) - c:RegisterEffect(e1) - --Cannot activate - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6107,0)) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c6107.negcon) - e2:SetTarget(c6107.negtg) - e2:SetOperation(c6107.negop) - c:RegisterEffect(e2) - --damage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6107,1)) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetCode(EVENT_BATTLE_DESTROYING) - e3:SetCondition(c6107.damcon) - e3:SetTarget(c6107.damtg) - e3:SetOperation(c6107.damop) - c:RegisterEffect(e3) - --Special Summon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(6107,0)) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) - e4:SetCode(EVENT_DESTROYED) - e4:SetCondition(c6107.spcon) - e4:SetTarget(c6107.sptg) - e4:SetOperation(c6107.spop) - c:RegisterEffect(e4) -end - -function c6107.matfilter1(c,syncard) - return c:IsType(TYPE_TUNER) and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsCanBeSynchroMaterial(syncard) -end -function c6107.matfilter2(c,syncard) - return c:IsFaceup() and not c:IsType(TYPE_TUNER) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON) and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSynchroMaterial(syncard) -end -function c6107.synfilter1(c,syncard,lv,g1,g2,g3) - local tlv=c:GetSynchroLevel(syncard) - if lv-tlv<=0 then return false end - local f1=c.tuner_filter - if c:IsHasEffect(55863245) then - return g3:IsExists(c6107.synfilter2,1,c,syncard,lv-tlv,g2,f1,c) - else - return g1:IsExists(c6107.synfilter2,1,c,syncard,lv-tlv,g2,f1,c) - end -end -function c6107.synfilter2(c,syncard,lv,g2,f1,tuner1) - local tlv=c:GetSynchroLevel(syncard) - if lv-tlv<=0 then return false end - local f2=c.tuner_filter - if f1 and not f1(c) then return false end - if f2 and not f2(tuner1) then return false end - return g2:IsExists(c6107.synfilter3,1,nil,syncard,lv-tlv,f1,f2) -end -function c6107.synfilter3(c,syncard,lv,f1,f2) - local mlv=c:GetSynchroLevel(syncard) - local lv1=bit.band(mlv,0xffff) - local lv2=bit.rshift(mlv,16) - return (lv1==lv or lv2==lv) and (not f1 or f1(c)) and (not f2 or f2(c)) -end -function c6107.syncon(e,c,tuner,mg) - if c==nil then return true end - local tp=c:GetControler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<-2 then return false end - local g1=nil - local g2=nil - local g3=nil - if mg then - g1=mg:Filter(c6107.matfilter1,nil,c) - g2=mg:Filter(c6107.matfilter2,nil,c) - g3=mg:Filter(c6107.matfilter1,nil,c) - else - g1=Duel.GetMatchingGroup(c6107.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - g2=Duel.GetMatchingGroup(c6107.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - g3=Duel.GetMatchingGroup(c6107.matfilter1,tp,LOCATION_MZONE+LOCATION_HAND,LOCATION_MZONE,nil,c) - end - local pe=Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_SMATERIAL) - local lv=c:GetLevel() - if tuner then - local tlv=tuner:GetSynchroLevel(c) - if lv-tlv<=0 then return false end - local f1=tuner.tuner_filter - if not pe then - return g1:IsExists(c6107.synfilter2,1,tuner,c,lv-tlv,g2,f1,tuner) - else - return c6107.synfilter2(pe:GetOwner(),c,lv-tlv,g2,f1,tuner) - end - end - if not pe then - return g1:IsExists(c6107.synfilter1,1,nil,c,lv,g1,g2,g3) - else - return c6107.synfilter1(pe:GetOwner(),c,lv,g1,g2) - end -end -function c6107.synop(e,tp,eg,ep,ev,re,r,rp,c,tuner,mg) - local g=Group.CreateGroup() - local g1=nil - local g2=nil - local g3=nil - if mg then - g1=mg:Filter(c6107.matfilter1,nil,c) - g2=mg:Filter(c6107.matfilter2,nil,c) - g3=mg:Filter(c6107.matfilter1,nil,c) - else - g1=Duel.GetMatchingGroup(c6107.matfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - g2=Duel.GetMatchingGroup(c6107.matfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - g3=Duel.GetMatchingGroup(c6107.matfilter1,tp,LOCATION_MZONE+LOCATION_HAND,LOCATION_MZONE,nil,c) - end - local pe=Duel.IsPlayerAffectedByEffect(tp,EFFECT_MUST_BE_SMATERIAL) - local lv=c:GetLevel() - if tuner then - g:AddCard(tuner) - local lv1=tuner:GetSynchroLevel(c) - local f1=tuner.tuner_filter - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local tuner2=nil - if not pe then - local t2=g1:FilterSelect(tp,c6107.synfilter2,1,1,tuner,c,lv-lv1,g2,f1,tuner) - tuner2=t2:GetFirst() - else - tuner2=pe:GetOwner() - Group.FromCards(tuner2):Select(tp,1,1,nil) - end - g:AddCard(tuner2) - local lv2=tuner2:GetSynchroLevel(c) - local f2=tuner2.tuner_filter - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local m3=g2:FilterSelect(tp,c6107.synfilter3,1,1,nil,c,lv-lv1-lv2,f1,f2) - g:Merge(m3) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local tuner1=nil - if not pe then - local t1=g1:FilterSelect(tp,c6107.synfilter1,1,1,nil,c,lv,g1,g2,g3) - tuner1=t1:GetFirst() - else - tuner1=pe:GetOwner() - Group.FromCards(tuner1):Select(tp,1,1,nil) - end - g:AddCard(tuner1) - local lv1=tuner1:GetSynchroLevel(c) - local f1=tuner1.tuner_filter - local t2=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - if tuner1:IsHasEffect(55863245) then - t2=g3:FilterSelect(tp,c6107.synfilter2,1,1,tuner1,c,lv-lv1,g2,f1,tuner1) - else - t2=g1:FilterSelect(tp,c6107.synfilter2,1,1,tuner1,c,lv-lv1,g2,f1,tuner1) - end - local tuner2=t2:GetFirst() - g:AddCard(tuner2) - local lv2=tuner2:GetSynchroLevel(c) - local f2=tuner2.tuner_filter - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local m3=g2:FilterSelect(tp,c6107.synfilter3,1,1,nil,c,lv-lv1-lv2,f1,f2) - g:Merge(m3) - end - c:SetMaterial(g) - Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO) -end - -function c6107.negcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO -end -function c6107.negtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetChainLimit(c6107.chlimit) -end -function c6107.chlimit(e,ep,tp) - return tp==ep -end -function c6107.negop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(0,1) - e1:SetValue(c6107.aclimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c6107.aclimit(e,re,tp) - return re:GetHandler():IsOnField() -end - -function c6107.damcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and bc:IsType(TYPE_MONSTER) -end -function c6107.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local c=e:GetHandler() - local bc=c:GetBattleTarget() - local dam=bc:GetTextAttack() - if dam<0 then dam=0 end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c6107.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end - -function c6107.spcon(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and e:GetHandler():GetPreviousControler()==tp -end -function c6107.spfil(c,e,tp) - return c:IsLevelBelow(8) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON) and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6107.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6107.spfil(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and - Duel.IsExistingTarget(c6107.spfil,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c6107.spfil,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c6107.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c6108.lua b/script/c6108.lua deleted file mode 100755 index c1864280..00000000 --- a/script/c6108.lua +++ /dev/null @@ -1,80 +0,0 @@ ---Scripted by Eerie Code ---Beatrice, the Eternal Lady -function c6108.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,6,2,c6108.ovfilter,aux.Stringid(6108,0),3,c6108.xyzop) - c:EnableReviveLimit() - --Mill - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6108,1)) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c6108.mlcon) - e1:SetCost(c6108.mlcost) - e1:SetTarget(c6108.mltg) - e1:SetOperation(c6108.mlop) - c:RegisterEffect(e1) - --Special Summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6108,2)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c6108.spcon) - e2:SetTarget(c6108.sptg) - e2:SetOperation(c6108.spop) - c:RegisterEffect(e2) -end - -function c6108.cfilter(c) - return c:IsSetCard(0xb1) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() -end -function c6108.ovfilter(c) - return c:IsFaceup() and c:IsCode(83531441) -end -function c6108.xyzop(e,tp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6108.cfilter,tp,LOCATION_HAND,0,1,nil) end - local g=Duel.SelectMatchingCard(tp,c6108.cfilter,tp,LOCATION_HAND,0,1,1,nil) - if Duel.SendtoGrave(g,REASON_COST)>0 then - e:GetHandler():RegisterFlagEffect(6108,RESET_EVENT+0xfc0000+RESET_PHASE+PHASE_END,0,1) - end -end - -function c6108.mlcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(6108)==0 -end -function c6108.mlcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c6108.mltg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,0,1,tp,LOCATION_DECK) -end -function c6108.mlop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_DECK,0,1,1,nil) - Duel.SendtoGrave(g,REASON_EFFECT) -end - -function c6108.spcon(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and e:GetHandler():GetPreviousControler()==tp and e:GetHandler():IsReason(REASON_DESTROY) -end -function c6108.spfilter(c,e,tp) - return c:IsSetCard(0xb1) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c6108.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c6108.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c6108.spop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6108.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) -end \ No newline at end of file diff --git a/script/c61132951.lua b/script/c61132951.lua index 73672b7a..00592254 100644 --- a/script/c61132951.lua +++ b/script/c61132951.lua @@ -13,12 +13,12 @@ end function c61132951.destg(e,tp,eg,ep,ev,re,r,rp,chk) local d=Duel.GetAttackTarget() if chk==0 then return Duel.GetAttacker()==e:GetHandler() - and d and d:IsDefencePos() and d:IsDestructable() end + and d and d:IsDefensePos() and d:IsRelateToBattle() end Duel.SetOperationInfo(0,CATEGORY_DESTROY,d,1,0,0) end function c61132951.desop(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - if d~=nil and d:IsRelateToBattle() and d:IsDefencePos() then + if d~=nil and d:IsRelateToBattle() and d:IsDefensePos() then Duel.Destroy(d,REASON_EFFECT) end end diff --git a/script/c61156777.lua b/script/c61156777.lua index aa0f1046..f4d47300 100644 --- a/script/c61156777.lua +++ b/script/c61156777.lua @@ -1,5 +1,6 @@ --BOXサー function c61156777.initial_effect(c) + c:EnableCounterPermit(0x34) --Add counter local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(61156777,0)) @@ -31,7 +32,7 @@ end function c61156777.ctop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - c:AddCounter(0x34+COUNTER_NEED_ENABLE,1) + c:AddCounter(0x34,1) end end function c61156777.spcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c61166988.lua b/script/c61166988.lua index 151531bc..af71704a 100644 --- a/script/c61166988.lua +++ b/script/c61166988.lua @@ -1,43 +1,43 @@ ---野性解放 -function c61166988.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c61166988.target) - e1:SetOperation(c61166988.activate) - c:RegisterEffect(e1) -end -function c61166988.filter(c) - return c:IsFaceup() and c:IsRace(RACE_BEAST+RACE_BEASTWARRIOR) -end -function c61166988.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c61166988.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c61166988.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c61166988.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c61166988.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(tc:GetDefence()) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetRange(LOCATION_MZONE) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetCountLimit(1) - e2:SetOperation(c61166988.desop) - tc:RegisterEffect(e2) - end -end -function c61166988.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end +--野性解放 +function c61166988.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c61166988.target) + e1:SetOperation(c61166988.activate) + c:RegisterEffect(e1) +end +function c61166988.filter(c) + return aux.nzdef(c) and c:IsRace(RACE_BEAST+RACE_BEASTWARRIOR) +end +function c61166988.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and c61166988.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c61166988.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c61166988.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) +end +function c61166988.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsFaceup() then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(tc:GetDefense()) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_PHASE+PHASE_END) + e2:SetRange(LOCATION_MZONE) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e2:SetCountLimit(1) + e2:SetOperation(c61166988.desop) + tc:RegisterEffect(e2) + end +end +function c61166988.desop(e,tp,eg,ep,ev,re,r,rp) + Duel.Destroy(e:GetHandler(),REASON_EFFECT) +end diff --git a/script/c61175706.lua b/script/c61175706.lua index 62b1f1e2..3bc665cf 100644 --- a/script/c61175706.lua +++ b/script/c61175706.lua @@ -1,4 +1,4 @@ ---アルカナフォースIV－THE EMPEROR +--アルカナフォースⅣ－THE EMPEROR function c61175706.initial_effect(c) --coin local e1=Effect.CreateEffect(c) diff --git a/script/c61190918.lua b/script/c61190918.lua old mode 100755 new mode 100644 diff --git a/script/c61204971.lua b/script/c61204971.lua old mode 100755 new mode 100644 index 0558859c..1afbdbdc --- a/script/c61204971.lua +++ b/script/c61204971.lua @@ -28,7 +28,7 @@ function c61204971.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c61204971.filter(c,atk) - return c:IsFaceup() and c:GetBaseAttack()1 and mg:GetCount()>1 - and Duel.IsExistingMatchingCard(c61314842.xyzfilter,tp,LOCATION_EXTRA,0,1,nil,mg) end local exg=Duel.GetMatchingGroup(c61314842.xyzfilter,tp,LOCATION_EXTRA,0,nil,mg) + if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2) + and not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and exg:GetCount()>0 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg1=mg:FilterSelect(tp,c61314842.mfilter1,1,1,nil,exg) + local sg1=mg:FilterSelect(tp,c61314842.mfilter1,1,1,nil,mg,exg) local tc1=sg1:GetFirst() - local exg2=exg:Filter(c61314842.mfilter2,nil,tc1) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg2=mg:FilterSelect(tp,c61314842.mfilter1,1,1,tc1,exg2) + local sg2=mg:FilterSelect(tp,c61314842.mfilter2,1,1,tc1,tc1,exg) sg1:Merge(sg2) Duel.SetTargetCard(sg1) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg1,2,0,0) @@ -44,6 +43,7 @@ function c61314842.filter2(c,e,tp) return c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c61314842.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c61314842.filter2,nil,e,tp) if g:GetCount()<2 then return end diff --git a/script/c61318483.lua b/script/c61318483.lua index f5c34577..1d0edc4c 100644 --- a/script/c61318483.lua +++ b/script/c61318483.lua @@ -42,7 +42,7 @@ end function c61318483.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c61318483.spcon(e,tp,eg,ep,ev,re,r,rp) @@ -59,9 +59,13 @@ end function c61318483.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local at=Duel.GetAttacker() - if at:IsControler(1-tp) and at:IsRelateToBattle() and at:IsFaceup() and Duel.ChangePosition(at,POS_FACEDOWN_DEFENCE)>0 then - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE)>0 then + if at:IsControler(1-tp) and at:IsRelateToBattle() and at:IsFaceup() and Duel.ChangePosition(at,POS_FACEDOWN_DEFENSE)>0 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)~=0 then Duel.ConfirmCards(1-tp,c) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then + Duel.SendtoGrave(c,REASON_RULE) end end end diff --git a/script/c61370518.lua b/script/c61370518.lua old mode 100755 new mode 100644 index ecc72e4b..88f4bf61 --- a/script/c61370518.lua +++ b/script/c61370518.lua @@ -25,7 +25,7 @@ function c61370518.mtop(e,tp,eg,ep,ev,re,r,rp) if Duel.CheckLPCost(tp,500) then Duel.PayLPCost(tp,500) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end function c61370518.disop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c61380658.lua b/script/c61380658.lua index e111e6a1..64c5b3d5 100644 --- a/script/c61380658.lua +++ b/script/c61380658.lua @@ -8,16 +8,19 @@ function c61380658.initial_effect(c) e1:SetTargetRange(0,LOCATION_MZONE) e1:SetValue(c61380658.atlimit) c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetTargetRange(0,0xff) - e2:SetValue(c61380658.tglimit) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetTarget(c61380658.tglimit) + e2:SetValue(aux.tgoval) c:RegisterEffect(e2) end function c61380658.atlimit(e,c) return c:IsFaceup() and c:IsSetCard(0xe) and c~=e:GetHandler() end -function c61380658.tglimit(e,re,c) - return c:IsControler(e:GetHandlerPlayer()) and c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsSetCard(0xe) and c~=e:GetHandler() +function c61380658.tglimit(e,c) + return c:IsSetCard(0xe) and c~=e:GetHandler() end diff --git a/script/c61411502.lua b/script/c61411502.lua index 1ed4a5ca..02259e10 100644 --- a/script/c61411502.lua +++ b/script/c61411502.lua @@ -57,11 +57,11 @@ function c61411502.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(rg1,REASON_COST) end function c61411502.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c61411502.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c61420130.lua b/script/c61420130.lua index 83e096ce..6faf924e 100644 --- a/script/c61420130.lua +++ b/script/c61420130.lua @@ -42,9 +42,9 @@ function c61420130.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetValue(tc:GetDefence()/2) + e2:SetValue(tc:GetDefense()/2) tc:RegisterEffect(e2) end end @@ -61,17 +61,10 @@ end function c61420130.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() - if c:IsRelateToEffect(e) - and Duel.IsPlayerCanSpecialSummonMonster(tp,61420130,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then - c:SetStatus(STATUS_NO_LEVEL,false) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(TYPE_NORMAL+TYPE_MONSTER) - e1:SetReset(RESET_EVENT+0x47c0000) - c:RegisterEffect(e1,true) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,61420130,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then + c:AddMonsterAttribute(TYPE_NORMAL) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_IMMUNE_EFFECT) @@ -87,6 +80,7 @@ function c61420130.spop(e,tp,eg,ep,ev,re,r,rp) e3:SetReset(RESET_EVENT+0x47e0000) e3:SetValue(LOCATION_REMOVED) c:RegisterEffect(e3,true) + Duel.SpecialSummonComplete() end end function c61420130.efilter(e,re) diff --git a/script/c6142488.lua b/script/c6142488.lua index 3f965286..883cc6c4 100644 --- a/script/c6142488.lua +++ b/script/c6142488.lua @@ -39,11 +39,12 @@ function c6142488.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) end function c6142488.spop(e,tp,eg,ep,ev,re,r,rp) - local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ct==0 then return end - if ct>2 then ct=2 end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + if ft>2 then ft=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6142488.filter,tp,LOCATION_DECK,0,1,ct,nil,e,tp) + local g=Duel.SelectMatchingCard(tp,c6142488.filter,tp,LOCATION_DECK,0,1,ft,nil,e,tp) if g:GetCount()>0 then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end diff --git a/script/c61441708.lua b/script/c61441708.lua index 22a0412d..34f72249 100644 --- a/script/c61441708.lua +++ b/script/c61441708.lua @@ -59,7 +59,7 @@ function c61441708.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 end function c61441708.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c61441708.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c61466310.lua b/script/c61466310.lua index cc0789de..035ecbbc 100644 --- a/script/c61466310.lua +++ b/script/c61466310.lua @@ -34,10 +34,10 @@ function c61466310.thcon(e,tp,eg,ep,ev,re,r,rp) return ep==tp and bit.band(eg:GetFirst():GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE end function c61466310.filter(c,code) - return (c:GetAttack()==2400 or c:GetAttack()==2800) and c:GetDefence()==1000 and c:GetCode()~=code and c:IsAbleToHand() + return (c:GetAttack()==2400 or c:GetAttack()==2800) and c:GetDefense()==1000 and c:GetCode()~=code and c:IsAbleToHand() end function c61466310.filter2(c,atk,code) - return c:GetAttack()==atk and c:GetDefence()==1000 and c:GetCode()~=code and c:IsAbleToHand() + return c:GetAttack()==atk and c:GetDefense()==1000 and c:GetCode()~=code and c:IsAbleToHand() end function c61466310.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsRelateToEffect(e) diff --git a/script/c6148016.lua b/script/c6148016.lua index 0b0b3ad6..5595534b 100644 --- a/script/c6148016.lua +++ b/script/c6148016.lua @@ -15,11 +15,13 @@ function c6148016.filter(c,e,tp) return c:IsSetCard(0x1072) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c6148016.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c6148016.filter,tp,LOCATION_DECK,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c6148016.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetMatchingGroup(c6148016.filter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()>=2 then diff --git a/script/c6150044.lua b/script/c6150044.lua index aafc3c86..006a35a1 100644 --- a/script/c6150044.lua +++ b/script/c6150044.lua @@ -7,7 +7,7 @@ function c6150044.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(6150044,0)) e1:SetCategory(CATEGORY_DISABLE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetRange(LOCATION_MZONE) e1:SetCountLimit(1) diff --git a/script/c61505339.lua b/script/c61505339.lua index a3bc14b5..9ecd9218 100644 --- a/script/c61505339.lua +++ b/script/c61505339.lua @@ -36,8 +36,7 @@ function c61505339.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) local sg=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,1,nil) if sg:GetCount()==0 then return end - Duel.SendtoGrave(sg,REASON_EFFECT) - Duel.BreakEffect() + if Duel.SendtoGrave(sg,REASON_EFFECT)==0 or not sg:GetFirst():IsLocation(LOCATION_GRAVE) then return end local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) diff --git a/script/c61538782.lua b/script/c61538782.lua index 74df3ea5..fab611af 100644 --- a/script/c61538782.lua +++ b/script/c61538782.lua @@ -16,7 +16,7 @@ function c61538782.eqcon(e,tp,eg,ep,ev,re,r,rp) local tc=c:GetBattleTarget() if not c:IsRelateToBattle() or c:IsFacedown() then return false end e:SetLabelObject(tc) - return tc:IsLocation(LOCATION_GRAVE) and tc:IsType(TYPE_MONSTER) and tc:IsReason(REASON_BATTLE) + return tc:IsLocation(LOCATION_GRAVE) and tc:IsType(TYPE_MONSTER) and tc:IsReason(REASON_BATTLE) and not tc:IsForbidden() end function c61538782.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c61613388.lua b/script/c61613388.lua old mode 100755 new mode 100644 diff --git a/script/c61632317.lua b/script/c61632317.lua index 2c163cb4..dd769451 100644 --- a/script/c61632317.lua +++ b/script/c61632317.lua @@ -17,7 +17,7 @@ function c61632317.descon(e,tp,eg,ep,ev,re,r,rp) and e:GetHandler():GetReasonCard():IsAttribute(ATTRIBUTE_DARK) end function c61632317.filter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c61632317.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c61632317.filter(chkc) end diff --git a/script/c61639289.lua b/script/c61639289.lua index f5bbe0dc..7ea7c72e 100644 --- a/script/c61639289.lua +++ b/script/c61639289.lua @@ -23,8 +23,7 @@ end function c61639289.thtg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() local pc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-c:GetSequence()) - if chk==0 then return c:IsDestructable() and pc:IsDestructable() - and Duel.IsExistingMatchingCard(c61639289.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end + if chk==0 then return Duel.IsExistingMatchingCard(c61639289.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end local g=Group.FromCards(c,pc) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) diff --git a/script/c61650133.lua b/script/c61650133.lua index 689ad2e9..c54daefe 100644 --- a/script/c61650133.lua +++ b/script/c61650133.lua @@ -30,10 +30,10 @@ function c61650133.mtcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c61650133.mtop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLP(tp)>500 and Duel.SelectYesNo(tp,aux.Stringid(61650133,0)) then + if Duel.CheckLPCost(tp,500) and Duel.SelectYesNo(tp,aux.Stringid(61650133,0)) then Duel.PayLPCost(tp,500) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end function c61650133.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c6165656.lua b/script/c6165656.lua old mode 100755 new mode 100644 index db1bba9e..ea996b72 --- a/script/c6165656.lua +++ b/script/c6165656.lua @@ -15,7 +15,7 @@ function c6165656.initial_effect(c) e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) e2:SetRange(LOCATION_MZONE) - e2:SetValue(aux.tgval) + e2:SetValue(1) c:RegisterEffect(e2) --damage local e3=Effect.CreateEffect(c) @@ -32,7 +32,7 @@ function c6165656.initial_effect(c) --win local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_DELAY) + e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) e4:SetRange(LOCATION_MZONE) e4:SetCode(EVENT_PHASE+PHASE_END) e4:SetCountLimit(1) diff --git a/script/c61679541.lua b/script/c61679541.lua index 8320de70..df823f9b 100644 --- a/script/c61679541.lua +++ b/script/c61679541.lua @@ -13,12 +13,12 @@ end function c61679541.targ(e,tp,eg,ep,ev,re,r,rp,chk) local d=Duel.GetAttackTarget() if chk ==0 then return Duel.GetAttacker()==e:GetHandler() - and d~=nil and d:IsDefencePos() and d:IsDestructable() end + and d~=nil and d:IsDefensePos() and d:IsRelateToBattle() end Duel.SetOperationInfo(0,CATEGORY_DESTROY,d,1,0,0) end function c61679541.op(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - if d~=nil and d:IsRelateToBattle() and d:IsDefencePos() then + if d~=nil and d:IsRelateToBattle() and d:IsDefensePos() then Duel.Destroy(d,REASON_EFFECT) end end diff --git a/script/c61705417.lua b/script/c61705417.lua index aeb51571..467021cf 100644 --- a/script/c61705417.lua +++ b/script/c61705417.lua @@ -44,12 +44,20 @@ function c61705417.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e2) local e3=Effect.CreateEffect(e:GetHandler()) e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_CHAIN_SOLVED) + e3:SetCode(EVENT_CHAINING) e3:SetCondition(c61705417.actcon) e3:SetOperation(c61705417.actop) e3:SetLabelObject(tc) e3:SetReset(RESET_PHASE+PHASE_END) Duel.RegisterEffect(e3,tp) + local e4=Effect.CreateEffect(e:GetHandler()) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e4:SetCode(EVENT_CHAIN_SOLVED) + e4:SetCondition(c61705417.damcon) + e4:SetOperation(c61705417.damop) + e4:SetLabelObject(tc) + e4:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e4,tp) end end function c61705417.tgcon(e,tp,eg,ep,ev,re,r,rp) @@ -62,8 +70,8 @@ function c61705417.tgop(e,tp,eg,ep,ev,re,r,rp) end function c61705417.reptg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() - if chk==0 then return c:IsReason(REASON_COST) and c:GetControler()~=c:GetOwner() - and not c:IsStatus(STATUS_CHAINING+STATUS_ACTIVATED) end + if chk==0 then return c:IsReason(REASON_COST) and c:GetControler()~=c:GetOwner() end + c:ResetFlagEffect(61705418) Duel.Damage(c:GetControler(),2000,REASON_EFFECT) return false end @@ -71,6 +79,14 @@ function c61705417.actcon(e,tp,eg,ep,ev,re,r,rp) return rp==tp and re:GetHandler()==e:GetLabelObject() and re:GetHandler():GetFlagEffect(61705417)~=0 end function c61705417.actop(e,tp,eg,ep,ev,re,r,rp) + re:GetHandler():RegisterFlagEffect(61705418,RESET_CHAIN,0,1) + e:Reset() +end +function c61705417.damcon(e,tp,eg,ep,ev,re,r,rp) + return rp==tp and re:GetHandler()==e:GetLabelObject() and re:GetHandler():GetFlagEffect(61705418)~=0 +end +function c61705417.damop(e,tp,eg,ep,ev,re,r,rp) + re:GetHandler():ResetFlagEffect(61705418) Duel.Damage(tp,2000,REASON_EFFECT) e:Reset() end diff --git a/script/c61740673.lua b/script/c61740673.lua old mode 100755 new mode 100644 index 0394bff7..87677d78 --- a/script/c61740673.lua +++ b/script/c61740673.lua @@ -44,9 +44,9 @@ function c61740673.mtcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c61740673.mtop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLP(tp)>700 and Duel.SelectYesNo(tp,aux.Stringid(61740673,0)) then + if Duel.CheckLPCost(tp,700) and Duel.SelectYesNo(tp,aux.Stringid(61740673,0)) then Duel.PayLPCost(tp,700) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end diff --git a/script/c61791132.lua b/script/c61791132.lua old mode 100755 new mode 100644 index 0b441d2d..38ca8607 --- a/script/c61791132.lua +++ b/script/c61791132.lua @@ -27,7 +27,9 @@ function c61791132.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c61791132.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if not c:IsRelateToEffect(e) or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) then return end - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end end diff --git a/script/c61831093.lua b/script/c61831093.lua index ae763b9d..1527baaf 100644 --- a/script/c61831093.lua +++ b/script/c61831093.lua @@ -11,7 +11,7 @@ function c61831093.initial_effect(c) c:RegisterEffect(e1) end function c61831093.filter(c,e) - return c:IsFacedown() and c:IsDestructable() and c:IsCanBeEffectTarget(e) + return c:IsFacedown() and c:IsCanBeEffectTarget(e) end function c61831093.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and c61831093.filter(chkc,e) end diff --git a/script/c61840587.lua b/script/c61840587.lua index 08d8c627..40fb69dc 100644 --- a/script/c61840587.lua +++ b/script/c61840587.lua @@ -32,7 +32,8 @@ function c61840587.filter(c,e,tp) end function c61840587.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c61840587.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c61840587.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c61840587.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) @@ -51,22 +52,21 @@ function c61840587.operation(e,tp,eg,ep,ev,re,r,rp) local sct=sg:GetCount() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if sct==0 or ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end if sct>ft then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) sg=sg:Select(tp,ft,ft,nil) sct=ft end - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_ATTACK) local tc=sg:GetFirst() - c:SetCardTarget(tc) - tc:CreateRelation(c,RESET_EVENT+0x1020000) - if sct>1 then - local tc2=sg:GetNext() - c:SetCardTarget(tc2) - tc2:CreateRelation(c,RESET_EVENT+0x1020000) + while tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK) do + c:SetCardTarget(tc) + tc:CreateRelation(c,RESET_EVENT+0x1020000) + tc=sg:GetNext() end e:SetLabelObject(sg) sg:KeepAlive() + Duel.SpecialSummonComplete() end function c61840587.desfilter1(c,rc) return c:IsRelateToCard(rc) and c:IsLocation(LOCATION_MZONE) and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_BATTLE_DESTROYED) diff --git a/script/c61844784.lua b/script/c61844784.lua old mode 100755 new mode 100644 index da104078..7d0b50b2 --- a/script/c61844784.lua +++ b/script/c61844784.lua @@ -22,7 +22,7 @@ end function c61844784.addc(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0x2a,1) + tc:AddCounter(0x102a,1) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EFFECT_DESTROY_REPLACE) @@ -34,9 +34,9 @@ function c61844784.addc(e,tp,eg,ep,ev,re,r,rp) end function c61844784.reptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return bit.band(r,REASON_RULE)==0 - and e:GetHandler():GetCounter(0x2a)>0 end + and e:GetHandler():GetCounter(0x102a)>0 end return true end function c61844784.repop(e,tp,eg,ep,ev,re,r,rp,chk) - e:GetHandler():RemoveCounter(tp,0x2a,1,REASON_EFFECT) + e:GetHandler():RemoveCounter(tp,0x102a,1,REASON_EFFECT) end diff --git a/script/c61854111.lua b/script/c61854111.lua index c447e387..ebae1dfa 100644 --- a/script/c61854111.lua +++ b/script/c61854111.lua @@ -18,7 +18,7 @@ function c61854111.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(300) c:RegisterEffect(e3) --equip limit diff --git a/script/c61864793.lua b/script/c61864793.lua index 7f3d9b73..df06fd9c 100644 --- a/script/c61864793.lua +++ b/script/c61864793.lua @@ -15,7 +15,7 @@ function c61864793.poscon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local np=c:GetPosition() local pp=c:GetPreviousPosition() - return not c:IsStatus(STATUS_CONTINUOUS_POS) and (Duel.GetCurrentPhase()~=PHASE_DAMAGE or c~=Duel.GetAttackTarget()) + return not c:IsStatus(STATUS_CONTINUOUS_POS) and ((np<3 and pp>3) or (pp<3 and np>3)) end function c61864793.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end @@ -26,6 +26,6 @@ end function c61864793.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end diff --git a/script/c61936647.lua b/script/c61936647.lua index aafa6ee9..e1276242 100644 --- a/script/c61936647.lua +++ b/script/c61936647.lua @@ -15,6 +15,7 @@ function c61936647.initial_effect(c) e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e2:SetRange(LOCATION_SZONE) e2:SetCode(EVENT_CHAIN_SOLVED) + e2:SetLabelObject(e1) e2:SetCondition(c61936647.tgcon) e2:SetOperation(c61936647.tgop) c:RegisterEffect(e2) @@ -70,7 +71,7 @@ function c61936647.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) end function c61936647.tgcon(e,tp,eg,ep,ev,re,r,rp) - return re:GetHandler()==e:GetHandler() + return re==e:GetLabelObject() end function c61936647.tgop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c61948106.lua b/script/c61948106.lua index 6ad1d197..a126edfa 100644 --- a/script/c61948106.lua +++ b/script/c61948106.lua @@ -34,13 +34,15 @@ function c61948106.spfilter(c,e,tp) end function c61948106.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c61948106.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c61948106.spfilter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c61948106.spfilter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) end function c61948106.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()~=2 then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end diff --git a/script/c61962135.lua b/script/c61962135.lua index 351421b1..8c9c43a9 100644 --- a/script/c61962135.lua +++ b/script/c61962135.lua @@ -51,9 +51,10 @@ end function c61962135.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK)==0 then return end + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() end end function c61962135.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c61965407.lua b/script/c61965407.lua index cc8952b2..2f27826b 100644 --- a/script/c61965407.lua +++ b/script/c61965407.lua @@ -87,7 +87,7 @@ function c61965407.thcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.RegisterFlagEffect(tp,61965407,RESET_PHASE+PHASE_END,0,1) end function c61965407.thfilter(c) - return c:IsSetCard(0xbb) and c:IsAbleToHand() + return c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c61965407.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c61965407.thfilter(chkc) end @@ -104,7 +104,7 @@ function c61965407.tgcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.RegisterFlagEffect(tp,61965408,RESET_PHASE+PHASE_END,0,1) end function c61965407.tgfilter(c) - return c:IsFaceup() and c:IsSetCard(0xbb) + return c:IsFaceup() and c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) end function c61965407.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c61965407.tgfilter(chkc) end diff --git a/script/c61968753.lua b/script/c61968753.lua index a1971e4b..dd5de035 100644 --- a/script/c61968753.lua +++ b/script/c61968753.lua @@ -40,7 +40,7 @@ end function c61968753.posop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c61968753.pfilter,nil,e) if g:GetCount()==2 then - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) local tc=e:GetLabelObject() if Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 and not tc:IsImmuneToEffect(e) and tc:IsReleasable() then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) diff --git a/script/c62007535.lua b/script/c62007535.lua index 9705c08f..cc31119b 100644 --- a/script/c62007535.lua +++ b/script/c62007535.lua @@ -46,10 +46,10 @@ function c62007535.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.PayLPCost(tp,1000) end function c62007535.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c62007535.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c62015408.lua b/script/c62015408.lua new file mode 100644 index 00000000..7e324e7e --- /dev/null +++ b/script/c62015408.lua @@ -0,0 +1,44 @@ +--浮幽さくら +function c62015408.initial_effect(c) + --remove + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_REMOVE) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,0x1c0) + e1:SetCountLimit(1,62015408) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c62015408.condition) + e1:SetCost(c62015408.cost) + e1:SetTarget(c62015408.target) + e1:SetOperation(c62015408.operation) + c:RegisterEffect(e1) +end +function c62015408.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)0 + and Duel.GetFieldGroupCount(tp,0,LOCATION_EXTRA)>0 end + Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_EXTRA) +end +function c62015408.operation(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) + local sg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_EXTRA,0,1,1,nil) + if sg:GetCount()>0 then + Duel.ConfirmCards(1-tp,sg) + Duel.BreakEffect() + local g=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA) + Duel.ConfirmCards(tp,g) + local tg=g:Filter(Card.IsCode,nil,sg:GetFirst():GetCode()) + if tg:GetCount()>0 then + Duel.Remove(tg,POS_FACEUP,REASON_EFFECT) + end + end +end diff --git a/script/c62017867.lua b/script/c62017867.lua old mode 100755 new mode 100644 diff --git a/script/c62023839.lua b/script/c62023839.lua index e63d71c9..7863ac47 100644 --- a/script/c62023839.lua +++ b/script/c62023839.lua @@ -33,7 +33,7 @@ function c62023839.spop(e,tp,eg,ep,ev,re,r,rp) if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE_START+PHASE_BATTLE) + e1:SetCode(EVENT_PHASE+PHASE_BATTLE_START) e1:SetCountLimit(1) e1:SetOperation(c62023839.desop) e1:SetReset(RESET_PHASE+PHASE_END) diff --git a/script/c62038047.lua b/script/c62038047.lua index 371ecd0b..ee52124a 100644 --- a/script/c62038047.lua +++ b/script/c62038047.lua @@ -25,7 +25,8 @@ function c62038047.filter(c) return c:IsSetCard(0xd9) and not c:IsCode(62038047) and c:IsAbleToHand() end function c62038047.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO + local c=e:GetHandler() + return c:IsLocation(LOCATION_GRAVE) and c:IsPreviousLocation(LOCATION_ONFIELD) and r==REASON_SYNCHRO end function c62038047.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c62038047.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c62107981.lua b/script/c62107981.lua index 636882a6..71198d06 100644 --- a/script/c62107981.lua +++ b/script/c62107981.lua @@ -29,7 +29,7 @@ function c62107981.adcon(e,tp,eg,ep,ev,re,r,rp) end function c62107981.adop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() and c:GetDefence()>=100 then + if c:IsRelateToEffect(e) and c:IsFaceup() and c:GetDefense()>=100 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UPDATE_ATTACK) @@ -38,7 +38,7 @@ function c62107981.adop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(-100) c:RegisterEffect(e2) end diff --git a/script/c62121.lua b/script/c62121.lua index 964bc388..ce9f0547 100644 --- a/script/c62121.lua +++ b/script/c62121.lua @@ -27,7 +27,7 @@ function c62121.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetLabelObject(e1) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) diff --git a/script/c62154416.lua b/script/c62154416.lua index 82b46d74..9f27bc58 100644 --- a/script/c62154416.lua +++ b/script/c62154416.lua @@ -1,7 +1,7 @@ --マジカルフィシアリスト function c62154416.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,1) + c:EnableCounterPermit(0x1) + c:SetCounterLimit(0x1,1) --summon success local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(62154416,0)) @@ -25,16 +25,16 @@ function c62154416.initial_effect(c) end function c62154416.addct(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x3001) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x1) end function c62154416.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c62154416.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x3001,1,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x3001,1,REASON_COST) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,1,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1,1,REASON_COST) end function c62154416.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end diff --git a/script/c62180201.lua b/script/c62180201.lua index ceece790..e1de2b26 100644 --- a/script/c62180201.lua +++ b/script/c62180201.lua @@ -23,12 +23,13 @@ function c62180201.initial_effect(c) e4:SetType(EFFECT_TYPE_FIELD) e4:SetCode(EFFECT_SET_ATTACK_FINAL) e4:SetRange(LOCATION_MZONE) + e4:SetProperty(EFFECT_FLAG_DELAY) e4:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) e4:SetTarget(c62180201.atktg) e4:SetValue(c62180201.atkval) c:RegisterEffect(e4) local e5=e4:Clone() - e5:SetCode(EFFECT_SET_DEFENCE_FINAL) + e5:SetCode(EFFECT_SET_DEFENSE_FINAL) e5:SetValue(c62180201.defval) c:RegisterEffect(e5) end @@ -48,5 +49,5 @@ function c62180201.atkval(e,c) return c:GetAttack()/2 end function c62180201.defval(e,c) - return c:GetDefence()/2 -end \ No newline at end of file + return c:GetDefense()/2 +end diff --git a/script/c62188962.lua b/script/c62188962.lua index 83d1cc22..5595bc31 100644 --- a/script/c62188962.lua +++ b/script/c62188962.lua @@ -40,16 +40,13 @@ end function c62188962.tgfilter(c) return c:IsSetCard(0x8e) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToGrave() end -function c62188962.filter(c) - return c:IsDestructable() -end function c62188962.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c62188962.filter(chkc) end + if chkc then return chkc:IsOnField() end if chk==0 then return e:GetHandler():IsRelateToEffect(e) and not e:GetHandler():IsStatus(STATUS_CHAINING) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c62188962.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_DECK) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c62188962.desop(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end diff --git a/script/c62242678.lua b/script/c62242678.lua index edb374b9..8edbd8e0 100644 --- a/script/c62242678.lua +++ b/script/c62242678.lua @@ -42,12 +42,18 @@ function c62242678.initial_effect(c) e4:SetTarget(c62242678.sptg) e4:SetOperation(c62242678.spop) c:RegisterEffect(e4) + --double tuner + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_SINGLE) + e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e5:SetCode(21142671) + c:RegisterEffect(e5) end function c62242678.matfilter1(c,syncard) return c:IsType(TYPE_TUNER) and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsCanBeSynchroMaterial(syncard) end function c62242678.matfilter2(c,syncard) - return c:IsFaceup() and c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSynchroMaterial(syncard) + return c:IsNotTuner() and c:IsFaceup() and c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSynchroMaterial(syncard) end function c62242678.synfilter1(c,syncard,lv,g1,g2,g3) local tlv=c:GetSynchroLevel(syncard) @@ -194,7 +200,7 @@ function c62242678.limop(e,tp,eg,ep,ev,re,r,rp) Duel.RegisterEffect(e1,tp) end function c62242678.aclimit(e,re,tp) - return re:GetHandler():IsOnField() + return re:GetHandler():IsOnField() or re:IsHasType(EFFECT_TYPE_ACTIVATE) end function c62242678.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c62271284.lua b/script/c62271284.lua index c9fd36c5..31c0a151 100644 --- a/script/c62271284.lua +++ b/script/c62271284.lua @@ -15,7 +15,7 @@ function c62271284.condition(e,tp,eg,ep,ev,re,r,rp) return tp~=Duel.GetTurnPlayer() and at and at:IsFaceup() and at:IsType(TYPE_NORMAL) end function c62271284.filter(c) - return not (c:IsFaceup() and c:IsType(TYPE_NORMAL) and c:IsAttackPos()) and c:IsDestructable() + return not (c:IsFaceup() and c:IsType(TYPE_NORMAL) and c:IsAttackPos()) end function c62271284.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c62271284.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c62312469.lua b/script/c62312469.lua index 1b2aee7a..5222d931 100644 --- a/script/c62312469.lua +++ b/script/c62312469.lua @@ -12,7 +12,7 @@ function c62312469.initial_effect(c) e2:SetValue(c62312469.value) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --deck sort local e4=Effect.CreateEffect(c) diff --git a/script/c62315111.lua b/script/c62315111.lua index 0602b437..71420862 100644 --- a/script/c62315111.lua +++ b/script/c62315111.lua @@ -13,7 +13,7 @@ function c62315111.atcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local bc=c:GetBattleTarget() return bc and bc:IsStatus(STATUS_BATTLE_DESTROYED) and c:IsChainAttackable() - and bc:GetCounter(0xe)>0 + and bc:GetCounter(0x100e)>0 end function c62315111.atop(e,tp,eg,ep,ev,re,r,rp) Duel.ChainAttack() diff --git a/script/c62340868.lua b/script/c62340868.lua index 0dd74c14..5a433ba0 100644 --- a/script/c62340868.lua +++ b/script/c62340868.lua @@ -4,7 +4,7 @@ function c62340868.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(62340868,0)) e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetRange(LOCATION_MZONE) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetProperty(EFFECT_FLAG_NO_TURN_RESET) diff --git a/script/c62379337.lua b/script/c62379337.lua index f962cf3d..6b87fd06 100644 --- a/script/c62379337.lua +++ b/script/c62379337.lua @@ -19,7 +19,7 @@ function c62379337.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) end function c62379337.filter(c) - return c:IsDefenceBelow(1500) and c:IsRace(RACE_PLANT) and c:IsAbleToHand() + return c:IsDefenseBelow(1500) and c:IsRace(RACE_PLANT) and c:IsAbleToHand() end function c62379337.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) diff --git a/script/c62420419.lua b/script/c62420419.lua index 7cb2f60e..f24c63cd 100644 --- a/script/c62420419.lua +++ b/script/c62420419.lua @@ -30,9 +30,7 @@ function c62420419.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c62420419.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c62434031.lua b/script/c62434031.lua index 1804a40c..f5a1e3a8 100644 --- a/script/c62434031.lua +++ b/script/c62434031.lua @@ -37,7 +37,7 @@ function c62434031.operation(e,tp,eg,ep,ev,re,r,rp) end function c62434031.tdcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_DECK) and (c:IsReason(REASON_REVEAL) or c:GetPreviousPosition()==POS_FACEUP_DEFENCE) + return c:IsPreviousLocation(LOCATION_DECK) and c:IsReason(REASON_REVEAL) end function c62434031.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_DECK,0,1,nil,0x90) end diff --git a/script/c62437430.lua b/script/c62437430.lua index 303cb1ce..9201cf58 100644 --- a/script/c62437430.lua +++ b/script/c62437430.lua @@ -21,7 +21,7 @@ function c62437430.initial_effect(c) e1:SetLabelObject(e2) end function c62437430.filter(c) - return c:IsAttribute(ATTRIBUTE_WATER) and c:IsAbleToRemove() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsAttribute(ATTRIBUTE_WATER) and c:IsAbleToRemove() and (not c:IsLocation(LOCATION_MZONE) or c:IsFaceup()) end function c62437430.target(e,tp,eg,ep,ev,re,r,rp,chk) @@ -33,7 +33,7 @@ function c62437430.operation(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) local tc=Duel.SelectMatchingCard(tp,c62437430.filter,tp,0x16,0,1,1,nil):GetFirst() - if tc then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) tc:RegisterFlagEffect(62437430,RESET_EVENT+0x1fe0000,0,0) e:GetLabelObject():SetLabelObject(tc) diff --git a/script/c62437709.lua b/script/c62437709.lua index b95f3170..d0dc804e 100644 --- a/script/c62437709.lua +++ b/script/c62437709.lua @@ -27,23 +27,29 @@ function c62437709.initial_effect(c) c:RegisterEffect(e3) --atk def local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_DAMAGE_CALCULATING) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_UPDATE_ATTACK) e4:SetRange(LOCATION_MZONE) - e4:SetOperation(c62437709.adval) + e4:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e4:SetCondition(c62437709.adcon) + e4:SetTarget(c62437709.adtg) + e4:SetValue(c62437709.adval) c:RegisterEffect(e4) + local e5=e4:Clone() + e5:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e5) end function c62437709.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_COUNTER,g,1,0xe,1) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,g,1,0x100e,1) end function c62437709.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0xe,1) + tc:AddCounter(0x100e,1) end end function c62437709.flop(e,tp,eg,ep,ev,re,r,rp) @@ -63,22 +69,13 @@ function c62437709.drop(e,tp,eg,ep,ev,re,r,rp) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) Duel.Draw(p,d,REASON_EFFECT) end -function c62437709.addown(c,e) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(c:GetCounter(0xe)*-300) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) +function c62437709.adcon(e) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and Duel.GetAttackTarget() +end +function c62437709.adtg(e,c) + local bc=c:GetBattleTarget() + return bc and c:GetCounter(0x100e)~=0 and bc:IsSetCard(0xc) end -function c62437709.adval(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if not d then return end - if a:GetCounter(0xe)>0 and d:IsSetCard(0xc) then c62437709.addown(a,e) end - if d:GetCounter(0xe)>0 and a:IsSetCard(0xc) then c62437709.addown(d,e) end +function c62437709.adval(e,c) + return c:GetCounter(0x100e)*-300 end diff --git a/script/c62476197.lua b/script/c62476197.lua old mode 100755 new mode 100644 diff --git a/script/c62476815.lua b/script/c62476815.lua index b4f3c66e..9b66bc8e 100644 --- a/script/c62476815.lua +++ b/script/c62476815.lua @@ -9,7 +9,7 @@ function c62476815.initial_effect(c) c:RegisterEffect(e1) end function c62476815.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDefencePos() + if chk==0 then return e:GetHandler():IsDefensePos() and e:GetHandler():IsReason(REASON_BATTLE) end return true end diff --git a/script/c62541668.lua b/script/c62541668.lua new file mode 100644 index 00000000..d236cd19 --- /dev/null +++ b/script/c62541668.lua @@ -0,0 +1,69 @@ +--No.77 ザ・セブン・シンズ +function c62541668.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,12,2,c62541668.ovfilter,aux.Stringid(62541668,0),2,c62541668.xyzop) + c:EnableReviveLimit() + --remove + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(62541668,1)) + e1:SetCategory(CATEGORY_REMOVE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCost(c62541668.rmcost) + e1:SetTarget(c62541668.rmtg) + e1:SetOperation(c62541668.rmop) + c:RegisterEffect(e1) + --destroy replace + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EFFECT_DESTROY_REPLACE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetRange(LOCATION_MZONE) + e2:SetTarget(c62541668.reptg) + c:RegisterEffect(e2) +end +c62541668.xyz_number=77 +function c62541668.ovfilter(c) + local rk=c:GetRank() + return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_DARK) and c:IsType(TYPE_XYZ) and (rk==10 or rk==11) +end +function c62541668.xyzop(e,tp,chk) + if chk==0 then return true end + e:GetHandler():RegisterFlagEffect(62541668,RESET_EVENT+0xfe0000+RESET_PHASE+PHASE_END,0,1) +end +function c62541668.rmcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST) +end +function c62541668.rmfilter(c) + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL and c:IsAbleToRemove() +end +function c62541668.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetFlagEffect(62541668)==0 + and Duel.IsExistingMatchingCard(c62541668.rmfilter,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(c62541668.rmfilter,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0) +end +function c62541668.rmop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c62541668.rmfilter,tp,0,LOCATION_MZONE,nil) + if g:GetCount()>0 then + Duel.Remove(g,POS_FACEUP,REASON_EFFECT) + local og=Duel.GetOperatedGroup():Filter(Card.IsLocation,nil,LOCATION_REMOVED) + if og:GetCount()>0 then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(62541668,2)) + local sg=og:Select(tp,1,1,nil) + Duel.Overlay(e:GetHandler(),sg) + end + end +end +function c62541668.reptg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:IsReason(REASON_BATTLE+REASON_EFFECT) + and c:CheckRemoveOverlayCard(tp,1,REASON_EFFECT) end + if Duel.SelectYesNo(tp,aux.Stringid(62541668,3)) then + c:RemoveOverlayCard(tp,1,1,REASON_EFFECT) + return true + else return false end +end diff --git a/script/c62633180.lua b/script/c62633180.lua index 5002f8b8..51444316 100644 --- a/script/c62633180.lua +++ b/script/c62633180.lua @@ -11,10 +11,10 @@ function c62633180.initial_effect(c) c:RegisterEffect(e1) end function c62633180.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,0,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,0,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,0,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,1-tp,2) end diff --git a/script/c62709239.lua b/script/c62709239.lua index ec0f6547..252f357f 100644 --- a/script/c62709239.lua +++ b/script/c62709239.lua @@ -1,104 +1,106 @@ ---幻影騎士団ブレイクソード -function c62709239.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,3,2) - c:EnableReviveLimit() - --Destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(62709239,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c62709239.descost) - e1:SetTarget(c62709239.destg) - e1:SetOperation(c62709239.desop) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(62709239,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_DESTROYED) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e2:SetCondition(c62709239.spcon) - e2:SetTarget(c62709239.sptg) - e2:SetOperation(c62709239.spop) - c:RegisterEffect(e2) -end -function c62709239.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c62709239.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,nil) - and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0) -end -function c62709239.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tg=g:Filter(Card.IsRelateToEffect,nil,e) - if tg:GetCount()>0 then - Duel.Destroy(tg,REASON_EFFECT) - end -end -function c62709239.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_MZONE) and bit.band(c:GetSummonType(),SUMMON_TYPE_XYZ)==SUMMON_TYPE_XYZ -end -function c62709239.spfilter1(c,e,tp) - return c:GetLevel()>0 and c:IsSetCard(0x10db) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and Duel.IsExistingTarget(c62709239.spfilter2,tp,LOCATION_GRAVE,0,1,c,c:GetLevel(),e,tp) -end -function c62709239.spfilter2(c,lv,e,tp) - return c:GetLevel()==lv and c:IsSetCard(0x10db) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c62709239.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsExistingTarget(c62709239.spfilter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g1=Duel.SelectTarget(tp,c62709239.spfilter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - local tc1=g1:GetFirst() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g2=Duel.SelectTarget(tp,c62709239.spfilter2,tp,LOCATION_GRAVE,0,1,1,tc1,tc1:GetLevel(),e,tp) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,2,0,0) -end -function c62709239.spop(e,tp,eg,ep,ev,re,r,rp) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local g=tg:Filter(Card.IsRelateToEffect,nil,e) - if ft>0 and g:GetCount()<=ft then - local tc=g:GetFirst() - while tc do - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(1) - tc:RegisterEffect(e1) - tc=g:GetNext() - end - Duel.SpecialSummonComplete() - end - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetTarget(c62709239.splimit) - e2:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e2,tp) -end -function c62709239.splimit(e,c) - return not c:IsAttribute(ATTRIBUTE_DARK) -end +--幻影騎士団ブレイクソード +function c62709239.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,3,2) + c:EnableReviveLimit() + --Destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(62709239,0)) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCost(c62709239.descost) + e1:SetTarget(c62709239.destg) + e1:SetOperation(c62709239.desop) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(62709239,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_DESTROYED) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e2:SetCondition(c62709239.spcon) + e2:SetTarget(c62709239.sptg) + e2:SetOperation(c62709239.spop) + c:RegisterEffect(e2) +end +function c62709239.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c62709239.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,0,1,nil) + and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g1=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,0,1,1,nil) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g2=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + g1:Merge(g2) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0) +end +function c62709239.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local tg=g:Filter(Card.IsRelateToEffect,nil,e) + if tg:GetCount()>0 then + Duel.Destroy(tg,REASON_EFFECT) + end +end +function c62709239.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_MZONE) and bit.band(c:GetSummonType(),SUMMON_TYPE_XYZ)==SUMMON_TYPE_XYZ +end +function c62709239.spfilter1(c,e,tp) + return c:GetLevel()>0 and c:IsSetCard(0x10db) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.IsExistingTarget(c62709239.spfilter2,tp,LOCATION_GRAVE,0,1,c,c:GetLevel(),e,tp) +end +function c62709239.spfilter2(c,lv,e,tp) + return c:GetLevel()==lv and c:IsSetCard(0x10db) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c62709239.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and Duel.IsExistingTarget(c62709239.spfilter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g1=Duel.SelectTarget(tp,c62709239.spfilter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + local tc1=g1:GetFirst() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g2=Duel.SelectTarget(tp,c62709239.spfilter2,tp,LOCATION_GRAVE,0,1,1,tc1,tc1:GetLevel(),e,tp) + g1:Merge(g2) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,2,0,0) +end +function c62709239.spop(e,tp,eg,ep,ev,re,r,rp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local g=tg:Filter(Card.IsRelateToEffect,nil,e) + local ct=g:GetCount() + if ft>0 and ct<=ft and (ct==1 or not Duel.IsPlayerAffectedByEffect(tp,59822133)) then + local tc=g:GetFirst() + while tc do + Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_LEVEL) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(1) + tc:RegisterEffect(e1) + tc=g:GetNext() + end + Duel.SpecialSummonComplete() + end + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetTargetRange(1,0) + e2:SetTarget(c62709239.splimit) + e2:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e2,tp) +end +function c62709239.splimit(e,c) + return not c:IsAttribute(ATTRIBUTE_DARK) +end diff --git a/script/c6276588.lua b/script/c6276588.lua index 8b652105..13d96b32 100644 --- a/script/c6276588.lua +++ b/script/c6276588.lua @@ -5,14 +5,6 @@ function c6276588.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_MUST_ATTACK) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c6276588.becon) - c:RegisterEffect(e2) --pos change local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(6276588,0)) @@ -34,13 +26,10 @@ function c6276588.initial_effect(c) e4:SetOperation(c6276588.spop) c:RegisterEffect(e4) end -function c6276588.becon(e) - return e:GetHandler():IsAttackable() -end function c6276588.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end function c6276588.spcon(e,tp,eg,ep,ev,re,r,rp) @@ -61,6 +50,6 @@ end function c6276588.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c62782218.lua b/script/c62782218.lua index 9d4db70f..8b2ad1b8 100644 --- a/script/c62782218.lua +++ b/script/c62782218.lua @@ -45,7 +45,8 @@ function c62782218.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return false end - if ft==1 then return Duel.IsExistingMatchingCard(c62782218.spfilter,tp,LOCATION_HAND,0,1,e:GetHandler(),e,tp,2000) + if ft==1 or Duel.IsPlayerAffectedByEffect(tp,59822133) then + return Duel.IsExistingMatchingCard(c62782218.spfilter,tp,LOCATION_HAND,0,1,e:GetHandler(),e,tp,2000) else local g=Duel.GetMatchingGroup(c62782218.spfilter,tp,LOCATION_HAND,0,e:GetHandler(),e,tp) return g:CheckWithSumEqual(Card.GetAttack,2000,1,2) @@ -56,7 +57,7 @@ end function c62782218.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end - if ft==1 then + if ft==1 or Duel.IsPlayerAffectedByEffect(tp,59822133) then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c62782218.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp,2000) if g:GetCount()>0 then diff --git a/script/c62829077.lua b/script/c62829077.lua new file mode 100644 index 00000000..e3cf086c --- /dev/null +++ b/script/c62829077.lua @@ -0,0 +1,94 @@ +--輝望道 +function c62829077.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCost(c62829077.cost) + e1:SetTarget(c62829077.target) + e1:SetOperation(c62829077.activate) + c:RegisterEffect(e1) +end +function c62829077.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)==0 end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) + e1:SetTargetRange(1,0) + e1:SetTarget(c62829077.splimit) + e1:SetLabelObject(e) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c62829077.splimit(e,c,sump,sumtype,sumpos,targetp,se) + return se~=e:GetLabelObject() +end +function c62829077.filter(c,e,tp) + return c:IsCanBeEffectTarget(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c62829077.xyzfilter(c,mg) + return c:IsSetCard(0x7f) and c:IsXyzSummonable(mg,3,3) +end +function c62829077.mfilter1(c,mg,exg) + return mg:IsExists(c62829077.mfilter2,1,c,c,mg,exg) +end +function c62829077.mfilter2(c,mc,mg,exg) + return mg:IsExists(c62829077.mfilter3,1,c,c,mc,exg) +end +function c62829077.mfilter3(c,mc1,mc2,exg) + return c~=mc2 and exg:IsExists(Card.IsXyzSummonable,1,nil,Group.FromCards(c,mc1,mc2),3,3) +end +function c62829077.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + local mg=Duel.GetMatchingGroup(c62829077.filter,tp,LOCATION_GRAVE,0,nil,e,tp) + local exg=Duel.GetMatchingGroup(c62829077.xyzfilter,tp,LOCATION_EXTRA,0,nil,mg) + if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2) + and not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>2 + and exg:GetCount()>0 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg1=mg:FilterSelect(tp,c62829077.mfilter1,1,1,nil,mg,exg) + local tc1=sg1:GetFirst() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg2=mg:FilterSelect(tp,c62829077.mfilter2,1,1,tc1,tc1,mg,exg) + local tc2=sg2:GetFirst() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg3=mg:FilterSelect(tp,c62829077.mfilter3,1,1,tc2,tc2,tc1,exg) + sg1:Merge(sg2) + sg1:Merge(sg3) + Duel.SetTargetCard(sg1) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg1,3,0,0) +end +function c62829077.filter2(c,e,tp) + return c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c62829077.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<3 then return end + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c62829077.filter2,nil,e,tp) + if g:GetCount()<3 then return end + local tc=g:GetFirst() + while tc do + Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_DISABLE_EFFECT) + tc:RegisterEffect(e2) + tc=g:GetNext() + end + Duel.SpecialSummonComplete() + Duel.BreakEffect() + local xyzg=Duel.GetMatchingGroup(c62829077.xyzfilter,tp,LOCATION_EXTRA,0,nil,g) + if xyzg:GetCount()>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local xyz=xyzg:Select(tp,1,1,nil):GetFirst() + Duel.XyzSummon(tp,xyz,g) + end +end diff --git a/script/c6283472.lua b/script/c6283472.lua new file mode 100644 index 00000000..f6343805 --- /dev/null +++ b/script/c6283472.lua @@ -0,0 +1,72 @@ +--アモルファージ・ヒュペル +function c6283472.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --flip + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_FLIP) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetOperation(c6283472.flipop) + c:RegisterEffect(e1) + --maintain + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_PZONE) + e2:SetCountLimit(1) + e2:SetCode(EVENT_PHASE+PHASE_STANDBY) + e2:SetCondition(c6283472.descon) + e2:SetOperation(c6283472.desop) + c:RegisterEffect(e2) + --spsummon limit + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetTargetRange(1,1) + e3:SetTarget(c6283472.sumlimit) + c:RegisterEffect(e3) + --damage 0 + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_CHANGE_DAMAGE) + e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e4:SetRange(LOCATION_PZONE) + e4:SetTargetRange(1,1) + e4:SetCondition(c6283472.damcon) + e4:SetValue(c6283472.damval) + c:RegisterEffect(e4) + local e5=e4:Clone() + e5:SetCode(EFFECT_NO_EFFECT_DAMAGE) + c:RegisterEffect(e5) +end +function c6283472.flipop(e,tp,eg,ep,ev,re,r,rp) + e:GetHandler():RegisterFlagEffect(6283472,RESET_EVENT+0x1fe0000,0,1) +end +function c6283472.descon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c6283472.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) + if Duel.CheckReleaseGroup(tp,Card.IsReleasableByEffect,1,c) and Duel.SelectYesNo(tp,aux.Stringid(6283472,0)) then + local g=Duel.SelectReleaseGroup(tp,Card.IsReleasableByEffect,1,1,c) + Duel.Release(g,REASON_COST) + else Duel.Destroy(c,REASON_COST) end +end +function c6283472.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) + return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0xe0) + and (e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM or e:GetHandler():GetFlagEffect(6283472)~=0) +end +function c6283472.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe0) +end +function c6283472.damcon(e) + return Duel.IsExistingMatchingCard(c6283472.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) +end +function c6283472.damval(e,re,val,r,rp,rc) + if bit.band(r,REASON_EFFECT)~=0 then return 0 end + return val +end diff --git a/script/c62867251.lua b/script/c62867251.lua old mode 100755 new mode 100644 diff --git a/script/c62868900.lua b/script/c62868900.lua index ccc9a04a..143358ec 100644 --- a/script/c62868900.lua +++ b/script/c62868900.lua @@ -26,7 +26,7 @@ function c62868900.operation(e,tp,eg,ep,ev,re,r,rp) if not c:IsLocation(LOCATION_SZONE) then return end local tc=Duel.GetFirstTarget() if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) Duel.Equip(tp,c,tc) c:CancelToGrave() --Atkup diff --git a/script/c62873545.lua b/script/c62873545.lua old mode 100755 new mode 100644 diff --git a/script/c62878208.lua b/script/c62878208.lua index 6e6dc885..7f6f2867 100644 --- a/script/c62878208.lua +++ b/script/c62878208.lua @@ -12,7 +12,7 @@ function c62878208.initial_effect(c) c:RegisterEffect(e1) end function c62878208.eqcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE + return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c62878208.filter1(c,e,tp) local ec=c:GetEquipTarget() @@ -25,7 +25,7 @@ end function c62878208.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end if chk==0 then return Duel.IsExistingTarget(c62878208.filter1,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(62878208,2)) + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(62878208,0)) local g1=Duel.SelectTarget(tp,c62878208.filter1,tp,LOCATION_SZONE,LOCATION_SZONE,1,1,nil,e,tp) e:SetLabelObject(g1:GetFirst()) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUPATTACK) @@ -48,7 +48,7 @@ function c62878208.eqop(e,tp,eg,ep,ev,re,r,rp) d=eqc end if a:IsAttackable() and not a:IsImmuneToEffect(e) and not d:IsImmuneToEffect(e) then - Duel.CalculateDamage(a,d) + Duel.CalculateDamage(a,d,true) end end end diff --git a/script/c62892347.lua b/script/c62892347.lua index 077416ba..435a292c 100644 --- a/script/c62892347.lua +++ b/script/c62892347.lua @@ -1,4 +1,4 @@ ---アルカナフォース0－THE FOOL +--アルカナフォース０－THE FOOL function c62892347.initial_effect(c) --battle indestructable local e1=Effect.CreateEffect(c) diff --git a/script/c62893810.lua b/script/c62893810.lua new file mode 100644 index 00000000..42b32c92 --- /dev/null +++ b/script/c62893810.lua @@ -0,0 +1,41 @@ +--サイコロプス +function c62893810.initial_effect(c) + --dice + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_HANDES+CATEGORY_DICE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetTarget(c62893810.target) + e1:SetOperation(c62893810.operation) + c:RegisterEffect(e1) +end +function c62893810.target(e,tp,eg,ep,ev,re,r,rp,chk) + local g1=Duel.GetFieldGroup(tp,LOCATION_HAND,LOCATION_HAND) + if chk==0 then return g1:GetCount()~=0 end + Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) + Duel.SetOperationInfo(0,CATEGORY_HANDES,g1,1,0,0) +end +function c62893810.operation(e,tp,eg,ep,ev,re,r,rp) + local d=Duel.TossDice(tp,1) + if d==1 then + local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND) + if g:GetCount()==0 then return end + Duel.ConfirmCards(tp,g) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) + local sg=g:Select(tp,1,1,nil) + Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD) + Duel.ShuffleHand(1-tp) + elseif d==6 then + local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0) + if g:GetCount()==0 then return end + Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD) + else + local g=Duel.GetFieldGroup(tp,LOCATION_HAND,0) + if g:GetCount()==0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) + local sg=g:Select(tp,1,1,nil) + Duel.SendtoGrave(sg,REASON_EFFECT+REASON_DISCARD) + Duel.ShuffleHand(tp) + end +end diff --git a/script/c62895219.lua b/script/c62895219.lua index e64bae20..b3f9fa5a 100644 --- a/script/c62895219.lua +++ b/script/c62895219.lua @@ -1,98 +1,97 @@ ---幻奏の歌姫ソプラノ -function c62895219.initial_effect(c) - --tohand - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCountLimit(1,62895219) - e1:SetTarget(c62895219.thtg) - e1:SetOperation(c62895219.thop) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c62895219.target) - e2:SetOperation(c62895219.operation) - c:RegisterEffect(e2) -end -function c62895219.filter(c) - return c:IsSetCard(0x9b) and c:IsType(TYPE_MONSTER) and not c:IsCode(62895219) and c:IsAbleToHand() -end -function c62895219.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c62895219.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c62895219.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c62895219.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c62895219.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end -function c62895219.filter1(c,e) - return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) -end -function c62895219.filter2(c,e,tp,m,f,gc) - return c:IsType(TYPE_FUSION) and c:IsSetCard(0x9b) and (not f or f(c)) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,gc) -end -function c62895219.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then - local mg1=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_MZONE,0,c) - local res=Duel.IsExistingMatchingCard(c62895219.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,c) - if not res then - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - local mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - res=Duel.IsExistingMatchingCard(c62895219.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,c) - end - end - return res - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c62895219.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFacedown() or not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end - local mg1=Duel.GetMatchingGroup(c62895219.filter1,tp,LOCATION_MZONE,0,c,e) - local sg1=Duel.GetMatchingGroup(c62895219.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,c) - local mg2=nil - local sg2=nil - local ce=Duel.GetChainMaterial(tp) - if ce~=nil then - local fgroup=ce:GetTarget() - mg2=fgroup(ce,e,tp) - local mf=ce:GetValue() - sg2=Duel.GetMatchingGroup(c62895219.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,c) - end - if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then - local sg=sg1:Clone() - if sg2 then sg:Merge(sg2) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=sg:Select(tp,1,1,nil) - local tc=tg:GetFirst() - if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then - local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,c) - tc:SetMaterial(mat1) - Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - else - local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,c) - local fop=ce:GetOperation() - fop(ce,e,tp,tc,mat2) - end - tc:CompleteProcedure() - end -end +--幻奏の歌姫ソプラノ +function c62895219.initial_effect(c) + --tohand + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCountLimit(1,62895219) + e1:SetTarget(c62895219.thtg) + e1:SetOperation(c62895219.thop) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetTarget(c62895219.target) + e2:SetOperation(c62895219.operation) + c:RegisterEffect(e2) +end +function c62895219.filter(c) + return c:IsSetCard(0x9b) and c:IsType(TYPE_MONSTER) and not c:IsCode(62895219) and c:IsAbleToHand() +end +function c62895219.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c62895219.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c62895219.filter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c62895219.filter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c62895219.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c62895219.filter1(c,e) + return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) +end +function c62895219.filter2(c,e,tp,m,f,gc) + return c:IsType(TYPE_FUSION) and c:IsSetCard(0x9b) and (not f or f(c)) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,gc) +end +function c62895219.target(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then + local mg1=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_MZONE,0,c) + local res=Duel.IsExistingMatchingCard(c62895219.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,c) + if not res then + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + local mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + res=Duel.IsExistingMatchingCard(c62895219.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,c) + end + end + return res + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c62895219.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsFacedown() or not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end + local mg1=Duel.GetMatchingGroup(c62895219.filter1,tp,LOCATION_MZONE,0,c,e) + local sg1=Duel.GetMatchingGroup(c62895219.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,c) + local mg2=nil + local sg2=nil + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + sg2=Duel.GetMatchingGroup(c62895219.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,c) + end + if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then + local sg=sg1:Clone() + if sg2 then sg:Merge(sg2) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=sg:Select(tp,1,1,nil) + local tc=tg:GetFirst() + if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then + local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,c) + tc:SetMaterial(mat1) + Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) + else + local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,c) + local fop=ce:GetOperation() + fop(ce,e,tp,tc,mat2) + end + tc:CompleteProcedure() + end +end diff --git a/script/c62957424.lua b/script/c62957424.lua old mode 100755 new mode 100644 index c4ea247a..4d44e3a2 --- a/script/c62957424.lua +++ b/script/c62957424.lua @@ -49,8 +49,11 @@ function c62957424.sstg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c62957424.ssop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c62957424.spfilter(c,e,tp) diff --git a/script/c63018132.lua b/script/c63018132.lua index 50a5ffaa..e1c0ec21 100644 --- a/script/c63018132.lua +++ b/script/c63018132.lua @@ -22,9 +22,7 @@ function c63018132.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c63018132.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c63035430.lua b/script/c63035430.lua index 5a5bdc84..f5d63f95 100644 --- a/script/c63035430.lua +++ b/script/c63035430.lua @@ -7,20 +7,26 @@ function c63035430.initial_effect(c) c:RegisterEffect(e1) --atk up local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) e2:SetRange(LOCATION_FZONE) - e2:SetOperation(c63035430.atkup) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetCondition(c63035430.atkcon) + e2:SetTarget(c63035430.atktg) + e2:SetValue(c63035430.atkval) c:RegisterEffect(e2) end -function c63035430.atkup(e,tp,eg,ep,ev,re,r,rp,chk) - local a=Duel.GetAttacker() +function c63035430.atkcon(e) + c63035430[0]=false + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and Duel.GetAttackTarget() +end +function c63035430.atktg(e,c) + return c==Duel.GetAttacker() and c:IsSetCard(0x3008) +end +function c63035430.atkval(e,c) local d=Duel.GetAttackTarget() - if not a:IsSetCard(0x3008) or not d or a:GetAttack()>=d:GetAttack() then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(1000) - a:RegisterEffect(e1) + if c63035430[0] or c:GetAttack()0 + return c:GetCounter(0x1)>0 end function c63101919.damcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetCounter(tp,1,1,0x3001)>0 end + if chk==0 then return Duel.GetCounter(tp,1,1,0x1)>0 end local g=Duel.GetMatchingGroup(c63101919.damfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) local tc=g:GetFirst() local sum=0 while tc do - local sct=tc:GetCounter(0x3001) - tc:RemoveCounter(tp,0x3001,sct,0) + local sct=tc:GetCounter(0x1) + tc:RemoveCounter(tp,0x1,sct,0) sum=sum+sct tc=g:GetNext() end diff --git a/script/c63102017.lua b/script/c63102017.lua index 96f7246d..bcefe5bc 100644 --- a/script/c63102017.lua +++ b/script/c63102017.lua @@ -11,10 +11,10 @@ function c63102017.initial_effect(c) c:RegisterEffect(e1) end function c63102017.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDefencePos() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDefencePos,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDefensePos() end + if chk==0 then return Duel.IsExistingTarget(Card.IsDefensePos,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) - local g=Duel.SelectTarget(tp,Card.IsDefencePos,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,Card.IsDefensePos,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) end function c63102017.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c63120904.lua b/script/c63120904.lua old mode 100755 new mode 100644 index 22f4201b..052e7bf9 --- a/script/c63120904.lua +++ b/script/c63120904.lua @@ -1,59 +1,58 @@ ---暗黒大要塞鯱 -function c63120904.initial_effect(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(63120904,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c63120904.target) - e1:SetOperation(c63120904.operation) - c:RegisterEffect(e1) -end -function c63120904.rfilter(c) - local code=c:GetCode() - return code==90337190 or code==95614612 -end -function c63120904.dfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c63120904.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then - if e:GetLabel()==90337190 then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() - else return chkc:IsOnField() and c63120904.dfilter(chkc) end - end - local b1=Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,90337190) and Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) - local b2=Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,95614612) and Duel.IsExistingTarget(c63120904.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - if chk==0 then return b1 or b2 end - local code=0 - if b1 and b2 then - local rg=Duel.SelectReleaseGroup(tp,c63120904.rfilter,1,1,nil) - code=rg:GetFirst():GetCode() - Duel.Release(rg,REASON_COST) - elseif b1 then - local rg=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,90337190) - code=90337190 - Duel.Release(rg,REASON_COST) - else - local rg=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,95614612) - code=95614612 - Duel.Release(rg,REASON_COST) - end - e:SetLabel(code) - if code==90337190 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c63120904.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - end -end -function c63120904.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--暗黒大要塞鯱 +function c63120904.initial_effect(c) + --destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(63120904,0)) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_MZONE) + e1:SetTarget(c63120904.target) + e1:SetOperation(c63120904.operation) + c:RegisterEffect(e1) +end +function c63120904.rfilter(c) + return c:IsCode(90337190,95614612) +end +function c63120904.dfilter(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) +end +function c63120904.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then + if e:GetLabel()==90337190 then return chkc:IsLocation(LOCATION_MZONE) + else return chkc:IsOnField() and c63120904.dfilter(chkc) end + end + local b1=Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,90337190) and Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) + local b2=Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,95614612) and Duel.IsExistingTarget(c63120904.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) + if chk==0 then return b1 or b2 end + local code=0 + if b1 and b2 then + local rg=Duel.SelectReleaseGroup(tp,c63120904.rfilter,1,1,nil) + code=rg:GetFirst():GetCode() + Duel.Release(rg,REASON_COST) + elseif b1 then + local rg=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,90337190) + code=90337190 + Duel.Release(rg,REASON_COST) + else + local rg=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,95614612) + code=95614612 + Duel.Release(rg,REASON_COST) + end + e:SetLabel(code) + if code==90337190 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c63120904.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + end +end +function c63120904.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c63142001.lua b/script/c63142001.lua index dcf569af..7524f33f 100644 --- a/script/c63142001.lua +++ b/script/c63142001.lua @@ -9,7 +9,7 @@ function c63142001.initial_effect(c) e1:SetValue(c63142001.atkval) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(c63142001.defval) c:RegisterEffect(e2) end @@ -18,7 +18,7 @@ function c63142001.filter(c) end function c63142001.atkval(e,c) local g=Duel.GetMatchingGroup(c63142001.filter,c:GetControler(),LOCATION_MZONE,0,nil) - if g:IsExists(Card.IsDefencePos,1,nil) then return 0 end + if g:IsExists(Card.IsDefensePos,1,nil) then return 0 end return g:GetCount()*1000 end function c63142001.defval(e,c) diff --git a/script/c63211608.lua b/script/c63211608.lua index bfdf1415..a830cfd9 100644 --- a/script/c63211608.lua +++ b/script/c63211608.lua @@ -48,7 +48,9 @@ function c63211608.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) end function c63211608.sumop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c63224564.lua b/script/c63224564.lua index d2db2ebe..5240d835 100644 --- a/script/c63224564.lua +++ b/script/c63224564.lua @@ -24,12 +24,10 @@ function c63224564.initial_effect(c) c:RegisterEffect(e4) end function c63224564.eqlimit(e,c) - local code=c:GetCode() - return code==76812113 or code==12206212 + return c:IsCode(76812113,12206212) end function c63224564.filter(c) - local code=c:GetCode() - return c:IsFaceup() and (code==76812113 or code==12206212) + return c:IsFaceup() and c:IsCode(76812113,12206212) end function c63224564.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c63224564.filter(chkc) end diff --git a/script/c63227401.lua b/script/c63227401.lua old mode 100755 new mode 100644 index 3f516bec..410cc492 --- a/script/c63227401.lua +++ b/script/c63227401.lua @@ -35,6 +35,7 @@ function c63227401.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then tc:RegisterFlagEffect(63227401,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) + tc:RegisterFlagEffect(0,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(63227401,1)) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_CHAIN_SOLVING) diff --git a/script/c63251695.lua b/script/c63251695.lua index 1c2bdfa1..64480f37 100644 --- a/script/c63251695.lua +++ b/script/c63251695.lua @@ -1,115 +1,115 @@ ---ダイナミスト・レックス -function c63251695.initial_effect(c) - --pendulum summon - aux.EnablePendulumAttribute(c) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(63251695,0)) - e2:SetCategory(CATEGORY_DISABLE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_CHAIN_SOLVING) - e2:SetRange(LOCATION_PZONE) - e2:SetCondition(c63251695.negcon) - e2:SetOperation(c63251695.negop) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TODECK) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_DAMAGE_STEP_END) - e3:SetCondition(c63251695.effcon) - e3:SetCost(c63251695.effcost) - e3:SetTarget(c63251695.efftg) - e3:SetOperation(c63251695.effop) - c:RegisterEffect(e3) -end -function c63251695.tfilter(c,tp) - return c:IsFaceup() and c:IsSetCard(0xd8) and c:IsControler(tp) and c:IsLocation(LOCATION_ONFIELD) -end -function c63251695.negcon(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) - return e:GetHandler():GetFlagEffect(63251695)==0 and re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) - and g and g:IsExists(c63251695.tfilter,1,e:GetHandler(),tp) and Duel.IsChainDisablable(ev) -end -function c63251695.negop(e,tp,eg,ep,ev,re,r,rp) - if Duel.SelectYesNo(tp,aux.Stringid(63251695,1)) then - e:GetHandler():RegisterFlagEffect(63251695,RESET_EVENT+0x1fe0000,0,1) - Duel.NegateEffect(ev) - Duel.BreakEffect() - Duel.Destroy(e:GetHandler(),REASON_EFFECT) - end -end -function c63251695.effcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler()==Duel.GetAttacker() -end -function c63251695.effcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,e:GetHandler(),0xd8) end - local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,e:GetHandler(),0xd8) - Duel.Release(g,REASON_COST) -end -function c63251695.efftg(e,tp,eg,ep,ev,re,r,rp,chk) - local b1=e:GetHandler():IsChainAttackable(2,true) - local b2=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD+LOCATION_HAND,1,nil) - if chk==0 then return b1 or b2 end - local opt=0 - if b1 and b2 then - opt=Duel.SelectOption(tp,aux.Stringid(63251695,2),aux.Stringid(63251695,3)) - elseif b1 then - opt=Duel.SelectOption(tp,aux.Stringid(63251695,2)) - else - opt=Duel.SelectOption(tp,aux.Stringid(63251695,3))+1 - end - e:SetLabel(opt) - if opt==1 then - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,1-tp,LOCATION_ONFIELD+LOCATION_HAND) - end -end -function c63251695.effop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if e:GetLabel()==0 then - if not c:IsRelateToBattle() then return end - Duel.ChainAttack() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_PIERCE) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL) - c:RegisterEffect(e2) - else - local g1=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_HAND,nil) - local g2=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,nil) - local opt=0 - if g1:GetCount()>0 and g2:GetCount()>0 then - opt=Duel.SelectOption(tp,aux.Stringid(63251695,4),aux.Stringid(63251695,5)) - elseif g1:GetCount()>0 then - opt=0 - elseif g2:GetCount()>0 then - opt=1 - else - return - end - local sg=nil - if opt==0 then - sg=g1:RandomSelect(tp,1) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - sg=g2:Select(tp,1,1,nil) - end - Duel.SendtoDeck(sg,nil,2,REASON_EFFECT) - if sg:GetFirst():IsLocation(LOCATION_DECK) and c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.BreakEffect() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(100) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - end - end -end +--ダイナミスト・レックス +function c63251695.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + -- + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(63251695,0)) + e2:SetCategory(CATEGORY_DISABLE) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_CHAIN_SOLVING) + e2:SetRange(LOCATION_PZONE) + e2:SetCondition(c63251695.negcon) + e2:SetOperation(c63251695.negop) + c:RegisterEffect(e2) + -- + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_TODECK) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_DAMAGE_STEP_END) + e3:SetCondition(c63251695.effcon) + e3:SetCost(c63251695.effcost) + e3:SetTarget(c63251695.efftg) + e3:SetOperation(c63251695.effop) + c:RegisterEffect(e3) +end +function c63251695.tfilter(c,tp) + return c:IsFaceup() and c:IsSetCard(0xd8) and c:IsControler(tp) and c:IsLocation(LOCATION_ONFIELD) +end +function c63251695.negcon(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) + return e:GetHandler():GetFlagEffect(63251695)==0 and re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) + and g and g:IsExists(c63251695.tfilter,1,e:GetHandler(),tp) and Duel.IsChainDisablable(ev) +end +function c63251695.negop(e,tp,eg,ep,ev,re,r,rp) + if Duel.SelectYesNo(tp,aux.Stringid(63251695,1)) then + e:GetHandler():RegisterFlagEffect(63251695,RESET_EVENT+0x1fe0000,0,1) + Duel.NegateEffect(ev) + Duel.BreakEffect() + Duel.Destroy(e:GetHandler(),REASON_EFFECT) + end +end +function c63251695.effcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler()==Duel.GetAttacker() and e:GetHandler():IsRelateToBattle() +end +function c63251695.effcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,e:GetHandler(),0xd8) end + local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,e:GetHandler(),0xd8) + Duel.Release(g,REASON_COST) +end +function c63251695.efftg(e,tp,eg,ep,ev,re,r,rp,chk) + local b1=e:GetHandler():IsChainAttackable(0,true) + local b2=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD+LOCATION_HAND,1,nil) + if chk==0 then return b1 or b2 end + local opt=0 + if b1 and b2 then + opt=Duel.SelectOption(tp,aux.Stringid(63251695,2),aux.Stringid(63251695,3)) + elseif b1 then + opt=Duel.SelectOption(tp,aux.Stringid(63251695,2)) + else + opt=Duel.SelectOption(tp,aux.Stringid(63251695,3))+1 + end + e:SetLabel(opt) + if opt==1 then + Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,1-tp,LOCATION_ONFIELD+LOCATION_HAND) + end +end +function c63251695.effop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if e:GetLabel()==0 then + if not c:IsRelateToBattle() then return end + Duel.ChainAttack() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE+PHASE_DAMAGE_CAL) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_PIERCE) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE+PHASE_DAMAGE_CAL) + c:RegisterEffect(e2) + else + local g1=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_HAND,nil) + local g2=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,nil) + local opt=0 + if g1:GetCount()>0 and g2:GetCount()>0 then + opt=Duel.SelectOption(tp,aux.Stringid(63251695,4),aux.Stringid(63251695,5)) + elseif g1:GetCount()>0 then + opt=0 + elseif g2:GetCount()>0 then + opt=1 + else + return + end + local sg=nil + if opt==0 then + sg=g1:RandomSelect(tp,1) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + sg=g2:Select(tp,1,1,nil) + end + Duel.SendtoDeck(sg,nil,2,REASON_EFFECT) + if sg:GetFirst():IsLocation(LOCATION_DECK) and c:IsRelateToEffect(e) and c:IsFaceup() then + Duel.BreakEffect() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(100) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + end + end +end diff --git a/script/c63253763.lua b/script/c63253763.lua index ba5a3478..a37e3690 100644 --- a/script/c63253763.lua +++ b/script/c63253763.lua @@ -22,19 +22,25 @@ function c63253763.initial_effect(c) c:RegisterEffect(e2) --atk def local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_DAMAGE_CALCULATING) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_UPDATE_ATTACK) e3:SetRange(LOCATION_MZONE) - e3:SetOperation(c63253763.adval) + e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e3:SetCondition(c63253763.adcon) + e3:SetTarget(c63253763.adtg) + e3:SetValue(c63253763.adval) c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e4) end function c63253763.spcon(e,c) if c==nil then return true end return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and Duel.IsCanRemoveCounter(c:GetControler(),1,1,0xe,2,REASON_COST) + and Duel.IsCanRemoveCounter(c:GetControler(),1,1,0x100e,2,REASON_COST) end function c63253763.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.RemoveCounter(tp,1,1,0xe,2,REASON_COST) + Duel.RemoveCounter(tp,1,1,0x100e,2,REASON_COST) end function c63253763.cttg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end @@ -43,26 +49,17 @@ function c63253763.ctop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) local tc=g:GetFirst() while tc do - tc:AddCounter(0xe,1) + tc:AddCounter(0x100e,1) tc=g:GetNext() end end -function c63253763.addown(c,e) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(c:GetCounter(0xe)*-300) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) +function c63253763.adcon(e) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and Duel.GetAttackTarget() +end +function c63253763.adtg(e,c) + local bc=c:GetBattleTarget() + return bc and c:GetCounter(0x100e)~=0 and bc:IsSetCard(0xc) end -function c63253763.adval(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if not d then return end - if a:GetCounter(0xe)>0 and d:IsSetCard(0xc) then c63253763.addown(a,e) end - if d:GetCounter(0xe)>0 and a:IsSetCard(0xc) then c63253763.addown(d,e) end +function c63253763.adval(e,c) + return c:GetCounter(0x100e)*-300 end diff --git a/script/c63257623.lua b/script/c63257623.lua index 507f61c4..f5d4523a 100644 --- a/script/c63257623.lua +++ b/script/c63257623.lua @@ -42,7 +42,7 @@ function c63257623.operation(e,tp,eg,ep,ev,re,r,rp) end function c63257623.spcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_DECK) and (c:IsReason(REASON_REVEAL) or c:GetPreviousPosition()==POS_FACEUP_DEFENCE) + return c:IsPreviousLocation(LOCATION_DECK) and c:IsReason(REASON_REVEAL) end function c63257623.filter(c,e,tp) return c:IsLevelBelow(4) and c:IsRace(RACE_PLANT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) diff --git a/script/c63259351.lua b/script/c63259351.lua index d0d43a14..bc19aca9 100644 --- a/script/c63259351.lua +++ b/script/c63259351.lua @@ -1,5 +1,6 @@ --奇跡のジュラシック・エッグ function c63259351.initial_effect(c) + c:EnableCounterPermit(0x14) --cannot remove local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) @@ -30,7 +31,7 @@ function c63259351.ctfilter(c,tp) end function c63259351.ctop(e,tp,eg,ep,ev,re,r,rp) if eg:IsExists(c63259351.ctfilter,1,nil,tp) then - e:GetHandler():AddCounter(0x14+COUNTER_NEED_ENABLE,2) + e:GetHandler():AddCounter(0x14,2) end end function c63259351.spcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c63274863.lua b/script/c63274863.lua index 5a235d10..2e9441d2 100644 --- a/script/c63274863.lua +++ b/script/c63274863.lua @@ -35,9 +35,9 @@ function c63274863.operation(e,tp,eg,ep,ev,re,r,rp) if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=5 then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) if ct==5 then - Duel.ShuffleDeck(tp) Duel.BreakEffect() Duel.Draw(tp,1,REASON_EFFECT) end diff --git a/script/c6330307.lua b/script/c6330307.lua index 1064ae21..26026f8d 100644 --- a/script/c6330307.lua +++ b/script/c6330307.lua @@ -28,7 +28,7 @@ function c6330307.initial_effect(c) c:RegisterEffect(e3) end function c6330307.filter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) and c:IsSetCard(0x1048) + return c:IsFaceup() and c:IsSetCard(0x107f) and c:IsSetCard(0x1048) end function c6330307.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c6330307.filter(chkc) end diff --git a/script/c63323539.lua b/script/c63323539.lua old mode 100755 new mode 100644 diff --git a/script/c63362460.lua b/script/c63362460.lua new file mode 100644 index 00000000..bde4ab34 --- /dev/null +++ b/script/c63362460.lua @@ -0,0 +1,68 @@ +--D－HERO ディバインガイ +function c63362460.initial_effect(c) + --destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(63362460,0)) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetTarget(c63362460.destg) + e1:SetOperation(c63362460.desop) + c:RegisterEffect(e1) + --draw + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(63362460,1)) + e2:SetCategory(CATEGORY_DRAW) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,63362460) + e2:SetCondition(c63362460.drcon) + e2:SetCost(c63362460.drcost) + e2:SetTarget(c63362460.drtg) + e2:SetOperation(c63362460.drop) + c:RegisterEffect(e2) +end +function c63362460.desfilter(c) + return c:IsFaceup() and c:IsType(TYPE_SPELL) +end +function c63362460.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c63362460.desfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c63362460.desfilter,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c63362460.desfilter,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) +end +function c63362460.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + Duel.Damage(1-tp,500,REASON_EFFECT) + end +end +function c63362460.drcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)==0 and aux.exccon(e) +end +function c63362460.cfilter(c) + return c:IsSetCard(0xc008) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() +end +function c63362460.drcost(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:IsAbleToRemoveAsCost() + and Duel.IsExistingMatchingCard(c63362460.cfilter,tp,LOCATION_GRAVE,0,1,c) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c63362460.cfilter,tp,LOCATION_GRAVE,0,1,1,c) + g:AddCard(c) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c63362460.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,2) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(2) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) +end +function c63362460.drop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end diff --git a/script/c63364266.lua b/script/c63364266.lua old mode 100755 new mode 100644 index 2d249181..59c44f70 --- a/script/c63364266.lua +++ b/script/c63364266.lua @@ -33,7 +33,7 @@ function c63364266.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and bc:IsCanBeSpecialSummoned(e,0,tp,false,false) end Duel.SetTargetCard(bc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,LOCATION_GRAVE) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,0) end function c63364266.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() diff --git a/script/c63391643.lua b/script/c63391643.lua index 5cf905a3..6a027dcd 100644 --- a/script/c63391643.lua +++ b/script/c63391643.lua @@ -11,6 +11,7 @@ function c63391643.initial_effect(c) e1:SetOperation(c63391643.activate) c:RegisterEffect(e1) end +c63391643.card_code_list={46986414} function c63391643.cfilter(c) return c:IsFaceup() and c:IsCode(46986414) end @@ -18,10 +19,10 @@ function c63391643.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c63391643.cfilter,tp,LOCATION_ONFIELD,0,1,nil) end function c63391643.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c63391643.activate(e) diff --git a/script/c63422098.lua b/script/c63422098.lua index fd1ab65f..41eda53f 100644 --- a/script/c63422098.lua +++ b/script/c63422098.lua @@ -12,7 +12,7 @@ function c63422098.initial_effect(c) e1:SetValue(c63422098.val) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) -- local e3=Effect.CreateEffect(c) diff --git a/script/c63442604.lua b/script/c63442604.lua index dac377d8..f22ab19d 100644 --- a/script/c63442604.lua +++ b/script/c63442604.lua @@ -17,7 +17,7 @@ function c63442604.condition(e,tp,eg,ep,ev,re,r,rp) end function c63442604.cfilter(c,tp) return c:IsFaceup() and c:GetLevel()>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,63442605,0,0x4011,c:GetAttack(),c:GetDefence(),c:GetLevel(),c:GetRace(),c:GetAttribute()) + and Duel.IsPlayerCanSpecialSummonMonster(tp,63442605,0,0x4011,c:GetAttack(),c:GetDefense(),c:GetLevel(),c:GetRace(),c:GetAttribute()) end function c63442604.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c63442604.cfilter(chkc,tp) end @@ -32,7 +32,7 @@ function c63442604.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if not tc:IsRelateToEffect(e) or tc:IsFacedown() then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 - or not Duel.IsPlayerCanSpecialSummonMonster(tp,63442605,0,0x4011,tc:GetAttack(),tc:GetDefence(), + or not Duel.IsPlayerCanSpecialSummonMonster(tp,63442605,0,0x4011,tc:GetAttack(),tc:GetDefense(), tc:GetLevel(),tc:GetRace(),tc:GetAttribute()) then return end local token=Duel.CreateToken(tp,63442605) local e1=Effect.CreateEffect(e:GetHandler()) @@ -42,8 +42,8 @@ function c63442604.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0xfe0000) token:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) - e2:SetValue(tc:GetDefence()) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) + e2:SetValue(tc:GetDefense()) token:RegisterEffect(e2) local e3=e1:Clone() e3:SetCode(EFFECT_CHANGE_LEVEL) diff --git a/script/c63465535.lua b/script/c63465535.lua old mode 100755 new mode 100644 diff --git a/script/c63468625.lua b/script/c63468625.lua old mode 100755 new mode 100644 diff --git a/script/c63487632.lua b/script/c63487632.lua index f7ec328f..d2a207de 100644 --- a/script/c63487632.lua +++ b/script/c63487632.lua @@ -56,7 +56,7 @@ function c63487632.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c63487632.filter(c) - return c:GetCode()~=63487632 and c:IsRace(RACE_DRAGON) + return c:GetCode()~=63487632 and c:IsRace(RACE_DRAGON) and not c:IsForbidden() end function c63487632.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c63487632.filter(chkc) end diff --git a/script/c63504681.lua b/script/c63504681.lua index a89b9b97..208e0d08 100644 --- a/script/c63504681.lua +++ b/script/c63504681.lua @@ -32,7 +32,7 @@ function c63504681.initial_effect(c) e3:SetLabel(2) c:RegisterEffect(e3) local e4=e3:Clone() - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e4) --immune local e5=Effect.CreateEffect(c) @@ -87,11 +87,11 @@ function c63504681.efilter(e,te) return te:GetOwner()~=e:GetOwner() end function c63504681.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c63504681.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c63516460.lua b/script/c63516460.lua index 55f6c0af..413fdab5 100644 --- a/script/c63516460.lua +++ b/script/c63516460.lua @@ -16,7 +16,7 @@ function c63516460.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetCurrentChain()>1 and Duel.CheckChainUniqueness() end function c63516460.filter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c63516460.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c63516460.filter(chkc) and chkc~=e:GetHandler() end diff --git a/script/c63519819.lua b/script/c63519819.lua index bd09ae13..696c906a 100644 --- a/script/c63519819.lua +++ b/script/c63519819.lua @@ -4,29 +4,47 @@ function c63519819.initial_effect(c) c:EnableReviveLimit() aux.AddFusionProcCode2(c,64631466,27125110,true,true) --equip + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(63519819,0)) + e1:SetCategory(CATEGORY_EQUIP) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCondition(c63519819.eqcon) + e1:SetTarget(c63519819.eqtg) + e1:SetOperation(c63519819.eqop) + c:RegisterEffect(e1) + --cannot attack local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(63519819,0)) - e2:SetCategory(CATEGORY_EQUIP) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCondition(c63519819.eqcon) - e2:SetTarget(c63519819.eqtg) - e2:SetOperation(c63519819.eqop) + e2:SetCode(EFFECT_CANNOT_ATTACK) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetTarget(c63519819.antarget) c:RegisterEffect(e2) - --cannot attack announce - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e3:SetTarget(c63519819.antarget) + local e3=e2:Clone() + e3:SetCode(EFFECT_CANNOT_CHANGE_POSITION) c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_CANNOT_CHANGE_POSITION) - e4:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + --atk/def + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e4:SetRange(LOCATION_MZONE) + e4:SetCode(EFFECT_SET_ATTACK) + e4:SetCondition(c63519819.adcon) + e4:SetValue(c63519819.atkval) + e4:SetLabelObject(e1) c:RegisterEffect(e4) + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_SINGLE) + e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e5:SetRange(LOCATION_MZONE) + e5:SetCode(EFFECT_SET_DEFENSE) + e5:SetCondition(c63519819.adcon) + e5:SetValue(c63519819.defval) + e5:SetLabelObject(e1) + c:RegisterEffect(e5) end function c63519819.eqcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() @@ -47,48 +65,27 @@ end function c63519819.eqop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then + if tc:IsRelateToEffect(e) and tc:IsType(TYPE_MONSTER) and tc:IsControler(1-tp) then if c:IsFaceup() and c:IsRelateToEffect(e) then - local atk=tc:GetTextAttack() - local def=tc:GetTextDefence() - if tc:IsFacedown() or atk<0 then atk=0 end - if tc:IsFacedown() or def<0 then def=0 end if not Duel.Equip(tp,tc,c,false) then return end --Add Equip limit tc:RegisterFlagEffect(63519819,RESET_EVENT+0x1fe0000,0,0) e:SetLabelObject(tc) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) + e1:SetProperty(EFFECT_FLAG_OWNER_RELATE) e1:SetCode(EFFECT_EQUIP_LIMIT) e1:SetReset(RESET_EVENT+0x1fe0000) e1:SetValue(c63519819.eqlimit) tc:RegisterEffect(e1) - if atk>0 then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) - e2:SetCode(EFFECT_SET_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(atk) - tc:RegisterEffect(e2) - end - if def>0 then - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) - e3:SetCode(EFFECT_SET_DEFENCE) - e3:SetReset(RESET_EVENT+0x1fe0000) - e3:SetValue(def) - tc:RegisterEffect(e3) - end - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_DESTROY_SUBSTITUTE) - e4:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e4:SetReset(RESET_EVENT+0x1fe0000) - e4:SetValue(c63519819.repval) - tc:RegisterEffect(e4) + --substitute + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_EQUIP) + e2:SetCode(EFFECT_DESTROY_SUBSTITUTE) + e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e2:SetReset(RESET_EVENT+0x1fe0000) + e2:SetValue(c63519819.repval) + tc:RegisterEffect(e2) else Duel.SendtoGrave(tc,REASON_EFFECT) end end end @@ -98,3 +95,25 @@ end function c63519819.antarget(e,c) return c~=e:GetHandler() end +function c63519819.adcon(e,tp,eg,ep,ev,re,r,rp) + local ec=e:GetLabelObject():GetLabelObject() + return ec and ec:GetFlagEffect(63519819)~=0 +end +function c63519819.atkval(e,c) + local ec=e:GetLabelObject():GetLabelObject() + local atk=ec:GetTextAttack() + if ec:IsFacedown() or bit.band(ec:GetOriginalType(),TYPE_MONSTER)==0 or atk<0 then + return 0 + else + return atk + end +end +function c63519819.defval(e,c) + local ec=e:GetLabelObject():GetLabelObject() + local def=ec:GetTextDefense() + if ec:IsFacedown() or bit.band(ec:GetOriginalType(),TYPE_MONSTER)==0 or def<0 then + return 0 + else + return def + end +end diff --git a/script/c6353603.lua b/script/c6353603.lua index 0c18373b..fda06492 100644 --- a/script/c6353603.lua +++ b/script/c6353603.lua @@ -42,19 +42,16 @@ function c6353603.setop(e,tp,eg,ep,ev,re,r,rp) end function c6353603.filter1(c) return c:IsFaceup() and c:IsSetCard(0x7c) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGraveAsCost() - and Duel.IsExistingTarget(c6353603.filter2,0,LOCATION_MZONE,LOCATION_MZONE,1,c) -end -function c6353603.filter2(c) - return c:IsDestructable() + and Duel.IsExistingTarget(aux.TRUE,0,LOCATION_MZONE,LOCATION_MZONE,1,c) end function c6353603.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c6353603.filter2(chkc) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end if chk==0 then return Duel.IsExistingMatchingCard(c6353603.filter1,tp,LOCATION_ONFIELD,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) local g1=Duel.SelectMatchingCard(tp,c6353603.filter1,tp,LOCATION_ONFIELD,0,1,1,nil) Duel.SendtoGrave(g1,REASON_COST) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,c6353603.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g2=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g2,1,0,0) end function c6353603.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c63571750.lua b/script/c63571750.lua index 0fcd9f13..f2c05a3e 100644 --- a/script/c63571750.lua +++ b/script/c63571750.lua @@ -35,9 +35,6 @@ end function c63571750.thcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsReason(REASON_DRAW) end -function c63571750.filter(c) - return c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end function c63571750.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsRelateToEffect(e) end Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) @@ -47,8 +44,8 @@ function c63571750.thop(e,tp,eg,ep,ev,re,r,rp) if c:IsRelateToEffect(e) then Duel.SendtoGrave(c,REASON_EFFECT) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c63571750.filter,tp,LOCATION_GRAVE,0,1,1,c) - if g:GetCount()>0 then + local g=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,LOCATION_GRAVE,0,1,1,c) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end diff --git a/script/c63583431.lua b/script/c63583431.lua old mode 100755 new mode 100644 diff --git a/script/c63630268.lua b/script/c63630268.lua index d29a8989..259fba27 100644 --- a/script/c63630268.lua +++ b/script/c63630268.lua @@ -19,7 +19,7 @@ end function c63630268.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsPosition(POS_FACEUP_ATTACK) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) end if e:IsHasType(EFFECT_TYPE_ACTIVATE) then local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c63665606.lua b/script/c63665606.lua index ac52d672..fe9d4c97 100644 --- a/script/c63665606.lua +++ b/script/c63665606.lua @@ -16,7 +16,7 @@ function c63665606.initial_effect(c) e2:SetValue(400) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --discard local e4=Effect.CreateEffect(c) diff --git a/script/c63665875.lua b/script/c63665875.lua index ee15a02c..182ed6e0 100644 --- a/script/c63665875.lua +++ b/script/c63665875.lua @@ -39,7 +39,7 @@ function c63665875.srtg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) end function c63665875.filter(c) - return c:IsDefenceBelow(1200) and c:IsRace(RACE_ZOMBIE) and c:IsAbleToHand() + return c:IsDefenseBelow(1200) and c:IsRace(RACE_ZOMBIE) and c:IsAbleToHand() end function c63665875.srop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) diff --git a/script/c63676256.lua b/script/c63676256.lua index 1623d431..c21c1129 100644 --- a/script/c63676256.lua +++ b/script/c63676256.lua @@ -43,7 +43,7 @@ function c63676256.initial_effect(c) e5:SetValue(-500) c:RegisterEffect(e5) local e6=e5:Clone() - e6:SetCode(EFFECT_UPDATE_DEFENCE) + e6:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e6) --search local e7=Effect.CreateEffect(c) @@ -91,15 +91,17 @@ function c63676256.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c63676256.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c63676256.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsStatus(STATUS_UNION) and eg:GetCount()==1 and eg:GetFirst()==e:GetHandler():GetEquipTarget() end function c63676256.dfilter(c,rac) - return c:IsFaceup() and c:IsRace(rac) and c:IsDestructable() + return c:IsFaceup() and c:IsRace(rac) end function c63676256.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c63737050.lua b/script/c63737050.lua new file mode 100644 index 00000000..12e9f2f7 --- /dev/null +++ b/script/c63737050.lua @@ -0,0 +1,33 @@ +--龍大神 +function c63737050.initial_effect(c) + --tograve + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(63737050,0)) + e1:SetCategory(CATEGORY_TOGRAVE) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetRange(LOCATION_MZONE) + e1:SetCondition(c63737050.condition) + e1:SetTarget(c63737050.target) + e1:SetOperation(c63737050.operation) + c:RegisterEffect(e1) +end +function c63737050.cfilter(c,tp) + return c:GetSummonPlayer()~=tp +end +function c63737050.condition(e,tp,eg,ep,ev,re,r,rp) + return not eg:IsContains(e:GetHandler()) and eg:IsExists(c63737050.cfilter,1,nil,tp) +end +function c63737050.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_EXTRA) +end +function c63737050.operation(e,tp,eg,ep,ev,re,r,rp) + local tg=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,0,LOCATION_EXTRA,nil) + if tg:GetCount()==0 then return end + Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE) + local g=tg:Select(1-tp,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoGrave(g,REASON_EFFECT) + end +end diff --git a/script/c63741331.lua b/script/c63741331.lua index f985168c..7e9d91d7 100644 --- a/script/c63741331.lua +++ b/script/c63741331.lua @@ -27,6 +27,6 @@ end function c63741331.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0x19,3) + tc:AddCounter(0x1019,3) end end diff --git a/script/c63746411.lua b/script/c63746411.lua index 79a51ab9..5945aa73 100644 --- a/script/c63746411.lua +++ b/script/c63746411.lua @@ -42,7 +42,7 @@ function c63746411.operation(e,tp,eg,ep,ev,re,r,rp) c:SetCardTarget(tc) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_CANNOT_DISABLE) e1:SetRange(LOCATION_MZONE) e1:SetCode(EFFECT_DISABLE) e1:SetReset(RESET_EVENT+0x1fe0000) diff --git a/script/c63749102.lua b/script/c63749102.lua index b9e8f5b5..5d553e53 100644 --- a/script/c63749102.lua +++ b/script/c63749102.lua @@ -13,7 +13,7 @@ function c63749102.initial_effect(c) c:RegisterEffect(e1) end function c63749102.atkcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentChain()==0 and e:GetHandler()==Duel.GetAttacker() and Duel.GetAttackTarget() and Duel.GetAttackTarget():IsDefencePos() + return Duel.GetCurrentChain()==0 and e:GetHandler()==Duel.GetAttacker() and Duel.GetAttackTarget() and Duel.GetAttackTarget():IsDefensePos() end function c63749102.atkop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c63767246.lua b/script/c63767246.lua new file mode 100644 index 00000000..44715bc6 --- /dev/null +++ b/script/c63767246.lua @@ -0,0 +1,108 @@ +--No.38 希望魁竜タイタニック・ギャラクシー +function c63767246.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,8,2) + c:EnableReviveLimit() + --negate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(63767246,0)) + e1:SetCategory(CATEGORY_DISABLE) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_CHAINING) + e1:SetCountLimit(1) + e1:SetRange(LOCATION_MZONE) + e1:SetCondition(c63767246.discon) + e1:SetTarget(c63767246.distg) + e1:SetOperation(c63767246.disop) + c:RegisterEffect(e1) + --change battle target + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(63767246,1)) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_ATTACK_ANNOUNCE) + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(c63767246.cbcon) + e2:SetCost(c63767246.cbcost) + e2:SetOperation(c63767246.cbop) + c:RegisterEffect(e2) + --atk up + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(63767246,2)) + e3:SetCategory(CATEGORY_ATKCHANGE) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_DESTROYED) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c63767246.atkcon) + e3:SetTarget(c63767246.atktg) + e3:SetOperation(c63767246.atkop) + c:RegisterEffect(e3) +end +c63767246.xyz_number=38 +function c63767246.discon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_SZONE + and re:IsActiveType(TYPE_SPELL) and Duel.IsChainDisablable(ev) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) +end +function c63767246.distg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) +end +function c63767246.disop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateEffect(ev) + local c=e:GetHandler() + local rc=re:GetHandler() + if c:IsRelateToEffect(e) and rc:IsRelateToEffect(re) and c:IsType(TYPE_XYZ) then + rc:CancelToGrave() + Duel.Overlay(c,Group.FromCards(rc)) + end +end +function c63767246.cbcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp and Duel.GetAttackTarget()~=e:GetHandler() +end +function c63767246.cbcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c63767246.cbop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + local at=Duel.GetAttacker() + if at:IsAttackable() and not at:IsImmuneToEffect(e) then + Duel.CalculateDamage(at,c) + end + end +end +function c63767246.atkfilter1(c,tp) + return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsType(TYPE_XYZ) + and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp +end +function c63767246.atkcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c63767246.atkfilter1,1,nil,tp) +end +function c63767246.atkfilter2(c) + return c:IsFaceup() and c:IsType(TYPE_XYZ) +end +function c63767246.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c63767246.atkfilter2(chkc) end + if chk==0 then return Duel.IsExistingTarget(c63767246.atkfilter2,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c63767246.atkfilter2,tp,LOCATION_MZONE,0,1,1,nil) +end +function c63767246.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + local g=eg:Filter(c63767246.atkfilter1,nil,tp) + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + if g:GetCount()>=2 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + g=g:Select(tp,1,1,nil) + end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(g:GetFirst():GetBaseAttack()) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + end +end diff --git a/script/c63806265.lua b/script/c63806265.lua index 93b1646b..c64a8096 100644 --- a/script/c63806265.lua +++ b/script/c63806265.lua @@ -20,7 +20,7 @@ function c63806265.condition(e,tp,eg,ep,ev,re,r,rp) return ct>6 end function c63806265.filter(c,e,tp) - return c:IsSetCard(0x2034) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x2034) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) end function c63806265.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -31,7 +31,7 @@ function c63806265.activate(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c63806265.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) end end diff --git a/script/c6387204.lua b/script/c6387204.lua old mode 100755 new mode 100644 index 08581788..4bdf2041 --- a/script/c6387204.lua +++ b/script/c6387204.lua @@ -48,7 +48,6 @@ function c6387204.eqop(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetProperty(EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_IGNORE_IMMUNE) e2:SetCode(EFFECT_UPDATE_ATTACK) e2:SetReset(RESET_EVENT+0x1fe0000) e2:SetValue(1000) diff --git a/script/c63881033.lua b/script/c63881033.lua index 0f43123c..52165b4b 100644 --- a/script/c63881033.lua +++ b/script/c63881033.lua @@ -50,7 +50,7 @@ end function c63881033.lvtg1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end if Duel.IsExistingMatchingCard(c63881033.filter,tp,LOCATION_MZONE,0,1,nil) - and Duel.SelectYesNo(tp,aux.Stringid(63881033,4)) then + and Duel.SelectYesNo(tp,94) then Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(63881033,1)) local lv=Duel.AnnounceNumber(tp,5,6,7,8,9) e:SetLabel(lv) @@ -107,7 +107,7 @@ function c63881033.thcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) end function c63881033.thfilter(c) - return c:IsCode(94220427) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(94220427) and c:IsAbleToHand() end function c63881033.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c63881033.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end @@ -116,7 +116,7 @@ end function c63881033.thop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c63881033.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end diff --git a/script/c6390406.lua b/script/c6390406.lua index f54a39a4..ecd478ac 100644 --- a/script/c6390406.lua +++ b/script/c6390406.lua @@ -10,7 +10,7 @@ function c6390406.initial_effect(c) c:RegisterEffect(e1) end function c6390406.filter(c) - return c:IsCode(78193831) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(78193831) and c:IsAbleToHand() end function c6390406.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c6390406.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end @@ -19,7 +19,7 @@ end function c6390406.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c6390406.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end diff --git a/script/c63941210.lua b/script/c63941210.lua new file mode 100644 index 00000000..27e7f3b0 --- /dev/null +++ b/script/c63941210.lua @@ -0,0 +1,78 @@ +--Jizukiru, the Star Destroying Kaiju +function c63941210.initial_effect(c) + c:SetUniqueOnField(1,0,20000000,LOCATION_MZONE) + --special summon rule + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetRange(LOCATION_HAND) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) + e1:SetTargetRange(POS_FACEUP_ATTACK,1) + e1:SetCondition(c63941210.spcon) + e1:SetOperation(c63941210.spop) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetRange(LOCATION_HAND) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) + e2:SetTargetRange(POS_FACEUP_ATTACK,0) + e2:SetCondition(c63941210.spcon2) + c:RegisterEffect(e2) + --Negate + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(63941210,0)) + e3:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_CHAINING) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c63941210.discon) + e3:SetCost(c63941210.discost) + e3:SetTarget(c63941210.distg) + e3:SetOperation(c63941210.disop) + c:RegisterEffect(e3) +end +function c63941210.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xd3) +end +function c63941210.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(Card.IsReleasable,tp,0,LOCATION_MZONE,1,nil) +end +function c63941210.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local g=Duel.SelectMatchingCard(tp,Card.IsReleasable,tp,0,LOCATION_MZONE,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c63941210.spcon2(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c63941210.cfilter,tp,0,LOCATION_MZONE,1,nil) +end +function c63941210.discon(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) then return false end + if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end + local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) + return tg and tg:GetCount()==1 and Duel.IsChainDisablable(ev) +end +function c63941210.discost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x37,3,REASON_COST) end + Duel.RemoveCounter(tp,1,1,0x37,3,REASON_COST) +end +function c63941210.distg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) +end +function c63941210.disop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateEffect(ev) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(63941210,1)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local tg=g:Select(tp,1,1,nil) + Duel.HintSelection(tg) + Duel.Destroy(tg,REASON_EFFECT) + end +end diff --git a/script/c63977008.lua b/script/c63977008.lua index 36abff91..5aa26d5b 100644 --- a/script/c63977008.lua +++ b/script/c63977008.lua @@ -25,7 +25,7 @@ end function c63977008.sumop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c63992027.lua b/script/c63992027.lua new file mode 100644 index 00000000..b2b0f7ee --- /dev/null +++ b/script/c63992027.lua @@ -0,0 +1,48 @@ +--二重光波 +function c63992027.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCondition(c63992027.condition) + e1:SetTarget(c63992027.target) + e1:SetOperation(c63992027.operation) + c:RegisterEffect(e1) +end +function c63992027.condition(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if g:GetCount()==0 then return false end + local tg=g:GetMaxGroup(Card.GetAttack) + return tg:IsExists(Card.IsControler,1,nil,1-tp) +end +function c63992027.filter(c,e,tp) + return c:IsFaceup() and c:IsType(TYPE_XYZ) and (c:IsSetCard(0x107b) or c:IsSetCard(0xe5)) and c:GetOverlayCount()>0 + and (not e or Duel.IsExistingMatchingCard(c63992027.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c)) +end +function c63992027.spfilter(c,e,tp,ec) + return c:IsCode(ec:GetCode()) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c63992027.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c63992027.filter(chkc,nil,nil) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c63992027.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,c63992027.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c63992027.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsFacedown() or not tc:IsRelateToEffect(e) then return end + local og=tc:GetOverlayGroup() + if og:GetCount()==0 then return end + if Duel.SendtoGrave(og,REASON_EFFECT)~=0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c63992027.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + end +end diff --git a/script/c63995093.lua b/script/c63995093.lua index 2ae7d20d..c12a4527 100644 --- a/script/c63995093.lua +++ b/script/c63995093.lua @@ -22,13 +22,14 @@ function c63995093.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c63995093.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(63995093,0)) - local g=Duel.SelectTarget(tp,c63995093.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) + Duel.SelectTarget(tp,c63995093.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) end function c63995093.activate(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end if ft>2 then ft=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) diff --git a/script/c6401.lua b/script/c6401.lua deleted file mode 100755 index 6b627f67..00000000 --- a/script/c6401.lua +++ /dev/null @@ -1,49 +0,0 @@ ---Scripted by Eerie Code ---Speedroid Beigomax -function c6401.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6401,0)) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c6401.spcon) - c:RegisterEffect(e1) - --Search - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6401,1)) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCountLimit(1,6401) - e2:SetTarget(c6401.thtg) - e2:SetOperation(c6401.thop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) -end - -function c6401.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0,nil)==0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end - -function c6401.filter(c) - return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x2016) and not c:IsCode(6401) and c:IsAbleToHand() -end -function c6401.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6401.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6401.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6401.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c64014615.lua b/script/c64014615.lua new file mode 100644 index 00000000..af1a0a13 --- /dev/null +++ b/script/c64014615.lua @@ -0,0 +1,41 @@ +--大欲な壺 +function c64014615.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,64014615+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c64014615.target) + e1:SetOperation(c64014615.activate) + c:RegisterEffect(e1) +end +function c64014615.filter(c) + return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() +end +function c64014615.sfilter(c,tp) + return c:IsLocation(LOCATION_DECK) and c:IsControler(tp) +end +function c64014615.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_REMOVED) and c64014615.filter(chkc) end + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) + and Duel.IsExistingTarget(c64014615.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,3,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + local g=Duel.SelectTarget(tp,c64014615.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,3,3,nil) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c64014615.activate(e,tp,eg,ep,ev,re,r,rp) + local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=3 then return end + Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) + local g=Duel.GetOperatedGroup() + if g:IsExists(c64014615.sfilter,1,nil,tp) then Duel.ShuffleDeck(tp) end + if g:IsExists(c64014615.sfilter,1,nil,1-tp) then Duel.ShuffleDeck(1-tp) end + local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) + if ct==3 then + Duel.BreakEffect() + Duel.Draw(tp,1,REASON_EFFECT) + end +end diff --git a/script/c6402.lua b/script/c6402.lua deleted file mode 100755 index daf3ff27..00000000 --- a/script/c6402.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Scripted by Eerie Code ---Speedroid Three-Eyed Dice -function c6402.initial_effect(c) - --disable attack - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6402,0)) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_ATTACK) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c6402.condition) - e1:SetCost(c6402.cost) - e1:SetOperation(c6402.operation) - c:RegisterEffect(e1) -end -function c6402.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and (Duel.IsAbleToEnterBP() or Duel.GetCurrentPhase()==PHASE_BATTLE) -end -function c6402.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c6402.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetAttacker() then Duel.NegateAttack() - else - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetOperation(c6402.disop) - Duel.RegisterEffect(e1,tp) - end -end -function c6402.disop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_CARD,0,6402) - Duel.NegateAttack() -end diff --git a/script/c6403.lua b/script/c6403.lua deleted file mode 100755 index 09708a65..00000000 --- a/script/c6403.lua +++ /dev/null @@ -1,32 +0,0 @@ ---Scripted by Eerie Code ---Speedroid Double Yoyo -function c6403.initial_effect(c) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6403,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c6403.sptg) - e1:SetOperation(c6403.spop) - c:RegisterEffect(e1) -end - -function c6403.filter(c,e,tp) - return c:IsSetCard(0x2016) and c:IsLevelBelow(3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6403.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6403.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and - Duel.IsExistingTarget(c6403.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c6403.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c6403.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c64034255.lua b/script/c64034255.lua index 744a5dfe..e337c417 100644 --- a/script/c64034255.lua +++ b/script/c64034255.lua @@ -28,14 +28,16 @@ function c64034255.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c64034255.spop(e,tp,eg,ep,ev,re,r,rp,c) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end if not c:IsRelateToEffect(e) or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then + Duel.SendtoGrave(c,REASON_RULE) + return + end if e:GetLabel()==1 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0xfe0000) + e1:SetReset(RESET_EVENT+0xff0000) e1:SetValue(500) c:RegisterEffect(e1) end diff --git a/script/c64038662.lua b/script/c64038662.lua index 5a4aee8a..ebb5bedb 100644 --- a/script/c64038662.lua +++ b/script/c64038662.lua @@ -95,7 +95,7 @@ function c64038662.efop(e,tp,eg,ep,ev,re,r,rp) else local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end end diff --git a/script/c6404.lua b/script/c6404.lua deleted file mode 100755 index 03c49317..00000000 --- a/script/c6404.lua +++ /dev/null @@ -1,56 +0,0 @@ ---Speedroid Shave Boomerang -function c6404.initial_effect(c) - --cannot attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetOperation(c6404.atklimit) - c:RegisterEffect(e1) - --lose ATK - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6404,0)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c6404.condition) - e1:SetTarget(c6404.target) - e1:SetOperation(c6404.operation) - c:RegisterEffect(e1) -end - -function c6404.atklimit(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) -end - -function c6404.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPosition(POS_FACEUP_ATTACK) -end -function c6404.filter(c) - return c:IsFaceup() -end -function c6404.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c6404.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6404.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c6404.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) -end -function c6404.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) then - if Duel.ChangePosition(c,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,0,0) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(-800) - tc:RegisterEffect(e1) - end - end -end diff --git a/script/c64043465.lua b/script/c64043465.lua index 2119a1ec..bea171c5 100644 --- a/script/c64043465.lua +++ b/script/c64043465.lua @@ -1,104 +1,104 @@ ---魔神火炎砲 -function c64043465.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c64043465.target1) - e1:SetOperation(c64043465.operation) - c:RegisterEffect(e1) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(64043465,0)) - e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1,64043465) - e2:SetHintTiming(0,0x1e0) - e2:SetCost(c64043465.cost) - e2:SetTarget(c64043465.target2) - e2:SetOperation(c64043465.operation) - e2:SetLabel(1) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(64043465,1)) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e3:SetCondition(c64043465.thcon) - e3:SetCost(c64043465.cost) - e3:SetTarget(c64043465.thtg) - e3:SetOperation(c64043465.thop) - c:RegisterEffect(e3) -end -function c64043465.tgfilter(c) - return ((c:IsSetCard(0x40) and c:IsType(TYPE_MONSTER)) or c:IsSetCard(0xde)) and c:IsAbleToGrave() -end -function c64043465.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToHand() end - if chk==0 then return true end - if Duel.GetFlagEffect(tp,64043465)==0 and Duel.IsExistingMatchingCard(c64043465.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) - and Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) - and Duel.SelectYesNo(tp,94) then - e:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND) - e:SetProperty(EFFECT_FLAG_CARD_TARGET) - Duel.RegisterFlagEffect(tp,64043465,RESET_PHASE+PHASE_END,0,1) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_DECK) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) - e:SetLabel(1) - else - e:SetCategory(0) - e:SetProperty(0) - e:SetLabel(0) - end -end -function c64043465.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,64043465)==0 end - Duel.RegisterFlagEffect(tp,64043465,RESET_PHASE+PHASE_END,0,1) -end -function c64043465.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToHand() end - if chk==0 then return Duel.IsExistingMatchingCard(c64043465.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) - and Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_DECK) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c64043465.operation(e,tp,eg,ep,ev,re,r,rp) - if e:GetLabel()==0 or not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c64043465.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)~=0 and g:GetFirst():IsLocation(LOCATION_GRAVE) then - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end - end -end -function c64043465.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_SZONE) -end -function c64043465.thfilter(c) - return ((c:IsSetCard(0x40) and c:IsType(TYPE_MONSTER)) or c:IsSetCard(0xde)) and c:IsAbleToHand() -end -function c64043465.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c64043465.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c64043465.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c64043465.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c64043465.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--魔神火炎砲 +function c64043465.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c64043465.target1) + e1:SetOperation(c64043465.operation) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(64043465,0)) + e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_SZONE) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1,64043465) + e2:SetHintTiming(0,0x1e0) + e2:SetCost(c64043465.cost) + e2:SetTarget(c64043465.target2) + e2:SetOperation(c64043465.operation) + e2:SetLabel(1) + c:RegisterEffect(e2) + --tohand + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(64043465,1)) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetCountLimit(1,64043465) + e3:SetCondition(c64043465.thcon) + e3:SetCost(c64043465.cost) + e3:SetTarget(c64043465.thtg) + e3:SetOperation(c64043465.thop) + c:RegisterEffect(e3) +end +function c64043465.tgfilter(c) + return ((c:IsSetCard(0x40) and c:IsType(TYPE_MONSTER)) or c:IsSetCard(0xde)) and c:IsAbleToGrave() +end +function c64043465.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToHand() end + if chk==0 then return true end + if Duel.GetFlagEffect(tp,64043465)==0 and Duel.IsExistingMatchingCard(c64043465.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) + and Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) + and Duel.SelectYesNo(tp,94) then + e:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND) + e:SetProperty(EFFECT_FLAG_CARD_TARGET) + Duel.RegisterFlagEffect(tp,64043465,RESET_PHASE+PHASE_END,0,1) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) + local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_DECK) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) + e:SetLabel(1) + else + e:SetCategory(0) + e:SetProperty(0) + e:SetLabel(0) + end +end +function c64043465.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFlagEffect(tp,64043465)==0 end + Duel.RegisterFlagEffect(tp,64043465,RESET_PHASE+PHASE_END,0,1) +end +function c64043465.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToHand() end + if chk==0 then return Duel.IsExistingMatchingCard(c64043465.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) + and Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) + local g=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_DECK) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c64043465.operation(e,tp,eg,ep,ev,re,r,rp) + if e:GetLabel()==0 or not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c64043465.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)~=0 and g:GetFirst():IsLocation(LOCATION_GRAVE) then + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end + end +end +function c64043465.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_SZONE) +end +function c64043465.thfilter(c) + return ((c:IsSetCard(0x40) and c:IsType(TYPE_MONSTER)) or c:IsSetCard(0xde)) and c:IsAbleToHand() +end +function c64043465.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c64043465.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c64043465.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c64043465.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c64043465.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c64047146.lua b/script/c64047146.lua index 533a7dcd..06884563 100644 --- a/script/c64047146.lua +++ b/script/c64047146.lua @@ -17,7 +17,7 @@ function c64047146.initial_effect(c) c:RegisterEffect(e2) --def up local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --Equip limit local e4=Effect.CreateEffect(c) diff --git a/script/c6405.lua b/script/c6405.lua deleted file mode 100755 index 667cd0ac..00000000 --- a/script/c6405.lua +++ /dev/null @@ -1,50 +0,0 @@ ---Scripted by Eerie Code ---Speedroid Red-Eyed Dice -function c6405.initial_effect(c) - --Change level - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6405,0)) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e2:SetTarget(c6405.thtg) - e2:SetOperation(c6405.thop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) -end - -function c6405.thfil(c) - return c:IsFaceup() and c:GetLevel()>0 and c:IsSetCard(0x2016) -end -function c6405.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c6405.thfil(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c6405.thfil,tp,LOCATION_MZONE,0,1,e:GetHandler()) end - local g=Duel.SelectTarget(tp,c6405.thfil,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) - local t={} - local i=1 - local p=1 - local lv=g:GetFirst():GetLevel() - for i=1,6 do - if lv~=i then t[p]=i p=p+1 end - end - t[p]=nil - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(6405,1)) - e:SetLabel(Duel.AnnounceNumber(tp,table.unpack(t))) -end -function c6405.lvfil(c,e) - return c:IsFaceup() and c:IsRelateToEffect(e) -end -function c6405.thop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c6405.lvfil,nil,e) - local tc=g:GetFirst() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(e:GetLabel()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) -end \ No newline at end of file diff --git a/script/c6406.lua b/script/c6406.lua deleted file mode 100755 index b3c6f798..00000000 --- a/script/c6406.lua +++ /dev/null @@ -1,63 +0,0 @@ ---Scripted by Eerie Code ---Speedroid Taketonborg -function c6406.initial_effect(c) - c:SetSPSummonOnce(6406) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c6406.hscon) - c:RegisterEffect(e1) - --Special Summon Tuner - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c6406.spcost) - e2:SetTarget(c6406.sptg) - e2:SetOperation(c6406.spop) - c:RegisterEffect(e2) -end - -function c6406.hsfilter(c) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WIND) -end -function c6406.hscon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c6406.hsfilter,c:GetControler(),LOCATION_MZONE,0,1,nil) -end - -function c6406.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c6406.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return not c:IsAttribute(ATTRIBUTE_WIND) -end -function c6406.spfilter(c,e,tp) - return c:IsSetCard(0x2016) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6406.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c6406.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c6406.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6406.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetTarget(c6406.splimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - end -end \ No newline at end of file diff --git a/script/c64063868.lua b/script/c64063868.lua new file mode 100644 index 00000000..bcfeb73a --- /dev/null +++ b/script/c64063868.lua @@ -0,0 +1,82 @@ +--Kozmo Dark Eclipser +function c64063868.initial_effect(c) + --cannot be targeted + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetValue(aux.tgoval) + c:RegisterEffect(e1) + --negate activate + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EVENT_CHAINING) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e2:SetCondition(c64063868.condition) + e2:SetCost(c64063868.cost) + e2:SetTarget(c64063868.target) + e2:SetOperation(c64063868.operation) + c:RegisterEffect(e2) + --to hand + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e3:SetCondition(c64063868.thcon) + e3:SetCost(c64063868.thcost) + e3:SetTarget(c64063868.thtg) + e3:SetOperation(c64063868.thop) + c:RegisterEffect(e3) +end +function c64063868.condition(e,tp,eg,ep,ev,re,r,rp) + return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) + and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_TRAP) and Duel.IsChainNegatable(ev) +end +function c64063868.cfilter(c) + return c:IsSetCard(0xd2) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() +end +function c64063868.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c64063868.cfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c64063868.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c64063868.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end +end +function c64063868.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then + Duel.Destroy(eg,REASON_EFFECT) + end +end +function c64063868.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) +end +function c64063868.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() and e:GetHandler():IsLocation(LOCATION_GRAVE) end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c64063868.thfilter(c) + return c:IsSetCard(0xd2) and c:IsLevelBelow(8) and c:IsAbleToHand() +end +function c64063868.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c64063868.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c64063868.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c64063868.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c6407.lua b/script/c6407.lua deleted file mode 100755 index 33dd45e3..00000000 --- a/script/c6407.lua +++ /dev/null @@ -1,52 +0,0 @@ ---Scripted by Eerie Code ---Speedroid Ohajikid -function c6407.initial_effect(c) - --Summon Tuner & Synchro Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6407,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c6407.sctg) - e1:SetOperation(c6407.scop) - c:RegisterEffect(e1) -end - -function c6407.mfilter(c,e,tp) - if c:IsControler(1-tp) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SYNCHRO_MATERIAL) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end - local mg=Group.FromCards(c,e:GetHandler()) - --local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,c,mg) - --Debug.Message(""..tostring(g:GetCount())) - return c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,c,mg):FilterCount(Card.IsAttribute,nil,ATTRIBUTE_WIND)>0 -end -function c6407.sctg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c6407.mfilter(chkc,e,tp) end - if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c6407.mfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - Duel.SelectTarget(tp,c6407.mfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c6407.scop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) or Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)==0 then return end - if not c:IsRelateToEffect(e) then return end - local mg=Group.FromCards(c,tc) - local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,tc,mg):Filter(Card.IsAttribute,nil,ATTRIBUTE_WIND) - if g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:Select(tp,1,1,nil) - Duel.SynchroSummon(tp,sg:GetFirst(),nil,mg) - end -end \ No newline at end of file diff --git a/script/c6408.lua b/script/c6408.lua deleted file mode 100755 index 32583496..00000000 --- a/script/c6408.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Scripted by Eerie Code ---Speedroid Menkoto -function c6408.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6408,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c6408.condition) - e1:SetTarget(c6408.target) - e1:SetOperation(c6408.operation) - c:RegisterEffect(e1) -end - -function c6408.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil -end -function c6408.filter(c) - return c:IsFaceup() and c:IsAttackPos() -end -function c6408.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - local g=Duel.GetMatchingGroup(c6408.filter,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) -end -function c6408.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK)>0 then - Duel.BreakEffect() - local g=Duel.GetMatchingGroup(c6408.filter,tp,0,LOCATION_MZONE,nil) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) - end -end \ No newline at end of file diff --git a/script/c64093402.lua b/script/c64093402.lua deleted file mode 100644 index c6dc68ae..00000000 --- a/script/c64093402.lua +++ /dev/null @@ -1,109 +0,0 @@ ---Mirage Ruler -function c64093402.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c64093402.condition) - c:RegisterEffect(e1) - --Special Summon destroyed monsters - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(27769400,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(0,TIMING_BATTLE_END) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c64093402.descon) - e2:SetCost(c64093402.descost) - e2:SetTarget(c64093402.sptg) - e2:SetOperation(c64093402.spop) - c:RegisterEffect(e2) - if not c64093402.global_check then - c64093402.global_check=true - c64093402[0]=0 - c64093402[1]=0 - c64093402[2]=Group.CreateGroup() - c64093402[2]:KeepAlive() - c64093402[3]=0 - c64093402[4]=0 - local ge1=Effect.GlobalEffect() - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_PHASE_START+PHASE_BATTLE) - ge1:SetProperty(EFFECT_FLAG_REPEAT) - ge1:SetCountLimit(1) - ge1:SetOperation(c64093402.checkop) - Duel.RegisterEffect(ge1,0) - local ge2=Effect.CreateEffect(c) - ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge2:SetCode(EVENT_PHASE_START+PHASE_MAIN2) - ge2:SetProperty(EFFECT_FLAG_REPEAT) - ge2:SetCountLimit(1) - ge2:SetOperation(c64093402.clear) - Duel.RegisterEffect(ge2,0) - local ge3=Effect.GlobalEffect() - ge3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge3:SetCode(EVENT_PHASE_START+PHASE_BATTLE) - ge3:SetOperation(c64093402.checkop1) - Duel.RegisterEffect(ge3,0) - local ge4=Effect.GlobalEffect() - ge4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge4:SetCode(EVENT_DESTROYED) - ge4:SetOperation(c64093402.checkop2) - Duel.RegisterEffect(ge4,0) - end - end -function c64093402.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c64093402.descon(e,tp,eg,ep,ev,re,r,rp) - return c64093402[4]>0 and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 and Duel.GetCurrentPhase()==PHASE_BATTLE -end -function c64093402.checkop(e,tp,eg,ep,ev,re,r,rp) - c64093402[0]=c64093402[0]+Duel.GetLP(tp) -end -function c64093402.clear(e,tp,eg,ep,ev,re,r,rp) - c64093402[0]=0 - c64093402[4]=0 -end -function c64093402.checkop1(e,tp,eg,ep,ev,re,r,rp) - c64093402[2]:Clear() - c64093402[2]:Merge(Duel.GetFieldGroup(tp,LOCATION_MZONE,0)) - c64093402[3]=c64093402[2]:GetCount() -end -function c64093402.checkop2(e,tp,eg,ep,ev,re,r,rp) - if c64093402[3]==0 then return end - if Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 then - c64093402[4]=c64093402[4]+1 - end -end -function c64093402.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c64093402.filter(c,tid,e,tp) - return c:GetTurnID()==tid and c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE)and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c64093402.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tid=Duel.GetTurnCount() - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c64093402.filter(chkc,e,tp,tid) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c64093402.filter,tp,LOCATION_GRAVE,0,1,nil,tid,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c64093402.spop(e,tp,eg,ep,ev,re,r,rp) - local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft1==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c64093402.filter,tp,LOCATION_GRAVE,0,ft1,ft1,nil,Duel.GetTurnCount(),e,tp) - if g:GetCount()>0 then - local tc=g:GetFirst() - while tc do - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,tc:GetPreviousPosition()) - tc=g:GetNext() - end - Duel.SpecialSummonComplete() - Duel.SetLP(tp,c64093402[0],REASON_EFFECT) - Duel.PayLPCost(tp,1000) - end -end \ No newline at end of file diff --git a/script/c6410.lua b/script/c6410.lua deleted file mode 100755 index 100c6b80..00000000 --- a/script/c6410.lua +++ /dev/null @@ -1,70 +0,0 @@ ---Scripted by Eerie Code ---Hyperspeedroid Chanbarider -function c6410.initial_effect(c) - c:SetSPSummonOnce(6410) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --Double attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EXTRA_ATTACK) - e2:SetValue(1) - c:RegisterEffect(e2) - --ATK Up - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6410,0)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_BATTLE_START) - e1:SetCondition(c6410.atkcon) - e1:SetOperation(c6410.atkop) - c:RegisterEffect(e1) - --Salvage - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e3:SetCondition(c6410.thcon) - e3:SetTarget(c6410.thtg) - e3:SetOperation(c6410.thop) - c:RegisterEffect(e3) -end - -function c6410.atkcon(e) - local ph=Duel.GetCurrentPhase() - return (ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) and (Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()) -end -function c6410.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(200) - c:RegisterEffect(e1) -end - -function c6410.thcon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsReason(REASON_RETURN) -end -function c6410.thfilter(c) - return c:IsFaceup() and c:IsSetCard(0x2016) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c6410.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c6410.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6410.thfilter,tp,LOCATION_REMOVED,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c6410.thfilter,tp,LOCATION_REMOVED,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c6410.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end \ No newline at end of file diff --git a/script/c6411.lua b/script/c6411.lua deleted file mode 100755 index 4956b9d4..00000000 --- a/script/c6411.lua +++ /dev/null @@ -1,39 +0,0 @@ ---Scripted by Eerie Code ---Synchro Cracker -function c6411.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c6411.target) - e1:SetOperation(c6411.activate) - c:RegisterEffect(e1) -end - -function c6411.filter(c,tp) - return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:IsAbleToExtra() - and Duel.IsExistingMatchingCard(c6411.desfilter,tp,0,LOCATION_MZONE,1,nil,c:GetAttack()) -end -function c6411.desfilter(c,atk) - return c:IsFaceup() and c:IsDestructable() and c:GetBaseAttack()<=atk -end -function c6411.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c6411.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6411.filter,tp,LOCATION_MZONE,0,1,nil,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,c6411.filter,tp,LOCATION_MZONE,0,1,1,nil,tp) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) - local sg=Duel.GetMatchingGroup(c6411.desfilter,tp,0,LOCATION_MZONE,nil,g:GetFirst():GetAttack()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c6411.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFacedown() or not tc:IsRelateToEffect(e) then return end - if Duel.SendtoDeck(tc,nil,0,REASON_EFFECT)>0 then - Duel.BreakEffect() - local sg=Duel.GetMatchingGroup(c6411.desfilter,tp,0,LOCATION_MZONE,nil,tc:GetAttack()) - Duel.Destroy(sg,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c6412.lua b/script/c6412.lua deleted file mode 100755 index 2cb64843..00000000 --- a/script/c6412.lua +++ /dev/null @@ -1,33 +0,0 @@ ---Scripted by Eerie Code ---Hidden Shot -function c6412.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c6412.target) - e1:SetOperation(c6412.activate) - c:RegisterEffect(e1) -end - -function c6412.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x2016) and c:IsAbleToRemoveAsCost() -end -function c6412.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingMatchingCard(c6412.cfilter,tp,LOCATION_GRAVE,0,1,nil) end - local gc=Duel.GetMatchingGroupCount(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - if gc>2 then gc=2 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g1=Duel.SelectMatchingCard(tp,c6412.cfilter,tp,LOCATION_GRAVE,0,1,gc,nil) - local rc=Duel.Remove(g1,POS_FACEUP,REASON_COST) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,rc,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g2,g2:GetCount(),0,0) -end -function c6412.activate(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=tg:Filter(Card.IsRelateToEffect,nil,e) - Duel.Destroy(sg,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c6413.lua b/script/c6413.lua deleted file mode 100755 index 8b41d7b4..00000000 --- a/script/c6413.lua +++ /dev/null @@ -1,95 +0,0 @@ ---Scripted by Eerie Code ---Dice Roll Battle -function c6413.initial_effect(c) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6413,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c6413.spcon) - e1:SetTarget(c6413.sptg) - e1:SetOperation(c6413.spop) - c:RegisterEffect(e1) - --Battle - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6413,1)) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetHintTiming(TIMING_BATTLE_PHASE) - e2:SetRange(LOCATION_GRAVE) - e2:SetCondition(c6413.condition) - e2:SetCost(c6413.cost) - e2:SetTarget(c6413.target) - e2:SetOperation(c6413.operation) - c:RegisterEffect(e2) -end - -function c6413.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c6413.spfil1(c,e,tp) - return c:IsSetCard(0x2016) and c:IsAbleToRemove() and Duel.IsExistingMatchingCard(c6413.spfil2,tp,LOCATION_HAND,0,1,nil,e,tp,c:GetOriginalLevel()) -end -function c6413.spfil2(c,e,tp,lv) - return c:IsSetCard(0x2016) and c:IsType(TYPE_TUNER) and c:IsAbleToRemove() and Duel.IsExistingMatchingCard(c6413.spfil3,tp,LOCATION_EXTRA,0,1,nil,e,tp,c:GetOriginalLevel()+lv) -end -function c6413.spfil3(c,e,tp,lv) - return c:IsType(TYPE_SYNCHRO) and c:GetLevel()==lv and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6413.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6413.spfil1(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and - Duel.IsExistingTarget(c6413.spfil1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c6413.spfil1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c6413.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local lv1=tc:GetOriginalLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c6413.spfil2,tp,LOCATION_HAND,0,1,1,nil,e,tp,lv1) - if g:GetCount()>0 then - local tc2=g:GetFirst() - local lv2=tc2:GetOriginalLevel() - local rg=Group.FromCards(tc,tc2) - if Duel.Remove(rg,POS_FACEUP,REASON_EFFECT)>0 then - local g2=Duel.SelectMatchingCard(tp,c6413.spfil3,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,lv1+lv2) - if g2:GetCount()>0 then - Duel.SpecialSummon(g2,0,tp,tp,false,false,POS_FACEUP) - end - end - end - end -end - -function c6413.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_BATTLE and Duel.GetCurrentChain()==0 -end -function c6413.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c6413.filter(c) - return c:IsFaceup() and c:IsPosition(POS_FACEUP_ATTACK) and c:IsType(TYPE_SYNCHRO) -end -function c6413.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c6413.filter,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingTarget(c6413.filter,tp,0,LOCATION_MZONE,1,nil) end - local g1=Duel.SelectTarget(tp,c6413.filter,tp,LOCATION_MZONE,0,1,1,nil) - e:SetLabelObject(g1:GetFirst()) - local g2=Duel.SelectTarget(tp,c6413.filter,tp,0,LOCATION_MZONE,1,1,nil) -end -function c6413.operation(e,tp,eg,ep,ev,re,r,rp) - local tc1=e:GetLabelObject() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc2=g:GetFirst() - if tc1==tc2 then tc2=g:GetNext() end - if tc1:IsRelateToEffect(e) and tc2:IsRelateToEffect(e) then - Duel.CalculateDamage(tc2,tc1) - end -end \ No newline at end of file diff --git a/script/c6414.lua b/script/c6414.lua deleted file mode 100755 index ff1254d9..00000000 --- a/script/c6414.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Scripted by Eerie Code ---Red Sprinter -function c6414.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCondition(c6414.condition) - e1:SetTarget(c6414.target) - e1:SetOperation(c6414.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) -end - -function c6414.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==1 -end -function c6414.spfilter(c,e,tp) - return c:IsLevelBelow(3) and c:IsType(TYPE_TUNER) and c:IsRace(RACE_FIEND) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6414.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c6414.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) -end -function c6414.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6414.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c6415.lua b/script/c6415.lua deleted file mode 100755 index 28f1cc1c..00000000 --- a/script/c6415.lua +++ /dev/null @@ -1,57 +0,0 @@ ---Red Resonator -function c6415.initial_effect(c) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6415,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c6415.sumtg) - e1:SetOperation(c6415.sumop) - c:RegisterEffect(e1) - --Gain LP - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6415,1)) - e2:SetCategory(CATEGORY_RECOVER) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1,6415) - e2:SetTarget(c6415.target) - e2:SetOperation(c6415.operation) - c:RegisterEffect(e2) -end - -function c6415.sumfilter(c,e,tp) - return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6415.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c6415.sumfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c6415.sumop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6415.sumfilter,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 - -function c6415.filter(c) - return c:IsFaceup() and c:GetAttack()>0 -end -function c6415.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c6415.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6415.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c6415.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,g:GetFirst():GetAttack()) -end -function c6415.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetAttack()>0 and not tc:IsImmuneToEffect(e) then - Duel.Recover(tp,tc:GetAttack(),REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c6416.lua b/script/c6416.lua deleted file mode 100755 index 3b000a01..00000000 --- a/script/c6416.lua +++ /dev/null @@ -1,65 +0,0 @@ ---Speed Rebirth -function c6416.initial_effect(c) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c6416.sptg) - e1:SetOperation(c6416.spop) - c:RegisterEffect(e1) - --to hand - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e2:SetCondition(c6416.thcon) - e2:SetCost(c6416.thcost) - e2:SetTarget(c6416.thtg) - e2:SetOperation(c6416.thop) - c:RegisterEffect(e2) -end - -function c6416.spfil(c,e,tp) - return c:IsSetCard(0x2016) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6416.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c6416.spfil(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c6416.spfil,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c6416.spfil,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c6416.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end - -function c6416.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetTurnID()~=Duel.GetTurnCount() -end -function c6416.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c6416.thfilter(c) - return c:IsSetCard(0x2016) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c6416.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6416.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - local g=Duel.SelectTarget(tp,c6416.thfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(g,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) -end -function c6416.thop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end \ No newline at end of file diff --git a/script/c64160836.lua b/script/c64160836.lua index 9b4f9278..6da4c9ef 100644 --- a/script/c64160836.lua +++ b/script/c64160836.lua @@ -9,37 +9,34 @@ function c64160836.initial_effect(c) c:RegisterEffect(e1) --atk def local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) e2:SetRange(LOCATION_MZONE) - e2:SetOperation(c64160836.adval) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetCondition(c64160836.adcon) + e2:SetTarget(c64160836.adtg) + e2:SetValue(c64160836.adval) c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e3) end function c64160836.ctop(e,tp,eg,ep,ev,re,r,rp) local tc=eg:GetFirst() while tc do if tc:IsFaceup() and tc:IsControler(1-tp) then - tc:AddCounter(0xe,1) + tc:AddCounter(0x100e,1) end tc=eg:GetNext() end end -function c64160836.addown(c,e) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(c:GetCounter(0xe)*-300) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) +function c64160836.adcon(e) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and Duel.GetAttackTarget() +end +function c64160836.adtg(e,c) + local bc=c:GetBattleTarget() + return bc and c:GetCounter(0x100e)~=0 and bc:IsSetCard(0xc) end -function c64160836.adval(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if not d then return end - if a:GetCounter(0xe)>0 and d:IsSetCard(0xc) then c64160836.addown(a,e) end - if d:GetCounter(0xe)>0 and a:IsSetCard(0xc) then c64160836.addown(d,e) end +function c64160836.adval(e,c) + return c:GetCounter(0x100e)*-300 end diff --git a/script/c64163367.lua b/script/c64163367.lua index 43ec22b3..7a651af1 100644 --- a/script/c64163367.lua +++ b/script/c64163367.lua @@ -8,7 +8,7 @@ function c64163367.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_REMOVE_COUNTER+0xe) + e2:SetCode(EVENT_REMOVE_COUNTER+0x100e) e2:SetOperation(c64163367.ctop1) c:RegisterEffect(e2) --counter2 @@ -22,10 +22,10 @@ function c64163367.initial_effect(c) c:RegisterEffect(e3) end function c64163367.ctop1(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(COUNTER_NEED_ENABLE+0xe,1) + e:GetHandler():AddCounter(COUNTER_NEED_ENABLE+0x100e,1) end function c64163367.ctcon2(e,tp,eg,ep,ev,re,r,rp) - local ct=e:GetHandler():GetCounter(0xe) + local ct=e:GetHandler():GetCounter(0x100e) e:SetLabel(ct) return e:GetHandler():IsReason(REASON_DESTROY) and ct>0 end @@ -36,6 +36,6 @@ function c64163367.ctop2(e,tp,eg,ep,ev,re,r,rp) for i=1,ct do Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(64163367,1)) local sg=g:Select(tp,1,1,nil) - sg:GetFirst():AddCounter(0xe,1) + sg:GetFirst():AddCounter(0x100e,1) end end diff --git a/script/c6417.lua b/script/c6417.lua deleted file mode 100755 index 46ef54a2..00000000 --- a/script/c6417.lua +++ /dev/null @@ -1,55 +0,0 @@ ---Scripted by Eerie Code ---Synclone Resonator -function c6417.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCountLimit(1,6417) - e1:SetCondition(c6417.spcon) - c:RegisterEffect(e1) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6417,1)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c6417.condition) - e2:SetTarget(c6417.target) - e2:SetOperation(c6417.operation) - c:RegisterEffect(e2) -end - -function c6417.spfilter(c) - return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) -end -function c6417.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c6417.spfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) -end - -function c6417.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) -end -function c6417.filter(c) - return c:IsSetCard(0x57) and c:IsType(TYPE_MONSTER) and not c:IsCode(6417) and c:IsAbleToHand() -end -function c6417.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6417.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6417.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c6417.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c6417.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c6417578.lua b/script/c6417578.lua index 05657079..17128a2b 100644 --- a/script/c6417578.lua +++ b/script/c6417578.lua @@ -67,14 +67,5 @@ function c6417578.activate(e,tp,eg,ep,ev,re,r,rp) fop(ce,e,tp,tc,mat2) end tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end diff --git a/script/c6418.lua b/script/c6418.lua deleted file mode 100755 index 14f15ac3..00000000 --- a/script/c6418.lua +++ /dev/null @@ -1,35 +0,0 @@ ---Scripted by Eerie Code ---Chain Resonator -function c6418.initial_effect(c) - --summon success - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6418,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCondition(c6418.sumcon) - e1:SetTarget(c6418.sumtg) - e1:SetOperation(c6418.sumop) - c:RegisterEffect(e1) -end - -function c6418.sumcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,TYPE_SYNCHRO) -end -function c6418.spfilter(c,e,tp) - return c:IsSetCard(0x57) and not c:IsCode(6418) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6418.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c6418.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c6418.sumop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6418.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c64184058.lua b/script/c64184058.lua new file mode 100644 index 00000000..f7086937 --- /dev/null +++ b/script/c64184058.lua @@ -0,0 +1,89 @@ +--D－HERO ディシジョンガイ +function c64184058.initial_effect(c) + --cannot be battle target + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) + e1:SetRange(LOCATION_MZONE) + e1:SetValue(c64184058.atlimit) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCountLimit(1,64184058+EFFECT_COUNT_CODE_DUEL) + e2:SetOperation(c64184058.regop) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) + --neg damage + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_TOHAND) + e4:SetType(EFFECT_TYPE_QUICK_F) + e4:SetCode(EVENT_CHAINING) + e4:SetRange(LOCATION_GRAVE) + e4:SetCountLimit(1,64184059+EFFECT_COUNT_CODE_DUEL) + e4:SetCondition(aux.damcon1) + e4:SetTarget(c64184058.damtg) + e4:SetOperation(c64184058.damop) + c:RegisterEffect(e4) +end +function c64184058.atlimit(e,c) + local tp=e:GetHandlerPlayer() + return c:IsControler(1-tp) and c:IsLevelAbove(6) and not c:IsImmuneToEffect(e) +end +function c64184058.thfilter(c) + return c:IsSetCard(0x8) and c:IsAbleToHand() +end +function c64184058.regop(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_PHASE+PHASE_END) + e1:SetCountLimit(1) + e1:SetCondition(c64184058.thcon) + e1:SetOperation(c64184058.thop) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c64184058.thcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c64184058.thfilter,tp,LOCATION_GRAVE,0,1,nil) +end +function c64184058.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_CARD,0,64184058) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) + local g=Duel.SelectMatchingCard(tp,c64184058.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.HintSelection(g) + Duel.SendtoHand(g,nil,REASON_EFFECT) + end +end +function c64184058.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToHand() end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) +end +function c64184058.damop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SendtoHand(c,nil,REASON_EFFECT)~=0 then + local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CHANGE_DAMAGE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetLabel(cid) + e1:SetValue(c64184058.damval) + e1:SetReset(RESET_CHAIN) + Duel.RegisterEffect(e1,tp) + end +end +function c64184058.damval(e,re,val,r,rp,rc) + local cc=Duel.GetCurrentChain() + if cc==0 or bit.band(r,REASON_EFFECT)==0 then return val end + local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID) + if cid~=e:GetLabel() then return val end + return 0 +end diff --git a/script/c6419.lua b/script/c6419.lua deleted file mode 100755 index d734c986..00000000 --- a/script/c6419.lua +++ /dev/null @@ -1,72 +0,0 @@ ---Scripted by Eerie Code ---Mirror Resonator -function c6419.initial_effect(c) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6419,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND+LOCATION_GRAVE) - e1:SetCountLimit(1,6419) - e1:SetCondition(c6419.spcon) - e1:SetTarget(c6419.sptg) - e1:SetOperation(c6419.spop) - c:RegisterEffect(e1) - --Synchro Level - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6419,1)) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c6419.lvtg) - e2:SetOperation(c6419.lvop) - c:RegisterEffect(e2) -end - -function c6419.exfilter(c) - return c:GetSummonLocation()==LOCATION_EXTRA -end -function c6419.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c6419.exfilter,tp,0,LOCATION_MZONE,1,nil) and not Duel.IsExistingMatchingCard(c6419.exfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c6419.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c6419.spop(e,tp,eg,ep,ev,re,r,rp) - if not Duel.IsExistingMatchingCard(c6419.exfilter,tp,0,LOCATION_MZONE,1,nil) or Duel.IsExistingMatchingCard(c6419.exfilter,tp,LOCATION_MZONE,0,1,nil) then return end - local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x47e0000) - e1:SetValue(LOCATION_REMOVED) - c:RegisterEffect(e1,true) - end -end - -function c6419.lvfil(c) - return c:IsFaceup() and c:GetOriginalLevel()>0 -end -function c6419.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c6419.lvfil(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6419.lvfil,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c6419.lvfil,tp,0,LOCATION_MZONE,1,1,nil) -end -function c6419.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SYNCHRO_LEVEL) - e1:SetValue(tc:GetOriginalLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end -end diff --git a/script/c64203620.lua b/script/c64203620.lua index a6b027e6..0a579de1 100644 --- a/script/c64203620.lua +++ b/script/c64203620.lua @@ -8,7 +8,7 @@ function c64203620.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_PROC) e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) e1:SetRange(LOCATION_HAND) - e1:SetTargetRange(POS_FACEUP_DEFENCE,1) + e1:SetTargetRange(POS_FACEUP_DEFENSE,1) e1:SetCondition(c64203620.spcon) c:RegisterEffect(e1) --self destory @@ -45,7 +45,7 @@ function c64203620.descon(e) return not Duel.IsExistingMatchingCard(c64203620.filter,0,LOCATION_MZONE,LOCATION_MZONE,1,nil) end function c64203620.damcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPosition(POS_FACEUP_ATTACK) and e:GetHandler():IsPreviousPosition(POS_FACEUP_DEFENCE) + return e:GetHandler():IsPosition(POS_FACEUP_ATTACK) and e:GetHandler():IsPreviousPosition(POS_FACEUP_DEFENSE) end function c64203620.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c64207696.lua b/script/c64207696.lua new file mode 100644 index 00000000..0549c9ae --- /dev/null +++ b/script/c64207696.lua @@ -0,0 +1,63 @@ +--EMゴールド・ファング +function c64207696.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --damage + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(64207696,0)) + e1:SetCategory(CATEGORY_DAMAGE) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EVENT_BATTLE_DESTROYING) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetCondition(c64207696.damcon) + e1:SetTarget(c64207696.damtg) + e1:SetOperation(c64207696.damop) + c:RegisterEffect(e1) + --atk + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(64207696,1)) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetOperation(c64207696.atkop) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) +end +function c64207696.damcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local rc=eg:GetFirst() + return rc:IsRelateToBattle() and rc:IsStatus(STATUS_OPPO_BATTLE) + and rc:IsFaceup() and rc:IsSetCard(0x9f) and rc:IsControler(tp) +end +function c64207696.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(1000) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) +end +function c64207696.damop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) +end +function c64207696.atkfilter(c) + return c:IsFaceup() and c:IsSetCard(0x9f) +end +function c64207696.atkop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c64207696.atkfilter,tp,LOCATION_MZONE,0,nil) + local tc=g:GetFirst() + while tc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(200) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + tc=g:GetNext() + end +end diff --git a/script/c6422.lua b/script/c6422.lua deleted file mode 100755 index e31bf131..00000000 --- a/script/c6422.lua +++ /dev/null @@ -1,48 +0,0 @@ ---Scripted by Eerie Code ---Red Wyvern -function c6422.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --Destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6422,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_NO_TURN_RESET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c6422.descon) - e1:SetTarget(c6422.destg) - e1:SetOperation(c6422.desop) - c:RegisterEffect(e1) -end - -function c6422.dafilter(c,atk) - return c:IsFaceup() and c:GetAttack()>atk -end -function c6422.descon(e) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO and Duel.IsExistingMatchingCard(c6422.dafilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler(),e:GetHandler():GetAttack()) -end -function c6422.desfil(c) - return c:IsDestructable() -end -function c6422.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6422.desfil,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(c6422.desfil,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - local tg=g:GetMaxGroup(Card.GetAttack) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) -end -function c6422.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c6422.desfil,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - if g:GetCount()>0 then - local tg=g:GetMaxGroup(Card.GetAttack) - if tg:GetCount()>1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local sg=tg:Select(tp,1,1,nil) - Duel.HintSelection(sg) - Duel.Destroy(sg,REASON_EFFECT) - else Duel.Destroy(tg,REASON_EFFECT) end - end -end \ No newline at end of file diff --git a/script/c64226269.lua b/script/c64226269.lua deleted file mode 100644 index 2edd7564..00000000 --- a/script/c64226269.lua +++ /dev/null @@ -1,76 +0,0 @@ ---光天使スケール -function c64226269.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(64226269,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetTarget(c64226269.sptg) - e1:SetOperation(c64226269.spop) - c:RegisterEffect(e1) - --effect gain - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_BE_MATERIAL) - e2:SetCondition(c64226269.effcon) - e2:SetOperation(c64226269.effop) - c:RegisterEffect(e2) -end -function c64226269.filter(c,e,tp) - return c:IsSetCard(0x86) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c64226269.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c64226269.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c64226269.tdfilter(c) - return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToDeck() -end -function c64226269.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c64226269.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - local sg=Duel.GetMatchingGroup(c64226269.tdfilter,tp,LOCATION_GRAVE,0,nil) - if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(64226269,1)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local tg=sg:Select(tp,1,1,nil) - Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) - end - end -end -function c64226269.effcon(e,tp,eg,ep,ev,re,r,rp) - return r==REASON_XYZ and e:GetHandler():GetReasonCard():GetMaterial():IsExists(Card.IsLocation,3,nil,LOCATION_MZONE) -end -function c64226269.effop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local rc=c:GetReasonCard() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c64226269.drcon) - e1:SetOperation(c64226269.drop) - e1:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e1) - if not rc:IsType(TYPE_EFFECT) then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CHANGE_TYPE) - e2:SetValue(TYPE_MONSTER+TYPE_EFFECT+TYPE_XYZ) - e2:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e2) - end -end -function c64226269.drcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetOverlayCount()~=0 and eg:IsExists(Card.IsPreviousLocation,1,nil,LOCATION_HAND) -end -function c64226269.drop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_CARD,0,64226269) - Duel.Draw(tp,1,REASON_EFFECT) -end diff --git a/script/c64245689.lua b/script/c64245689.lua index 7d4f1193..3bd0eabd 100644 --- a/script/c64245689.lua +++ b/script/c64245689.lua @@ -60,6 +60,6 @@ end function c64245689.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c6425.lua b/script/c6425.lua deleted file mode 100755 index b142eaa5..00000000 --- a/script/c6425.lua +++ /dev/null @@ -1,122 +0,0 @@ ---Scripted by Eerie Code ---Red Cocoon -function c6425.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c6425.condition) - e1:SetTarget(c6425.target) - e1:SetOperation(c6425.operation) - c:RegisterEffect(e1) - --to grave - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetOperation(c6425.regop) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(6425,1)) - e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_PHASE+PHASE_END) - e4:SetRange(LOCATION_GRAVE) - e4:SetCountLimit(1) - e4:SetCondition(c6425.spcon) - e4:SetTarget(c6425.sptg) - e4:SetOperation(c6425.spop) - c:RegisterEffect(e4) -end - -function c6425.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c6425.filter(c) - return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_DRAGON) -end -function c6425.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c6425.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6425.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,c6425.filter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c6425.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsLocation(LOCATION_SZONE) then return end - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,c,tc) - c:CancelToGrave() - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(c6425.eqlimit) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) - --Disable effects - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_BE_BATTLE_TARGET) - e1:SetRange(LOCATION_SZONE) - e1:SetCondition(c6425.discon) - e1:SetOperation(c6425.disop) - c:RegisterEffect(e1) - end -end -function c6425.eqlimit(e,c) - return c:IsFaceup() -end -function c6425.discon(e,tp,eg,ep,ev,re,r,rp) - local ec=e:GetHandler():GetEquipTarget() - return ec and ec:GetControler()==tp and (ec==Duel.GetAttacker() or ec==Duel.GetAttackTarget()) and ec:GetBattleTarget() -end -function c6425.disop(e,tp,eg,ep,ev,re,r,rp) - --local tc=e:GetHandler():GetEquipTarget():GetBattleTarget() - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_DAMAGE) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_DAMAGE) - tc:RegisterEffect(e2) - tc=g:GetNext() - end -end - -function c6425.regop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsReason(REASON_RETURN) then - c:RegisterFlagEffect(6425,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - end -end -function c6425.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(6425)>0 -end -function c6425.spfilter1(c,e,tp) - return c:IsSetCard(0x1045) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6425.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6425.spfilter1(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and - Duel.IsExistingTarget(c6425.spfilter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c6425.spfilter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c6425.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c64262809.lua b/script/c64262809.lua index b57b8c56..70d7931d 100644 --- a/script/c64262809.lua +++ b/script/c64262809.lua @@ -30,10 +30,13 @@ function c64262809.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) + Duel.SetTargetCard(e:GetHandler()) end function c64262809.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsLocation(LOCATION_HAND+LOCATION_GRAVE) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c64268668.lua b/script/c64268668.lua index e2caf88a..1b124313 100644 --- a/script/c64268668.lua +++ b/script/c64268668.lua @@ -18,7 +18,7 @@ end function c64268668.atkcon(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() - return Duel.GetCurrentPhase()==PHASE_BATTLE + return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) and ((a and a:IsControler(tp) and a:IsFaceup() and a:IsCode(64268668)) or (d and d:IsControler(tp) and d:IsFaceup() and d:IsCode(64268668))) end diff --git a/script/c6428.lua b/script/c6428.lua deleted file mode 100755 index 57d7a284..00000000 --- a/script/c6428.lua +++ /dev/null @@ -1,4 +0,0 @@ ---PSYFrame Driver -function c6428.initial_effect(c) - -end diff --git a/script/c64280356.lua b/script/c64280356.lua new file mode 100644 index 00000000..2820e591 --- /dev/null +++ b/script/c64280356.lua @@ -0,0 +1,85 @@ +--Kozmo Tincan +function c64280356.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(64280356,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_MZONE) + e1:SetHintTiming(0,TIMING_END_PHASE) + e1:SetCountLimit(1,64280356) + e1:SetCost(c64280356.spcost) + e1:SetTarget(c64280356.sptg) + e1:SetOperation(c64280356.spop) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(64280356,1)) + e2:SetCategory(CATEGORY_TOHAND+CATEGORY_TOGRAVE) + e2:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EVENT_PHASE+PHASE_END) + e2:SetCountLimit(1) + e2:SetCost(c64280356.thcost) + e2:SetTarget(c64280356.thtg) + e2:SetOperation(c64280356.thop) + c:RegisterEffect(e2) +end +function c64280356.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c64280356.spfilter(c,e,tp) + return c:IsSetCard(0xd2) and c:IsLevelAbove(2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c64280356.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c64280356.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c64280356.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c64280356.spfilter,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 +function c64280356.thfilter(c) + return c:IsSetCard(0xd2) and c:IsAbleToHand() +end +function c64280356.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,500) end + Duel.PayLPCost(tp,500) +end +function c64280356.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local dg=Duel.GetMatchingGroup(c64280356.thfilter,tp,LOCATION_DECK,0,nil) + return dg:GetClassCount(Card.GetCode)>=3 + end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c64280356.thop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c64280356.thfilter,tp,LOCATION_DECK,0,nil) + if g:GetClassCount(Card.GetCode)>=3 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) + local sg1=g:Select(tp,1,1,nil) + g:Remove(Card.IsCode,nil,sg1:GetFirst():GetCode()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) + local sg2=g:Select(tp,1,1,nil) + g:Remove(Card.IsCode,nil,sg2:GetFirst():GetCode()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) + local sg3=g:Select(tp,1,1,nil) + sg1:Merge(sg2) + sg1:Merge(sg3) + Duel.ConfirmCards(1-tp,sg1) + Duel.ShuffleDeck(tp) + Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_ATOHAND) + local cg=sg1:Select(1-tp,1,1,nil) + local tc=cg:GetFirst() + Duel.SendtoHand(tc,nil,REASON_EFFECT) + sg1:RemoveCard(tc) + Duel.SendtoGrave(sg1,REASON_EFFECT) + end +end diff --git a/script/c64283880.lua b/script/c64283880.lua index 613d024c..f262a93e 100644 --- a/script/c64283880.lua +++ b/script/c64283880.lua @@ -39,7 +39,7 @@ function c64283880.spop(e,tp,eg,ep,ev,re,r,rp) if ct>2 then ct=2 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,1,ct,nil) - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end end diff --git a/script/c6429.lua b/script/c6429.lua deleted file mode 100755 index 04be29e2..00000000 --- a/script/c6429.lua +++ /dev/null @@ -1,94 +0,0 @@ ---Scripted by Eerie Code ---PSYFrame Gear Alpha -function c6429.initial_effect(c) - c:SetStatus(STATUS_UNSUMMONABLE_CARD,true) - --cannot pendulum summon - local e0=Effect.CreateEffect(c) - e0:SetType(EFFECT_TYPE_SINGLE) - e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e0:SetCode(EFFECT_SPSUMMON_CONDITION) - e0:SetValue(c6429.splimit) - c:RegisterEffect(e0) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6429,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c6429.condition) - e1:SetTarget(c6429.target) - e1:SetOperation(c6429.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) -end - -function c6429.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_PENDULUM)~=SUMMON_TYPE_PENDULUM -end - -function c6429.egfil(c,tp) - return c:GetSummonPlayer()==tp -end -function c6429.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c6429.egfil,1,nil,1-tp) and Duel.GetFieldGroupCount(e:GetHandler():GetControler(),LOCATION_MZONE,0,nil)==0 -end -function c6429.filter(c,e,tp) - return c:IsCode(6428) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6429.filter2(c) - return c:IsSetCard(0xd3) and not c:IsCode(6429) and c:IsAbleToHand() -end -function c6429.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(c6429.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) -end -function c6429.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6429.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - local tc=g:GetFirst() - local sg=Group.FromCards(e:GetHandler(),tc) - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) - sg:KeepAlive() - tc:RegisterFlagEffect(6429,RESET_EVENT+0x1fe0000,0,1) - e:GetHandler():RegisterFlagEffect(6429,RESET_EVENT+0x1fe0000,0,1) - local de=Effect.CreateEffect(e:GetHandler()) - de:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - de:SetCode(EVENT_PHASE+PHASE_END) - de:SetCountLimit(1) - de:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - de:SetLabel(0) - de:SetLabelObject(sg) - de:SetCondition(c6429.descon) - de:SetOperation(c6429.desop) - Duel.RegisterEffect(de,tp) - if Duel.GetOperatedGroup():FilterCount(Card.IsLocation,nil,LOCATION_MZONE)==2 and Duel.IsExistingMatchingCard(c6429.filter2,tp,LOCATION_DECK,0,1,nil) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local hg=Duel.SelectMatchingCard(tp,c6429.filter2,tp,LOCATION_DECK,0,1,1,nil) - if hg:GetCount()>0 then - Duel.SendtoHand(hg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,hg) - end - end - end -end - -function c6429.descon(e,tp,eg,ep,ev,re,r,rp) - local tg=e:GetLabelObject() - local b=false - local tc=tg:GetFirst() - while tc and not b do - b=tc:GetFlagEffect(6429)==0 - tc=tg:GetNext() - end - return Duel.GetTurnCount()~=e:GetLabel() and not b -end -function c6429.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c6430.lua b/script/c6430.lua deleted file mode 100755 index c33e7eea..00000000 --- a/script/c6430.lua +++ /dev/null @@ -1,85 +0,0 @@ ---Scripted by Eerie Code ---PSYFrame Gear Beta -function c6430.initial_effect(c) - c:SetStatus(STATUS_UNSUMMONABLE_CARD,true) - --cannot pendulum summon - local e0=Effect.CreateEffect(c) - e0:SetType(EFFECT_TYPE_SINGLE) - e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e0:SetCode(EFFECT_SPSUMMON_CONDITION) - e0:SetValue(c6430.splimit) - c:RegisterEffect(e0) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6430,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c6430.condition) - e1:SetTarget(c6430.target) - e1:SetOperation(c6430.operation) - c:RegisterEffect(e1) -end - -function c6430.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_PENDULUM)~=SUMMON_TYPE_PENDULUM -end - -function c6430.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 -end - -function c6430.filter(c,e,tp) - return c:IsCode(6428) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6430.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(c6430.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) -end -function c6430.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6430.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - local tc=g:GetFirst() - local sg=Group.FromCards(e:GetHandler(),tc) - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) - sg:KeepAlive() - tc:RegisterFlagEffect(6430,RESET_EVENT+0x1fe0000,0,1) - e:GetHandler():RegisterFlagEffect(6430,RESET_EVENT+0x1fe0000,0,1) - local de=Effect.CreateEffect(e:GetHandler()) - de:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - de:SetCode(EVENT_PHASE+PHASE_END) - de:SetCountLimit(1) - de:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - de:SetLabel(0) - de:SetLabelObject(sg) - de:SetCondition(c6430.descon) - de:SetOperation(c6430.desop) - Duel.RegisterEffect(de,tp) - if Duel.GetOperatedGroup():FilterCount(Card.IsLocation,nil,LOCATION_MZONE)==2 then - local at=Duel.GetAttacker() - if at and at:IsFaceup() then - Duel.Destroy(at,REASON_EFFECT) - Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) - end - end - end -end - -function c6430.descon(e,tp,eg,ep,ev,re,r,rp) - local tg=e:GetLabelObject() - local b=false - local tc=tg:GetFirst() - while tc and not b do - b=tc:GetFlagEffect(6430)==0 - tc=tg:GetNext() - end - return Duel.GetTurnCount()~=e:GetLabel() and not b -end -function c6430.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c64306248.lua b/script/c64306248.lua old mode 100755 new mode 100644 diff --git a/script/c6431.lua b/script/c6431.lua deleted file mode 100755 index a298dfbc..00000000 --- a/script/c6431.lua +++ /dev/null @@ -1,91 +0,0 @@ ---Scripted by Eerie Code ---PSYFrame Gear Gamma -function c6431.initial_effect(c) - c:SetStatus(STATUS_UNSUMMONABLE_CARD,true) - --cannot pendulum summon - local e0=Effect.CreateEffect(c) - e0:SetType(EFFECT_TYPE_SINGLE) - e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e0:SetCode(EFFECT_SPSUMMON_CONDITION) - e0:SetValue(c6431.splimit) - c:RegisterEffect(e0) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6431,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c6431.condition) - e1:SetTarget(c6431.target) - e1:SetOperation(c6431.operation) - c:RegisterEffect(e1) -end - -function c6431.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_PENDULUM)~=SUMMON_TYPE_PENDULUM -end - -function c6431.egfil(c,tp) - return c:GetSummonPlayer()==tp -end -function c6431.condition(e,tp,eg,ep,ev,re,r,rp) - --local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) - return rp~=tp and re:IsActiveType(TYPE_MONSTER) and Duel.GetFieldGroupCount(e:GetHandler():GetControler(),LOCATION_MZONE,0,nil)==0 -end -function c6431.filter(c,e,tp) - return c:IsCode(6428) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6431.filter2(c) - return c:IsSetCard(0xd3) and c:IsAbleToHand() -end -function c6431.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(c6431.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) -end -function c6431.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6431.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - local tc=g:GetFirst() - local sg=Group.FromCards(e:GetHandler(),tc) - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) - sg:KeepAlive() - tc:RegisterFlagEffect(6431,RESET_EVENT+0x1fe0000,0,1) - e:GetHandler():RegisterFlagEffect(6431,RESET_EVENT+0x1fe0000,0,1) - local de=Effect.CreateEffect(e:GetHandler()) - de:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - de:SetCode(EVENT_PHASE+PHASE_END) - de:SetCountLimit(1) - de:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - de:SetLabel(0) - de:SetLabelObject(sg) - de:SetCondition(c6431.descon) - de:SetOperation(c6431.desop) - Duel.RegisterEffect(de,tp) - if Duel.GetOperatedGroup():FilterCount(Card.IsLocation,nil,LOCATION_MZONE)==2 then - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end - end - end -end - -function c6431.descon(e,tp,eg,ep,ev,re,r,rp) - local tg=e:GetLabelObject() - local b=false - local tc=tg:GetFirst() - while tc and not b do - b=tc:GetFlagEffect(6431)==0 - tc=tg:GetNext() - end - return Duel.GetTurnCount()~=e:GetLabel() and not b -end -function c6431.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c64319467.lua b/script/c64319467.lua index 5fade4c4..f80dad21 100644 --- a/script/c64319467.lua +++ b/script/c64319467.lua @@ -45,7 +45,7 @@ function c64319467.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c64319467.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c6432.lua b/script/c6432.lua deleted file mode 100755 index 141c4ddc..00000000 --- a/script/c6432.lua +++ /dev/null @@ -1,91 +0,0 @@ ---Scripted by Eerie Code ---PSYFrame Gear Delta -function c6432.initial_effect(c) - c:SetStatus(STATUS_UNSUMMONABLE_CARD,true) - --cannot pendulum summon - local e0=Effect.CreateEffect(c) - e0:SetType(EFFECT_TYPE_SINGLE) - e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e0:SetCode(EFFECT_SPSUMMON_CONDITION) - e0:SetValue(c6432.splimit) - c:RegisterEffect(e0) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6432,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c6432.condition) - e1:SetTarget(c6432.target) - e1:SetOperation(c6432.operation) - c:RegisterEffect(e1) -end - -function c6432.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_PENDULUM)~=SUMMON_TYPE_PENDULUM -end - -function c6432.egfil(c,tp) - return c:GetSummonPlayer()==tp -end -function c6432.condition(e,tp,eg,ep,ev,re,r,rp) - --local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) - return rp~=tp and re:IsActiveType(TYPE_SPELL) and Duel.GetFieldGroupCount(e:GetHandler():GetControler(),LOCATION_MZONE,0,nil)==0 -end -function c6432.filter(c,e,tp) - return c:IsCode(6428) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6432.filter2(c) - return c:IsSetCard(0xd3) and c:IsAbleToHand() -end -function c6432.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(c6432.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) -end -function c6432.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6432.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - local tc=g:GetFirst() - local sg=Group.FromCards(e:GetHandler(),tc) - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) - sg:KeepAlive() - tc:RegisterFlagEffect(6432,RESET_EVENT+0x1fe0000,0,1) - e:GetHandler():RegisterFlagEffect(6432,RESET_EVENT+0x1fe0000,0,1) - local de=Effect.CreateEffect(e:GetHandler()) - de:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - de:SetCode(EVENT_PHASE+PHASE_END) - de:SetCountLimit(1) - de:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - de:SetLabel(0) - de:SetLabelObject(sg) - de:SetCondition(c6432.descon) - de:SetOperation(c6432.desop) - Duel.RegisterEffect(de,tp) - if Duel.GetOperatedGroup():FilterCount(Card.IsLocation,nil,LOCATION_MZONE)==2 then - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end - end - end -end - -function c6432.descon(e,tp,eg,ep,ev,re,r,rp) - local tg=e:GetLabelObject() - local b=false - local tc=tg:GetFirst() - while tc and not b do - b=tc:GetFlagEffect(6432)==0 - tc=tg:GetNext() - end - return Duel.GetTurnCount()~=e:GetLabel() and not b -end -function c6432.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c6433.lua b/script/c6433.lua deleted file mode 100755 index 9a48494e..00000000 --- a/script/c6433.lua +++ /dev/null @@ -1,91 +0,0 @@ ---Scripted by Eerie Code ---PSYFrame Gear Epsilon -function c6433.initial_effect(c) - c:SetStatus(STATUS_UNSUMMONABLE_CARD,true) - --cannot pendulum summon - local e0=Effect.CreateEffect(c) - e0:SetType(EFFECT_TYPE_SINGLE) - e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e0:SetCode(EFFECT_SPSUMMON_CONDITION) - e0:SetValue(c6433.splimit) - c:RegisterEffect(e0) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6433,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c6433.condition) - e1:SetTarget(c6433.target) - e1:SetOperation(c6433.operation) - c:RegisterEffect(e1) -end - -function c6433.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_PENDULUM)~=SUMMON_TYPE_PENDULUM -end - -function c6433.egfil(c,tp) - return c:GetSummonPlayer()==tp -end -function c6433.condition(e,tp,eg,ep,ev,re,r,rp) - --local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) - return rp~=tp and re:IsActiveType(TYPE_TRAP) and Duel.GetFieldGroupCount(e:GetHandler():GetControler(),LOCATION_MZONE,0,nil)==0 -end -function c6433.filter(c,e,tp) - return c:IsCode(6428) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6433.filter2(c) - return c:IsSetCard(0xd3) and c:IsAbleToHand() -end -function c6433.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(c6433.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) -end -function c6433.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6433.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - local tc=g:GetFirst() - local sg=Group.FromCards(e:GetHandler(),tc) - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) - sg:KeepAlive() - tc:RegisterFlagEffect(6433,RESET_EVENT+0x1fe0000,0,1) - e:GetHandler():RegisterFlagEffect(6433,RESET_EVENT+0x1fe0000,0,1) - local de=Effect.CreateEffect(e:GetHandler()) - de:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - de:SetCode(EVENT_PHASE+PHASE_END) - de:SetCountLimit(1) - de:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - de:SetLabel(0) - de:SetLabelObject(sg) - de:SetCondition(c6433.descon) - de:SetOperation(c6433.desop) - Duel.RegisterEffect(de,tp) - if Duel.GetOperatedGroup():FilterCount(Card.IsLocation,nil,LOCATION_MZONE)==2 then - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end - end - end -end - -function c6433.descon(e,tp,eg,ep,ev,re,r,rp) - local tg=e:GetLabelObject() - local b=false - local tc=tg:GetFirst() - while tc and not b do - b=tc:GetFlagEffect(6433)==0 - tc=tg:GetNext() - end - return Duel.GetTurnCount()~=e:GetLabel() and not b -end -function c6433.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c64332231.lua b/script/c64332231.lua index 688ce3f7..78e7d7b5 100644 --- a/script/c64332231.lua +++ b/script/c64332231.lua @@ -21,18 +21,18 @@ function c64332231.descost(e,tp,eg,ep,ev,re,r,rp,chk) end function c64332231.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.CheckReleaseGroupEx(tp,Card.IsReleasableByEffect,1,nil) - and Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c64332231.desop(e,tp,eg,ep,ev,re,r,rp) - local ct1=Duel.GetMatchingGroupCount(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + local ct1=Duel.GetMatchingGroupCount(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) local rg=Duel.SelectReleaseGroupEx(tp,Card.IsReleasableByEffect,1,ct1,nil) local ct2=Duel.Release(rg,REASON_EFFECT) if ct2==0 then return end Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local dg=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,ct2,ct2,nil) + local dg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,ct2,ct2,nil) Duel.HintSelection(dg) Duel.Destroy(dg,REASON_EFFECT) end diff --git a/script/c64335805.lua b/script/c64335805.lua deleted file mode 100644 index 93bdab85..00000000 --- a/script/c64335805.lua +++ /dev/null @@ -1,26 +0,0 @@ ---レッドアイズ·ブラックメタルドラゴン -function c64335805.initial_effect(c) - --spsummon proc - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND+LOCATION_DECK) - e1:SetCondition(c64335805.spcon) - e1:SetOperation(c64335805.spop) - c:RegisterEffect(e1) -end -function c64335805.spfilter(c) - return c:IsCode(74677422) and c:GetEquipGroup():IsExists(Card.IsCode,1,nil,68540058) -end -function c64335805.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.CheckReleaseGroup(tp,c64335805.spfilter,1,nil) -end -function c64335805.spop(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectReleaseGroup(tp,c64335805.spfilter,1,1,nil) - Duel.Release(g,REASON_COST) - Duel.ShuffleDeck(tp) -end diff --git a/script/c6434.lua b/script/c6434.lua deleted file mode 100755 index af57a913..00000000 --- a/script/c6434.lua +++ /dev/null @@ -1,101 +0,0 @@ ---Scripted by Eerie Code ---PSYFrame Lord Zeta -function c6434.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --Banish - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6434,0)) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetRange(LOCATION_MZONE) - e1:SetHintTiming(TIMING_SPSUMMON,TIMING_SPSUMMON) - e1:SetCountLimit(1) - e1:SetTarget(c6434.rmtg) - e1:SetOperation(c6434.rmop) - c:RegisterEffect(e1) - --To Hand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6434,1)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCost(c6434.thcost) - e2:SetTarget(c6434.thtg) - e2:SetOperation(c6434.thop) - c:RegisterEffect(e2) -end - -function c6434.rmfil(c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL and c:IsFaceup() and c:IsPosition(POS_FACEUP_ATTACK) and c:IsAbleToRemove() -end -function c6434.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c6434.rmfil(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6434.rmfil,tp,0,LOCATION_MZONE,1,nil) and e:GetHandler():IsAbleToRemove() end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c6434.rmfil,tp,0,LOCATION_MZONE,1,1,nil) -end -function c6434.rmop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if not c:IsRelateToEffect(e) or not tc:IsRelateToEffect(e) then return end - local g=Group.FromCards(c,tc) - if Duel.Remove(g,0,REASON_EFFECT+REASON_TEMPORARY)~=0 then - local og=Duel.GetOperatedGroup() - local oc=og:GetFirst() - while oc do - oc:RegisterFlagEffect(6434,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - oc=og:GetNext() - end - og:KeepAlive() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN) - e1:SetCountLimit(1) - e1:SetCondition(c6434.retcon) - e1:SetLabelObject(og) - e1:SetOperation(c6434.retop) - Duel.RegisterEffect(e1,tp) - end -end -function c6434.retfilter(c) - return c:GetFlagEffect(6434)~=0 -end -function c6434.retcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c6434.retop(e,tp,eg,ep,ev,re,r,rp) - local sg=e:GetLabelObject() - local tc=sg:GetFirst() - while tc do - Duel.ReturnToField(tc) - tc=sg:GetNext() - end -end - -function c6434.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToExtraAsCost() end - Duel.SendtoDeck(e:GetHandler(),nil,0,REASON_COST) -end -function c6434.thfil(c) - return c:IsSetCard(0xd3) and c:IsAbleToHand() -end -function c6434.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6434.thfil(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6434.thfil,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c6434.thfil,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c6434.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end \ No newline at end of file diff --git a/script/c6435.lua b/script/c6435.lua deleted file mode 100755 index 1949c9af..00000000 --- a/script/c6435.lua +++ /dev/null @@ -1,136 +0,0 @@ ---Scripted by Eerie Code ---PSYFrame Lord Omega -function c6435.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --Banish - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6435,0)) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_MZONE) - e1:SetHintTiming(TIMING_MAIN_END,TIMING_MAIN_END) - e1:SetCountLimit(1) - e1:SetCondition(c6435.rmcon) - e1:SetTarget(c6435.rmtg) - e1:SetOperation(c6435.rmop) - c:RegisterEffect(e1) - --To Grave - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6435,1)) - e3:SetCategory(CATEGORY_TOGRAVE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_PHASE+PHASE_STANDBY) - e3:SetCountLimit(1) - e3:SetCondition(c6435.tgcon) --- e3:SetCost(c6435.tgcost) - e3:SetTarget(c6435.tgtg) - e3:SetOperation(c6435.tgop) - c:RegisterEffect(e3) - --To Hand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6435,2)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetTarget(c6435.thtg) - e2:SetOperation(c6435.thop) - c:RegisterEffect(e2) -end - -function c6435.rmcon(e,tp,eg,ep,ev,re,r,rp) - local ph=Duel.GetCurrentPhase() - return ph==PHASE_MAIN1 or ph==PHASE_MAIN2 and Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 -end -function c6435.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local pre=e:GetHandler():GetPreviousControler() - Duel.SetTargetPlayer(1-pre) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-pre,LOCATION_HAND) -end -function c6435.rmop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetFieldGroup(p,LOCATION_HAND,0) - if g:GetCount()==0 then return end - local sg=g:RandomSelect(p,1) - local tc=sg:GetFirst() - local rg=Group.FromCards(c,tc) - Duel.Remove(rg,0,REASON_EFFECT+REASON_TEMPORARY) - rg:KeepAlive() - tc:RegisterFlagEffect(6435,RESET_EVENT+0x1fe0000,0,0) - c:RegisterFlagEffect(6435,RESET_EVENT+0x1fe0000,0,0) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN) - e1:SetCountLimit(1) - e1:SetLabelObject(rg) - e1:SetCondition(c6435.retcon) - e1:SetOperation(c6435.retop) - Duel.RegisterEffect(e1,tp) -end -function c6435.retcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c6435.retop(e,tp,eg,ep,ev,re,r,rp) - local tg=e:GetLabelObject() - local tc=tg:GetFirst() - while tc do - if tc==e:GetHandler() then - Duel.ReturnToField(tc) - else - Duel.SendtoHand(tc,nil,REASON_EFFECT) - end - tc=tg:GetNext() - end - e:Reset() -end - -function c6435.tgcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c6435.tgcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,6436)==0 end - Duel.RegisterFlagEffect(tp,6436,RESET_PHASE+PHASE_END,0,1) -end -function c6435.tgfilter(c) - return c:IsFaceup() -end -function c6435.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_REMOVED) and c6435.tgfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6435.tgfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectTarget(tp,c6435.tgfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0) -end -function c6435.tgop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoGrave(tc,REASON_EFFECT+REASON_RETURN) - end -end - -function c6435.thfil(c) - return c:IsAbleToDeck() -end -function c6435.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c6435.thfil(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6435.thfil,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,e:GetHandler()) and e:GetHandler():IsAbleToDeck() end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c6435.thfil,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c6435.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoDeck(e:GetHandler(),nil,1,REASON_EFFECT) - Duel.SendtoDeck(tc,nil,1,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end \ No newline at end of file diff --git a/script/c6436.lua b/script/c6436.lua deleted file mode 100755 index 5a9a52fe..00000000 --- a/script/c6436.lua +++ /dev/null @@ -1,105 +0,0 @@ ---Scripted by Eerie Code ---PSYFrame Circuit -function c6436.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Synchro Summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6436,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c6436.syncon) - e2:SetTarget(c6436.syntg) - e2:SetOperation(c6436.synop) - c:RegisterEffect(e2) - --ATK Change - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6436,1)) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BATTLE_START) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c6436.atkcon) - e3:SetCost(c6436.atkcost) - e3:SetOperation(c6436.atkop) - c:RegisterEffect(e3) -end - -function c6436.sumfilter(c,tp) - return c:IsFaceup() and c:IsSetCard(0xd3) and c:IsControler(tp) -end -function c6436.syncon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c6436.sumfilter,1,nil,tp) -end -function c6436.mfilter(c) - return c:IsSetCard(0xd3) -end -function c6436.syntg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local mg=Duel.GetMatchingGroup(c6436.mfilter,tp,LOCATION_MZONE,0,nil) - return Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,nil,mg) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c6436.synop(e,tp,eg,ep,ev,re,r,rp) - local mg=Duel.GetMatchingGroup(c6436.mfilter,tp,LOCATION_MZONE,0,nil) - local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,nil,mg) - if g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:Select(tp,1,1,nil) - Duel.SynchroSummon(tp,sg:GetFirst(),nil,mg) - end -end - -function c6436.atkcon(e,tp,eg,ep,ev,re,r,rp) - --local tc=Duel.GetAttacker() - --local bc=Duel.GetAttackTarget() - --if not bc then return false end - --if tc:IsControler(1-tp) then --- e:SetLabelObject(bc) --- return bc:IsFaceup() and bc:IsSetCard(0xd3) --- else --- e:SetLabelObject(tc) --- return tc:IsFaceup() and tc:IsSetCard(0xd3) --- end - local c=Duel.GetAttackTarget() - if not c then return false end - if c:IsControler(1-tp) then c=Duel.GetAttacker() end - e:SetLabelObject(c) - return c and c:IsSetCard(0xd3) and c:IsRelateToBattle() -end -function c6436.cfilter(c) - return c:IsSetCard(0xd3) and c:IsType(TYPE_MONSTER) and c:IsDiscardable() -end -function c6436.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6436.cfilter,tp,LOCATION_HAND,0,1,nil) end - local dg=Duel.SelectMatchingCard(tp,c6436.cfilter,tp,LOCATION_HAND,0,1,1,nil) - e:SetLabel(dg:GetFirst():GetAttack()) - Duel.SendtoGrave(dg,REASON_COST+REASON_DISCARD) -end ---function c6436.atktg(e,tp,eg,ep,ev,re,r,rp,chk) --- if chk==0 then return Duel.IsExistingMatchingCard(c6436.cfilter,tp,LOCATION_HAND,0,1,nil) end ---end -function c6436.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=e:GetLabelObject() - if c:IsFacedown() or not tc:IsFaceup() or not c:IsRelateToEffect(e)then return end - --local dg=Duel.SelectMatchingCard(tp,c6436.cfilter,tp,LOCATION_HAND,0,1,1,nil) - --local dc=Duel.SendtoGrave(dg,REASON_COST+REASON_DISCARD) - --dg:KeepAlive() - local atk=e:GetLabel() - if atk and atk>0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(atk) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c6437.lua b/script/c6437.lua deleted file mode 100755 index 216028ff..00000000 --- a/script/c6437.lua +++ /dev/null @@ -1,98 +0,0 @@ ---Scripted by Eerie Code ---PSYFrame Overload -function c6437.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1c0) - e1:SetTarget(c6437.target) - e1:SetOperation(c6437.rmop) - c:RegisterEffect(e1) - --Banish - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6437,1)) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c6437.rmcost) - e2:SetTarget(c6437.rmtg) - e2:SetOperation(c6437.rmop) - c:RegisterEffect(e2) - --To hand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6437,2)) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetRange(LOCATION_GRAVE) - e3:SetCondition(c6437.thcon) - e3:SetCost(c6437.thcost) - e3:SetTarget(c6437.thtg) - e3:SetOperation(c6437.thop) - c:RegisterEffect(e3) -end - -function c6437.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end - if chk==0 then return true end - if Duel.IsExistingMatchingCard(c6437.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) and Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(6437,0)) then - e:SetProperty(EFFECT_FLAG_CARD_TARGET) - local g=Duel.SelectMatchingCard(tp,c6437.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) - e:GetHandler():RegisterFlagEffect(6437,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - else e:SetProperty(0) end -end - -function c6437.cfilter(c) - local b=true - if c:IsLocation(LOCATION_MZONE) then b=c:IsFaceup() end - return c:IsSetCard(0xd3) and c:IsType(TYPE_MONSTER) and b and c:IsAbleToRemoveAsCost() -end -function c6437.rmcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6437.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c6437.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c6437.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsAbleToRemove() end - if chk==0 then return e:GetHandler():GetFlagEffect(6437)==0 and Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) - e:GetHandler():RegisterFlagEffect(6437,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c6437.rmop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT) - end -end - -function c6437.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetTurnID()~=Duel.GetTurnCount() -end -function c6437.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c6437.thfilter(c) - return c:IsSetCard(0xd3) and not c:IsCode(6437) and c:IsAbleToHand() -end -function c6437.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6437.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6437.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6437.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c64379261.lua b/script/c64379261.lua index 30f588e5..81006801 100644 --- a/script/c64379261.lua +++ b/script/c64379261.lua @@ -21,7 +21,10 @@ function c64379261.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c64379261.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c64379430.lua b/script/c64379430.lua index 7b150851..db11c6e7 100644 --- a/script/c64379430.lua +++ b/script/c64379430.lua @@ -11,7 +11,7 @@ function c64379430.initial_effect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) e2:SetValue(c64379430.value) c:RegisterEffect(e2) --return diff --git a/script/c6438.lua b/script/c6438.lua deleted file mode 100755 index e7d2136d..00000000 --- a/script/c6438.lua +++ /dev/null @@ -1,59 +0,0 @@ ---Scripted by Eerie Code ---Goyo Chaser -function c6438.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --ATK Gain - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(c6438.atkval) - c:RegisterEffect(e1) - --Special Summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6438,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCondition(c6438.spcon) - e2:SetTarget(c6438.sptg) - e2:SetOperation(c6438.spop) - c:RegisterEffect(e2) -end - -function c6438.atkfil(c) - return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_EARTH) -end -function c6438.atkval(e,c) - return Duel.GetMatchingGroupCount(c6438.atkfil,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,c)*300 -end - -function c6438.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and c:IsFaceup() and bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER) -end -function c6438.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local bc=e:GetHandler():GetBattleTarget() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and bc:IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetTargetCard(bc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,LOCATION_GRAVE) -end -function c6438.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local atk=tc:GetAttack() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetValue(atk/2) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1,true) - Duel.SpecialSummonComplete() - end -end \ No newline at end of file diff --git a/script/c6439.lua b/script/c6439.lua deleted file mode 100755 index 3ebe71c5..00000000 --- a/script/c6439.lua +++ /dev/null @@ -1,89 +0,0 @@ ---Scripted by Eerie Code ---Hot Red Dragon Archfiend Abyss -function c6439.initial_effect(c) - --Synchro Summon - aux.AddSynchroProcedure2(c,nil,aux.NonTuner(c6439.synfil)) - c:EnableReviveLimit() - --Negate Effect - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6439,0)) - e1:SetCategory(CATEGORY_DISABLE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1c0) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,6439) - e1:SetTarget(c6439.negtg) - e1:SetOperation(c6439.negop) - c:RegisterEffect(e1) - --Special Summon Tuner - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_BATTLE_DAMAGE) - e2:SetCountLimit(1,6440) - e2:SetCondition(c6439.spcon) - e2:SetTarget(c6439.sptg) - e2:SetOperation(c6439.spop) - c:RegisterEffect(e2) -end - -function c6439.synfil(c) - return c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON) -end - -function c6439.negtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and aux.disfilter1(chkc) end - if chk==0 then return Duel.IsExistingTarget(aux.disfilter1,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,aux.disfilter1,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) -end -function c6439.negop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and not tc:IsDisabled() and tc:IsRelateToEffect(e) then - Duel.NegateRelatedChain(tc,RESET_TURN_SET) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetValue(RESET_TURN_SET) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e2) - if tc:IsType(TYPE_TRAPMONSTER) then - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DISABLE_TRAPMONSTER) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e3) - end - end -end - -function c6439.spcon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c6439.spfil(c,e,tp) - return c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c6439.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6439.spfil(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c6439.spfil,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c6439.spfil,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) -end -function c6439.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end \ No newline at end of file diff --git a/script/c64398890.lua b/script/c64398890.lua index 21fd3c4f..9479bfbd 100644 --- a/script/c64398890.lua +++ b/script/c64398890.lua @@ -39,7 +39,7 @@ function c64398890.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RegisterEffect(e1) end function c64398890.desfilter(c) - return c:IsDestructable() and c:IsFacedown() + return c:IsFacedown() end function c64398890.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and c64398890.desfilter(chkc) end diff --git a/script/c6440.lua b/script/c6440.lua deleted file mode 100644 index 3ebe71c5..00000000 --- a/script/c6440.lua +++ /dev/null @@ -1,89 +0,0 @@ ---Scripted by Eerie Code ---Hot Red Dragon Archfiend Abyss -function c6439.initial_effect(c) - --Synchro Summon - aux.AddSynchroProcedure2(c,nil,aux.NonTuner(c6439.synfil)) - c:EnableReviveLimit() - --Negate Effect - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6439,0)) - e1:SetCategory(CATEGORY_DISABLE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1c0) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,6439) - e1:SetTarget(c6439.negtg) - e1:SetOperation(c6439.negop) - c:RegisterEffect(e1) - --Special Summon Tuner - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_BATTLE_DAMAGE) - e2:SetCountLimit(1,6440) - e2:SetCondition(c6439.spcon) - e2:SetTarget(c6439.sptg) - e2:SetOperation(c6439.spop) - c:RegisterEffect(e2) -end - -function c6439.synfil(c) - return c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON) -end - -function c6439.negtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and aux.disfilter1(chkc) end - if chk==0 then return Duel.IsExistingTarget(aux.disfilter1,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,aux.disfilter1,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) -end -function c6439.negop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and not tc:IsDisabled() and tc:IsRelateToEffect(e) then - Duel.NegateRelatedChain(tc,RESET_TURN_SET) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetValue(RESET_TURN_SET) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e2) - if tc:IsType(TYPE_TRAPMONSTER) then - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DISABLE_TRAPMONSTER) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e3) - end - end -end - -function c6439.spcon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c6439.spfil(c,e,tp) - return c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c6439.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6439.spfil(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c6439.spfil,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c6439.spfil,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) -end -function c6439.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end \ No newline at end of file diff --git a/script/c6441.lua b/script/c6441.lua deleted file mode 100755 index e29911a0..00000000 --- a/script/c6441.lua +++ /dev/null @@ -1,82 +0,0 @@ ---Scripted by Eerie Code ---Hot Red Dragon Archfiend Belial -function c6441.initial_effect(c) - --Synchro Summon - aux.AddSynchroProcedure2(c,nil,aux.NonTuner(c6441.synfil)) - c:EnableReviveLimit() - --Special Summon Red Daemon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6441,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,6441) - e1:SetCost(c6441.spcost) - e1:SetTarget(c6441.sptg1) - e1:SetOperation(c6441.spop1) - c:RegisterEffect(e1) - --Special Summon Resonators - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetCode(EVENT_BATTLE_DAMAGE) - e2:SetCountLimit(1,6442) - e2:SetCondition(c6441.spcon) - e2:SetTarget(c6441.sptg2) - e2:SetOperation(c6441.spop2) - c:RegisterEffect(e2) -end - -function c6441.synfil(c) - return c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON) -end - -function c6441.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsReleasable,1,nil) end - local g=Duel.SelectReleaseGroup(tp,Card.IsReleasable,1,1,nil) - Duel.Release(g,REASON_COST) -end -function c6441.spfilter1(c,e,tp) - return c:IsSetCard(0x1045) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6441.sptg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6441.spfilter1(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 and - Duel.IsExistingTarget(c6441.spfilter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c6441.spfilter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c6441.spop1(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end - -function c6441.spcon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c6441.spfil1(c,e,tp) - return c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(c6441.spfil2,tp,LOCATION_GRAVE,0,1,nil,e,tp,c:GetLevel()) -end -function c6441.spfil2(c,e,tp,lv) - return c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:GetLevel()==lv and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c6441.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c6441.spfil1,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_GRAVE+LOCATION_DECK) -end -function c6441.spop2(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g1=Duel.SelectMatchingCard(tp,c6441.spfil1,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g1:GetCount()>0 then - local tc=g1:GetFirst() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g2=Duel.SelectMatchingCard(tp,c6441.spfil2,tp,LOCATION_GRAVE,0,1,1,tc,e,tp,tc:GetLevel()) - g1:Merge(g2) - Duel.SpecialSummon(g1,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end \ No newline at end of file diff --git a/script/c64414267.lua b/script/c64414267.lua new file mode 100644 index 00000000..e950f65a --- /dev/null +++ b/script/c64414267.lua @@ -0,0 +1,90 @@ +--煉獄の騎士 ヴァトライムス +function c64414267.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x9c),4,2) + c:EnableReviveLimit() + --attribute + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CHANGE_ATTRIBUTE) + e1:SetRange(LOCATION_MZONE) + e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e1:SetValue(ATTRIBUTE_DARK) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(64414267,0)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(c64414267.spcon1) + e2:SetCost(c64414267.spcost) + e2:SetTarget(c64414267.sptg) + e2:SetOperation(c64414267.spop) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetCondition(c64414267.spcon2) + c:RegisterEffect(e3) +end +function c64414267.cfilter(c) + return c:IsSetCard(0x9c) and c:IsType(TYPE_MONSTER) +end +function c64414267.spcon1(e,tp,eg,ep,ev,re,r,rp) + local ct=Duel.GetMatchingGroup(c64414267.cfilter,tp,LOCATION_GRAVE,0,nil) + return ct:GetClassCount(Card.GetCode)<7 +end +function c64414267.spcon2(e,tp,eg,ep,ev,re,r,rp) + local ct=Duel.GetMatchingGroup(c64414267.cfilter,tp,LOCATION_GRAVE,0,nil) + return ct:GetClassCount(Card.GetCode)>=7 +end +function c64414267.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_COST) + and Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) + and c:GetFlagEffect(64414267)==0 end + c:RemoveOverlayCard(tp,1,1,REASON_COST) + Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) + c:RegisterFlagEffect(64414267,RESET_CHAIN,0,1) +end +function c64414267.spfilter(c,e,tp,mc) + return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsSetCard(0x9c) and mc:IsCanBeXyzMaterial(c) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) +end +function c64414267.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c64414267.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,e:GetHandler()) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c64414267.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if Duel.GetLocationCount(tp,LOCATION_MZONE)>=0 then + if c:IsFaceup() and c:IsRelateToEffect(e) and c:IsControler(tp) and not c:IsImmuneToEffect(e) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c64414267.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,c) + local sc=g:GetFirst() + if sc then + local mg=c:GetOverlayGroup() + if mg:GetCount()~=0 then + Duel.Overlay(sc,mg) + end + sc:SetMaterial(Group.FromCards(c)) + Duel.Overlay(sc,Group.FromCards(c)) + Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) + sc:CompleteProcedure() + end + end + end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetTarget(c64414267.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c64414267.splimit(e,c,sump,sumtype,sumpos,targetp,se) + return bit.band(sumtype,SUMMON_TYPE_XYZ)==SUMMON_TYPE_XYZ +end diff --git a/script/c6442944.lua b/script/c6442944.lua index 23147dce..09af8c3e 100644 --- a/script/c6442944.lua +++ b/script/c6442944.lua @@ -38,7 +38,6 @@ function c6442944.spcon(e,tp,eg,ep,ev,re,r,rp) end function c6442944.spfilter(c,e,tp) return c:IsRace(RACE_SEASERPENT) and c:GetLevel()==8 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c6442944.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -50,7 +49,7 @@ function c6442944.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c6442944.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) local tc=g:GetFirst() - if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK_FINAL) @@ -58,7 +57,7 @@ function c6442944.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1,true) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) tc:RegisterEffect(e2,true) Duel.SpecialSummonComplete() end diff --git a/script/c6445.lua b/script/c6445.lua deleted file mode 100755 index 41e1ff0a..00000000 --- a/script/c6445.lua +++ /dev/null @@ -1,47 +0,0 @@ ---Scripted by Eerie Code ---Goyo Predator -function c6445.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --Special Summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6445,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCountLimit(1,6445) - e2:SetCondition(c6445.spcon) - e2:SetTarget(c6445.sptg) - e2:SetOperation(c6445.spop) - c:RegisterEffect(e2) -end - -function c6445.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and c:IsFaceup() and bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER) -end -function c6445.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local bc=e:GetHandler():GetBattleTarget() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and bc:IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetTargetCard(bc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,LOCATION_GRAVE) -end -function c6445.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - local atk=tc:GetAttack() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e3:SetOperation(c6445.rdop) - tc:RegisterEffect(e3,true) - Duel.SpecialSummonComplete() - end -end -function c6445.rdop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,ev/2) -end \ No newline at end of file diff --git a/script/c64450427.lua b/script/c64450427.lua new file mode 100644 index 00000000..f831016b --- /dev/null +++ b/script/c64450427.lua @@ -0,0 +1,45 @@ +--EMウィム・ウィッチ +function c64450427.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(64450427,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1,64450427) + e1:SetCondition(c64450427.spcon) + e1:SetTarget(c64450427.sptg) + e1:SetOperation(c64450427.spop) + c:RegisterEffect(e1) + --double tribute + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DOUBLE_TRIBUTE) + e2:SetValue(c64450427.dtcon) + c:RegisterEffect(e2) +end +function c64450427.cfilter(c) + return c:GetSummonLocation()==LOCATION_EXTRA +end +function c64450427.spcon(e,tp,eg,ep,ev,re,r,rp) + return not Duel.IsExistingMatchingCard(c64450427.cfilter,tp,LOCATION_MZONE,0,1,nil) + and Duel.IsExistingMatchingCard(c64450427.cfilter,tp,0,LOCATION_MZONE,1,nil) +end +function c64450427.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c64450427.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c64450427.dtcon(e,c) + return c:IsType(TYPE_PENDULUM) +end diff --git a/script/c64496451.lua b/script/c64496451.lua index 4ec0ca57..07eb0c3f 100644 --- a/script/c64496451.lua +++ b/script/c64496451.lua @@ -6,10 +6,9 @@ function c64496451.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetRange(LOCATION_PZONE) e2:SetTargetRange(1,0) - e2:SetCondition(aux.nfbdncon) e2:SetTarget(c64496451.splimit) c:RegisterEffect(e2) --atk up @@ -127,11 +126,13 @@ function c64496451.spfilter(c,e,tp) return c:IsSetCard(0xaa) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c64496451.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c64496451.spfilter,tp,LOCATION_DECK,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c64496451.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local c=e:GetHandler() local fid=c:GetFieldID() diff --git a/script/c64500000.lua b/script/c64500000.lua index ab7bbec4..50bcf12b 100644 --- a/script/c64500000.lua +++ b/script/c64500000.lua @@ -16,7 +16,6 @@ function c64500000.initial_effect(c) e2:SetCategory(CATEGORY_SPECIAL_SUMMON) e2:SetType(EFFECT_TYPE_IGNITION) e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c64500000.uncon) e2:SetTarget(c64500000.sptg) e2:SetOperation(c64500000.spop) c:RegisterEffect(e2) @@ -25,21 +24,18 @@ function c64500000.initial_effect(c) e3:SetType(EFFECT_TYPE_EQUIP) e3:SetCode(EFFECT_UPDATE_ATTACK) e3:SetValue(600) - e3:SetCondition(c64500000.uncon) c:RegisterEffect(e3) --Def up local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) e4:SetValue(600) - e4:SetCondition(c64500000.uncon) c:RegisterEffect(e4) --destroy sub local e5=Effect.CreateEffect(c) e5:SetType(EFFECT_TYPE_EQUIP) e5:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) e5:SetCode(EFFECT_DESTROY_SUBSTITUTE) - e5:SetCondition(c64500000.uncon) e5:SetValue(c64500000.repval) c:RegisterEffect(e5) --eqlimit @@ -50,19 +46,14 @@ function c64500000.initial_effect(c) e6:SetValue(c64500000.eqlimit) c:RegisterEffect(e6) end -function c64500000.uncon(e) - return e:GetHandler():IsStatus(STATUS_UNION) -end function c64500000.repval(e,re,r,rp) - return bit.band(r,REASON_BATTLE)~=0 + return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 end function c64500000.eqlimit(e,c) - local code=c:GetCode() - return code==62651957 or code==65622692 + return c:IsCode(62651957,65622692) or e:GetHandler():GetEquipTarget()==c end function c64500000.filter(c) - local code=c:GetCode() - return c:IsFaceup() and (code==62651957 or code==65622692) and c:GetUnionCount()==0 + return c:IsFaceup() and c:IsCode(62651957,65622692) end function c64500000.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c64500000.filter(chkc) end @@ -92,7 +83,9 @@ function c64500000.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c64500000.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c64514622.lua b/script/c64514622.lua index 01bb6923..7799f727 100644 --- a/script/c64514622.lua +++ b/script/c64514622.lua @@ -18,8 +18,7 @@ function c64514622.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c64514622.filter(c,e,tp) - return c:IsSetCard(0x69) and c:GetCode()~=64514622 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x69) and not c:IsCode(64514622) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c64514622.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 @@ -30,7 +29,7 @@ function c64514622.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c64514622.filter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c64550682.lua b/script/c64550682.lua index 53739fd8..00a0eec5 100644 --- a/script/c64550682.lua +++ b/script/c64550682.lua @@ -45,7 +45,7 @@ function c64550682.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 end function c64550682.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0x24) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x24) end function c64550682.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c64550682.desfilter(chkc) end diff --git a/script/c6459419.lua b/script/c6459419.lua index 54ae3c58..69ba0a71 100644 --- a/script/c6459419.lua +++ b/script/c6459419.lua @@ -10,10 +10,10 @@ function c6459419.initial_effect(c) c:RegisterEffect(e1) end function c6459419.dfilter(c) - return c:IsFaceup() and c:IsSetCard(0x4) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x4) end function c6459419.spfilter(c,e,tp) - return c:IsLevelBelow(4) and c:IsSetCard(0x4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsLevelBelow(4) and c:IsSetCard(0x4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c6459419.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c6459419.dfilter,tp,LOCATION_MZONE,0,1,nil) end @@ -24,13 +24,15 @@ function c6459419.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c6459419.dfilter,tp,LOCATION_MZONE,0,nil) local ct=Duel.Destroy(g,REASON_EFFECT) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ct==0 or ft<=0 then return end if ft>ct then ft=ct end + if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local sg=Duel.GetMatchingGroup(c6459419.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp) if sg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(6459419,0)) then Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local fg=sg:Select(tp,ft,ft,nil) - Duel.SpecialSummon(fg,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + if fg:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end + Duel.SpecialSummon(fg,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c64599569.lua b/script/c64599569.lua index 8bb4ea58..9058696d 100644 --- a/script/c64599569.lua +++ b/script/c64599569.lua @@ -31,26 +31,12 @@ function c64599569.sucop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) c:RegisterEffect(e2) local e3=e1:Clone() - e3:SetCode(EFFECT_EXTRA_ATTACK) + e3:SetCode(EFFECT_EXTRA_ATTACK_MONSTER) e3:SetValue(c:GetMaterialCount()-1) c:RegisterEffect(e3) - local e4=e1:Clone() - e4:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e4:SetCondition(c64599569.dircon) - c:RegisterEffect(e4) - local e5=e1:Clone() - e5:SetCode(EFFECT_CANNOT_ATTACK) - e5:SetCondition(c64599569.atkcon) - c:RegisterEffect(e5) -end -function c64599569.dircon(e) - return e:GetHandler():GetAttackAnnouncedCount()>0 -end -function c64599569.atkcon(e) - return e:GetHandler():IsDirectAttacked() end function c64599569.tgop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,0,e:GetHandler()) diff --git a/script/c64605089.lua b/script/c64605089.lua index 2b1bffe2..7655a06d 100644 --- a/script/c64605089.lua +++ b/script/c64605089.lua @@ -26,17 +26,21 @@ function c64605089.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) - if Duel.GetAttacker():GetAttack()0 - and at:IsFaceup() and at:IsRelateToBattle() and at:GetAttack()0 then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) - e2:SetCode(EFFECT_SET_ATTACK) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetValue(atk) - tc:RegisterEffect(e2) - end - if def>0 then - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) - e3:SetCode(EFFECT_SET_DEFENCE) - e3:SetReset(RESET_EVENT+0x1fe0000) - e3:SetValue(def) - tc:RegisterEffect(e3) - end - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_DESTROY_SUBSTITUTE) - e4:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e4:SetReset(RESET_EVENT+0x1fe0000) - e4:SetValue(c64631466.repval) - tc:RegisterEffect(e4) + --substitute + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_EQUIP) + e2:SetCode(EFFECT_DESTROY_SUBSTITUTE) + e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e2:SetReset(RESET_EVENT+0x1fe0000) + e2:SetValue(c64631466.repval) + tc:RegisterEffect(e2) else Duel.SendtoGrave(tc,REASON_EFFECT) end end end @@ -99,3 +97,25 @@ end function c64631466.damop(e,tp,eg,ep,ev,re,r,rp) Duel.Damage(1-tp,ev,REASON_EFFECT) end +function c64631466.adcon(e,tp,eg,ep,ev,re,r,rp) + local ec=e:GetLabelObject():GetLabelObject() + return ec and ec:GetFlagEffect(64631466)~=0 +end +function c64631466.atkval(e,c) + local ec=e:GetLabelObject():GetLabelObject() + local atk=ec:GetTextAttack() + if ec:IsFacedown() or bit.band(ec:GetOriginalType(),TYPE_MONSTER)==0 or atk<0 then + return 0 + else + return atk + end +end +function c64631466.defval(e,c) + local ec=e:GetLabelObject():GetLabelObject() + local def=ec:GetTextDefense() + if ec:IsFacedown() or bit.band(ec:GetOriginalType(),TYPE_MONSTER)==0 or def<0 then + return 0 + else + return def + end +end diff --git a/script/c64662453.lua b/script/c64662453.lua old mode 100755 new mode 100644 diff --git a/script/c64681432.lua b/script/c64681432.lua index 1d60a4bc..bf786a1c 100644 --- a/script/c64681432.lua +++ b/script/c64681432.lua @@ -1,84 +1,85 @@ ---破壊竜ガンドラ -function c64681432.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c64681432.tgreg1) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - e3:SetOperation(c64681432.tgreg2) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(64681432,0)) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_MZONE) - e4:SetCost(c64681432.descost) - e4:SetTarget(c64681432.destg) - e4:SetOperation(c64681432.desop) - c:RegisterEffect(e4) - --to grave - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e5:SetDescription(aux.Stringid(64681432,1)) - e5:SetCategory(CATEGORY_TOGRAVE) - e5:SetCode(EVENT_PHASE+PHASE_END) - e5:SetRange(LOCATION_MZONE) - e5:SetCountLimit(1) - e5:SetCondition(c64681432.tgcon) - e5:SetTarget(c64681432.tgtg) - e5:SetOperation(c64681432.tgop) - c:RegisterEffect(e5) -end -function c64681432.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2)) -end -function c64681432.destg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c64681432.desop(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - local ct=Duel.Destroy(sg,REASON_EFFECT,LOCATION_REMOVED) - if ct>0 then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) - e1:SetValue(ct*300) - e1:SetReset(RESET_EVENT+0x1ff0000) - e:GetHandler():RegisterEffect(e1) - end -end -function c64681432.tgreg1(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():RegisterFlagEffect(64681432,RESET_EVENT+0x1ec0000+RESET_PHASE+PHASE_END,0,1) -end -function c64681432.tgreg2(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():RegisterFlagEffect(64681432,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) -end -function c64681432.tgcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(64681432)~=0 -end -function c64681432.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) -end -function c64681432.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoGrave(c,REASON_EFFECT) - end -end +--破壊竜ガンドラ +function c64681432.initial_effect(c) + --cannot special summon + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e1) + --summon,flip + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetOperation(c64681432.tgreg1) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) + e3:SetOperation(c64681432.tgreg2) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(64681432,0)) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_MZONE) + e4:SetCost(c64681432.descost) + e4:SetTarget(c64681432.destg) + e4:SetOperation(c64681432.desop) + c:RegisterEffect(e4) + --to grave + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e5:SetDescription(aux.Stringid(64681432,1)) + e5:SetCategory(CATEGORY_TOGRAVE) + e5:SetCode(EVENT_PHASE+PHASE_END) + e5:SetRange(LOCATION_MZONE) + e5:SetCountLimit(1) + e5:SetCondition(c64681432.tgcon) + e5:SetTarget(c64681432.tgtg) + e5:SetOperation(c64681432.tgop) + c:RegisterEffect(e5) +end +function c64681432.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2)) +end +function c64681432.destg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end + local sg=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) +end +function c64681432.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local sg=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) + local ct=Duel.Destroy(sg,REASON_EFFECT,LOCATION_REMOVED) + if ct>0 and c:IsFaceup() and c:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) + e1:SetValue(ct*300) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + end +end +function c64681432.tgreg1(e,tp,eg,ep,ev,re,r,rp) + e:GetHandler():RegisterFlagEffect(64681432,RESET_EVENT+0x1ec0000+RESET_PHASE+PHASE_END,0,1) +end +function c64681432.tgreg2(e,tp,eg,ep,ev,re,r,rp) + e:GetHandler():RegisterFlagEffect(64681432,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) +end +function c64681432.tgcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(64681432)~=0 +end +function c64681432.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) +end +function c64681432.tgop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and c:IsFaceup() then + Duel.SendtoGrave(c,REASON_EFFECT) + end +end diff --git a/script/c64726269.lua b/script/c64726269.lua index fb4e0555..660489d3 100644 --- a/script/c64726269.lua +++ b/script/c64726269.lua @@ -27,7 +27,7 @@ function c64726269.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) end function c64726269.tdfilter(c) - return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToDeck() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToDeck() end function c64726269.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end @@ -41,6 +41,7 @@ function c64726269.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) local tg=sg:Select(tp,1,1,nil) Duel.HintSelection(tg) + if tg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) end end @@ -52,9 +53,10 @@ function c64726269.effop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local rc=c:GetReasonCard() local e1=Effect.CreateEffect(rc) + e1:SetDescription(aux.Stringid(64726269,2)) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CLIENT_HINT) e1:SetRange(LOCATION_MZONE) e1:SetCountLimit(1) e1:SetCondition(c64726269.drcon) diff --git a/script/c64765016.lua b/script/c64765016.lua index bf9922dc..8e19ca31 100644 --- a/script/c64765016.lua +++ b/script/c64765016.lua @@ -47,17 +47,10 @@ end function c64765016.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() - if c:IsRelateToEffect(e) - and Duel.IsPlayerCanSpecialSummonMonster(tp,64765016,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then - c:SetStatus(STATUS_NO_LEVEL,false) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(TYPE_NORMAL+TYPE_MONSTER) - e1:SetReset(RESET_EVENT+0x47c0000) - c:RegisterEffect(e1,true) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,64765016,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then + c:AddMonsterAttribute(TYPE_NORMAL) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_IMMUNE_EFFECT) @@ -73,6 +66,7 @@ function c64765016.spop(e,tp,eg,ep,ev,re,r,rp) e3:SetReset(RESET_EVENT+0x47e0000) e3:SetValue(LOCATION_REMOVED) c:RegisterEffect(e3,true) + Duel.SpecialSummonComplete() end end function c64765016.efilter(e,re) diff --git a/script/c64815084.lua b/script/c64815084.lua index 6fcb7134..75258691 100644 --- a/script/c64815084.lua +++ b/script/c64815084.lua @@ -12,7 +12,7 @@ function c64815084.initial_effect(c) c:RegisterEffect(e1) end function c64815084.filter(c) - return c:IsFaceup() and c:IsRace(RACE_REPTILE) and c:IsDestructable() + return c:IsFaceup() and c:IsRace(RACE_REPTILE) end function c64815084.spfilter(c,e,tp) return c:IsSetCard(0x304e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) @@ -31,7 +31,7 @@ function c64815084.activate(e,tp,eg,ep,ev,re,r,rp) if tc:IsFaceup() and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c64815084.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,g) end end diff --git a/script/c64880894.lua b/script/c64880894.lua new file mode 100644 index 00000000..b04d2e76 --- /dev/null +++ b/script/c64880894.lua @@ -0,0 +1,40 @@ +--スターダスト・チャージ・ウォリアー +function c64880894.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --draw + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(64880894,0)) + e1:SetCategory(CATEGORY_DRAW) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCountLimit(1,64880894) + e1:SetCondition(c64880894.drcon) + e1:SetTarget(c64880894.drtg) + e1:SetOperation(c64880894.drop) + c:RegisterEffect(e1) + --attack all + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_ATTACK_ALL) + e2:SetValue(c64880894.atkfilter) + c:RegisterEffect(e2) +end +function c64880894.drcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_SYNCHRO)==SUMMON_TYPE_SYNCHRO +end +function c64880894.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c64880894.drop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end +function c64880894.atkfilter(e,c) + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end diff --git a/script/c64910482.lua b/script/c64910482.lua index b45058c5..45abf1e5 100644 --- a/script/c64910482.lua +++ b/script/c64910482.lua @@ -62,7 +62,7 @@ function c64910482.regop(e,tp,eg,ep,ev,re,r,rp) end end function c64910482.filter(c) - return c:IsSetCard(0x27) and c:GetCode()~=64910482 and c:IsAbleToHand() + return c:IsSetCard(0x27) and c:GetCode()~=64910482 and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c64910482.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c64910482.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c64926005.lua b/script/c64926005.lua index f6e447e4..0a367932 100644 --- a/script/c64926005.lua +++ b/script/c64926005.lua @@ -13,7 +13,7 @@ function c64926005.initial_effect(c) end function c64926005.condition(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:IsPreviousPosition(POS_FACEUP_ATTACK) and c:IsPosition(POS_FACEUP_DEFENCE) + return c:IsPreviousPosition(POS_FACEUP_ATTACK) and c:IsPosition(POS_FACEUP_DEFENSE) end function c64926005.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c64973216.lua b/script/c64973216.lua deleted file mode 100644 index 3d913848..00000000 --- a/script/c64973216.lua +++ /dev/null @@ -1,59 +0,0 @@ ---Mischief of the Time Goddess -function c64973216.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetOperation(c64973216.activate) - c:RegisterEffect(e1) -end -function c64973216.activate(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_SKIP_TURN) - e1:SetTargetRange(0,1) - e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCode(EFFECT_SKIP_M2) - if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_STANDBY then - e2:SetCondition(c64973216.skipcon) - e2:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,2) - else - e2:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN) - end - Duel.RegisterEffect(e2,tp) - local e3=e2:Clone() - e3:SetCode(EFFECT_CANNOT_EP) - Duel.RegisterEffect(e3,tp) - local e4=e3:Clone() - e4:SetCode(EFFECT_CANNOT_BP) - Duel.RegisterEffect(e4,tp) - local e5=Effect.CreateEffect(e:GetHandler()) - e5:SetType(EFFECT_TYPE_FIELD) - e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e5:SetTargetRange(1,0) - e5:SetCode(EFFECT_SKIP_DP) - if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_BATTLE then - e5:SetCondition(c64973216.skipcon) - e5:SetLabel(Duel.GetTurnCount()) - e5:SetReset(RESET_PHASE+RESET_BATTLE+RESET_SELF_TURN,2) - else - e5:SetReset(RESET_PHASE+RESET_BATTLE+RESET_SELF_TURN) - end - Duel.RegisterEffect(e5,tp) - local e6=e5:Clone() - e6:SetCode(EFFECT_SKIP_SP) - Duel.RegisterEffect(e6,tp) - local e7=e6:Clone() - e7:SetCode(EFFECT_SKIP_M1) - Duel.RegisterEffect(e7,tp) -end -function c64973216.skipcon(e) - return Duel.GetTurnCount()~=e:GetLabel() -end diff --git a/script/c64990807.lua b/script/c64990807.lua index c4ecd183..c6e1cca5 100644 --- a/script/c64990807.lua +++ b/script/c64990807.lua @@ -33,12 +33,12 @@ function c64990807.spfilter(c,e,tp) return c:IsSetCard(0x2f) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c64990807.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) + if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c64990807.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) end diff --git a/script/c6500.lua b/script/c6500.lua deleted file mode 100755 index 69f50889..00000000 --- a/script/c6500.lua +++ /dev/null @@ -1,40 +0,0 @@ ---Sky Dragoons of Draconia -function c6500.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6500,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_DAMAGE) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetCondition(c6500.descon) - e2:SetTarget(c6500.destg) - e2:SetOperation(c6500.desop) - c:RegisterEffect(e2) -end - -function c6500.descon(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - return ep~=tp and tc:IsControler(tp) and tc:IsType(TYPE_NORMAL) and tc~=e:GetHandler() -end -function c6500.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c6500.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c65025250.lua b/script/c65025250.lua index 6fde4d61..2358d82d 100644 --- a/script/c65025250.lua +++ b/script/c65025250.lua @@ -11,7 +11,7 @@ function c65025250.initial_effect(c) e2:SetValue(c65025250.repval) e2:SetOperation(c65025250.repop) c:RegisterEffect(e2) - --to defence + --to defense local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(65025250,0)) e3:SetCategory(CATEGORY_POSITION) @@ -23,11 +23,12 @@ function c65025250.initial_effect(c) --cannot be target local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e4:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e4:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) e4:SetRange(LOCATION_MZONE) - e4:SetTargetRange(0,0xff) - e4:SetValue(c65025250.tgtg) + e4:SetTargetRange(LOCATION_MZONE,0) + e4:SetTarget(c65025250.tgtg) + e4:SetValue(aux.tgoval) c:RegisterEffect(e4) end function c65025250.filter(c,tp) @@ -51,9 +52,9 @@ end function c65025250.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsPosition(POS_FACEUP_ATTACK) and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end -function c65025250.tgtg(e,re,c) - return c~=e:GetHandler() and c:IsControler(e:GetHandlerPlayer()) and c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsSetCard(0xb3) +function c65025250.tgtg(e,c) + return c~=e:GetHandler() and c:IsSetCard(0xb3) end diff --git a/script/c65026212.lua b/script/c65026212.lua index cbcaf8f6..360ebc1f 100644 --- a/script/c65026212.lua +++ b/script/c65026212.lua @@ -42,6 +42,8 @@ function c65026212.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x1d) and c:IsAbleToGraveAsCost() end function c65026212.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c65026212.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c65026212.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -51,8 +53,10 @@ function c65026212.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(65026212,0),aux.Stringid(65026212,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(65026212,1),aux.Stringid(65026212,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(65026212,1),aux.Stringid(65026212,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(65026212,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -63,7 +67,7 @@ function c65026212.mtop(e,tp,eg,ep,ev,re,r,rp) local g=g2:Select(tp,1,1,nil) Duel.SendtoGrave(g,REASON_COST) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c65026212.spfilter(c) @@ -81,10 +85,10 @@ function c65026212.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c65026212.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c65026212.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c65029288.lua b/script/c65029288.lua new file mode 100644 index 00000000..337ec19a --- /dev/null +++ b/script/c65029288.lua @@ -0,0 +1,61 @@ +--EMオッドアイズ・メタル・クロウ +function c65029288.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x99),aux.FilterBoolFunction(Card.IsFusionSetCard,0x9f),true) + --cannot fusion material + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL) + e1:SetValue(1) + c:RegisterEffect(e1) + --indes + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetCondition(c65029288.immcon) + e2:SetOperation(c65029288.immop) + c:RegisterEffect(e2) + --atkup + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(65029288,1)) + e3:SetCategory(CATEGORY_ATKCHANGE) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetCode(EVENT_ATTACK_ANNOUNCE) + e3:SetOperation(c65029288.atkop) + c:RegisterEffect(e3) +end +function c65029288.immcon(e,tp,eg,ep,ev,re,r,rp) + return re and re:GetHandler():IsCode(24094653) and bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c65029288.immop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(65029288,0)) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CLIENT_HINT) + e1:SetCode(EFFECT_IMMUNE_EFFECT) + e1:SetRange(LOCATION_MZONE) + e1:SetValue(c65029288.efilter) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1) +end +function c65029288.efilter(e,te) + return te:GetOwner()~=e:GetOwner() +end +function c65029288.atkop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil) + local tc=g:GetFirst() + while tc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(300) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) + tc:RegisterEffect(e1) + tc=g:GetNext() + end +end diff --git a/script/c65079854.lua b/script/c65079854.lua index a7815665..c0b5bade 100644 --- a/script/c65079854.lua +++ b/script/c65079854.lua @@ -27,14 +27,16 @@ function c65079854.initial_effect(c) e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e4:SetValue(c65079854.eqlimit) c:RegisterEffect(e4) - --battle + --indes local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e5:SetType(EFFECT_TYPE_FIELD) + e5:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) e5:SetRange(LOCATION_SZONE) - e5:SetCode(EVENT_DAMAGE_CALCULATING) - e5:SetCondition(c65079854.indescon) - e5:SetOperation(c65079854.indesop) + e5:SetTargetRange(0,LOCATION_MZONE) + e5:SetTarget(c65079854.indestg) + e5:SetValue(1) c:RegisterEffect(e5) + --battle local e6=Effect.CreateEffect(c) e6:SetDescription(aux.Stringid(65079854,0)) e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) @@ -64,17 +66,8 @@ function c65079854.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Equip(tp,c,tc) end end -function c65079854.indescon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetEquipTarget():GetBattleTarget()~=nil -end -function c65079854.indesop(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetHandler():GetEquipTarget():GetBattleTarget() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - bc:RegisterEffect(e1,true) +function c65079854.indestg(e,c) + return c==e:GetHandler():GetEquipTarget():GetBattleTarget() end function c65079854.adcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetAttacker()==e:GetHandler():GetEquipTarget() and Duel.GetAttackTarget()~=nil @@ -89,6 +82,6 @@ function c65079854.adop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) bc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) bc:RegisterEffect(e2) end diff --git a/script/c6511113.lua b/script/c6511113.lua old mode 100755 new mode 100644 diff --git a/script/c65172015.lua b/script/c65172015.lua new file mode 100644 index 00000000..f396d767 --- /dev/null +++ b/script/c65172015.lua @@ -0,0 +1,155 @@ +--AtoZ−ドラゴン・バスターキャノン +function c65172015.initial_effect(c) + c:EnableReviveLimit() + aux.AddFusionProcCode2(c,1561110,91998119,true,true) + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(c65172015.splimit) + c:RegisterEffect(e1) + --special summon rule + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_EXTRA) + e2:SetCondition(c65172015.spcon) + e2:SetOperation(c65172015.spop) + c:RegisterEffect(e2) + --negate + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(65172015,0)) + e3:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_CHAINING) + e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c65172015.discon) + e3:SetCost(c65172015.discost) + e3:SetTarget(c65172015.distg) + e3:SetOperation(c65172015.disop) + c:RegisterEffect(e3) + --spsummon + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(65172015,1)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetType(EFFECT_TYPE_QUICK_O) + e4:SetCode(EVENT_FREE_CHAIN) + e4:SetRange(LOCATION_MZONE) + e4:SetHintTiming(0,0x1e0) + e4:SetCost(c65172015.spcost) + e4:SetTarget(c65172015.sptg) + e4:SetOperation(c65172015.spop2) + c:RegisterEffect(e4) +end +function c65172015.splimit(e,se,sp,st) + return not e:GetHandler():IsLocation(LOCATION_EXTRA) +end +function c65172015.spfilter(c,code) + return c:GetOriginalCode()==code and c:IsAbleToRemoveAsCost() +end +function c65172015.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<-1 then return false end + local g1=Duel.GetMatchingGroup(c65172015.spfilter,tp,LOCATION_ONFIELD,0,nil,1561110) + local g2=Duel.GetMatchingGroup(c65172015.spfilter,tp,LOCATION_ONFIELD,0,nil,91998119) + if g1:GetCount()==0 or g2:GetCount()==0 then return false end + if ft>0 then return true end + local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) + local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) + if ft==-1 then return f1>0 and f2>0 + else return f1>0 or f2>0 end +end +function c65172015.spop(e,tp,eg,ep,ev,re,r,rp,c) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local g1=Duel.GetMatchingGroup(c65172015.spfilter,tp,LOCATION_ONFIELD,0,nil,1561110) + local g2=Duel.GetMatchingGroup(c65172015.spfilter,tp,LOCATION_ONFIELD,0,nil,91998119) + g1:Merge(g2) + local g=Group.CreateGroup() + local tc=nil + for i=1,2 do + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + if ft<=0 then + tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() + ft=ft+1 + else + tc=g1:Select(tp,1,1,nil):GetFirst() + end + g:AddCard(tc) + if i==1 then + g1:Clear() + if tc:GetOriginalCode()==1561110 then + local sg=Duel.GetMatchingGroup(c65172015.spfilter,tp,LOCATION_ONFIELD,0,tc,91998119) + g1:Merge(sg) + end + if tc:GetOriginalCode()==91998119 then + local sg=Duel.GetMatchingGroup(c65172015.spfilter,tp,LOCATION_ONFIELD,0,tc,1561110) + g1:Merge(sg) + end + end + end + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c65172015.discon(e,tp,eg,ep,ev,re,r,rp) + return re:GetHandler()~=e:GetHandler() and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) + and (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev) +end +function c65172015.discost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) +end +function c65172015.distg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end +end +function c65172015.disop(e,tp,eg,ep,ev,re,r,rp) + if not Duel.NegateActivation(ev) then return end + if re:GetHandler():IsRelateToEffect(re) then + Duel.Destroy(eg,REASON_EFFECT) + end +end +function c65172015.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c65172015.spfilter2(c,e,tp) + return c:IsFaceup() and c:IsCode(1561110) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.IsExistingTarget(c65172015.spfilter3,tp,LOCATION_REMOVED,0,1,nil,e,tp) +end +function c65172015.spfilter3(c,e,tp) + return c:IsFaceup() and c:IsCode(91998119) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c65172015.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and Duel.IsExistingTarget(c65172015.spfilter2,tp,LOCATION_REMOVED,0,1,nil,e,tp) + and not Duel.IsPlayerAffectedByEffect(tp,59822133) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g1=Duel.SelectTarget(tp,c65172015.spfilter2,tp,LOCATION_REMOVED,0,1,1,nil,e,tp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g2=Duel.SelectTarget(tp,c65172015.spfilter3,tp,LOCATION_REMOVED,0,1,1,nil,e,tp) + g1:Merge(g2) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,2,tp,LOCATION_REMOVED) +end +function c65172015.spop2(e,tp,eg,ep,ev,re,r,rp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if ft<=0 or g:GetCount()==0 or (g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) then return end + if g:GetCount()<=ft then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg=g:Select(tp,ft,ft,nil) + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) + g:Sub(sg) + Duel.SendtoGrave(g,REASON_RULE) + end +end diff --git a/script/c65192027.lua b/script/c65192027.lua index 5ffda231..e97ad341 100644 --- a/script/c65192027.lua +++ b/script/c65192027.lua @@ -44,10 +44,10 @@ function c65192027.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c65192027.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c65192027.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c65196094.lua b/script/c65196094.lua index 8931ab7a..6ed7f2ee 100644 --- a/script/c65196094.lua +++ b/script/c65196094.lua @@ -41,26 +41,30 @@ end function c65196094.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local maxc=ft+1 + if maxc>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then maxc=1 end if chk==0 then if e:GetLabel()==0 then return false end e:SetLabel(0) - if ft<0 then return end + if maxc<=0 then return end local spg=Duel.GetMatchingGroup(c65196094.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp) - return Duel.IsExistingMatchingCard(c65196094.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp,spg,ft+1) + return Duel.IsExistingMatchingCard(c65196094.cfilter,tp,LOCATION_MZONE,0,1,nil,e,tp,spg,maxc) end e:SetLabel(0) local spg=Duel.GetMatchingGroup(c65196094.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local cg=Duel.SelectMatchingCard(tp,c65196094.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp,spg,ft+1) + local cg=Duel.SelectMatchingCard(tp,c65196094.cfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp,spg,maxc) local lv=cg:GetFirst():GetLevel() Duel.SendtoDeck(cg,nil,0,REASON_COST) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=spg:SelectWithSumEqual(tp,Card.GetLevel,lv,1,ft+1) + local sg=spg:SelectWithSumEqual(tp,Card.GetLevel,lv,1,maxc) Duel.SetTargetCard(sg) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg,sg:GetCount(),0,0) end function c65196094.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()==0 or g:GetCount()>Duel.GetLocationCount(tp,LOCATION_MZONE) then return end + local ct=g:GetCount() + if ct==0 or (ct>1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) + or ct>Duel.GetLocationCount(tp,LOCATION_MZONE) then return end Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end diff --git a/script/c65236257.lua b/script/c65236257.lua new file mode 100644 index 00000000..6d72d012 --- /dev/null +++ b/script/c65236257.lua @@ -0,0 +1,33 @@ +--創星の因子 +function c65236257.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMING_END_PHASE+TIMING_EQUIP) + e1:SetTarget(c65236257.target) + e1:SetOperation(c65236257.activate) + c:RegisterEffect(e1) +end +function c65236257.filter(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) +end +function c65236257.cfilter(c) + return c:IsSetCard(0x9c) and c:IsFaceup() +end +function c65236257.target(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + local ct=Duel.GetMatchingGroupCount(c65236257.cfilter,tp,LOCATION_ONFIELD,0,c) + if chk==0 then return ct>0 + and Duel.IsExistingMatchingCard(c65236257.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,ct,c) end + local g=Duel.GetMatchingGroup(c65236257.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,ct,0,0) +end +function c65236257.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local ct=Duel.GetMatchingGroupCount(c65236257.cfilter,tp,LOCATION_ONFIELD,0,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectMatchingCard(tp,c65236257.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,ct,ct,c) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c65240384.lua b/script/c65240384.lua index 9dfb752f..10bb917e 100644 --- a/script/c65240384.lua +++ b/script/c65240384.lua @@ -7,7 +7,7 @@ function c65240384.initial_effect(c) e1:SetOperation(c65240384.posop) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_F) + e2:SetType(EFFECT_TYPE_QUICK_F) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_SET_AVAILABLE) e2:SetRange(LOCATION_MZONE) @@ -17,7 +17,7 @@ function c65240384.initial_effect(c) end function c65240384.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c==Duel.GetAttackTarget() and c:IsDefencePos() and c:IsRelateToBattle() then + if c==Duel.GetAttackTarget() and c:IsDefensePos() and c:IsRelateToBattle() then Duel.ChangePosition(c,POS_FACEUP_ATTACK) end end @@ -30,7 +30,10 @@ function c65240384.negcon(e,tp,eg,ep,ev,re,r,rp) end end function c65240384.negop(e,tp,eg,ep,ev,re,r,rp) - if Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENCE) then + if Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENSE) then Duel.NegateActivation(ev) + if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then + Duel.SendtoGrave(eg,REASON_EFFECT) + end end end diff --git a/script/c65282484.lua b/script/c65282484.lua index 02350f58..725b5507 100644 --- a/script/c65282484.lua +++ b/script/c65282484.lua @@ -70,10 +70,10 @@ function c65282484.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 end function c65282484.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end + if chkc then return chkc:IsOnField() end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c65282484.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c65303664.lua b/script/c65303664.lua index 700cd9e7..545c7aa0 100644 --- a/script/c65303664.lua +++ b/script/c65303664.lua @@ -37,7 +37,9 @@ function c65303664.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c65303664.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c65305468.lua b/script/c65305468.lua old mode 100755 new mode 100644 index e330cd02..c509957b --- a/script/c65305468.lua +++ b/script/c65305468.lua @@ -44,12 +44,8 @@ function c65305468.initial_effect(c) e7:SetRange(LOCATION_MZONE) e7:SetTarget(c65305468.reptg) c:RegisterEffect(e7) - if not c65305468.xyz_filter then - c65305468.xyz_filter=function(mc) return mc:IsType(TYPE_XYZ) and not mc:IsSetCard(0x48) and mc:IsCanBeXyzMaterial(c) end - end end c65305468.xyz_number=0 -c65305468.xyz_count=2 function c65305468.mfilter(c,xyzc) return c:IsFaceup() and c:IsType(TYPE_XYZ) and not c:IsSetCard(0x48) and c:IsCanBeXyzMaterial(xyzc) end @@ -59,7 +55,7 @@ end function c65305468.xyzfilter2(c,rk) return c:GetRank()==rk end -function c65305468.xyzcon(e,c,og) +function c65305468.xyzcon(e,c,og,min,max) if c==nil then return true end local tp=c:GetControler() local mg=nil @@ -69,12 +65,13 @@ function c65305468.xyzcon(e,c,og) mg=Duel.GetMatchingGroup(c65305468.mfilter,tp,LOCATION_MZONE,0,nil,c) end return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and (not min or min<=2 and max>=2) and mg:IsExists(c65305468.xyzfilter1,1,nil,mg) end -function c65305468.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og) +function c65305468.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og,min,max) local g=nil local sg=Group.CreateGroup() - if og then + if og and not min then g=og local tc=og:GetFirst() while tc do @@ -82,7 +79,12 @@ function c65305468.xyzop(e,tp,eg,ep,ev,re,r,rp,c,og) tc=og:GetNext() end else - local mg=Duel.GetMatchingGroup(c65305468.mfilter,tp,LOCATION_MZONE,0,nil) + local mg=nil + if og then + mg=og:Filter(c65305468.mfilter,nil,c) + else + mg=Duel.GetMatchingGroup(c65305468.mfilter,tp,LOCATION_MZONE,0,nil,c) + end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) g=mg:FilterSelect(tp,c65305468.xyzfilter1,1,1,nil,mg) local tc1=g:GetFirst() @@ -104,10 +106,8 @@ function c65305468.cttg(e,tp,eg,ep,ev,re,r,rp,chk) end function c65305468.ctop(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetHandler():GetBattleTarget() - if tc:IsRelateToBattle() and not Duel.GetControl(tc,tp,PHASE_BATTLE,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToBattle() then + Duel.GetControl(tc,tp,PHASE_BATTLE,1) end end function c65305468.reptg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c65331686.lua b/script/c65331686.lua index 4cb59bbc..e15ceb6c 100644 --- a/script/c65331686.lua +++ b/script/c65331686.lua @@ -105,14 +105,5 @@ function c65331686.operation(e,tp,eg,ep,ev,re,r,rp) fop(ce,e,tp,tc,mat2) end tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end diff --git a/script/c65338781.lua b/script/c65338781.lua old mode 100755 new mode 100644 index 5cc14295..68940213 --- a/script/c65338781.lua +++ b/script/c65338781.lua @@ -1,7 +1,7 @@ --熟練の赤魔術士 function c65338781.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,3) + c:EnableCounterPermit(0x1) + c:SetCounterLimit(0x1,3) --add counter local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) @@ -39,16 +39,15 @@ function c65338781.initial_effect(c) end function c65338781.acop(e,tp,eg,ep,ev,re,r,rp) if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c65338781.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetCounter(0x3001)==3 and e:GetHandler():IsReleasable() end + if chk==0 then return e:GetHandler():GetCounter(0x1)==3 and e:GetHandler():IsReleasable() end Duel.Release(e:GetHandler(),REASON_COST) end function c65338781.filter(c,e,tp) return c:IsSetCard(0x45) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c65338781.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 @@ -59,7 +58,7 @@ function c65338781.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c65338781.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end @@ -68,18 +67,18 @@ function c65338781.ctcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) end function c65338781.ctfilter(c) - return c:IsFaceup() and c:IsCanAddCounter(0x3001,1) + return c:IsFaceup() and c:IsCanAddCounter(0x1,1) end function c65338781.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c65338781.ctfilter(chkc) end if chk==0 then return Duel.IsExistingTarget(c65338781.ctfilter,tp,LOCATION_ONFIELD,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(65338781,2)) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) Duel.SelectTarget(tp,c65338781.ctfilter,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x3001) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x1) end function c65338781.ctop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0x3001,1) + tc:AddCounter(0x1,1) end end diff --git a/script/c65384188.lua b/script/c65384188.lua index 995fb534..6f6e2105 100644 --- a/script/c65384188.lua +++ b/script/c65384188.lua @@ -46,7 +46,7 @@ function c65384188.activate(e,tp,eg,ep,ev,re,r,rp) tc2:RegisterEffect(e4) a=a+1 end - if tc1:IsDefencePos() or tc2:IsDefencePos() or a~=2 then return end + if tc1:IsDefensePos() or tc2:IsDefensePos() or a~=2 then return end Duel.BreakEffect() c65384188.reg(c,tc1,tc2) c65384188.reg(c,tc2,tc1) diff --git a/script/c65396880.lua b/script/c65396880.lua index 652d8f98..756ca21c 100644 --- a/script/c65396880.lua +++ b/script/c65396880.lua @@ -21,15 +21,15 @@ function c65396880.condition(e,tp,eg,ep,ev,re,r,rp) and Duel.IsExistingMatchingCard(c65396880.cfilter,tp,LOCATION_ONFIELD,0,1,nil,85936485) end function c65396880.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) or Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)~=0 end - local g1=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g1=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) local g2=Duel.GetFieldGroup(tp,0,LOCATION_HAND) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,g1:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g2,g2:GetCount(),0,0) end function c65396880.activate(e,tp,eg,ep,ev,re,r,rp) - local g1=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g1=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.Destroy(g1,REASON_EFFECT) local g2=Duel.GetFieldGroup(tp,0,LOCATION_HAND) Duel.SendtoGrave(g2,REASON_EFFECT) diff --git a/script/c65446452.lua b/script/c65446452.lua index 1586a0e1..384720ab 100644 --- a/script/c65446452.lua +++ b/script/c65446452.lua @@ -15,13 +15,13 @@ function c65446452.initial_effect(c) e2:SetValue(300) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) local e4=e2:Clone() e4:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xcd)) c:RegisterEffect(e4) local e5=e4:Clone() - e5:SetCode(EFFECT_UPDATE_DEFENCE) + e5:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e5) --spsummon local e6=Effect.CreateEffect(c) diff --git a/script/c65458948.lua b/script/c65458948.lua old mode 100755 new mode 100644 diff --git a/script/c65472618.lua b/script/c65472618.lua index b695ce29..8bdb103c 100644 --- a/script/c65472618.lua +++ b/script/c65472618.lua @@ -45,8 +45,8 @@ function c65472618.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) bc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetValue(bc:GetDefence()/2) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) + e2:SetValue(bc:GetDefense()/2) bc:RegisterEffect(e2) end end diff --git a/script/c65475294.lua b/script/c65475294.lua old mode 100755 new mode 100644 index 6b2bf721..1b76ae81 --- a/script/c65475294.lua +++ b/script/c65475294.lua @@ -20,6 +20,6 @@ function c65475294.costop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectReleaseGroup(tp,nil,1,1,c) Duel.Release(g,REASON_COST) else - Duel.Destroy(c,REASON_RULE) + Duel.Destroy(c,REASON_COST) end end diff --git a/script/c65496056.lua b/script/c65496056.lua index 09a0bbd3..529944e5 100644 --- a/script/c65496056.lua +++ b/script/c65496056.lua @@ -16,9 +16,9 @@ function c65496056.cfilter(c) return c:IsFaceup() and c:IsCode(22702055) and c:IsAbleToGraveAsCost() end function c65496056.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c65496056.cfilter,tp,LOCATION_SZONE,0,1,nil) end + if chk==0 then return Duel.IsExistingMatchingCard(c65496056.cfilter,tp,LOCATION_ONFIELD,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c65496056.cfilter,tp,LOCATION_SZONE,0,1,1,nil) + local g=Duel.SelectMatchingCard(tp,c65496056.cfilter,tp,LOCATION_ONFIELD,0,1,1,nil) Duel.SendtoGrave(g,REASON_COST) end function c65496056.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) diff --git a/script/c65503206.lua b/script/c65503206.lua index 4aeb8b7c..9cec1efa 100644 --- a/script/c65503206.lua +++ b/script/c65503206.lua @@ -37,7 +37,7 @@ function c65503206.initial_effect(c) c:RegisterEffect(e2) end function c65503206.regop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsDefencePos() and e:GetHandler():IsFaceup() then + if e:GetHandler():IsDefensePos() and e:GetHandler():IsFaceup() then e:GetHandler():RegisterFlagEffect(65503206,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE,0,1) end end diff --git a/script/c65518099.lua b/script/c65518099.lua index c6aab567..0d9ed165 100644 --- a/script/c65518099.lua +++ b/script/c65518099.lua @@ -6,10 +6,9 @@ function c65518099.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetRange(LOCATION_PZONE) e2:SetTargetRange(1,0) - e2:SetCondition(aux.nfbdncon) e2:SetTarget(c65518099.splimit) c:RegisterEffect(e2) --tohand diff --git a/script/c65536818.lua b/script/c65536818.lua new file mode 100644 index 00000000..c6593bee --- /dev/null +++ b/script/c65536818.lua @@ -0,0 +1,97 @@ +--源竜星－ボウテンコウ +function c65536818.initial_effect(c) + c:SetSPSummonOnce(65536818) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --search + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(65536818,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetTarget(c65536818.thtg) + e1:SetOperation(c65536818.thop) + c:RegisterEffect(e1) + --level + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(65536818,1)) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetCountLimit(1) + e2:SetRange(LOCATION_MZONE) + e2:SetCost(c65536818.lvcost) + e2:SetOperation(c65536818.lvop) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(65536818,2)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) + e3:SetCode(EVENT_LEAVE_FIELD) + e3:SetCondition(c65536818.spcon) + e3:SetTarget(c65536818.sptg) + e3:SetOperation(c65536818.spop) + c:RegisterEffect(e3) +end +function c65536818.thfilter(c) + return c:IsSetCard(0x9e) and c:IsAbleToHand() +end +function c65536818.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c65536818.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c65536818.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c65536818.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c65536818.costfilter(c,lv) + local clv=c:GetLevel() + return clv>0 and clv~=lv and c:IsRace(RACE_WYRM) and c:IsAbleToGraveAsCost() +end +function c65536818.lvcost(e,tp,eg,ep,ev,re,r,rp,chk) + local lv=e:GetHandler():GetLevel() + if chk==0 then return Duel.IsExistingMatchingCard(c65536818.costfilter,tp,LOCATION_DECK,0,1,nil,lv) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c65536818.costfilter,tp,LOCATION_DECK,0,1,1,nil,lv) + Duel.SendtoGrave(g,REASON_COST) + e:SetLabel(g:GetFirst():GetLevel()) +end +function c65536818.lvop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local lv=e:GetLabel() + if c:IsRelateToEffect(e) and c:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CHANGE_LEVEL) + e1:SetValue(lv) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + end +end +function c65536818.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousPosition(POS_FACEUP) and c:GetLocation()~=LOCATION_DECK +end +function c65536818.spfilter(c,e,tp) + return c:IsSetCard(0x9e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c65536818.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c65536818.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c65536818.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c65536818.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + local tc=g:GetFirst() + if tc then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c65612386.lua b/script/c65612386.lua new file mode 100644 index 00000000..5239660a --- /dev/null +++ b/script/c65612386.lua @@ -0,0 +1,43 @@ +--魔帝アングマール +function c65612386.initial_effect(c) + --search + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(65612386,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetCondition(c65612386.condition) + e1:SetCost(c65612386.cost) + e1:SetTarget(c65612386.target) + e1:SetOperation(c65612386.operation) + c:RegisterEffect(e1) +end +function c65612386.condition(e,tp,eg,ep,ev,re,r,rp) + return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE +end +function c65612386.cfilter(c,tp) + return c:IsType(TYPE_SPELL) and c:IsAbleToRemoveAsCost() + and Duel.IsExistingMatchingCard(c65612386.thfilter,tp,LOCATION_DECK,0,1,nil,c:GetCode()) +end +function c65612386.thfilter(c,code) + return c:IsCode(code) and c:IsAbleToHand() +end +function c65612386.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c65612386.cfilter,tp,LOCATION_GRAVE,0,1,nil,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c65612386.cfilter,tp,LOCATION_GRAVE,0,1,1,nil,tp) + e:SetLabel(g:GetFirst():GetCode()) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c65612386.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c65612386.operation(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c65612386.thfilter,tp,LOCATION_DECK,0,1,1,nil,e:GetLabel()) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c65622692.lua b/script/c65622692.lua index 83e3c061..6e7c2862 100644 --- a/script/c65622692.lua +++ b/script/c65622692.lua @@ -16,7 +16,6 @@ function c65622692.initial_effect(c) e2:SetCategory(CATEGORY_SPECIAL_SUMMON) e2:SetType(EFFECT_TYPE_IGNITION) e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c65622692.uncon) e2:SetTarget(c65622692.sptg) e2:SetOperation(c65622692.spop) c:RegisterEffect(e2) @@ -25,21 +24,18 @@ function c65622692.initial_effect(c) e3:SetType(EFFECT_TYPE_EQUIP) e3:SetCode(EFFECT_UPDATE_ATTACK) e3:SetValue(400) - e3:SetCondition(c65622692.uncon) c:RegisterEffect(e3) --Def up local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) e4:SetValue(400) - e4:SetCondition(c65622692.uncon) c:RegisterEffect(e4) --destroy sub local e5=Effect.CreateEffect(c) e5:SetType(EFFECT_TYPE_EQUIP) e5:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) e5:SetCode(EFFECT_DESTROY_SUBSTITUTE) - e5:SetCondition(c65622692.uncon) e5:SetValue(c65622692.repval) c:RegisterEffect(e5) --eqlimit @@ -50,17 +46,14 @@ function c65622692.initial_effect(c) e6:SetValue(c65622692.eqlimit) c:RegisterEffect(e6) end -function c65622692.uncon(e) - return e:GetHandler():IsStatus(STATUS_UNION) -end function c65622692.repval(e,re,r,rp) - return bit.band(r,REASON_BATTLE)~=0 + return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 end function c65622692.eqlimit(e,c) - return c:IsCode(62651957) + return c:IsCode(62651957) or e:GetHandler():GetEquipTarget()==c end function c65622692.filter(c) - return c:IsFaceup() and c:IsCode(62651957) and c:GetUnionCount()==0 + return c:IsFaceup() and c:IsCode(62651957) end function c65622692.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c65622692.filter(chkc) end @@ -90,7 +83,9 @@ function c65622692.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c65622692.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c65659181.lua b/script/c65659181.lua index 08a1adab..918e6350 100644 --- a/script/c65659181.lua +++ b/script/c65659181.lua @@ -18,18 +18,23 @@ function c65659181.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c65659181.filter,tp,LOCATION_SZONE,0,1,nil,e,tp) end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c65659181.filter,tp,LOCATION_SZONE,0,1,ft,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) end +function c65659181.spfilter(c,e,tp) + return c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end function c65659181.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsCanBeSpecialSummoned,nil,e,0,tp,false,false) + local sg=g:Filter(c65659181.spfilter,nil,e,tp) if sg:GetCount()<=ft then local tc=sg:GetFirst() while tc do - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) @@ -44,7 +49,7 @@ function c65659181.spop(e,tp,eg,ep,ev,re,r,rp) local fg=sg:Select(tp,ft,ft,nil) local tc=fg:GetFirst() while tc do - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) diff --git a/script/c65685470.lua b/script/c65685470.lua index 71930475..c80b90ea 100644 --- a/script/c65685470.lua +++ b/script/c65685470.lua @@ -30,7 +30,7 @@ function c65685470.initial_effect(c) --Def up local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) e4:SetValue(500) e4:SetCondition(c65685470.uncon) c:RegisterEffect(e4) @@ -99,8 +99,10 @@ function c65685470.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c65685470.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c65685470.drcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c65737274.lua b/script/c65737274.lua index 10973976..120cabcc 100644 --- a/script/c65737274.lua +++ b/script/c65737274.lua @@ -37,7 +37,7 @@ end function c65737274.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end function c65737274.cfilter(c,tp) diff --git a/script/c65743242.lua b/script/c65743242.lua old mode 100755 new mode 100644 diff --git a/script/c65749035.lua b/script/c65749035.lua index 7b09d827..87b2ace0 100644 --- a/script/c65749035.lua +++ b/script/c65749035.lua @@ -21,7 +21,7 @@ function c65749035.costfilter(c) end function c65749035.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c65749035.costfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end - local rt=Duel.GetTargetCount(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local rt=Duel.GetTargetCount(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) if rt>2 then rt=2 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) local cg=Duel.SelectMatchingCard(tp,c65749035.costfilter,tp,LOCATION_HAND,0,1,rt,nil) @@ -29,11 +29,11 @@ function c65749035.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:SetLabel(cg:GetCount()) end function c65749035.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end local ct=e:GetLabel() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local eg=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,ct,ct,nil) + local eg=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,ct,ct,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,ct,0,0) end function c65749035.operation(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c65758454.lua b/script/c65758454.lua index 7b164bba..eb22fa2f 100644 --- a/script/c65758454.lua +++ b/script/c65758454.lua @@ -12,7 +12,6 @@ function c65758454.initial_effect(c) end function c65758454.filter(c,e,tp) return c:IsCode(65758454) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c65758454.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -23,7 +22,7 @@ function c65758454.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c65758454.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c6581.lua b/script/c6581.lua deleted file mode 100755 index 1581056c..00000000 --- a/script/c6581.lua +++ /dev/null @@ -1,71 +0,0 @@ ---Scripted by Eerie Code ---Kozmo Farmgirl -function c6581.initial_effect(c) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6581,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,6581) - e1:SetCost(c6581.spcost) - e1:SetTarget(c6581.sptg) - e1:SetOperation(c6581.spop) - c:RegisterEffect(e1) - --Search - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6581,1)) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BATTLE_DAMAGE) - e3:SetCondition(c6581.thcon) - e3:SetCost(c6581.thcost) - e3:SetTarget(c6581.thtg) - e3:SetOperation(c6581.thop) - c:RegisterEffect(e3) -end - -function c6581.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c6581.filter(c,e,tp) - return c:IsLevelAbove(4) and c:IsSetCard(0xd2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6581.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c6581.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c6581.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6581.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 - -function c6581.thcon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c6581.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,500) end - Duel.PayLPCost(tp,500) -end -function c6581.filter(c) - return c:IsSetCard(0xd2) and c:IsAbleToHand() -end -function c6581.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6581.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6581.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6581.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c6582.lua b/script/c6582.lua deleted file mode 100755 index b0b0dc12..00000000 --- a/script/c6582.lua +++ /dev/null @@ -1,75 +0,0 @@ ---Scripted by Eerie Code ---Kozmo Forerunner -function c6582.initial_effect(c) - --Cannot be targeted - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(aux.tgoval) - c:RegisterEffect(e1) - --recover - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6582,0)) - e2:SetCategory(CATEGORY_RECOVER) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCondition(c6582.rlcondition) - e2:SetTarget(c6582.rltarget) - e2:SetOperation(c6582.rloperation) - c:RegisterEffect(e2) - --Special Summon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e3:SetCondition(c6582.spcon) - e3:SetCost(c6582.spcost) - e3:SetTarget(c6582.sptg) - e3:SetOperation(c6582.spop) - c:RegisterEffect(e3) -end - -function c6582.rlcondition(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() -end -function c6582.rltarget(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,1000) -end -function c6582.rloperation(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - Duel.Recover(p,1000,REASON_EFFECT) -end - -function c6582.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_BATTLE) - or c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp -end -function c6582.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c6582.filter(c,e,tp) - return c:IsLevelBelow(6) and c:IsSetCard(0xd2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6582.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c6582.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c6582.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6582.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c6583.lua b/script/c6583.lua deleted file mode 100755 index fd44ae8f..00000000 --- a/script/c6583.lua +++ /dev/null @@ -1,70 +0,0 @@ ---Scripted by Eerie Code ---Kozmo Goodwitch -function c6583.initial_effect(c) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6583,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,6583) - e1:SetCost(c6583.spcost) - e1:SetTarget(c6583.sptg) - e1:SetOperation(c6583.spop) - c:RegisterEffect(e1) - --pos - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6583,1)) - e2:SetCategory(CATEGORY_POSITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c6583.poscost) - e2:SetTarget(c6583.postg) - e2:SetOperation(c6583.posop) - c:RegisterEffect(e2) -end - -function c6583.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c6583.filter(c,e,tp) - return c:IsLevelAbove(5) and c:IsSetCard(0xd2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6583.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c6583.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c6583.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6583.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 - -function c6583.poscost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,500) end - Duel.PayLPCost(tp,500) -end -function c6583.posfilter(c) - return c:IsPosition(POS_FACEUP) and c:IsCanTurnSet() -end -function c6583.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c6583.posfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6583.posfilter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUPATTACK) - local g=Duel.SelectTarget(tp,c6583.posfilter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c6583.posop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) - end -end \ No newline at end of file diff --git a/script/c6584.lua b/script/c6584.lua deleted file mode 100755 index 1ea4f20f..00000000 --- a/script/c6584.lua +++ /dev/null @@ -1,70 +0,0 @@ ---Scripted by Eerie Code ---Kozmo Sliprider -function c6584.initial_effect(c) - --Destroy - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetTarget(c6584.destg) - e3:SetOperation(c6584.desop) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e4) - --Special Summon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c6584.spcon) - e2:SetCost(c6584.spcost) - e2:SetTarget(c6584.sptg) - e2:SetOperation(c6584.spop) - c:RegisterEffect(e2) -end - -function c6584.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c6584.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c6584.desfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6584.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c6584.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c6584.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end - -function c6584.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_BATTLE) - or c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp -end -function c6584.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c6584.filter(c,e,tp) - return c:IsLevelBelow(4) and c:IsSetCard(0xd2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6584.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c6584.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c6584.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6584.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c6585.lua b/script/c6585.lua deleted file mode 100755 index b29508c7..00000000 --- a/script/c6585.lua +++ /dev/null @@ -1,48 +0,0 @@ ---Scripted by Eerie Code ---Scheduled Extinction -function c6585.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetHintTiming(0,TIMING_MAIN_END) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c6585.condition) - e1:SetCost(c6585.cost) - e1:SetOperation(c6585.activate) - c:RegisterEffect(e1) -end - -function c6585.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2 -end -function c6585.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,2000) - else Duel.PayLPCost(tp,2000) end -end -function c6585.activate(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_PHASE+PHASE_BATTLE) - e1:SetCountLimit(1) - e1:SetLabel(0) - e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,4) - e1:SetTarget(c6585.tgtg) - e1:SetOperation(c6585.tgop) - Duel.RegisterEffect(e1,tp) -end -function c6585.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0) -end -function c6585.tgop(e,tp,eg,ep,ev,re,r,rp) - if ep~=e:GetOwnerPlayer() then return end - local ct=e:GetLabel()+1 - e:SetLabel(ct) - if e:GetLabel()==3 then - local g=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,LOCATION_ONFIELD) - Duel.SendtoGrave(g,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c6586.lua b/script/c6586.lua deleted file mode 100755 index 3f4c3099..00000000 --- a/script/c6586.lua +++ /dev/null @@ -1,103 +0,0 @@ ---Scripted by Eerie Code, fixed by Snarky ---Kozmotown -function c6586.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Salvage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6586,0)) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_FZONE) - e2:SetCountLimit(1) - e2:SetTarget(c6586.bhtg) - e2:SetOperation(c6586.bhop) - c:RegisterEffect(e2) - --Shuffle and Draw - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6586,1)) - e3:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetRange(LOCATION_FZONE) - e3:SetCountLimit(1) - e3:SetTarget(c6586.shtg) - e3:SetOperation(c6586.shop) - c:RegisterEffect(e3) - --Search - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(6586,2)) - e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e4:SetCode(EVENT_LEAVE_FIELD) - e4:SetCondition(c6586.thcon) - e4:SetTarget(c6586.thtg) - e4:SetOperation(c6586.thop) - c:RegisterEffect(e4) -end - -function c6586.bhfilter(c) - return c:IsFaceup() and c:IsSetCard(0xd2) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c6586.bhtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c6586.bhfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6586.bhfilter,tp,LOCATION_REMOVED,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c6586.bhfilter,tp,LOCATION_REMOVED,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c6586.bhop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - local lp=Duel.GetLP(tp) - Duel.SetLP(tp,lp-tc:GetLevel()*100) - end -end - -function c6586.shfil(c) - return c:IsSetCard(0xd2) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() and not c:IsPublic() -end -function c6586.shtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp) - and Duel.IsExistingMatchingCard(c6586.shfil,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND) -end -function c6586.shop(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK) - local g=Duel.SelectMatchingCard(p,c6586.shfil,p,LOCATION_HAND,0,1,63,nil) - if g:GetCount()>0 then - Duel.ConfirmCards(1-p,g) - local ct=Duel.SendtoDeck(g,nil,2,REASON_EFFECT) - Duel.ShuffleDeck(p) - Duel.BreakEffect() - Duel.Draw(p,ct,REASON_EFFECT) - end -end - -function c6586.thcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetReason(),0x41)==0x41 -end -function c6586.thfilter(c) - return c:IsSetCard(0xd2) and c:IsAbleToHand() -end -function c6586.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6586.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6586.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6586.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c65872270.lua b/script/c65872270.lua index b1ab8e17..fbcf6aa5 100644 --- a/script/c65872270.lua +++ b/script/c65872270.lua @@ -43,7 +43,7 @@ function c65872270.descon(e,tp,eg,ep,ev,re,r,rp) and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) end function c65872270.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0xc8) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0xc8) end function c65872270.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c65872270.desfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) diff --git a/script/c65878864.lua b/script/c65878864.lua index 17c8512b..98d04e9d 100644 --- a/script/c65878864.lua +++ b/script/c65878864.lua @@ -10,11 +10,11 @@ function c65878864.initial_effect(c) c:RegisterEffect(e1) end function c65878864.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end if chk==0 then return true end - if Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,2,nil) then + if Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,2,nil) then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,2,2,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,2,2,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end end diff --git a/script/c65959844.lua b/script/c65959844.lua new file mode 100644 index 00000000..fe2b4d0a --- /dev/null +++ b/script/c65959844.lua @@ -0,0 +1,87 @@ +--化合電界 +function c65959844.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --decrease tribute + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(65959844,0)) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SUMMON_PROC) + e2:SetRange(LOCATION_FZONE) + e2:SetTargetRange(LOCATION_HAND,0) + e2:SetCountLimit(1) + e2:SetCondition(c65959844.ntcon) + e2:SetTarget(c65959844.nttg) + c:RegisterEffect(e2) + --extra summon + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_EXTRA_SUMMON_COUNT) + e3:SetRange(LOCATION_FZONE) + e3:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0) + e3:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_DUAL)) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(65959844,1)) + e4:SetCategory(CATEGORY_REMOVE+CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetRange(LOCATION_FZONE) + e4:SetCountLimit(1) + e4:SetTarget(c65959844.destg) + e4:SetOperation(c65959844.desop) + c:RegisterEffect(e4) +end +function c65959844.ntcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 +end +function c65959844.nttg(e,c) + return c:IsLevelAbove(5) and c:IsType(TYPE_DUAL) +end +function c65959844.rmfilter(c) + return c:IsDualState() and c:IsAbleToRemove() +end +function c65959844.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingMatchingCard(c65959844.rmfilter,tp,LOCATION_MZONE,0,1,nil) + and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_MZONE) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c65959844.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c65959844.rmfilter,tp,LOCATION_MZONE,0,1,1,nil) + local rc=g:GetFirst() + if rc and Duel.Remove(rc,0,REASON_EFFECT+REASON_TEMPORARY)~=0 and rc:IsLocation(LOCATION_REMOVED) then + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end + rc:RegisterFlagEffect(65959844,RESET_PHASE+PHASE_END+RESET_OPPO_TURN,0,1) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_PHASE+PHASE_END) + e1:SetCountLimit(1) + e1:SetLabelObject(rc) + e1:SetCondition(c65959844.retcon) + e1:SetOperation(c65959844.retop) + e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN) + Duel.RegisterEffect(e1,tp) + end +end +function c65959844.retcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==1-tp and e:GetLabelObject():GetFlagEffect(65959844)~=0 +end +function c65959844.retop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + Duel.ReturnToField(tc) +end diff --git a/script/c65961683.lua b/script/c65961683.lua index 2c2f2e82..d82e369d 100644 --- a/script/c65961683.lua +++ b/script/c65961683.lua @@ -39,12 +39,12 @@ function c65961683.valop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e2) end function c65961683.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsPosition(POS_FACEDOWN_DEFENCE) + return e:GetHandler()==Duel.GetAttacker() and d and d:IsPosition(POS_FACEDOWN_DEFENSE) end function c65961683.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetAttackTarget():IsDestructable() end diff --git a/script/c6601.lua b/script/c6601.lua deleted file mode 100644 index c594cca0..00000000 --- a/script/c6601.lua +++ /dev/null @@ -1,37 +0,0 @@ ---Performapal Secondonkey -function c6601.initial_effect(c) - --To Grave - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6601,0)) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetTarget(c6601.target) - e1:SetOperation(c6601.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) -end - -function c6601.filter(c) - return c:IsSetCard(0x9f) and c:IsType(TYPE_MONSTER) and not c:IsCode(6601) and c:IsAbleToGrave() -end -function c6601.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6601.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c6601.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c6601.filter,tp,LOCATION_DECK,0,1,1,nil) - local tc=g:GetFirst() - if tc then - if Duel.GetFieldCard(tp,LOCATION_SZONE,6) and Duel.GetFieldCard(tp,LOCATION_SZONE,7) and tc:IsAbleToHand() and Duel.SelectYesNo(tp,aux.Stringid(6601,1)) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - else - Duel.SendtoGrave(tc,REASON_EFFECT) - end - end -end \ No newline at end of file diff --git a/script/c6603.lua b/script/c6603.lua deleted file mode 100644 index cab6643c..00000000 --- a/script/c6603.lua +++ /dev/null @@ -1,36 +0,0 @@ ---Scripted by Eerie Code ---Performapal Helprincess -function c6603.initial_effect(c) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6603,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetRange(LOCATION_HAND) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCondition(c6603.spcon) - e1:SetTarget(c6603.sptg) - e1:SetOperation(c6603.spop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) -end - -function c6603.cfilter(c,tp) - return c:IsFaceup() and c:IsControler(tp) and c:IsSetCard(0x9f) and not c:IsCode(6603) -end -function c6603.spcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c6603.cfilter,1,nil,tp) -end -function c6603.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c6603.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c66066482.lua b/script/c66066482.lua index a09f9f43..d75c3447 100644 --- a/script/c66066482.lua +++ b/script/c66066482.lua @@ -23,7 +23,7 @@ function c66066482.initial_effect(c) c:RegisterEffect(e3) local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) e4:SetValue(100) c:RegisterEffect(e4) --confirm @@ -39,7 +39,7 @@ function c66066482.initial_effect(c) c:RegisterEffect(e3) end function c66066482.filter(c) - return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsForbidden() end function c66066482.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 @@ -53,7 +53,7 @@ function c66066482.eqop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectMatchingCard(tp,c66066482.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil) local tc=g:GetFirst() - if tc then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then if not Duel.Equip(tp,tc,c,true) then return end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c66084673.lua b/script/c66084673.lua index 37a491de..f7b9db5a 100644 --- a/script/c66084673.lua +++ b/script/c66084673.lua @@ -4,7 +4,7 @@ function c66084673.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(66084673,0)) e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetRange(LOCATION_MZONE) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetCondition(c66084673.atkcon) diff --git a/script/c66094973.lua b/script/c66094973.lua index 2aec0bb0..ea3fcef8 100644 --- a/script/c66094973.lua +++ b/script/c66094973.lua @@ -12,7 +12,7 @@ function c66094973.initial_effect(c) e1:SetTarget(c66094973.eqtg) e1:SetOperation(c66094973.eqop) c:RegisterEffect(e1) - --to defence + --to defense local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -39,7 +39,7 @@ function c66094973.eqcon(e,tp,eg,ep,ev,re,r,rp) return not e:GetHandler():IsHasEffect(66094973) end function c66094973.filter(c) - return c:IsPosition(POS_FACEUP_DEFENCE) and c:IsAbleToChangeControler() + return c:IsPosition(POS_FACEUP_DEFENSE) and c:IsAbleToChangeControler() end function c66094973.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c66094973.filter(chkc) end @@ -96,7 +96,7 @@ end function c66094973.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c66094973.spcon(e,tp,eg,ep,ev,re,r,rp) @@ -111,7 +111,7 @@ end function c66094973.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummon(tp) then - if Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE)==0 then + if Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE)==0 then Duel.SendtoGrave(tc,REASON_EFFECT) end end diff --git a/script/c66127916.lua b/script/c66127916.lua index 843ecd6f..cf015eae 100644 --- a/script/c66127916.lua +++ b/script/c66127916.lua @@ -14,7 +14,7 @@ function c66127916.filter1(c,tp) return c.material and Duel.IsExistingMatchingCard(c66127916.filter2,tp,LOCATION_DECK,0,1,nil,c) end function c66127916.filter2(c,fc) - if c:IsHasEffect(EFFECT_FORBIDDEN) or not c:IsAbleToHand() then return false end + if c:IsForbidden() or not c:IsAbleToHand() then return false end return c:IsCode(table.unpack(fc.material)) end function c66127916.target(e,tp,eg,ep,ev,re,r,rp,chk) @@ -22,7 +22,7 @@ function c66127916.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) end function c66127916.filter3(c) - return c:IsCode(24094653) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(24094653) and c:IsAbleToHand() end function c66127916.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) @@ -39,6 +39,7 @@ function c66127916.activate(e,tp,eg,ep,ev,re,r,rp) Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local sg=tg:Select(tp,1,1,nil) + if sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SendtoHand(sg,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,sg) end diff --git a/script/c6614.lua b/script/c6614.lua deleted file mode 100644 index 48aacc9a..00000000 --- a/script/c6614.lua +++ /dev/null @@ -1,90 +0,0 @@ ---Scripted by Eerie Code ---Raidraptor - Skull Eagle -function c6614.initial_effect(c) - --Recover - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6614,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCountLimit(1,6614) - e1:SetCondition(c6614.thcon) - e1:SetCost(c6614.thcost) - e1:SetTarget(c6614.thtg) - e1:SetOperation(c6614.thop) - c:RegisterEffect(e1) - --Effect Gain - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_BE_MATERIAL) - e2:SetCondition(c6614.efcon) - e2:SetOperation(c6614.efop) - c:RegisterEffect(e2) -end - -function c6614.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_COST) and re:IsHasType(0x7e0) and re:IsActiveType(TYPE_MONSTER) - and bit.band(c:GetPreviousLocation(),LOCATION_OVERLAY)~=0 -end -function c6614.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c6614.thfilter(c) - return c:IsSetCard(0xba) and c:IsAbleToHand() -end -function c6614.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6614.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6614.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c6614.thfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c6614.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end - -function c6614.efcon(e,tp,eg,ep,ev,re,r,rp) - return r==REASON_XYZ -end -function c6614.efop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local rc=c:GetReasonCard() - local e1=Effect.CreateEffect(rc) - e1:SetDescription(aux.Stringid(6614,1)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c6614.atkcon) - e1:SetOperation(c6614.atkop) - e1:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e1,true) - if not rc:IsType(TYPE_EFFECT) then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_ADD_TYPE) - e2:SetValue(TYPE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e2,true) - end -end -function c6614.atkcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ -end -function c6614.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(300) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c66141736.lua b/script/c66141736.lua new file mode 100644 index 00000000..72c7072b --- /dev/null +++ b/script/c66141736.lua @@ -0,0 +1,90 @@ +--レッド・ライジング・ドラゴン +function c66141736.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_FIEND),aux.NonTuner(nil),1) + c:EnableReviveLimit() + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(66141736,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCondition(c66141736.spcon) + e1:SetCost(c66141736.spcost) + e1:SetTarget(c66141736.sptg) + e1:SetOperation(c66141736.spop) + c:RegisterEffect(e1) + --spsummon (grave) + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(66141736,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCondition(aux.exccon) + e2:SetCost(c66141736.spcost2) + e2:SetTarget(c66141736.sptg2) + e2:SetOperation(c66141736.spop2) + c:RegisterEffect(e2) + Duel.AddCustomActivityCounter(66141736,ACTIVITY_SPSUMMON,c66141736.counterfilter) +end +function c66141736.counterfilter(c) + return c:GetSummonLocation()~=LOCATION_EXTRA or (c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON)) +end +function c66141736.spcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO +end +function c66141736.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetCustomActivityCount(66141736,tp,ACTIVITY_SPSUMMON)==0 end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) + e1:SetTargetRange(1,0) + e1:SetTarget(c66141736.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c66141736.splimit(e,c,sump,sumtype,sumpos,targetp,se) + return not (c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_DRAGON)) and c:IsLocation(LOCATION_EXTRA) +end +function c66141736.spfilter(c,e,tp) + return c:IsSetCard(0x57) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c66141736.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c66141736.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c66141736.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c66141736.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c66141736.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end +function c66141736.spcost2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c66141736.spfilter2(c,e,tp) + return c:IsSetCard(0x57) and c:GetLevel()==1 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c66141736.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c66141736.spfilter2(chkc,e,tp) end + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and Duel.IsExistingTarget(c66141736.spfilter2,tp,LOCATION_GRAVE,0,2,e:GetHandler(),e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c66141736.spfilter2,tp,LOCATION_GRAVE,0,2,2,e:GetHandler(),e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) +end +function c66141736.spop2(e,tp,eg,ep,ev,re,r,rp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if ft<2 or g:GetCount()~=2 or Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) +end diff --git a/script/c6614221.lua b/script/c6614221.lua old mode 100755 new mode 100644 diff --git a/script/c6616.lua b/script/c6616.lua deleted file mode 100644 index d43f264b..00000000 --- a/script/c6616.lua +++ /dev/null @@ -1,78 +0,0 @@ ---Scripted by Eerie Code ---Performage Higurumi -function c6616.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --spsummon (P.Zone) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6616,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_DESTROYED) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1,6616) - e2:SetCondition(c6616.dmcon) - e2:SetTarget(c6616.dmtg) - e2:SetOperation(c6616.dmop) - c:RegisterEffect(e2) - --Special Summon (M.Zone) - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6616,1)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_DESTROYED) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c6616.spcon) - e3:SetTarget(c6616.sptg) - e3:SetOperation(c6616.spop) - c:RegisterEffect(e3) -end - -function c6616.dmfil(c,tp) - return c:IsReason(REASON_BATTLE+REASON_EFFECT) - and c:IsSetCard(0xc6) - and c:GetPreviousControler()==tp - and c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousPosition(POS_FACEUP) -end -function c6616.dmcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c6616.dmfil,1,nil,tp) -end -function c6616.dmtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c6616.dmop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - Duel.Damage(tp,500,REASON_EFFECT) - end -end - -function c6616.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) -end -function c6616.spfilter(c,e,tp) - return c:IsSetCard(0xc6) and not c:IsCode(6616) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6616.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c6616.spfilter,tp,LOCATION_DECK+LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND) -end -function c6616.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6616.spfilter,tp,LOCATION_DECK+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 \ No newline at end of file diff --git a/script/c66165755.lua b/script/c66165755.lua index a251e97f..57d27d69 100644 --- a/script/c66165755.lua +++ b/script/c66165755.lua @@ -39,7 +39,7 @@ function c66165755.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK) e1:SetValue(tc:GetTextAttack()*2) - e1:SetReset(RESET_EVENT+0xfe0000) + e1:SetReset(RESET_EVENT+0xfe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c66171432.lua b/script/c66171432.lua new file mode 100644 index 00000000..7ac095d1 --- /dev/null +++ b/script/c66171432.lua @@ -0,0 +1,101 @@ +--超こいこい +function c66171432.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(66171432,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,66171432+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c66171432.target) + e1:SetOperation(c66171432.activate) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(66171432,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCost(c66171432.spcost) + e2:SetTarget(c66171432.sptg) + e2:SetOperation(c66171432.spop) + c:RegisterEffect(e2) +end +function c66171432.filter(c,e,tp) + return c:IsSetCard(0xe6) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) +end +function c66171432.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,30459350) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c66171432.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end +end +function c66171432.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if Duel.IsPlayerAffectedByEffect(tp,30459350) then return end + Duel.ConfirmDecktop(tp,3) + local g=Duel.GetDecktopGroup(tp,3) + local sg=g:Filter(c66171432.filter,nil,e,tp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + if g:GetCount()>0 then + Duel.DisableShuffleCheck() + if sg:GetCount()>0 and ft>0 then + if sg:GetCount()>ft then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + sg=sg:Select(tp,ft,ft,nil) + end + g:Sub(sg) + local tc=sg:GetFirst() + while tc do + if Duel.SpecialSummonStep(tc,0,tp,tp,true,false,POS_FACEUP) then + if tc:GetLevel()>0 then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CHANGE_LEVEL) + e1:SetValue(2) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + end + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_DISABLE_EFFECT) + e3:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e3) + end + tc=sg:GetNext() + end + Duel.SpecialSummonComplete() + end + Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT) + local og=Duel.GetOperatedGroup() + local ct=og:FilterCount(Card.IsLocation,nil,LOCATION_REMOVED) + if ct>0 then + Duel.SetLP(tp,Duel.GetLP(tp)-ct*1000) + end + end +end +function c66171432.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() + and Duel.CheckReleaseGroup(tp,nil,1,nil) end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) + local g=Duel.SelectReleaseGroup(tp,nil,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c66171432.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c66171432.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c66171432.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c66171432.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) + end +end diff --git a/script/c6618.lua b/script/c6618.lua deleted file mode 100644 index 43b0c77d..00000000 --- a/script/c6618.lua +++ /dev/null @@ -1,104 +0,0 @@ ---Scripted by Eerie Code ---Assault Blackwing - Kunai the Drizzle -function c6618.initial_effect(c) - --special summon - --local e1=Effect.CreateEffect(c) - --e1:SetDescription(aux.Stringid(6618,0)) - --e1:SetType(EFFECT_TYPE_FIELD) - --e1:SetCode(EFFECT_SPSUMMON_PROC) - --e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - --e1:SetRange(LOCATION_HAND) - --e1:SetCondition(c6618.spcon) - --e1:SetOperation(c6618.spop) - --c:RegisterEffect(e1) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c6618.spcon) - e1:SetTarget(c6618.sptg) - e1:SetOperation(c6618.spop) - c:RegisterEffect(e1) - --Change level - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6618,1)) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1) - e2:SetTarget(c6618.lvtg) - e2:SetOperation(c6618.lvop) - c:RegisterEffect(e2) -end - ---function c6618.spcon(e,c) --- if c==nil then return true end --- return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 --- and Duel.CheckReleaseGroup(c:GetControler(),Card.IsSetCard,1,nil,0x33) ---end ---function c6618.spop(e,tp,eg,ep,ev,re,r,rp,c) --- local g=Duel.SelectReleaseGroup(c:GetControler(),Card.IsSetCard,1,1,nil,0x33) --- Duel.Release(g,REASON_COST) --- local e1=Effect.CreateEffect(c) --- e1:SetType(EFFECT_TYPE_SINGLE) --- e1:SetCode(EFFECT_ADD_TYPE) --- e1:SetValue(TYPE_TUNER) --- e1:SetReset(RESET_EVENT+0x1fe0000) --- c:RegisterEffect(e1) ---end -function c6618.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 and Duel.CheckReleaseGroup(c:GetControler(),Card.IsSetCard,1,nil,0x33) -end -function c6618.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c6618.spop(e,tp,eg,ep,ev,re,r,rp,c) - local c=e:GetHandler() - local g=Duel.SelectReleaseGroup(c:GetControler(),Card.IsSetCard,1,1,nil,0x33) - if c:IsRelateToEffect(e) and Duel.Release(g,REASON_COST) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_ADD_TYPE) - e1:SetValue(TYPE_TUNER) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - Duel.SpecialSummonComplete() - end -end - -function c6618.thfil(c) - return c:IsFaceup() and c:GetLevel()>0 and c:IsType(TYPE_SYNCHRO) -end -function c6618.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c6618.thfil(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c6618.thfil,tp,LOCATION_MZONE,0,1,e:GetHandler()) end - Duel.SelectTarget(tp,c6618.thfil,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) - local t={} - local i=1 - local p=1 - for i=1,8 do - t[p]=i - p=p+1 - end - t[p]=nil - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(6618,2)) - e:SetLabel(Duel.AnnounceNumber(tp,table.unpack(t))) -end -function c6618.lvfil(c,e) - return c:IsFaceup() and c:IsRelateToEffect(e) -end -function c6618.lvop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c6618.lvfil,nil,e) - local tc=g:GetFirst() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(e:GetLabel()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) -end \ No newline at end of file diff --git a/script/c6619.lua b/script/c6619.lua deleted file mode 100644 index 6fa47d62..00000000 --- a/script/c6619.lua +++ /dev/null @@ -1,56 +0,0 @@ ---Scripted by Eerie Code ---Galloping Gaia the Fierce Knight -function c6619.initial_effect(c) - --Normal Summon without Tribute - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6619,0)) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetCondition(c6619.ntcon) - e1:SetOperation(c6619.ntop) - c:RegisterEffect(e1) - --to hand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6619,1)) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_RELEASE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCountLimit(1,6619) - e2:SetTarget(c6619.thtg) - e2:SetOperation(c6619.thop) - c:RegisterEffect(e2) -end - -function c6619.ntcon(e,c,minc) - if c==nil then return true end - return minc==0 and c:GetLevel()>4 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c6619.ntop(e,tp,eg,ep,ev,re,r,rp,c) - --change base attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetReset(RESET_EVENT+0xff0000) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(1900) - c:RegisterEffect(e1) -end - -function c6619.filter(c) - return c:IsSetCard(0xd0) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c6619.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6619.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6619.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6619.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c66194206.lua b/script/c66194206.lua old mode 100755 new mode 100644 diff --git a/script/c6620.lua b/script/c6620.lua deleted file mode 100644 index c7aabe00..00000000 --- a/script/c6620.lua +++ /dev/null @@ -1,40 +0,0 @@ ---Scripted by Eerie Code ---Kuriball -function c6620.initial_effect(c) - --ritual material - local e0=Effect.CreateEffect(c) - e0:SetType(EFFECT_TYPE_SINGLE) - e0:SetCode(EFFECT_EXTRA_RITUAL_MATERIAL) - c:RegisterEffect(e0) - --Change position - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6620,0)) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c6620.condition) - e1:SetCost(c6620.cost) - e1:SetTarget(c6620.target) - e1:SetOperation(c6620.operation) - c:RegisterEffect(e1) -end - -function c6620.condition(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttacker() - return at:GetControler()~=tp -end -function c6620.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c6620.target(e,tp,eg,ep,ev,re,r,rp,chk) - local tg=Duel.GetAttacker() - if chk==0 then return tg:IsOnField() and tg:IsPosition(POS_ATTACK) end -end -function c6620.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetAttacker() - if tc then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) - end -end \ No newline at end of file diff --git a/script/c66200210.lua b/script/c66200210.lua index d8c0f9cd..3233bd4b 100644 --- a/script/c66200210.lua +++ b/script/c66200210.lua @@ -60,6 +60,7 @@ function c66200210.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c66200210.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 then return end if Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,0x4011,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) then local token1=Duel.CreateToken(tp,66200211) diff --git a/script/c6621.lua b/script/c6621.lua deleted file mode 100644 index dbbed494..00000000 --- a/script/c6621.lua +++ /dev/null @@ -1,134 +0,0 @@ ---Scripted by Eerie Code ---Knight of the Evening Twilight -function c6621.initial_effect(c) - --Search Monster - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6621,2)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_REMOVE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCountLimit(1,6621) - e1:SetCondition(c6621.thcon) - e1:SetTarget(c6621.thtg) - e1:SetOperation(c6621.thop) - c:RegisterEffect(e1) - --Become material - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_BE_MATERIAL) - e2:SetCountLimit(1,6622) - e2:SetCondition(c6621.condition) - e2:SetOperation(c6621.operation) - c:RegisterEffect(e2) -end - -function c6621.cfilter(c,e,tp) - return c==e:GetHandler() and c:IsPreviousLocation(LOCATION_GRAVE) and c:GetPreviousControler()==tp -end -function c6621.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --return c:IsControler(tp) and c:IsPreviousLocation(LOCATION_GRAVE) - --return eg:IsExists(c6621.cfilter,1,nil,e,tp) - return c:IsPreviousLocation(LOCATION_GRAVE) and c:GetPreviousControler()==tp -end -function c6621.thfilter(c) - return bit.band(c:GetType(),0x81)==0x81 and c:IsAbleToHand() -end -function c6621.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6621.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6621.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6621.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end - -function c6621.condition(e,tp,eg,ep,ev,re,r,rp) - return r==REASON_RITUAL -end -function c6621.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local rc=eg:GetFirst() - while rc do - if rc:GetFlagEffect(6621)==0 then - --Banish monster - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6621,0)) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCountLimit(1) - e1:SetTarget(c6621.rmtg1) - e1:SetOperation(c6621.rmop1) - e1:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e1) - --Banish from hand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6621,1)) - e2:SetCategory(CATEGORY_REMOVE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c6621.rmtg2) - e2:SetOperation(c6621.rmop2) - e2:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e2) - rc:RegisterFlagEffect(6621,RESET_EVENT+0x1fe0000,0,1) - end - rc=eg:GetNext() - end -end -function c6621.rmtg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end - if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c6621.rmop1(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - end -end -function c6621.rmtg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_HAND,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_HAND) -end -function c6621.rmop2(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_HAND,nil) - if g:GetCount()==0 then return end - local rg=g:RandomSelect(tp,1) - local tc=rg:GetFirst() - Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT) - tc:RegisterFlagEffect(6621,RESET_EVENT+0x1fe0000,0,1) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetCountLimit(1) - e1:SetLabelObject(tc) - e1:SetReset(RESET_PHASE+PHASE_END,2) - e1:SetCondition(c6621.retcon) - e1:SetOperation(c6621.retop) - Duel.RegisterEffect(e1,tp) -end -function c6621.retcon(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - if tc:GetFlagEffect(6621)==0 then - e:Reset() - return false - else - return Duel.GetTurnPlayer()==1-tp - end -end -function c6621.retop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - Duel.SendtoHand(tc,1-tp,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c6622.lua b/script/c6622.lua deleted file mode 100644 index c7fd926c..00000000 --- a/script/c6622.lua +++ /dev/null @@ -1,102 +0,0 @@ ---Scripted by Eerie Code ---Knight of the Beginning -function c6622.initial_effect(c) - --Search Spell - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6622,2)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_REMOVE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCountLimit(1,6622) - e1:SetCondition(c6622.thcon) - e1:SetTarget(c6622.thtg) - e1:SetOperation(c6622.thop) - c:RegisterEffect(e1) - --Become material - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_BE_MATERIAL) - e2:SetCountLimit(1,6623) - e2:SetCondition(c6622.condition) - e2:SetOperation(c6622.operation) - c:RegisterEffect(e2) -end - -function c6622.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_GRAVE) and c:GetPreviousControler()==tp -end -function c6622.thfilter(c) - return bit.band(c:GetType(),0x82)==0x82 and c:IsAbleToHand() -end -function c6622.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6621.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6622.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6622.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end - -function c6622.condition(e,tp,eg,ep,ev,re,r,rp) - return r==REASON_RITUAL -end -function c6622.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local rc=eg:GetFirst() - while rc do - if rc:GetFlagEffect(6622)==0 then - --Banish monster - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6622,0)) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCountLimit(1) - e1:SetTarget(c6622.rmtg1) - e1:SetOperation(c6622.rmop1) - e1:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e1) - --Chain attack - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6622,1)) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BATTLED) - e3:SetCondition(c6622.atcon) - e3:SetOperation(c6622.atop) - e3:SetReset(RESET_EVENT+0x1fe0000) - rc:RegisterEffect(e3) - rc:RegisterFlagEffect(6622,RESET_EVENT+0x1fe0000,0,1) - end - rc=eg:GetNext() - end -end -function c6622.rmtg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsAbleToRemove() end - if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c6622.rmop1(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - end -end - -function c6622.atcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return bc and bc:IsStatus(STATUS_BATTLE_DESTROYED) and c:IsChainAttackable() and c:IsStatus(STATUS_OPPO_BATTLE) -end -function c6622.atop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChainAttack() -end \ No newline at end of file diff --git a/script/c6623.lua b/script/c6623.lua deleted file mode 100644 index 72759508..00000000 --- a/script/c6623.lua +++ /dev/null @@ -1,71 +0,0 @@ ---Scripted by Eerie Code ---Soul of the Supreme Soldier -function c6623.initial_effect(c) - --Change Name - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6623,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,6623) - e1:SetCost(c6623.chcost) - e1:SetOperation(c6623.chop) - c:RegisterEffect(e1) - --to hand - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e1:SetCountLimit(1,6624) - e2:SetCost(c6623.thcost) - e2:SetTarget(c6623.thtg) - e2:SetOperation(c6623.thop) - c:RegisterEffect(e2) -end - -function c6623.cfilter(c) - return c:IsSetCard(0xd0) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() -end -function c6623.chcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6623.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,c6623.cfilter,1,1,REASON_COST) -end -function c6623.chop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_CODE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(5405694) - e1:SetLabel(tp) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END+RESET_OPPO_TURN) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EFFECT_SET_ATTACK) - e2:SetValue(3000) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END+RESET_OPPO_TURN) - c:RegisterEffect(e2) - end -end - -function c6623.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c6623.thfilter(c) - return (c:IsCode(6621) or c:IsCode(6622)) and c:IsAbleToHand() -end -function c6623.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6623.thfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6623.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6623.thfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c6628.lua b/script/c6628.lua deleted file mode 100644 index 2adf675a..00000000 --- a/script/c6628.lua +++ /dev/null @@ -1,67 +0,0 @@ ---Scripted by Eerie Code ---Majespecter Unicorn -function c6628.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Return to hand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6628,0)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1,6628) - e2:SetTarget(c6628.target) - e2:SetOperation(c6628.operation) - c:RegisterEffect(e2) - --cannot target - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetRange(LOCATION_MZONE) - e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e4:SetValue(aux.tgoval) - c:RegisterEffect(e4) - --indes - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e5:SetRange(LOCATION_MZONE) - e5:SetValue(c6628.indval) - c:RegisterEffect(e5) -end - -function c6628.filter1(c) - return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand() -end -function c6628.filter2(c) - return c:IsAbleToHand() -end -function c6628.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c6628.filter1,tp,LOCATION_MZONE,0,1,e:GetHandler()) - and Duel.IsExistingTarget(c6628.filter2,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g1=Duel.SelectTarget(tp,c6628.filter1,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g2=Duel.SelectTarget(tp,c6628.filter2,tp,0,LOCATION_MZONE,1,1,nil) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g1,2,0,0) -end -function c6628.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - end -end - -function c6628.indval(e,re,tp) - return tp~=e:GetHandlerPlayer() -end \ No newline at end of file diff --git a/script/c6628343.lua b/script/c6628343.lua old mode 100755 new mode 100644 index 935b7815..e50d99e4 --- a/script/c6628343.lua +++ b/script/c6628343.lua @@ -26,7 +26,7 @@ end function c6628343.mtop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetFlagEffect(tp,6628343)~=0 then return end local c=e:GetHandler() - local g=eg:Filter(Card.IsSetCard,nil,0xcf) + local g=eg:Filter(Card.IsSetCard,nil,0x10cf) local rc=g:GetFirst() if not rc then return end local e1=Effect.CreateEffect(c) @@ -56,6 +56,7 @@ function c6628343.mtop(e,tp,eg,ep,ev,re,r,rp) e3:SetReset(RESET_EVENT+0x1fe0000) rc:RegisterEffect(e3,true) end + rc:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(6628343,2)) Duel.RegisterFlagEffect(tp,6628343,RESET_PHASE+PHASE_END,0,1) end function c6628343.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) diff --git a/script/c6630.lua b/script/c6630.lua deleted file mode 100644 index 1aa49c09..00000000 --- a/script/c6630.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Scripted by Eerie Code ---Igknight Derringer -function c6630.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetCondition(c6630.thcon) - e2:SetTarget(c6630.thtg) - e2:SetOperation(c6630.thop) - c:RegisterEffect(e2) -end -function c6630.thcon(e,tp,eg,ep,ev,re,r,rp) - local seq=e:GetHandler():GetSequence() - local pc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) - return pc and pc:IsSetCard(0xc8) -end -function c6630.filter(c) - return c:IsRace(RACE_WARRIOR) and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToHand() -end -function c6630.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local pc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-c:GetSequence()) - if chk==0 then return c:IsDestructable() and pc:IsDestructable() - and Duel.IsExistingMatchingCard(c6630.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - local g=Group.FromCards(c,pc) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) -end -function c6630.thop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local pc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-c:GetSequence()) - if not pc then return end - local dg=Group.FromCards(c,pc) - if Duel.Destroy(dg,REASON_EFFECT)~=2 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6630.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c6632.lua b/script/c6632.lua deleted file mode 100644 index 005487d6..00000000 --- a/script/c6632.lua +++ /dev/null @@ -1,86 +0,0 @@ ---Scripted by Eerie Code ---Greydle Slime -function c6632.initial_effect(c) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6632,0)) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND+LOCATION_GRAVE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCountLimit(1,6632) - e1:SetTarget(c6632.sptg) - e1:SetOperation(c6632.spop) - c:RegisterEffect(e1) - --Special Summon from Grave - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6632,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCondition(c6632.spcon2) - e2:SetTarget(c6632.sptg2) - e2:SetOperation(c6632.spop2) - c:RegisterEffect(e2) -end - -function c6632.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0xd1) and c:IsDestructable() -end -function c6632.desfilter2(c,e) - return c6632.desfilter(c) and c:IsCanBeEffectTarget(e) -end -function c6632.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c6632.desfilter(chkc) end - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local ct=-ft+1 - if chk==0 then return ct<=2 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) - and Duel.IsExistingTarget(c6632.desfilter,tp,LOCATION_ONFIELD,0,2,nil) - and (ct<=0 or Duel.IsExistingTarget(c6632.desfilter,tp,LOCATION_MZONE,0,ct,nil)) end - local g=nil - if ct>0 then - local tg=Duel.GetMatchingGroup(c6632.desfilter2,tp,LOCATION_ONFIELD,0,nil,e) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - g=tg:FilterSelect(tp,Card.IsLocation,ct,ct,nil,LOCATION_MZONE) - if ct<2 then - tg:Sub(g) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=tg:Select(tp,2-ct,2-ct,nil) - g:Merge(g2) - end - Duel.SetTargetCard(g) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - g=Duel.SelectTarget(tp,c6632.desfilter,tp,LOCATION_ONFIELD,0,2,2,nil) - end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c6632.spop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if Duel.Destroy(g,REASON_EFFECT)~=0 then - Duel.SpecialSummon(e:GetHandler(),1,tp,tp,false,false,POS_FACEUP) - end -end - -function c6632.spcon2(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 -end -function c6632.spfil(c,e,tp) - return c:IsSetCard(0xd1) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c6632.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6632.spfil(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and - Duel.IsExistingTarget(c6632.spfil,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c6632.spfil,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c6632.spop2(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end \ No newline at end of file diff --git a/script/c6633.lua b/script/c6633.lua deleted file mode 100644 index 5451f85d..00000000 --- a/script/c6633.lua +++ /dev/null @@ -1,65 +0,0 @@ ---Scripted by Eerie Code ---Greydle Eagle -function c6633.initial_effect(c) - --Equip - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6633,0)) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c6633.eqcon) - e1:SetTarget(c6633.eqtg) - e1:SetOperation(c6633.eqop) - c:RegisterEffect(e1) -end - -function c6633.eqcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetPreviousLocation(LOCATION_MZONE) and (c:IsReason(REASON_BATTLE) or (c:IsReason(REASON_DESTROY) and re:IsActiveType(TYPE_SPELL) and c:GetPreviousControler()==tp)) -end -function c6633.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) -end -function c6633.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.Equip(tp,c,tc) - --equip limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(c6633.eqlimit) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - --Control - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_SET_CONTROL) - e2:SetValue(tp) - e2:SetReset(RESET_EVENT+0x1fc0000) - c:RegisterEffect(e2) - --Destroy - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetOperation(c6633.desop) - c:RegisterEffect(e3) - end -end -function c6633.eqlimit(e,c) - return c:GetControler()==e:GetHandlerPlayer() or e:GetHandler():GetEquipTarget()==c -end - -function c6633.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetEquipTarget() - if tc and tc:IsLocation(LOCATION_MZONE) then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c66331855.lua b/script/c66331855.lua index 858edc4a..726a0011 100644 --- a/script/c66331855.lua +++ b/script/c66331855.lua @@ -30,7 +30,7 @@ function c66331855.cona(e,tp,eg,ep,ev,re,r,rp) return not e:GetHandler():IsDisabled() and e:GetHandler():IsAttackPos() end function c66331855.cond(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefencePos() + return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefensePos() end function c66331855.costa(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.CheckReleaseGroup(tp,aux.TRUE,1,nil) end diff --git a/script/c66337215.lua b/script/c66337215.lua index cd21289f..8dea801e 100644 --- a/script/c66337215.lua +++ b/script/c66337215.lua @@ -31,6 +31,5 @@ function c66337215.thop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c6634.lua b/script/c6634.lua deleted file mode 100644 index 32d5921c..00000000 --- a/script/c6634.lua +++ /dev/null @@ -1,65 +0,0 @@ ---Scripted by Eerie Code ---Greydle Cobra -function c6634.initial_effect(c) - --Equip - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6634,0)) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c6634.eqcon) - e1:SetTarget(c6634.eqtg) - e1:SetOperation(c6634.eqop) - c:RegisterEffect(e1) -end - -function c6634.eqcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetPreviousLocation(LOCATION_MZONE) and (c:IsReason(REASON_BATTLE) or (c:IsReason(REASON_DESTROY) and re:IsActiveType(TYPE_TRAP) and c:GetPreviousControler()==tp)) -end -function c6634.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) -end -function c6634.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.Equip(tp,c,tc) - --equip limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(c6634.eqlimit) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - --Control - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_SET_CONTROL) - e2:SetValue(tp) - e2:SetReset(RESET_EVENT+0x1fc0000) - c:RegisterEffect(e2) - --Destroy - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetOperation(c6634.desop) - c:RegisterEffect(e3) - end -end -function c6634.eqlimit(e,c) - return c:GetControler()==e:GetHandlerPlayer() or e:GetHandler():GetEquipTarget()==c -end - -function c6634.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetEquipTarget() - if tc and tc:IsLocation(LOCATION_MZONE) then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c6635.lua b/script/c6635.lua deleted file mode 100644 index 54dada70..00000000 --- a/script/c6635.lua +++ /dev/null @@ -1,65 +0,0 @@ ---Scripted by Eerie Code ---Greydle Eagle -function c6635.initial_effect(c) - --Equip - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6635,0)) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c6635.eqcon) - e1:SetTarget(c6635.eqtg) - e1:SetOperation(c6635.eqop) - c:RegisterEffect(e1) -end - -function c6635.eqcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetPreviousLocation(LOCATION_MZONE) and (c:IsReason(REASON_BATTLE) or (c:IsReason(REASON_DESTROY) and re:IsActiveType(TYPE_MONSTER) and c:GetPreviousControler()==tp)) -end -function c6635.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) -end -function c6635.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.Equip(tp,c,tc) - --equip limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(c6635.eqlimit) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - --Control - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_SET_CONTROL) - e2:SetValue(tp) - e2:SetReset(RESET_EVENT+0x1fc0000) - c:RegisterEffect(e2) - --Destroy - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetOperation(c6635.desop) - c:RegisterEffect(e3) - end -end -function c6635.eqlimit(e,c) - return c:GetControler()==e:GetHandlerPlayer() or e:GetHandler():GetEquipTarget()==c -end - -function c6635.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetEquipTarget() - if tc and tc:IsLocation(LOCATION_MZONE) then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c6636.lua b/script/c6636.lua deleted file mode 100644 index 16670df4..00000000 --- a/script/c6636.lua +++ /dev/null @@ -1,85 +0,0 @@ ---Skilled Red Magician -function c6636.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,3) - --add counter - local e0=Effect.CreateEffect(c) - e0:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e0:SetCode(EVENT_CHAINING) - e0:SetRange(LOCATION_MZONE) - e0:SetOperation(aux.chainreg) - c:RegisterEffect(e0) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_CHAIN_SOLVED) - e1:SetRange(LOCATION_MZONE) - e1:SetOperation(c6636.acop) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6636,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c6636.spcost) - e2:SetTarget(c6636.sptg) - e2:SetOperation(c6636.spop) - c:RegisterEffect(e2) - --counter - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6636,0)) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_GRAVE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCost(c6636.ctcost) - e3:SetTarget(c6636.cttg) - e3:SetOperation(c6636.ctop) - c:RegisterEffect(e3) -end -function c6636.acop(e,tp,eg,ep,ev,re,r,rp) - if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then - e:GetHandler():AddCounter(0x3001,1) - end -end -function c6636.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetCounter(0x3001)==3 and e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c6636.filter(c,e,tp) - return c:IsSetCard(0x45) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c6636.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c6636.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) -end -function c6636.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6636.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end -function c6636.ctcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c6636.ctfilter(c) - return c:IsFaceup() and c:IsCanAddCounter(0x3001,1) -end -function c6636.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c6636.ctfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6636.ctfilter,tp,LOCATION_ONFIELD,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(6636,2)) - Duel.SelectTarget(tp,c6636.ctfilter,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x3001) -end -function c6636.ctop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0x3001,1) - end -end diff --git a/script/c6639.lua b/script/c6639.lua deleted file mode 100644 index 1f1c35cb..00000000 --- a/script/c6639.lua +++ /dev/null @@ -1,101 +0,0 @@ ---Deskbot 006 -function c6639.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --splimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_PZONE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) - e2:SetTargetRange(1,0) - e2:SetCondition(c6639.splimcon) - e2:SetTarget(c6639.splimit) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_POSITION) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetTarget(c6639.postg) - e3:SetOperation(c6639.posop) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e4) - --atk up - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_UPDATE_ATTACK) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetRange(LOCATION_MZONE) - e5:SetValue(c6639.atkval) - c:RegisterEffect(e5) - --tohand - local e6=Effect.CreateEffect(c) - e6:SetCategory(CATEGORY_TOHAND) - e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e6:SetCode(EVENT_DESTROYED) - e6:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e6:SetCountLimit(1,6639) - e6:SetCondition(c6639.thcon) - e6:SetTarget(c6639.thtg) - e6:SetOperation(c6639.thop) - c:RegisterEffect(e6) -end - -function c6639.splimcon(e) - return not e:GetHandler():IsForbidden() -end -function c6639.splimit(e,c,tp,sumtp,sumpos) - return not c:IsSetCard(0xab) and bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM -end - -function c6639.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) end - if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) - local g=Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) -end -function c6639.posop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) - end -end - -function c6639.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0xab) -end -function c6639.atkval(e,c) - return Duel.GetMatchingGroupCount(c6639.cfilter,c:GetControler(),LOCATION_EXTRA,0,nil)*500 -end - -function c6639.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_SZONE) and (c:GetPreviousSequence()==6 or c:GetPreviousSequence()==7) -end -function c6639.thfilter(c) - return c:IsSetCard(0xab) and c:IsAbleToHand() -end -function c6639.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6639.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6639.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c6639.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c6639.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end \ No newline at end of file diff --git a/script/c66399653.lua b/script/c66399653.lua new file mode 100644 index 00000000..fa9ec18f --- /dev/null +++ b/script/c66399653.lua @@ -0,0 +1,79 @@ +--ユニオン格納庫 +function c66399653.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,66399653+EFFECT_COUNT_CODE_OATH) + e1:SetOperation(c66399653.activate) + c:RegisterEffect(e1) + --equip + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(66399653,1)) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetRange(LOCATION_FZONE) + e2:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e2:SetTarget(c66399653.eqtg) + e2:SetOperation(c66399653.eqop) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) +end +function c66399653.thfilter(c) + return c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT) + and c:IsType(TYPE_UNION) and c:IsAbleToHand() +end +function c66399653.activate(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local g=Duel.GetMatchingGroup(c66399653.thfilter,tp,LOCATION_DECK,0,nil) + if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(66399653,0)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local sg=g:Select(tp,1,1,nil) + Duel.SendtoHand(sg,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,sg) + end +end +function c66399653.tgfilter(c,e,tp,chk) + return c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsType(TYPE_UNION) + and c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsControler(tp) and c:IsCanBeEffectTarget(e) + and (chk or Duel.IsExistingMatchingCard(c66399653.cfilter,tp,LOCATION_DECK,0,1,nil,c)) +end +function c66399653.cfilter(c,ec) + return c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT) + and c:IsType(TYPE_UNION) and c:CheckEquipTarget(ec) and not c:IsCode(ec:GetCode()) +end +function c66399653.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return eg:IsContains(chkc) and c66399653.tgfilter(chkc,e,tp,true) end + local g=eg:Filter(c66399653.tgfilter,nil,e,tp,false) + if chk==0 then return g:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end + if g:GetCount()==1 then + Duel.SetTargetCard(g:GetFirst()) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + local tc=g:Select(tp,1,1,nil) + Duel.SetTargetCard(tc) + end +end +function c66399653.eqop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + local sg=Duel.SelectMatchingCard(tp,c66399653.cfilter,tp,LOCATION_DECK,0,1,1,nil,tc) + local ec=sg:GetFirst() + if ec and Duel.Equip(tp,ec,tc) then + ec:SetStatus(STATUS_UNION,true) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE) + e1:SetRange(LOCATION_SZONE) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + ec:RegisterEffect(e1) + end + end +end diff --git a/script/c66413481.lua b/script/c66413481.lua index c62eab09..b7567235 100644 --- a/script/c66413481.lua +++ b/script/c66413481.lua @@ -40,21 +40,23 @@ function c66413481.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c66413481.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c66413481.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsReason(REASON_DESTROY) end function c66413481.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD+LOCATION_HAND,0,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD+LOCATION_HAND,0,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c66413481.desop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,1,nil) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,1,nil) if g:GetCount()>0 then Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c6642.lua b/script/c6642.lua deleted file mode 100644 index ab572def..00000000 --- a/script/c6642.lua +++ /dev/null @@ -1,68 +0,0 @@ ---Supreme Black Luster Soldier -function c6642.initial_effect(c) - c:SetSPSummonOnce(6642) - c:EnableReviveLimit() - --Damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6642,0)) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_BATTLE_DESTROYING) - e1:SetCondition(c6642.damcon) - e1:SetTarget(c6642.damtg) - e1:SetOperation(c6642.damop) - c:RegisterEffect(e1) - --Special Summon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCondition(c6642.spcon) - e3:SetTarget(c6642.sptg) - e3:SetOperation(c6642.spop) - c:RegisterEffect(e3) -end - -function c6642.damcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER) -end -function c6642.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local c=e:GetHandler() - local bc=c:GetBattleTarget() - local dam=bc:GetBaseAttack() - if dam<0 then dam=0 end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c6642.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end - -function c6642.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_BATTLE) - or rp~=tp and c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp -end -function c6642.spfilter(c,e,tp) - return c:IsSetCard(0xbd) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6642.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c6642.spfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE) -end -function c6642.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6642.spfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c6643.lua b/script/c6643.lua deleted file mode 100644 index 10f2ea93..00000000 --- a/script/c6643.lua +++ /dev/null @@ -1,99 +0,0 @@ ---Frightfur Sabre Tiger -function c6643.initial_effect(c) - --Fusion material - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(c6643.fscon) - e1:SetOperation(c6643.fsop) - c:RegisterEffect(e1) - --Special Summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6643,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c6643.spcon) - e2:SetTarget(c6643.sptg) - e2:SetOperation(c6643.spop) - c:RegisterEffect(e2) - --ATK - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xad)) - e3:SetValue(400) - c:RegisterEffect(e3) - --Indes - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetRange(LOCATION_MZONE) - e4:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e4:SetCondition(c6643.indcon) - e4:SetValue(1) - c:RegisterEffect(e4) - local e5=e4:Clone() - e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e5) -end - -function c6643.mfilter1(c) - return c:IsSetCard(0xad) and c:IsType(TYPE_FUSION) -end -function c6643.mfilter2(c) - return c:IsSetCard(0xa9) or c:IsSetCard(0xc3) -end -function c6643.mfilter(c,mg) - return c6643.mfilter1(c) and mg:IsExists(c6643.mfilter2,1,c) -end -function c6643.fscon(e,mg,gc) - if mg==nil then return false end - if gc then return c6643.mfilter1(gc) and mg:IsExists(c6643.mfilter2,1,gc) end - return mg:IsExists(c6643.mfilter,1,nil,mg) -end -function c6643.fsop(e,tp,eg,ep,ev,re,r,rp,gc) - if gc then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=eg:FilterSelect(tp,c6643.mfilter2,1,63,nil) - Duel.SetFusionMaterial(g1) - return - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=eg:FilterSelect(tp,c6643.mfilter,1,1,nil,eg) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=eg:FilterSelect(tp,c6643.mfilter2,1,63,g1:GetFirst()) - g1:Merge(g2) - Duel.SetFusionMaterial(g1) -end - -function c6643.spcon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c6643.spfilter(c,e,tp) - return c:IsSetCard(0xad) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6643.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6643.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and - Duel.IsExistingTarget(c6643.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c6643.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c6643.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end - -function c6643.indcon(e) - local c=e:GetHandler() - return c:GetSummonType()==SUMMON_TYPE_FUSION and c:GetMaterialCount()>2 -end \ No newline at end of file diff --git a/script/c66451379.lua b/script/c66451379.lua old mode 100755 new mode 100644 diff --git a/script/c66457407.lua b/script/c66457407.lua index 30fc90c1..93fa5816 100644 --- a/script/c66457407.lua +++ b/script/c66457407.lua @@ -16,7 +16,7 @@ function c66457407.lvfilter(c) return c:IsFaceup() and c:IsRace(RACE_PLANT) and c:GetLevel()>0 end function c66457407.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c66457407.lvfilter(chkc) end + if chkc then return chkc~=e:GetHandler() and chkc:IsLocation(LOCATION_MZONE) and c66457407.lvfilter(chkc) end if chk==0 then return Duel.IsExistingTarget(c66457407.lvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) Duel.SelectTarget(tp,c66457407.lvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler()) diff --git a/script/c6646.lua b/script/c6646.lua deleted file mode 100644 index a9ee32b9..00000000 --- a/script/c6646.lua +++ /dev/null @@ -1,40 +0,0 @@ ---Scripted by Eerie Code ---Red Dragon Archfiend Scarright -function c6646.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --Change name - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_CHANGE_CODE) - e1:SetRange(LOCATION_MZONE+LOCATION_GRAVE) - e1:SetValue(70902743) - c:RegisterEffect(e1) - --Destroy+Damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6646,0)) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c6646.destg) - e2:SetOperation(c6646.desop) - c:RegisterEffect(e2) -end - -function c6646.desfilter(c,atk) - return c:IsFaceup() and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL and c:GetAttack()<=atk and c:IsDestructable() -end -function c6646.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(c6646.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler(),e:GetHandler():GetAttack()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetCount()*500) -end -function c6646.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c6646.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler(),e:GetHandler():GetAttack()) - local ct=Duel.Destroy(g,REASON_EFFECT) - Duel.Damage(1-tp,ct*500,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c6647.lua b/script/c6647.lua deleted file mode 100644 index 97aa752e..00000000 --- a/script/c6647.lua +++ /dev/null @@ -1,60 +0,0 @@ ---Scripted by Eerie Code ---Assault Blackwing - Raikiri the Sudden Shower -function c6647.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --Tuner - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCondition(c6647.tncon) - e1:SetOperation(c6647.tnop) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCondition(c6647.descon) - e2:SetTarget(c6647.destg) - e2:SetOperation(c6647.desop) - c:RegisterEffect(e2) -end - -function c6647.tncon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO and e:GetHandler():GetMaterial():IsExists(Card.IsSetCard,1,nil,0x33) -end -function c6647.tnop(e,rp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_ADD_TYPE) - e1:SetValue(TYPE_TUNER) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) -end - -function c6647.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x33) -end -function c6647.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c6647.cfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) -end -function c6647.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local ct=Duel.GetMatchingGroupCount(c6647.cfilter,tp,LOCATION_MZONE,0,e:GetHandler()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,ct,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c6647.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c6648.lua b/script/c6648.lua deleted file mode 100644 index a71bbd82..00000000 --- a/script/c6648.lua +++ /dev/null @@ -1,95 +0,0 @@ ---Scripted by Eerie Code ---Greydle Dragon -function c6648.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_AQUA),aux.NonTuner(nil),1) - c:EnableReviveLimit() - --Material Check - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_MATERIAL_CHECK) - e1:SetValue(c6648.matcheck) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6648,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1,6648) - e2:SetCondition(c6648.tdcon) - e2:SetTarget(c6648.tdtg) - e2:SetOperation(c6648.tdop) - e2:SetLabelObject(e1) - c:RegisterEffect(e2) - --Special Summon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1,6649) - e3:SetCondition(c6648.spcon) - e3:SetTarget(c6648.sptg) - e3:SetOperation(c6648.spop) - c:RegisterEffect(e3) -end - -function c6648.matcheck(e,c) - local ct=c:GetMaterial():Filter(Card.IsAttribute,nil,ATTRIBUTE_WATER):GetCount() - e:SetLabel(ct) -end - -function c6648.tdcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO -end -function c6648.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - local ct=e:GetLabelObject():GetLabel() - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) and ct>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,ct,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c6648.tdop(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local g=tg:Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end -end - -function c6648.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_BATTLE) - or c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp -end -function c6648.filter(c,e,tp) - return c:IsAttribute(ATTRIBUTE_WATER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6648.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6648.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and - Duel.IsExistingTarget(c6648.filter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c6648.filter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler(),e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c6648.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - Duel.SpecialSummonComplete() - end -end \ No newline at end of file diff --git a/script/c66500065.lua b/script/c66500065.lua index 3ef65534..ea43d360 100644 --- a/script/c66500065.lua +++ b/script/c66500065.lua @@ -49,12 +49,12 @@ function c66500065.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c66500065.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end function c66500065.sccon(e,tp,eg,ep,ev,re,r,rp) if Duel.GetTurnPlayer()==tp then return false end local ph=Duel.GetCurrentPhase() - return ph==PHASE_MAIN1 or ph==PHASE_BATTLE or ph==PHASE_MAIN2 + return ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2 end function c66500065.mfilter(c) return c:IsSetCard(0x9e) diff --git a/script/c66506689.lua b/script/c66506689.lua index 169c85ad..31401629 100644 --- a/script/c66506689.lua +++ b/script/c66506689.lua @@ -32,6 +32,6 @@ end function c66506689.op(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,true) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,true) end end diff --git a/script/c6651.lua b/script/c6651.lua deleted file mode 100644 index 971da7ee..00000000 --- a/script/c6651.lua +++ /dev/null @@ -1,39 +0,0 @@ ---Scripted by Eerie Code ---Raidraptor - Devil Eagle -function c6651.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0xba),3,2) - c:EnableReviveLimit() - --Damage - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,6651) - e1:SetCost(c6651.cost) - e1:SetTarget(c6651.target) - e1:SetOperation(c6651.operation) - c:RegisterEffect(e1) -end - -function c6651.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c6651.filter(c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)~=0 -end -function c6651.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c6651.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6651.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,c6651.filter,tp,0,LOCATION_MZONE,1,1,nil) - local atk=g:GetFirst():GetBaseAttack() - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,atk) -end -function c6651.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Damage(1-tp,tc:GetBaseAttack(),REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c6652.lua b/script/c6652.lua deleted file mode 100644 index 6abb75d2..00000000 --- a/script/c6652.lua +++ /dev/null @@ -1,72 +0,0 @@ ---Greydle Impact -function c6652.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6652,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1,6652) - e2:SetTarget(c6652.destg) - e2:SetOperation(c6652.desop) - c:RegisterEffect(e2) - --To Hand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6652,1)) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetCountLimit(1,6652) - e3:SetCondition(c6652.thcon) - e3:SetTarget(c6652.thtg) - e3:SetOperation(c6652.thop) - c:RegisterEffect(e3) -end - -function c6652.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0xd1) and c:IsDestructable() -end -function c6652.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c6652.desfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) - and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,c6652.desfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0) -end -function c6652.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tg=g:Filter(Card.IsRelateToEffect,nil,e) - if tg:GetCount()>0 then - Duel.Destroy(tg,REASON_EFFECT) - end -end - -function c6652.thcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c6652.filter(c) - return c:IsSetCard(0xd1) and c:IsAbleToHand() -end -function c6652.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6652.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6652.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6652.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 then - Duel.ConfirmCards(1-tp,g) - Duel.ShuffleHand(tp) - end -end \ No newline at end of file diff --git a/script/c66523544.lua b/script/c66523544.lua index 68cf420f..623d4a48 100644 --- a/script/c66523544.lua +++ b/script/c66523544.lua @@ -20,7 +20,7 @@ function c66523544.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c66523544.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c66523544.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c66523544.filter,tp,0,LOCATION_ONFIELD,1,nil) end diff --git a/script/c66526672.lua b/script/c66526672.lua index ee3733df..5324f4c6 100644 --- a/script/c66526672.lua +++ b/script/c66526672.lua @@ -25,5 +25,5 @@ function c66526672.postg(e,tp,eg,ep,ev,re,r,rp,chk) end function c66526672.posop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsFaceup,Duel.GetTurnPlayer(),LOCATION_MZONE,0,nil) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end diff --git a/script/c66540884.lua b/script/c66540884.lua old mode 100755 new mode 100644 diff --git a/script/c66547759.lua b/script/c66547759.lua index 065b4f73..60af6f59 100644 --- a/script/c66547759.lua +++ b/script/c66547759.lua @@ -22,7 +22,7 @@ function c66547759.initial_effect(c) --negate local e3=Effect.CreateEffect(c) e3:SetCategory(CATEGORY_NEGATE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_F) + e3:SetType(EFFECT_TYPE_QUICK_F) e3:SetCode(EVENT_CHAINING) e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e3:SetRange(LOCATION_MZONE) @@ -41,7 +41,7 @@ function c66547759.descon(e,tp,eg,ep,ev,re,r,rp) return ep~=tp end function c66547759.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c66547759.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c66547759.filter(chkc) end @@ -70,4 +70,7 @@ function c66547759.distg(e,tp,eg,ep,ev,re,r,rp,chk) end function c66547759.disop(e,tp,eg,ep,ev,re,r,rp) Duel.NegateActivation(ev) + if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then + Duel.SendtoGrave(eg,REASON_EFFECT) + end end diff --git a/script/c6656.lua b/script/c6656.lua deleted file mode 100644 index d4c5b244..00000000 --- a/script/c6656.lua +++ /dev/null @@ -1,52 +0,0 @@ ---Scripted by Eerie Code ---Supreme Warrior Ritual -function c6656.initial_effect(c) - aux.AddRitualProcEqual2(c,c6656.ritual_filter) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6656,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_GRAVE) - e1:SetCountLimit(1,6656+EFFECT_COUNT_CODE_OATH) - e1:SetCondition(c6656.spcon) - e1:SetCost(c6656.spcost) - e1:SetTarget(c6656.sptg) - e1:SetOperation(c6656.spop) - c:RegisterEffect(e1) -end - -function c6656.ritual_filter(c) - return c:IsSetCard(0xd0) and bit.band(c:GetType(),0x81)==0x81 -end - -function c6656.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetTurnID()~=Duel.GetTurnCount() -end -function c6656.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() and Duel.IsExistingMatchingCard(c6656.cfilter,tp,LOCATION_GRAVE,0,1,nil,ATTRIBUTE_LIGHT) and Duel.IsExistingMatchingCard(c6656.cfilter,tp,LOCATION_GRAVE,0,1,nil,ATTRIBUTE_DARK) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g1=Duel.SelectMatchingCard(tp,c6656.cfilter,tp,LOCATION_GRAVE,0,1,1,nil,ATTRIBUTE_LIGHT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g2=Duel.SelectMatchingCard(tp,c6656.cfilter,tp,LOCATION_GRAVE,0,1,1,nil,ATTRIBUTE_DARK) - g1:Merge(g2) - --g1:Merge(e:GetHandler()) - g1:AddCard(e:GetHandler()) - Duel.Remove(g1,POS_FACEUP,REASON_COST) -end -function c6656.cfilter(c,att) - return c:IsAttribute(att) and c:IsAbleToRemoveAsCost() -end -function c6656.spfilter(c,e,tp) - return c:IsSetCard(0xd0) and c:IsType(TYPE_RITUAL) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c6656.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c6656.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c6656.spop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6656.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) -end \ No newline at end of file diff --git a/script/c6657.lua b/script/c6657.lua deleted file mode 100644 index ad3a9858..00000000 --- a/script/c6657.lua +++ /dev/null @@ -1,80 +0,0 @@ ---Scripted by Eerie Code ---Chaos Field -function c6657.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,6) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,6657+EFFECT_COUNT_CODE_OATH) - e1:SetTarget(c6657.target) - e1:SetOperation(c6657.activate) - c:RegisterEffect(e1) - --Add counter - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetOperation(c6657.ctop) - c:RegisterEffect(e2) - --to hand - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_SZONE) - e4:SetCountLimit(1) - e4:SetCost(c6657.thcost) - e4:SetTarget(c6657.thtg1) - e4:SetOperation(c6657.thop1) - c:RegisterEffect(e4) -end - -function c6657.filter(c) - return c:IsType(TYPE_MONSTER) and ((c:IsSetCard(0xd0) and c:IsType(TYPE_RITUAL)) or c:IsSetCard(0xbd)) and c:IsAbleToHand() -end -function c6657.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6657.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6657.activate(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6657.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end - -function c6657.ctfilter(c) - return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsPreviousLocation(LOCATION_ONFIELD+LOCATION_HAND) and not c:IsType(TYPE_TOKEN) -end -function c6657.ctop(e,tp,eg,ep,ev,re,r,rp) - local ct=eg:FilterCount(c6657.ctfilter,nil) - if ct>0 then - e:GetHandler():AddCounter(0x3001,ct) - end -end - -function c6657.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x3001,3,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x3001,3,REASON_COST) -end -function c6657.thfilter1(c) - return bit.band(c:GetType(),0x82)==0x82 and c:IsAbleToHand() -end -function c6657.thtg1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6657.thfilter1,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6657.thop1(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6657.thfilter1,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c66607691.lua b/script/c66607691.lua index 0d7414c3..8b72516e 100644 --- a/script/c66607691.lua +++ b/script/c66607691.lua @@ -16,7 +16,7 @@ function c66607691.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c66607691.spfilter(c,e,tp) - return c:IsCode(4162088) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(4162088) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) end function c66607691.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 @@ -27,7 +27,7 @@ function c66607691.activate(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c66607691.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()~=0 then + if g:GetCount()~=0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP) g:GetFirst():CompleteProcedure() end diff --git a/script/c6662.lua b/script/c6662.lua deleted file mode 100644 index c15731f1..00000000 --- a/script/c6662.lua +++ /dev/null @@ -1,73 +0,0 @@ ---Scripted by Eerie Code ---Greydle Impact -function c6662.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6662,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1,6662) - e2:SetTarget(c6662.destg) - e2:SetOperation(c6662.desop) - c:RegisterEffect(e2) - --To Hand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6662,1)) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetCountLimit(1,6662) - e3:SetCondition(c6662.thcon) - e3:SetTarget(c6662.thtg) - e3:SetOperation(c6662.thop) - c:RegisterEffect(e3) -end - -function c6662.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0xd1) and c:IsDestructable() -end -function c6662.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c6662.desfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) - and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,c6662.desfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0) -end -function c6662.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tg=g:Filter(Card.IsRelateToEffect,nil,e) - if tg:GetCount()>0 then - Duel.Destroy(tg,REASON_EFFECT) - end -end - -function c6662.thcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c6662.filter(c) - return c:IsSetCard(0xd1) and c:IsAbleToHand() -end -function c6662.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6662.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6662.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6662.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 then - Duel.ConfirmCards(1-tp,g) - Duel.ShuffleHand(tp) - end -end \ No newline at end of file diff --git a/script/c66625883.lua b/script/c66625883.lua index 8893c2ce..f10996d8 100644 --- a/script/c66625883.lua +++ b/script/c66625883.lua @@ -5,15 +5,7 @@ function c66625883.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_MUST_ATTACK) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c66625883.becon) - c:RegisterEffect(e2) - --to defence + --to defense local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(66625883,0)) e3:SetCategory(CATEGORY_POSITION) @@ -36,16 +28,13 @@ function c66625883.initial_effect(c) e5:SetCode(EVENT_SPSUMMON_SUCCESS) c:RegisterEffect(e5) end -function c66625883.becon(e) - return e:GetHandler():IsAttackable() -end function c66625883.poscon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsAttackPos() end function c66625883.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c66625883.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) @@ -58,6 +47,6 @@ end function c66625883.op(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end diff --git a/script/c6665.lua b/script/c6665.lua deleted file mode 100644 index 044b3375..00000000 --- a/script/c6665.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Scripted by Eerie Code ---Painful Decision -function c6665.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,6665+EFFECT_COUNT_CODE_OATH) - e1:SetTarget(c6665.target) - e1:SetOperation(c6665.operation) - c:RegisterEffect(e1) -end - -function c6665.filter1(c,tp) - return c:IsType(TYPE_NORMAL) and c:IsLevelBelow(4) and c:IsAbleToGrave() and Duel.IsExistingMatchingCard(c6665.filter2,tp,LOCATION_DECK,0,1,c,c:GetCode()) -end -function c6665.filter2(c,code) - return c:IsCode(code) and c:IsAbleToHand() -end -function c6665.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6665.filter1,tp,LOCATION_DECK,0,1,nil,tp) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6665.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,c6665.filter1,tp,LOCATION_DECK,0,1,1,nil,tp) - if g1:GetCount()>0 then - local tg1=g1:GetFirst() - Duel.SendtoGrave(tg1,REASON_EFFECT) - local g2=Duel.SelectMatchingCard(tp,c6665.filter2,tp,LOCATION_DECK,0,1,1,tg1,tg1:GetCode()) - if g2:GetCount()>0 then - Duel.SendtoHand(g2,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g2) - end - end -end \ No newline at end of file diff --git a/script/c6668.lua b/script/c6668.lua deleted file mode 100644 index 5f3c81e9..00000000 --- a/script/c6668.lua +++ /dev/null @@ -1,78 +0,0 @@ ---Scripted by Eerie Code ---Frightfur March -function c6668.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_BECOME_TARGET) - e1:SetCondition(c6668.negcon) - e1:SetTarget(c6668.negtg) - e1:SetOperation(c6668.negop) - c:RegisterEffect(e1) -end - -function c6668.negfil(c,tp) - return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsSetCard(0xad) -end -function c6668.negcon(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and eg:IsExists(c6668.negfil,1,nil,tp) and Duel.IsChainDisablable(ev) -end -function c6668.negtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,re:GetHandler(),1,0,0) - end -end -function c6668.spfil(c,e,tp) - return c:IsSetCard(0xad) and c:IsLevelAbove(8) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) -end -function c6668.spcfil(c) - return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsSetCard(0xad) and c:IsAbleToGraveAsCost() -end -function c6668.negop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateEffect(ev) - if re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(re:GetHandler(),REASON_EFFECT)~=0 then - local cg=Group.Filter(eg,c6668.spcfil,nil) - local sg=Duel.GetMatchingGroup(c6668.spfil,tp,LOCATION_EXTRA,0,nil,e,tp) - if sg:GetCount()>0 and cg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(6668,0)) then - Duel.BreakEffect() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local cost=cg:Select(tp,1,1,nil) - if Duel.SendtoGrave(cost,REASON_COST)~=0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local dg=sg:Select(tp,1,1,nil) - if dg then - local tc=dg:GetFirst() - Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) - tc:RegisterFlagEffect(6668,RESET_EVENT+0x1fe0000,0,1) - local de=Effect.CreateEffect(e:GetHandler()) - de:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - de:SetCode(EVENT_PHASE+PHASE_END) - de:SetCountLimit(1) - de:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - de:SetLabelObject(tc) - de:SetCondition(c6668.descon) - de:SetOperation(c6668.desop) - if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_END then - de:SetLabel(Duel.GetTurnCount()) - de:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN,2) - else - de:SetLabel(0) - de:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN) - end - Duel.RegisterEffect(de,tp) - end - end - end - end -end -function c6668.descon(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - return Duel.GetTurnPlayer()==tp and Duel.GetTurnCount()~=e:GetLabel() and tc:GetFlagEffect(6668)~=0 -end -function c6668.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c6670.lua b/script/c6670.lua deleted file mode 100644 index 1aa94bd6..00000000 --- a/script/c6670.lua +++ /dev/null @@ -1,72 +0,0 @@ ---Scripted by Eerie Code ---Transmigration of the Supreme Soldier -function c6670.initial_effect(c) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6670,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCountLimit(1,6670+EFFECT_COUNT_CODE_OATH) - e1:SetTarget(c6670.sptg) - e1:SetOperation(c6670.spop) - c:RegisterEffect(e1) - --To Hand - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c6670.thcon) - e2:SetCost(c6670.thcost) - e2:SetTarget(c6670.thtg) - e2:SetOperation(c6670.thop) - c:RegisterEffect(e2) -end - -function c6670.spfilter1(c) - return c:IsFaceup() and c:IsSetCard(0xd0) -end -function c6670.spfilter2(c,e,tp) - return c:IsSetCard(0xd0) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c6670.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c6670.spfilter1(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6670.spfilter1,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingMatchingCard(c6670.spfilter2,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c6670.spfilter1,tp,LOCATION_MZONE,0,1,1,nil) -end -function c6670.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and Duel.SendtoGrave(tc,REASON_EFFECT)>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6670.spfilter2,tp,LOCATION_HAND,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - end -end - -function c6670.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetTurnID()~=Duel.GetTurnCount() -end -function c6670.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c6670.filter(c) - return c:IsSetCard(0xd0) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c6670.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c6670.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6670.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c6670.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c6670.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c66707058.lua b/script/c66707058.lua index e7adaad7..4e85cb28 100644 --- a/script/c66707058.lua +++ b/script/c66707058.lua @@ -1,6 +1,6 @@ --ゴブリン暗殺部隊 function c66707058.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -21,7 +21,7 @@ end function c66707058.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c6671.lua b/script/c6671.lua deleted file mode 100644 index 21e5fb84..00000000 --- a/script/c6671.lua +++ /dev/null @@ -1,68 +0,0 @@ ---Scripted by Eerie Code ---Shield of the Supreme Soldier -function c6671.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6671,0)) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c6671.condition) - e1:SetTarget(c6671.target) - e1:SetOperation(c6671.activate) - c:RegisterEffect(e1) - --Set - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6671,1)) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e2:SetCost(c6671.scost) - e2:SetOperation(c6671.sop) - c:RegisterEffect(e2) -end - -function c6671.cfilter(c) - return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() -end -function c6671.cfilter2(c) - return c:IsFaceup() and c:IsSetCard(0xd0) -end -function c6671.condition(e,tp,eg,ep,ev,re,r,rp) - if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return end - if not re:IsActiveType(TYPE_MONSTER) and not re:IsHasType(EFFECT_TYPE_ACTIVATE) then return false end - local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) - return tg and tg:IsExists(c6671.cfilter,1,nil) and Duel.IsChainNegatable(ev) and Duel.IsExistingMatchingCard(c6671.cfilter2,tp,LOCATION_MZONE,0,1,nil) -end -function c6671.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c6671.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end - - -function c6671.scost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3001,1,REASON_COST) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - Duel.RemoveCounter(tp,1,0,0x3001,1,REASON_COST) -end -function c6671.sop(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=e:GetHandler() - if tc then - Duel.SSet(tp,tc) - Duel.ConfirmCards(1-tp,tc) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) - e1:SetReset(RESET_EVENT+0x47e0000) - e1:SetValue(LOCATION_REMOVED) - tc:RegisterEffect(e1,true) - end -end \ No newline at end of file diff --git a/script/c6674.lua b/script/c6674.lua deleted file mode 100644 index 9c7fa7f9..00000000 --- a/script/c6674.lua +++ /dev/null @@ -1,106 +0,0 @@ ---Scripted by Eerie Code ---Greydle Parasite -function c6674.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1c0) - e1:SetTarget(c6674.target) - c:RegisterEffect(e1) - --Sp. Summon (you) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6674,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1,6674) - e2:SetCondition(c6674.spcon1) - e2:SetTarget(c6674.sptg1) - e2:SetOperation(c6674.spop1) - c:RegisterEffect(e2) - --Sp. Summon (opponent) - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6674,2)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_ATTACK_ANNOUNCE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_SZONE) - e3:SetCountLimit(1,6675) - e3:SetCondition(c6674.spcon2) - e3:SetTarget(c6674.sptg2) - e3:SetOperation(c6674.spop2) - c:RegisterEffect(e3) -end - -function c6674.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local b1=c6674.spcon1(e,tp,eg,ep,ev,re,r,rp) and c6674.sptg1(e,tp,eg,ep,ev,re,r,rp,0) - local b2=c6674.spcon2(e,tp,eg,ep,ev,re,r,rp) and c6674.sptg2(e,tp,eg,ep,ev,re,r,rp,0,nil) - if (b1 or b2) and Duel.SelectYesNo(tp,aux.Stringid(6674,0)) then - local opt=0 - if b1 and b2 then - opt=Duel.SelectOption(tp,aux.Stringid(6674,1),aux.Stringid(6674,2)) - elseif b1 then - opt=Duel.SelectOption(tp,aux.Stringid(6674,1)) - else - opt=Duel.SelectOption(tp,aux.Stringid(6674,2))+1 - end - e:SetCategory(CATEGORY_SPECIAL_SUMMON) - if opt==0 then - e:SetProperty(0) - e:SetOperation(c6674.spop1) - c6674.sptg1(e,tp,eg,ep,ev,re,r,rp,1) - else - e:SetProperty(EFFECT_FLAG_CARD_TARGET) - e:SetOperation(c6674.spop2) - c6674.sptg2(e,tp,eg,ep,ev,re,r,rp,1,nil) - end - else - e:SetCategory(0) - e:SetProperty(0) - e:SetOperation(nil) - end -end - -function c6674.spcon1(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 -end -function c6674.spfil1(c,e,tp) - return c:IsSetCard(0xd1) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6674.sptg1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsRelateToEffect(e) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c6674.spfil1,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c6674.spop1(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6674.spfil1,tp,LOCATION_DECK,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK) - end -end - -function c6674.spcon2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker():IsControler(tp) and Duel.GetAttackTarget()==nil and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)==0 -end -function c6674.spfil2(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp) -end -function c6674.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and c6674.spfil2(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c6674.spfil2,tp,0,LOCATION_GRAVE,1,nil,e,tp) end - local g=Duel.SelectTarget(tp,c6674.spfil2,tp,0,LOCATION_GRAVE,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c6674.spop2(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c66742250.lua b/script/c66742250.lua index f593d846..f61d07fb 100644 --- a/script/c66742250.lua +++ b/script/c66742250.lua @@ -20,12 +20,12 @@ function c66742250.postg(e,tp,eg,ep,ev,re,r,rp,chk) end function c66742250.posop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c66742250.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE,0,POS_FACEUP_DEFENCE,0) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE,0,POS_FACEUP_DEFENSE,0) local tc=g:GetFirst() while tc do local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_BASE_DEFENCE) + e1:SetCode(EFFECT_SET_BASE_DEFENSE) e1:SetValue(0) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) diff --git a/script/c66752837.lua b/script/c66752837.lua index 90923d02..3fdbeffd 100644 --- a/script/c66752837.lua +++ b/script/c66752837.lua @@ -43,18 +43,23 @@ function c66752837.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c66752837.thfilter(c) - return c:IsRace(RACE_DRAGON) and c:IsType(TYPE_NORMAL) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsRace(RACE_DRAGON) and c:IsType(TYPE_NORMAL) and c:IsAbleToHand() end function c66752837.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() local g=Duel.GetMatchingGroup(c66752837.thfilter,tp,LOCATION_GRAVE,0,nil) - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 and e:GetLabel()==1 + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 and e:GetLabel()==1 and g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(66752837,0)) then Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local sg=g:Select(tp,1,1,nil) + if sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SendtoHand(sg,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,sg) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c66788016.lua b/script/c66788016.lua index 199c6ede..953d3ff1 100644 --- a/script/c66788016.lua +++ b/script/c66788016.lua @@ -10,7 +10,7 @@ function c66788016.initial_effect(c) c:RegisterEffect(e1) end function c66788016.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c66788016.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c66788016.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c66789970.lua b/script/c66789970.lua index 37f078fb..4b26629d 100644 --- a/script/c66789970.lua +++ b/script/c66789970.lua @@ -47,10 +47,10 @@ function c66789970.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c66789970.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c66789970.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c66816282.lua b/script/c66816282.lua index 19e4698f..749d9473 100644 --- a/script/c66816282.lua +++ b/script/c66816282.lua @@ -14,7 +14,7 @@ function c66816282.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(66816282,3)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetCode(EVENT_CHAINING) e2:SetRange(LOCATION_MZONE) @@ -34,6 +34,8 @@ function c66816282.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_ROCK) and not c:IsPublic() end function c66816282.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c66816282.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c66816282.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -44,8 +46,10 @@ function c66816282.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(66816282,0),aux.Stringid(66816282,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(66816282,1),aux.Stringid(66816282,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(66816282,1),aux.Stringid(66816282,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(66816282,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -57,7 +61,7 @@ function c66816282.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c66816282.condition(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c6691.lua b/script/c6691.lua deleted file mode 100644 index 649df646..00000000 --- a/script/c6691.lua +++ /dev/null @@ -1,31 +0,0 @@ ---Scripted by Eerie Code ---Great Horn of Heaven -function c6691.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_SPSUMMON) - e1:SetHintTiming(0,TIMING_MAIN_END) - e1:SetCondition(c6691.condition) - e1:SetTarget(c6691.target) - e1:SetOperation(c6691.activate) - c:RegisterEffect(e1) -end - -function c6691.condition(e,tp,eg,ep,ev,re,r,rp) - local ph=Duel.GetCurrentPhase() - return Duel.GetTurnPlayer()==1-tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2) and Duel.GetCurrentChain()==0 -end -function c6691.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,eg:GetCount(),0,0) -end -function c6691.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateSummon(eg) - Duel.Destroy(eg,REASON_EFFECT) - Duel.Draw(1-tp,1,REASON_EFFECT) - local ph=Duel.GetCurrentPhase() - Duel.SkipPhase(1-tp,ph,RESET_PHASE+ph,1) -end \ No newline at end of file diff --git a/script/c6691855.lua b/script/c6691855.lua old mode 100755 new mode 100644 index f9582c88..a600bf37 --- a/script/c6691855.lua +++ b/script/c6691855.lua @@ -39,13 +39,12 @@ function c6691855.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(500) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) - --damage cal + --def local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PRE_DAMAGE_CALCULATE) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c6691855.damcon) - e2:SetOperation(c6691855.damop) + e2:SetType(EFFECT_TYPE_EQUIP) + e2:SetCode(EFFECT_UPDATE_DEFENSE) + e2:SetCondition(c6691855.defcon) + e2:SetValue(c6691855.defval) e2:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e2) --Equip limit @@ -58,17 +57,11 @@ function c6691855.operation(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e3) end end -function c6691855.damcon(e,tp,eg,ep,ev,re,r,rp) +function c6691855.defcon(e) + if Duel.GetCurrentPhase()~=PHASE_DAMAGE_CAL then return false end local eq=e:GetHandler():GetEquipTarget() - return eq:IsRelateToBattle() and eq:IsDefencePos() + return (eq==Duel.GetAttacker() or eq==Duel.GetAttackTarget()) and eq:IsDefensePos() end -function c6691855.damop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local atk=c:GetEquipTarget():GetAttack() - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_DEFENCE) - e2:SetValue(atk) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL) - c:RegisterEffect(e2) +function c6691855.defval(e,c) + return c:GetAttack() end diff --git a/script/c66926224.lua b/script/c66926224.lua index ea0b7c3c..3fd4e704 100644 --- a/script/c66926224.lua +++ b/script/c66926224.lua @@ -17,12 +17,13 @@ function c66926224.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c66926224.cfilter,tp,LOCATION_MZONE,0,5,nil) end function c66926224.dfilter(c) - return not (c:IsFaceup() and c:IsType(TYPE_NORMAL) and c:IsLevelBelow(2)) and c:IsDestructable() + return not (c:IsFaceup() and c:IsType(TYPE_NORMAL) and c:IsLevelBelow(2)) end function c66926224.target(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_HAND,LOCATION_HAND,1,c) - or Duel.IsExistingMatchingCard(c66926224.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end + if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_HAND,0,1,c) + and Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 + and Duel.IsExistingMatchingCard(c66926224.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end local g=Duel.GetMatchingGroup(c66926224.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,PLAYER_ALL,1) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) diff --git a/script/c66957584.lua b/script/c66957584.lua index e99ab898..55bd5a2c 100644 --- a/script/c66957584.lua +++ b/script/c66957584.lua @@ -59,6 +59,7 @@ function c66957584.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) and Duel.IsExistingTarget(c66957584.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) if ct>2 then ct=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c66957584.filter,tp,LOCATION_GRAVE,0,1,ct,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) @@ -66,6 +67,7 @@ end function c66957584.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0 then return end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local sg=g:Filter(Card.IsRelateToEffect,nil,e) if sg:GetCount()==0 or ft6 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 - and Duel.GetTributeCount(c,mg)>0 -end -function c6700.otop(e,tp,eg,ep,ev,re,r,rp,c) - local mg=Duel.GetMatchingGroup(c6700.otfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil) - local sg=Duel.SelectTribute(tp,c,1,1,mg) - c:SetMaterial(sg) - Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL) -end - -function c6700.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE -end -function c6700.spfil1(c) - return c:IsSetCard(0xbe) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGraveAsCost() -end -function c6700.spfil2(c,e,tp) - return c:IsType(TYPE_MONSTER) and c:GetAttack()>=2400 and c:GetDefence()==1000 and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SPECIAL,tp,false,false) -end -function c6700.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - return Duel.GetMatchingGroup(c6700.spfil1,tp,LOCATION_HAND+LOCATION_DECK,0,nil):GetClassCount(Card.GetCode)>=2 and Duel.IsExistingMatchingCard(c6700.spfil2,tp,LOCATION_DECK,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - end -end -function c6700.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end - local g1=Duel.GetMatchingGroup(c6700.spfil1,tp,LOCATION_HAND+LOCATION_DECK,0,nil) - local cg=Group.CreateGroup() - for i=1,2 do - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local sg=g1:Select(tp,1,1,nil) - g1:Remove(Card.IsCode,nil,sg:GetFirst():GetCode()) - cg:Merge(sg) - end - if Duel.SendtoGrave(cg,REASON_COST)>0 then - local g2=Duel.SelectMatchingCard(tp,c6700.spfil2,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g2:GetCount()>0 then - local tc=g2:GetFirst() - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetOperation(c6700.retop) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetCountLimit(1) - tc:RegisterEffect(e2,true) - end - end -end -function c6700.retop(e,tp,eg,ep,ev,re,r,rp) - Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT) -end - -function c6700.adcon(e,tp,eg,ep,ev,re,r,rp) - local tn=Duel.GetTurnPlayer() - local ph=Duel.GetCurrentPhase() - return tn~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2) -end -function c6700.cfilter(c) - return c:IsSetCard(0xbe) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemoveAsCost() -end -function c6700.adcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6700.cfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c6700.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c6700.adtg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:GetFlagEffect(6700)==0 and (c:IsSummonable(true,nil,1) or c:IsMSetable(true,nil,1)) end - Duel.SetOperationInfo(0,CATEGORY_SUMMON,c,1,0,0) - c:RegisterFlagEffect(6700,RESET_CHAIN,0,1) -end -function c6700.adop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if e:GetLabel()~=1 then return end - if c and c:IsRelateToEffect(e) then - local s1=c:IsSummonable(true,nil,1) - local s2=c:IsMSetable(true,nil,1) - if (s1 and s2 and Duel.SelectPosition(tp,c,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENCE)==POS_FACEUP_ATTACK) or not s2 then - Duel.Summon(tp,c,true,nil) - else - Duel.MSet(tp,c,true,nil) - end - end -end \ No newline at end of file diff --git a/script/c6701.lua b/script/c6701.lua deleted file mode 100755 index 5678c6dd..00000000 --- a/script/c6701.lua +++ /dev/null @@ -1,109 +0,0 @@ ---Scripted by Eerie Code ---Erebus the Netherworld Monarch -function c6701.initial_effect(c) - --Summon with 1 tribute - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6701,0)) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetCondition(c6701.otcon) - e1:SetOperation(c6701.otop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_PROC) - c:RegisterEffect(e2) - --Shuffle - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6701,1)) - e3:SetCategory(CATEGORY_TODECK) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetProperty(EFFECT_FLAG_DELAY) - e3:SetCondition(c6701.tdcon) - e3:SetTarget(c6701.tdtg) - e3:SetOperation(c6701.tdop) - c:RegisterEffect(e3) - --Recover - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(6701,2)) - e4:SetCategory(CATEGORY_TOHAND) - e4:SetType(EFFECT_TYPE_QUICK_O) - e4:SetCode(EVENT_FREE_CHAIN) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetRange(LOCATION_GRAVE) - e4:SetHintTiming(0,TIMING_MAIN_END) - e4:SetCountLimit(1) - e4:SetCost(c6701.thcost) - e4:SetTarget(c6701.thtg) - e4:SetOperation(c6701.thop) - c:RegisterEffect(e4) -end - -function c6701.otfilter(c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE -end -function c6701.otcon(e,c) - if c==nil then return true end - local mg=Duel.GetMatchingGroup(c6701.otfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil) - return c:GetLevel()>6 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 - and Duel.GetTributeCount(c,mg)>0 -end -function c6701.otop(e,tp,eg,ep,ev,re,r,rp,c) - local mg=Duel.GetMatchingGroup(c6701.otfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil) - local sg=Duel.SelectTribute(tp,c,1,1,mg) - c:SetMaterial(sg) - Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL) -end - -function c6701.tdcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE -end -function c6701.tdfil1(c) - return c:IsSetCard(0xbe) and c:IsAbleToGraveAsCost() -end -function c6701.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - return Duel.GetMatchingGroup(c6701.tdfil1,tp,LOCATION_HAND+LOCATION_DECK,0,nil):GetClassCount(Card.GetCode)>=2 and Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_GRAVE,1,nil) - end -end -function c6701.tdop(e,tp,eg,ep,ev,re,r,rp) - local g1=Duel.GetMatchingGroup(c6701.tdfil1,tp,LOCATION_HAND+LOCATION_DECK,0,nil) - local cg=Group.CreateGroup() - for i=1,2 do - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local sg=g1:Select(tp,1,1,nil) - g1:Remove(Card.IsCode,nil,sg:GetFirst():GetCode()) - cg:Merge(sg) - end - if Duel.SendtoGrave(cg,REASON_COST)>0 then - local g2=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD+LOCATION_HAND+LOCATION_GRAVE,1,1,nil) - if g2:GetCount()>0 then Duel.SendtoDeck(g2,nil,2,REASON_EFFECT) end - end -end - -function c6701.thfil1(c) - return c:IsSetCard(0xbe) and c:IsDiscardable() -end -function c6701.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6701.thfil1,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,c6701.thfil1,1,1,REASON_COST+REASON_DISCARD) -end -function c6701.thfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsAttackAbove(2400) and c:GetDefence()==1000 and c:IsAbleToHand() -end -function c6701.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6701.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6701.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c6701.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c6701.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end \ No newline at end of file diff --git a/script/c6702.lua b/script/c6702.lua deleted file mode 100755 index 7f31665e..00000000 --- a/script/c6702.lua +++ /dev/null @@ -1,72 +0,0 @@ ---Scripted by Eerie Code ---Eidos the Netherworld Knight -function c6702.initial_effect(c) - --extra summon - local e1=Effect.CreateEffect(c) - --e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetOperation(c6702.sumop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - --Special Summon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6702,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_GRAVE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1,6702) - e3:SetCost(c6702.spcost) - e3:SetTarget(c6702.sptg) - e3:SetOperation(c6702.spop) - c:RegisterEffect(e3) -end - -function c6702.sumop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetFlagEffect(tp,6702)~=0 then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetTargetRange(LOCATION_HAND,0) - e1:SetCode(EFFECT_EXTRA_SUMMON_COUNT) - e1:SetValue(0x1) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - Duel.RegisterFlagEffect(tp,6702,RESET_PHASE+PHASE_END,0,1) -end - -function c6702.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c6702.filter(c,e,tp) - return c:GetAttack()==800 and c:GetDefence()==1000 and not c:IsCode(6702) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6702.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6702.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and - Duel.IsExistingTarget(c6702.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c6702.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c6702.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c6702.splimit) - Duel.RegisterEffect(e1,tp) -end -function c6702.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return c:IsLocation(LOCATION_EXTRA) -end \ No newline at end of file diff --git a/script/c6703.lua b/script/c6703.lua deleted file mode 100755 index 3281b29c..00000000 --- a/script/c6703.lua +++ /dev/null @@ -1,78 +0,0 @@ ---Scripted by Eerie Code ---Idea the Heaven Knight -function c6703.initial_effect(c) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6703,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_DELAY) - e2:SetCountLimit(1,6703) - e2:SetTarget(c6703.sptg) - e2:SetOperation(c6703.spop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - --Salvage - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetCountLimit(1,6703+EFFECT_FLAG_INITIAL) - e1:SetCondition(c6703.thcon) - e1:SetTarget(c6703.thtg) - e1:SetOperation(c6703.thop) - c:RegisterEffect(e1) -end - -function c6703.spfil(c,e,tp) - return c:GetAttack()==800 and c:GetDefence()==1000 and not c:IsCode(6703) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6703.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_DECK) and chkc:IsControler(tp) and c6703.spfil(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c6703.spfil,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) -end -function c6703.spop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6703.spfil,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetTargetRange(1,0) - e1:SetTarget(c6703.splimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - end -end -function c6703.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return c:IsLocation(LOCATION_EXTRA) -end - -function c6703.thcon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsReason(REASON_RETURN) -end -function c6703.thfilter(c) - return c:IsFaceup() and c:IsSetCard(0xbe) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c6703.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c6703.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6703.thfilter,tp,LOCATION_REMOVED,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c6703.thfilter,tp,LOCATION_REMOVED,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c6703.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end \ No newline at end of file diff --git a/script/c67030233.lua b/script/c67030233.lua index 45b44293..57de3b97 100644 --- a/script/c67030233.lua +++ b/script/c67030233.lua @@ -118,7 +118,7 @@ function c67030233.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler()==Duel.GetAttacker() end function c67030233.desfilter(c) - return c:IsDefencePos() and c:IsDestructable() + return c:IsDefensePos() end function c67030233.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -154,6 +154,7 @@ function c67030233.disop(e,tp,eg,ep,ev,re,r,rp) e2:SetCode(EFFECT_DISABLE_EFFECT) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e2) + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE) e3:SetCode(EFFECT_UPDATE_ATTACK) diff --git a/script/c67038874.lua b/script/c67038874.lua index 215c09c4..f0561d8f 100644 --- a/script/c67038874.lua +++ b/script/c67038874.lua @@ -25,7 +25,7 @@ function c67038874.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetCurrentPhase()==PHASE_MAIN2 end function c67038874.filter(c) - return c:IsFaceup() and c:IsSetCard(0x24) and c:GetCode()~=67038874 and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x24) and c:GetCode()~=67038874 end function c67038874.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingTarget(c67038874.filter,tp,LOCATION_MZONE,0,1,nil) diff --git a/script/c67045174.lua b/script/c67045174.lua index fdd5826d..58e6cf7f 100644 --- a/script/c67045174.lua +++ b/script/c67045174.lua @@ -35,11 +35,11 @@ function c67045174.condition(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c67045174.filter,1,nil) end function c67045174.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) end function c67045174.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.Destroy(sg,REASON_EFFECT) end diff --git a/script/c67048711.lua b/script/c67048711.lua index 55c4eec4..bd02604e 100644 --- a/script/c67048711.lua +++ b/script/c67048711.lua @@ -11,7 +11,7 @@ function c67048711.initial_effect(c) e2:SetDescription(aux.Stringid(67048711,0)) e2:SetCategory(CATEGORY_DRAW+CATEGORY_DESTROY) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(67048711) + e2:SetCode(EVENT_CUSTOM+67048711) e2:SetTarget(c67048711.drtg) e2:SetOperation(c67048711.drop) c:RegisterEffect(e2) @@ -33,7 +33,7 @@ end function c67048711.operation(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end if Duel.GetMatchingGroupCount(c67048711.filter,tp,LOCATION_SZONE,0,nil)==3 then - Duel.RaiseSingleEvent(e:GetHandler(),67048711,e,0,0,0,0) + Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+67048711,e,0,0,0,0) end end function c67048711.drtg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c67050396.lua b/script/c67050396.lua old mode 100755 new mode 100644 index 785491a4..79e87478 --- a/script/c67050396.lua +++ b/script/c67050396.lua @@ -62,6 +62,6 @@ end function c67050396.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c67111213.lua b/script/c67111213.lua index 7fe43953..c9fb3f22 100644 --- a/script/c67111213.lua +++ b/script/c67111213.lua @@ -18,7 +18,7 @@ function c67111213.initial_effect(c) c:RegisterEffect(e3) end function c67111213.filter(c) - return c:IsDefenceBelow(1000) and c:IsSetCard(0x3a) and c:IsType(TYPE_MONSTER) and c:GetCode()~=67111213 and c:IsAbleToHand() + return c:IsDefenseBelow(1000) and c:IsSetCard(0x3a) and c:IsType(TYPE_MONSTER) and c:GetCode()~=67111213 and c:IsAbleToHand() end function c67111213.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.IsExistingMatchingCard(c67111213.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c67120578.lua b/script/c67120578.lua old mode 100755 new mode 100644 index d647a4d6..a0bc214b --- a/script/c67120578.lua +++ b/script/c67120578.lua @@ -53,6 +53,7 @@ function c67120578.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c67120578.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end local ct=math.min(2,Duel.GetLocationCount(tp,LOCATION_MZONE)) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c67120578.spfilter,tp,LOCATION_GRAVE,0,1,ct,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) @@ -60,7 +61,8 @@ end function c67120578.spop(e,tp,eg,ep,ev,re,r,rp) local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local g=tg:Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()>0 then + local ct=g:GetCount() + if ct>0 and (ct==1 or not Duel.IsPlayerAffectedByEffect(tp,59822133)) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c6713443.lua b/script/c6713443.lua index a2fdabf4..fb91b735 100644 --- a/script/c6713443.lua +++ b/script/c6713443.lua @@ -32,10 +32,10 @@ function c6713443.sfilter(c) end function c6713443.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end + local tg=Duel.GetMatchingGroup(c6713443.filter,tp,LOCATION_GRAVE,0,nil,e,tp) + if ft<=0 or tg:GetCount()==0 or (ft>1 and tg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6713443.filter,tp,LOCATION_GRAVE,0,ft,ft,nil,e,tp) - if g:GetCount()==0 then return end + local g=tg:Select(tp,ft,ft,nil) local ct=Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) if ct>0 then local ft2=Duel.GetLocationCount(tp,LOCATION_SZONE) diff --git a/script/c67159705.lua b/script/c67159705.lua index bdb8f07e..5af29d50 100644 --- a/script/c67159705.lua +++ b/script/c67159705.lua @@ -88,12 +88,14 @@ function c67159705.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c67159705.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c67159705.desfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c67159705.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c67159705.desfilter(chkc) end diff --git a/script/c67169062.lua b/script/c67169062.lua index 83c86465..779ebe4f 100644 --- a/script/c67169062.lua +++ b/script/c67169062.lua @@ -27,9 +27,9 @@ function c67169062.activate(e,tp,eg,ep,ev,re,r,rp) if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=5 then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) if ct==5 then - Duel.ShuffleDeck(tp) Duel.BreakEffect() Duel.Draw(tp,2,REASON_EFFECT) end diff --git a/script/c67196946.lua b/script/c67196946.lua index 0424f08f..847406ea 100644 --- a/script/c67196946.lua +++ b/script/c67196946.lua @@ -24,7 +24,7 @@ function c67196946.cost(e,tp,eg,ep,ev,re,r,rp,chk) local maxlv=tg:GetFirst():GetLevel() local t={} local l=1 - while l=3 - return Duel.IsExistingMatchingCard(c6723.thfil,tp,LOCATION_DECK,0,3,nil) - end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK) -end -function c6723.thop(e,tp,eg,ep,ev,re,r,rp) --- local g=Duel.GetMatchingGroup(c6723.thfil,tp,LOCATION_DECK,0,nil) --- if g:GetClassCount(Card.GetCode)>=3 then --- Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) --- local sg1=g:Select(tp,1,1,nil) --- g:Remove(Card.IsCode,nil,sg1:GetFirst():GetCode()) --- Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) --- local sg2=g:Select(tp,1,1,nil) --- g:Remove(Card.IsCode,nil,sg2:GetFirst():GetCode()) --- Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) --- local sg3=g:Select(tp,1,1,nil) --- sg1:Merge(sg2) --- sg1:Merge(sg3) - local sg1=Duel.SelectMatchingCard(tp,c6723.thfil,tp,LOCATION_DECK,0,3,3,nil) - if sg1:GetCount()==3 then - Duel.ConfirmCards(1-tp,sg1) - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_ATOHAND) - local tg=sg1:Select(1-tp,1,1,nil) - local tc=tg:GetFirst() - if tc:IsAbleToHand() then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - else - Duel.SendtoGrave(tc,REASON_EFFECT) - end - end - Duel.ShuffleDeck(tp) -end \ No newline at end of file diff --git a/script/c67234805.lua b/script/c67234805.lua index 55e424a6..7fec18df 100644 --- a/script/c67234805.lua +++ b/script/c67234805.lua @@ -1,5 +1,6 @@ --能力吸収石 function c67234805.initial_effect(c) + c:EnableCounterPermit(0x16) c:SetCounterLimit(0x16,2) --Activate local e1=Effect.CreateEffect(c) @@ -42,7 +43,7 @@ end function c67234805.ctop(e,tp,eg,ep,ev,re,r,rp) local c=re:GetHandler() if c:IsType(TYPE_MONSTER) then - e:GetHandler():AddCounter(0x16+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x16,1) end end function c67234805.discon(e) diff --git a/script/c67237709.lua b/script/c67237709.lua old mode 100755 new mode 100644 diff --git a/script/c67249508.lua b/script/c67249508.lua index 7dfd057d..a68fb2d0 100644 --- a/script/c67249508.lua +++ b/script/c67249508.lua @@ -28,8 +28,8 @@ function c67249508.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetValue(tc:GetBaseDefence()*2) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) + e2:SetValue(tc:GetBaseDefense()*2) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE) tc:RegisterEffect(e2) local e3=Effect.CreateEffect(c) diff --git a/script/c67270095.lua b/script/c67270095.lua index f0f763ad..7ebd27bb 100644 --- a/script/c67270095.lua +++ b/script/c67270095.lua @@ -33,7 +33,7 @@ end function c67270095.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) and tc:IsAttackPos() then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) end end function c67270095.spcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c67273917.lua b/script/c67273917.lua index a0fa0996..080ce8fc 100644 --- a/script/c67273917.lua +++ b/script/c67273917.lua @@ -23,8 +23,7 @@ end function c67273917.thtg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() local pc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-c:GetSequence()) - if chk==0 then return c:IsDestructable() and pc:IsDestructable() - and Duel.IsExistingMatchingCard(c67273917.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end + if chk==0 then return Duel.IsExistingMatchingCard(c67273917.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end local g=Group.FromCards(c,pc) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) diff --git a/script/c67284107.lua b/script/c67284107.lua new file mode 100644 index 00000000..071a96fc --- /dev/null +++ b/script/c67284107.lua @@ -0,0 +1,30 @@ +--スケープ・ゴースト +function c67284107.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(67284107,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetTarget(c67284107.sptg) + e1:SetOperation(c67284107.spop) + c:RegisterEffect(e1) +end +function c67284107.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsPlayerCanSpecialSummonMonster(tp,67284108,0,0x4011,0,0,1,RACE_ZOMBIE,ATTRIBUTE_DARK) end + Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) +end +function c67284107.spop(e,tp,eg,ep,ev,re,r,rp) + local ft=5 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + ft=math.min(ft,Duel.GetLocationCount(tp,LOCATION_MZONE)) + if ft<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,67284108,0,0x4011,0,0,1,RACE_ZOMBIE,ATTRIBUTE_DARK) then return end + repeat + local token=Duel.CreateToken(tp,67284108) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) + ft=ft-1 + until ft<=0 or not Duel.SelectYesNo(tp,aux.Stringid(67284107,1)) + Duel.SpecialSummonComplete() +end diff --git a/script/c67287533.lua b/script/c67287533.lua index a0d6ee69..e81b752f 100644 --- a/script/c67287533.lua +++ b/script/c67287533.lua @@ -6,6 +6,10 @@ function c67287533.initial_effect(c) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e2:SetCode(EFFECT_SPSUMMON_COST) + e2:SetCost(c67287533.spcost) c:RegisterEffect(e2) end +function c67287533.spcost(e,c,tp,sumtype) + return sumtype==SUMMON_TYPE_SPECIAL+181 +end diff --git a/script/c67328336.lua b/script/c67328336.lua index 6e9ab11d..f32dbb18 100644 --- a/script/c67328336.lua +++ b/script/c67328336.lua @@ -27,14 +27,14 @@ function c67328336.initial_effect(c) c:RegisterEffect(e3) end function c67328336.effval(e,re,rp) - return re:GetHandler():IsType(TYPE_SYNCHRO) and aux.tgval(e,re,rp) + return re:GetHandler():IsType(TYPE_SYNCHRO) end function c67328336.thcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() return c:IsReason(REASON_DESTROY) and bit.band(c:GetPreviousLocation(),LOCATION_ONFIELD)~=0 end function c67328336.filter(c) - return c:IsSetCard(0x3013) and c:IsAbleToHand() + return c:IsSetCard(0x3013) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c67328336.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c67328336.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c6733059.lua b/script/c6733059.lua index ba82414c..4221aa78 100644 --- a/script/c6733059.lua +++ b/script/c6733059.lua @@ -24,7 +24,7 @@ function c6733059.cfilter(c) return c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() end function c6733059.tfilter(c,lv) - return c:IsFaceup() and c:IsLevelBelow(lv) and c:IsDestructable() + return c:IsFaceup() and c:IsLevelBelow(lv) end function c6733059.cost1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -83,7 +83,7 @@ function c6733059.cost2(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetTargetParam(lv) end function c6733059.dfilter(c,lv) - return c:IsFaceup() and c:GetLevel()==lv and c:IsDestructable() + return c:IsFaceup() and c:GetLevel()==lv end function c6733059.operation(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end diff --git a/script/c6734.lua b/script/c6734.lua deleted file mode 100755 index 43e2be5c..00000000 --- a/script/c6734.lua +++ /dev/null @@ -1,111 +0,0 @@ ---Scripted by Eerie Code ---The Original Monarch -function c6734.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1c0) - e1:SetTarget(c6734.target) - e1:SetOperation(c6734.drop) - c:RegisterEffect(e1) - --Draw - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6734,0)) - e2:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetTarget(c6734.drtg) - e2:SetOperation(c6734.drop) - c:RegisterEffect(e2) - --Special Summon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6734,1)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetRange(LOCATION_GRAVE) - e3:SetCountLimit(1,6734) - e3:SetCost(c6734.spcost) - e3:SetTarget(c6734.sptg) - e3:SetOperation(c6734.spop) - c:RegisterEffect(e3) -end - -function c6734.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp and c6734.filter(chkc) end - if chk==0 then return true end - if Duel.IsPlayerCanDraw(tp,1) and Duel.IsExistingTarget(c6734.filter,tp,LOCATION_GRAVE,0,2,nil) and Duel.SelectYesNo(tp,aux.Stringid(6734,0)) then - e:SetProperty(EFFECT_FLAG_CARD_TARGET) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,c6734.filter,tp,LOCATION_GRAVE,0,2,2,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) - e:GetHandler():RegisterFlagEffect(6734,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - else - e:SetProperty(0) - end -end - -function c6734.filter(c) - return c:IsSetCard(0xbe) and c:IsAbleToDeck() -end -function c6734.drtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp and c6734.filter(chkc) end - if chk==0 then return e:GetHandler():GetFlagEffect(6734)==0 and Duel.IsPlayerCanDraw(tp,1) and Duel.IsExistingTarget(c6734.filter,tp,LOCATION_GRAVE,0,2,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,c6734.filter,tp,LOCATION_GRAVE,0,2,2,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) - e:GetHandler():RegisterFlagEffect(6734,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c6734.tgfilter(c,e) - return not c:IsRelateToEffect(e) -end -function c6734.drop(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=2 or not e:GetHandler():IsLocation(LOCATION_SZONE) then return end - Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) - local g=Duel.GetOperatedGroup() - local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) - if ct==2 then - Duel.ShuffleDeck(tp) - Duel.BreakEffect() - Duel.Draw(tp,1,REASON_EFFECT) - end -end - -function c6734.cfilter(c) - return c:IsSetCard(0xbe) and c:IsAbleToRemoveAsCost() -end -function c6734.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6734.cfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c6734.cfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c6734.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,6734,0,0x11,5,1000,2400,RACE_FAIRY,ATTRIBUTE_LIGHT) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c6734.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - if c:IsRelateToEffect(e) - and Duel.IsPlayerCanSpecialSummonMonster(tp,6734,0,0x11,5,1000,2400,RACE_FAIRY,ATTRIBUTE_LIGHT) then - c:AddTrapMonsterAttribute(TYPE_NORMAL,ATTRIBUTE_LIGHT,RACE_FAIRY,5,1000,2400) - c:SetStatus(STATUS_NO_LEVEL,false) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(TYPE_NORMAL+TYPE_MONSTER) - e1:SetReset(RESET_EVENT+0x47c0000) - c:RegisterEffect(e1,true) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_DEFENCE) - end -end diff --git a/script/c67381587.lua b/script/c67381587.lua index 488105b8..c1b782b5 100644 --- a/script/c67381587.lua +++ b/script/c67381587.lua @@ -20,8 +20,8 @@ function c67381587.initial_effect(c) c:RegisterEffect(e2) end function c67381587.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_BATTLE - and Duel.IsExistingMatchingCard(Card.IsPosition,tp,LOCATION_MZONE,0,2,nil,POS_FACEDOWN_DEFENCE) + return Duel.GetTurnPlayer()~=tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) + and Duel.IsExistingMatchingCard(Card.IsPosition,tp,LOCATION_MZONE,0,2,nil,POS_FACEDOWN_DEFENSE) end function c67381587.activate(e,tp,eg,ep,ev,re,r,rp) Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) @@ -50,6 +50,6 @@ end function c67381587.posop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c674561.lua b/script/c674561.lua index 6d7436b1..9dc16f20 100644 --- a/script/c674561.lua +++ b/script/c674561.lua @@ -24,6 +24,5 @@ function c674561.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c67503139.lua b/script/c67503139.lua index d846be5e..69e04ae2 100644 --- a/script/c67503139.lua +++ b/script/c67503139.lua @@ -11,7 +11,6 @@ function c67503139.initial_effect(c) end function c67503139.thfilter(c) return bit.band(c:GetType(),0x81)==0x81 and c:IsAbleToHand() - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c67503139.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c67503139.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end @@ -20,7 +19,7 @@ end function c67503139.thop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c67503139.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end diff --git a/script/c67547370.lua b/script/c67547370.lua new file mode 100644 index 00000000..37ae41e8 --- /dev/null +++ b/script/c67547370.lua @@ -0,0 +1,107 @@ +--眠れる巨人ズシン +function c67547370.initial_effect(c) + c:EnableReviveLimit() + --cannot special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_HAND) + e2:SetCondition(c67547370.spcon) + e2:SetOperation(c67547370.spop) + c:RegisterEffect(e2) + --counter + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(67547370,0)) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetCategory(CATEGORY_COUNTER) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetRange(LOCATION_HAND) + e3:SetCountLimit(1) + e3:SetCost(c67547370.countcost) + e3:SetTarget(c67547370.counttg) + e3:SetOperation(c67547370.countop) + c:RegisterEffect(e3) + --immune + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_IMMUNE_EFFECT) + e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e4:SetRange(LOCATION_MZONE) + e4:SetValue(c67547370.efilter) + c:RegisterEffect(e4) + --atk up + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(67547370,1)) + e5:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) + e5:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) + e5:SetCode(EVENT_PRE_DAMAGE_CALCULATE) + e5:SetCondition(c67547370.atkcon) + e5:SetOperation(c67547370.atkop) + c:RegisterEffect(e5) +end +function c67547370.cfilter(c) + return c:IsFaceup() and c:GetCounter(0x1039)==10 +end +function c67547370.spcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.CheckReleaseGroup(c:GetControler(),c67547370.cfilter,1,nil) +end +function c67547370.spop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.SelectReleaseGroup(tp,c67547370.cfilter,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c67547370.countcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return not e:GetHandler():IsPublic() end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_PUBLIC) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e:GetHandler():RegisterEffect(e1) +end +function c67547370.filter(c) + return c:IsFaceup() and c:IsType(TYPE_NORMAL) and c:GetLevel()==1 +end +function c67547370.counttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c67547370.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c67547370.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c67547370.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c67547370.countop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + tc:AddCounter(0x1039,1) + end +end +function c67547370.efilter(e,te) + return te:GetOwner()~=e:GetOwner() +end +function c67547370.atkcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local bc=c:GetBattleTarget() + return bc and bc:IsControler(1-tp) +end +function c67547370.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local bc=c:GetBattleTarget() + local val=bc:GetAttack()+1000 + if c:IsRelateToBattle() and c:IsFaceup() and bc:IsRelateToBattle() and bc:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) + e1:SetValue(val) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) + c:RegisterEffect(e2) + end +end diff --git a/script/c67675300.lua b/script/c67675300.lua index 3df96c5a..7075cf5e 100644 --- a/script/c67675300.lua +++ b/script/c67675300.lua @@ -23,11 +23,11 @@ function c67675300.initial_effect(c) end function c67675300.spcon(e,c) if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and Duel.IsCanRemoveCounter(c:GetControler(),1,1,0x15,4,REASON_COST) + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and Duel.IsCanRemoveCounter(c:GetControler(),1,1,0x1015,4,REASON_COST) end function c67675300.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.RemoveCounter(tp,1,1,0x15,4,REASON_RULE) + Duel.RemoveCounter(tp,1,1,0x1015,4,REASON_RULE) end function c67675300.target(e,c) - return c~=e:GetHandler() and c:GetCounter(0x15)~=0 + return c~=e:GetHandler() and c:GetCounter(0x1015)~=0 end diff --git a/script/c67688478.lua b/script/c67688478.lua index db11028d..ec847e86 100644 --- a/script/c67688478.lua +++ b/script/c67688478.lua @@ -4,7 +4,7 @@ function c67688478.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(67688478,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetRange(LOCATION_HAND) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) diff --git a/script/c67696066.lua b/script/c67696066.lua old mode 100755 new mode 100644 index e4417344..b6dbb528 --- a/script/c67696066.lua +++ b/script/c67696066.lua @@ -34,7 +34,7 @@ function c67696066.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) tc:RegisterEffect(e2) Duel.SpecialSummonComplete() Duel.BreakEffect() diff --git a/script/c67750322.lua b/script/c67750322.lua index 03cc1164..fe7b4d04 100644 --- a/script/c67750322.lua +++ b/script/c67750322.lua @@ -4,7 +4,7 @@ function c67750322.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(67750322,0)) e1:SetCategory(CATEGORY_DISABLE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetRange(LOCATION_HAND) e1:SetCondition(c67750322.discon) diff --git a/script/c67754901.lua b/script/c67754901.lua new file mode 100644 index 00000000..b21f66b8 --- /dev/null +++ b/script/c67754901.lua @@ -0,0 +1,93 @@ +--オッドアイズ・ミラージュ・ドラゴン +function c67754901.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --indes + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(67754901,0)) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,67754901) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCondition(c67754901.indcon) + e1:SetTarget(c67754901.indtg) + e1:SetOperation(c67754901.indop) + c:RegisterEffect(e1) + --pendulum set + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_DESTROYED) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e2:SetRange(LOCATION_PZONE) + e2:SetCountLimit(1) + e2:SetCondition(c67754901.pencon) + e2:SetTarget(c67754901.pentg) + e2:SetOperation(c67754901.penop) + c:RegisterEffect(e2) +end +function c67754901.indfilter(c) + return c:IsFaceup() and c:IsSetCard(0x99) +end +function c67754901.indcon(e,tp,eg,ep,ev,re,r,rp) + local tc1=Duel.GetFieldCard(tp,LOCATION_SZONE,6) + local tc2=Duel.GetFieldCard(tp,LOCATION_SZONE,7) + return (tc1 and tc1:IsSetCard(0x99)) or (tc2 and tc2:IsSetCard(0x99)) +end +function c67754901.indtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c67754901.indfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c67754901.indfilter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c67754901.indfilter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c67754901.indop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCountLimit(1) + e1:SetValue(c67754901.valcon) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + end +end +function c67754901.valcon(e,re,r,rp) + return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 +end +function c67754901.cfilter(c,tp) + return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsSetCard(0x99) and c:IsType(TYPE_PENDULUM) + and c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousControler()==tp +end +function c67754901.desfilter(c) + return (c:GetSequence()==6 or c:GetSequence()==7) +end +function c67754901.penfilter(c) + return c:IsSetCard(0x99) and c:IsType(TYPE_PENDULUM) and c:IsFaceup() and not c:IsCode(67754901) and not c:IsForbidden() +end +function c67754901.pencon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c67754901.cfilter,1,nil,tp) +end +function c67754901.pentg(e,tp,eg,ep,ev,re,r,rp,chk) + local g=Duel.GetMatchingGroup(c67754901.desfilter,tp,LOCATION_SZONE,0,nil) + if chk==0 then return g:GetCount()>0 + and Duel.IsExistingMatchingCard(c67754901.penfilter,tp,LOCATION_EXTRA,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c67754901.penop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectMatchingCard(tp,c67754901.desfilter,tp,LOCATION_SZONE,0,1,1,nil) + if g:GetCount()>0 then + Duel.HintSelection(g) + if Duel.Destroy(g,REASON_EFFECT)==0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) + local sg=Duel.SelectMatchingCard(tp,c67754901.penfilter,tp,LOCATION_EXTRA,0,1,1,nil) + local tc=sg:GetFirst() + if tc then + Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) + end + end +end diff --git a/script/c67757079.lua b/script/c67757079.lua index 1552e1d1..83bbca7a 100644 --- a/script/c67757079.lua +++ b/script/c67757079.lua @@ -27,7 +27,10 @@ function c67757079.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c67757079.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c67779172.lua b/script/c67779172.lua index a4de2219..e3e7f77f 100644 --- a/script/c67779172.lua +++ b/script/c67779172.lua @@ -21,10 +21,10 @@ function c67779172.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c67779172.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDefencePos() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDefencePos,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDefensePos() end + if chk==0 then return Duel.IsExistingTarget(Card.IsDefensePos,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectTarget(tp,Card.IsDefencePos,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,Card.IsDefensePos,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0) end function c67779172.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c67808837.lua b/script/c67808837.lua new file mode 100644 index 00000000..6d4af3f1 --- /dev/null +++ b/script/c67808837.lua @@ -0,0 +1,85 @@ +--EMキングベアー +function c67808837.initial_effect(c) + aux.EnablePendulumAttribute(c,false) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(1160) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_HAND) + e1:SetCost(c67808837.reg) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(67808837,0)) + e2:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_PHASE+PHASE_END) + e2:SetRange(LOCATION_PZONE) + e2:SetCountLimit(1) + e2:SetCondition(c67808837.thcon) + e2:SetTarget(c67808837.thtg) + e2:SetOperation(c67808837.thop) + c:RegisterEffect(e2) + --indestructable + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c67808837.indescon) + e3:SetValue(c67808837.indesval) + c:RegisterEffect(e3) + --atkup + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_UPDATE_ATTACK) + e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e4:SetRange(LOCATION_MZONE) + e4:SetCondition(c67808837.atkcon) + e4:SetValue(c67808837.atkval) + c:RegisterEffect(e4) +end +function c67808837.reg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + e:GetHandler():RegisterFlagEffect(67808837,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) +end +function c67808837.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(67808837)~=0 +end +function c67808837.thfilter(c) + return c:IsLevelAbove(7) and (c:IsLocation(LOCATION_GRAVE) or (c:IsFaceup() and c:IsType(TYPE_PENDULUM))) and c:IsAbleToHand() +end +function c67808837.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDestructable() + and Duel.IsExistingMatchingCard(c67808837.thfilter,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_EXTRA+LOCATION_GRAVE) +end +function c67808837.thop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or Duel.Destroy(c,REASON_EFFECT)==0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c67808837.thfilter,tp,LOCATION_EXTRA+LOCATION_GRAVE,0,1,1,nil) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c67808837.indescon(e) + return e:GetHandler():IsAttackPos() +end +function c67808837.indesval(e,re,rp) + return re:IsActiveType(TYPE_SPELL+TYPE_TRAP) +end +function c67808837.atkcon(e) + local ph=Duel.GetCurrentPhase() + local tp=Duel.GetTurnPlayer() + return tp==e:GetHandler():GetControler() and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE +end +function c67808837.atkfilter(c) + return c:IsFaceup() and c:IsSetCard(0x9f) +end +function c67808837.atkval(e,c) + return Duel.GetMatchingGroupCount(c67808837.atkfilter,c:GetControler(),LOCATION_ONFIELD,0,nil)*100 +end diff --git a/script/c67949763.lua b/script/c67949763.lua index e7894508..b8b1aad3 100644 --- a/script/c67949763.lua +++ b/script/c67949763.lua @@ -17,7 +17,8 @@ function c67949763.filter(c,tp) end function c67949763.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c67949763.filter(chkc,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and Duel.IsExistingTarget(c67949763.filter,tp,LOCATION_MZONE,0,1,nil,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) Duel.SelectTarget(tp,c67949763.filter,tp,LOCATION_MZONE,0,1,1,nil,tp) @@ -25,6 +26,7 @@ function c67949763.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,0) end function c67949763.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local tc=Duel.GetFirstTarget() if Duel.GetLocationCount(tp,LOCATION_MZONE)>2 then local rfid=tc:GetRealFieldID() diff --git a/script/c67957315.lua b/script/c67957315.lua index edf2a395..cfa71b4d 100644 --- a/script/c67957315.lua +++ b/script/c67957315.lua @@ -14,7 +14,7 @@ function c67957315.initial_effect(c) c:RegisterEffect(e1) end function c67957315.adcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_BATTLE and Duel.GetCurrentChain()==0 + return Duel.GetTurnPlayer()==tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) and Duel.GetCurrentChain()==0 and (e:GetHandler()==Duel.GetAttacker() or e:GetHandler()==Duel.GetAttackTarget()) end function c67957315.cfilter(c) @@ -34,7 +34,7 @@ function c67957315.adop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_BATTLE) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end end diff --git a/script/c67987302.lua b/script/c67987302.lua index 28350618..8d664d09 100644 --- a/script/c67987302.lua +++ b/script/c67987302.lua @@ -11,5 +11,5 @@ function c67987302.initial_effect(c) c:RegisterEffect(e1) end function c67987302.efilter(e,re,rp,c) - return re:GetHandler()==c + return re:GetOwner()==c end diff --git a/script/c6803.lua b/script/c6803.lua deleted file mode 100755 index a54c7c14..00000000 --- a/script/c6803.lua +++ /dev/null @@ -1,101 +0,0 @@ ---Scripted by Eerie Code ---Performapal Monkeyboard -function c6803.initial_effect(c) - --Pendulum Summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6803,0)) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetOperation(c6803.actop) - c:RegisterEffect(e1) - --scale - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CHANGE_LSCALE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_PZONE) - e2:SetCondition(c6803.slcon) - e2:SetValue(4) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_CHANGE_RSCALE) - c:RegisterEffect(e3) - --Reduce level - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(6803,3)) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_HAND) - e4:SetCost(c6803.lvcost) - e4:SetTarget(c6803.lvtg) - e4:SetOperation(c6803.lvop) - c:RegisterEffect(e4) -end - -function c6803.actop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6803,2)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_PZONE) - e1:SetCountLimit(1,6803) - e1:SetTarget(c6803.thtg) - e1:SetOperation(c6803.thop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) -end -function c6803.thfil(c) - return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x9f) and c:IsLevelBelow(4) and c:IsAbleToHand() -end -function c6803.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6803.thfil,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6803.thop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6803.thfil,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end - -function c6803.slcon(e) - local seq=e:GetHandler():GetSequence() - local tc=Duel.GetFieldCard(e:GetHandlerPlayer(),LOCATION_SZONE,13-seq) - return not tc or not tc:IsSetCard(0x9f) -end - -function c6803.lvcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDiscardable() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) -end -function c6803.cfilter(c) - return c:IsType(TYPE_MONSTER) and (c:IsSetCard(0x99) or c:IsSetCard(0x9f)) and not c:IsPublic() -end -function c6803.lvtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6803.cfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) - local cg=Duel.SelectMatchingCard(tp,c6803.cfilter,tp,LOCATION_HAND,0,1,1,e:GetHandler()) - Duel.ConfirmCards(1-tp,cg) - Duel.ShuffleHand(tp) - e:SetLabel(cg:GetFirst():GetCode()) -end -function c6803.lvop(e,tp,eg,ep,ev,re,r,rp) - --if not e:GetHandler():IsRelateToEffect(e) then return end - local code=e:GetLabel() - local tg=Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_HAND,0,nil,code) - local tc=tg:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetValue(-1) - e1:SetReset(RESET_EVENT+0xfe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - tc=tg:GetNext() - end -end \ No newline at end of file diff --git a/script/c6805.lua b/script/c6805.lua deleted file mode 100755 index 9fe5ab3e..00000000 --- a/script/c6805.lua +++ /dev/null @@ -1,77 +0,0 @@ ---Scripted by Eerie Code ---Performapal Big Bite Turtle -function c6805.initial_effect(c) - --Pendulum Summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --change level - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6805,0)) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetTarget(c6805.lvtg) - e2:SetOperation(c6805.lvop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetDescription(aux.Stringid(6805,1)) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_BATTLE_DESTROYED) - e3:SetCondition(c6805.descon) - e3:SetOperation(c6805.desop) - c:RegisterEffect(e3) -end - -function c6805.cfilter(c) - return (c:IsSetCard(0x99) or c:IsSetCard(0x9f)) and not c:IsPublic() -end -function c6805.lvtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6805.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) - local cg=Duel.SelectMatchingCard(tp,c6805.cfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.ConfirmCards(1-tp,cg) - Duel.ShuffleHand(tp) - e:SetLabel(cg:GetFirst():GetCode()) -end -function c6805.lvop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local code=e:GetLabel() - local tg=Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_HAND,0,nil,code) - local tc=tg:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetValue(-1) - e1:SetReset(RESET_EVENT+0xfe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - tc=tg:GetNext() - end -end - -function c6805.descon(e,tp,eg,ep,ev,re,r,rp) - local rc=e:GetHandler():GetReasonCard() - return rc:IsRelateToBattle() and rc:IsDestructable() -end ---function c6805.destg(e,tp,eg,ep,ev,re,r,rp,chk) --- local tc=e:GetHandler():GetReasonCard() --- if chk==0 then return true end --- if tc and tc:IsDestructable(e) then --- Debug.Message("Target acquired") --- e:SetLabelObject(tc) --- Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) --- end ---end -function c6805.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetReasonCard() - if tc and tc:IsRelateToBattle() and tc:IsDestructable() then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c68057622.lua b/script/c68057622.lua index c17adba6..1ecb50b8 100644 --- a/script/c68057622.lua +++ b/script/c68057622.lua @@ -18,7 +18,7 @@ function c68057622.descon(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local at=Duel.GetAttackTarget() return at and a:IsControler(1-tp) and a:IsRelateToBattle() - and at:IsDefencePos() and at:IsRelateToBattle() and a:GetAttack()0 -end -function c6810.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c:IsControler(tp) and c6810.lvfil(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6810.lvfil,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c6810.lvfil,tp,LOCATION_MZONE,0,1,1,nil) -end -function c6810.lvop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end - -function c6810.otfilter(c,tp) - return c:IsSetCard(0x9a) and (c:IsControler(tp) or c:IsFaceup()) -end -function c6810.otcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local mg=Duel.GetMatchingGroup(c6810.otfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp) - return c:GetLevel()>6 and Duel.GetTributeCount(c,mg)>0 -end -function c6810.otop(e,tp,eg,ep,ev,re,r,rp,c) - local mg=Duel.GetMatchingGroup(c6810.otfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp) - local sg=Duel.SelectTribute(tp,c,1,1,mg) - c:SetMaterial(sg) - Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL) -end - -function c6810.posop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) - end -end \ No newline at end of file diff --git a/script/c6811.lua b/script/c6811.lua deleted file mode 100755 index 0b100b57..00000000 --- a/script/c6811.lua +++ /dev/null @@ -1,89 +0,0 @@ ---Scripted by Eerie Code ---Superheavy Samurai General Sango -function c6811.initial_effect(c) - --Pendulum Summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --scale - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CHANGE_LSCALE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_PZONE) - e2:SetCondition(c6811.slcon) - e2:SetValue(4) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_CHANGE_RSCALE) - c:RegisterEffect(e3) - --Chain Attack - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(6811,0)) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_BATTLED) - e4:SetRange(LOCATION_PZONE) - e4:SetCountLimit(1) - e4:SetCondition(c6811.cacon) - e4:SetOperation(c6811.caop) - c:RegisterEffect(e4) - --Draw - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(6811,1)) - e5:SetCategory(CATEGORY_DRAW) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e5:SetRange(LOCATION_MZONE) - e5:SetCountLimit(1,6811) - e5:SetCondition(c6811.drcon) - e5:SetCost(c6811.drcost) - e5:SetTarget(c6811.drtg) - e5:SetOperation(c6811.drop) - c:RegisterEffect(e5) -end - -function c6811.slcon(e) - return Duel.IsExistingMatchingCard(Card.IsType,e:GetHandlerPlayer(),LOCATION_GRAVE,0,1,nil,TYPE_SPELL+TYPE_TRAP) -end - -function c6811.cacon(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if not d then return false end - if a:IsStatus(STATUS_OPPO_BATTLE) and d:IsControler(tp) then a,d=d,a end - if a:IsSetCard(0x9a) - and not a:IsStatus(STATUS_BATTLE_DESTROYED) and d:IsStatus(STATUS_BATTLE_DESTROYED) then - e:SetLabelObject(a) - return true - else return false end -end -function c6811.caop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - if tc:IsFaceup() and tc:IsControler(tp) and tc:IsRelateToBattle() and tc:IsChainAttackable() then - Duel.ChainAttack() - end -end - -function c6811.drcon(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_GRAVE,0,1,nil,TYPE_SPELL+TYPE_TRAP) -end -function c6811.drcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x9a) end - local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,2,nil,0x9a) - Duel.Release(g,REASON_COST) - e:SetLabel(g:GetCount()) -end -function c6811.drtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp) end - local dc=e:GetLabel() - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(dc) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,dc) -end -function c6811.drop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c6812.lua b/script/c6812.lua deleted file mode 100755 index 67b96368..00000000 --- a/script/c6812.lua +++ /dev/null @@ -1,48 +0,0 @@ ---Scripted by Eerie Code ---Solo the Melodious Songstress -function c6812.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6812,0)) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c6812.spcon) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6812,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_DESTROYED) - e2:SetCondition(c6812.condition) - e2:SetTarget(c6812.target) - e2:SetOperation(c6812.operation) - c:RegisterEffect(e2) -end - -function c6812.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)>0 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end - -function c6812.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) -end -function c6812.filter(c,e,tp) - return c:IsSetCard(0x9b) and not c:IsCode(6812) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6812.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c6812.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c6812.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6812.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c68120130.lua b/script/c68120130.lua index 73822d3c..525e27e5 100644 --- a/script/c68120130.lua +++ b/script/c68120130.lua @@ -15,7 +15,7 @@ function c68120130.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(68120130,1)) e2:SetCategory(CATEGORY_DEFCHANGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCode(EVENT_FREE_CHAIN) e2:SetRange(LOCATION_MZONE) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP) @@ -39,8 +39,10 @@ function c68120130.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c68120130.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c68120130.defcon(e,tp,eg,ep,ev,re,r,rp) @@ -50,7 +52,7 @@ function c68120130.defup(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetValue(300) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) c:RegisterEffect(e1) diff --git a/script/c68140974.lua b/script/c68140974.lua old mode 100755 new mode 100644 index eb569251..b100ffbe --- a/script/c68140974.lua +++ b/script/c68140974.lua @@ -66,8 +66,12 @@ function c68140974.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c68140974.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP)>0 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then c:CompleteProcedure() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c68140974.antarget(e,c) diff --git a/script/c6815.lua b/script/c6815.lua deleted file mode 100755 index 551db827..00000000 --- a/script/c6815.lua +++ /dev/null @@ -1,60 +0,0 @@ ---Scripted by Eerie Code ---Twilight Ninja - Shingetsu -function c6815.initial_effect(c) - --cannot be battle target - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(0,LOCATION_MZONE) - e1:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET) - e1:SetValue(c6815.atlimit) - c:RegisterEffect(e1) - --cannot be effect target - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,0xff) - e2:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetValue(c6815.tglimit) - c:RegisterEffect(e2) - --To hand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCountLimit(1,6815) - e3:SetCondition(c6815.thcon) - e3:SetTarget(c6815.thtg) - e3:SetOperation(c6815.thop) - c:RegisterEffect(e3) -end - -function c6815.atlimit(e,c) - return c~=e:GetHandler() and c:IsFaceup() and c:IsSetCard(0x2b) -end -function c6815.tglimit(e,re,c) - return c~=e:GetHandler() and c:IsControler(e:GetHandlerPlayer()) and c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsSetCard(0x2b) -end - -function c6815.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_BATTLE) - or rp~=tp and c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp -end -function c6815.thfil(c) - return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x2b) and not c:IsCode(6815) and c:IsAbleToHand() -end -function c6815.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6815.thfil,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c6815.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c6815.thfil,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c6817.lua b/script/c6817.lua deleted file mode 100755 index dac69002..00000000 --- a/script/c6817.lua +++ /dev/null @@ -1,69 +0,0 @@ ---Scripted by Eerie Code ---Twilight Ninja Shogun - Getsuga -function c6817.initial_effect(c) - --summon with 1 tribute - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6817,0)) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SUMMON_PROC) - e2:SetCondition(c6817.otcon) - e2:SetOperation(c6817.otop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_SET_PROC) - c:RegisterEffect(e3) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6817,1)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,6817) - e1:SetCondition(c6817.spcon) - e1:SetTarget(c6817.sptg) - e1:SetOperation(c6817.spop) - c:RegisterEffect(e1) -end - -function c6817.otfilter(c,tp) - return c:IsSetCard(0x2b) and (c:IsControler(tp) or c:IsFaceup()) -end -function c6817.otcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local mg=Duel.GetMatchingGroup(c6817.otfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp) - return c:GetLevel()>6 and Duel.GetTributeCount(c,mg)>0 -end -function c6817.otop(e,tp,eg,ep,ev,re,r,rp,c) - local mg=Duel.GetMatchingGroup(c6817.otfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp) - local sg=Duel.SelectTribute(tp,c,1,1,mg) - c:SetMaterial(sg) - Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL) -end - -function c6817.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPosition(POS_FACEUP_ATTACK) -end -function c6817.filter(c,e,tp) - return c:IsSetCard(0x2b) and not c:IsCode(6817) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c6817.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6817.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsExistingTarget(c6817.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c6817.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) -end -function c6817.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - if Duel.ChangePosition(c,POS_FACEUP_DEFENCE) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end - end -end diff --git a/script/c68182934.lua b/script/c68182934.lua index 25b44ed3..4bda9eb7 100644 --- a/script/c68182934.lua +++ b/script/c68182934.lua @@ -1,35 +1,35 @@ ---Sky Dragoons of Draconia -function c68182934.initial_effect(c) - --pendulum summon - aux.EnablePendulumAttribute(c) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_DAMAGE) - e2:SetRange(LOCATION_PZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCountLimit(1) - e2:SetCondition(c68182934.descon) - e2:SetTarget(c68182934.destg) - e2:SetOperation(c68182934.desop) - c:RegisterEffect(e2) -end -function c68182934.descon(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - return ep~=tp and tc:IsControler(tp) and tc:IsType(TYPE_NORMAL) -end -function c68182934.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c68182934.desop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--Sky Dragoons of Draconia +function c68182934.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BATTLE_DAMAGE) + e2:SetRange(LOCATION_PZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1) + e2:SetCondition(c68182934.descon) + e2:SetTarget(c68182934.destg) + e2:SetOperation(c68182934.desop) + c:RegisterEffect(e2) +end +function c68182934.descon(e,tp,eg,ep,ev,re,r,rp) + local tc=eg:GetFirst() + return ep~=tp and tc:IsControler(tp) and tc:IsType(TYPE_NORMAL) +end +function c68182934.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c68182934.desop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c68184115.lua b/script/c68184115.lua index 686ca6f3..3575c7cb 100644 --- a/script/c68184115.lua +++ b/script/c68184115.lua @@ -30,7 +30,7 @@ function c68184115.initial_effect(c) c:RegisterEffect(e3) end function c68184115.filter(c) - return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsForbidden() end function c68184115.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 @@ -44,7 +44,7 @@ function c68184115.eqop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectMatchingCard(tp,c68184115.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil) local tc=g:GetFirst() - if tc then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then if not Duel.Equip(tp,tc,c,true) then return end local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) diff --git a/script/c68215963.lua b/script/c68215963.lua index a726327c..fc064084 100644 --- a/script/c68215963.lua +++ b/script/c68215963.lua @@ -33,7 +33,7 @@ function c68215963.repop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fc0000) e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) c:RegisterEffect(e1) - Duel.RaiseEvent(c,47408488,e,0,tp,0,0) + Duel.RaiseEvent(c,EVENT_CUSTOM+47408488,e,0,tp,0,0) end function c68215963.filter(c) return c:IsAttackPos() and c:GetAttackedCount()>0 @@ -48,6 +48,6 @@ end function c68215963.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,0,0) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,0,0) end end diff --git a/script/c68215965.lua b/script/c68215965.lua deleted file mode 100644 index cca7a3c8..00000000 --- a/script/c68215965.lua +++ /dev/null @@ -1,67 +0,0 @@ ---Advanced Crystal Beast Emerald Turtle -function c68215965.initial_effect(c) - --Treated as "Crystal Beast Emerald Tortoise" - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_ADD_CODE) - e1:SetValue(68215963) - c:RegisterEffect(e1) - --Shell - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(68215965,0)) - e2:SetCategory(CATEGORY_POSITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetHintTiming(TIMING_DAMAGE_STEP) - e2:SetTarget(c68215965.shelltg) - e2:SetOperation(c68215965.shellop) - c:RegisterEffect(e2) - --Turn into Crystal - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(68215965,1)) - e3:SetCode(EFFECT_SEND_REPLACE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c68215965.crystaltg) - e3:SetOperation(c68215965.crystalop) - c:RegisterEffect(e3) -end -function c68215965.crystaltg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:GetDestination()==LOCATION_GRAVE and c:IsReason(REASON_DESTROY) end - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return false end - return Duel.SelectEffectYesNo(tp,c) -end -function c68215965.crystalop(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(c) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fc0000) - e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) - c:RegisterEffect(e1) - Duel.RaiseEvent(c,47408488,e,0,tp,0,0) -end -function c68215965.shellfilter(c) - return c:IsAttackPos() -end -function c68215965.shelltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c68215965.shellfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c68215965.shellfilter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) - local g=Duel.SelectTarget(tp,c68215965.shellfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c68215965.shellop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,0,0) - end -end \ No newline at end of file diff --git a/script/c68280530.lua b/script/c68280530.lua index 7081449d..11810be1 100644 --- a/script/c68280530.lua +++ b/script/c68280530.lua @@ -21,7 +21,7 @@ function c68280530.rectg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end local c=e:GetHandler() local bc=c:GetBattleTarget() - local rec=bc:GetDefence() + local rec=bc:GetDefense() if rec<0 then rec=0 end Duel.SetTargetPlayer(tp) Duel.SetTargetParam(rec) diff --git a/script/c68299524.lua b/script/c68299524.lua new file mode 100644 index 00000000..6553154a --- /dev/null +++ b/script/c68299524.lua @@ -0,0 +1,99 @@ +--パンデミック・ドラゴン +function c68299524.initial_effect(c) + --attack down + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetDescription(aux.Stringid(68299524,0)) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetCountLimit(1) + e1:SetRange(LOCATION_MZONE) + e1:SetCost(c68299524.cost) + e1:SetOperation(c68299524.operation) + c:RegisterEffect(e1) + --Destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(68299524,1)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1) + e2:SetRange(LOCATION_MZONE) + e2:SetTarget(c68299524.destg) + e2:SetOperation(c68299524.desop) + c:RegisterEffect(e2) + --attack -1k + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(68299524,2)) + e3:SetCategory(CATEGORY_ATKCHANGE) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetCode(EVENT_DESTROYED) + e3:SetCondition(c68299524.atkcon) + e3:SetOperation(c68299524.atkop) + c:RegisterEffect(e3) +end +function c68299524.filter(c) + return c:IsFaceup() and c:IsAttackAbove(100) +end +function c68299524.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,100) + and Duel.IsExistingMatchingCard(c68299524.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(c68299524.filter,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + local tg,atk=g:GetMaxGroup(Card.GetAttack) + local maxc=math.min(Duel.GetLP(tp),atk) + local ct=math.floor(maxc/100) + local t={} + for i=1,ct do + t[i]=i*100 + end + local cost=Duel.AnnounceNumber(tp,table.unpack(t)) + Duel.PayLPCost(tp,cost) + e:SetLabel(cost) +end +function c68299524.operation(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c68299524.filter,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + local tc=g:GetFirst() + local val=e:GetLabel() + while tc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(-val) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + tc=g:GetNext() + end +end +function c68299524.desfilter(c,atk) + return c:IsFaceup() and c:IsAttackBelow(atk) +end +function c68299524.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local c=e:GetHandler() + if chkc then return chkc:IsLocation(LOCATION_MZONE) and c68299524.desfilter(chkc,c:GetAttack()) end + if chk==0 then return Duel.IsExistingTarget(c68299524.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,c:GetAttack()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c68299524.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,c:GetAttack()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c68299524.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c68299524.atkcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 +end +function c68299524.atkop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local tc=g:GetFirst() + while tc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetValue(-1000) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + tc=g:GetNext() + end +end diff --git a/script/c68304813.lua b/script/c68304813.lua old mode 100755 new mode 100644 diff --git a/script/c6831.lua b/script/c6831.lua deleted file mode 100755 index eb5b205b..00000000 --- a/script/c6831.lua +++ /dev/null @@ -1,45 +0,0 @@ ---Scripted by Eerie Code ---Youtou - Shiranui -function c6831.initial_effect(c) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6831,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c6831.condition) - e1:SetTarget(c6831.target) - e1:SetOperation(c6831.operation) - c:RegisterEffect(e1) -end - -function c6831.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetTurnID()~=Duel.GetTurnCount() -end -function c6831.filter1(c,e,tp) - return c:IsRace(RACE_ZOMBIE) and not c:IsType(TYPE_TUNER) and c:GetLevel()>0 and Duel.IsExistingMatchingCard(c6831.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,c:GetLevel()+e:GetHandler():GetLevel()) -end -function c6831.filter2(c,e,tp,lv) - return c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_ZOMBIE) and c:GetLevel()==lv and c:IsAbleToRemoveAsCost() and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SPECIAL,tp,false,false) -end -function c6831.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c6831.filter1(chkc,e,tp) end - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() and Duel.IsPlayerCanSpecialSummonCount(tp,1) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c6831.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - Duel.SelectTarget(tp,c6831.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c6831.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - local lv=c:GetLevel()+tc:GetLevel() - local tg=Group.FromCards(c,tc) - if Duel.Remove(tg,POS_FACEUP,REASON_COST)>1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c6831.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,lv) - Duel.SpecialSummon(g,SUMMON_TYPE_SPECIAL,tp,tp,false,false,POS_FACEUP) - end - end -end \ No newline at end of file diff --git a/script/c68319538.lua b/script/c68319538.lua index 4a68a215..207f7a7c 100644 --- a/script/c68319538.lua +++ b/script/c68319538.lua @@ -34,31 +34,31 @@ function c68319538.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c68319538.filter(chkc) end if chk==0 then return Duel.IsExistingTarget(c68319538.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local eg=Duel.SelectTarget(tp,c68319538.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,11,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,eg,eg:GetCount(),0,0) + local g=Duel.SelectTarget(tp,c68319538.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,16,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) end function c68319538.operation(e,tp,eg,ep,ev,re,r,rp) local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local rg=tg:Filter(Card.IsRelateToEffect,nil,e) - local ct=Duel.SendtoHand(rg,nil,REASON_EFFECT) - if ct==0 then return end + Duel.SendtoHand(rg,nil,REASON_EFFECT) + local ct=rg:FilterCount(Card.IsLocation,nil,LOCATION_HAND) local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - if g:GetCount()==0 then return end + if ct==0 or g:GetCount()==0 then return end for i=1,ct do Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(68319538,2)) local sg=g:Select(tp,1,1,nil) - sg:GetFirst():AddCounter(0xe,1) + sg:GetFirst():AddCounter(0x100e,1) end end function c68319538.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0xe,2,REASON_COST) end - Duel.RemoveCounter(tp,1,1,0xe,2,REASON_COST) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x100e,2,REASON_COST) end + Duel.RemoveCounter(tp,1,1,0x100e,2,REASON_COST) end function c68319538.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c68319538.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c68334074.lua b/script/c68334074.lua index d0d3909a..84a4414c 100644 --- a/script/c68334074.lua +++ b/script/c68334074.lua @@ -12,13 +12,13 @@ function c68334074.initial_effect(c) e1:SetOperation(c68334074.activate) c:RegisterEffect(e1) end +c68334074.card_code_list={46986414} function c68334074.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3001,2,REASON_COST) end - Duel.RemoveCounter(tp,1,0,0x3001,2,REASON_COST) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x1,2,REASON_COST) end + Duel.RemoveCounter(tp,1,0,0x1,2,REASON_COST) end function c68334074.filter(c,e,tp) - local code=c:GetCode() - return (code==46986414 or code==78193831) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsCode(46986414,78193831) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c68334074.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c68334074.filter(chkc,e,tp) end diff --git a/script/c6836211.lua b/script/c6836211.lua index 7cbc0566..98500f4b 100644 --- a/script/c6836211.lua +++ b/script/c6836211.lua @@ -27,6 +27,7 @@ function c6836211.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end if ft>2 then ft=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c6836211.filter,tp,LOCATION_DECK,0,1,ft,nil,e,tp) if g:GetCount()~=0 then diff --git a/script/c68371799.lua b/script/c68371799.lua index 4cc8b612..661bca0c 100644 --- a/script/c68371799.lua +++ b/script/c68371799.lua @@ -55,7 +55,7 @@ function c68371799.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 end function c68371799.desfilter(c) - return c:IsFaceup() and c:IsSetCard(0x45) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x45) end function c68371799.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsOnField() and c68371799.desfilter(chkc) end @@ -88,6 +88,6 @@ function c68371799.spop2(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c68392533.lua b/script/c68392533.lua index 909dc60f..8397f521 100644 --- a/script/c68392533.lua +++ b/script/c68392533.lua @@ -59,7 +59,7 @@ function c68392533.operation(e,tp,eg,ep,ev,re,r,rp) end end function c68392533.costchange(e,re,rp,val) - if re:GetHandler()==e:GetHandler():GetEquipTarget() then + if re and re:IsHasType(0x7e0) and re:GetHandler()==e:GetHandler():GetEquipTarget() then return 0 else return val end end diff --git a/script/c68396121.lua b/script/c68396121.lua index 6068dcfa..da95dd73 100644 --- a/script/c68396121.lua +++ b/script/c68396121.lua @@ -70,32 +70,17 @@ function c68396121.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c68396121.atktg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetEffectCount(EFFECT_EXTRA_ATTACK)==0 end + if chk==0 then return e:GetHandler():GetEffectCount(EFFECT_EXTRA_ATTACK_MONSTER)==0 end end function c68396121.atkop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EXTRA_ATTACK) + e1:SetCode(EFFECT_EXTRA_ATTACK_MONSTER) e1:SetValue(2) e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e2:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - e2:SetCondition(c68396121.dircon) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_CANNOT_ATTACK) - e3:SetCondition(c68396121.dircon2) - c:RegisterEffect(e3) end end -function c68396121.dircon(e) - return e:GetHandler():GetAttackAnnouncedCount()>0 -end -function c68396121.dircon2(e) - return e:GetHandler():IsDirectAttacked() -end + diff --git a/script/c68396778.lua b/script/c68396778.lua index c9228bbe..63a2d676 100644 --- a/script/c68396778.lua +++ b/script/c68396778.lua @@ -31,7 +31,6 @@ function c68396778.activate(e,tp,eg,ep,ev,re,r,rp) if tc:IsRelateToEffect(e) then Duel.SendtoGrave(tc,REASON_EFFECT) if tc:IsLocation(LOCATION_GRAVE) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then - Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c68396778.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp) if g:GetCount()>0 then diff --git a/script/c68406755.lua b/script/c68406755.lua new file mode 100644 index 00000000..e39b0a05 --- /dev/null +++ b/script/c68406755.lua @@ -0,0 +1,89 @@ +--トラミッド・スフィンクス +function c68406755.initial_effect(c) + c:EnableUnsummonable() + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(c68406755.splimit) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(68406755,0)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e2:SetRange(LOCATION_HAND) + e2:SetCode(EVENT_DESTROYED) + e2:SetCondition(c68406755.spcon) + e2:SetTarget(c68406755.sptg) + e2:SetOperation(c68406755.spop) + c:RegisterEffect(e2) + --atk + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_UPDATE_ATTACK) + e3:SetCondition(c68406755.efcon) + e3:SetValue(c68406755.atkval) + c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e4) + --must be attacked + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_FIELD) + e5:SetCode(EFFECT_MUST_ATTACK_MONSTER) + e5:SetRange(LOCATION_MZONE) + e5:SetTargetRange(0,LOCATION_MZONE) + e5:SetCondition(c68406755.efcon) + c:RegisterEffect(e5) + local e6=Effect.CreateEffect(c) + e6:SetType(EFFECT_TYPE_FIELD) + e6:SetCode(EFFECT_MUST_BE_ATTACKED) + e6:SetRange(LOCATION_MZONE) + e6:SetTargetRange(LOCATION_MZONE,0) + e6:SetCondition(c68406755.efcon) + e6:SetTarget(c68406755.attg) + e6:SetValue(1) + c:RegisterEffect(e6) +end +function c68406755.splimit(e,se,sp,st) + return se:GetHandler():IsSetCard(0xe2) +end +function c68406755.spfilter(c,tp) + return c:IsReason(REASON_BATTLE+REASON_EFFECT) + and c:IsSetCard(0xe2) and not c:IsCode(68406755) + and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) +end +function c68406755.spcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c68406755.spfilter,1,nil,tp) +end +function c68406755.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c68406755.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c68406755.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe2) +end +function c68406755.efcon(e) + return Duel.IsExistingMatchingCard(c68406755.cfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,e:GetHandler()) +end +function c68406755.atkval(e,c) + local g=Duel.GetMatchingGroup(Card.IsType,c:GetControler(),LOCATION_GRAVE,0,nil,TYPE_FIELD) + return g:GetClassCount(Card.GetCode)*500 +end +function c68406755.attg(e,c) + return c:IsCode(68406755) +end diff --git a/script/c6843.lua b/script/c6843.lua deleted file mode 100755 index 5ef5f7c7..00000000 --- a/script/c6843.lua +++ /dev/null @@ -1,54 +0,0 @@ ---Scripted by Eerie Code ---Odd-Eyes Gravity Dragon -function c6843.initial_effect(c) - c:EnableReviveLimit() - --Back to hand - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6843,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCountLimit(1,6843) - e1:SetTarget(c6843.thtg) - e1:SetOperation(c6843.thop) - c:RegisterEffect(e1) - --pay - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6843,1)) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_ACTIVATE_COST) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetTargetRange(0,1) - e3:SetTarget(c6843.actarget) - e3:SetCost(c6843.costchk) - e3:SetOperation(c6843.costop) - c:RegisterEffect(e3) -end - -function c6843.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c6843.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6843.filter,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(c6843.filter,tp,0,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) - Duel.SetChainLimit(c6843.chlimit) -end -function c6843.chlimit(e,ep,tp) - return tp==ep -end -function c6843.thop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c6843.filter,tp,0,LOCATION_ONFIELD,nil) - Duel.SendtoHand(g,nil,REASON_EFFECT) -end - -function c6843.actarget(e,te,tp) - return te:IsActiveType(TYPE_MONSTER+TYPE_SPELL+TYPE_TRAP) -end -function c6843.costchk(e,te_or_c,tp) - return Duel.CheckLPCost(tp,500) -end -function c6843.costop(e,tp,eg,ep,ev,re,r,rp) - Duel.PayLPCost(tp,500) -end diff --git a/script/c6844.lua b/script/c6844.lua deleted file mode 100755 index c42a6cff..00000000 --- a/script/c6844.lua +++ /dev/null @@ -1,123 +0,0 @@ ---Scripted by Eerie Code ---Goyo Emperor -function c6844.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFunRep(c,c6844.ffilter,2,false) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6844,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_BATTLE_DESTROYING) - e1:SetCondition(c6844.spcon) - e1:SetTarget(c6844.sptg) - e1:SetOperation(c6844.spop) - c:RegisterEffect(e1) - --Take control - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6844,1)) - e2:SetCategory(CATEGORY_CONTROL) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCost(c6844.concost) - e2:SetTarget(c6844.contg) - e2:SetOperation(c6844.conop) - c:RegisterEffect(e2) - --Return control - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(6844,2)) - e3:SetCategory(CATEGORY_CONTROL) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCondition(c6844.retcon) - e3:SetTarget(c6844.rettg) - e3:SetOperation(c6844.retop) - c:RegisterEffect(e3) -end - -function c6844.ffilter(c) - return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsRace(RACE_WARRIOR) and c:IsType(TYPE_SYNCHRO) -end - -function c6844.spcon(e,tp,eg,ep,ev,re,r,rp) - local bc=eg:GetFirst() - local tc=bc:GetBattleTarget() - return tc:IsLocation(LOCATION_GRAVE) and tc:IsReason(REASON_BATTLE) and tc:IsType(TYPE_MONSTER) and bc:IsRelateToBattle() and bc:IsControler(tp) and (bc==e:GetHandler() or bc:GetOwner()==1-tp) -end -function c6844.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local bc=eg:GetFirst() - local tc=bc:GetBattleTarget() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetTargetCard(tc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tc,1,0,LOCATION_GRAVE) -end -function c6844.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end - -function c6844.confil(c) - return c:IsType(TYPE_SYNCHRO) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsRace(RACE_WARRIOR) -end -function c6844.concost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c6844.confil,1,e:GetHandler()) end - local g=Duel.SelectReleaseGroup(tp,c6844.confil,1,1,e:GetHandler()) - Duel.Release(g,REASON_COST) -end -function c6844.confil2(c,tp) - return c:IsFaceup() and c:IsControler(1-tp) and c:IsControlerCanBeChanged() -end -function c6844.contg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg and eg:IsExists(c6844.confil2,1,nil,tp) end - local g=eg:Filter(Card.IsControlerCanBeChanged,nil) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,g:GetCount(),0,0) -end -function c6844.conop(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(c6844.confil2,nil,tp) - local loc=Duel.GetLocationCount(tp,LOCATION_MZONE) - if loc==0 then return end - if g:GetCount()>loc then - g=g:Select(tp,loc,loc,nil) - end - if g:GetCount()==0 then return end - if e:GetHandler():IsRelateToEffect(e) then - local tc=g:GetFirst() - while tc do - Duel.GetControl(tc,tp) - tc=g:GetNext() - end - end -end - -function c6844.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousPosition(POS_FACEUP) -end -function c6844.retfil(c) - return c:GetControler()~=c:GetOwner() -end -function c6844.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6844.retfil,tp,LOCATION_MZONE,0,1,nil) end -end -function c6844.retop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0) - local tc=g:GetFirst() - while tc do - if not tc:IsImmuneToEffect(e) then - tc:ResetEffect(EFFECT_SET_CONTROL,RESET_CODE) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_CONTROL) - e1:SetValue(tc:GetOwner()) - e1:SetReset(RESET_EVENT+0xec0000) - tc:RegisterEffect(e1) - end - tc=g:GetNext() - end -end \ No newline at end of file diff --git a/script/c68450517.lua b/script/c68450517.lua index c484d1ee..0c0fe9c5 100644 --- a/script/c68450517.lua +++ b/script/c68450517.lua @@ -23,7 +23,7 @@ function c68450517.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RegisterEffect(e1) end function c68450517.filter(c,att) - return c:IsPosition(POS_FACEUP_ATTACK) and c:IsAttribute(att) and c:IsDestructable() + return c:IsPosition(POS_FACEUP_ATTACK) and c:IsAttribute(att) end function c68450517.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) diff --git a/script/c68473226.lua b/script/c68473226.lua old mode 100755 new mode 100644 diff --git a/script/c68477598.lua b/script/c68477598.lua new file mode 100644 index 00000000..4179af71 --- /dev/null +++ b/script/c68477598.lua @@ -0,0 +1,27 @@ +--ペンデュラム・ホール +function c68477598.initial_effect(c) + --Activate(summon) + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DISABLE_SUMMON+CATEGORY_TODECK) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_SPSUMMON) + e1:SetCondition(c68477598.condition) + e1:SetTarget(c68477598.target) + e1:SetOperation(c68477598.activate) + c:RegisterEffect(e1) +end +function c68477598.cfilter(c) + return c:GetSummonType()==SUMMON_TYPE_PENDULUM +end +function c68477598.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentChain()==0 and eg:IsExists(c68477598.cfilter,1,nil) +end +function c68477598.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_TODECK,eg,eg:GetCount(),0,0) +end +function c68477598.activate(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateSummon(eg) + Duel.SendtoDeck(eg,nil,2,REASON_EFFECT) +end diff --git a/script/c6850209.lua b/script/c6850209.lua index 732356b0..163dbb32 100644 --- a/script/c6850209.lua +++ b/script/c6850209.lua @@ -27,7 +27,7 @@ end function c6850209.checkop(e,tp,eg,ep,ev,re,r,rp) local tc=eg:GetFirst() while tc do - if tc:IsLevelAbove(8) and tc:IsPreviousLocation(LOCATION_ONFIELD) then + if tc:IsLevelAbove(8) and tc:IsPreviousLocation(LOCATION_MZONE) then c6850209[tc:GetPreviousControler()]=true end tc=eg:GetNext() diff --git a/script/c6853.lua b/script/c6853.lua deleted file mode 100755 index 7119b932..00000000 --- a/script/c6853.lua +++ /dev/null @@ -1,71 +0,0 @@ ---Scripted by Eerie Code ---Katanagami - Shiranui -function c6853.initial_effect(c) - c:SetSPSummonOnce(6853) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_ZOMBIE),aux.NonTuner(Card.IsRace,RACE_ZOMBIE),1) - c:EnableReviveLimit() - --Change position - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(6853,0)) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c6853.postg) - e1:SetOperation(c6853.posop) - c:RegisterEffect(e1) - --Reduce ATK - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6853,1)) - e2:SetCategory(CATEGORY_ATKCHANGE) - 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:SetTarget(c6853.target) - e2:SetOperation(c6853.operation) - c:RegisterEffect(e2) -end - -function c6853.cposfil(c,tp) - return c:IsRace(RACE_ZOMBIE) and c:IsAbleToDeck() and Duel.IsExistingMatchingCard(c6853.posfil,tp,0,LOCATION_MZONE,1,nil,c:GetAttack()) -end -function c6853.posfil(c,atk) - return c:IsPosition(POS_ATTACK) and c:GetAttack()<=atk -end -function c6853.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return c:IsLocation(LOCATION_REMOVED) and c:IsControler(tp) and c6853.cposfil(chkc,tp) end - if chk==0 then return Duel.IsExistingTarget(c6853.cposfil,tp,LOCATION_REMOVED,0,1,nil,tp) end - local tg=Duel.SelectTarget(tp,c6853.cposfil,tp,LOCATION_REMOVED,0,1,1,nil,tp) - local g=Duel.GetMatchingGroup(c6853.posfil,tp,0,LOCATION_MZONE,nil,tg:GetFirst():GetAttack()) - Duel.SetOperationInfo(0,CATEGORY_TODECK,tg,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) -end -function c6853.posop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local g=Duel.GetMatchingGroup(c6853.posfil,tp,0,LOCATION_MZONE,nil,tc:GetAttack()) - if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)~=0 then - Duel.ChangePosition(g,POS_FACEUP_DEFENCE,POS_FACEUP_DEFENCE,POS_FACEUP_DEFENCE,POS_FACEUP_DEFENCE) - end -end - -function c6853.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c6853.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,1,0,0) -end -function c6853.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-500) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c6853254.lua b/script/c6853254.lua new file mode 100644 index 00000000..fc900afa --- /dev/null +++ b/script/c6853254.lua @@ -0,0 +1,52 @@ +--復活の福音 +function c6853254.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c6853254.target) + e1:SetOperation(c6853254.activate) + c:RegisterEffect(e1) + --destroy replace + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EFFECT_DESTROY_REPLACE) + e2:SetRange(LOCATION_GRAVE) + e2:SetTarget(c6853254.reptg) + e2:SetValue(c6853254.repval) + e2:SetOperation(c6853254.repop) + c:RegisterEffect(e2) +end +function c6853254.filter(c,e,tp) + return c:IsRace(RACE_DRAGON) and (c:GetLevel()==7 or c:GetLevel()==8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c6853254.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c6853254.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c6853254.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c6853254.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c6853254.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end +function c6853254.repfilter(c,tp) + return c:IsFaceup() and c:IsRace(RACE_DRAGON) and c:IsLocation(LOCATION_MZONE) + and c:IsControler(tp) and c:IsReason(REASON_EFFECT+REASON_BATTLE) +end +function c6853254.reptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(c6853254.repfilter,1,nil,tp) end + return Duel.SelectYesNo(tp,aux.Stringid(6853254,0)) +end +function c6853254.repval(e,c) + return c6853254.repfilter(c,e:GetHandlerPlayer()) +end +function c6853254.repop(e,tp,eg,ep,ev,re,r,rp) + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT) +end diff --git a/script/c68535320.lua b/script/c68535320.lua index 092ab976..2d229e63 100644 --- a/script/c68535320.lua +++ b/script/c68535320.lua @@ -7,20 +7,16 @@ function c68535320.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c68535320.condition) + e1:SetCondition(aux.dogcon) e1:SetTarget(c68535320.target) e1:SetOperation(c68535320.operation) c:RegisterEffect(e1) end -function c68535320.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetPreviousControler()==tp and c:IsReason(REASON_DESTROY) and rp~=tp -end function c68535320.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c68535320.spfilter(c,e,tp) diff --git a/script/c68540058.lua b/script/c68540058.lua index 9cd48307..c5caf60d 100644 --- a/script/c68540058.lua +++ b/script/c68540058.lua @@ -11,13 +11,6 @@ function c68540058.initial_effect(c) e1:SetTarget(c68540058.target) e1:SetOperation(c68540058.operation) c:RegisterEffect(e1) - --atk up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) - e2:SetRange(LOCATION_SZONE) - e2:SetOperation(c68540058.atkup) - c:RegisterEffect(e2) end function c68540058.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() @@ -47,7 +40,7 @@ function c68540058.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) --Equip limit local e3=Effect.CreateEffect(c) @@ -57,17 +50,20 @@ function c68540058.operation(e,tp,eg,ep,ev,re,r,rp) e3:SetValue(1) e3:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e3) + --atk up + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_EQUIP) + e4:SetCode(EFFECT_UPDATE_ATTACK) + e4:SetCondition(c68540058.atkcon) + e4:SetValue(c68540058.atkval) + e4:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e4) end end -function c68540058.atkup(e,tp,eg,ep,ev,re,r,rp) - local eqc=e:GetHandler():GetEquipTarget() - local bc=eqc:GetBattleTarget() - if eqc==Duel.GetAttacker() and bc then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(bc:GetAttack()/2) - eqc:RegisterEffect(e1) - end +function c68540058.atkcon(e) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL + and Duel.GetAttacker()==e:GetHandler():GetEquipTarget() and Duel.GetAttackTarget() +end +function c68540058.atkval(e,c) + return Duel.GetAttackTarget():GetAttack()/2 end diff --git a/script/c68540059.lua b/script/c68540059.lua deleted file mode 100644 index 99761013..00000000 --- a/script/c68540059.lua +++ /dev/null @@ -1,76 +0,0 @@ ---メタル化·魔法反射装甲 -function c68540059.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c68540059.condition) - e1:SetTarget(c68540059.target) - e1:SetOperation(c68540059.operation) - c:RegisterEffect(e1) - --atk up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) - e2:SetRange(LOCATION_SZONE) - e2:SetOperation(c68540059.atkup) - c:RegisterEffect(e2) -end -function c68540059.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c68540059.filter(c) - return c:IsFaceup() -end -function c68540059.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c68540059.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c68540059.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,c68540059.filter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c68540059.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsLocation(LOCATION_SZONE) then return end - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,c,tc) - c:CancelToGrave() - --Atkup - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_EQUIP) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(300) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) - --Equip limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EQUIP_LIMIT) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetValue(c68540059.eqlimit) - e3:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e3) - end -end -function c68540059.eqlimit(e,c) - return c:GetControler()==e:GetOwnerPlayer() -end -function c68540059.atkup(e,tp,eg,ep,ev,re,r,rp) - local eqc=e:GetHandler():GetEquipTarget() - local bc=eqc:GetBattleTarget() - if eqc==Duel.GetAttacker() and bc then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_PHASE+RESET_DAMAGE_CAL) - e1:SetValue(bc:GetAttack()/2) - eqc:RegisterEffect(e1) - end -end diff --git a/script/c6859683.lua b/script/c6859683.lua index b1a08f32..99c34946 100644 --- a/script/c6859683.lua +++ b/script/c6859683.lua @@ -1,26 +1,23 @@ ---成功確率0% -function c6859683.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c6859683.target) - e1:SetOperation(c6859683.operation) - c:RegisterEffect(e1) -end -function c6859683.filter(c) - return (c:IsFacedown() or c:IsType(TYPE_FUSION)) and c:IsAbleToGrave() -end -function c6859683.target(e,tp,eg,ep,ev,re,r,rp,chk) - local g=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA) - if chk==0 then return g:FilterCount(c6859683.filter,nil)>=2 end -end -function c6859683.operation(e,tp,eg,ep,ev,re,r,rp) - local cg=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA) - if cg:FilterCount(c6859683.filter,nil)<2 then return end - Duel.ConfirmCards(tp,cg) - local g=Duel.GetMatchingGroup(Card.IsType,1-tp,LOCATION_EXTRA,0,nil,TYPE_FUSION) - if g:GetCount()<2 then return end - local rg=g:RandomSelect(tp,2) - Duel.SendtoGrave(rg,REASON_EFFECT) -end +--成功確率0% +function c6859683.initial_effect(c) + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_REMOVE) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c6859683.target) + e1:SetOperation(c6859683.operation) + c:RegisterEffect(e1) +end +function c6859683.filter(c) + return (c:IsFacedown() or c:IsType(TYPE_FUSION)) and c:IsAbleToGrave() +end +function c6859683.target(e,tp,eg,ep,ev,re,r,rp,chk) + local g=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA) + if chk==0 then return g:FilterCount(c6859683.filter,nil)>=2 end +end +function c6859683.operation(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(Card.IsType,1-tp,LOCATION_EXTRA,0,nil,TYPE_FUSION) + if g:GetCount()<2 then return end + local rg=g:RandomSelect(tp,2) + Duel.SendtoGrave(rg,REASON_EFFECT) +end diff --git a/script/c68597372.lua b/script/c68597372.lua index d95051c9..6f7abe9f 100644 --- a/script/c68597372.lua +++ b/script/c68597372.lua @@ -44,7 +44,7 @@ end function c68597372.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) tc:RegisterFlagEffect(68597372,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) diff --git a/script/c6861.lua b/script/c6861.lua deleted file mode 100755 index 1808b477..00000000 --- a/script/c6861.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Scripted by Eerie Code ---Clash of the Dracorivals -function c6861.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCategory(CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON) - e1:SetCountLimit(1,6861+EFFECT_COUNT_CODE_OATH) - e1:SetTarget(c6861.target) - e1:SetOperation(c6861.activate) - c:RegisterEffect(e1) -end - -function c6861.pzfilter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) -end -function c6861.sfilter(c,e,tp,sc) - return c:IsSetCard(sc) and ((c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0) or Duel.GetMatchingGroupCount(c6861.pzfilter,tp,LOCATION_SZONE,0,nil)<2) -end -function c6861.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c6861.sfilter,tp,LOCATION_DECK,0,1,nil,e,tp,0xc7) and Duel.IsExistingMatchingCard(c6861.sfilter,tp,LOCATION_DECK,0,1,nil,e,tp,0xd7) end -end -function c6861.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 and Duel.GetMatchingGroupCount(c6861.pzfilter,tp,LOCATION_SZONE,0,nil)>=2 then return end - local g1=Duel.SelectMatchingCard(tp,c6861.sfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,0xc7) - if g1:GetCount()==0 then return end - local g2=Duel.SelectMatchingCard(tp,c6861.sfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,0xd7) - if g2:GetCount()==0 then return end - local g=Group.FromCards(g1:GetFirst(),g2:GetFirst()) - Duel.ConfirmCards(1-tp,g) - Duel.ShuffleDeck(tp) - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_CONFIRM) - local tg=g:Select(1-tp,1,1,nil) - local tc=tg:GetFirst() - Duel.ConfirmCards(tp,tc) - local op - g:RemoveCard(tc) - local b1=Duel.GetLocationCount(tp,LOCATION_MZONE,0)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) - local b2=Duel.GetMatchingGroupCount(c6861.pzfilter,tp,LOCATION_SZONE,0,nil)<2 - if b1 and b2 then - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(6861,0)) - op=Duel.SelectOption(tp,aux.Stringid(6861,1),aux.Stringid(6861,2)) - elseif b1 then op=1 else op=0 end - if op==1 then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - else - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - end - Duel.SendToExtra(g,POS_FACEUP,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c68625727.lua b/script/c68625727.lua index ae9d429e..bec6dcd5 100644 --- a/script/c68625727.lua +++ b/script/c68625727.lua @@ -16,7 +16,7 @@ function c68625727.postg(e,tp,eg,ep,ev,re,r,rp,chk) end function c68625727.posop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsPosition,tp,0,LOCATION_MZONE,nil,POS_FACEUP_ATTACK) - if Duel.ChangePosition(g,POS_FACEUP_DEFENCE)~=0 then + if Duel.ChangePosition(g,POS_FACEUP_DEFENSE)~=0 then local og=Duel.GetOperatedGroup() local oc=og:GetFirst() while oc do diff --git a/script/c6866.lua b/script/c6866.lua deleted file mode 100755 index 16e0c748..00000000 --- a/script/c6866.lua +++ /dev/null @@ -1,70 +0,0 @@ ---Scripted by Eerie Code ---Odd-Eyes Advent -function c6866.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCountLimit(1,6866+EFFECT_COUNT_CODE_OATH) - e1:SetTarget(c6866.target) - e1:SetOperation(c6866.activate) - c:RegisterEffect(e1) -end - -function c6866.matcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>1 and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 -end -function c6866.filter(c,e,tp,m) - if bit.band(c:GetType(),0x81)~=0x81 - or not c:IsRace(RACE_DRAGON) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end - local mg=nil - if c.mat_filter then - mg=m:Filter(c.mat_filter,c) - else - mg=m:Clone() - mg:RemoveCard(c) - end - return mg:CheckWithSumGreater(Card.GetRitualLevel,c:GetLevel(),c) -end -function c6866.matfilter1(c) - return c:IsType(TYPE_PENDULUM) and c:GetLevel()>0 and c:IsReleasable() -end -function c6866.matfilter2(c) - return c:IsSetCard(0x99) and c:GetLevel()>0 and c:IsAbleToGraveAsCost() -end -function c6866.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - --local mg1=Duel.GetMatchingGroup(c6866.matfilter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil) - local mg1=Duel.GetRitualMaterial(tp):Filter(Card.IsType,nil,TYPE_PENDULUM) - if c6866.matcon(e,tp,eg,ep,ev,re,r,rp) then - local mg2=Duel.GetMatchingGroup(c6866.matfilter2,tp,LOCATION_EXTRA,0,nil) - mg1:Merge(mg2) - end - return Duel.IsExistingMatchingCard(c6866.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp,mg1) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) -end -function c6866.activate(e,tp,eg,ep,ev,re,r,rp) - --if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local mg1=Duel.GetRitualMaterial(tp):Filter(Card.IsType,nil,TYPE_PENDULUM) - if c6866.matcon(e,tp,eg,ep,ev,re,r,rp) then - local mg2=Duel.GetMatchingGroup(c6866.matfilter2,tp,LOCATION_EXTRA,0,nil) - mg1:Merge(mg2) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c6866.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp,mg1) - if tg:GetCount()>0 then - local tc=tg:GetFirst() - if tc.mat_filter then - mg1=mg1:Filter(tc.mat_filter,nil) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local mat=mg1:SelectWithSumGreater(tp,Card.GetRitualLevel,tc:GetLevel(),tc) - tc:SetMaterial(mat) - Duel.SendtoGrave(mat,REASON_EFFECT+REASON_MATERIAL+REASON_RITUAL) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP) - tc:CompleteProcedure() - end -end diff --git a/script/c6869.lua b/script/c6869.lua deleted file mode 100755 index 14b114d7..00000000 --- a/script/c6869.lua +++ /dev/null @@ -1,61 +0,0 @@ ---Scripted by Eerie Code ---Dragon Bind -function c6869.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c6869.condition) - e1:SetTarget(c6869.target) - e1:SetOperation(c6869.activate) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetCondition(c6869.descon) - e2:SetOperation(c6869.desop) - c:RegisterEffect(e2) -end - -function c6869.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c6869.filter(c) - return c:IsFaceup() and c:IsRace(RACE_DRAGON) and c:IsAttackBelow(2500) and c:IsDefenceBelow(2500) -end -function c6869.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c6869.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c6869.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c6869.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c6869.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - c:SetCardTarget(tc) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_SZONE) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,1) - e1:SetLabel(tc:GetBaseAttack()) - e1:SetTarget(c6869.sumlimit) - c:RegisterEffect(e1) - end -end -function c6869.sumlimit(e,c,sump,sumtype,sumpos,targetp) - return c:IsAttackBelow(e:GetLabel()) -end - -function c6869.descon(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetFirstCardTarget() - return tc and eg:IsContains(tc) -end -function c6869.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c6871.lua b/script/c6871.lua deleted file mode 100755 index d6a404ec..00000000 --- a/script/c6871.lua +++ /dev/null @@ -1,54 +0,0 @@ ---Scripted by Eerie Code ---Reject Reborn -function c6871.initial_effect(c) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(6871,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_ACTIVATE) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetCondition(c6871.spcon) - e2:SetOperation(c6871.spop) - c:RegisterEffect(e2) -end - -function c6871.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil -end -function c6871.spfilter1(c,e,tp,sync) - return c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c6871.spfilter2(c,e,tp,sync) - return c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c6871.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - local g1=Duel.GetMatchingGroup(c6871.spfilter1,tp,LOCATION_GRAVE,0,nil,e,tp) - local g2=Duel.GetMatchingGroup(c6871.spfilter2,tp,LOCATION_GRAVE,0,nil,e,tp) - if g1:GetCount()>0 and g2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(6871,1)) then - Duel.BreakEffect() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg1=g1:Select(tp,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg2=g2:Select(tp,1,1,nil) - local sg=Group.FromCards(sg1:GetFirst(),sg2:GetFirst()) - local tc=sg:GetFirst() - while tc do - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - tc=sg:GetNext() - end - Duel.SpecialSummonComplete() - end -end \ No newline at end of file diff --git a/script/c68745629.lua b/script/c68745629.lua old mode 100755 new mode 100644 diff --git a/script/c68786330.lua b/script/c68786330.lua index 713b393c..850d46cf 100644 --- a/script/c68786330.lua +++ b/script/c68786330.lua @@ -5,7 +5,7 @@ function c68786330.initial_effect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) c:RegisterEffect(e1) - --to defence + --to defense local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(68786330,0)) e2:SetCategory(CATEGORY_POSITION) @@ -19,7 +19,7 @@ end function c68786330.poscon(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() - return a and d and a:IsRelateToBattle() and d:IsRelateToBattle() and a:IsRace(RACE_REPTILE) and d:IsDefencePos() + return a and d and a:IsRelateToBattle() and d:IsRelateToBattle() and a:IsRace(RACE_REPTILE) and d:IsDefensePos() end function c68786330.posop(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end diff --git a/script/c68809475.lua b/script/c68809475.lua index 13a717d4..1b66f55f 100644 --- a/script/c68809475.lua +++ b/script/c68809475.lua @@ -33,6 +33,8 @@ function c68809475.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_MACHINE) and not c:IsPublic() end function c68809475.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c68809475.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c68809475.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -42,8 +44,10 @@ function c68809475.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(68809475,0),aux.Stringid(68809475,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(68809475,1),aux.Stringid(68809475,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(68809475,1),aux.Stringid(68809475,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(68809475,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -55,7 +59,7 @@ function c68809475.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c68809475.filter(c) diff --git a/script/c68812773.lua b/script/c68812773.lua index f791ae65..66b42445 100644 --- a/script/c68812773.lua +++ b/script/c68812773.lua @@ -41,7 +41,7 @@ function c68812773.spop(e,tp,eg,ep,ev,re,r,rp) if tc:IsRelateToEffect(e) then local spos=0 if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then spos=spos+POS_FACEUP_ATTACK end - if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENCE end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENSE end Duel.SpecialSummon(tc,0,tp,tp,false,false,spos) if tc:IsFacedown() then Duel.ConfirmCards(1-tp,tc) @@ -54,6 +54,7 @@ end function c68812773.spcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsRace,1,nil,RACE_MACHINE) end local ct=Duel.GetMatchingGroupCount(c68812773.spfilter,tp,LOCATION_HAND,0,nil,e,tp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end local rg=Duel.SelectReleaseGroup(tp,Card.IsRace,1,ct,nil,RACE_MACHINE) ct=Duel.Release(rg,REASON_COST) e:SetLabel(ct) @@ -67,9 +68,9 @@ end function c68812773.spop2(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local ct=e:GetLabel() - local ct1=Duel.GetMatchingGroupCount(c68812773.spfilter,tp,LOCATION_HAND,0,nil,e,tp) - if ct10 then diff --git a/script/c68815132.lua b/script/c68815132.lua index 4bdbec01..844ec7fc 100644 --- a/script/c68815132.lua +++ b/script/c68815132.lua @@ -35,7 +35,7 @@ function c68815132.sumfilter(c) end function c68815132.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND+LOCATION_EXTRA) then + if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND) then if Duel.IsExistingMatchingCard(c68815132.sumfilter,tp,LOCATION_HAND,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(68815132,1)) then Duel.BreakEffect() diff --git a/script/c68815401.lua b/script/c68815401.lua index 95e2521a..4cdf7fbd 100644 --- a/script/c68815401.lua +++ b/script/c68815401.lua @@ -23,14 +23,14 @@ function c68815401.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.RegisterEffect(e1,tp) end function c68815401.filter1(c) - return c:IsFaceup() and c:IsSetCard(0xb9) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0xb9) end function c68815401.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c68815401.filter1,tp,LOCATION_SZONE,0,1,nil) - and Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) + and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) and Duel.IsPlayerCanSpecialSummonMonster(tp,68815402,0,0x4011,1000,1000,3,RACE_PYRO,ATTRIBUTE_FIRE) end local dg1=Duel.GetMatchingGroup(c68815401.filter1,tp,LOCATION_SZONE,0,nil) - local dg2=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local dg2=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) dg1:Merge(dg2) Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg1,dg1:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) @@ -39,7 +39,7 @@ end function c68815401.activate(e,tp,eg,ep,ev,re,r,rp) local dg1=Duel.GetMatchingGroup(c68815401.filter1,tp,LOCATION_SZONE,0,nil) if Duel.Destroy(dg1,REASON_EFFECT)>0 then - local dg2=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local dg2=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if Duel.Destroy(dg2,REASON_EFFECT)>0 and Duel.IsPlayerCanSpecialSummonMonster(tp,68815402,0,0x4011,1000,1000,3,RACE_PYRO,ATTRIBUTE_FIRE) then Duel.BreakEffect() diff --git a/script/c68819554.lua b/script/c68819554.lua old mode 100755 new mode 100644 index 8fce9ef0..69583398 --- a/script/c68819554.lua +++ b/script/c68819554.lua @@ -56,7 +56,7 @@ function c68819554.negop(e,tp,eg,ep,ev,re,r,rp) end end function c68819554.damcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE + return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c68819554.damop(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c68937720.lua b/script/c68937720.lua old mode 100755 new mode 100644 diff --git a/script/c68950538.lua b/script/c68950538.lua new file mode 100644 index 00000000..afb45b8b --- /dev/null +++ b/script/c68950538.lua @@ -0,0 +1,78 @@ +--電子光虫－センチビット +function c68950538.initial_effect(c) + --xyzlimit + local e0=Effect.CreateEffect(c) + e0:SetType(EFFECT_TYPE_SINGLE) + e0:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) + e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e0:SetValue(c68950538.xyzlimit) + c:RegisterEffect(e0) + --Special Summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(68950538,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_CHANGE_POS) + e1:SetCountLimit(1) + e1:SetCondition(c68950538.spcon) + e1:SetTarget(c68950538.sptg) + e1:SetOperation(c68950538.spop) + c:RegisterEffect(e1) + --effect gain + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_BE_MATERIAL) + e2:SetCondition(c68950538.efcon) + e2:SetOperation(c68950538.efop) + c:RegisterEffect(e2) +end +function c68950538.xyzlimit(e,c) + if not c then return false end + return not c:IsRace(RACE_INSECT) +end +function c68950538.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return not c:IsStatus(STATUS_CONTINUOUS_POS) and c:IsPosition(POS_FACEUP_DEFENSE) and c:IsPreviousPosition(POS_FACEUP_ATTACK) +end +function c68950538.spfilter(c,e,tp) + return c:GetLevel()==3 and c:IsRace(RACE_INSECT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c68950538.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c68950538.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c68950538.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c68950538.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + end +end +function c68950538.efcon(e,tp,eg,ep,ev,re,r,rp) + return r==REASON_XYZ +end +function c68950538.efop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local rc=c:GetReasonCard() + local e1=Effect.CreateEffect(rc) + e1:SetDescription(aux.Stringid(68950538,1)) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CLIENT_HINT) + e1:SetCode(EFFECT_ATTACK_ALL) + e1:SetValue(c68950538.atkfilter) + e1:SetReset(RESET_EVENT+0x1fe0000) + rc:RegisterEffect(e1,true) + if not rc:IsType(TYPE_EFFECT) then + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_ADD_TYPE) + e2:SetValue(TYPE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000) + rc:RegisterEffect(e2,true) + end +end +function c68950538.atkfilter(e,c) + return c:IsPosition(POS_DEFENSE) +end diff --git a/script/c69031175.lua b/script/c69031175.lua index b9a8d3b7..e580d012 100644 --- a/script/c69031175.lua +++ b/script/c69031175.lua @@ -35,23 +35,23 @@ function c69031175.initial_effect(c) end function c69031175.condition1(e,tp,eg,ep,ev,re,r,rp) local atg=Duel.GetAttackTarget() - return Duel.GetAttacker()==e:GetHandler() and atg and atg:IsRelateToBattle() and atg:GetCounter(0x2)==0 + return Duel.GetAttacker()==e:GetHandler() and atg and atg:IsRelateToBattle() and atg:GetCounter(0x1002)==0 end function c69031175.operation1(e,tp,eg,ep,ev,re,r,rp) local atg=Duel.GetAttackTarget() if atg:IsRelateToBattle() then - atg:AddCounter(0x2,1) + atg:AddCounter(0x1002,1) end end function c69031175.filter(c) - return c:GetCounter(0x2)>0 + return c:GetCounter(0x1002)>0 end function c69031175.cost2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c69031175.filter,tp,0,LOCATION_MZONE,1,nil) end local g=Duel.GetMatchingGroup(c69031175.filter,tp,0,LOCATION_MZONE,nil) local t=g:GetFirst() while t do - t:RemoveCounter(tp,0x2,t:GetCounter(0x2),REASON_COST) + t:RemoveCounter(tp,0x1002,t:GetCounter(0x1002),REASON_COST) t=g:GetNext() end Duel.SetTargetCard(g) @@ -70,7 +70,7 @@ function c69031175.operation2(e,tp,eg,ep,ev,re,r,rp) t:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetValue(0) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) t:RegisterEffect(e2) diff --git a/script/c6903857.lua b/script/c6903857.lua index 52382237..07edbe76 100644 --- a/script/c6903857.lua +++ b/script/c6903857.lua @@ -11,7 +11,7 @@ function c6903857.initial_effect(c) e1:SetTarget(c6903857.target) e1:SetOperation(c6903857.operation) c:RegisterEffect(e1) - --to defence + --to defense local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(6903857,1)) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) @@ -26,7 +26,7 @@ function c6903857.condition(e,tp,eg,ep,ev,re,r,rp) and (not c:IsReason(REASON_BATTLE) or c==Duel.GetAttackTarget()) end function c6903857.dfilter(c) - return c:IsFaceup() and c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c6903857.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c6903857.dfilter(chkc) end @@ -47,6 +47,6 @@ end function c6903857.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() and c:IsRelateToBattle() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end diff --git a/script/c69058960.lua b/script/c69058960.lua index 530fc3c5..be67f2f3 100644 --- a/script/c69058960.lua +++ b/script/c69058960.lua @@ -48,7 +48,6 @@ function c69058960.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetFieldGroup(tp,0,LOCATION_MZONE) if g:GetCount()>0 then Duel.ChangePosition(g,POS_FACEUP_ATTACK) - c:RegisterFlagEffect(69058960,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) local tc=g:GetFirst() while tc do local e1=Effect.CreateEffect(c) @@ -56,32 +55,17 @@ function c69058960.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetCode(EFFECT_MUST_ATTACK) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c69058960.becon) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + local e2=e1:Clone() + e2:SetCode(EFFECT_MUST_ATTACK_MONSTER) tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(0,LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE) - e3:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e3:SetTarget(c69058960.bttg) - e3:SetValue(c69058960.vala) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e4:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e4) tc=g:GetNext() end + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_MUST_BE_ATTACKED) + e3:SetValue(1) + e3:SetReset(RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e3) end end function c69058960.filter(c) @@ -95,12 +79,3 @@ function c69058960.refcon(e) return Duel.IsExistingMatchingCard(c69058960.filter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) and Duel.GetAttackTarget()==e:GetHandler() end -function c69058960.becon(e) - return e:GetHandler():IsAttackable() -end -function c69058960.bttg(e,c) - return c:GetFlagEffect(69058960)==0 -end -function c69058960.vala(e,c) - return c==e:GetHandler() -end diff --git a/script/c69072185.lua b/script/c69072185.lua new file mode 100644 index 00000000..2cbccedf --- /dev/null +++ b/script/c69072185.lua @@ -0,0 +1,58 @@ +--アモルファージ・イリテュム +function c69072185.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --maintain + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e1:SetRange(LOCATION_PZONE) + e1:SetCode(EVENT_PHASE+PHASE_STANDBY) + e1:SetCountLimit(1) + e1:SetCondition(c69072185.descon) + e1:SetOperation(c69072185.desop) + c:RegisterEffect(e1) + --spsummon limit + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetTargetRange(1,1) + e2:SetTarget(c69072185.sumlimit) + c:RegisterEffect(e2) + --remove + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE) + e3:SetCode(EFFECT_TO_GRAVE_REDIRECT) + e3:SetRange(LOCATION_PZONE) + e3:SetCondition(c69072185.rmcon) + e3:SetTarget(c69072185.rmtarget) + e3:SetTargetRange(0xff,0xff) + e3:SetValue(LOCATION_REMOVED) + c:RegisterEffect(e3) +end +function c69072185.descon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c69072185.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) + if Duel.CheckReleaseGroup(tp,Card.IsReleasableByEffect,1,c) and Duel.SelectYesNo(tp,aux.Stringid(69072185,0)) then + local g=Duel.SelectReleaseGroup(tp,Card.IsReleasableByEffect,1,1,c) + Duel.Release(g,REASON_COST) + else Duel.Destroy(c,REASON_COST) end +end +function c69072185.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) + return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0xe0) +end +function c69072185.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe0) +end +function c69072185.rmcon(e) + return Duel.IsExistingMatchingCard(c69072185.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) +end +function c69072185.rmtarget(e,c) + return not c:IsSetCard(0xe0) +end diff --git a/script/c69105797.lua b/script/c69105797.lua new file mode 100644 index 00000000..30b4be45 --- /dev/null +++ b/script/c69105797.lua @@ -0,0 +1,78 @@ +--捕食植物スキッド・ドロセーラ +function c69105797.initial_effect(c) + --attack all + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(69105797,0)) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_HAND) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCondition(c69105797.condition) + e1:SetCost(c69105797.cost) + e1:SetTarget(c69105797.target) + e1:SetOperation(c69105797.operation) + c:RegisterEffect(e1) + --counter + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_COUNTER) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_LEAVE_FIELD) + e2:SetCondition(c69105797.ccon) + e2:SetOperation(c69105797.cop) + c:RegisterEffect(e2) +end +function c69105797.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsAbleToEnterBP() +end +function c69105797.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST) +end +function c69105797.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end + if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) +end +function c69105797.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_ATTACK_ALL) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(c69105797.atkfilter) + tc:RegisterEffect(e1) + end +end +function c69105797.atkfilter(e,c) + return c:GetCounter(0x1041)>0 +end +function c69105797.ccon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousPosition(POS_FACEUP) and not c:IsLocation(LOCATION_DECK) +end +function c69105797.cfilter(c) + return c:IsFaceup() and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c69105797.cop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local g=Duel.GetMatchingGroup(c69105797.cfilter,tp,0,LOCATION_MZONE,nil) + local tc=g:GetFirst() + while tc do + tc:AddCounter(0x1041,1) + if tc:GetLevel()>1 then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CHANGE_LEVEL) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetCondition(c69105797.lvcon) + e1:SetValue(1) + tc:RegisterEffect(e1) + end + tc=g:GetNext() + end +end +function c69105797.lvcon(e) + return e:GetHandler():GetCounter(0x1041)>0 +end diff --git a/script/c69162969.lua b/script/c69162969.lua index 673b5718..9b163993 100644 --- a/script/c69162969.lua +++ b/script/c69162969.lua @@ -15,7 +15,7 @@ function c69162969.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c69162969.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c69162969.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c69162969.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c69170557.lua b/script/c69170557.lua index 39464e9c..1a733087 100644 --- a/script/c69170557.lua +++ b/script/c69170557.lua @@ -26,7 +26,7 @@ function c69170557.initial_effect(c) end c69170557.xyz_number=40 function c69170557.desfilter(c) - return c:GetCounter(0x24)~=0 and c:IsDestructable() + return c:GetCounter(0x1024)~=0 end function c69170557.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -57,7 +57,7 @@ function c69170557.ctop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) local tc=g:GetFirst() while tc do - tc:AddCounter(0x24,1) + tc:AddCounter(0x1024,1) tc=g:GetNext() end end diff --git a/script/c69176131.lua b/script/c69176131.lua old mode 100755 new mode 100644 diff --git a/script/c691925.lua b/script/c691925.lua index 2e750ce7..b637be1a 100644 --- a/script/c691925.lua +++ b/script/c691925.lua @@ -4,7 +4,6 @@ function c691925.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetCategory(CATEGORY_DRAW+CATEGORY_DECKDES) e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetCode(EVENT_FREE_CHAIN) e1:SetCost(c691925.cost) e1:SetTarget(c691925.target) @@ -19,7 +18,8 @@ function c691925.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,c691925.costfilter,1,1,REASON_COST+REASON_DISCARD,nil) end function c691925.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,4) and Duel.IsPlayerCanDiscardDeck(tp,2) end + if chk==0 then return Duel.IsPlayerCanDraw(tp,2) and Duel.IsPlayerCanDiscardDeck(tp,2) + and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=4 end Duel.SetTargetPlayer(tp) Duel.SetTargetParam(2) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) diff --git a/script/c69196160.lua b/script/c69196160.lua index 4257fd4a..e2a7bbb5 100644 --- a/script/c69196160.lua +++ b/script/c69196160.lua @@ -10,13 +10,13 @@ function c69196160.initial_effect(c) c:RegisterEffect(e1) end function c69196160.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,0,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetCount()*300) end function c69196160.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil) local ct=Duel.Destroy(g,REASON_EFFECT) Duel.Damage(1-tp,ct*300,REASON_EFFECT) end diff --git a/script/c69207766.lua b/script/c69207766.lua index c053ea93..33d65555 100644 --- a/script/c69207766.lua +++ b/script/c69207766.lua @@ -18,7 +18,7 @@ function c69207766.initial_effect(c) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(200) c:RegisterEffect(e3) local e4=Effect.CreateEffect(c) @@ -39,7 +39,7 @@ function c69207766.initial_effect(c) c:RegisterEffect(e5) end function c69207766.filter(c) - return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsForbidden() end function c69207766.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 @@ -53,7 +53,7 @@ function c69207766.eqop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectMatchingCard(tp,c69207766.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil) local tc=g:GetFirst() - if tc then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then if not Duel.Equip(tp,tc,c,true) then return end local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) @@ -72,10 +72,10 @@ function c69207766.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(e:GetHandler(),REASON_COST) end function c69207766.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c69207766.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c69228245.lua b/script/c69228245.lua new file mode 100644 index 00000000..d8f59898 --- /dev/null +++ b/script/c69228245.lua @@ -0,0 +1,86 @@ +--EMチェーンジラフ +function c69228245.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(69228245,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetRange(LOCATION_PZONE) + e1:SetCode(EVENT_BATTLE_DESTROYED) + e1:SetCondition(c69228245.spcon) + e1:SetTarget(c69228245.sptg) + e1:SetOperation(c69228245.spop) + c:RegisterEffect(e1) + --summon success + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(69228245,1)) + e2:SetCategory(CATEGORY_DISABLE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetTarget(c69228245.target) + e2:SetOperation(c69228245.operation) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) +end +function c69228245.cfilter(c,tp) + return c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp +end +function c69228245.spcon(e,tp,eg,ep,ev,re,r,rp) + return eg:GetCount()==1 and eg:IsExists(c69228245.cfilter,1,nil,tp) +end +function c69228245.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + local tc=eg:GetFirst() + if chk==0 then return e:GetHandler():IsDestructable() + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and tc and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tc,1,0,0) +end +function c69228245.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=eg:GetFirst() + if c:IsRelateToEffect(e) + and Duel.Destroy(c,REASON_EFFECT)~=0 + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and tc and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK)~=0 then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(1) + tc:RegisterEffect(e1) + end +end +function c69228245.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end + if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) +end +function c69228245.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then + c:SetCardTarget(tc) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE+EFFECT_FLAG_CANNOT_DISABLE) + e1:SetRange(LOCATION_MZONE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetCondition(c69228245.rcon) + tc:RegisterEffect(e1,true) + local e2=e1:Clone() + e2:SetCode(EFFECT_CANNOT_ATTACK) + tc:RegisterEffect(e2,true) + end +end +function c69228245.rcon(e) + return e:GetOwner():IsHasCardTarget(e:GetHandler()) +end diff --git a/script/c6924874.lua b/script/c6924874.lua index 50162294..8de51c0a 100644 --- a/script/c6924874.lua +++ b/script/c6924874.lua @@ -1,61 +1,61 @@ ---ハーピィズペット仔竜 -function c6924874.initial_effect(c) - --at limit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(0,LOCATION_MZONE) - e1:SetValue(c6924874.atlimit) - c:RegisterEffect(e1) - --atk/def - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_SET_BASE_ATTACK) - e2:SetCondition(c6924874.adcon) - e2:SetValue(2400) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_SET_BASE_DEFENCE) - e3:SetValue(1200) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(6924874,0)) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetRange(LOCATION_MZONE) - e4:SetCountLimit(1) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetCondition(c6924874.descon) - e4:SetTarget(c6924874.destg) - e4:SetOperation(c6924874.desop) - c:RegisterEffect(e4) -end -function c6924874.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x64) and c:GetCode()~=6924874 -end -function c6924874.atlimit(e,c) - return c:IsFaceup() and c:IsSetCard(0x64) and c:GetCode()~=6924874 -end -function c6924874.adcon(e) - return Duel.IsExistingMatchingCard(c6924874.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,2,nil) -end -function c6924874.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c6924874.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,3,nil) -end -function c6924874.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c6924874.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--ハーピィズペット仔竜 +function c6924874.initial_effect(c) + --at limit + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET) + e1:SetRange(LOCATION_MZONE) + e1:SetTargetRange(0,LOCATION_MZONE) + e1:SetValue(c6924874.atlimit) + c:RegisterEffect(e1) + --atk/def + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EFFECT_SET_BASE_ATTACK) + e2:SetCondition(c6924874.adcon) + e2:SetValue(2400) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_SET_BASE_DEFENSE) + e3:SetValue(1200) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(6924874,0)) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_MZONE) + e4:SetCountLimit(1) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetCondition(c6924874.descon) + e4:SetTarget(c6924874.destg) + e4:SetOperation(c6924874.desop) + c:RegisterEffect(e4) +end +function c6924874.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0x64) and c:GetCode()~=6924874 +end +function c6924874.atlimit(e,c) + return c:IsFaceup() and c:IsSetCard(0x64) and c:GetCode()~=6924874 +end +function c6924874.adcon(e) + return Duel.IsExistingMatchingCard(c6924874.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,2,nil) +end +function c6924874.descon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c6924874.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,3,nil) +end +function c6924874.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c6924874.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c69257165.lua b/script/c69257165.lua index 731479da..9e386d63 100644 --- a/script/c69257165.lua +++ b/script/c69257165.lua @@ -40,9 +40,7 @@ function c69257165.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c69257165.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:GetLevel()==e:GetLabel() and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:GetLevel()==e:GetLabel() then + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c69304426.lua b/script/c69304426.lua old mode 100755 new mode 100644 index 63b27359..3c286ee9 --- a/script/c69304426.lua +++ b/script/c69304426.lua @@ -54,7 +54,7 @@ function c69304426.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()~=tp end function c69304426.filter(c) - return c:GetSequence()<5 and c:IsDestructable() + return c:GetSequence()<5 end function c69304426.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -75,7 +75,9 @@ function c69304426.hsptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c69304426.hspop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c6930764.lua b/script/c6930764.lua deleted file mode 100644 index 6d3470b6..00000000 --- a/script/c6930764.lua +++ /dev/null @@ -1,20 +0,0 @@ ---限界竜シュヴァルツシルト -function c6930764.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c6930764.spcon) - c:RegisterEffect(e1) -end -function c6930764.filter(c) - return c:IsFaceup() and c:IsAttackAbove(2000) -end -function c6930764.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c6930764.filter,tp,0,LOCATION_MZONE,1,nil) -end \ No newline at end of file diff --git a/script/c69320362.lua b/script/c69320362.lua index 01cca1ff..af714381 100644 --- a/script/c69320362.lua +++ b/script/c69320362.lua @@ -21,6 +21,6 @@ end function c69320362.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c69320362.filter,tp,LOCATION_MZONE,0,nil) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c69351984.lua b/script/c69351984.lua new file mode 100644 index 00000000..03f5e44f --- /dev/null +++ b/script/c69351984.lua @@ -0,0 +1,46 @@ +--メタルフォーゼ・ヴォルフレイム +function c69351984.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --destroy and set + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetTarget(c69351984.target) + e1:SetOperation(c69351984.operation) + c:RegisterEffect(e1) +end +function c69351984.desfilter(c,tp) + if c:IsFacedown() then return false end + local ft=Duel.GetLocationCount(tp,LOCATION_SZONE) + if ft==0 and c:IsLocation(LOCATION_SZONE) and c:GetSequence()<5 then + return Duel.IsExistingMatchingCard(c69351984.filter,tp,LOCATION_DECK,0,1,nil,true) + else + return Duel.IsExistingMatchingCard(c69351984.filter,tp,LOCATION_DECK,0,1,nil,false) + end +end +function c69351984.filter(c,ignore) + return c:IsSetCard(0xe1) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable(ignore) +end +function c69351984.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c69351984.desfilter(chkc,tp) and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(c69351984.desfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler(),tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c69351984.desfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler(),tp) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c69351984.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) + local g=Duel.SelectMatchingCard(tp,c69351984.filter,tp,LOCATION_DECK,0,1,1,nil,false) + if g:GetCount()>0 then + Duel.SSet(tp,g:GetFirst()) + Duel.ConfirmCards(1-tp,g) + end + end +end diff --git a/script/c69408987.lua b/script/c69408987.lua index c53d278b..2605fc47 100644 --- a/script/c69408987.lua +++ b/script/c69408987.lua @@ -5,7 +5,7 @@ function c69408987.initial_effect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) c:RegisterEffect(e1) - --to defence + --to defense local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetCode(EVENT_DAMAGE_STEP_END) @@ -20,7 +20,7 @@ function c69408987.poscon(e,tp,eg,ep,ev,re,r,rp) end function c69408987.posop(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() - if Duel.ChangePosition(a,POS_FACEUP_DEFENCE)~=0 then + if Duel.ChangePosition(a,POS_FACEUP_DEFENSE)~=0 then e:GetHandler():CreateRelation(a,RESET_EVENT+0x1fe0000) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c69456283.lua b/script/c69456283.lua index 5c71ac8e..2f609f8d 100644 --- a/script/c69456283.lua +++ b/script/c69456283.lua @@ -89,7 +89,9 @@ function c69456283.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c69456283.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c69461394.lua b/script/c69461394.lua index 5252582e..21e2aa5a 100644 --- a/script/c69461394.lua +++ b/script/c69461394.lua @@ -25,7 +25,7 @@ end function c69461394.condition(e,tp,eg,ep,ev,re,r,rp) local dg=eg:GetFirst() return eg:GetCount()==1 and dg:IsLocation(LOCATION_GRAVE) and dg:IsReason(REASON_BATTLE) - and dg:GetBattlePosition()==POS_FACEDOWN_DEFENCE and dg:GetReasonCard()==e:GetHandler() + and dg:GetBattlePosition()==POS_FACEDOWN_DEFENSE and dg:GetReasonCard()==e:GetHandler() end function c69461394.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end diff --git a/script/c69488544.lua b/script/c69488544.lua index 8e5e43c1..cac5d21b 100644 --- a/script/c69488544.lua +++ b/script/c69488544.lua @@ -7,7 +7,7 @@ function c69488544.initial_effect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_CHAINING) + e1:SetCode(EVENT_CHAIN_SOLVED) e1:SetRange(LOCATION_MZONE) e1:SetCondition(c69488544.spcon) e1:SetTarget(c69488544.sptg) @@ -17,7 +17,7 @@ function c69488544.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(69488544,1)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetRange(LOCATION_MZONE) diff --git a/script/c69514125.lua b/script/c69514125.lua index c2509f46..a456579e 100644 --- a/script/c69514125.lua +++ b/script/c69514125.lua @@ -30,6 +30,6 @@ end function c69514125.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c69529337.lua b/script/c69529337.lua new file mode 100644 index 00000000..15da54a5 --- /dev/null +++ b/script/c69529337.lua @@ -0,0 +1,91 @@ +--トラミッド・ダンサー +function c69529337.initial_effect(c) + --to deck + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(69529337,0)) + e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_TODECK) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetTarget(c69529337.tdtg) + e1:SetOperation(c69529337.tdop) + c:RegisterEffect(e1) + --field + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(69529337,1)) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1) + e2:SetCondition(c69529337.condition) + e2:SetTarget(c69529337.target) + e2:SetOperation(c69529337.operation) + c:RegisterEffect(e2) +end +function c69529337.tdfilter(c) + return c:IsSetCard(0xe2) and c:IsAbleToDeck() +end +function c69529337.atkfilter(c) + return c:IsFaceup() and c:IsRace(RACE_ROCK) +end +function c69529337.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c69529337.tdfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c69529337.tdfilter,tp,LOCATION_GRAVE,0,1,nil) + and Duel.IsExistingMatchingCard(c69529337.atkfilter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + local g=Duel.SelectTarget(tp,c69529337.tdfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) +end +function c69529337.tdop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then + local g=Duel.GetMatchingGroup(c69529337.atkfilter,tp,LOCATION_MZONE,0,nil) + local sc=g:GetFirst() + while sc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(500) + e1:SetReset(RESET_EVENT+0x1fe0000) + sc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + sc:RegisterEffect(e2) + sc=g:GetNext() + end + end +end +function c69529337.filter(c,tp,code) + return c:IsType(TYPE_FIELD) and c:IsSetCard(0xe2) and c:GetActivateEffect():IsActivatable(tp) and not c:IsCode(code) +end +function c69529337.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp +end +function c69529337.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + if chkc then return false end + if chk==0 then return tc and tc:IsFaceup() and tc:IsSetCard(0xe2) and tc:IsAbleToGrave() and tc:IsCanBeEffectTarget(e) + and Duel.IsExistingMatchingCard(c69529337.filter,tp,LOCATION_DECK,0,1,nil,tp,tc:GetCode()) end + Duel.SetTargetCard(tc) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,tc,1,0,0) +end +function c69529337.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) + local g=Duel.SelectMatchingCard(tp,c69529337.filter,tp,LOCATION_DECK,0,1,1,nil,tp,tc:GetCode()) + if g:GetCount()>0 then + local tc=g:GetFirst() + Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) + local te=tc:GetActivateEffect() + local tep=tc:GetControler() + local cost=te:GetCost() + if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end + Duel.RaiseEvent(tc,EVENT_CHAIN_SOLVED,te,0,tp,tp,Duel.GetCurrentChain()) + end + end +end diff --git a/script/c69529567.lua b/script/c69529567.lua index e7d1d638..b320b757 100644 --- a/script/c69529567.lua +++ b/script/c69529567.lua @@ -17,6 +17,7 @@ function c69529567.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e2:SetCode(EVENT_PHASE+PHASE_STANDBY) e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1) e2:SetCondition(c69529567.spcon) e2:SetTarget(c69529567.sptg) e2:SetOperation(c69529567.spop) @@ -29,7 +30,7 @@ function c69529567.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c69529567.desfilter,tp,0,LOCATION_MZONE,1,nil,e:GetHandler():GetAttack()) end function c69529567.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDestructable() end + if chk==0 then return e:GetHandler():IsLocation(LOCATION_ONFIELD) end Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) end function c69529567.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c69537999.lua b/script/c69537999.lua index d6daa4a3..e66c8d4a 100644 --- a/script/c69537999.lua +++ b/script/c69537999.lua @@ -1,53 +1,53 @@ ---ブレイズ・キャノン -function c69537999.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(69537999,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_SZONE) - e2:SetCost(c69537999.descost) - e2:SetTarget(c69537999.destg) - e2:SetOperation(c69537999.desop) - c:RegisterEffect(e2) -end -function c69537999.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_ATTACK)==0 end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) -end -function c69537999.disfilter(c) - return c:IsAttackBelow(500) and c:IsRace(RACE_PYRO) -end -function c69537999.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingMatchingCard(c69537999.disfilter,tp,LOCATION_HAND,0,1,nil) - and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND) -end -function c69537999.desop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c69537999.disfilter,tp,LOCATION_HAND,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end - end -end +--ブレイズ・キャノン +function c69537999.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(69537999,0)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_SZONE) + e2:SetCost(c69537999.descost) + e2:SetTarget(c69537999.destg) + e2:SetOperation(c69537999.desop) + c:RegisterEffect(e2) +end +function c69537999.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_ATTACK)==0 end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) + e1:SetTargetRange(1,0) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c69537999.disfilter(c) + return c:IsAttackBelow(500) and c:IsRace(RACE_PYRO) +end +function c69537999.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingMatchingCard(c69537999.disfilter,tp,LOCATION_HAND,0,1,nil) + and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND) +end +function c69537999.desop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c69537999.disfilter,tp,LOCATION_HAND,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoGrave(g,REASON_EFFECT) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end + end +end diff --git a/script/c69542930.lua b/script/c69542930.lua index a63e93b6..6fba102c 100644 --- a/script/c69542930.lua +++ b/script/c69542930.lua @@ -10,13 +10,14 @@ function c69542930.initial_effect(c) e1:SetOperation(c69542930.activate) c:RegisterEffect(e1) end +c69542930.card_code_list={46986414} function c69542930.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,46986414) end local g=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,46986414) Duel.Release(g,REASON_COST) end function c69542930.filter(c,e,tp) - return c:IsCode(40737112) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(40737112) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c69542930.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 @@ -27,7 +28,7 @@ function c69542930.activate(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c69542930.filter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c69584564.lua b/script/c69584564.lua index 390fd0b2..d885e8c2 100644 --- a/script/c69584564.lua +++ b/script/c69584564.lua @@ -11,7 +11,7 @@ function c69584564.initial_effect(c) c:RegisterEffect(e1) end function c69584564.filter(c) - return c:IsFaceup() and c:IsRace(RACE_PLANT) and c:IsDestructable() + return c:IsFaceup() and c:IsRace(RACE_PLANT) end function c69584564.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c69584564.filter(chkc) end diff --git a/script/c69599136.lua b/script/c69599136.lua new file mode 100644 index 00000000..98082c7b --- /dev/null +++ b/script/c69599136.lua @@ -0,0 +1,46 @@ +--底なし落とし穴 +function c69599136.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_POSITION) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c69599136.target) + e1:SetOperation(c69599136.activate) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + local e3=e1:Clone() + e3:SetCode(EVENT_FLIP_SUMMON_SUCCESS) + e3:SetTarget(c69599136.target2) + c:RegisterEffect(e3) +end +function c69599136.filter(c,tp) + return c:IsFaceup() and c:GetSummonPlayer()~=tp and c:IsCanTurnSet() +end +function c69599136.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return eg:IsExists(c69599136.filter,1,nil,tp) end + local g=eg:Filter(c69599136.filter,nil,tp) + Duel.SetTargetCard(g) +end +function c69599136.target2(e,tp,eg,ep,ev,re,r,rp,chk) + local tc=eg:GetFirst() + if chk==0 then return rp==1-tp and tc:IsFaceup() and tc:IsCanTurnSet() end + Duel.SetTargetCard(tc) +end +function c69599136.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE)~=0 then + local og=Duel.GetOperatedGroup() + local tc=og:GetFirst() + while tc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + tc=og:GetNext() + end + end +end diff --git a/script/c6967870.lua b/script/c6967870.lua index 11e265d9..a5d2ab1a 100644 --- a/script/c6967870.lua +++ b/script/c6967870.lua @@ -14,7 +14,7 @@ function c6967870.condition(e,tp,eg,ep,ev,re,r,rp) return ep~=tp end function c6967870.filter(c) - return c:IsType(TYPE_TRAP+TYPE_SPELL) and c:IsDestructable() + return c:IsType(TYPE_TRAP+TYPE_SPELL) end function c6967870.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c6967870.filter(chkc) end diff --git a/script/c69695704.lua b/script/c69695704.lua index 516543a6..b0851561 100644 --- a/script/c69695704.lua +++ b/script/c69695704.lua @@ -31,7 +31,7 @@ function c69695704.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c69695704.cfilter,tp,LOCATION_MZONE,0,3,nil) end function c69695704.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c69695704.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c69695704.filter(chkc) end diff --git a/script/c69711728.lua b/script/c69711728.lua new file mode 100644 index 00000000..58801197 --- /dev/null +++ b/script/c69711728.lua @@ -0,0 +1,80 @@ +--メタルフォーゼ・コンビネーション +function c69711728.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(69711728,0)) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(69711728,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_ACTIVATE) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e2:SetCost(c69711728.cost) + e2:SetTarget(c69711728.target) + e2:SetOperation(c69711728.activate) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetRange(LOCATION_SZONE) + c:RegisterEffect(e3) + --search + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(69711728,2)) + e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetProperty(EFFECT_FLAG_DELAY) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetCondition(c69711728.thcon) + e4:SetTarget(c69711728.thtg) + e4:SetOperation(c69711728.thop) + c:RegisterEffect(e4) +end +function c69711728.cfilter(c,e,tp) + return c:IsFaceup() and c:IsType(TYPE_FUSION) and bit.band(c:GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION + and Duel.IsExistingTarget(c69711728.filter,tp,LOCATION_GRAVE,0,1,nil,c:GetLevel(),e,tp) +end +function c69711728.filter(c,lv,e,tp) + return c:GetLevel()>0 and c:GetLevel()0 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c69711728.filter,tp,LOCATION_GRAVE,0,1,1,nil,eg:GetFirst():GetLevel(),e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c69711728.activate(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end +function c69711728.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) +end +function c69711728.thfilter(c) + return c:IsSetCard(0xe1) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c69711728.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c69711728.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c69711728.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c69711728.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c69723159.lua b/script/c69723159.lua index c7517b32..b418a088 100644 --- a/script/c69723159.lua +++ b/script/c69723159.lua @@ -25,7 +25,7 @@ function c69723159.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) end function c69723159.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c69723159.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c69723159.filter(chkc) end diff --git a/script/c69750546.lua b/script/c69750546.lua old mode 100755 new mode 100644 index 520f5ef7..2d890f75 --- a/script/c69750546.lua +++ b/script/c69750546.lua @@ -1,60 +1,60 @@ ---ヴォルカニック・バックショット -function c69750546.initial_effect(c) - --damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(69750546,0)) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetTarget(c69750546.target) - e1:SetOperation(c69750546.operation) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(69750546,1)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c69750546.descon) - e2:SetCost(c69750546.descost) - e2:SetTarget(c69750546.destg) - e2:SetOperation(c69750546.desop) - c:RegisterEffect(e2) -end -function c69750546.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(500) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) -end -function c69750546.operation(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c69750546.descon(e,tp,eg,ep,ev,re,r,rp) - return re and re:GetHandler():IsSetCard(0xb9) -end -function c69750546.costfilter(c) - return c:IsCode(69750546) and c:IsAbleToGraveAsCost() -end -function c69750546.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c69750546.costfilter,tp,LOCATION_DECK+LOCATION_HAND,0,2,nil) end - local g=Duel.GetMatchingGroup(c69750546.costfilter,tp,LOCATION_DECK+LOCATION_HAND,0,nil) - if g:GetCount()>2 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - g=g:Select(tp,2,2,nil) - end - Duel.SendtoGrave(g,REASON_COST) -end -function c69750546.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c69750546.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) -end +--ヴォルカニック・バックショット +function c69750546.initial_effect(c) + --damage + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(69750546,0)) + e1:SetCategory(CATEGORY_DAMAGE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e1:SetCode(EVENT_TO_GRAVE) + e1:SetTarget(c69750546.target) + e1:SetOperation(c69750546.operation) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(69750546,1)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCondition(c69750546.descon) + e2:SetCost(c69750546.descost) + e2:SetTarget(c69750546.destg) + e2:SetOperation(c69750546.desop) + c:RegisterEffect(e2) +end +function c69750546.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(500) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) +end +function c69750546.operation(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) +end +function c69750546.descon(e,tp,eg,ep,ev,re,r,rp) + return re and re:GetHandler():IsSetCard(0xb9) +end +function c69750546.costfilter(c) + return c:IsCode(69750546) and c:IsAbleToGraveAsCost() +end +function c69750546.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c69750546.costfilter,tp,LOCATION_DECK+LOCATION_HAND,0,2,nil) end + local g=Duel.GetMatchingGroup(c69750546.costfilter,tp,LOCATION_DECK+LOCATION_HAND,0,nil) + if g:GetCount()>2 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + g=g:Select(tp,2,2,nil) + end + Duel.SendtoGrave(g,REASON_COST) +end +function c69750546.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c69750546.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c69757518.lua b/script/c69757518.lua index 5e2c0255..383521f7 100644 --- a/script/c69757518.lua +++ b/script/c69757518.lua @@ -52,7 +52,7 @@ function c69757518.atop(e,tp,eg,ep,ev,re,r,rp) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE+PHASE_DAMAGE_CAL) c:RegisterEffect(e1) end function c69757518.cost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c69764158.lua b/script/c69764158.lua index 0fbf54cc..69b42ca0 100644 --- a/script/c69764158.lua +++ b/script/c69764158.lua @@ -1,37 +1,37 @@ ---ペロペロケルペロス -function c69764158.initial_effect(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(69764158,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_DAMAGE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetRange(LOCATION_GRAVE) - e1:SetCountLimit(1) - e1:SetCondition(c69764158.descon) - e1:SetCost(c69764158.descost) - e1:SetTarget(c69764158.destg) - e1:SetOperation(c69764158.desop) - c:RegisterEffect(e1) -end -function c69764158.descon(e,tp,eg,ep,ev,re,r,rp) - return ep==tp and (bit.band(r,REASON_BATTLE)~=0 or (bit.band(r,REASON_EFFECT)~=0 and rp~=tp)) -end -function c69764158.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c69764158.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c69764158.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--ペロペロケルペロス +function c69764158.initial_effect(c) + --destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(69764158,0)) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_DAMAGE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e1:SetRange(LOCATION_GRAVE) + e1:SetCountLimit(1) + e1:SetCondition(c69764158.descon) + e1:SetCost(c69764158.descost) + e1:SetTarget(c69764158.destg) + e1:SetOperation(c69764158.desop) + c:RegisterEffect(e1) +end +function c69764158.descon(e,tp,eg,ep,ev,re,r,rp) + return ep==tp and (bit.band(r,REASON_BATTLE)~=0 or (bit.band(r,REASON_EFFECT)~=0 and rp~=tp)) +end +function c69764158.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c69764158.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c69764158.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c69831560.lua b/script/c69831560.lua index 9a2c6cf7..78a0af3c 100644 --- a/script/c69831560.lua +++ b/script/c69831560.lua @@ -93,7 +93,7 @@ end function c69831560.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c69838592.lua b/script/c69838592.lua index b94e2694..a81e48b1 100644 --- a/script/c69838592.lua +++ b/script/c69838592.lua @@ -48,13 +48,16 @@ function c69838592.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c69838592.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c69838592.filter(c,tc) if not c:IsFaceup() then return false end - return tc:GetBaseAttack()~=c:GetAttack() or tc:GetBaseAttack()~=c:GetDefence() + return tc:GetBaseAttack()~=c:GetAttack() or tc:GetBaseAttack()~=c:GetDefense() end function c69838592.condition(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() @@ -72,7 +75,7 @@ function c69838592.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) c:RegisterEffect(e2) end end diff --git a/script/c69840739.lua b/script/c69840739.lua index d5097367..2de57201 100644 --- a/script/c69840739.lua +++ b/script/c69840739.lua @@ -48,7 +48,7 @@ function c69840739.chop(e,tp,eg,ep,ev,re,r,rp) Duel.ChangeChainOperation(ev,c69840739.repop) end function c69840739.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c69840739.repop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() @@ -71,17 +71,15 @@ function c69840739.drtg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,PLAYER_ALL,LOCATION_HAND) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,PLAYER_ALL,1) end -function c69840739.drfilter(c,tp) - return c:IsLocation(LOCATION_DECK) and c:GetPreviousControler()==tp -end function c69840739.drop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetFieldGroup(tp,LOCATION_HAND,LOCATION_HAND) if Duel.SendtoDeck(g,nil,0,REASON_EFFECT)~=0 then - Duel.ShuffleDeck(tp) - Duel.ShuffleDeck(1-tp) + local og=g:Filter(Card.IsLocation,nil,LOCATION_DECK) + if og:IsExists(Card.IsControler,1,nil,tp) then Duel.ShuffleDeck(tp) end + if og:IsExists(Card.IsControler,1,nil,1-tp) then Duel.ShuffleDeck(1-tp) end Duel.BreakEffect() - local ct1=g:FilterCount(c69840739.drfilter,nil,tp) - local ct2=g:FilterCount(c69840739.drfilter,nil,1-tp) + local ct1=og:FilterCount(aux.FilterEqualFunction(Card.GetPreviousControler,tp),nil) + local ct2=og:FilterCount(aux.FilterEqualFunction(Card.GetPreviousControler,1-tp),nil) Duel.Draw(tp,ct1,REASON_EFFECT) Duel.Draw(1-tp,ct2,REASON_EFFECT) end diff --git a/script/c69868555.lua b/script/c69868555.lua new file mode 100644 index 00000000..f1b1e823 --- /dev/null +++ b/script/c69868555.lua @@ -0,0 +1,126 @@ +--巨神竜の遺跡 +function c69868555.initial_effect(c) + --activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --disable + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(69868555,0)) + e2:SetCategory(CATEGORY_DISABLE) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetRange(LOCATION_SZONE) + e2:SetCondition(c69868555.discon) + e2:SetTarget(c69868555.distg) + e2:SetOperation(c69868555.disop) + c:RegisterEffect(e2) + --token + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(69868555,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetCountLimit(1) + e3:SetRange(LOCATION_SZONE) + e3:SetCost(c69868555.tkcost) + e3:SetTarget(c69868555.tktg) + e3:SetOperation(c69868555.tkop) + c:RegisterEffect(e3) + --to hand + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(69868555,2)) + e4:SetCategory(CATEGORY_TOHAND) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_GRAVE) + e4:SetCost(c69868555.thcost) + e4:SetTarget(c69868555.thtg) + e4:SetOperation(c69868555.thop) + c:RegisterEffect(e4) +end +function c69868555.cfilter(c) + return c:GetSummonLocation()~=LOCATION_GRAVE +end +function c69868555.dfilter(c,eg) + return c:IsFaceup() and c:IsRace(RACE_DRAGON) and (c:GetLevel()==7 or c:GetLevel()==8) and not eg:IsContains(c) +end +function c69868555.discon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c69868555.cfilter,1,nil) and Duel.IsExistingMatchingCard(c69868555.dfilter,tp,LOCATION_MZONE,0,1,nil,eg) +end +function c69868555.distg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local g=eg:Filter(c69868555.cfilter,nil) + Duel.SetTargetCard(g) + Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,g:GetCount(),0,0) +end +function c69868555.filter(c,e) + return c:IsFaceup() and c:IsType(TYPE_EFFECT) and not c:IsPreviousLocation(LOCATION_GRAVE) and c:IsRelateToEffect(e) +end +function c69868555.disop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local g=eg:Filter(c69868555.filter,nil,e) + local tc=g:GetFirst() + while tc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + if tc:IsType(TYPE_TRAPMONSTER) then + local e3=Effect.CreateEffect(e:GetHandler()) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_DISABLE_TRAPMONSTER) + e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e3) + end + tc=g:GetNext() + end +end +function c69868555.tkcostfilter(c) + return c:IsFaceup() and c:IsAbleToGraveAsCost() +end +function c69868555.tkcost(e,tp,eg,ep,ev,re,r,rp,chk) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local loc=LOCATION_ONFIELD + if ft==0 then loc=LOCATION_MZONE end + if chk==0 then return ft>-1 and Duel.IsExistingMatchingCard(c69868555.tkcostfilter,tp,loc,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c69868555.tkcostfilter,tp,loc,0,1,1,e:GetHandler()) + Duel.SendtoGrave(g,REASON_COST) +end +function c69868555.tktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanSpecialSummonMonster(tp,69868556,0,0x4011,0,0,1,RACE_DRAGON,ATTRIBUTE_LIGHT) end + Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) +end +function c69868555.tkop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not e:GetHandler():IsRelateToEffect(e) then return end + if not Duel.IsPlayerCanSpecialSummonMonster(tp,69868556,0,0x4011,0,0,1,RACE_DRAGON,ATTRIBUTE_LIGHT) then return end + local token=Duel.CreateToken(tp,69868556) + Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP) +end +function c69868555.thcostfilter(c) + return c:IsRace(RACE_DRAGON) and (c:GetLevel()==7 or c:GetLevel()==8) and c:IsAbleToGraveAsCost() + and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) +end +function c69868555.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c69868555.thcostfilter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c69868555.thcostfilter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,1,e:GetHandler()) + Duel.SendtoGrave(g,REASON_COST) +end +function c69868555.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToHand() end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) +end +function c69868555.thop(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():IsRelateToEffect(e) then + Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,e:GetHandler()) + end +end diff --git a/script/c698785.lua b/script/c698785.lua index 2f0e6126..70eac1f3 100644 --- a/script/c698785.lua +++ b/script/c698785.lua @@ -20,11 +20,11 @@ function c698785.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c698785.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c698785.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c69931927.lua b/script/c69931927.lua index 62f369fa..b8dbadb2 100644 --- a/script/c69931927.lua +++ b/script/c69931927.lua @@ -1,6 +1,6 @@ --地縛神 Chacu Challhua function c69931927.initial_effect(c) - c:SetUniqueOnField(1,1,10000000) + c:SetUniqueOnField(1,1,10000000,LOCATION_MZONE) -- local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) @@ -61,7 +61,7 @@ function c69931927.damcost(e,tp,eg,ep,ev,re,r,rp,chk) end function c69931927.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local dam=e:GetHandler():GetDefence()/2 + local dam=e:GetHandler():GetDefense()/2 Duel.SetTargetPlayer(1-tp) Duel.SetTargetParam(dam) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) @@ -71,5 +71,5 @@ function c69931927.damop(e,tp,eg,ep,ev,re,r,rp) Duel.Damage(p,d,REASON_EFFECT) end function c69931927.bpcon(e) - return e:GetHandler():IsPosition(POS_FACEUP_DEFENCE) + return e:GetHandler():IsPosition(POS_FACEUP_DEFENSE) end diff --git a/script/c69937550.lua b/script/c69937550.lua index bf8c18da..12a71482 100644 --- a/script/c69937550.lua +++ b/script/c69937550.lua @@ -14,8 +14,9 @@ function c69937550.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e2:SetCode(EVENT_BE_BATTLE_TARGET) e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c69937550.cbcondition) - e2:SetOperation(c69937550.cboperation) + e2:SetCondition(c69937550.cbcon) + e2:SetTarget(c69937550.cbtg) + e2:SetOperation(c69937550.cbop) c:RegisterEffect(e2) end function c69937550.repcon(e) @@ -31,13 +32,19 @@ function c69937550.repop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fc0000) e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) c:RegisterEffect(e1) - Duel.RaiseEvent(c,47408488,e,0,tp,0,0) + Duel.RaiseEvent(c,EVENT_CUSTOM+47408488,e,0,tp,0,0) end -function c69937550.cbcondition(e,tp,eg,ep,ev,re,r,rp) +function c69937550.cbcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local bt=eg:GetFirst() return r~=REASON_REPLACE and c~=bt and bt:IsFaceup() and bt:IsSetCard(0x1034) and bt:GetControler()==c:GetControler() end -function c69937550.cboperation(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeAttackTarget(e:GetHandler()) +function c69937550.cbtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetAttacker():GetAttackableTarget():IsContains(e:GetHandler()) end +end +function c69937550.cbop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and not Duel.GetAttacker():IsImmuneToEffect(e) then + Duel.ChangeAttackTarget(c) + end end diff --git a/script/c69937552.lua b/script/c69937552.lua deleted file mode 100644 index 64ea10a4..00000000 --- a/script/c69937552.lua +++ /dev/null @@ -1,67 +0,0 @@ ---Advanced Crystal Beast Amber Mammoth -function c69937552.initial_effect(c) - --Treated as "Crystal Beast Amber Mammoth" - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_ADD_CODE) - e1:SetValue(69937550) - c:RegisterEffect(e1) - --Protect - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(69937552,0)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BE_BATTLE_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c69937552.protectcon) - e2:SetOperation(c69937552.protectop) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(69937552,0)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CARD_TARGET) - e3:SetCode(EVENT_ATTACK_ANNOUNCE) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c69937552.protectcon2) - e3:SetOperation(c69937552.protectop) - c:RegisterEffect(e3) - --Turn into Crystal - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(69937552,1)) - e4:SetCode(EFFECT_SEND_REPLACE) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE) - e4:SetRange(LOCATION_MZONE) - e4:SetTarget(c69937552.crystaltg) - e4:SetOperation(c69937552.crystalop) - c:RegisterEffect(e4) -end -function c69937552.crystaltg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:GetDestination()==LOCATION_GRAVE and c:IsReason(REASON_DESTROY) end - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return false end - return Duel.SelectEffectYesNo(tp,c) -end -function c69937552.crystalop(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(c) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fc0000) - e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) - c:RegisterEffect(e1) - Duel.RaiseEvent(c,47408488,e,0,tp,0,0) -end -function c69937552.protectcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bt=eg:GetFirst() - return r~=REASON_REPLACE and c~=bt and bt:GetControler()==c:GetControler() -end -function c69937552.protectop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeAttackTarget(e:GetHandler()) -end -function c69937552.protectcon2(e,tp,eg,ep,ev,re,r,rp,chk) - return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil -end \ No newline at end of file diff --git a/script/c69954399.lua b/script/c69954399.lua index 14e64a4e..c33a11c2 100644 --- a/script/c69954399.lua +++ b/script/c69954399.lua @@ -47,7 +47,7 @@ function c69954399.initial_effect(c) e6:SetDescription(aux.Stringid(69954399,1)) e6:SetCategory(CATEGORY_TOHAND) e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e6:SetCode(69954400) + e6:SetCode(EVENT_CUSTOM+69954400) e6:SetTarget(c69954399.rettg) e6:SetOperation(c69954399.retop) c:RegisterEffect(e6) @@ -87,7 +87,7 @@ end function c69954399.desop(e,tp,eg,ep,ev,re,r,rp) local ec=e:GetHandler():GetEquipTarget() if ec and ec:IsRelateToEffect(e) and Duel.Destroy(ec,REASON_EFFECT)~=0 then - Duel.RaiseSingleEvent(e:GetHandler(),69954400,e,0,0,0,0) + Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+69954400,e,0,0,0,0) end end function c69954399.rettg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c700000000.lua b/script/c700000000.lua deleted file mode 100755 index 207dd909..00000000 --- a/script/c700000000.lua +++ /dev/null @@ -1,42 +0,0 @@ ---Scripted by Eerie Code ---Superheavy Samurai Magnet -function c700000000.initial_effect(c) - --summon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DELAY) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c700000000.sptg) - e1:SetOperation(c700000000.spop) - c:RegisterEffect(e1) - --atk limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,LOCATION_MZONE) - e2:SetValue(c700000000.atlimit) - c:RegisterEffect(e2) -end - -function c700000000.spfil(c,e,tp) - return c:IsSetCard(0x9a) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c700000000.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c700000000.spfil,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c700000000.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c700000000.spfil,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 - -function c700000000.atlimit(e,c) - return c~=e:GetHandler() -end diff --git a/script/c700000001.lua b/script/c700000001.lua deleted file mode 100755 index 312bcf18..00000000 --- a/script/c700000001.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Scripted by Eerie Code ---Blackwing - Harmattan the Sandstorm -function c700000001.initial_effect(c) - --Level - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c700000001.target) - e1:SetOperation(c700000001.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) -end - -function c700000001.filter(c) - return c:IsSetCard(0x33) and c:GetLevel()>0 -end -function c700000001.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c700000001.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c700000001.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) - Duel.SelectTarget(tp,c700000001.filter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) -end -function c700000001.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and c:IsFaceup() and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(tc:GetLevel()) - c:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c700000002.lua b/script/c700000002.lua deleted file mode 100755 index 5737f95d..00000000 --- a/script/c700000002.lua +++ /dev/null @@ -1,57 +0,0 @@ ---Scripted by Eerie Code ---Assault Blackwing - Kuniyoshi the Fogbow -function c700000002.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --Tuner - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCondition(c700000002.tncon) - e1:SetOperation(c700000002.tnop) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCost(c700000002.damcost) - e2:SetTarget(c700000002.damtg) - e2:SetOperation(c700000002.damop) - c:RegisterEffect(e2) -end - -function c700000002.tncon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO and e:GetHandler():GetMaterial():IsExists(Card.IsSetCard,1,nil,0x33) -end -function c700000002.tnop(e,rp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_ADD_TYPE) - e1:SetValue(TYPE_TUNER) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) -end - -function c700000002.cfilter(c) - return c:IsSetCard(0x33) and c:IsAbleToGraveAsCost() -end -function c700000002.damcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c700000002.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,c700000002.cfilter,1,1,REASON_COST) -end -function c700000002.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(300) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,300) -end -function c700000002.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c700000003.lua b/script/c700000003.lua deleted file mode 100755 index 734d3e10..00000000 --- a/script/c700000003.lua +++ /dev/null @@ -1,94 +0,0 @@ ---Scripted by Eerie Code ---Goyo Defender -function c700000003.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c700000003.spcon) - e1:SetOperation(c700000003.spop) - c:RegisterEffect(e1) - --Change ATK - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetCode(EVENT_PRE_DAMAGE_CALCULATE) - e2:SetHintTiming(TIMING_DAMAGE_STEP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e2:SetCondition(c700000003.atkcon) - e2:SetCost(c700000003.atkcost) - e2:SetOperation(c700000003.atkop) - c:RegisterEffect(e2) - --Destroy - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_LEAVE_FIELD) - e3:SetCondition(c700000003.descon) - e3:SetTarget(c700000003.destg) - e3:SetOperation(c700000003.desop) - c:RegisterEffect(e3) -end - -function c700000003.cfilter(c) - return c:IsFacedown() or not c:IsCode(700000003) -end -function c700000003.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0 - and not Duel.IsExistingMatchingCard(c700000003.cfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c700000003.spop(e,tp,eg,ep,ev,re,r,rp,c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH) - e1:SetReset(RESET_EVENT+0xfe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) -end - -function c700000003.atkcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget() and Duel.GetAttackTarget()==e:GetHandler() -end -function c700000003.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(700000003)==0 end - e:GetHandler():RegisterFlagEffect(700000003,RESET_PHASE+RESET_DAMAGE_CAL,0,1) -end -function c700000003.atkfil(c) - return c:IsFaceup() and c:IsCode(700000003) -end -function c700000003.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_DAMAGE_CAL) - e1:SetValue(c700000003.atkval) - c:RegisterEffect(e1) -end -function c700000003.atkval(e,c) - --return Duel.GetFieldGroupCount(c700000003.atkfil,LOCATION_MZONE,0)*1000 - return Duel.GetMatchingGroupCount(c700000003.atkfil,e:GetHandlerPlayer(),LOCATION_MZONE,LOCATION_MZONE,nil)*1000 -end - -function c700000003.descon(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetReason(),0x41)==0x41 -end -function c700000003.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c700000003.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) - Duel.Destroy(g,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c700000004.lua b/script/c700000004.lua deleted file mode 100755 index 870cdaf4..00000000 --- a/script/c700000004.lua +++ /dev/null @@ -1,123 +0,0 @@ ---Scripted by Eerie Code ---Goyo King -function c700000004.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(c700000004.synfil),1) - c:EnableReviveLimit() - --ATK Up - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetHintTiming(TIMING_BATTLE_PHASE) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c700000004.atkcon) - e1:SetCost(c700000004.atkcost) - e1:SetOperation(c700000004.atkop) - c:RegisterEffect(e1) - --Control post-battle - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_CONTROL) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_DESTROYING) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c700000004.ctrtg1) - e2:SetOperation(c700000004.ctrop1) - c:RegisterEffect(e2) - --Control with Tribute - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_CONTROL) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c700000004.ctrcon2) - e3:SetCost(c700000004.ctrcost2) - e3:SetTarget(c700000004.ctrtg2) - e3:SetOperation(c700000004.ctrop2) - c:RegisterEffect(e3) -end - -function c700000004.synfil(c) - return c:IsSetCard(0x512) or c:IsCode(7391448) or c:IsCode(63364266) or c:IsCode(98637386) or c:IsCode(6844) -end - -function c700000004.gcfilter(c,tp) - return c:IsFaceup() and c:IsControler(tp) -end -function c700000004.gccon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c700000004.gcfilter,1,nil,tp) -end - -function c700000004.atkcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bt=Duel.GetAttacker() - if bt and bt==c then return not c:IsStatus(STATUS_CHAINING) end - bt=Duel.GetAttackTarget() - return bt and bt==c and not c:IsStatus(STATUS_CHAINING) -end -function c700000004.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(700000004)==0 end - e:GetHandler():RegisterFlagEffect(700000004,RESET_PHASE+RESET_DAMAGE_CAL,0,1) -end -function c700000004.atkfil(c) - return c:IsFaceup() and (c:IsSetCard(0x512) or c:IsCode(7391448) or c:IsCode(63364266) or c:IsCode(98637386) or c:IsCode(6844)) -end -function c700000004.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(400*Duel.GetMatchingGroupCount(c700000004.atkfil,tp,LOCATION_MZONE,0,nil)) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - c:RegisterEffect(e1) -end - -function c700000004.ctrfil1(c) - return c:IsFaceup() and c:IsAbleToChangeControler() -end -function c700000004.ctrtg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c700000004.ctrfil1(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c700000004.ctrfil1,tp,0,LOCATION_MZONE,1,nil) end - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,c700000004.ctrfil1,tp,0,LOCATION_MZONE,1,ft,nil) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,g:GetCount(),0,0) -end -function c700000004.ctrop1(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - local tc=tg:GetFirst() - while tc do - Duel.GetControl(tc,tp) - tc=tg:GetNext() - end -end - -function c700000004.ctrcon2(e,tp,eg,ep,ev,re,r,rp) - --return e:GetHandler():GetFlagEffect(700000005)>0 - return Duel.GetActivityCount(1-tp,ACTIVITY_NORMALSUMMON)>0 or Duel.GetActivityCount(1-tp,ACTIVITY_SPSUMMON)>0 -end -function c700000004.ctrcost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c700000004.atkfil,1,nil) end - local g=Duel.SelectReleaseGroup(tp,c700000004.atkfil,1,1,nil) - Duel.Release(g,REASON_COST) -end -function c700000004.ctrfil2(c) - return c:IsFaceup() and c:IsAbleToChangeControler() and c:IsLevelBelow(8) -end -function c700000004.ctrtg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c700000004.ctrfil2(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c700000004.ctrfil2,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g=Duel.SelectTarget(tp,c700000004.ctrfil2,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,g:GetCount(),0,0) -end -function c700000004.ctrop2(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - Duel.GetControl(tc,tp) -end \ No newline at end of file diff --git a/script/c700000005.lua b/script/c700000005.lua deleted file mode 100755 index 8fc44276..00000000 --- a/script/c700000005.lua +++ /dev/null @@ -1,16 +0,0 @@ ---Scripted by Eerie Code ---Twilight Ninja - Shingetsu -function c700000005.initial_effect(c) - --cannot be battle target - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET) - e4:SetRange(LOCATION_MZONE) - e4:SetTargetRange(0,LOCATION_MZONE) - e4:SetValue(c700000005.bttg) - c:RegisterEffect(e4) -end - -function c700000005.bttg(e,c) - return c:IsFaceup() and c:IsSetCard(0x2b) and c~=e:GetHandler() -end \ No newline at end of file diff --git a/script/c700000006.lua b/script/c700000006.lua deleted file mode 100755 index 70672521..00000000 --- a/script/c700000006.lua +++ /dev/null @@ -1,69 +0,0 @@ ---Scripted by Eerie Code ---Twilight Ninja Shogun - Getsuga -function c700000006.initial_effect(c) - --summon with 1 tribute - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(68182934,10)) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SUMMON_PROC) - e2:SetCondition(c700000006.otcon) - e2:SetOperation(c700000006.otop) - e2:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_SET_PROC) - c:RegisterEffect(e3) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(94454495,1)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c700000006.spcon) - e1:SetTarget(c700000006.sptg) - e1:SetOperation(c700000006.spop) - c:RegisterEffect(e1) -end - -function c700000006.otfilter(c,tp) - return c:IsSetCard(0x2b) and (c:IsControler(tp) or c:IsFaceup()) -end -function c700000006.otcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local mg=Duel.GetMatchingGroup(c700000006.otfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp) - return c:GetLevel()>6 and Duel.GetTributeCount(c,mg)>0 -end -function c700000006.otop(e,tp,eg,ep,ev,re,r,rp,c) - local mg=Duel.GetMatchingGroup(c700000006.otfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp) - local sg=Duel.SelectTribute(tp,c,1,1,mg) - c:SetMaterial(sg) - Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL) -end - -function c700000006.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPosition(POS_FACEUP_ATTACK) -end -function c700000006.filter(c,e,tp) - return c:IsSetCard(0x2b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c700000006.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c700000006.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsExistingTarget(c700000006.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c700000006.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) -end -function c700000006.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - if Duel.ChangePosition(c,POS_FACEUP_DEFENCE) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end - end -end diff --git a/script/c700000007.lua b/script/c700000007.lua deleted file mode 100755 index 11be3f70..00000000 --- a/script/c700000007.lua +++ /dev/null @@ -1,57 +0,0 @@ ---Scripted by Eerie Code ---Illusion Ninjitsu Art of Hazy Shuriken -function c700000007.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c700000007.actcon) - c:RegisterEffect(e1) - --Damage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_TO_HAND) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetRange(LOCATION_SZONE) - --e2:SetCondition(c700000007.damcon) - e2:SetCost(c700000007.damcost) - e2:SetOperation(c700000007.damop) - c:RegisterEffect(e2) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e4:SetRange(LOCATION_SZONE) - e4:SetCode(EFFECT_SELF_DESTROY) - e4:SetCondition(c700000007.descon) - c:RegisterEffect(e4) -end - -function c700000007.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x2b) -end -function c700000007.actcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c700000007.cfilter,tp,LOCATION_MZONE,0,1,nil) -end - -function c700000007.damfil(c,tp) - return c:IsControler(tp) and c:IsDiscardable() -end -function c700000007.damcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c700000007.damfil,1,e:GetHandler(),e:GetHandlerPlayer()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) - --local dc=eg:Filter(Card.IsDiscardable,nil):Select(tp,1,1,nil) - local dc=eg:Filter(c700000007.damfil,nil,e:GetHandlerPlayer()):Select(tp,1,1,nil) - Duel.SendtoGrave(dc,REASON_COST+REASON_DISCARD) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,300) -end -function c700000007.damop(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(1-tp,300,REASON_EFFECT) -end - -function c700000007.desfilter(c,tp) - return c:IsFaceup() and c:IsSetCard(0x2b) -end -function c700000007.descon(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c700000007.desfilter,tp,LOCATION_MZONE,0,1,nil) -end \ No newline at end of file diff --git a/script/c700000008.lua b/script/c700000008.lua deleted file mode 100755 index 89cf5a2d..00000000 --- a/script/c700000008.lua +++ /dev/null @@ -1,19 +0,0 @@ ---Scripted by Eerie Code ---Solo the Melodious Diva -function c700000008.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c700000008.spcon) - c:RegisterEffect(e1) -end - -function c700000008.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)>0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end \ No newline at end of file diff --git a/script/c700000009.lua b/script/c700000009.lua deleted file mode 100755 index 332d6a9d..00000000 --- a/script/c700000009.lua +++ /dev/null @@ -1,67 +0,0 @@ ---Scripted by Eerie Code ---Performapal Odd-Eyes Light Phoenix -function c700000009.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Special Summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(700000009,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_PZONE) - e2:SetCondition(c700000009.spcon) - e2:SetCost(c700000009.spcost) - e2:SetTarget(c700000009.sptg) - e2:SetOperation(c700000009.spop) - c:RegisterEffect(e2) - --destroy replace - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(700000009,1)) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetCode(EFFECT_DESTROY_REPLACE) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c700000009.reptg) - c:RegisterEffect(e3) -end - -function c700000009.spcon(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttacker() - return at:GetControler()~=tp and Duel.GetAttackTarget()==nil -end -function c700000009.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - local seq=e:GetHandler():GetSequence() - local sc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) - if chk==0 then return sc and sc:IsDestructable() end - Duel.Destroy(sc,REASON_EFFECT+REASON_COST) -end -function c700000009.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) -end -function c700000009.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end - -function c700000009.repfil(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() -end -function c700000009.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReason(REASON_BATTLE) and Duel.IsExistingMatchingCard(c700000009.repfil,tp,LOCATION_SZONE,0,1,nil) end - if Duel.SelectYesNo(tp,aux.Stringid(700000009,2)) then - local g=Duel.SelectMatchingCard(tp,c700000009.repfil,tp,LOCATION_SZONE,0,1,1,nil) - Duel.Destroy(g,REASON_EFFECT+REASON_REPLACE) - return true - else return false end -end \ No newline at end of file diff --git a/script/c700000010.lua b/script/c700000010.lua deleted file mode 100755 index b728c515..00000000 --- a/script/c700000010.lua +++ /dev/null @@ -1,68 +0,0 @@ ---Scripted by Eerie Code ---Performapal Odd-Eyes Unicorn -function c700000010.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Increase ATK - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(700000010,0)) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetCondition(c700000010.atkcon) - e2:SetTarget(c700000010.atktg) - e2:SetOperation(c700000010.atkop) - c:RegisterEffect(e2) - --atk - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetValue(c700000010.atkval) - c:RegisterEffect(e3) -end - -function c700000010.atkcon(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttacker() - return at:IsControler(tp) and at:IsSetCard(0x99) -end -function c700000010.atkfil(c) - return c:IsFaceup() and c:IsSetCard(0x9f) and c:GetAttack()>0 -end -function c700000010.atktg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetAttacker():IsCanBeEffectTarget(e) and Duel.IsExistingMatchingCard(c700000010.atkfil,tp,LOCATION_MZONE,0,1,nil) end - Duel.SetTargetCard(Group.FromCards(Duel.GetAttacker())) - Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,Duel.GetAttacker(),1,0,0) -end -function c700000010.atkop(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetFirstTarget() - local g=Duel.SelectMatchingCard(tp,c700000010.atkfil,tp,LOCATION_MZONE,0,1,1,nil) - if g:GetCount()>0 then - local tg=g:GetFirst() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(tg:GetAttack()) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - at:RegisterEffect(e1) - end -end - -function c700000010.atkfilter(c) - return c:IsFaceup() and (c:IsSetCard(0x99) or c:IsSetCard(0x9f)) -end -function c700000010.atkval(e,c) - if c700000010.atkfilter(c) then - return Duel.GetMatchingGroupCount(c700000010.atkfilter,c:GetControler(),LOCATION_MZONE,0,nil)*100 - else return 0 end -end \ No newline at end of file diff --git a/script/c700000011.lua b/script/c700000011.lua deleted file mode 100755 index 43897b40..00000000 --- a/script/c700000011.lua +++ /dev/null @@ -1,44 +0,0 @@ ---Scripted by Eerie Code ---Performapal Bot-Eyes Lizard -function c700000011.initial_effect(c) - --Change name - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c700000011.condition) - e1:SetOperation(c700000011.operation) - c:RegisterEffect(e1) - if not c700000011.global_check then - c700000011.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_SUMMON_SUCCESS) - ge1:SetLabel(700000011) - ge1:SetOperation(aux.sumreg) - Duel.RegisterEffect(ge1,0) - local ge2=ge1:Clone() - ge2:SetCode(EVENT_SPSUMMON_SUCCESS) - ge2:SetLabel(700000011) - Duel.RegisterEffect(ge2,0) - end -end - -function c700000011.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(700000011)>0 -end -function c700000011.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFacedown() or not c:IsRelateToEffect(e) then return end - local choice=Duel.SelectOption(tp,aux.Stringid(6843,8),aux.Stringid(6843,9)) - local code=53025096 - if choice>0 then code=16178681 end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_CODE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(code) - c:RegisterEffect(e1) -end diff --git a/script/c700000012.lua b/script/c700000012.lua deleted file mode 100755 index 33d7143d..00000000 --- a/script/c700000012.lua +++ /dev/null @@ -1,76 +0,0 @@ ---Scripted by Eerie Code ---Abyss Actor - Devil Heel -function c700000012.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Reduce ATK (P) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetCost(c700000012.atkcost) - e2:SetTarget(c700000012.atktg) - e2:SetOperation(c700000012.atkop) - c:RegisterEffect(e2) - --Reduce ATK (M) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetTarget(c700000012.atktg) - e3:SetOperation(c700000012.atkop2) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e4) -end - -function c700000012.cfilter(c) - return c:IsType(TYPE_PENDULUM) and c:IsSetCard(0x1511)-- and c:IsAbleToExtraAsCost() -end -function c700000012.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c700000012.cfilter,tp,LOCATION_MZONE,0,1,nil) end - local g=Duel.SelectMatchingCard(tp,c700000012.cfilter,tp,LOCATION_MZONE,0,1,1,nil) - e:SetLabel(g:GetFirst():GetAttack()) - Duel.SendToExtra(g,POS_FACEUP,REASON_EFFECT+REASON_COST) -end -function c700000012.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) -end -function c700000012.atkop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(e:GetLabel()*-1) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end - -function c700000012.atkfil(c) - return c:IsFaceup() and c:IsSetCard(0x1511) -end -function c700000012.atkop2(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local gc=Duel.GetMatchingGroupCount(c700000012.atkfil,tp,LOCATION_MZONE,0,nil) - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(gc*-1000) - e1:SetReset(RESET_EVENT+0x1ff0000) - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c700000013.lua b/script/c700000013.lua deleted file mode 100755 index 4bc3f7c8..00000000 --- a/script/c700000013.lua +++ /dev/null @@ -1,101 +0,0 @@ ---Scripted by Eerie Code ---Abyss Actor - Big Star -function c700000013.initial_effect(c) - --Pendulum Summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Recover - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetCost(c700000013.rvcost) - e2:SetTarget(c700000013.rvtg) - e2:SetOperation(c700000013.rvop) - c:RegisterEffect(e2) - --Search - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetTarget(c700000013.thtg) - e3:SetOperation(c700000013.thop) - c:RegisterEffect(e3) -end - -function c700000013.cfilter(c) - return c:IsType(TYPE_PENDULUM) and c:IsSetCard(0x1511)-- and c:IsAbleToExtraAsCost() -end -function c700000013.rvcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c700000012.cfilter,tp,LOCATION_MZONE,0,1,nil) end - local g=Duel.SelectMatchingCard(tp,c700000012.cfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SendToExtra(g,POS_FACEUP,REASON_EFFECT+REASON_COST) -end -function c700000013.thfil(c) - return c:IsType(TYPE_SPELL) and c:IsSetCard(0x2511) and c:IsAbleToHand() -end -function c700000013.rvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c700000013.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c700000013.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c700000013.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c700000013.rvop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end - -function c700000013.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c700000013.thfil,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c700000013.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c700000013.thfil,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - local fid=e:GetHandler():GetFieldID() - local tc=g:GetFirst() - tc:RegisterFlagEffect(700000013,RESET_EVENT+0x1fe0000,0,1,fid) - g:KeepAlive() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e1:SetCountLimit(1) - e1:SetLabel(fid) - e1:SetLabelObject(g) - e1:SetCondition(c700000013.descon) - e1:SetOperation(c700000013.desop) - Duel.RegisterEffect(e1,tp) - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end - -function c700000013.desfilter(c,fid) - return c:GetFlagEffectLabel(700000013)==fid -end -function c700000013.descon(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject() - if not g:IsExists(c700000013.desfilter,1,nil,e:GetLabel()) then - g:DeleteGroup() - e:Reset() - return false - else return true end -end -function c700000013.desop(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabelObject() - local tg=g:Filter(c700000013.desfilter,nil,e:GetLabel()) - Duel.SendtoGrave(tg,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c700000014.lua b/script/c700000014.lua deleted file mode 100755 index 951f2dd7..00000000 --- a/script/c700000014.lua +++ /dev/null @@ -1,73 +0,0 @@ ---Scripted by Eerie Code ---Abyss Actor - Funky Comedian -function c700000014.initial_effect(c) - --Pendulum Summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Increase ATK (P) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetCost(c700000014.atkcost) - e2:SetTarget(c700000014.atktg) - e2:SetOperation(c700000014.atkop) - c:RegisterEffect(e2) - --Reduce ATK (M) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetOperation(c700000014.atkop2) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e4) -end - -function c700000014.cfilter(c) - return c:IsType(TYPE_PENDULUM) and c:IsSetCard(0x1511)-- and c:IsAbleToExtraAsCost() -end -function c700000014.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c700000014.cfilter,tp,LOCATION_MZONE,0,1,nil) end - local g=Duel.SelectMatchingCard(tp,c700000014.cfilter,tp,LOCATION_MZONE,0,1,1,nil) - e:SetLabel(g:GetFirst():GetAttack()) - Duel.SendToExtra(g,POS_FACEUP,REASON_EFFECT+REASON_COST) -end -function c700000014.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) -end -function c700000014.atkop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(e:GetLabel()) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end - -function c700000014.atkfil(c) - return c:IsFaceup() and c:IsSetCard(0x1511) -end -function c700000014.atkop2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local gc=Duel.GetMatchingGroupCount(c700000014.atkfil,tp,LOCATION_MZONE,0,nil) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(gc*300) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) -end \ No newline at end of file diff --git a/script/c700000015.lua b/script/c700000015.lua deleted file mode 100755 index d6f43de7..00000000 --- a/script/c700000015.lua +++ /dev/null @@ -1,55 +0,0 @@ ---Scripted by Eerie Code ---Abyss Actor - Extra -function c700000015.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Special Summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_PZONE) - e2:SetCondition(c700000015.spcon) - e2:SetTarget(c700000015.sptg) - e2:SetOperation(c700000015.spop) - c:RegisterEffect(e2) - --Set in P.Zone - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c700000015.pztg) - e3:SetOperation(c700000015.pzop) - c:RegisterEffect(e3) -end - -function c700000015.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 and e:GetHandler():GetFlagEffect(700000015)==0 -end -function c700000015.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) -end -function c700000015.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end - -function c700000015.pzfilter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) -end -function c700000015.pztg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetMatchingGroupCount(c700000015.pzfilter,tp,LOCATION_SZONE,0,nil)<2 end -end -function c700000015.pzop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - c:RegisterFlagEffect(700000015,RESET_EVENT+0xfc0000+RESET_PHASE+PHASE_END,0,1) - end -end \ No newline at end of file diff --git a/script/c700000016.lua b/script/c700000016.lua deleted file mode 100755 index ba18f0fc..00000000 --- a/script/c700000016.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Scripted by Eerie Code ---Abyss Actor - Sassy Rookie -function c700000016.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_DESTROYED) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c700000016.descon) - e2:SetTarget(c700000016.destg) - e2:SetOperation(c700000016.desop) - c:RegisterEffect(e2) - --indes - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_INDESTRUCTABLE_COUNT) - e3:SetCountLimit(1) - e3:SetValue(1) - c:RegisterEffect(e3) -end - -function c700000016.descon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) -end -function c700000016.filter(c) - return c:IsFaceup() and c:IsLevelBelow(4) and c:IsDestructable() -end -function c700000016.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c700000016.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c700000016.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c700000016.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c700000016.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and c700000016.filter(tc) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c700000017.lua b/script/c700000017.lua deleted file mode 100755 index f5602901..00000000 --- a/script/c700000017.lua +++ /dev/null @@ -1,128 +0,0 @@ ---Scripted by Eerie Code ---Abyss Actor - Pretty Heroine -function c700000017.initial_effect(c) - --pendulum summon - aux.AddPendulumProcedure(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Reduce ATK (P) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_PZONE) - e2:SetCountLimit(1) - e2:SetHintTiming(0,TIMING_BATTLE_END) - e2:SetCondition(c700000017.pacon) - e2:SetTarget(c700000017.patg) - e2:SetOperation(c700000017.paop) - c:RegisterEffect(e2) - --Reduce ATK (M) - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetHintTiming(TIMING_BATTLE_END,TIMING_BATTLE_END) - e3:SetLabel(0) - e3:SetCondition(c700000017.macon) - e3:SetTarget(c700000017.matg) - e3:SetOperation(c700000017.maop) - c:RegisterEffect(e3) - --Set labels - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_BATTLE_DESTROYING) - ge1:SetRange(LOCATION_PZONE) - ge1:SetOperation(c700000017.checkop) - c:RegisterEffect(ge1) - local ge2=Effect.CreateEffect(c) - ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge2:SetCode(EVENT_TURN_END) - ge2:SetRange(LOCATION_MZONE) - ge2:SetLabelObject(e3) - ge2:SetOperation(c700000017.resetop) - c:RegisterEffect(ge2) - local ge3=Effect.CreateEffect(c) - ge3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge3:SetCode(EVENT_PRE_BATTLE_DAMAGE) - ge3:SetRange(LOCATION_MZONE) - ge3:SetLabelObject(e3) - ge3:SetOperation(c700000017.damageop) - c:RegisterEffect(ge3) -end - -function c700000017.pacon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==1-tp and Duel.GetCurrentPhase()==PHASE_BATTLE -end -function c700000017.pafil(c) - return c:IsFaceup() and c:GetFlagEffect(700000017)>0 and c:GetAttack()>0 -end -function c700000017.patg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c700000017.pafil(chkc) end - if chk==0 then return Duel.IsExistingTarget(c700000017.pafil,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c700000017.pafil,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g:GetFirst(),1,0,0) -end -function c700000017.paop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-tc:GetFlagEffectLabel(700000017)) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end - -function c700000017.macon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE and e:GetLabel()>0 -end -function c700000017.mafil(c) - return c:IsFaceup() and c:GetAttack()>0 -end -function c700000017.matg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c700000017.mafil(chkc) end - if chk==0 then return Duel.IsExistingTarget(c700000017.mafil,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c700000017.mafil,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g:GetFirst(),1,0,0) -end -function c700000017.maop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(tc:GetBaseAttack()-e:GetLabel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end - -function c700000017.checkop(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - local bc=tc:GetBattleTarget() - if tc:IsFaceup() and bc:IsSetCard(0x1511) and bc:GetPreviousControler()==tp then - tc:RegisterFlagEffect(700000017,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1,Duel.GetBattleDamage(tp),0) - end -end -function c700000017.resetop(e,tp,eg,ep,ev,re,r,rp) - e:GetLabelObject():SetLabel(0) -end -function c700000017.damageop(e,tp,eg,ep,ev,re,r,rp) - local ph=Duel.GetCurrentPhase() - if ep~=tp or ph<0x08 or ph>0x20 then return end - local sum=e:GetLabelObject():GetLabel()+ev - e:GetLabelObject():SetLabel(sum) -end \ No newline at end of file diff --git a/script/c700000018.lua b/script/c700000018.lua deleted file mode 100755 index 7f07a7f3..00000000 --- a/script/c700000018.lua +++ /dev/null @@ -1,51 +0,0 @@ ---Scripted by Eerie Code ---Abyss Script - Fantasy Magic -function c700000018.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c700000018.target) - e1:SetOperation(c700000018.operation) - c:RegisterEffect(e1) -end - -function c700000018.filter(c) - return c:IsFaceup() and c:IsSetCard(0x1511) -end -function c700000018.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c700000018.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c700000018.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c700000018.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c700000018.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(2356994,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetProperty(EFFECT_FLAG_CLIENT_HINT) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_BATTLED) - e1:SetTarget(c700000018.target2) - e1:SetOperation(c700000018.operation2) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end -function c700000018.target2(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tc=c:GetBattleTarget() - if chk==0 then return tc and tc:IsAbleToHand() end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,tc,1,0,0) -end -function c700000018.operation2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - if bc and bc:IsRelateToBattle() then - Duel.SendtoHand(bc,nil,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c700000019.lua b/script/c700000019.lua deleted file mode 100755 index 5b777121..00000000 --- a/script/c700000019.lua +++ /dev/null @@ -1,28 +0,0 @@ ---Scripted by Eerie Code ---Abyss Script - Opening Ceremony -function c700000019.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_RECOVER) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c700000019.target) - e1:SetOperation(c700000019.activate) - c:RegisterEffect(e1) -end - -function c700000019.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c700000019.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.SetTargetPlayer(tp) - local rec=Duel.GetMatchingGroupCount(c700000019.filter,tp,LOCATION_MZONE,0,nil)*500 - Duel.SetTargetParam(rec) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,rec) -end -function c700000019.filter(c) - return c:IsFaceup() and c:IsSetCard(0x1511) and c:IsPosition(POS_FACEUP_ATTACK) -end -function c700000019.activate(e,tp,eg,ep,ev,re,r,rp) - local rec=Duel.GetMatchingGroupCount(c700000019.filter,tp,LOCATION_MZONE,0,nil)*500 - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - Duel.Recover(p,rec,REASON_EFFECT) -end diff --git a/script/c700000020.lua b/script/c700000020.lua deleted file mode 100755 index ac1cc727..00000000 --- a/script/c700000020.lua +++ /dev/null @@ -1,55 +0,0 @@ ---Scripted by Eerie Code ---Abyss Prop - Escape Stage Coach -function c700000020.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Indes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_SZONE) - e2:SetCountLimit(1) - e2:SetCondition(c700000020.condition) - e2:SetTarget(c700000020.target) - e2:SetOperation(c700000020.operation) - c:RegisterEffect(e2) -end - -function c700000020.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE -end -function c700000020.filter(c) - return c:IsFaceup() and c:IsSetCard(0x1511) -end -function c700000020.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c700000020.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c700000020.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.SelectTarget(tp,c700000020.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c700000020.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetRange(LOCATION_MZONE) - e5:SetCode(EFFECT_IMMUNE_EFFECT) - e5:SetValue(c700000020.efilter) - e5:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e5) - end -end -function c700000020.efilter(e,te) - return te:GetOwnerPlayer()~=e:GetHandlerPlayer() -end \ No newline at end of file diff --git a/script/c700000021.lua b/script/c700000021.lua deleted file mode 100755 index 972d5e36..00000000 --- a/script/c700000021.lua +++ /dev/null @@ -1,40 +0,0 @@ ---Scripted by Eerie Code ---Fortissimo -function c700000021.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --Increase ATK - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c700000021.target) - e2:SetOperation(c700000021.activate) - c:RegisterEffect(e2) -end - -function c700000021.filter(c) - return c:IsFaceup() and c:IsSetCard(0x9b) -end -function c700000021.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c700000021.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c700000021.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c700000021.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c700000021.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_STANDBY+RESET_SELF_TURN) - e1:SetValue(600) - tc:RegisterEffect(e1) - end -end diff --git a/script/c700000022.lua b/script/c700000022.lua deleted file mode 100755 index 3c4e4cbb..00000000 --- a/script/c700000022.lua +++ /dev/null @@ -1,79 +0,0 @@ ---Scripted by Eerie Code ---Chasing Wings -function c700000022.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c700000022.condition) - e1:SetTarget(c700000022.target) - e1:SetOperation(c700000022.activate) - c:RegisterEffect(e1) -end - -function c700000022.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c700000022.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) -end -function c700000022.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - c:SetCardTarget(tc) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_SZONE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetTarget(c700000022.indtg) - e1:SetValue(1) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetReset(RESET_EVENT+0x1fe0000) - e2:SetCondition(c700000022.descon) - e2:SetTarget(c700000022.destg) - e2:SetOperation(c700000022.desop) - c:RegisterEffect(e2) - end -end - -function c700000022.indtg(e,c) - return e:GetHandler():GetFirstCardTarget()==c -end - -function c700000022.descon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler():GetFirstCardTarget() - local ak=Duel.GetAttacker() - return Duel.GetAttackTarget()==c and ak:IsLevelAbove(5) -end -function c700000022.destg(e,tp,eg,ep,ev,re,r,rp,chk) - local ak=Duel.GetAttacker() - if chk==0 then return ak:IsOnField() and ak:IsDestructable() end - Duel.SetTargetCard(ak) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,ak,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,nil,0,0,ak:GetAttack()) -end -function c700000022.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=c:GetFirstCardTarget() - local ak=Duel.GetAttacker() - if c:IsRelateToEffect(e) and ak:IsRelateToEffect(e) and tc:IsFaceup() and Duel.Destroy(ak,REASON_EFFECT)>0 then - local atk=ak:GetAttack() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(atk) - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c70050374.lua b/script/c70050374.lua index 8edb3488..537a6c12 100644 --- a/script/c70050374.lua +++ b/script/c70050374.lua @@ -18,10 +18,10 @@ function c70050374.initial_effect(c) c:RegisterEffect(e3) end function c70050374.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,2) end function c70050374.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c70074904.lua b/script/c70074904.lua index fa3e5b3d..efdf4070 100644 --- a/script/c70074904.lua +++ b/script/c70074904.lua @@ -12,7 +12,8 @@ function c70074904.initial_effect(c) c:RegisterEffect(e1) end function c70074904.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) + local c=e:GetHandler() + return c:IsStatus(STATUS_BATTLE_DESTROYED) and c:IsStatus(STATUS_OPPO_BATTLE) end function c70074904.target(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() diff --git a/script/c70095155.lua b/script/c70095155.lua deleted file mode 100644 index bf99e157..00000000 --- a/script/c70095155.lua +++ /dev/null @@ -1,17 +0,0 @@ ---サイバー·ドラゴン -function c70095155.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c70095155.spcon) - c:RegisterEffect(e1) -end -function c70095155.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)>0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end diff --git a/script/c70124586.lua b/script/c70124586.lua new file mode 100644 index 00000000..b4b118ed --- /dev/null +++ b/script/c70124586.lua @@ -0,0 +1,59 @@ +--ホールディング・レッグス +function c70124586.initial_effect(c) + --to hand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(70124586,0)) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c70124586.thtg) + e1:SetOperation(c70124586.thop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) + c:RegisterEffect(e2) + local e3=e1:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) + --cannnot activate + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(70124586,1)) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_GRAVE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetCost(c70124586.cost) + e4:SetTarget(c70124586.target) + e4:SetOperation(c70124586.operation) + c:RegisterEffect(e4) +end +function c70124586.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chk==0 then return true end + local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_SZONE,LOCATION_SZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) +end +function c70124586.thop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_SZONE,LOCATION_SZONE,nil) + Duel.SendtoHand(g,nil,REASON_EFFECT) +end +function c70124586.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c70124586.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_SZONE) and chkc:IsFacedown() end + if chk==0 then return Duel.IsExistingTarget(Card.IsFacedown,tp,0,LOCATION_SZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWN) + Duel.SelectTarget(tp,Card.IsFacedown,tp,0,LOCATION_SZONE,1,1,nil) +end +function c70124586.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsFacedown() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_TRIGGER) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_SELF_TURN) + e1:SetValue(1) + tc:RegisterEffect(e1) + end +end diff --git a/script/c70138455.lua b/script/c70138455.lua index 4279709d..8ec67576 100644 --- a/script/c70138455.lua +++ b/script/c70138455.lua @@ -21,7 +21,7 @@ function c70138455.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c70138455.filter(c) - return c:IsFaceup() and c:IsDestructable() and c:IsAttackBelow(1000) + return c:IsFaceup() and c:IsAttackBelow(1000) end function c70138455.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c70138455.filter(chkc) end @@ -31,7 +31,7 @@ function c70138455.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) end function c70138455.desfilter(c,e) - return c:IsRelateToEffect(e) and c:IsFaceup() and c:IsDestructable() and c:IsAttackBelow(1000) + return c:IsRelateToEffect(e) and c:IsFaceup() and c:IsAttackBelow(1000) end function c70138455.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) diff --git a/script/c70245411.lua b/script/c70245411.lua old mode 100755 new mode 100644 diff --git a/script/c7025445.lua b/script/c7025445.lua old mode 100755 new mode 100644 diff --git a/script/c70271583.lua b/script/c70271583.lua index 2cc89c52..bea8407e 100644 --- a/script/c70271583.lua +++ b/script/c70271583.lua @@ -5,14 +5,6 @@ function c70271583.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_MUST_ATTACK) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c70271583.becon) - c:RegisterEffect(e2) --pos change local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(70271583,0)) @@ -39,13 +31,10 @@ function c70271583.initial_effect(c) e5:SetValue(1) c:RegisterEffect(e5) end -function c70271583.becon(e) - return e:GetHandler():IsAttackable() -end function c70271583.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end function c70271583.atkcon(e,tp,eg,ep,ev,re,r,rp) @@ -67,7 +56,7 @@ function c70271583.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(800) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) tc=g:GetNext() end diff --git a/script/c70284332.lua b/script/c70284332.lua old mode 100755 new mode 100644 diff --git a/script/c70355994.lua b/script/c70355994.lua index 62d14e01..7b198e0e 100644 --- a/script/c70355994.lua +++ b/script/c70355994.lua @@ -54,7 +54,7 @@ function c70355994.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c70355994.filter2(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c70355994.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c70355994.filter2(chkc) end diff --git a/script/c70406920.lua b/script/c70406920.lua index 2b5bf892..d18e1958 100644 --- a/script/c70406920.lua +++ b/script/c70406920.lua @@ -43,9 +43,9 @@ function c70406920.activate(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,70406920,0,0x21,1000,1000,4,RACE_MACHINE,ATTRIBUTE_EARTH) then return end - c:AddTrapMonsterAttribute(TYPE_EFFECT,ATTRIBUTE_EARTH,RACE_MACHINE,4,1000,1000) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - c:TrapMonsterBlock() + c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() --atkup local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(70406920,0)) @@ -56,7 +56,8 @@ function c70406920.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetCost(c70406920.atkcost) e1:SetOperation(c70406920.atkop) e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) + c:RegisterEffect(e1,true) + Duel.SpecialSummonComplete() end function c70406920.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsRace,1,e:GetHandler(),RACE_MACHINE) end diff --git a/script/c70422863.lua b/script/c70422863.lua index a0ff28d8..e3b3009f 100644 --- a/script/c70422863.lua +++ b/script/c70422863.lua @@ -15,7 +15,7 @@ function c70422863.initial_effect(c) e2:SetValue(c70422863.atkval) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --negate local e4=Effect.CreateEffect(c) diff --git a/script/c70423794.lua b/script/c70423794.lua index e3d4176e..b7598250 100644 --- a/script/c70423794.lua +++ b/script/c70423794.lua @@ -54,7 +54,7 @@ function c70423794.descon(e,tp,eg,ep,ev,re,r,rp) return tg and eg:IsContains(tg) end function c70423794.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c70423794.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c70423794.desfilter(chkc) end diff --git a/script/c7044562.lua b/script/c7044562.lua new file mode 100644 index 00000000..c962eab1 --- /dev/null +++ b/script/c7044562.lua @@ -0,0 +1,32 @@ +--魂のカード +function c7044562.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,7044562+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c7044562.target) + e1:SetOperation(c7044562.activate) + c:RegisterEffect(e1) +end +function c7044562.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end +end +function c7044562.filter(c,lp) + return c:GetAttack()>=0 and c:GetDefense()>=0 and c:GetAttack()+c:GetDefense()==lp and c:IsAbleToHand() +end +function c7044562.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetFieldGroup(tp,LOCATION_DECK,0) + if g:GetCount()<1 then return end + Duel.ConfirmCards(tp,g) + local lp=Duel.GetLP(tp) + if g:IsExists(c7044562.filter,1,nil,lp) and Duel.SelectYesNo(tp,aux.Stringid(7044562,0)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local sg=g:FilterSelect(tp,c7044562.filter,1,1,nil,lp) + Duel.SendtoHand(sg,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,sg) + Duel.ShuffleHand(tp) + end + Duel.ShuffleDeck(tp) +end diff --git a/script/c70456282.lua b/script/c70456282.lua old mode 100755 new mode 100644 diff --git a/script/c70595331.lua b/script/c70595331.lua index 5cd0e618..d170675b 100644 --- a/script/c70595331.lua +++ b/script/c70595331.lua @@ -20,7 +20,7 @@ function c70595331.initial_effect(c) c:RegisterEffect(e2) end function c70595331.filter(c,e,tp) - return c:IsRace(RACE_ZOMBIE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsRace(RACE_ZOMBIE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c70595331.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -33,7 +33,7 @@ function c70595331.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(tp,c70595331.filter,tp,LOCATION_GRAVE+LOCATION_HAND,LOCATION_GRAVE,1,1,nil,e,tp) local c=e:GetHandler() local tc=g:GetFirst() - if tc then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)==0 then return end if c:IsFaceup() and c:IsRelateToEffect(e) then c:SetCardTarget(tc) end end diff --git a/script/c70624184.lua b/script/c70624184.lua index 6595c220..5cc8491a 100644 --- a/script/c70624184.lua +++ b/script/c70624184.lua @@ -16,7 +16,7 @@ function c70624184.spcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c70624184.filter(c,e,tp) - return c:IsSetCard(0x53) and c:GetCode()~=70624184 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x53) and not c:IsCode(70624184) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c70624184.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 @@ -27,5 +27,6 @@ function c70624184.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c70624184.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + if g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end diff --git a/script/c70630741.lua b/script/c70630741.lua index c4af788a..f9491499 100644 --- a/script/c70630741.lua +++ b/script/c70630741.lua @@ -33,9 +33,7 @@ function c70630741.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c70630741.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp) end end diff --git a/script/c706925.lua b/script/c706925.lua index f738f8c1..6032cd2d 100644 --- a/script/c706925.lua +++ b/script/c706925.lua @@ -47,7 +47,7 @@ function c706925.descon(e,tp,eg,ep,ev,re,r,rp) and re:GetHandler():IsAttribute(ATTRIBUTE_WATER) end function c706925.desfilter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c706925.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c706925.desfilter(chkc) end diff --git a/script/c70791313.lua b/script/c70791313.lua index fd0ee007..158c48f5 100644 --- a/script/c70791313.lua +++ b/script/c70791313.lua @@ -1,7 +1,7 @@ --王立魔法図書館 function c70791313.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,3) + c:EnableCounterPermit(0x1) + c:SetCounterLimit(0x1,3) --add counter local e0=Effect.CreateEffect(c) e0:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) @@ -30,12 +30,12 @@ function c70791313.initial_effect(c) end function c70791313.acop(e,tp,eg,ep,ev,re,r,rp) if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c70791313.drcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x3001,3,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x3001,3,REASON_COST) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,3,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1,3,REASON_COST) end function c70791313.drtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end diff --git a/script/c7084129.lua b/script/c7084129.lua new file mode 100644 index 00000000..e4e075e7 --- /dev/null +++ b/script/c7084129.lua @@ -0,0 +1,68 @@ +--マジシャンズ・ロッド +function c7084129.initial_effect(c) + --search + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(7084129,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetCountLimit(1,7084129) + e1:SetTarget(c7084129.thtg) + e1:SetOperation(c7084129.thop) + c:RegisterEffect(e1) + --tohand (self) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_PLAYER_TARGET) + e2:SetCode(EFFECT_ACTIVATE_COST) + e2:SetTargetRange(1,0) + e2:SetRange(LOCATION_GRAVE) + e2:SetOperation(aux.chainreg) + c:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(7084129,1)) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_CHAIN_SOLVING) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetRange(LOCATION_GRAVE) + e3:SetCountLimit(1,7084130) + e3:SetCondition(c7084129.condition) + e3:SetCost(c7084129.cost) + e3:SetTarget(c7084129.target) + e3:SetOperation(c7084129.operation) + c:RegisterEffect(e3) +end +function c7084129.thfilter(c) + return aux.IsCodeListed(c,46986414) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() +end +function c7084129.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c7084129.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c7084129.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c7084129.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c7084129.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp and rp==tp and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and e:GetHandler():GetFlagEffect(1)>0 +end +function c7084129.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsRace,1,nil,RACE_SPELLCASTER) end + local sg=Duel.SelectReleaseGroup(tp,Card.IsRace,1,1,nil,RACE_SPELLCASTER) + Duel.Release(sg,REASON_COST) +end +function c7084129.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToHand() end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) +end +function c7084129.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + Duel.SendtoHand(c,nil,REASON_EFFECT) + end +end diff --git a/script/c70861343.lua b/script/c70861343.lua old mode 100755 new mode 100644 index c7d391b1..b704fc04 --- a/script/c70861343.lua +++ b/script/c70861343.lua @@ -39,9 +39,9 @@ function c70861343.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c70861343.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e:GetLabel(),e,tp) local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() end end function c70861343.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c70865988.lua b/script/c70865988.lua old mode 100755 new mode 100644 diff --git a/script/c70902743.lua b/script/c70902743.lua index e394dd9e..3a9f2ae7 100644 --- a/script/c70902743.lua +++ b/script/c70902743.lua @@ -59,7 +59,7 @@ function c70902743.condition1(e,tp,eg,ep,ev,re,r,rp) return Duel.GetAttacker()==e:GetHandler() and Duel.GetAttackTarget() and not Duel.GetAttackTarget():IsAttackPos() end function c70902743.filter1(c) - return not c:IsAttackPos() and c:IsDestructable() + return not c:IsAttackPos() end function c70902743.target1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -72,7 +72,7 @@ function c70902743.operation1(e,tp,eg,ep,ev,re,r,rp) end function c70902743.filter2(c) local ct=c:GetFlagEffectLabel(70902743) - return (not ct or ct==0) and c:IsDestructable() + return (not ct or ct==0) end function c70902743.condition2(e,tp,eg,ep,ev,re,r,rp) return tp==Duel.GetTurnPlayer() diff --git a/script/c70913714.lua b/script/c70913714.lua old mode 100755 new mode 100644 index c5ffd2f2..a3413b02 --- a/script/c70913714.lua +++ b/script/c70913714.lua @@ -76,9 +76,7 @@ function c70913714.cttg(e,tp,eg,ep,ev,re,r,rp,chk) end function c70913714.ctop(e,tp,eg,ep,ev,re,r,rp) local ec=Duel.GetFirstTarget() - if ec and ec:IsRelateToEffect(e) and not Duel.GetControl(ec,tp) then - if not ec:IsImmuneToEffect(e) and ec:IsAbleToChangeControler() then - Duel.Destroy(ec,REASON_EFFECT) - end + if ec and ec:IsRelateToEffect(e) then + Duel.GetControl(ec,tp) end end diff --git a/script/c70917315.lua b/script/c70917315.lua new file mode 100644 index 00000000..55c5d3a5 --- /dev/null +++ b/script/c70917315.lua @@ -0,0 +1,69 @@ +--アモルファージ・ルクス +function c70917315.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --flip + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_FLIP) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetOperation(c70917315.flipop) + c:RegisterEffect(e1) + --maintain + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_PZONE) + e2:SetCountLimit(1) + e2:SetCode(EVENT_PHASE+PHASE_STANDBY) + e2:SetCondition(c70917315.descon) + e2:SetOperation(c70917315.desop) + c:RegisterEffect(e2) + --spsummon limit + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetTargetRange(1,1) + e3:SetTarget(c70917315.sumlimit) + c:RegisterEffect(e3) + --act limit + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_CANNOT_ACTIVATE) + e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e4:SetRange(LOCATION_PZONE) + e4:SetTargetRange(1,1) + e4:SetCondition(c70917315.limcon) + e4:SetValue(c70917315.limval) + c:RegisterEffect(e4) +end +function c70917315.flipop(e,tp,eg,ep,ev,re,r,rp) + e:GetHandler():RegisterFlagEffect(70917315,RESET_EVENT+0x1fe0000,0,1) +end +function c70917315.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe0) +end +function c70917315.limcon(e) + return Duel.IsExistingMatchingCard(c70917315.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) +end +function c70917315.limval(e,re,rp) + local rc=re:GetHandler() + return re:IsActiveType(TYPE_SPELL) and not rc:IsSetCard(0xe0) and not rc:IsImmuneToEffect(e) +end +function c70917315.descon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c70917315.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) + if Duel.CheckReleaseGroup(tp,Card.IsReleasableByEffect,1,c) and Duel.SelectYesNo(tp,aux.Stringid(70917315,0)) then + local g=Duel.SelectReleaseGroup(tp,Card.IsReleasableByEffect,1,1,c) + Duel.Release(g,REASON_COST) + else Duel.Destroy(c,REASON_COST) end +end +function c70917315.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) + return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0xe0) + and (e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM or e:GetHandler():GetFlagEffect(70917315)~=0) +end diff --git a/script/c7092142.lua b/script/c7092142.lua index 813a177a..8446362b 100644 --- a/script/c7092142.lua +++ b/script/c7092142.lua @@ -25,7 +25,8 @@ end function c7092142.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local ct=eg:FilterCount(c7092142.spfilter,nil,e,tp) - return ct>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=ct + return ct>0 and (ct==1 or not Duel.IsPlayerAffectedByEffect(tp,59822133)) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>=ct end Duel.SetTargetCard(eg) local g=eg:Filter(c7092142.spfilter,nil,e,tp) @@ -36,6 +37,8 @@ function c7092142.spfilter2(c,e,tp) end function c7092142.operation(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local sg=eg:Filter(c7092142.spfilter2,nil,e,tp) if ft0 end end -function c7093411.operation(e,tp,eg,ep,ev,re,r,rp,chk) +function c7093411.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) - local g=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,0x1034) - if g:GetCount()>0 then - local tc=g:GetFirst() + local g=Duel.SelectMatchingCard(tp,c7093411.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil) + local tc=g:GetFirst() + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(tc) + local e1=Effect.CreateEffect(e:GetHandler()) e1:SetCode(EFFECT_CHANGE_TYPE) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetReset(RESET_EVENT+0x1fc0000) e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) tc:RegisterEffect(e1) - Duel.RaiseEvent(tc,47408488,e,0,tp,0,0) + Duel.RaiseEvent(tc,EVENT_CUSTOM+47408488,e,0,tp,0,0) end end diff --git a/script/c7093413.lua b/script/c7093413.lua deleted file mode 100644 index 97084c83..00000000 --- a/script/c7093413.lua +++ /dev/null @@ -1,74 +0,0 @@ ---Advanced Crystal Beast Sapphire Pegasus -function c7093413.initial_effect(c) - --Treated as "Crystal Beast Sapphire Pegasus" - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_ADD_CODE) - e1:SetValue(7093411) - c:RegisterEffect(e1) - --Place 1 Crystal in the Spell & Trap Card Zone - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(7093413,0)) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e2:SetTarget(c7093413.placetg) - e2:SetOperation(c7093413.placeop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e3) - local e4=e2:Clone() - e4:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - c:RegisterEffect(e4) - --Turn into Crystal - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(7093413,1)) - e5:SetCode(EFFECT_SEND_REPLACE) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE) - e5:SetRange(LOCATION_MZONE) - e5:SetTarget(c7093413.crystaltg) - e5:SetOperation(c7093413.crystalop) - c:RegisterEffect(e5) -end -function c7093413.crystaltg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:GetDestination()==LOCATION_GRAVE and c:IsReason(REASON_DESTROY) end - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return false end - return Duel.SelectEffectYesNo(tp,c) -end -function c7093413.crystalop(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(c) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fc0000) - e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) - c:RegisterEffect(e1) - Duel.RaiseEvent(c,47408488,e,0,tp,0,0) -end -function c7093413.placetg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_REMOVED+LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,nil,0x34) - and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end -end -function c7093413.placeop(e,tp,eg,ep,ev,re,r,rp,chk) - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) - local g=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_REMOVED+LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,0x34) - if g:GetCount()>0 then - local tc=g:GetFirst() - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(tc) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fc0000) - e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) - tc:RegisterEffect(e1) - Duel.RaiseEvent(tc,47408488,e,0,tp,0,0) - end -end \ No newline at end of file diff --git a/script/c70946699.lua b/script/c70946699.lua index 9e5c70de..8a2848a2 100644 --- a/script/c70946699.lua +++ b/script/c70946699.lua @@ -1 +1,55 @@ ---炎虎梁山爆 function c70946699.initial_effect(c) --recover local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCategory(CATEGORY_RECOVER) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetCode(EVENT_FREE_CHAIN) e1:SetTarget(c70946699.target) e1:SetOperation(c70946699.operation) c:RegisterEffect(e1) --damage local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(70946699,0)) e2:SetCategory(CATEGORY_DAMAGE) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) e2:SetCode(EVENT_TO_GRAVE) e2:SetCondition(c70946699.damcon) e2:SetTarget(c70946699.damtg) e2:SetOperation(c70946699.damop) c:RegisterEffect(e2) end function c70946699.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end Duel.SetTargetPlayer(tp) local rec=Duel.GetMatchingGroupCount(c70946699.filter,tp,LOCATION_ONFIELD,0,nil)*500 Duel.SetTargetParam(rec) Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,rec) end function c70946699.filter(c) return c:IsType(TYPE_CONTINUOUS) and c:IsFaceup() end function c70946699.operation(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end local rec=Duel.GetMatchingGroupCount(c70946699.filter,tp,LOCATION_ONFIELD,0,nil)*500 local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) Duel.Recover(p,rec,REASON_EFFECT) end function c70946699.damcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) and c:IsReason(REASON_EFFECT) and c:GetReasonPlayer()~=tp and c:GetPreviousControler()==tp end function c70946699.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end Duel.SetTargetPlayer(1-tp) local dam=Duel.GetMatchingGroupCount(c70946699.filter,tp,LOCATION_GRAVE,0,nil)*500 Duel.SetTargetParam(dam) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) end function c70946699.damop(e,tp,eg,ep,ev,re,r,rp) local dam=Duel.GetMatchingGroupCount(c70946699.filter,tp,LOCATION_GRAVE,0,nil)*500 local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) Duel.Damage(p,dam,REASON_EFFECT) end \ No newline at end of file +--炎虎梁山爆 +function c70946699.initial_effect(c) + --recover + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCategory(CATEGORY_RECOVER) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c70946699.target) + e1:SetOperation(c70946699.operation) + c:RegisterEffect(e1) + --damage + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(70946699,0)) + e2:SetCategory(CATEGORY_DAMAGE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCondition(c70946699.damcon) + e2:SetTarget(c70946699.damtg) + e2:SetOperation(c70946699.damop) + c:RegisterEffect(e2) +end +function c70946699.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(tp) + local rec=Duel.GetMatchingGroupCount(c70946699.filter,tp,LOCATION_ONFIELD,0,nil)*500 + Duel.SetTargetParam(rec) + Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,rec) +end +function c70946699.filter(c) + return c:IsType(TYPE_CONTINUOUS) and c:IsFaceup() +end +function c70946699.operation(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local rec=Duel.GetMatchingGroupCount(c70946699.filter,tp,LOCATION_ONFIELD,0,nil)*500 + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + Duel.Recover(p,rec,REASON_EFFECT) +end +function c70946699.damcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) and c:IsReason(REASON_EFFECT) + and c:GetReasonPlayer()~=tp and c:GetPreviousControler()==tp +end +function c70946699.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(1-tp) + local dam=Duel.GetMatchingGroupCount(c70946699.filter,tp,LOCATION_GRAVE,0,nil)*500 + Duel.SetTargetParam(dam) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) +end +function c70946699.damop(e,tp,eg,ep,ev,re,r,rp) + local dam=Duel.GetMatchingGroupCount(c70946699.filter,tp,LOCATION_GRAVE,0,nil)*500 + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + Duel.Damage(p,dam,REASON_EFFECT) +end diff --git a/script/c70948327.lua b/script/c70948327.lua index 5e2f33b2..3c405959 100644 --- a/script/c70948327.lua +++ b/script/c70948327.lua @@ -13,7 +13,7 @@ end function c70948327.destg(e,tp,eg,ep,ev,re,r,rp,chk) local d=Duel.GetAttackTarget() if chk ==0 then return Duel.GetAttacker()==e:GetHandler() - and d~=nil and d:IsFaceup() and d:IsLevelBelow(3) and d:IsDestructable() end + and d~=nil and d:IsFaceup() and d:IsLevelBelow(3) and d:IsRelateToBattle() end Duel.SetOperationInfo(0,CATEGORY_DESTROY,d,1,0,0) end function c70948327.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c71039903.lua b/script/c71039903.lua new file mode 100644 index 00000000..2213e214 --- /dev/null +++ b/script/c71039903.lua @@ -0,0 +1,70 @@ +--太古の白石 +function c71039903.initial_effect(c) + --to grave + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_TO_GRAVE) + e1:SetOperation(c71039903.regop) + c:RegisterEffect(e1) + -- + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(71039903,0)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,71039903) + e2:SetCost(c71039903.cost) + e2:SetTarget(c71039903.target) + e2:SetOperation(c71039903.operation) + c:RegisterEffect(e2) +end +function c71039903.regop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(71039903,1)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_PHASE+PHASE_END) + e1:SetRange(LOCATION_GRAVE) + e1:SetCountLimit(1) + e1:SetTarget(c71039903.sptg) + e1:SetOperation(c71039903.spop) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) +end +function c71039903.spfilter(c,e,tp) + return c:IsSetCard(0xdd) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c71039903.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c71039903.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c71039903.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c71039903.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end +function c71039903.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c71039903.filter(c) + return c:IsSetCard(0xdd) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c71039903.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c71039903.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c71039903.filter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c71039903.filter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c71039903.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 then + end +end diff --git a/script/c71044499.lua b/script/c71044499.lua index e249ed57..53207092 100644 --- a/script/c71044499.lua +++ b/script/c71044499.lua @@ -11,7 +11,7 @@ function c71044499.initial_effect(c) c:RegisterEffect(e1) end function c71044499.filter(c) - return c:IsFacedown() and c:IsDestructable() and c:IsAbleToRemove() + return c:IsFacedown() and c:IsAbleToRemove() end function c71044499.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c71044499.filter(chkc) end diff --git a/script/c71071546.lua b/script/c71071546.lua index a4b99772..299ed30c 100644 --- a/script/c71071546.lua +++ b/script/c71071546.lua @@ -1,5 +1,6 @@ --オービタル 7 function c71071546.initial_effect(c) + c:EnableCounterPermit(0x2c) --counter local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(71071546,0)) @@ -32,7 +33,7 @@ end function c71071546.ctop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - c:AddCounter(0x2c+COUNTER_NEED_ENABLE,1) + c:AddCounter(0x2c,1) end end function c71071546.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c71098407.lua b/script/c71098407.lua index 9d6f0bb6..41528052 100644 --- a/script/c71098407.lua +++ b/script/c71098407.lua @@ -22,6 +22,6 @@ end function c71098407.activate(e,tp,eg,ep,ev,re,r,rp) local rc=re:GetHandler() if Duel.NegateEffect(ev) and rc:IsRelateToEffect(e) then - Duel.ChangePosition(rc,POS_FACEUP_DEFENCE) + Duel.ChangePosition(rc,POS_FACEUP_DEFENSE) end end diff --git a/script/c71175527.lua b/script/c71175527.lua index 00a1b9c1..7b91fe45 100644 --- a/script/c71175527.lua +++ b/script/c71175527.lua @@ -29,7 +29,7 @@ end function c71175527.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c71203602.lua b/script/c71203602.lua old mode 100755 new mode 100644 diff --git a/script/c71209500.lua b/script/c71209500.lua old mode 100755 new mode 100644 index 143b9dd6..9e0ff340 --- a/script/c71209500.lua +++ b/script/c71209500.lua @@ -43,5 +43,5 @@ function c71209500.efop(e,tp,eg,ep,ev,re,r,rp) end end function c71209500.efilter(e,re,rp) - return re:IsActiveType(TYPE_MONSTER) and aux.tgval(e,re,rp) + return re:IsActiveType(TYPE_MONSTER) end \ No newline at end of file diff --git a/script/c71218746.lua b/script/c71218746.lua index ff791e78..3b2176ce 100644 --- a/script/c71218746.lua +++ b/script/c71218746.lua @@ -12,7 +12,7 @@ function c71218746.initial_effect(c) end function c71218746.targ(e,tp,eg,ep,ev,re,r,rp,chk) local t=Duel.GetAttackTarget() - if chk ==0 then return Duel.GetAttacker()==e:GetHandler() and t~=nil and not t:IsAttackPos() and t:IsDestructable() end + if chk ==0 then return Duel.GetAttacker()==e:GetHandler() and t~=nil and not t:IsAttackPos() end Duel.SetOperationInfo(0,CATEGORY_DESTROY,t,1,0,0) end function c71218746.op(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c71249758.lua b/script/c71249758.lua index 8c6a37bd..ec50a300 100644 --- a/script/c71249758.lua +++ b/script/c71249758.lua @@ -16,18 +16,18 @@ function c71249758.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() end function c71249758.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsPosition(POS_FACEUP_DEFENCE) end - if chk==0 then return Duel.IsExistingTarget(Card.IsPosition,tp,LOCATION_MZONE,0,1,nil,POS_FACEUP_DEFENCE) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsPosition(POS_FACEUP_DEFENSE) end + if chk==0 then return Duel.IsExistingTarget(Card.IsPosition,tp,LOCATION_MZONE,0,1,nil,POS_FACEUP_DEFENSE) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsPosition,tp,LOCATION_MZONE,0,1,1,nil,POS_FACEUP_DEFENCE) + local g=Duel.SelectTarget(tp,Card.IsPosition,tp,LOCATION_MZONE,0,1,1,nil,POS_FACEUP_DEFENSE) end function c71249758.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local def=tc:GetBaseDefence() + local def=tc:GetBaseDefense() local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_DEFENCE_FINAL) + e1:SetCode(EFFECT_SET_DEFENSE_FINAL) e1:SetReset(RESET_EVENT+0x1fe0000) e1:SetValue(def*2) tc:RegisterEffect(e1) diff --git a/script/c71272951.lua b/script/c71272951.lua index e4320ca9..8accd72e 100644 --- a/script/c71272951.lua +++ b/script/c71272951.lua @@ -11,7 +11,7 @@ function c71272951.initial_effect(c) c:RegisterEffect(e1) end function c71272951.filter(c) - return c:IsFaceup() and c:GetAttack()>c:GetBaseAttack() and c:IsDestructable() + return c:IsFaceup() and c:GetAttack()>c:GetBaseAttack() end function c71272951.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c71272951.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c7127502.lua b/script/c7127502.lua new file mode 100644 index 00000000..b40c1134 --- /dev/null +++ b/script/c7127502.lua @@ -0,0 +1,39 @@ +--竜魔王レクターP +function c7127502.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --disable + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_DISABLE) + e1:SetRange(LOCATION_PZONE) + e1:SetTargetRange(0,LOCATION_MZONE) + e1:SetTarget(c7127502.distg) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_BATTLE_START) + e2:SetTarget(c7127502.destg) + e2:SetOperation(c7127502.desop) + c:RegisterEffect(e2) +end +function c7127502.distg(e,c) + return c:IsType(TYPE_PENDULUM) +end +function c7127502.destg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + local tc=c:GetBattleTarget() + if chk==0 then return tc and tc:IsFaceup() and tc:IsType(TYPE_PENDULUM) end + local g=Group.FromCards(c,tc) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) +end +function c7127502.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=c:GetBattleTarget() + if c:IsRelateToBattle() and tc:IsRelateToBattle() then + local g=Group.FromCards(c,tc) + Duel.Destroy(g,REASON_EFFECT) + end +end diff --git a/script/c71279983.lua b/script/c71279983.lua old mode 100755 new mode 100644 index 4d374639..57460a82 --- a/script/c71279983.lua +++ b/script/c71279983.lua @@ -1,57 +1,57 @@ ---U.A.ドレッドノートダンカー -function c71279983.initial_effect(c) - --special summon rule - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetRange(LOCATION_HAND) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetCountLimit(1,71279983) - e1:SetCondition(c71279983.spcon) - e1:SetOperation(c71279983.spop) - c:RegisterEffect(e1) - --pierce - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_PIERCE) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BATTLE_DAMAGE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCondition(c71279983.descon) - e3:SetTarget(c71279983.destg) - e3:SetOperation(c71279983.desop) - c:RegisterEffect(e3) -end -function c71279983.spfilter(c) - return c:IsFaceup() and c:IsSetCard(0xb2) and not c:IsCode(71279983) and c:IsAbleToHandAsCost() -end -function c71279983.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c71279983.spfilter,c:GetControler(),LOCATION_MZONE,0,1,nil) -end -function c71279983.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectMatchingCard(tp,c71279983.spfilter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SendtoHand(g,nil,REASON_COST) -end -function c71279983.descon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c71279983.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c71279983.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--U.A.ドレッドノートダンカー +function c71279983.initial_effect(c) + --special summon rule + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetRange(LOCATION_HAND) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetCountLimit(1,71279983) + e1:SetCondition(c71279983.spcon) + e1:SetOperation(c71279983.spop) + c:RegisterEffect(e1) + --pierce + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_PIERCE) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_BATTLE_DAMAGE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCondition(c71279983.descon) + e3:SetTarget(c71279983.destg) + e3:SetOperation(c71279983.desop) + c:RegisterEffect(e3) +end +function c71279983.spfilter(c) + return c:IsFaceup() and c:IsSetCard(0xb2) and not c:IsCode(71279983) and c:IsAbleToHandAsCost() +end +function c71279983.spcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c71279983.spfilter,c:GetControler(),LOCATION_MZONE,0,1,nil) +end +function c71279983.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) + local g=Duel.SelectMatchingCard(tp,c71279983.spfilter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SendtoHand(g,nil,REASON_COST) +end +function c71279983.descon(e,tp,eg,ep,ev,re,r,rp) + return ep~=tp +end +function c71279983.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c71279983.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c71345905.lua b/script/c71345905.lua index 6523374d..354df49b 100644 --- a/script/c71345905.lua +++ b/script/c71345905.lua @@ -12,11 +12,11 @@ function c71345905.initial_effect(c) end function c71345905.filter1(c,e,tp) local rk=c:GetRank() - return rk>1 and c:IsFaceup() and c:IsSetCard(0x7f) + return rk>1 and c:IsFaceup() and c:IsSetCard(0x107f) and Duel.IsExistingMatchingCard(c71345905.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,c,rk) end function c71345905.filter2(c,e,tp,mc,rk) - return c:IsRankBelow(rk-1) and c:IsSetCard(0x7f) and mc:IsCanBeXyzMaterial(c) + return c:IsRankBelow(rk-1) and c:IsSetCard(0x107f) and mc:IsCanBeXyzMaterial(c) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) end function c71345905.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) @@ -53,6 +53,7 @@ function c71345905.activate(e,tp,eg,ep,ev,re,r,rp) local e2=e1:Clone() e2:SetCode(EVENT_BE_BATTLE_TARGET) sc:RegisterEffect(e2) + sc:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(71345905,0)) end end function c71345905.disop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c71408082.lua b/script/c71408082.lua old mode 100755 new mode 100644 index 7485f7db..e73b610f --- a/script/c71408082.lua +++ b/script/c71408082.lua @@ -24,7 +24,7 @@ end function c71408082.descon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetAttackTarget() - return tc and tc~=c and tc:IsDefencePos() + return tc and tc~=c and tc:IsDefensePos() end function c71408082.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c71411377.lua b/script/c71411377.lua index 9acca976..7846164b 100644 --- a/script/c71411377.lua +++ b/script/c71411377.lua @@ -11,6 +11,5 @@ function c71411377.initial_effect(c) c:RegisterEffect(e1) end function c71411377.atlimit(e,c) - local code=c:GetCode() - return code==87257460 or code==23756165 or code==50140163 + return c:IsCode(87257460,23756165,50140163) end diff --git a/script/c71413901.lua b/script/c71413901.lua index 16982b85..958e8b53 100644 --- a/script/c71413901.lua +++ b/script/c71413901.lua @@ -1,7 +1,7 @@ --魔導戦士 ブレイカー function c71413901.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,1) + c:EnableCounterPermit(0x1) + c:SetCounterLimit(0x1,1) --summon success local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(71413901,0)) @@ -33,22 +33,22 @@ function c71413901.initial_effect(c) end function c71413901.addct(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x3001) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x1) end function c71413901.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c71413901.attackup(e,c) - return c:GetCounter(0x3001)*300 + return c:GetCounter(0x1)*300 end function c71413901.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x3001,1,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x3001,1,REASON_COST) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,1,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1,1,REASON_COST) end function c71413901.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c71413901.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c71413901.filter(chkc) end diff --git a/script/c71415349.lua b/script/c71415349.lua index 728f3576..6b12fe4a 100644 --- a/script/c71415349.lua +++ b/script/c71415349.lua @@ -27,7 +27,7 @@ end function c71415349.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c71415349.atkop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c71417170.lua b/script/c71417170.lua index a4bd2ab4..8bbf2809 100644 --- a/script/c71417170.lua +++ b/script/c71417170.lua @@ -11,16 +11,16 @@ function c71417170.initial_effect(c) c:RegisterEffect(e1) end function c71417170.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE + return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c71417170.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDefencePos,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDefencePos,tp,0,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDefensePos,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(Card.IsDefensePos,tp,0,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) end function c71417170.activate(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - local g=Duel.GetMatchingGroup(Card.IsDefencePos,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(Card.IsDefensePos,tp,0,LOCATION_MZONE,nil) Duel.ChangePosition(g,0,0,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) local tc=g:GetFirst() while tc do diff --git a/script/c71442223.lua b/script/c71442223.lua new file mode 100644 index 00000000..edc4e97c --- /dev/null +++ b/script/c71442223.lua @@ -0,0 +1,91 @@ +--方界輪廻 +function c71442223.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_COUNTER) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCondition(c71442223.condition) + e1:SetTarget(c71442223.target) + e1:SetOperation(c71442223.activate) + c:RegisterEffect(e1) +end +function c71442223.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil +end +function c71442223.spfilter1(c,e,tp) + return c:IsSetCard(0xe3) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) +end +function c71442223.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local at=Duel.GetAttacker() + if chkc then return chkc==at end + if chk==0 then return at:IsOnField() and at:IsCanBeEffectTarget(e) + and Duel.IsExistingMatchingCard(c71442223.spfilter1,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetTargetCard(at) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c71442223.spfilter2(c,e,tp,tc) + return c:IsCode(tc:GetCode()) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c71442223.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + local tg=Group.FromCards(tc) + local ft=Duel.GetLocationCount(1-tp,LOCATION_MZONE) + local g=Duel.GetMatchingGroup(c71442223.spfilter2,1-tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,nil,e,1-tp,tc) + if g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end + if ft>0 and g:GetCount()>0 then + if Duel.IsPlayerAffectedByEffect(1-tp,59822133) then ft=1 end + local sg=g:Clone() + if g:GetCount()>ft then + Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON) + sg=g:Select(1-tp,ft,ft,nil) + g:Remove(Card.IsLocation,nil,LOCATION_MZONE+LOCATION_GRAVE) + Duel.SendtoGrave(g,REASON_EFFECT) + end + local sc=sg:GetFirst() + while sc do + Duel.SpecialSummonStep(sc,0,1-tp,1-tp,false,false,POS_FACEUP_ATTACK) + sc=sg:GetNext() + end + Duel.SpecialSummonComplete() + local og=Duel.GetOperatedGroup() + tg:Merge(og) + end + local tc=tg:GetFirst() + while tc do + c71442223.counter(tc,c) + tc=tg:GetNext() + end + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g2=Duel.SelectMatchingCard(tp,c71442223.spfilter1,tp,LOCATION_HAND,0,1,1,nil,e,tp) + if g2:GetCount()>0 then + Duel.SpecialSummon(g2,0,tp,tp,true,false,POS_FACEUP) + end + end +end +function c71442223.disable(e) + return e:GetHandler():GetCounter(0x1038)>0 +end +function c71442223.counter(tc,ec) + local e1=Effect.CreateEffect(ec) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(0) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + -- + tc:AddCounter(0x1038,1) + local e2=Effect.CreateEffect(ec) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_CANNOT_ATTACK) + e2:SetCondition(c71442223.disable) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_DISABLE) + tc:RegisterEffect(e3) +end diff --git a/script/c71525232.lua b/script/c71525232.lua new file mode 100644 index 00000000..017669ff --- /dev/null +++ b/script/c71525232.lua @@ -0,0 +1,64 @@ +--破滅竜ガンドラX +function c71525232.initial_effect(c) + --destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(71525232,0)) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE+CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetCondition(c71525232.condition) + e1:SetTarget(c71525232.target) + e1:SetOperation(c71525232.operation) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --halve LP + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(71525232,1)) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e3:SetCode(EVENT_PHASE+PHASE_END) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetCondition(c71525232.hvcon) + e3:SetOperation(c71525232.hvop) + c:RegisterEffect(e3) +end +function c71525232.condition(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_HAND) +end +function c71525232.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) + local mg,atk=g:GetMaxGroup(Card.GetAttack) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,atk) +end +function c71525232.filter(c) + if c:IsPreviousPosition(POS_FACEUP) then + return c:GetPreviousAttackOnField() + else return 0 end +end +function c71525232.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,c) + if g:GetCount()>0 and Duel.Destroy(g,REASON_EFFECT)~=0 then + local og=Duel.GetOperatedGroup() + local mg,atk=og:GetMaxGroup(c71525232.filter) + local dam=Duel.Damage(1-tp,atk,REASON_EFFECT) + if dam>0 and c:IsFaceup() and c:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(dam) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + end + end +end +function c71525232.hvcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c71525232.hvop(e,tp,eg,ep,ev,re,r,rp) + Duel.SetLP(tp,math.ceil(Duel.GetLP(tp)/2)) +end diff --git a/script/c7153114.lua b/script/c7153114.lua index 69a98987..b159f0a8 100644 --- a/script/c7153114.lua +++ b/script/c7153114.lua @@ -9,10 +9,11 @@ function c7153114.initial_effect(c) --indestructable local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_INDESTRUCTABLE) + e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) e2:SetRange(LOCATION_SZONE) e2:SetProperty(EFFECT_FLAG_IGNORE_RANGE+EFFECT_FLAG_SET_AVAILABLE) e2:SetTarget(c7153114.infilter) + e2:SetValue(1) c:RegisterEffect(e2) --cannot activate local e3=Effect.CreateEffect(c) diff --git a/script/c71541986.lua b/script/c71541986.lua index e82212ba..805865a7 100644 --- a/script/c71541986.lua +++ b/script/c71541986.lua @@ -20,11 +20,13 @@ function c71541986.spfilter(c,e,tp) return c:IsAttribute(ATTRIBUTE_WATER) and c:GetLevel()==8 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c71541986.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c71541986.spfilter,tp,LOCATION_DECK,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c71541986.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetMatchingGroup(c71541986.spfilter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()<2 then return end diff --git a/script/c71544954.lua b/script/c71544954.lua index 1ec20f1b..85284df3 100644 --- a/script/c71544954.lua +++ b/script/c71544954.lua @@ -41,6 +41,6 @@ function c71544954.spop(e,tp,eg,ep,ev,re,r,rp,c) e1:SetValue(val) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) c:RegisterEffect(e2) end diff --git a/script/c71564150.lua b/script/c71564150.lua index 7fc0d0a3..f307bfa6 100644 --- a/script/c71564150.lua +++ b/script/c71564150.lua @@ -27,35 +27,25 @@ function c71564150.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) local g=Duel.SelectMatchingCard(tp,c71564150.filter,tp,0,LOCATION_MZONE,ft,ft,nil) - local tc=g:GetFirst() + Duel.GetControl(g,tp,PHASE_END,1) + local og=Duel.GetOperatedGroup() + local tc=og:GetFirst() while tc do - if Duel.GetControl(tc,tp,PHASE_END,1) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UNRELEASABLE_SUM) - e1:SetReset(RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END) - e1:SetValue(1) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_UNRELEASABLE_NONSUM) - e2:SetReset(RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END) - e2:SetValue(1) - tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_TRIGGER) - e3:SetReset(RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e4:SetReset(RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END) - e4:SetValue(1) - tc:RegisterEffect(e4) - elseif not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - tc=g:GetNext() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UNRELEASABLE_SUM) + e1:SetReset(RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END) + e1:SetValue(1) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UNRELEASABLE_NONSUM) + tc:RegisterEffect(e2) + local e3=e1:Clone() + e3:SetCode(EFFECT_CANNOT_TRIGGER) + tc:RegisterEffect(e3) + local e4=e1:Clone() + e4:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) + tc:RegisterEffect(e4) + tc=og:GetNext() end end diff --git a/script/c71575818.lua b/script/c71575818.lua deleted file mode 100644 index 5598e939..00000000 --- a/script/c71575818.lua +++ /dev/null @@ -1,123 +0,0 @@ ---Mimicat -function c71575818.initial_effect(c) ---copy -local e1=Effect.CreateEffect(c) -e1:SetDescription(aux.Stringid(71575818,0)) -e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE+CATEGORY_LVCHANGE) -e1:SetType(EFFECT_TYPE_ACTIVATE) -e1:SetProperty(EFFECT_FLAG_CARD_TARGET) -e1:SetCode(EVENT_FREE_CHAIN) -e1:SetTarget(c71575818.target) -e1:SetOperation(c71575818.operation) -c:RegisterEffect(e1) -end -function c71575818.filter(c) -return (c:IsFaceup() and c:IsType(TYPE_MONSTER)) or (c:IsType(TYPE_SPELL) and c:IsFaceup()) or (c:IsType(TYPE_TRAP) and c:IsFaceup()) and not (c:IsHasEffect(EFFECT_FORBIDDEN) or c:IsType(TYPE_FIELD)) -end -function c71575818.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) -if chkc then return chkc:IsLocation(LOCATION_GRAVE) or chkc:IsLocation(LOCATION_MZONE) and chkc:GetControler()~=tp and c71575818.filter(chkc) end -if chk==0 then return Duel.IsExistingTarget(c71575818.filter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,1,nil) end -Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) -local g=Duel.SelectTarget(tp,c71575818.filter,tp,0,LOCATION_MZONE+LOCATION_SZONE+LOCATION_GRAVE,1,1,nil) -end -function c71575818.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - local code=tc:GetOriginalCode() - if not tc:IsRelateToEffect(e) then return end - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsType(TYPE_MONSTER) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then - Duel.MoveToField(c,tp,tp,LOCATION_MZONE,POS_FACEUP,true) - c:CopyEffect(code,nil,1) - atk=tc:GetBaseAttack() - def=tc:GetBaseDefence() - Race=tc:GetRace() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_CHANGE_CODE) - e1:SetValue(code) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EFFECT_SET_BASE_ATTACK) - e2:SetValue(atk) - e2:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCode(EFFECT_CHANGE_RACE) - e3:SetValue(Race) - e3:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e4:SetCode(EFFECT_SET_BASE_DEFENCE) - e4:SetValue(def) - e4:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetCode(EFFECT_CHANGE_LEVEL) - e5:SetValue(tc:GetLevel()) - e5:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e5) - end - if c:IsRelateToEffect(e) and c:IsFaceup() and not tc:IsType(TYPE_EQUIP+TYPE_CONTINUOUS+TYPE_MONSTER) then - local tpe=tc:GetType() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetValue(tpe) - e1:SetReset(RESET_EVENT+0x1fc0000) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EFFECT_CHANGE_CODE) - e2:SetValue(code) - e2:SetReset(RESET_EVENT+0x1fc0000) - c:RegisterEffect(e2) - local te=tc:GetActivateEffect() - local tg=te:GetTarget() - local op=te:GetOperation() - e:SetCategory(te:GetCategory()) - e:SetProperty(te:GetProperty()) - Duel.ClearTargetCard() - if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end - Duel.BreakEffect() - if op then op(e,tp,eg,ep,ev,re,r,rp) end - end - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsType(TYPE_EQUIP+TYPE_CONTINUOUS) then - local tpe=tc:GetType() - c:CopyEffect(code,nil,1) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetValue(tpe) - e1:SetReset(RESET_EVENT+0x1fc0000) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EFFECT_CHANGE_CODE) - e2:SetValue(code) - e2:SetReset(RESET_EVENT+0x1fc0000) - c:RegisterEffect(e2) - local te=tc:GetActivateEffect() - local tg=te:GetTarget() - local op=te:GetOperation() - e:SetCategory(te:GetCategory()) - e:SetProperty(te:GetProperty()) - Duel.ClearTargetCard() - if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end - Duel.BreakEffect() - if op then op(e,tp,eg,ep,ev,re,r,rp) end - c:CancelToGrave() - end - end - - diff --git a/script/c71578874.lua b/script/c71578874.lua index 0ecd93e8..3db41e2c 100644 --- a/script/c71578874.lua +++ b/script/c71578874.lua @@ -26,7 +26,7 @@ function c71578874.initial_effect(c) c:RegisterEffect(e3) end function c71578874.filter(c) - return c:IsFaceup() and c:GetAttack()~=c:GetDefence() + return c:IsFaceup() and c:GetAttack()~=c:GetDefense() and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL end function c71578874.adtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) @@ -39,7 +39,7 @@ function c71578874.adop(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local val=math.min(tc:GetAttack(),tc:GetDefence()) + local val=math.min(tc:GetAttack(),tc:GetDefense()) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK_FINAL) @@ -47,7 +47,7 @@ function c71578874.adop(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(val) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) tc:RegisterEffect(e2) end end @@ -64,12 +64,19 @@ end function c71578874.swop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local atk=tc:GetAttack() + local def=tc:GetDefense() local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SWAP_AD) + e1:SetCode(EFFECT_SWAP_ATTACK_FINAL) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetValue(def) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_SWAP_DEFENSE_FINAL) + e2:SetValue(atk) + tc:RegisterEffect(e2) Duel.BreakEffect() Duel.Damage(tp,500,REASON_EFFECT) end diff --git a/script/c71596836.lua b/script/c71596836.lua deleted file mode 100644 index b2e54983..00000000 --- a/script/c71596836.lua +++ /dev/null @@ -1,50 +0,0 @@ ---Silent Swordsman LV0 -function c71596836.initial_effect(c) - --atkup - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(71596836,0)) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetProperty(EFFECT_FLAG_REPEAT) - e1:SetCondition(c71596836.atkcon) - e1:SetOperation(c71596836.atkop) - c:RegisterEffect(e1) - --level up - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(71596836,0)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_REPEAT) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetCondition(c71596836.atkcon) - e2:SetOperation(c71596836.lvop) - c:RegisterEffect(e2) -end -function c71596836.atkcon(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() -end -function c71596836.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) - e1:SetReset(RESET_EVENT+0x1ff0000) - e1:SetValue(500) - c:RegisterEffect(e1) -end -function c71596836.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFacedown() or not c:IsRelateToEffect(e) then return end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - Duel.RaiseSingleEvent(c,EVENT_LEVEL_UP,e,0,0,0,0,0) -end diff --git a/script/c71612253.lua b/script/c71612253.lua index 99583172..41f44bf7 100644 --- a/script/c71612253.lua +++ b/script/c71612253.lua @@ -68,7 +68,7 @@ function c71612253.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) Duel.Damage(1-tp,1000,REASON_EFFECT) end diff --git a/script/c71625222.lua b/script/c71625222.lua index 9d317247..9fb0dc04 100644 --- a/script/c71625222.lua +++ b/script/c71625222.lua @@ -13,7 +13,7 @@ function c71625222.initial_effect(c) end function c71625222.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end @@ -22,11 +22,11 @@ function c71625222.desop(e,tp,eg,ep,ev,re,r,rp) local coin=Duel.SelectOption(tp,60,61) local res=Duel.TossCoin(tp,1) if coin~=res then - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.Destroy(g,REASON_EFFECT) - Duel.RaiseEvent(e:GetHandler(),71625222,e,0,0,tp,0) + Duel.RaiseEvent(e:GetHandler(),EVENT_CUSTOM+71625222,e,0,0,tp,0) else - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil) Duel.Destroy(g,REASON_EFFECT) local dg=Duel.GetOperatedGroup() local sum=dg:GetSum(Card.GetAttack) diff --git a/script/c71628381.lua b/script/c71628381.lua index d7da8db9..6631b9b1 100644 --- a/script/c71628381.lua +++ b/script/c71628381.lua @@ -10,6 +10,7 @@ function c71628381.initial_effect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e1:SetCode(EVENT_PHASE+PHASE_BATTLE) e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) e1:SetCondition(c71628381.spcon) e1:SetTarget(c71628381.sptg) e1:SetOperation(c71628381.spop) diff --git a/script/c71645242.lua b/script/c71645242.lua old mode 100755 new mode 100644 index 8673abfc..a80c2094 --- a/script/c71645242.lua +++ b/script/c71645242.lua @@ -1,127 +1,127 @@ ---ブラック・ガーデン -function c71645242.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --token - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(71645242,0)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e4:SetRange(LOCATION_FZONE) - e4:SetCode(71645242) - e4:SetTarget(c71645242.sptg) - e4:SetOperation(c71645242.spop) - c:RegisterEffect(e4) - --special summon - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(71645242,1)) - e5:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetRange(LOCATION_FZONE) - e5:SetTarget(c71645242.sptg2) - e5:SetOperation(c71645242.spop2) - c:RegisterEffect(e5) - if not c71645242.global_check then - c71645242.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_SUMMON_SUCCESS) - ge1:SetCondition(c71645242.regcon) - ge1:SetOperation(c71645242.regop) - Duel.RegisterEffect(ge1,0) - local ge2=ge1:Clone() - ge2:SetCode(EVENT_SPSUMMON_SUCCESS) - Duel.RegisterEffect(ge2,0) - end -end -function c71645242.cfilter(c,tp) - return c:IsControler(tp) and c:GetSummonType()~=SUMMON_TYPE_SPECIAL+0x20 -end -function c71645242.regcon(e,tp,eg,ep,ev,re,r,rp) - local sf=0 - if eg:IsExists(c71645242.cfilter,1,nil,0) then - sf=sf+1 - end - if eg:IsExists(c71645242.cfilter,1,nil,1) then - sf=sf+2 - end - e:SetLabel(sf) - return sf~=0 -end -function c71645242.regop(e,tp,eg,ep,ev,re,r,rp) - Duel.RaiseEvent(eg,71645242,e,r,rp,ep,e:GetLabel()) -end -function c71645242.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsRelateToEffect(e) end - Duel.SetTargetCard(eg) - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) -end -function c71645242.spop(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local g=eg:Filter(Card.IsRelateToEffect,nil,e) - local tc=g:GetFirst() - while tc do - if tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(math.ceil(tc:GetAttack()/2)) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end - tc=g:GetNext() - end - if bit.band(bit.rshift(ev,tp),1)~=0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,71645243,0,0x4011,800,800,2,RACE_PLANT,ATTRIBUTE_DARK,POS_FACEUP_ATTACK,1-tp) then - local token=Duel.CreateToken(tp,71645243) - Duel.SpecialSummonStep(token,0x20,tp,1-tp,false,false,POS_FACEUP_ATTACK) - end - if bit.band(bit.rshift(ev,1-tp),1)~=0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,71645243,0,0x4011,800,800,2,RACE_PLANT,ATTRIBUTE_DARK) then - local token=Duel.CreateToken(1-tp,71645243) - Duel.SpecialSummonStep(token,0x20,tp,tp,false,false,POS_FACEUP_ATTACK) - end - Duel.SpecialSummonComplete() -end -function c71645242.desfilter(c) - return c:IsFaceup() and c:IsRace(RACE_PLANT) and c:IsDestructable() -end -function c71645242.filter2(c,atk,e,tp) - return c:GetAttack()==atk and c:IsCanBeSpecialSummoned(e,0x20,tp,false,false) -end -function c71645242.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c71645242.filter2(chkc,e:GetLabel(),e,tp) end - local g=Duel.GetMatchingGroup(c71645242.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - local atk=g:GetSum(Card.GetAttack) - local sc=g:FilterCount(Card.IsControler,nil,tp) - if chk==0 then return e:GetHandler():IsDestructable() and e:GetHandler():IsDestructable(e) and g:GetCount()>0 - and Duel.GetLocationCount(tp,LOCATION_MZONE)>-sc - and Duel.IsExistingTarget(c71645242.filter2,tp,LOCATION_GRAVE,0,1,nil,atk,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectTarget(tp,c71645242.filter2,tp,LOCATION_GRAVE,0,1,1,nil,atk,e,tp) - e:SetLabel(atk) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tg,1,0,0) - g:AddCard(e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c71645242.spop2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not (c:IsRelateToEffect(e) and c:IsDestructable() and c:IsDestructable(e)) then return end - local dg=Duel.GetMatchingGroup(c71645242.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - dg:AddCard(c) - Duel.Destroy(dg,REASON_EFFECT) - Duel.BreakEffect() - local og=Duel.GetOperatedGroup() - if not og:IsContains(c) then return end - og:RemoveCard(c) - local atk=og:GetSum(Card.GetPreviousAttackOnField) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:GetAttack()==atk then - Duel.SpecialSummon(tc,0x20,tp,tp,false,false,POS_FACEUP) - end -end +--ブラック・ガーデン +function c71645242.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --token + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(71645242,0)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e4:SetRange(LOCATION_FZONE) + e4:SetCode(EVENT_CUSTOM+71645242) + e4:SetTarget(c71645242.sptg) + e4:SetOperation(c71645242.spop) + c:RegisterEffect(e4) + --special summon + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(71645242,1)) + e5:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) + e5:SetProperty(EFFECT_FLAG_CARD_TARGET) + e5:SetType(EFFECT_TYPE_IGNITION) + e5:SetRange(LOCATION_FZONE) + e5:SetTarget(c71645242.sptg2) + e5:SetOperation(c71645242.spop2) + c:RegisterEffect(e5) + if not c71645242.global_check then + c71645242.global_check=true + local ge1=Effect.CreateEffect(c) + ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge1:SetCode(EVENT_SUMMON_SUCCESS) + ge1:SetCondition(c71645242.regcon) + ge1:SetOperation(c71645242.regop) + Duel.RegisterEffect(ge1,0) + local ge2=ge1:Clone() + ge2:SetCode(EVENT_SPSUMMON_SUCCESS) + Duel.RegisterEffect(ge2,0) + end +end +function c71645242.cfilter(c,tp) + return c:IsControler(tp) and c:GetSummonType()~=SUMMON_TYPE_SPECIAL+0x20 +end +function c71645242.regcon(e,tp,eg,ep,ev,re,r,rp) + local sf=0 + if eg:IsExists(c71645242.cfilter,1,nil,0) then + sf=sf+1 + end + if eg:IsExists(c71645242.cfilter,1,nil,1) then + sf=sf+2 + end + e:SetLabel(sf) + return sf~=0 +end +function c71645242.regop(e,tp,eg,ep,ev,re,r,rp) + Duel.RaiseEvent(eg,EVENT_CUSTOM+71645242,e,r,rp,ep,e:GetLabel()) +end +function c71645242.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsRelateToEffect(e) end + Duel.SetTargetCard(eg) + Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) +end +function c71645242.spop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local g=eg:Filter(Card.IsRelateToEffect,nil,e) + local tc=g:GetFirst() + while tc do + if tc:IsFaceup() then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(math.ceil(tc:GetAttack()/2)) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + end + tc=g:GetNext() + end + if bit.band(bit.rshift(ev,tp),1)~=0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 + and Duel.IsPlayerCanSpecialSummonMonster(tp,71645243,0,0x4011,800,800,2,RACE_PLANT,ATTRIBUTE_DARK,POS_FACEUP_ATTACK,1-tp) then + local token=Duel.CreateToken(tp,71645243) + Duel.SpecialSummonStep(token,0x20,tp,1-tp,false,false,POS_FACEUP_ATTACK) + end + if bit.band(bit.rshift(ev,1-tp),1)~=0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsPlayerCanSpecialSummonMonster(tp,71645243,0,0x4011,800,800,2,RACE_PLANT,ATTRIBUTE_DARK) then + local token=Duel.CreateToken(1-tp,71645243) + Duel.SpecialSummonStep(token,0x20,tp,tp,false,false,POS_FACEUP_ATTACK) + end + Duel.SpecialSummonComplete() +end +function c71645242.desfilter(c) + return c:IsFaceup() and c:IsRace(RACE_PLANT) +end +function c71645242.filter2(c,atk,e,tp) + return c:GetAttack()==atk and c:IsCanBeSpecialSummoned(e,0x20,tp,false,false) +end +function c71645242.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c71645242.filter2(chkc,e:GetLabel(),e,tp) end + local g=Duel.GetMatchingGroup(c71645242.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local atk=g:GetSum(Card.GetAttack) + local sc=g:FilterCount(Card.IsControler,nil,tp) + if chk==0 then return e:GetHandler():IsDestructable() and e:GetHandler():IsDestructable(e) and g:GetCount()>0 + and Duel.GetLocationCount(tp,LOCATION_MZONE)>-sc + and Duel.IsExistingTarget(c71645242.filter2,tp,LOCATION_GRAVE,0,1,nil,atk,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=Duel.SelectTarget(tp,c71645242.filter2,tp,LOCATION_GRAVE,0,1,1,nil,atk,e,tp) + e:SetLabel(atk) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tg,1,0,0) + g:AddCard(e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c71645242.spop2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not (c:IsRelateToEffect(e) and c:IsDestructable(e)) then return end + local dg=Duel.GetMatchingGroup(c71645242.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + dg:AddCard(c) + Duel.Destroy(dg,REASON_EFFECT) + Duel.BreakEffect() + local og=Duel.GetOperatedGroup() + if not og:IsContains(c) then return end + og:RemoveCard(c) + local atk=og:GetSum(Card.GetPreviousAttackOnField) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:GetAttack()==atk then + Duel.SpecialSummon(tc,0x20,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c71650854.lua b/script/c71650854.lua new file mode 100644 index 00000000..25875162 --- /dev/null +++ b/script/c71650854.lua @@ -0,0 +1,71 @@ +--半魔導帯域 +function c71650854.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCondition(c71650854.condition) + c:RegisterEffect(e1) + --indes/target + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e2:SetRange(LOCATION_FZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetCondition(c71650854.indcon) + e2:SetValue(aux.tgoval) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e3:SetValue(c71650854.tgvalue) + c:RegisterEffect(e3) + local e4=e2:Clone() + e4:SetTargetRange(0,LOCATION_MZONE) + e4:SetValue(c71650854.tgoval) + c:RegisterEffect(e4) + local e5=e2:Clone() + e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e5:SetTargetRange(0,LOCATION_MZONE) + e5:SetValue(c71650854.tgovalue) + c:RegisterEffect(e5) + --cannot set/activate + local e6=Effect.CreateEffect(c) + e6:SetType(EFFECT_TYPE_FIELD) + e6:SetCode(EFFECT_CANNOT_SSET) + e6:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e6:SetRange(LOCATION_FZONE) + e6:SetTargetRange(1,0) + e6:SetTarget(c71650854.setlimit) + c:RegisterEffect(e6) + local e7=Effect.CreateEffect(c) + e7:SetType(EFFECT_TYPE_FIELD) + e7:SetCode(EFFECT_CANNOT_ACTIVATE) + e7:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e7:SetRange(LOCATION_FZONE) + e7:SetTargetRange(1,0) + e7:SetValue(c71650854.actlimit) + c:RegisterEffect(e7) +end +function c71650854.condition(e,tp,eg,ep,ev,re,r,rp) + return (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) + and not Duel.CheckPhaseActivity() +end +function c71650854.indcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()==PHASE_MAIN1 +end +function c71650854.tgvalue(e,re,rp) + return rp~=e:GetHandlerPlayer() +end +function c71650854.tgoval(e,re,rp) + return rp~=1-e:GetHandlerPlayer() and not re:GetHandler():IsImmuneToEffect(e) +end +function c71650854.tgovalue(e,re,rp) + return rp~=1-e:GetHandlerPlayer() +end +function c71650854.setlimit(e,c,tp) + return c:IsType(TYPE_FIELD) +end +function c71650854.actlimit(e,re,tp) + return re:IsActiveType(TYPE_FIELD) and re:IsHasType(EFFECT_TYPE_ACTIVATE) +end diff --git a/script/c71652522.lua b/script/c71652522.lua index 71a802a8..f201721f 100644 --- a/script/c71652522.lua +++ b/script/c71652522.lua @@ -43,9 +43,7 @@ function c71652522.activate(e,tp,eg,ep,ev,re,r,rp) end function c71652522.ctop(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetLabelObject() - if tc:GetFlagEffect(71652522)~=0 and not Duel.GetControl(tc,1-tp) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:GetFlagEffect(71652522)~=0 then + Duel.GetControl(tc,1-tp) end end diff --git a/script/c71696014.lua b/script/c71696014.lua new file mode 100644 index 00000000..3ac8e439 --- /dev/null +++ b/script/c71696014.lua @@ -0,0 +1,85 @@ +--マジシャンズ・ローブ +function c71696014.initial_effect(c) + --spsummon (DM) + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(71696014,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetRange(LOCATION_MZONE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMING_END_PHASE) + e1:SetCountLimit(1,71696014) + e1:SetCondition(c71696014.condition1) + e1:SetCost(c71696014.cost) + e1:SetTarget(c71696014.target1) + e1:SetOperation(c71696014.operation1) + c:RegisterEffect(e1) + --spsummon (self) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_PLAYER_TARGET) + e2:SetCode(EFFECT_ACTIVATE_COST) + e2:SetTargetRange(1,0) + e2:SetRange(LOCATION_GRAVE) + e2:SetOperation(aux.chainreg) + c:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(71696014,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_CHAIN_SOLVING) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetRange(LOCATION_GRAVE) + e3:SetCountLimit(1,71696015) + e3:SetCondition(c71696014.condition2) + e3:SetTarget(c71696014.target2) + e3:SetOperation(c71696014.operation2) + c:RegisterEffect(e3) +end +function c71696014.condition1(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp +end +function c71696014.cfilter(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDiscardable() +end +function c71696014.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c71696014.cfilter,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,c71696014.cfilter,1,1,REASON_COST+REASON_DISCARD) +end +function c71696014.filter(c,e,tp) + return c:IsCode(46986414) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c71696014.target1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c71696014.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c71696014.operation1(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c71696014.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end +function c71696014.condition2(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp and rp==tp and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and e:GetHandler():GetFlagEffect(1)>0 +end +function c71696014.target2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c71696014.operation2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 or not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetReset(RESET_EVENT+0x47e0000) + e1:SetValue(LOCATION_REMOVED) + c:RegisterEffect(e1,true) + end +end diff --git a/script/c71703785.lua b/script/c71703785.lua new file mode 100644 index 00000000..2018ff11 --- /dev/null +++ b/script/c71703785.lua @@ -0,0 +1,83 @@ +--守護神官マハード +function c71703785.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(71703785,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e1:SetCode(EVENT_DRAW) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c71703785.spcon1) + e1:SetCost(c71703785.spcost) + e1:SetTarget(c71703785.sptg1) + e1:SetOperation(c71703785.spop1) + c:RegisterEffect(e1) + --atkup + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EFFECT_SET_ATTACK_FINAL) + e2:SetCondition(c71703785.atkcon) + e2:SetValue(c71703785.atkval) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(71703785,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_DESTROYED) + e3:SetCondition(c71703785.spcon2) + e3:SetTarget(c71703785.sptg2) + e3:SetOperation(c71703785.spop2) + c:RegisterEffect(e3) +end +function c71703785.spcon1(e,tp,eg,ep,ev,re,r,rp) + return eg:IsContains(e:GetHandler()) +end +function c71703785.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return not e:GetHandler():IsPublic() end +end +function c71703785.sptg1(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) +end +function c71703785.spop1(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c71703785.atkcon(e) + local ph=Duel.GetCurrentPhase() + local bc=e:GetHandler():GetBattleTarget() + return (ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) and bc and bc:IsAttribute(ATTRIBUTE_DARK) +end +function c71703785.atkval(e,c) + return e:GetHandler():GetAttack()*2 +end +function c71703785.spcon2(e,tp,eg,ep,ev,re,r,rp) + return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 +end +function c71703785.spfilter(c,e,tp) + return c:IsCode(46986414) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c71703785.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c71703785.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) +end +function c71703785.spop2(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c71703785.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c71717923.lua b/script/c71717923.lua index 151fcb46..8a6647b7 100644 --- a/script/c71717923.lua +++ b/script/c71717923.lua @@ -16,7 +16,7 @@ function c71717923.costfilter(c) and Duel.IsExistingMatchingCard(c71717923.filter,0,LOCATION_MZONE,LOCATION_MZONE,1,c,c:GetAttack()) end function c71717923.filter(c,atk) - return c:IsFaceup() and c:IsDestructable() and c:GetDefence()<=atk + return c:IsFaceup() and c:GetDefense()<=atk end function c71717923.descost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.CheckReleaseGroup(tp,c71717923.costfilter,1,nil) end diff --git a/script/c71782404.lua b/script/c71782404.lua index 9ed692ee..25143e11 100644 --- a/script/c71782404.lua +++ b/script/c71782404.lua @@ -1,6 +1,5 @@ --レッドアイズ・バーン function c71782404.initial_effect(c) - Duel.EnableGlobalFlag(GLOBALFLAG_DELAYED_QUICKEFFECT) --Activate local e1=Effect.CreateEffect(c) e1:SetCategory(CATEGORY_DAMAGE) @@ -14,7 +13,7 @@ function c71782404.initial_effect(c) end function c71782404.cfilter(c,e,tp) return c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) and c:IsReason(REASON_EFFECT+REASON_BATTLE) - and c:IsSetCard(0x3b) and c:GetBaseAttack()>0 and c:IsCanBeEffectTarget(e) and c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) + and c:IsPreviousSetCard(0x3b) and c:GetBaseAttack()>0 and c:IsCanBeEffectTarget(e) and c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) end function c71782404.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return eg:IsContains(chkc) and c71782404.cfilter(chkc,e,tp) end @@ -27,7 +26,8 @@ end function c71782404.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.Damage(1-tp,tc:GetBaseAttack(),REASON_EFFECT) - Duel.Damage(tp,tc:GetBaseAttack(),REASON_EFFECT) + Duel.Damage(1-tp,tc:GetBaseAttack(),REASON_EFFECT,true) + Duel.Damage(tp,tc:GetBaseAttack(),REASON_EFFECT,true) + Duel.RDComplete() end end diff --git a/script/c7180418.lua b/script/c7180418.lua index 91cd76ab..42bced3b 100644 --- a/script/c7180418.lua +++ b/script/c7180418.lua @@ -30,9 +30,9 @@ function c7180418.atklimit(e,tp,eg,ep,ev,re,r,rp) e:GetHandler():RegisterEffect(e1) end function c7180418.ccost(e,tp,eg,ep,ev,re,r,rp) - if Duel.IsCanRemoveCounter(tp,1,0,0x3001,1,REASON_COST) and Duel.SelectYesNo(tp,aux.Stringid(7180418,0)) then - Duel.RemoveCounter(tp,1,0,0x3001,1,REASON_COST) + if Duel.IsCanRemoveCounter(tp,1,0,0x1,1,REASON_COST) and Duel.SelectYesNo(tp,aux.Stringid(7180418,0)) then + Duel.RemoveCounter(tp,1,0,0x1,1,REASON_COST) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end diff --git a/script/c7183277.lua b/script/c7183277.lua index 88c39429..8d8a6e82 100644 --- a/script/c7183277.lua +++ b/script/c7183277.lua @@ -7,7 +7,7 @@ function c7183277.initial_effect(c) e1:SetProperty(EFFECT_FLAG_IGNORE_RANGE) e1:SetRange(LOCATION_MZONE) e1:SetTarget(c7183277.etarget) - e1:SetValue(aux.tgval) + e1:SetValue(1) c:RegisterEffect(e1) --discard deck local e2=Effect.CreateEffect(c) diff --git a/script/c71863024.lua b/script/c71863024.lua new file mode 100644 index 00000000..848cfc71 --- /dev/null +++ b/script/c71863024.lua @@ -0,0 +1,107 @@ +--EMラディッシュ・ホース +function c71863024.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --atk change (pzone) + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetTarget(c71863024.atktg) + e1:SetOperation(c71863024.atkop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(71863024,0)) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_HAND) + e2:SetCondition(c71863024.hspcon) + c:RegisterEffect(e2) + --atk change (mzone) + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_ATKCHANGE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetTarget(c71863024.atktg2) + e3:SetOperation(c71863024.atkop2) + c:RegisterEffect(e3) +end +function c71863024.atkfilter(c) + return c:IsFaceup() and c:IsSetCard(0x9f) and c:GetAttack()>0 +end +function c71863024.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) + and Duel.IsExistingTarget(c71863024.atkfilter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPPO) + local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) + e:SetLabelObject(g:GetFirst()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELF) + Duel.SelectTarget(tp,c71863024.atkfilter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c71863024.atkop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local hc=e:GetLabelObject() + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local tc=g:GetFirst() + if tc==hc then tc=g:GetNext() end + if hc:IsFaceup() and hc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then + local atk=tc:GetAttack() + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(-atk) + e1:SetReset(RESET_EVENT+0x1fe0000) + hc:RegisterEffect(e1) + end +end +function c71863024.filter(c) + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c71863024.hspcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c71863024.filter,tp,0,LOCATION_MZONE,1,nil) + and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)<=Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE) +end +function c71863024.atktg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) + and Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPPO) + local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) + e:SetLabelObject(g:GetFirst()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELF) + Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) +end +function c71863024.atkop2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local hc=e:GetLabelObject() + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local tc=g:GetFirst() + if tc==hc then tc=g:GetNext() end + if hc:IsFaceup() and hc:IsRelateToEffect(e) and not hc:IsImmuneToEffect(e) then + local atk=c:GetAttack() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(-atk) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + hc:RegisterEffect(e1) + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e2:SetValue(atk) + tc:RegisterEffect(e2) + end + end +end diff --git a/script/c71870152.lua b/script/c71870152.lua index ecc5cfe1..8ed95490 100644 --- a/script/c71870152.lua +++ b/script/c71870152.lua @@ -9,7 +9,7 @@ function c71870152.initial_effect(c) e1:SetValue(c71870152.value) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e2) --level up local e3=Effect.CreateEffect(c) @@ -54,7 +54,7 @@ function c71870152.descon(e,tp,eg,ep,ev,re,r,rp) return c:IsFaceup() and c:IsAttackPos() and c:GetSummonType()==SUMMON_TYPE_SPECIAL+0x8 end function c71870152.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c71870152.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c71870152.filter(chkc) end diff --git a/script/c71921856.lua b/script/c71921856.lua old mode 100755 new mode 100644 index 6aec4c2c..65d5bf17 --- a/script/c71921856.lua +++ b/script/c71921856.lua @@ -67,6 +67,7 @@ function c71921856.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local ct=e:GetLabel() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ct>ft then ct=ft end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c71921856.spfilter,tp,LOCATION_GRAVE,0,1,ct,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) @@ -74,6 +75,8 @@ end function c71921856.spop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end if ft0 then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) diff --git a/script/c7194917.lua b/script/c7194917.lua index b82766ec..cd182493 100644 --- a/script/c7194917.lua +++ b/script/c7194917.lua @@ -46,7 +46,7 @@ function c7194917.adop(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetValue(0) e2:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) c:RegisterEffect(e2) @@ -57,7 +57,7 @@ function c7194917.poscon1(e,tp,eg,ep,ev,re,r,rp) end function c7194917.posop1(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsAttackPos() then - Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENCE) + Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENSE) end end function c7194917.poscon2(e,tp,eg,ep,ev,re,r,rp) @@ -65,7 +65,7 @@ function c7194917.poscon2(e,tp,eg,ep,ev,re,r,rp) end function c7194917.posop2(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToBattle() and c:IsDefencePos() then + if c:IsRelateToBattle() and c:IsDefensePos() then Duel.ChangePosition(c,POS_FACEUP_ATTACK) end end diff --git a/script/c7198399.lua b/script/c7198399.lua new file mode 100644 index 00000000..8547af95 --- /dev/null +++ b/script/c7198399.lua @@ -0,0 +1,70 @@ +--チョコ・マジシャン・ガール +function c7198399.initial_effect(c) + --draw + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(7198399,0)) + e1:SetCategory(CATEGORY_DRAW) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCost(c7198399.drcost) + e1:SetTarget(c7198399.drtg) + e1:SetOperation(c7198399.drop) + c:RegisterEffect(e1) + --change battle target + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(7198399,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_ATKCHANGE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_BE_BATTLE_TARGET) + e2:SetCountLimit(1) + e2:SetTarget(c7198399.sptg) + e2:SetOperation(c7198399.spop) + c:RegisterEffect(e2) +end +function c7198399.costfilter(c) + return c:IsRace(RACE_SPELLCASTER) and c:IsDiscardable() +end +function c7198399.drcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c7198399.costfilter,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,c7198399.costfilter,1,1,REASON_DISCARD+REASON_COST) +end +function c7198399.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c7198399.drop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end +function c7198399.spfilter(c,e,tp) + return c:IsRace(RACE_SPELLCASTER) and not c:IsCode(7198399) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c7198399.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c7198399.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c7198399.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c7198399.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c7198399.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)>0 then + local a=Duel.GetAttacker() + local ag=a:GetAttackableTarget() + if a:IsAttackable() and not a:IsImmuneToEffect(e) and ag:IsContains(tc) then + Duel.BreakEffect() + Duel.ChangeAttackTarget(tc) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(math.ceil(a:GetAttack()/2)) + a:RegisterEffect(e1) + end + end +end diff --git a/script/c71985676.lua b/script/c71985676.lua new file mode 100644 index 00000000..4b04e83d --- /dev/null +++ b/script/c71985676.lua @@ -0,0 +1,68 @@ +--EMバリアバルーンバク +function c71985676.initial_effect(c) + --Damage to 0 + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(71985676,0)) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c71985676.dmcon) + e1:SetCost(c71985676.dmcost) + e1:SetOperation(c71985676.dmop) + c:RegisterEffect(e1) + --Special Summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(71985676,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_ATTACK_ANNOUNCE) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,71985676) + e2:SetCondition(c71985676.spcon) + e2:SetCost(c71985676.spcost) + e2:SetTarget(c71985676.sptg) + e2:SetOperation(c71985676.spop) + c:RegisterEffect(e2) +end +function c71985676.dmcon(e,tp,eg,ep,ev,re,r,rp) + local a=Duel.GetAttacker() + local d=Duel.GetAttackTarget() + return d and a:GetControler()~=d:GetControler() +end +function c71985676.dmcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) +end +function c71985676.dmop(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) + e1:SetOperation(c71985676.damop) + e1:SetReset(RESET_PHASE+PHASE_DAMAGE) + Duel.RegisterEffect(e1,tp) +end +function c71985676.damop(e,tp,eg,ep,ev,re,r,rp) + Duel.ChangeBattleDamage(tp,0) + Duel.ChangeBattleDamage(1-tp,0) +end +function c71985676.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil +end +function c71985676.spcfilter(c) + return c:IsSetCard(0x9f) and c:IsType(TYPE_MONSTER) and c:IsDiscardable() +end +function c71985676.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c71985676.spcfilter,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,c71985676.spcfilter,1,1,REASON_COST+REASON_DISCARD) +end +function c71985676.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c71985676.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + end +end diff --git a/script/c7200041.lua b/script/c7200041.lua index f393a21a..17a3df08 100644 --- a/script/c7200041.lua +++ b/script/c7200041.lua @@ -1,5 +1,6 @@ --メタル・シューター function c7200041.initial_effect(c) + c:EnableCounterPermit(0x26) --summon success local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(7200041,0)) @@ -32,7 +33,7 @@ function c7200041.addct(e,tp,eg,ep,ev,re,r,rp,chk) end function c7200041.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x26+COUNTER_NEED_ENABLE,2) + e:GetHandler():AddCounter(0x26,2) end end function c7200041.attackup(e,c) diff --git a/script/c72053645.lua b/script/c72053645.lua index c3d7d9ee..278fa1c2 100644 --- a/script/c72053645.lua +++ b/script/c72053645.lua @@ -10,7 +10,7 @@ function c72053645.initial_effect(c) c:RegisterEffect(e1) end function c72053645.filter(c) - return c:IsFaceup() and c:IsCode(72302403) and c:IsDestructable() + return c:IsFaceup() and c:IsCode(72302403) end function c72053645.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -25,7 +25,7 @@ function c72053645.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetCode(EFFECT_BP_TWICE) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetTargetRange(1,0) - if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_BATTLE then + if Duel.GetTurnPlayer()==tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) then e1:SetLabel(Duel.GetTurnCount()) e1:SetCondition(c72053645.bpcon) e1:SetReset(RESET_PHASE+PHASE_BATTLE+RESET_SELF_TURN,2) diff --git a/script/c72150572.lua b/script/c72150572.lua index d39eb0bf..b59349f4 100644 --- a/script/c72150572.lua +++ b/script/c72150572.lua @@ -12,7 +12,7 @@ function c72150572.initial_effect(c) c:RegisterEffect(e1) end function c72150572.filter(c) - return c:IsFaceup() and c:IsType(TYPE_FUSION) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_FUSION) end function c72150572.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c72150572.filter(chkc) end diff --git a/script/c72181263.lua b/script/c72181263.lua index 8d44ab07..902017a8 100644 --- a/script/c72181263.lua +++ b/script/c72181263.lua @@ -33,11 +33,11 @@ function c72181263.initial_effect(c) c:RegisterEffect(e3) end function c72181263.desfilter1(c,tp,ec) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) and Duel.IsExistingTarget(c72181263.desfilter2,tp,LOCATION_ONFIELD,0,1,c,ec) end function c72181263.desfilter2(c,ec) - return c~=ec and c:IsFaceup() and (c:IsSetCard(0xaf) or c:IsSetCard(0xae)) and c:IsDestructable() + return c~=ec and c:IsFaceup() and (c:IsSetCard(0xaf) or c:IsSetCard(0xae)) end function c72181263.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end @@ -67,8 +67,10 @@ function c72181263.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c72181263.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c72181263.regop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c72192100.lua b/script/c72192100.lua old mode 100755 new mode 100644 index f306b4fa..3a09f1e7 --- a/script/c72192100.lua +++ b/script/c72192100.lua @@ -21,7 +21,7 @@ function c72192100.initial_effect(c) local e3=Effect.CreateEffect(c) e3:SetCategory(CATEGORY_SPECIAL_SUMMON) e3:SetDescription(aux.Stringid(72192100,0)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e3:SetType(EFFECT_TYPE_QUICK_O) e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) e3:SetCode(EVENT_TO_GRAVE) e3:SetRange(LOCATION_HAND) @@ -37,7 +37,7 @@ function c72192100.mtop(e,tp,eg,ep,ev,re,r,rp) if Duel.CheckLPCost(tp,500) then Duel.PayLPCost(tp,500) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end function c72192100.disop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c72204747.lua b/script/c72204747.lua index 5a44a453..0d564168 100644 --- a/script/c72204747.lua +++ b/script/c72204747.lua @@ -11,8 +11,8 @@ function c72204747.initial_effect(c) c:RegisterEffect(e1) end function c72204747.filter1(c,e,sp) - local lv=c:GetLevel()/2 - return lv>1 and c:IsSetCard(0xc008) + local lv=math.floor(c:GetLevel()/2) + return lv>0 and c:IsSetCard(0xc008) and Duel.IsExistingMatchingCard(c72204747.filter2,sp,LOCATION_DECK,0,1,nil,lv,e,sp) end function c72204747.filter2(c,lv,e,sp) @@ -31,10 +31,10 @@ function c72204747.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if not tc or not tc:IsRelateToEffect(e) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local cg=Duel.SelectMatchingCard(tp,c72204747.filter2,tp,LOCATION_DECK,0,1,1,nil,tc:GetLevel()/2,e,tp) + local cg=Duel.SelectMatchingCard(tp,c72204747.filter2,tp,LOCATION_DECK,0,1,1,nil,math.floor(tc:GetLevel()/2),e,tp) if cg:GetCount()==0 then return end local sc=cg:GetFirst() - Duel.SpecialSummon(cg,0,tp,tp,false,false,POS_FACEUP); + Duel.SpecialSummon(cg,0,tp,tp,false,false,POS_FACEUP) --destroy local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) @@ -46,5 +46,5 @@ function c72204747.activate(e,tp,eg,ep,ev,re,r,rp) sc:RegisterEffect(e1) end function c72204747.des(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(), REASON_EFFECT) + Duel.Destroy(e:GetHandler(),REASON_EFFECT) end diff --git a/script/c72258771.lua b/script/c72258771.lua index facca565..f9ffb573 100644 --- a/script/c72258771.lua +++ b/script/c72258771.lua @@ -41,6 +41,8 @@ function c72258771.cfilter1(c) return c:IsCode(36623431) and c:IsAbleToGraveAsCost() end function c72258771.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c72258771.cfilter1,tp,LOCATION_HAND,0,nil) local select=1 if g1:GetCount()>0 then @@ -53,7 +55,7 @@ function c72258771.mtop(e,tp,eg,ep,ev,re,r,rp) local g=g1:Select(tp,1,1,nil) Duel.SendtoGrave(g,REASON_COST) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c72258771.otfilter(c,tp) diff --git a/script/c72287557.lua b/script/c72287557.lua index ea4934ea..316e5c83 100644 --- a/script/c72287557.lua +++ b/script/c72287557.lua @@ -29,9 +29,7 @@ function c72287557.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c72287557.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,0,0) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp) end end diff --git a/script/c72291078.lua b/script/c72291078.lua old mode 100755 new mode 100644 diff --git a/script/c72291412.lua b/script/c72291412.lua old mode 100755 new mode 100644 diff --git a/script/c72302403.lua b/script/c72302403.lua index 6c24506c..73d4cc48 100644 --- a/script/c72302403.lua +++ b/script/c72302403.lua @@ -43,7 +43,7 @@ end function c72302403.activate(e,tp,eg,ep,ev,re,r,rp) local sg=Duel.GetMatchingGroup(Card.IsFacedown,tp,0,LOCATION_MZONE,nil) if sg:GetCount()>0 then - Duel.ChangePosition(sg,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_DEFENCE,POS_FACEUP_DEFENCE) + Duel.ChangePosition(sg,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE) end end function c72302403.descon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c72318602.lua b/script/c72318602.lua new file mode 100644 index 00000000..51528c91 --- /dev/null +++ b/script/c72318602.lua @@ -0,0 +1,35 @@ +--レッド・ガードナー +function c72318602.initial_effect(c) + --indes + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_CHAINING) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c72318602.condition) + e1:SetCost(c72318602.cost) + e1:SetOperation(c72318602.operation) + c:RegisterEffect(e1) +end +function c72318602.filter(c) + return c:IsFaceup() and c:IsSetCard(0x1045) +end +function c72318602.condition(e,tp,eg,ep,ev,re,r,rp) + return ep~=tp and Duel.IsExistingMatchingCard(c72318602.filter,tp,LOCATION_MZONE,0,1,nil) +end +function c72318602.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST) +end +function c72318602.operation(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e1:SetTargetRange(LOCATION_MZONE,0) + e1:SetValue(c72318602.indval) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c72318602.indval(e,re,rp) + return rp~=e:GetHandlerPlayer() +end diff --git a/script/c72345736.lua b/script/c72345736.lua index 81b342b6..fadef490 100644 --- a/script/c72345736.lua +++ b/script/c72345736.lua @@ -1,7 +1,7 @@ --六武衆の結束 function c72345736.initial_effect(c) - c:EnableCounterPermit(0x3003) - c:SetCounterLimit(0x3003,2) + c:EnableCounterPermit(0x3) + c:SetCounterLimit(0x3,2) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -33,18 +33,18 @@ function c72345736.ctfilter(c) end function c72345736.ctop(e,tp,eg,ep,ev,re,r,rp) if eg:IsExists(c72345736.ctfilter,1,nil) then - e:GetHandler():AddCounter(0x3003,1) + e:GetHandler():AddCounter(0x3,1) end end function c72345736.drcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - local ct=e:GetHandler():GetCounter(0x3003) + local ct=e:GetHandler():GetCounter(0x3) e:SetLabel(ct) Duel.SendtoGrave(e:GetHandler(),REASON_COST) end function c72345736.drtg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() - if chk==0 then return c:GetCounter(0x3003)>0 and Duel.IsPlayerCanDraw(tp,c:GetCounter(0x3003)) end + if chk==0 then return c:GetCounter(0x3)>0 and Duel.IsPlayerCanDraw(tp,c:GetCounter(0x3)) end local ct=e:GetLabel() Duel.SetTargetPlayer(tp) Duel.SetTargetParam(ct) diff --git a/script/c72370114.lua b/script/c72370114.lua index 50a58a8d..c351175e 100644 --- a/script/c72370114.lua +++ b/script/c72370114.lua @@ -29,14 +29,14 @@ end function c72370114.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c72370114.cfilter(c) return c:IsFaceup() and c:IsSetCard(0x72) end function c72370114.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c72370114.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c72370114.cfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) diff --git a/script/c72378329.lua b/script/c72378329.lua old mode 100755 new mode 100644 diff --git a/script/c72403299.lua b/script/c72403299.lua old mode 100755 new mode 100644 diff --git a/script/c72405967.lua b/script/c72405967.lua index efd07a58..0d08d31d 100644 --- a/script/c72405967.lua +++ b/script/c72405967.lua @@ -19,14 +19,8 @@ function c72405967.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,PLAYER_ALL,LOCATION_HAND) end function c72405967.activate(e,tp,eg,ep,ev,re,r,rp) - local g1=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - local g2=Duel.GetFieldGroup(tp,0,LOCATION_HAND) - Duel.ConfirmCards(tp,g2) - Duel.ConfirmCards(1-tp,g1) - local dg1=g1:Filter(Card.IsType,nil,TYPE_MONSTER) - local dg2=g2:Filter(Card.IsType,nil,TYPE_MONSTER) - dg1:Merge(dg2) - if dg1:GetCount()>0 then Duel.SendtoGrave(dg1,REASON_EFFECT+REASON_DISCARD) end - Duel.ShuffleHand(tp) - Duel.ShuffleHand(1-tp) + local g=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_HAND,LOCATION_HAND,nil,TYPE_MONSTER) + if g:GetCount()>0 then + Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD) + end end diff --git a/script/c7241272.lua b/script/c7241272.lua new file mode 100644 index 00000000..5e6bd693 --- /dev/null +++ b/script/c7241272.lua @@ -0,0 +1,101 @@ +--獄炎のカース・オブ・ドラゴン +function c7241272.initial_effect(c) + --destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(7241272,0)) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e1:SetTarget(c7241272.destg) + e1:SetOperation(c7241272.desop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(7241272,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetTarget(c7241272.sptg) + e3:SetOperation(c7241272.spop) + c:RegisterEffect(e3) +end +function c7241272.desfilter(c) + return c:GetSequence()==5 +end +function c7241272.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_SZONE) and c7241272.desfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c7241272.desfilter,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c7241272.desfilter,tp,LOCATION_SZONE,LOCATION_SZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c7241272.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c7241272.spfilter1(c,e) + return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) +end +function c7241272.spfilter2(c,e,tp,m,f,gc) + return c:IsType(TYPE_FUSION) and (not f or f(c)) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,gc) +end +function c7241272.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then + local mg1=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_MZONE,0,c) + local res=Duel.IsExistingMatchingCard(c7241272.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,c) + if not res then + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + local mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + res=Duel.IsExistingMatchingCard(c7241272.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,c) + end + end + return res + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c7241272.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsFacedown() or not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end + local mg1=Duel.GetMatchingGroup(c7241272.spfilter1,tp,LOCATION_MZONE,0,c,e) + local sg1=Duel.GetMatchingGroup(c7241272.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,c) + local mg2=nil + local sg2=nil + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + sg2=Duel.GetMatchingGroup(c7241272.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,c) + end + if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then + local sg=sg1:Clone() + if sg2 then sg:Merge(sg2) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=sg:Select(tp,1,1,nil) + local tc=tg:GetFirst() + if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then + local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,c) + tc:SetMaterial(mat1) + Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) + else + local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,c) + local fop=ce:GetOperation() + fop(ce,e,tp,tc,mat2) + end + tc:CompleteProcedure() + end +end diff --git a/script/c72413000.lua b/script/c72413000.lua old mode 100755 new mode 100644 diff --git a/script/c72426662.lua b/script/c72426662.lua index 725aac89..aca7773c 100644 --- a/script/c72426662.lua +++ b/script/c72426662.lua @@ -18,11 +18,11 @@ function c72426662.cost(e,tp,eg,ep,ev,re,r,rp,chk) end function c72426662.target(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) end function c72426662.operation(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.Destroy(sg,REASON_EFFECT) end diff --git a/script/c72429240.lua b/script/c72429240.lua index f211a8a0..d2f1881f 100644 --- a/script/c72429240.lua +++ b/script/c72429240.lua @@ -17,7 +17,7 @@ function c72429240.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c72429240.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c72429240.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c72429240.filter(chkc) end diff --git a/script/c7243511.lua b/script/c7243511.lua index a82426fa..98b518c5 100644 --- a/script/c7243511.lua +++ b/script/c7243511.lua @@ -25,10 +25,10 @@ function c7243511.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(cg,REASON_COST) end function c7243511.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c7243511.operation(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c72491806.lua b/script/c72491806.lua old mode 100755 new mode 100644 diff --git a/script/c72502414.lua b/script/c72502414.lua index ed70bd4f..ba261c8e 100644 --- a/script/c72502414.lua +++ b/script/c72502414.lua @@ -13,7 +13,7 @@ function c72502414.initial_effect(c) c:RegisterEffect(e1) end function c72502414.filter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) and c:IsType(TYPE_XYZ) + return c:IsFaceup() and c:IsSetCard(0x107f) and c:IsType(TYPE_XYZ) end function c72502414.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c72502414.filter(chkc) end diff --git a/script/c72520073.lua b/script/c72520073.lua index 050b0832..aed677d8 100644 --- a/script/c72520073.lua +++ b/script/c72520073.lua @@ -19,8 +19,8 @@ function c72520073.defop(e,tp,eg,ep,ev,re,r,rp) if c:IsRelateToEffect(e) and c:IsFaceup() then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_DEFENCE) - e1:SetValue(c:GetDefence()/2) + e1:SetCode(EFFECT_SET_DEFENSE) + e1:SetValue(c:GetDefense()/2) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE) c:RegisterEffect(e1) end diff --git a/script/c72537897.lua b/script/c72537897.lua index 53099a51..aee3001c 100644 --- a/script/c72537897.lua +++ b/script/c72537897.lua @@ -19,24 +19,16 @@ end function c72537897.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local g=Duel.GetMatchingGroup(c72537897.spfilter,tp,LOCATION_DECK,0,nil,e,tp) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and g:GetClassCount(Card.GetCode)>=3 end + return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and g:GetClassCount(Card.GetCode)>=3 end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,tp,LOCATION_DECK) end function c72537897.activate(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if e:IsHasType(EFFECT_TYPE_ACTIVATE) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetTargetRange(1,0) - e1:SetTarget(c72537897.splimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=2 then return end local g=Duel.GetMatchingGroup(c72537897.spfilter,tp,LOCATION_DECK,0,nil,e,tp) - if g:GetClassCount(Card.GetCode)>=3 then + if not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>2 + and g:GetClassCount(Card.GetCode)>=3 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg1=g:Select(tp,1,1,nil) g:Remove(Card.IsCode,nil,sg1:GetFirst():GetCode()) @@ -77,6 +69,16 @@ function c72537897.activate(e,tp,eg,ep,ev,re,r,rp) Duel.RegisterEffect(e3,tp) Duel.SpecialSummonComplete() end + if e:IsHasType(EFFECT_TYPE_ACTIVATE) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetTargetRange(1,0) + e1:SetTarget(c72537897.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + end end function c72537897.splimit(e,c) return c:GetRace()~=RACE_BEAST diff --git a/script/c72580321.lua b/script/c72580321.lua index 9f64d7bc..4e15de30 100644 --- a/script/c72580321.lua +++ b/script/c72580321.lua @@ -29,13 +29,15 @@ function c72580321.filter(c,e,tp) end function c72580321.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c72580321.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c72580321.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c72580321.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) end function c72580321.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if Duel.GetLocationCount(tp,LOCATION_MZONE)ct then - if ct>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - sg=g1:Select(tp,1,1,nil) - else - sg=Group.CreateGroup() - end - dg:Sub(sg) - else - sg=g1:Clone() - dg:Clear() - end - local tc=sg:GetFirst() - while tc do - Duel.GetControl(tc,tp,PHASE_END+RESET_SELF_TURN,1) - tc=sg:GetNext() - end - if dg:GetCount()>0 then Duel.Destroy(dg,REASON_RULE) end + local rct=1 + if Duel.GetTurnPlayer()~=tp then rct=2 end + Duel.GetControl(g,tp,PHASE_END,rct) end diff --git a/script/c72648577.lua b/script/c72648577.lua index ddc160df..1e41e761 100644 --- a/script/c72648577.lua +++ b/script/c72648577.lua @@ -17,7 +17,7 @@ function c72648577.filter(c) return c:IsSetCard(0xaf) and c:IsAbleToDeck() end function c72648577.thfilter(c) - return c:IsSetCard(0xaf) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0xaf) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c72648577.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c72648577.filter,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_HAND,0,3,nil) end @@ -28,6 +28,7 @@ function c72648577.operation(e,tp,eg,ep,ev,re,r,rp) if g:GetCount()<3 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) local sg=g:Select(tp,3,3,nil) + if sg:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end local cg=sg:Filter(Card.IsLocation,nil,LOCATION_HAND) Duel.ConfirmCards(1-tp,cg) Duel.SendtoDeck(sg,nil,0,REASON_EFFECT) diff --git a/script/c72648810.lua b/script/c72648810.lua new file mode 100644 index 00000000..786b8586 --- /dev/null +++ b/script/c72648810.lua @@ -0,0 +1,32 @@ +--揺るがぬ絆 +function c72648810.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_NEGATE+CATEGORY_REMOVE) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_CHAINING) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e1:SetCondition(c72648810.condition) + e1:SetTarget(c72648810.target) + e1:SetOperation(c72648810.activate) + c:RegisterEffect(e1) +end +function c72648810.condition(e,tp,eg,ep,ev,re,r,rp) + local loc,seq=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION,CHAININFO_TRIGGERING_SEQUENCE) + return rp~=tp and re:IsActiveType(TYPE_PENDULUM) and (re:IsActiveType(TYPE_MONSTER) + or (loc==LOCATION_SZONE and (seq==6 or seq==7) and not re:IsHasType(EFFECT_TYPE_ACTIVATE))) + and Duel.IsChainNegatable(ev) +end +function c72648810.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsAbleToRemove() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_REMOVE,eg,1,0,0) + end +end +function c72648810.activate(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + if re:GetHandler():IsRelateToEffect(re) then + Duel.Remove(eg,POS_FACEUP,REASON_EFFECT) + end +end diff --git a/script/c72664875.lua b/script/c72664875.lua new file mode 100644 index 00000000..07817f19 --- /dev/null +++ b/script/c72664875.lua @@ -0,0 +1,82 @@ +--暗黒方界邪神クリムソン・ノヴァ・トリニティ +function c72664875.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcCodeRep(c,30270176,3,false,false) + --spsummon condition + local e0=Effect.CreateEffect(c) + e0:SetType(EFFECT_TYPE_SINGLE) + e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e0:SetCode(EFFECT_SPSUMMON_CONDITION) + e0:SetValue(aux.fuslimit) + c:RegisterEffect(e0) + --Immune + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetValue(aux.tgoval) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e2:SetValue(c72664875.tgvalue) + c:RegisterEffect(e2) + --Halve LP + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetCode(EVENT_ATTACK_ANNOUNCE) + e3:SetOperation(c72664875.hvop) + c:RegisterEffect(e3) + --Extra Attack + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_BATTLE_DESTROYING) + e4:SetCondition(aux.bdcon) + e4:SetTarget(c72664875.atktg) + e4:SetOperation(c72664875.atkop) + c:RegisterEffect(e4) + --damage + local e5=Effect.CreateEffect(c) + e5:SetCategory(CATEGORY_DAMAGE) + e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e5:SetCode(EVENT_DAMAGE) + e5:SetRange(LOCATION_MZONE) + e5:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e5:SetCondition(c72664875.damcon) + e5:SetTarget(c72664875.damtg) + e5:SetOperation(c72664875.damop) + c:RegisterEffect(e5) +end +function c72664875.tgvalue(e,re,rp) + return rp~=e:GetHandlerPlayer() +end +function c72664875.hvop(e,tp,eg,ep,ev,re,r,rp) + Duel.SetLP(1-tp,math.ceil(Duel.GetLP(1-tp)/2)) +end +function c72664875.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsRelateToBattle() and not e:GetHandler():IsHasEffect(EFFECT_EXTRA_ATTACK) end +end +function c72664875.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToBattle() then return end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_EXTRA_ATTACK) + e1:SetValue(1) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) + c:RegisterEffect(e1) +end +function c72664875.damcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(r,REASON_EFFECT)~=0 and ep==tp +end +function c72664875.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(ev) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,ev) +end +function c72664875.damop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) +end diff --git a/script/c7268133.lua b/script/c7268133.lua new file mode 100644 index 00000000..85750c28 --- /dev/null +++ b/script/c7268133.lua @@ -0,0 +1,66 @@ +--EMライフ・ソードマン +function c7268133.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetRange(LOCATION_HAND) + e1:SetCode(EVENT_RECOVER) + e1:SetCondition(c7268133.spcon) + e1:SetTarget(c7268133.sptg) + e1:SetOperation(c7268133.spop) + c:RegisterEffect(e1) + --atk + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCost(c7268133.atkcost) + e2:SetTarget(c7268133.atktg) + e2:SetOperation(c7268133.atkop) + c:RegisterEffect(e2) +end +function c7268133.spcon(e,tp,eg,ep,ev,re,r,rp) + return ep~=tp +end +function c7268133.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c7268133.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(ev) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c7268133.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c7268133.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end + if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) +end +function c7268133.atkop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsFacedown() or not tc:IsRelateToEffect(e) then return end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(1000) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) +end diff --git a/script/c72708264.lua b/script/c72708264.lua new file mode 100644 index 00000000..a82264b4 --- /dev/null +++ b/script/c72708264.lua @@ -0,0 +1,55 @@ +--EMボットアイズ・リザード +function c72708264.initial_effect(c) + --copy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(72708264,0)) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCondition(c72708264.copycon) + e1:SetCost(c72708264.copycost) + e1:SetOperation(c72708264.copyop) + c:RegisterEffect(e1) +end +function c72708264.copycon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsStatus(STATUS_SUMMON_TURN+STATUS_SPSUMMON_TURN) +end +function c72708264.costfilter(c) + return c:IsSetCard(0x99) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() +end +function c72708264.copycost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c72708264.costfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c72708264.costfilter,tp,LOCATION_DECK,0,1,1,nil) + Duel.SendtoGrave(g,REASON_COST) + e:SetLabel(g:GetFirst():GetCode()) +end +function c72708264.copyop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CHANGE_CODE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(e:GetLabel()) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(72708264,1)) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_PHASE+PHASE_END) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetCountLimit(1) + e2:SetRange(LOCATION_MZONE) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e2:SetLabelObject(e1) + e2:SetOperation(c72708264.rstop) + c:RegisterEffect(e2) +end +function c72708264.rstop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=e:GetLabelObject() + e1:Reset() + Duel.HintSelection(Group.FromCards(c)) + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) +end diff --git a/script/c72709014.lua b/script/c72709014.lua index 12d94ed5..09b0bfb8 100644 --- a/script/c72709014.lua +++ b/script/c72709014.lua @@ -42,12 +42,10 @@ function c72709014.initial_effect(c) c:RegisterEffect(e5) end function c72709014.eqlimit(e,c) - local code=c:GetCode() - return code==81383947 or code==46128076 + return c:IsCode(81383947,46128076) end function c72709014.filter(c) - local code=c:GetCode() - return c:IsFaceup() and (code==81383947 or code==46128076) + return c:IsFaceup() and c:IsCode(81383947,46128076) end function c72709014.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c72709014.filter(chkc) end diff --git a/script/c72767833.lua b/script/c72767833.lua index 94e39c33..cf701cc7 100644 --- a/script/c72767833.lua +++ b/script/c72767833.lua @@ -25,6 +25,6 @@ end function c72767833.activate(e,tp,eg,ep,ev,re,r,rp) local sg=Duel.GetFieldGroup(tp,0,LOCATION_MZONE,nil) if sg:GetCount()>0 then - Duel.ChangePosition(sg,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(sg,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end diff --git a/script/c72772445.lua b/script/c72772445.lua new file mode 100644 index 00000000..e71f812a --- /dev/null +++ b/script/c72772445.lua @@ -0,0 +1,68 @@ +--トラミッド・キングゴレム +function c72772445.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --atk + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetRange(LOCATION_FZONE) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_ROCK)) + e2:SetValue(500) + c:RegisterEffect(e2) + --actlimit + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetCode(EFFECT_CANNOT_ACTIVATE) + e3:SetRange(LOCATION_FZONE) + e3:SetTargetRange(0,1) + e3:SetValue(c72772445.aclimit) + e3:SetCondition(c72772445.actcon) + c:RegisterEffect(e3) + --spsummon + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetProperty(EFFECT_FLAG_DELAY) + e4:SetCountLimit(1,72772445) + e4:SetCondition(c72772445.spcon) + e4:SetTarget(c72772445.sptg) + e4:SetOperation(c72772445.spop) + c:RegisterEffect(e4) +end +function c72772445.actfilter(c,tp) + return c and c:IsFaceup() and c:IsSetCard(0xe2) and c:IsType(TYPE_MONSTER) and c:IsControler(tp) +end +function c72772445.aclimit(e,re,tp) + return not re:GetHandler():IsImmuneToEffect(e) +end +function c72772445.actcon(e) + local tp=e:GetHandlerPlayer() + return c72772445.actfilter(Duel.GetAttacker(),tp) or c72772445.actfilter(Duel.GetAttackTarget(),tp) +end +function c72772445.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_SZONE) and c:GetPreviousSequence()==5 and c:IsPreviousPosition(POS_FACEUP) +end +function c72772445.spfilter(c,e,tp) + return c:IsSetCard(0xe2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c72772445.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c72772445.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c72772445.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c72772445.spfilter,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 diff --git a/script/c72855441.lua b/script/c72855441.lua new file mode 100644 index 00000000..fbe9186d --- /dev/null +++ b/script/c72855441.lua @@ -0,0 +1,67 @@ +--青き眼の護人 +function c72855441.initial_effect(c) + --Special Summon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c72855441.sptg) + e1:SetOperation(c72855441.spop) + c:RegisterEffect(e1) + --To grave + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1,72855441) + e2:SetTarget(c72855441.gvtg) + e2:SetOperation(c72855441.gvop) + c:RegisterEffect(e2) +end +function c72855441.spfilter1(c,e,tp) + return c:IsType(TYPE_TUNER) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:GetLevel()==1 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c72855441.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c72855441.spfilter1,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c72855441.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c72855441.spfilter1,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 +function c72855441.gvfilter(c) + return c:IsFaceup() and c:IsType(TYPE_EFFECT) and c:IsAbleToGrave() +end +function c72855441.spfilter2(c,e,tp) + return c:IsSetCard(0xdd) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c72855441.gvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c72855441.gvfilter(chkc) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingTarget(c72855441.gvfilter,tp,LOCATION_MZONE,0,1,nil) + and Duel.IsExistingMatchingCard(c72855441.spfilter2,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectTarget(tp,c72855441.gvfilter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c72855441.gvop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + if Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c72855441.spfilter2,tp,LOCATION_HAND,0,1,nil,e,tp) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c72855441.spfilter2,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 + end +end diff --git a/script/c72896720.lua b/script/c72896720.lua index ea56afeb..7884c70b 100644 --- a/script/c72896720.lua +++ b/script/c72896720.lua @@ -30,10 +30,10 @@ function c72896720.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RegisterEffect(e1,true) end function c72896720.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) local d=g:GetFirst() local atk=0 if d:IsFaceup() then atk=d:GetAttack() end diff --git a/script/c72903645.lua b/script/c72903645.lua index 268ddca7..0c4e5b32 100644 --- a/script/c72903645.lua +++ b/script/c72903645.lua @@ -22,7 +22,7 @@ function c72903645.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c72903645.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c72903645.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c72903645.filter(chkc) end diff --git a/script/c72913666.lua b/script/c72913666.lua index 3e9c406d..a4a5e66b 100644 --- a/script/c72913666.lua +++ b/script/c72913666.lua @@ -41,7 +41,7 @@ end function c72913666.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c72913666.damtg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c72926163.lua b/script/c72926163.lua old mode 100755 new mode 100644 diff --git a/script/c72959823.lua b/script/c72959823.lua index c6dea52f..6a4b0a73 100644 --- a/script/c72959823.lua +++ b/script/c72959823.lua @@ -19,10 +19,10 @@ function c72959823.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsReason(REASON_DESTROY) end function c72959823.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c72959823.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c73018302.lua b/script/c73018302.lua index f3f4256e..2754a692 100644 --- a/script/c73018302.lua +++ b/script/c73018302.lua @@ -32,7 +32,7 @@ function c73018302.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsAbleToGraveAsCost,1,1,REASON_COST) end function c73018302.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c73018302.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c73018302.filter(chkc) end diff --git a/script/c73026394.lua b/script/c73026394.lua index 43ab68fb..662a52a4 100644 --- a/script/c73026394.lua +++ b/script/c73026394.lua @@ -24,6 +24,9 @@ function c73026394.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c73026394.activate(e,tp,eg,ep,ev,re,r,rp) Duel.NegateActivation(ev) + if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then + Duel.SendtoGrave(eg,REASON_EFFECT) + end local g=Duel.GetMatchingGroup(c73026394.filter,tp,LOCATION_EXTRA,0,nil):RandomSelect(tp,1) Duel.SendtoGrave(g,REASON_EFFECT) end diff --git a/script/c7305060.lua b/script/c7305060.lua new file mode 100644 index 00000000..a8a5459d --- /dev/null +++ b/script/c7305060.lua @@ -0,0 +1,69 @@ +--アモルファージ・プレスト +function c7305060.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --flip + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_FLIP) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetOperation(c7305060.flipop) + c:RegisterEffect(e1) + --maintain + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_PZONE) + e2:SetCountLimit(1) + e2:SetCode(EVENT_PHASE+PHASE_STANDBY) + e2:SetCondition(c7305060.descon) + e2:SetOperation(c7305060.desop) + c:RegisterEffect(e2) + --spsummon limit + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetTargetRange(1,1) + e3:SetTarget(c7305060.sumlimit) + c:RegisterEffect(e3) + --act limit + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_CANNOT_ACTIVATE) + e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e4:SetRange(LOCATION_PZONE) + e4:SetTargetRange(1,1) + e4:SetCondition(c7305060.limcon) + e4:SetValue(c7305060.limval) + c:RegisterEffect(e4) +end +function c7305060.flipop(e,tp,eg,ep,ev,re,r,rp) + e:GetHandler():RegisterFlagEffect(7305060,RESET_EVENT+0x1fe0000,0,1) +end +function c7305060.descon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c7305060.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) + if Duel.CheckReleaseGroup(tp,Card.IsReleasableByEffect,1,c) and Duel.SelectYesNo(tp,aux.Stringid(7305060,0)) then + local g=Duel.SelectReleaseGroup(tp,Card.IsReleasableByEffect,1,1,c) + Duel.Release(g,REASON_COST) + else Duel.Destroy(c,REASON_COST) end +end +function c7305060.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) + return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0xe0) + and (e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM or e:GetHandler():GetFlagEffect(7305060)~=0) +end +function c7305060.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe0) +end +function c7305060.limcon(e) + return Duel.IsExistingMatchingCard(c7305060.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) +end +function c7305060.limval(e,re,rp) + local rc=re:GetHandler() + return re:IsActiveType(TYPE_TRAP) and not rc:IsSetCard(0xe0) and not rc:IsImmuneToEffect(e) +end diff --git a/script/c73079365.lua b/script/c73079365.lua old mode 100755 new mode 100644 index afcc3ab6..8f6c96cc --- a/script/c73079365.lua +++ b/script/c73079365.lua @@ -19,7 +19,7 @@ function c73079365.condition(e,tp,eg,ep,ev,re,r,rp) return rp==1-tp and eg:IsExists(c73079365.filter,1,nil,tp) end function c73079365.desfilter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c73079365.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c73079365.desfilter(chkc) and chkc~=e:GetHandler() end diff --git a/script/c73134082.lua b/script/c73134082.lua deleted file mode 100644 index ea4884f7..00000000 --- a/script/c73134082.lua +++ /dev/null @@ -1,22 +0,0 @@ ---火あぶりの刑(EU) -function c73134082.initial_effect(c) - --damage - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c73134082.damtg) - e1:SetOperation(c73134082.damop) - c:RegisterEffect(e1) -end -function c73134082.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(600) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,600) -end -function c73134082.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c73136204.lua b/script/c73136204.lua index 26d82cf3..bde46cdc 100644 --- a/script/c73136204.lua +++ b/script/c73136204.lua @@ -49,7 +49,7 @@ function c73136204.operation(e,tp,eg,ep,ev,re,r,rp) end function c73136204.tdcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_DECK) and (c:IsReason(REASON_REVEAL) or c:GetPreviousPosition()==POS_FACEUP_DEFENCE) + return c:IsPreviousLocation(LOCATION_DECK) and c:IsReason(REASON_REVEAL) end function c73136204.filter(c) return c:IsSetCard(0x90) and not c:IsCode(73136204) and c:IsAbleToDeck() diff --git a/script/c73146473.lua b/script/c73146473.lua old mode 100755 new mode 100644 index 87b48faf..7e9b1ce3 --- a/script/c73146473.lua +++ b/script/c73146473.lua @@ -41,7 +41,6 @@ function c73146473.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c73146473.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.BreakEffect() Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c73176465.lua b/script/c73176465.lua old mode 100755 new mode 100644 index 8ce2a86a..5cb362e8 --- a/script/c73176465.lua +++ b/script/c73176465.lua @@ -1,68 +1,68 @@ ---ライトロード・アーチャー フェリス -function c73176465.initial_effect(c) - c:EnableUnsummonable() - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(73176465,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c73176465.condtion) - e1:SetTarget(c73176465.target) - e1:SetOperation(c73176465.operation) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(73176465,1)) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DECKDES) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c73176465.descost) - e2:SetTarget(c73176465.destg) - e2:SetOperation(c73176465.desop) - c:RegisterEffect(e2) - --splimit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e3:SetCode(EFFECT_SPSUMMON_CONDITION) - e3:SetValue(c73176465.splimit) - c:RegisterEffect(e3) -end -function c73176465.splimit(e,se,sp,st) - return se:IsHasType(EFFECT_TYPE_ACTIONS) -end -function c73176465.condtion(e,tp,eg,ep,ev,re,r,rp) - return bit.band(r,REASON_EFFECT)~=0 and re:IsActiveType(TYPE_MONSTER) - and e:GetHandler():IsPreviousLocation(LOCATION_DECK) -end -function c73176465.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c73176465.operation(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) - end -end -function c73176465.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c73176465.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3) - and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DECKDES,0,0,tp,3) -end -function c73176465.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then - Duel.BreakEffect() - Duel.DiscardDeck(tp,3,REASON_EFFECT) - end -end +--ライトロード・アーチャー フェリス +function c73176465.initial_effect(c) + c:EnableUnsummonable() + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(73176465,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e1:SetCode(EVENT_TO_GRAVE) + e1:SetCondition(c73176465.condtion) + e1:SetTarget(c73176465.target) + e1:SetOperation(c73176465.operation) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(73176465,1)) + e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DECKDES) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetCost(c73176465.descost) + e2:SetTarget(c73176465.destg) + e2:SetOperation(c73176465.desop) + c:RegisterEffect(e2) + --splimit + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e3:SetCode(EFFECT_SPSUMMON_CONDITION) + e3:SetValue(c73176465.splimit) + c:RegisterEffect(e3) +end +function c73176465.splimit(e,se,sp,st) + return se:IsHasType(EFFECT_TYPE_ACTIONS) +end +function c73176465.condtion(e,tp,eg,ep,ev,re,r,rp) + return bit.band(r,REASON_EFFECT)~=0 and re:IsActiveType(TYPE_MONSTER) + and e:GetHandler():IsPreviousLocation(LOCATION_DECK) +end +function c73176465.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c73176465.operation(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():IsRelateToEffect(e) then + Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + end +end +function c73176465.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c73176465.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3) + and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DECKDES,0,0,tp,3) +end +function c73176465.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + Duel.BreakEffect() + Duel.DiscardDeck(tp,3,REASON_EFFECT) + end +end diff --git a/script/c73199638.lua b/script/c73199638.lua index bb56717c..ab8717a2 100644 --- a/script/c73199638.lua +++ b/script/c73199638.lua @@ -32,7 +32,8 @@ function c73199638.filter(c,e,tp) end function c73199638.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c73199638.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and Duel.IsExistingTarget(c73199638.filter,tp,LOCATION_GRAVE,0,3,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c73199638.filter,tp,LOCATION_GRAVE,0,3,3,nil,e,tp) @@ -42,6 +43,7 @@ function c73199638.rfilter(c,e,tp) return c:IsRelateToEffect(e) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c73199638.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=2 then return end diff --git a/script/c73213494.lua b/script/c73213494.lua old mode 100755 new mode 100644 index ae3ef7d6..0cc8aed6 --- a/script/c73213494.lua +++ b/script/c73213494.lua @@ -49,8 +49,11 @@ function c73213494.sstg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c73213494.ssop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c73213494.thfilter(c) diff --git a/script/c73219648.lua b/script/c73219648.lua old mode 100755 new mode 100644 index 3eb8511a..77c6a56c --- a/script/c73219648.lua +++ b/script/c73219648.lua @@ -33,7 +33,7 @@ function c73219648.mtop(e,tp,eg,ep,ev,re,r,rp) if Duel.CheckLPCost(tp,500) then Duel.PayLPCost(tp,500) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end function c73219648.disop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c73262676.lua b/script/c73262676.lua index 8db8cfc0..0bb0a212 100644 --- a/script/c73262676.lua +++ b/script/c73262676.lua @@ -11,7 +11,7 @@ function c73262676.initial_effect(c) c:RegisterEffect(e1) end function c73262676.filter(c) - return c:IsFaceup() and c:IsSetCard(0xc) and c:GetLevel()>0 and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0xc) and c:GetLevel()>0 end function c73262676.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c73262676.filter(chkc) end @@ -30,7 +30,7 @@ function c73262676.operation(e,tp,eg,ep,ev,re,r,rp) if g:GetCount()==0 then return end for i=1,lv do local sg=g:Select(tp,1,1,nil) - sg:GetFirst():AddCounter(0xe,1) + sg:GetFirst():AddCounter(0x100e,1) end end end diff --git a/script/c73285669.lua b/script/c73285669.lua index 47f31ded..e13f17f8 100644 --- a/script/c73285669.lua +++ b/script/c73285669.lua @@ -24,7 +24,7 @@ function c73285669.splimit(e,se,sp,st) return e:GetHandler():GetLocation()~=LOCATION_EXTRA end function c73285669.spfilter(c) - return c:IsSetCard(0x19) and c:IsCanBeFusionMaterial() and c:IsAbleToDeckOrExtraAsCost() + return c:IsFusionSetCard(0x19) and c:IsCanBeFusionMaterial() and c:IsAbleToDeckOrExtraAsCost() end function c73285669.sprcon(e,c) if c==nil then return true end diff --git a/script/c73289035.lua b/script/c73289035.lua index a5e5e5a8..167ca3c6 100644 --- a/script/c73289035.lua +++ b/script/c73289035.lua @@ -64,6 +64,7 @@ function c73289035.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local ct=e:GetLabel() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ct>ft then ct=ft end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c73289035.spfilter,tp,LOCATION_GRAVE,0,1,ct,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) @@ -71,6 +72,8 @@ end function c73289035.spop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end if ft0 then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) diff --git a/script/c73318863.lua b/script/c73318863.lua old mode 100755 new mode 100644 diff --git a/script/c73347079.lua b/script/c73347079.lua index be548d8d..8788e724 100644 --- a/script/c73347079.lua +++ b/script/c73347079.lua @@ -12,7 +12,7 @@ function c73347079.initial_effect(c) e1:SetValue(c73347079.adval) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) --search local e3=Effect.CreateEffect(c) diff --git a/script/c73359475.lua b/script/c73359475.lua index a4cd1be5..89ba365e 100644 --- a/script/c73359475.lua +++ b/script/c73359475.lua @@ -45,6 +45,5 @@ function c73359475.thop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c73360025.lua b/script/c73360025.lua index c812c81b..2976943f 100644 --- a/script/c73360025.lua +++ b/script/c73360025.lua @@ -111,19 +111,6 @@ function c73360025.spop(e,tp,eg,ep,ev,re,r,rp) fop(ce,e,tp,tc,mat) end tc:CompleteProcedure() - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - local ct=cg1:GetCount() - if not Duel.IsPlayerAffectedByEffect(tp,30459350) then - ct=ct+Duel.GetMatchingGroupCount(c73360025.ctfilter,tp,LOCATION_GRAVE,0,nil) - end - if ct>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end function c73360025.ctfilter(c) diff --git a/script/c73398797.lua b/script/c73398797.lua index 5047108a..6ea45f67 100644 --- a/script/c73398797.lua +++ b/script/c73398797.lua @@ -24,7 +24,7 @@ function c73398797.initial_effect(c) end function c73398797.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsPosition(POS_FACEDOWN_DEFENCE) + return e:GetHandler()==Duel.GetAttacker() and d and d:IsPosition(POS_FACEDOWN_DEFENSE) end function c73398797.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c73428497.lua b/script/c73428497.lua index 1c5f9fcf..bf058c21 100644 --- a/script/c73428497.lua +++ b/script/c73428497.lua @@ -42,6 +42,6 @@ function c73428497.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c73428497.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c73445448.lua b/script/c73445448.lua index 117fd57e..e556fa5e 100644 --- a/script/c73445448.lua +++ b/script/c73445448.lua @@ -42,8 +42,8 @@ function c73445448.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c73445448.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if not c:IsRelateToEffect(e) or c:IsDefencePos() then return end - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,0,0) + if not c:IsRelateToEffect(e) or c:IsDefensePos() then return end + Duel.ChangePosition(c,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,0,0) local tc=Duel.GetFirstTarget() if ((tc:IsFaceup() and not tc:IsDisabled()) or tc:IsType(TYPE_TRAPMONSTER)) and tc:IsRelateToEffect(e) then Duel.NegateRelatedChain(tc,RESET_TURN_SET) diff --git a/script/c734741.lua b/script/c734741.lua old mode 100755 new mode 100644 index 2e1cdc56..024265f3 --- a/script/c734741.lua +++ b/script/c734741.lua @@ -49,7 +49,10 @@ function c734741.sstg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c734741.ssop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c73507661.lua b/script/c73507661.lua index e8043b79..e95db539 100644 --- a/script/c73507661.lua +++ b/script/c73507661.lua @@ -11,7 +11,7 @@ function c73507661.initial_effect(c) c:RegisterEffect(e1) end function c73507661.filter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c73507661.target(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() @@ -23,6 +23,7 @@ end function c73507661.activate(e,tp,eg,ep,ev,re,r,rp) local sg=Duel.GetMatchingGroup(c73507661.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) local ct=Duel.Destroy(sg,REASON_EFFECT) - Duel.Damage(tp,ct*300,REASON_EFFECT) - Duel.Damage(1-tp,ct*300,REASON_EFFECT) + Duel.Damage(tp,ct*300,REASON_EFFECT,true) + Duel.Damage(1-tp,ct*300,REASON_EFFECT,true) + Duel.RDComplete() end diff --git a/script/c73534250.lua b/script/c73534250.lua new file mode 100644 index 00000000..294cd21a --- /dev/null +++ b/script/c73534250.lua @@ -0,0 +1,59 @@ +--BF－逆巻のトルネード +function c73534250.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(73534250,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCondition(c73534250.spcon) + e1:SetTarget(c73534250.sptg) + e1:SetOperation(c73534250.spop) + c:RegisterEffect(e1) +end +function c73534250.ctfilter(c) + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c73534250.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c73534250.ctfilter,tp,0,LOCATION_MZONE,1,nil) +end +function c73534250.filter(c,e,tp) + return c:IsSetCard(0x33) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c73534250.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c73534250.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c73534250.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c73534250.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c73534250.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2) + Duel.SpecialSummonComplete() + end + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetTargetRange(1,0) + e3:SetTarget(c73534250.splimit) + e3:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e3,tp) +end +function c73534250.splimit(e,c,sump,sumtype,sumpos,targetp,se) + return not c:IsSetCard(0x33) and c:IsLocation(LOCATION_EXTRA) +end diff --git a/script/c73551138.lua b/script/c73551138.lua index 63f7109a..19c7b527 100644 --- a/script/c73551138.lua +++ b/script/c73551138.lua @@ -1,5 +1,7 @@ --リチュア・エミリア function c73551138.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,17 +9,6 @@ function c73551138.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(73551138,0)) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c73551138.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --negate trap local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(73551138,1)) @@ -69,39 +60,3 @@ function c73551138.disop(e,tp,eg,ep,ev,re,r,rp) Duel.NegateEffect(ev) end end -function c73551138.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(73551138,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c73551138.retcon) - e1:SetTarget(c73551138.rettg) - e1:SetOperation(c73551138.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c73551138.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c73551138.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c73551138.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c73567374.lua b/script/c73567374.lua index e57d3041..4bdfce9d 100644 --- a/script/c73567374.lua +++ b/script/c73567374.lua @@ -14,27 +14,49 @@ function c73567374.filter(c) end function c73567374.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c73567374.filter,tp,LOCATION_MZONE,0,1,nil) end + local g=Duel.GetMatchingGroup(c73567374.filter,tp,LOCATION_MZONE,0,nil) + Duel.SetTargetCard(g) +end +function c73567374.filter2(c,e) + return c:IsFaceup() and c:IsType(TYPE_DUAL) and not c:IsDualState() and c:IsRelateToEffect(e) and not c:IsImmuneToEffect(e) end function c73567374.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c73567374.filter,tp,LOCATION_MZONE,0,nil) + local c=e:GetHandler() + local g=Duel.GetMatchingGroup(c73567374.filter2,tp,LOCATION_MZONE,0,nil,e) local tc=g:GetFirst() + local fid=c:GetFieldID() while tc do tc:EnableDualState() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCondition(c73567374.flipcon) - e1:SetOperation(c73567374.flipop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1,true) + tc:RegisterFlagEffect(73567374,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1,fid) tc=g:GetNext() end + g:KeepAlive() + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e2:SetCode(EVENT_PHASE+PHASE_END) + e2:SetReset(RESET_PHASE+PHASE_END) + e2:SetCountLimit(1) + e2:SetLabel(fid) + e2:SetLabelObject(g) + e2:SetCondition(c73567374.flipcon) + e2:SetOperation(c73567374.flipop) + Duel.RegisterEffect(e2,tp) +end +function c73567374.flipfilter(c,fid) + return c:GetFlagEffectLabel(73567374)==fid end function c73567374.flipcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsCanTurnSet() + local g=e:GetLabelObject() + if not g:IsExists(c73567374.flipfilter,1,nil,e:GetLabel()) then + g:DeleteGroup() + e:Reset() + return false + else return true end end function c73567374.flipop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangePosition(e:GetHandler(),POS_FACEDOWN_DEFENCE) + local g=e:GetLabelObject() + local dg=g:Filter(c73567374.flipfilter,nil,e:GetLabel()) + g:DeleteGroup() + Duel.ChangePosition(dg,POS_FACEDOWN_DEFENSE) end diff --git a/script/c73578229.lua b/script/c73578229.lua index ab23eb44..fcf5f67d 100644 --- a/script/c73578229.lua +++ b/script/c73578229.lua @@ -27,10 +27,17 @@ function c73578229.initial_effect(c) c:RegisterEffect(e3) --destroy local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_LEAVE_FIELD) - e4:SetOperation(c73578229.desop) + e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) + e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e4:SetCode(EVENT_LEAVE_FIELD_P) + e4:SetOperation(c73578229.checkop) c:RegisterEffect(e4) + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e5:SetCode(EVENT_LEAVE_FIELD) + e5:SetLabelObject(e4) + e5:SetOperation(c73578229.desop) + c:RegisterEffect(e5) end function c73578229.etarget(e,c) return e:GetLabelObject():IsContains(c) @@ -53,8 +60,13 @@ function c73578229.adjustop(e,tp,eg,ep,ev,re,r,rp) Duel.AdjustInstantly(e:GetHandler()) Duel.Readjust() end +function c73578229.checkop(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():IsDisabled() then + e:SetLabel(1) + else e:SetLabel(0) end +end function c73578229.desop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsStatus(STATUS_ACTIVATED) then + if e:GetLabelObject():GetLabel()==0 and e:GetHandler():IsStatus(STATUS_ACTIVATED) then local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if g:GetCount()>0 then local ag=g:GetMaxGroup(Card.GetAttack) diff --git a/script/c73580471.lua b/script/c73580471.lua index d02298bc..db49c7ee 100644 --- a/script/c73580471.lua +++ b/script/c73580471.lua @@ -30,12 +30,12 @@ function c73580471.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO end function c73580471.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c73580471.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) if g:GetCount()>0 then Duel.Destroy(g,REASON_EFFECT) end @@ -50,10 +50,10 @@ function c73580471.poscost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c73580471.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDefencePos() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDefencePos,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEFENCE) - local g=Duel.SelectTarget(tp,Card.IsDefencePos,tp,0,LOCATION_MZONE,1,1,nil) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDefensePos() end + if chk==0 then return Duel.IsExistingTarget(Card.IsDefensePos,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEFENSE) + local g=Duel.SelectTarget(tp,Card.IsDefensePos,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) end function c73580471.posop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c73594093.lua b/script/c73594093.lua new file mode 100644 index 00000000..d79dacd9 --- /dev/null +++ b/script/c73594093.lua @@ -0,0 +1,93 @@ +--錬装融合 +function c73594093.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(73594093,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c73594093.target) + e1:SetOperation(c73594093.activate) + c:RegisterEffect(e1) + --draw + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) + e2:SetDescription(aux.Stringid(73594093,1)) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,73594093) + e2:SetTarget(c73594093.tdtg) + e2:SetOperation(c73594093.tdop) + c:RegisterEffect(e2) +end +function c73594093.filter1(c,e) + return c:IsCanBeFusionMaterial() and not c:IsImmuneToEffect(e) +end +function c73594093.filter2(c,e,tp,m,f,chkf) + return c:IsType(TYPE_FUSION) and c:IsSetCard(0xe1) and (not f or f(c)) + and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf) +end +function c73594093.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_HAND+LOCATION_MZONE,0,nil) + local res=Duel.IsExistingMatchingCard(c73594093.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf) + if not res then + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + local mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + res=Duel.IsExistingMatchingCard(c73594093.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf) + end + end + return res + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c73594093.activate(e,tp,eg,ep,ev,re,r,rp) + local chkf=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and PLAYER_NONE or tp + local mg1=Duel.GetMatchingGroup(c73594093.filter1,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,e) + local sg1=Duel.GetMatchingGroup(c73594093.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf) + local mg2=nil + local sg2=nil + local ce=Duel.GetChainMaterial(tp) + if ce~=nil then + local fgroup=ce:GetTarget() + mg2=fgroup(ce,e,tp) + local mf=ce:GetValue() + sg2=Duel.GetMatchingGroup(c73594093.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf) + end + if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then + local sg=sg1:Clone() + if sg2 then sg:Merge(sg2) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=sg:Select(tp,1,1,nil) + local tc=tg:GetFirst() + if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then + local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) + tc:SetMaterial(mat1) + Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP) + else + local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf) + local fop=ce:GetOperation() + fop(ce,e,tp,tc,mat2) + end + tc:CompleteProcedure() + end +end +function c73594093.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToDeck() and Duel.IsPlayerCanDraw(tp,1) end + Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c73594093.tdop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,0,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_DECK) then + Duel.ShuffleDeck(tp) + Duel.BreakEffect() + Duel.Draw(tp,1,REASON_EFFECT) + end +end diff --git a/script/c73599290.lua b/script/c73599290.lua old mode 100755 new mode 100644 diff --git a/script/c73616671.lua b/script/c73616671.lua new file mode 100644 index 00000000..cc411afd --- /dev/null +++ b/script/c73616671.lua @@ -0,0 +1,34 @@ +--イリュージョン・マジック +function c73616671.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,73616671+EFFECT_COUNT_CODE_OATH) + e1:SetCost(c73616671.cost) + e1:SetTarget(c73616671.target) + e1:SetOperation(c73616671.activate) + c:RegisterEffect(e1) +end +c73616671.card_code_list={46986414} +function c73616671.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsRace,1,nil,RACE_SPELLCASTER) end + local g=Duel.SelectReleaseGroup(tp,Card.IsRace,1,1,nil,RACE_SPELLCASTER) + Duel.Release(g,REASON_COST) +end +function c73616671.filter(c) + return c:IsCode(46986414) and c:IsAbleToHand() +end +function c73616671.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c73616671.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) +end +function c73616671.activate(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c73616671.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,2,nil) + if g:GetCount()>0 and not g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c73648243.lua b/script/c73648243.lua index 80e07e42..f580fa19 100644 --- a/script/c73648243.lua +++ b/script/c73648243.lua @@ -14,7 +14,7 @@ end function c73648243.spcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() return bit.band(c:GetReason(),0x41)==0x41 and c:IsPreviousLocation(LOCATION_MZONE) - and c:IsPreviousPosition(POS_FACEDOWN_DEFENCE) + and c:IsPreviousPosition(POS_FACEDOWN_DEFENSE) end function c73648243.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -26,16 +26,9 @@ function c73648243.spop(e,tp,eg,ep,ev,re,r,rp) if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(2000) + e1:SetCode(EFFECT_SWAP_BASE_AD) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_BASE_DEFENCE) - e2:SetValue(1000) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) Duel.SpecialSummonComplete() end end diff --git a/script/c73652465.lua b/script/c73652465.lua index 3e3439d1..e60381fc 100644 --- a/script/c73652465.lua +++ b/script/c73652465.lua @@ -42,6 +42,6 @@ end function c73652465.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end diff --git a/script/c73659078.lua b/script/c73659078.lua index e8f1ebbd..c19a0412 100644 --- a/script/c73659078.lua +++ b/script/c73659078.lua @@ -44,12 +44,12 @@ function c73659078.operation(e,tp,eg,ep,ev,re,r,rp) for i=1,ct do Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(73659078,1)) local tc=g:Select(tp,1,1,nil):GetFirst() - tc:AddCounter(0x15,1) + tc:AddCounter(0x1015,1) end end function c73659078.atktg(e,c) return not c:IsAttribute(ATTRIBUTE_WATER) end function c73659078.atkval(e,c) - return Duel.GetCounter(0,1,1,0x15)*-200 + return Duel.GetCounter(0,1,1,0x1015)*-200 end diff --git a/script/c73665146.lua b/script/c73665146.lua index b1b5aecd..ce318cdb 100644 --- a/script/c73665146.lua +++ b/script/c73665146.lua @@ -1,7 +1,7 @@ --サイレント・マジシャン LV4 function c73665146.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,5) + c:EnableCounterPermit(0x1) + c:SetCounterLimit(0x1,5) --draw local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) @@ -32,14 +32,14 @@ c73665146.lvupcount=1 c73665146.lvup={72443568} function c73665146.addc(e,tp,eg,ep,ev,re,r,rp) if ep~=tp then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c73665146.attackup(e,c) - return c:GetCounter(0x3001)*500 + return c:GetCounter(0x1)*500 end function c73665146.spcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetCounter(0x3001)==5 and tp==Duel.GetTurnPlayer() + return e:GetHandler():GetCounter(0x1)==5 and tp==Duel.GetTurnPlayer() end function c73665146.spcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end diff --git a/script/c7369217.lua b/script/c7369217.lua index 33e77a0d..24c1c29d 100644 --- a/script/c7369217.lua +++ b/script/c7369217.lua @@ -80,8 +80,10 @@ function c7369217.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c7369217.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c7369217.efilter(e,te) diff --git a/script/c73694478.lua b/script/c73694478.lua old mode 100755 new mode 100644 index 4bf1dea9..7c7bb945 --- a/script/c73694478.lua +++ b/script/c73694478.lua @@ -1,77 +1,76 @@ ---転生の超戦士 -function c73694478.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCountLimit(1,73694478+EFFECT_COUNT_CODE_OATH) - e1:SetTarget(c73694478.target) - e1:SetOperation(c73694478.activate) - c:RegisterEffect(e1) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_GRAVE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetCondition(c73694478.thcon) - e2:SetCost(c73694478.thcost) - e2:SetTarget(c73694478.thtg) - e2:SetOperation(c73694478.thop) - c:RegisterEffect(e2) -end -function c73694478.filter(c,e,tp) - return c:IsFaceup() and c:IsSetCard(0xcf) - and Duel.IsExistingMatchingCard(c73694478.spfilter,tp,LOCATION_HAND,0,1,nil,c:GetCode(),e,tp) -end -function c73694478.spfilter(c,code,e,tp) - return c:IsSetCard(0xcf) and not c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c73694478.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c73694478.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c73694478.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectTarget(tp,c73694478.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c73694478.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) then return end - local code=tc:GetCode() - if Duel.SendtoGrave(tc,REASON_EFFECT)==0 or not tc:IsLocation(LOCATION_GRAVE) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c73694478.spfilter,tp,LOCATION_HAND,0,1,1,nil,code,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - end -end -function c73694478.thcon(e,tp,eg,ep,ev,re,r,rp) - return aux.exccon(e) and Duel.GetTurnPlayer()==tp and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) -end -function c73694478.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c73694478.thfilter(c) - return c:IsSetCard(0xcf) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c73694478.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c73694478.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c73694478.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c73694478.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c73694478.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--転生の超戦士 +function c73694478.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetHintTiming(0,TIMING_END_PHASE) + e1:SetCountLimit(1,73694478+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c73694478.target) + e1:SetOperation(c73694478.activate) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_GRAVE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetCondition(c73694478.thcon) + e2:SetCost(c73694478.thcost) + e2:SetTarget(c73694478.thtg) + e2:SetOperation(c73694478.thop) + c:RegisterEffect(e2) +end +function c73694478.filter(c,e,tp) + return c:IsFaceup() and c:IsSetCard(0x10cf) + and Duel.IsExistingMatchingCard(c73694478.spfilter,tp,LOCATION_HAND,0,1,nil,c:GetCode(),e,tp) +end +function c73694478.spfilter(c,code,e,tp) + return c:IsSetCard(0x10cf) and not c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) +end +function c73694478.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c73694478.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingTarget(c73694478.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectTarget(tp,c73694478.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c73694478.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if not tc:IsRelateToEffect(e) then return end + local code=tc:GetCode() + if Duel.SendtoGrave(tc,REASON_EFFECT)==0 or not tc:IsLocation(LOCATION_GRAVE) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c73694478.spfilter,tp,LOCATION_HAND,0,1,1,nil,code,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) + end +end +function c73694478.thcon(e,tp,eg,ep,ev,re,r,rp) + return aux.exccon(e) and Duel.GetTurnPlayer()==tp and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2) +end +function c73694478.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c73694478.thfilter(c) + return c:IsSetCard(0x10cf) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c73694478.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c73694478.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c73694478.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c73694478.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c73694478.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c73698349.lua b/script/c73698349.lua index 2c5378da..df2805f8 100644 --- a/script/c73698349.lua +++ b/script/c73698349.lua @@ -1,6 +1,6 @@ --ジャイアント・オーク function c73698349.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -16,7 +16,7 @@ end function c73698349.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c73702909.lua b/script/c73702909.lua index 6d44ae33..409204f5 100644 --- a/script/c73702909.lua +++ b/script/c73702909.lua @@ -27,7 +27,7 @@ function c73702909.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c73702909.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,g) end end diff --git a/script/c73752131.lua b/script/c73752131.lua index d4d6277f..dd98f19b 100644 --- a/script/c73752131.lua +++ b/script/c73752131.lua @@ -1,7 +1,7 @@ --熟練の黒魔術師 function c73752131.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,3) + c:EnableCounterPermit(0x1) + c:SetCounterLimit(0x1,3) --add counter local e0=Effect.CreateEffect(c) e0:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) @@ -29,15 +29,15 @@ function c73752131.initial_effect(c) end function c73752131.acop(e,tp,eg,ep,ev,re,r,rp) if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c73752131.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetCounter(0x3001)==3 and e:GetHandler():IsReleasable() end + if chk==0 then return e:GetHandler():GetCounter(0x1)==3 and e:GetHandler():IsReleasable() end Duel.Release(e:GetHandler(),REASON_COST) end function c73752131.filter(c,e,tp) - return c:IsCode(46986414) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsCode(46986414) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c73752131.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 @@ -48,7 +48,7 @@ function c73752131.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c73752131.filter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c73778008.lua b/script/c73778008.lua index 7dac0deb..81432192 100644 --- a/script/c73778008.lua +++ b/script/c73778008.lua @@ -9,7 +9,7 @@ function c73778008.initial_effect(c) e1:SetValue(c73778008.atkup) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end function c73778008.atkup(e,c) diff --git a/script/c73783043.lua b/script/c73783043.lua old mode 100755 new mode 100644 diff --git a/script/c73787254.lua b/script/c73787254.lua index 50e6c21a..455dab4f 100644 --- a/script/c73787254.lua +++ b/script/c73787254.lua @@ -15,7 +15,7 @@ function c73787254.initial_effect(c) e2:SetValue(c73787254.val1) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(c73787254.val2) c:RegisterEffect(e3) end diff --git a/script/c73820802.lua b/script/c73820802.lua new file mode 100644 index 00000000..741491ae --- /dev/null +++ b/script/c73820802.lua @@ -0,0 +1,62 @@ +--鬼くじ +function c73820802.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(TIMING_STANDBY_PHASE,0) + e1:SetTarget(c73820802.target1) + e1:SetOperation(c73820802.operation) + c:RegisterEffect(e1) + --instant(chain) + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(73820802,0)) + e2:SetCategory(CATEGORY_DRAW+CATEGORY_HANDES) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e2:SetRange(LOCATION_SZONE) + e2:SetCode(EVENT_PHASE+PHASE_STANDBY) + e2:SetLabel(1) + e2:SetCondition(c73820802.condition) + e2:SetTarget(c73820802.target2) + e2:SetOperation(c73820802.operation) + c:RegisterEffect(e2) +end +function c73820802.target1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_STANDBY and Duel.SelectYesNo(tp,94) then + e:SetCategory(CATEGORY_DRAW+CATEGORY_HANDES) + e:SetLabel(1) + e:GetHandler():RegisterFlagEffect(73820802,RESET_PHASE+PHASE_END,0,1) + e:GetHandler():RegisterFlagEffect(0,RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,65) + else + e:SetCategory(0) + e:SetLabel(0) + end +end +function c73820802.operation(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + if e:GetLabel()==0 then return end + if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end + Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_CARDTYPE) + local op=Duel.SelectOption(1-tp,70,71,72) + Duel.ConfirmDecktop(tp,1) + local g=Duel.GetDecktopGroup(tp,1) + local tc=g:GetFirst() + if (op==0 and tc:IsType(TYPE_MONSTER)) or (op==1 and tc:IsType(TYPE_SPELL)) or (op==2 and tc:IsType(TYPE_TRAP)) then + Duel.Draw(1-tp,1,REASON_EFFECT) + else + local hg=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0) + if hg:GetCount()>0 then + local sg=hg:RandomSelect(1-tp,1) + Duel.SendtoGrave(sg,REASON_DISCARD+REASON_EFFECT) + end + end + Duel.MoveSequence(tc,1) +end +function c73820802.condition(e,tp,eg,ep,ev,re,r,rp) + return tp==Duel.GetTurnPlayer() +end +function c73820802.target2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetFlagEffect(73820802)==0 end + e:GetHandler():RegisterFlagEffect(73820802,RESET_PHASE+PHASE_END,0,1) +end diff --git a/script/c73853830.lua b/script/c73853830.lua index 96c3ee33..7932ff0f 100644 --- a/script/c73853830.lua +++ b/script/c73853830.lua @@ -15,17 +15,18 @@ function c73853830.initial_effect(c) c:RegisterEffect(e1) end function c73853830.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsCanAddCounter(0x3001,1) end - if chk==0 then return Duel.IsExistingTarget(Card.IsCanAddCounter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,0x3001,1) end + if chkc then return chkc:IsCanAddCounter(0x1,1) end + if chk==0 then return Duel.IsExistingTarget(Card.IsCanAddCounter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,0x1,1) end Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(73853830,1)) - local g=Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,0x3001,1) + local g=Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,0x1,1) Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0) end function c73853830.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and tc:IsCanAddCounter(0x3001,1) then - tc:AddCounter(0x3001,1) + if tc and tc:IsRelateToEffect(e) and tc:IsCanAddCounter(0x1,1) then + tc:AddCounter(0x1,1) + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UPDATE_ATTACK) diff --git a/script/c73860462.lua b/script/c73860462.lua new file mode 100644 index 00000000..04ece9a2 --- /dev/null +++ b/script/c73860462.lua @@ -0,0 +1,27 @@ +--ワンダー・エクシーズ +function c73860462.initial_effect(c) + --activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,0x1c0) + e1:SetTarget(c73860462.xyztg) + e1:SetOperation(c73860462.xyzop) + c:RegisterEffect(e1) +end +function c73860462.xyzfilter(c) + return c:IsXyzSummonable(nil) +end +function c73860462.xyztg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c73860462.xyzfilter,tp,LOCATION_EXTRA,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c73860462.xyzop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c73860462.xyzfilter,tp,LOCATION_EXTRA,0,nil) + if g:GetCount()>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=g:Select(tp,1,1,nil) + Duel.XyzSummon(tp,tg:GetFirst(),nil) + end +end diff --git a/script/c73872164.lua b/script/c73872164.lua old mode 100755 new mode 100644 index d3c14063..50d6f3f9 --- a/script/c73872164.lua +++ b/script/c73872164.lua @@ -20,7 +20,7 @@ function c73872164.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,c73872164.cfilter,1,1,REASON_COST+REASON_DISCARD) end function c73872164.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c73872164.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c73872164.filter(chkc) end diff --git a/script/c73879377.lua b/script/c73879377.lua index 2cb11092..47637477 100644 --- a/script/c73879377.lua +++ b/script/c73879377.lua @@ -30,7 +30,7 @@ function c73879377.cfilter(c,tp) and Duel.IsExistingMatchingCard(c73879377.dfilter,tp,0,LOCATION_MZONE,1,nil,atk) end function c73879377.dfilter(c,atk) - return c:IsFaceup() and c:GetAttack()<=atk and c:IsDestructable() + return c:IsFaceup() and c:GetAttack()<=atk end function c73879377.descost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c73879377.cfilter,tp,LOCATION_HAND,0,1,nil,tp) end diff --git a/script/c73887236.lua b/script/c73887236.lua index d4334b32..1409d0bb 100644 --- a/script/c73887236.lua +++ b/script/c73887236.lua @@ -41,7 +41,7 @@ end function c73887236.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then + if tc:IsRelateToEffect(e) and tc:IsFaceup() and c:IsRelateToEffect(e) and c:IsFaceup() then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UPDATE_ATTACK) diff --git a/script/c73899015.lua b/script/c73899015.lua index 5ce29933..52ba3972 100644 --- a/script/c73899015.lua +++ b/script/c73899015.lua @@ -23,15 +23,19 @@ function c73899015.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RegisterEffect(e1) end function c73899015.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsCanAddCounter(0x9,1) end - if chk==0 then return Duel.IsExistingTarget(Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,nil,0x9,1) end + if chkc then return chkc:IsControler(1-tp) and chkc:IsCanAddCounter(0x1009,1) end + if chk==0 then return Duel.IsExistingTarget(Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,nil,0x1009,1) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPPO) - local g=Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,1,nil,0x9,1) + local g=Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,1,nil,0x1009,1) Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0) end function c73899015.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsCanAddCounter(0x9,1) then - tc:AddCounter(0x9,1) + if tc:IsRelateToEffect(e) and tc:IsCanAddCounter(0x1009,1) then + local atk=tc:GetAttack() + tc:AddCounter(0x1009,1) + if atk>0 and tc:GetAttack()==0 then + Duel.RaiseEvent(tc,EVENT_CUSTOM+54306223,e,0,0,0,0) + end end end diff --git a/script/c73906480.lua b/script/c73906480.lua index 248932c7..57290d30 100644 --- a/script/c73906480.lua +++ b/script/c73906480.lua @@ -11,7 +11,7 @@ function c73906480.initial_effect(c) e1:SetOperation(c73906480.activate) c:RegisterEffect(e1) end -function c73906480.condition(e,tp,eg,ep,ev,re,r,rp,chk) +function c73906480.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 end function c73906480.spfilter1(c,e,tp) @@ -22,7 +22,8 @@ function c73906480.spfilter2(c,e,tp) end function c73906480.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c73906480.spfilter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.IsExistingTarget(c73906480.spfilter2,tp,LOCATION_REMOVED,0,1,nil,e,tp) end @@ -34,6 +35,7 @@ function c73906480.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,2,0,0) end function c73906480.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()~=2 then return end diff --git a/script/c7391448.lua b/script/c7391448.lua index 36843924..bc717e65 100644 --- a/script/c7391448.lua +++ b/script/c7391448.lua @@ -25,11 +25,11 @@ function c7391448.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and bc:IsCanBeSpecialSummoned(e,0,tp,false,false) end Duel.SetTargetCard(bc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,LOCATION_GRAVE) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,0) end function c7391448.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c73915051.lua b/script/c73915051.lua index e11d3ec1..b41cedc8 100644 --- a/script/c73915051.lua +++ b/script/c73915051.lua @@ -38,17 +38,19 @@ function c73915051.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) return e:GetLabelObject()~=se end function c73915051.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>3 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>3 and Duel.IsPlayerCanSpecialSummonMonster(tp,73915052,0,0x4011,0,0,1,RACE_BEAST,ATTRIBUTE_EARTH) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,4,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,4,0,0) end function c73915051.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>3 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)>3 and Duel.IsPlayerCanSpecialSummonMonster(tp,73915052,0,0x4011,0,0,1,RACE_BEAST,ATTRIBUTE_EARTH) then for i=1,4 do local token=Duel.CreateToken(tp,73915051+i) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_UNRELEASABLE_SUM) diff --git a/script/c7392745.lua b/script/c7392745.lua index 082442c5..9e9f7f2f 100644 --- a/script/c7392745.lua +++ b/script/c7392745.lua @@ -15,11 +15,12 @@ function c7392745.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,0) end function c7392745.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(1-tp,LOCATION_MZONE)<3 then return end - if not Duel.IsPlayerCanSpecialSummonMonster(tp,7392746,0,0x4011,100,300,1,RACE_ZOMBIE,ATTRIBUTE_EARTH,POS_FACEUP_DEFENCE,1-tp) then return end + if not Duel.IsPlayerCanSpecialSummonMonster(tp,7392746,0,0x4011,100,300,1,RACE_ZOMBIE,ATTRIBUTE_EARTH,POS_FACEUP_DEFENSE,1-tp) then return end for i=1,3 do local token=Duel.CreateToken(tp,7392746) - Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) end Duel.SpecialSummonComplete() end diff --git a/script/c7394770.lua b/script/c7394770.lua index e26af56b..a2b551f7 100644 --- a/script/c7394770.lua +++ b/script/c7394770.lua @@ -80,7 +80,7 @@ function c7394770.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0xfe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) tc:RegisterEffect(e2) if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf) @@ -127,7 +127,7 @@ function c7394770.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_OPPO_TURN) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - e2:SetValue(tc:GetBaseDefence()) + e2:SetCode(EFFECT_UPDATE_DEFENSE) + e2:SetValue(tc:GetBaseDefense()) tc:RegisterEffect(e2) end diff --git a/script/c73977033.lua b/script/c73977033.lua new file mode 100644 index 00000000..810b5ed6 --- /dev/null +++ b/script/c73977033.lua @@ -0,0 +1,34 @@ +--RR－ブースター・ストリクス +function c73977033.initial_effect(c) + --destroy + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_BE_BATTLE_TARGET) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c73977033.condition) + e1:SetCost(c73977033.cost) + e1:SetTarget(c73977033.target) + e1:SetOperation(c73977033.operation) + c:RegisterEffect(e1) +end +function c73977033.condition(e,tp,eg,ep,ev,re,r,rp) + local at=eg:GetFirst() + return at:IsFaceup() and at:IsControler(tp) and at:IsSetCard(0xba) +end +function c73977033.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c73977033.target(e,tp,eg,ep,ev,re,r,rp,chk) + local tg=Duel.GetAttacker() + if chk==0 then return tg:IsOnField() end + Duel.SetTargetCard(tg) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) +end +function c73977033.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsAttackable() and not tc:IsStatus(STATUS_ATTACK_CANCELED) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c74009824.lua b/script/c74009824.lua index 375bd43c..29e87920 100644 --- a/script/c74009824.lua +++ b/script/c74009824.lua @@ -1,190 +1,189 @@ ---エルシャドール・ウェンディゴ -function c74009824.initial_effect(c) - c:EnableReviveLimit() - --fusion material - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(c74009824.fuscon) - e1:SetOperation(c74009824.fusop) - c:RegisterEffect(e1) - --cannot spsummon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCode(EFFECT_SPSUMMON_CONDITION) - e2:SetRange(LOCATION_EXTRA) - e2:SetValue(c74009824.splimit) - c:RegisterEffect(e2) - --indes - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(74009824,0)) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1,74009824) - e3:SetTarget(c74009824.indtg) - e3:SetOperation(c74009824.indop) - c:RegisterEffect(e3) - --tohand - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(74009824,1)) - e4:SetCategory(CATEGORY_TOHAND) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e4:SetTarget(c74009824.thtg) - e4:SetOperation(c74009824.thop) - c:RegisterEffect(e4) -end -function c74009824.ffilter1(c) - return c:IsSetCard(0x9d) -end -function c74009824.ffilter2(c) - return c:IsAttribute(ATTRIBUTE_WIND) or c:IsHasEffect(4904633) -end -function c74009824.exfilter(c,g) - return c:IsFaceup() and c:IsCanBeFusionMaterial() and not g:IsContains(c) -end -function c74009824.fuscon(e,g,gc,chkf) - if g==nil then return true end - local tp=e:GetHandlerPlayer() - local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local exg=Group.CreateGroup() - if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then - local sg=Duel.GetMatchingGroup(c74009824.exfilter,tp,0,LOCATION_MZONE,nil,g) - exg:Merge(sg) - end - if gc then return (c74009824.ffilter1(gc) and (g:IsExists(c74009824.ffilter2,1,gc) or exg:IsExists(c74009824.ffilter2,1,gc))) - or (c74009824.ffilter2(gc) and (g:IsExists(c74009824.ffilter1,1,gc) or exg:IsExists(c74009824.ffilter1,1,gc))) end - local g1=Group.CreateGroup() - local g2=Group.CreateGroup() - local g3=Group.CreateGroup() - local g4=Group.CreateGroup() - local tc=g:GetFirst() - while tc do - if c74009824.ffilter1(tc) then - g1:AddCard(tc) - if aux.FConditionCheckF(tc,chkf) then g3:AddCard(tc) end - end - if c74009824.ffilter2(tc) then - g2:AddCard(tc) - if aux.FConditionCheckF(tc,chkf) then g4:AddCard(tc) end - end - tc=g:GetNext() - end - local exg1=exg:Filter(c74009824.ffilter1,nil) - local exg2=exg:Filter(c74009824.ffilter2,nil) - if chkf~=PLAYER_NONE then - return (g3:IsExists(aux.FConditionFilterF2,1,nil,g2) - or g3:IsExists(aux.FConditionFilterF2,1,nil,exg2) - or g4:IsExists(aux.FConditionFilterF2,1,nil,g1) - or g4:IsExists(aux.FConditionFilterF2,1,nil,exg1)) - else - return (g1:IsExists(aux.FConditionFilterF2,1,nil,g2) - or g1:IsExists(aux.FConditionFilterF2,1,nil,exg2) - or g2:IsExists(aux.FConditionFilterF2,1,nil,exg1)) - end -end -function c74009824.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local exg=Group.CreateGroup() - if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then - local sg=Duel.GetMatchingGroup(c74009824.exfilter,tp,0,LOCATION_MZONE,nil,eg) - exg:Merge(sg) - end - if gc then - local sg1=Group.CreateGroup() - local sg2=Group.CreateGroup() - if c74009824.ffilter1(gc) then - sg1:Merge(eg:Filter(c74009824.ffilter2,gc)) - sg2:Merge(exg:Filter(c74009824.ffilter2,gc)) - end - if c74009824.ffilter2(gc) then - sg1:Merge(eg:Filter(c74009824.ffilter1,gc)) - sg2:Merge(exg:Filter(c74009824.ffilter1,gc)) - end - local g1=nil - if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then - fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1=sg2:Select(tp,1,1,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1=sg1:Select(tp,1,1,nil) - end - Duel.SetFusionMaterial(g1) - return - end - local sg=eg:Filter(aux.FConditionFilterF2c,nil,c74009824.ffilter1,c74009824.ffilter2) - local g1=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if chkf~=PLAYER_NONE then - g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) - else g1=sg:Select(tp,1,1,nil) end - local tc1=g1:GetFirst() - local sg1=Group.CreateGroup() - local sg2=Group.CreateGroup() - if c74009824.ffilter1(tc1) then - sg1:Merge(sg:Filter(c74009824.ffilter2,tc1)) - sg2:Merge(exg:Filter(c74009824.ffilter2,tc1)) - end - if c74009824.ffilter2(tc1) then - sg1:Merge(sg:Filter(c74009824.ffilter1,tc1)) - sg2:Merge(exg:Filter(c74009824.ffilter1,tc1)) - end - local g2=nil - if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then - fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg2:Select(tp,1,1,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg1:Select(tp,1,1,nil) - end - g1:Merge(g2) - Duel.SetFusionMaterial(g1) -end -function c74009824.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c74009824.indtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end - if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,0,1,1,nil) -end -function c74009824.indop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(c74009824.indval) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end -function c74009824.indval(e,c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c74009824.thfilter(c) - return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c74009824.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c74009824.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c74009824.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c74009824.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c74009824.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--エルシャドール・ウェンディゴ +function c74009824.initial_effect(c) + c:EnableReviveLimit() + --fusion material + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(c74009824.fuscon) + e1:SetOperation(c74009824.fusop) + c:RegisterEffect(e1) + --cannot spsummon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetCode(EFFECT_SPSUMMON_CONDITION) + e2:SetRange(LOCATION_EXTRA) + e2:SetValue(c74009824.splimit) + c:RegisterEffect(e2) + --indes + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(74009824,0)) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetRange(LOCATION_MZONE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCountLimit(1,74009824) + e3:SetTarget(c74009824.indtg) + e3:SetOperation(c74009824.indop) + c:RegisterEffect(e3) + --tohand + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(74009824,1)) + e4:SetCategory(CATEGORY_TOHAND) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e4:SetTarget(c74009824.thtg) + e4:SetOperation(c74009824.thop) + c:RegisterEffect(e4) +end +function c74009824.ffilter1(c) + return c:IsFusionSetCard(0x9d) +end +function c74009824.ffilter2(c) + return c:IsAttribute(ATTRIBUTE_WIND) or c:IsHasEffect(4904633) +end +function c74009824.exfilter(c,g) + return c:IsFaceup() and c:IsCanBeFusionMaterial() and not g:IsContains(c) +end +function c74009824.fuscon(e,g,gc,chkf) + if g==nil then return true end + local tp=e:GetHandlerPlayer() + local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + local exg=Group.CreateGroup() + if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then + local sg=Duel.GetMatchingGroup(c74009824.exfilter,tp,0,LOCATION_MZONE,nil,g) + exg:Merge(sg) + end + if gc then return (c74009824.ffilter1(gc) and (g:IsExists(c74009824.ffilter2,1,gc) or exg:IsExists(c74009824.ffilter2,1,gc))) + or (c74009824.ffilter2(gc) and (g:IsExists(c74009824.ffilter1,1,gc) or exg:IsExists(c74009824.ffilter1,1,gc))) end + local g1=Group.CreateGroup() + local g2=Group.CreateGroup() + local g3=Group.CreateGroup() + local g4=Group.CreateGroup() + local tc=g:GetFirst() + while tc do + if c74009824.ffilter1(tc) then + g1:AddCard(tc) + if aux.FConditionCheckF(tc,chkf) then g3:AddCard(tc) end + end + if c74009824.ffilter2(tc) then + g2:AddCard(tc) + if aux.FConditionCheckF(tc,chkf) then g4:AddCard(tc) end + end + tc=g:GetNext() + end + local exg1=exg:Filter(c74009824.ffilter1,nil) + local exg2=exg:Filter(c74009824.ffilter2,nil) + if chkf~=PLAYER_NONE then + return (g3:IsExists(aux.FConditionFilterF2,1,nil,g2) + or g3:IsExists(aux.FConditionFilterF2,1,nil,exg2) + or g4:IsExists(aux.FConditionFilterF2,1,nil,g1) + or g4:IsExists(aux.FConditionFilterF2,1,nil,exg1)) + else + return (g1:IsExists(aux.FConditionFilterF2,1,nil,g2) + or g1:IsExists(aux.FConditionFilterF2,1,nil,exg2) + or g2:IsExists(aux.FConditionFilterF2,1,nil,exg1)) + end +end +function c74009824.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) + local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + local exg=Group.CreateGroup() + if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then + local sg=Duel.GetMatchingGroup(c74009824.exfilter,tp,0,LOCATION_MZONE,nil,eg) + exg:Merge(sg) + end + if gc then + local sg1=Group.CreateGroup() + local sg2=Group.CreateGroup() + if c74009824.ffilter1(gc) then + sg1:Merge(eg:Filter(c74009824.ffilter2,gc)) + sg2:Merge(exg:Filter(c74009824.ffilter2,gc)) + end + if c74009824.ffilter2(gc) then + sg1:Merge(eg:Filter(c74009824.ffilter1,gc)) + sg2:Merge(exg:Filter(c74009824.ffilter1,gc)) + end + local g1=nil + if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then + fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g1=sg2:Select(tp,1,1,nil) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g1=sg1:Select(tp,1,1,nil) + end + Duel.SetFusionMaterial(g1) + return + end + local sg=eg:Filter(aux.FConditionFilterF2c,nil,c74009824.ffilter1,c74009824.ffilter2) + local g1=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if chkf~=PLAYER_NONE then + g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) + else g1=sg:Select(tp,1,1,nil) end + local tc1=g1:GetFirst() + local sg1=Group.CreateGroup() + local sg2=Group.CreateGroup() + if c74009824.ffilter1(tc1) then + sg1:Merge(sg:Filter(c74009824.ffilter2,tc1)) + sg2:Merge(exg:Filter(c74009824.ffilter2,tc1)) + end + if c74009824.ffilter2(tc1) then + sg1:Merge(sg:Filter(c74009824.ffilter1,tc1)) + sg2:Merge(exg:Filter(c74009824.ffilter1,tc1)) + end + local g2=nil + if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then + fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g2=sg2:Select(tp,1,1,nil) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g2=sg1:Select(tp,1,1,nil) + end + g1:Merge(g2) + Duel.SetFusionMaterial(g1) +end +function c74009824.splimit(e,se,sp,st) + return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c74009824.indtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end + if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,0,1,1,nil) +end +function c74009824.indop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetValue(c74009824.indval) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + end +end +function c74009824.indval(e,c) + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c74009824.thfilter(c) + return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() +end +function c74009824.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c74009824.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c74009824.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c74009824.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c74009824.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c7405310.lua b/script/c7405310.lua index f350b92e..f5d76451 100644 --- a/script/c7405310.lua +++ b/script/c7405310.lua @@ -30,8 +30,6 @@ function c7405310.operation(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(tp,cg) end else - local cg=Duel.GetFieldGroup(1-tp,LOCATION_EXTRA,0) - Duel.ConfirmCards(tp,cg) - Duel.DiscardHand(tp,aux.TRUE,1,1,REASON_EFFECT+REASON_DISCARD) + Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD) end end diff --git a/script/c74064212.lua b/script/c74064212.lua index d24aca3a..3ef8f0d6 100644 --- a/script/c74064212.lua +++ b/script/c74064212.lua @@ -46,13 +46,13 @@ function c74064212.eqop(e,tp,eg,ep,ev,re,r,rp) e1:SetCode(EFFECT_EQUIP_LIMIT) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetValue(c74064212.eqlimit) - e1:SetLabelObject(tc) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) end end function c74064212.eqlimit(e,c) - return c==e:GetLabelObject() + local tp=e:GetHandlerPlayer() + return c:IsControler(tp) end function c74064212.atkcon(e) local ph=Duel.GetCurrentPhase() diff --git a/script/c74069667.lua b/script/c74069667.lua index db309b8e..75d21273 100644 --- a/script/c74069667.lua +++ b/script/c74069667.lua @@ -60,8 +60,9 @@ end function c74069667.spop1(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then Duel.Damage(tp,1000,REASON_EFFECT) + Duel.SpecialSummonComplete() end local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD) diff --git a/script/c74094021.lua b/script/c74094021.lua index b7dd5713..8ed0a5e4 100644 --- a/script/c74094021.lua +++ b/script/c74094021.lua @@ -35,10 +35,10 @@ function c74094021.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(sg,REASON_COST) end function c74094021.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c74094021.operation(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c7409792.lua b/script/c7409792.lua index ec12dab9..a6926489 100644 --- a/script/c7409792.lua +++ b/script/c7409792.lua @@ -22,7 +22,7 @@ function c7409792.initial_effect(c) e3:SetCategory(CATEGORY_SPECIAL_SUMMON) e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_EVENT_PLAYER) - e3:SetCode(7409792) + e3:SetCode(EVENT_CUSTOM+7409792) e3:SetTarget(c7409792.target) e3:SetOperation(c7409792.operation) c:RegisterEffect(e3) @@ -34,7 +34,7 @@ function c7409792.spcon(e,c) end function c7409792.trigop(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 then - Duel.RaiseSingleEvent(e:GetHandler(),7409792,e,r,rp,1-tp,0) + Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+7409792,e,r,rp,1-tp,0) end end function c7409792.filter(c,e,tp) diff --git a/script/c74122412.lua b/script/c74122412.lua index fba2ce9a..8c4c88c8 100644 --- a/script/c74122412.lua +++ b/script/c74122412.lua @@ -70,10 +70,10 @@ function c74122412.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,c74122412.cfilter,1,1,REASON_COST+REASON_DISCARD) end function c74122412.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c74122412.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c74131780.lua b/script/c74131780.lua index c233c076..65c6ce6a 100644 --- a/script/c74131780.lua +++ b/script/c74131780.lua @@ -17,10 +17,10 @@ function c74131780.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c74131780.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c74131780.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c74137509.lua b/script/c74137509.lua index ba2c94dd..c86c6aa2 100644 --- a/script/c74137509.lua +++ b/script/c74137509.lua @@ -32,7 +32,7 @@ function c74137509.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(d*100) sc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) sc:RegisterEffect(e2) sc=g:GetNext() end diff --git a/script/c74203495.lua b/script/c74203495.lua old mode 100755 new mode 100644 index 935f1953..8a5e66b4 --- a/script/c74203495.lua +++ b/script/c74203495.lua @@ -12,7 +12,7 @@ function c74203495.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(74203495,0)) e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetRange(LOCATION_HAND) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) @@ -32,7 +32,9 @@ function c74203495.spfilter(c,e,tp) return c:IsCode(49036338) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c74203495.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) + and not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(c74203495.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) @@ -42,6 +44,7 @@ function c74203495.target(e,tp,eg,ep,ev,re,r,rp,chk) end end function c74203495.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 or not e:GetHandler():IsRelateToEffect(e) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c74203495.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) diff --git a/script/c74270067.lua b/script/c74270067.lua old mode 100755 new mode 100644 diff --git a/script/c74298287.lua b/script/c74298287.lua index 448b833b..409893f4 100644 --- a/script/c74298287.lua +++ b/script/c74298287.lua @@ -40,8 +40,10 @@ end function c74298287.spop1(e,tp,eg,ep,ev,re,r,rp) if not Duel.IsExistingMatchingCard(c74298287.cfilter,tp,LOCATION_MZONE,0,1,nil) then return end local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c74298287.spcon2(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c74329404.lua b/script/c74329404.lua index 417f414b..9fa8732c 100644 --- a/script/c74329404.lua +++ b/script/c74329404.lua @@ -1,5 +1,6 @@ --D－フォーメーション function c74329404.initial_effect(c) + c:EnableCounterPermit(0x1c) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -36,7 +37,7 @@ function c74329404.ctcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c74329404.ctfilter,1,nil,tp) end function c74329404.ctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x1c+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x1c,1) end function c74329404.thcon(e,tp,eg,ep,ev,re,r,rp) local ph=Duel.GetCurrentPhase() @@ -51,7 +52,7 @@ function c74329404.filter1(c,e,tp) and Duel.IsExistingMatchingCard(c74329404.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,c:GetCode()) end function c74329404.filter2(c,code) - return c:IsCode(code) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(code) and c:IsAbleToHand() end function c74329404.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return eg:IsExists(c74329404.filter1,1,nil,nil,tp) end @@ -68,6 +69,7 @@ function c74329404.thop(e,tp,eg,ep,ev,re,r,rp) local tc=g:GetFirst() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local ag=Duel.SelectMatchingCard(tp,c74329404.filter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,2,nil,tc:GetCode()) + if ag:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end Duel.SendtoHand(ag,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,ag) end diff --git a/script/c74364659.lua b/script/c74364659.lua old mode 100755 new mode 100644 diff --git a/script/c74367458.lua b/script/c74367458.lua index 9439a8b6..a3fae92c 100644 --- a/script/c74367458.lua +++ b/script/c74367458.lua @@ -42,6 +42,7 @@ function c74367458.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) and Duel.IsExistingTarget(c74367458.filter,tp,LOCATION_GRAVE,0,1,nil,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectTarget(tp,c74367458.filter,tp,LOCATION_GRAVE,0,1,1,nil,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) end function c74367458.eqop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c74371660.lua b/script/c74371660.lua old mode 100755 new mode 100644 diff --git a/script/c74402414.lua b/script/c74402414.lua index 4fceeb43..5a7767f6 100644 --- a/script/c74402414.lua +++ b/script/c74402414.lua @@ -1,5 +1,6 @@ --マジック・クロニクル function c74402414.initial_effect(c) + c:EnableCounterPermit(0x25) local g=Group.CreateGroup() g:KeepAlive() --Activate @@ -75,7 +76,7 @@ function c74402414.activate(e,tp,eg,ep,ev,re,r,rp) end function c74402414.ctop(e,tp,eg,ep,ev,re,r,rp) if rp~=tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then - e:GetHandler():AddCounter(0x25+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x25,1) end end function c74402414.thcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c74416026.lua b/script/c74416026.lua old mode 100755 new mode 100644 diff --git a/script/c74439492.lua b/script/c74439492.lua index 0acf3b76..527db112 100644 --- a/script/c74439492.lua +++ b/script/c74439492.lua @@ -10,21 +10,21 @@ function c74439492.initial_effect(c) e1:SetOperation(c74439492.activate) c:RegisterEffect(e1) end -function c74439492.filter(c,des) - return c:IsFaceup() and c:IsSetCard(0x24) and (des or c:IsDestructable()) +function c74439492.filter(c) + return c:IsFaceup() and c:IsSetCard(0x24) end function c74439492.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c74439492.filter(chkc,false) end - if chk==0 then return Duel.IsExistingTarget(c74439492.filter,tp,LOCATION_MZONE,0,1,nil,false) - and Duel.IsExistingMatchingCard(c74439492.filter,tp,LOCATION_MZONE,0,2,nil,true) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c74439492.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c74439492.filter,tp,LOCATION_MZONE,0,1,nil) + and Duel.IsExistingMatchingCard(c74439492.filter,tp,LOCATION_MZONE,0,2,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c74439492.filter,tp,LOCATION_MZONE,0,1,1,nil,false) + local g=Duel.SelectTarget(tp,c74439492.filter,tp,LOCATION_MZONE,0,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c74439492.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then - local g=Duel.GetMatchingGroup(c74439492.filter,tp,LOCATION_MZONE,0,nil,true) + local g=Duel.GetMatchingGroup(c74439492.filter,tp,LOCATION_MZONE,0,nil) local ac=g:GetFirst() while ac do local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c74440055.lua b/script/c74440055.lua index ac3a600c..20a6730a 100644 --- a/script/c74440055.lua +++ b/script/c74440055.lua @@ -22,8 +22,8 @@ function c74440055.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c74440055.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,74440056,0,0x4011,500,500,1,RACE_PLANT,ATTRIBUTE_EARTH,POS_FACEUP_DEFENCE,1-tp) then + and Duel.IsPlayerCanSpecialSummonMonster(tp,74440056,0,0x4011,500,500,1,RACE_PLANT,ATTRIBUTE_EARTH,POS_FACEUP_DEFENSE,1-tp) then local token=Duel.CreateToken(tp,74440056) - Duel.SpecialSummon(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c74506079.lua b/script/c74506079.lua old mode 100755 new mode 100644 index e2689064..3d36c448 --- a/script/c74506079.lua +++ b/script/c74506079.lua @@ -17,7 +17,7 @@ function c74506079.initial_effect(c) c:RegisterEffect(e2) end function c74506079.ffilter(c) - return c:IsSetCard(0x3e) and c:IsRace(RACE_REPTILE) + return c:IsFusionSetCard(0x3e) and c:IsRace(RACE_REPTILE) end function c74506079.fscondition(e,g,gc) if g==nil then return true end @@ -79,7 +79,7 @@ function c74506079.matcheck(e,c) end end function c74506079.spfilter(c,e,tp) - return c:IsRace(RACE_REPTILE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENCE) + return c:IsRace(RACE_REPTILE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) end function c74506079.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c74506079.spfilter(chkc,e,tp) end @@ -92,7 +92,7 @@ end function c74506079.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c74519184.lua b/script/c74519184.lua old mode 100755 new mode 100644 diff --git a/script/c74576482.lua b/script/c74576482.lua index 02f38ab8..3d921d6e 100644 --- a/script/c74576482.lua +++ b/script/c74576482.lua @@ -33,6 +33,8 @@ function c74576482.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_WATER) and not c:IsPublic() end function c74576482.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c74576482.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c74576482.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -42,8 +44,10 @@ function c74576482.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(74576482,0),aux.Stringid(74576482,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(74576482,1),aux.Stringid(74576482,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(74576482,1),aux.Stringid(74576482,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(74576482,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -55,7 +59,7 @@ function c74576482.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c74576482.tdcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c74582050.lua b/script/c74582050.lua new file mode 100644 index 00000000..0ef70390 --- /dev/null +++ b/script/c74582050.lua @@ -0,0 +1,33 @@ +--ダイナミスト・エラプション +function c74582050.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_DESTROYED) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e1:SetCondition(c74582050.condition) + e1:SetTarget(c74582050.target) + e1:SetOperation(c74582050.activate) + c:RegisterEffect(e1) +end +function c74582050.cfilter(c,tp) + return c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) + and c:IsPreviousSetCard(0xd8) and c:IsReason(REASON_BATTLE+REASON_EFFECT) +end +function c74582050.condition(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c74582050.cfilter,1,nil,tp) +end +function c74582050.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c74582050.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c74583607.lua b/script/c74583607.lua index 227180bf..6a0c00e2 100644 --- a/script/c74583607.lua +++ b/script/c74583607.lua @@ -1,73 +1,72 @@ ---DDD烈火王テムジン -function c74583607.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0xaf),2,true) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1,74583607) - e1:SetCondition(c74583607.spcon) - e1:SetTarget(c74583607.sptg) - e1:SetOperation(c74583607.spop) - c:RegisterEffect(e1) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_DESTROYED) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCondition(c74583607.thcon) - e2:SetTarget(c74583607.thtg) - e2:SetOperation(c74583607.thop) - c:RegisterEffect(e2) -end -function c74583607.cfilter(c,tp) - return c:IsFaceup() and c:IsSetCard(0xaf) and c:IsControler(tp) -end -function c74583607.spcon(e,tp,eg,ep,ev,re,r,rp) - return not eg:IsContains(e:GetHandler()) and eg:IsExists(c74583607.cfilter,1,nil,tp) -end -function c74583607.spfilter(c,e,tp) - return c:IsSetCard(0xaf) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c74583607.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c74583607.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c74583607.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c74583607.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c74583607.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end -function c74583607.thcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_BATTLE) - or (rp~=tp and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp) -end -function c74583607.thfilter(c) - return c:IsSetCard(0xae) and c:IsAbleToHand() -end -function c74583607.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c74583607.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c74583607.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c74583607.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c74583607.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--DDD烈火王テムジン +function c74583607.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0xaf),2,true) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,74583607) + e1:SetCondition(c74583607.spcon) + e1:SetTarget(c74583607.sptg) + e1:SetOperation(c74583607.spop) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_DESTROYED) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e2:SetCondition(c74583607.thcon) + e2:SetTarget(c74583607.thtg) + e2:SetOperation(c74583607.thop) + c:RegisterEffect(e2) +end +function c74583607.cfilter(c,tp) + return c:IsFaceup() and c:IsSetCard(0xaf) and c:IsControler(tp) +end +function c74583607.spcon(e,tp,eg,ep,ev,re,r,rp) + return not eg:IsContains(e:GetHandler()) and eg:IsExists(c74583607.cfilter,1,nil,tp) +end +function c74583607.spfilter(c,e,tp) + return c:IsSetCard(0xaf) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c74583607.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c74583607.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c74583607.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c74583607.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c74583607.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end +function c74583607.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_BATTLE) + or (rp~=tp and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp) +end +function c74583607.thfilter(c) + return c:IsSetCard(0xae) and c:IsAbleToHand() +end +function c74583607.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c74583607.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c74583607.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c74583607.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c74583607.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c74586817.lua b/script/c74586817.lua index ce689eff..a8f7e093 100644 --- a/script/c74586817.lua +++ b/script/c74586817.lua @@ -134,8 +134,10 @@ function c74586817.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_TODECK,g,2,0,0) end function c74586817.tdop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() local c=e:GetHandler() - local g=Group.FromCards(c,tc):Filter(Card.IsRelateToEffect,nil,e) - Duel.SendtoDeck(g,nil,2,REASON_EFFECT) + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then + local g=Group.FromCards(c,tc) + Duel.SendtoDeck(g,nil,2,REASON_EFFECT) + end end diff --git a/script/c74591968.lua b/script/c74591968.lua index b8252b45..829d4076 100644 --- a/script/c74591968.lua +++ b/script/c74591968.lua @@ -44,7 +44,7 @@ function c74591968.bdop(e,tp,eg,ep,ev,re,r,rp) end function c74591968.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefencePos() + return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefensePos() end function c74591968.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c74605254.lua b/script/c74605254.lua index 6392644a..d79e4025 100644 --- a/script/c74605254.lua +++ b/script/c74605254.lua @@ -7,9 +7,8 @@ function c74605254.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_PZONE) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetTargetRange(1,0) - e2:SetCondition(aux.nfbdncon) e2:SetTarget(c74605254.splimit) c:RegisterEffect(e2) --scale change @@ -44,7 +43,7 @@ function c74605254.sccon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c74605254.filter(c,lv) - return c:IsFaceup() and not c:IsSetCard(0xaf) and c:IsLevelBelow(lv) and c:IsDestructable() + return c:IsFaceup() and not c:IsSetCard(0xaf) and c:IsLevelBelow(lv) end function c74605254.sctg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c74611888.lua b/script/c74611888.lua index f44926cf..b47a8b72 100644 --- a/script/c74611888.lua +++ b/script/c74611888.lua @@ -28,6 +28,6 @@ end function c74611888.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c74611888.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c74641045.lua b/script/c74641045.lua index 1ccd934f..5ffc75d7 100644 --- a/script/c74641045.lua +++ b/script/c74641045.lua @@ -20,7 +20,7 @@ function c74641045.initial_effect(c) e2:SetValue(800) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --destroy local e4=Effect.CreateEffect(c) @@ -54,10 +54,10 @@ function c74641045.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetAttackTarget()~=nil end function c74641045.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c74641045.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c74711057.lua b/script/c74711057.lua old mode 100755 new mode 100644 diff --git a/script/c74717840.lua b/script/c74717840.lua old mode 100755 new mode 100644 diff --git a/script/c74728028.lua b/script/c74728028.lua index c5fad58f..b7d1dd7e 100644 --- a/script/c74728028.lua +++ b/script/c74728028.lua @@ -53,7 +53,7 @@ function c74728028.operation(e,tp,eg,ep,ev,re,r,rp) sc:RegisterEffect(e3,true) local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_SET_DEFENCE_FINAL) + e4:SetCode(EFFECT_SET_DEFENSE_FINAL) e4:SetValue(0) e4:SetReset(RESET_EVENT+0x1fe0000) sc:RegisterEffect(e4,true) diff --git a/script/c74822425.lua b/script/c74822425.lua old mode 100755 new mode 100644 index 7aeeaadf..eb22ab6f --- a/script/c74822425.lua +++ b/script/c74822425.lua @@ -1,199 +1,198 @@ ---エルシャドール・シェキナーガ -function c74822425.initial_effect(c) - c:EnableReviveLimit() - --fusion material - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(c74822425.fuscon) - e1:SetOperation(c74822425.fusop) - c:RegisterEffect(e1) - --cannot spsummon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCode(EFFECT_SPSUMMON_CONDITION) - e2:SetRange(LOCATION_EXTRA) - e2:SetValue(c74822425.splimit) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(74822425,0)) - e3:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1,74822425) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e3:SetCode(EVENT_CHAINING) - e3:SetCondition(c74822425.discon) - e3:SetTarget(c74822425.distg) - e3:SetOperation(c74822425.disop) - c:RegisterEffect(e3) - --tohand - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(74822425,1)) - e4:SetCategory(CATEGORY_TOHAND) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e4:SetTarget(c74822425.thtg) - e4:SetOperation(c74822425.thop) - c:RegisterEffect(e4) -end -function c74822425.ffilter1(c) - return c:IsSetCard(0x9d) -end -function c74822425.ffilter2(c) - return c:IsAttribute(ATTRIBUTE_EARTH) or c:IsHasEffect(4904633) -end -function c74822425.exfilter(c,g) - return c:IsFaceup() and c:IsCanBeFusionMaterial() and not g:IsContains(c) -end -function c74822425.fuscon(e,g,gc,chkf) - if g==nil then return true end - local tp=e:GetHandlerPlayer() - local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local exg=Group.CreateGroup() - if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then - local sg=Duel.GetMatchingGroup(c74822425.exfilter,tp,0,LOCATION_MZONE,nil,g) - exg:Merge(sg) - end - if gc then return (c74822425.ffilter1(gc) and (g:IsExists(c74822425.ffilter2,1,gc) or exg:IsExists(c74822425.ffilter2,1,gc))) - or (c74822425.ffilter2(gc) and (g:IsExists(c74822425.ffilter1,1,gc) or exg:IsExists(c74822425.ffilter1,1,gc))) end - local g1=Group.CreateGroup() - local g2=Group.CreateGroup() - local g3=Group.CreateGroup() - local g4=Group.CreateGroup() - local tc=g:GetFirst() - while tc do - if c74822425.ffilter1(tc) then - g1:AddCard(tc) - if aux.FConditionCheckF(tc,chkf) then g3:AddCard(tc) end - end - if c74822425.ffilter2(tc) then - g2:AddCard(tc) - if aux.FConditionCheckF(tc,chkf) then g4:AddCard(tc) end - end - tc=g:GetNext() - end - local exg1=exg:Filter(c74822425.ffilter1,nil) - local exg2=exg:Filter(c74822425.ffilter2,nil) - if chkf~=PLAYER_NONE then - return (g3:IsExists(aux.FConditionFilterF2,1,nil,g2) - or g3:IsExists(aux.FConditionFilterF2,1,nil,exg2) - or g4:IsExists(aux.FConditionFilterF2,1,nil,g1) - or g4:IsExists(aux.FConditionFilterF2,1,nil,exg1)) - else - return (g1:IsExists(aux.FConditionFilterF2,1,nil,g2) - or g1:IsExists(aux.FConditionFilterF2,1,nil,exg2) - or g2:IsExists(aux.FConditionFilterF2,1,nil,exg1)) - end -end -function c74822425.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local exg=Group.CreateGroup() - if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then - local sg=Duel.GetMatchingGroup(c74822425.exfilter,tp,0,LOCATION_MZONE,nil,eg) - exg:Merge(sg) - end - if gc then - local sg1=Group.CreateGroup() - local sg2=Group.CreateGroup() - if c74822425.ffilter1(gc) then - sg1:Merge(eg:Filter(c74822425.ffilter2,gc)) - sg2:Merge(exg:Filter(c74822425.ffilter2,gc)) - end - if c74822425.ffilter2(gc) then - sg1:Merge(eg:Filter(c74822425.ffilter1,gc)) - sg2:Merge(exg:Filter(c74822425.ffilter1,gc)) - end - local g1=nil - if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then - fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1=sg2:Select(tp,1,1,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1=sg1:Select(tp,1,1,nil) - end - Duel.SetFusionMaterial(g1) - return - end - local sg=eg:Filter(aux.FConditionFilterF2c,nil,c74822425.ffilter1,c74822425.ffilter2) - local g1=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if chkf~=PLAYER_NONE then - g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) - else g1=sg:Select(tp,1,1,nil) end - local tc1=g1:GetFirst() - local sg1=Group.CreateGroup() - local sg2=Group.CreateGroup() - if c74822425.ffilter1(tc1) then - sg1:Merge(sg:Filter(c74822425.ffilter2,tc1)) - sg2:Merge(exg:Filter(c74822425.ffilter2,tc1)) - end - if c74822425.ffilter2(tc1) then - sg1:Merge(sg:Filter(c74822425.ffilter1,tc1)) - sg2:Merge(exg:Filter(c74822425.ffilter1,tc1)) - end - local g2=nil - if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then - fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg2:Select(tp,1,1,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg1:Select(tp,1,1,nil) - end - g1:Merge(g2) - Duel.SetFusionMaterial(g1) -end -function c74822425.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c74822425.discon(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) then return false end - local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) - return loc==LOCATION_MZONE and re:IsActiveType(TYPE_MONSTER) - and bit.band(re:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL - and Duel.IsChainNegatable(ev) -end -function c74822425.filter(c) - return c:IsSetCard(0x9d) -end -function c74822425.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c74822425.filter,tp,LOCATION_HAND,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c74822425.disop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c74822425.filter,tp,LOCATION_HAND,0,1,1,nil) - if g:GetCount()>0 then - Duel.BreakEffect() - Duel.SendtoGrave(g,REASON_EFFECT) - end - end -end -function c74822425.thfilter(c) - return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c74822425.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c74822425.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c74822425.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c74822425.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c74822425.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--エルシャドール・シェキナーガ +function c74822425.initial_effect(c) + c:EnableReviveLimit() + --fusion material + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(c74822425.fuscon) + e1:SetOperation(c74822425.fusop) + c:RegisterEffect(e1) + --cannot spsummon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetCode(EFFECT_SPSUMMON_CONDITION) + e2:SetRange(LOCATION_EXTRA) + e2:SetValue(c74822425.splimit) + c:RegisterEffect(e2) + -- + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(74822425,0)) + e3:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1,74822425) + e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e3:SetCode(EVENT_CHAINING) + e3:SetCondition(c74822425.discon) + e3:SetTarget(c74822425.distg) + e3:SetOperation(c74822425.disop) + c:RegisterEffect(e3) + --tohand + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(74822425,1)) + e4:SetCategory(CATEGORY_TOHAND) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e4:SetTarget(c74822425.thtg) + e4:SetOperation(c74822425.thop) + c:RegisterEffect(e4) +end +function c74822425.ffilter1(c) + return c:IsFusionSetCard(0x9d) +end +function c74822425.ffilter2(c) + return c:IsAttribute(ATTRIBUTE_EARTH) or c:IsHasEffect(4904633) +end +function c74822425.exfilter(c,g) + return c:IsFaceup() and c:IsCanBeFusionMaterial() and not g:IsContains(c) +end +function c74822425.fuscon(e,g,gc,chkf) + if g==nil then return true end + local tp=e:GetHandlerPlayer() + local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + local exg=Group.CreateGroup() + if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then + local sg=Duel.GetMatchingGroup(c74822425.exfilter,tp,0,LOCATION_MZONE,nil,g) + exg:Merge(sg) + end + if gc then return (c74822425.ffilter1(gc) and (g:IsExists(c74822425.ffilter2,1,gc) or exg:IsExists(c74822425.ffilter2,1,gc))) + or (c74822425.ffilter2(gc) and (g:IsExists(c74822425.ffilter1,1,gc) or exg:IsExists(c74822425.ffilter1,1,gc))) end + local g1=Group.CreateGroup() + local g2=Group.CreateGroup() + local g3=Group.CreateGroup() + local g4=Group.CreateGroup() + local tc=g:GetFirst() + while tc do + if c74822425.ffilter1(tc) then + g1:AddCard(tc) + if aux.FConditionCheckF(tc,chkf) then g3:AddCard(tc) end + end + if c74822425.ffilter2(tc) then + g2:AddCard(tc) + if aux.FConditionCheckF(tc,chkf) then g4:AddCard(tc) end + end + tc=g:GetNext() + end + local exg1=exg:Filter(c74822425.ffilter1,nil) + local exg2=exg:Filter(c74822425.ffilter2,nil) + if chkf~=PLAYER_NONE then + return (g3:IsExists(aux.FConditionFilterF2,1,nil,g2) + or g3:IsExists(aux.FConditionFilterF2,1,nil,exg2) + or g4:IsExists(aux.FConditionFilterF2,1,nil,g1) + or g4:IsExists(aux.FConditionFilterF2,1,nil,exg1)) + else + return (g1:IsExists(aux.FConditionFilterF2,1,nil,g2) + or g1:IsExists(aux.FConditionFilterF2,1,nil,exg2) + or g2:IsExists(aux.FConditionFilterF2,1,nil,exg1)) + end +end +function c74822425.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) + local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + local exg=Group.CreateGroup() + if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then + local sg=Duel.GetMatchingGroup(c74822425.exfilter,tp,0,LOCATION_MZONE,nil,eg) + exg:Merge(sg) + end + if gc then + local sg1=Group.CreateGroup() + local sg2=Group.CreateGroup() + if c74822425.ffilter1(gc) then + sg1:Merge(eg:Filter(c74822425.ffilter2,gc)) + sg2:Merge(exg:Filter(c74822425.ffilter2,gc)) + end + if c74822425.ffilter2(gc) then + sg1:Merge(eg:Filter(c74822425.ffilter1,gc)) + sg2:Merge(exg:Filter(c74822425.ffilter1,gc)) + end + local g1=nil + if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then + fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g1=sg2:Select(tp,1,1,nil) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g1=sg1:Select(tp,1,1,nil) + end + Duel.SetFusionMaterial(g1) + return + end + local sg=eg:Filter(aux.FConditionFilterF2c,nil,c74822425.ffilter1,c74822425.ffilter2) + local g1=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if chkf~=PLAYER_NONE then + g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) + else g1=sg:Select(tp,1,1,nil) end + local tc1=g1:GetFirst() + local sg1=Group.CreateGroup() + local sg2=Group.CreateGroup() + if c74822425.ffilter1(tc1) then + sg1:Merge(sg:Filter(c74822425.ffilter2,tc1)) + sg2:Merge(exg:Filter(c74822425.ffilter2,tc1)) + end + if c74822425.ffilter2(tc1) then + sg1:Merge(sg:Filter(c74822425.ffilter1,tc1)) + sg2:Merge(exg:Filter(c74822425.ffilter1,tc1)) + end + local g2=nil + if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then + fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g2=sg2:Select(tp,1,1,nil) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g2=sg1:Select(tp,1,1,nil) + end + g1:Merge(g2) + Duel.SetFusionMaterial(g1) +end +function c74822425.splimit(e,se,sp,st) + return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c74822425.discon(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) then return false end + local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) + return loc==LOCATION_MZONE and re:IsActiveType(TYPE_MONSTER) + and bit.band(re:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL + and Duel.IsChainNegatable(ev) +end +function c74822425.filter(c) + return c:IsSetCard(0x9d) +end +function c74822425.distg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c74822425.filter,tp,LOCATION_HAND,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end +end +function c74822425.disop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + if re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c74822425.filter,tp,LOCATION_HAND,0,1,1,nil) + if g:GetCount()>0 then + Duel.BreakEffect() + Duel.SendtoGrave(g,REASON_EFFECT) + end + end +end +function c74822425.thfilter(c) + return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() +end +function c74822425.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c74822425.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c74822425.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c74822425.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c74822425.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c74839123.lua b/script/c74839123.lua new file mode 100644 index 00000000..7ae43362 --- /dev/null +++ b/script/c74839123.lua @@ -0,0 +1,54 @@ +--デストーイ・サンクチュアリ +function c74839123.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCost(c74839123.cost) + c:RegisterEffect(e1) + --add setcode + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetRange(LOCATION_SZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_FUSION)) + e2:SetCode(EFFECT_ADD_SETCODE) + e2:SetValue(0xad) + c:RegisterEffect(e2) + --return + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_TODECK) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetTarget(c74839123.tdtg) + e3:SetOperation(c74839123.tdop) + c:RegisterEffect(e3) +end +function c74839123.cfilter(c) + return c:IsSetCard(0xad) and c:IsType(TYPE_FUSION) and c:IsAbleToGraveAsCost() +end +function c74839123.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) + and Duel.IsExistingMatchingCard(c74839123.cfilter,tp,LOCATION_EXTRA,0,2,nil) end + Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c74839123.cfilter,tp,LOCATION_EXTRA,0,2,2,nil) + Duel.SendtoGrave(g,REASON_COST) +end +function c74839123.filter(c) + return c:IsSetCard(0xad) and c:IsType(TYPE_FUSION) and c:IsAbleToExtra() +end +function c74839123.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c74839123.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c74839123.filter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + local g=Duel.SelectTarget(tp,c74839123.filter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) +end +function c74839123.tdop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoDeck(tc,nil,0,REASON_EFFECT) + end +end diff --git a/script/c74845897.lua b/script/c74845897.lua index aa5f6624..9fe1e92f 100644 --- a/script/c74845897.lua +++ b/script/c74845897.lua @@ -10,7 +10,7 @@ function c74845897.initial_effect(c) c:RegisterEffect(e1) end function c74845897.filter(c,e,tp) - return c:GetDefence()==200 and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:GetDefense()==200 and c:IsAttribute(ATTRIBUTE_FIRE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c74845897.tg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -19,9 +19,15 @@ function c74845897.tg(e,tp,eg,ep,ev,re,r,rp,chk) end function c74845897.op(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c74845897.filter,tp,LOCATION_GRAVE,0,ft,ft,nil,e,tp) + local tg=Duel.GetMatchingGroup(c74845897.filter,tp,LOCATION_GRAVE,0,nil,e,tp) + if ft<=0 or (Duel.IsPlayerAffectedByEffect(tp,59822133) and tg:GetCount()>1 and ft>1) then return end + local g=nil + if tg:GetCount()>ft then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + g=tg:Select(tp,ft,ft,nil) + else + g=tg + end if g:GetCount()>0 then local fid=e:GetHandler():GetFieldID() local tc=g:GetFirst() diff --git a/script/c74848038.lua b/script/c74848038.lua index e03d639c..06d5bf36 100644 --- a/script/c74848038.lua +++ b/script/c74848038.lua @@ -29,6 +29,5 @@ function c74848038.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c74860293.lua b/script/c74860293.lua index 067554dc..14e45860 100644 --- a/script/c74860293.lua +++ b/script/c74860293.lua @@ -23,11 +23,11 @@ function c74860293.con(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO end function c74860293.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end local mc=e:GetHandler():GetMaterialCount() + if chk==0 then return mc>1 and Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,mc-1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,mc-1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c74860293.op(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c74875003.lua b/script/c74875003.lua index 86d0617d..0892a246 100644 --- a/script/c74875003.lua +++ b/script/c74875003.lua @@ -48,7 +48,9 @@ function c74875003.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c74875003.operation(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end if ft>2 then ft=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c74875003.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,ft,nil,e,tp) if g:GetCount()>0 then @@ -56,8 +58,8 @@ function c74875003.operation(e,tp,eg,ep,ev,re,r,rp) end end function c74875003.sumval(e,c) - return not c:IsCode(10000000) and not c:IsCode(10000010) and not c:IsCode(10000020) + return not c:IsCode(10000000,10000010,10000020) end function c74875003.splimit(e,c,sump,sumtype,sumpos,targetp,se) return not se:GetHandler():IsCode(74875003) -end \ No newline at end of file +end diff --git a/script/c75014062.lua b/script/c75014062.lua index 0ccc207a..040948bf 100644 --- a/script/c75014062.lua +++ b/script/c75014062.lua @@ -12,21 +12,21 @@ function c75014062.initial_effect(c) c:RegisterEffect(e1) end function c75014062.filter(c) - return c:IsFaceup() and c:IsCanAddCounter(0x3001,1) + return c:IsFaceup() and c:IsCanAddCounter(0x1,1) end function c75014062.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c75014062.filter(chkc) end if chk==0 then return Duel.IsExistingTarget(c75014062.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(75014062,1)) Duel.SelectTarget(tp,c75014062.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x3001) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x1) end function c75014062.tfilter(c) return c:IsCode(75014062) and c:IsAbleToHand() end function c75014062.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:AddCounter(0x3001,1) then + if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:AddCounter(0x1,1) then local th=Duel.GetFirstMatchingCard(c75014062.tfilter,tp,LOCATION_DECK,0,nil) if th and Duel.SelectYesNo(tp,aux.Stringid(75014062,0)) then Duel.SendtoHand(th,nil,REASON_EFFECT) diff --git a/script/c75041269.lua b/script/c75041269.lua index 61933957..44842361 100644 --- a/script/c75041269.lua +++ b/script/c75041269.lua @@ -1,5 +1,6 @@ --幽獄の時計塔 function c75041269.initial_effect(c) + c:EnableCounterPermit(0x1b) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -43,7 +44,7 @@ function c75041269.ctcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()~=tp end function c75041269.ctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x1b+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x1b,1) end function c75041269.spcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() diff --git a/script/c75078585.lua b/script/c75078585.lua index 10c69221..6f756b08 100644 --- a/script/c75078585.lua +++ b/script/c75078585.lua @@ -1,6 +1,5 @@ --スクランブル・エッグ function c75078585.initial_effect(c) - Duel.EnableGlobalFlag(GLOBALFLAG_DELAYED_QUICKEFFECT) --Activate local e1=Effect.CreateEffect(c) e1:SetCategory(CATEGORY_SPECIAL_SUMMON) diff --git a/script/c75109441.lua b/script/c75109441.lua index 56a539a9..16123e41 100644 --- a/script/c75109441.lua +++ b/script/c75109441.lua @@ -26,7 +26,7 @@ end function c75109441.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c75109441.cfop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c75116619.lua b/script/c75116619.lua index 8f47ae3b..a7a6b4ab 100644 --- a/script/c75116619.lua +++ b/script/c75116619.lua @@ -25,7 +25,7 @@ function c75116619.initial_effect(c) e2:SetValue(500) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end function c75116619.cfilter(c) diff --git a/script/c75141056.lua b/script/c75141056.lua index d3368223..920d7c63 100644 --- a/script/c75141056.lua +++ b/script/c75141056.lua @@ -13,7 +13,7 @@ function c75141056.tgfilter(c) return c:IsFaceup() and Duel.IsExistingMatchingCard(c75141056.cfilter,c:GetControler(),LOCATION_DECK,0,1,nil,c) end function c75141056.cfilter(c,tc) - return c:IsSetCard(0x3008) and not c:IsCode(tc:GetCode()) and c:IsAbleToGrave() + return c:IsSetCard(0x3008) and not c:IsCode(tc:GetCode()) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() end function c75141056.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c75141056.tgfilter(chkc) end @@ -35,10 +35,5 @@ function c75141056.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(gc:GetCode()) tc:RegisterEffect(e1) end - elseif Duel.IsPlayerCanDiscardDeck(tp,1) then - local cg=Duel.GetFieldGroup(tp,LOCATION_DECK,0) - Duel.ConfirmCards(1-tp,cg) - Duel.ConfirmCards(tp,cg) - Duel.ShuffleDeck(tp) end end diff --git a/script/c75180828.lua b/script/c75180828.lua index b622b366..53dc32f7 100644 --- a/script/c75180828.lua +++ b/script/c75180828.lua @@ -46,9 +46,10 @@ function c75180828.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c75180828.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c75180828.descon(e,tp,eg,ep,ev,re,r,rp) @@ -57,16 +58,13 @@ end function c75180828.descount(c) return c:IsSetCard(0x74) and c:IsType(TYPE_MONSTER) end -function c75180828.desfilter(c) - return c:IsDestructable() -end function c75180828.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and c75180828.desfilter(chkc) end + if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end if chk==0 then return true end local ct=Duel.GetMatchingGroupCount(c75180828.descount,tp,LOCATION_GRAVE,0,nil) if ct>0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c75180828.desfilter,tp,0,LOCATION_ONFIELD,1,ct,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,ct,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end end @@ -115,12 +113,12 @@ function c75180828.atkop(e,tp,eg,ep,ev,re,r,rp) end function c75180828.destg2(e,tp,eg,ep,ev,re,r,rp,chk) local d=Duel.GetAttackTarget() - if chk ==0 then return Duel.GetAttacker()==e:GetHandler() and d~=nil and d:IsDefencePos() end + if chk ==0 then return Duel.GetAttacker()==e:GetHandler() and d~=nil and d:IsDefensePos() end Duel.SetOperationInfo(0,CATEGORY_DESTROY,d,1,0,0) end function c75180828.desop2(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - if d~=nil and d:IsRelateToBattle() and d:IsDefencePos() then + if d~=nil and d:IsRelateToBattle() and d:IsDefensePos() then Duel.Destroy(d,REASON_EFFECT) end end diff --git a/script/c75190122.lua b/script/c75190122.lua old mode 100755 new mode 100644 index 57ccbb1d..87d74a90 --- a/script/c75190122.lua +++ b/script/c75190122.lua @@ -1,29 +1,30 @@ ---黒・爆・裂・破・魔・導 -function c75190122.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c75190122.condition) - e1:SetTarget(c75190122.target) - e1:SetOperation(c75190122.activate) - c:RegisterEffect(e1) -end -function c75190122.cfilter(c,code) - local code1,code2=c:GetOriginalCodeRule() - return c:IsFaceup() and (code1==code or code2==code) -end -function c75190122.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c75190122.cfilter,tp,LOCATION_MZONE,0,1,nil,46986414) - and Duel.IsExistingMatchingCard(c75190122.cfilter,tp,LOCATION_MZONE,0,1,nil,38033121) -end -function c75190122.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c75190122.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.Destroy(g,REASON_EFFECT) -end +--黒・爆・裂・破・魔・導 +function c75190122.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCondition(c75190122.condition) + e1:SetTarget(c75190122.target) + e1:SetOperation(c75190122.activate) + c:RegisterEffect(e1) +end +c75190122.card_code_list={46986414,38033121} +function c75190122.cfilter(c,code) + local code1,code2=c:GetOriginalCodeRule() + return c:IsFaceup() and (code1==code or code2==code) +end +function c75190122.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c75190122.cfilter,tp,LOCATION_MZONE,0,1,nil,46986414) + and Duel.IsExistingMatchingCard(c75190122.cfilter,tp,LOCATION_MZONE,0,1,nil,38033121) +end +function c75190122.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c75190122.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c75195825.lua b/script/c75195825.lua index 2cd88c07..016388e2 100644 --- a/script/c75195825.lua +++ b/script/c75195825.lua @@ -15,7 +15,7 @@ function c75195825.initial_effect(c) c:RegisterEffect(e2) end function c75195825.filter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() + return (c:GetSequence()==6 or c:GetSequence()==7) end function c75195825.sctg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and c75195825.filter(chkc) end diff --git a/script/c75198893.lua b/script/c75198893.lua index 7212ab36..0a7348e3 100644 --- a/script/c75198893.lua +++ b/script/c75198893.lua @@ -13,7 +13,7 @@ function c75198893.initial_effect(c) c:RegisterEffect(e1) end function c75198893.filter(c) - return c:IsFaceup() and c:IsType(TYPE_MONSTER) and not c:IsType(TYPE_XYZ) and not c:IsHasEffect(EFFECT_FORBIDDEN) + return c:IsFaceup() and c:IsType(TYPE_MONSTER) and not c:IsType(TYPE_XYZ) and not c:IsForbidden() end function c75198893.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(1-tp) and c75198893.filter(chkc) end @@ -27,7 +27,7 @@ function c75198893.operation(e,tp,eg,ep,ev,re,r,rp) if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) then local code=tc:GetOriginalCode() local ba=tc:GetBaseAttack() - local bd=tc:GetBaseDefence() + local bd=tc:GetBaseDefense() local at=tc:GetAttribute() local lv=tc:GetLevel() local e1=Effect.CreateEffect(c) @@ -42,7 +42,7 @@ function c75198893.operation(e,tp,eg,ep,ev,re,r,rp) e2:SetValue(ba) c:RegisterEffect(e2) local e3=e1:Clone() - e3:SetCode(EFFECT_SET_BASE_DEFENCE) + e3:SetCode(EFFECT_SET_BASE_DEFENSE) e3:SetValue(bd) c:RegisterEffect(e3) local e4=e1:Clone() diff --git a/script/c75209824.lua b/script/c75209824.lua index ef7a8b1d..b985fed8 100644 --- a/script/c75209824.lua +++ b/script/c75209824.lua @@ -29,7 +29,7 @@ end function c75209824.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c75209824.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) diff --git a/script/c75214390.lua b/script/c75214390.lua old mode 100755 new mode 100644 index 9a46c5ef..a4fd91c2 --- a/script/c75214390.lua +++ b/script/c75214390.lua @@ -5,7 +5,7 @@ function c75214390.initial_effect(c) e1:SetType(EFFECT_TYPE_FIELD) e1:SetCode(EFFECT_SPSUMMON_PROC) e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) - e1:SetTargetRange(POS_FACEUP_DEFENCE,0) + e1:SetTargetRange(POS_FACEUP_DEFENSE,0) e1:SetRange(LOCATION_HAND) e1:SetCountLimit(1,75214390) e1:SetCondition(c75214390.spcon) diff --git a/script/c75249652.lua b/script/c75249652.lua old mode 100755 new mode 100644 index 7aecdd00..470aa63d --- a/script/c75249652.lua +++ b/script/c75249652.lua @@ -14,7 +14,7 @@ function c75249652.condition(e,tp,eg,ep,ev,re,r,rp) return eg:GetFirst():IsControler(1-tp) end function c75249652.filter(c) - return c:IsAttackPos() and c:IsDestructable() + return c:IsAttackPos() end function c75249652.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c75249652.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c75252099.lua b/script/c75252099.lua index bf3c0efe..ab6556a8 100644 --- a/script/c75252099.lua +++ b/script/c75252099.lua @@ -20,15 +20,17 @@ function c75252099.filter(c,e,tp) return c:IsRace(RACE_PLANT) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c75252099.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c75252099.filter,tp,LOCATION_DECK,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c75252099.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetMatchingGroup(c75252099.filter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()<2 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,2,2,nil) - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end diff --git a/script/c75253697.lua b/script/c75253697.lua old mode 100755 new mode 100644 index 81af6204..f56672e5 --- a/script/c75253697.lua +++ b/script/c75253697.lua @@ -22,7 +22,7 @@ function c75253697.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST) end function c75253697.dfilter(c,pos) - return c:IsPosition(pos) and c:IsDestructable() + return c:IsPosition(pos) end function c75253697.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c75285069.lua b/script/c75285069.lua index 91f590b1..d92abb1e 100644 --- a/script/c75285069.lua +++ b/script/c75285069.lua @@ -35,7 +35,7 @@ function c75285069.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE+1 end function c75285069.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c75285069.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c75304793.lua b/script/c75304793.lua index 12276919..5c9c0dae 100644 --- a/script/c75304793.lua +++ b/script/c75304793.lua @@ -1,5 +1,6 @@ --アンプリファイヤー function c75304793.initial_effect(c) + c:EnableCounterPermit(0x35) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -36,7 +37,7 @@ function c75304793.ctcon(e,tp,eg,ep,ev,re,r,rp) return re and re:GetHandler():IsSetCard(0x1066) and not re:IsHasType(EFFECT_TYPE_ACTIVATE) end function c75304793.ctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x35+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x35,1) end function c75304793.atkval(e,c) return e:GetHandler():GetCounter(0x35)*100 diff --git a/script/c75347539.lua b/script/c75347539.lua index ba50a8e7..ef95d65e 100644 --- a/script/c75347539.lua +++ b/script/c75347539.lua @@ -46,7 +46,8 @@ function c75347539.spfilter(c,e,tp,code) end function c75347539.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>=2 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>=2 and Duel.IsExistingTarget(c75347539.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,99785935) and Duel.IsExistingTarget(c75347539.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,39256679) and Duel.IsExistingTarget(c75347539.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,11549357) end @@ -61,6 +62,7 @@ function c75347539.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,3,0,0) end function c75347539.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if g:GetCount()~=3 or ft<3 then return end diff --git a/script/c75361204.lua b/script/c75361204.lua old mode 100755 new mode 100644 index a447851f..143f3f83 --- a/script/c75361204.lua +++ b/script/c75361204.lua @@ -73,7 +73,7 @@ function c75361204.spfilter2(c,e,tp,code) return c:IsSetCard(0xd1) and not c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c75361204.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetEquipTarget():IsDestructable() + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c75361204.spfilter1,tp,LOCATION_DECK,0,1,nil,e,tp) end local ec=e:GetLabelObject() @@ -84,6 +84,7 @@ end function c75361204.spop(e,tp,eg,ep,ev,re,r,rp) local ec=e:GetLabelObject() if ec:IsRelateToEffect(e) and ec:IsFaceup() and Duel.Destroy(ec,REASON_EFFECT)~=0 + and not Duel.IsPlayerAffectedByEffect(tp,59822133) and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 then local fid=e:GetHandler():GetFieldID() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) diff --git a/script/c75367227.lua b/script/c75367227.lua old mode 100755 new mode 100644 index 2fde5a24..2e6b83e3 --- a/script/c75367227.lua +++ b/script/c75367227.lua @@ -42,7 +42,7 @@ function c75367227.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c75367227.desfilter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c75367227.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c75367227.desfilter(chkc) end diff --git a/script/c75372290.lua b/script/c75372290.lua index d483a7df..e308bb28 100644 --- a/script/c75372290.lua +++ b/script/c75372290.lua @@ -1,6 +1,6 @@ --絶対防御将軍 function c75372290.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(75372290,0)) e1:SetCategory(CATEGORY_POSITION) @@ -15,7 +15,7 @@ function c75372290.initial_effect(c) -- local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DEFENCE_ATTACK) + e3:SetCode(EFFECT_DEFENSE_ATTACK) c:RegisterEffect(e3) end function c75372290.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) @@ -25,6 +25,6 @@ end function c75372290.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsAttackPos() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end diff --git a/script/c7541475.lua b/script/c7541475.lua old mode 100755 new mode 100644 index d1442845..49ca5df1 --- a/script/c7541475.lua +++ b/script/c7541475.lua @@ -20,6 +20,6 @@ end function c7541475.posop(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() if d:IsRelateToBattle() then - Duel.ChangePosition(d,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(d,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end diff --git a/script/c75421661.lua b/script/c75421661.lua index fbd482c3..ce4e2c7c 100644 --- a/script/c75421661.lua +++ b/script/c75421661.lua @@ -26,7 +26,7 @@ function c75421661.atkop(e,tp,eg,ep,ev,re,r,rp) e:GetHandler():RegisterEffect(e1) end function c75421661.filter(c,e) - return c:IsFaceup() and c:IsDestructable() and (not e or c:IsRelateToEffect(e)) + return c:IsFaceup() and (not e or c:IsRelateToEffect(e)) end function c75421661.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c75421661.filter(chkc) end diff --git a/script/c75425043.lua b/script/c75425043.lua old mode 100755 new mode 100644 index d63552fb..3a71c2c5 --- a/script/c75425043.lua +++ b/script/c75425043.lua @@ -45,13 +45,15 @@ function c75425043.thfilter(c) return c:IsSetCard(0xc1) and not c:IsCode(75425043) and c:IsAbleToHand() end function c75425043.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(c75425043.spfilter1,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) end function c75425043.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 or not e:GetHandler():IsRelateToEffect(e) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c75425043.spfilter2,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) diff --git a/script/c75433814.lua b/script/c75433814.lua index 69eacd6c..28a985b3 100644 --- a/script/c75433814.lua +++ b/script/c75433814.lua @@ -37,7 +37,7 @@ function c75433814.ctop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) local tc=g:GetFirst() while tc do - tc:AddCounter(0x24,1) + tc:AddCounter(0x1024,1) tc=g:GetNext() end Duel.RegisterFlagEffect(tp,75433814,RESET_PHASE+PHASE_END,0,2) @@ -46,7 +46,7 @@ function c75433814.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetFlagEffect(tp,75433814)~=0 and Duel.GetTurnPlayer()~=tp end function c75433814.desfilter(c) - return c:GetCounter(0x24)~=0 and c:IsDestructable() + return c:GetCounter(0x1024)~=0 end function c75433814.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c75433814.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c75434695.lua b/script/c75434695.lua index 98ba09bf..644d5e8d 100644 --- a/script/c75434695.lua +++ b/script/c75434695.lua @@ -21,7 +21,7 @@ function c75434695.filter(c) end function c75434695.tg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c75434695.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,0,1,0,LOCATION_DECK+LOCATION_GRAVE) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) end function c75434695.op(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) diff --git a/script/c75487237.lua b/script/c75487237.lua index 685b0686..5cbfaf76 100644 --- a/script/c75487237.lua +++ b/script/c75487237.lua @@ -10,7 +10,7 @@ function c75487237.initial_effect(c) e1:SetOperation(c75487237.operation) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_F) + e2:SetType(EFFECT_TYPE_QUICK_F) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL+EFFECT_FLAG_SET_AVAILABLE) e2:SetRange(LOCATION_MZONE) @@ -27,7 +27,7 @@ end function c75487237.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c75487237.negcon(e,tp,eg,ep,ev,re,r,rp) @@ -40,5 +40,8 @@ function c75487237.negcon(e,tp,eg,ep,ev,re,r,rp) end function c75487237.negop(e,tp,eg,ep,ev,re,r,rp) Duel.NegateActivation(ev) - Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENCE) + if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then + Duel.SendtoGrave(eg,REASON_EFFECT) + end + Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENSE) end diff --git a/script/c75524092.lua b/script/c75524092.lua index 26bb496b..ec43fc25 100644 --- a/script/c75524092.lua +++ b/script/c75524092.lua @@ -58,7 +58,7 @@ function c75524092.desrepop(e,tp,eg,ep,ev,re,r,rp) local exc=e:GetHandler():GetEquipTarget():GetBattleTarget() Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,exc) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,exc) if Duel.Destroy(g,REASON_EFFECT)>0 and Duel.Damage(1-tp,600,REASON_EFFECT)~=0 then if Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp)>0 and Duel.IsPlayerCanSpecialSummonMonster(tp,75524093,0,0x4011,2500,2500,7,RACE_FIEND,ATTRIBUTE_DARK,POS_FACEUP,1-tp) then diff --git a/script/c75539614.lua b/script/c75539614.lua old mode 100755 new mode 100644 index 8debf875..b28d2e00 --- a/script/c75539614.lua +++ b/script/c75539614.lua @@ -18,7 +18,7 @@ function c75539614.initial_effect(c) e2:SetValue(c75539614.val) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --Equip limit local e4=Effect.CreateEffect(c) diff --git a/script/c75574498.lua b/script/c75574498.lua index a53d2e44..57dcad7d 100644 --- a/script/c75574498.lua +++ b/script/c75574498.lua @@ -76,7 +76,7 @@ function c75574498.spcost2(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c75574498.spfilter2(c,e,tp) - return c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c75574498.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -87,7 +87,7 @@ function c75574498.spop2(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c75574498.spfilter2,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c75622824.lua b/script/c75622824.lua index daf678be..89282df1 100644 --- a/script/c75622824.lua +++ b/script/c75622824.lua @@ -20,19 +20,22 @@ function c75622824.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c75622824.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.GetFieldGroupCount(1-tp,LOCATION_MZONE,0)>0 end local ct=Duel.GetFieldGroupCount(1-tp,LOCATION_MZONE,0) + if chk==0 then return ct>0 and (ct==1 or not Duel.IsPlayerAffectedByEffect(tp,59822133)) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>ct-2 end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,ct,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,ct,0,0) end function c75622824.activate(e,tp,eg,ep,ev,re,r,rp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local ct=Duel.GetFieldGroupCount(1-tp,LOCATION_MZONE,0) - if Duel.GetLocationCount(tp,LOCATION_MZONE)0 then + Duel.Damage(1-tp,atk,REASON_EFFECT) + end + end +end diff --git a/script/c75937826.lua b/script/c75937826.lua index b8515846..8714f53b 100644 --- a/script/c75937826.lua +++ b/script/c75937826.lua @@ -1,5 +1,6 @@ ---巨大戦艦 ビッグ・コアＭｋ－ＩＩ +--巨大戦艦 ビッグ・コアMk－Ⅱ function c75937826.initial_effect(c) + c:EnableCounterPermit(0x1f) --spsummon success local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(75937826,0)) @@ -48,7 +49,7 @@ function c75937826.addct(e,tp,eg,ep,ev,re,r,rp,chk) end function c75937826.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x1f+COUNTER_NEED_ENABLE,3) + e:GetHandler():AddCounter(0x1f,3) end end function c75937826.rctcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c759393.lua b/script/c759393.lua old mode 100755 new mode 100644 diff --git a/script/c75944053.lua b/script/c75944053.lua index 0a5e6c02..017dc46d 100644 --- a/script/c75944053.lua +++ b/script/c75944053.lua @@ -62,7 +62,7 @@ function c75944053.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end diff --git a/script/c75949431.lua b/script/c75949431.lua deleted file mode 100644 index a496c098..00000000 --- a/script/c75949431.lua +++ /dev/null @@ -1,34 +0,0 @@ ---Yellow Process - Kitolenics -function c75949431.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c75949431.cost) - e1:SetTarget(c75949431.target) - e1:SetOperation(c75949431.activate) - c:RegisterEffect(e1) -end -function c75949431.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,54493213) end - local g=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,54493213) - Duel.Release(g,REASON_COST) -end -function c75949431.filter(c,e,tp) - return c:IsCode(80887952) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c75949431.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(c75949431.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) -end -function c75949431.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c75949431.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP) - g:GetFirst():CompleteProcedure() - end -end diff --git a/script/c75967082.lua b/script/c75967082.lua index ef9ec5c3..c4430c06 100644 --- a/script/c75967082.lua +++ b/script/c75967082.lua @@ -17,11 +17,11 @@ function c75967082.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c75967082.cfilter,tp,LOCATION_MZONE,0,3,nil) end function c75967082.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c75967082.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c75987257.lua b/script/c75987257.lua index 5db678c4..54f18fcc 100644 --- a/script/c75987257.lua +++ b/script/c75987257.lua @@ -28,7 +28,7 @@ end function c75987257.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local tg=Duel.GetAttacker() if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsDestructable() and tg:IsCanBeEffectTarget(e) end + if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end Duel.SetTargetCard(tg) end function c75987257.operation(e,tp,eg,ep,ev,re,r,rp) @@ -36,7 +36,7 @@ function c75987257.operation(e,tp,eg,ep,ev,re,r,rp) if not c:IsLocation(LOCATION_SZONE) then return end local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsAttackable() and not tc:IsStatus(STATUS_ATTACK_CANCELED) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) if c:IsRelateToEffect(e) then Duel.Equip(tp,c,tc) c:CancelToGrave() @@ -57,13 +57,13 @@ function c75987257.eqlimit(e,c) end function c75987257.poscon(e,tp,eg,ep,ev,re,r,rp) local ph=Duel.GetCurrentPhase() - return (ph==PHASE_MAIN1 or ph==PHASE_BATTLE or ph==PHASE_MAIN2) and e:GetHandler():GetEquipTarget() + return ph>=PHASE_MAIN1 and ph<=PHASE_MAIN2 and e:GetHandler():GetEquipTarget() end function c75987257.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if not c:IsRelateToEffect(e) then return end local ec=c:GetEquipTarget() if ec then - Duel.ChangePosition(ec,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(ec,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c75988594.lua b/script/c75988594.lua old mode 100755 new mode 100644 index 60ac3cd8..6e460106 --- a/script/c75988594.lua +++ b/script/c75988594.lua @@ -1,67 +1,59 @@ ---超重剣聖ムサ－C -function c75988594.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --add setcode - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_ADD_SETCODE) - e1:SetValue(0x9a) - c:RegisterEffect(e1) - --salvage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(75988594,0)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c75988594.thcon) - e2:SetTarget(c75988594.thtg) - e2:SetOperation(c75988594.thop) - c:RegisterEffect(e2) - --defence attack - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DEFENCE_ATTACK) - e3:SetValue(1) - c:RegisterEffect(e3) -end -function c75988594.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO -end -function c75988594.thfilter(c) - return c:IsRace(RACE_MACHINE) and c:IsAbleToHand() -end -function c75988594.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c75988594.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c75988594.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c75988594.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c75988594.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - if Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_GRAVE,0,1,nil,TYPE_SPELL+TYPE_TRAP) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetTarget(c75988594.sumlimit) - e1:SetLabel(tc:GetCode()) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - Duel.RegisterEffect(e2,tp) - end - end -end -function c75988594.sumlimit(e,c) - return c:IsCode(e:GetLabel()) -end +--超重剣聖ムサ－C +function c75988594.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --salvage + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(75988594,0)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetCondition(c75988594.thcon) + e2:SetTarget(c75988594.thtg) + e2:SetOperation(c75988594.thop) + c:RegisterEffect(e2) + --defense attack + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_DEFENSE_ATTACK) + e3:SetValue(1) + c:RegisterEffect(e3) +end +function c75988594.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO +end +function c75988594.thfilter(c) + return c:IsRace(RACE_MACHINE) and c:IsAbleToHand() +end +function c75988594.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c75988594.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c75988594.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c75988594.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c75988594.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + if Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_GRAVE,0,1,nil,TYPE_SPELL+TYPE_TRAP) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetTarget(c75988594.sumlimit) + e1:SetLabel(tc:GetCode()) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local e2=e1:Clone() + e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + Duel.RegisterEffect(e2,tp) + end + end +end +function c75988594.sumlimit(e,c) + return c:IsCode(e:GetLabel()) +end diff --git a/script/c76004142.lua b/script/c76004142.lua old mode 100755 new mode 100644 diff --git a/script/c76066541.lua b/script/c76066541.lua old mode 100755 new mode 100644 index 3a1c880b..aa66b7f7 --- a/script/c76066541.lua +++ b/script/c76066541.lua @@ -34,7 +34,7 @@ function c76066541.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(tp,c76066541.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) local tc=g:GetFirst() if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_PHASE+PHASE_END) diff --git a/script/c76075810.lua b/script/c76075810.lua index f056553f..cdcd5984 100644 --- a/script/c76075810.lua +++ b/script/c76075810.lua @@ -18,7 +18,7 @@ function c76075810.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_EFFECT) end function c76075810.filter(c,atk) - return c:IsFaceup() and c:GetDefence()0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c76137614.lua b/script/c76137614.lua index ae2824b3..968d0d11 100644 --- a/script/c76137614.lua +++ b/script/c76137614.lua @@ -14,8 +14,8 @@ function c76137614.initial_effect(c) c:RegisterEffect(e1) end function c76137614.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x3001,1,REASON_COST) end - Duel.RemoveCounter(tp,1,1,0x3001,1,REASON_COST) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x1,1,REASON_COST) end + Duel.RemoveCounter(tp,1,1,0x1,1,REASON_COST) end function c76137614.filter(c) return c:IsType(TYPE_SPELL) and c:IsFaceup() and c:IsAbleToHand() diff --git a/script/c7617062.lua b/script/c7617062.lua old mode 100755 new mode 100644 index fcfe093b..3aaa8c22 --- a/script/c7617062.lua +++ b/script/c7617062.lua @@ -68,6 +68,6 @@ end function c7617062.posop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c7617062.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if e:GetHandler():IsRelateToEffect(e) then - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c76203291.lua b/script/c76203291.lua index 13731f59..3e06b6b1 100644 --- a/script/c76203291.lua +++ b/script/c76203291.lua @@ -18,10 +18,10 @@ function c76203291.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c76203291.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c76203291.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c76214441.lua b/script/c76214441.lua index 1b5aa64d..bd4a38c3 100644 --- a/script/c76214441.lua +++ b/script/c76214441.lua @@ -4,7 +4,7 @@ function c76214441.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(76214441,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_HAND) diff --git a/script/c76218313.lua b/script/c76218313.lua old mode 100755 new mode 100644 index b6c8cfa5..e1e8a3ed --- a/script/c76218313.lua +++ b/script/c76218313.lua @@ -66,8 +66,10 @@ function c76218313.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c76218313.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c76218313.splimit(e,c) diff --git a/script/c76224717.lua b/script/c76224717.lua index a65dc2c9..4c36495f 100644 --- a/script/c76224717.lua +++ b/script/c76224717.lua @@ -48,7 +48,7 @@ function c76224717.clear(e,tp,eg,ep,ev,re,r,rp) c76224717[1]=0 end function c76224717.filter1(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c76224717.filter2(c) return c:IsType(TYPE_MONSTER) and c:IsAbleToHand() diff --git a/script/c7623640.lua b/script/c7623640.lua index 08097159..204d87b3 100644 --- a/script/c7623640.lua +++ b/script/c7623640.lua @@ -30,7 +30,7 @@ function c7623640.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c7623640.spop(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(e:GetHandler(),0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) end end function c7623640.hdcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c76263644.lua b/script/c76263644.lua index 20c2aa98..283786d8 100644 --- a/script/c76263644.lua +++ b/script/c76263644.lua @@ -17,11 +17,12 @@ function c76263644.initial_effect(c) c:RegisterEffect(e2) --Special Summon local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(76263644,1)) e3:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD) e3:SetCategory(CATEGORY_SPECIAL_SUMMON) e3:SetCode(EVENT_PHASE+PHASE_STANDBY) e3:SetRange(LOCATION_GRAVE) - e3:SetDescription(aux.Stringid(76263644,1)) + e3:SetCountLimit(1) e3:SetCondition(c76263644.spcon) e3:SetCost(c76263644.spcost) e3:SetTarget(c76263644.sptg) @@ -39,10 +40,10 @@ function c76263644.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.RegisterEffect(e1,tp) end function c76263644.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) local d=g:GetFirst() local atk=0 if d:IsFaceup() then atk=d:GetAttack() end @@ -59,8 +60,7 @@ function c76263644.desop(e,tp,eg,ep,ev,re,r,rp) end end function c76263644.spcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) + return Duel.GetTurnPlayer()==tp end function c76263644.spcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c76263644.spfilter,tp,LOCATION_GRAVE,0,1,nil) end @@ -72,7 +72,8 @@ function c76263644.spfilter(c) return c:IsSetCard(0xc008) and c:IsAbleToRemoveAsCost() end function c76263644.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c76263644.spop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c76305638.lua b/script/c76305638.lua index 756259d3..81891a66 100644 --- a/script/c76305638.lua +++ b/script/c76305638.lua @@ -23,7 +23,7 @@ end function c76305638.atkcon(e) local ph=Duel.GetCurrentPhase() local tp=Duel.GetTurnPlayer() - return tp~=e:GetHandler():GetControler() and (ph==PHASE_BATTLE or ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) + return tp~=e:GetHandler():GetControler() and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE end function c76305638.spfilter(c) return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsAbleToRemoveAsCost() diff --git a/script/c7634581.lua b/script/c7634581.lua index ead321f5..a1169fa5 100644 --- a/script/c7634581.lua +++ b/script/c7634581.lua @@ -48,8 +48,12 @@ function c7634581.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c7634581.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,true,false,POS_FACEUP) - e:GetHandler():CompleteProcedure() + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then + c:CompleteProcedure() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c76359406.lua b/script/c76359406.lua new file mode 100644 index 00000000..2edc601d --- /dev/null +++ b/script/c76359406.lua @@ -0,0 +1,66 @@ +--水晶機巧－アメトリクス +function c76359406.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --position + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(76359406,0)) + e1:SetCategory(CATEGORY_POSITION) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c76359406.poscon) + e1:SetTarget(c76359406.postg) + e1:SetOperation(c76359406.posop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(76359406,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_DESTROYED) + e2:SetCondition(c76359406.spcon) + e2:SetTarget(c76359406.sptg) + e2:SetOperation(c76359406.spop) + c:RegisterEffect(e2) +end +function c76359406.poscon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO +end +function c76359406.posfilter(c) + return c:IsFaceup() and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c76359406.postg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c76359406.posfilter,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(c76359406.posfilter,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) +end +function c76359406.posop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c76359406.posfilter,tp,0,LOCATION_MZONE,nil) + if g:GetCount()>0 then + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) + end +end +function c76359406.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_MZONE) and c:GetSummonType()==SUMMON_TYPE_SYNCHRO and bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 +end +function c76359406.spfilter(c,e,tp) + return c:IsSetCard(0xea) and not c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c76359406.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c76359406.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c76359406.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c76359406.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c76359406.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c76442347.lua b/script/c76442347.lua index 162ba85c..1751c45e 100644 --- a/script/c76442347.lua +++ b/script/c76442347.lua @@ -42,7 +42,7 @@ function c76442347.spop(e,tp,eg,ep,ev,re,r,rp) if tc and tc:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then local spos=0 if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then spos=spos+POS_FACEUP_ATTACK end - if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENCE end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENSE end if spos~=0 then Duel.SpecialSummon(tc,0,tp,tp,false,false,spos) end end end diff --git a/script/c76442616.lua b/script/c76442616.lua index 26b6adc3..e554ca73 100644 --- a/script/c76442616.lua +++ b/script/c76442616.lua @@ -20,11 +20,13 @@ function c76442616.filter(c,e,tp) return c:IsLevelBelow(4) and c:IsSetCard(0x3008) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c76442616.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c76442616.filter,tp,LOCATION_HAND,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND) end function c76442616.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 then return end local g=Duel.GetMatchingGroup(c76442616.filter,tp,LOCATION_HAND,0,nil,e,tp) if g:GetCount()>=2 then diff --git a/script/c76459806.lua b/script/c76459806.lua index 63eba6e4..a9cc08dd 100644 --- a/script/c76459806.lua +++ b/script/c76459806.lua @@ -17,7 +17,7 @@ function c76459806.initial_effect(c) c:RegisterEffect(e3) end function c76459806.filter(c) - return c:IsSetCard(0xb9) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0xb9) and c:IsAbleToHand() end function c76459806.tg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c76459806.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end @@ -26,7 +26,7 @@ end function c76459806.op(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c76459806.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end diff --git a/script/c76471944.lua b/script/c76471944.lua new file mode 100644 index 00000000..2e4d4b17 --- /dev/null +++ b/script/c76471944.lua @@ -0,0 +1,45 @@ +--超重忍者サルト－B +function c76471944.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),aux.NonTuner(Card.IsSetCard,0x9a),1) + c:EnableReviveLimit() + --defense attack + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DEFENSE_ATTACK) + e1:SetValue(1) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(76471944,0)) + e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCondition(c76471944.descon) + e2:SetTarget(c76471944.destg) + e2:SetOperation(c76471944.desop) + c:RegisterEffect(e2) +end +function c76471944.descon(e,tp,eg,ep,ev,re,r,rp) + return not Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_GRAVE,0,1,nil,TYPE_SPELL+TYPE_TRAP) +end +function c76471944.desfilter(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) +end +function c76471944.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and c76471944.desfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c76471944.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c76471944.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) +end +function c76471944.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + Duel.Damage(1-tp,500,REASON_EFFECT) + end +end diff --git a/script/c76473843.lua b/script/c76473843.lua old mode 100755 new mode 100644 index a6970003..095c4ea7 --- a/script/c76473843.lua +++ b/script/c76473843.lua @@ -15,7 +15,7 @@ function c76473843.initial_effect(c) e2:SetValue(300) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --spsummon local e4=Effect.CreateEffect(c) diff --git a/script/c76520646.lua b/script/c76520646.lua index 76c6db67..86598daa 100644 --- a/script/c76520646.lua +++ b/script/c76520646.lua @@ -23,6 +23,6 @@ end function c76520646.posop(e,tp,eg,ep,ev,re,r,rp,chk) local tc=Duel.GetFirstTarget() if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c76543119.lua b/script/c76543119.lua index 11d26097..52ed34fa 100644 --- a/script/c76543119.lua +++ b/script/c76543119.lua @@ -24,7 +24,7 @@ function c76543119.initial_effect(c) c:RegisterEffect(e2) end function c76543119.filter(c) - return c:IsFaceup() and c:IsSetCard(0x83) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x83) end function c76543119.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c76543119.filter(chkc) end @@ -54,6 +54,7 @@ function c76543119.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end if ft>2 then ft=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c76543119.spfilter,tp,LOCATION_HAND,0,1,ft,nil,e,tp) if g:GetCount()>0 then diff --git a/script/c76547525.lua b/script/c76547525.lua old mode 100755 new mode 100644 index 049b5e29..eecefc3b --- a/script/c76547525.lua +++ b/script/c76547525.lua @@ -26,7 +26,7 @@ function c76547525.descon(e,tp,eg,ep,ev,re,r,rp) and Duel.IsExistingMatchingCard(c76547525.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,e:GetHandler():GetAttack()) end function c76547525.desfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c76547525.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c76547525.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c76589815.lua b/script/c76589815.lua index 3bff031f..d0d90c3e 100644 --- a/script/c76589815.lua +++ b/script/c76589815.lua @@ -10,14 +10,6 @@ function c76589815.initial_effect(c) e1:SetTargetRange(0,LOCATION_MZONE) e1:SetCode(EFFECT_MUST_ATTACK) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(0,1) - e2:SetCondition(c76589815.becon) - c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE) e3:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) @@ -36,9 +28,6 @@ function c76589815.initial_effect(c) e3:SetOperation(c76589815.cfop) c:RegisterEffect(e3) end -function c76589815.becon(e) - return Duel.IsExistingMatchingCard(Card.IsAttackable,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil) -end function c76589815.atfilter(c) return c:IsFaceup() and c:IsSetCard(0x84) end diff --git a/script/c76660409.lua b/script/c76660409.lua index 5fa27c88..800074e3 100644 --- a/script/c76660409.lua +++ b/script/c76660409.lua @@ -31,8 +31,7 @@ end function c76660409.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local sg=g:Filter(Card.IsRelateToEffect,nil,e) - if sg:GetCount()==2 then + if sg:GetCount()>0 then Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sg) end end diff --git a/script/c76714458.lua b/script/c76714458.lua old mode 100755 new mode 100644 diff --git a/script/c7672244.lua b/script/c7672244.lua index 810e0042..c22c73ed 100644 --- a/script/c7672244.lua +++ b/script/c7672244.lua @@ -22,9 +22,7 @@ function c7672244.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c7672244.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and not Duel.GetControl(tc,1-tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + Duel.GetControl(tc,1-tp,PHASE_END,1) end end diff --git a/script/c76754619.lua b/script/c76754619.lua index 8416904f..381adc06 100644 --- a/script/c76754619.lua +++ b/script/c76754619.lua @@ -39,7 +39,7 @@ function c76754619.operation(e,tp,eg,ep,ev,re,r,rp) while sc do local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e1:SetValue(500) sc:RegisterEffect(e1) diff --git a/script/c76763417.lua b/script/c76763417.lua index bec11dd9..79413d04 100644 --- a/script/c76763417.lua +++ b/script/c76763417.lua @@ -18,7 +18,7 @@ function c76763417.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c76763417.filter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:IsDestructable() + return c:IsPosition(POS_FACEUP_ATTACK) end function c76763417.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c76763417.filter(chkc) end diff --git a/script/c76774528.lua b/script/c76774528.lua index aa0c429c..6b737a01 100644 --- a/script/c76774528.lua +++ b/script/c76774528.lua @@ -1,67 +1,67 @@ ---スクラップ・ドラゴン -function c76774528.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --Destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(76774528,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetTarget(c76774528.destg) - e1:SetOperation(c76774528.desop) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(76774528,1)) - e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c76774528.spcon) - e2:SetTarget(c76774528.sptg) - e2:SetOperation(c76774528.spop) - c:RegisterEffect(e2) -end -function c76774528.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,nil) - and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0) -end -function c76774528.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tg=g:Filter(Card.IsRelateToEffect,nil,e) - if tg:GetCount()>0 then - Duel.Destroy(tg,REASON_EFFECT) - end -end -function c76774528.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local crp=c:GetReasonPlayer() - return c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp and tp~=crp and crp~=PLAYER_NONE -end -function c76774528.spfilter(c,e,tp) - return c:IsSetCard(0x24) and not c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c76774528.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c76774528.spfilter(chkc,e,tp) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c76774528.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c76774528.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end +--スクラップ・ドラゴン +function c76774528.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --Destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(76774528,0)) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetCountLimit(1) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetTarget(c76774528.destg) + e1:SetOperation(c76774528.desop) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(76774528,1)) + e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCondition(c76774528.spcon) + e2:SetTarget(c76774528.sptg) + e2:SetOperation(c76774528.spop) + c:RegisterEffect(e2) +end +function c76774528.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,0,1,nil) + and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g1=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,0,1,1,nil) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g2=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + g1:Merge(g2) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,2,0,0) +end +function c76774528.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local tg=g:Filter(Card.IsRelateToEffect,nil,e) + if tg:GetCount()>0 then + Duel.Destroy(tg,REASON_EFFECT) + end +end +function c76774528.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local crp=c:GetReasonPlayer() + return c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp and tp~=crp and crp~=PLAYER_NONE +end +function c76774528.spfilter(c,e,tp) + return c:IsSetCard(0x24) and not c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c76774528.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c76774528.spfilter(chkc,e,tp) end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c76774528.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c76774528.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c76862289.lua b/script/c76862289.lua index 682704e5..e24c7017 100644 --- a/script/c76862289.lua +++ b/script/c76862289.lua @@ -1,5 +1,7 @@ --八俣大蛇 function c76862289.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c76862289.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c76862289.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --draw local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(76862289,1)) @@ -28,42 +20,6 @@ function c76862289.initial_effect(c) e4:SetOperation(c76862289.drop) c:RegisterEffect(e4) end -function c76862289.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(76862289,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c76862289.retcon) - e1:SetTarget(c76862289.rettg) - e1:SetOperation(c76862289.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c76862289.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c76862289.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c76862289.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end function c76862289.drcon(e,tp,eg,ep,ev,re,r,rp) return ep~=tp end diff --git a/script/c76865611.lua b/script/c76865611.lua index 0c56f932..c55a1df2 100644 --- a/script/c76865611.lua +++ b/script/c76865611.lua @@ -34,7 +34,7 @@ function c76865611.refval(e,re,val,r,rp,rc) end function c76865611.check(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if not c:IsDisabled() and c:IsDefencePos() then e:SetLabel(1) + if not c:IsDisabled() and c:IsDefensePos() then e:SetLabel(1) else e:SetLabel(0) end end function c76865611.cond(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c76895648.lua b/script/c76895648.lua index 557bad4c..49bff349 100644 --- a/script/c76895648.lua +++ b/script/c76895648.lua @@ -38,7 +38,7 @@ function c76895648.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Draw(1-tp,1,REASON_EFFECT) elseif dice==5 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.Destroy(g,REASON_EFFECT) else Duel.Destroy(e:GetHandler(),REASON_EFFECT) diff --git a/script/c76913983.lua b/script/c76913983.lua index 8ac8be89..9d18f4ae 100644 --- a/script/c76913983.lua +++ b/script/c76913983.lua @@ -23,5 +23,5 @@ function c76913983.atkcon(e) if ph~=PHASE_DAMAGE and ph~=PHASE_DAMAGE_CAL then return false end local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() - return e:GetHandler()==a and d and d:IsDefencePos() + return e:GetHandler()==a and d and d:IsDefensePos() end diff --git a/script/c76930964.lua b/script/c76930964.lua old mode 100755 new mode 100644 index edb06a34..77abba31 --- a/script/c76930964.lua +++ b/script/c76930964.lua @@ -48,7 +48,8 @@ function c76930964.filter(c,e,tp) end function c76930964.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c76930964.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c76930964.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c76930964.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) @@ -56,10 +57,11 @@ function c76930964.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c76930964.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if not c:IsRelateToEffect(e) or c:IsDefencePos() then return end - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + if not c:IsRelateToEffect(e) or c:IsDefensePos() then return end + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()==0 then return end if g:GetCount()>ft then diff --git a/script/c76986005.lua b/script/c76986005.lua old mode 100755 new mode 100644 diff --git a/script/c76990617.lua b/script/c76990617.lua index 73cc82a3..2d33098c 100644 --- a/script/c76990617.lua +++ b/script/c76990617.lua @@ -19,7 +19,7 @@ function c76990617.initial_effect(c) e2:SetCondition(c76990617.tgcon) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end function c76990617.filter(c) diff --git a/script/c77007920.lua b/script/c77007920.lua index b70d3cb2..45c0edf2 100644 --- a/script/c77007920.lua +++ b/script/c77007920.lua @@ -16,7 +16,7 @@ function c77007920.initial_effect(c) e2:SetValue(300) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --Equip limit local e4=Effect.CreateEffect(c) diff --git a/script/c77013169.lua b/script/c77013169.lua index d0041c3f..283ac21a 100644 --- a/script/c77013169.lua +++ b/script/c77013169.lua @@ -30,7 +30,7 @@ end function c77013169.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end function c77013169.atkcon(e,tp,eg,ep,ev,re,r,rp) @@ -50,7 +50,7 @@ function c77013169.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(0) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) tc:RegisterEffect(e2) end end diff --git a/script/c77027445.lua b/script/c77027445.lua index 1745fdfe..8b3fbb09 100644 --- a/script/c77027445.lua +++ b/script/c77027445.lua @@ -18,7 +18,7 @@ function c77027445.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(300) c:RegisterEffect(e3) --equip limit diff --git a/script/c77036039.lua b/script/c77036039.lua index 243f9d9e..c32f61f9 100644 --- a/script/c77036039.lua +++ b/script/c77036039.lua @@ -23,7 +23,7 @@ function c77036039.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoDeck(g,nil,2,REASON_COST) end function c77036039.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c77036039.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c77036039.filter(chkc) end diff --git a/script/c770365.lua b/script/c770365.lua index d8a8224c..2015ced6 100644 --- a/script/c770365.lua +++ b/script/c770365.lua @@ -41,7 +41,7 @@ function c770365.operation(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmDecktop(tp,5) local g=Duel.GetDecktopGroup(tp,5) local ct=g:FilterCount(c770365.filter,nil) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if ct>0 and sg:GetCount()>0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local dg=sg:Select(tp,1,ct,nil) diff --git a/script/c77044671.lua b/script/c77044671.lua index 592064dd..2fa4241b 100644 --- a/script/c77044671.lua +++ b/script/c77044671.lua @@ -15,7 +15,7 @@ function c77044671.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c77044671.filter(c,e,tp) - return c:IsDefenceBelow(2000) and c:IsRace(RACE_ZOMBIE) + return c:IsDefenseBelow(2000) and c:IsRace(RACE_ZOMBIE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c77044671.target(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c77084837.lua b/script/c77084837.lua index 64f2b0b8..2ef9692b 100644 --- a/script/c77084837.lua +++ b/script/c77084837.lua @@ -1,5 +1,7 @@ --因幡之白兎 function c77084837.initial_effect(c) + --spirit return + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c77084837.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c77084837.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --attack limit local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) @@ -28,39 +20,3 @@ function c77084837.initial_effect(c) e5:SetValue(1) c:RegisterEffect(e5) end -function c77084837.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(77084837,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c77084837.retcon) - e1:SetTarget(c77084837.rettg) - e1:SetOperation(c77084837.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c77084837.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c77084837.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c77084837.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c77087109.lua b/script/c77087109.lua index f9bd33c7..3559a2e2 100644 --- a/script/c77087109.lua +++ b/script/c77087109.lua @@ -9,6 +9,6 @@ function c77087109.initial_effect(c) c:RegisterEffect(e1) end function c77087109.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsPosition(POS_FACEUP_DEFENCE) end + if chk==0 then return e:GetHandler():IsPosition(POS_FACEUP_DEFENSE) end return true end diff --git a/script/c77116346.lua b/script/c77116346.lua old mode 100755 new mode 100644 diff --git a/script/c77133792.lua b/script/c77133792.lua new file mode 100644 index 00000000..6b3a1649 --- /dev/null +++ b/script/c77133792.lua @@ -0,0 +1,60 @@ +--マグネット・コンバージョン +function c77133792.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c77133792.target) + e1:SetOperation(c77133792.operation) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_GRAVE) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCondition(aux.exccon) + e2:SetCost(c77133792.spcost) + e2:SetTarget(c77133792.sptg) + e2:SetOperation(c77133792.spop) + c:RegisterEffect(e2) +end +function c77133792.filter(c) + return c:IsSetCard(0x2066) and c:IsLevelBelow(4) and c:IsAbleToHand() +end +function c77133792.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c77133792.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c77133792.filter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c77133792.filter,tp,LOCATION_GRAVE,0,1,3,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) +end +function c77133792.operation(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local sg=g:Filter(Card.IsRelateToEffect,nil,e) + Duel.SendtoHand(sg,nil,REASON_EFFECT) +end +function c77133792.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c77133792.spfilter(c,e,tp) + return c:IsFaceup() and c:IsSetCard(0x2066) and c:IsLevelBelow(4) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c77133792.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_REMOVED) and c77133792.spfilter(chkc,e,tp) end + if chk==0 then return Duel.IsExistingTarget(c77133792.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c77133792.spfilter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c77133792.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c7714344.lua b/script/c7714344.lua new file mode 100644 index 00000000..1fc4108c --- /dev/null +++ b/script/c7714344.lua @@ -0,0 +1,88 @@ +--EMユニ +function c7714344.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(7714344,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCondition(c7714344.spcon) + e1:SetTarget(c7714344.sptg) + e1:SetOperation(c7714344.spop) + c:RegisterEffect(e1) + --no damage + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(7714344,1)) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_GRAVE) + e2:SetCondition(c7714344.damcon) + e2:SetCost(c7714344.damcost) + e2:SetOperation(c7714344.damop) + c:RegisterEffect(e2) + if not c7714344.global_check then + c7714344.global_check=true + local ge1=Effect.CreateEffect(c) + ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge1:SetCode(EVENT_SUMMON_SUCCESS) + ge1:SetLabel(7714344) + ge1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + ge1:SetOperation(aux.sumreg) + Duel.RegisterEffect(ge1,0) + local ge2=ge1:Clone() + ge2:SetCode(EVENT_SPSUMMON_SUCCESS) + ge2:SetLabel(7714344) + Duel.RegisterEffect(ge2,0) + end +end +function c7714344.spcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(7714344)>0 +end +function c7714344.spfilter(c,e,tp) + return c:IsLevelBelow(3) and c:IsSetCard(0x9f) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c7714344.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c7714344.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c7714344.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c7714344.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_ATTACK) + end +end +function c7714344.cfilter(c) + return c:IsSetCard(0x9f) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() and not c:IsCode(7714344) +end +function c7714344.damcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp and (Duel.IsAbleToEnterBP() or (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)) +end +function c7714344.damcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() + and Duel.IsExistingMatchingCard(c7714344.cfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c7714344.cfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) + g:AddCard(e:GetHandler()) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c7714344.damop(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetCode(EFFECT_CHANGE_DAMAGE) + e1:SetValue(c7714344.damval) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + Duel.RegisterFlagEffect(tp,7714345,RESET_PHASE+PHASE_END,0,1) +end +function c7714344.damval(e,re,val,r,rp,rc) + local tp=e:GetHandlerPlayer() + if Duel.GetFlagEffect(tp,7714345)==0 or bit.band(r,REASON_BATTLE)==0 then return val end + Duel.ResetFlagEffect(tp,7714345) + return 0 +end diff --git a/script/c77152542.lua b/script/c77152542.lua old mode 100755 new mode 100644 diff --git a/script/c77153811.lua b/script/c77153811.lua old mode 100755 new mode 100644 diff --git a/script/c77235086.lua b/script/c77235086.lua new file mode 100644 index 00000000..518013fc --- /dev/null +++ b/script/c77235086.lua @@ -0,0 +1,52 @@ +--サイバー・エンジェル－弁天－ +function c77235086.initial_effect(c) + c:EnableReviveLimit() + --damage + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(77235086,0)) + e1:SetCategory(CATEGORY_DAMAGE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EVENT_BATTLE_DESTROYING) + e1:SetCondition(aux.bdgcon) + e1:SetTarget(c77235086.damtg) + e1:SetOperation(c77235086.damop) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(77235086,1)) + e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_RELEASE) + e2:SetTarget(c77235086.thtg) + e2:SetOperation(c77235086.thop) + c:RegisterEffect(e2) +end +function c77235086.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local dam=e:GetHandler():GetBattleTarget():GetDefense() + if dam<0 then dam=0 end + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(dam) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) +end +function c77235086.damop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) +end +function c77235086.thfilter(c) + return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_FAIRY) and c:IsAbleToHand() +end +function c77235086.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c77235086.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c77235086.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c77235086.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c77334267.lua b/script/c77334267.lua index 60760524..9c9562bd 100644 --- a/script/c77334267.lua +++ b/script/c77334267.lua @@ -21,7 +21,7 @@ function c77334267.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c77334267.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c77334267.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c77334267.filter(chkc) end diff --git a/script/c77336644.lua b/script/c77336644.lua index 46ce140b..649f2db5 100644 --- a/script/c77336644.lua +++ b/script/c77336644.lua @@ -35,11 +35,11 @@ function c77336644.descon(e,tp,eg,ep,ev,re,r,rp) end function c77336644.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c77336644.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) end function c77336644.spcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c77360173.lua b/script/c77360173.lua old mode 100755 new mode 100644 index 2e5c1431..f6de46b3 --- a/script/c77360173.lua +++ b/script/c77360173.lua @@ -1,52 +1,51 @@ ---シンクローン・リゾネーター -function c77360173.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCountLimit(1,77360173) - e1:SetCondition(c77360173.spcon) - c:RegisterEffect(e1) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(77360173,0)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c77360173.thcon) - e2:SetTarget(c77360173.thtg) - e2:SetOperation(c77360173.thop) - c:RegisterEffect(e2) -end -function c77360173.cfilter(c) - return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) -end -function c77360173.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c77360173.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) -end -function c77360173.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) -end -function c77360173.thfilter(c) - return c:IsSetCard(0x57) and not c:IsCode(77360173) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c77360173.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c77360173.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c77360173.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c77360173.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c77360173.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--シンクローン・リゾネーター +function c77360173.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetRange(LOCATION_HAND) + e1:SetCountLimit(1,77360173) + e1:SetCondition(c77360173.spcon) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(77360173,0)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCondition(c77360173.thcon) + e2:SetTarget(c77360173.thtg) + e2:SetOperation(c77360173.thop) + c:RegisterEffect(e2) +end +function c77360173.cfilter(c) + return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) +end +function c77360173.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c77360173.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) +end +function c77360173.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) +end +function c77360173.thfilter(c) + return c:IsSetCard(0x57) and not c:IsCode(77360173) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c77360173.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c77360173.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c77360173.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c77360173.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c77360173.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c77363314.lua b/script/c77363314.lua new file mode 100644 index 00000000..24c31843 --- /dev/null +++ b/script/c77363314.lua @@ -0,0 +1,34 @@ +--クリスタル・ドラゴン +function c77363314.initial_effect(c) + --search + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(77363314,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCondition(c77363314.thcon) + e1:SetTarget(c77363314.thtg) + e1:SetOperation(c77363314.thop) + c:RegisterEffect(e1) +end +function c77363314.thcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_BATTLE_STEP and Duel.GetCurrentChain()==0 + and e:GetHandler():GetBattledGroupCount()>0 +end +function c77363314.thfilter(c) + return c:IsRace(RACE_DRAGON) and c:GetLevel()==8 and c:IsAbleToHand() +end +function c77363314.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c77363314.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c77363314.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c77363314.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c77387463.lua b/script/c77387463.lua new file mode 100644 index 00000000..0f06a918 --- /dev/null +++ b/script/c77387463.lua @@ -0,0 +1,104 @@ +--方界帝ヴァルカン・ドラグニー +function c77387463.initial_effect(c) + c:EnableReviveLimit() + --spsummon rule + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_HAND) + e2:SetCondition(c77387463.spcon) + e2:SetOperation(c77387463.spop) + c:RegisterEffect(e2) + --Damage + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DAMAGE) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetCondition(c77387463.damcon) + e3:SetTarget(c77387463.damtg) + e3:SetOperation(c77387463.damop) + c:RegisterEffect(e3) + --special summon + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_SEARCH) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_DAMAGE_STEP_END) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetTarget(c77387463.sptg2) + e4:SetOperation(c77387463.spop2) + c:RegisterEffect(e4) +end +function c77387463.filter(c) + return c:IsFaceup() and c:IsSetCard(0xe3) and c:IsAbleToGraveAsCost() +end +function c77387463.spcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-2 + and Duel.IsExistingMatchingCard(c77387463.filter,c:GetControler(),LOCATION_MZONE,0,2,nil) +end +function c77387463.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c77387463.filter,tp,LOCATION_MZONE,0,2,2,nil) + Duel.SendtoGrave(g,REASON_COST) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(1600) + e1:SetReset(RESET_EVENT+0xff0000) + c:RegisterEffect(e1) +end +function c77387463.damcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_HAND) +end +function c77387463.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(1-tp) + Duel.SetTargetParam(800) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) +end +function c77387463.damop(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Damage(p,d,REASON_EFFECT) +end +function c77387463.spfilter(c,e,tp) + return c:IsCode(15610297) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c77387463.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local c=e:GetHandler() + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c77387463.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 and c:IsRelateToBattle() + and Duel.IsExistingTarget(c77387463.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + local ft=3 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + ft=math.min(ft,Duel.GetLocationCount(tp,LOCATION_MZONE)+1) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c77387463.spfilter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) +end +function c77387463.thfilter(c) + return c:IsCode(3775068) and c:IsAbleToHand() +end +function c77387463.spop2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or Duel.SendtoGrave(c,REASON_EFFECT)==0 then return end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + local sg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if sg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if sg:GetCount()>ft then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + sg=sg:Select(tp,ft,ft,nil) + end + if Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)~=0 then + local g=Duel.GetMatchingGroup(c77387463.thfilter,tp,LOCATION_DECK,0,nil) + if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(77387463,0)) then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + g=g:Select(tp,1,1,nil) + Duel.SendtoHand(g,tp,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end + end +end diff --git a/script/c77411244.lua b/script/c77411244.lua new file mode 100644 index 00000000..d9568a63 --- /dev/null +++ b/script/c77411244.lua @@ -0,0 +1,119 @@ +--B－バスター・ドレイク +function c77411244.initial_effect(c) + --equip + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(77411244,0)) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCategory(CATEGORY_EQUIP) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetTarget(c77411244.eqtg) + e1:SetOperation(c77411244.eqop) + c:RegisterEffect(e1) + --unequip + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(77411244,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_SZONE) + e2:SetTarget(c77411244.sptg) + e2:SetOperation(c77411244.spop) + c:RegisterEffect(e2) + --destroy sub + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_EQUIP) + e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e3:SetCode(EFFECT_DESTROY_SUBSTITUTE) + e3:SetValue(c77411244.repval) + c:RegisterEffect(e3) + --immune + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_EQUIP) + e4:SetCode(EFFECT_IMMUNE_EFFECT) + e4:SetValue(c77411244.efilter) + c:RegisterEffect(e4) + --to hand + local e5=Effect.CreateEffect(c) + e5:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e5:SetProperty(EFFECT_FLAG_DELAY) + e5:SetCode(EVENT_TO_GRAVE) + e5:SetCondition(c77411244.thcon) + e5:SetTarget(c77411244.thtg) + e5:SetOperation(c77411244.thop) + c:RegisterEffect(e5) + --eqlimit + local e6=Effect.CreateEffect(c) + e6:SetType(EFFECT_TYPE_SINGLE) + e6:SetCode(EFFECT_EQUIP_LIMIT) + e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e6:SetValue(c77411244.eqlimit) + c:RegisterEffect(e6) +end +function c77411244.filter(c) + return c:IsFaceup() and c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT) +end +function c77411244.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local c=e:GetHandler() + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c77411244.filter(chkc) end + if chk==0 then return e:GetHandler():GetFlagEffect(77411244)==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 + and Duel.IsExistingTarget(c77411244.filter,tp,LOCATION_MZONE,0,1,c) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + local g=Duel.SelectTarget(tp,c77411244.filter,tp,LOCATION_MZONE,0,1,1,c) + Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) + c:RegisterFlagEffect(77411244,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) +end +function c77411244.eqop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end + if not tc:IsRelateToEffect(e) or not c77411244.filter(tc) then + Duel.SendtoGrave(c,REASON_EFFECT) + return + end + if not Duel.Equip(tp,c,tc,false) then return end + c:SetStatus(STATUS_UNION,true) +end +function c77411244.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:GetFlagEffect(77411244)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) + c:RegisterFlagEffect(77411244,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) +end +function c77411244.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c77411244.repval(e,re,r,rp) + return bit.band(r,REASON_BATTLE)~=0 or bit.band(r,REASON_EFFECT)~=0 +end +function c77411244.efilter(e,te) + return te:GetOwnerPlayer()~=e:GetHandlerPlayer() and te:GetOwner()~=e:GetOwner() + and te:IsActiveType(TYPE_SPELL) +end +function c77411244.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) +end +function c77411244.thfilter(c) + return c:IsType(TYPE_UNION) and c:IsAbleToHand() +end +function c77411244.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c77411244.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c77411244.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c77411244.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c77411244.eqlimit(e,c) + return (c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_LIGHT)) or e:GetHandler():GetEquipTarget()==c +end diff --git a/script/c77414722.lua b/script/c77414722.lua old mode 100755 new mode 100644 diff --git a/script/c77428945.lua b/script/c77428945.lua index 722964c0..75934dc1 100644 --- a/script/c77428945.lua +++ b/script/c77428945.lua @@ -21,5 +21,5 @@ function c77428945.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c77428945.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c77428945.filter,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) end diff --git a/script/c77462146.lua b/script/c77462146.lua index 44d99e7e..ee106211 100644 --- a/script/c77462146.lua +++ b/script/c77462146.lua @@ -42,7 +42,7 @@ function c77462146.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(300) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end @@ -57,23 +57,18 @@ end function c77462146.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() - if c:IsRelateToEffect(e) - and Duel.IsPlayerCanSpecialSummonMonster(tp,77462146,0x10db,0x11,4,0,300,RACE_WARRIOR,ATTRIBUTE_DARK) then - c:SetStatus(STATUS_NO_LEVEL,false) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(TYPE_NORMAL+TYPE_MONSTER) - e1:SetReset(RESET_EVENT+0x47c0000) - c:RegisterEffect(e1,true) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_DEFENCE) - local e7=Effect.CreateEffect(c) - e7:SetType(EFFECT_TYPE_SINGLE) - e7:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) - e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e7:SetReset(RESET_EVENT+0x47e0000) - e7:SetValue(LOCATION_REMOVED) - c:RegisterEffect(e7,true) + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,77462146,0x10db,0x11,4,0,300,RACE_WARRIOR,ATTRIBUTE_DARK) then + c:AddMonsterAttribute(TYPE_NORMAL) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP_DEFENSE) + c:AddMonsterAttributeComplete() + --redirect + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetReset(RESET_EVENT+0x47e0000) + e2:SetValue(LOCATION_REMOVED) + c:RegisterEffect(e2,true) + Duel.SpecialSummonComplete() end end diff --git a/script/c77505534.lua b/script/c77505534.lua index 01a22016..dbf5974c 100644 --- a/script/c77505534.lua +++ b/script/c77505534.lua @@ -28,7 +28,7 @@ function c77505534.activate(e,tp,eg,ep,ev,re,r,rp) Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) local sg=tg:Select(tp,1,5,nil) - Duel.ChangePosition(sg,POS_FACEUP_DEFENCE) + Duel.ChangePosition(sg,POS_FACEUP_DEFENSE) end end end diff --git a/script/c77527210.lua b/script/c77527210.lua index 1298d65c..bc5b826b 100644 --- a/script/c77527210.lua +++ b/script/c77527210.lua @@ -23,7 +23,7 @@ end function c77527210.atkcon(e) local ph=Duel.GetCurrentPhase() local tp=Duel.GetTurnPlayer() - return tp~=e:GetHandler():GetControler() and (ph==PHASE_BATTLE or ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) + return tp~=e:GetHandler():GetControler() and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE end function c77527210.spfilter(c) return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToRemoveAsCost() diff --git a/script/c77565204.lua b/script/c77565204.lua old mode 100755 new mode 100644 index a585ad2e..52d9ecbf --- a/script/c77565204.lua +++ b/script/c77565204.lua @@ -27,7 +27,7 @@ function c77565204.filter1(c,e) return c:IsCanBeFusionMaterial() and c:IsAbleToGrave() and not c:IsImmuneToEffect(e) end function c77565204.filter2(c,m) - return c:IsType(TYPE_FUSION) and c:CheckFusionMaterial(m) + return c:IsType(TYPE_FUSION) and c:CheckFusionMaterial(m) and not c:IsForbidden() end function c77565204.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then diff --git a/script/c77584012.lua b/script/c77584012.lua index 7e6538aa..b68f2141 100644 --- a/script/c77584012.lua +++ b/script/c77584012.lua @@ -19,18 +19,19 @@ function c77584012.filter(c) return c:IsType(TYPE_FIELD) and c:IsAbleToRemoveAsCost() end function c77584012.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c77584012.filter,tp,LOCATION_GRAVE,0,1,nil) end + if chk==0 then return e:GetHandler():GetFlagEffect(77584012)==0 + and Duel.IsExistingMatchingCard(c77584012.filter,tp,LOCATION_GRAVE,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) local g=Duel.SelectMatchingCard(tp,c77584012.filter,tp,LOCATION_GRAVE,0,1,1,nil) local code=g:GetFirst():GetOriginalCode() e:SetLabel(code) Duel.Remove(g,POS_FACEUP,REASON_COST) + e:GetHandler():RegisterFlagEffect(77584012,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) end function c77584012.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if not c:IsRelateToEffect(e) then return end local code=e:GetLabel() - c:CopyEffect(code,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,1) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) @@ -38,4 +39,26 @@ function c77584012.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetCode(EFFECT_CHANGE_CODE) e1:SetValue(code) c:RegisterEffect(e1) + local cid=c:CopyEffect(code,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,1) + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(77584012,1)) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_PHASE+PHASE_END) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetCountLimit(1) + e2:SetRange(LOCATION_FZONE) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e2:SetLabel(cid) + e2:SetLabelObject(e1) + e2:SetOperation(c77584012.rstop) + c:RegisterEffect(e2) +end +function c77584012.rstop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local cid=e:GetLabel() + c:ResetEffect(cid,RESET_COPY) + local e1=e:GetLabelObject() + e1:Reset() + Duel.HintSelection(Group.FromCards(c)) + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) end diff --git a/script/c77585514.lua b/script/c77585514.lua deleted file mode 100644 index 4f51ddb0..00000000 --- a/script/c77585514.lua +++ /dev/null @@ -1,44 +0,0 @@ ---人造人間－サイコ·ショッカー -function c77585514.initial_effect(c) - --cannot trigger - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_TRIGGER) - e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(0xa,0xa) - e1:SetTarget(c77585514.distg) - c:RegisterEffect(e1) - --disable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_DISABLE) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(LOCATION_SZONE,LOCATION_SZONE) - e2:SetTarget(c77585514.distg) - c:RegisterEffect(e2) - --disable effect - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_CHAIN_SOLVING) - e3:SetRange(LOCATION_MZONE) - e3:SetOperation(c77585514.disop) - c:RegisterEffect(e3) - --disable trap monster - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_DISABLE_TRAPMONSTER) - e4:SetRange(LOCATION_MZONE) - e4:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e4:SetTarget(c77585514.distg) - c:RegisterEffect(e4) -end -function c77585514.distg(e,c) - return c:IsType(TYPE_TRAP) -end -function c77585514.disop(e,tp,eg,ep,ev,re,r,rp) - local tl=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) - if tl==LOCATION_SZONE and re:IsActiveType(TYPE_TRAP) then - Duel.NegateEffect(ev) - end -end diff --git a/script/c77608643.lua b/script/c77608643.lua index 1fd1a165..e0917032 100644 --- a/script/c77608643.lua +++ b/script/c77608643.lua @@ -15,6 +15,7 @@ function c77608643.initial_effect(c) e2:SetDescription(aux.Stringid(77608643,0)) e2:SetCategory(CATEGORY_SPECIAL_SUMMON) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) e2:SetRange(LOCATION_MZONE) e2:SetCountLimit(1) e2:SetCode(EVENT_PHASE+PHASE_STANDBY) @@ -43,18 +44,20 @@ function c77608643.spcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp and e:GetHandler():GetFlagEffect(77608643)~=0 end function c77608643.spfilter(c,e,tp) - return c:IsLocation(LOCATION_GRAVE) and c:IsReason(REASON_BATTLE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsLocation(LOCATION_GRAVE) and c:IsReason(REASON_BATTLE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsCanBeEffectTarget(e) end -function c77608643.sptg(e,tp,eg,ep,ev,re,r,rp,chk) +function c77608643.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return e:GetLabelObject():IsContains(chkc) and c77608643.spfilter(chkc,e,tp) end if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetLabelObject():IsExists(c77608643.spfilter,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c77608643.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=e:GetLabelObject():FilterSelect(tp,c77608643.spfilter,1,1,nil,e,tp) - if g:GetCount()~=0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + Duel.SetTargetCard(g) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c77608643.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c77625948.lua b/script/c77625948.lua old mode 100755 new mode 100644 index 94131a09..bf36a804 --- a/script/c77625948.lua +++ b/script/c77625948.lua @@ -17,14 +17,16 @@ function c77625948.initial_effect(c) c:RegisterEffect(e2) -- local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_DAMAGE_CALCULATING) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_SET_ATTACK_FINAL) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) e3:SetCondition(c77625948.atkcon) - e3:SetOperation(c77625948.atkop) + e3:SetValue(c77625948.atkval) c:RegisterEffect(e3) end function c77625948.filter(c) - return c:IsLevelBelow(3) and c:IsRace(RACE_DRAGON) + return c:IsLevelBelow(3) and c:IsRace(RACE_DRAGON) and not c:IsForbidden() end function c77625948.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c77625948.filter(chkc) end @@ -70,16 +72,12 @@ end function c77625948.repval(e,re,r,rp) return bit.band(r,REASON_BATTLE)~=0 end -function c77625948.atkcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==nil and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)~=0 +function c77625948.atkcon(e) + local tp=e:GetHandlerPlayer() + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL + and Duel.GetAttackTarget()==nil and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)~=0 and e:GetHandler():GetEffectCount(EFFECT_DIRECT_ATTACK)==1 end -function c77625948.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(c:GetAttack()/2) - c:RegisterEffect(e1) +function c77625948.atkval(e,c) + return c:GetAttack()/2 end diff --git a/script/c77631175.lua b/script/c77631175.lua index 9d99428f..a5e22fac 100644 --- a/script/c77631175.lua +++ b/script/c77631175.lua @@ -16,7 +16,7 @@ function c77631175.initial_effect(c) e2:SetDescription(aux.Stringid(77631175,1)) e2:SetCategory(CATEGORY_DAMAGE) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(77631175) + e2:SetCode(EVENT_CUSTOM+77631175) e2:SetTarget(c77631175.target) e2:SetOperation(c77631175.operation) c:RegisterEffect(e2) @@ -26,7 +26,7 @@ function c77631175.reptg(e,tp,eg,ep,ev,re,r,rp,chk) if Duel.SelectYesNo(tp,aux.Stringid(77631175,0)) then local c=e:GetHandler() c:RemoveOverlayCard(tp,1,1,REASON_EFFECT) - Duel.RaiseSingleEvent(c,77631175,e,0,0,0,0) + Duel.RaiseSingleEvent(c,EVENT_CUSTOM+77631175,e,0,0,0,0) return true else return false end end diff --git a/script/c77642288.lua b/script/c77642288.lua index a5acbf3a..52b46e5f 100644 --- a/script/c77642288.lua +++ b/script/c77642288.lua @@ -26,6 +26,7 @@ function c77642288.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c77642288.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end if not Duel.IsExistingMatchingCard(c77642288.filter,tp,LOCATION_DECK,0,2,nil,e,tp) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) diff --git a/script/c77679716.lua b/script/c77679716.lua index 3c78c36a..1cba3106 100644 --- a/script/c77679716.lua +++ b/script/c77679716.lua @@ -57,7 +57,7 @@ function c77679716.eqop(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(-1000) e2:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e2) @@ -74,7 +74,7 @@ function c77679716.damcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c77679716.damfilter(c) - return c:IsFaceup() and c:IsSetCard(0x9a) and c:GetDefence()0 + and Duel.IsExistingTarget(c77693536.eqfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler(),tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + local g=Duel.SelectTarget(tp,c77693536.eqfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler(),tp) + Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) +end +function c77693536.eqop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if not (tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsType(TYPE_EFFECT)) then return end + if c:IsFaceup() and c:IsRelateToEffect(e) then + local atk=tc:GetTextAttack() + if atk<0 then atk=0 end + if Duel.Equip(tp,tc,c)==0 then return end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_EQUIP) + e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OWNER_RELATE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) + e1:SetValue(atk) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetCode(EFFECT_EQUIP_LIMIT) + e2:SetValue(c77693536.eqlimit) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2) + else Duel.SendtoGrave(tc,REASON_EFFECT) end +end +function c77693536.eqlimit(e,c) + return e:GetOwner()==c +end diff --git a/script/c77723643.lua b/script/c77723643.lua old mode 100755 new mode 100644 index d415562c..856bb13a --- a/script/c77723643.lua +++ b/script/c77723643.lua @@ -46,7 +46,7 @@ function c77723643.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsReason(REASON_EFFECT) end function c77723643.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c77723643.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c77723643.filter(chkc) end diff --git a/script/c77754944.lua b/script/c77754944.lua index 3b6517f9..02da0498 100644 --- a/script/c77754944.lua +++ b/script/c77754944.lua @@ -14,7 +14,7 @@ function c77754944.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetAttacker():IsControler(1-tp) end function c77754944.filter(c) - return c:IsFaceup() and c:IsAttackPos() and c:IsDestructable() + return c:IsFaceup() and c:IsAttackPos() end function c77754944.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c77754944.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c77754945.lua b/script/c77754945.lua deleted file mode 100644 index 42a0ac7b..00000000 --- a/script/c77754945.lua +++ /dev/null @@ -1,35 +0,0 @@ ---万能地雷グレイモヤ(EU) -function c77754945.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c77754945.condition) - e1:SetTarget(c77754945.target) - e1:SetOperation(c77754945.activate) - c:RegisterEffect(e1) -end -function c77754945.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttacker():IsControler(1-tp) -end -function c77754945.filter(c) - return c:IsFaceup() and c:IsAttackPos() and c:IsDestructable() -end -function c77754945.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c77754945.filter,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(c77754945.filter,tp,0,LOCATION_MZONE,nil) - local tg=g:GetMaxGroup(Card.GetAttack) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) -end -function c77754945.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c77754945.filter,tp,0,LOCATION_MZONE,nil) - if g:GetCount()>0 then - local tg=g:GetMaxGroup(Card.GetAttack) - if tg:GetCount()>1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local sg=tg:Select(tp,1,1,nil) - Duel.Destroy(sg,REASON_EFFECT) - else Duel.Destroy(tg,REASON_EFFECT) end - end -end diff --git a/script/c77778835.lua b/script/c77778835.lua index ea57824f..09ad034e 100644 --- a/script/c77778835.lua +++ b/script/c77778835.lua @@ -30,12 +30,13 @@ function c77778835.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) end function c77778835.operation(e,tp,eg,ep,ev,re,r,rp) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end local c=e:GetHandler() if not c:IsRelateToEffect(e) then return end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local tg=Duel.GetMatchingGroup(c77778835.filter,tp,LOCATION_GRAVE,0,nil,e,tp) + if ft<=0 or tg:GetCount()==0 or (ft>1 and tg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c77778835.filter,tp,LOCATION_GRAVE,0,ft,ft,nil,e,tp) + local g=tg:Select(tp,ft,ft,nil) local tc=g:GetFirst() while tc do Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) diff --git a/script/c77783947.lua b/script/c77783947.lua index efc6924b..55030fe0 100644 --- a/script/c77783947.lua +++ b/script/c77783947.lua @@ -12,14 +12,6 @@ function c77783947.initial_effect(c) e2:SetRange(LOCATION_SZONE) e2:SetTargetRange(0,LOCATION_MZONE) c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CANNOT_EP) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(0,1) - e3:SetCondition(c77783947.becon) - c:RegisterEffect(e3) --synchro effect local e4=Effect.CreateEffect(c) e4:SetCategory(CATEGORY_SPECIAL_SUMMON) @@ -33,12 +25,9 @@ function c77783947.initial_effect(c) e4:SetOperation(c77783947.scop) c:RegisterEffect(e4) end -function c77783947.becon(e) - return Duel.IsExistingMatchingCard(Card.IsAttackable,e:GetHandlerPlayer(),0,LOCATION_MZONE,1,nil) -end function c77783947.sccon(e,tp,eg,ep,ev,re,r,rp) local ph=Duel.GetCurrentPhase() - return ph==PHASE_MAIN1 or ph==PHASE_BATTLE or ph==PHASE_MAIN2 + return ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2 end function c77783947.mfilter(c) return c:IsSetCard(0x9e) and c:IsType(TYPE_MONSTER) diff --git a/script/c77797992.lua b/script/c77797992.lua index ecc1e691..e300db96 100644 --- a/script/c77797992.lua +++ b/script/c77797992.lua @@ -18,7 +18,7 @@ function c77797992.initial_effect(c) e2:SetTargetRange(LOCATION_MZONE,0) e2:SetCondition(c77797992.cond) e2:SetTarget(c77797992.targetd) - e2:SetValue(aux.tgval) + e2:SetValue(1) c:RegisterEffect(e2) local e3=e2:Clone() e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) @@ -32,8 +32,8 @@ function c77797992.targeta(e,c) return c:IsPosition(POS_FACEUP_ATTACK) and c:IsRace(RACE_WINDBEAST+RACE_PLANT+RACE_INSECT) end function c77797992.cond(e) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end function c77797992.targetd(e,c) - return c:IsPosition(POS_FACEUP_DEFENCE) and c:IsRace(RACE_WINDBEAST+RACE_PLANT+RACE_INSECT) + return c:IsPosition(POS_FACEUP_DEFENSE) and c:IsRace(RACE_WINDBEAST+RACE_PLANT+RACE_INSECT) end diff --git a/script/c77799846.lua b/script/c77799846.lua index c75f940e..b955fa55 100644 --- a/script/c77799846.lua +++ b/script/c77799846.lua @@ -68,7 +68,7 @@ function c77799846.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c77799846.mfilter(c) - return c:IsSetCard(0x85) and c:IsType(TYPE_MONSTER) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x85) and c:IsType(TYPE_MONSTER) end function c77799846.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() @@ -78,6 +78,7 @@ function c77799846.spop(e,tp,eg,ep,ev,re,r,rp) Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) local mg=g:Select(tp,1,1,nil) + if mg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.Overlay(c,mg) end end diff --git a/script/c77826734.lua b/script/c77826734.lua old mode 100755 new mode 100644 index eb7baad1..3ca44e78 --- a/script/c77826734.lua +++ b/script/c77826734.lua @@ -11,7 +11,7 @@ function c77826734.initial_effect(c) end function c77826734.filter(c,e,tp) return c:IsType(TYPE_PENDULUM) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c77826734.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -22,7 +22,7 @@ function c77826734.activate(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c77826734.filter,tp,LOCATION_GRAVE+LOCATION_EXTRA,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c77841719.lua b/script/c77841719.lua index 95a9f151..b7a32eca 100644 --- a/script/c77841719.lua +++ b/script/c77841719.lua @@ -38,9 +38,7 @@ function c77841719.operation(e,tp,eg,ep,ev,re,r,rp) local tct=1 if Duel.GetTurnPlayer()~=tp then tct=2 elseif Duel.GetCurrentPhase()==PHASE_END then tct=3 end - if tc:IsFaceup() and tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END,tct) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp,PHASE_END,tct) end end diff --git a/script/c77847678.lua b/script/c77847678.lua index fc10a336..81383cf3 100644 --- a/script/c77847678.lua +++ b/script/c77847678.lua @@ -25,6 +25,7 @@ function c77847678.activate(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end if ft>2 then ft=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c77847678.filter,tp,LOCATION_HAND,0,1,ft,nil,e,tp) if g:GetCount()>0 then diff --git a/script/c77859858.lua b/script/c77859858.lua old mode 100755 new mode 100644 diff --git a/script/c77864539.lua b/script/c77864539.lua index 5b00bf13..58d0104b 100644 --- a/script/c77864539.lua +++ b/script/c77864539.lua @@ -20,8 +20,7 @@ function c77864539.filter(c) end function c77864539.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c77864539.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c77864539.filter,tp,LOCATION_GRAVE,0,1,nil) - and Duel.GetAttackTarget():IsDestructable() end + if chk==0 then return Duel.IsExistingTarget(c77864539.filter,tp,LOCATION_GRAVE,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectTarget(tp,c77864539.filter,tp,LOCATION_GRAVE,0,1,1,nil) local d=Duel.GetAttackTarget() diff --git a/script/c77901552.lua b/script/c77901552.lua index fd120b62..422f045e 100644 --- a/script/c77901552.lua +++ b/script/c77901552.lua @@ -35,7 +35,6 @@ function c77901552.hspop(e,tp,eg,ep,ev,re,r,rp,c) end function c77901552.spfilter(c,e,tp) return c:IsType(TYPE_NORMAL) and c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c77901552.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -46,6 +45,7 @@ function c77901552.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c77901552.spfilter,tp,0x13,0,1,1,nil,e,tp) local tc=g:GetFirst() + if tc and tc:IsHasEffect(EFFECT_NECRO_VALLEY) then return end if tc and Duel.SpecialSummonStep(g:GetFirst(),0,tp,tp,false,false,POS_FACEUP) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) @@ -54,16 +54,8 @@ function c77901552.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) tc:RegisterEffect(e2) Duel.SpecialSummonComplete() - elseif Duel.IsPlayerCanSpecialSummon(tp) then - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_DECK,0) - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ConfirmCards(tp,cg2) - Duel.ShuffleHand(tp) - Duel.ShuffleDeck(tp) end end diff --git a/script/c77972406.lua b/script/c77972406.lua index 7dbeb91d..00cfd560 100644 --- a/script/c77972406.lua +++ b/script/c77972406.lua @@ -25,6 +25,10 @@ function c77972406.activate(e,tp,eg,ep,ev,re,r,rp) if tc:IsRelateToEffect(e) and Duel.NegateAttack() then Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) Duel.BreakEffect() - tc:AddCounter(0x9,1) + local atk=tc:GetAttack() + tc:AddCounter(0x1009,1) + if atk>0 and tc:GetAttack()==0 then + Duel.RaiseEvent(tc,EVENT_CUSTOM+54306223,e,0,0,0,0) + end end end diff --git a/script/c78004197.lua b/script/c78004197.lua index ad465b6b..c3ad0771 100644 --- a/script/c78004197.lua +++ b/script/c78004197.lua @@ -16,13 +16,13 @@ function c78004197.spcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsPreviousLocation(LOCATION_HAND) and bit.band(r,0x4040)==0x4040 end function c78004197.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end if chk==0 then return true end - if rp~=tp and tp==e:GetLabel() and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) + if rp~=tp and tp==e:GetLabel() and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(78004197,1)) then e:SetProperty(EFFECT_FLAG_CARD_TARGET) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,2,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,2,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) e:SetLabel(1) diff --git a/script/c78009994.lua b/script/c78009994.lua index bfb70ac8..5ec402aa 100644 --- a/script/c78009994.lua +++ b/script/c78009994.lua @@ -1,5 +1,6 @@ --ドラゴニック・ガード function c78009994.initial_effect(c) + c:EnableCounterPermit(0x22) --add counter local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) @@ -23,7 +24,7 @@ function c78009994.initial_effect(c) end function c78009994.ctop(e,tp,eg,ep,ev,re,r,rp) if eg:GetFirst()~=e:GetHandler() then - e:GetHandler():AddCounter(0x22+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x22,1) end end function c78009994.spcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c78010363.lua b/script/c78010363.lua index ab5e1c2e..1b2194d9 100644 --- a/script/c78010363.lua +++ b/script/c78010363.lua @@ -19,7 +19,7 @@ function c78010363.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) end function c78010363.filter(c) - return c:IsDefenceBelow(1500) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() + return c:IsDefenseBelow(1500) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c78010363.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) diff --git a/script/c7802006.lua b/script/c7802006.lua index ac06ae0a..c08345dc 100644 --- a/script/c7802006.lua +++ b/script/c7802006.lua @@ -9,13 +9,13 @@ function c7802006.initial_effect(c) c:RegisterEffect(e1) end function c7802006.filter(c) - return c:IsFaceup() and c:IsCanAddCounter(0x3001,1) + return c:IsFaceup() and c:IsCanAddCounter(0x1,1) end function c7802006.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c7802006.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) local tc=g:GetFirst() while tc do - tc:AddCounter(0x3001,1) + tc:AddCounter(0x1,1) tc=g:GetNext() end end diff --git a/script/c78033100.lua b/script/c78033100.lua index 4b977a74..8b92adaa 100644 --- a/script/c78033100.lua +++ b/script/c78033100.lua @@ -29,11 +29,9 @@ function c78033100.spcon(e,tp,eg,ep,ev,re,r,rp) end function c78033100.spfilter1(c,e,tp) return c:IsType(TYPE_NORMAL) and c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c78033100.spfilter2(c,e,tp) return c:IsType(TYPE_NORMAL) and c:IsSetCard(0x69) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c78033100.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -49,6 +47,7 @@ function c78033100.spop(e,tp,eg,ep,ev,re,r,rp) g=Duel.SelectMatchingCard(tp,c78033100.spfilter2,tp,0x13,0,1,1,nil,e,tp) end local tc=g:GetFirst() + if tc and tc:IsHasEffect(EFFECT_NECRO_VALLEY) then return end if tc and Duel.SpecialSummonStep(g:GetFirst(),0,tp,tp,false,false,POS_FACEUP) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) @@ -57,16 +56,8 @@ function c78033100.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) tc:RegisterEffect(e2) Duel.SpecialSummonComplete() - elseif Duel.IsPlayerCanSpecialSummon(tp) then - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_DECK,0) - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ConfirmCards(tp,cg2) - Duel.ShuffleHand(tp) - Duel.ShuffleDeck(tp) end end diff --git a/script/c78053598.lua b/script/c78053598.lua index b4629dfe..e046fdae 100644 --- a/script/c78053598.lua +++ b/script/c78053598.lua @@ -10,22 +10,21 @@ function c78053598.initial_effect(c) end function c78053598.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,0,LOCATION_DECK,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,564) + local code=Duel.AnnounceCard(tp,TYPE_MONSTER) + Duel.SetTargetParam(code) + Duel.SetOperationInfo(0,CATEGORY_ANNOUNCE,nil,0,tp,TYPE_MONSTER) end function c78053598.filter(c,code) return c:IsType(TYPE_MONSTER) and c:IsCode(code) and c:IsAbleToHand() end function c78053598.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,564) - local code=Duel.AnnounceCard(tp) + local code=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(1-tp,c78053598.filter,1-tp,LOCATION_DECK,0,1,1,nil,code) local tc=g:GetFirst() if tc then Duel.SendtoHand(tc,nil,REASON_EFFECT) Duel.ConfirmCards(tp,tc) - else - local dg=Duel.GetFieldGroup(tp,0,LOCATION_DECK) - Duel.ConfirmCards(tp,dg) - Duel.ShuffleDeck(1-tp) end end diff --git a/script/c78080961.lua b/script/c78080961.lua new file mode 100644 index 00000000..60ad1f37 --- /dev/null +++ b/script/c78080961.lua @@ -0,0 +1,69 @@ +--SPYRAL Quik-Fix +function c78080961.initial_effect(c) + --to hand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(78080961,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c78080961.thtg) + e1:SetOperation(c78080961.thop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(78080961,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_GRAVE) + e3:SetCondition(c78080961.spcon) + e3:SetCost(c78080961.spcost) + e3:SetTarget(c78080961.sptg) + e3:SetOperation(c78080961.spop) + c:RegisterEffect(e3) +end +function c78080961.thfilter(c) + return c:IsSetCard(0x10ee) and c:IsAbleToHand() +end +function c78080961.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c78080961.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c78080961.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c78080961.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c78080961.cfilter(c) + return c:IsFaceup() and c:IsCode(41091257) +end +function c78080961.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c78080961.cfilter,tp,LOCATION_ONFIELD,0,1,nil) +end +function c78080961.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) +end +function c78080961.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c78080961.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) + e1:SetValue(LOCATION_REMOVED) + e1:SetReset(RESET_EVENT+0x47e0000) + c:RegisterEffect(e1,true) + end +end diff --git a/script/c78121572.lua b/script/c78121572.lua index 44138b08..193e2703 100644 --- a/script/c78121572.lua +++ b/script/c78121572.lua @@ -17,22 +17,22 @@ function c78121572.con(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsPosition(POS_FACEUP_ATTACK) end function c78121572.filter(c) - return c:IsFaceup() and c:IsCanAddCounter(0x3001,1) + return c:IsFaceup() and c:IsCanAddCounter(0x1,1) end function c78121572.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c78121572.filter(chkc) end if chk==0 then return Duel.IsExistingTarget(c78121572.filter,tp,LOCATION_ONFIELD,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(78121572,1)) local g=Duel.SelectTarget(tp,c78121572.filter,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x3001) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x1) end function c78121572.op(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) if tc:IsRelateToEffect(e) then - tc:AddCounter(0x3001,1) + tc:AddCounter(0x1,1) end end end diff --git a/script/c78156759.lua b/script/c78156759.lua index 56eae647..dddffc29 100644 --- a/script/c78156759.lua +++ b/script/c78156759.lua @@ -37,10 +37,10 @@ function c78156759.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetFlagEffect(78156759)~=0 end function c78156759.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end + if chkc then return chkc:IsOnField() end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c78156759.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c78161960.lua b/script/c78161960.lua old mode 100755 new mode 100644 index ebb030e3..926b448d --- a/script/c78161960.lua +++ b/script/c78161960.lua @@ -37,6 +37,7 @@ function c78161960.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g2=Duel.SelectMatchingCard(tp,c78161960.filter2,tp,LOCATION_GRAVE,0,1,1,g1:GetFirst(),e,tp) g1:Merge(g2) + if g1:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummon(g1,0,tp,tp,false,false,POS_FACEUP) local tc=g1:GetFirst() while tc do diff --git a/script/c78184733.lua b/script/c78184733.lua index 91850139..7e9b2236 100644 --- a/script/c78184733.lua +++ b/script/c78184733.lua @@ -28,7 +28,7 @@ function c78184733.activate(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local g=Duel.GetMatchingGroup(c78184733.filter,tp,0,LOCATION_MZONE,nil) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) local tc=g:GetFirst() while tc do local e1=Effect.CreateEffect(c) diff --git a/script/c78193832.lua b/script/c78193832.lua deleted file mode 100644 index 9bf4a94d..00000000 --- a/script/c78193832.lua +++ /dev/null @@ -1,17 +0,0 @@ ---バスター·ブレイダー -function c78193832.initial_effect(c) - --atkup - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(c78193832.val) - c:RegisterEffect(e1) -end -function c78193832.val(e,c) - return Duel.GetMatchingGroupCount(c78193832.filter,c:GetControler(),0,LOCATION_GRAVE+LOCATION_MZONE,nil)*500 -end -function c78193832.filter(c) - return c:IsRace(RACE_DRAGON) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) -end diff --git a/script/c78202553.lua b/script/c78202553.lua new file mode 100644 index 00000000..ffc1930e --- /dev/null +++ b/script/c78202553.lua @@ -0,0 +1,80 @@ +--Subterror Behemoth Stalagmo +function c78202553.initial_effect(c) + --flip + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(78202553,0)) + e1:SetCategory(CATEGORY_DRAW+CATEGORY_HANDES) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCountLimit(1,78202553) + e1:SetTarget(c78202553.target) + e1:SetOperation(c78202553.operation) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(78202553,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetRange(LOCATION_HAND) + e2:SetCode(EVENT_CHANGE_POS) + e2:SetCondition(c78202553.spcon) + e2:SetTarget(c78202553.sptg) + e2:SetOperation(c78202553.spop) + c:RegisterEffect(e2) + --turn set + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(78202553,2)) + e3:SetCategory(CATEGORY_POSITION) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_MZONE) + e3:SetTarget(c78202553.postg) + e3:SetOperation(c78202553.posop) + c:RegisterEffect(e3) +end +function c78202553.tgfilter(c) + return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xed) and c:IsDiscardable() +end +function c78202553.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c78202553.tgfilter,tp,LOCATION_HAND,0,1,nil) + and Duel.IsPlayerCanDraw(tp,2) end + Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) +end +function c78202553.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.DiscardHand(tp,c78202553.tgfilter,1,1,REASON_EFFECT+REASON_DISCARD)~=0 then + Duel.Draw(tp,2,REASON_EFFECT) + end +end +function c78202553.cfilter(c,tp) + return c:IsPreviousPosition(POS_FACEUP) and c:IsFacedown() and c:IsControler(tp) +end +function c78202553.spcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c78202553.cfilter,1,nil,tp) + and not Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) +end +function c78202553.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c78202553.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)==0 + and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c78202553.postg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:IsCanTurnSet() and c:GetFlagEffect(78202553)==0 end + c:RegisterFlagEffect(78202553,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) + Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0) +end +function c78202553.posop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and c:IsFaceup() then + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) + end +end diff --git a/script/c78266168.lua b/script/c78266168.lua index 04667e6a..5c8a1f89 100644 --- a/script/c78266168.lua +++ b/script/c78266168.lua @@ -29,12 +29,12 @@ end function c78266168.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c78266168.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==e:GetHandler() and e:GetHandler():GetBattlePosition()==POS_FACEDOWN_DEFENCE - and Duel.GetAttacker():GetAttack()0 +end +function c78316184.costfilter(c) + return bit.band(c:GetType(),0x81)==0x81 and c:IsAbleToDeckAsCost() +end +function c78316184.negcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c78316184.costfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + local g=Duel.SelectMatchingCard(tp,c78316184.costfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SendtoDeck(g,nil,2,REASON_COST) +end +function c78316184.negtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end +end +function c78316184.negop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + if re:GetHandler():IsRelateToEffect(re) then + Duel.Destroy(eg,REASON_EFFECT) + end +end diff --git a/script/c78348934.lua b/script/c78348934.lua index d70edae2..ab3e2b8b 100644 --- a/script/c78348934.lua +++ b/script/c78348934.lua @@ -1,83 +1,85 @@ ---破壊剣士の宿命 -function c78348934.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetCountLimit(1,78348934) - e1:SetCondition(c78348934.condition) - e1:SetTarget(c78348934.target) - e1:SetOperation(c78348934.activate) - c:RegisterEffect(e1) - --to hand - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e2:SetCountLimit(1,78348935) - e2:SetCost(c78348934.thcost) - e2:SetTarget(c78348934.thtg) - e2:SetOperation(c78348934.thop) - c:RegisterEffect(e2) -end -function c78348934.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c78348934.filter1(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() -end -function c78348934.filter2(c,rc) - return c:GetRace()==rc and c:IsAbleToRemove() -end -function c78348934.filter3(c) - return c:IsFaceup() and (c:IsSetCard(0xd6) or c:IsSetCard(0xd7)) -end -function c78348934.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and c78348934.filter1(chkc) end - if chk==0 then return Duel.IsExistingTarget(c78348934.filter1,tp,0,LOCATION_GRAVE,1,nil) - and Duel.IsExistingMatchingCard(c78348934.filter3,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g1=Duel.SelectTarget(tp,c78348934.filter1,tp,0,LOCATION_GRAVE,1,1,nil) - local rc=g1:GetFirst():GetRace() - if Duel.IsExistingTarget(c78348934.filter2,tp,0,LOCATION_GRAVE,1,g1:GetFirst(),rc) - and Duel.SelectYesNo(tp,aux.Stringid(78348934,0)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - Duel.SelectTarget(tp,c78348934.filter2,tp,0,LOCATION_GRAVE,1,2,g1:GetFirst(),rc) - end -end -function c78348934.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - local ct=Duel.Remove(g,POS_FACEUP,REASON_EFFECT) - if ct==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local sg=Duel.SelectMatchingCard(tp,c78348934.filter3,tp,LOCATION_MZONE,0,1,1,nil) - local tc=sg:GetFirst() - if tc then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(ct*500) - tc:RegisterEffect(e1) - end -end -function c78348934.cfilter(c) - return c:IsSetCard(0xd6) and c:IsDiscardable() -end -function c78348934.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c78348934.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,c78348934.cfilter,1,1,REASON_DISCARD+REASON_COST) -end -function c78348934.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToHand() end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c78348934.thop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,e:GetHandler()) - end -end +--破壊剣士の宿命 +function c78348934.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_REMOVE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(TIMING_DAMAGE_STEP) + e1:SetCountLimit(1,78348934) + e1:SetCondition(c78348934.condition) + e1:SetTarget(c78348934.target) + e1:SetOperation(c78348934.activate) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,78348935) + e2:SetCost(c78348934.thcost) + e2:SetTarget(c78348934.thtg) + e2:SetOperation(c78348934.thop) + c:RegisterEffect(e2) +end +function c78348934.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() +end +function c78348934.filter1(c) + return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() +end +function c78348934.filter2(c,rc) + return c:GetRace()==rc and c:IsAbleToRemove() +end +function c78348934.filter3(c) + return c:IsFaceup() and (c:IsSetCard(0xd6) or c:IsSetCard(0xd7)) +end +function c78348934.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and c78348934.filter1(chkc) end + if chk==0 then return Duel.IsExistingTarget(c78348934.filter1,tp,0,LOCATION_GRAVE,1,nil) + and Duel.IsExistingMatchingCard(c78348934.filter3,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g1=Duel.SelectTarget(tp,c78348934.filter1,tp,0,LOCATION_GRAVE,1,1,nil) + local rc=g1:GetFirst():GetRace() + if Duel.IsExistingTarget(c78348934.filter2,tp,0,LOCATION_GRAVE,1,g1:GetFirst(),rc) + and Duel.SelectYesNo(tp,aux.Stringid(78348934,0)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + Duel.SelectTarget(tp,c78348934.filter2,tp,0,LOCATION_GRAVE,1,2,g1:GetFirst(),rc) + end +end +function c78348934.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + local ct=Duel.Remove(g,POS_FACEUP,REASON_EFFECT) + if ct==0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local sg=Duel.SelectMatchingCard(tp,c78348934.filter3,tp,LOCATION_MZONE,0,1,1,nil) + local tc=sg:GetFirst() + if tc then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(ct*500) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + tc:RegisterEffect(e2) + end +end +function c78348934.cfilter(c) + return c:IsSetCard(0xd6) and c:IsDiscardable() +end +function c78348934.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c78348934.cfilter,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,c78348934.cfilter,1,1,REASON_DISCARD+REASON_COST) +end +function c78348934.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToHand() end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) +end +function c78348934.thop(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():IsRelateToEffect(e) then + Duel.SendtoHand(e:GetHandler(),nil,REASON_EFFECT) + end +end diff --git a/script/c78349103.lua b/script/c78349103.lua index bfb20b37..243fdcf8 100644 --- a/script/c78349103.lua +++ b/script/c78349103.lua @@ -81,8 +81,10 @@ function c78349103.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c78349103.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c78349103.sfilter(c) diff --git a/script/c78355370.lua b/script/c78355370.lua new file mode 100644 index 00000000..caa45916 --- /dev/null +++ b/script/c78355370.lua @@ -0,0 +1,83 @@ +--クリボーン +function c78355370.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(78355370,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_PHASE+PHASE_BATTLE) + e1:SetRange(LOCATION_HAND) + e1:SetCost(c78355370.spcost1) + e1:SetTarget(c78355370.sptg1) + e1:SetOperation(c78355370.spop1) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(78355370,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_ATTACK_ANNOUNCE) + e2:SetRange(LOCATION_GRAVE) + e2:SetCondition(c78355370.spcon2) + e2:SetCost(c78355370.spcost2) + e2:SetTarget(c78355370.sptg2) + e2:SetOperation(c78355370.spop2) + c:RegisterEffect(e2) +end +function c78355370.spcost1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) +end +function c78355370.spfilter1(c,e,tp,tid) + return c:GetTurnID()==tid and bit.band(c:GetReason(),REASON_BATTLE)~=0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c78355370.sptg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local tid=Duel.GetTurnCount() + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c78355370.spfilter1(chkc,e,tp,tid) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c78355370.spfilter1,tp,LOCATION_GRAVE,0,1,nil,e,tp,tid) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c78355370.spfilter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,tid) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c78355370.spop1(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end +function c78355370.spcon2(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetAttacker():GetControler()~=tp +end +function c78355370.spcost2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c78355370.spfilter2(c,e,tp) + return c:IsSetCard(0xa4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_MONSTER) +end +function c78355370.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c78355370.spfilter2(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c78355370.spfilter2,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c78355370.spfilter2,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) +end +function c78355370.spop2(e,tp,eg,ep,ev,re,r,rp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if g:GetCount()>ft then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + g=g:Select(tp,ft,ft,nil) + end + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c78358521.lua b/script/c78358521.lua old mode 100755 new mode 100644 index 2a4df653..95a02239 --- a/script/c78358521.lua +++ b/script/c78358521.lua @@ -1,110 +1,109 @@ ---セイクリッド・ソンブレス -function c78358521.initial_effect(c) - --salvage - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetDescription(aux.Stringid(78358521,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCountLimit(1,78358521) - e1:SetCost(c78358521.thcost) - e1:SetTarget(c78358521.thtg) - e1:SetOperation(c78358521.thop) - c:RegisterEffect(e1) - --summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(78358521,1)) - e2:SetCategory(CATEGORY_SUMMON) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCondition(c78358521.sumcon) - e2:SetTarget(c78358521.sumtg) - e2:SetOperation(c78358521.sumop) - c:RegisterEffect(e2) - --decrease tribute - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetOperation(c78358521.decop) - c:RegisterEffect(e3) -end -function c78358521.rmfilter(c,tp) - return c:IsSetCard(0x53) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() - and Duel.IsExistingTarget(c78358521.filter,tp,LOCATION_GRAVE,0,1,c) -end -function c78358521.filter(c) - return c:IsSetCard(0x53) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c78358521.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c78358521.rmfilter,tp,LOCATION_GRAVE,0,1,nil,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c78358521.rmfilter,tp,LOCATION_GRAVE,0,1,1,nil,tp) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c78358521.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c78358521.filter(chkc) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c78358521.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c78358521.thop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end - if c:IsRelateToEffect(e) and c:IsFaceup() then - c:RegisterFlagEffect(78358521,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - end -end -function c78358521.sumcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(78358521)~=0 -end -function c78358521.sumfilter(c) - return c:IsSetCard(0x53) and c:IsSummonable(true,nil) -end -function c78358521.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c78358521.sumfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0) -end -function c78358521.sumop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON) - local g=Duel.SelectMatchingCard(tp,c78358521.sumfilter,tp,LOCATION_HAND,0,1,1,nil) - local tc=g:GetFirst() - if tc then - Duel.Summon(tp,tc,true,nil) - end -end -function c78358521.decop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if Duel.GetFlagEffect(tp,78358522)~=0 then return end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_DECREASE_TRIBUTE) - e1:SetTargetRange(LOCATION_HAND,LOCATION_HAND) - e1:SetTarget(c78358521.rfilter) - e1:SetCondition(c78358521.econ) - e1:SetCountLimit(1) - e1:SetValue(0x1) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(0x10000000+78358523) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetRange(LOCATION_GRAVE) - e2:SetTargetRange(1,0) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e2) - Duel.RegisterFlagEffect(tp,78358522,RESET_PHASE+PHASE_END,0,1) -end -function c78358521.econ(e) - return Duel.GetFlagEffect(e:GetHandlerPlayer(),78358523)~=0 -end -function c78358521.rfilter(e,c) - return c:IsSetCard(0x53) -end +--セイクリッド・ソンブレス +function c78358521.initial_effect(c) + --salvage + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetDescription(aux.Stringid(78358521,0)) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1,78358521) + e1:SetCost(c78358521.thcost) + e1:SetTarget(c78358521.thtg) + e1:SetOperation(c78358521.thop) + c:RegisterEffect(e1) + --summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(78358521,1)) + e2:SetCategory(CATEGORY_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCondition(c78358521.sumcon) + e2:SetTarget(c78358521.sumtg) + e2:SetOperation(c78358521.sumop) + c:RegisterEffect(e2) + --decrease tribute + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetOperation(c78358521.decop) + c:RegisterEffect(e3) +end +function c78358521.rmfilter(c,tp) + return c:IsSetCard(0x53) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() + and Duel.IsExistingTarget(c78358521.filter,tp,LOCATION_GRAVE,0,1,c) +end +function c78358521.filter(c) + return c:IsSetCard(0x53) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c78358521.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c78358521.rmfilter,tp,LOCATION_GRAVE,0,1,nil,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c78358521.rmfilter,tp,LOCATION_GRAVE,0,1,1,nil,tp) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c78358521.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c78358521.filter(chkc) end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) + local g=Duel.SelectTarget(tp,c78358521.filter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c78358521.thop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end + if c:IsRelateToEffect(e) and c:IsFaceup() then + c:RegisterFlagEffect(78358521,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) + end +end +function c78358521.sumcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(78358521)~=0 +end +function c78358521.sumfilter(c) + return c:IsSetCard(0x53) and c:IsSummonable(true,nil) +end +function c78358521.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c78358521.sumfilter,tp,LOCATION_HAND,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0) +end +function c78358521.sumop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON) + local g=Duel.SelectMatchingCard(tp,c78358521.sumfilter,tp,LOCATION_HAND,0,1,1,nil) + local tc=g:GetFirst() + if tc then + Duel.Summon(tp,tc,true,nil) + end +end +function c78358521.decop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if Duel.GetFlagEffect(tp,78358522)~=0 then return end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_DECREASE_TRIBUTE) + e1:SetTargetRange(LOCATION_HAND,LOCATION_HAND) + e1:SetTarget(c78358521.rfilter) + e1:SetCondition(c78358521.econ) + e1:SetCountLimit(1) + e1:SetValue(0x1) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(0x10000000+78358523) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetRange(LOCATION_GRAVE) + e2:SetTargetRange(1,0) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e2) + Duel.RegisterFlagEffect(tp,78358522,RESET_PHASE+PHASE_END,0,1) +end +function c78358521.econ(e) + return Duel.GetFlagEffect(e:GetHandlerPlayer(),78358523)~=0 +end +function c78358521.rfilter(e,c) + return c:IsSetCard(0x53) +end diff --git a/script/c78371393.lua b/script/c78371393.lua index 7177372e..4b149821 100644 --- a/script/c78371393.lua +++ b/script/c78371393.lua @@ -83,7 +83,6 @@ function c78371393.spcon(e,tp,eg,ep,ev,re,r,rp) end function c78371393.filter(c,e,tp) return c:IsCode(4779091) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) - and (not c:IsLocation(LOCATION_GRAVE) or not c:IsHasEffect(EFFECT_NECRO_VALLEY)) end function c78371393.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -93,7 +92,7 @@ end function c78371393.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c78371393.filter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP) Duel.ShuffleDeck(tp) end diff --git a/script/c78391364.lua b/script/c78391364.lua index c21ba0b5..eb8bd74f 100644 --- a/script/c78391364.lua +++ b/script/c78391364.lua @@ -43,6 +43,6 @@ end function c78391364.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end \ No newline at end of file diff --git a/script/c7841112.lua b/script/c7841112.lua index afdd6df0..e51f42dd 100644 --- a/script/c7841112.lua +++ b/script/c7841112.lua @@ -1,197 +1,200 @@ ---セイヴァー・スター・ドラゴン -function c7841112.initial_effect(c) - --synchro summon - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(c7841112.syncon) - e1:SetOperation(c7841112.synop) - e1:SetValue(SUMMON_TYPE_SYNCHRO) - c:RegisterEffect(e1) - --Negate - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(7841112,0)) - e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_CHAINING) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c7841112.negcon) - e2:SetCost(c7841112.negcost) - e2:SetTarget(c7841112.negtg) - e2:SetOperation(c7841112.negop) - c:RegisterEffect(e2) - --Disable - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(7841112,1)) - e3:SetCategory(CATEGORY_DISABLE) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c7841112.distg) - e3:SetOperation(c7841112.disop) - c:RegisterEffect(e3) - --activate limit - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_CHAINING) - e4:SetRange(LOCATION_MZONE) - e4:SetOperation(c7841112.alop) - c:RegisterEffect(e4) - --to extra & Special summon - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(7841112,2)) - e5:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) - e5:SetCategory(CATEGORY_SPECIAL_SUMMON) - e5:SetRange(LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET) - e5:SetCountLimit(1) - e5:SetCode(EVENT_PHASE+PHASE_END) - e5:SetTarget(c7841112.sptg) - e5:SetOperation(c7841112.spop) - c:RegisterEffect(e5) -end -function c7841112.matfilter(c,syncard) - return c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) -end -function c7841112.synfilter1(c,syncard,lv,g) - if not c:IsCode(21159309) then return false end - local tlv=c:GetSynchroLevel(syncard) - if lv-tlv<=0 then return false end - local t=false - if c:IsType(TYPE_TUNER) then t=true end - local wg=g:Clone() - wg:RemoveCard(c) - return wg:IsExists(c7841112.synfilter2,1,nil,syncard,lv-tlv,wg,t) -end -function c7841112.synfilter2(c,syncard,lv,g,tuner) - if not c:IsCode(44508094) then return false end - local tlv=c:GetSynchroLevel(syncard) - if lv-tlv<=0 then return false end - if not tuner and not c:IsType(TYPE_TUNER) then return false end - return g:IsExists(c7841112.synfilter3,1,c,syncard,lv-tlv) -end -function c7841112.synfilter3(c,syncard,lv) - local mlv=c:GetSynchroLevel(syncard) - local lv1=bit.band(mlv,0xffff) - local lv2=bit.rshift(mlv,16) - return c:IsNotTuner() and (lv1==lv or lv2==lv) -end -function c7841112.syncon(e,c,tuner) - if c==nil then return true end - local tp=c:GetControler() - local mg=Duel.GetMatchingGroup(c7841112.matfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - if tuner then return c7841112.synfilter1(tuner,c,lv,mg) end - return mg:IsExists(c7841112.synfilter1,1,nil,c,lv,mg) -end -function c7841112.synop(e,tp,eg,ep,ev,re,r,rp,c,tuner) - local g=Group.CreateGroup() - local mg=Duel.GetMatchingGroup(c7841112.matfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) - local lv=c:GetLevel() - local m1=tuner - if not tuner then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local t1=mg:FilterSelect(tp,c7841112.synfilter1,1,1,nil,c,lv,mg) - m1=t1:GetFirst() - g:AddCard(m1) - end - lv=lv-m1:GetSynchroLevel(c) - local t=false - if m1:IsType(TYPE_TUNER) then t=true end - mg:RemoveCard(m1) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local t2=mg:FilterSelect(tp,c7841112.synfilter2,1,1,nil,c,lv,mg,t) - local m2=t2:GetFirst() - g:AddCard(m2) - lv=lv-m2:GetSynchroLevel(c) - mg:RemoveCard(m2) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local t3=mg:FilterSelect(tp,c7841112.synfilter3,1,1,nil,c,lv) - g:Merge(t3) - c:SetMaterial(g) - Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO) -end -function c7841112.negcon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and ep~=tp and Duel.IsChainNegatable(ev) -end -function c7841112.negcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c7841112.negtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c7841112.negop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.Destroy(g,REASON_EFFECT) -end -function c7841112.disfilter(c) - return c:IsFaceup() and c:IsType(TYPE_EFFECT) and not c:IsDisabled() -end -function c7841112.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c7841112.disfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c7841112.disfilter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c7841112.disfilter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) -end -function c7841112.disop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local c=e:GetHandler() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e2) - Duel.MajesticCopy(c,tc) - end -end -function c7841112.alop(e,tp,eg,ep,ev,re,r,rp) - if re:GetOwner()==e:GetOwner() and not re:IsHasProperty(EFFECT_FLAG_INITIAL) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(1,1) - e1:SetValue(c7841112.aclimit) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) - end -end -function c7841112.aclimit(e,re,tp) - return re:GetOwner()==e:GetOwner() and not re:IsHasProperty(EFFECT_FLAG_INITIAL) -end -function c7841112.spfilter(c,e,tp) - return c:IsCode(44508094) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c7841112.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c7841112.spfilter(chkc,e,tp) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c7841112.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c7841112.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local c=e:GetHandler() - if bit.band(c:GetOriginalType(),0x802040)~=0 and Duel.SendtoDeck(c,nil,0,REASON_EFFECT)~=0 - and c:IsLocation(LOCATION_EXTRA) and tc and tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end +--セイヴァー・スター・ドラゴン +function c7841112.initial_effect(c) + --synchro summon + c:EnableReviveLimit() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetRange(LOCATION_EXTRA) + e1:SetCondition(c7841112.syncon) + e1:SetOperation(c7841112.synop) + e1:SetValue(SUMMON_TYPE_SYNCHRO) + c:RegisterEffect(e1) + --Negate + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(7841112,0)) + e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_CHAINING) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(c7841112.negcon) + e2:SetCost(c7841112.negcost) + e2:SetTarget(c7841112.negtg) + e2:SetOperation(c7841112.negop) + c:RegisterEffect(e2) + --Disable + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(7841112,1)) + e3:SetCategory(CATEGORY_DISABLE) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCountLimit(1) + e3:SetRange(LOCATION_MZONE) + e3:SetTarget(c7841112.distg) + e3:SetOperation(c7841112.disop) + c:RegisterEffect(e3) + --activate limit + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e4:SetCode(EVENT_CHAINING) + e4:SetRange(LOCATION_MZONE) + e4:SetOperation(c7841112.alop) + c:RegisterEffect(e4) + --to extra & Special summon + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(7841112,2)) + e5:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) + e5:SetCategory(CATEGORY_SPECIAL_SUMMON) + e5:SetRange(LOCATION_MZONE) + e5:SetProperty(EFFECT_FLAG_CARD_TARGET) + e5:SetCountLimit(1) + e5:SetCode(EVENT_PHASE+PHASE_END) + e5:SetTarget(c7841112.sptg) + e5:SetOperation(c7841112.spop) + c:RegisterEffect(e5) +end +function c7841112.matfilter(c,syncard) + return c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) +end +function c7841112.synfilter1(c,syncard,lv,g) + if not c:IsCode(21159309) then return false end + local tlv=c:GetSynchroLevel(syncard) + if lv-tlv<=0 then return false end + local t=false + if c:IsType(TYPE_TUNER) then t=true end + local wg=g:Clone() + wg:RemoveCard(c) + return wg:IsExists(c7841112.synfilter2,1,nil,syncard,lv-tlv,wg,t) +end +function c7841112.synfilter2(c,syncard,lv,g,tuner) + if not c:IsCode(44508094) then return false end + local tlv=c:GetSynchroLevel(syncard) + if lv-tlv<=0 then return false end + if not tuner and not c:IsType(TYPE_TUNER) then return false end + return g:IsExists(c7841112.synfilter3,1,c,syncard,lv-tlv) +end +function c7841112.synfilter3(c,syncard,lv) + local mlv=c:GetSynchroLevel(syncard) + local lv1=bit.band(mlv,0xffff) + local lv2=bit.rshift(mlv,16) + return c:IsNotTuner() and (lv1==lv or lv2==lv) +end +function c7841112.syncon(e,c,tuner) + if c==nil then return true end + local tp=c:GetControler() + local mg=Duel.GetMatchingGroup(c7841112.matfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) + local lv=c:GetLevel() + if tuner then return c7841112.synfilter1(tuner,c,lv,mg) end + return mg:IsExists(c7841112.synfilter1,1,nil,c,lv,mg) +end +function c7841112.synop(e,tp,eg,ep,ev,re,r,rp,c,tuner) + local g=Group.CreateGroup() + local mg=Duel.GetMatchingGroup(c7841112.matfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,c) + local lv=c:GetLevel() + local m1=tuner + if not tuner then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + local t1=mg:FilterSelect(tp,c7841112.synfilter1,1,1,nil,c,lv,mg) + m1=t1:GetFirst() + g:AddCard(m1) + end + lv=lv-m1:GetSynchroLevel(c) + local t=false + if m1:IsType(TYPE_TUNER) then t=true end + mg:RemoveCard(m1) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + local t2=mg:FilterSelect(tp,c7841112.synfilter2,1,1,nil,c,lv,mg,t) + local m2=t2:GetFirst() + g:AddCard(m2) + lv=lv-m2:GetSynchroLevel(c) + mg:RemoveCard(m2) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + local t3=mg:FilterSelect(tp,c7841112.synfilter3,1,1,nil,c,lv) + g:Merge(t3) + c:SetMaterial(g) + Duel.SendtoGrave(g,REASON_MATERIAL+REASON_SYNCHRO) +end +function c7841112.negcon(e,tp,eg,ep,ev,re,r,rp) + return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and ep~=tp and Duel.IsChainNegatable(ev) +end +function c7841112.negcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c7841112.negtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c7841112.negop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then + Duel.SendtoGrave(eg,REASON_EFFECT) + end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) + Duel.Destroy(g,REASON_EFFECT) +end +function c7841112.disfilter(c) + return c:IsFaceup() and c:IsType(TYPE_EFFECT) and not c:IsDisabled() +end +function c7841112.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c7841112.disfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c7841112.disfilter,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,c7841112.disfilter,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) +end +function c7841112.disop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + local c=e:GetHandler() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + Duel.MajesticCopy(c,tc) + end +end +function c7841112.alop(e,tp,eg,ep,ev,re,r,rp) + if re:GetOwner()==e:GetOwner() and not re:IsHasProperty(EFFECT_FLAG_INITIAL) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EFFECT_CANNOT_ACTIVATE) + e1:SetRange(LOCATION_MZONE) + e1:SetTargetRange(1,1) + e1:SetValue(c7841112.aclimit) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e:GetHandler():RegisterEffect(e1) + end +end +function c7841112.aclimit(e,re,tp) + return re:GetOwner()==e:GetOwner() and not re:IsHasProperty(EFFECT_FLAG_INITIAL) +end +function c7841112.spfilter(c,e,tp) + return c:IsCode(44508094) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c7841112.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c7841112.spfilter(chkc,e,tp) end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c7841112.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c7841112.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + local c=e:GetHandler() + if bit.band(c:GetOriginalType(),0x802040)~=0 and Duel.SendtoDeck(c,nil,0,REASON_EFFECT)~=0 + and c:IsLocation(LOCATION_EXTRA) and tc and tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c7841921.lua b/script/c7841921.lua old mode 100755 new mode 100644 index 952bdf01..594fc7e3 --- a/script/c7841921.lua +++ b/script/c7841921.lua @@ -45,7 +45,7 @@ function c7841921.atkop(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e1) end function c7841921.thfilter(c) - return c:IsSetCard(0xcf) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() + return c:IsSetCard(0x10cf) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c7841921.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c7841921.thfilter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c78422252.lua b/script/c78422252.lua index 79bacc4d..f0581cf2 100644 --- a/script/c78422252.lua +++ b/script/c78422252.lua @@ -39,7 +39,7 @@ end function c78422252.spcon(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() - return a==Duel.GetAttacker() and bit.band(d:GetBattlePosition(),POS_DEFENCE)~=0 + return a==Duel.GetAttacker() and bit.band(d:GetBattlePosition(),POS_DEFENSE)~=0 end function c78422252.filter(c,e,tp) return c:IsSetCard(0x100d) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) diff --git a/script/c78509901.lua b/script/c78509901.lua new file mode 100644 index 00000000..1cebc348 --- /dev/null +++ b/script/c78509901.lua @@ -0,0 +1,87 @@ +--方界獣ブレード・ガルーディア +function c78509901.initial_effect(c) + c:EnableReviveLimit() + --special summon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_HAND) + e2:SetCondition(c78509901.spcon) + e2:SetOperation(c78509901.spop) + c:RegisterEffect(e2) + --extra att + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_EXTRA_ATTACK) + e3:SetValue(1) + c:RegisterEffect(e3) + --special summon + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND+CATEGORY_SEARCH) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_BATTLE_DESTROYING) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetCondition(aux.bdcon) + e4:SetTarget(c78509901.sptg2) + e4:SetOperation(c78509901.spop2) + c:RegisterEffect(e4) +end +function c78509901.filter(c) + return c:IsFaceup() and c:IsSetCard(0xe3) and c:IsAbleToGraveAsCost() +end +function c78509901.spcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-2 + and Duel.IsExistingMatchingCard(c78509901.filter,c:GetControler(),LOCATION_MZONE,0,2,nil) +end +function c78509901.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c78509901.filter,tp,LOCATION_MZONE,0,2,2,nil) + Duel.SendtoGrave(g,REASON_COST) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(2000) + e1:SetReset(RESET_EVENT+0xff0000) + c:RegisterEffect(e1) +end +function c78509901.spfilter(c,e,tp) + return c:IsCode(15610297) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c78509901.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c78509901.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingTarget(c78509901.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + local ft=3 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + ft=math.min(ft,Duel.GetLocationCount(tp,LOCATION_MZONE)+1) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c78509901.spfilter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) +end +function c78509901.thfilter(c) + return c:IsCode(4998619) and c:IsAbleToHand() +end +function c78509901.spop2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or Duel.SendtoGrave(c,REASON_EFFECT)==0 then return end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + local sg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if sg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if sg:GetCount()>ft then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + sg=sg:Select(tp,ft,ft,nil) + end + if Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)~=0 then + local g=Duel.GetMatchingGroup(c78509901.thfilter,tp,LOCATION_DECK,0,nil) + if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(78509901,0)) then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + g=g:Select(tp,1,1,nil) + Duel.SendtoHand(g,tp,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end + end +end diff --git a/script/c78512663.lua b/script/c78512663.lua index a44325a5..1ee8c64f 100644 --- a/script/c78512663.lua +++ b/script/c78512663.lua @@ -49,7 +49,7 @@ function c78512663.initial_effect(c) e6:SetDescription(aux.Stringid(78512663,1)) e6:SetCategory(CATEGORY_TOHAND) e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e6:SetCode(78512663) + e6:SetCode(EVENT_CUSTOM+78512663) e6:SetTarget(c78512663.thtg) e6:SetOperation(c78512663.thop) c:RegisterEffect(e6) @@ -58,10 +58,10 @@ function c78512663.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA) end function c78512663.spfilter(c,code) - return c:IsAbleToDeckOrExtraAsCost() and c:IsCode(code) + return c:IsAbleToDeckOrExtraAsCost() and c:IsFusionCode(code) end function c78512663.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-2 then return false end @@ -94,7 +94,13 @@ function c78512663.spop(e,tp,eg,ep,ev,re,r,rp,c) tc=g1:Select(tp,1,1,nil):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) + if tc:IsFusionCode(89943723) then + g1:Remove(Card.IsFusionCode,nil,89943723) + elseif tc:IsFusionCode(89621922) then + g1:Remove(Card.IsFusionCode,nil,89621922) + elseif tc:IsFusionCode(80344569) then + g1:Remove(Card.IsFusionCode,nil,80344569) + end ft=ft+1 end local cg=g:Filter(Card.IsFacedown,nil) @@ -106,10 +112,10 @@ end function c78512663.atkval(e,c) return Duel.GetFieldGroupCount(0,LOCATION_ONFIELD,LOCATION_ONFIELD)*400 end -function c78512663.retcon1(e,tp,eg,ep,ev,re,r,rp,chk) +function c78512663.retcon1(e,tp,eg,ep,ev,re,r,rp) return not e:GetHandler():IsHasEffect(42015635) end -function c78512663.retcon2(e,tp,eg,ep,ev,re,r,rp,chk) +function c78512663.retcon2(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsHasEffect(42015635) end function c78512663.rettg(e,tp,eg,ep,ev,re,r,rp,chk) @@ -121,7 +127,7 @@ function c78512663.retop(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) or c:IsFacedown() then return end Duel.SendtoDeck(c,nil,2,REASON_EFFECT) if c:IsLocation(LOCATION_EXTRA) then - Duel.RaiseSingleEvent(c,78512663,e,0,0,0,0) + Duel.RaiseSingleEvent(c,EVENT_CUSTOM+78512663,e,0,0,0,0) end end function c78512663.thtg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c7852878.lua b/script/c7852878.lua index 72f00b4d..bf0b1a10 100644 --- a/script/c7852878.lua +++ b/script/c7852878.lua @@ -12,8 +12,8 @@ function c7852878.initial_effect(c) c:RegisterEffect(e1) end function c7852878.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==e:GetHandler() and e:GetHandler():IsDefencePos() - and Duel.GetAttacker():GetAttack()0 and g:GetCount()>0 then + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end if g:GetCount()>ft then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) g=g:Select(tp,ft,ft,nil) end local tc=g:GetFirst() while tc do - Duel.SpecialSummonStep(tc,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(tc,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) if tc:GetLevel()>0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c78613627.lua b/script/c78613627.lua index 15afaa3b..5092fcda 100644 --- a/script/c78613627.lua +++ b/script/c78613627.lua @@ -12,8 +12,8 @@ function c78613627.initial_effect(c) c:RegisterEffect(e1) end function c78613627.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==e:GetHandler() and bit.band(e:GetHandler():GetBattlePosition(),POS_DEFENCE)~=0 - and Duel.GetAttacker():GetAttack()=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)) +end +function c78625592.grcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c78625592.groperation(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) + e1:SetTargetRange(0,LOCATION_MZONE) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end diff --git a/script/c78636495.lua b/script/c78636495.lua index 8b450952..679909df 100644 --- a/script/c78636495.lua +++ b/script/c78636495.lua @@ -26,7 +26,7 @@ function c78636495.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(500) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end function c78636495.desop(e,tp,eg,ep,ev,re,r,rp) @@ -42,6 +42,6 @@ function c78636495.desop(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(-500) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end diff --git a/script/c78651105.lua b/script/c78651105.lua index 44197803..d049e827 100644 --- a/script/c78651105.lua +++ b/script/c78651105.lua @@ -63,10 +63,10 @@ function c78651105.descon(e,tp,eg,ep,ev,re,r,rp) end function c78651105.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) end function c78651105.desop(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.Destroy(sg,REASON_EFFECT) end diff --git a/script/c78658564.lua b/script/c78658564.lua index f36ac7fc..86848421 100644 --- a/script/c78658564.lua +++ b/script/c78658564.lua @@ -1,6 +1,6 @@ --ゴブリン突撃部隊 function c78658564.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -16,7 +16,7 @@ end function c78658564.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c7868571.lua b/script/c7868571.lua new file mode 100644 index 00000000..662e5a2d --- /dev/null +++ b/script/c7868571.lua @@ -0,0 +1,46 @@ +--メタルフォーゼ・シルバード +function c7868571.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --destroy and set + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetTarget(c7868571.target) + e1:SetOperation(c7868571.operation) + c:RegisterEffect(e1) +end +function c7868571.desfilter(c,tp) + if c:IsFacedown() then return false end + local ft=Duel.GetLocationCount(tp,LOCATION_SZONE) + if ft==0 and c:IsLocation(LOCATION_SZONE) and c:GetSequence()<5 then + return Duel.IsExistingMatchingCard(c7868571.filter,tp,LOCATION_DECK,0,1,nil,true) + else + return Duel.IsExistingMatchingCard(c7868571.filter,tp,LOCATION_DECK,0,1,nil,false) + end +end +function c7868571.filter(c,ignore) + return c:IsSetCard(0xe1) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable(ignore) +end +function c7868571.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c7868571.desfilter(chkc,tp) and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(c7868571.desfilter,tp,LOCATION_ONFIELD,0,1,e:GetHandler(),tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c7868571.desfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler(),tp) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c7868571.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) + local g=Duel.SelectMatchingCard(tp,c7868571.filter,tp,LOCATION_DECK,0,1,1,nil,false) + if g:GetCount()>0 then + Duel.SSet(tp,g:GetFirst()) + Duel.ConfirmCards(1-tp,g) + end + end +end diff --git a/script/c78700060.lua b/script/c78700060.lua index 9bca4d60..3397e380 100644 --- a/script/c78700060.lua +++ b/script/c78700060.lua @@ -10,7 +10,7 @@ function c78700060.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(78700060,1)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_F) + e2:SetType(EFFECT_TYPE_QUICK_F) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetCode(EVENT_CHAINING) e2:SetRange(LOCATION_MZONE) diff --git a/script/c78706415.lua b/script/c78706415.lua index 8f6ce464..0e5ff297 100644 --- a/script/c78706415.lua +++ b/script/c78706415.lua @@ -17,8 +17,9 @@ function c78706415.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local g=Duel.GetFieldGroup(tp,0x1e,0x1e) Duel.SendtoDeck(g,nil,2,REASON_EFFECT) - Duel.ShuffleDeck(tp) - Duel.ShuffleDeck(1-tp) + local tg=Duel.GetOperatedGroup():Filter(Card.IsLocation,nil,LOCATION_DECK) + if tg:IsExists(Card.IsControler,1,nil,tp) then Duel.ShuffleDeck(tp) end + if tg:IsExists(Card.IsControler,1,nil,1-tp) then Duel.ShuffleDeck(1-tp) end Duel.BreakEffect() Duel.Draw(tp,5,REASON_EFFECT) Duel.Draw(1-tp,5,REASON_EFFECT) diff --git a/script/c78785392.lua b/script/c78785392.lua new file mode 100644 index 00000000..fb7298c3 --- /dev/null +++ b/script/c78785392.lua @@ -0,0 +1,89 @@ +--花合わせ +function c78785392.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,78785392+EFFECT_COUNT_CODE_OATH) + e1:SetCost(c78785392.cost) + e1:SetTarget(c78785392.target) + e1:SetOperation(c78785392.activate) + c:RegisterEffect(e1) + Duel.AddCustomActivityCounter(78785392,ACTIVITY_SUMMON,c78785392.counterfilter) + Duel.AddCustomActivityCounter(78785392,ACTIVITY_SPSUMMON,c78785392.counterfilter) +end +function c78785392.counterfilter(c) + return c:IsSetCard(0xe6) +end +function c78785392.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetCustomActivityCount(78785392,tp,ACTIVITY_SUMMON)==0 + and Duel.GetCustomActivityCount(78785392,tp,ACTIVITY_SPSUMMON)==0 end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) + e1:SetCode(EFFECT_CANNOT_SUMMON) + e1:SetTargetRange(1,0) + e1:SetTarget(c78785392.sumlimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local e2=e1:Clone() + e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + Duel.RegisterEffect(e2,tp) +end +function c78785392.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) + return not c:IsSetCard(0xe6) +end +function c78785392.filter(c,e,tp) + return c:GetAttack()==100 and c:IsSetCard(0xe6) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c78785392.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>3 + and Duel.GetMatchingGroup(c78785392.filter,tp,LOCATION_DECK,0,nil,e,tp):GetClassCount(Card.GetCode)>3 end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,4,tp,LOCATION_DECK) +end +function c78785392.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local ct=math.min(4,Duel.GetLocationCount(tp,LOCATION_MZONE)) + local g=Duel.GetMatchingGroup(c78785392.filter,tp,LOCATION_DECK,0,nil,e,tp) + if not Duel.IsPlayerAffectedByEffect(tp,59822133) + and ct>3 and g:GetClassCount(Card.GetCode)>3 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g1=g:Select(tp,1,1,nil) + g:Remove(Card.IsCode,nil,g1:GetFirst():GetCode()) + ct=ct-1 + while ct>0 and g:GetCount()>0 do + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g2=g:Select(tp,1,1,nil) + g:Remove(Card.IsCode,nil,g2:GetFirst():GetCode()) + g1:Merge(g2) + ct=ct-1 + end + local tc=g1:GetFirst() + while tc do + if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1,true) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2,true) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetCode(EFFECT_UNRELEASABLE_SUM) + e3:SetRange(LOCATION_MZONE) + e3:SetValue(1) + e3:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e3,true) + end + tc=g1:GetNext() + end + Duel.SpecialSummonComplete() + end +end diff --git a/script/c78792195.lua b/script/c78792195.lua index 1570055f..ed6ece50 100644 --- a/script/c78792195.lua +++ b/script/c78792195.lua @@ -25,10 +25,10 @@ function c78792195.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(sg,REASON_COST) end function c78792195.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c78792195.operation(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c78949372.lua b/script/c78949372.lua index 3294aae1..8dffbc73 100644 --- a/script/c78949372.lua +++ b/script/c78949372.lua @@ -19,15 +19,6 @@ function c78949372.initial_effect(c) e2:SetTarget(c78949372.drtg) e2:SetOperation(c78949372.drop) c:RegisterEffect(e2) - --cannot disable - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CANNOT_DISABLE) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_SZONE,0) - e3:SetCondition(c78949372.tgcon) - e3:SetValue(c78949372.effectfilter) - c:RegisterEffect(e3) --inactivatable local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_FIELD) @@ -78,8 +69,8 @@ function c78949372.drop(e,tp,eg,ep,ev,re,r,rp) local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=5 then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) - Duel.ShuffleDeck(tp) local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) if ct==5 then Duel.BreakEffect() diff --git a/script/c78986941.lua b/script/c78986941.lua index f1168ee6..4d236046 100644 --- a/script/c78986941.lua +++ b/script/c78986941.lua @@ -19,17 +19,17 @@ end function c78986941.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c78986941.rfilter(chkc,e) end if chk==0 then return Duel.IsExistingTarget(c78986941.rfilter,tp,LOCATION_MZONE,0,1,nil,e) - and Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + and Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) local rg=Duel.SelectTarget(tp,c78986941.rfilter,tp,LOCATION_MZONE,0,1,1,nil,e) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c78986941.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) and Duel.Release(tc,REASON_EFFECT)>0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local dg=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local dg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) if dg:GetCount()>0 then Duel.Destroy(dg,REASON_EFFECT) end diff --git a/script/c79080761.lua b/script/c79080761.lua index c8495041..95b7d0b4 100644 --- a/script/c79080761.lua +++ b/script/c79080761.lua @@ -41,7 +41,7 @@ function c79080761.condition(e,tp,eg,ep,ev,re,r,rp) and bit.band(c:GetPreviousPosition(),POS_FACEUP)~=0 and bit.band(c:GetPreviousLocation(),LOCATION_ONFIELD)~=0 end function c79080761.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c79080761.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c79106360.lua b/script/c79106360.lua index 1c4c055f..e375b53c 100644 --- a/script/c79106360.lua +++ b/script/c79106360.lua @@ -73,7 +73,7 @@ function c79106360.sp(e,tp,ct) tc=g:GetFirst() while tc do Duel.DisableShuffleCheck() - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) tc=g:GetNext() end if conf-g:GetCount()>0 then diff --git a/script/c7914843.lua b/script/c7914843.lua index 1f76ec8c..69384580 100644 --- a/script/c7914843.lua +++ b/script/c7914843.lua @@ -30,10 +30,11 @@ function c7914843.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c7914843.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END+RESET_SELF_TURN,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsRace(RACE_MACHINE) then + local tct=1 + if Duel.GetTurnPlayer()~=tp then tct=2 + elseif Duel.GetCurrentPhase()==PHASE_END then tct=3 end + Duel.GetControl(tc,tp,PHASE_END,tct) end end function c7914843.desop(e,tp,eg,ep,ev,re,r,rp) @@ -48,6 +49,6 @@ function c7914843.desop(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(-500) bc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) bc:RegisterEffect(e2) end diff --git a/script/c79155167.lua b/script/c79155167.lua index 71866577..558bf500 100644 --- a/script/c79155167.lua +++ b/script/c79155167.lua @@ -11,10 +11,10 @@ function c79155167.initial_effect(c) c:RegisterEffect(e1) end function c79155167.filter1(c) - return c:IsFaceup() and c:IsSetCard(0x56) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0x56) end function c79155167.filter2(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c79155167.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c79161790.lua b/script/c79161790.lua index 6538d57d..7b42b516 100644 --- a/script/c79161790.lua +++ b/script/c79161790.lua @@ -27,7 +27,7 @@ function c79161790.activate(e,tp,eg,ep,ev,re,r,rp) local tc=sg:GetFirst() while tc do local atk=tc:GetAttack() - local def=tc:GetDefence() + local def=tc:GetDefense() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK_FINAL) @@ -36,7 +36,7 @@ function c79161790.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetReset(RESET_EVENT+0x1fe0000) e2:SetValue(atk) tc:RegisterEffect(e2) diff --git a/script/c79178930.lua b/script/c79178930.lua index 46105a75..ed7939d0 100644 --- a/script/c79178930.lua +++ b/script/c79178930.lua @@ -12,10 +12,10 @@ function c79178930.initial_effect(c) end function c79178930.condition(e,tp,eg,ep,ev,re,r,rp) local tc=eg:GetFirst() - return tc:IsFaceup() and tc:IsDefencePos() and tc:IsSetCard(0x11) + return tc:IsFaceup() and tc:IsDefensePos() and tc:IsSetCard(0x11) end function c79178930.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c79178930.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c79178930.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c79205581.lua b/script/c79205581.lua index 6a33085f..3c2ec357 100644 --- a/script/c79205581.lua +++ b/script/c79205581.lua @@ -21,7 +21,7 @@ end function c79205581.cost1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end if Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) - and Duel.GetCurrentPhase()==PHASE_BATTLE and Duel.SelectYesNo(tp,aux.Stringid(79205581,1)) then + and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) and Duel.SelectYesNo(tp,aux.Stringid(79205581,1)) then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGraveAsCost,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler()) Duel.SendtoGrave(g,REASON_COST) @@ -35,7 +35,7 @@ function c79205581.operation1(e,tp,eg,ep,ev,re,r,rp) end end function c79205581.condition2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE and not e:GetHandler():IsStatus(STATUS_CHAINING) + return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) and not e:GetHandler():IsStatus(STATUS_CHAINING) end function c79205581.cost2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) end diff --git a/script/c7922915.lua b/script/c7922915.lua new file mode 100644 index 00000000..1e1d6e52 --- /dev/null +++ b/script/c7922915.lua @@ -0,0 +1,92 @@ +--マジシャンズ・ナビゲート +function c7922915.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c7922915.target) + e1:SetOperation(c7922915.activate) + c:RegisterEffect(e1) + --disable + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(7922915,0)) + e2:SetCategory(CATEGORY_DISABLE) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_GRAVE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetCondition(c7922915.negcon) + e2:SetCost(c7922915.negcost) + e2:SetTarget(c7922915.negtg) + e2:SetOperation(c7922915.negop) + c:RegisterEffect(e2) +end +c7922915.card_code_list={46986414} +function c7922915.filter(c,e,tp) + return c:IsCode(46986414) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c7922915.filter2(c,e,tp) + return c:IsRace(RACE_SPELLCASTER) and c:IsLevelBelow(7) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c7922915.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and Duel.IsExistingMatchingCard(c7922915.filter,tp,LOCATION_HAND,0,1,nil,e,tp) + and Duel.IsExistingMatchingCard(c7922915.filter2,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_DECK) +end +function c7922915.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c7922915.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) + if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0 then + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g2=Duel.SelectMatchingCard(tp,c7922915.filter2,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g2:GetCount()>0 then + Duel.BreakEffect() + Duel.SpecialSummon(g2,0,tp,tp,false,false,POS_FACEUP) + end + end +end +function c7922915.cfilter(c) + return c:IsCode(46986414) and c:IsFaceup() +end +function c7922915.negcon(e,tp,eg,ep,ev,re,r,rp) + return aux.exccon(e) and Duel.IsExistingMatchingCard(c7922915.cfilter,tp,LOCATION_MZONE,0,1,nil) +end +function c7922915.negcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c7922915.negfilter(c) + return aux.disfilter1(c) and c:IsType(TYPE_SPELL+TYPE_TRAP) +end +function c7922915.negtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c7922915.negfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c7922915.negfilter,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c7922915.negfilter,tp,0,LOCATION_ONFIELD,1,1,nil) +end +function c7922915.negop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() and not tc:IsDisabled() then + Duel.NegateRelatedChain(tc,RESET_TURN_SET) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetValue(RESET_TURN_SET) + tc:RegisterEffect(e2) + if tc:IsType(TYPE_TRAPMONSTER) then + local e3=e1:Clone() + e3:SetCode(EFFECT_DISABLE_TRAPMONSTER) + tc:RegisterEffect(e3) + end + end +end diff --git a/script/c79229522.lua b/script/c79229522.lua old mode 100755 new mode 100644 index 5fe76490..795727e4 --- a/script/c79229522.lua +++ b/script/c79229522.lua @@ -31,7 +31,7 @@ function c79229522.splimit(e,se,sp,st) return e:GetHandler():GetLocation()~=LOCATION_EXTRA end function c79229522.spfilter1(c,tp,ft) - if c:IsCode(70095154) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial(nil,true) and (c:IsControler(tp) or c:IsFaceup()) then + if c:IsFusionCode(70095154) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial(nil,true) and (c:IsControler(tp) or c:IsFaceup()) then if ft>0 or (c:IsControler(tp) and c:IsLocation(LOCATION_MZONE)) then return Duel.IsExistingMatchingCard(c79229522.spfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,c,tp) else diff --git a/script/c79234734.lua b/script/c79234734.lua old mode 100755 new mode 100644 index d43f9522..2fd57e15 --- a/script/c79234734.lua +++ b/script/c79234734.lua @@ -21,7 +21,7 @@ function c79234734.initial_effect(c) c:RegisterEffect(e2) end function c79234734.cfilter(c) - return c:IsSetCard(0xcf) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() + return c:IsSetCard(0x10cf) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() end function c79234734.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c79234734.cfilter,tp,LOCATION_HAND,0,1,nil) end @@ -49,7 +49,7 @@ function c79234734.thcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) end function c79234734.thfilter(c) - return (c:IsCode(6628343) or c:IsCode(32013448)) and c:IsAbleToHand() + return c:IsCode(6628343,32013448) and c:IsAbleToHand() end function c79234734.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c79234734.thfilter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c79306385.lua b/script/c79306385.lua old mode 100755 new mode 100644 index 301c76f8..3e38ec3d --- a/script/c79306385.lua +++ b/script/c79306385.lua @@ -9,31 +9,56 @@ function c79306385.initial_effect(c) e1:SetOperation(c79306385.activate) c:RegisterEffect(e1) end -function c79306385.filter(c,e,tp,m) +c79306385.fit_monster={48546368} +function c79306385.filter(c,e,tp,m,ft) if not c:IsCode(48546368) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end local mg=m:Filter(Card.IsCanBeRitualMaterial,c,c) - return mg:CheckWithSumGreater(Card.GetRitualLevel,c:GetLevel(),c) + if ft>0 then + return mg:CheckWithSumGreater(Card.GetRitualLevel,12,c) + else + return mg:IsExists(c79306385.mfilterf,1,nil,tp,mg,c) + end +end +function c79306385.mfilterf(c,tp,mg,rc) + if c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) then + Duel.SetSelectedCard(c) + return mg:CheckWithSumGreater(Card.GetRitualLevel,12,rc) + else return false end end function c79306385.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local mg=Duel.GetRitualMaterial(tp) - return Duel.IsExistingMatchingCard(c79306385.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + return ft>-1 and Duel.IsExistingMatchingCard(c79306385.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg,ft) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) - Duel.SetChainLimit(c79306385.chlimit) + if e:IsHasType(EFFECT_TYPE_ACTIVATE) then + Duel.SetChainLimit(c79306385.chlimit) + end end function c79306385.chlimit(e,ep,tp) return tp==ep end function c79306385.activate(e,tp,eg,ep,ev,re,r,rp) local mg=Duel.GetRitualMaterial(tp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c79306385.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg) + local tg=Duel.SelectMatchingCard(tp,c79306385.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg,ft) local tc=tg:GetFirst() if tc then mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,tc:GetLevel(),tc) + local mat=nil + if ft>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,12,tc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:FilterSelect(tp,c79306385.mfilterf,1,1,nil,tp,mg,tc) + Duel.SetSelectedCard(mat) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local mat2=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,12,tc) + mat:Merge(mat2) + end tc:SetMaterial(mat) Duel.ReleaseRitualMaterial(mat) Duel.BreakEffect() diff --git a/script/c79323590.lua b/script/c79323590.lua old mode 100755 new mode 100644 diff --git a/script/c79324191.lua b/script/c79324191.lua new file mode 100644 index 00000000..52db9690 --- /dev/null +++ b/script/c79324191.lua @@ -0,0 +1,42 @@ +--Ninjitsu Art Notebook +function c79324191.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --set + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(79324191,0)) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_SZONE) + e2:SetCountLimit(1) + e2:SetCost(c79324191.setcost) + e2:SetTarget(c79324191.settg) + e2:SetOperation(c79324191.setop) + c:RegisterEffect(e2) +end +function c79324191.costfilter(c) + return c:IsSetCard(0x2b) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() +end +function c79324191.setcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c79324191.costfilter,tp,LOCATION_HAND,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c79324191.costfilter,tp,LOCATION_HAND,0,1,1,nil) + Duel.SendtoGrave(g,REASON_COST) +end +function c79324191.setfilter(c) + return c:IsSetCard(0x61) and c:IsType(TYPE_SPELL+TYPE_TRAP) and not c:IsCode(79324191) and c:IsSSetable() +end +function c79324191.settg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c79324191.setfilter,tp,LOCATION_DECK,0,1,nil) end +end +function c79324191.setop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) + local g=Duel.SelectMatchingCard(tp,c79324191.setfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SSet(tp,g) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c79337169.lua b/script/c79337169.lua index fe634855..5a8286c3 100644 --- a/script/c79337169.lua +++ b/script/c79337169.lua @@ -40,7 +40,7 @@ function c79337169.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetLabelObject(e1) tc:RegisterEffect(e2) local e3=Effect.CreateEffect(c) diff --git a/script/c79409334.lua b/script/c79409334.lua index 189a0f2f..648ac341 100644 --- a/script/c79409334.lua +++ b/script/c79409334.lua @@ -17,6 +17,6 @@ end function c79409334.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end diff --git a/script/c79418153.lua b/script/c79418153.lua index 9f5711cf..050e0f4e 100644 --- a/script/c79418153.lua +++ b/script/c79418153.lua @@ -15,7 +15,7 @@ end function c79418153.piercecon(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() - return d and a:IsControler(tp) and d:IsDefencePos() + return d and a:IsControler(tp) and d:IsDefensePos() end function c79418153.piercetg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c79418928.lua b/script/c79418928.lua new file mode 100644 index 00000000..f89a60e6 --- /dev/null +++ b/script/c79418928.lua @@ -0,0 +1,68 @@ +--電磁石の戦士β +function c79418928.initial_effect(c) + --to hand + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(79418928,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetCountLimit(1,79418928) + e1:SetTarget(c79418928.thtg) + e1:SetOperation(c79418928.thop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(79418928,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c79418928.spcon) + e3:SetCost(c79418928.spcost) + e3:SetTarget(c79418928.sptg) + e3:SetOperation(c79418928.spop) + c:RegisterEffect(e3) +end +function c79418928.thfilter(c) + return c:IsSetCard(0x2066) and not c:IsCode(79418928) and c:IsLevelBelow(4) and c:IsAbleToHand() +end +function c79418928.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c79418928.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c79418928.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c79418928.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c79418928.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp +end +function c79418928.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c79418928.spfilter(c,e,tp) + return c:IsSetCard(0x2066) and c:GetLevel()==4 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c79418928.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c79418928.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c79418928.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c79418928.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + end +end diff --git a/script/c79473793.lua b/script/c79473793.lua index 6ff44c22..1fed2be7 100644 --- a/script/c79473793.lua +++ b/script/c79473793.lua @@ -4,7 +4,7 @@ function c79473793.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(79473793,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_F) + e1:SetType(EFFECT_TYPE_QUICK_F) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_MZONE) @@ -20,6 +20,7 @@ function c79473793.initial_effect(c) e2:SetRange(LOCATION_MZONE) e2:SetCondition(c79473793.cbcon) e2:SetCost(c79473793.cbcost) + e2:SetTarget(c79473793.cbtg) e2:SetOperation(c79473793.cbop) c:RegisterEffect(e2) end @@ -56,6 +57,12 @@ function c79473793.cbcost(e,tp,eg,ep,ev,re,r,rp,chk) local g=Duel.SelectMatchingCard(tp,c79473793.cfilter,tp,LOCATION_ONFIELD,0,1,1,nil) Duel.SendtoGrave(g,REASON_COST) end +function c79473793.cbtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetAttacker():GetAttackableTarget():IsContains(e:GetHandler()) end +end function c79473793.cbop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeAttackTarget(e:GetHandler()) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and not Duel.GetAttacker():IsImmuneToEffect(e) then + Duel.ChangeAttackTarget(c) + end end diff --git a/script/c79491903.lua b/script/c79491903.lua index 21eb8200..cfaf5a24 100644 --- a/script/c79491903.lua +++ b/script/c79491903.lua @@ -48,12 +48,12 @@ function c79491903.atkop(e,tp,eg,ep,ev,re,r,rp) end end function c79491903.postg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetTurnPlayer()==tp and e:GetHandler():IsDefencePos() end + if chk==0 then return Duel.GetTurnPlayer()==tp and e:GetHandler():IsDefensePos() end Duel.SetOperationInfo(0,CATEGORY_POSITION,e:GetHandler(),1,0,0) end function c79491903.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) and c:IsDefencePos() then + if c:IsFaceup() and c:IsRelateToEffect(e) and c:IsDefensePos() then Duel.ChangePosition(c,0,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c79531196.lua b/script/c79531196.lua index ed85df52..87745d89 100644 --- a/script/c79531196.lua +++ b/script/c79531196.lua @@ -77,6 +77,6 @@ function c79531196.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c79531196.spop(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c7953868.lua b/script/c7953868.lua index a2410c4e..02a6b432 100644 --- a/script/c7953868.lua +++ b/script/c7953868.lua @@ -1,6 +1,6 @@ --蒼血鬼 function c7953868.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(7953868,0)) e1:SetCategory(CATEGORY_POSITION) @@ -32,7 +32,7 @@ end function c7953868.poop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsAttackPos() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c7953868.spcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c79538761.lua b/script/c79538761.lua new file mode 100644 index 00000000..3ba5cc21 --- /dev/null +++ b/script/c79538761.lua @@ -0,0 +1,93 @@ +--トルクチューン・ギア +function c79538761.initial_effect(c) + --equip + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(79538761,0)) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCategory(CATEGORY_EQUIP) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetTarget(c79538761.eqtg) + e1:SetOperation(c79538761.eqop) + c:RegisterEffect(e1) + --unequip + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(79538761,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_SZONE) + e2:SetTarget(c79538761.sptg) + e2:SetOperation(c79538761.spop) + c:RegisterEffect(e2) + --destroy sub + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_EQUIP) + e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e3:SetCode(EFFECT_DESTROY_SUBSTITUTE) + e3:SetValue(c79538761.repval) + c:RegisterEffect(e3) + --add type + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_EQUIP) + e4:SetCode(EFFECT_ADD_TYPE) + e4:SetValue(TYPE_TUNER) + c:RegisterEffect(e4) + --atkup + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_EQUIP) + e5:SetCode(EFFECT_UPDATE_ATTACK) + e5:SetValue(500) + c:RegisterEffect(e5) + --defup + local e6=Effect.CreateEffect(c) + e6:SetType(EFFECT_TYPE_EQUIP) + e6:SetCode(EFFECT_UPDATE_DEFENSE) + e6:SetValue(500) + c:RegisterEffect(e6) + --eqlimit + local e7=Effect.CreateEffect(c) + e7:SetType(EFFECT_TYPE_SINGLE) + e7:SetCode(EFFECT_EQUIP_LIMIT) + e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e7:SetValue(1) + c:RegisterEffect(e7) +end +function c79538761.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local c=e:GetHandler() + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end + if chk==0 then return e:GetHandler():GetFlagEffect(79538761)==0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 + and Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,c) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,c) + Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) + c:RegisterFlagEffect(79538761,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) +end +function c79538761.eqop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end + if not tc:IsRelateToEffect(e) or tc:IsFacedown() then + Duel.SendtoGrave(c,REASON_EFFECT) + return + end + if not Duel.Equip(tp,c,tc,false) then return end + c:SetStatus(STATUS_UNION,true) +end +function c79538761.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:GetFlagEffect(79538761)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) + c:RegisterFlagEffect(79538761,RESET_EVENT+0x7e0000+RESET_PHASE+PHASE_END,0,1) +end +function c79538761.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c79538761.repval(e,re,r,rp) + return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 +end diff --git a/script/c79544790.lua b/script/c79544790.lua index 65478da6..39e5cf2c 100644 --- a/script/c79544790.lua +++ b/script/c79544790.lua @@ -25,7 +25,7 @@ function c79544790.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c79544790.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then + if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) diff --git a/script/c79555535.lua b/script/c79555535.lua index 7ca1fead..c8d2d711 100644 --- a/script/c79555535.lua +++ b/script/c79555535.lua @@ -15,7 +15,7 @@ function c79555535.initial_effect(c) e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xc8)) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --destroy local e4=Effect.CreateEffect(c) @@ -29,7 +29,7 @@ function c79555535.initial_effect(c) c:RegisterEffect(e4) end function c79555535.desfilter(c) - return c:IsSetCard(0xc8) and c:IsDestructable() + return c:IsSetCard(0xc8) end function c79555535.thfilter(c) return c:IsSetCard(0xc8) and c:IsAbleToHand() diff --git a/script/c79569173.lua b/script/c79569173.lua old mode 100755 new mode 100644 index 6ab0c1ea..f0dd7f84 --- a/script/c79569173.lua +++ b/script/c79569173.lua @@ -14,7 +14,7 @@ function c79569173.initial_effect(c) e2:SetCategory(CATEGORY_TOHAND) e2:SetProperty(EFFECT_FLAG_CARD_TARGET) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(79569173) + e2:SetCode(EVENT_CUSTOM+79569173) e2:SetTarget(c79569173.thtg) e2:SetOperation(c79569173.thop) c:RegisterEffect(e2) @@ -64,7 +64,7 @@ function c79569173.desop(e,tp,eg,ep,ev,re,r,rp) ct=ct+1 c:SetTurnCounter(ct) if ct==3 and Duel.Destroy(c,REASON_EFFECT)>0 then - Duel.RaiseSingleEvent(e:GetHandler(),79569173,e,0,tp,tp,0) + Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+79569173,e,0,tp,tp,0) end end function c79569173.disop(e,tp) diff --git a/script/c79575620.lua b/script/c79575620.lua index 2f400658..04243765 100644 --- a/script/c79575620.lua +++ b/script/c79575620.lua @@ -4,7 +4,7 @@ function c79575620.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(79575620,0)) e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetRange(LOCATION_MZONE) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetCondition(c79575620.con) diff --git a/script/c79580323.lua b/script/c79580323.lua old mode 100755 new mode 100644 diff --git a/script/c79606837.lua b/script/c79606837.lua index 601d9f1c..6a349b4c 100644 --- a/script/c79606837.lua +++ b/script/c79606837.lua @@ -17,7 +17,7 @@ function c79606837.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(79606837,0)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetRange(LOCATION_MZONE) diff --git a/script/c79703905.lua b/script/c79703905.lua index 2edfeb7b..8521a62d 100644 --- a/script/c79703905.lua +++ b/script/c79703905.lua @@ -34,7 +34,7 @@ function c79703905.initial_effect(c) c:RegisterEffect(e4) end function c79703905.sdcon(e) - return e:GetHandler():IsPosition(POS_FACEUP_DEFENCE) + return e:GetHandler():IsPosition(POS_FACEUP_DEFENSE) end function c79703905.cfilter(c) return c:IsFaceup() and c:IsSetCard(0x18) @@ -42,12 +42,12 @@ end function c79703905.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then local ct=Duel.GetMatchingGroupCount(c79703905.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - e:GetHandler():AddCounter(0x19,ct) + e:GetHandler():AddCounter(COUNTER_NEED_ENABLE+0x1019,ct) end end function c79703905.hdcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x19,3,REASON_COST) end - Duel.RemoveCounter(tp,1,1,0x19,3,REASON_COST) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x1019,3,REASON_COST) end + Duel.RemoveCounter(tp,1,1,0x1019,3,REASON_COST) end function c79703905.hdtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)~=0 end diff --git a/script/c79757784.lua b/script/c79757784.lua index c858a023..bbf7071e 100644 --- a/script/c79757784.lua +++ b/script/c79757784.lua @@ -28,7 +28,7 @@ function c79757784.thcon(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c79757784.cfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end function c79757784.thfilter(c) - return c:IsCode(24094653) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(24094653) and c:IsAbleToHand() end function c79757784.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c79757784.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end @@ -37,7 +37,7 @@ end function c79757784.thop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c79757784.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end diff --git a/script/c79759861.lua b/script/c79759861.lua index d2fc32ef..ebc41720 100644 --- a/script/c79759861.lua +++ b/script/c79759861.lua @@ -16,10 +16,10 @@ function c79759861.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c79759861.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c79759861.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c79766336.lua b/script/c79766336.lua old mode 100755 new mode 100644 index 07313a63..f65fd1d5 --- a/script/c79766336.lua +++ b/script/c79766336.lua @@ -29,7 +29,7 @@ function c79766336.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end if chk==0 then return Duel.IsExistingTarget(c79766336.filter,tp,LOCATION_GRAVE,0,1,nil) end e:SetProperty(EFFECT_FLAG_CARD_TARGET) - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(79766336,0)) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) local g=Duel.SelectTarget(tp,c79766336.filter,tp,LOCATION_GRAVE,0,1,1,nil) local te,ceg,cep,cev,cre,cr,crp=g:GetFirst():CheckActivateEffect(false,true,true) Duel.ClearTargetCard() diff --git a/script/c79777187.lua b/script/c79777187.lua index e4984dd2..b33cefc5 100644 --- a/script/c79777187.lua +++ b/script/c79777187.lua @@ -16,36 +16,19 @@ function c79777187.initial_effect(c) c:RegisterEffect(e2) --indes local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EFFECT_DESTROY_REPLACE) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_INDESTRUCTABLE_COUNT) e3:SetRange(LOCATION_SZONE) - e3:SetTarget(c79777187.reptg) - e3:SetValue(c79777187.repval) + e3:SetTargetRange(LOCATION_MZONE,0) + e3:SetTarget(c79777187.target) + e3:SetValue(c79777187.indct) c:RegisterEffect(e3) - local g=Group.CreateGroup() - g:KeepAlive() - e3:SetLabelObject(g) end function c79777187.target(e,c) return c:IsSetCard(0xc6) or c:IsSetCard(0x9f) end -function c79777187.repfilter(c,tp) - return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) - and (c:IsSetCard(0xc6) or c:IsSetCard(0x9f)) and c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:GetFlagEffect(79777187)==0 -end -function c79777187.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c79777187.repfilter,1,nil,tp) end - local g=eg:Filter(c79777187.repfilter,nil,tp) - local tc=g:GetFirst() - while tc do - tc:RegisterFlagEffect(79777187,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(79777187,0)) - tc=g:GetNext() - end - e:GetLabelObject():Clear() - e:GetLabelObject():Merge(g) - return true -end -function c79777187.repval(e,c) - local g=e:GetLabelObject() - return g:IsContains(c) +function c79777187.indct(e,re,r,rp) + if bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 then + return 1 + else return 0 end end diff --git a/script/c79794767.lua b/script/c79794767.lua new file mode 100644 index 00000000..8ad8bf35 --- /dev/null +++ b/script/c79794767.lua @@ -0,0 +1,68 @@ +--アモルファージ・オルガ +function c79794767.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --flip + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_FLIP) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetOperation(c79794767.flipop) + c:RegisterEffect(e1) + --maintain + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_PZONE) + e2:SetCountLimit(1) + e2:SetCode(EVENT_PHASE+PHASE_STANDBY) + e2:SetCondition(c79794767.descon) + e2:SetOperation(c79794767.desop) + c:RegisterEffect(e2) + --spsummon limit + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetTargetRange(1,1) + e3:SetTarget(c79794767.sumlimit) + c:RegisterEffect(e3) + --act limit + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_CANNOT_RELEASE) + e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e4:SetRange(LOCATION_PZONE) + e4:SetTargetRange(1,1) + e4:SetCondition(c79794767.relcon) + e4:SetTarget(c79794767.rellimit) + c:RegisterEffect(e4) +end +function c79794767.flipop(e,tp,eg,ep,ev,re,r,rp) + e:GetHandler():RegisterFlagEffect(79794767,RESET_EVENT+0x1fe0000,0,1) +end +function c79794767.descon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()==tp +end +function c79794767.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) + if Duel.CheckReleaseGroup(tp,Card.IsReleasableByEffect,1,c) and Duel.SelectYesNo(tp,aux.Stringid(79794767,0)) then + local g=Duel.SelectReleaseGroup(tp,Card.IsReleasableByEffect,1,1,c) + Duel.Release(g,REASON_COST) + else Duel.Destroy(c,REASON_COST) end +end +function c79794767.sumlimit(e,c,sump,sumtype,sumpos,targetp,se) + return c:IsLocation(LOCATION_EXTRA) and not c:IsSetCard(0xe0) + and (e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM or e:GetHandler():GetFlagEffect(79794767)~=0) +end +function c79794767.filter(c) + return c:IsFaceup() and c:IsSetCard(0xe0) +end +function c79794767.relcon(e) + return Duel.IsExistingMatchingCard(c79794767.filter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) +end +function c79794767.rellimit(e,c,tp,sumtp) + return not c:IsSetCard(0xe0) +end diff --git a/script/c79796561.lua b/script/c79796561.lua old mode 100755 new mode 100644 diff --git a/script/c79798060.lua b/script/c79798060.lua index eb22e195..d632d30c 100644 --- a/script/c79798060.lua +++ b/script/c79798060.lua @@ -1,6 +1,6 @@ --地縛神 Ccarayhua function c79798060.initial_effect(c) - c:SetUniqueOnField(1,1,10000000) + c:SetUniqueOnField(1,1,10000000,LOCATION_MZONE) -- local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_SINGLE) @@ -46,10 +46,10 @@ function c79798060.descon(e,tp,eg,ep,ev,re,r,rp) end function c79798060.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c79798060.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c79850798.lua b/script/c79850798.lua old mode 100755 new mode 100644 index b5f24011..4aa6037d --- a/script/c79850798.lua +++ b/script/c79850798.lua @@ -81,6 +81,6 @@ function c79850798.mtop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)~=0 and Duel.SelectYesNo(tp,aux.Stringid(79850798,1)) then Duel.SendtoGrave(Duel.GetFieldGroup(tp,LOCATION_HAND,0),REASON_COST) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end diff --git a/script/c79852326.lua b/script/c79852326.lua index 36cfa740..19011b8f 100644 --- a/script/c79852326.lua +++ b/script/c79852326.lua @@ -20,9 +20,9 @@ function c79852326.activate(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,79852326,0,0x21,1800,500,4,RACE_ZOMBIE,ATTRIBUTE_DARK) then return end - c:AddTrapMonsterAttribute(TYPE_EFFECT,ATTRIBUTE_DARK,RACE_ZOMBIE,4,1800,500) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_DEFENCE) - c:TrapMonsterBlock() + c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP_DEFENSE) + c:AddMonsterAttributeComplete() --damage local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(79852326,0)) @@ -33,7 +33,8 @@ function c79852326.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetTarget(c79852326.damtg) e1:SetOperation(c79852326.damop) e1:SetReset(RESET_EVENT+0x17e0000) - c:RegisterEffect(e1) + c:RegisterEffect(e1,true) + Duel.SpecialSummonComplete() end function c79852326.damcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsReason(REASON_BATTLE) diff --git a/script/c79853073.lua b/script/c79853073.lua index 3a745493..fe016b66 100644 --- a/script/c79853073.lua +++ b/script/c79853073.lua @@ -25,7 +25,7 @@ function c79853073.op(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(2000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end end diff --git a/script/c79856794.lua b/script/c79856794.lua deleted file mode 100644 index d89aa7a6..00000000 --- a/script/c79856794.lua +++ /dev/null @@ -1,110 +0,0 @@ ---Rainbow Dark Dragon -function c79856794.initial_effect(c) - c:EnableReviveLimit() - c:SetUniqueOnField(1,1,79856794) - --Rainbow Summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c79856794.rainbowcon) - c:RegisterEffect(e1) - --Cannot be Special Summon - local e2=Effect.CreateEffect(c) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e2) - --Treated as "Rainbow Dragon" - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e3:SetCode(EFFECT_CHANGE_CODE) - e3:SetRange(LOCATION_MZONE) - e3:SetValue(79856792) - c:RegisterEffect(e3) - --Rainbow Dark Overdrive - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_ATKCHANGE) - e4:SetDescription(aux.Stringid(79856794,0)) - e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e4:SetType(EFFECT_TYPE_QUICK_O) - e4:SetCode(EVENT_FREE_CHAIN) - e4:SetHintTiming(TIMING_DAMAGE_STEP) - e4:SetRange(LOCATION_MZONE) - e4:SetCondition(c79856794.overdrivecon) - e4:SetCost(c79856794.overdrivecost) - e4:SetOperation(c79856794.overdriveop) - c:RegisterEffect(e4) - --Crystal Protection - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e5:SetDescription(aux.Stringid(79856794,1)) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetRange(LOCATION_MZONE) - e5:SetCode(EFFECT_DESTROY_REPLACE) - e5:SetCondition(c79856794.protectioncon) - e5:SetTarget(c79856794.protectiontg) - e5:SetOperation(c79856794.protectionop) - c:RegisterEffect(e5) - --Activation Limited - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e6:SetCode(EVENT_SPSUMMON_SUCCESS) - e6:SetOperation(c79856794.limited) - c:RegisterEffect(e6) -end -function c79856794.rainbowfilter(c) - return c:IsSetCard(0x34) and (not c:IsOnField() or c:IsFaceup()) -end -function c79856794.rainbowcon(e,c) - if c==nil then return true end - if Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)<=0 then return false end - local g=Duel.GetMatchingGroup(c79856794.rainbowfilter,c:GetControler(),LOCATION_ONFIELD+LOCATION_GRAVE,0,nil) - local ct=g:GetClassCount(Card.GetCode) - return ct>6 -end -function c79856794.overdrivecon(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():GetFlagEffect(79856794)~=0 then return false end - local phase=Duel.GetCurrentPhase() - return phase~=PHASE_DAMAGE or not Duel.IsDamageCalculated() -end -function c79856794.overdrivefilter(c) - return c:IsFaceup() and c:IsSetCard(0x34) and c:IsAbleToGraveAsCost() -end -function c79856794.overdrivecost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c79856794.overdrivefilter,tp,LOCATION_MZONE+LOCATION_SZONE,0,1,nil) end - local g=Duel.GetMatchingGroup(c79856794.overdrivefilter,tp,LOCATION_MZONE+LOCATION_SZONE,0,nil) - Duel.SendtoGrave(g,REASON_COST) - e:SetLabel(g:GetCount()) -end -function c79856794.overdriveop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(e:GetLabel()*1000) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end -function c79856794.protectioncon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(79856794)==0 -end -function c79856794.protectionfilter(c) - return c:IsSetCard(0x34) and c:IsAbleToGraveAsCost() -end -function c79856794.protectiontg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c79856794.protectionfilter,tp,LOCATION_SZONE,0,1,nil) end - return Duel.SelectYesNo(tp,aux.Stringid(79856794,1)) -end -function c79856794.protectionop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.SelectMatchingCard(tp,c79856794.protectionfilter,tp,LOCATION_SZONE,0,1,1,nil) - Duel.SendtoGrave(g,REASON_EFFECT) -end -function c79856794.limited(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():RegisterFlagEffect(79856794,RESET_EVENT+0xfc0000+RESET_PHASE+PHASE_END,0,1) -end \ No newline at end of file diff --git a/script/c79875176.lua b/script/c79875176.lua old mode 100755 new mode 100644 diff --git a/script/c799183.lua b/script/c799183.lua old mode 100755 new mode 100644 index 087ac3dd..d4a352d9 --- a/script/c799183.lua +++ b/script/c799183.lua @@ -21,7 +21,7 @@ function c799183.initial_effect(c) c:RegisterEffect(e2) end function c799183.condition(e,tp,eg,ep,ev,re,r,rp) - if not Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_MZONE,0,1,nil,0xcf) then return false end + if not Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_MZONE,0,1,nil,0x10cf) then return false end if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) return g and g:IsExists(Card.IsLocation,1,nil,LOCATION_MZONE) @@ -41,8 +41,8 @@ function c799183.activate(e,tp,eg,ep,ev,re,r,rp) end end function c799183.setcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x3001,1,REASON_COST) end - Duel.RemoveCounter(tp,1,0,0x3001,1,REASON_COST) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x1,1,REASON_COST) end + Duel.RemoveCounter(tp,1,0,0x1,1,REASON_COST) end function c799183.settg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsSSetable() end diff --git a/script/c79967395.lua b/script/c79967395.lua index 420cd47e..d447ec62 100644 --- a/script/c79967395.lua +++ b/script/c79967395.lua @@ -30,10 +30,18 @@ end function c79967395.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local atk=tc:GetAttack() + local def=tc:GetDefense() local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SWAP_AD) + e1:SetCode(EFFECT_SWAP_ATTACK_FINAL) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetValue(def) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_SWAP_DEFENSE_FINAL) + e2:SetValue(atk) + tc:RegisterEffect(e2) end end diff --git a/script/c79997591.lua b/script/c79997591.lua index 93f9f915..a54f5435 100644 --- a/script/c79997591.lua +++ b/script/c79997591.lua @@ -6,6 +6,7 @@ function c79997591.initial_effect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_ATTACK_ANNOUNCE) e1:SetCondition(c79997591.cbcon) + e1:SetTarget(c79997591.cbtg) e1:SetOperation(c79997591.cbop) c:RegisterEffect(e1) end @@ -13,6 +14,9 @@ function c79997591.cbcon(e,tp,eg,ep,ev,re,r,rp) local bt=Duel.GetAttackTarget() return bt and bt:IsPosition(POS_FACEUP_ATTACK) and bt:IsControler(tp) end +function c79997591.cbtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return not Duel.GetAttacker():IsHasEffect(EFFECT_CANNOT_DIRECT_ATTACK) end +end function c79997591.cbop(e,tp,eg,ep,ev,re,r,rp) local at=Duel.GetAttacker() local bt=Duel.GetAttackTarget() diff --git a/script/c800000001.lua b/script/c800000001.lua deleted file mode 100644 index 46ad78b1..00000000 --- a/script/c800000001.lua +++ /dev/null @@ -1,28 +0,0 @@ ---先史遺産アステカ・マスク・ゴーレム -function c800000001.initial_effect(c) - c:SetUniqueOnField(1,0,800000001) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_CHAINING) - e1:SetRange(LOCATION_HAND) - e1:SetOperation(c800000001.chop) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_HAND) - e2:SetCondition(c800000001.spcon) - c:RegisterEffect(e2) -end -function c800000001.chop(e,tp,eg,ep,ev,re,r,rp) - if re:GetHandler():IsType(TYPE_SPELL) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsSetCard(0x70) - and rp==tp then - e:GetHandler():RegisterFlagEffect(800000001,RESET_EVENT+0x2fe0000+RESET_PHASE+PHASE_END,0,1) - end -end -function c800000001.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetFlagEffect(800000001)~=0 -end \ No newline at end of file diff --git a/script/c800000002.lua b/script/c800000002.lua deleted file mode 100644 index 103a0ac5..00000000 --- a/script/c800000002.lua +++ /dev/null @@ -1,40 +0,0 @@ ---先史遺産カブレラの投石機 -function c800000002.initial_effect(c) - --atk change - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(800000002,0)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c800000002.shcost) - e1:SetTarget(c800000002.target) - e1:SetOperation(c800000002.operation) - c:RegisterEffect(e1) -end -function c800000002.shcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,e:GetHandler(),0x70) end - local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,e:GetHandler(),0x70) - Duel.Release(g,REASON_COST) -end -function c800000002.filter(c) - return c:IsFaceup() and c:GetAttack()>0 -end -function c800000002.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c800000002.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c800000002.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c800000002.filter,tp,0,LOCATION_MZONE,1,1,nil) -end -function c800000002.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end diff --git a/script/c800000003.lua b/script/c800000003.lua deleted file mode 100644 index 17b7a3cf..00000000 --- a/script/c800000003.lua +++ /dev/null @@ -1,31 +0,0 @@ ---先史遺産マッドゴーレム－シャコウキ -function c800000003.initial_effect(c) - --pierce - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c800000003.piercecon) - e2:SetTarget(c800000003.piercetg) - e2:SetOperation(c800000003.pierceop) - c:RegisterEffect(e2) -end -function c800000003.piercecon(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - return d and a:IsControler(tp) and d:IsDefencePos() and a:IsSetCard(0x70) -end -function c800000003.piercetg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.GetAttacker():CreateEffectRelation(e) -end -function c800000003.pierceop(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - if a:IsRelateToEffect(e) and a:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_PIERCE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - a:RegisterEffect(e1) - end -end diff --git a/script/c800000004.lua b/script/c800000004.lua deleted file mode 100644 index af9dd870..00000000 --- a/script/c800000004.lua +++ /dev/null @@ -1,77 +0,0 @@ ---先史遺産マッドゴーレム－シャコウキ -function c800000004.initial_effect(c) - --lvchange - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(800000004,0)) - e1:SetCategory(CATEGORY_LVCHANGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCountLimit(1) - e1:SetCost(c800000004.spcost) - e1:SetTarget(c800000004.lvtg) - e1:SetOperation(c800000004.lvop) - c:RegisterEffect(e1) - if not c800000004.global_check then - c800000004.global_check=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_SPSUMMON_SUCCESS) - ge1:SetOperation(c800000004.checkop) - Duel.RegisterEffect(ge1,0) - local ge2=Effect.CreateEffect(c) - ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW) - ge2:SetOperation(c800000004.clear) - Duel.RegisterEffect(ge2,0) - end -end -function c800000004.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return c800000004[tp] end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c800000004.splimit) - e1:SetLabelObject(e) - Duel.RegisterEffect(e1,tp) -end -function c800000004.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return not c:IsSetCard(0x70) -end -function c800000004.lvfilter(c) - return c:IsFaceup() and c:GetLevel()~=6 -end -function c800000004.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c800000004.lvfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c800000004.lvfilter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c800000004.lvfilter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c800000004.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(6) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end -function c800000004.checkop(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - while tc do - if not tc:IsSetCard(0x70) then - c800000004[tc:GetSummonPlayer()]=false - end - tc=eg:GetNext() - end -end -function c800000004.clear(e,tp,eg,ep,ev,re,r,rp) - c800000004[0]=true - c800000004[1]=true -end \ No newline at end of file diff --git a/script/c800000005.lua b/script/c800000005.lua deleted file mode 100644 index 3e5cfb34..00000000 --- a/script/c800000005.lua +++ /dev/null @@ -1,60 +0,0 @@ ---ギミック・パペット－ボム・エッグ -function c800000005.initial_effect(c) - --damage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(110000000,11)) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c800000005.cost) - e1:SetTarget(c800000005.damtg) - e1:SetOperation(c800000005.damop) - c:RegisterEffect(e1) - --lv change - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(110000000,12)) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c800000005.cost) - e2:SetCondition(c800000005.condition) - e2:SetOperation(c800000005.lvop) - c:RegisterEffect(e2) -end -function c800000005.cfilter(c) - return c:IsAbleToGrave() and c:IsSetCard(0x83) -end -function c800000005.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,800000005)==0 - and Duel.IsExistingMatchingCard(c800000005.cfilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c800000005.cfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) - Duel.RegisterFlagEffect(tp,800000005,RESET_PHASE+PHASE_END,0,1) -end -function c800000005.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(800) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) -end -function c800000005.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end -function c800000005.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetLevel()~=8 -end -function c800000005.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(8) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end -end diff --git a/script/c800000006.lua b/script/c800000006.lua deleted file mode 100644 index ae795d94..00000000 --- a/script/c800000006.lua +++ /dev/null @@ -1,40 +0,0 @@ ---ギミック・パペット－ギア・チェンジャー -function c800000006.initial_effect(c) - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_DECK) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --lv change - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(800000006,0)) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c800000006.lvtg) - e2:SetOperation(c800000006.lvop) - c:RegisterEffect(e2) -end -function c800000006.filter(c,clv) - local lv=c:GetLevel() - return c:IsSetCard(0x83) and lv~=0 and lv~=clv and c:IsLocation(LOCATION_MZONE) and c:IsFaceup() -end -function c800000006.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c800000006.filter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c800000006.filter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.SelectTarget(tp,c800000006.filter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c800000006.lvop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and (not tc:IsLocation(LOCATION_MZONE) or tc:IsFaceup()) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) - e:GetHandler():RegisterEffect(e1) - end -end diff --git a/script/c800000007.lua b/script/c800000007.lua deleted file mode 100644 index 8c36e98a..00000000 --- a/script/c800000007.lua +++ /dev/null @@ -1,41 +0,0 @@ ---ギミック・パペット－ナイト・ジョーカー -function c800000007.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(800000007,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetRange(LOCATION_HAND) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCost(c800000007.cost) - e1:SetCondition(c800000007.condition) - e1:SetTarget(c800000007.target) - e1:SetOperation(c800000007.operation) - c:RegisterEffect(e1) -end -function c800000007.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,800000007)==0 end - Duel.RegisterFlagEffect(tp,800000007,RESET_PHASE+PHASE_END,0,1) -end -function c800000007.spfilter(c,tp) - return c:IsReason(REASON_BATTLE) and c:IsPreviousLocation(LOCATION_MZONE) - and c:GetPreviousControler()==tp and c:IsSetCard(0x83) and c:IsLocation(LOCATION_GRAVE) -end -function c800000007.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c800000007.spfilter,1,nil,tp) - and not e:GetHandler():IsStatus(STATUS_CHAINING) -end -function c800000007.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - local tc=eg:Filter(c800000007.spfilter,nil,tp):GetFirst() - if tc==nil then return end - Duel.SetOperationInfo(0,CATEGORY_REMOVE,tc,1,0,0) - Duel.Remove(tc,POS_FACEUP,REASON_COST) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c800000007.operation(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c800000008.lua b/script/c800000008.lua deleted file mode 100644 index e443271d..00000000 --- a/script/c800000008.lua +++ /dev/null @@ -1,26 +0,0 @@ ---ギミック・パペット－シザー・アーム -function c800000008.initial_effect(c) - --send to grave - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c800000008.target) - e1:SetOperation(c800000008.operation) - c:RegisterEffect(e1) -end -function c800000008.tgfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x83) and c:IsAbleToGrave() -end -function c800000008.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c800000008.tgfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c800000008.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c800000008.tgfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoGrave(g,REASON_EFFECT) - end -end diff --git a/script/c800000009.lua b/script/c800000009.lua deleted file mode 100644 index fa233a4b..00000000 --- a/script/c800000009.lua +++ /dev/null @@ -1,71 +0,0 @@ ---ギミック・パペット－ナイトメア -function c800000009.initial_effect(c) ---special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c800000009.spcon) - e1:SetOperation(c800000009.spop1) - e1:SetValue(1) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c800000009.atkcon) - e2:SetTarget(c800000009.sptg) - e2:SetOperation(c800000009.spop2) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetOperation(c800000009.spop3) - c:RegisterEffect(e3) -end -function c800000009.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetFlagEffect(tp,800000009)==0 - and Duel.CheckReleaseGroup(tp,Card.IsType,1,nil,TYPE_XYZ) -end -function c800000009.spop1(e,tp,eg,ep,ev,re,r,rp,c) - local g=Duel.SelectReleaseGroup(c:GetControler(),Card.IsType,1,1,nil,TYPE_XYZ) - Duel.Release(g,REASON_COST) - Duel.RegisterFlagEffect(tp,800000009,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c800000009.atkcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 -end -function c800000009.filter(c,e,tp) - return c:IsCode(800000009) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c800000009.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c800000009.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND) -end -function c800000009.spop2(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c800000009.filter,tp,LOCATION_GRAVE+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 -function c800000009.spop3(e,tp,eg,ep,ev,re,r,rp,c) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c800000009.splimit) - e1:SetLabelObject(e) - Duel.RegisterEffect(e1,tp) -end -function c800000009.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return not c:IsSetCard(0x83) -end diff --git a/script/c800000010.lua b/script/c800000010.lua deleted file mode 100644 index 4885a9bc..00000000 --- a/script/c800000010.lua +++ /dev/null @@ -1,59 +0,0 @@ ---Heroic Challenger - Ambush Soldier -function c800000010.initial_effect(c) - --Special Summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c800000010.cost) - e1:SetCondition(c800000010.condition) - e1:SetTarget(c800000010.target) - e1:SetOperation(c800000010.operation) - c:RegisterEffect(e1) -end -function c800000010.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() and Duel.GetFlagEffect(tp,800000010)==0 end - Duel.Release(e:GetHandler(),REASON_COST) - Duel.RegisterFlagEffect(tp,800000010,RESET_PHASE+PHASE_END,0,1) -end -function c800000010.condition(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() -end -function c800000010.filter(c,e,tp) - return c:IsSetCard(0x6f) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsCode(800000010) and not c:IsType(TYPE_XYZ) -end -function c800000010.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsExistingMatchingCard(c800000010.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,2,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_GRAVE+LOCATION_HAND) -end -function c800000010.lvfilter(c) - return c:IsSetCard(0x6f) and not c:IsType(TYPE_XYZ) -end -function c800000010.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c800000010.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,2,2,nil,e,tp) - if g:GetCount()>0 then - Duel.BreakEffect() - Duel.SpecialSummon(g,1,tp,tp,false,false,POS_FACEUP_DEFENCE) - local dg=Duel.GetMatchingGroup(c800000010.lvfilter,tp,LOCATION_MZONE,0,nil) - if dg:GetCount()>0 and e:GetHandler():IsLocation(LOCATION_GRAVE) - and e:GetHandler():IsAbleToRemoveAsCost() and Duel.SelectYesNo(tp,aux.Stringid(100000000,2)) then - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT) - local tc=dg:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - tc=dg:GetNext() - end - end - end -end diff --git a/script/c800000011.lua b/script/c800000011.lua deleted file mode 100644 index 94d33107..00000000 --- a/script/c800000011.lua +++ /dev/null @@ -1,31 +0,0 @@ ---Heroic Challenger - Clasp Sword -function c800000011.initial_effect(c) - --tohand - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c800000011.retcon) - e1:SetTarget(c800000011.rettg) - e1:SetOperation(c800000011.retop) - c:RegisterEffect(e1) -end -function c800000011.retcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 -end -function c800000011.schfilter(c) - return c:IsSetCard(0x6f) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c800000011.rettg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c800000011.schfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c800000011.retop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c800000011.schfilter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end diff --git a/script/c800000026.lua b/script/c800000026.lua deleted file mode 100644 index 7d0e56d0..00000000 --- a/script/c800000026.lua +++ /dev/null @@ -1,56 +0,0 @@ ---Ｎｏ．５４反骨の闘士 ライオンハート -function c800000026.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,1),3) - c:EnableReviveLimit() - --battle indestructable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetCondition(c800000026.sdcon) - e1:SetValue(1) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EVENT_DAMAGE) - e2:SetCondition(c800000026.condition) - e2:SetOperation(c800000026.operation) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_PRE_DAMAGE_CALCULATE) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c800000026.cost) - e3:SetCondition(c800000026.rmcon) - e3:SetOperation(c800000026.rmop) - c:RegisterEffect(e3) -end -function c800000026.sdcon(e) - return e:GetHandler():IsPosition(POS_FACEUP_ATTACK) -end -function c800000026.condition(e,tp,eg,ep,ev,re,r,rp) - return ep==tp and r==REASON_BATTLE and (Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()) and Duel.GetAttackTarget()~=nil -end -function c800000026.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(1-tp,ev,REASON_EFFECT) -end -function c800000026.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,806000026)==0 and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c800000026.rmcon(e,tp,eg,ep,ev,re,r,rp) - return (Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()) and Duel.GetAttackTarget()~=nil - and not e:GetHandler():IsStatus(STATUS_CHAINING) -end -function c800000026.rmop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_REFLECT_BATTLE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE) - Duel.RegisterEffect(e1,tp) - Duel.RegisterFlagEffect(tp,806000026,RESET_PHASE+PHASE_DAMAGE,0,1) -end \ No newline at end of file diff --git a/script/c800000028.lua b/script/c800000028.lua deleted file mode 100644 index 95c450b0..00000000 --- a/script/c800000028.lua +++ /dev/null @@ -1,44 +0,0 @@ ---Ｎｏ．４４白天馬スカイ・ペガサス -function c800000028.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,4),2) - c:EnableReviveLimit() - --destroy&damage - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetLabel(0) - e1:SetCost(c800000028.cost) - e1:SetTarget(c800000028.target) - e1:SetOperation(c800000028.operation) - c:RegisterEffect(e1) -end -function c800000028.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c800000028.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c800000028.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c800000028.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c800000028.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c800000028.filter,tp,0,LOCATION_MZONE,1,1,nil) - if Duel.CheckLPCost(1-tp,1000) and Duel.SelectYesNo(1-tp,aux.Stringid(110000000,10)) then - Duel.PayLPCost(1-tp,1000) - e:SetLabel(1) - end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c800000028.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsControler(1-tp) and e:GetLabel()==0 then - Duel.Destroy(tc,REASON_EFFECT) - elseif e:GetLabel()~=0 then - Duel.NegateEffect(e:GetHandler()) - end -end diff --git a/script/c800000032.lua b/script/c800000032.lua deleted file mode 100644 index a16469b7..00000000 --- a/script/c800000032.lua +++ /dev/null @@ -1,50 +0,0 @@ ---Number 74: Master of Blades -function c800000032.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,7),2) - c:EnableReviveLimit() - --negate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(800000032,0)) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_CHAINING) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c800000032.negcon) - e1:SetCost(c800000032.negcost) - e1:SetTarget(c800000032.negtg) - e1:SetOperation(c800000032.negop) - c:RegisterEffect(e1) -end -function c800000032.negcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsStatus(STATUS_BATTLE_DESTROYED) or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end - local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) - return g and g:IsContains(c) -end -function c800000032.negcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c800000032.negtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsRelateToEffect(re) and re:GetHandler():IsDestructable() then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c800000032.negop(e,tp,eg,ep,ev,re,r,rp) - if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) - and Duel.Destroy(re:GetHandler(),REASON_EFFECT)>0 then - Duel.BreakEffect() - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - if dg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(110000000,13)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local des=dg:Select(tp,1,1,nil) - Duel.HintSelection(des) - Duel.BreakEffect() - Duel.Destroy(des,REASON_EFFECT) - end - end -end diff --git a/script/c800000035.lua b/script/c800000035.lua deleted file mode 100644 index 9cd2f2de..00000000 --- a/script/c800000035.lua +++ /dev/null @@ -1,46 +0,0 @@ ---機装天使エンジネル -function c800000035.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,3),2) - c:EnableReviveLimit() - --immune - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_ATTACK) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c800000035.cost) - e1:SetTarget(c800000035.postg) - e1:SetOperation(c800000035.operation) - c:RegisterEffect(e1) -end -function c800000035.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c800000035.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end - if chk==0 then return Duel.IsExistingTarget(Card.IsAttackPos,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,Card.IsAttackPos,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c800000035.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,0,0) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - tc:RegisterEffect(e2) - end -end \ No newline at end of file diff --git a/script/c800000036.lua b/script/c800000036.lua deleted file mode 100644 index f1b39ca1..00000000 --- a/script/c800000036.lua +++ /dev/null @@ -1,59 +0,0 @@ ---ＣＸ 機装魔人エンジェネラル -function c800000036.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,4),3) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c800000036.recon) - e1:SetTarget(c800000036.postg) - e1:SetOperation(c800000036.posop) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EVENT_BATTLE_DAMAGE) - e2:SetCondition(c800000036.damcon) - e2:SetCost(c800000036.cost) - e2:SetTarget(c800000036.damtg) - e2:SetOperation(c800000036.damop) - c:RegisterEffect(e2) -end -function c800000036.recon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ -end -function c800000036.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsPosition(POS_DEFENCE) end - if chk==0 then return Duel.IsExistingTarget(Card.IsPosition,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,POS_DEFENCE) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEFENCE) - local g=Duel.SelectTarget(tp,Card.IsPosition,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,POS_DEFENCE) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) -end -function c800000036.posop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsDefencePos() and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_ATTACK) - end -end -function c800000036.damcon(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,800000035) -end -function c800000036.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c800000036.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) -end -function c800000036.damop(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - Duel.Damage(p,1000,REASON_EFFECT) -end diff --git a/script/c800000039.lua b/script/c800000039.lua deleted file mode 100644 index 27eb8ce6..00000000 --- a/script/c800000039.lua +++ /dev/null @@ -1,41 +0,0 @@ ---風紀宮司ノリト -function c800000039.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsRace,RACE_SPELLCASTER),6),2) - c:EnableReviveLimit() - --negate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(800000039,0)) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_CHAINING) - e1:SetCountLimit(1) - e1:SetCondition(c800000039.negcon) - e1:SetCost(c800000039.negcost) - e1:SetTarget(c800000039.negtg) - e1:SetOperation(c800000039.negop) - c:RegisterEffect(e1) -end -function c800000039.negcon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) - and ep~=tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) -end -function c800000039.negcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c800000039.negtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c800000039.negop(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end diff --git a/script/c800000040.lua b/script/c800000040.lua deleted file mode 100644 index 4e4cc64c..00000000 --- a/script/c800000040.lua +++ /dev/null @@ -1,61 +0,0 @@ ---ＣＸ 風紀大宮司サイモン -function c800000040.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,7),3) - c:EnableReviveLimit() - --unaffectable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_IMMUNE_EFFECT) - e1:SetValue(c800000040.efilter) - c:RegisterEffect(e1) - --pos&atk - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_POSITION+CATEGORY_DISABLE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c800000040.damcon) - e2:SetCost(c800000040.poscost) - e2:SetTarget(c800000040.postg) - e2:SetOperation(c800000040.posop) - c:RegisterEffect(e2) -end -function c800000040.efilter(e,te) - return te:IsActiveType(TYPE_EFFECT) -end -function c800000040.damcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,800000039) -end -function c800000040.poscost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c800000040.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end - if chk==0 then return Duel.IsExistingTarget(nil,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,nil,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c800000040.posop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) - Duel.NegateRelatedChain(tc,RESET_TURN_SET) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetValue(RESET_TURN_SET) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e2) - end -end \ No newline at end of file diff --git a/script/c800000041.lua b/script/c800000041.lua deleted file mode 100644 index 6620109e..00000000 --- a/script/c800000041.lua +++ /dev/null @@ -1,34 +0,0 @@ ---ＣＨ キング・アーサー -function c800000041.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsRace,RACE_WARRIOR),4),2) - c:EnableReviveLimit() - --destroy replace - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_DESTROY_REPLACE) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c800000041.reptg) - e1:SetOperation(c800000041.atkop) - c:RegisterEffect(e1) -end -function c800000041.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_EFFECT) and e:GetHandler():IsReason(REASON_BATTLE) end - if Duel.SelectYesNo(tp,aux.Stringid(110000000,9)) then - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_EFFECT) - e:GetHandler():RegisterFlagEffect(800000041,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - return true - else return false end -end -function c800000041.atkop(e,tp,eg,ep,ev,re,r,rp) - Duel.BreakEffect() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1ff0000) - e1:SetValue(500) - e:GetHandler():RegisterEffect(e1) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(1-tp,500,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c800000042.lua b/script/c800000042.lua deleted file mode 100644 index 9256e78b..00000000 --- a/script/c800000042.lua +++ /dev/null @@ -1,54 +0,0 @@ ---ＣＸ CH レジェンド・アーサー -function c800000042.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,5),3) - c:EnableReviveLimit() - --damage - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_BATTLE_DESTROYING) - e1:SetCondition(c800000042.damcon) - e1:SetCost(c800000042.cost) - e1:SetTarget(c800000042.damtg) - e1:SetOperation(c800000042.damop) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_INDESTRUCTABLE_COUNT) - e2:SetCountLimit(1) - e2:SetValue(c800000042.valcon) - c:RegisterEffect(e2) -end -function c800000042.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c800000042.damcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and bc:IsLocation(LOCATION_GRAVE) and bc:IsReason(REASON_BATTLE) - and c:GetOverlayGroup():IsExists(Card.IsCode,1,nil,800000041) -end -function c800000042.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local tc=e:GetHandler():GetBattleTarget() - local atk=tc:GetBaseAttack() - if atk<0 then atk=0 end - Duel.SetTargetPlayer(1-tp) - Duel.SetTargetParam(atk) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,atk) -end -function c800000042.damop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - tc=e:GetHandler():GetBattleTarget() - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - Duel.Damage(p,d,REASON_EFFECT) -end -function c800000042.valcon(e,re,r,rp) - return bit.band(r,REASON_BATTLE)~=0 -end diff --git a/script/c800000043.lua b/script/c800000043.lua deleted file mode 100644 index 69823974..00000000 --- a/script/c800000043.lua +++ /dev/null @@ -1,37 +0,0 @@ ---烈華砲艦ナデシコ -function c800000043.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,3),3) - c:EnableReviveLimit() - --damage - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c800000043.condition) - e1:SetCost(c800000043.damcost) - e1:SetTarget(c800000043.damtg) - e1:SetOperation(c800000043.damop) - c:RegisterEffect(e1) -end -function c800000043.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 -end -function c800000043.damcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) - and Duel.GetFlagEffect(tp,800000043)==0 end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) - Duel.RegisterFlagEffect(tp,800000043,RESET_PHASE+PHASE_END,0,1) -end -function c800000043.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(1-tp) - local dam=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)*300 - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) - end -function c800000043.damop(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local dam=Duel.GetFieldGroupCount(p,LOCATION_HAND,0)*300 - Duel.Damage(p,dam,REASON_EFFECT) -end diff --git a/script/c800000044.lua b/script/c800000044.lua deleted file mode 100644 index 5937623f..00000000 --- a/script/c800000044.lua +++ /dev/null @@ -1,62 +0,0 @@ ---ＣＸ 激烈華戦艦 タオヤメ -function c800000044.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,4),4) - c:EnableReviveLimit() - --pos&atk - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c800000044.cost1) - e1:SetTarget(c800000044.target) - e1:SetOperation(c800000044.operation) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCategory(CATEGORY_HANDES) - e2:SetCode(EVENT_PHASE+PHASE_END) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_REPEAT) - e2:SetCost(c800000044.cost2) - e2:SetCondition(c800000044.discon) - e2:SetTarget(c800000044.distg) - e2:SetOperation(c800000044.disop) - c:RegisterEffect(e2) -end -function c800000044.cost1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,800000043) - and Duel.GetFlagEffect(tp,800000044)==0 end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) - Duel.RegisterFlagEffect(tp,800000044,RESET_PHASE+PHASE_DRAW,0,1) -end -function c800000044.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.SetTargetPlayer(1-tp) - local dam=Duel.GetFieldGroupCount(1-tp,LOCATION_ONFIELD,LOCATION_ONFIELD)*400 - Duel.SetTargetParam(dam) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c800000044.operation(e,tp,eg,ep,ev,re,r,rp) - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local dam=Duel.GetFieldGroupCount(1-tp,LOCATION_ONFIELD,LOCATION_ONFIELD)*400 - Duel.Damage(p,dam,REASON_EFFECT) -end -function c800000044.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,800000044)==0 end - Duel.RegisterFlagEffect(tp,800000044,RESET_PHASE+PHASE_DRAW,0,1) -end -function c800000044.discon(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() and Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)0 then local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) diff --git a/script/c80208158.lua b/script/c80208158.lua index 84e699b3..976e3145 100644 --- a/script/c80208158.lua +++ b/script/c80208158.lua @@ -9,11 +9,14 @@ function c80208158.initial_effect(c) e1:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET) e1:SetValue(c80208158.atlimit) c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetTargetRange(0,0xff) - e2:SetValue(c80208158.tglimit) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_SET_AVAILABLE) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetTarget(c80208158.tglimit) + e2:SetValue(aux.tgoval) c:RegisterEffect(e2) --spsummon local e3=Effect.CreateEffect(c) @@ -30,8 +33,8 @@ end function c80208158.atlimit(e,c) return c~=e:GetHandler() end -function c80208158.tglimit(e,re,c) - return c:IsControler(e:GetHandlerPlayer()) and c:IsLocation(LOCATION_MZONE) and c~=e:GetHandler() +function c80208158.tglimit(e,c) + return c~=e:GetHandler() end function c80208158.spcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil @@ -43,7 +46,7 @@ function c80208158.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c80208158.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENCE)>0 then + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_DEFENSE)>0 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) diff --git a/script/c80230510.lua b/script/c80230510.lua new file mode 100644 index 00000000..e6e14375 --- /dev/null +++ b/script/c80230510.lua @@ -0,0 +1,62 @@ +--埋葬されし生け贄 +function c80230510.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c80230510.target) + e1:SetOperation(c80230510.activate) + c:RegisterEffect(e1) +end +function c80230510.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFlagEffect(tp,80230510)==0 end +end +function c80230510.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(80230510,0)) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SUMMON_PROC) + e1:SetTargetRange(LOCATION_HAND,0) + e1:SetCondition(c80230510.otcon) + e1:SetTarget(c80230510.ottg) + e1:SetOperation(c80230510.otop) + e1:SetCountLimit(1) + e1:SetValue(SUMMON_TYPE_ADVANCE) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local e2=e1:Clone() + e2:SetCode(EFFECT_SET_PROC) + Duel.RegisterEffect(e2,tp) + Duel.RegisterFlagEffect(tp,80230510,RESET_PHASE+PHASE_END,0,1) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e3:SetReset(RESET_PHASE+PHASE_END) + e3:SetTargetRange(1,0) + Duel.RegisterEffect(e3,tp) +end +function c80230510.rmfilter(c) + return c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() +end +function c80230510.otcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c80230510.rmfilter,tp,LOCATION_GRAVE,0,1,nil) + and Duel.IsExistingMatchingCard(c80230510.rmfilter,tp,0,LOCATION_GRAVE,1,nil) +end +function c80230510.ottg(e,c) + local mi,ma=c:GetTributeRequirement() + return mi<=2 and ma>=2 +end +function c80230510.otop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g1=Duel.SelectMatchingCard(tp,c80230510.rmfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g2=Duel.SelectMatchingCard(tp,c80230510.rmfilter,tp,0,LOCATION_GRAVE,1,1,nil) + g1:Merge(g2) + Duel.Remove(g1,POS_FACEUP,REASON_COST) + Duel.ResetFlagEffect(tp,80230510) +end diff --git a/script/c80244114.lua b/script/c80244114.lua index 58e740d4..c4edaffa 100644 --- a/script/c80244114.lua +++ b/script/c80244114.lua @@ -38,7 +38,7 @@ end function c80244114.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end function c80244114.indcost(e,tp,eg,ep,ev,re,r,rp,chk) @@ -89,6 +89,6 @@ function c80244114.addown(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) e:GetHandler():RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e:GetHandler():RegisterEffect(e2) end diff --git a/script/c80250319.lua b/script/c80250319.lua new file mode 100644 index 00000000..b10b5498 --- /dev/null +++ b/script/c80250319.lua @@ -0,0 +1,77 @@ +--グレイドル・スライムJr. +function c80250319.initial_effect(c) + --special summon from grave + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(80250319,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c80250319.sptg1) + e1:SetOperation(c80250319.spop1) + c:RegisterEffect(e1) + --special summon from deck + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(80250319,2)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BATTLE_DESTROYED) + e2:SetCondition(c80250319.spcon2) + e2:SetTarget(c80250319.sptg2) + e2:SetOperation(c80250319.spop2) + c:RegisterEffect(e2) +end +function c80250319.spfilter1(c,e,tp) + return c:IsSetCard(0xd1) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c80250319.sptg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c80250319.spfilter1(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c80250319.spfilter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c80250319.spfilter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c80250319.spfilter2(c,e,tp,lv) + return c:IsRace(RACE_AQUA) and c:GetLevel()==lv and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c80250319.spop1(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then + local g=Duel.GetMatchingGroup(c80250319.spfilter2,tp,LOCATION_HAND,0,nil,e,tp,tc:GetLevel()) + if g:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.SelectYesNo(tp,aux.Stringid(80250319,1)) then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg=g:Select(tp,1,1,nil) + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) + end + end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetTarget(c80250319.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c80250319.splimit(e,c) + return not c:IsAttribute(ATTRIBUTE_WATER) +end +function c80250319.spcon2(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) +end +function c80250319.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c80250319.spfilter1,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c80250319.spop2(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c80250319.spfilter1,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c80280737.lua b/script/c80280737.lua old mode 100755 new mode 100644 diff --git a/script/c8034697.lua b/script/c8034697.lua index 9082ebf5..40f2efd3 100644 --- a/script/c8034697.lua +++ b/script/c8034697.lua @@ -1,6 +1,6 @@ --魔法の操り人形 function c8034697.initial_effect(c) - c:EnableCounterPermit(0x3001) + c:EnableCounterPermit(0x1) --add counter local e0=Effect.CreateEffect(c) e0:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) @@ -36,21 +36,21 @@ function c8034697.initial_effect(c) end function c8034697.acop(e,tp,eg,ep,ev,re,r,rp) if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c8034697.attackup(e,c) - return c:GetCounter(0x3001)*200 + return c:GetCounter(0x1)*200 end function c8034697.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x3001,2,REASON_COST) end - e:GetHandler():RemoveCounter(tp,0x3001,2,REASON_COST) + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x1,2,REASON_COST) end + e:GetHandler():RemoveCounter(tp,0x1,2,REASON_COST) end function c8034697.destarg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c8034697.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c80352158.lua b/script/c80352158.lua new file mode 100644 index 00000000..e2ba1a1d --- /dev/null +++ b/script/c80352158.lua @@ -0,0 +1,30 @@ +--マグネット・リバース +function c80352158.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c80352158.target) + e1:SetOperation(c80352158.activate) + c:RegisterEffect(e1) +end +function c80352158.filter(c,e,tp) + return c:IsRace(RACE_MACHINE+RACE_ROCK) and not c:IsSummonableCard() + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c80352158.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and c80352158.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c80352158.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c80352158.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c80352158.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c80367387.lua b/script/c80367387.lua index a0bb3aa9..3013c2f5 100644 --- a/script/c80367387.lua +++ b/script/c80367387.lua @@ -29,6 +29,8 @@ function c80367387.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_WARRIOR) and not c:IsPublic() end function c80367387.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c80367387.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c80367387.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -39,8 +41,10 @@ function c80367387.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(80367387,0),aux.Stringid(80367387,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(80367387,1),aux.Stringid(80367387,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(80367387,1),aux.Stringid(80367387,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(80367387,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -52,7 +56,7 @@ function c80367387.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c80367387.atcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c804000000.lua b/script/c804000000.lua deleted file mode 100644 index 1f90c0a5..00000000 --- a/script/c804000000.lua +++ /dev/null @@ -1,48 +0,0 @@ ---Mecha Phantom Beast Turtletracer -function c804000000.initial_effect(c) - --level - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetValue(c804000000.lvval) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetCondition(c804000000.indcon) - e2:SetValue(1) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e3) - --indes - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_INDESTRUCTABLE_COUNT) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetCountLimit(1) - e3:SetTarget(c804000000.tg) - e3:SetValue(1) - c:RegisterEffect(e3) -end -function c804000000.lvval(e,c) - local tp=c:GetControler() - local lv=0 - for i=0,4 do - local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i) - if tc and tc:IsCode(31533705) then lv=lv+tc:GetLevel() end - end - return lv -end -function c804000000.indcon(e) - return Duel.IsExistingMatchingCard(Card.IsType,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil,TYPE_TOKEN) -end -function c804000000.tg(e,c) - return c:IsCode(31533705) -end \ No newline at end of file diff --git a/script/c804000081.lua b/script/c804000081.lua deleted file mode 100644 index 1ece95e7..00000000 --- a/script/c804000081.lua +++ /dev/null @@ -1,60 +0,0 @@ ---Noble Knight Gwalchavad -function c804000081.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c804000081.eqcon1) - e1:SetValue(TYPE_NORMAL+TYPE_MONSTER) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(804000081,0)) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c804000081.spcon) - e2:SetCost(c804000081.cost) - e2:SetTarget(c804000081.sptg) - e2:SetOperation(c804000081.spop) - c:RegisterEffect(e2) -end -function c804000081.eqcon1(e) - local eg=e:GetHandler():GetEquipGroup() - return not eg or not eg:IsExists(Card.IsSetCard,1,nil,0x207a) -end -function c804000081.eqcon2(e) - local eg=e:GetHandler():GetEquipGroup() - return eg and eg:IsExists(Card.IsSetCard,1,nil,0x207a) -end -function c804000081.spcon(e,tp,eg,ep,ev,re,r,rp) - return c804000081.eqcon2(e) -end -function c804000081.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,804000081)==0 end - Duel.RegisterFlagEffect(tp,804000081,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c804000081.spfilter(c) - return c:IsSetCard(0x107a) and c:IsAbleToHand() -end -function c804000081.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c804000081.spfilter(chkc) end - if chk==0 then return Duel.IsExistingMatchingCard(c804000081.spfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c804000081.spfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c804000081.desfilter(c) - return c:IsSetCard(0x207a) and c:IsFaceup() and c:IsType(TYPE_EQUIP) -end -function c804000081.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local dg=Duel.SelectMatchingCard(tp,c804000081.desfilter,tp,LOCATION_SZONE,0,1,1,nil) - Duel.Destroy(dg,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c804000082.lua b/script/c804000082.lua deleted file mode 100644 index fb3ebaed..00000000 --- a/script/c804000082.lua +++ /dev/null @@ -1,20 +0,0 @@ ---Brotherhood of the Fire Fist - Coyote -function c804000082.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c804000082.spcon) - c:RegisterEffect(e1) -end -function c804000082.spfilter(c) - return c:IsSetCard(0x7c) and c:IsFaceup() -end -function c804000082.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 - and Duel.IsExistingMatchingCard(c804000082.spfilter,c:GetControler(),LOCATION_ONFIELD,0,1,nil) -end \ No newline at end of file diff --git a/script/c804000083.lua b/script/c804000083.lua deleted file mode 100644 index 61fd2299..00000000 --- a/script/c804000083.lua +++ /dev/null @@ -1,110 +0,0 @@ ---水精鱗－リードアビス -function c804000083.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(804000083,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetCost(c804000083.spcost) - e1:SetTarget(c804000083.sptg) - e1:SetOperation(c804000083.spop) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(804000083,1)) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c804000083.thcon) - e2:SetTarget(c804000083.thtg) - e2:SetOperation(c804000083.thop) - c:RegisterEffect(e2) - --handes - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c804000083.hdcost) - e3:SetOperation(c804000083.hdop) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(EVENT_BATTLE_START) - e4:SetCondition(c804000083.descon) - e4:SetTarget(c804000083.destg) - e4:SetOperation(c804000083.desop) - c:RegisterEffect(e4) -end -function c804000083.cfilter(c) - return c:IsSetCard(0x74) and c:IsDiscardable() and c:IsAbleToGraveAsCost() -end -function c804000083.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c804000083.cfilter,tp,LOCATION_HAND,4,4,e:GetHandler()) end - Duel.DiscardHand(tp,c804000083.cfilter,4,4,REASON_COST+REASON_DISCARD,e:GetHandler()) -end -function c804000083.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c804000083.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP) - end -end -function c804000083.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 -end -function c804000083.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - local ft=Duel.GetMatchingGroupCount(Card.IsSetCard,tp,LOCATION_GRAVE,0,nil,0x74) - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) - and ft>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local tf=Duel.GetMatchingGroupCount(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,tf,ft,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c804000083.thop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - if c:IsFaceup() then - Duel.BreakEffect() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(500) - c:RegisterEffect(e1) - Duel.Destroy(sg,REASON_EFFECT) - end -end -function c804000083.costfilter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:IsSetCard(0x74) -end -function c804000083.hdcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,804000083)==0 and Duel.CheckReleaseGroup(tp,c804000083.costfilter,1,e:GetHandler()) end - local sg=Duel.SelectReleaseGroup(tp,c804000083.costfilter,1,1,e:GetHandler()) - Duel.Release(sg,REASON_COST) -end -function c804000083.hdop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():RegisterFlagEffect(804000083,RESET_PHASE+PHASE_END,0,1) -end -function c804000083.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(tp,804000083)~=0 -end -function c804000083.destg(e,tp,eg,ep,ev,re,r,rp,chk) - local tc=Duel.GetAttacker() - if chk==0 then return tc and tc==e:GetHandler() and Duel.GetAttackTarget():IsPosition(POS_DEFENCE) end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) -end -function c804000083.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetAttackTarget() - if tc:IsRelateToBattle() then Duel.Destroy(tc,REASON_EFFECT) end -end \ No newline at end of file diff --git a/script/c804000084.lua b/script/c804000084.lua deleted file mode 100644 index 5a166f07..00000000 --- a/script/c804000084.lua +++ /dev/null @@ -1,94 +0,0 @@ ---Trifortressops -function c804000084.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(804000084,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_ATTACK+TIMING_SUMMON+TIMING_SPSUMMON+TIMING_FLIPSUMMON) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c804000084.condition) - e1:SetTarget(c804000084.hsptg) - e1:SetOperation(c804000084.hspop) - c:RegisterEffect(e1) - if not c804000084.global_check then - c804000084.global_check=true - c804000084[0]=0 - c804000084[1]=0 - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_SUMMON_SUCCESS) - ge1:SetOperation(c804000084.checkop) - Duel.RegisterEffect(ge1,0) - local ge2=Effect.CreateEffect(c) - ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - ge2:SetOperation(c804000084.checkop) - Duel.RegisterEffect(ge2,0) - local ge3=Effect.CreateEffect(c) - ge3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge3:SetCode(EVENT_SPSUMMON_SUCCESS) - ge3:SetOperation(c804000084.checkop) - Duel.RegisterEffect(ge3,0) - end -end -function c804000084.checkop(e,tp,eg,ep,ev,re,r,rp) - local turnp=e:GetHandler():GetControler() - if Duel.GetTurnCount()~=c804000084[2] then - c804000084[0]=0 - c804000084[1]=0 - c804000084[2]=Duel.GetTurnCount() - end - local tc=eg:GetFirst() - while tc do - local sp=tc:GetSummonPlayer() - c804000084[sp]=c804000084[sp]+1 - if c804000084[sp]==3 and sp~=turnp then - Duel.RegisterFlagEffect(turnp,804000084,RESET_PHASE+PHASE_END,0,1) - end - tc=eg:GetNext() - end -end -function c804000084.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFlagEffect(tp,804000084)~=0 and not e:GetHandler():IsStatus(STATUS_CHAINING) -end -function c804000084.hsptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c804000084.hspop(e,tp,eg,ep,ev,re,r,rp,c) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_PHASE+PHASE_STANDBY) - e1:SetCountLimit(1) - e1:SetProperty(EFFECT_FLAG_REPEAT) - e1:SetOperation(c804000084.defop) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_IMMUNE_EFFECT) - e2:SetValue(1) - e2:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e2) - end -end -function c804000084.defop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) - e1:SetValue(-500) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c804000085.lua b/script/c804000085.lua deleted file mode 100644 index 99a4952b..00000000 --- a/script/c804000085.lua +++ /dev/null @@ -1,38 +0,0 @@ ---Ghost Fairy Elfobia -function c804000085.initial_effect(c) - --attack up - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(804000085,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c804000085.cost) - e1:SetOperation(c804000085.operation) - c:RegisterEffect(e1) -end -function c804000085.cffilter(c) - return c:IsAttribute(ATTRIBUTE_WIND) and not c:IsPublic() -end -function c804000085.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c804000085.cffilter,tp,LOCATION_HAND,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) - local cg=Duel.SelectMatchingCard(tp,c804000085.cffilter,tp,LOCATION_HAND,0,1,1,nil) - e:SetLabel(cg:GetFirst():GetLevel()) - Duel.ConfirmCards(1-tp,cg) - Duel.ShuffleHand(tp) -end -function c804000085.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetTargetRange(1,1) - e1:SetLabel(e:GetLabel()) - e1:SetValue(c804000085.aclimit1) - e1:SetReset(RESET_PHASE+PHASE_MAIN1+RESET_OPPO_TURN,1) - Duel.RegisterEffect(e1,tp) -end -function c804000085.aclimit1(e,re,tp) - return re:IsActiveType(TYPE_MONSTER) and re:GetHandler():GetLevel()>e:GetLabel() -end \ No newline at end of file diff --git a/script/c804000086.lua b/script/c804000086.lua deleted file mode 100644 index 2ca5f4b4..00000000 --- a/script/c804000086.lua +++ /dev/null @@ -1,52 +0,0 @@ ---Totem Bird -function c804000086.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_WIND),3),2) - c:EnableReviveLimit() - --negate activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(804000086,0)) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c804000086.condition1) - e1:SetCost(c804000086.cost) - e1:SetTarget(c804000086.target) - e1:SetOperation(c804000086.operation) - c:RegisterEffect(e1) - --atkup - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c804000086.condition2) - e3:SetValue(-300) - c:RegisterEffect(e3) -end -function c804000086.condition1(e,tp,eg,ep,ev,re,r,rp,chk) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) - and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) -end -function c804000086.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST) -end -function c804000086.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c804000086.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end -function c804000086.condition2(e,tp,eg,ep,ev,re,r,rp,chk) - return e:GetHandler():GetOverlayCount()==0 -end \ No newline at end of file diff --git a/script/c804000087.lua b/script/c804000087.lua deleted file mode 100644 index 0fd59ef1..00000000 --- a/script/c804000087.lua +++ /dev/null @@ -1,118 +0,0 @@ ---Noble Arms of Destiny -function c804000087.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCondition(c804000087.condition) - e1:SetTarget(c804000087.target) - e1:SetOperation(c804000087.operation) - c:RegisterEffect(e1) - --Atk up - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetValue(500) - c:RegisterEffect(e2) - --Equip limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_EQUIP_LIMIT) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetValue(c804000087.eqlimit) - c:RegisterEffect(e3) - --destroy rep - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_DESTROY_REPLACE) - e4:SetTarget(c804000087.reptg) - e4:SetCountLimit(1) - c:RegisterEffect(e4) - --equip - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(804000087,0)) - e5:SetCategory(CATEGORY_EQUIP) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CHAIN_UNIQUE) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e5:SetCode(EVENT_TO_GRAVE) - e5:SetCondition(c804000087.eqcon) - e5:SetCost(c804000087.eqcost) - e5:SetTarget(c804000087.eqtg) - e5:SetOperation(c804000087.operation) - c:RegisterEffect(e5) -end -function c804000087.eqlimit(e,c) - return c:IsRace(RACE_WARRIOR) - and not Duel.IsExistingMatchingCard(c804000087.cfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,e:GetHandler()) -end -function c804000087.cfilter(c) - return c:IsFaceup() and c:IsCode(804000087) -end -function c804000087.eqfilter1(c) - return c:IsFaceup() and c:IsRace(RACE_WARRIOR) -end -function c804000087.condition(e,tp,eg,ep,ev,re,r,rp) - return not Duel.IsExistingMatchingCard(c804000087.cfilter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c804000087.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c804000087.eqfilter1(chkc) end - if chk==0 then return Duel.IsExistingTarget(c804000087.eqfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c804000087.eqfilter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c804000087.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Equip(tp,e:GetHandler(),tc) - end -end -function c804000087.atkcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c804000087.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:GetFlagEffect(804000087)==0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_EQUIP) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-200) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - c:RegisterFlagEffect(804000087,RESET_EVENT+0x1fe0000,0,0) - e:SetLabelObject(e1) - e:SetLabel(2) - else - local pe=e:GetLabelObject() - local ct=e:GetLabel() - e:SetLabel(ct+1) - pe:SetValue(ct*-200) - end -end -function c804000087.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - local tc=c:GetEquipTarget() - if chk==0 then return tc end - return true -end -function c804000087.eqcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) and c:IsReason(REASON_DESTROY) -end -function c804000087.eqcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,804000087)==0 end - Duel.RegisterFlagEffect(tp,804000087,RESET_PHASE+PHASE_END,0,1) -end -function c804000087.eqfilter2(c) - return c:IsFaceup() and c:IsSetCard(0x107a) and c:IsRace(RACE_WARRIOR) -end -function c804000087.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c804000087.eqfilter2(chkc) end - if chk==0 then return e:GetHandler():IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c804000087.eqfilter2,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c804000087.eqfilter2,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end \ No newline at end of file diff --git a/script/c804000088.lua b/script/c804000088.lua deleted file mode 100644 index f2731746..00000000 --- a/script/c804000088.lua +++ /dev/null @@ -1,46 +0,0 @@ ---Spellbook of Miracles -function c804000088.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c804000088.cost) - e1:SetTarget(c804000088.target) - e1:SetOperation(c804000088.activate) - c:RegisterEffect(e1) -end -function c804000088.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,804000088)==0 end - Duel.RegisterFlagEffect(tp,804000088,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c804000088.filter(c,e,tp) - return c:IsType(TYPE_XYZ) and c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c804000088.filter2(c) - return c:IsSetCard(0x106e) and c:IsType(TYPE_SPELL) -end -function c804000088.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c804000088.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c804000088.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) - and Duel.IsExistingTarget(c804000088.filter2,tp,LOCATION_REMOVED,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g1=Duel.SelectTarget(tp,c804000088.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - e:SetLabelObject(g1:GetFirst()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g2=Duel.SelectTarget(tp,c804000088.filter2,tp,LOCATION_REMOVED,0,2,2,nil) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,1,0,0) -end -function c804000088.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsType,nil,TYPE_SPELL):Filter(Card.IsRelateToEffect,nil,e) - local tc=e:GetLabelObject() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)>0 then - Duel.BreakEffect() - if sg:GetCount()~=2 then return end - Duel.Overlay(tc,sg) - end -end diff --git a/script/c804000089.lua b/script/c804000089.lua deleted file mode 100644 index d74fbb0f..00000000 --- a/script/c804000089.lua +++ /dev/null @@ -1,53 +0,0 @@ ---Five Brothers Explosion -function c804000089.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_RECOVER) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetTarget(c804000089.target1) - e1:SetOperation(c804000089.operation) - c:RegisterEffect(e1) - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c804000089.spcon) - e3:SetTarget(c804000089.sptg) - e3:SetOperation(c804000089.spop) - c:RegisterEffect(e3) -end -function c804000089.filter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) -end -function c804000089.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return true end - local g=Duel.GetMatchingGroupCount(c804000089.filter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,nil)*500 - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(g) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,g) -end -function c804000089.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Recover(p,d,REASON_EFFECT) -end -function c804000089.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsReason(REASON_EFFECT) and c:GetReasonPlayer()~=tp -end -function c804000089.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return true end - local g=Duel.GetMatchingGroupCount(c804000089.filter,e:GetHandlerPlayer(),LOCATION_GRAVE,0,nil)*500 - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(g) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g) -end -function c804000089.spop(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end - diff --git a/script/c804000090.lua b/script/c804000090.lua deleted file mode 100644 index 192e1b83..00000000 --- a/script/c804000090.lua +++ /dev/null @@ -1,29 +0,0 @@ ---ガンバランサー -function c804000090.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(804000090,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c804000090.sptg) - e1:SetOperation(c804000090.spop) - c:RegisterEffect(e1) -end -function c804000090.filter(c,e,tp) - return c:IsCode(804000090) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c804000090.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c804000090.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND) -end -function c804000090.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c804000090.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end \ No newline at end of file diff --git a/script/c804000091.lua b/script/c804000091.lua deleted file mode 100644 index 192afc24..00000000 --- a/script/c804000091.lua +++ /dev/null @@ -1,27 +0,0 @@ ---マジカル・アンダーテイカー -function c804000091.initial_effect(c) - --flip - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(804000091,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP) - e1:SetTarget(c804000091.target) - e1:SetOperation(c804000091.operation) - c:RegisterEffect(e1) -end -function c804000091.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c804000091.filter(c,e,tp) - return c:IsLevelBelow(4) and c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c804000091.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local g=Duel.GetMatchingGroup(c804000091.filter,tp,LOCATION_GRAVE,0,nil,e,tp) - if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(804000091,1)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=g:Select(tp,1,1,nil) - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c804000092.lua b/script/c804000092.lua deleted file mode 100644 index fc783d51..00000000 --- a/script/c804000092.lua +++ /dev/null @@ -1,51 +0,0 @@ ---パクバグ -function c804000092.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c804000092.spcon) - e1:SetValue(1) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(804000092,0)) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c804000092.spcon2) - e2:SetTarget(c804000092.sptg) - e2:SetOperation(c804000092.spop) - c:RegisterEffect(e2) -end -function c804000092.filter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) -end -function c804000092.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c804000092.filter,c:GetControler(),0,LOCATION_MZONE,1,nil) -end -function c804000092.spcon2(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 -end -function c804000092.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil) -end -function c804000092.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-300) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c804000093.lua b/script/c804000093.lua deleted file mode 100644 index fd78947d..00000000 --- a/script/c804000093.lua +++ /dev/null @@ -1,33 +0,0 @@ ---リボーン・パズル -function c804000093.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetCode(EVENT_DESTROYED) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCondition(c804000093.ctcon) - e1:SetTarget(c804000093.cttg) - e1:SetOperation(c804000093.ctop) - c:RegisterEffect(e1) -end -function c804000093.ctfilter(c,e,tp) - return c:IsLocation(LOCATION_GRAVE) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) - and c:IsReason(REASON_EFFECT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c804000093.ctcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c804000093.ctfilter,1,nil,e,tp) and eg:GetCount()==1 -end -function c804000093.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c804000093.ctfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SetTargetCard(eg) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c804000093.ctop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c804000100.lua b/script/c804000100.lua deleted file mode 100644 index 55af8366..00000000 --- a/script/c804000100.lua +++ /dev/null @@ -1,46 +0,0 @@ ---炎征竜－バーナー -function c804000100.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(804000100,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetCost(c804000100.spcost) - e1:SetTarget(c804000100.sptg) - e1:SetOperation(c804000100.spop) - c:RegisterEffect(e1) -end -function c804000100.costfilter(c) - return (c:IsRace(RACE_DRAGON) or c:IsAttribute(ATTRIBUTE_FIRE)) and c:IsDiscardable() -end -function c804000100.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.GetFlagEffect(tp,804000100)==0 and c:IsDiscardable() - and Duel.IsExistingMatchingCard(c804000100.costfilter,tp,LOCATION_HAND,0,1,c) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) - local g=Duel.SelectMatchingCard(tp,c804000100.costfilter,tp,LOCATION_HAND,0,1,1,c) - g:AddCard(c) - Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD) - Duel.RegisterFlagEffect(tp,804000100,RESET_PHASE+PHASE_END,0,1) -end -function c804000100.spfilter(c,e,tp) - return c:IsCode(53804307) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c804000100.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c804000100.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c804000100.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstMatchingCard(c804000100.spfilter,tp,LOCATION_DECK,0,nil,e,tp) - if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - Duel.SpecialSummonComplete() - end -end diff --git a/script/c804000101.lua b/script/c804000101.lua deleted file mode 100644 index 3c0378b1..00000000 --- a/script/c804000101.lua +++ /dev/null @@ -1,46 +0,0 @@ ---風征竜－ライトニング -function c804000101.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(804000101,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetCost(c804000101.spcost) - e1:SetTarget(c804000101.sptg) - e1:SetOperation(c804000101.spop) - c:RegisterEffect(e1) -end -function c804000101.costfilter(c) - return (c:IsRace(RACE_DRAGON) or c:IsAttribute(ATTRIBUTE_WIND)) and c:IsDiscardable() -end -function c804000101.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.GetFlagEffect(tp,804000101)==0 and c:IsDiscardable() - and Duel.IsExistingMatchingCard(c804000101.costfilter,tp,LOCATION_HAND,0,1,c) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) - local g=Duel.SelectMatchingCard(tp,c804000101.costfilter,tp,LOCATION_HAND,0,1,1,c) - g:AddCard(c) - Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD) - Duel.RegisterFlagEffect(tp,804000101,RESET_PHASE+PHASE_END,0,1) -end -function c804000101.spfilter(c,e,tp) - return c:IsCode(89399912) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c804000101.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c804000101.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c804000101.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstMatchingCard(c804000101.spfilter,tp,LOCATION_DECK,0,nil,e,tp) - if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - Duel.SpecialSummonComplete() - end -end diff --git a/script/c80402389.lua b/script/c80402389.lua index 31c92170..f2389ab4 100644 --- a/script/c80402389.lua +++ b/script/c80402389.lua @@ -18,7 +18,7 @@ function c80402389.initial_effect(c) e3:SetDescription(aux.Stringid(80402389,0)) e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_EVENT_PLAYER) - e3:SetCode(80402389) + e3:SetCode(EVENT_CUSTOM+80402389) e3:SetTarget(c80402389.target) e3:SetOperation(c80402389.operation) c:RegisterEffect(e3) @@ -29,7 +29,7 @@ function c80402389.check(e,tp,eg,ep,ev,re,r,rp) while tc do if tc:IsPreviousLocation(LOCATION_MZONE) and tc:IsReason(REASON_DESTROY) and tc:IsRace(RACE_INSECT) and tc:GetLevel()~=0 and tc:IsPreviousPosition(POS_FACEUP) then - Duel.RaiseSingleEvent(c,80402389,e,r,rp,tc:GetControler(),tc:GetLevel()) + Duel.RaiseSingleEvent(c,EVENT_CUSTOM+80402389,e,r,rp,tc:GetControler(),tc:GetLevel()) end tc=eg:GetNext() end diff --git a/script/c8041569.lua b/script/c8041569.lua index a92afabb..4f3402f8 100644 --- a/script/c8041569.lua +++ b/script/c8041569.lua @@ -28,7 +28,7 @@ function c8041569.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c8041569.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c8041569.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c8041569.filter(chkc) end diff --git a/script/c80457744.lua b/script/c80457744.lua index cace0e00..ae3153b1 100644 --- a/script/c80457744.lua +++ b/script/c80457744.lua @@ -5,7 +5,7 @@ function c80457744.initial_effect(c) e1:SetType(EFFECT_TYPE_FIELD) e1:SetCode(EFFECT_SPSUMMON_PROC) e1:SetProperty(EFFECT_FLAG_SPSUM_PARAM) - e1:SetTargetRange(POS_FACEUP_DEFENCE,0) + e1:SetTargetRange(POS_FACEUP_DEFENSE,0) e1:SetRange(LOCATION_HAND) e1:SetCondition(c80457744.spcon) c:RegisterEffect(e1) diff --git a/script/c80476891.lua b/script/c80476891.lua new file mode 100644 index 00000000..4c3a9331 --- /dev/null +++ b/script/c80476891.lua @@ -0,0 +1,82 @@ +--進化合獣ヒュードラゴン +function c80476891.initial_effect(c) + aux.EnableDualAttribute(c) + --atkup + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(80476891,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_MZONE) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetCondition(aux.IsDualState) + e1:SetTarget(c80476891.target) + e1:SetOperation(c80476891.operation) + c:RegisterEffect(e1) + --destroy replace + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EFFECT_DESTROY_REPLACE) + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(aux.IsDualState) + e2:SetTarget(c80476891.reptg) + e2:SetValue(c80476891.repval) + e2:SetOperation(c80476891.repop) + c:RegisterEffect(e2) +end +function c80476891.target(e,tp,eg,ep,ev,re,r,rp,chk) + local tc=eg:GetFirst() + if chk==0 then return tc:IsType(TYPE_DUAL) and tc~=e:GetHandler() end + Duel.SetTargetCard(tc) +end +function c80476891.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(500) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + tc:RegisterEffect(e2) + end +end +function c80476891.repfilter(c,tp,e) + return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) + and c:IsType(TYPE_DUAL) and c:IsReason(REASON_EFFECT) and c:GetFlagEffect(80476891)==0 +end +function c80476891.desfilter(c,tp) + return c:IsControler(tp) and c:IsLocation(LOCATION_ONFIELD) + and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_BATTLE_DESTROYED) +end +function c80476891.reptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c80476891.desfilter,tp,LOCATION_ONFIELD,0,1,nil,tp) + and eg:IsExists(c80476891.repfilter,1,nil,tp,e) end + if Duel.SelectYesNo(tp,aux.Stringid(80476891,1)) then + local g=eg:Filter(c80476891.repfilter,nil,tp,e) + if g:GetCount()==1 then + e:SetLabelObject(g:GetFirst()) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESREPLACE) + local cg=g:Select(tp,1,1,nil) + e:SetLabelObject(cg:GetFirst()) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESREPLACE) + local tg=Duel.SelectMatchingCard(tp,c80476891.desfilter,tp,LOCATION_ONFIELD,0,1,1,nil,tp) + Duel.HintSelection(tg) + Duel.SetTargetCard(tg) + tg:GetFirst():RegisterFlagEffect(80476891,RESET_EVENT+0x1fc0000+RESET_CHAIN,0,1) + tg:GetFirst():SetStatus(STATUS_DESTROY_CONFIRMED,true) + return true + else return false end +end +function c80476891.repval(e,c) + return c==e:GetLabelObject() +end +function c80476891.repop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + tc:SetStatus(STATUS_DESTROY_CONFIRMED,false) + Duel.Destroy(tc,REASON_EFFECT+REASON_REPLACE) +end diff --git a/script/c805000001.lua b/script/c805000001.lua deleted file mode 100644 index 460607ee..00000000 --- a/script/c805000001.lua +++ /dev/null @@ -1,82 +0,0 @@ ---DZW－魔装鵺妖衣 -function c805000001.initial_effect(c) - --equip - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000001,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetRange(LOCATION_HAND+LOCATION_MZONE) - e1:SetTarget(c805000001.eqtg) - e1:SetOperation(c805000001.eqop) - c:RegisterEffect(e1) - --indes - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetValue(1) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_DAMAGE_STEP_END) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c805000001.retcon) - e3:SetTarget(c805000001.rettg) - e3:SetOperation(c805000001.retop) - c:RegisterEffect(e3) -end -function c805000001.filter(c) - return c:IsFaceup() and (c:IsCode(66970002) or c:IsCode(56840427) or c:IsCode(805000048)) -end -function c805000001.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c805000001.filter(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c805000001.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c805000001.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c805000001.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:GetControler()~=tp or tc:IsFacedown() or not tc:IsRelateToEffect(e) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - Duel.Equip(tp,c,tc,true) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c805000001.eqlimit) - c:RegisterEffect(e1) -end -function c805000001.eqlimit(e,c) - return c:IsCode(66970002) or c:IsCode(56840427) or c:IsCode(805000048) -end -function c805000001.retcon(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():GetEquipTarget():IsRelateToBattle() then return false end - local t=nil - if ev==0 then t=Duel.GetAttackTarget() - else return false end - e:SetLabelObject(t) - return t and t:IsRelateToBattle() and t:GetAttack()>0 and Duel.GetAttacker()==e:GetHandler():GetEquipTarget() -end -function c805000001.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,e:GetLabelObject(),1,0,0) -end -function c805000001.retop(e,tp,eg,ep,ev,re,r,rp) - tc=e:GetLabelObject() - if tc:IsRelateToBattle() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - Duel.BreakEffect() - Duel.CalculateDamage(e:GetHandler():GetEquipTarget(),tc) - end -end \ No newline at end of file diff --git a/script/c805000002.lua b/script/c805000002.lua deleted file mode 100644 index a9ef9d08..00000000 --- a/script/c805000002.lua +++ /dev/null @@ -1,110 +0,0 @@ ---Ｖサラマンダー -function c805000002.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000002,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c805000002.sptg) - e1:SetOperation(c805000002.spop) - c:RegisterEffect(e1) - --equip - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(805000002,1)) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCategory(CATEGORY_EQUIP) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c805000002.eqtg) - e2:SetOperation(c805000002.eqop) - c:RegisterEffect(e2) - --destory - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(805000002,2)) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetCategory(CATEGORY_DAMAGE+CATEGORY_DESTROY+CATEGORY_DISABLE) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_SZONE) - e3:SetCost(c805000002.descost) - e3:SetTarget(c805000002.destg) - e3:SetOperation(c805000002.desop) - c:RegisterEffect(e3) -end -function c805000002.spfilter(c,e,tp) - return c:IsSetCard(0x7f) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c805000002.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000002.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c805000002.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000002.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end -function c805000002.filter(c) - return c:IsFaceup() and c:IsCode(66970002) -end -function c805000002.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c805000002.filter(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c805000002.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c805000002.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c805000002.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:GetControler()~=tp or tc:IsFacedown() or not tc:IsRelateToEffect(e) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - Duel.Equip(tp,c,tc,true) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c805000002.eqlimit) - c:RegisterEffect(e1) -end -function c805000002.eqlimit(e,c) - return c:IsCode(66970002) -end -function c805000002.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetEquipTarget():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():GetEquipTarget():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c805000002.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - local dam=g:GetCount()*1000 - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c805000002.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:GetEquipTarget():RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DISABLE_EFFECT) - e3:SetValue(RESET_TURN_SET) - e3:SetReset(RESET_EVENT+0x1fe0000) - c:GetEquipTarget():RegisterEffect(e3) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - if g:GetCount()>0 then - local dam=g:GetCount()*1000 - if Duel.Destroy(g,REASON_EFFECT)==0 then return end - Duel.Damage(1-tp,dam,REASON_EFFECT) - end -end diff --git a/script/c805000003.lua b/script/c805000003.lua deleted file mode 100644 index 282aaec1..00000000 --- a/script/c805000003.lua +++ /dev/null @@ -1,26 +0,0 @@ ---プリベントマト -function c805000003.initial_effect(c) - --disable attack - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000003,0)) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetRange(LOCATION_GRAVE) - e1:SetCost(c805000003.cost) - e1:SetOperation(c805000003.operation) - c:RegisterEffect(e1) -end -function c805000003.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c805000003.operation(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetValue(0) - e1:SetReset(RESET_PHASE+PHASE_END,1) - Duel.RegisterEffect(e1,tp) -end diff --git a/script/c805000004.lua b/script/c805000004.lua deleted file mode 100644 index c8d54330..00000000 --- a/script/c805000004.lua +++ /dev/null @@ -1,39 +0,0 @@ ---マジック・リサイクラー -function c805000004.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TODECK) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetRange(LOCATION_GRAVE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c805000004.condition) - e1:SetCost(c805000004.cost) - e1:SetTarget(c805000004.target) - e1:SetOperation(c805000004.activate) - c:RegisterEffect(e1) -end -function c805000004.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp -end -function c805000004.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c805000004.filter(c) - return c:IsType(TYPE_SPELL) and c:IsAbleToDeck() -end -function c805000004.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and c805000004.filter(chkc) end - if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1) - and Duel.IsExistingTarget(c805000004.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectTarget(tp,c805000004.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) -end -function c805000004.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 or not sg then return end - Duel.DiscardDeck(tp,1,REASON_EFFECT) - Duel.SendtoDeck(sg,nil,1,REASON_EFFECT) -end diff --git a/script/c805000005.lua b/script/c805000005.lua deleted file mode 100644 index ac04cee6..00000000 --- a/script/c805000005.lua +++ /dev/null @@ -1,28 +0,0 @@ ---エクシーズ・エージェント -function c805000005.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_GRAVE) - e1:SetTarget(c805000005.target) - e1:SetOperation(c805000005.operation) - c:RegisterEffect(e1) -end -function c805000005.filter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsSetCard(0x7f) -end -function c805000005.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c805000005.filter(chkc) end - if chk==0 then return Duel.GetFlagEffect(tp,805000005)==0 - and Duel.IsExistingTarget(c805000005.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c805000005.filter,tp,LOCATION_MZONE,0,1,1,nil) - Duel.RegisterFlagEffect(tp,805000005,0,0,0) -end -function c805000005.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and c:IsRelateToEffect(e) then - Duel.Overlay(tc,Group.FromCards(c)) - end -end diff --git a/script/c805000006.lua b/script/c805000006.lua deleted file mode 100644 index 87e1df04..00000000 --- a/script/c805000006.lua +++ /dev/null @@ -1,60 +0,0 @@ ---ＳＤロボ・ライオ -function c805000006.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000006,0)) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetCode(EVENT_TO_HAND) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCountLimit(1) - e1:SetTarget(c805000006.target) - e1:SetOperation(c805000006.activate) - c:RegisterEffect(e1) - --summon success - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(805000006,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c805000006.sptg) - e2:SetOperation(c805000006.spop) - c:RegisterEffect(e2) -end -function c805000006.sfilter(c,e,tp) - return c:IsPreviousLocation(LOCATION_GRAVE) and c:GetPreviousControler()==tp - and (c:IsSetCard(0x88) or c:IsCode(71071546)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000006.target(e,tp,eg,ep,ev,re,r,rp,chk) - local g=eg:Filter(c805000006.sfilter,nil,e,tp) - if chk==0 then return g:GetCount()~=0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>=g:GetCount() end - Duel.SetTargetCard(eg) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) -end -function c805000006.spfilter(c,e,tp) - return c:IsPreviousLocation(LOCATION_GRAVE) and c:GetPreviousControler()==tp - and (c:IsSetCard(0x88) or c:IsCode(71071546)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and c:IsRelateToEffect(e) -end -function c805000006.activate(e,tp,eg,ep,ev,re,r,rp) - local g=eg:Filter(c805000006.spfilter,nil,e,tp) - if g:GetCount()==0 or Duel.GetLocationCount(tp,LOCATION_MZONE)0 - and Duel.IsExistingMatchingCard(c805000006.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c805000006.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000006.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 diff --git a/script/c805000007.lua b/script/c805000007.lua deleted file mode 100644 index b8e554fc..00000000 --- a/script/c805000007.lua +++ /dev/null @@ -1,70 +0,0 @@ ---ＳＤロボ・エレファン -function c805000007.initial_effect(c) - --lvchange - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_LVCHANGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCountLimit(1) - e1:SetTarget(c805000007.lvtg) - e1:SetOperation(c805000007.lvop) - c:RegisterEffect(e1) - --summon success - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(805000007,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c805000007.sptg) - e2:SetOperation(c805000007.spop) - c:RegisterEffect(e2) - --xyz limit - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) - e3:SetValue(c805000007.xyzlimit) - c:RegisterEffect(e3) -end -function c805000007.lvfilter(c) - return c:IsFaceup() and (c:IsSetCard(0x88) or c:IsCode(71071546)) and c:GetLevel()~=8 -end -function c805000007.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c805000007.lvfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c805000007.lvfilter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c805000007.lvfilter,tp,LOCATION_MZONE,0,1,1,nil,8) -end -function c805000007.lvop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(8) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end -function c805000007.filter(c,e,tp) - return (c:IsSetCard(0x88) or c:IsCode(71071546)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000007.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000007.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c805000007.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000007.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 -function c805000007.xyzlimit(e,c) - if not c then return false end - return not c:IsRace(RACE_MACHINE) -end \ No newline at end of file diff --git a/script/c805000008.lua b/script/c805000008.lua deleted file mode 100644 index 700f1f63..00000000 --- a/script/c805000008.lua +++ /dev/null @@ -1,66 +0,0 @@ ---ＳＤロボ・モンキ -function c805000008.initial_effect(c) - --salvage - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000008,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c805000008.cost) - e1:SetTarget(c805000008.target) - e1:SetOperation(c805000008.operation) - c:RegisterEffect(e1) - --summon success - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(805000008,1)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c805000008.sptg) - e2:SetOperation(c805000008.spop) - c:RegisterEffect(e2) -end -function c805000008.rfilter(c) - return c:IsRace(RACE_MACHINE) and c:IsAbleToRemoveAsCost() - and Duel.IsExistingMatchingCard(c805000008.afilter,tp,LOCATION_GRAVE,0,1,c) -end -function c805000008.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c805000008.rfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c805000008.rfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c805000008.afilter(c) - return (c:IsSetCard(0x88) or c:IsCode(71071546)) and c:IsAbleToHand() -end -function c805000008.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c805000008.afilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c805000008.afilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c805000008.afilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c805000008.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 then - Duel.ConfirmCards(1-tp,tc) - end -end -function c805000008.filter(c,e,tp) - return (c:IsSetCard(0x88) or c:IsCode(71071546)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000008.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000008.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c805000008.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000008.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 \ No newline at end of file diff --git a/script/c805000009.lua b/script/c805000009.lua deleted file mode 100644 index de2e5a67..00000000 --- a/script/c805000009.lua +++ /dev/null @@ -1,28 +0,0 @@ ---光天使ウィングス -function c805000009.initial_effect(c) - --summon success - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000009,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c805000009.sumtg) - e1:SetOperation(c805000009.sumop) - c:RegisterEffect(e1) -end -function c805000009.filter(c,e,sp) - return c:IsSetCard(0x87) and c:IsCanBeSpecialSummoned(e,0,sp,false,false) -end -function c805000009.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c805000009.filter,tp,LOCATION_HAND,0,1,nil,e,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c805000009.sumop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000009.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 diff --git a/script/c805000010.lua b/script/c805000010.lua deleted file mode 100644 index 056daf09..00000000 --- a/script/c805000010.lua +++ /dev/null @@ -1,39 +0,0 @@ ---光天使ブックス -function c805000010.initial_effect(c) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(805000010,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c805000010.spcost) - e3:SetTarget(c805000010.sptg) - e3:SetOperation(c805000010.spop) - c:RegisterEffect(e3) -end -function c805000010.costfilter(c) - return c:IsType(TYPE_SPELL) and c:IsAbleToGraveAsCost() -end -function c805000010.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c805000010.costfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end - local g=Duel.SelectMatchingCard(tp,c805000010.costfilter,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(g,REASON_COST) -end -function c805000010.filter(c,e,tp) - return c:IsSetCard(0x87) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000010.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000010.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c805000010.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000010.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c805000011.lua b/script/c805000011.lua deleted file mode 100644 index aad86b3b..00000000 --- a/script/c805000011.lua +++ /dev/null @@ -1,32 +0,0 @@ ---光天使ソード -function c805000011.initial_effect(c) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(805000011,0)) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c805000011.spcost) - e3:SetOperation(c805000011.spop) - c:RegisterEffect(e3) -end -function c805000011.costfilter(c) - return c:IsSetCard(0x87) and c:IsAbleToGraveAsCost() -end -function c805000011.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c805000011.costfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end - local g=Duel.SelectMatchingCard(tp,c805000011.costfilter,tp,LOCATION_HAND,0,1,1,nil) - e:SetLabel(g:GetFirst():GetBaseAttack()) - Duel.SendtoGrave(g,REASON_COST) -end -function c805000011.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - e1:SetValue(e:GetLabel()) - c:RegisterEffect(e1) -end diff --git a/script/c805000012.lua b/script/c805000012.lua deleted file mode 100644 index 9c72e602..00000000 --- a/script/c805000012.lua +++ /dev/null @@ -1,38 +0,0 @@ ---アンブラル・グール -function c805000012.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000012,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c805000012.sptg) - e1:SetOperation(c805000012.spop) - c:RegisterEffect(e1) -end -function c805000012.filter(c,e,tp) - return c:IsSetCard(0x85) and c:GetTextAttack()==0 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000012.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000012.filter,tp,LOCATION_HAND,0,1,nil,e,tp) - and e:GetHandler():GetAttack()>0 end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c805000012.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000012.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp) - local c=e:GetHandler() - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_SET_ATTACK) - e3:SetValue(0) - e3:SetReset(RESET_EVENT+0xfe0000) - c:RegisterEffect(e3) - local tc=g:GetFirst() - if not tc then return end - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) -end diff --git a/script/c805000013.lua b/script/c805000013.lua deleted file mode 100644 index 582fa0f7..00000000 --- a/script/c805000013.lua +++ /dev/null @@ -1,33 +0,0 @@ ---アンブラル・アンフォーム -function c805000013.initial_effect(c) - -- - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000013,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c805000013.condition) - e1:SetTarget(c805000013.target) - e1:SetOperation(c805000013.operation) - c:RegisterEffect(e1) -end -function c805000013.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler()==Duel.GetAttacker() and e:GetHandler():IsLocation(LOCATION_GRAVE) - and e:GetHandler():IsReason(REASON_BATTLE) and Duel.GetFlagEffect(tp,805000013)==0 -end -function c805000013.filter(c,e,tp) - return c:IsSetCard(0x85) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000013.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsExistingMatchingCard(c805000013.filter,tp,LOCATION_DECK,0,2,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) - Duel.RegisterFlagEffect(tp,805000013,RESET_PHASE+PHASE_END,0,1) -end -function c805000013.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - local g=Duel.SelectMatchingCard(tp,c805000013.filter,tp,LOCATION_DECK,0,2,2,nil,e,tp) - if g:GetCount()>1 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c805000014.lua b/script/c805000014.lua deleted file mode 100644 index 47a7a04a..00000000 --- a/script/c805000014.lua +++ /dev/null @@ -1,65 +0,0 @@ ---アンブラル・ウィル・オ・ザ・ウィスプ -function c805000014.initial_effect(c) - --lv change - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000014,0)) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c805000014.sumtg) - e1:SetOperation(c805000014.sumop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(805000014,1)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_BATTLE_DESTROYED) - e3:SetCondition(c805000014.condition) - e3:SetTarget(c805000014.target) - e3:SetOperation(c805000014.operation) - c:RegisterEffect(e3) -end -function c805000014.filter(c,clv) - local lv=c:GetLevel() - return c:IsSetCard(0x85) and lv~=0 and lv~=clv - and ((c:IsLocation(LOCATION_MZONE) and c:IsFaceup()) or c:IsLocation(LOCATION_GRAVE)) -end -function c805000014.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c805000014.filter(chkc,e:GetHandler():GetLevel()) end - if chk==0 then return Duel.IsExistingTarget(c805000014.filter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,e:GetHandler(),e:GetHandler():GetLevel()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c805000014.filter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,1,e:GetHandler(),e:GetHandler():GetLevel()) -end -function c805000014.sumop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) - and (not tc:IsLocation(LOCATION_MZONE) or tc:IsFaceup()) then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(tc:GetLevel()) - e1:SetReset(RESET_EVENT+0x1ff0000) - e:GetHandler():RegisterEffect(e1) - end -end -function c805000014.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) - and e:GetHandler():GetReasonCard():IsRelateToBattle() and e:GetHandler():GetBattlePosition()==POS_FACEUP_ATTACK -end -function c805000014.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local rc=e:GetHandler():GetReasonCard() - rc:CreateEffectRelation(e) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,rc,1,0,0) -end -function c805000014.operation(e,tp,eg,ep,ev,re,r,rp) - local rc=e:GetHandler():GetReasonCard() - if rc:IsRelateToEffect(e) then - Duel.Destroy(rc,REASON_EFFECT) - end -end diff --git a/script/c805000015.lua b/script/c805000015.lua deleted file mode 100644 index 03cdfb9b..00000000 --- a/script/c805000015.lua +++ /dev/null @@ -1,19 +0,0 @@ ---限界竜シュヴァルツシルト -function c805000015.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c805000015.spcon) - c:RegisterEffect(e1) -end -function c805000015.filter(c) - return c:IsFaceup() and c:GetAttack()>=2000 -end -function c805000015.spcon(e,c) - if c==nil then return true end - return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000015.filter,c:GetControler(),0,LOCATION_MZONE,1,nil) -end \ No newline at end of file diff --git a/script/c805000016.lua b/script/c805000016.lua deleted file mode 100644 index 89f0ba39..00000000 --- a/script/c805000016.lua +++ /dev/null @@ -1,74 +0,0 @@ ---武神－ヤマト -function c805000016.initial_effect(c) - --search - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000016,0)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetProperty(EFFECT_FLAG_REPEAT) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetCondition(c805000016.condition) - e1:SetTarget(c805000016.target) - e1:SetOperation(c805000016.operation) - c:RegisterEffect(e1) - -- - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_CANNOT_SUMMON) - e3:SetCondition(c805000016.excon) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_CANNOT_FLIP_SUMMON) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e5:SetCode(EFFECT_SPSUMMON_CONDITION) - e5:SetValue(c805000016.splimit) - c:RegisterEffect(e5) - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_SINGLE) - e6:SetCode(EFFECT_SELF_DESTROY) - e6:SetCondition(c805000016.descon) - c:RegisterEffect(e6) -end -function c805000016.condition(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() -end -function c805000016.filter(c) - return c:IsSetCard(0x86) and c:IsAbleToHand() -end -function c805000016.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c805000016.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND) -end -function c805000016.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c805000016.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()==0 then return end - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - Duel.ShuffleHand(tp) - Duel.BreakEffect() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local dg=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoGrave(dg,REASON_EFFECT) -end -function c805000016.exfilter(c,fid) - return c:IsFaceup() and c:GetCode()==805000016 and (fid==nil or c:GetFieldID()0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,0x4011,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) -end -function c805000022.recop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,0x4011,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) then - local token=Duel.CreateToken(tp,31533705) - Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c805000022.tg) - Duel.RegisterEffect(e1,tp) - end -end -function c805000022.tg(e,c) - return not c:IsRace(ATTRIBUTE_WIND) -end -function c805000022.indcon(e) - return Duel.IsExistingMatchingCard(Card.IsType,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil,TYPE_TOKEN) -end -function c805000022.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,805000022)==0 and Duel.CheckReleaseGroup(tp,Card.IsSetCard,1,nil,0x101b) end - local g=Duel.SelectReleaseGroup(tp,Card.IsSetCard,1,1,nil,0x101b) - Duel.Release(g,REASON_COST) - Duel.RegisterFlagEffect(tp,805000022,RESET_PHASE+PHASE_END,0,1) -end -function c805000022.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c805000023.lua b/script/c805000023.lua deleted file mode 100644 index 67480cce..00000000 --- a/script/c805000023.lua +++ /dev/null @@ -1,86 +0,0 @@ ---幻獣機ブルーインパラス -function c805000023.initial_effect(c) - --synchro custom - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SYNCHRO_MATERIAL_CUSTOM) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetTarget(c805000023.target) - e1:SetValue(1) - e1:SetOperation(c805000023.operation) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetValue(c805000023.synlimit) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e3:SetCondition(c805000023.indcon) - e3:SetValue(1) - c:RegisterEffect(e3) - local e4=e3:Clone() - e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e4) - --special summon - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(805000023,0)) - e5:SetCategory(CATEGORY_SPECIAL_SUMMON) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetRange(LOCATION_GRAVE) - e5:SetCondition(c805000023.spcon) - e5:SetCost(c805000023.spcost) - e5:SetTarget(c805000023.sptg) - e5:SetOperation(c805000023.spop) - c:RegisterEffect(e5) -end -c805000023.tuner_filter=aux.FALSE -function c805000023.filter(c,syncard,tuner,f,lv) - return c:IsNotTuner() and c:IsSetCard(0x101b) and c:IsCanBeSynchroMaterial(syncard,tuner) and (f==nil or f(c)) and c:GetLevel()==lv -end -function c805000023.target(e,syncard,f,minc,maxc) - if minc>1 then return false end - local lv=syncard:GetLevel()-e:GetHandler():GetLevel() - if lv<=0 then return false end - return Duel.IsExistingMatchingCard(c805000023.filter,syncard:GetControler(),LOCATION_HAND+LOCATION_MZONE,0,1,nil,syncard,e:GetHandler(),f,lv) -end -function c805000023.operation(e,tp,eg,ep,ev,re,r,rp,syncard,f,minc,maxc) - local lv=syncard:GetLevel()-e:GetHandler():GetLevel() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) - local g=Duel.SelectMatchingCard(tp,c805000023.filter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil,syncard,e:GetHandler(),f,lv) - Duel.SetSynchroMaterial(g) -end -function c805000023.synlimit(e,c) - if not c then return false end - return not c:IsRace(RACE_MACHINE) -end -function c805000023.indcon(e) - return Duel.IsExistingMatchingCard(Card.IsType,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil,TYPE_TOKEN) -end -function c805000023.spcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(e:GetHandler():GetControler(),LOCATION_MZONE,0)==0 - and Duel.GetFieldGroupCount(1-e:GetHandler():GetControler(),LOCATION_MZONE,0)>0 -end -function c805000023.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c805000023.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,0x4011,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) -end -function c805000023.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,0x4011,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) then - local token=Duel.CreateToken(tp,31533705) - Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c805000024.lua b/script/c805000024.lua deleted file mode 100644 index eed046bd..00000000 --- a/script/c805000024.lua +++ /dev/null @@ -1,98 +0,0 @@ ---幻獣機コルトウィング -function c805000024.initial_effect(c) - --level - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetValue(c805000024.lvval) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetCondition(c805000024.indcon) - e2:SetValue(1) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e3) - --spsummon success - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(805000024,0)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(EVENT_SPSUMMON_SUCCESS) - e4:SetTarget(c805000024.sumtg) - e4:SetOperation(c805000024.sumop) - c:RegisterEffect(e4) - --destroy - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(805000024,1)) - e5:SetCategory(CATEGORY_DESTROY) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetRange(LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET) - e5:SetCountLimit(1) - e5:SetCost(c805000024.descost) - e5:SetTarget(c805000024.destg) - e5:SetOperation(c805000024.desop) - c:RegisterEffect(e5) -end -function c805000024.lvval(e,c) - local tp=c:GetControler() - local lv=0 - for i=0,4 do - local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i) - if tc and tc:IsCode(31533705) then lv=lv+tc:GetLevel() end - end - return lv -end -function c805000024.indcon(e) - return Duel.IsExistingMatchingCard(Card.IsType,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil,TYPE_TOKEN) -end -function c805000024.filter(c) - return c:IsFaceup() and c:IsSetCard(0x101b) -end -function c805000024.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsExistingMatchingCard(c805000024.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) - and Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,0x4011,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) -end -function c805000024.sumop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - if not Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,0x4011,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) then return end - for i=1,2 do - local token=Duel.CreateToken(tp,31533705) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - end - Duel.SpecialSummonComplete() -end -function c805000024.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsType,2,nil,TYPE_TOKEN) end - local g=Duel.SelectReleaseGroup(tp,Card.IsType,2,2,nil,TYPE_TOKEN) - Duel.Release(g,REASON_COST) -end -function c805000024.desfilter(c) - return c:IsAbleToRemove() and c:IsDestructable() -end -function c805000024.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c805000024.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c805000024.desfilter,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c805000024.desfilter,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c805000024.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c805000025.lua b/script/c805000025.lua deleted file mode 100644 index 91560d50..00000000 --- a/script/c805000025.lua +++ /dev/null @@ -1,118 +0,0 @@ ---幻獣機ハリアード -function c805000025.initial_effect(c) - --level - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_LEVEL) - e1:SetValue(c805000025.lvval) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetCondition(c805000025.indcon) - e2:SetValue(1) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(805000025,0)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_QUICK_F) - e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e4:SetRange(LOCATION_MZONE) - e4:SetCode(EVENT_CHAINING) - e4:SetCountLimit(1) - e4:SetCondition(c805000025.sucon) - e4:SetTarget(c805000025.sumtg) - e4:SetOperation(c805000025.sumop) - c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(805000025,0)) - e5:SetCategory(CATEGORY_SPECIAL_SUMMON) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetRange(LOCATION_MZONE) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET) - e5:SetCountLimit(1) - e5:SetCost(c805000025.descost) - e5:SetTarget(c805000025.destg) - e5:SetOperation(c805000025.desop) - c:RegisterEffect(e5) - local e6=Effect.CreateEffect(c) - e6:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e6:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e6:SetRange(LOCATION_MZONE) - e6:SetCode(EFFECT_RELEASE_REPLACE) - e6:SetTarget(c805000025.sucon2) - e6:SetValue(c805000025.sumop2) - c:RegisterEffect(e6) -end -function c805000025.lvval(e,c) - local tp=c:GetControler() - local lv=0 - for i=0,4 do - local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i) - if tc and tc:IsCode(31533705) then lv=lv+tc:GetLevel() end - end - return lv -end -function c805000025.indcon(e) - return Duel.IsExistingMatchingCard(Card.IsType,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil,TYPE_TOKEN) -end -function c805000025.refilter(c,tp) - return c:IsReason(REASON_COST) and c:IsPreviousLocation(LOCATION_ONFIELD) and c:GetPreviousControler()==tp -end -function c805000025.sucon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFlagEffect(tp,805000025)~=0 -end -function c805000025.refilter2(c,tp) - return c:IsLocation(LOCATION_MZONE) and c:GetControler()==tp -end -function c805000025.sucon2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not eg:IsContains(e:GetHandler()) and re:GetHandler()~=e:GetHandler() - and r==REASON_COST and eg:IsExists(c805000025.refilter2,1,c,e:GetHandler():GetControler()) end - return true -end -function c805000025.sumop2(e,tp,eg,ep,ev,re,r,rp) - Duel.RegisterFlagEffect(e:GetHandler():GetControler(),805000025,RESET_PHASE+PHASE_END,0,1) - return 0 -end -function c805000025.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,0x4011,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) end - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) -end -function c805000025.sumop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - if not Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,0x4011,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) then return end - local token=Duel.CreateToken(tp,31533705) - Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP) -end -function c805000025.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsType,1,nil,TYPE_TOKEN) end - local g=Duel.SelectReleaseGroup(tp,Card.IsType,1,1,nil,TYPE_TOKEN) - Duel.Release(g,REASON_COST) -end -function c805000025.filter(c,e,tp) - return c:IsSetCard(0x101b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000025.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000025.filter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) -end -function c805000025.desop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000025.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 \ No newline at end of file diff --git a/script/c805000026.lua b/script/c805000026.lua deleted file mode 100644 index 74788077..00000000 --- a/script/c805000026.lua +++ /dev/null @@ -1,69 +0,0 @@ ---弧炎星－ロシシン -function c805000026.initial_effect(c) - --synchro custom - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetValue(c805000026.synlimit) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BATTLE_DESTROYED) - e2:SetCondition(c805000026.condition) - e2:SetTarget(c805000026.target) - e2:SetOperation(c805000026.operation) - c:RegisterEffect(e2) - --set - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c805000026.setcon) - e3:SetTarget(c805000026.settg) - e3:SetOperation(c805000026.setop) - c:RegisterEffect(e3) -end -function c805000026.synlimit(e,c) - if not c then return false end - return not c:IsAttribute(ATTRIBUTE_FIRE) -end -function c805000026.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) -end -function c805000026.spfilter(c,e,tp) - return not c:IsCode(805000026) and c:GetLevel()==4 and c:IsSetCard(0x79) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000026.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000026.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c805000026.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000026.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end -function c805000026.setcon(e,tp,eg,ep,ev,re,r,rp) - return eg:GetFirst():IsPreviousLocation(LOCATION_EXTRA) and eg:GetFirst():GetPreviousControler()==tp -end -function c805000026.filter(c) - return c:IsSetCard(0x7c) and c:IsType(TYPE_SPELL) and c:IsSSetable() -end -function c805000026.settg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingMatchingCard(c805000026.filter,tp,LOCATION_DECK,0,1,nil) end -end -function c805000026.setop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) - local g=Duel.SelectMatchingCard(tp,c805000026.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SSet(tp,g:GetFirst()) - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c805000027.lua b/script/c805000027.lua deleted file mode 100644 index c960c250..00000000 --- a/script/c805000027.lua +++ /dev/null @@ -1,77 +0,0 @@ ---猛炎星－テンレイ -function c805000027.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_BE_MATERIAL) - e1:SetCondition(c805000027.con) - e1:SetTarget(c805000027.settg) - e1:SetOperation(c805000027.op) - c:RegisterEffect(e1) - --search - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetOperation(c805000027.threg) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(805000027,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_GRAVE) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetCountLimit(1) - e3:SetCondition(c805000027.thcon) - e3:SetTarget(c805000027.thtg) - e3:SetOperation(c805000027.thop) - e3:SetLabelObject(e2) - c:RegisterEffect(e3) -end -function c805000027.con(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO and c:GetReasonCard():IsSetCard(0x79) -end -function c805000027.filter(c) - return c:IsSetCard(0x7c) and c:IsType(TYPE_SPELL) and c:IsSSetable() -end -function c805000027.settg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingMatchingCard(c805000027.filter,tp,LOCATION_DECK,0,1,nil) end -end -function c805000027.op(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) - local g=Duel.SelectMatchingCard(tp,c805000027.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SSet(tp,g:GetFirst()) - Duel.ConfirmCards(1-tp,g) - end -end -function c805000027.threg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if bit.band(r,0x41)~=0x41 then return end - if Duel.GetCurrentPhase()==PHASE_END then - e:SetLabel(Duel.GetTurnCount()) - c:RegisterFlagEffect(805000027,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY,0,2) - else - e:SetLabel(0) - c:RegisterFlagEffect(805000027,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY,0,1) - end -end -function c805000027.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetLabelObject():GetLabel()~=Duel.GetTurnCount() and e:GetHandler():GetFlagEffect(805000027)>0 -end -function c805000027.thfilter(c,e,tp) - return not c:IsCode(805000027) and c:IsSetCard(0x79) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000027.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000027.thfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c805000027.thop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000027.thfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c805000028.lua b/script/c805000028.lua deleted file mode 100644 index 89752ebf..00000000 --- a/script/c805000028.lua +++ /dev/null @@ -1,114 +0,0 @@ ---魔導天士 トールモンド -function c805000028.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000028,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c805000028.retcon) - e1:SetCost(c805000028.retcost) - e1:SetTarget(c805000028.rettg) - e1:SetOperation(c805000028.retop) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(805000028,1)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetRange(LOCATION_MZONE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_TO_HAND) - e2:SetCost(c805000028.cost) - e2:SetTarget(c805000028.target) - e2:SetOperation(c805000028.operation) - c:RegisterEffect(e2) - if not c805000028.global_check then - c805000028.global_check=true - c805000028[0]=true - c805000028[1]=true - local ge1=Effect.CreateEffect(c) - ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge1:SetCode(EVENT_SPSUMMON_SUCCESS) - ge1:SetOperation(c805000028.checkop1) - Duel.RegisterEffect(ge1,0) - local ge4=Effect.CreateEffect(c) - ge4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - ge4:SetCode(EVENT_PHASE_START+PHASE_DRAW) - ge4:SetOperation(c805000028.clear) - Duel.RegisterEffect(ge4,0) - end -end -function c805000028.checkop1(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - while tc do - if tc~=e:GetHandler() then - c805000028[tc:GetSummonPlayer()]=false - end - tc=eg:GetNext() - end -end -function c805000028.clear(e,tp,eg,ep,ev,re,r,rp) - c805000028[0]=true - c805000028[1]=true -end -function c805000028.retcon(e,tp,eg,ep,ev,re,r,rp) - return re and (re:GetHandler():IsRace(RACE_SPELLCASTER) or (re:GetHandler():IsType(TYPE_SPELL) and re:GetHandler():IsSetCard(0x106e))) -end -function c805000028.filter(c) - return c:IsSetCard(0x106e) and c:IsType(TYPE_SPELL) and c:IsAbleToHand() -end -function c805000028.retcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return c805000028[tp] end - --oath effects - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c805000028.splimit) - e1:SetLabelObject(e) - Duel.RegisterEffect(e1,tp) -end -function c805000028.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return e:GetLabelObject()~=se -end -function c805000028.rettg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c805000028.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c805000028.filter,tp,LOCATION_GRAVE,0,2,nil) end - e:GetHandler():RegisterFlagEffect(805000028,RESET_PHASE+PHASE_END,0,1) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOHAND) - local g=Duel.SelectTarget(tp,c805000028.filter,tp,LOCATION_GRAVE,0,2,2,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c805000028.filter2(c) - return c:IsSetCard(0x106e) and c:IsType(TYPE_SPELL) -end -function c805000028.retop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,2,REASON_EFFECT) - end -end -function c805000028.cffilter(c) - return c:IsSetCard(0x106e) and c:IsType(TYPE_SPELL) and not c:IsPublic() -end -function c805000028.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c805000028.cffilter,tp,LOCATION_HAND,0,4,nil) - and e:GetHandler():GetFlagEffect(805000028)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) - local g=Duel.SelectMatchingCard(tp,c805000028.cffilter,tp,LOCATION_HAND,0,4,4,nil) - Duel.ConfirmCards(1-tp,g) - Duel.ShuffleHand(tp) - e:GetHandler():ResetFlagEffect(805000028) -end -function c805000028.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c805000028.operation(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) - Duel.Destroy(sg,REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c805000029.lua b/script/c805000029.lua deleted file mode 100644 index af5c097e..00000000 --- a/script/c805000029.lua +++ /dev/null @@ -1,39 +0,0 @@ ---トリック・デーモン -function c805000029.initial_effect(c) - --search - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000029,1)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetCondition(c805000029.thcon) - e1:SetCost(c805000029.spcost) - e1:SetTarget(c805000029.thtg) - e1:SetOperation(c805000029.thop) - c:RegisterEffect(e1) -end -function c805000029.thcon(e,tp,eg,ep,ev,re,r,rp) - return (e:GetHandler():IsReason(REASON_EFFECT) and not e:GetHandler():IsReason(REASON_RETURN)) or e:GetHandler():IsReason(REASON_BATTLE) -end -function c805000029.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,805000029)==0 end - Duel.RegisterFlagEffect(tp,805000029,RESET_PHASE+PHASE_END,0,1) -end -function c805000029.filter(c) - return c:IsSetCard(0x45) and c:GetCode()~=805000029 and c:IsAbleToHand() -end -function c805000029.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_DECK) and c805000029.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c805000029.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c805000029.filter,tp,LOCATION_DECK,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c805000029.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c805000030.lua b/script/c805000030.lua deleted file mode 100644 index b51a913b..00000000 --- a/script/c805000030.lua +++ /dev/null @@ -1,38 +0,0 @@ ---デーモンの騎兵 -function c805000030.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000030,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c805000030.condition) - e1:SetTarget(c805000030.target) - e1:SetOperation(c805000030.operation) - c:RegisterEffect(e1) -end -function c805000030.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return bit.band(c:GetReason(),0x41)==0x41 and c:IsPreviousLocation(LOCATION_ONFIELD) -end -function c805000030.filter(c,e,tp) - return c:IsSetCard(0x45) and c:GetCode()~=805000030 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000030.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000030.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c805000030.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.SelectMatchingCard(tp,c805000030.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - if tc then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:GetFirst():RegisterEffect(e1) - end -end diff --git a/script/c805000031.lua b/script/c805000031.lua deleted file mode 100644 index 14e24436..00000000 --- a/script/c805000031.lua +++ /dev/null @@ -1,98 +0,0 @@ ---戦慄の凶皇－ジェネシス・デーモン -function c805000031.initial_effect(c) - --summon with no tribute - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(35950025,0)) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetOperation(c805000031.ntop) - c:RegisterEffect(e1) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(1,0) - e3:SetTarget(c805000031.splimit) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(805000031,1)) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_IGNITION) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET) - e4:SetRange(LOCATION_MZONE) - e4:SetCountLimit(1) - e4:SetCost(c805000031.descost) - e4:SetTarget(c805000031.destg) - e4:SetOperation(c805000031.desop) - c:RegisterEffect(e4) -end -function c805000031.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return not c:IsRace(RACE_FIEND) -end -function c805000031.ntop(e,tp,eg,ep,ev,re,r,rp,c) - --change base - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetReset(RESET_EVENT+0xff0000) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(c:GetBaseAttack()/2) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetReset(RESET_EVENT+0xff0000) - e2:SetCode(EFFECT_SET_BASE_DEFENCE) - e2:SetValue(c:GetBaseDefence()/2) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(805000031,1)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_REPEAT) - e3:SetCountLimit(1) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetTarget(c805000031.dtg) - e3:SetOperation(c805000031.dop) - e3:SetReset(RESET_EVENT+0xee0000) - c:RegisterEffect(e3) -end -function c805000031.dtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) -end -function c805000031.dop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.Destroy(c,REASON_EFFECT) - end -end -function c805000031.cfilter(c) - return c:IsSetCard(0x45) and c:IsAbleToRemoveAsCost() -end -function c805000031.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c805000031.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c805000031.cfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c805000031.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c805000031.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c805000035.lua b/script/c805000035.lua deleted file mode 100644 index 68fb6bd1..00000000 --- a/script/c805000035.lua +++ /dev/null @@ -1,15 +0,0 @@ ---ザ・キャリブレーター -function c805000035.initial_effect(c) - --attack - 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(c805000035.atkval) - c:RegisterEffect(e1) -end -function c805000035.atkval(e,c) - local g=Duel.GetMatchingGroup(Card.IsFaceup,c:GetControler(),0,LOCATION_MZONE,nil) - return g:GetSum(Card.GetRank)*300 -end diff --git a/script/c805000036.lua b/script/c805000036.lua deleted file mode 100644 index 85bc4b1e..00000000 --- a/script/c805000036.lua +++ /dev/null @@ -1,29 +0,0 @@ ---桜姫タレイア -function c805000036.initial_effect(c) - --atkup - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(c805000036.val) - c:RegisterEffect(e1) - --immune - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetTarget(c805000036.etarget) - e2:SetValue(1) - c:RegisterEffect(e2) -end -function c805000036.filter(c) - return c:IsFaceup() and c:IsRace(RACE_PLANT) -end -function c805000036.val(e,c) - return Duel.GetMatchingGroupCount(c805000036.filter,c:GetControler(),LOCATION_MZONE,0,nil)*100 -end -function c805000036.etarget(e,c) - return c:IsFaceup() and c:IsRace(RACE_PLANT) and c~=e:GetHandler() -end diff --git a/script/c805000038.lua b/script/c805000038.lua deleted file mode 100644 index 7ad5fd60..00000000 --- a/script/c805000038.lua +++ /dev/null @@ -1,63 +0,0 @@ ---カメンレオン -function c805000038.initial_effect(c) - --sumlimit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetCondition(c805000038.excon) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(805000038,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetTarget(c805000038.sumtg) - e2:SetOperation(c805000038.sumop) - c:RegisterEffect(e2) -end -function c805000038.exfilter(c) - return c:IsFaceup() and c:GetLevel()>=5 -end -function c805000038.excon(e) - return Duel.IsExistingMatchingCard(c805000038.exfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end -function c805000038.filter(c,e,tp) - return c:GetDefence()==0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000038.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000038.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c805000038.sumop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000038.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - local tc=g:GetFirst() - if not tc then return end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0xfe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0xfe0000) - tc:RegisterEffect(e2) - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e4:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e4:SetReset(RESET_PHASE+PHASE_END) - e4:SetTargetRange(1,0) - e4:SetTarget(c805000038.splimit) - Duel.RegisterEffect(e4,tp) - end -end -function c805000038.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return not c:IsLocation(LOCATION_EXTRA) -end diff --git a/script/c805000041.lua b/script/c805000041.lua deleted file mode 100644 index a8ca4347..00000000 --- a/script/c805000041.lua +++ /dev/null @@ -1,57 +0,0 @@ ---幻獣機コンコルーダ -function c805000041.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --battle indestructable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetTarget(c805000041.etarget) - e1:SetValue(1) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(805000041,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c805000041.condition) - e3:SetCost(c805000041.cost) - e3:SetTarget(c805000041.target) - e3:SetOperation(c805000041.operation) - c:RegisterEffect(e3) -end -function c805000041.etarget(e,c) - return c:IsType(TYPE_TOKEN) -end -function c805000041.condition(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) and e:GetHandler():IsReason(REASON_DESTROY) -end -function c805000041.spfilter(c,e,tp) - return c:IsLevelBelow(4) and c:IsSetCard(0x101b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000041.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local g=Duel.GetMatchingGroup(Card.IsType,tp,LOCATION_MZONE,0,nil,TYPE_TOKEN) - if chk==0 then return g:GetCount()>0 and g:FilterCount(Card.IsReleasable,nil)==g:GetCount() end - Duel.Release(g,REASON_COST) -end -function c805000041.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingTarget(c805000041.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) -end -function c805000041.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end - local g=Duel.GetMatchingGroup(c805000041.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp) - if g:GetCount()>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tc=g:Select(tp,1,1,nil):GetFirst() - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c805000042.lua b/script/c805000042.lua deleted file mode 100644 index 91cef7af..00000000 --- a/script/c805000042.lua +++ /dev/null @@ -1,47 +0,0 @@ ---罡炎星－リシュンキ -function c805000042.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_FIRE),aux.NonTuner(Card.IsSetCard,0x79),1) - c:EnableReviveLimit() - --set - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000042,0)) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c805000042.setcon) - e1:SetTarget(c805000042.settg) - e1:SetOperation(c805000042.setop) - c:RegisterEffect(e1) - --atk - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,LOCATION_MZONE) - e2:SetValue(c805000042.val) - c:RegisterEffect(e2) -end -function c805000042.setcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO -end -function c805000042.filter(c) - return c:IsSetCard(0x7c) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable() -end -function c805000042.settg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingMatchingCard(c805000042.filter,tp,LOCATION_DECK,0,1,nil) end -end -function c805000042.setop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) - local g=Duel.SelectMatchingCard(tp,c805000042.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SSet(tp,g:GetFirst()) - Duel.ConfirmCards(1-tp,g) - end -end -function c805000042.afilter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) -end -function c805000042.val(e) - return Duel.GetMatchingGroupCount(c805000042.afilter,e:GetHandler():GetControler(),LOCATION_ONFIELD,0,nil)*-100 -end diff --git a/script/c805000043.lua b/script/c805000043.lua deleted file mode 100644 index c4cdcc7a..00000000 --- a/script/c805000043.lua +++ /dev/null @@ -1,50 +0,0 @@ ---霞鳥クラウソラス -function c805000043.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --negate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000043,0)) - e1:SetCategory(CATEGORY_DISABLE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetTarget(c805000043.target) - e1:SetOperation(c805000043.operation) - c:RegisterEffect(e1) -end -function c805000043.filter(c) - return c:IsFaceup() and c:GetAttack()>0 -end -function c805000043.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c805000043.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c805000043.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c805000043.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) -end -function c805000043.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetAttack()>0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DISABLE_EFFECT) - e3:SetValue(RESET_TURN_SET) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e3) - end -end diff --git a/script/c805000044.lua b/script/c805000044.lua deleted file mode 100644 index 6a081041..00000000 --- a/script/c805000044.lua +++ /dev/null @@ -1,38 +0,0 @@ ---魔界闘士　バルムンク -function c805000044.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000044,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c805000044.condition) - e1:SetTarget(c805000044.target) - e1:SetOperation(c805000044.operation) - c:RegisterEffect(e1) -end -function c805000044.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return bit.band(c:GetReason(),0x41)==0x41 -end -function c805000044.spfilter(c,e,tp) - return c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000044.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c805000044.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c805000044.spfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c805000044.spfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler(),e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) -end -function c805000044.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c805000045.lua b/script/c805000045.lua deleted file mode 100644 index ec0f6126..00000000 --- a/script/c805000045.lua +++ /dev/null @@ -1,30 +0,0 @@ ---幻層の守護者アルマデス -function c805000045.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --actlimit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetOperation(c805000045.atkop) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_BE_BATTLE_TARGET) - e2:SetOperation(c805000045.atkop) - c:RegisterEffect(e2) -end -function c805000045.atkop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetTargetRange(0,1) - e1:SetValue(c805000045.aclimit) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE) - Duel.RegisterEffect(e1,tp) -end -function c805000045.aclimit(e,re,tp) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) or re:IsActiveType(TYPE_MONSTER) -end \ No newline at end of file diff --git a/script/c805000046.lua b/script/c805000046.lua deleted file mode 100644 index 743f07d9..00000000 --- a/script/c805000046.lua +++ /dev/null @@ -1,30 +0,0 @@ ---超念導体ビヒーマス -function c805000046.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --remove - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000046,0)) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_BATTLED) - e1:SetTarget(c805000046.target) - e1:SetOperation(c805000046.operation) - c:RegisterEffect(e1) -end -function c805000046.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetAttackTarget()~=nil end - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - local g=Group.FromCards(a,d) - local rg=g:Filter(Card.IsRelateToBattle,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,rg,rg:GetCount(),0,0) -end -function c805000046.operation(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - local g=Group.FromCards(a,d) - local rg=g:Filter(Card.IsRelateToBattle,nil) - Duel.Remove(rg,POS_FACEUP,REASON_EFFECT) -end diff --git a/script/c805000047.lua b/script/c805000047.lua deleted file mode 100644 index 397428a4..00000000 --- a/script/c805000047.lua +++ /dev/null @@ -1,49 +0,0 @@ ---星態龍 -function c805000047.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --cannot special summon - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.FALSE) - c:RegisterEffect(e1) - --summon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - c:RegisterEffect(e2) - --summon success - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetOperation(c805000047.sumsuc) - c:RegisterEffect(e3) - --unaffectable - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_ATTACK_ANNOUNCE) - e4:SetOperation(c805000047.atkop) - c:RegisterEffect(e4) -end -function c805000047.genchainlm(c) - return function (e,rp,tp) - return e:GetHandler()==c - end -end -function c805000047.sumsuc(e,tp,eg,ep,ev,re,r,rp) - Duel.SetChainLimitTillChainEnd(c805000047.genchainlm(e:GetHandler())) -end -function c805000047.atkop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_IMMUNE_EFFECT) - e1:SetValue(1) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE) - e:GetHandler():RegisterEffect(e1) -end \ No newline at end of file diff --git a/script/c805000048.lua b/script/c805000048.lua deleted file mode 100644 index 7eb25a1b..00000000 --- a/script/c805000048.lua +++ /dev/null @@ -1,69 +0,0 @@ ---CNo.39 希望皇ホープレイV -function c805000048.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,5),3) - c:EnableReviveLimit() - --actlimit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetOperation(c805000048.lmop) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetDescription(aux.Stringid(805000048,0)) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_ATTACK_ANNOUNCE) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c805000048.descon) - e2:SetCost(c805000048.descost) - e2:SetTarget(c805000048.destg) - e2:SetOperation(c805000048.desop) - c:RegisterEffect(e2) -end -function c805000048.lmop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_ACTIVATE) - e1:SetTargetRange(0,1) - e1:SetValue(c805000048.aclimit) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE) - Duel.RegisterEffect(e1,tp) -end -function c805000048.aclimit(e,re,tp) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) -end -function c805000048.descon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsDisabled() - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsSetCard,1,nil,0x7f) -end -function c805000048.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c805000048.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.GetAttackTarget():IsFaceup() end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) -end -function c805000048.desop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local d=Duel.GetAttackTarget() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - d:RegisterEffect(e1,true) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - d:RegisterEffect(e2,true) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetValue(d:GetAttack()) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e3,true) -end \ No newline at end of file diff --git a/script/c805000049.lua b/script/c805000049.lua deleted file mode 100644 index 69d07b7b..00000000 --- a/script/c805000049.lua +++ /dev/null @@ -1,49 +0,0 @@ ---牙鮫帝シャーク・カイゼル -function c805000049.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,3),3,nil,nil,5) - c:EnableReviveLimit() - c:EnableCounterPermit(0x2e) - c:SetCounterLimit(0x2e,99) - --remove - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000049,0)) - e1:SetCategory(CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c805000049.rmcost) - e1:SetTarget(c805000049.rmtg) - e1:SetOperation(c805000049.rmop) - c:RegisterEffect(e1) - --atk/def - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetCondition(c805000049.adcon) - e2:SetValue(c805000049.adval) - c:RegisterEffect(e2) -end -function c805000049.rmcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c805000049.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x2e) -end -function c805000049.rmop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x2e,1) - end -end -function c805000049.adcon(e) - local phase=Duel.GetCurrentPhase() - return (phase==PHASE_DAMAGE or phase==PHASE_DAMAGE_CAL) and not Duel.IsDamageCalculated() -end -function c805000049.adval(e,c) - return e:GetHandler():GetCounter(0x2e)*1000 -end \ No newline at end of file diff --git a/script/c805000050.lua b/script/c805000050.lua deleted file mode 100644 index ccea0d19..00000000 --- a/script/c805000050.lua +++ /dev/null @@ -1,58 +0,0 @@ ---輝光帝ギャラクシオン -function c805000050.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsSetCard,0x55),4),2) - c:EnableReviveLimit() - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000050,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c805000050.cost) - e1:SetTarget(c805000050.sptg) - e1:SetOperation(c805000050.spop) - c:RegisterEffect(e1) -end -function c805000050.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - if Duel.IsExistingMatchingCard(c805000050.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) - and e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) then - if Duel.IsExistingMatchingCard(c805000050.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) then - local opt=Duel.AnnounceNumber(tp,1,2) - if opt==1 then - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) - e:SetLabel(1) - else - e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST) - e:SetLabel(2) - end - else - e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST) - e:SetLabel(2) - end - else - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) - e:SetLabel(1) - end -end -function c805000050.spfilter(c,e,tp) - return c:IsCode(93717133) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000050.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,nil) -end -function c805000050.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local p=e:GetLabel() - local tg=nil - if p==1 then tg=LOCATION_HAND - else tg=LOCATION_DECK end - local g=Duel.SelectMatchingCard(tp,c805000050.spfilter,tp,tg,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c805000051.lua b/script/c805000051.lua deleted file mode 100644 index 19ee58da..00000000 --- a/script/c805000051.lua +++ /dev/null @@ -1,75 +0,0 @@ ---廃品眼の太鼓龍 -function c805000051.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),8),2) - c:EnableReviveLimit() - --attack up - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetDescription(aux.Stringid(805000051,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c805000051.cost) - e1:SetOperation(c805000051.operation) - c:RegisterEffect(e1) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(805000051,1)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c805000051.spcon) - e3:SetCost(c805000051.spcost) - e3:SetTarget(c805000051.sptg) - e3:SetOperation(c805000051.spop) - c:RegisterEffect(e3) -end -function c805000051.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c805000051.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(1000) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END,2) - c:RegisterEffect(e1) - end -end -function c805000051.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_MZONE) and c:IsReason(REASON_DESTROY) and c:GetOverlayCount()~=0 -end -function c805000051.rfilter(c) - return c:IsSetCard(0x88) and c:IsAbleToRemoveAsCost() -end -function c805000051.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c805000051.rfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectMatchingCard(tp,c805000051.rfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c805000051.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c805000051.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end - local dg=Duel.GetMatchingGroup(Card.IsSetCard,tp,LOCATION_GRAVE,0,nil,0x88) - if dg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(110000000,7)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local des=dg:Select(tp,1,1,nil) - Duel.HintSelection(des) - Duel.BreakEffect() - Duel.Overlay(c,des) - end -end diff --git a/script/c805000052.lua b/script/c805000052.lua deleted file mode 100644 index 2e55314c..00000000 --- a/script/c805000052.lua +++ /dev/null @@ -1,43 +0,0 @@ ---零鳥姫リオート・ハルピュイア -function c805000052.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsRace,RACE_WINDBEAST),5),2) - c:EnableReviveLimit() - --negate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000052,0)) - e1:SetCategory(CATEGORY_DISABLE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c805000052.cost) - e1:SetTarget(c805000052.target) - e1:SetOperation(c805000052.operation) - c:RegisterEffect(e1) -end -function c805000052.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c805000052.filter(c) - return c:IsFaceup() and c:GetAttack()>0 -end -function c805000052.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c805000052.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c805000052.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c805000052.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) -end -function c805000052.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetAttack()>0 then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c805000053.lua b/script/c805000053.lua deleted file mode 100644 index 5d125fcb..00000000 --- a/script/c805000053.lua +++ /dev/null @@ -1,85 +0,0 @@ ---Ｎｏ．１０２光天使グローリアス・ヘイロー -function c805000053.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_LIGHT),4),3) - c:EnableReviveLimit() - --destroy replace - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetCode(EFFECT_DESTROY_REPLACE) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c805000053.reptg) - c:RegisterEffect(e1) - --negate - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(805000053,0)) - e2:SetCategory(CATEGORY_DISABLE+CATEGORY_ATKCHANGE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCost(c805000053.cost) - e2:SetTarget(c805000053.target) - e2:SetOperation(c805000053.operation) - c:RegisterEffect(e2) -end -function c805000053.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c805000053.filter(c) - return c:IsFaceup() and c:GetAttack()>0 -end -function c805000053.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c805000053.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c805000053.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c805000053.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) -end -function c805000053.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:GetAttack()>0 then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_ATTACK_FINAL) - e2:SetValue(tc:GetAttack()/2) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DISABLE_EFFECT) - e3:SetValue(RESET_TURN_SET) - e3:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e3) - end -end -function c805000053.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_EFFECT) end - if Duel.SelectYesNo(tp,aux.Stringid(110000000,8)) then - c:RemoveOverlayCard(tp,c:GetOverlayCount(),c:GetOverlayCount(),REASON_EFFECT) - --damage reduce - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e1:SetCondition(c805000053.rdcon) - e1:SetOperation(c805000053.rdop) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - return true - else return false end -end -function c805000053.rdcon(e,tp,eg,ep,ev,re,r,rp) - return ep==tp -end -function c805000053.rdop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(tp,ev/2) -end \ No newline at end of file diff --git a/script/c805000054.lua b/script/c805000054.lua deleted file mode 100644 index 1b1c46db..00000000 --- a/script/c805000054.lua +++ /dev/null @@ -1,76 +0,0 @@ ---Ｎｏ．６６覇鍵甲虫 マスター・キー・ビートル -function c805000054.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),4),2) - c:EnableReviveLimit() - local sg=Group.CreateGroup() - sg:KeepAlive() - --set target - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000054,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_SET_AVAILABLE) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c805000054.cost) - e1:SetTarget(c805000054.target) - e1:SetOperation(c805000054.operation) - e1:SetLabelObject(sg) - c:RegisterEffect(e1) - --indestructable - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetTargetRange(LOCATION_ONFIELD,0) - e2:SetTarget(c805000054.targetd) - e2:SetValue(1) - e2:SetLabelObject(sg) - c:RegisterEffect(e2) - --destroy replace - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetCode(EFFECT_DESTROY_REPLACE) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c805000054.reptg) - e3:SetLabelObject(sg) - c:RegisterEffect(e3) -end -function c805000054.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c805000054.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_ONFIELD) end - if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler()) -end -function c805000054.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc=g:GetFirst() - local c=e:GetHandler() - local sg=e:GetLabelObject() - if c:IsFacedown() or not c:IsRelateToEffect(e) then return end - sg:AddCard(tc) -end -function c805000054.targetd(e,c) - local g=e:GetLabelObject() - return g:IsContains(c) -end -function c805000054.tgfilter(c,e) - local g=e:GetLabelObject() - return g:IsContains(c) and c:IsAbleToGrave() -end -function c805000054.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - local g=Duel.GetMatchingGroup(c805000054.tgfilter,tp,LOCATION_ONFIELD,0,nil,e) - if chk==0 then return g:GetCount()>0 end - if Duel.SelectYesNo(tp,aux.Stringid(110000000,10)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local sg=g:Select(tp,1,1,nil) - Duel.SendtoGrave(sg,REASON_EFFECT) - return true - else return false end -end diff --git a/script/c805000055.lua b/script/c805000055.lua deleted file mode 100644 index 60f5debb..00000000 --- a/script/c805000055.lua +++ /dev/null @@ -1,58 +0,0 @@ ---Ｎｏ．１０４仮面魔踏士シャイニング -function c805000055.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,4),3) - c:EnableReviveLimit() - --negate activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000055,0)) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DAMAGE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c805000055.condition) - e1:SetCost(c805000055.cost) - e1:SetTarget(c805000055.target) - e1:SetOperation(c805000055.operation) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(805000055,1)) - e2:SetCategory(CATEGORY_DECKDES) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c805000055.target2) - e2:SetOperation(c805000055.operation2) - c:RegisterEffect(e2) -end -function c805000055.condition(e,tp,eg,ep,ev,re,r,rp,chk) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and bit.band(Duel.GetCurrentPhase(),0x38)~=0 - and re:IsActiveType(TYPE_MONSTER) and ep~=tp and Duel.IsChainNegatable(ev) -end -function c805000055.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c805000055.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,800) - end -end -function c805000055.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Damage(1-tp,800,REASON_EFFECT) - end -end -function c805000055.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,1-tp,1) -end -function c805000055.operation2(e,tp,eg,ep,ev,re,r,rp) - Duel.DiscardDeck(1-tp,1,REASON_EFFECT) -end diff --git a/script/c805000056.lua b/script/c805000056.lua deleted file mode 100644 index ee533e3a..00000000 --- a/script/c805000056.lua +++ /dev/null @@ -1,69 +0,0 @@ ---ＣＮｏ．１０４仮面魔踏士アンブラル -function c805000056.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,5),4) - c:EnableReviveLimit() - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000056,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetTarget(c805000056.destg) - e1:SetOperation(c805000056.desop) - c:RegisterEffect(e1) - --negate activate - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(805000056,1)) - e2:SetCategory(CATEGORY_DISABLE+CATEGORY_DAMAGE) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCode(EVENT_CHAINING) - e2:SetCondition(c805000056.condition) - e2:SetCost(c805000056.cost) - e2:SetTarget(c805000056.target) - e2:SetOperation(c805000056.operation) - c:RegisterEffect(e2) -end -function c805000056.desfilter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) -end -function c805000056.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c805000056.desfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c805000056.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c805000056.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c805000056.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c805000056.condition(e,tp,eg,ep,ev,re,r,rp,chk) - local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and ep~=tp and not e:GetHandler():IsDisabled() - and loc==LOCATION_MZONE and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainDisablable(ev) - and e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,805000055) -end -function c805000056.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c805000056.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) -end -function c805000056.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateEffect(ev) - Duel.BreakEffect() - local g=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0) - if g:GetCount()==0 then return end - local sg=g:RandomSelect(1-tp,1) - Duel.SendtoGrave(sg,REASON_EFFECT) - Duel.SetLP(1-tp,Duel.GetLP(1-tp)/2) -end \ No newline at end of file diff --git a/script/c805000057.lua b/script/c805000057.lua deleted file mode 100644 index 156e049f..00000000 --- a/script/c805000057.lua +++ /dev/null @@ -1,66 +0,0 @@ ---武神帝－スサノヲ -function c805000057.initial_effect(c) - c:SetUniqueOnField(1,0,805000057) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsSetCard,0x86),4),2) - c:EnableReviveLimit() - --attack all - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_ATTACK_ALL) - e1:SetValue(1) - c:RegisterEffect(e1) - --search - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c805000057.cost) - e2:SetTarget(c805000057.target) - e2:SetOperation(c805000057.operation) - c:RegisterEffect(e2) -end -function c805000057.dscon(e) - return e:GetHandler():GetOverlayCount()~=0 -end -function c805000057.sumlimit(e,c,sump,sumtype,sumpos,targetp) - return c:IsLevelAbove(5) -end -function c805000057.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c805000057.filter(c) - return c:IsSetCard(0x86) and (c:IsAbleToHand() or c:IsAbleToGrave()) -end -function c805000057.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c805000057.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c805000057.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_DECK,0,1,1,nil,0x86) - local gt1=g:Filter(Card.IsAbleToHand,nil) - local gt2=g:Filter(Card.IsAbleToGrave,nil) - local opt=nil - if gt1:GetCount()>0 and gt2:GetCount()>0 then - opt=Duel.SelectOption(tp,aux.Stringid(110000000,3),aux.Stringid(110000000,4)) - else - if gt1:GetCount()>0 and gt2:GetCount()==0 then - opt=0 - else - if gt1:GetCount()==0 and gt2:GetCount()==0 then - return false - else - opt=1 - end - end - end - if opt==0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - else - Duel.SendtoGrave(g,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c805000058.lua b/script/c805000058.lua deleted file mode 100644 index 7acfb779..00000000 --- a/script/c805000058.lua +++ /dev/null @@ -1,49 +0,0 @@ ---聖光の宣告者 -function c805000058.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,2),2) - c:EnableReviveLimit() - --ret - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000058,0)) - e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c805000058.cost) - e1:SetTarget(c805000058.target) - e1:SetOperation(c805000058.operation) - c:RegisterEffect(e1) -end -function c805000058.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,805000058)==0 - and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - Duel.RegisterFlagEffect(tp,805000058,RESET_PHASE+PHASE_END,0,1) - Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c805000058.filter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c805000058.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c805000058.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c805000058.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOHAND) - local g=Duel.SelectTarget(tp,c805000058.filter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) -end -function c805000058.tgfilter(c,e) - return not c:IsRelateToEffect(e) -end -function c805000058.operation(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - if tg:IsExists(c805000058.tgfilter,1,nil,e) then return end - local ct=Duel.SendtoHand(tg,nil,0,REASON_EFFECT) - Duel.ShuffleHand(tp) - if ct~=0 then - Duel.BreakEffect() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_HAND,0,1,1,nil) - Duel.SendtoDeck(g,nil,2,REASON_EFFECT) - end -end diff --git a/script/c805000059.lua b/script/c805000059.lua deleted file mode 100644 index 8724c40f..00000000 --- a/script/c805000059.lua +++ /dev/null @@ -1,69 +0,0 @@ ---RUM－ヌメロン・フォース -function c805000059.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c805000059.target) - e1:SetOperation(c805000059.activate) - c:RegisterEffect(e1) -end -function c805000059.filter1(c,e,tp) - local rk=c:GetRank() - return rk>0 and c:IsFaceup() and Duel.IsExistingMatchingCard(c805000059.filter2,tp,LOCATION_EXTRA,0,1,nil,rk+1,c:GetRace(),e,tp) -end -function c805000059.filter2(c,rk,rc,e,tp) - return c:GetRank()==rk and c:IsRace(rc) and c:IsSetCard(0x1048) - and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_XYZ,tp,false,false) -end -function c805000059.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c805000059.filter1(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 - and Duel.IsExistingTarget(c805000059.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,c805000059.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) -end -function c805000059.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return end - local tc=Duel.GetFirstTarget() - if tc:IsFacedown() or not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000059.filter2,tp,LOCATION_EXTRA,0,1,1,nil,tc:GetRank()+1,tc:GetRace(),e,tp) - local sc=g:GetFirst() - if sc then - local mg=tc:GetOverlayGroup() - if mg:GetCount()~=0 then - Duel.Overlay(sc,mg) - end - Duel.Overlay(sc,Group.FromCards(tc)) - Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) - sc:CompleteProcedure() - end - Duel.BreakEffect() - local c=e:GetHandler() - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,sc) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e2) - if tc:IsType(TYPE_TRAPMONSTER) then - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DISABLE_TRAPMONSTER) - e3:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e3) - end - tc=g:GetNext() - end -end diff --git a/script/c805000060.lua b/script/c805000060.lua deleted file mode 100644 index 5b5306b7..00000000 --- a/script/c805000060.lua +++ /dev/null @@ -1,58 +0,0 @@ ---エクシーズ・レセプション -function c805000060.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetDescription(aux.Stringid(805000060,0)) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c805000060.target) - e1:SetOperation(c805000060.operation) - c:RegisterEffect(e1) -end -function c805000060.filter1(c,e,tp) - local lv=c:GetLevel() - return Duel.IsExistingTarget(c805000060.filter2,tp,LOCATION_HAND,0,1,nil,e,tp,lv) -end -function c805000060.filter2(c,e,tp,lv) - local lv2=c:GetLevel() - return lv2==lv and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000060.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c805000060.filter1(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c805000060.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,c805000060.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c805000060.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then return end - local c=e:GetHandler() - local tg=Duel.GetFirstTarget() - local tc=Duel.SelectMatchingCard(tp,c805000060.filter2,tp,LOCATION_HAND,0,1,1,nil,e,tp,tg:GetLevel()) - if tc:GetCount()>0 and Duel.SpecialSummonStep(tc:GetFirst(),0,tp,tp,false,false,POS_FACEUP) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:GetFirst():RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE) - e2:SetReset(RESET_EVENT+0x1fe0000) - tc:GetFirst():RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DISABLE_EFFECT) - e3:SetReset(RESET_EVENT+0x1fe0000) - tc:GetFirst():RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_SET_DEFENCE_FINAL) - e4:SetValue(0) - e4:SetReset(RESET_EVENT+0x1fe0000) - tc:GetFirst():RegisterEffect(e4) - Duel.SpecialSummonComplete() - end -end \ No newline at end of file diff --git a/script/c805000061.lua b/script/c805000061.lua deleted file mode 100644 index 6e98c6e9..00000000 --- a/script/c805000061.lua +++ /dev/null @@ -1,58 +0,0 @@ ---異次元の古戦場－サルガッソ -function c805000061.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(805000061,0)) - e2:SetCategory(CATEGORY_DAMAGE) - e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_FIELD) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c805000061.damcon) - e2:SetTarget(c805000061.damtg) - e2:SetOperation(c805000061.damop) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(805000061,0)) - e3:SetCategory(CATEGORY_DAMAGE) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetRange(LOCATION_SZONE) - e3:SetProperty(EFFECT_FLAG_REPEAT+EFFECT_FLAG_PLAYER_TARGET) - e3:SetCountLimit(1) - e3:SetCondition(c805000061.damcon2) - e3:SetTarget(c805000061.damtg2) - e3:SetOperation(c805000061.damop2) - c:RegisterEffect(e3) -end -function c805000061.damcon(e,tp,eg,ep,ev,re,r,rp) - return eg:GetCount()==1 and eg:GetFirst():GetSummonType()==SUMMON_TYPE_XYZ -end -function c805000061.damtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - if rp==tp then Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,500) - else Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) end -end -function c805000061.damop(e,tp,eg,ep,ev,re,r,rp) - local ex,g,gc,dp,dv=Duel.GetOperationInfo(0,CATEGORY_DAMAGE) - Duel.Damage(dp,500,REASON_EFFECT) -end -function c805000061.damcon2(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetMatchingGroupCount(Card.IsType,Duel.GetTurnPlayer(),LOCATION_MZONE,0,nil,TYPE_XYZ)>0 -end -function c805000061.damtg2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(Duel.GetTurnPlayer()) - Duel.SetTargetParam(500) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,Duel.GetTurnPlayer(),500) -end -function c805000061.damop2(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.GetMatchingGroupCount(Card.IsType,Duel.GetTurnPlayer(),LOCATION_MZONE,0,nil,TYPE_XYZ)==0 then return end - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Damage(p,d,REASON_EFFECT) -end diff --git a/script/c805000062.lua b/script/c805000062.lua deleted file mode 100644 index 1273712d..00000000 --- a/script/c805000062.lua +++ /dev/null @@ -1,65 +0,0 @@ ---サルガッソの灯台 -function c805000062.initial_effect(c) - --reflect - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c805000062.condition) - e1:SetOperation(c805000062.operation) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetRange(LOCATION_GRAVE) - e2:SetCondition(c805000062.condition2) - c:RegisterEffect(e2) - --salvage - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(805000062,0)) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c805000062.thcon) - e3:SetTarget(c805000062.thtg) - e3:SetOperation(c805000062.thop) - c:RegisterEffect(e3) -end -function c805000062.condition(e,tp,eg,ep,ev,re,r,rp) - if not re:GetHandler():IsType(TYPE_SPELL) then return false end - local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_DAMAGE) - if ex and (cp==tp or cp==PLAYER_ALL) then return true end -end -function c805000062.condition2(e,tp,eg,ep,ev,re,r,rp) - if not re:GetHandler():IsCode(805000061) then return false - else return true end -end -function c805000062.operation(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CHANGE_DAMAGE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetTargetRange(1,0) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+RESET_CHAIN,1) - Duel.RegisterEffect(e1,tp) -end -function c805000062.thcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsReason(REASON_DESTROY) - and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) - and e:GetHandler():IsPreviousPosition(POS_FACEDOWN) -end -function c805000062.filter(c) - return c:GetCode()==805000061 and c:IsAbleToHand() -end -function c805000062.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsExistingMatchingCard(c805000062.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c805000062.thop(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetFirstMatchingCard(c805000062.filter,tp,LOCATION_DECK,0,nil) - if tg then - Duel.SendtoHand(tg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tg) - end -end diff --git a/script/c805000063.lua b/script/c805000063.lua deleted file mode 100644 index b93c624b..00000000 --- a/script/c805000063.lua +++ /dev/null @@ -1,53 +0,0 @@ ---武神降臨 -function c805000063.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c805000063.condition) - e1:SetTarget(c805000063.target) - e1:SetOperation(c805000063.activate) - c:RegisterEffect(e1) -end -function c805000063.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 - and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 -end -function c805000063.spfilter(c,e,tp) - return c:IsSetCard(0x86) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000063.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsExistingMatchingCard(c805000063.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) - and Duel.IsExistingMatchingCard(c805000063.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g1=Duel.SelectTarget(tp,c805000063.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - local g2=Duel.SelectTarget(tp,c805000063.spfilter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,g1:GetCount(),tp,LOCATION_GRAVE+LOCATION_REMOVED) -end -function c805000063.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 then return end - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local sg=g:Filter(Card.IsRelateToEffect,nil,e) - if sg:GetCount()~=2 then return end - local tc=sg:GetFirst() - while tc do - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) - --xyz limit - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e1:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) - e1:SetValue(c805000063.xyzlimit) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - tc=sg:GetNext() - end - Duel.SpecialSummonComplete() -end -function c805000063.xyzlimit(e,c) - if not c then return false end - return not c:IsRace(RACE_BEAST+RACE_BEASTWARRIOR+RACE_WINDBEAST) -end \ No newline at end of file diff --git a/script/c805000064.lua b/script/c805000064.lua deleted file mode 100644 index 0dc39a80..00000000 --- a/script/c805000064.lua +++ /dev/null @@ -1,37 +0,0 @@ ---垂直着陸 -function c805000064.initial_effect(c) - --activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c805000064.sptg) - e1:SetOperation(c805000064.spop) - c:RegisterEffect(e1) -end -function c805000064.filter(c) - return c:IsAttribute(ATTRIBUTE_WIND) and not c:IsType(TYPE_TOKEN) -end -function c805000064.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if Duel.GetFlagEffect(tp,805000064)~=0 then return false end - return Duel.CheckReleaseGroup(tp,c805000064.filter,1,nil) - end - local ct=Duel.GetMatchingGroupCount(c805000064.filter,tp,LOCATION_MZONE,0,nil) - local g=Duel.SelectReleaseGroup(tp,c805000064.filter,1,ct,nil) - Duel.Release(g,REASON_COST) - e:SetLabel(g:GetCount()) - Duel.RegisterFlagEffect(tp,805000064,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,g:GetCount(),tp,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,g:GetCount(),tp,0) -end -function c805000064.spop(e,tp,eg,ep,ev,re,r,rp) - local ct=e:GetLabel() - if Duel.GetLocationCount(tp,LOCATION_MZONE)-1 - and Duel.IsExistingTarget(c805000066.filter1,tp,LOCATION_MZONE,0,1,nil,e,tp) - and Duel.GetFlagEffect(tp,805000066)==0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,c805000066.filter1,tp,LOCATION_MZONE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) - Duel.RegisterFlagEffect(tp,805000066,RESET_PHASE+PHASE_END,0,1) -end -function c805000066.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0):Filter(Card.IsRace,tc,RACE_FIEND) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<-1 and g:GetCount()==0 then return end - local td=g:Select(tp,1,1,tc) - Duel.Remove(td,POS_FACEUP,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c805000066.filter2,tp,0x13,0,1,1,nil,e,tp,tc:GetLevel()) - if tg:GetCount()>0 then - Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c805000068.lua b/script/c805000068.lua deleted file mode 100644 index 724fd003..00000000 --- a/script/c805000068.lua +++ /dev/null @@ -1,35 +0,0 @@ ---黒白の波動 -function c805000068.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW+CATEGORY_REMOVE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetCondition(c805000068.condition) - e1:SetTarget(c805000068.target) - e1:SetOperation(c805000068.activate) - c:RegisterEffect(e1) -end -function c805000068.cfilter(c) - return c:IsFaceup() and c:GetOverlayGroup():IsExists(Card.IsType,1,nil,TYPE_SYNCHRO) -end -function c805000068.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c805000068.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) -end -function c805000068.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsAbleToRemove() end - if chk==0 then return Duel.IsPlayerCanDraw(tp,1) and - Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) -end -function c805000068.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) - Duel.Draw(tp,1,REASON_EFFECT) - end -end diff --git a/script/c805000070.lua b/script/c805000070.lua deleted file mode 100644 index 29e8525a..00000000 --- a/script/c805000070.lua +++ /dev/null @@ -1,32 +0,0 @@ ---逆さ眼鏡 -function c805000070.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetTarget(c805000070.target) - e1:SetOperation(c805000070.activate) - c:RegisterEffect(e1) -end -function c805000070.filter(c) - return c:IsFaceup() -end -function c805000070.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c805000070.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end -end -function c805000070.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c805000070.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(tc:GetAttack()/2) - tc:RegisterEffect(e1) - tc=g:GetNext() - end -end diff --git a/script/c805000071.lua b/script/c805000071.lua deleted file mode 100644 index 1ceb9d69..00000000 --- a/script/c805000071.lua +++ /dev/null @@ -1,35 +0,0 @@ ---エクシーズ・リベンジ・シャッフル -function c805000071.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_BE_BATTLE_TARGET) - e1:SetCondition(c805000071.condition) - e1:SetTarget(c805000071.target) - e1:SetOperation(c805000071.activate) - c:RegisterEffect(e1) -end -function c805000071.condition(e,tp,eg,ep,ev,re,r,rp) - local d=Duel.GetAttackTarget() - return d:IsFaceup() and d:IsControler(tp) and d:IsType(TYPE_XYZ) and d:IsAbleToDeck() -end -function c805000071.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and chkc:IsType(TYPE_XYZ) end - if chk==0 then return Duel.IsExistingTarget(Card.IsType,tp,LOCATION_GRAVE,0,1,nil,TYPE_XYZ) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,Card.IsType,tp,LOCATION_GRAVE,0,1,1,nil,TYPE_XYZ) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c805000071.activate(e,tp,eg,ep,ev,re,r,rp) - local d=Duel.GetAttackTarget() - Duel.SendtoDeck(d,nil,2,REASON_EFFECT) - Duel.BreakEffect() - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 and c:IsRelateToEffect(e) then - c:CancelToGrave() - Duel.Overlay(tc,Group.FromCards(c)) - end -end diff --git a/script/c805000072.lua b/script/c805000072.lua deleted file mode 100644 index f16f8ed9..00000000 --- a/script/c805000072.lua +++ /dev/null @@ -1,70 +0,0 @@ ---物理分身 -function c805000072.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c805000072.target) - e1:SetOperation(c805000072.activate) - c:RegisterEffect(e1) -end -function c805000072.cfilter(c,tp) - return c:IsFaceup() and c:IsType(TYPE_XYZ) - and Duel.IsPlayerCanSpecialSummonMonster(tp,805000089,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) -end -function c805000072.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c805000072.cfilter(chkc,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and - Duel.IsExistingTarget(c805000072.cfilter,tp,LOCATION_MZONE,0,1,nil,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - local g=Duel.SelectTarget(tp,c805000072.cfilter,tp,LOCATION_MZONE,0,1,1,nil,tp) - Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,0) -end -function c805000072.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if not tc:IsRelateToEffect(e) or tc:IsFacedown() then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=2 - or not Duel.IsPlayerCanSpecialSummonMonster(tp,805000089,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) then return end - for i=1,3 do - local token=Duel.CreateToken(tp,805000089) - Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetValue(tc:GetAttack()) - token:RegisterEffect(e1,true) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_UNRELEASABLE_NONSUM) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(1) - token:RegisterEffect(e2,true) - local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - token:RegisterEffect(e3,true) - --indestructable - local e4=Effect.CreateEffect(e:GetHandler()) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_LEAVE_FIELD) - e4:SetRange(LOCATION_MZONE) - e4:SetLabelObject(tc) - e4:SetCondition(c805000072.sdcon) - e4:SetOperation(c805000072.sdop) - token:RegisterEffect(e4,true) - end - Duel.SpecialSummonComplete() -end -function c805000072.sdcon(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - return tc and eg:IsContains(tc) -end -function c805000072.sdop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) -end \ No newline at end of file diff --git a/script/c805000073.lua b/script/c805000073.lua deleted file mode 100644 index 10b13078..00000000 --- a/script/c805000073.lua +++ /dev/null @@ -1,87 +0,0 @@ ---Vainー裏切りの嘲笑 -function c805000073.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DISABLE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c805000073.condition) - e1:SetTarget(c805000073.target) - e1:SetOperation(c805000073.activate) - c:RegisterEffect(e1) - --Destroy - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_LEAVE_FIELD) - e2:SetCondition(c805000073.descon) - e2:SetOperation(c805000073.desop) - c:RegisterEffect(e2) - --discard deck - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCategory(CATEGORY_DECKDES) - e3:SetProperty(EFFECT_FLAG_REPEAT) - e3:SetCountLimit(1) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetRange(LOCATION_SZONE) - e3:SetCondition(c805000073.condition2) - e3:SetTarget(c805000073.target2) - e3:SetOperation(c805000073.operation2) - c:RegisterEffect(e3) -end -function c805000073.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c805000073.filter(c,e) - return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsCanBeEffectTarget(e) -end -function c805000073.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return eg:IsContains(chkc) and c805000073.filter(chkc,e) end - if chk==0 then return eg:IsExists(c805000073.filter,1,nil,e) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=eg:FilterSelect(tp,c805000073.filter,1,1,nil,e) - Duel.SetTargetCard(g) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0) -end -function c805000073.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then - c:SetCardTarget(tc) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetCondition(c805000073.rcon) - tc:RegisterEffect(e1,true) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_ATTACK) - tc:RegisterEffect(e2,true) - end -end -function c805000073.rcon(e) - return e:GetOwner():IsHasCardTarget(e:GetHandler()) -end -function c805000073.descon(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetFirstCardTarget() - return tc and eg:IsContains(tc) -end -function c805000073.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(), REASON_EFFECT) -end -function c805000073.condition2(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetFirstCardTarget() - return tc -end -function c805000073.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,1-tp,3) -end -function c805000073.operation2(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.DiscardDeck(1-tp,3,REASON_EFFECT) -end diff --git a/script/c805000074.lua b/script/c805000074.lua deleted file mode 100644 index bae23bcc..00000000 --- a/script/c805000074.lua +++ /dev/null @@ -1,47 +0,0 @@ ---剣現する武神 -function c805000074.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c805000074.target) - e1:SetOperation(c805000074.activate) - c:RegisterEffect(e1) -end -function c805000074.filter1(c) - return c:IsSetCard(0x86) and c:IsAbleToHand() -end -function c805000074.filter2(c) - return c:IsSetCard(0x86) and c:IsAbleToGrave() -end -function c805000074.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return (chkc:IsLocation(LOCATION_GRAVE) or chkc:IsLocation(LOCATION_REMOVED)) end - if chk==0 then return Duel.IsExistingTarget(c805000074.filter1,tp,LOCATION_GRAVE,0,1,nil) - or Duel.IsExistingTarget(c805000074.filter2,tp,LOCATION_REMOVED,0,1,nil) end - local opt=0 - if Duel.IsExistingTarget(c805000074.filter1,tp,LOCATION_GRAVE,0,1,nil) - and Duel.IsExistingTarget(c805000074.filter2,tp,LOCATION_REMOVED,0,1,nil) then - opt=Duel.SelectOption(tp,aux.Stringid(110000000,5),aux.Stringid(110000000,6)) - else - if not Duel.IsExistingTarget(c805000074.filter1,tp,LOCATION_GRAVE,0,1,nil) then - opt=Duel.SelectOption(tp,aux.Stringid(110000000,6))+1 - else opt=Duel.SelectOption(tp,aux.Stringid(110000000,5)) end - end - e:SetLabel(opt) - if opt==0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c805000074.filter1,tp,LOCATION_GRAVE,0,1,1,nil) - else Duel.SelectTarget(tp,c805000074.filter2,tp,LOCATION_REMOVED,0,1,1,nil) end -end -function c805000074.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - if e:GetLabel()==0 then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - else - Duel.SendtoGrave(tc,REASON_EFFECT) - end - end -end \ No newline at end of file diff --git a/script/c805000075.lua b/script/c805000075.lua deleted file mode 100644 index 0115ce7a..00000000 --- a/script/c805000075.lua +++ /dev/null @@ -1,41 +0,0 @@ ---武神逐 -function c805000075.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCost(c805000075.cost) - e1:SetTarget(c805000075.target) - e1:SetOperation(c805000075.operation) - c:RegisterEffect(e1) -end -function c805000075.cosfilter(c) - return c:IsSetCard(0x86) and c:IsRace(RACE_BEASTWARRIOR) -end -function c805000075.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckReleaseGroup(tp,c805000075.cosfilter,1,nil) end - local g=Duel.SelectReleaseGroup(tp,c805000075.cosfilter,1,1,nil) - Duel.Release(g,REASON_COST) - e:SetLabelObject(g:GetFirst()) -end -function c805000075.filter(c,e,tp) - return c:IsSetCard(0x86) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000075.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c805000075.filter(chkc,e,tp) end - local ex=e:GetLabelObject() - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c805000075.filter,tp,LOCATION_GRAVE,0,1,ex,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c805000075.filter,tp,LOCATION_GRAVE,0,1,1,ex,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c805000075.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c805000076.lua b/script/c805000076.lua deleted file mode 100644 index b66db50f..00000000 --- a/script/c805000076.lua +++ /dev/null @@ -1,81 +0,0 @@ ---超音速波 -function c805000076.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetHintTiming(TIMING_DAMAGE_STEP) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c805000076.con) - e1:SetTarget(c805000076.target) - e1:SetOperation(c805000076.activate) - c:RegisterEffect(e1) -end -function c805000076.con(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() -end -function c805000076.filter(c) - return c:IsFaceup() and c:IsSetCard(0x101b) -end -function c805000076.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(c805000076.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c805000076.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - local e5=Effect.CreateEffect(e:GetHandler()) - e5:SetType(EFFECT_TYPE_FIELD) - e5:SetCode(EFFECT_CANNOT_ATTACK) - e5:SetProperty(EFFECT_FLAG_OATH) - e5:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e5:SetTarget(c805000076.ftarget) - e5:SetLabel(g:GetFirst():GetFieldID()) - e5:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e5,tp) -end -function c805000076.ftarget(e,c) - return e:GetLabel()~=c:GetFieldID() -end -function c805000076.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e1:SetValue(tc:GetBaseAttack()*2) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_IMMUNE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetValue(c805000076.efilter) - tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_PIERCE) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - tc:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_PHASE+PHASE_END) - e4:SetReset(RESET_PHASE+RESET_END) - e4:SetCountLimit(1) - e4:SetOperation(c805000076.desop) - e4:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - Duel.RegisterEffect(e4,tp) - end -end -function c805000076.efilter(e,te) - return te:IsActiveType(TYPE_SPELL+TYPE_TRAP) -end -function c805000076.desfilter(c) - return c:IsFaceup() and c:IsRace(RACE_MACHINE) -end -function c805000076.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c805000076.desfilter,tp,LOCATION_MZONE,0,nil) - Duel.Destroy(g,REASON_EFFECT) -end diff --git a/script/c805000077.lua b/script/c805000077.lua deleted file mode 100644 index 70217b54..00000000 --- a/script/c805000077.lua +++ /dev/null @@ -1,33 +0,0 @@ ---蟲惑の落とし穴 -function c805000077.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c805000077.condition) - e1:SetTarget(c805000077.target) - e1:SetOperation(c805000077.activate) - c:RegisterEffect(e1) -end -function c805000077.condition(e,tp,eg,ep,ev,re,r,rp) - return re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev) - and re:GetHandler():GetTurnID()==Duel.GetTurnCount() - and bit.band(re:GetHandler():GetSummonType(),SUMMON_TYPE_SPECIAL)~=0 and re:GetHandler():IsDestructable() -end -function c805000077.dfilter(c) - return c:GetTurnID()==Duel.GetTurnCount() and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)~=0 and c:IsDestructable() -end -function c805000077.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c805000077.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.NegateEffect(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end diff --git a/script/c805000078.lua b/script/c805000078.lua deleted file mode 100644 index ccc3295f..00000000 --- a/script/c805000078.lua +++ /dev/null @@ -1,35 +0,0 @@ ---エクシーズ・リバーサル -function c805000078.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_CONTROL) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1e0) - e1:SetTarget(c805000078.target) - e1:SetOperation(c805000078.activate) - c:RegisterEffect(e1) -end -function c805000078.filter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsAbleToChangeControler() -end -function c805000078.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c805000078.filter,tp,0,LOCATION_MZONE,1,nil) - and Duel.IsExistingTarget(c805000078.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g2=Duel.SelectTarget(tp,c805000078.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) - local g1=Duel.SelectTarget(tp,c805000078.filter,tp,LOCATION_MZONE,0,1,1,nil) - g1:Merge(g2) - Duel.SetOperationInfo(0,CATEGORY_CONTROL,g1,2,0,0) -end -function c805000078.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local a=g:GetFirst() - local b=g:GetNext() - if a:IsRelateToEffect(e) and b:IsRelateToEffect(e) then - Duel.SwapControl(a,b) - end -end diff --git a/script/c805000079.lua b/script/c805000079.lua deleted file mode 100644 index 560fc7f2..00000000 --- a/script/c805000079.lua +++ /dev/null @@ -1,37 +0,0 @@ ---シェイプシスター -function c805000079.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c805000079.spcost) - e1:SetTarget(c805000079.target) - e1:SetOperation(c805000079.activate) - c:RegisterEffect(e1) -end -function c805000079.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,805000079)==0 end - Duel.RegisterFlagEffect(tp,805000079,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c805000079.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and - Duel.IsPlayerCanSpecialSummonMonster(tp,805000079,0,0x21,0,0,2,RACE_FIEND,ATTRIBUTE_EARTH) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c805000079.activate(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 - or not Duel.IsPlayerCanSpecialSummonMonster(tp,805000079,0,0x21,0,0,2,RACE_FIEND,ATTRIBUTE_EARTH) then return end - c:AddTrapMonsterAttribute(true,ATTRIBUTE_EARTH,RACE_FIEND,2,0,0) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - c:TrapMonsterBlock() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_ADD_TYPE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(TYPE_TUNER) - c:RegisterEffect(e1) -end diff --git a/script/c805000080.lua b/script/c805000080.lua deleted file mode 100644 index da9012dc..00000000 --- a/script/c805000080.lua +++ /dev/null @@ -1,36 +0,0 @@ ---終焉の指名者 -function c805000080.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c805000080.condition) - e1:SetCost(c805000080.cost) - e1:SetOperation(c805000080.activate) - c:RegisterEffect(e1) -end -function c805000080.condition(e,tp,eg,ep,ev,re,r,rp) - return re:IsActiveType(TYPE_SPELL) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) -end -function c805000080.cfilter(c) - return c:IsType(TYPE_SPELL) and c:IsDiscardable() -end -function c805000080.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c805000080.cfilter,tp,LOCATION_HAND,0,1,nil) end - local g=Duel.DiscardHand(tp,c805000080.cfilter,1,1,REASON_COST+REASON_DISCARD,nil):GetFirst() - e:SetLabel(g:GetCode()) -end -function c805000080.activate(e,tp,eg,ep,ev,re,r,rp) - local g=e:GetLabel() - 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(c805000080.aclimit) - e1:SetLabel(g) - Duel.RegisterEffect(e1,tp) -end -function c805000080.aclimit(e,re,tp) - return re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsCode(e:GetLabel()) -end diff --git a/script/c805000087.lua b/script/c805000087.lua deleted file mode 100644 index 3c669e12..00000000 --- a/script/c805000087.lua +++ /dev/null @@ -1,56 +0,0 @@ ---Angel of Zera -function c805000087.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) - c:EnableReviveLimit() - --removed - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_REMOVE) - e1:SetOperation(c805000087.rmop) - c:RegisterEffect(e1) - --special summon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(805000087,0)) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetRange(LOCATION_REMOVED) - e2:SetCondition(c805000087.condition) - e2:SetTarget(c805000087.target) - e2:SetOperation(c805000087.operation) - c:RegisterEffect(e2) - --atk - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetValue(c805000087.value) - c:RegisterEffect(e3) -end -function c805000087.rmop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsFacedown() then return end - e:GetHandler():RegisterFlagEffect(805000087,RESET_EVENT+0x1fe0000,0,0) -end -function c805000087.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetFlagEffect(805000087)~=0 -end -function c805000087.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,805000088)==0 end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) - Duel.RegisterFlagEffect(tp,805000088,RESET_PHASE+PHASE_END,0,1) -end -function c805000087.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK) - end -end -function c805000087.value(e,c) - return Duel.GetMatchingGroupCount(Card.IsFaceup,e:GetHandler():GetControler(),0,LOCATION_REMOVED,nil)*100 -end diff --git a/script/c805000090.lua b/script/c805000090.lua deleted file mode 100644 index fab4a53b..00000000 --- a/script/c805000090.lua +++ /dev/null @@ -1,57 +0,0 @@ ---ＣＮｏ．１０６溶岩掌 ジャイアント・ハンド・レッド -function c805000090.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,5),3) - c:EnableReviveLimit() - --negate activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000090,0)) - e1:SetCategory(CATEGORY_DISABLE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetType(EFFECT_TYPE_QUICK_F) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c805000090.condition) - e1:SetTarget(c805000090.target) - e1:SetOperation(c805000090.operation) - c:RegisterEffect(e1) -end -function c805000090.condition(e,tp,eg,ep,ev,re,r,rp,chk) - local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) - local c=e:GetHandler() - return not c:IsStatus(STATUS_BATTLE_DESTROYED) and not c:IsDisabled() - and (loc==LOCATION_SZONE or loc==LOCATION_MZONE) and re and Duel.IsChainDisablable(ev) - and c:GetOverlayGroup():IsExists(Card.IsSetCard,1,nil,0x48) -end -function c805000090.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_EFFECT) end - Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) -end -function c805000090.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:RemoveOverlayCard(tp,1,1,REASON_EFFECT) then - local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c) - local tc=g:GetFirst() - while tc do - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE_EFFECT) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - if tc:IsType(TYPE_TRAPMONSTER) then - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_DISABLE_TRAPMONSTER) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e3) - end - tc=g:GetNext() - end - end -end \ No newline at end of file diff --git a/script/c805000100.lua b/script/c805000100.lua deleted file mode 100644 index f96c02fb..00000000 --- a/script/c805000100.lua +++ /dev/null @@ -1,91 +0,0 @@ ---デーモンの将星 -function c805000100.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c805000100.spcon) - e1:SetOperation(c805000100.spop) - e1:SetValue(1) - c:RegisterEffect(e1) - -- - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(805000100,0)) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(c805000100.descon) - e2:SetTarget(c805000100.destg) - e2:SetOperation(c805000100.desop) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(805000100,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetCondition(c805000100.condition) - e3:SetTarget(c805000100.sptg) - e3:SetOperation(c805000100.spop2) - c:RegisterEffect(e3) -end -function c805000100.filter(c) - return c:IsFaceup() and c:IsSetCard(0x45) -end -function c805000100.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetFlagEffect(tp,805000100)==0 - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000100.filter,tp,LOCATION_ONFIELD,0,1,nil) -end -function c805000100.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.RegisterFlagEffect(tp,805000100,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetReset(RESET_EVENT+0xff0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) -end -function c805000100.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 -end -function c805000100.desfilter(c) - return c:IsSetCard(0x45) and c:IsDestructable() -end -function c805000100.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsControler(tp) and c805000100.desfilter(chkc) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c805000100.desfilter,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c805000100.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c805000100.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE -end -function c805000100.filter2(c,e,tp) - return c:GetLevel()==6 and c:IsSetCard(0x45) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c805000100.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000100.filter2,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c805000100.spop2(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000100.filter2,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end -end \ No newline at end of file diff --git a/script/c805000101.lua b/script/c805000101.lua deleted file mode 100644 index 1cab4bcd..00000000 --- a/script/c805000101.lua +++ /dev/null @@ -1,60 +0,0 @@ ---ギャラクシー・ドラグーン -function c805000101.initial_effect(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(0,LOCATION_MZONE) - e1:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e1:SetTarget(c805000101.tg) - e1:SetValue(c805000101.vala) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_UPDATE_ATTACK) - e3:SetCondition(c805000101.condtion) - e3:SetValue(1000) - c:RegisterEffect(e3) - --disable - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e4:SetCode(EVENT_BE_BATTLE_TARGET) - e4:SetRange(LOCATION_MZONE) - e4:SetCondition(c805000101.discon) - e4:SetOperation(c805000101.disop) - c:RegisterEffect(e4) -end -function c805000101.tg(e,c) - return not (c:IsRace(RACE_DRAGON) and c:IsFaceup()) -end -function c805000101.vala(e,c) - return c==e:GetHandler() -end -function c805000101.condtion(e) - local ph=Duel.GetCurrentPhase() - local bc=e:GetHandler():GetBattleTarget() - return (ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) and bc and bc:IsRace(RACE_DRAGON) -end -function c805000101.discon(e,tp,eg,ep,ev,re,r,rp) - local ec=e:GetHandler() - return ec and (ec==Duel.GetAttacker() or ec==Duel.GetAttackTarget()) and ec:GetBattleTarget() -end -function c805000101.disop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetBattleTarget() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) - tc:RegisterEffect(e2) -end diff --git a/script/c805000102.lua b/script/c805000102.lua deleted file mode 100644 index edecee3a..00000000 --- a/script/c805000102.lua +++ /dev/null @@ -1,30 +0,0 @@ ---地獄大百足 -function c805000102.initial_effect(c) - --summon with no tribute - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000102,0)) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c805000102.ntcon) - e1:SetOperation(c805000102.ntop) - c:RegisterEffect(e1) -end -function c805000102.ntcon(e,c) - if c==nil then return true end - return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0,nil)==0 - and Duel.GetFieldGroupCount(1-c:GetControler(),LOCATION_MZONE,0,nil)>0 - and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c805000102.ntop(e,tp,eg,ep,ev,re,r,rp,c) - --change base attack - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e1:SetRange(LOCATION_MZONE) - e1:SetReset(RESET_EVENT+0xff0000) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(1300) - c:RegisterEffect(e1) -end \ No newline at end of file diff --git a/script/c805000200.lua b/script/c805000200.lua deleted file mode 100644 index bef5455b..00000000 --- a/script/c805000200.lua +++ /dev/null @@ -1,61 +0,0 @@ ---蒼眼の銀龍 -function c805000200.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsType,TYPE_NORMAL),1) - c:EnableReviveLimit() - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000200,0)) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetOperation(c805000200.spop) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_PHASE+PHASE_STANDBY) - e2:SetProperty(EFFECT_FLAG_REPEAT) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c805000200.tdcon) - e2:SetTarget(c805000200.tdtg) - e2:SetOperation(c805000200.tdop) - c:RegisterEffect(e2) -end -function c805000200.tdcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp -end -function c805000200.filter(c,e,tp) - return c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000200.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000200.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c805000200.tdop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000200.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end -function c805000200.spop(e,tp,eg,ep,ev,re,r,rp) - --cannot be target - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(LOCATION_MZONE,0) - e2:SetTarget(c805000200.targetd) - e2:SetReset(RESET_PHASE+PHASE_END,2) - e2:SetValue(1) - Duel.RegisterEffect(e2,tp) - local e3=e2:Clone() - e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - Duel.RegisterEffect(e3,tp) -end -function c805000200.targetd(e,c) - return c:IsRace(RACE_DRAGON) -end diff --git a/script/c805000201.lua b/script/c805000201.lua deleted file mode 100644 index c153980e..00000000 --- a/script/c805000201.lua +++ /dev/null @@ -1,55 +0,0 @@ ---暴風竜の防人 -function c805000201.initial_effect(c) - --equip - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000201,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetRange(LOCATION_HAND+LOCATION_MZONE) - e1:SetTarget(c805000201.eqtg) - e1:SetOperation(c805000201.eqop) - c:RegisterEffect(e1) - --destroy sub - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) - e3:SetCode(EFFECT_DESTROY_SUBSTITUTE) - e3:SetValue(1) - c:RegisterEffect(e3) -end -function c805000201.filter(c) - return c:IsFaceup() and c:IsType(TYPE_NORMAL) and c:IsRace(RACE_DRAGON) -end -function c805000201.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c805000201.filter(chkc) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 - and Duel.IsExistingTarget(c805000201.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - Duel.SelectTarget(tp,c805000201.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c805000201.eqop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - local tc=Duel.GetFirstTarget() - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:GetControler()~=tp or tc:IsFacedown() or not tc:IsRelateToEffect(e) then - Duel.SendtoGrave(c,REASON_EFFECT) - return - end - Duel.Equip(tp,c,tc,true) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_EQUIP_LIMIT) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(c805000201.eqlimit) - c:RegisterEffect(e1) - --atkup - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_PIERCE) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) -end -function c805000201.eqlimit(e,c) - return c:IsType(TYPE_NORMAL) and c:IsRace(RACE_DRAGON) -end \ No newline at end of file diff --git a/script/c805000202.lua b/script/c805000202.lua deleted file mode 100644 index a8031ec2..00000000 --- a/script/c805000202.lua +++ /dev/null @@ -1,64 +0,0 @@ ---青き眼の乙女 -function c805000202.initial_effect(c) - --pos change - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(805000202,0)) - e1:SetCategory(CATEGORY_POSITION+CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) - e1:SetCode(EVENT_BE_BATTLE_TARGET) - e1:SetCost(c805000202.cost) - e1:SetOperation(c805000202.posop1) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(805000202,0)) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetCode(EVENT_CHAINING) - e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c805000202.tgcon) - e2:SetCost(c805000202.cost) - e2:SetOperation(c805000202.posop2) - c:RegisterEffect(e2) -end -function c805000202.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,805000202)==0 end - Duel.RegisterFlagEffect(tp,805000202,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c805000202.filter(c,e,tp) - return c:IsCode(89631139) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c805000202.posop1(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.NegateAttack() - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c805000202.filter,tp,0x13,0,1,nil,e,tp) then - Duel.BreakEffect() - local g=Duel.SelectMatchingCard(tp,c805000202.filter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end - end - end -end -function c805000202.tgcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end - if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end - local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) - return tg:IsContains(c) and Duel.IsExistingTarget(c805000202.filter,tp,0x13,0,1,nil,e,tp) -end -function c805000202.posop2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c805000202.filter,tp,0x13,0,1,nil,e,tp) then - local g=Duel.SelectMatchingCard(tp,c805000202.filter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end - end - end -end \ No newline at end of file diff --git a/script/c805000203.lua b/script/c805000203.lua deleted file mode 100644 index 074bb271..00000000 --- a/script/c805000203.lua +++ /dev/null @@ -1,37 +0,0 @@ ---竜の霊廟 -function c805000203.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOGRAVE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetLabel(0) - e1:SetCost(c805000203.cost) - e1:SetTarget(c805000203.target) - e1:SetOperation(c805000203.activate) - c:RegisterEffect(e1) -end -function c805000203.cost(e,tp,eg,ep,ev,re,r,rp,chk) - e:SetLabel(100) - if chk==0 then return Duel.GetFlagEffect(tp,805000203)==0 end - Duel.RegisterFlagEffect(tp,805000203,RESET_PHASE+PHASE_END,0,1) -end -function c805000203.tgfilter(c) - return c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() and c:IsRace(RACE_DRAGON) -end -function c805000203.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c805000203.tgfilter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c805000203.activate(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c805000203.tgfilter,tp,LOCATION_DECK,0,1,1,nil) - if Duel.SendtoGrave(g,REASON_EFFECT)>0 then - local dc=Duel.GetOperatedGroup():FilterCount(Card.IsType,nil,TYPE_NORMAL) - if dc>0 and Duel.IsExistingMatchingCard(c805000203.tgfilter,tp,LOCATION_DECK,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(110000000,7)) then - g=Duel.SelectMatchingCard(tp,c805000203.tgfilter,tp,LOCATION_DECK,0,1,1,nil) - Duel.BreakEffect() - Duel.SendtoGrave(g,REASON_EFFECT) - end - end -end diff --git a/script/c805000204.lua b/script/c805000204.lua deleted file mode 100644 index ad3879b6..00000000 --- a/script/c805000204.lua +++ /dev/null @@ -1,104 +0,0 @@ ---竜魂の城 -function c805000204.initial_effect(c) - c:SetUniqueOnField(1,0,805000204) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,TIMING_END_PHASE) - e1:SetTarget(c805000204.target1) - e1:SetOperation(c805000204.operation) - c:RegisterEffect(e1) - --remove - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_FREE_CHAIN) - e2:SetHintTiming(0,TIMING_DAMAGE_STEP) - e2:SetCost(c805000204.cost2) - e2:SetTarget(c805000204.target2) - e2:SetOperation(c805000204.operation) - c:RegisterEffect(e2) - --spsummmon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c805000204.spcon) - e3:SetTarget(c805000204.sptg) - e3:SetOperation(c805000204.spop) - c:RegisterEffect(e3) -end -function c805000204.cosfilter(c) - return c:IsRace(RACE_DRAGON) and c:IsAbleToRemoveAsCost() -end -function c805000204.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end - if chk==0 then return true end - if Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingTarget(c805000204.cosfilter,tp,LOCATION_GRAVE,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(110000000,8)) then - e:SetProperty(EFFECT_FLAG_CARD_TARGET) - e:SetCategory(CATEGORY_ATKCHANGE) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local cg=Duel.SelectMatchingCard(tp,c805000204.cosfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(cg,POS_FACEUP,REASON_COST) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,g:GetCount(),0,0) - e:GetHandler():RegisterFlagEffect(805000204,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - e:SetLabel(1) - else e:SetProperty(0) end -end -function c805000204.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - local cg=Duel.SelectMatchingCard(tp,c805000204.cosfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.Remove(cg,POS_FACEUP,REASON_COST) -end -function c805000204.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) end - if chk==0 then return e:GetHandler():GetFlagEffect(805000204)==0 - and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingTarget(c805000204.cosfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,g:GetCount(),0,0) - e:GetHandler():RegisterFlagEffect(805000204,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - e:SetLabel(1) -end -function c805000204.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) or e:GetLabel()==0 then return end - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+RESET_END) - e1:SetValue(700) - tc:RegisterEffect(e1) - end -end -function c805000204.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsPreviousPosition(POS_FACEUP) and c:IsPreviousLocation(LOCATION_ONFIELD) -end -function c805000204.filter(c,e,tp) - return c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000204.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c805000204.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c805000204.filter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c805000204.filter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c805000204.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end - diff --git a/script/c805000205.lua b/script/c805000205.lua deleted file mode 100644 index 2f880f32..00000000 --- a/script/c805000205.lua +++ /dev/null @@ -1,32 +0,0 @@ ---銀龍の轟咆 -function c805000205.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c805000205.cost) - e1:SetTarget(c805000205.target) - e1:SetOperation(c805000205.activate) - c:RegisterEffect(e1) -end -function c805000205.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,805000205)==0 end - Duel.RegisterFlagEffect(tp,805000205,RESET_PHASE+PHASE_END,EFFECT_FLAG_OATH,1) -end -function c805000205.filter(c,e,tp) - return c:IsRace(RACE_DRAGON) and c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c805000205.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c805000205.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c805000205.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c805000205.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c80513550.lua b/script/c80513550.lua index 75c07dc2..a216c310 100644 --- a/script/c80513550.lua +++ b/script/c80513550.lua @@ -26,6 +26,7 @@ function c80513550.initial_effect(c) e3:SetCategory(CATEGORY_SPECIAL_SUMMON) e3:SetCode(EVENT_PHASE+PHASE_STANDBY) e3:SetRange(LOCATION_GRAVE) + e3:SetCountLimit(1) e3:SetCondition(c80513550.spcon) e3:SetCost(c80513550.spcost) e3:SetTarget(c80513550.sptg) diff --git a/script/c80532587.lua b/script/c80532587.lua old mode 100755 new mode 100644 index 96cabb56..4b1c621d --- a/script/c80532587.lua +++ b/script/c80532587.lua @@ -1,93 +1,93 @@ ---旧神ヌトス -function c80532587.initial_effect(c) - c:SetSPSummonOnce(80532587) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsType,TYPE_SYNCHRO),aux.FilterBoolFunction(Card.IsType,TYPE_XYZ),false) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - c:RegisterEffect(e1) - --special summon rule - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_EXTRA) - e2:SetCondition(c80532587.sprcon) - e2:SetOperation(c80532587.sprop) - c:RegisterEffect(e2) - --special summon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(80532587,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c80532587.sptg) - e3:SetOperation(c80532587.spop) - c:RegisterEffect(e3) - --destroy - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(80532587,1)) - e4:SetCategory(CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_TO_GRAVE) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e4:SetTarget(c80532587.destg) - e4:SetOperation(c80532587.desop) - c:RegisterEffect(e4) -end -function c80532587.sprfilter1(c,tp,fc) - return c:IsType(TYPE_SYNCHRO) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial(fc) - and Duel.IsExistingMatchingCard(c80532587.sprfilter2,tp,LOCATION_MZONE,0,1,c,fc) -end -function c80532587.sprfilter2(c,fc) - return c:IsType(TYPE_XYZ) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial(fc) -end -function c80532587.sprcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 - and Duel.IsExistingMatchingCard(c80532587.sprfilter1,tp,LOCATION_MZONE,0,1,nil,tp,c) -end -function c80532587.sprop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,c80532587.sprfilter1,tp,LOCATION_MZONE,0,1,1,nil,tp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g2=Duel.SelectMatchingCard(tp,c80532587.sprfilter2,tp,LOCATION_MZONE,0,1,1,g1:GetFirst(),c) - g1:Merge(g2) - c:SetMaterial(g1) - Duel.SendtoGrave(g1,REASON_COST) -end -function c80532587.spfilter(c,e,tp) - return c:GetLevel()==4 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c80532587.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c80532587.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_HAND) -end -function c80532587.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c80532587.spfilter,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 -function c80532587.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c80532587.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end +--旧神ヌトス +function c80532587.initial_effect(c) + c:SetSPSummonOnce(80532587) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsType,TYPE_SYNCHRO),aux.FilterBoolFunction(Card.IsType,TYPE_XYZ),false) + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e1) + --special summon rule + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_EXTRA) + e2:SetCondition(c80532587.sprcon) + e2:SetOperation(c80532587.sprop) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(80532587,0)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetCountLimit(1) + e3:SetRange(LOCATION_MZONE) + e3:SetTarget(c80532587.sptg) + e3:SetOperation(c80532587.spop) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(80532587,1)) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e4:SetTarget(c80532587.destg) + e4:SetOperation(c80532587.desop) + c:RegisterEffect(e4) +end +function c80532587.sprfilter1(c,tp,fc) + return c:IsType(TYPE_SYNCHRO) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial(fc) + and Duel.IsExistingMatchingCard(c80532587.sprfilter2,tp,LOCATION_MZONE,0,1,c,fc) +end +function c80532587.sprfilter2(c,fc) + return c:IsType(TYPE_XYZ) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial(fc) +end +function c80532587.sprcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 + and Duel.IsExistingMatchingCard(c80532587.sprfilter1,tp,LOCATION_MZONE,0,1,nil,tp,c) +end +function c80532587.sprop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g1=Duel.SelectMatchingCard(tp,c80532587.sprfilter1,tp,LOCATION_MZONE,0,1,1,nil,tp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g2=Duel.SelectMatchingCard(tp,c80532587.sprfilter2,tp,LOCATION_MZONE,0,1,1,g1:GetFirst(),c) + g1:Merge(g2) + c:SetMaterial(g1) + Duel.SendtoGrave(g1,REASON_COST) +end +function c80532587.spfilter(c,e,tp) + return c:GetLevel()==4 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c80532587.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c80532587.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_HAND) +end +function c80532587.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c80532587.spfilter,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 +function c80532587.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c80532587.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c80549379.lua b/script/c80549379.lua index 628f413a..99cc2b8b 100644 --- a/script/c80549379.lua +++ b/script/c80549379.lua @@ -2,25 +2,23 @@ function c80549379.initial_effect(c) --send replace local e1=Effect.CreateEffect(c) - e1:SetCode(EFFECT_SEND_REPLACE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c80549379.reptg) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_TO_GRAVE_REDIRECT_CB) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetCondition(c80549379.repcon) e1:SetOperation(c80549379.repop) c:RegisterEffect(e1) end function c80549379.filter(c) return c:IsFaceup() and c:IsSetCard(0x29) and c:IsRace(RACE_WINDBEAST) end -function c80549379.reptg(e,tp,eg,ep,ev,re,r,rp,chk) +function c80549379.repcon(e) local c=e:GetHandler() - if chk==0 then return c:IsFaceup() and c:GetDestination()==LOCATION_GRAVE and c:IsReason(REASON_DESTROY) end - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 - or not Duel.IsExistingMatchingCard(c80549379.filter,tp,LOCATION_MZONE,0,1,e:GetHandler()) then return false end - return Duel.SelectEffectYesNo(tp,c) + local tp=c:GetControler() + return c:IsFaceup() and c:IsReason(REASON_DESTROY) + and Duel.IsExistingMatchingCard(c80549379.filter,tp,LOCATION_MZONE,0,1,c) end -function c80549379.repop(e,tp,eg,ep,ev,re,r,rp,chk) +function c80549379.repop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectMatchingCard(tp,c80549379.filter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) diff --git a/script/c80551130.lua b/script/c80551130.lua index 4741de72..4dae9758 100644 --- a/script/c80551130.lua +++ b/script/c80551130.lua @@ -39,9 +39,10 @@ end function c80551130.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)==0 then return end + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() end end function c80551130.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c80555062.lua b/script/c80555062.lua index 12982852..f03d02b3 100644 --- a/script/c80555062.lua +++ b/script/c80555062.lua @@ -12,7 +12,7 @@ function c80555062.initial_effect(c) c:RegisterEffect(e1) end function c80555062.con(e) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end function c80555062.target(e,c) return c~=e:GetHandler() and c:IsSetCard(0x88) diff --git a/script/c80559548.lua b/script/c80559548.lua index 006454f3..607a067f 100644 --- a/script/c80559548.lua +++ b/script/c80559548.lua @@ -39,7 +39,7 @@ function c80559548.atkop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) if tc:IsRelateToEffect(e) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c80560728.lua b/script/c80560728.lua new file mode 100644 index 00000000..58bccee4 --- /dev/null +++ b/script/c80560728.lua @@ -0,0 +1,95 @@ +--ディメンション・ミラージュ +function c80560728.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c80560728.target) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetRange(LOCATION_SZONE) + e2:SetCode(EVENT_CHAIN_SOLVED) + e2:SetCondition(c80560728.tgcon) + e2:SetOperation(c80560728.tgop) + e2:SetLabelObject(e1) + c:RegisterEffect(e2) + --mulit attack + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(80560728,0)) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_DAMAGE_STEP_END) + e3:SetRange(LOCATION_SZONE) + e3:SetCondition(c80560728.atcon) + e3:SetCost(c80560728.atcost) + e3:SetOperation(c80560728.atop) + c:RegisterEffect(e3) + --Destroy + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e4:SetRange(LOCATION_SZONE) + e4:SetCode(EVENT_LEAVE_FIELD) + e4:SetCondition(c80560728.descon) + e4:SetOperation(c80560728.desop) + c:RegisterEffect(e4) +end +function c80560728.filter(c) + return c:IsPosition(POS_FACEUP_ATTACK) +end +function c80560728.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c80560728.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c80560728.filter,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c80560728.filter,tp,0,LOCATION_MZONE,1,1,nil) +end +function c80560728.tgcon(e,tp,eg,ep,ev,re,r,rp) + return re==e:GetLabelObject() +end +function c80560728.tgop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS):GetFirst() + if c:IsRelateToEffect(re) and tc:IsFaceup() and tc:IsRelateToEffect(re) then + c:SetCardTarget(tc) + end +end +function c80560728.atcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=c:GetFirstCardTarget() + local at=Duel.GetAttacker() + local d=Duel.GetAttackTarget() + return at==tc and d and d:IsRelateToBattle() +end +function c80560728.costfilter(c) + return c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() +end +function c80560728.atcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c80560728.costfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c80560728.costfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c80560728.atop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local tc=c:GetFirstCardTarget() + if tc:IsRelateToBattle() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_MUST_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_FIRST_ATTACK) + tc:RegisterEffect(e2) + Duel.ChainAttack() + end +end +function c80560728.descon(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetHandler():GetFirstCardTarget() + return tc and eg:IsContains(tc) +end +function c80560728.desop(e,tp,eg,ep,ev,re,r,rp) + Duel.Destroy(e:GetHandler(),REASON_EFFECT) +end diff --git a/script/c8057630.lua b/script/c8057630.lua index 8758ab41..19ec8d43 100644 --- a/script/c8057630.lua +++ b/script/c8057630.lua @@ -40,9 +40,10 @@ end function c8057630.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK)==0 then return end + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() end end function c8057630.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c806000003.lua b/script/c806000003.lua deleted file mode 100644 index 6fdf0e54..00000000 --- a/script/c806000003.lua +++ /dev/null @@ -1,51 +0,0 @@ ---マリスボラス・スプーン -function c806000003.initial_effect(c) - --damage - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c806000003.spcon) - e1:SetTarget(c806000003.sptg) - e1:SetOperation(c806000003.spop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) -end -function c806000003.filter(c,tp) - return c:IsSetCard(0x8b) and c:GetControler()==tp and not c:IsCode(806000003) -end -function c806000003.spcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c806000003.filter,1,nil,tp) -end -function c806000003.spfilter(c,e,tp) - return c:IsRace(RACE_FIEND) and c:GetLevel()==2 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c806000003.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetFlagEffect(tp,806000003)==0 - and Duel.IsExistingMatchingCard(c806000003.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) - Duel.RegisterFlagEffect(tp,806000003,RESET_PHASE+PHASE_END,0,1) -end -function c806000003.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c806000003.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - local c=e:GetHandler() - local tc=g:GetFirst() - if not tc then return end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0xfe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0xfe0000) - tc:RegisterEffect(e2) - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) -end \ No newline at end of file diff --git a/script/c806000004.lua b/script/c806000004.lua deleted file mode 100644 index 1d2364b5..00000000 --- a/script/c806000004.lua +++ /dev/null @@ -1,34 +0,0 @@ ---マリスボラス・フォーク -function c806000004.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(806000004,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetCost(c806000004.spcost) - e1:SetTarget(c806000004.sptg) - e1:SetOperation(c806000004.spop) - c:RegisterEffect(e1) -end -function c806000004.cfilter(c) - return c:IsRace(RACE_FIEND) and c:IsDiscardable() and c:IsAbleToGraveAsCost() -end -function c806000004.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c806000004.cfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c806000004.cfilter,tp,LOCATION_HAND,0,1,1,e:GetHandler()) - Duel.SendtoGrave(g,REASON_COST) -end -function c806000004.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c806000004.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c806000005.lua b/script/c806000005.lua deleted file mode 100644 index 959886fb..00000000 --- a/script/c806000005.lua +++ /dev/null @@ -1,29 +0,0 @@ ---マリスボラス・ナイフ -function c806000005.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(806000005,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c806000005.sptg) - e1:SetOperation(c806000005.spop) - c:RegisterEffect(e1) -end -function c806000005.filter(c,e,tp) - return c:IsSetCard(0x8b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(806000005) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c806000005.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c806000005.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) -end -function c806000005.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c806000005.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - end -end \ No newline at end of file diff --git a/script/c806000008.lua b/script/c806000008.lua deleted file mode 100644 index 60b2822c..00000000 --- a/script/c806000008.lua +++ /dev/null @@ -1,43 +0,0 @@ ---暗躍のドルイド・ウィド -function c806000008.initial_effect(c) - --set - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c806000008.setcon) - e1:SetTarget(c806000008.settg) - e1:SetOperation(c806000008.setop) - c:RegisterEffect(e1) -end -function c806000008.setcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) -end -function c806000008.filter(c) - return c:GetType()==TYPE_SPELL+TYPE_CONTINUOUS and c:IsSSetable() -end -function c806000008.settg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.GetFlagEffect(tp,806000008)==0 - and Duel.IsExistingMatchingCard(c806000008.filter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.RegisterFlagEffect(tp,806000008,RESET_PHASE+PHASE_END,0,1) -end -function c806000008.setop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET) - local g=Duel.SelectMatchingCard(tp,c806000008.filter,tp,LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then - Duel.SSet(tp,g:GetFirst()) - Duel.ConfirmCards(1-tp,g) - 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,0) - e1:SetValue(c806000008.aclimit) - e1:SetLabel(g:GetFirst()) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - end -end -function c806000008.aclimit(e,re,tp) - return re:GetHandler()==e:GetLabel() -end \ No newline at end of file diff --git a/script/c806000009.lua b/script/c806000009.lua deleted file mode 100644 index b0d895fd..00000000 --- a/script/c806000009.lua +++ /dev/null @@ -1,41 +0,0 @@ ---暗躍のドルイド・ドリュース -function c806000009.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetTarget(c806000009.sptg) - e1:SetOperation(c806000009.spop) - c:RegisterEffect(e1) -end -function c806000009.filter(c,e,tp) - return (c:GetAttack()==0 or c:GetDefence()==0) and c:GetLevel()==4 and c:IsAttribute(ATTRIBUTE_DARK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c806000009.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c806000009.filter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp) - and Duel.GetFlagEffect(tp,806000009)==0 end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) - Duel.RegisterFlagEffect(tp,806000009,RESET_PHASE+PHASE_END,0,1) -end -function c806000009.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c806000009.filter,tp,LOCATION_GRAVE,0,1,1,c,e,tp) - local tc=g:GetFirst() - if not tc then return end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DISABLE) - e1:SetReset(RESET_EVENT+0xfe0000) - tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DISABLE_EFFECT) - e2:SetReset(RESET_EVENT+0xfe0000) - tc:RegisterEffect(e2) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) -end diff --git a/script/c806000016.lua b/script/c806000016.lua deleted file mode 100644 index 376ce07b..00000000 --- a/script/c806000016.lua +++ /dev/null @@ -1,60 +0,0 @@ ---ゴーストリック・ランタン -function c806000016.initial_effect(c) - --sumlimit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetCondition(c806000016.excon) - c:RegisterEffect(e1) - --turn set - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c806000016.target) - e2:SetOperation(c806000016.operation) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_ATTACK_ANNOUNCE) - e3:SetRange(LOCATION_HAND) - e3:SetCondition(c806000016.spcon) - e3:SetTarget(c806000016.sptg) - e3:SetOperation(c806000016.spop) - c:RegisterEffect(e3) -end -function c806000016.exfilter(c) - return c:IsFaceup() and c:IsSetCard(0x8c) -end -function c806000016.excon(e) - return not Duel.IsExistingMatchingCard(c806000016.exfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end -function c806000016.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsCanTurnSet() and c:GetFlagEffect(806000016)==0 end - c:RegisterFlagEffect(806000016,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) - Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0) -end -function c806000016.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) - end -end -function c806000016.spcon(e,tp,eg,ep,ev,re,r,rp) - return (Duel.GetAttackTarget()==nil or (Duel.GetAttackTarget():IsSetCard(0x8c) and Duel.GetAttackTarget():IsFaceup())) - and Duel.GetAttacker():IsControler(1-tp) -end -function c806000016.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c806000016.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.NegateAttack(tc) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) - end -end \ No newline at end of file diff --git a/script/c806000017.lua b/script/c806000017.lua deleted file mode 100644 index cab66600..00000000 --- a/script/c806000017.lua +++ /dev/null @@ -1,65 +0,0 @@ ---ゴーストリック・スペクター -function c806000017.initial_effect(c) - --sumlimit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetCondition(c806000017.excon) - c:RegisterEffect(e1) - --turn set - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c806000017.target) - e2:SetOperation(c806000017.operation) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DRAW) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e3:SetRange(LOCATION_HAND) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c806000017.spcon) - e3:SetTarget(c806000017.sptg) - e3:SetOperation(c806000017.spop) - c:RegisterEffect(e3) -end -function c806000017.exfilter(c) - return c:IsFaceup() and c:IsSetCard(0x8c) -end -function c806000017.excon(e) - return not Duel.IsExistingMatchingCard(c806000017.exfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end -function c806000017.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsCanTurnSet() and c:GetFlagEffect(806000017)==0 end - c:RegisterFlagEffect(806000017,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) - Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0) -end -function c806000017.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) - end -end -function c806000017.spfilter(c,tp) - return c:GetReasonPlayer()~=tp and c:IsSetCard(0x8c) and c:IsType(TYPE_MONSTER) and c:GetOwner()==tp - and (c:IsReason(REASON_EFFECT) or c:IsReason(REASON_BATTLE)) -end -function c806000017.spcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c806000017.spfilter,1,nil,tp) -end -function c806000017.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c806000017.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) - Duel.Draw(tp,1,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c806000018.lua b/script/c806000018.lua deleted file mode 100644 index 2f2276d5..00000000 --- a/script/c806000018.lua +++ /dev/null @@ -1,63 +0,0 @@ ---ゴーストリックの魔女 -function c806000018.initial_effect(c) - --sumlimit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetCondition(c806000018.excon) - c:RegisterEffect(e1) - --turn set - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(110000000,14)) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c806000018.target) - e2:SetOperation(c806000018.operation) - c:RegisterEffect(e2) - --spsummon - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(110000000,15)) - e3:SetCategory(CATEGORY_POSITION) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c806000018.sptg) - e3:SetOperation(c806000018.spop) - c:RegisterEffect(e3) -end -function c806000018.exfilter(c) - return c:IsFaceup() and c:IsSetCard(0x8c) -end -function c806000018.excon(e) - return not Duel.IsExistingMatchingCard(c806000018.exfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end -function c806000018.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsCanTurnSet() and c:GetFlagEffect(806000018)==0 end - c:RegisterFlagEffect(806000018,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) - Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0) -end -function c806000018.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) - end -end -function c806000018.filter(c) - return c:IsFaceup() and c:IsCanTurnSet() -end -function c806000018.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c806000018.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c806000018.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c806000018.filter,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c806000018.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) - end -end \ No newline at end of file diff --git a/script/c806000019.lua b/script/c806000019.lua deleted file mode 100644 index 0b19b51b..00000000 --- a/script/c806000019.lua +++ /dev/null @@ -1,64 +0,0 @@ ---ゴーストリックの雪女 -function c806000019.initial_effect(c) - --sumlimit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetCondition(c806000019.excon) - c:RegisterEffect(e1) - --turn set - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c806000019.target) - e2:SetOperation(c806000019.operation) - c:RegisterEffect(e2) - --spsummon - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_POSITION) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_BATTLE_DESTROYED) - e4:SetCondition(c806000019.spcon2) - e4:SetTarget(c806000019.sptg2) - e4:SetOperation(c806000019.spop2) - c:RegisterEffect(e4) -end -function c806000019.exfilter(c) - return c:IsFaceup() and c:IsSetCard(0x8c) -end -function c806000019.excon(e) - return not Duel.IsExistingMatchingCard(c806000019.exfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end -function c806000019.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsCanTurnSet() and c:GetFlagEffect(806000019)==0 end - c:RegisterFlagEffect(806000019,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) - Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0) -end -function c806000019.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) - end -end -function c806000019.spcon2(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) -end -function c806000019.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) -if chk==0 then return true end - local rc=e:GetHandler():GetReasonCard() - rc:CreateEffectRelation(e) - Duel.SetOperationInfo(0,CATEGORY_POSITION,rc,1,0,0) -end -function c806000019.spop2(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetHandler():GetReasonCard() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) - e1:SetReset(RESET_EVENT+0x1fc0000) - tc:RegisterEffect(e1,true) - end -end \ No newline at end of file diff --git a/script/c806000020.lua b/script/c806000020.lua deleted file mode 100644 index 118b367f..00000000 --- a/script/c806000020.lua +++ /dev/null @@ -1,65 +0,0 @@ ---ゴーストリック・キョンシー -function c806000020.initial_effect(c) - --sumlimit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetCondition(c806000020.excon) - c:RegisterEffect(e1) - --turn set - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c806000020.target) - e2:SetOperation(c806000020.operation) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e3:SetCode(EVENT_FLIP) - e3:SetTarget(c806000020.shtg) - e3:SetOperation(c806000020.shop) - c:RegisterEffect(e3) -end -function c806000020.exfilter(c) - return c:IsFaceup() and c:IsSetCard(0x8c) -end -function c806000020.excon(e) - return not Duel.IsExistingMatchingCard(c806000020.exfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end -function c806000020.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsCanTurnSet() and c:GetFlagEffect(806000020)==0 end - c:RegisterFlagEffect(806000020,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) - Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0) -end -function c806000020.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) - end -end -function c806000020.filter(c,lv) - return c:GetLevel()<=lv and c:IsSetCard(0x8c) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c806000020.ctfilter(c) - return c:IsSetCard(0x8c) and c:IsFaceup() -end -function c806000020.shtg(e,tp,eg,ep,ev,re,r,rp,chk) - local lv=Duel.GetMatchingGroupCount(c806000020.ctfilter,tp,LOCATION_MZONE,0,nil) - if chk==0 then return Duel.GetFlagEffect(tp,806000020)==0 and Duel.IsExistingMatchingCard(c806000020.filter,tp,LOCATION_DECK,0,1,nil,lv) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) - Duel.RegisterFlagEffect(tp,806000020,RESET_PHASE+PHASE_END,0,1) -end -function c806000020.shop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local lv=Duel.GetMatchingGroupCount(c806000020.ctfilter,tp,LOCATION_MZONE,0,nil) - local g=Duel.SelectMatchingCard(tp,c806000020.filter,tp,LOCATION_DECK,0,1,1,nil,lv) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c806000021.lua b/script/c806000021.lua deleted file mode 100644 index be3956fe..00000000 --- a/script/c806000021.lua +++ /dev/null @@ -1,63 +0,0 @@ ---ゴーストリック・シュタイン -function c806000021.initial_effect(c) - --sumlimit - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CANNOT_SUMMON) - e1:SetCondition(c806000021.excon) - c:RegisterEffect(e1) - --turn set - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_POSITION) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c806000021.target) - e2:SetOperation(c806000021.operation) - c:RegisterEffect(e2) - --tohand - local e4=Effect.CreateEffect(c) - e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_BATTLE_DAMAGE) - e4:SetCondition(c806000021.condition) - e4:SetTarget(c806000021.target2) - e4:SetOperation(c806000021.operation2) - c:RegisterEffect(e4) -end -function c806000021.exfilter(c) - return c:IsFaceup() and c:IsSetCard(0x8c) -end -function c806000021.excon(e) - return not Duel.IsExistingMatchingCard(c806000021.exfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) -end -function c806000021.target(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsCanTurnSet() and c:GetFlagEffect(806000021)==0 end - c:RegisterFlagEffect(806000021,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) - Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0) -end -function c806000021.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) - end -end -function c806000021.condition(e,tp,eg,ep,ev,re,r,rp) - return ep~=tp -end -function c806000021.filter(c) - return c:IsSetCard(0x8c) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c806000021.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.GetFlagEffect(tp,806000021)==0 and Duel.IsExistingMatchingCard(c806000021.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) - Duel.RegisterFlagEffect(tp,806000021,RESET_PHASE+PHASE_END,0,1) -end -function c806000021.operation2(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c806000021.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c806000022.lua b/script/c806000022.lua deleted file mode 100644 index 15697b19..00000000 --- a/script/c806000022.lua +++ /dev/null @@ -1,95 +0,0 @@ ---武神－ミカズチ -function c806000022.initial_effect(c) - c:SetUniqueOnField(1,0,806000022) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DELAY) - e1:SetRange(LOCATION_HAND) - e1:SetCode(EVENT_DESTROYED) - e1:SetCondition(c806000022.spcon) - e1:SetTarget(c806000022.sptg) - e1:SetOperation(c806000022.spop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_BATTLE_DESTROYED) - c:RegisterEffect(e2) - --to hand - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e3:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetCountLimit(1) - e3:SetCondition(c806000022.thcon) - e3:SetTarget(c806000022.thtg) - e3:SetOperation(c806000022.thop) - c:RegisterEffect(e3) - if c806000022.counter==nil then - c806000022.counter=true - c806000022[0]=0 - c806000022[1]=0 - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e4:SetCode(EVENT_PHASE_START+PHASE_DRAW) - e4:SetOperation(c806000022.resetcount) - Duel.RegisterEffect(e4,0) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) - e5:SetCode(EVENT_TO_GRAVE) - e5:SetOperation(c806000022.addcount) - Duel.RegisterEffect(e5,0) - end -end -function c806000022.resetcount(e,tp,eg,ep,ev,re,r,rp) - c806000022[0]=0 - c806000022[1]=0 -end -function c806000022.addcount(e,tp,eg,ep,ev,re,r,rp) - local c=eg:GetFirst() - while c~=nil do - local p=c:GetPreviousControler() - if c:IsSetCard(0x88) and c:IsType(TYPE_MONSTER) and c:IsPreviousLocation(LOCATION_HAND) - then c806000022[p]=c806000022[p]+1 end - c=eg:GetNext() - end -end -function c806000022.cfilter(c,tp) - return c:IsPreviousLocation(LOCATION_MZONE) and c:IsLocation(LOCATION_GRAVE) - and c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousControler()==tp - and c:IsSetCard(0x88) and c:IsRace(RACE_BEASTWARRIOR) -end -function c806000022.spcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c806000022.cfilter,1,nil,tp) -end -function c806000022.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsRelateToEffect(e) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) -end -function c806000022.spop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end -end -function c806000022.thcon(e,tp,eg,ep,ev,re,r,rp) - return c806000022[tp]>0 -end -function c806000022.filter(c) - return c:IsSetCard(0x88) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c806000022.thtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c806000022.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) -end -function c806000022.thop(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectMatchingCard(tp,c806000022.filter,tp,LOCATION_DECK,0,1,1,nil) - if g:GetCount()>0 then - Duel.SendtoHand(g,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c806000023.lua b/script/c806000023.lua deleted file mode 100644 index 9bbb5a8d..00000000 --- a/script/c806000023.lua +++ /dev/null @@ -1,40 +0,0 @@ ---武神器－ヤタ -function c806000023.initial_effect(c) - --disable attack - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_BE_BATTLE_TARGET) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c806000023.condition) - e1:SetCost(c806000023.cost) - e1:SetTarget(c806000023.target) - e1:SetOperation(c806000023.operation) - c:RegisterEffect(e1) -end -function c806000023.condition(e,tp,eg,ep,ev,re,r,rp) - local at=Duel.GetAttackTarget() - return at and at:IsControler(tp) and at:IsFaceup() and at:IsSetCard(0x88) and at:IsRace(RACE_BEASTWARRIOR) -end -function c806000023.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,806000023)==0 and e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) - Duel.RegisterFlagEffect(tp,806000023,RESET_PHASE+PHASE_END,0,1) -end -function c806000023.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tg=Duel.GetAttacker() - if chkc then return chkc==tg end - if chk==0 then return tg:IsOnField() and tg:IsCanBeEffectTarget(e) end - Duel.SetTargetCard(tg) - local dam=tg:GetAttack()/2 - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) -end -function c806000023.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsAttackable() then - if Duel.NegateAttack(tc) then - Duel.Damage(1-tp,tc:GetAttack()/2,REASON_EFFECT) - end - end -end diff --git a/script/c806000024.lua b/script/c806000024.lua deleted file mode 100644 index ee151a53..00000000 --- a/script/c806000024.lua +++ /dev/null @@ -1,39 +0,0 @@ ---武神器—オハバリ -function c806000024.initial_effect(c) - --direct attack - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c806000024.condition) - e1:SetCost(c806000024.cost) - e1:SetTarget(c806000024.target) - e1:SetOperation(c806000024.operation) - c:RegisterEffect(e1) -end -function c806000024.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnCount()~=1 and Duel.GetCurrentPhase()==PHASE_MAIN1 -end -function c806000024.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end - Duel.SendtoGrave(e:GetHandler(),REASON_COST) -end -function c806000024.filter(c) - return c:IsFaceup() and c:IsSetCard(0x88) and not c:IsHasEffect(EFFECT_PIERCE) -end -function c806000024.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c806000024.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c806000024.filter,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c806000024.filter,tp,LOCATION_MZONE,0,1,1,nil) -end -function c806000024.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_PIERCE) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end -end \ No newline at end of file diff --git a/script/c806000025.lua b/script/c806000025.lua deleted file mode 100644 index 043c02b4..00000000 --- a/script/c806000025.lua +++ /dev/null @@ -1,44 +0,0 @@ ---武神器—イクタ -function c806000025.initial_effect(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c806000025.descon) - e1:SetCost(c806000025.descost) - e1:SetTarget(c806000025.destg) - e1:SetOperation(c806000025.desop) - c:RegisterEffect(e1) -end -function c806000025.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x88) and c:IsRace(RACE_BEASTWARRIOR) -end -function c806000025.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c806000025.cfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c806000025.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c806000025.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsPosition(POS_FACEUP_ATTACK) end - if chk==0 then return Duel.IsExistingTarget(Card.IsPosition,tp,0,LOCATION_MZONE,1,nil,POS_FACEUP_ATTACK) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUPATTACK) - local g=Duel.SelectTarget(tp,Card.IsPosition,tp,0,LOCATION_MZONE,1,1,nil,POS_FACEUP_ATTACK) - Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) -end -function c806000025.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsPosition(POS_FACEUP_ATTACK) then - if Duel.ChangePosition(tc,POS_FACEUP_DEFENCE)>0 then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_DEFENCE_FINAL) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e1) - end - end -end \ No newline at end of file diff --git a/script/c806000026.lua b/script/c806000026.lua deleted file mode 100644 index c8097d07..00000000 --- a/script/c806000026.lua +++ /dev/null @@ -1,42 +0,0 @@ ---武神器—ハチ -function c806000026.initial_effect(c) - --destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(806000026,0)) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_GRAVE) - e1:SetCondition(c806000026.descon) - e1:SetCost(c806000026.descost) - e1:SetTarget(c806000026.destg) - e1:SetOperation(c806000026.desop) - c:RegisterEffect(e1) -end -function c806000026.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x88) and c:IsRace(RACE_BEASTWARRIOR) -end -function c806000026.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c806000026.cfilter,tp,LOCATION_MZONE,0,1,nil) -end -function c806000026.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,806000026)==0 and e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) - Duel.RegisterFlagEffect(tp,806000026,RESET_PHASE+PHASE_END,0,1) -end -function c806000026.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() -end -function c806000026.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c806000026.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c806000026.filter,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c806000026.filter,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c806000026.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c806000046.lua b/script/c806000046.lua deleted file mode 100644 index 9bf0e7b2..00000000 --- a/script/c806000046.lua +++ /dev/null @@ -1,70 +0,0 @@ ---CNo.96 ブラック・ストーム -function c806000046.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),3),4) - c:EnableReviveLimit() - --battle indestructable - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - c:RegisterEffect(e1) - --damage - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_AVAILABLE_BD) - e2:SetCode(EVENT_DAMAGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c806000046.condition) - e2:SetOperation(c806000046.operation) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetCode(EVENT_ATTACK_ANNOUNCE) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c806000046.atkcost) - e3:SetTarget(c806000046.atktg) - e3:SetOperation(c806000046.atkop) - c:RegisterEffect(e3) -end -function c806000046.condition(e,tp,eg,ep,ev,re,r,rp) - return ep==tp and bit.band(r,REASON_BATTLE)~=0 - and (Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()) -end -function c806000046.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Damage(1-tp,ev,REASON_EFFECT) -end -function c806000046.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(806000046)==0 and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) - e:GetHandler():RegisterFlagEffect(806000046,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE,0,1) -end -function c806000046.atktg(e,tp,eg,ep,ev,re,r,rp,chk) - local at=Duel.GetAttackTarget() - if chk==0 then return ((at and at:IsFaceup() and Duel.GetAttacker()==e:GetHandler()) or at==e:GetHandler()) - and not e:GetHandler():IsStatus(STATUS_CHAINING) end - Duel.SetTargetCard(e:GetHandler():GetBattleTarget()) -end -function c806000046.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local atk=tc:GetBaseAttack() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - if c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(atk) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end - end -end diff --git a/script/c806000047.lua b/script/c806000047.lua deleted file mode 100644 index 81810bd1..00000000 --- a/script/c806000047.lua +++ /dev/null @@ -1,39 +0,0 @@ ---No.65 裁断魔人 ジャッジ・バスター -function c806000047.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),2),2) - c:EnableReviveLimit() - --negate activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c806000047.condition) - e1:SetCost(c806000047.cost) - e1:SetTarget(c806000047.target) - e1:SetOperation(c806000047.operation) - c:RegisterEffect(e1) -end -function c806000047.condition(e,tp,eg,ep,ev,re,r,rp,chk) - return re~=e and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) - and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev) and re:GetHandlerPlayer()~=tp -end -function c806000047.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,2,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,2,2,REASON_COST) -end -function c806000047.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c806000047.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.NegateActivation(ev) then - Duel.Damage(1-tp,500,REASON_EFFECT) - end -end - diff --git a/script/c806000048.lua b/script/c806000048.lua deleted file mode 100644 index e453434d..00000000 --- a/script/c806000048.lua +++ /dev/null @@ -1,59 +0,0 @@ ---CNo.65 裁断魔王ジャッジ・デビル -function c806000048.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),3),3) - c:EnableReviveLimit() - -- - local e1=Effect.CreateEffect(c) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c806000048.cost) - e1:SetTarget(c806000048.target) - e1:SetOperation(c806000048.operation) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EFFECT_CANNOT_ACTIVATE) - e2:SetRange(LOCATION_MZONE) - e2:SetTargetRange(0,LOCATION_MZONE) - e2:SetCondition(c806000048.accon) - e2:SetValue(c806000048.aclimit1) - c:RegisterEffect(e2) -end -function c806000048.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c806000048.filter(c) - return c:IsFaceup() and (c:GetAttack()>0 or c:GetDefence()>0) -end -function c806000048.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c806000048.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c806000048.filter,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,c806000048.filter,tp,0,LOCATION_MZONE,1,1,nil) -end -function c806000048.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and (tc:GetAttack()>0 or tc:GetDefence()>0) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(-1000) - e1:SetReset(RESET_EVENT+0x1fe0000) - tc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - tc:RegisterEffect(e2) - end -end -function c806000048.accon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetOverlayGroup():IsExists(Card.IsCode,1,nil,806000047) -end -function c806000048.aclimit1(e,re,tp) - return re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsType(TYPE_EFFECT) and re:GetHandler():IsLocation(LOCATION_MZONE) -end diff --git a/script/c806000052.lua b/script/c806000052.lua deleted file mode 100644 index 0fd1bbaf..00000000 --- a/script/c806000052.lua +++ /dev/null @@ -1,80 +0,0 @@ ---ゴーストリック・アルカード -function c806000052.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,3),2) - c:EnableReviveLimit() - --target - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_FIELD) - e5:SetRange(LOCATION_MZONE) - e5:SetTargetRange(LOCATION_MZONE,0) - e5:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e5:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e5:SetTarget(c806000052.tglimit) - e5:SetValue(1) - c:RegisterEffect(e5) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetDescription(aux.Stringid(806000052,0)) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetCountLimit(1) - e2:SetRange(LOCATION_MZONE) - e2:SetCost(c806000052.cost) - e2:SetTarget(c806000052.target) - e2:SetOperation(c806000052.operation) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(806000052,0)) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCondition(c806000052.condition) - e3:SetTarget(c806000052.target2) - e3:SetOperation(c806000052.operation2) - c:RegisterEffect(e3) -end -function c806000052.tglimit(e,c) - return (c:IsFaceup() and c:IsSetCard(0x8c) and c~=e:GetHandler()) or c:IsFacedown() -end -function c806000052.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetFlagEffect(tp,806000052)==0 and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) - Duel.RegisterFlagEffect(tp,806000052,RESET_PHASE+PHASE_END,0,1) -end -function c806000052.filter(c) - return c:IsFacedown() and c:IsDestructable() -end -function c806000052.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c806000052.filter(chkc) end - if chk==0 then return Duel.IsExistingMatchingCard(c806000052.filter,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c806000052.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local dg=Duel.SelectMatchingCard(tp,c806000052.filter,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.HintSelection(dg) - Duel.Destroy(dg,REASON_EFFECT) -end -function c806000052.condition(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsReason(REASON_RETURN) -end -function c806000052.filter2(c) - return c:IsSetCard(0x8c) and c:IsAbleToHand() -end -function c806000052.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c806000052.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c806000052.filter2,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c806000052.filter2,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) -end -function c806000052.operation2(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if Duel.SendtoHand(g,nil,REASON_EFFECT)>0 then - Duel.ConfirmCards(1-tp,g) - end -end \ No newline at end of file diff --git a/script/c806000053.lua b/script/c806000053.lua deleted file mode 100644 index 84eb96a6..00000000 --- a/script/c806000053.lua +++ /dev/null @@ -1,68 +0,0 @@ ---武神帝―カグツチ -function c806000053.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.XyzFilterFunctionF(c,aux.FilterBoolFunction(Card.IsRace,RACE_BEASTWARRIOR),4),2) - c:EnableReviveLimit() - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DECKDES) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e1:SetCode(EVENT_SPSUMMON_SUCCESS) - e1:SetCondition(c806000053.condition) - e1:SetTarget(c806000053.target) - e1:SetOperation(c806000053.operation) - c:RegisterEffect(e1) - --destroy replace - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EFFECT_DESTROY_REPLACE) - e2:SetRange(LOCATION_MZONE) - e2:SetTarget(c806000053.reptg) - e2:SetValue(c806000053.repval) - e2:SetOperation(c806000053.repop) - c:RegisterEffect(e2) -end -function c806000053.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ -end -function c806000053.cfilter(c) - return c:IsLocation(LOCATION_GRAVE) and c:IsSetCard(0x88) and c:IsType(TYPE_MONSTER) -end -function c806000053.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,5) end - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,5) -end -function c806000053.operation(e,tp,eg,ep,ev,re,r,rp) - Duel.DiscardDeck(tp,5,REASON_EFFECT) - local g=Duel.GetOperatedGroup() - local ct=g:FilterCount(c806000053.cfilter,nil) - if ct==0 then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1ff0000) - e1:SetValue(ct*100) - e:GetHandler():RegisterEffect(e1) -end -function c806000053.repfilter(c,tp) - return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsSetCard(0x88) -end -function c806000053.reptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return eg:IsExists(c806000053.repfilter,1,nil,tp) end - if Duel.SelectYesNo(tp,aux.Stringid(25341652,1)) and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_EFFECT) then - local g=eg:Filter(c806000053.repfilter,nil,tp) - Duel.SetTargetCard(g) - return true - else return false end -end -function c806000053.repval(e,c) - return c806000053.repfilter(c,e:GetHandlerPlayer()) -end -function c806000053.repop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local tc=g:GetFirst() - while tc and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_EFFECT) do - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_EFFECT) - tc=g:GetNext() - end - g:DeleteGroup() -end diff --git a/script/c806000062.lua b/script/c806000062.lua deleted file mode 100644 index 3d9e3d1f..00000000 --- a/script/c806000062.lua +++ /dev/null @@ -1,50 +0,0 @@ ---ゴーストリック・ハウス -function c806000062.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e1) - --cannot attack - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetTarget(c806000062.tglimit) - e2:SetValue(1) - c:RegisterEffect(e2) - -- - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_DIRECT_ATTACK) - e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e3:SetRange(LOCATION_SZONE) - e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e3:SetTarget(c806000062.tglimit2) - c:RegisterEffect(e3) - -- - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_CHANGE_DAMAGE) - e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e4:SetRange(LOCATION_SZONE) - e4:SetTargetRange(1,1) - e4:SetValue(c806000062.val) - c:RegisterEffect(e4) -end -function c806000062.tglimit(e,c) - return c:IsFacedown() and c:IsDefencePos() -end -function c806000062.tglimit2(e,c) - return not Duel.IsExistingMatchingCard(Card.IsFaceup,Duel.GetTurnPlayer(),0,LOCATION_MZONE,1,nil) -end -function c806000062.val(e,re,dam,r,rp,rc) - if bit.band(r,REASON_EFFECT)~=0 then - return dam/2 - else if Duel.GetAttacker():IsSetCard(0x8c) and Duel.GetAttacker():GetControler()==Duel.GetTurnPlayer() then - return dam - else return dam/2 end - end -end diff --git a/script/c806000063.lua b/script/c806000063.lua deleted file mode 100644 index f8103b8f..00000000 --- a/script/c806000063.lua +++ /dev/null @@ -1,30 +0,0 @@ ---鏡鳴する武神 -function c806000063.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c806000063.condition) - e1:SetOperation(c806000063.operation) - c:RegisterEffect(e1) -end -function c806000063.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x88) and c:IsRace(RACE_BEASTWARRIOR) -end -function c806000063.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c806000063.cfilter,tp,LOCATION_MZONE,0,1,nil) - and Duel.GetMatchingGroupCount(nil,tp,LOCATION_MZONE,0,nil)0 then - local ct=Duel.GetMatchingGroup(c806000074.filter,tp,0,LOCATION_MZONE,nil) - local sg=g:Filter(Card.IsSetCard,nil,0x8c) - local sc=ct:Select(tp,1,sg:GetCount(),nil) - Duel.ChangePosition(sc,POS_FACEDOWN_DEFENCE) - end -end \ No newline at end of file diff --git a/script/c806000090.lua b/script/c806000090.lua deleted file mode 100644 index 8fd412f0..00000000 --- a/script/c806000090.lua +++ /dev/null @@ -1,65 +0,0 @@ ---陰謀の盾 -function c806000090.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_EQUIP) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c806000090.target) - e1:SetOperation(c806000090.operation) - c:RegisterEffect(e1) -end -function c806000090.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end - if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) - local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0) -end -function c806000090.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsLocation(LOCATION_SZONE) then return end - local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:GetControler()==c:GetControler() then - Duel.Equip(tp,c,tc) - c:CancelToGrave() - --draw - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_EQUIP) - e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT) - e1:SetCountLimit(1) - e1:SetValue(c806000090.valcon) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - --Equip limit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EQUIP_LIMIT) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetValue(c806000090.eqlimit) - e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE) - e3:SetCode(EVENT_PRE_BATTLE_DAMAGE) - e3:SetCondition(c806000090.rdcon) - e3:SetOperation(c806000090.rdop) - e3:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e3) - end -end -function c806000090.valcon(e,re,r,rp) - return bit.band(r,REASON_BATTLE)~=0 -end -function c806000090.eqlimit(e,c) - return c:GetControler()==e:GetOwnerPlayer() -end -function c806000090.rdcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return ep==tp and (c==Duel.GetAttacker() or c==Duel.GetAttackTarget()) -end -function c806000090.rdop(e,tp,eg,ep,ev,re,r,rp) - Duel.ChangeBattleDamage(ep,0) -end - diff --git a/script/c80604091.lua b/script/c80604091.lua index 43a3a3b9..94be5bdf 100644 --- a/script/c80604091.lua +++ b/script/c80604091.lua @@ -30,10 +30,10 @@ function c80604091.cost1(e,tp,eg,ep,ev,re,r,rp,chk) e:SetLabel(0) local tn=Duel.GetTurnPlayer() local ph=Duel.GetCurrentPhase() - if (tn==tp and ph~=PHASE_MAIN1 and ph~=PHASE_MAIN2) or (tn~=tp and ph~=PHASE_BATTLE) then return false end - if Duel.GetLP(tp)<=500 then return end - if Duel.IsExistingMatchingCard(c80604091.filter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) - and Duel.SelectYesNo(tp,aux.Stringid(80604091,1)) then + if ((tn==tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)) or (tn~=tp and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE)) + and Duel.CheckLPCost(tp,500) + and Duel.IsExistingMatchingCard(c80604091.filter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) + and Duel.SelectYesNo(tp,aux.Stringid(80604091,1)) then Duel.PayLPCost(tp,500) e:SetLabel(1) end @@ -52,7 +52,7 @@ function c80604091.activate1(e,tp,eg,ep,ev,re,r,rp) local tc=g:GetFirst() if tc then if tc:IsSummonable(true,nil) and (not tc:IsMSetable(true,nil) - or Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENCE)==POS_FACEUP_ATTACK) then + or Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) then Duel.Summon(tp,tc,true,nil) else Duel.MSet(tp,tc,true,nil) end end @@ -60,7 +60,7 @@ end function c80604091.condition2(e,tp,eg,ep,ev,re,r,rp) local tn=Duel.GetTurnPlayer() local ph=Duel.GetCurrentPhase() - return (tn==tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)) or (tn~=tp and ph==PHASE_BATTLE) + return (tn==tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)) or (tn~=tp and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) end function c80604091.cost2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.CheckLPCost(tp,500) @@ -85,7 +85,7 @@ function c80604091.activate2(e,tp,eg,ep,ev,re,r,rp) if tc then local s1=tc:IsSummonable(true,nil) local s2=tc:IsMSetable(true,nil) - if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENCE)==POS_FACEUP_ATTACK) or not s2 then + if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) or not s2 then Duel.Summon(tp,tc,true,nil) else Duel.MSet(tp,tc,true,nil) diff --git a/script/c80604092.lua b/script/c80604092.lua deleted file mode 100644 index 173d1d1f..00000000 --- a/script/c80604092.lua +++ /dev/null @@ -1,94 +0,0 @@ ---血の代償(EU) -function c80604092.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c80604092.cost1) - e1:SetTarget(c80604092.target1) - e1:SetOperation(c80604092.activate1) - c:RegisterEffect(e1) - --instant - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(80604092,0)) - e3:SetCategory(CATEGORY_SUMMON) - e3:SetType(EFFECT_TYPE_QUICK_O) - e3:SetRange(LOCATION_SZONE) - e3:SetCode(EVENT_FREE_CHAIN) - e3:SetCondition(c80604092.condition2) - e3:SetCost(c80604092.cost2) - e3:SetTarget(c80604092.target2) - e3:SetOperation(c80604092.activate2) - c:RegisterEffect(e3) -end -function c80604092.filter(c) - return c:IsSummonable(true,nil) or c:IsMSetable(true,nil) -end -function c80604092.cost1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - e:SetLabel(0) - local tn=Duel.GetTurnPlayer() - local ph=Duel.GetCurrentPhase() - if (tn==tp and ph~=PHASE_MAIN1 and ph~=PHASE_MAIN2) or (tn~=tp and ph~=PHASE_BATTLE) then return false end - if Duel.GetLP(tp)<=500 then return end - if Duel.IsExistingMatchingCard(c80604092.filter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) - and Duel.SelectYesNo(tp,aux.Stringid(80604092,1)) then - Duel.PayLPCost(tp,500) - e:SetLabel(1) - end -end -function c80604092.target1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - if e:GetLabel()~=1 then return end - Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0) -end -function c80604092.activate1(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsRelateToEffect(e) then return end - if e:GetLabel()~=1 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON) - local g=Duel.SelectMatchingCard(tp,c80604092.filter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil) - local tc=g:GetFirst() - if tc then - if tc:IsSummonable(true,nil) and (not tc:IsMSetable(true,nil) - or Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENCE)==POS_FACEUP_ATTACK) then - Duel.Summon(tp,tc,true,nil) - else Duel.MSet(tp,tc,true,nil) end - end -end -function c80604092.condition2(e,tp,eg,ep,ev,re,r,rp) - local tn=Duel.GetTurnPlayer() - local ph=Duel.GetCurrentPhase() - return (tn==tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)) or (tn~=tp and ph==PHASE_BATTLE) -end -function c80604092.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.CheckLPCost(tp,500) - else Duel.PayLPCost(tp,500) end -end -function c80604092.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - if not e:GetHandler():IsStatus(STATUS_CHAINING) then - local ct=Duel.GetMatchingGroupCount(c80604092.filter,tp,LOCATION_HAND+LOCATION_MZONE,0,nil) - e:SetLabel(ct) - return ct>0 - else return e:GetLabel()>0 end - end - e:SetLabel(e:GetLabel()-1) - Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0) -end -function c80604092.activate2(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON) - local g=Duel.SelectMatchingCard(tp,c80604092.filter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil) - local tc=g:GetFirst() - if tc then - local s1=tc:IsSummonable(true,nil) - local s2=tc:IsMSetable(true,nil) - if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENCE)==POS_FACEUP_ATTACK) or not s2 then - Duel.Summon(tp,tc,true,nil) - else - Duel.MSet(tp,tc,true,nil) - end - end -end diff --git a/script/c8062132.lua b/script/c8062132.lua index 02817864..5f0ecd9e 100644 --- a/script/c8062132.lua +++ b/script/c8062132.lua @@ -1,5 +1,6 @@ --毒蛇神ヴェノミナーガ function c8062132.initial_effect(c) + c:EnableCounterPermit(0x11) c:EnableReviveLimit() --spsummon condition local e1=Effect.CreateEffect(c) @@ -32,13 +33,13 @@ function c8062132.initial_effect(c) e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e4:SetRange(LOCATION_MZONE) e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e4:SetValue(aux.tgval) + e4:SetValue(1) c:RegisterEffect(e4) local e5=e4:Clone() e5:SetCode(EFFECT_IMMUNE_EFFECT) e5:SetValue(c8062132.efilter) c:RegisterEffect(e5) - --win + --counter local e6=Effect.CreateEffect(c) e6:SetDescription(aux.Stringid(8062132,1)) e6:SetCategory(CATEGORY_COUNTER) @@ -47,6 +48,14 @@ function c8062132.initial_effect(c) e6:SetCondition(c8062132.ctcon) e6:SetOperation(c8062132.ctop) c:RegisterEffect(e6) + --win + local e7=Effect.CreateEffect(c) + e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e7:SetCode(EVENT_ADJUST) + e7:SetRange(LOCATION_MZONE) + e7:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e7:SetOperation(c8062132.winop) + c:RegisterEffect(e7) end function c8062132.efilter(e,te) return te:GetOwner()~=e:GetOwner() @@ -81,8 +90,12 @@ function c8062132.ctcon(e,tp,eg,ep,ev,re,r,rp) end function c8062132.ctop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - c:AddCounter(0x11+COUNTER_NEED_ENABLE,1) - if c:GetCounter(0x11)>=3 then - Duel.Win(tp,0x12) + c:AddCounter(0x11,1) +end +function c8062132.winop(e,tp,eg,ep,ev,re,r,rp) + local WIN_REASON_VENNOMINAGA = 0x12 + local c=e:GetHandler() + if c:GetCounter(0x11)==3 then + Duel.Win(tp,WIN_REASON_VENNOMINAGA) end end diff --git a/script/c80630522.lua b/script/c80630522.lua new file mode 100644 index 00000000..22c39b0c --- /dev/null +++ b/script/c80630522.lua @@ -0,0 +1,63 @@ +--花札衛－桐－ +function c80630522.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c80630522.spcon) + e1:SetTarget(c80630522.sptg) + e1:SetOperation(c80630522.spop) + c:RegisterEffect(e1) + --draw + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DRAW) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BE_BATTLE_TARGET) + e2:SetTarget(c80630522.target) + e2:SetOperation(c80630522.operation) + c:RegisterEffect(e2) +end +function c80630522.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe6) and c:IsLevelBelow(11) +end +function c80630522.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c80630522.cfilter,tp,LOCATION_MZONE,0,1,nil) +end +function c80630522.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c80630522.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 + and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetTarget(c80630522.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local e2=e1:Clone() + e2:SetCode(EFFECT_CANNOT_SUMMON) + Duel.RegisterEffect(e2,tp) +end +function c80630522.splimit(e,c) + return not c:IsSetCard(0xe6) +end +function c80630522.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c80630522.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.NegateAttack() then + Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE,1) + Duel.BreakEffect() + Duel.Draw(tp,1,REASON_EFFECT) + end +end diff --git a/script/c80637190.lua b/script/c80637190.lua index 112984cf..cb34acfc 100644 --- a/script/c80637190.lua +++ b/script/c80637190.lua @@ -14,7 +14,7 @@ function c80637190.initial_effect(c) end function c80637190.spcon(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetHandler():GetBattleTarget() - return bit.band(tc:GetBattlePosition(),POS_DEFENCE)~=0 + return bit.band(tc:GetBattlePosition(),POS_DEFENSE)~=0 end function c80637190.filter(c,e,tp) return c:IsLevelBelow(4) and c:IsRace(RACE_INSECT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) diff --git a/script/c80651316.lua b/script/c80651316.lua index 0e5f6c05..1e7c01e9 100644 --- a/script/c80651316.lua +++ b/script/c80651316.lua @@ -35,7 +35,7 @@ function c80651316.atkop(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e2) end function c80651316.sfilter(c) - return c:IsSetCard(0x304e) and c:IsAbleToHand() + return c:IsSetCard(0x304e) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c80651316.schtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c80651316.sfilter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c80666118.lua b/script/c80666118.lua old mode 100755 new mode 100644 index 902284d1..a413df84 --- a/script/c80666118.lua +++ b/script/c80666118.lua @@ -23,7 +23,7 @@ function c80666118.initial_effect(c) end function c80666118.filter(c,atk) return c:IsFaceup() and c:IsAttackBelow(atk) and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL - and c:IsType(TYPE_EFFECT) and c:IsDestructable() + and c:IsType(TYPE_EFFECT) end function c80666118.destg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() diff --git a/script/c80696379.lua b/script/c80696379.lua old mode 100755 new mode 100644 index fa856ecf..102e2d58 --- a/script/c80696379.lua +++ b/script/c80696379.lua @@ -53,7 +53,7 @@ function c80696379.spop(e,tp,eg,ep,ev,re,r,rp) end function c80696379.condition(e) local ph=Duel.GetCurrentPhase() - return ph==PHASE_BATTLE or ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL + return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE end function c80696379.aclimit(e,re,tp) return re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsImmuneToEffect(e) diff --git a/script/c80723580.lua b/script/c80723580.lua index e8a98ed1..77ca0b75 100644 --- a/script/c80723580.lua +++ b/script/c80723580.lua @@ -14,12 +14,12 @@ function c80723580.condition(e,tp,eg,ep,ev,re,r,rp) return eg:GetCount()>=2 end function c80723580.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c80723580.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if g:GetCount()>0 then Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c80764541.lua b/script/c80764541.lua index e30d72ca..9258f2f8 100644 --- a/script/c80764541.lua +++ b/script/c80764541.lua @@ -22,7 +22,7 @@ function c80764541.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c80764541.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c80764541.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c80764541.filter(chkc) end diff --git a/script/c80769747.lua b/script/c80769747.lua index 5c2b1e53..fb3ac550 100644 --- a/script/c80769747.lua +++ b/script/c80769747.lua @@ -55,7 +55,7 @@ function c80769747.eqop(e,tp,eg,ep,ev,re,r,rp) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(-800) e3:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e3) diff --git a/script/c80773359.lua b/script/c80773359.lua new file mode 100644 index 00000000..27b63976 --- /dev/null +++ b/script/c80773359.lua @@ -0,0 +1,100 @@ +--A BF－神立のオニマル +function c80773359.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --add type + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c80773359.tncon) + e1:SetOperation(c80773359.tnop) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_MATERIAL_CHECK) + e2:SetValue(c80773359.valcheck) + e2:SetLabelObject(e1) + c:RegisterEffect(e2) + --indes + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e3:SetValue(1) + c:RegisterEffect(e3) + --lvchange + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(80773359,0)) + e4:SetCategory(CATEGORY_LVCHANGE) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_MZONE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetCountLimit(1,80773359+EFFECT_COUNT_CODE_DUEL) + e4:SetTarget(c80773359.lvtg) + e4:SetOperation(c80773359.lvop) + c:RegisterEffect(e4) + --atk + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_SINGLE) + e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e5:SetRange(LOCATION_MZONE) + e5:SetCode(EFFECT_UPDATE_ATTACK) + e5:SetCondition(c80773359.condtion) + e5:SetValue(3000) + c:RegisterEffect(e5) +end +function c80773359.valcheck(e,c) + local g=c:GetMaterial() + if g:IsExists(Card.IsSetCard,1,nil,0x33) then + e:GetLabelObject():SetLabel(1) + else + e:GetLabelObject():SetLabel(0) + end +end +function c80773359.tncon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO and e:GetLabel()==1 +end +function c80773359.tnop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_ADD_TYPE) + e1:SetValue(TYPE_TUNER) + e1:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e1) +end +function c80773359.lvfilter(c,lv) + return c:IsSetCard(0x33) and c:GetLevel()>0 and c:GetLevel()~=lv +end +function c80773359.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c80773359.lvfilter(chkc,e:GetHandler():GetLevel()) end + if chk==0 then return Duel.IsExistingTarget(c80773359.lvfilter,tp,LOCATION_GRAVE,0,1,nil,e:GetHandler():GetLevel()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c80773359.lvfilter,tp,LOCATION_GRAVE,0,1,1,nil,e:GetHandler():GetLevel()) +end +function c80773359.lvop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CHANGE_LEVEL) + e1:SetValue(tc:GetLevel()) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + end +end +function c80773359.mfilter(c) + return not c:IsType(TYPE_SYNCHRO) +end +function c80773359.condtion(e) + local c=e:GetHandler() + local mg=c:GetMaterial() + local ph=Duel.GetCurrentPhase() + return (ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) and Duel.GetAttacker()==c + and c:GetSummonType()==SUMMON_TYPE_SYNCHRO and mg:GetCount()>0 and not mg:IsExists(c80773359.mfilter,1,nil) +end diff --git a/script/c80802524.lua b/script/c80802524.lua index eede2845..7693653c 100644 --- a/script/c80802524.lua +++ b/script/c80802524.lua @@ -14,7 +14,7 @@ end function c80802524.condition(e,tp,eg,ep,ev,re,r,rp) local tc=eg:GetFirst() if rp~=tp and eg:GetCount()==1 and tc:IsReason(REASON_DESTROY) and tc:IsReason(REASON_BATTLE+REASON_EFFECT) - and tc:IsPreviousLocation(LOCATION_MZONE) and tc:GetPreviousControler()==tp and tc:IsSetCard(0x8d) then + and tc:IsPreviousLocation(LOCATION_MZONE) and tc:GetPreviousControler()==tp and tc:IsSetCard(0x8d) and tc:IsPreviousPosition(POS_FACEUP) then e:SetLabel(tc:GetCode()) return true else return false end @@ -24,7 +24,8 @@ function c80802524.filter(c,e,tp,code) end function c80802524.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c80802524.filter(chkc,e,tp,e:GetLabel()) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c80802524.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp,e:GetLabel()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c80802524.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp,e:GetLabel()) @@ -35,12 +36,13 @@ function c80802524.activate(e,tp,eg,ep,ev,re,r,rp) local sg=g:Filter(Card.IsRelateToEffect,nil,e) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if sg:GetCount()==0 or ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end if ft0 then - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,sg) end end diff --git a/script/c80831721.lua b/script/c80831721.lua index 96ed57be..3abfbcc3 100644 --- a/script/c80831721.lua +++ b/script/c80831721.lua @@ -24,7 +24,7 @@ function c80831721.initial_effect(c) c:RegisterEffect(e2) end function c80831721.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_GRAVE,0,1,nil,0xa4) + return Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_GRAVE,0,1,nil,0x10a4) end function c80831721.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c80885284.lua b/script/c80885284.lua index d927ecc3..93ab5699 100644 --- a/script/c80885284.lua +++ b/script/c80885284.lua @@ -42,7 +42,7 @@ end function c80885284.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c80885284.thfilter(c,lv) diff --git a/script/c80885324.lua b/script/c80885324.lua index 71281299..e467bef9 100644 --- a/script/c80885324.lua +++ b/script/c80885324.lua @@ -10,7 +10,7 @@ function c80885324.initial_effect(c) e1:SetTarget(c80885324.destg) e1:SetOperation(c80885324.desop) c:RegisterEffect(e1) - --to defence + --to defense local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -22,7 +22,7 @@ function c80885324.initial_effect(c) end function c80885324.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefencePos() + return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefensePos() end function c80885324.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -41,7 +41,7 @@ end function c80885324.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c80887714.lua b/script/c80887714.lua index 9c6104e9..e63a8762 100644 --- a/script/c80887714.lua +++ b/script/c80887714.lua @@ -12,7 +12,7 @@ function c80887714.initial_effect(c) c:RegisterEffect(e1) end function c80887714.filter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:GetOverlayCount()==0 and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:GetOverlayCount()==0 end function c80887714.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c80887714.filter(chkc) end diff --git a/script/c80887952.lua b/script/c80887952.lua index 5ce6f95d..f481d9c4 100644 --- a/script/c80887952.lua +++ b/script/c80887952.lua @@ -18,7 +18,7 @@ function c80887952.initial_effect(c) e2:SetValue(c80887952.value) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_SET_DEFENCE) + e3:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e3) --spsummon local e4=Effect.CreateEffect(c) @@ -68,7 +68,7 @@ function c80887952.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end Duel.SpecialSummonComplete() diff --git a/script/c80896940.lua b/script/c80896940.lua new file mode 100644 index 00000000..b7470071 --- /dev/null +++ b/script/c80896940.lua @@ -0,0 +1,255 @@ +--涅槃の超魔導剣士 +function c80896940.initial_effect(c) + c:EnableReviveLimit() + --pendulum summon + aux.EnablePendulumAttribute(c,false) + --synchro summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(80896940,0)) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetRange(LOCATION_EXTRA) + e1:SetCondition(aux.SynCondition(nil,aux.NonTuner(Card.IsType,TYPE_SYNCHRO),1,99)) + e1:SetTarget(aux.SynTarget(nil,aux.NonTuner(Card.IsType,TYPE_SYNCHRO),1,99)) + e1:SetOperation(aux.SynOperation(nil,aux.NonTuner(Card.IsType,TYPE_SYNCHRO),1,99)) + e1:SetValue(SUMMON_TYPE_SYNCHRO) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetDescription(aux.Stringid(80896940,1)) + e2:SetCondition(c80896940.syncon) + e2:SetTarget(c80896940.syntg) + e2:SetOperation(c80896940.synop) + e2:SetValue(SUMMON_TYPE_SYNCHRO) + c:RegisterEffect(e2) + --indes + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_ATTACK_ANNOUNCE) + e3:SetRange(LOCATION_PZONE) + e3:SetCondition(c80896940.indcon) + e3:SetOperation(c80896940.indop) + c:RegisterEffect(e3) + --atkdown + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(80896940,2)) + e4:SetCategory(CATEGORY_ATKCHANGE) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e4:SetCode(EVENT_DAMAGE_STEP_END) + e4:SetRange(LOCATION_PZONE) + e4:SetCondition(c80896940.atkcon) + e4:SetOperation(c80896940.atkop) + c:RegisterEffect(e4) + --salvage + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(80896940,3)) + e5:SetCategory(CATEGORY_TOHAND) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e5:SetCode(EVENT_SPSUMMON_SUCCESS) + e5:SetProperty(EFFECT_FLAG_CARD_TARGET) + e5:SetCondition(c80896940.thcon) + e5:SetTarget(c80896940.thtg) + e5:SetOperation(c80896940.thop) + c:RegisterEffect(e5) + local e0=Effect.CreateEffect(c) + e0:SetType(EFFECT_TYPE_SINGLE) + e0:SetCode(EFFECT_MATERIAL_CHECK) + e0:SetValue(c80896940.valcheck) + e0:SetLabelObject(e5) + c:RegisterEffect(e0) + --lp + local e6=Effect.CreateEffect(c) + e6:SetDescription(aux.Stringid(80896940,4)) + e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e6:SetCode(EVENT_BATTLE_DESTROYING) + e6:SetCondition(aux.bdocon) + e6:SetOperation(c80896940.lpop) + c:RegisterEffect(e6) + --pendulum + local e7=Effect.CreateEffect(c) + e7:SetDescription(aux.Stringid(80896940,5)) + e7:SetCategory(CATEGORY_DESTROY) + e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e7:SetCode(EVENT_DESTROYED) + e7:SetProperty(EFFECT_FLAG_DELAY) + e7:SetCondition(c80896940.pencon) + e7:SetTarget(c80896940.pentg) + e7:SetOperation(c80896940.penop) + c:RegisterEffect(e7) +end +function c80896940.matfilter1(c,syncard) + return c:IsType(TYPE_PENDULUM) and c:GetSummonType()==SUMMON_TYPE_PENDULUM and c:IsNotTuner() and c:IsFaceup() and c:IsCanBeSynchroMaterial(syncard) + and Duel.IsExistingMatchingCard(c80896940.matfilter2,0,LOCATION_MZONE,LOCATION_MZONE,1,c,syncard) +end +function c80896940.matfilter2(c,syncard) + return c:IsNotTuner() and c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSynchroMaterial(syncard) +end +function c80896940.synfilter(c,syncard,lv,g2,minc) + local tlv=c:GetSynchroLevel(syncard) + if lv-tlv<=0 then return false end + local g=g2:Clone() + g:RemoveCard(c) + return g:CheckWithSumEqual(Card.GetSynchroLevel,lv-tlv,minc-1,63,syncard) +end +function c80896940.syncon(e,c,tuner,mg) + if c==nil then return true end + if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end + local tp=c:GetControler() + local ct=-Duel.GetLocationCount(tp,LOCATION_MZONE) + local minc=2 + if minc0 then - select=Duel.SelectOption(tp,aux.Stringid(80925836,1),aux.Stringid(80925836,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(80925836,1),aux.Stringid(80925836,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(80925836,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -51,7 +55,7 @@ function c80925836.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c80925836.disop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c80955168.lua b/script/c80955168.lua index e707ccf4..eb922977 100644 --- a/script/c80955168.lua +++ b/script/c80955168.lua @@ -19,10 +19,10 @@ function c80955168.condition(e,tp,eg,ep,ev,re,r,rp,chk) return eg:IsExists(c80955168.cfilter,1,nil,tp) end function c80955168.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,e:GetHandler()) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,2,e:GetHandler()) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,2,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) end function c80955168.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c80978111.lua b/script/c80978111.lua index 80823a45..4b03bf3f 100644 --- a/script/c80978111.lua +++ b/script/c80978111.lua @@ -38,7 +38,7 @@ end function c80978111.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and Duel.GetLocationCount(1-tp,LOCATION_MZONE,tp)>0 then - Duel.SpecialSummon(c,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(c,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) end end function c80978111.splimit(e,c,tp,sumtp,sumpos) diff --git a/script/c81003500.lua b/script/c81003500.lua old mode 100755 new mode 100644 index 8df5f088..f9f27bd0 --- a/script/c81003500.lua +++ b/script/c81003500.lua @@ -1,50 +1,50 @@ ---E・HERO ネクロイド・シャーマン -function c81003500.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode2(c,86188410,89252153,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.fuslimit) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(81003500,0)) - e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c81003500.condition) - e2:SetTarget(c81003500.target) - e2:SetOperation(c81003500.operation) - c:RegisterEffect(e2) -end -function c81003500.condition(e,tp,eg,ep,ev,re,r,rp) - return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c81003500.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c81003500.spfilter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end -function c81003500.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then - Duel.BreakEffect() - if Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local sg=Duel.SelectMatchingCard(tp,c81003500.spfilter,tp,0,LOCATION_GRAVE,1,1,nil,e,tp) - if sg:GetCount()>0 then - Duel.SpecialSummon(sg,0,tp,1-tp,false,false,POS_FACEUP) - end - end - end -end +--E・HERO ネクロイド・シャーマン +function c81003500.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcCode2(c,86188410,89252153,true,true) + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(aux.fuslimit) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(81003500,0)) + e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetCondition(c81003500.condition) + e2:SetTarget(c81003500.target) + e2:SetOperation(c81003500.operation) + c:RegisterEffect(e2) +end +function c81003500.condition(e,tp,eg,ep,ev,re,r,rp) + return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c81003500.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c81003500.spfilter(c,e,tp) + return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp) +end +function c81003500.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + Duel.BreakEffect() + if Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg=Duel.SelectMatchingCard(tp,c81003500.spfilter,tp,0,LOCATION_GRAVE,1,1,nil,e,tp) + if sg:GetCount()>0 and not sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(sg,0,tp,1-tp,false,false,POS_FACEUP) + end + end + end +end diff --git a/script/c8102334.lua b/script/c8102334.lua index 4acc23e9..a3d687bb 100644 --- a/script/c8102334.lua +++ b/script/c8102334.lua @@ -26,11 +26,12 @@ function c8102334.initial_effect(c) --target local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e4:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_SET_AVAILABLE) e4:SetRange(LOCATION_MZONE) - e4:SetTargetRange(0,0xff) - e4:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e4:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e4:SetValue(c8102334.tglimit) + e4:SetTargetRange(LOCATION_MZONE,0) + e4:SetTarget(c8102334.tglimit) + e4:SetValue(aux.tgoval) c:RegisterEffect(e4) end function c8102334.distg(e,c) @@ -42,6 +43,6 @@ function c8102334.disop(e,tp,eg,ep,ev,re,r,rp) Duel.NegateEffect(ev) end end -function c8102334.tglimit(e,re,c) - return c~=e:GetHandler() and c:IsControler(e:GetHandlerPlayer()) and c:IsLocation(LOCATION_MZONE) +function c8102334.tglimit(e,c) + return c~=e:GetHandler() end diff --git a/script/c81026578.lua b/script/c81026578.lua deleted file mode 100644 index 446fae65..00000000 --- a/script/c81026578.lua +++ /dev/null @@ -1,28 +0,0 @@ ---Attack Guidance Armor -function c81026578.initial_effect(c) ---change target - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(81026578,0)) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c81026578.condition) - e1:SetTarget(c81026578.target) - e1:SetOperation(c81026578.activate) - c:RegisterEffect(e1) - end - function c81026578.condition(e,tp,eg,ep,ev,re,r,rp) - return tp~=Duel.GetTurnPlayer() -end -function c81026578.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,Duel.GetAttacker()) -end -function c81026578.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.ChangeAttackTarget(tc) - end -end \ No newline at end of file diff --git a/script/c81035362.lua b/script/c81035362.lua old mode 100755 new mode 100644 diff --git a/script/c81057455.lua b/script/c81057455.lua index 0987cc34..9ef23430 100644 --- a/script/c81057455.lua +++ b/script/c81057455.lua @@ -1,5 +1,6 @@ --Kaiju Capture Mission function c81057455.initial_effect(c) + c:EnableCounterPermit(0x37) c:SetCounterLimit(0x37,3) --activate local e1=Effect.CreateEffect(c) @@ -65,8 +66,8 @@ end function c81057455.posop(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE)~=0 then - e:GetHandler():AddCounter(0x37+COUNTER_NEED_ENABLE,1) + if tc:IsRelateToEffect(e) and Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)~=0 then + e:GetHandler():AddCounter(0x37,1) end end function c81057455.drcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c81128478.lua b/script/c81128478.lua index faa971e1..6b5907e1 100644 --- a/script/c81128478.lua +++ b/script/c81128478.lua @@ -22,10 +22,10 @@ function c81128478.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c81128478.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c81128478.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c81167171.lua b/script/c81167171.lua old mode 100755 new mode 100644 index 47c95c95..652507eb --- a/script/c81167171.lua +++ b/script/c81167171.lua @@ -38,36 +38,20 @@ function c81167171.clear(e,tp,eg,ep,ev,re,r,rp) c81167171[1]=false end function c81167171.condition(e,tp,eg,ep,ev,re,r,rp) - return c81167171[tp] and Duel.GetCurrentPhase()==PHASE_BATTLE + return c81167171[tp] and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c81167171.activate(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_DAMAGE_CALCULATING) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetOperation(c81167171.batop) - Duel.RegisterEffect(e1,tp) -end -function c81167171.batop(e,tp,eg,ep,ev,re,r,rp) - local s=Duel.GetAttacker() - local o=Duel.GetAttackTarget() - if Duel.GetTurnPlayer()~=tp then - s=Duel.GetAttackTarget() - o=Duel.GetAttacker() - end - if not o then return end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetType(EFFECT_TYPE_FIELD) e1:SetCode(EFFECT_NO_BATTLE_DAMAGE) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - o:RegisterEffect(e1) - if s then - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e2:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e2:SetValue(1) - s:RegisterEffect(e2) - end - e:Reset() + e1:SetTargetRange(0,LOCATION_MZONE) + e1:SetReset(RESET_PHASE+PHASE_BATTLE+PHASE_DAMAGE_CAL) + Duel.RegisterEffect(e1,tp) + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetValue(1) + e2:SetReset(RESET_PHASE+PHASE_BATTLE+PHASE_DAMAGE_CAL) + Duel.RegisterEffect(e2,tp) end diff --git a/script/c811734.lua b/script/c811734.lua old mode 100755 new mode 100644 diff --git a/script/c81191584.lua b/script/c81191584.lua index a0e477fd..f80cb55d 100644 --- a/script/c81191584.lua +++ b/script/c81191584.lua @@ -11,7 +11,7 @@ function c81191584.initial_effect(c) c:RegisterEffect(e1) end function c81191584.filter(c) - return c:GetDefence()==0 and c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToHand() + return c:GetDefense()==0 and c:IsAttribute(ATTRIBUTE_DARK) and c:IsAbleToHand() end function c81191584.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c81191584.filter(chkc) end @@ -25,6 +25,5 @@ function c81191584.activate(e,tp,eg,ep,ev,re,r,rp) local sg=g:Filter(Card.IsRelateToEffect,nil,e) if sg:GetCount()>0 then Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sg) end end diff --git a/script/c81197327.lua b/script/c81197327.lua old mode 100755 new mode 100644 diff --git a/script/c81210420.lua b/script/c81210420.lua index 905a77fc..e66ad979 100644 --- a/script/c81210420.lua +++ b/script/c81210420.lua @@ -12,24 +12,26 @@ function c81210420.initial_effect(c) c:RegisterEffect(e1) end function c81210420.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_BATTLE + return Duel.GetTurnPlayer()~=tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c81210420.filter(c) return not c:IsType(TYPE_TOKEN) end -function c81210420.spfilter(c,tp) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and Duel.IsPlayerCanSpecialSummonMonster(tp,c:GetCode(),nil,0x11,0,0,0,0,0) +function c81210420.spfilter(c,e,tp) + return c:IsType(TYPE_SPELL+TYPE_TRAP) and Duel.IsPlayerCanSpecialSummonMonster(tp,c:GetCode(),nil,0x11,0,0,0,0,0,POS_FACEDOWN) end function c81210420.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c81210420.filter,tp,LOCATION_MZONE,0,1,nil) + and not Duel.IsPlayerAffectedByEffect(tp,59822133) and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 - and Duel.IsExistingMatchingCard(c81210420.spfilter,tp,LOCATION_DECK,0,2,nil,tp) + and Duel.IsExistingMatchingCard(c81210420.spfilter,tp,LOCATION_DECK,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c81210420.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end - local g=Duel.GetMatchingGroup(c81210420.spfilter,tp,LOCATION_DECK,0,nil,tp) + local g=Duel.GetMatchingGroup(c81210420.spfilter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()<2 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) local tc=Duel.SelectMatchingCard(tp,c81210420.filter,tp,LOCATION_MZONE,0,1,1,nil):GetFirst() @@ -37,9 +39,9 @@ function c81210420.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,2,2,nil) if tc:IsFaceup() then - if tc:IsHasEffect(EFFECT_DEVINE_LIGHT) then Duel.ChangePosition(tc,POS_FACEUP_DEFENCE) + if tc:IsHasEffect(EFFECT_DEVINE_LIGHT) then Duel.ChangePosition(tc,POS_FACEUP_DEFENSE) else - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) tc:ClearEffectRelation() end end @@ -66,14 +68,14 @@ function c81210420.activate(e,tp,eg,ep,ev,re,r,rp) e4:SetValue(0) tg:RegisterEffect(e4,true) local e5=e1:Clone() - e5:SetCode(EFFECT_SET_BASE_DEFENCE) + e5:SetCode(EFFECT_SET_BASE_DEFENSE) e5:SetValue(0) tg:RegisterEffect(e5,true) tg:RegisterFlagEffect(81210420,RESET_EVENT+0x47c0000+RESET_PHASE+PHASE_BATTLE,0,1,fid) tg:SetStatus(STATUS_NO_LEVEL,true) tg=sg:GetNext() end - Duel.SpecialSummon(sg,0,tp,tp,true,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(sg,0,tp,tp,true,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,sg) sg:AddCard(tc) Duel.ShuffleSetCard(sg) diff --git a/script/c81231742.lua b/script/c81231742.lua index 7750e0e6..9fe258f8 100644 --- a/script/c81231742.lua +++ b/script/c81231742.lua @@ -16,7 +16,7 @@ function c81231742.initial_effect(c) c:RegisterEffect(e2) --def local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetCondition(c81231742.defcon) c:RegisterEffect(e3) end diff --git a/script/c81275020.lua b/script/c81275020.lua old mode 100755 new mode 100644 diff --git a/script/c81278754.lua b/script/c81278754.lua index 83e79e4b..79c3ef28 100644 --- a/script/c81278754.lua +++ b/script/c81278754.lua @@ -29,7 +29,7 @@ end function c81278754.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c81278754.cfilter(c) diff --git a/script/c81336148.lua b/script/c81336148.lua index 622da6dc..7438cdad 100644 --- a/script/c81336148.lua +++ b/script/c81336148.lua @@ -29,7 +29,9 @@ function c81336148.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c81336148.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c81380218.lua b/script/c81380218.lua index 625649b9..5bd63915 100644 --- a/script/c81380218.lua +++ b/script/c81380218.lua @@ -10,8 +10,8 @@ function c81380218.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_FZONE) e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetCode(EFFECT_UPDATE_DEFENCE) - e2:SetTarget(aux.TargetBoolFunction(Card.IsDefencePos)) + e2:SetCode(EFFECT_UPDATE_DEFENSE) + e2:SetTarget(aux.TargetBoolFunction(Card.IsDefensePos)) e2:SetValue(500) c:RegisterEffect(e2) end diff --git a/script/c81385346.lua b/script/c81385346.lua index eb493611..f2720c7e 100644 --- a/script/c81385346.lua +++ b/script/c81385346.lua @@ -18,7 +18,7 @@ function c81385346.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c81385346.filter1,tp,LOCATION_MZONE,0,1,nil) end function c81385346.filter2(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c81385346.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c81385346.filter2(chkc) and chkc~=e:GetHandler() end diff --git a/script/c81426505.lua b/script/c81426505.lua index d847deef..7dc7b909 100644 --- a/script/c81426505.lua +++ b/script/c81426505.lua @@ -17,13 +17,13 @@ function c81426505.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c81426505.confilter,tp,LOCATION_MZONE,0,3,nil) end function c81426505.filter1(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c81426505.filter2(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c81426505.filter3(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c81426505.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return diff --git a/script/c81471108.lua b/script/c81471108.lua index f62a12c1..c16ae6ef 100644 --- a/script/c81471108.lua +++ b/script/c81471108.lua @@ -14,13 +14,10 @@ function c81471108.initial_effect(c) c:RegisterEffect(e1) --cannot be target local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetRange(LOCATION_SZONE) - e2:SetTargetRange(0,0xff) - e2:SetCondition(c81471108.tgcon) - e2:SetValue(c81471108.tglimit) + e2:SetType(EFFECT_TYPE_EQUIP) + e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e2:SetValue(aux.tgoval) c:RegisterEffect(e2) --destroy sub local e3=Effect.CreateEffect(c) @@ -34,7 +31,7 @@ function c81471108.eqcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():CheckUniqueOnField(tp) end function c81471108.filter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) + return c:IsFaceup() and c:IsSetCard(0x107f) end function c81471108.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c81471108.filter(chkc) end @@ -71,12 +68,6 @@ end function c81471108.eqlimit(e,c) return c==e:GetLabelObject() end -function c81471108.tgcon(e) - return e:GetHandler():GetEquipTarget()~=nil -end -function c81471108.tglimit(e,re,c) - return c==e:GetHandler():GetEquipTarget() -end function c81471108.repval(e,re,r,rp) return bit.band(r,REASON_BATTLE)~=0 end diff --git a/script/c81480460.lua b/script/c81480460.lua index 2eae68da..1d35a2f4 100644 --- a/script/c81480460.lua +++ b/script/c81480460.lua @@ -13,10 +13,10 @@ function c81480460.initial_effect(c) c:RegisterEffect(e1) end function c81480460.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,3) end function c81480460.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c81510157.lua b/script/c81510157.lua index edac45ce..8db474c6 100644 --- a/script/c81510157.lua +++ b/script/c81510157.lua @@ -11,7 +11,7 @@ function c81510157.initial_effect(c) c:RegisterEffect(e1) end function c81510157.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c81510157.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c81510157.filter(chkc) end diff --git a/script/c81524977.lua b/script/c81524977.lua index de38a6ae..a6998a95 100644 --- a/script/c81524977.lua +++ b/script/c81524977.lua @@ -1,5 +1,6 @@ --種子弾丸 function c81524977.initial_effect(c) + c:EnableCounterPermit(0x20) c:SetCounterLimit(0x20,5) --Activate local e1=Effect.CreateEffect(c) @@ -40,7 +41,7 @@ function c81524977.ctcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c81524977.ctfilter,1,nil) end function c81524977.ctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x20+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x20,1) end function c81524977.damcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end diff --git a/script/c81566151.lua b/script/c81566151.lua index 5fbce935..2b7c88d7 100644 --- a/script/c81566151.lua +++ b/script/c81566151.lua @@ -49,16 +49,17 @@ function c81566151.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA) end function c81566151.spfilter(c,code) - return c:IsAbleToDeckOrExtraAsCost() and c:IsCode(code) + return c:IsAbleToDeckOrExtraAsCost() and c:IsFusionCode(code) end function c81566151.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-1 then return false end local g1=Duel.GetMatchingGroup(c81566151.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723) local g2=Duel.GetMatchingGroup(c81566151.spfilter,tp,LOCATION_ONFIELD,0,nil,89621922) if g1:GetCount()==0 or g2:GetCount()==0 then return false end + if g1:GetCount()==1 and g2:GetCount()==1 and g1:GetFirst()==g2:GetFirst() then return false end if ft>0 then return true end local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) @@ -76,12 +77,22 @@ function c81566151.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) if ft<=0 then tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() + ft=ft+1 else tc=g1:Select(tp,1,1,nil):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 + if i==1 then + g1:Clear() + if tc:IsFusionCode(89943723) then + local sg=Duel.GetMatchingGroup(c81566151.spfilter,tp,LOCATION_ONFIELD,0,tc,89621922) + g1:Merge(sg) + end + if tc:IsFusionCode(89621922) then + local sg=Duel.GetMatchingGroup(c81566151.spfilter,tp,LOCATION_ONFIELD,0,tc,89943723) + g1:Merge(sg) + end + end end local cg=g:Filter(Card.IsFacedown,nil) if cg:GetCount()>0 then @@ -89,10 +100,10 @@ function c81566151.spop(e,tp,eg,ep,ev,re,r,rp,c) end Duel.SendtoDeck(g,nil,2,REASON_COST) end -function c81566151.retcon1(e,tp,eg,ep,ev,re,r,rp,chk) +function c81566151.retcon1(e,tp,eg,ep,ev,re,r,rp) return not e:GetHandler():IsHasEffect(42015635) end -function c81566151.retcon2(e,tp,eg,ep,ev,re,r,rp,chk) +function c81566151.retcon2(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsHasEffect(42015635) end function c81566151.rettg(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c81587028.lua b/script/c81587028.lua index 13720bb2..7a7b2086 100644 --- a/script/c81587028.lua +++ b/script/c81587028.lua @@ -17,7 +17,7 @@ function c81587028.spcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsReason(REASON_DESTROY) end function c81587028.filter1(c,e,tp) - return c:IsType(TYPE_NORMAL) and (c:GetAttack()==0 or c:GetDefence()==0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsType(TYPE_NORMAL) and (c:GetAttack()==0 or c:GetDefense()==0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c81587028.filter2(c,g) return g:IsExists(c81587028.filter3,1,c,c:GetCode()) @@ -27,6 +27,7 @@ function c81587028.filter3(c,code) end function c81587028.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return false end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return false end local g=Duel.GetMatchingGroup(c81587028.filter1,tp,LOCATION_DECK,0,nil,e,tp) return g:IsExists(c81587028.filter2,1,nil,g) @@ -34,6 +35,7 @@ function c81587028.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c81587028.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetMatchingGroup(c81587028.filter1,tp,LOCATION_DECK,0,nil,e,tp) local dg=g:Filter(c81587028.filter2,nil,g) @@ -44,8 +46,8 @@ function c81587028.spop(e,tp,eg,ep,ev,re,r,rp) dg:Remove(Card.IsCode,nil,tc1:GetCode()) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local tc2=dg:Select(tp,1,1,nil):GetFirst() - Duel.SpecialSummonStep(tc1,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - Duel.SpecialSummonStep(tc2,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(tc1,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + Duel.SpecialSummonStep(tc2,0,tp,tp,false,false,POS_FACEUP_DEFENSE) tc1:RegisterFlagEffect(81587028,RESET_EVENT+0x1fe0000,0,1) tc2:RegisterFlagEffect(81587028,RESET_EVENT+0x1fe0000,0,1) local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c81599449.lua b/script/c81599449.lua new file mode 100644 index 00000000..49947268 --- /dev/null +++ b/script/c81599449.lua @@ -0,0 +1,45 @@ +--化合獣カーボン・クラブ +function c81599449.initial_effect(c) + aux.EnableDualAttribute(c) + --to grave/search + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(81599449,0)) + e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetCountLimit(1,81599449) + e1:SetRange(LOCATION_MZONE) + e1:SetCondition(aux.IsDualState) + e1:SetTarget(c81599449.tgtg) + e1:SetOperation(c81599449.tgop) + c:RegisterEffect(e1) +end +function c81599449.filter(c,tp) + return c:IsType(TYPE_DUAL) and c:IsAbleToGrave() + and Duel.IsExistingMatchingCard(c81599449.thfilter,tp,LOCATION_DECK,0,1,c) +end +function c81599449.tgfilter(c) + return c:IsType(TYPE_DUAL) and c:IsAbleToGrave() +end +function c81599449.thfilter(c) + return c:IsType(TYPE_DUAL) and c:IsAbleToHand() +end +function c81599449.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c81599449.filter,tp,LOCATION_DECK,0,1,nil,tp) end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c81599449.tgop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c81599449.tgfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 and Duel.SendtoGrave(g,REASON_EFFECT)~=0 + and g:GetFirst():IsLocation(LOCATION_GRAVE) then + local sg=Duel.GetMatchingGroup(c81599449.thfilter,tp,LOCATION_DECK,0,nil) + if sg:GetCount()>0 then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local tg=sg:Select(tp,1,1,nil) + Duel.SendtoHand(tg,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,tg) + end + end +end diff --git a/script/c81601517.lua b/script/c81601517.lua index 2fa00720..024ade19 100644 --- a/script/c81601517.lua +++ b/script/c81601517.lua @@ -29,7 +29,7 @@ function c81601517.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c81601517.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE)~=0 then + if tc:IsFaceup() and tc:IsRelateToEffect(e) and Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE)~=0 then Duel.BreakEffect() Duel.NegateActivation(ev) if re:GetHandler():IsRelateToEffect(re) then diff --git a/script/c81612598.lua b/script/c81612598.lua new file mode 100644 index 00000000..88208196 --- /dev/null +++ b/script/c81612598.lua @@ -0,0 +1,83 @@ +--メタルフォーゼ・アダマンテ +function c81612598.initial_effect(c) + --fusion material + c:EnableReviveLimit() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(c81612598.fscon) + e1:SetOperation(c81612598.fsop) + c:RegisterEffect(e1) +end +function c81612598.filter1(c) + return c:IsFusionSetCard(0xe1) +end +function c81612598.filter2(c) + return c:IsAttackBelow(2500) +end +function c81612598.fscon(e,g,gc,chkfnf) + if g==nil then return true end + local f1=c81612598.filter1 + local f2=c81612598.filter2 + local chkf=bit.band(chkfnf,0xff) + local tp=e:GetHandlerPlayer() + local fg=Duel.GetMatchingGroup(Card.IsHasEffect,tp,LOCATION_MZONE,0,nil,77693536) + local fc=fg:GetFirst() + while fc do + g:Merge(fc:GetEquipGroup():Filter(Card.IsControler,nil,tp)) + fc=fg:GetNext() + end + local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler(),true) + if gc then + if not gc:IsCanBeFusionMaterial(e:GetHandler(),true) then return false end + return (f1(gc) and mg:IsExists(f2,1,gc)) + or (f2(gc) and mg:IsExists(f1,1,gc)) end + local g1=Group.CreateGroup() local g2=Group.CreateGroup() local fs=false + local tc=mg:GetFirst() + while tc do + if f1(tc) then g1:AddCard(tc) if aux.FConditionCheckF(tc,chkf) then fs=true end end + if f2(tc) then g2:AddCard(tc) if aux.FConditionCheckF(tc,chkf) then fs=true end end + tc=mg:GetNext() + end + if chkf~=PLAYER_NONE then + return fs and g1:IsExists(aux.FConditionFilterF2,1,nil,g2) + else return g1:IsExists(aux.FConditionFilterF2,1,nil,g2) end +end +function c81612598.fsop(e,tp,eg,ep,ev,re,r,rp,gc,chkfnf) + local f1=c81612598.filter1 + local f2=c81612598.filter2 + local chkf=bit.band(chkfnf,0xff) + local fg=Duel.GetMatchingGroup(Card.IsHasEffect,tp,LOCATION_MZONE,0,nil,77693536) + local fc=fg:GetFirst() + while fc do + eg:Merge(fc:GetEquipGroup():Filter(Card.IsControler,nil,tp)) + fc=fg:GetNext() + end + local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler(),true) + if gc then + local sg=Group.CreateGroup() + if f1(gc) then sg:Merge(g:Filter(f2,gc)) end + if f2(gc) then sg:Merge(g:Filter(f1,gc)) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=sg:Select(tp,1,1,nil) + Duel.SetFusionMaterial(g1) + return + end + local sg=g:Filter(aux.FConditionFilterF2c,nil,f1,f2) + local g1=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if chkf~=PLAYER_NONE then + g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) + else g1=sg:Select(tp,1,1,nil) end + local tc1=g1:GetFirst() + sg:RemoveCard(tc1) + local b1=f1(tc1) + local b2=f2(tc1) + if b1 and not b2 then sg:Remove(aux.FConditionFilterF2r,nil,f1,f2) end + if b2 and not b1 then sg:Remove(aux.FConditionFilterF2r,nil,f2,f1) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g2=sg:Select(tp,1,1,nil) + g1:Merge(g2) + Duel.SetFusionMaterial(g1) +end diff --git a/script/c81752019.lua b/script/c81752019.lua new file mode 100644 index 00000000..997adf78 --- /dev/null +++ b/script/c81752019.lua @@ -0,0 +1,47 @@ +--花札衛－松－ +function c81752019.initial_effect(c) + --draw (summon) + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DRAW) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetCountLimit(1,81752019) + e1:SetTarget(c81752019.drtg) + e1:SetOperation(c81752019.drop1) + c:RegisterEffect(e1) + --draw (destroy) + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DRAW) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e2:SetCondition(c81752019.drcon) + e2:SetTarget(c81752019.drtg) + e2:SetOperation(c81752019.drop2) + c:RegisterEffect(e2) +end +function c81752019.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c81752019.drop1(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + if Duel.Draw(p,d,REASON_EFFECT)==0 then return end + local tc=Duel.GetOperatedGroup():GetFirst() + Duel.ConfirmCards(1-tp,tc) + if not (tc:IsSetCard(0xe6) and tc:IsType(TYPE_MONSTER)) then + Duel.SendtoGrave(tc,REASON_EFFECT) + end + Duel.ShuffleHand(tp) +end +function c81752019.drcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_BATTLE) + or (rp~=tp and c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp) +end +function c81752019.drop2(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end diff --git a/script/c81777047.lua b/script/c81777047.lua index 2a675d34..bbda6196 100644 --- a/script/c81777047.lua +++ b/script/c81777047.lua @@ -16,7 +16,7 @@ function c81777047.initial_effect(c) c:RegisterEffect(e2) --Def down local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(-400) c:RegisterEffect(e3) end diff --git a/script/c81782376.lua b/script/c81782376.lua new file mode 100644 index 00000000..1dced7dd --- /dev/null +++ b/script/c81782376.lua @@ -0,0 +1,53 @@ +--運命の発掘 +function c81782376.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DRAW) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_BATTLE_DAMAGE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCondition(c81782376.condition) + e1:SetTarget(c81782376.target) + e1:SetOperation(c81782376.activate) + c:RegisterEffect(e1) + --draw + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DRAW) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_DESTROYED) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_DELAY) + e2:SetCondition(c81782376.drcon) + e2:SetTarget(c81782376.drtg) + e2:SetOperation(c81782376.drop) + c:RegisterEffect(e2) +end +function c81782376.condition(e,tp,eg,ep,ev,re,r,rp) + return ep==tp +end +function c81782376.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c81782376.activate(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) +end +function c81782376.drcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return rp~=tp and c:IsReason(REASON_EFFECT) + and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_ONFIELD) +end +function c81782376.drtg(e,tp,eg,ep,ev,re,r,rp,chk) + local ct=Duel.GetMatchingGroupCount(Card.IsCode,tp,LOCATION_GRAVE,0,nil,81782376) + if chk==0 then return ct>0 and Duel.IsPlayerCanDraw(tp,ct) end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(ct) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct) +end +function c81782376.drop(e,tp,eg,ep,ev,re,r,rp) + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + local ct=Duel.GetMatchingGroupCount(Card.IsCode,p,LOCATION_GRAVE,0,nil,81782376) + Duel.Draw(p,ct,REASON_EFFECT) +end diff --git a/script/c81788994.lua b/script/c81788994.lua index ed8e5aea..5a501f09 100644 --- a/script/c81788994.lua +++ b/script/c81788994.lua @@ -1,5 +1,6 @@ --影牢の呪縛 function c81788994.initial_effect(c) + c:EnableCounterPermit(0x16) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -40,7 +41,7 @@ function c81788994.ctcon(e,tp,eg,ep,ev,re,r,rp) end function c81788994.ctop(e,tp,eg,ep,ev,re,r,rp) local ct=eg:FilterCount(c81788994.cfilter,nil) - e:GetHandler():AddCounter(0x16+COUNTER_NEED_ENABLE,ct) + e:GetHandler():AddCounter(0x16,ct) end function c81788994.atkcon(e) return Duel.GetTurnPlayer()~=e:GetHandlerPlayer() diff --git a/script/c81791932.lua b/script/c81791932.lua index 41931e66..463b5388 100644 --- a/script/c81791932.lua +++ b/script/c81791932.lua @@ -11,8 +11,8 @@ function c81791932.initial_effect(c) c:RegisterEffect(e1) end function c81791932.cfilter(c,tp) - return c:IsRace(RACE_REPTILE) and c:GetPreviousControler()==tp - and c:IsPreviousLocation(LOCATION_ONFIELD) + return c:IsRace(RACE_REPTILE) and c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousControler()==tp + and c:IsPreviousLocation(LOCATION_MZONE) end function c81791932.condition(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c81791932.cfilter,1,nil,tp) diff --git a/script/c81810441.lua b/script/c81810441.lua old mode 100755 new mode 100644 index 40f60fca..c1d9e08b --- a/script/c81810441.lua +++ b/script/c81810441.lua @@ -23,7 +23,7 @@ function c81810441.initial_effect(c) e3:SetValue(500) c:RegisterEffect(e3) local e4=e3:Clone() - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e4) --immune local e5=Effect.CreateEffect(c) diff --git a/script/c81846636.lua b/script/c81846636.lua index bd2809da..c7a59364 100644 --- a/script/c81846636.lua +++ b/script/c81846636.lua @@ -29,6 +29,5 @@ function c81846636.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c81866673.lua b/script/c81866673.lua index 62740b04..d4a1fc0a 100644 --- a/script/c81866673.lua +++ b/script/c81866673.lua @@ -54,7 +54,7 @@ end function c81866673.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c81866673.spcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c81907872.lua b/script/c81907872.lua old mode 100755 new mode 100644 index 76a4a36d..4e9fb259 --- a/script/c81907872.lua +++ b/script/c81907872.lua @@ -43,13 +43,12 @@ end function c81907872.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c81907872.cfilter(c,tp) return c:IsControler(tp) and c:GetPreviousControler()==tp and c:IsReason(REASON_DESTROY) and c:GetReasonPlayer()~=tp - and c:IsSetCard(0x8d) and c:IsType(TYPE_MONSTER) and c:IsPreviousLocation(LOCATION_MZONE) - and (c:IsReason(REASON_EFFECT) or (c:IsReason(REASON_BATTLE) and c==Duel.GetAttackTarget())) + and c:IsSetCard(0x8d) and c:IsType(TYPE_MONSTER) and (c:IsReason(REASON_EFFECT) or (c:IsReason(REASON_BATTLE) and c==Duel.GetAttackTarget())) end function c81907872.spcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c81907872.cfilter,1,nil,tp) @@ -63,8 +62,12 @@ function c81907872.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c81907872.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE)~=0 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)~=0 then Duel.ConfirmCards(1-tp,c) Duel.Draw(tp,1,REASON_EFFECT) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c81927732.lua b/script/c81927732.lua index 7a7be596..0f642c99 100644 --- a/script/c81927732.lua +++ b/script/c81927732.lua @@ -1,96 +1,96 @@ ---RR－レヴォリューション・ファルコン -function c81927732.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_WINDBEAST),6,3) - c:EnableReviveLimit() - --attack all - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(81927732,0)) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCondition(c81927732.condition) - e1:SetCost(c81927732.cost) - e1:SetOperation(c81927732.operation) - c:RegisterEffect(e1) - --atk/def - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetCode(EVENT_BATTLE_START) - e2:SetCondition(c81927732.adcon) - e2:SetOperation(c81927732.adop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(81927732,1)) - e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1) - e3:SetRange(LOCATION_MZONE) - e3:SetCondition(c81927732.descon) - e3:SetTarget(c81927732.destg) - e3:SetOperation(c81927732.desop) - c:RegisterEffect(e3) -end -function c81927732.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsAbleToEnterBP() and not e:GetHandler():IsHasEffect(EFFECT_ATTACK_ALL) -end -function c81927732.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) -end -function c81927732.operation(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_ATTACK_ALL) - e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) - end -end -function c81927732.adcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return bc and bc:IsFaceup() and bit.band(bc:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL -end -function c81927732.adop(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetHandler():GetBattleTarget() - if bc:IsRelateToBattle() then - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(0) - e1:SetReset(RESET_EVENT+0x1fe0000) - bc:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - bc:RegisterEffect(e2) - end -end -function c81927732.filter(c) - return c:IsSetCard(0xba) and c:IsType(TYPE_XYZ) -end -function c81927732.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetOverlayGroup():IsExists(c81927732.filter,1,nil) -end -function c81927732.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetFirst():GetAttack()/2) -end -function c81927732.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - local dam=tc:GetAttack()/2 - if dam<0 or tc:IsFacedown() then dam=0 end - if Duel.Destroy(tc,REASON_EFFECT)~=0 then - Duel.Damage(1-tp,dam,REASON_EFFECT) - end - end -end +--RR－レヴォリューション・ファルコン +function c81927732.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_WINDBEAST),6,3) + c:EnableReviveLimit() + --attack all + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(81927732,0)) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCondition(c81927732.condition) + e1:SetCost(c81927732.cost) + e1:SetOperation(c81927732.operation) + c:RegisterEffect(e1) + --atk/def + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_BATTLE_START) + e2:SetCondition(c81927732.adcon) + e2:SetOperation(c81927732.adop) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(81927732,1)) + e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCountLimit(1) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c81927732.descon) + e3:SetTarget(c81927732.destg) + e3:SetOperation(c81927732.desop) + c:RegisterEffect(e3) +end +function c81927732.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsAbleToEnterBP() and not e:GetHandler():IsHasEffect(EFFECT_ATTACK_ALL) +end +function c81927732.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c81927732.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsFaceup() and c:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_ATTACK_ALL) + e1:SetValue(1) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + end +end +function c81927732.adcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local bc=c:GetBattleTarget() + return bc and bc:IsFaceup() and bit.band(bc:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c81927732.adop(e,tp,eg,ep,ev,re,r,rp) + local bc=e:GetHandler():GetBattleTarget() + if bc:IsRelateToBattle() then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(0) + e1:SetReset(RESET_EVENT+0x1fe0000) + bc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) + bc:RegisterEffect(e2) + end +end +function c81927732.filter(c) + return c:IsSetCard(0xba) and c:IsType(TYPE_XYZ) +end +function c81927732.descon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetOverlayGroup():IsExists(c81927732.filter,1,nil) +end +function c81927732.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetFirst():GetAttack()/2) +end +function c81927732.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + local dam=tc:GetAttack()/2 + if dam<0 or tc:IsFacedown() then dam=0 end + if Duel.Destroy(tc,REASON_EFFECT)~=0 then + Duel.Damage(1-tp,dam,REASON_EFFECT) + end + end +end diff --git a/script/c81974607.lua b/script/c81974607.lua new file mode 100644 index 00000000..5cac1ffd --- /dev/null +++ b/script/c81974607.lua @@ -0,0 +1,52 @@ +--光波翼機 +function c81974607.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c81974607.spcon) + c:RegisterEffect(e1) + --lvup + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(81974607,0)) + e2:SetCategory(CATEGORY_LVCHANGE) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCost(c81974607.lvcost) + e2:SetTarget(c81974607.lvtg) + e2:SetOperation(c81974607.lvop) + c:RegisterEffect(e2) +end +function c81974607.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe5) +end +function c81974607.spcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 and + Duel.IsExistingMatchingCard(c81974607.cfilter,c:GetControler(),LOCATION_MZONE,0,1,nil) +end +function c81974607.lvcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c81974607.lvfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe5) and c:GetLevel()>0 +end +function c81974607.lvtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c81974607.lvfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end +end +function c81974607.lvop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c81974607.lvfilter,tp,LOCATION_MZONE,0,nil) + local tc=g:GetFirst() + while tc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_LEVEL) + e1:SetValue(4) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + tc=g:GetNext() + end +end diff --git a/script/c81977953.lua b/script/c81977953.lua index 75bf60a9..7e920b33 100644 --- a/script/c81977953.lua +++ b/script/c81977953.lua @@ -52,7 +52,7 @@ function c81977953.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c81977953.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c81977953.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c81977953.filter(chkc) end diff --git a/script/c81983656.lua b/script/c81983656.lua index 6b0fd81b..69df4474 100644 --- a/script/c81983656.lua +++ b/script/c81983656.lua @@ -27,7 +27,7 @@ function c81983656.initial_effect(c) c:RegisterEffect(e2) --change effect target local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e3:SetType(EFFECT_TYPE_QUICK_O) e3:SetProperty(EFFECT_FLAG_CARD_TARGET) e3:SetCode(EVENT_CHAINING) e3:SetRange(LOCATION_MZONE) @@ -57,18 +57,19 @@ end function c81983656.cbcon(e,tp,eg,ep,ev,re,r,rp) return r~=REASON_REPLACE end -function c81983656.cbfilter(c) - return c:IsFaceup() and c:IsSetCard(0x33) +function c81983656.cbfilter(c,at) + return c:IsFaceup() and c:IsSetCard(0x33) and at:IsContains(c) end function c81983656.cbtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c81983656.cbfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c81983656.cbfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end + local at=Duel.GetAttacker():GetAttackableTarget() + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c81983656.cbfilter(chkc,at) end + if chk==0 then return Duel.IsExistingTarget(c81983656.cbfilter,tp,LOCATION_MZONE,0,1,e:GetHandler(),at) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c81983656.cbfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) + Duel.SelectTarget(tp,c81983656.cbfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),at) end function c81983656.cbop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then + if tc:IsRelateToEffect(e) and not Duel.GetAttacker():IsImmuneToEffect(e) then Duel.ChangeAttackTarget(tc) end end diff --git a/script/c8198620.lua b/script/c8198620.lua index da425be4..d3b60d52 100644 --- a/script/c8198620.lua +++ b/script/c8198620.lua @@ -21,13 +21,14 @@ function c8198620.initial_effect(c) e2:SetTarget(c8198620.attg) e2:SetOperation(c8198620.atop) c:RegisterEffect(e2) - -- + --indes local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) e3:SetRange(LOCATION_MZONE) - e3:SetCode(EVENT_DAMAGE_CALCULATING) - e3:SetCondition(c8198620.indescon) - e3:SetOperation(c8198620.indesop) + e3:SetTargetRange(0,LOCATION_MZONE) + e3:SetTarget(c8198620.indestg) + e3:SetValue(1) c:RegisterEffect(e3) end function c8198620.splimit(e,se,sp,st) @@ -69,15 +70,6 @@ function c8198620.atop(e,tp,eg,ep,ev,re,r,rp) end end end -function c8198620.indescon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetBattleTarget()~=nil -end -function c8198620.indesop(e,tp,eg,ep,ev,re,r,rp) - local bc=e:GetHandler():GetBattleTarget() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) - e1:SetValue(1) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - bc:RegisterEffect(e1,true) +function c8198620.indestg(e,c) + return c==e:GetHandler():GetBattleTarget() end diff --git a/script/c81992475.lua b/script/c81992475.lua old mode 100755 new mode 100644 index e3a029bb..868da5b3 --- a/script/c81992475.lua +++ b/script/c81992475.lua @@ -49,8 +49,11 @@ function c81992475.sstg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c81992475.ssop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c81992475.rmfilter(c) diff --git a/script/c82044279.lua b/script/c82044279.lua index e86de82a..b15c0157 100644 --- a/script/c82044279.lua +++ b/script/c82044279.lua @@ -7,7 +7,7 @@ function c82044279.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(82044279,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_MZONE) diff --git a/script/c82052602.lua b/script/c82052602.lua index c55ec3f0..d18040dc 100644 --- a/script/c82052602.lua +++ b/script/c82052602.lua @@ -59,7 +59,7 @@ function c82052602.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c82052602.filter,tp,LOCATION_GRAVE,0,ft1,ft1,nil,Duel.GetTurnCount(),e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) Duel.BreakEffect() Duel.Damage(tp,g:GetCount()*600,REASON_EFFECT) end diff --git a/script/c82103466.lua b/script/c82103466.lua new file mode 100644 index 00000000..5d1bf686 --- /dev/null +++ b/script/c82103466.lua @@ -0,0 +1,123 @@ +--蛇神ゲー +function c82103466.initial_effect(c) + c:EnableReviveLimit() + --connot special summon + local e0=Effect.CreateEffect(c) + e0:SetType(EFFECT_TYPE_SINGLE) + e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e0:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e0) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(82103466,0)) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CHAIN_UNIQUE) + e1:SetCode(EVENT_DESTROYED) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c82103466.spcon) + e1:SetCost(c82103466.spcost) + e1:SetTarget(c82103466.sptg) + e1:SetOperation(c82103466.spop) + c:RegisterEffect(e1) + --cannot be target + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetRange(LOCATION_MZONE) + e2:SetValue(1) + c:RegisterEffect(e2) + --disable and atk down + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_DISABLE) + e3:SetRange(LOCATION_MZONE) + e3:SetTargetRange(0,LOCATION_MZONE) + e3:SetCondition(c82103466.adcon) + e3:SetTarget(c82103466.adtg) + c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EFFECT_DISABLE_EFFECT) + c:RegisterEffect(e4) + local e5=e3:Clone() + e5:SetCode(EFFECT_SET_ATTACK_FINAL) + e5:SetValue(c82103466.atkval) + c:RegisterEffect(e5) + --atk up + local e6=Effect.CreateEffect(c) + e6:SetCategory(CATEGORY_ATKCHANGE) + e6:SetType(EFFECT_TYPE_QUICK_O) + e6:SetRange(LOCATION_MZONE) + e6:SetCode(EVENT_PRE_DAMAGE_CALCULATE) + e6:SetCondition(c82103466.atkcon) + e6:SetTarget(c82103466.atktg) + e6:SetOperation(c82103466.atkop) + c:RegisterEffect(e6) +end +function c82103466.cfilter(c,tp) + return c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) + and ((c:IsReason(REASON_BATTLE) and Duel.GetAttacker():IsControler(1-tp)) + or (c:IsReason(REASON_EFFECT) and c:GetReasonPlayer()==1-tp)) +end +function c82103466.spcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c82103466.cfilter,1,nil,tp) +end +function c82103466.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2)) +end +function c82103466.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c82103466.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then + c:CompleteProcedure() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c82103466.adcon(e) + local c=e:GetHandler() + return Duel.GetAttacker()==c and c:GetBattleTarget() + and (Duel.GetCurrentPhase()==PHASE_DAMAGE or Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL) +end +function c82103466.adtg(e,c) + return c==e:GetHandler():GetBattleTarget() +end +function c82103466.atkval(e,c) + return math.ceil(c:GetBaseAttack()/2) +end +function c82103466.atkcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c==Duel.GetAttacker() or c==Duel.GetAttackTarget() +end +function c82103466.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then + local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,c) + if g:GetCount()==0 then return false end + local g1,atk=g:GetMaxGroup(Card.GetBaseAttack) + return c:GetAttack()~=atk and c:GetFlagEffect(82103466)==0 + end + c:RegisterFlagEffect(82103466,RESET_CHAIN,0,1) +end +function c82103466.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,c) + if g:GetCount()==0 then return end + local g1,atk=g:GetMaxGroup(Card.GetBaseAttack) + if c:IsRelateToEffect(e) and c:IsFaceup() and atk>0 then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetReset(RESET_EVENT+0x1ff0000) + e1:SetValue(atk) + c:RegisterEffect(e1) + end +end diff --git a/script/c82140600.lua b/script/c82140600.lua index 6ab9bbcf..b488a206 100644 --- a/script/c82140600.lua +++ b/script/c82140600.lua @@ -19,7 +19,7 @@ function c82140600.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local g=Duel.GetMatchingGroup(c82140600.filter,tp,LOCATION_GRAVE,0,nil,e) if chk==0 then return g:GetCount()>4 and g:IsExists(Card.IsSetCard,1,nil,0xa7) and g:IsExists(Card.IsSetCard,1,nil,0xa8) - and Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) local g1=g:FilterSelect(tp,Card.IsSetCard,1,1,nil,0xa7) g:Sub(g1) @@ -31,7 +31,7 @@ function c82140600.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) g1:Merge(g2) g1:Merge(g3) Duel.SetTargetCard(g1) - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_REMOVE,g1,5,0,0) Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,dg:GetCount(),0,0) end @@ -39,7 +39,7 @@ function c82140600.activate(e,tp,eg,ep,ev,re,r,rp) local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local g=tg:Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()==5 and Duel.Remove(g,POS_FACEUP,REASON_EFFECT)>0 then - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) Duel.Destroy(dg,REASON_EFFECT) end end diff --git a/script/c82176812.lua b/script/c82176812.lua index afebe7fd..bf38effc 100644 --- a/script/c82176812.lua +++ b/script/c82176812.lua @@ -10,7 +10,7 @@ function c82176812.initial_effect(c) c:RegisterEffect(e1) end function c82176812.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c82176812.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c82176812.filter(chkc) end diff --git a/script/c82260502.lua b/script/c82260502.lua index ed539bc8..a6b6349b 100644 --- a/script/c82260502.lua +++ b/script/c82260502.lua @@ -10,5 +10,5 @@ function c82260502.initial_effect(c) c:RegisterEffect(e1) end function c82260502.atlimit(e,c) - return c:IsPosition(POS_FACEDOWN_DEFENCE) + return c:IsPosition(POS_FACEDOWN_DEFENSE) end diff --git a/script/c82270047.lua b/script/c82270047.lua index a76614ae..2e390b71 100644 --- a/script/c82270047.lua +++ b/script/c82270047.lua @@ -16,19 +16,14 @@ function c82270047.initial_effect(c) e2:SetValue(500) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --extra attack local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_EXTRA_ATTACK) + e4:SetCode(EFFECT_EXTRA_ATTACK_MONSTER) e4:SetValue(1) c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_EQUIP) - e5:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e5:SetCondition(c82270047.dircon) - c:RegisterEffect(e5) --pierce local e6=Effect.CreateEffect(c) e6:SetType(EFFECT_TYPE_EQUIP) diff --git a/script/c82293134.lua b/script/c82293134.lua old mode 100755 new mode 100644 diff --git a/script/c82308875.lua b/script/c82308875.lua index b1542f0d..f950d255 100644 --- a/script/c82308875.lua +++ b/script/c82308875.lua @@ -56,6 +56,7 @@ function c82308875.operation(e,tp,eg,ep,ev,re,r,rp) elseif op==1 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=spg:Select(tp,1,1,nil) + if sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) else Duel.Draw(tp,3,REASON_EFFECT) diff --git a/script/c82321037.lua b/script/c82321037.lua new file mode 100644 index 00000000..4852f1fe --- /dev/null +++ b/script/c82321037.lua @@ -0,0 +1,99 @@ +--真竜皇バハルストスF +function c82321037.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_HAND) + e1:SetCountLimit(1,82321037) + e1:SetTarget(c82321037.sptg) + e1:SetOperation(c82321037.spop) + c:RegisterEffect(e1) + --spsummon2 + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_DESTROYED) + e2:SetCountLimit(1,82321038) + e2:SetCondition(c82321037.spcon2) + e2:SetTarget(c82321037.sptg2) + e2:SetOperation(c82321037.spop2) + c:RegisterEffect(e2) +end +function c82321037.desfilter(c) + return c:IsType(TYPE_MONSTER) and ((c:IsLocation(LOCATION_MZONE) and c:IsFaceup()) or c:IsLocation(LOCATION_HAND)) +end +function c82321037.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local loc=LOCATION_MZONE+LOCATION_HAND + if ft<0 then loc=LOCATION_MZONE end + local g=Duel.GetMatchingGroup(c82321037.desfilter,tp,loc,0,c) + if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and g:GetCount()>=2 and g:IsExists(Card.IsAttribute,1,nil,ATTRIBUTE_WATER) + and (ft>0 or g:IsExists(Card.IsLocation,-ft+1,nil,LOCATION_MZONE)) end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,2,tp,loc) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) +end +function c82321037.rmfilter(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemove() +end +function c82321037.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local loc=LOCATION_MZONE+LOCATION_HAND + if ft<0 then loc=LOCATION_MZONE end + local g=Duel.GetMatchingGroup(c82321037.desfilter,tp,loc,0,c) + if g:GetCount()<2 or not g:IsExists(Card.IsAttribute,1,nil,ATTRIBUTE_WATER) then return end + local g1=nil local g2=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + if ft<1 then + g1=g:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE) + else + g1=g:Select(tp,1,1,nil) + end + g:RemoveCard(g1:GetFirst()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + if g1:GetFirst():IsAttribute(ATTRIBUTE_WATER) then + g2=g:Select(tp,1,1,nil) + else + g2=g:FilterSelect(tp,Card.IsAttribute,1,1,nil,ATTRIBUTE_WATER) + end + g1:Merge(g2) + local rm=g1:IsExists(Card.IsAttribute,2,nil,ATTRIBUTE_WATER) + if Duel.Destroy(g1,REASON_EFFECT)==2 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + return + end + local rg=Duel.GetMatchingGroup(c82321037.rmfilter,tp,0,LOCATION_ONFIELD+LOCATION_GRAVE,nil) + if rm and rg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(82321037,0)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local tg=rg:Select(tp,1,2,nil) + Duel.HintSelection(tg) + Duel.Remove(tg,POS_FACEUP,REASON_EFFECT) + end + end +end +function c82321037.spcon2(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsReason(REASON_EFFECT) +end +function c82321037.thfilter(c,e,tp) + return not c:IsAttribute(ATTRIBUTE_WATER) and c:IsRace(RACE_WYRM) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c82321037.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c82321037.thfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) +end +function c82321037.spop2(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c82321037.thfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + end +end diff --git a/script/c82324105.lua b/script/c82324105.lua index 1bd86370..bf94f08f 100644 --- a/script/c82324105.lua +++ b/script/c82324105.lua @@ -18,12 +18,14 @@ function c82324105.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c82324105.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,82324106,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c82324105.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,82324106,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) then for i=1,2 do diff --git a/script/c82324312.lua b/script/c82324312.lua index 2af753b4..7d02f67a 100644 --- a/script/c82324312.lua +++ b/script/c82324312.lua @@ -9,7 +9,7 @@ function c82324312.initial_effect(c) e1:SetCondition(c82324312.condition) e1:SetOperation(c82324312.operation) c:RegisterEffect(e1) - --to defence + --to defense local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -38,7 +38,7 @@ end function c82324312.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c82340056.lua b/script/c82340056.lua index face3099..9331a373 100644 --- a/script/c82340056.lua +++ b/script/c82340056.lua @@ -17,7 +17,8 @@ function c82340056.filter(c) return c:IsSetCard(0x21) and c:IsAbleToHand() end function c82340056.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,82340057,0,0x4011,0,0,1,RACE_ROCK,ATTRIBUTE_EARTH) and Duel.IsExistingMatchingCard(c82340056.filter,tp,LOCATION_DECK,0,1,nil) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) @@ -25,6 +26,7 @@ function c82340056.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c82340056.activate(e,tp,eg,ep,ev,re,r,rp) if not Duel.NegateAttack() then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 or not Duel.IsPlayerCanSpecialSummonMonster(tp,82340057,0,0x4011,0,0,1,RACE_ROCK,ATTRIBUTE_EARTH) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) diff --git a/script/c8240199.lua b/script/c8240199.lua new file mode 100644 index 00000000..ecb0a881 --- /dev/null +++ b/script/c8240199.lua @@ -0,0 +1,71 @@ +--青き眼の賢士 +function c8240199.initial_effect(c) + --To hand + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c8240199.thtg) + e1:SetOperation(c8240199.thop) + c:RegisterEffect(e1) + --To grave + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_HAND) + e2:SetCountLimit(1,8240199) + e2:SetCost(c8240199.gvcost) + e2:SetTarget(c8240199.gvtg) + e2:SetOperation(c8240199.gvop) + c:RegisterEffect(e2) +end +function c8240199.thfilter(c) + return c:IsType(TYPE_TUNER) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:GetLevel()==1 and not c:IsCode(8240199) and c:IsAbleToHand() +end +function c8240199.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c8240199.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c8240199.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c8240199.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c8240199.gvcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD) +end +function c8240199.gvfilter(c) + return c:IsFaceup() and c:IsType(TYPE_EFFECT) and c:IsAbleToGrave() +end +function c8240199.spfilter(c,e,tp) + return c:IsSetCard(0xdd) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c8240199.gvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c8240199.gvfilter(chkc) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingTarget(c8240199.gvfilter,tp,LOCATION_MZONE,0,1,nil) + and Duel.IsExistingMatchingCard(c8240199.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectTarget(tp,c8240199.gvfilter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c8240199.gvop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + if Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c8240199.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c8240199.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + end + end +end diff --git a/script/c82404868.lua b/script/c82404868.lua new file mode 100644 index 00000000..51df9a53 --- /dev/null +++ b/script/c82404868.lua @@ -0,0 +1,32 @@ +--黒魔術のヴェール +function c82404868.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCost(c82404868.cost) + e1:SetTarget(c82404868.target) + e1:SetOperation(c82404868.activate) + c:RegisterEffect(e1) +end +function c82404868.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,1000) end + Duel.PayLPCost(tp,1000) +end +function c82404868.filter(c,e,tp) + return c:IsRace(RACE_SPELLCASTER) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c82404868.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c82404868.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) +end +function c82404868.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c82404868.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c82410600.lua b/script/c82410600.lua deleted file mode 100644 index c396b9f1..00000000 --- a/script/c82410600.lua +++ /dev/null @@ -1,44 +0,0 @@ ---Avalon -function c82410600.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_REMOVE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c82410600.target) - e1:SetOperation(c82410600.activate) - c:RegisterEffect(e1) -end -function c82410600.filter(c,e) - return c:IsSetCard(0x107a) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() and c:IsCanBeEffectTarget(e) -end -function c82410600.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - local g=Duel.GetMatchingGroup(c82410600.filter,tp,LOCATION_GRAVE,0,nil,e) - if chk==0 then return g:GetCount()>4 - and g:IsExists(Card.IsSetCard,1,nil,0xa7) and g:IsExists(Card.IsSetCard,1,nil,0xa8) - and Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g1=g:FilterSelect(tp,Card.IsSetCard,1,1,nil,0xa7) - g:Sub(g1) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g2=g:FilterSelect(tp,Card.IsSetCard,1,1,nil,0xa8) - g:Sub(g2) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g3=g:Select(tp,3,3,nil) - g1:Merge(g2) - g1:Merge(g3) - Duel.SetTargetCard(g1) - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g1,5,0,0) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,dg,dg:GetCount(),0,0) -end -function c82410600.activate(e,tp,eg,ep,ev,re,r,rp) - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local g=tg:Filter(Card.IsRelateToEffect,nil,e) - if g:GetCount()==5 and Duel.Remove(g,POS_FACEUP,REASON_EFFECT)>0 then - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - Duel.Destroy(dg,REASON_EFFECT) - end -end diff --git a/script/c82419869.lua b/script/c82419869.lua index 9818d0b1..2567c5b8 100644 --- a/script/c82419869.lua +++ b/script/c82419869.lua @@ -14,7 +14,7 @@ function c82419869.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(82419869,0)) e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCode(EVENT_CHAINING) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e2:SetRange(LOCATION_MZONE) diff --git a/script/c82432018.lua b/script/c82432018.lua old mode 100755 new mode 100644 index 23ec5658..a35a4cfe --- a/script/c82432018.lua +++ b/script/c82432018.lua @@ -17,7 +17,7 @@ function c82432018.initial_effect(c) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(-1000) c:RegisterEffect(e3) --Equip limit @@ -55,9 +55,9 @@ function c82432018.mtcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c82432018.mtop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLP(tp)>1000 and Duel.SelectYesNo(tp,aux.Stringid(82432018,0)) then + if Duel.CheckLPCost(tp,1000) and Duel.SelectYesNo(tp,aux.Stringid(82432018,0)) then Duel.PayLPCost(tp,1000) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end diff --git a/script/c82452993.lua b/script/c82452993.lua index 89cb5b6a..ba34552e 100644 --- a/script/c82452993.lua +++ b/script/c82452993.lua @@ -10,8 +10,7 @@ function c82452993.initial_effect(c) c:RegisterEffect(e1) end function c82452993.filter(c) - local code=c:GetCode() - return c:IsFaceup() and (code==8508055 or code==3810071 or code==49814180) + return c:IsFaceup() and c:IsCode(8508055,3810071,49814180) end function c82452993.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c82498947.lua b/script/c82498947.lua index 813f50a2..7598e319 100644 --- a/script/c82498947.lua +++ b/script/c82498947.lua @@ -17,5 +17,5 @@ function c82498947.con(e) return Duel.IsExistingMatchingCard(c82498947.filter,e:GetHandler():GetControler(),LOCATION_MZONE,0,1,e:GetHandler()) end function c82498947.tg(e,c) - return c:GetAttack()>=e:GetHandler():GetDefence() + return c:GetAttack()>=e:GetHandler():GetDefense() end diff --git a/script/c8251996.lua b/script/c8251996.lua index f0898556..fa700610 100644 --- a/script/c8251996.lua +++ b/script/c8251996.lua @@ -14,16 +14,16 @@ function c8251996.cfilter(c,code) return c:IsFaceup() and c:IsCode(code) end function c8251996.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c8251996.cfilter,tp,LOCATION_MZONE,0,1,nil,12482652) - and Duel.IsExistingMatchingCard(c8251996.cfilter,tp,LOCATION_MZONE,0,1,nil,42941100) - and Duel.IsExistingMatchingCard(c8251996.cfilter,tp,LOCATION_MZONE,0,1,nil,79335209) + return Duel.IsExistingMatchingCard(c8251996.cfilter,tp,LOCATION_ONFIELD,0,1,nil,12482652) + and Duel.IsExistingMatchingCard(c8251996.cfilter,tp,LOCATION_ONFIELD,0,1,nil,42941100) + and Duel.IsExistingMatchingCard(c8251996.cfilter,tp,LOCATION_ONFIELD,0,1,nil,79335209) end function c8251996.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c8251996.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c82556058.lua b/script/c82556058.lua index f6520f0b..741a8f90 100644 --- a/script/c82556058.lua +++ b/script/c82556058.lua @@ -38,6 +38,7 @@ function c82556058.spop(e,tp,eg,ep,ev,re,r,rp) end function c82556058.atkop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) @@ -61,5 +62,8 @@ function c82556058.destg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) end function c82556058.desop(e,tp,eg,ep,ev,re,r,rp) - Duel.Destroy(e:GetHandler(),REASON_EFFECT) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + Duel.Destroy(c,REASON_EFFECT) + end end diff --git a/script/c82579942.lua b/script/c82579942.lua index 8ae63509..464d0456 100644 --- a/script/c82579942.lua +++ b/script/c82579942.lua @@ -18,11 +18,14 @@ function c82579942.initial_effect(c) e2:SetValue(c82579942.valcon) c:RegisterEffect(e2) end +function c82579942.spfilter(c) + return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_LIGHT) +end function c82579942.spcon(e,c) if c==nil then return true end local tp=c:GetControler() return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(Card.IsAttribute,tp,LOCATION_REMOVED,0,3,nil,ATTRIBUTE_LIGHT) + and Duel.IsExistingMatchingCard(c82579942.spfilter,tp,LOCATION_REMOVED,0,3,nil) end function c82579942.valcon(e,re,r,rp) return bit.band(r,REASON_BATTLE)~=0 diff --git a/script/c82627406.lua b/script/c82627406.lua new file mode 100644 index 00000000..77f2edd0 --- /dev/null +++ b/script/c82627406.lua @@ -0,0 +1,68 @@ +--キウイ・マジシャン・ガール +function c82627406.initial_effect(c) + --atk up + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(82627406,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_HAND) + e1:SetHintTiming(TIMING_DAMAGE_STEP) + e1:SetCondition(c82627406.condition) + e1:SetCost(c82627406.cost) + e1:SetTarget(c82627406.target) + e1:SetOperation(c82627406.operation) + c:RegisterEffect(e1) + --indes + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_SPELLCASTER)) + e2:SetValue(1) + c:RegisterEffect(e2) + --cannot be target + local e3=e2:Clone() + e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e3:SetValue(aux.tgoval) + c:RegisterEffect(e3) +end +function c82627406.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated() +end +function c82627406.cost(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:IsDiscardable() end + Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD) +end +function c82627406.atkfilter(c) + return c:IsFaceup() and c:IsSetCard(0x20a2) +end +function c82627406.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c82627406.atkfilter,tp,LOCATION_MZONE,0,1,nil) end +end +function c82627406.ctfilter(c) + return (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) and c:IsType(TYPE_MONSTER) and c:IsSetCard(0x20a2) +end +function c82627406.operation(e,tp,eg,ep,ev,re,r,rp) + local tg=Duel.GetMatchingGroup(c82627406.atkfilter,tp,LOCATION_MZONE,0,nil) + local g=Duel.GetMatchingGroup(c82627406.ctfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,nil) + if tg:GetCount()>0 and g:GetCount()>0 then + local d=g:GetClassCount(Card.GetCode)*300 + local sc=tg:GetFirst() + while sc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(d) + sc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + sc:RegisterEffect(e2) + sc=tg:GetNext() + end + end +end diff --git a/script/c82633039.lua b/script/c82633039.lua index 4a3a2120..4122ee25 100644 --- a/script/c82633039.lua +++ b/script/c82633039.lua @@ -45,7 +45,7 @@ end function c82633039.setop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end function c82633039.tdcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c82633308.lua b/script/c82633308.lua index 56cbe823..fd90744d 100644 --- a/script/c82633308.lua +++ b/script/c82633308.lua @@ -27,9 +27,9 @@ function c82633308.activate(e,tp,eg,ep,ev,re,r,rp) if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=3 then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) if ct==3 then - Duel.ShuffleDeck(tp) Duel.BreakEffect() Duel.Draw(tp,2,REASON_EFFECT) end diff --git a/script/c82639107.lua b/script/c82639107.lua index 04f5ad24..25cae479 100644 --- a/script/c82639107.lua +++ b/script/c82639107.lua @@ -18,6 +18,7 @@ function c82639107.filter(c) end function c82639107.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsPlayerCanDraw(tp,2) + and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=3 and Duel.IsExistingMatchingCard(c82639107.filter,tp,LOCATION_HAND,0,1,nil) and Duel.IsExistingMatchingCard(c82639107.filter,tp,LOCATION_DECK,0,1,nil) end Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) diff --git a/script/c82642348.lua b/script/c82642348.lua index c7adb762..0b52e294 100644 --- a/script/c82642348.lua +++ b/script/c82642348.lua @@ -24,7 +24,7 @@ function c82642348.desop(e,tp,eg,ep,ev,re,r,rp) local res=Duel.TossCoin(tp,1) if coin~=res then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.Destroy(g,REASON_EFFECT) end end diff --git a/script/c82670878.lua b/script/c82670878.lua index 9e59fd91..f1a63871 100644 --- a/script/c82670878.lua +++ b/script/c82670878.lua @@ -5,7 +5,7 @@ function c82670878.initial_effect(c) e1:SetDescription(aux.Stringid(82670878,0)) e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(82670878) + e1:SetCode(EVENT_CUSTOM+82670878) e1:SetRange(LOCATION_HAND) e1:SetCondition(c82670878.condition) e1:SetTarget(c82670878.target) @@ -49,7 +49,7 @@ function c82670878.check(e,tp,eg,ep,ev,re,r,rp) c82670878[2]=tc tc:RegisterFlagEffect(82670878,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) elseif c82670878[1-tc:GetControler()]==2 then - Duel.RaiseEvent(tc,82670878,e,0,0,0,0) + Duel.RaiseEvent(tc,EVENT_CUSTOM+82670878,e,0,0,0,0) end end end @@ -74,8 +74,10 @@ function c82670878.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c82670878.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,1,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c82670878.adcon(e,tp,eg,ep,ev,re,r,rp) @@ -93,8 +95,8 @@ function c82670878.adop(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(tc:GetAttack()) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetValue(tc:GetDefence()) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) + e2:SetValue(tc:GetDefense()) c:RegisterEffect(e2) end --at limit diff --git a/script/c8267140.lua b/script/c8267140.lua new file mode 100644 index 00000000..55987e59 --- /dev/null +++ b/script/c8267140.lua @@ -0,0 +1,34 @@ +--コズミック・サイクロン +function c8267140.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_REMOVE) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMING_END_PHASE) + e1:SetCost(c8267140.cost) + e1:SetTarget(c8267140.target) + e1:SetOperation(c8267140.activate) + c:RegisterEffect(e1) +end +function c8267140.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,1000) end + Duel.PayLPCost(tp,1000) +end +function c8267140.filter(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemove() +end +function c8267140.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and c8267140.filter(chkc) and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(c8267140.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectTarget(tp,c8267140.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) +end +function c8267140.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Remove(tc,POS_FACEUP,REASON_EFFECT) + end +end diff --git a/script/c82693917.lua b/script/c82693917.lua index 08d5f0d3..09b26b1f 100644 --- a/script/c82693917.lua +++ b/script/c82693917.lua @@ -9,7 +9,7 @@ function c82693917.initial_effect(c) e1:SetValue(c82693917.value) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e2) --level up local e3=Effect.CreateEffect(c) @@ -51,7 +51,7 @@ function c82693917.cfilter(c) return c:IsFaceup() and c:IsSetCard(0x31) end function c82693917.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c82693917.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then diff --git a/script/c82697249.lua b/script/c82697249.lua new file mode 100644 index 00000000..05b92a94 --- /dev/null +++ b/script/c82697249.lua @@ -0,0 +1,63 @@ +--No.59 背反の料理人 +function c82697249.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,4,2) + c:EnableReviveLimit() + --immune + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_IMMUNE_EFFECT) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetCondition(c82697249.imcon) + e1:SetValue(c82697249.efilter) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(82697249,0)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetCountLimit(1) + e2:SetCost(c82697249.descost) + e2:SetTarget(c82697249.destg) + e2:SetOperation(c82697249.desop) + c:RegisterEffect(e2) +end +c82697249.xyz_number=59 +function c82697249.imcon(e) + return Duel.GetFieldGroupCount(e:GetHandlerPlayer(),LOCATION_ONFIELD,0)==1 +end +function c82697249.efilter(e,te) + return te:GetOwner()~=e:GetOwner() +end +function c82697249.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c82697249.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,0,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c82697249.ctfilter(c) + return c:IsLocation(LOCATION_GRAVE) and c:IsType(TYPE_MONSTER) +end +function c82697249.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,0,c) + if Duel.Destroy(g,REASON_EFFECT)~=0 then + local ct=Duel.GetOperatedGroup():FilterCount(c82697249.ctfilter,nil) + if ct>0 and c:IsFaceup() and c:IsRelateToEffect(e) then + Duel.BreakEffect() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) + e1:SetValue(ct*300) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + end + end +end diff --git a/script/c82734805.lua b/script/c82734805.lua index 9a507f50..d0544730 100644 --- a/script/c82734805.lua +++ b/script/c82734805.lua @@ -97,35 +97,34 @@ function c82734805.op(e,tp,eg,ep,ev,re,r,rp) end end function c82734805.fcfilter1(c,code1,code2,g) - local code=c:GetCode() - return (code==code1 or code==code2) and g:IsExists(Card.IsSetCard,1,c,0xbb) + return c:IsFusionCode(code1,code2) and g:IsExists(Card.IsFusionSetCard,1,c,0xbb) end -function c82734805.fcfilter2(c,code,g) - return (c:IsCode(code) or c:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) and g:IsExists(Card.IsSetCard,1,c,0xbb) +function c82734805.fcfilter2(c,code,g,fc) + return (c:IsFusionCode(code) or c:CheckFusionSubstitute(fc)) and g:IsExists(Card.IsFusionSetCard,1,c,0xbb) end -function c82734805.fcfilter3(c,g) - return ((c:IsCode(14799437) or c:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) and g:IsExists(Card.IsCode,1,c,23440231)) - or ((c:IsCode(23440231) or c:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) and g:IsExists(Card.IsCode,1,c,14799437)) +function c82734805.fcfilter3(c,g,fc) + return ((c:IsFusionCode(14799437) or c:CheckFusionSubstitute(fc)) and g:IsExists(Card.IsFusionCode,1,c,23440231)) + or ((c:IsFusionCode(23440231) or c:CheckFusionSubstitute(fc)) and g:IsExists(Card.IsFusionCode,1,c,14799437)) end -function c82734805.fcfilter4(c,code) - return c:IsCode(code) or c:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) +function c82734805.fcfilter4(c,code,fc) + return c:IsFusionCode(code) or c:CheckFusionSubstitute(fc) end -function c82734805.fcfilter7(c,chkf) - return aux.FConditionCheckF(c,chkf) and (c:IsSetCard(0xbb) or c:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) +function c82734805.fcfilter7(c,chkf,fc) + return aux.FConditionCheckF(c,chkf) and (c:IsFusionSetCard(0xbb) or c:CheckFusionSubstitute(fc)) end function c82734805.fscon(e,g,gc,chkf) if g==nil then return true end if gc then local mg=g:Clone() mg:RemoveCard(gc) - if gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then + if gc:CheckFusionSubstitute(e:GetHandler()) then return mg:IsExists(c82734805.fcfilter1,1,nil,14799437,23440231,mg) - elseif gc:IsCode(14799437) then - return mg:IsExists(c82734805.fcfilter2,1,nil,23440231,mg) - elseif gc:IsCode(23440231) then - return mg:IsExists(c82734805.fcfilter2,1,nil,14799437,mg) - elseif gc:IsSetCard(0xbb) then - return mg:IsExists(c82734805.fcfilter3,1,nil,mg) + elseif gc:IsFusionCode(14799437) then + return mg:IsExists(c82734805.fcfilter2,1,nil,23440231,mg,e:GetHandler()) + elseif gc:IsFusionCode(23440231) then + return mg:IsExists(c82734805.fcfilter2,1,nil,14799437,mg,e:GetHandler()) + elseif gc:IsFusionSetCard(0xbb) then + return mg:IsExists(c82734805.fcfilter3,1,nil,mg,e:GetHandler()) else return false end @@ -134,13 +133,13 @@ function c82734805.fscon(e,g,gc,chkf) local fs=false local tc=g:GetFirst() while tc do - if tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then + if tc:CheckFusionSubstitute(e:GetHandler()) then bs=1 if aux.FConditionCheckF(tc,chkf) then fs=true end - elseif tc:IsCode(14799437) then + elseif tc:IsFusionCode(14799437) then if b1==0 then b1=1 else b3=1 end if aux.FConditionCheckF(tc,chkf) then fs=true end - elseif tc:IsCode(23440231) then + elseif tc:IsFusionCode(23440231) then if b2==0 then b2=1 else b3=1 end if aux.FConditionCheckF(tc,chkf) then fs=true end - elseif tc:IsSetCard(0xbb) then + elseif tc:IsFusionSetCard(0xbb) then b3=1 if aux.FConditionCheckF(tc,chkf) then fs=true end end tc=g:GetNext() @@ -155,36 +154,36 @@ function c82734805.fsop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) local g1=Group.CreateGroup() if not gc and chkf~=PLAYER_NONE then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - gc=eg:FilterSelect(tp,c82734805.fcfilter7,1,1,nil,chkf):GetFirst() + gc=eg:FilterSelect(tp,c82734805.fcfilter7,1,1,nil,chkf,e:GetHandler()):GetFirst() g1:AddCard(gc) end local mg=eg:Clone() if gc then mg:RemoveCard(gc) end local ok=false if gc then - if gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then + if gc:CheckFusionSubstitute(e:GetHandler()) then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) local sg=mg:FilterSelect(tp,c82734805.fcfilter1,1,1,nil,14799437,23440231,mg) g1:Merge(sg) - elseif gc:IsCode(14799437) then + elseif gc:IsFusionCode(14799437) then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local sg=mg:FilterSelect(tp,c82734805.fcfilter2,1,1,nil,23440231,mg) + local sg=mg:FilterSelect(tp,c82734805.fcfilter2,1,1,nil,23440231,mg,e:GetHandler()) g1:Merge(sg) - elseif gc:IsCode(23440231) then + elseif gc:IsFusionCode(23440231) then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local sg=mg:FilterSelect(tp,c82734805.fcfilter2,1,1,nil,14799437,mg) + local sg=mg:FilterSelect(tp,c82734805.fcfilter2,1,1,nil,14799437,mg,e:GetHandler()) g1:Merge(sg) - elseif gc:IsSetCard(0xbb) then + elseif gc:IsFusionSetCard(0xbb) then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local sg=mg:FilterSelect(tp,c82734805.fcfilter3,1,1,nil,14799437,23440231,mg) + local sg=mg:FilterSelect(tp,c82734805.fcfilter3,1,1,nil,mg,e:GetHandler()) g1:Merge(sg) local tc1=sg:GetFirst() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if tc1:IsCode(14799437) then - local sg=mg:FilterSelect(tp,c82734805.fcfilter4,1,1,nil,23440231) + if tc1:IsFusionCode(14799437) then + local sg=mg:FilterSelect(tp,c82734805.fcfilter4,1,1,nil,23440231,e:GetHandler()) g1:Merge(sg) - elseif tc1:IsCode(23440231) then - local sg=mg:FilterSelect(tp,c82734805.fcfilter4,1,1,nil,14799437) + elseif tc1:IsFusionCode(23440231) then + local sg=mg:FilterSelect(tp,c82734805.fcfilter4,1,1,nil,14799437,e:GetHandler()) g1:Merge(sg) else local sg=mg:FilterSelect(tp,aux.FConditionFilter21,1,1,nil,14799437,23440231) @@ -193,23 +192,23 @@ function c82734805.fsop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) ok=true end else - local mg2=mg:Filter(aux.FConditionFilter22,nil,14799437,23440231,true) + local mg2=mg:Filter(aux.FConditionFilter22,nil,14799437,23440231,true,e:GetHandler()) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) local sg1=mg2:Select(tp,1,1,nil) local tc1=sg1:GetFirst() - if not mg:IsExists(Card.IsSetCard,2,tc1,0xbb) then - mg2:Remove(Card.IsSetCard,nil,0xbb) + if not mg:IsExists(Card.IsFusionSetCard,2,tc1,0xbb) then + mg2:Remove(Card.IsFusionSetCard,nil,0xbb) end - if tc1:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then - mg2:Remove(Card.IsHasEffect,nil,EFFECT_FUSION_SUBSTITUTE) - else mg2:Remove(Card.IsCode,nil,tc1:GetCode()) end + if tc1:CheckFusionSubstitute(e:GetHandler()) then + mg2:Remove(Card.CheckFusionSubstitute,nil,e:GetHandler()) + else mg2:Remove(Card.IsFusionCode,nil,tc1:GetCode()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) local sg2=mg2:Select(tp,1,1,nil) g1:Merge(sg1) g1:Merge(sg2) end mg:Sub(g1) - mg=mg:Filter(Card.IsSetCard,nil,0xbb) + mg=mg:Filter(Card.IsFusionSetCard,nil,0xbb) if mg:GetCount()==0 or (ok and not Duel.SelectYesNo(tp,93)) then Duel.SetFusionMaterial(g1) return diff --git a/script/c82744076.lua b/script/c82744076.lua new file mode 100644 index 00000000..b2b354f9 --- /dev/null +++ b/script/c82744076.lua @@ -0,0 +1,91 @@ +--チューニングガム +function c82744076.initial_effect(c) + --tuner + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(82744076,0)) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1,82744076) + e1:SetCost(c82744076.cost) + e1:SetTarget(c82744076.target) + e1:SetOperation(c82744076.operation) + c:RegisterEffect(e1) + --negate + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(82744076,1)) + e2:SetCategory(CATEGORY_NEGATE) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_CHAINING) + e2:SetRange(LOCATION_GRAVE) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e2:SetCondition(c82744076.negcon) + e2:SetCost(c82744076.negcost) + e2:SetTarget(c82744076.negtg) + e2:SetOperation(c82744076.negop) + c:RegisterEffect(e2) + Duel.AddCustomActivityCounter(82744076,ACTIVITY_ATTACK,c82744076.counterfilter) +end +function c82744076.counterfilter(c) + return c:IsType(TYPE_SYNCHRO) +end +function c82744076.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetCustomActivityCount(82744076,tp,ACTIVITY_ATTACK)==0 end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetProperty(EFFECT_FLAG_OATH+EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetTarget(c82744076.atklimit) + e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c82744076.atklimit(e,c) + return not c:IsType(TYPE_SYNCHRO) +end +function c82744076.filter(c) + return c:IsFaceup() and not c:IsType(TYPE_TUNER) +end +function c82744076.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c82744076.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c82744076.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c82744076.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c82744076.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_ADD_TYPE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(TYPE_TUNER) + tc:RegisterEffect(e1) + end +end +function c82744076.cfilter(c,tp) + return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsType(TYPE_SYNCHRO) +end +function c82744076.negcon(e,tp,eg,ep,ev,re,r,rp) + if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end + local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) + if not g or g:GetCount()~=1 then return false end + local tc=g:GetFirst() + return c82744076.cfilter(tc,tp) and Duel.IsChainNegatable(ev) +end +function c82744076.negcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c82744076.negtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) +end +function c82744076.negop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then + Duel.SendtoGrave(eg,REASON_EFFECT) + end +end diff --git a/script/c82828051.lua b/script/c82828051.lua index 7871d5d9..d9651de9 100644 --- a/script/c82828051.lua +++ b/script/c82828051.lua @@ -19,5 +19,5 @@ function c82828051.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c82828051.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c82828051.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) end diff --git a/script/c82841979.lua b/script/c82841979.lua index 4065a808..7e7e760d 100644 --- a/script/c82841979.lua +++ b/script/c82841979.lua @@ -1,6 +1,8 @@ --大和神 function c82841979.initial_effect(c) c:EnableReviveLimit() + --spirit return + aux.EnableSpiritReturn(c,EVENT_SPSUMMON_SUCCESS) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) @@ -16,13 +18,6 @@ function c82841979.initial_effect(c) e2:SetCondition(c82841979.spcon) e2:SetOperation(c82841979.spop) c:RegisterEffect(e2) - --spsummon success - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetOperation(c82841979.retreg) - c:RegisterEffect(e3) --destroy local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(82841979,0)) @@ -47,44 +42,8 @@ function c82841979.spop(e,tp,eg,ep,ev,re,r,rp,c) local g=Duel.SelectMatchingCard(tp,c82841979.spfilter,tp,LOCATION_GRAVE,0,1,1,nil) Duel.Remove(g,POS_FACEUP,REASON_COST) end -function c82841979.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(82841979,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c82841979.retcon) - e1:SetTarget(c82841979.rettg) - e1:SetOperation(c82841979.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c82841979.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c82841979.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c82841979.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end function c82841979.filter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c82841979.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c82841979.filter(chkc) end diff --git a/script/c82962242.lua b/script/c82962242.lua old mode 100755 new mode 100644 diff --git a/script/c82971335.lua b/script/c82971335.lua index 139130a5..9e7c9d47 100644 --- a/script/c82971335.lua +++ b/script/c82971335.lua @@ -9,7 +9,7 @@ function c82971335.initial_effect(c) e1:SetValue(c82971335.value) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e2) --level up local e3=Effect.CreateEffect(c) diff --git a/script/c82994509.lua b/script/c82994509.lua old mode 100755 new mode 100644 index b3286b0d..42b7e8b5 --- a/script/c82994509.lua +++ b/script/c82994509.lua @@ -21,30 +21,22 @@ function c82994509.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c82994509.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(1-tp,LOCATION_MZONE)<=0 then return end - if not Duel.IsPlayerCanSpecialSummonMonster(tp,82994510,0,0x4011,0,0,1,RACE_PLANT,ATTRIBUTE_WIND,POS_FACEUP_DEFENCE,1-tp) then return end + if not Duel.IsPlayerCanSpecialSummonMonster(tp,82994510,0,0x4011,0,0,1,RACE_PLANT,ATTRIBUTE_WIND,POS_FACEUP_DEFENSE,1-tp) then return end local token=Duel.CreateToken(tp,82994510) - if Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) then + if Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetLabelObject(token) - e1:SetCondition(c82994509.handcon) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_LEAVE_FIELD) e1:SetOperation(c82994509.handop) - Duel.RegisterEffect(e1,tp) + token:RegisterEffect(e1,true) end Duel.SpecialSummonComplete() end -function c82994509.handcon(e,tp,eg,ep,ev,re,r,rp) - local tok=e:GetLabelObject() - if eg:IsContains(tok) and tok:GetReasonCard():IsRace(RACE_PLANT) then - return true - else - if not tok:IsLocation(LOCATION_MZONE) then e:Reset() end - return false - end -end function c82994509.handop(e,tp,eg,ep,ev,re,r,rp) - local tok=e:GetLabelObject() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - Duel.DiscardHand(tok:GetPreviousControler(),nil,1,1,REASON_EFFECT) + local c=e:GetHandler() + if c:IsReason(REASON_BATTLE) and c:GetBattleTarget():IsRace(RACE_PLANT) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + Duel.DiscardHand(c:GetPreviousControler(),nil,1,1,REASON_EFFECT) + end + e:Reset() end diff --git a/script/c82999629.lua b/script/c82999629.lua index 28ec18ea..3ecca489 100644 --- a/script/c82999629.lua +++ b/script/c82999629.lua @@ -16,7 +16,7 @@ function c82999629.initial_effect(c) c:RegisterEffect(e2) --Def down local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(-400) c:RegisterEffect(e3) end diff --git a/script/c83011278.lua b/script/c83011278.lua deleted file mode 100644 index 8d4a8de6..00000000 --- a/script/c83011278.lua +++ /dev/null @@ -1,32 +0,0 @@ ---キラー·トマト(EU) -function c83011278.initial_effect(c) - --special summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(83011278,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_BATTLE_DESTROYED) - e1:SetCondition(c83011278.condition) - e1:SetTarget(c83011278.target) - e1:SetOperation(c83011278.operation) - c:RegisterEffect(e1) -end -function c83011278.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) -end -function c83011278.filter(c,e,tp) - return c:IsAttackBelow(1500) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c83011278.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c83011278.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c83011278.operation(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c83011278.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_ATTACK) - end -end diff --git a/script/c83021423.lua b/script/c83021423.lua index e767015c..64ade21e 100644 --- a/script/c83021423.lua +++ b/script/c83021423.lua @@ -13,7 +13,7 @@ function c83021423.initial_effect(c) c:RegisterEffect(e1) end function c83021423.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c83021423.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c83021423.filter(chkc) end diff --git a/script/c83054225.lua b/script/c83054225.lua index 1df9ad72..bc926a8c 100644 --- a/script/c83054225.lua +++ b/script/c83054225.lua @@ -20,12 +20,12 @@ function c83054225.spfilter(c,e,tp) return c:IsSetCard(0x101b) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c83054225.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + local ct=Duel.GetMatchingGroupCount(c83054225.spfilter,tp,LOCATION_DECK,0,nil,e,tp) if chk==0 then if Duel.GetFlagEffect(tp,83054225)~=0 or Duel.GetLocationCount(tp,LOCATION_MZONE)<0 then return false end - local ct=Duel.GetMatchingGroupCount(c83054225.spfilter,tp,LOCATION_DECK,0,nil,e,tp) return ct>0 and Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,31533705) end - local ct=Duel.GetMatchingGroupCount(c83054225.spfilter,tp,LOCATION_DECK,0,nil,e,tp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end local g=Duel.SelectReleaseGroup(tp,Card.IsCode,1,ct,nil,31533705) Duel.Release(g,REASON_COST) e:SetLabel(g:GetCount()) @@ -33,8 +33,11 @@ function c83054225.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,g:GetCount(),tp,LOCATION_DECK) end function c83054225.spop(e,tp,eg,ep,ev,re,r,rp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local ct=e:GetLabel() - if Duel.GetLocationCount(tp,LOCATION_MZONE)0 then - Duel.ChangePosition(sg,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(sg,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c83135907.lua b/script/c83135907.lua index cb5e4fe2..28612f9d 100644 --- a/script/c83135907.lua +++ b/script/c83135907.lua @@ -36,7 +36,7 @@ function c83135907.initial_effect(c) c:RegisterEffect(e4) end function c83135907.regop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsDefencePos() and e:GetHandler():IsFaceup() then + if e:GetHandler():IsDefensePos() and e:GetHandler():IsFaceup() then e:GetHandler():RegisterFlagEffect(83135907,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE,0,1) end end diff --git a/script/c83190280.lua b/script/c83190280.lua new file mode 100644 index 00000000..c58c7291 --- /dev/null +++ b/script/c83190280.lua @@ -0,0 +1,103 @@ +--月光虎 +function c83190280.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1) + e1:SetTarget(c83190280.sptg) + e1:SetOperation(c83190280.spop) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_DESTROYED) + e2:SetCountLimit(1,83190280) + e2:SetCondition(c83190280.spcon2) + e2:SetTarget(c83190280.sptg2) + e2:SetOperation(c83190280.spop2) + c:RegisterEffect(e2) +end +function c83190280.filter(c,e,tp) + return c:IsSetCard(0xdf) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c83190280.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c83190280.filter(chkc,e,tp) end + if chk==0 then return Duel.IsExistingTarget(c83190280.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c83190280.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c83190280.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_CANNOT_ATTACK) + e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e3:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e3) + tc:RegisterFlagEffect(83190280,RESET_EVENT+0x1fe0000,0,1) + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e4:SetCode(EVENT_PHASE+PHASE_END) + e4:SetCountLimit(1) + e4:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e4:SetLabelObject(tc) + e4:SetCondition(c83190280.descon) + e4:SetOperation(c83190280.desop) + Duel.RegisterEffect(e4,tp) + end + Duel.SpecialSummonComplete() +end +function c83190280.descon(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + if tc:GetFlagEffect(83190280)~=0 then + return true + else + e:Reset() + return false + end +end +function c83190280.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + Duel.Destroy(tc,REASON_EFFECT) +end +function c83190280.spcon2(e,tp,eg,ep,ev,re,r,rp) + return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) +end +function c83190280.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c83190280.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c83190280.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c83190280.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c83190280.spop2(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c83228073.lua b/script/c83228073.lua index 79d8352f..73e945c2 100644 --- a/script/c83228073.lua +++ b/script/c83228073.lua @@ -12,8 +12,8 @@ function c83228073.initial_effect(c) c:RegisterEffect(e1) end function c83228073.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetAttackTarget()==e:GetHandler() and e:GetHandler():IsDefencePos() - and Duel.GetAttacker():GetAttack()0 and Duel.Destroy(g,REASON_EFFECT)~=0 and c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) - end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) @@ -89,6 +87,15 @@ function c83303851.desop(e,tp,eg,ep,ev,re,r,rp) e1:SetTarget(c83303851.splimit) e1:SetReset(RESET_PHASE+PHASE_END) Duel.RegisterEffect(e1,tp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()>0 and Duel.Destroy(g,REASON_EFFECT)~=0 then + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end + end end function c83303851.splimit(e,c) return c:GetRace()~=RACE_FIEND diff --git a/script/c83326048.lua b/script/c83326048.lua new file mode 100644 index 00000000..7e345a72 --- /dev/null +++ b/script/c83326048.lua @@ -0,0 +1,51 @@ +--次元障壁 +function c83326048.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DISABLE) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,0x1c0) + e1:SetCountLimit(1,83326048+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c83326048.target) + e1:SetOperation(c83326048.operation) + c:RegisterEffect(e1) +end +function c83326048.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE) + Duel.SetTargetParam(Duel.SelectOption(tp,1057,1056,1063,1073,1074)) +end +function c83326048.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local opt=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) + local ct=nil + if opt==0 then ct=TYPE_RITUAL end + if opt==1 then ct=TYPE_FUSION end + if opt==2 then ct=TYPE_SYNCHRO end + if opt==3 then ct=TYPE_XYZ end + if opt==4 then ct=TYPE_PENDULUM end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetLabel(ct) + e1:SetTargetRange(1,1) + e1:SetTarget(c83326048.sumlimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_DISABLE) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetTarget(c83326048.distg) + e2:SetLabel(ct) + e2:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e2,tp) +end +function c83326048.sumlimit(e,c,sump,sumtype,sumpos,targetp) + return c:IsType(e:GetLabel()) +end +function c83326048.distg(e,c) + return c:IsType(e:GetLabel()) +end diff --git a/script/c83438826.lua b/script/c83438826.lua index 32c69a75..60578ca5 100644 --- a/script/c83438826.lua +++ b/script/c83438826.lua @@ -62,7 +62,7 @@ function c83438826.operation(e,tp,eg,ep,ev,re,r,rp) end end function c83438826.desfilter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c83438826.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and c83438826.desfilter(chkc) end diff --git a/script/c83443619.lua b/script/c83443619.lua new file mode 100644 index 00000000..6a3ba515 --- /dev/null +++ b/script/c83443619.lua @@ -0,0 +1,88 @@ +--水晶機巧－スモーガ－ +function c83443619.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(83443619,0)) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,83443619) + e1:SetTarget(c83443619.sptg) + e1:SetOperation(c83443619.spop) + c:RegisterEffect(e1) + --search + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(83443619,1)) + e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,83443619) + e2:SetCost(c83443619.thcost) + e2:SetTarget(c83443619.thtg) + e2:SetOperation(c83443619.thop) + c:RegisterEffect(e2) +end +function c83443619.desfilter(c) + return c:IsFaceup() +end +function c83443619.spfilter(c,e,tp) + return c:IsSetCard(0xea) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c83443619.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(e:GetLabel()) and chkc:IsControler(tp) and c83443619.desfilter(chkc) end + if chk==0 then + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<-1 then return false end + local loc=LOCATION_ONFIELD + if ft==0 then loc=LOCATION_MZONE end + e:SetLabel(loc) + return Duel.IsExistingTarget(c83443619.desfilter,tp,loc,0,1,nil) + and Duel.IsExistingMatchingCard(c83443619.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c83443619.desfilter,tp,e:GetLabel(),0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c83443619.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c83443619.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetTarget(c83443619.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c83443619.splimit(e,c) + return not (c:IsRace(RACE_MACHINE) and c:IsType(TYPE_SYNCHRO)) and c:IsLocation(LOCATION_EXTRA) +end +function c83443619.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c83443619.thfilter(c) + return c:IsSetCard(0xea) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() +end +function c83443619.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c83443619.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c83443619.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c83443619.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c83446909.lua b/script/c83446909.lua index bb1d38f1..ed0ff124 100644 --- a/script/c83446909.lua +++ b/script/c83446909.lua @@ -18,7 +18,7 @@ function c83446909.initial_effect(c) e2:SetValue(c83446909.val) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end function c83446909.spfilter(c,e,tp) diff --git a/script/c83461421.lua b/script/c83461421.lua old mode 100755 new mode 100644 index f0e2517c..a78c9ffd --- a/script/c83461421.lua +++ b/script/c83461421.lua @@ -10,10 +10,10 @@ function c83461421.initial_effect(c) c:RegisterEffect(e1) end function c83461421.filter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() + return (c:GetSequence()==6 or c:GetSequence()==7) end function c83461421.filter2(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c83461421.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c83461421.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil) end diff --git a/script/c83531441.lua b/script/c83531441.lua old mode 100755 new mode 100644 index c92c4425..eb7188ec --- a/script/c83531441.lua +++ b/script/c83531441.lua @@ -1,89 +1,88 @@ ---彼岸の旅人 ダンテ -function c83531441.initial_effect(c) - --xyz summon - aux.AddXyzProcedure(c,nil,3,2) - c:EnableReviveLimit() - --atkup - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(83531441,0)) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetCost(c83531441.atkcost) - e1:SetOperation(c83531441.atkop) - c:RegisterEffect(e1) - --to defence - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_PHASE+PHASE_BATTLE) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetCondition(c83531441.poscon) - e2:SetOperation(c83531441.posop) - c:RegisterEffect(e2) - --to hand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(83531441,1)) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetTarget(c83531441.thtg) - e3:SetOperation(c83531441.thop) - c:RegisterEffect(e3) -end -function c83531441.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDiscardDeckAsCost(tp,1) and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end - e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) - local ct=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0) - if ct==1 then - Duel.DiscardDeck(tp,1,REASON_COST) - e:SetLabel(1) - else - local ac=0 - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(83531441,2)) - if ct==2 then ac=Duel.AnnounceNumber(tp,2,1) - else ac=Duel.AnnounceNumber(tp,3,2,1) end - Duel.DiscardDeck(tp,ac,REASON_COST) - e:SetLabel(ac) - end -end -function c83531441.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) then - local ct=e:GetLabel() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) - e1:SetValue(ct*500) - c:RegisterEffect(e1) - end -end -function c83531441.poscon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetAttackedCount()>0 -end -function c83531441.posop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) - end -end -function c83531441.filter(c) - return c:IsSetCard(0xb1) and c:IsAbleToHand() -end -function c83531441.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c83531441.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c83531441.filter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c83531441.filter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c83531441.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--彼岸の旅人 ダンテ +function c83531441.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,3,2) + c:EnableReviveLimit() + --atkup + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(83531441,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCost(c83531441.atkcost) + e1:SetOperation(c83531441.atkop) + c:RegisterEffect(e1) + --to defense + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_PHASE+PHASE_BATTLE) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCondition(c83531441.poscon) + e2:SetOperation(c83531441.posop) + c:RegisterEffect(e2) + --to hand + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(83531441,1)) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetTarget(c83531441.thtg) + e3:SetOperation(c83531441.thop) + c:RegisterEffect(e3) +end +function c83531441.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDiscardDeckAsCost(tp,1) and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) + local ct=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0) + if ct==1 then + Duel.DiscardDeck(tp,1,REASON_COST) + e:SetLabel(1) + else + local ac=0 + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(83531441,2)) + if ct==2 then ac=Duel.AnnounceNumber(tp,2,1) + else ac=Duel.AnnounceNumber(tp,3,2,1) end + Duel.DiscardDeck(tp,ac,REASON_COST) + e:SetLabel(ac) + end +end +function c83531441.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsFaceup() and c:IsRelateToEffect(e) then + local ct=e:GetLabel() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) + e1:SetValue(ct*500) + c:RegisterEffect(e1) + end +end +function c83531441.poscon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetAttackedCount()>0 +end +function c83531441.posop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsAttackPos() then + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) + end +end +function c83531441.filter(c) + return c:IsSetCard(0xb1) and c:IsAbleToHand() +end +function c83531441.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c83531441.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c83531441.filter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c83531441.filter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c83531441.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c83544697.lua b/script/c83544697.lua index d163cfdd..81f745cf 100644 --- a/script/c83544697.lua +++ b/script/c83544697.lua @@ -13,17 +13,14 @@ end function c83544697.filter1(c) return c:IsSetCard(0x10) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() end -function c83544697.filter2(c) - return c:IsDestructable() -end function c83544697.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end if chk==0 then return Duel.IsExistingTarget(c83544697.filter1,tp,LOCATION_GRAVE,0,2,nil) - and Duel.IsExistingTarget(c83544697.filter2,tp,0,LOCATION_ONFIELD,1,e:GetHandler()) end + and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) local g1=Duel.SelectTarget(tp,c83544697.filter1,tp,LOCATION_GRAVE,0,2,2,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,c83544697.filter2,tp,0,LOCATION_ONFIELD,1,1,e:GetHandler()) + local g2=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_TODECK,g1,2,0,0) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g2,1,0,0) end diff --git a/script/c83546647.lua b/script/c83546647.lua old mode 100755 new mode 100644 index 00db0090..49f74325 --- a/script/c83546647.lua +++ b/script/c83546647.lua @@ -30,7 +30,8 @@ function c83546647.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then if e:GetLabel()~=0 then return false end e:SetLabel(1) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingMatchingCard(c83546647.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM) @@ -55,6 +56,7 @@ function c83546647.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND+LOCATION_DECK) end function c83546647.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local tc1=Duel.GetFirstTarget() if not tc1:IsRelateToEffect(e) or not tc1:IsCanBeSpecialSummoned(e,0,tp,false,false) then return end diff --git a/script/c83555666.lua b/script/c83555666.lua index 7f7c4c9d..2fc5f225 100644 --- a/script/c83555666.lua +++ b/script/c83555666.lua @@ -17,7 +17,7 @@ function c83555666.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()~=tp end function c83555666.filter(c,lp) - return c:IsFaceup() and c:IsAttackBelow(lp) and c:IsDestructable() + return c:IsFaceup() and c:IsAttackBelow(lp) end function c83555666.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local lp=Duel.GetLP(1-tp) diff --git a/script/c83555667.lua b/script/c83555667.lua deleted file mode 100644 index 7605aedf..00000000 --- a/script/c83555667.lua +++ /dev/null @@ -1,34 +0,0 @@ ---破壊輪(EU) -function c83555667.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetHintTiming(0,0x1e1) - e1:SetTarget(c83555667.target) - e1:SetOperation(c83555667.activate) - c:RegisterEffect(e1) -end -function c83555667.filter(c) - return c:IsFaceup() and c:IsDestructable() -end -function c83555667.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and c83555667.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c83555667.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c83555667.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,0) -end -function c83555667.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - local atk=tc:GetAttack() - if Duel.Destroy(tc,REASON_EFFECT)>0 then - Duel.Damage(1-tp,atk,REASON_EFFECT) - Duel.Damage(tp,atk,REASON_EFFECT) - end - end -end diff --git a/script/c83584898.lua b/script/c83584898.lua index e26d8b38..99c36fee 100644 --- a/script/c83584898.lua +++ b/script/c83584898.lua @@ -17,7 +17,7 @@ function c83584898.initial_effect(c) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_SET_DEFENCE) + e3:SetCode(EFFECT_SET_DEFENSE) e3:SetValue(100) c:RegisterEffect(e3) local e4=Effect.CreateEffect(c) diff --git a/script/c83604828.lua b/script/c83604828.lua index 648a4b32..0841a80e 100644 --- a/script/c83604828.lua +++ b/script/c83604828.lua @@ -31,6 +31,6 @@ function c83604828.ctop(e,tp,eg,ep,ev,re,r,rp) for i=1,lv do Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(83604828,1)) local tc=g:Select(tp,1,1,nil):GetFirst() - tc:AddCounter(0x19,1) + tc:AddCounter(0x1019,1) end end diff --git a/script/c83715234.lua b/script/c83715234.lua index 52e1897a..5c9b74f0 100644 --- a/script/c83715234.lua +++ b/script/c83715234.lua @@ -28,7 +28,7 @@ function c83715234.descon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c83715234.cfilter,1,nil,tp) end function c83715234.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c83715234.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and c83715234.desfilter(chkc) end diff --git a/script/c83746708.lua b/script/c83746708.lua index 7488791a..321cf439 100644 --- a/script/c83746708.lua +++ b/script/c83746708.lua @@ -17,7 +17,7 @@ function c83746708.initial_effect(c) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(c83746708.value) c:RegisterEffect(e3) --Equip limit diff --git a/script/c83755611.lua b/script/c83755611.lua index 79ea3be1..ee38da8b 100644 --- a/script/c83755611.lua +++ b/script/c83755611.lua @@ -66,17 +66,17 @@ function c83755611.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if ft<0 then return false elseif ft>0 then - return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,nil) + return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,0,1,nil) else - return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,0,1,nil) + return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,0,1,nil) end end local g1=nil Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) if ft>0 then - g1=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,1,nil) + g1=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,0,1,1,nil) else - g1=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,0,1,1,nil) + g1=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,0,1,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g2=Duel.SelectTarget(tp,c83755611.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) diff --git a/script/c83764719.lua b/script/c83764719.lua deleted file mode 100644 index cbabecb0..00000000 --- a/script/c83764719.lua +++ /dev/null @@ -1,29 +0,0 @@ ---死者蘇生(EU) -function c83764719.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c83764719.target) - e1:SetOperation(c83764719.activate) - c:RegisterEffect(e1) -end -function c83764719.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c83764719.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and c83764719.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c83764719.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c83764719.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c83764719.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end diff --git a/script/c83778600.lua b/script/c83778600.lua index 5e4b25a7..ef05b673 100644 --- a/script/c83778600.lua +++ b/script/c83778600.lua @@ -11,7 +11,7 @@ function c83778600.initial_effect(c) c:RegisterEffect(e1) end function c83778600.filter(c,e,tp) - return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENCE,1-tp) + return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE,1-tp) end function c83778600.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and c83778600.filter(chkc,e,tp) end @@ -24,6 +24,6 @@ end function c83778600.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c8384771.lua b/script/c8384771.lua new file mode 100644 index 00000000..8c0c3fcb --- /dev/null +++ b/script/c8384771.lua @@ -0,0 +1,52 @@ +--EMゴムゴムートン +function c8384771.initial_effect(c) + aux.EnablePendulumAttribute(c) + --indes + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetCountLimit(1) + e1:SetRange(LOCATION_PZONE) + e1:SetCondition(c8384771.condition) + e1:SetTarget(c8384771.target) + e1:SetOperation(c8384771.operation1) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetRange(LOCATION_MZONE) + e2:SetOperation(c8384771.operation2) + c:RegisterEffect(e2) +end +function c8384771.condition(e,tp,eg,ep,ev,re,r,rp) + local a=Duel.GetAttacker() + local d=Duel.GetAttackTarget() + if not d or a:GetControler()==d:GetControler() then return false end + if a:IsControler(tp) then e:SetLabelObject(a) else e:SetLabelObject(d) end + return true +end +function c8384771.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetCard(e:GetLabelObject()) +end +function c8384771.operation1(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetValue(1) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE) + tc:RegisterEffect(e1) + end +end +function c8384771.operation2(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + e1:SetValue(1) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE) + tc:RegisterEffect(e1) + end +end diff --git a/script/c83866861.lua b/script/c83866861.lua index 21be8283..236dbd38 100644 --- a/script/c83866861.lua +++ b/script/c83866861.lua @@ -2,7 +2,7 @@ function c83866861.initial_effect(c) --fusion material c:EnableReviveLimit() - aux.AddFusionProcFunRep(c,c83866861.ffilter,3,false) + aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0xad),3,false) --spsummon condition local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) @@ -39,9 +39,6 @@ function c83866861.initial_effect(c) e4:SetValue(c83866861.atkval) c:RegisterEffect(e4) end -function c83866861.ffilter(c) - return c:IsFusionSetCard(0xad) or c:IsHasEffect(36693940) -end function c83866861.aclimit(e,re,tp) return not re:GetHandler():IsImmuneToEffect(e) end @@ -58,7 +55,7 @@ function c83866861.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and bc:IsCanBeSpecialSummoned(e,0,tp,false,false) end Duel.SetTargetCard(bc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,LOCATION_GRAVE) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,0) end function c83866861.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() diff --git a/script/c83887306.lua b/script/c83887306.lua index a3b744b3..616bff84 100644 --- a/script/c83887306.lua +++ b/script/c83887306.lua @@ -12,12 +12,12 @@ function c83887306.initial_effect(c) end function c83887306.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,0,2,nil) - and Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,0,2,nil) + and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,0,2,2,nil) + local g1=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,0,2,2,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g2=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) g1:Merge(g2) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,3,0,0) end diff --git a/script/c8396952.lua b/script/c8396952.lua index bfa9f9a5..a49e998e 100644 --- a/script/c8396952.lua +++ b/script/c8396952.lua @@ -1,4 +1,4 @@ ---アルカナフォースI－THE MAGICIAN +--アルカナフォースⅠ－THE MAGICIAN function c8396952.initial_effect(c) --coin local e1=Effect.CreateEffect(c) diff --git a/script/c83986578.lua b/script/c83986578.lua index 85cbf936..54fe82ff 100644 --- a/script/c83986578.lua +++ b/script/c83986578.lua @@ -19,7 +19,7 @@ function c83986578.cfilter(c) return c:IsFaceup() and c:IsAttackBelow(1400) end function c83986578.condition(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c83986578.cfilter,1,nil) and not eg:IsContains(e:GetHandler()) + return eg:IsExists(c83986578.cfilter,1,nil) and not eg:IsContains(e:GetHandler()) and not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) end function c83986578.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c83994646.lua b/script/c83994646.lua index 7935b02c..62c7e5c4 100644 --- a/script/c83994646.lua +++ b/script/c83994646.lua @@ -10,7 +10,7 @@ function c83994646.initial_effect(c) c:RegisterEffect(e1) end function c83994646.filter(c) - return c:IsFaceup() and c:GetLevel()==4 and c:IsDestructable() + return c:IsFaceup() and c:GetLevel()==4 end function c83994646.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return true end diff --git a/script/c8400623.lua b/script/c8400623.lua index 9283000d..161f4d28 100644 --- a/script/c8400623.lua +++ b/script/c8400623.lua @@ -51,17 +51,17 @@ function c8400623.spop(e,tp,eg,ep,ev,re,r,rp,c) e1:SetValue(g:GetCount()*600) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e2) end function c8400623.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c8400623.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end + if chkc then return chkc:IsOnField() end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c8400623.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c84013237.lua b/script/c84013237.lua index ca472acc..c61c72ce 100644 --- a/script/c84013237.lua +++ b/script/c84013237.lua @@ -1,4 +1,4 @@ ---Ｎｏ.３９ 希望皇ホープ +--No.39 希望皇ホープ function c84013237.initial_effect(c) --xyz summon aux.AddXyzProcedure(c,nil,4,2) diff --git a/script/c84025439.lua b/script/c84025439.lua index 855632cb..53031aeb 100644 --- a/script/c84025439.lua +++ b/script/c84025439.lua @@ -9,6 +9,7 @@ function c84025439.initial_effect(c) e1:SetCategory(CATEGORY_TODECK) e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,0x1e0) e1:SetRange(LOCATION_MZONE) e1:SetCountLimit(1) e1:SetCondition(c84025439.tdcon) @@ -81,16 +82,18 @@ function c84025439.drcon(e) return e:GetHandler():GetOverlayGroup():GetClassCount(Card.GetCode)>=6 end function c84025439.spfilter(c,e,tp) - return c:IsSetCard(0x20dc) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x20dc) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c84025439.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local g=Duel.GetMatchingGroup(c84025439.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and g:GetClassCount(Card.GetCode)>2 + return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and g:GetClassCount(Card.GetCode)>2 end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,tp,LOCATION_GRAVE) end function c84025439.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) local g=Duel.GetMatchingGroup(c84025439.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp) if ft>2 and g:GetClassCount(Card.GetCode)>2 then @@ -104,6 +107,7 @@ function c84025439.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g3=g:Select(tp,1,1,nil) g1:Merge(g3) + if g1:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummon(g1,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c84046493.lua b/script/c84046493.lua new file mode 100644 index 00000000..85f0f35b --- /dev/null +++ b/script/c84046493.lua @@ -0,0 +1,34 @@ +--ゴースト・ビーフ +function c84046493.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --scale change + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(84046493,0)) + e1:SetCategory(CATEGORY_DICE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetTarget(c84046493.sctg) + e1:SetOperation(c84046493.scop) + c:RegisterEffect(e1) +end +function c84046493.sctg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetLeftScale()<10 end + Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) +end +function c84046493.scop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:GetLeftScale()>=10 then return end + local dc=Duel.TossDice(tp,1) + local sch=math.min(10-c:GetLeftScale(),dc) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_LSCALE) + e1:SetValue(sch) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_RSCALE) + c:RegisterEffect(e2) +end diff --git a/script/c84055227.lua b/script/c84055227.lua index 5b93386f..41955803 100644 --- a/script/c84055227.lua +++ b/script/c84055227.lua @@ -1,6 +1,6 @@ --ゲイシャドウ function c84055227.initial_effect(c) - c:EnableCounterPermit(0x3001) + c:EnableCounterPermit(0x1) --add counter local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(84055227,0)) @@ -23,8 +23,8 @@ function c84055227.condition(e,tp,eg,ep,ev,re,r,rp) return c:IsRelateToBattle() and c:GetBattleTarget():IsType(TYPE_MONSTER) end function c84055227.operation(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end function c84055227.attackup(e,c) - return c:GetCounter(0x3001)*200 + return c:GetCounter(0x1)*200 end diff --git a/script/c84058253.lua b/script/c84058253.lua index 63f89296..f1a5bd67 100644 --- a/script/c84058253.lua +++ b/script/c84058253.lua @@ -30,7 +30,7 @@ function c84058253.initial_effect(c) c:RegisterEffect(e3) end function c84058253.ffilter(c) - return c:IsSetCard(0x1093) + return c:IsFusionSetCard(0x1093) end function c84058253.fscondition(e,g,gc,chkf) if g==nil then return false end @@ -65,7 +65,7 @@ function c84058253.descon(e,tp,eg,ep,ev,re,r,rp) return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION end function c84058253.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c84058253.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c84058253.desfilter(chkc) end diff --git a/script/c84080939.lua b/script/c84080939.lua deleted file mode 100644 index 92571bf1..00000000 --- a/script/c84080939.lua +++ /dev/null @@ -1,35 +0,0 @@ ---慈悲深き修道女(EU) -function c84080939.initial_effect(c) - --to hand - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetRange(LOCATION_MZONE) - e1:SetCost(c84080939.cost) - e1:SetTarget(c84080939.target) - e1:SetOperation(c84080939.operation) - c:RegisterEffect(e1) -end -function c84080939.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsReleasable() end - Duel.Release(e:GetHandler(),REASON_COST) -end -function c84080939.filter(c,tid) - return c:IsType(TYPE_MONSTER) and c:GetTurnID()==tid and c:IsReason(REASON_BATTLE) and c:IsAbleToHand() -end -function c84080939.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - local tid=Duel.GetTurnCount() - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c84080939.filter(chkc,tid) end - if chk==0 then return Duel.IsExistingTarget(c84080939.filter,tp,LOCATION_GRAVE,0,1,nil,tid) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) - local g=Duel.SelectTarget(tp,c84080939.filter,tp,LOCATION_GRAVE,0,1,1,nil,tid) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c84080939.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end diff --git a/script/c84136000.lua b/script/c84136000.lua index d3632ceb..4501bfcd 100644 --- a/script/c84136000.lua +++ b/script/c84136000.lua @@ -37,7 +37,7 @@ function c84136000.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local tc=g:GetFirst() while tc do - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tc:GetControler(),tc:GetControler(),false,false,POS_FACEUP_DEFENCE) then + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tc:GetControler(),tc:GetControler(),false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) diff --git a/script/c84171830.lua b/script/c84171830.lua old mode 100755 new mode 100644 index a55680ec..f3651c9c --- a/script/c84171830.lua +++ b/script/c84171830.lua @@ -17,11 +17,13 @@ function c84171830.initial_effect(c) c:RegisterEffect(e2) --atk local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_PRE_DAMAGE_CALCULATE) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_UPDATE_ATTACK) e3:SetRange(LOCATION_FZONE) + e3:SetTargetRange(LOCATION_MZONE,0) e3:SetCondition(c84171830.atkcon) - e3:SetOperation(c84171830.atkop) + e3:SetTarget(c84171830.atktg) + e3:SetValue(800) c:RegisterEffect(e3) --lv local e4=Effect.CreateEffect(c) @@ -45,27 +47,16 @@ function c84171830.discon(e) and Duel.IsExistingMatchingCard(c84171830.cfilter,tp,LOCATION_MZONE,0,1,nil) and not Duel.IsExistingMatchingCard(c84171830.cfilter,tp,0,LOCATION_MZONE,1,nil) end -function c84171830.atkcon(e,tp,eg,ep,ev,re,r,rp) - local c=Duel.GetAttacker() - local atg=Duel.GetAttackTarget() - return c:IsControler(tp) and bit.band(c:GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE and atg and atg:IsControler(1-tp) +function c84171830.atkcon(e) + local d=Duel.GetAttackTarget() + local tp=e:GetHandlerPlayer() + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and d and d:IsControler(1-tp) end function c84171830.atktg(e,c) - return Duel.GetAttacker()==c -end -function c84171830.atkop(e,tp,eg,ep,ev,re,r,rp) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetRange(LOCATION_FZONE) - e1:SetTargetRange(LOCATION_MZONE,0) - e1:SetTarget(c84171830.atktg) - e1:SetValue(800) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL) - e:GetHandler():RegisterEffect(e1) + return c==Duel.GetAttacker() and bit.band(c:GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE end function c84171830.filter(c) - return c:GetAttack()==2800 and c:GetDefence()==1000 + return c:GetAttack()==2800 and c:GetDefense()==1000 end function c84171830.lvtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c84171830.filter,tp,LOCATION_HAND,0,1,nil) end diff --git a/script/c84173492.lua b/script/c84173492.lua index 9c79c28c..896900f1 100644 --- a/script/c84173492.lua +++ b/script/c84173492.lua @@ -1,6 +1,6 @@ --不屈闘士 レイレイ function c84173492.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -16,7 +16,7 @@ end function c84173492.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c84224627.lua b/script/c84224627.lua index f1daeae3..bd975fbf 100644 --- a/script/c84224627.lua +++ b/script/c84224627.lua @@ -53,8 +53,8 @@ function c84224627.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(tc:GetBaseAttack()*2) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetValue(tc:GetBaseDefence()*2) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) + e2:SetValue(tc:GetBaseDefense()*2) tc:RegisterEffect(e2) end end diff --git a/script/c84243274.lua b/script/c84243274.lua index 524f668d..7c422056 100644 --- a/script/c84243274.lua +++ b/script/c84243274.lua @@ -45,16 +45,17 @@ function c84243274.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA) end function c84243274.spfilter(c,code) - return c:IsCode(code) and c:IsAbleToRemoveAsCost() + return c:IsFusionCode(code) and c:IsAbleToRemoveAsCost() end function c84243274.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-1 then return false end local g1=Duel.GetMatchingGroup(c84243274.spfilter,tp,LOCATION_ONFIELD,0,nil,58859575) local g2=Duel.GetMatchingGroup(c84243274.spfilter,tp,LOCATION_ONFIELD,0,nil,91998119) if g1:GetCount()==0 or g2:GetCount()==0 then return false end + if g1:GetCount()==1 and g2:GetCount()==1 and g1:GetFirst()==g2:GetFirst() then return false end if ft>0 then return true end local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) @@ -72,12 +73,22 @@ function c84243274.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) if ft<=0 then tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() + ft=ft+1 else tc=g1:Select(tp,1,1,nil):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 + if i==1 then + g1:Clear() + if tc:IsFusionCode(91998119) then + local sg=Duel.GetMatchingGroup(c84243274.spfilter,tp,LOCATION_ONFIELD,0,tc,58859575) + g1:Merge(sg) + end + if tc:IsFusionCode(58859575) then + local sg=Duel.GetMatchingGroup(c84243274.spfilter,tp,LOCATION_ONFIELD,0,tc,91998119) + g1:Merge(sg) + end + end end Duel.Remove(g,POS_FACEUP,REASON_COST) end @@ -104,6 +115,6 @@ end function c84243274.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,true) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,true) end end diff --git a/script/c84257640.lua b/script/c84257640.lua deleted file mode 100644 index e2b8fcff..00000000 --- a/script/c84257640.lua +++ /dev/null @@ -1,22 +0,0 @@ ---治療の神 ディアン·ケト(EU) -function c84257640.initial_effect(c) - --recover - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCategory(CATEGORY_RECOVER) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c84257640.tg) - e1:SetOperation(c84257640.op) - c:RegisterEffect(e1) -end -function c84257640.tg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(1000) - Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,1000) -end -function c84257640.op(e,tp,eg,ep,ev,re,r,rp) - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Recover(p,d,REASON_EFFECT) -end diff --git a/script/c84290642.lua b/script/c84290642.lua index 035661f3..0e02630e 100644 --- a/script/c84290642.lua +++ b/script/c84290642.lua @@ -17,10 +17,10 @@ function c84290642.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c84290642.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) end function c84290642.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c84298614.lua b/script/c84298614.lua index 3c75a225..434632e0 100644 --- a/script/c84298614.lua +++ b/script/c84298614.lua @@ -33,8 +33,10 @@ end function c84298614.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_OWNER_RELATE) @@ -44,7 +46,7 @@ function c84298614.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetCondition(c84298614.rcon) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) local e3=e1:Clone() e3:SetCode(EFFECT_UPDATE_LEVEL) diff --git a/script/c84305651.lua b/script/c84305651.lua index 55fa484c..1a700291 100644 --- a/script/c84305651.lua +++ b/script/c84305651.lua @@ -14,7 +14,6 @@ function c84305651.initial_effect(c) c:RegisterEffect(e1) --special summon local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) e2:SetCode(EVENT_BATTLE_DESTROYING) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e2:SetCondition(aux.bdogcon) @@ -58,7 +57,10 @@ function c84305651.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end if op==0 then Duel.SetTargetCard(bc) + e:SetCategory(CATEGORY_SPECIAL_SUMMON) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,0) + else + e:SetCategory(CATEGORY_CONTROL) end e:SetLabel(op) end @@ -72,10 +74,8 @@ function c84305651.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) local g=Duel.SelectMatchingCard(tp,c84305651.ctfilter,tp,0,LOCATION_MZONE,1,1,nil) local tc=g:GetFirst() - if tc and not Duel.GetControl(tc,tp) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc then + Duel.GetControl(tc,tp) end end end diff --git a/script/c84313685.lua b/script/c84313685.lua index 55a3bf13..6c6aa98c 100644 --- a/script/c84313685.lua +++ b/script/c84313685.lua @@ -85,8 +85,10 @@ function c84313685.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c84313685.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c84313685.gspcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c84361420.lua b/script/c84361420.lua index dbe53164..648cbd85 100644 --- a/script/c84361420.lua +++ b/script/c84361420.lua @@ -17,14 +17,11 @@ function c84361420.cost(e,tp,eg,ep,ev,re,r,rp,chk) local g=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,59793705) Duel.Release(g,REASON_COST) end -function c84361420.filter(c) - return c:IsDestructable() -end function c84361420.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c84361420.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c84361420.filter,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c84361420.filter,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0) end diff --git a/script/c84388461.lua b/script/c84388461.lua index e99d8e02..24f6b2a0 100644 --- a/script/c84388461.lua +++ b/script/c84388461.lua @@ -7,10 +7,9 @@ function c84388461.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_PZONE) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetTargetRange(1,0) e2:SetTarget(c84388461.splimit) - e2:SetCondition(aux.nfbdncon) c:RegisterEffect(e2) --spsummon local e3=Effect.CreateEffect(c) @@ -28,15 +27,25 @@ function c84388461.splimit(e,c,sump,sumtype,sumpos,targetp) if c:IsSetCard(0xb4) or c:IsSetCard(0xc4) then return false end return bit.band(sumtype,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM end -function c84388461.filter(c,e,tp,m) +function c84388461.filter(c,e,tp,m,ft) if not c:IsSetCard(0xb4) or bit.band(c:GetType(),0x81)~=0x81 or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end local mg=m:Filter(Card.IsCanBeRitualMaterial,c,c) - if c:IsCode(21105106) then return c:ritual_custom_condition(mg) end + if c:IsCode(21105106) then return c:ritual_custom_condition(mg,ft) end if c.mat_filter then mg=mg:Filter(c.mat_filter,nil) end - return mg:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,99,c) + if ft>0 then + return mg:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,99,c) + else + return ft>-1 and mg:IsExists(c84388461.mfilterf,1,nil,tp,mg,c) + end +end +function c84388461.mfilterf(c,tp,mg,rc) + if c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) then + Duel.SetSelectedCard(c) + return mg:CheckWithSumEqual(Card.GetRitualLevel,rc:GetLevel(),0,99,rc) + else return false end end function c84388461.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsReleasable() end @@ -46,14 +55,17 @@ function c84388461.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local mg=Duel.GetRitualMaterial(tp) mg:RemoveCard(e:GetHandler()) - return Duel.IsExistingMatchingCard(c84388461.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if e:GetHandler():IsLocation(LOCATION_MZONE) then ft=ft+1 end + return Duel.IsExistingMatchingCard(c84388461.filter,tp,LOCATION_HAND,0,1,nil,e,tp,mg,ft) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) end function c84388461.operation(e,tp,eg,ep,ev,re,r,rp) local mg=Duel.GetRitualMaterial(tp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c84388461.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg) + local tg=Duel.SelectMatchingCard(tp,c84388461.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,mg,ft) local tc=tg:GetFirst() if tc then mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc) @@ -65,8 +77,18 @@ function c84388461.operation(e,tp,eg,ep,ev,re,r,rp) if tc.mat_filter then mg=mg:Filter(tc.mat_filter,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),1,99,tc) + local mat=nil + if ft>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),1,99,tc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:FilterSelect(tp,c84388461.mfilterf,1,1,nil,tp,mg,tc) + Duel.SetSelectedCard(mat) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local mat2=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),0,99,tc) + mat:Merge(mat2) + end tc:SetMaterial(mat) Duel.ReleaseRitualMaterial(mat) end diff --git a/script/c84401683.lua b/script/c84401683.lua index ebb539db..d9c1c6b7 100644 --- a/script/c84401683.lua +++ b/script/c84401683.lua @@ -73,7 +73,7 @@ function c84401683.negop(e,tp,eg,ep,ev,re,r,rp) end end function c84401683.desfilter(c) - return c:IsFaceup() and c:GetAttack()==0 and c:IsDestructable() + return c:IsFaceup() and c:GetAttack()==0 end function c84401683.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c84401683.desfilter(chkc) end diff --git a/script/c84416799.lua b/script/c84416799.lua deleted file mode 100644 index cea70046..00000000 --- a/script/c84416799.lua +++ /dev/null @@ -1,33 +0,0 @@ ---Silent Magician LV0 -function c84416799.initial_effect(c) - --Update ATK and Level - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetRange(LOCATION_MZONE) - e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetCode(EVENT_DRAW) - e1:SetCondition(c84416799.rcon) - e1:SetOperation(c84416799.rop) - c:RegisterEffect(e1) - end -function c84416799.rcon(e,tp,eg,ep,ev,re,r,rp) -return ep~=tp - end -function c84416799.rop(e,tp,eg,ep,ev,re,r,rp) -local c=e:GetHandler() -local ct=eg:GetCount() ---Attack Up -local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetValue(ct*500) - c:RegisterEffect(e1) ---Level Up -local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_UPDATE_LEVEL) - e2:SetValue(ct) - e2:SetReset(RESET_EVENT+0x1ff0000) - c:RegisterEffect(e2) -end diff --git a/script/c84417082.lua b/script/c84417082.lua index 5387c4d9..b04d7b22 100644 --- a/script/c84417082.lua +++ b/script/c84417082.lua @@ -33,7 +33,7 @@ function c84417082.cost1(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,3,3,REASON_COST) end function c84417082.filter1(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c84417082.target1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c84417082.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end @@ -50,11 +50,11 @@ function c84417082.cost2(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,5,5,REASON_COST) end function c84417082.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c84417082.operation2(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c84442536.lua b/script/c84442536.lua new file mode 100644 index 00000000..2d015657 --- /dev/null +++ b/script/c84442536.lua @@ -0,0 +1,67 @@ +--グレイドル・コンバット +function c84442536.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_CHAINING) + e1:SetCondition(c84442536.condition) + e1:SetTarget(c84442536.target) + e1:SetOperation(c84442536.activate) + c:RegisterEffect(e1) +end +function c84442536.cfilter(c,tp) + return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsSetCard(0xd1) +end +function c84442536.condition(e,tp,eg,ep,ev,re,r,rp) + if not (re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) + and (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE))) then return false end + local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) + if not g or g:GetCount()~=1 then return false end + local tc=g:GetFirst() + e:SetLabelObject(tc) + return c84442536.cfilter(tc,tp) +end +function c84442536.target(e,tp,eg,ep,ev,re,r,rp,chk) + local tc=e:GetLabelObject() + if chk==0 then return tc and (Duel.IsChainNegatable(ev) or tc:IsLocation(LOCATION_MZONE)) end + local sel=0 + if Duel.IsChainNegatable(ev) and tc:IsLocation(LOCATION_MZONE) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EFFECT) + sel=Duel.SelectOption(tp,aux.Stringid(84442536,0),aux.Stringid(84442536,1)) + elseif tc:IsLocation(LOCATION_MZONE) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EFFECT) + sel=Duel.SelectOption(tp,aux.Stringid(84442536,0)) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EFFECT) + sel=Duel.SelectOption(tp,aux.Stringid(84442536,1))+1 + end + e:SetLabel(sel) + if sel==1 then + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end + end +end +function c84442536.activate(e,tp,eg,ep,ev,re,r,rp) + local sel=e:GetLabel() + if sel==0 then + Duel.ChangeChainOperation(ev,c84442536.repop) + else + Duel.NegateActivation(ev) + if re:GetHandler():IsRelateToEffect(re) then + Duel.Destroy(eg,REASON_EFFECT) + end + end +end +function c84442536.repop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:GetType()==TYPE_SPELL or c:GetType()==TYPE_TRAP then + c:CancelToGrave(false) + end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c84451804.lua b/script/c84451804.lua index 3b418220..7ba68ee0 100644 --- a/script/c84451804.lua +++ b/script/c84451804.lua @@ -27,7 +27,7 @@ function c84451804.operation(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) local ct=Duel.GetMatchingGroupCount(Card.IsCode,tp,LOCATION_GRAVE,0,nil,10456559) if ft0 and g2:GetCount()>0 then @@ -54,7 +54,7 @@ function c84488827.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c84488827.operation(e,tp,eg,ep,ev,re,r,rp) if e:GetLabel()==1 then - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) elseif e:GetLabel()==2 then local g=Duel.GetMatchingGroup(c84488827.sfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) diff --git a/script/c84491298.lua b/script/c84491298.lua index 4ed669cd..f9f4f942 100644 --- a/script/c84491298.lua +++ b/script/c84491298.lua @@ -12,10 +12,10 @@ function c84491298.initial_effect(c) end function c84491298.condition(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() - return a:IsControler(1-tp) and a:GetCounter(0xe)>0 + return a:IsControler(1-tp) and a:GetCounter(0x100e)>0 end function c84491298.filter(c) - return c:IsAttackPos() and c:IsDestructable() + return c:IsAttackPos() end function c84491298.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c84491298.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c84592800.lua b/script/c84592800.lua index 15aad5b2..d2401707 100644 --- a/script/c84592800.lua +++ b/script/c84592800.lua @@ -11,7 +11,7 @@ function c84592800.initial_effect(c) c:RegisterEffect(e1) --def local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetCondition(c84592800.cond) c:RegisterEffect(e2) end @@ -19,7 +19,7 @@ function c84592800.cona(e) return e:GetHandler():IsAttackPos() end function c84592800.cond(e) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end function c84592800.val(e,c) return c:GetEquipCount()*800 diff --git a/script/c8463720.lua b/script/c8463720.lua index 5bedb01b..1a59e97d 100644 --- a/script/c8463720.lua +++ b/script/c8463720.lua @@ -28,7 +28,7 @@ function c8463720.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c8463720.filter(c) - return c:GetSequence()<5 and c:IsDestructable() + return c:GetSequence()<5 end function c8463720.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c8463720.filter,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil) end diff --git a/script/c84677654.lua b/script/c84677654.lua index c1ae0a35..75e6bc6c 100644 --- a/script/c84677654.lua +++ b/script/c84677654.lua @@ -34,7 +34,7 @@ function c84677654.operation(e,tp,eg,ep,ev,re,r,rp) tc=g:GetNext() end elseif coin1==0 and coin2==0 then - local lp=Duel.GetLP(tp)-lv*500 - Duel.SetLP(tp,lp>0 and lp or 0) + local lp=Duel.GetLP(tp) + Duel.SetLP(tp,lp-lv*500) end end diff --git a/script/c84687358.lua b/script/c84687358.lua index a56e22dc..5abeb2a2 100644 --- a/script/c84687358.lua +++ b/script/c84687358.lua @@ -1,44 +1,44 @@ ---ミラーフォース・ドラゴン -function c84687358.initial_effect(c) - c:EnableReviveLimit() - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetCode(EVENT_BE_BATTLE_TARGET) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c84687358.descon1) - e2:SetTarget(c84687358.destg) - e2:SetOperation(c84687358.desop) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_BECOME_TARGET) - e3:SetCondition(c84687358.descon2) - c:RegisterEffect(e3) -end -c84687358.material_trap=44095762 -function c84687358.tgfilter(c,tp) - return c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) -end -function c84687358.descon1(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c84687358.tgfilter,1,nil,tp) -end -function c84687358.descon2(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp and eg:IsExists(c84687358.tgfilter,1,nil,tp) -end -function c84687358.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) - and not e:GetHandler():IsStatus(STATUS_CHAINING) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c84687358.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) - Duel.Destroy(g,REASON_EFFECT) -end +--ミラーフォース・ドラゴン +function c84687358.initial_effect(c) + c:EnableReviveLimit() + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_BE_BATTLE_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(c84687358.descon1) + e2:SetTarget(c84687358.destg) + e2:SetOperation(c84687358.desop) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_BECOME_TARGET) + e3:SetCondition(c84687358.descon2) + c:RegisterEffect(e3) +end +c84687358.material_trap=44095762 +function c84687358.tgfilter(c,tp) + return c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) +end +function c84687358.descon1(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c84687358.tgfilter,1,nil,tp) +end +function c84687358.descon2(e,tp,eg,ep,ev,re,r,rp) + return rp~=tp and eg:IsExists(c84687358.tgfilter,1,nil,tp) +end +function c84687358.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) + and not e:GetHandler():IsStatus(STATUS_CHAINING) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c84687358.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c84740193.lua b/script/c84740193.lua index 6ca7df21..26c198d7 100644 --- a/script/c84740193.lua +++ b/script/c84740193.lua @@ -48,5 +48,5 @@ function c84740193.atkcon(e) if not ec:IsRelateToBattle() then return end local bc=ec:GetBattleTarget() return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and bc - and ((bc:IsAttackPos() and bc:IsAttackAbove(2500)) or (bc:IsDefencePos() and bc:IsDefenceAbove(2500))) + and ((bc:IsAttackPos() and bc:IsAttackAbove(2500)) or (bc:IsDefensePos() and bc:IsDefenseAbove(2500))) end diff --git a/script/c84747429.lua b/script/c84747429.lua old mode 100755 new mode 100644 index 56480029..32c3ef13 --- a/script/c84747429.lua +++ b/script/c84747429.lua @@ -23,7 +23,7 @@ function c84747429.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c84747429.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c84747429.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c84747429.filter(chkc) end diff --git a/script/c84764038.lua b/script/c84764038.lua old mode 100755 new mode 100644 index 2c352111..ef738af5 --- a/script/c84764038.lua +++ b/script/c84764038.lua @@ -22,9 +22,22 @@ function c84764038.initial_effect(c) --to grave local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e3:SetCode(EVENT_TO_GRAVE) e3:SetOperation(c84764038.regop) c:RegisterEffect(e3) + --search + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(84764038,1)) + e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_PHASE+PHASE_END) + e4:SetCountLimit(1,84764038) + e4:SetRange(LOCATION_GRAVE) + e4:SetCondition(c84764038.thcon) + e4:SetTarget(c84764038.thtg) + e4:SetOperation(c84764038.thop) + c:RegisterEffect(e4) end function c84764038.sdfilter(c) return not c:IsFaceup() or not c:IsSetCard(0xb1) @@ -44,28 +57,24 @@ function c84764038.sstg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c84764038.ssop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c84764038.regop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(84764038,1)) - e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetCountLimit(1,84764038) - e1:SetRange(LOCATION_GRAVE) - e1:SetTarget(c84764038.thtg) - e1:SetOperation(c84764038.thop) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - c:RegisterEffect(e1) + c:RegisterFlagEffect(84764038,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) end function c84764038.thfilter(c) return c:GetLevel()==3 and c:IsAttribute(ATTRIBUTE_DARK) and c:IsRace(RACE_FIEND) and not c:IsCode(84764038) and c:IsAbleToHand() end +function c84764038.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(84764038)>0 +end function c84764038.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c84764038.thfilter,tp,LOCATION_DECK,0,1,nil) end Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) diff --git a/script/c84766279.lua b/script/c84766279.lua index f3d39116..319321eb 100644 --- a/script/c84766279.lua +++ b/script/c84766279.lua @@ -26,7 +26,7 @@ function c84766279.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoDeck(g,nil,2,REASON_COST) end function c84766279.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c84766279.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c84766279.filter(chkc) end diff --git a/script/c84769941.lua b/script/c84769941.lua new file mode 100644 index 00000000..9ca015a5 --- /dev/null +++ b/script/c84769941.lua @@ -0,0 +1,82 @@ +--Super Anti-Kaiju War Machine Mecha-Dogoran +function c84769941.initial_effect(c) + c:EnableReviveLimit() + c:SetUniqueOnField(1,0,20000000,LOCATION_MZONE) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c84769941.spcon) + c:RegisterEffect(e1) + --equip + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(84769941,0)) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetCategory(CATEGORY_EQUIP) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCost(c84769941.eqcost) + e2:SetTarget(c84769941.eqtg) + e2:SetOperation(c84769941.eqop) + c:RegisterEffect(e2) + --atk + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetCode(EFFECT_UPDATE_ATTACK) + e3:SetRange(LOCATION_MZONE) + e3:SetValue(c84769941.atkval) + c:RegisterEffect(e3) +end +function c84769941.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xd3) +end +function c84769941.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c84769941.cfilter,tp,0,LOCATION_MZONE,1,nil) +end +function c84769941.eqcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x37,2,REASON_COST) end + Duel.RemoveCounter(tp,1,1,0x37,2,REASON_COST) +end +function c84769941.eqfilter(c) + return c:IsSetCard(0xd3) and c:IsType(TYPE_MONSTER) and not c:IsForbidden() +end +function c84769941.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 + and Duel.IsExistingMatchingCard(c84769941.eqfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND) +end +function c84769941.eqop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end + if c:IsFacedown() or not c:IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + local g=Duel.SelectMatchingCard(tp,c84769941.eqfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil) + local tc=g:GetFirst() + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then + if not Duel.Equip(tp,tc,c,true) then return end + tc:RegisterFlagEffect(84769941,RESET_EVENT+0x1fe0000,0,0) + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_EQUIP_LIMIT) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(c84769941.eqlimit) + tc:RegisterEffect(e1) + end +end +function c84769941.eqlimit(e,c) + return e:GetOwner()==c +end +function c84769941.atkfilter(c) + return c:IsSetCard(0xd3) and c:GetAttack()>=0 and c:GetFlagEffect(84769941)~=0 +end +function c84769941.atkval(e,c) + local g=e:GetHandler():GetEquipGroup():Filter(c84769941.atkfilter,nil) + return g:GetSum(Card.GetAttack) +end diff --git a/script/c847915.lua b/script/c847915.lua old mode 100755 new mode 100644 diff --git a/script/c84812868.lua b/script/c84812868.lua new file mode 100644 index 00000000..f275e102 --- /dev/null +++ b/script/c84812868.lua @@ -0,0 +1,61 @@ +--月光白兎 +function c84812868.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(84812868,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c84812868.sptg) + e1:SetOperation(c84812868.spop) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetTarget(c84812868.thtg) + e2:SetOperation(c84812868.thop) + c:RegisterEffect(e2) +end +function c84812868.spfilter(c,e,tp) + return c:IsSetCard(0xdf) and not c:IsCode(84812868) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c84812868.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c84812868.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c84812868.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c84812868.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c84812868.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + end +end +function c84812868.filter(c) + return c:IsFaceup() and c:IsSetCard(0xdf) +end +function c84812868.filter2(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() +end +function c84812868.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c84812868.filter2(chkc) end + if chk==0 then return Duel.IsExistingMatchingCard(c84812868.filter,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) + and Duel.IsExistingTarget(c84812868.filter2,tp,0,LOCATION_ONFIELD,1,nil) end + local ct=Duel.GetMatchingGroupCount(c84812868.filter,tp,LOCATION_ONFIELD,0,e:GetHandler()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND) + local g=Duel.SelectTarget(tp,c84812868.filter2,tp,0,LOCATION_ONFIELD,1,ct,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) +end +function c84812868.thop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + end +end diff --git a/script/c84814897.lua b/script/c84814897.lua index 4d9cb129..7bd54749 100644 --- a/script/c84814897.lua +++ b/script/c84814897.lua @@ -30,7 +30,7 @@ function c84814897.initial_effect(c) --Def up local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) e4:SetValue(900) e4:SetCondition(c84814897.uncon) c:RegisterEffect(e4) @@ -100,8 +100,10 @@ function c84814897.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c84814897.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c84814897.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c84824601.lua b/script/c84824601.lua index 46524c65..be45b306 100644 --- a/script/c84824601.lua +++ b/script/c84824601.lua @@ -20,7 +20,7 @@ function c84824601.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) end function c84824601.filter(c) - return c:IsDefenceBelow(1000) and c:IsRace(RACE_PLANT) and c:IsAbleToHand() + return c:IsDefenseBelow(1000) and c:IsRace(RACE_PLANT) and c:IsAbleToHand() end function c84824601.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) diff --git a/script/c8483333.lua b/script/c8483333.lua index 0bf34cd9..2b5f6eb9 100644 --- a/script/c8483333.lua +++ b/script/c8483333.lua @@ -40,6 +40,7 @@ end function c8483333.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local c=e:GetHandler() local g=c:GetMaterial():Filter(c8483333.spfilter,nil,e,tp,c) if g:GetCount()>0 then diff --git a/script/c84845628.lua b/script/c84845628.lua index d86b2957..d67391cf 100644 --- a/script/c84845628.lua +++ b/script/c84845628.lua @@ -9,7 +9,7 @@ function c84845628.initial_effect(c) e1:SetValue(c84845628.adval) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) --control local e3=Effect.CreateEffect(c) @@ -43,9 +43,7 @@ function c84845628.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c84845628.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c84877802.lua b/script/c84877802.lua index 4269c691..f57836dd 100644 --- a/script/c84877802.lua +++ b/script/c84877802.lua @@ -17,7 +17,7 @@ function c84877802.initial_effect(c) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(c84877802.defval) c:RegisterEffect(e3) --Equip limit @@ -48,7 +48,7 @@ function c84877802.operation(e,tp,eg,ep,ev,re,r,rp) end end function c84877802.atkval(e,c) - if c:IsDefencePos() then return 0 else return c:GetBaseDefence() end + if c:IsDefensePos() then return 0 else return c:GetBaseDefense() end end function c84877802.defval(e,c) if c:IsAttackPos() then return 0 else return c:GetBaseAttack() end diff --git a/script/c84905691.lua b/script/c84905691.lua index a7813eea..e61164e3 100644 --- a/script/c84905691.lua +++ b/script/c84905691.lua @@ -20,7 +20,7 @@ function c84905691.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c84905691.filter(c,e,tp) - return c:GetSummonPlayer()~=tp and c:IsDestructable() and (not e or c:IsRelateToEffect(e)) + return c:GetSummonPlayer()~=tp and (not e or c:IsRelateToEffect(e)) end function c84905691.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) and not eg:IsContains(e:GetHandler()) diff --git a/script/c84914462.lua b/script/c84914462.lua index 9175f5f6..94dcfb8e 100644 --- a/script/c84914462.lua +++ b/script/c84914462.lua @@ -1,6 +1,6 @@ --アックス・ドラゴニュート function c84914462.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_DAMAGE_STEP_END) @@ -14,6 +14,6 @@ end function c84914462.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end diff --git a/script/c84932271.lua b/script/c84932271.lua old mode 100755 new mode 100644 index 75f28590..6f13e89d --- a/script/c84932271.lua +++ b/script/c84932271.lua @@ -32,6 +32,6 @@ function c84932271.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c84932271.spop(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c84970821.lua b/script/c84970821.lua old mode 100755 new mode 100644 diff --git a/script/c84988419.lua b/script/c84988419.lua index 03725c9d..7c001b49 100644 --- a/script/c84988419.lua +++ b/script/c84988419.lua @@ -35,7 +35,7 @@ function c84988419.condition(e,tp,eg,ep,ev,re,r,rp) end function c84988419.target(e,tp,eg,ep,ev,re,r,rp,chk) local bc=e:GetHandler():GetBattleTarget() - if chk==0 then return bc:IsDestructable() end + if chk==0 then return bc:IsRelateToBattle() end local atk=math.abs(e:GetHandler():GetBaseAttack()-bc:GetBaseAttack()) Duel.SetTargetCard(bc) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,atk) diff --git a/script/c85004150.lua b/script/c85004150.lua new file mode 100644 index 00000000..e9575437 --- /dev/null +++ b/script/c85004150.lua @@ -0,0 +1,135 @@ +--電子光虫－ライノセバス +function c85004150.initial_effect(c) + c:EnableReviveLimit() + --xyz summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetRange(LOCATION_EXTRA) + e1:SetCondition(c85004150.xyzcon) + e1:SetTarget(c85004150.xyztg) + e1:SetOperation(c85004150.xyzop) + e1:SetValue(SUMMON_TYPE_XYZ) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetHintTiming(0,0x1e0) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCost(c85004150.descost) + e2:SetTarget(c85004150.destg) + e2:SetOperation(c85004150.desop) + c:RegisterEffect(e2) + -- + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_PIERCE) + c:RegisterEffect(e3) +end +function c85004150.ovfilter(c,tp,xyzc) + return c:IsFaceup() and c:IsType(TYPE_XYZ) and (c:GetRank()==5 or c:GetRank()==6) and c:IsRace(RACE_INSECT) and c:IsCanBeXyzMaterial(xyzc) + and c:CheckRemoveOverlayCard(tp,2,REASON_COST) +end +function c85004150.mfilter(c) + return c:IsRace(RACE_INSECT) and c:IsAttribute(ATTRIBUTE_LIGHT) +end +function c85004150.xyzcon(e,c,og,min,max) + if c==nil then return true end + local tp=c:GetControler() + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local ct=-ft + local mg=nil + if og then + mg=og + else + mg=Duel.GetFieldGroup(tp,LOCATION_MZONE,0) + end + if ct<1 and (not min or min<=1) and mg:IsExists(c85004150.ovfilter,1,nil,tp,c) then + return true + end + local minc=2 + local maxc=5 + if min then + if min>minc then minc=min end + if maxmaxc then return false end + end + return ctminc then minc=min end + if max0 then + local dg=g:GetMaxGroup(Card.GetDefense) + Duel.Destroy(dg,REASON_EFFECT) + end +end diff --git a/script/c85028288.lua b/script/c85028288.lua index f8ae58ee..8257d350 100644 --- a/script/c85028288.lua +++ b/script/c85028288.lua @@ -26,7 +26,7 @@ function c85028288.initial_effect(c) c:RegisterEffect(e3) end function c85028288.efilter(e,re,rp) - return re:GetHandler():IsType(TYPE_TRAP+TYPE_MONSTER) and aux.tgval(e,re,rp) + return re:GetHandler():IsType(TYPE_TRAP+TYPE_MONSTER) end function c85028288.cfilter(c) return c:IsAttackBelow(1700) and c:IsSetCard(0x22) and c:IsAbleToRemoveAsCost() diff --git a/script/c85034450.lua b/script/c85034450.lua new file mode 100644 index 00000000..e45e2198 --- /dev/null +++ b/script/c85034450.lua @@ -0,0 +1,34 @@ +--SRパチンゴーカート +function c85034450.initial_effect(c) + --destroy + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCost(c85034450.descost) + e1:SetTarget(c85034450.destg) + e1:SetOperation(c85034450.desop) + c:RegisterEffect(e1) +end +function c85034450.cfilter(c) + return c:IsDiscardable() and c:IsRace(RACE_MACHINE) +end +function c85034450.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c85034450.cfilter,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,c85034450.cfilter,1,1,REASON_COST+REASON_DISCARD) +end +function c85034450.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c85034450.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end diff --git a/script/c85060248.lua b/script/c85060248.lua old mode 100755 new mode 100644 index 37e97008..bfa2e43c --- a/script/c85060248.lua +++ b/script/c85060248.lua @@ -26,9 +26,9 @@ function c85060248.mtcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c85060248.mtop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLP(tp)>500 and Duel.SelectYesNo(tp,aux.Stringid(85060248,0)) then + if Duel.CheckLPCost(tp,500) and Duel.SelectYesNo(tp,aux.Stringid(85060248,0)) then Duel.PayLPCost(tp,500) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end diff --git a/script/c85066822.lua b/script/c85066822.lua index 0477047b..45133567 100644 --- a/script/c85066822.lua +++ b/script/c85066822.lua @@ -38,7 +38,8 @@ function c85066822.spfilter(c,e,tp,code) end function c85066822.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and Duel.IsExistingTarget(c85066822.spfilter,tp,LOCATION_GRAVE,0,2,nil,e,tp,22587018) and Duel.IsExistingTarget(c85066822.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,58071123) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) @@ -51,6 +52,7 @@ end function c85066822.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()==0 or g:GetCount()>ft then return end Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) diff --git a/script/c85080048.lua b/script/c85080048.lua index b4fd83b1..4ffbdc58 100644 --- a/script/c85080048.lua +++ b/script/c85080048.lua @@ -24,10 +24,10 @@ function c85080048.condition(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c85080048.cfilter,1,nil,tp) end function c85080048.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c85080048.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c85087012.lua b/script/c85087012.lua old mode 100755 new mode 100644 diff --git a/script/c85101097.lua b/script/c85101097.lua index 6801d3b5..95e88bde 100644 --- a/script/c85101097.lua +++ b/script/c85101097.lua @@ -53,7 +53,7 @@ function c85101097.ctlcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c85101097.filter(c) - return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsDestructable() + return (c:GetSequence()==6 or c:GetSequence()==7) end function c85101097.ctltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and c85101097.filter(chkc) end @@ -68,10 +68,8 @@ function c85101097.ctlop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 - and c:IsRelateToEffect(e) and c:IsFaceup() and not Duel.GetControl(c,1-tp) then - if not c:IsImmuneToEffect(e) and c:IsAbleToChangeControler() then - Duel.Destroy(c,REASON_EFFECT) - end + and c:IsRelateToEffect(e) and c:IsFaceup() then + Duel.GetControl(c,1-tp) end end function c85101097.damcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c85103922.lua b/script/c85103922.lua index 0ad2dfd6..a1f1afca 100644 --- a/script/c85103922.lua +++ b/script/c85103922.lua @@ -46,7 +46,7 @@ function c85103922.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()~=tp end function c85103922.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c85103922.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c85103922.filter,tp,0,LOCATION_ONFIELD,1,nil) end diff --git a/script/c85121942.lua b/script/c85121942.lua index 5bcd4ee7..a17d9733 100644 --- a/script/c85121942.lua +++ b/script/c85121942.lua @@ -55,14 +55,11 @@ function c85121942.descost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end -function c85121942.filter(c) - return c:IsDestructable() -end function c85121942.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c85121942.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c85121942.filter,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c85121942.filter,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetFirst():GetAttack()) end diff --git a/script/c85138716.lua b/script/c85138716.lua index 7b05e40b..d24f580b 100644 --- a/script/c85138716.lua +++ b/script/c85138716.lua @@ -32,11 +32,13 @@ end function c85138716.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local g=Duel.GetMatchingGroup(c85138716.filter,tp,LOCATION_DECK,0,nil,e,tp) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and g:IsExists(c85138716.filter2,1,nil,g) + return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and g:IsExists(c85138716.filter2,1,nil,g) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c85138716.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetMatchingGroup(c85138716.filter,tp,LOCATION_DECK,0,nil,e,tp) local dg=g:Filter(c85138716.filter2,nil,g) diff --git a/script/c8522996.lua b/script/c8522996.lua index 79c92685..e46bc865 100644 --- a/script/c8522996.lua +++ b/script/c8522996.lua @@ -26,6 +26,7 @@ function c8522996.initial_effect(c) e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e3:SetTargetRange(1,0) + e3:SetCondition(c8522996.chcon) e3:SetTarget(c8522996.splimit) c:RegisterEffect(e3) end @@ -39,9 +40,10 @@ function c8522996.activate(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,8522996,0,0x21,1000,2400,6,RACE_FIEND,ATTRIBUTE_DARK) then return end - c:AddTrapMonsterAttribute(TYPE_EFFECT,ATTRIBUTE_DARK,RACE_FIEND,6,1000,2400) - Duel.SpecialSummon(c,1,tp,tp,true,false,POS_FACEUP) - c:TrapMonsterBlock() + c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP) + Duel.SpecialSummonStep(c,1,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() + Duel.SpecialSummonComplete() end function c8522996.chcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 diff --git a/script/c85239662.lua b/script/c85239662.lua old mode 100755 new mode 100644 diff --git a/script/c85252081.lua b/script/c85252081.lua index 21895a55..a347c1d5 100644 --- a/script/c85252081.lua +++ b/script/c85252081.lua @@ -25,6 +25,7 @@ function c85252081.initial_effect(c) local e3=e2:Clone() e3:SetType(EFFECT_TYPE_QUICK_O) e3:SetCode(EVENT_FREE_CHAIN) + e3:SetHintTiming(0,TIMING_END_PHASE+TIMING_EQUIP) e3:SetCondition(c85252081.descon2) c:RegisterEffect(e3) --material @@ -51,7 +52,7 @@ function c85252081.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c85252081.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c85252081.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c85252081.desfilter(chkc) end diff --git a/script/c85288028.lua b/script/c85288028.lua deleted file mode 100644 index f4bacb89..00000000 --- a/script/c85288028.lua +++ /dev/null @@ -1,48 +0,0 @@ ---Roll of Fate -function c85288028.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c85288028.target) - e1:SetOperation(c85288028.operation) - c:RegisterEffect(e1) -end -function c85288028.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsPlayerCanDraw(tp,1,6) end - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,1) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) - Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) -end -function c85288028.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - local dice=Duel.TossDice(tp,1) - if dice==1 then - Duel.Draw(tp,1,REASON_EFFECT) - Duel.BreakEffect() - Duel.DiscardDeck(tp,1,REASON_EFFECT) - elseif dice==2 then - Duel.Draw(tp,2,REASON_EFFECT) - Duel.BreakEffect() - Duel.DiscardDeck(tp,2,REASON_EFFECT) - elseif dice==3 then - Duel.Draw(tp,3,REASON_EFFECT) - Duel.BreakEffect() - Duel.DiscardDeck(tp,3,REASON_EFFECT) - elseif dice==4 then - Duel.Draw(tp,4,REASON_EFFECT) - Duel.BreakEffect() - Duel.DiscardDeck(tp,4,REASON_EFFECT) - elseif dice==5 then - Duel.Draw(tp,5,REASON_EFFECT) - Duel.BreakEffect() - Duel.DiscardDeck(tp,5,REASON_EFFECT) - else - Duel.Draw(tp,6,REASON_EFFECT) - Duel.BreakEffect() - Duel.DiscardDeck(tp,6,REASON_EFFECT) - end - end \ No newline at end of file diff --git a/script/c85306040.lua b/script/c85306040.lua index 0072d971..63eedffb 100644 --- a/script/c85306040.lua +++ b/script/c85306040.lua @@ -1,6 +1,6 @@ --ゴブリンエリート部隊 function c85306040.initial_effect(c) - --to defence + --to defense local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_PHASE+PHASE_BATTLE) @@ -16,7 +16,7 @@ end function c85306040.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsAttackPos() then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c85352446.lua b/script/c85352446.lua index 4f5003b2..ce0d65b6 100644 --- a/script/c85352446.lua +++ b/script/c85352446.lua @@ -17,7 +17,7 @@ function c85352446.filter(c) end function c85352446.filter2(c,lv) local clv=c:GetLevel() - return c:IsFaceup() and clv>0 and lv~=clv and c:IsDestructable() + return c:IsFaceup() and clv>0 and lv~=clv end function c85352446.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c85352446.filter(chkc) end diff --git a/script/c85359414.lua b/script/c85359414.lua index 532b9ec8..cae02ac3 100644 --- a/script/c85359414.lua +++ b/script/c85359414.lua @@ -89,15 +89,17 @@ function c85359414.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c85359414.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c85359414.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsStatus(STATUS_UNION) and ep~=tp and eg:GetFirst()==e:GetHandler():GetEquipTarget() end function c85359414.desfilter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c85359414.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and c85359414.desfilter(chkc) end diff --git a/script/c85431040.lua b/script/c85431040.lua old mode 100755 new mode 100644 index a7ddc17b..98b9ab4a --- a/script/c85431040.lua +++ b/script/c85431040.lua @@ -27,6 +27,7 @@ function c85431040.operation(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end if ft>2 then ft=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetMatchingGroup(c85431040.filter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()==0 then return end if Duel.SelectYesNo(tp,aux.Stringid(85431040,1)) then diff --git a/script/c85463083.lua b/script/c85463083.lua index 62d8bba9..6db89d06 100644 --- a/script/c85463083.lua +++ b/script/c85463083.lua @@ -43,7 +43,7 @@ end function c85463083.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c85463083.atkcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c85507811.lua b/script/c85507811.lua index c0165234..0f878eb6 100644 --- a/script/c85507811.lua +++ b/script/c85507811.lua @@ -53,16 +53,17 @@ function c85507811.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA) end function c85507811.spfilter(c,code) - return c:IsAbleToDeckOrExtraAsCost() and c:IsCode(code) + return c:IsAbleToDeckOrExtraAsCost() and c:IsFusionCode(code) end function c85507811.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-1 then return false end local g1=Duel.GetMatchingGroup(c85507811.spfilter,tp,LOCATION_ONFIELD,0,nil,89943723) local g2=Duel.GetMatchingGroup(c85507811.spfilter,tp,LOCATION_ONFIELD,0,nil,17732278) if g1:GetCount()==0 or g2:GetCount()==0 then return false end + if g1:GetCount()==1 and g2:GetCount()==1 and g1:GetFirst()==g2:GetFirst() then return false end if ft>0 then return true end local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) @@ -80,12 +81,22 @@ function c85507811.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) if ft<=0 then tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() + ft=ft+1 else tc=g1:Select(tp,1,1,nil):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 + if i==1 then + g1:Clear() + if tc:IsFusionCode(89943723) then + local sg=Duel.GetMatchingGroup(c85507811.spfilter,tp,LOCATION_ONFIELD,0,tc,17732278) + g1:Merge(sg) + end + if tc:IsFusionCode(17732278) then + local sg=Duel.GetMatchingGroup(c85507811.spfilter,tp,LOCATION_ONFIELD,0,tc,89943723) + g1:Merge(sg) + end + end end local cg=g:Filter(Card.IsFacedown,nil) if cg:GetCount()>0 then @@ -93,10 +104,10 @@ function c85507811.spop(e,tp,eg,ep,ev,re,r,rp,c) end Duel.SendtoDeck(g,nil,2,REASON_COST) end -function c85507811.retcon1(e,tp,eg,ep,ev,re,r,rp,chk) +function c85507811.retcon1(e,tp,eg,ep,ev,re,r,rp) return not e:GetHandler():IsHasEffect(42015635) end -function c85507811.retcon2(e,tp,eg,ep,ev,re,r,rp,chk) +function c85507811.retcon2(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsHasEffect(42015635) end function c85507811.rettg(e,tp,eg,ep,ev,re,r,rp,chk) @@ -111,7 +122,7 @@ function c85507811.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetCurrentPhase()==PHASE_MAIN1 end function c85507811.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c85507811.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c85507811.filter(chkc) end @@ -141,7 +152,7 @@ function c85507811.desop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) c:RegisterEffect(e1) else - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end end diff --git a/script/c85528209.lua b/script/c85528209.lua old mode 100755 new mode 100644 index d4dffcd7..5453d293 --- a/script/c85528209.lua +++ b/script/c85528209.lua @@ -3,23 +3,16 @@ function c85528209.initial_effect(c) --synchro summon aux.AddSynchroProcedure(c,nil,aux.NonTuner(Card.IsSetCard,0x9a),1) c:EnableReviveLimit() - --add setcode - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_ADD_SETCODE) - e1:SetValue(0x9a) - c:RegisterEffect(e1) - --defence attack + --defense attack local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_DEFENCE_ATTACK) + e2:SetCode(EFFECT_DEFENSE_ATTACK) e2:SetValue(1) c:RegisterEffect(e2) -- local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e3:SetRange(LOCATION_MZONE) e3:SetCondition(c85528209.sccon) diff --git a/script/c85541675.lua b/script/c85541675.lua index 8fdef586..829b6f5d 100644 --- a/script/c85541675.lua +++ b/script/c85541675.lua @@ -1,5 +1,6 @@ --カラクリ解体新書 function c85541675.initial_effect(c) + c:EnableCounterPermit(0x12) c:SetCounterLimit(0x12,2) --activate local e1=Effect.CreateEffect(c) @@ -34,7 +35,7 @@ function c85541675.accon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c85541675.cfilter,1,nil) end function c85541675.acop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x12+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x12,1) end function c85541675.drcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end diff --git a/script/c85551711.lua b/script/c85551711.lua new file mode 100644 index 00000000..a357f21d --- /dev/null +++ b/script/c85551711.lua @@ -0,0 +1,85 @@ +--虚空の黒魔導師 +function c85551711.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_SPELLCASTER),7,2) + c:EnableReviveLimit() + --act qp/trap in hand + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_QP_ACT_IN_NTPHAND) + e1:SetRange(LOCATION_MZONE) + e1:SetTargetRange(LOCATION_HAND,0) + e1:SetCondition(c85551711.handcon) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_TRAP_ACT_IN_HAND) + c:RegisterEffect(e2) + local e3=e1:Clone() + e3:SetCode(85551711) + c:RegisterEffect(e3) + --activate cost + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_ACTIVATE_COST) + e4:SetRange(LOCATION_MZONE) + e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e4:SetTargetRange(1,0) + e4:SetCost(c85551711.costchk) + e4:SetTarget(c85551711.costtg) + e4:SetOperation(c85551711.costop) + c:RegisterEffect(e4) + --spsummon + local e5=Effect.CreateEffect(c) + e5:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e5:SetProperty(EFFECT_FLAG_DELAY) + e5:SetCode(EVENT_TO_GRAVE) + e5:SetCondition(c85551711.spcon) + e5:SetTarget(c85551711.sptg) + e5:SetOperation(c85551711.spop) + c:RegisterEffect(e5) +end +function c85551711.handcon(e) + return Duel.GetTurnPlayer()~=e:GetHandlerPlayer() and e:GetHandler():GetOverlayCount()~=0 +end +function c85551711.costtg(e,te,tp) + local tc=te:GetHandler() + return Duel.GetTurnPlayer()~=e:GetHandlerPlayer() + and tc:IsLocation(LOCATION_HAND) and tc:GetEffectCount(85551711)>0 + and ((tc:GetEffectCount(EFFECT_QP_ACT_IN_NTPHAND)<=tc:GetEffectCount(85551711) and tc:IsType(TYPE_QUICKPLAY)) + or (tc:GetEffectCount(EFFECT_TRAP_ACT_IN_HAND)<=tc:GetEffectCount(85551711) and tc:IsType(TYPE_TRAP))) +end +function c85551711.costchk(e,te_or_c,tp) + return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_EFFECT) +end +function c85551711.costop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_CARD,0,85551711) + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_EFFECT) +end +function c85551711.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return ((rp~=tp and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE)) + or c:IsReason(REASON_BATTLE)) and c:GetSummonType()==SUMMON_TYPE_XYZ +end +function c85551711.spfilter(c,e,tp) + return c:IsRace(RACE_SPELLCASTER) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c85551711.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c85551711.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK) +end +function c85551711.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c85551711.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0 + and dg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(85551711,0)) then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local sg=dg:Select(tp,1,1,nil) + Duel.HintSelection(sg) + Duel.Destroy(sg,REASON_EFFECT) + end +end diff --git a/script/c8559793.lua b/script/c8559793.lua index 56841fe7..8750af2f 100644 --- a/script/c8559793.lua +++ b/script/c8559793.lua @@ -23,7 +23,7 @@ function c8559793.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c8559793.cfilter,tp,LOCATION_MZONE,0,2,nil) end function c8559793.filter(c) - return c:IsSetCard(0xba) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0xba) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c8559793.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c8559793.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end @@ -33,8 +33,9 @@ function c8559793.operation(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c8559793.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) + Duel.ShuffleDeck(tp) end end diff --git a/script/c85646474.lua b/script/c85646474.lua index 18681f52..4e8f8d03 100644 --- a/script/c85646474.lua +++ b/script/c85646474.lua @@ -29,7 +29,7 @@ function c85646474.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c85646474.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,g) end end diff --git a/script/c85668449.lua b/script/c85668449.lua index 250ae097..c62645e7 100644 --- a/script/c85668449.lua +++ b/script/c85668449.lua @@ -1,6 +1,6 @@ --脳開発研究所 function c85668449.initial_effect(c) - c:EnableCounterPermit(0x3004) + c:EnableCounterPermit(0x4) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -15,6 +15,13 @@ function c85668449.initial_effect(c) e2:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_PSYCHO)) e2:SetValue(c85668449.esop) c:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e3:SetRange(LOCATION_FZONE) + e3:SetCode(EVENT_SUMMON_SUCCESS) + e3:SetCondition(c85668449.ctcon) + e3:SetOperation(c85668449.ctop) + c:RegisterEffect(e3) --lpcost replace local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(85668449,0)) @@ -38,22 +45,29 @@ function c85668449.initial_effect(c) c:RegisterEffect(e5) end function c85668449.esop(e,c) - e:GetHandler():AddCounter(0x3004,1) + c:RegisterFlagEffect(85668449,RESET_EVENT+0xfe0000+RESET_PHASE+PHASE_END,0,1) +end +function c85668449.ctcon(e,tp,eg,ep,ev,re,r,rp) + return eg:GetFirst():GetFlagEffect(85668449)~=0 +end +function c85668449.ctop(e,tp,eg,ep,ev,re,r,rp) + e:GetHandler():AddCounter(0x4,1) + eg:GetFirst():ResetFlagEffect(85668449) end function c85668449.lrcon(e,tp,eg,ep,ev,re,r,rp) if tp~=ep then return false end local lp=Duel.GetLP(ep) if lp<=ev then return false end - if not re then return false end + if not re or not re:IsHasType(0x7e0) then return false end local rc=re:GetHandler() return rc:IsLocation(LOCATION_MZONE) and rc:IsRace(RACE_PSYCHO) end function c85668449.lrop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x3004,1) + e:GetHandler():AddCounter(0x4,1) end function c85668449.damp(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - local ct=c:GetCounter(0x3004) + local ct=c:GetCounter(0x4) e:SetLabel(ct) end function c85668449.damop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c85682655.lua b/script/c85682655.lua index 114d4338..94ccc27c 100644 --- a/script/c85682655.lua +++ b/script/c85682655.lua @@ -15,7 +15,7 @@ end function c85682655.target(e,tp,eg,ep,ev,re,r,rp,chk) local tc=Duel.GetAttacker() if tc==e:GetHandler() then tc=Duel.GetAttackTarget() end - if chk==0 then return tc and not tc:IsStatus(STATUS_BATTLE_DESTROYED) and tc:IsDestructable() end + if chk==0 then return tc and not tc:IsStatus(STATUS_BATTLE_DESTROYED) and tc:IsRelateToBattle() end Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) end function c85682655.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c85704698.lua b/script/c85704698.lua new file mode 100644 index 00000000..0e2975a6 --- /dev/null +++ b/script/c85704698.lua @@ -0,0 +1,90 @@ +--リサイコロ +function c85704698.initial_effect(c) + --Special Summon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DICE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c85704698.sptg) + e1:SetOperation(c85704698.spop) + c:RegisterEffect(e1) + --Synchro Summon + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetHintTiming(0,0x1c0) + e2:SetRange(LOCATION_GRAVE) + e2:SetCost(c85704698.syncost) + e2:SetTarget(c85704698.syntg) + e2:SetOperation(c85704698.synop) + c:RegisterEffect(e2) +end +function c85704698.filter(c,e,tp) + return c:IsSetCard(0x2016) and c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c85704698.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c85704698.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c85704698.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c85704698.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1) +end +function c85704698.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1,true) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e2,true) + Duel.SpecialSummonComplete() + local lv=Duel.TossDice(tp,1) + local e3=Effect.CreateEffect(e:GetHandler()) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_CHANGE_LEVEL) + e3:SetValue(lv) + e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e3) + end +end +function c85704698.syncost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c85704698.mfilter(c) + return c:IsSetCard(0x2016) and c:IsType(TYPE_TUNER) +end +function c85704698.cfilter(c,syn) + return syn:IsSynchroSummonable(c) +end +function c85704698.spfilter(c,mg) + return c:IsAttribute(ATTRIBUTE_WIND) and mg:IsExists(c85704698.cfilter,1,nil,c) +end +function c85704698.syntg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local mg=Duel.GetMatchingGroup(c85704698.mfilter,tp,LOCATION_MZONE,0,nil) + return Duel.IsExistingMatchingCard(c85704698.spfilter,tp,LOCATION_EXTRA,0,1,nil,mg) + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c85704698.synop(e,tp,eg,ep,ev,re,r,rp) + local mg=Duel.GetMatchingGroup(c85704698.mfilter,tp,LOCATION_MZONE,0,nil) + local g=Duel.GetMatchingGroup(c85704698.spfilter,tp,LOCATION_EXTRA,0,nil,mg) + if g:GetCount()>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg=g:Select(tp,1,1,nil) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + local tg=mg:FilterSelect(tp,c85704698.cfilter,1,1,nil,sg:GetFirst()) + Duel.SynchroSummon(tp,sg:GetFirst(),tg:GetFirst()) + end +end diff --git a/script/c85709845.lua b/script/c85709845.lua index a3d90c6b..3669cb82 100644 --- a/script/c85709845.lua +++ b/script/c85709845.lua @@ -11,12 +11,12 @@ function c85709845.initial_effect(c) end function c85709845.target(e,tp,eg,ep,ev,re,r,rp,chk) local d=Duel.GetAttackTarget() - if chk==0 then return d:IsDefencePos() and d:IsControler(tp) end + if chk==0 then return d:IsDefensePos() and d:IsControler(tp) end Duel.SetTargetCard(d) end function c85709845.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsDefencePos() then + if tc:IsRelateToEffect(e) and tc:IsDefensePos() then Duel.ChangePosition(tc,POS_FACEUP_ATTACK) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetDescription(aux.Stringid(85709845,0)) diff --git a/script/c85754829.lua b/script/c85754829.lua index 4f0285f2..c051cdd1 100644 --- a/script/c85754829.lua +++ b/script/c85754829.lua @@ -1,5 +1,6 @@ --ワーム・グルス function c85754829.initial_effect(c) + c:EnableCounterPermit(0xf) --add counter local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) @@ -27,5 +28,5 @@ function c85754829.accon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c85754829.cfilter,1,e:GetHandler()) end function c85754829.acop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0xf+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0xf,1) end diff --git a/script/c85771019.lua b/script/c85771019.lua index a31f421f..ba0e8f85 100644 --- a/script/c85771019.lua +++ b/script/c85771019.lua @@ -53,6 +53,7 @@ function c85771019.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c85771019.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end if Duel.IsPlayerCanSpecialSummonMonster(tp,85771020,0,0x4011,1800,1300,5,RACE_FAIRY,ATTRIBUTE_DARK) then local token=Duel.CreateToken(tp,85771020) diff --git a/script/c8581705.lua b/script/c8581705.lua old mode 100755 new mode 100644 index 84c23634..e32ba702 --- a/script/c8581705.lua +++ b/script/c8581705.lua @@ -36,7 +36,7 @@ function c8581705.mtop(e,tp,eg,ep,ev,re,r,rp) if Duel.CheckLPCost(tp,500) then Duel.PayLPCost(tp,500) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end function c8581705.disop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c85821180.lua b/script/c85821180.lua new file mode 100644 index 00000000..eeb75383 --- /dev/null +++ b/script/c85821180.lua @@ -0,0 +1,49 @@ +--チューナーズ・ハイ +function c85821180.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetLabel(0) + e1:SetCost(c85821180.cost) + e1:SetTarget(c85821180.target) + e1:SetOperation(c85821180.activate) + c:RegisterEffect(e1) +end +function c85821180.cfilter(c,e,tp) + return c:IsType(TYPE_MONSTER) and c:IsDiscardable() + and Duel.IsExistingMatchingCard(c85821180.filter,tp,LOCATION_DECK,0,1,nil,c:GetRace(),c:GetAttribute(),c:GetLevel(),e,tp) +end +function c85821180.filter(c,race,att,lv,e,tp) + return c:IsType(TYPE_TUNER) and c:IsRace(race) and c:IsAttribute(att) and c:GetLevel()==lv+1 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c85821180.cost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(100) + return true +end +function c85821180.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + if e:GetLabel()~=100 or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return false end + return Duel.IsExistingMatchingCard(c85821180.cfilter,tp,LOCATION_HAND,0,1,nil,e,tp) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) + local g=Duel.SelectMatchingCard(tp,c85821180.cfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp) + local tc=g:GetFirst() + e:SetLabel(tc:GetRace()) + e:SetValue(tc:GetAttribute()) + Duel.SetTargetParam(tc:GetLevel()) + Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c85821180.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + local race=e:GetLabel() + local att=e:GetValue() + local lv=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c85821180.filter,tp,LOCATION_DECK,0,1,1,nil,race,att,lv,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c85839825.lua b/script/c85839825.lua old mode 100755 new mode 100644 index cd303910..6269b0b4 --- a/script/c85839825.lua +++ b/script/c85839825.lua @@ -18,7 +18,7 @@ function c85839825.cost(e,tp,eg,ep,ev,re,r,rp,chk) sg:GetFirst():RemoveOverlayCard(tp,1,1,REASON_COST) end function c85839825.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c85839825.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c85839825.filter(chkc) end diff --git a/script/c85893201.lua b/script/c85893201.lua index c5700ab2..203329e8 100644 --- a/script/c85893201.lua +++ b/script/c85893201.lua @@ -25,15 +25,12 @@ end function c85893201.descon(e,tp,eg,ep,ev,re,r,rp) return rp~=tp and eg:IsExists(c85893201.cfilter,1,nil,1-tp) end -function c85893201.filter(c) - return c:IsDestructable() -end function c85893201.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and c85893201.filter(chkc) end + if chkc then return chkc:IsOnField() end if chk==0 then return e:GetHandler():IsRelateToEffect(e) - and Duel.IsExistingTarget(c85893201.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + and Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c85893201.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c85893201.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c85909450.lua b/script/c85909450.lua index e85e8c07..8c26ed01 100644 --- a/script/c85909450.lua +++ b/script/c85909450.lua @@ -18,11 +18,15 @@ function c85909450.initial_effect(c) e2:SetCondition(c85909450.effcon) e2:SetValue(c85909450.atlimit) c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e3:SetTargetRange(0,0xff) - e3:SetValue(c85909450.tglimit) + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e3:SetRange(LOCATION_MZONE) + e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x64)) + e3:SetCondition(c85909450.effcon) + e3:SetValue(aux.tgoval) c:RegisterEffect(e3) --remove material local e4=Effect.CreateEffect(c) @@ -41,9 +45,6 @@ end function c85909450.atlimit(e,c) return c:IsFaceup() and c:IsSetCard(0x64) end -function c85909450.tglimit(e,re,c) - return c:IsFaceup() and c:IsSetCard(0x64) and c:IsType(TYPE_MONSTER) -end function c85909450.rmcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end diff --git a/script/c85967160.lua b/script/c85967160.lua index 8eaee961..8fa2a957 100644 --- a/script/c85967160.lua +++ b/script/c85967160.lua @@ -41,7 +41,7 @@ function c85967160.adop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END+RESET_OPPO_TURN) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end end diff --git a/script/c85991529.lua b/script/c85991529.lua new file mode 100644 index 00000000..7f08fb5a --- /dev/null +++ b/script/c85991529.lua @@ -0,0 +1,114 @@ +--Kozmo Dark Planet +function c85991529.initial_effect(c) + c:EnableReviveLimit() + --special summon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e1) + --special summon rule + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_HAND) + e2:SetCondition(c85991529.spcon) + e2:SetOperation(c85991529.spop) + c:RegisterEffect(e2) + --cannot be targeted + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetValue(aux.tgoval) + c:RegisterEffect(e3) + --negate + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(85991529,0)) + e4:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_QUICK_O) + e4:SetRange(LOCATION_MZONE) + e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e4:SetCode(EVENT_CHAINING) + e4:SetCondition(c85991529.discon) + e4:SetCost(c85991529.discost) + e4:SetTarget(c85991529.distg) + e4:SetOperation(c85991529.disop) + c:RegisterEffect(e4) + --to hand + local e5=Effect.CreateEffect(c) + e5:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e5:SetCode(EVENT_TO_GRAVE) + e5:SetProperty(EFFECT_FLAG_DELAY) + e5:SetCondition(c85991529.thcon) + e5:SetCost(c85991529.thcost) + e5:SetTarget(c85991529.thtg) + e5:SetOperation(c85991529.thop) + c:RegisterEffect(e5) +end +function c85991529.spfilter(c) + return c:IsSetCard(0xd2) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost() +end +function c85991529.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return false end + local g=Duel.GetMatchingGroup(c85991529.spfilter,tp,LOCATION_HAND,0,c) + return g:CheckWithSumGreater(Card.GetLevel,10) +end +function c85991529.spop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.GetMatchingGroup(c85991529.spfilter,tp,LOCATION_HAND,0,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local mg=g:SelectWithSumGreater(tp,Card.GetLevel,10) + Duel.Remove(mg,POS_FACEUP,REASON_COST) +end +function c85991529.discon(e,tp,eg,ep,ev,re,r,rp) + return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) + and re:IsActiveType(TYPE_SPELL) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) +end +function c85991529.discost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c85991529.spfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c85991529.spfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c85991529.distg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end +end +function c85991529.disop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateActivation(ev) + if re:GetHandler():IsRelateToEffect(re) then + Duel.Destroy(eg,REASON_EFFECT) + end +end +function c85991529.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT) +end +function c85991529.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() and e:GetHandler():IsLocation(LOCATION_GRAVE) end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c85991529.thfilter(c) + return c:IsSetCard(0xd2) and c:IsLevelBelow(9) and c:IsAbleToHand() +end +function c85991529.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c85991529.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c85991529.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c85991529.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c86013171.lua b/script/c86013171.lua new file mode 100644 index 00000000..7cf56214 --- /dev/null +++ b/script/c86013171.lua @@ -0,0 +1,69 @@ +--Kozmo Scaredy Lion +function c86013171.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(86013171,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,86013171) + e1:SetCost(c86013171.spcost) + e1:SetTarget(c86013171.sptg) + e1:SetOperation(c86013171.spop) + c:RegisterEffect(e1) + --to grave + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(86013171,1)) + e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DAMAGE) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCost(c86013171.cost) + e2:SetTarget(c86013171.target) + e2:SetOperation(c86013171.operation) + c:RegisterEffect(e2) +end +function c86013171.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c86013171.spfilter(c,e,tp) + return c:IsSetCard(0xd2) and c:IsLevelAbove(3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c86013171.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c86013171.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c86013171.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c86013171.spfilter,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 +function c86013171.filter(c) + return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsSetCard(0xd2) +end +function c86013171.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,500) end + Duel.PayLPCost(tp,500) +end +function c86013171.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c86013171.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c86013171.filter,tp,LOCATION_REMOVED,0,3,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectTarget(tp,c86013171.filter,tp,LOCATION_REMOVED,0,3,3,nil) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,500) +end +function c86013171.operation(e,tp,eg,ep,ev,re,r,rp) + local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local sg=tg:Filter(Card.IsRelateToEffect,nil,e) + if sg:GetCount()>0 and Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RETURN)~=0 then + Duel.Damage(1-tp,500,REASON_EFFECT) + end +end diff --git a/script/c86099788.lua b/script/c86099788.lua index 20dde9b3..74afbdc7 100644 --- a/script/c86099788.lua +++ b/script/c86099788.lua @@ -29,10 +29,10 @@ function c86099788.initial_effect(c) end function c86099788.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c86099788.operation(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c8611007.lua b/script/c8611007.lua index 53306cba..96a48f8c 100644 --- a/script/c8611007.lua +++ b/script/c8611007.lua @@ -15,13 +15,16 @@ function c8611007.initial_effect(c) c:RegisterEffect(e1) end function c8611007.filter(c) - return c:IsSetCard(0x39) and c:IsAbleToHand() + return c:IsSetCard(0x39) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c8611007.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c8611007.filter,tp,LOCATION_DECK,0,1,nil) end Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND) end +function c8611007.tgfilter(c) + return c:IsSetCard(0x39) and c:IsType(TYPE_MONSTER) +end function c8611007.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c8611007.filter,tp,LOCATION_DECK,0,1,1,nil) @@ -31,6 +34,6 @@ function c8611007.operation(e,tp,eg,ep,ev,re,r,rp) Duel.ShuffleHand(tp) Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local dg=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_HAND,0,1,1,nil,0x39) + local dg=Duel.SelectMatchingCard(tp,c8611007.tgfilter,tp,LOCATION_HAND,0,1,1,nil) Duel.SendtoGrave(dg,REASON_EFFECT) end diff --git a/script/c86157908.lua b/script/c86157908.lua new file mode 100644 index 00000000..202164e1 --- /dev/null +++ b/script/c86157908.lua @@ -0,0 +1,74 @@ +--EMオッドアイズ・ユニコーン +function c86157908.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --atk + local e2=Effect.CreateEffect(c) + e2:SetProperty(EFFECT_FLAG_NO_TURN_RESET+EFFECT_FLAG_CARD_TARGET) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_ATTACK_ANNOUNCE) + e2:SetRange(LOCATION_PZONE) + e2:SetCountLimit(1) + e2:SetCondition(c86157908.atkcon) + e2:SetTarget(c86157908.atktg) + e2:SetOperation(c86157908.atkop) + c:RegisterEffect(e2) + --recover + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_RECOVER) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_SUMMON_SUCCESS) + e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetTarget(c86157908.target) + e3:SetOperation(c86157908.operation) + c:RegisterEffect(e3) + local e4=e3:Clone() + e4:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e4) +end +function c86157908.atkfilter(c) + return c:IsFaceup() and c:IsSetCard(0x9f) +end +function c86157908.atkcon(e,tp,eg,ep,ev,re,r,rp) + local at=Duel.GetAttacker() + return at:IsControler(tp) and at:IsSetCard(0x99) +end +function c86157908.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local at=Duel.GetAttacker() + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c86157908.atkfilter(chkc) and chkc~=at end + if chk==0 then return Duel.IsExistingTarget(c86157908.atkfilter,tp,LOCATION_MZONE,0,1,at) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c86157908.atkfilter,tp,LOCATION_MZONE,0,1,1,at) +end +function c86157908.atkop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + local at=Duel.GetAttacker() + if at:IsFaceup() and at:IsRelateToBattle() and tc:IsFaceup() and tc:IsRelateToEffect(e) then + local atk=tc:GetBaseAttack() + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(atk) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) + at:RegisterEffect(e1) + end +end +function c86157908.filter(c) + return c:IsSetCard(0x9f) and c:GetAttack()>0 +end +function c86157908.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c86157908.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c86157908.filter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + local g=Duel.SelectTarget(tp,c86157908.filter,tp,LOCATION_GRAVE,0,1,1,nil) + local atk=g:GetFirst():GetAttack() + Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,atk) +end +function c86157908.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Recover(tp,tc:GetAttack(),REASON_EFFECT) + end +end diff --git a/script/c86174055.lua b/script/c86174055.lua index b4e1ab03..907f1981 100644 --- a/script/c86174055.lua +++ b/script/c86174055.lua @@ -20,13 +20,15 @@ function c86174055.filter(c,e,tp) end function c86174055.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c86174055.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsExistingTarget(c86174055.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c86174055.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) end function c86174055.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) if g:GetCount()<=ct then diff --git a/script/c86196216.lua b/script/c86196216.lua index a31a665b..f2901f44 100644 --- a/script/c86196216.lua +++ b/script/c86196216.lua @@ -6,6 +6,7 @@ function c86196216.initial_effect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetHintTiming(0,TIMING_DESTROY+TIMING_END_PHASE) e1:SetTarget(c86196216.target) e1:SetOperation(c86196216.activate) c:RegisterEffect(e1) @@ -42,7 +43,7 @@ function c86196216.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) and Duel.IsExistingTarget(c86196216.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c86196216.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,tp,LOCATION_EXTRA) end function c86196216.activate(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end @@ -53,6 +54,7 @@ function c86196216.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(tp,c86196216.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,tc,tc:GetRank()*2) local sc=g:GetFirst() if sc then + Duel.BreakEffect() sc:SetMaterial(Group.FromCards(tc)) Duel.Overlay(sc,Group.FromCards(tc)) Duel.SpecialSummon(sc,SUMMON_TYPE_XYZ,tp,tp,false,false,POS_FACEUP) diff --git a/script/c86197239.lua b/script/c86197239.lua index 0da2c96d..cf7e67a8 100644 --- a/script/c86197239.lua +++ b/script/c86197239.lua @@ -33,16 +33,20 @@ function c86197239.filter(c,e,tp) end function c86197239.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c86197239.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c86197239.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c86197239.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0) end function c86197239.spop(e,tp,eg,ep,ev,re,r,rp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local sg=g:Filter(Card.IsRelateToEffect,nil,e) - if Duel.GetLocationCount(tp,LOCATION_MZONE)0 then Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) end diff --git a/script/c86198326.lua b/script/c86198326.lua index f5100ced..5d4633df 100644 --- a/script/c86198326.lua +++ b/script/c86198326.lua @@ -41,7 +41,7 @@ function c86198326.operation(e,tp,eg,ep,ev,re,r,rp) if opt==0 then e1:SetCode(EFFECT_UPDATE_ATTACK) else - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) end e1:SetValue(700) e1:SetReset(RESET_EVENT+0x1fe0000) diff --git a/script/c86221741.lua b/script/c86221741.lua new file mode 100644 index 00000000..31b3d9d4 --- /dev/null +++ b/script/c86221741.lua @@ -0,0 +1,85 @@ +--RR－アルティメット・ファルコン +function c86221741.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_WINDBEAST),10,3) + c:EnableReviveLimit() + --immune + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_IMMUNE_EFFECT) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetValue(c86221741.efilter) + c:RegisterEffect(e1) + --act limit + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCost(c86221741.cost) + e2:SetOperation(c86221741.operation) + c:RegisterEffect(e2) + --atkdown + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_PHASE+PHASE_END) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetCondition(c86221741.atkcon) + e3:SetTarget(c86221741.atktg) + e3:SetOperation(c86221741.atkop) + c:RegisterEffect(e3) +end +function c86221741.efilter(e,te) + return te:GetOwner()~=e:GetOwner() +end +function c86221741.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c86221741.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetTargetRange(0,LOCATION_MZONE) + e1:SetValue(-1000) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetCode(EFFECT_CANNOT_ACTIVATE) + e2:SetTargetRange(0,1) + e2:SetValue(c86221741.aclimit) + e2:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e2,tp) +end +function c86221741.aclimit(e,re,tp) + return not re:GetHandler():IsImmuneToEffect(e) +end +function c86221741.atkcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetOverlayGroup():IsExists(Card.IsSetCard,1,nil,0xba) +end +function c86221741.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + if not Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) then + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,1000) + end +end +function c86221741.atkop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) + if g:GetCount()>0 then + local sc=g:GetFirst() + while sc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(-1000) + sc:RegisterEffect(e1) + sc=g:GetNext() + end + else + Duel.Damage(1-tp,1000,REASON_EFFECT) + end +end diff --git a/script/c86229493.lua b/script/c86229493.lua index 24b03b61..fb455680 100644 --- a/script/c86229493.lua +++ b/script/c86229493.lua @@ -15,7 +15,7 @@ function c86229493.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c86229493.filter(c) - return (c:IsFacedown() or c:GetAttribute()~=ATTRIBUTE_DARK) and c:IsDestructable() + return (c:IsFacedown() or c:GetAttribute()~=ATTRIBUTE_DARK) end function c86229493.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c86240887.lua b/script/c86240887.lua old mode 100755 new mode 100644 index b915bf7e..b0a177ba --- a/script/c86240887.lua +++ b/script/c86240887.lua @@ -17,7 +17,7 @@ function c86240887.initial_effect(c) e2:SetValue(c86240887.val) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --spsummon condition local e4=Effect.CreateEffect(c) @@ -33,7 +33,7 @@ function c86240887.initial_effect(c) e5:SetRange(LOCATION_MZONE) e5:SetTarget(c86240887.target) e5:SetTargetRange(0,LOCATION_MZONE) - e5:SetValue(POS_FACEUP_DEFENCE) + e5:SetValue(POS_FACEUP_DEFENSE) c:RegisterEffect(e5) --Prevent Activation local e6=Effect.CreateEffect(c) diff --git a/script/c86244286.lua b/script/c86244286.lua deleted file mode 100644 index 9b6c4096..00000000 --- a/script/c86244286.lua +++ /dev/null @@ -1,30 +0,0 @@ ---Power Balance -function c86244286.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_COIN+CATEGORY_DRAW) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_ATTACK_ANNOUNCE) - e1:SetCondition(c86244286.condition) - e1:SetTarget(c86244286.target) - e1:SetOperation(c86244286.activate) - c:RegisterEffect(e1) -end -function c86244286.condition(e,tp,eg,ep,ev,re,r,rp) - return (Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)% 2 == 0) and tp~=Duel.GetTurnPlayer() and Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)==0 -end -function c86244286.target(e,tp,eg,ep,ev,re,r,rp,chk) -if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 end -Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,1-tp,1) -Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,tp,0,1) -end -function c86244286.activate(e,tp,eg,ep,ev,re,r,rp) -local h1=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND) -local g=Duel.GetFieldGroup(ep,LOCATION_HAND,0,nil) -if g:GetCount()==0 then return end -Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_DISCARD) -local sg=g:Select(1-tp,h1/2,h1/2,nil) -Duel.SendtoGrave(sg,REASON_DISCARD+REASON_EFFECT) -Duel.BreakEffect() -Duel.Draw(tp,h1/2,REASON_EFFECT) -end diff --git a/script/c86274272.lua b/script/c86274272.lua index f3a0aee5..ff8e896e 100644 --- a/script/c86274272.lua +++ b/script/c86274272.lua @@ -38,11 +38,11 @@ function c86274272.initial_effect(c) c:RegisterEffect(e4) end function c86274272.spfilter1(c,tp) - return c:IsSetCard(0x10b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() + return c:IsFusionSetCard(0x10b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() and Duel.IsExistingMatchingCard(c86274272.spfilter2,tp,LOCATION_MZONE,0,1,c) end function c86274272.spfilter2(c) - return c:IsSetCard(0x20b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() + return c:IsFusionSetCard(0x20b5) and c:IsAbleToRemoveAsCost() and c:IsCanBeFusionMaterial() end function c86274272.sprcon(e,c) if c==nil then return true end @@ -86,7 +86,8 @@ function c86274272.filter2(c,e,tp) end function c86274272.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingTarget(c86274272.filter1,tp,LOCATION_REMOVED,0,1,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g1=Duel.SelectTarget(tp,c86274272.filter1,tp,LOCATION_REMOVED,0,1,1,nil,e,tp) @@ -98,15 +99,16 @@ end function c86274272.spop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()==0 then return end if g:GetCount()<=ft then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) else Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=g:Select(tp,ft,ft,nil) - Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENSE) g:Sub(sg) - Duel.SendtoGrave(g,REASON_EFFECT) + Duel.SendtoGrave(g,REASON_RULE) end end diff --git a/script/c86308219.lua b/script/c86308219.lua old mode 100755 new mode 100644 index 3e2f057b..a1f7a9f6 --- a/script/c86308219.lua +++ b/script/c86308219.lua @@ -1,65 +1,65 @@ ---ハーピィ・レディ －鳳凰の陣－ -function c86308219.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCondition(c86308219.condition) - e1:SetCost(c86308219.cost) - e1:SetTarget(c86308219.target) - e1:SetOperation(c86308219.activate) - c:RegisterEffect(e1) - Duel.AddCustomActivityCounter(86308219,ACTIVITY_SPSUMMON,c86308219.counterfilter) -end -function c86308219.counterfilter(c) - return bit.band(c:GetSummonLocation(),LOCATION_DECK+LOCATION_EXTRA)==0 -end -function c86308219.cfilter(c) - return c:IsFaceup() and (c:IsCode(76812113) or c:IsCode(12206212)) -end -function c86308219.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c86308219.cfilter,tp,LOCATION_ONFIELD,0,3,nil) -end -function c86308219.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetCustomActivityCount(86308219,tp,ACTIVITY_SPSUMMON)==0 - and Duel.GetCurrentPhase()==PHASE_MAIN1 end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetTargetRange(1,0) - e1:SetTarget(c86308219.sumlimit) - e1:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e1,tp) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) - e2:SetCode(EFFECT_CANNOT_BP) - e2:SetTargetRange(1,0) - e2:SetReset(RESET_PHASE+PHASE_END) - Duel.RegisterEffect(e2,tp) -end -function c86308219.sumlimit(e,c,sump,sumtype,sumpos,targetp) - return c:IsLocation(LOCATION_DECK+LOCATION_EXTRA) -end -function c86308219.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local ct=Duel.GetMatchingGroupCount(c86308219.cfilter,tp,LOCATION_MZONE,0,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,ct,ct,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0) -end -function c86308219.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) - if Duel.Destroy(g,REASON_EFFECT)~=0 then - local og=Duel.GetOperatedGroup() - local mg,matk=og:GetMaxGroup(Card.GetBaseAttack) - if matk>0 then - Duel.Damage(1-tp,matk,REASON_EFFECT) - end - end -end +--ハーピィ・レディ －鳳凰の陣－ +function c86308219.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCondition(c86308219.condition) + e1:SetCost(c86308219.cost) + e1:SetTarget(c86308219.target) + e1:SetOperation(c86308219.activate) + c:RegisterEffect(e1) + Duel.AddCustomActivityCounter(86308219,ACTIVITY_SPSUMMON,c86308219.counterfilter) +end +function c86308219.counterfilter(c) + return bit.band(c:GetSummonLocation(),LOCATION_DECK+LOCATION_EXTRA)==0 +end +function c86308219.cfilter(c) + return c:IsFaceup() and c:IsCode(76812113,12206212) +end +function c86308219.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c86308219.cfilter,tp,LOCATION_ONFIELD,0,3,nil) +end +function c86308219.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetCustomActivityCount(86308219,tp,ACTIVITY_SPSUMMON)==0 + and Duel.GetCurrentPhase()==PHASE_MAIN1 end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetTargetRange(1,0) + e1:SetTarget(c86308219.sumlimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) + e2:SetCode(EFFECT_CANNOT_BP) + e2:SetTargetRange(1,0) + e2:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e2,tp) +end +function c86308219.sumlimit(e,c,sump,sumtype,sumpos,targetp) + return c:IsLocation(LOCATION_DECK+LOCATION_EXTRA) +end +function c86308219.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + local ct=Duel.GetMatchingGroupCount(c86308219.cfilter,tp,LOCATION_MZONE,0,nil) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,ct,ct,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0) +end +function c86308219.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if Duel.Destroy(g,REASON_EFFECT)~=0 then + local og=Duel.GetOperatedGroup() + local mg,matk=og:GetMaxGroup(Card.GetBaseAttack) + if matk>0 then + Duel.Damage(1-tp,matk,REASON_EFFECT) + end + end +end diff --git a/script/c86318356.lua b/script/c86318356.lua index b1a3c817..cb31940f 100644 --- a/script/c86318356.lua +++ b/script/c86318356.lua @@ -16,6 +16,6 @@ function c86318356.initial_effect(c) c:RegisterEffect(e2) --Def local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end diff --git a/script/c86327225.lua b/script/c86327225.lua index 9fb0e2f0..e7dbc15f 100644 --- a/script/c86327225.lua +++ b/script/c86327225.lua @@ -17,7 +17,7 @@ function c86327225.damcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local bc=c:GetBattleTarget() return c:IsRelateToBattle() and bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER) - and bit.band(bc:GetBattlePosition(),POS_DEFENCE)~=0 + and bit.band(bc:GetBattlePosition(),POS_DEFENSE)~=0 end function c86327225.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c86361354.lua b/script/c86361354.lua index 8804c500..a1a5a9e4 100644 --- a/script/c86361354.lua +++ b/script/c86361354.lua @@ -18,7 +18,7 @@ function c86361354.cfilter(c) and Duel.IsExistingMatchingCard(c86361354.dfilter,0,LOCATION_MZONE,LOCATION_MZONE,1,nil,rc) end function c86361354.dfilter(c,rc) - return c:IsFaceup() and c:IsRace(rc) and c:IsDestructable() + return c:IsFaceup() and c:IsRace(rc) end function c86361354.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c86361354.cfilter,tp,LOCATION_HAND,0,1,nil) end diff --git a/script/c86396750.lua b/script/c86396750.lua index 879d31ea..33d74cff 100644 --- a/script/c86396750.lua +++ b/script/c86396750.lua @@ -37,7 +37,7 @@ function c86396750.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_PHASE+PHASE_END) Duel.RegisterEffect(e1,tp) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) Duel.RegisterEffect(e2,tp) end function c86396750.atktg(e,c) diff --git a/script/c8643186.lua b/script/c8643186.lua index 9e9c080a..35aeb0a4 100644 --- a/script/c8643186.lua +++ b/script/c8643186.lua @@ -31,6 +31,5 @@ function c8643186.operation(e,tp,eg,ep,ev,re,r,rp) local sg=g:Filter(Card.IsRelateToEffect,nil,e) if sg:GetCount()>0 then Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sg) end end diff --git a/script/c86442081.lua b/script/c86442081.lua index af0e193f..712452bc 100644 --- a/script/c86442081.lua +++ b/script/c86442081.lua @@ -15,7 +15,7 @@ function c86442081.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c86442081.filter(c) - return (c:IsFacedown() or c:GetAttribute()~=ATTRIBUTE_WATER) and c:IsDestructable() + return (c:IsFacedown() or c:GetAttribute()~=ATTRIBUTE_WATER) end function c86442081.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c86489182.lua b/script/c86489182.lua old mode 100755 new mode 100644 diff --git a/script/c8649148.lua b/script/c8649148.lua index 2cf93b76..08733d73 100644 --- a/script/c8649148.lua +++ b/script/c8649148.lua @@ -17,7 +17,7 @@ function c8649148.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c8649148.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c8649148.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c8649148.filter(chkc) end diff --git a/script/c86516889.lua b/script/c86516889.lua old mode 100755 new mode 100644 index 70668dd1..31dcbf18 --- a/script/c86516889.lua +++ b/script/c86516889.lua @@ -23,14 +23,14 @@ function c86516889.filter(c,e) end function c86516889.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(c86516889.filter,nil,e) - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) local ct=g:FilterCount(Card.IsSetCard,nil,0x8d) if ct>0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE) local sg=Duel.SelectMatchingCard(tp,Card.IsCanTurnSet,tp,0,LOCATION_MZONE,1,ct,nil) if sg:GetCount()>0 then Duel.HintSelection(sg) - Duel.ChangePosition(sg,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(sg,POS_FACEDOWN_DEFENSE) end end end diff --git a/script/c86532744.lua b/script/c86532744.lua index 9a4a95cf..7f39174f 100644 --- a/script/c86532744.lua +++ b/script/c86532744.lua @@ -29,7 +29,7 @@ function c86532744.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.PayLPCost(tp,Duel.GetLP(tp)-10) end function c86532744.filter(c) - return c:IsDestructable() and c:IsAbleToRemove() + return c:IsAbleToRemove() and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL end function c86532744.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) @@ -39,10 +39,13 @@ function c86532744.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,sg:GetCount()*300) end +function c86532744.ctfilter(c) + return c:IsLocation(LOCATION_REMOVED) and not c:IsReason(REASON_REDIRECT) +end function c86532744.operation(e,tp,eg,ep,ev,re,r,rp) local sg=Duel.GetMatchingGroup(c86532744.filter,tp,0,LOCATION_MZONE,nil) Duel.Destroy(sg,REASON_EFFECT,LOCATION_REMOVED) - local ct=Duel.GetOperatedGroup():FilterCount(Card.IsLocation,nil,LOCATION_REMOVED) + local ct=Duel.GetOperatedGroup():FilterCount(c86532744.ctfilter,nil) if ct>0 then Duel.BreakEffect() Duel.Damage(1-tp,ct*300,REASON_EFFECT) diff --git a/script/c86541496.lua b/script/c86541496.lua new file mode 100644 index 00000000..5c3770ef --- /dev/null +++ b/script/c86541496.lua @@ -0,0 +1,51 @@ +--左腕の代償 +function c86541496.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCost(c86541496.cost) + e1:SetTarget(c86541496.target) + e1:SetOperation(c86541496.activate) + c:RegisterEffect(e1) + if not c86541496.global_check then + c86541496.global_check=true + local ge1=Effect.CreateEffect(c) + ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + ge1:SetCode(EVENT_SSET) + ge1:SetOperation(c86541496.checkop) + Duel.RegisterEffect(ge1,0) + end +end +function c86541496.checkop(e,tp,eg,ep,ev,re,r,rp) + Duel.RegisterFlagEffect(rp,86541496,RESET_PHASE+PHASE_END,0,1) +end +function c86541496.cost(e,tp,eg,ep,ev,re,r,rp,chk) + local g=Duel.GetMatchingGroup(nil,tp,LOCATION_HAND,0,e:GetHandler()) + if chk==0 then return Duel.GetFlagEffect(tp,86541496)==0 + and g:GetCount()>1 and g:GetCount()==g:FilterCount(Card.IsAbleToRemoveAsCost,nil) end + Duel.Remove(g,POS_FACEUP,REASON_COST) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH) + e1:SetCode(EFFECT_CANNOT_SSET) + e1:SetReset(RESET_PHASE+PHASE_END) + e1:SetTargetRange(1,0) + Duel.RegisterEffect(e1,tp) +end +function c86541496.filter(c) + return c:IsType(TYPE_SPELL) and c:IsAbleToHand() +end +function c86541496.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c86541496.filter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c86541496.activate(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c86541496.filter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c86555018.lua b/script/c86555018.lua index ee56d888..695e8ef7 100644 --- a/script/c86555018.lua +++ b/script/c86555018.lua @@ -31,7 +31,7 @@ function c86555018.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c86555018.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) local tc=g:GetFirst() - if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then + if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) diff --git a/script/c86559484.lua b/script/c86559484.lua old mode 100755 new mode 100644 diff --git a/script/c86578200.lua b/script/c86578200.lua new file mode 100644 index 00000000..9eec82da --- /dev/null +++ b/script/c86578200.lua @@ -0,0 +1,83 @@ +--魔界大道具 「ニゲ馬車」 +function c86578200.initial_effect(c) + --activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --indes + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_INDESTRUCTABLE_COUNT) + e2:SetRange(LOCATION_SZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x10ec)) + e2:SetValue(c86578200.indct) + c:RegisterEffect(e2) + --cannot be target + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(86578200,0)) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_SZONE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCountLimit(1) + e3:SetTarget(c86578200.tgtg) + e3:SetOperation(c86578200.tgop) + c:RegisterEffect(e3) + --return + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(86578200,1)) + e4:SetCategory(CATEGORY_TOHAND) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_DESTROYED) + e4:SetProperty(EFFECT_FLAG_DELAY) + e4:SetCondition(c86578200.thcon) + e4:SetTarget(c86578200.thtg) + e4:SetOperation(c86578200.thop) + c:RegisterEffect(e4) +end +function c86578200.indct(e,re,r,rp) + if bit.band(r,REASON_BATTLE)~=0 then + return 1 + else return 0 end +end +function c86578200.filter(c) + return c:IsFaceup() and c:IsSetCard(0x10ec) +end +function c86578200.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c86578200.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c86578200.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c86578200.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c86578200.tgop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetValue(aux.tgoval) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END+RESET_OPPO_TURN) + tc:RegisterEffect(e1) + end +end +function c86578200.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return rp==1-tp and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp + and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEDOWN) + and Duel.IsExistingMatchingCard(c86578200.filter,tp,LOCATION_EXTRA,0,1,nil) +end +function c86578200.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) +end +function c86578200.thop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + end +end diff --git a/script/c86585274.lua b/script/c86585274.lua index f2e2f01f..d14fe349 100644 --- a/script/c86585274.lua +++ b/script/c86585274.lua @@ -40,9 +40,10 @@ function c86585274.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c86585274.spop(e,tp,eg,ep,ev,re,r,rp,c) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c86585274.cfilter(c) @@ -55,10 +56,10 @@ function c86585274.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c86585274.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c86585274.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c86643777.lua b/script/c86643777.lua new file mode 100644 index 00000000..befb5e80 --- /dev/null +++ b/script/c86643777.lua @@ -0,0 +1,52 @@ +--光虫基盤 +function c86643777.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --atkup + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) + e2:SetRange(LOCATION_FZONE) + e2:SetTargetRange(LOCATION_MZONE,0) + e2:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_INSECT)) + e2:SetValue(300) + c:RegisterEffect(e2) + --defup + local e3=e2:Clone() + e3:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e3) + --Attach + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(86643777,0)) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_FZONE) + e4:SetCountLimit(1,86643777) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetTarget(c86643777.target) + e4:SetOperation(c86643777.operation) + c:RegisterEffect(e4) +end +function c86643777.filter(c) + return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsRace(RACE_INSECT) +end +function c86643777.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c86643777.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c86643777.filter,tp,LOCATION_MZONE,0,1,nil) + and Duel.IsExistingMatchingCard(Card.IsRace,tp,LOCATION_HAND,0,1,nil,RACE_INSECT) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c86643777.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c86643777.operation(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL) + local g=Duel.SelectMatchingCard(tp,Card.IsRace,tp,LOCATION_HAND,0,1,1,nil,RACE_INSECT) + if g:GetCount()>0 then + Duel.Overlay(tc,g) + end + end +end diff --git a/script/c86676862.lua b/script/c86676862.lua index 07a51a33..685879f5 100644 --- a/script/c86676862.lua +++ b/script/c86676862.lua @@ -27,13 +27,14 @@ function c86676862.initial_effect(c) e4:SetRange(LOCATION_MZONE) e4:SetTargetRange(0,LOCATION_MZONE) c:RegisterEffect(e4) - local e5=Effect.CreateEffect(c) - e5:SetType(EFFECT_TYPE_SINGLE) - e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e5:SetCode(EFFECT_MUST_BE_ATTACKED) - e5:SetRange(LOCATION_MZONE) - e5:SetValue(aux.imval1) + local e5=e4:Clone() + e5:SetCode(EFFECT_MUST_ATTACK_MONSTER) c:RegisterEffect(e5) + local e6=Effect.CreateEffect(c) + e6:SetType(EFFECT_TYPE_SINGLE) + e6:SetCode(EFFECT_MUST_BE_ATTACKED) + e6:SetValue(1) + c:RegisterEffect(e6) end c86676862.dark_calling=true function c86676862.splimit(e,se,sp,st) diff --git a/script/c86778566.lua b/script/c86778566.lua index 72f1415a..8236e316 100644 --- a/script/c86778566.lua +++ b/script/c86778566.lua @@ -10,7 +10,7 @@ function c86778566.initial_effect(c) c:RegisterEffect(e1) end function c86778566.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE + return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c86778566.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) end diff --git a/script/c86801871.lua b/script/c86801871.lua old mode 100755 new mode 100644 diff --git a/script/c86804246.lua b/script/c86804246.lua index 56d0e1bb..9a855f57 100644 --- a/script/c86804246.lua +++ b/script/c86804246.lua @@ -8,7 +8,7 @@ function c86804246.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_PROC) e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) e1:SetRange(LOCATION_HAND) - e1:SetTargetRange(POS_FACEUP_DEFENCE,0) + e1:SetTargetRange(POS_FACEUP_DEFENSE,0) e1:SetCondition(c86804246.spcon) e1:SetOperation(c86804246.spop) c:RegisterEffect(e1) diff --git a/script/c86827882.lua b/script/c86827882.lua index 31e1f939..ab17a98e 100644 --- a/script/c86827882.lua +++ b/script/c86827882.lua @@ -37,9 +37,9 @@ function c86827882.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e2:SetValue(tc:GetBaseDefence()*2) + e2:SetValue(tc:GetBaseDefense()*2) tc:RegisterEffect(e2) local e3=Effect.CreateEffect(e:GetHandler()) e3:SetType(EFFECT_TYPE_SINGLE) diff --git a/script/c86848580.lua b/script/c86848580.lua index 64db966c..6613b53f 100644 --- a/script/c86848580.lua +++ b/script/c86848580.lua @@ -47,6 +47,7 @@ function c86848580.disop(e,tp,eg,ep,ev,re,r,rp) end tc=g:GetNext() end + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end local atk=Duel.GetMatchingGroupCount(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,c)*300 if atk>0 then local e1=Effect.CreateEffect(c) diff --git a/script/c86871614.lua b/script/c86871614.lua index be5ef11f..68a6a843 100644 --- a/script/c86871614.lua +++ b/script/c86871614.lua @@ -20,7 +20,7 @@ end function c86871614.target(e,tp,eg,ep,ev,re,r,rp,chk) local ec=eg:GetFirst() if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and - Duel.IsPlayerCanSpecialSummonMonster(tp,86871615,0,0x4011,ec:GetBaseAttack(),ec:GetBaseDefence(), + Duel.IsPlayerCanSpecialSummonMonster(tp,86871615,0,0x4011,ec:GetBaseAttack(),ec:GetBaseDefense(), ec:GetOriginalLevel(),ec:GetOriginalRace(),ec:GetOriginalAttribute()) end ec:CreateEffectRelation(e) Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0) @@ -30,7 +30,7 @@ function c86871614.activate(e,tp,eg,ep,ev,re,r,rp) local ec=eg:GetFirst() if not ec:IsRelateToEffect(e) or ec:IsFacedown() then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 - or not Duel.IsPlayerCanSpecialSummonMonster(tp,86871615,0,0x4011,ec:GetBaseAttack(),ec:GetBaseDefence(), + or not Duel.IsPlayerCanSpecialSummonMonster(tp,86871615,0,0x4011,ec:GetBaseAttack(),ec:GetBaseDefense(), ec:GetOriginalLevel(),ec:GetOriginalRace(),ec:GetOriginalAttribute()) then return end ec:RegisterFlagEffect(86871614,RESET_EVENT+0x17a0000,0,0) local token=Duel.CreateToken(tp,86871615) @@ -41,8 +41,8 @@ function c86871614.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0xfe0000) token:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) - e2:SetValue(ec:GetBaseDefence()) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) + e2:SetValue(ec:GetBaseDefense()) token:RegisterEffect(e2) local e3=e1:Clone() e3:SetCode(EFFECT_CHANGE_LEVEL) diff --git a/script/c8687195.lua b/script/c8687195.lua index 63be5e63..4cffc1dd 100644 --- a/script/c8687195.lua +++ b/script/c8687195.lua @@ -14,15 +14,20 @@ end function c8687195.condition(e,tp,eg,ep,ev,re,r,rp) return r~=REASON_REPLACE and Duel.GetAttackTarget()==e:GetHandler() and Duel.GetAttacker():IsControler(1-tp) end +function c8687195.filter(c,at) + return at:IsContains(c) +end function c8687195.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) end - if chk==0 then return true end + local at=Duel.GetAttacker():GetAttackableTarget() + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and at:IsContains(chkc) end + if chk==0 then return Duel.IsExistingTarget(c8687195.filter,tp,LOCATION_MZONE,0,1,e:GetHandler(),at) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) + Duel.SelectTarget(tp,c8687195.filter,tp,LOCATION_MZONE,0,1,1,e:GetHandler(),at) end function c8687195.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() + local a=Duel.GetAttacker() if tc and tc:IsRelateToEffect(e) then - Duel.ChangeAttackTarget(tc) + Duel.CalculateDamage(a,tc) end end diff --git a/script/c86943389.lua b/script/c86943389.lua new file mode 100644 index 00000000..2268f46a --- /dev/null +++ b/script/c86943389.lua @@ -0,0 +1,77 @@ +--HSR快刀乱破ズール +function c86943389.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) + c:EnableReviveLimit() + --Double ATK + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(86943389,0)) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_BATTLE_START) + e1:SetCondition(c86943389.atkcon) + e1:SetOperation(c86943389.atkop) + c:RegisterEffect(e1) + --to grave + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCondition(c86943389.regcon) + e2:SetOperation(c86943389.regop) + c:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(86943389,1)) + e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_PHASE+PHASE_END) + e3:SetCountLimit(1) + e3:SetRange(LOCATION_GRAVE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCondition(c86943389.thcon) + e3:SetTarget(c86943389.thtg) + e3:SetOperation(c86943389.thop) + c:RegisterEffect(e3) +end +function c86943389.atkcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local bc=c:GetBattleTarget() + return bc and bit.band(bc:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL +end +function c86943389.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsFaceup() and c:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(c:GetAttack()*2) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE) + c:RegisterEffect(e1) + end +end +function c86943389.regcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_MZONE) and c:GetSummonType()==SUMMON_TYPE_SYNCHRO +end +function c86943389.regop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + c:RegisterFlagEffect(86943389,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) +end +function c86943389.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetFlagEffect(86943389)>0 +end +function c86943389.thfilter(c) + return c:IsSetCard(0x2016) and not c:IsCode(86943389) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c86943389.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c86943389.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c86943389.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c86943389.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c86943389.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c86952477.lua b/script/c86952477.lua index bed461e1..b940ee1d 100644 --- a/script/c86952477.lua +++ b/script/c86952477.lua @@ -11,5 +11,5 @@ function c86952477.initial_effect(c) c:RegisterEffect(e1) end function c86952477.lvcon(e) - return e:GetHandler():IsDefencePos() + return e:GetHandler():IsDefensePos() end diff --git a/script/c8698851.lua b/script/c8698851.lua index 7ac2262b..832e013a 100644 --- a/script/c8698851.lua +++ b/script/c8698851.lua @@ -16,7 +16,7 @@ function c8698851.condition(e,tp,eg,ep,ev,re,r,rp) end function c8698851.target(e,tp,eg,ep,ev,re,r,rp,chk) local a=Duel.GetAttacker() - if chk==0 then return a:IsOnField() and a:IsDestructable() end + if chk==0 then return a:IsOnField() end Duel.SetTargetCard(a) Duel.SetOperationInfo(0,CATEGORY_DESTROY,a,1,0,0) end diff --git a/script/c87010442.lua b/script/c87010442.lua index 9afc5287..e040eb02 100644 --- a/script/c87010442.lua +++ b/script/c87010442.lua @@ -14,11 +14,11 @@ end function c87010442.condition(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local bc=c:GetBattleTarget() - return bc:GetBattlePosition()==POS_FACEDOWN_DEFENCE and c:IsRelateToBattle() and c:IsFaceup() + return bc:GetBattlePosition()==POS_FACEDOWN_DEFENSE and c:IsRelateToBattle() and c:IsFaceup() end function c87010442.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TODECK,0,0,1-tp,LOCATION_HAND) + Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,1-tp,LOCATION_HAND) end function c87010442.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetFieldGroup(1-tp,LOCATION_HAND,0,nil) diff --git a/script/c8706701.lua b/script/c8706701.lua new file mode 100644 index 00000000..7a89efba --- /dev/null +++ b/script/c8706701.lua @@ -0,0 +1,67 @@ +--レッド・ミラー +function c8706701.initial_effect(c) + --to hand + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetRange(LOCATION_HAND) + e1:SetCountLimit(1,8706701) + e1:SetCondition(c8706701.condition) + e1:SetCost(c8706701.cost) + e1:SetTarget(c8706701.target) + e1:SetOperation(c8706701.operation) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetRange(LOCATION_GRAVE) + e2:SetCountLimit(1,8706702) + e2:SetCondition(c8706701.thcon) + e2:SetTarget(c8706701.thtg) + e2:SetOperation(c8706701.thop) + c:RegisterEffect(e2) +end +function c8706701.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetAttacker():GetControler()~=tp +end +function c8706701.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end + Duel.SendtoGrave(e:GetHandler(),REASON_COST) +end +function c8706701.filter(c) + return c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_FIRE) and not c:IsCode(8706701) and c:IsAbleToHand() +end +function c8706701.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c8706701.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c8706701.filter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c8706701.filter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c8706701.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end +function c8706701.cfilter(c,tp) + return c:GetSummonType()==SUMMON_TYPE_SYNCHRO and c:GetSummonPlayer()==tp +end +function c8706701.thcon(e,tp,eg,ep,ev,re,r,rp) + return eg:IsExists(c8706701.cfilter,1,nil,tp) and aux.exccon(e) +end +function c8706701.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToHand() end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) +end +function c8706701.thop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) then + Duel.SendtoHand(c,nil,REASON_EFFECT) + end +end diff --git a/script/c87112784.lua b/script/c87112784.lua new file mode 100644 index 00000000..9f447143 --- /dev/null +++ b/script/c87112784.lua @@ -0,0 +1,27 @@ +--堕天使の追放 +function c87112784.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,87112784+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c87112784.target) + e1:SetOperation(c87112784.activate) + c:RegisterEffect(e1) +end +function c87112784.filter(c) + return c:IsSetCard(0xef) and not c:IsCode(87112784) and c:IsAbleToHand() +end +function c87112784.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c87112784.filter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c87112784.activate(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c87112784.filter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c87210505.lua b/script/c87210505.lua index 4bdfa4ef..09f95cc3 100644 --- a/script/c87210505.lua +++ b/script/c87210505.lua @@ -10,6 +10,7 @@ function c87210505.initial_effect(c) e1:SetOperation(c87210505.activate) c:RegisterEffect(e1) end +c87210505.card_code_list={46986414} function c87210505.costfilter(c) return c:IsFaceup() and c:IsCode(46986414) end @@ -19,7 +20,7 @@ function c87210505.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c87210505.spfilter(c,e,tp) - return c:IsCode(50725996) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(50725996) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) end function c87210505.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 @@ -30,7 +31,7 @@ function c87210505.activate(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c87210505.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()~=0 then + if g:GetCount()~=0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP) g:GetFirst():CompleteProcedure() end diff --git a/script/c87255382.lua b/script/c87255382.lua index 021eccaf..144488a8 100644 --- a/script/c87255382.lua +++ b/script/c87255382.lua @@ -35,8 +35,10 @@ function c87255382.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c87255382.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c87255382.atkop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c87259933.lua b/script/c87259933.lua index b35f7a95..16cd57f2 100644 --- a/script/c87259933.lua +++ b/script/c87259933.lua @@ -1,32 +1,39 @@ --宝玉の集結 function c87259933.initial_effect(c) --Activate + local e0=Effect.CreateEffect(c) + e0:SetDescription(aux.Stringid(87259933,0)) + e0:SetType(EFFECT_TYPE_ACTIVATE) + e0:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e0) + --Activate(spsummon) local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(87259933,1)) e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP) - e1:SetHintTiming(TIMING_DESTROY) - e1:SetCondition(c87259933.spcon1) + e1:SetCode(EVENT_DESTROYED) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e1:SetCondition(c87259933.spcon) + e1:SetCost(c87259933.spcost) e1:SetTarget(c87259933.sptg1) e1:SetOperation(c87259933.spop) c:RegisterEffect(e1) --spsummon local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(87259933,0)) + e2:SetDescription(aux.Stringid(87259933,1)) e2:SetCategory(CATEGORY_SPECIAL_SUMMON) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e2:SetCode(EVENT_DESTROYED) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) e2:SetRange(LOCATION_SZONE) e2:SetCountLimit(1) - e2:SetCondition(c87259933.spcon2) + e2:SetCondition(c87259933.spcon) e2:SetCost(c87259933.spcost) e2:SetTarget(c87259933.sptg2) e2:SetOperation(c87259933.spop) c:RegisterEffect(e2) --tohand local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(87259933,1)) + e3:SetDescription(aux.Stringid(87259933,2)) e3:SetCategory(CATEGORY_TOHAND) e3:SetType(EFFECT_TYPE_QUICK_O) e3:SetCode(EVENT_FREE_CHAIN) @@ -41,30 +48,7 @@ function c87259933.cfilter(c,tp) return c:IsSetCard(0x1034) and c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsPreviousPosition(POS_FACEUP) and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp end -function c87259933.spcon1(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetCurrentPhase()~=PHASE_DAMAGE then return true end - local res,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(EVENT_DESTROYED,true) - return res and teg:IsExists(c87259933.cfilter,1,nil,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c87259933.filter,tp,LOCATION_DECK,0,1,nil,e,tp) -end -function c87259933.sptg1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local res,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(EVENT_DESTROYED,true) - if Duel.GetCurrentPhase()==PHASE_DAMAGE - or (res and teg:IsExists(c87259933.cfilter,1,nil,tp) - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c87259933.filter,tp,LOCATION_DECK,0,1,nil,e,tp) - and Duel.SelectYesNo(tp,aux.Stringid(87259933,2))) then - e:SetCategory(CATEGORY_SPECIAL_SUMMON) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) - e:GetHandler():RegisterFlagEffect(87259933,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - e:GetHandler():RegisterFlagEffect(0,RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(87259933,3)) - else - e:SetCategory(0) - end -end -function c87259933.spcon2(e,tp,eg,ep,ev,re,r,rp) +function c87259933.spcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c87259933.cfilter,1,nil,tp) end function c87259933.spcost(e,tp,eg,ep,ev,re,r,rp,chk) @@ -74,6 +58,12 @@ end function c87259933.filter(c,e,tp) return c:IsSetCard(0x1034) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end +function c87259933.sptg1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c87259933.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) + Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription()) +end function c87259933.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -81,7 +71,7 @@ function c87259933.sptg2(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) end function c87259933.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():GetFlagEffect(87259933)==0 then return end + if not e:GetHandler():IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c87259933.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) diff --git a/script/c87292536.lua b/script/c87292536.lua index 7aa50224..fd5dcafb 100644 --- a/script/c87292536.lua +++ b/script/c87292536.lua @@ -28,6 +28,5 @@ function c87292536.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c87319876.lua b/script/c87319876.lua index 2c0a2038..7675689b 100644 --- a/script/c87319876.lua +++ b/script/c87319876.lua @@ -61,6 +61,6 @@ function c87319876.adop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end diff --git a/script/c87386199.lua b/script/c87386199.lua deleted file mode 100644 index c1b5c83b..00000000 --- a/script/c87386199.lua +++ /dev/null @@ -1,72 +0,0 @@ ---Disgraceful Charity -function c87386199.initial_effect(c) ---Activate -local e1=Effect.CreateEffect(c) -e1:SetCategory(CATEGORY_TOHAND+CATEGORY_TOGRAVE) -e1:SetType(EFFECT_TYPE_ACTIVATE) -e1:SetCode(EVENT_FREE_CHAIN) -e1:SetHintTiming(0,TIMING_END_PHASE) -e1:SetCondition(c87386199.condition) -e1:SetTarget(c87386199.target) -e1:SetOperation(c87386199.activate) -c:RegisterEffect(e1) -if not c87386199.global_check then -c87386199.global_check=true -c87386199[0]=false -c87386199[1]=false -local ge1=Effect.CreateEffect(c) -ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) -ge1:SetCode(EVENT_DISCARD) -ge1:SetOperation(c87386199.checkop) -Duel.RegisterEffect(ge1,0) -local ge2=Effect.CreateEffect(c) -ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) -ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW) -ge2:SetOperation(c87386199.clear) -Duel.RegisterEffect(ge2,0) -end -end -function c87386199.checkop(e,tp,eg,ep,ev,re,r,rp) -local tc=eg:GetFirst() -local re=tc:GetReasonEffect() -if re==nil then return end -while tc do -if tc:IsLocation(LOCATION_GRAVE) and tc:IsReason(REASON_DISCARD) and re:IsActiveType(TYPE_SPELL) -then -c87386199[tc:GetControler()]=true -end -tc=eg:GetNext() -end -end -function c87386199.clear(e,tp,eg,ep,ev,re,r,rp) -c87386199[0]=false -c87386199[1]=false -end -function c87386199.filter(c,id,e,tp) -local re=c:GetReasonEffect() -return c:IsReason(REASON_DISCARD) and c:GetTurnID()==id and c:IsAbleToHand() and re:IsActiveType(TYPE_SPELL) -end -function c87386199.condition(e,tp,eg,ep,ev,re,r,rp) -return c87386199[tp] and Duel.GetFlagEffect(tp,87386199)==0 -end -function c87386199.target(e,tp,eg,ep,ev,re,r,rp,chk) -if chk==0 then return Duel.IsExistingMatchingCard(c87386199.filter,tp,LOCATION_GRAVE,0,1,nil,Duel.GetTurnCount(),e,tp) -and Duel.IsExistingMatchingCard(c87386199.filter,tp,0,LOCATION_GRAVE,1,nil,Duel.GetTurnCount(),e,tp) -or Duel.IsExistingMatchingCard(c87386199.filter,tp,LOCATION_GRAVE,0,1,nil,Duel.GetTurnCount(),e,tp) -or Duel.IsExistingMatchingCard(c87386199.filter,tp,0,LOCATION_GRAVE,1,nil,Duel.GetTurnCount(),e,tp) end -Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) -Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,1-tp,LOCATION_GRAVE) -Duel.RegisterFlagEffect(tp,87386199,0,0,1) -end -function c87386199.activate(e,tp,eg,ep,ev,re,r,rp) -Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOHAND) -local g=Duel.SelectMatchingCard(tp,c87386199.filter,tp,LOCATION_GRAVE,0,1,999999,nil,Duel.GetTurnCount(),e,tp) -if g:GetCount()>0 then -Duel.SendtoHand(g,nil,REASON_EFFECT) -end -Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOHAND) -local g2=Duel.SelectMatchingCard(1-tp,c87386199.filter,1-tp,LOCATION_GRAVE,0,1,999999,nil,Duel.GetTurnCount(),e,1-tp) -if g2:GetCount()>0 then -Duel.SendtoHand(g2,nil,REASON_EFFECT) -end -end diff --git a/script/c87390798.lua b/script/c87390798.lua new file mode 100644 index 00000000..71330060 --- /dev/null +++ b/script/c87390798.lua @@ -0,0 +1,77 @@ +--魔界台本 「ファンタジー・マジック」 +function c87390798.initial_effect(c) + --activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c87390798.target) + e1:SetOperation(c87390798.activate) + c:RegisterEffect(e1) + --to deck + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(87390798,0)) + e2:SetCategory(CATEGORY_TODECK) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_DESTROYED) + e2:SetCondition(c87390798.tdcon) + e2:SetTarget(c87390798.tdtg) + e2:SetOperation(c87390798.tdop) + c:RegisterEffect(e2) +end +function c87390798.filter(c) + return c:IsFaceup() and c:IsSetCard(0x10ec) +end +function c87390798.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c87390798.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c87390798.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,c87390798.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c87390798.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + tc:RegisterFlagEffect(87390798,RESET_EVENT+0x1220000+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(87390798,0)) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_DAMAGE_STEP_END) + e1:SetLabelObject(tc) + e1:SetCondition(c87390798.retcon) + e1:SetOperation(c87390798.retop) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + end +end +function c87390798.retcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetLabelObject():GetFlagEffect(87390798)~=0 +end +function c87390798.retop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + local bc=tc:GetBattleTarget() + if bc and not bc:IsStatus(STATUS_BATTLE_DESTROYED) and bc:IsRelateToBattle() then + Duel.SendtoHand(bc,nil,REASON_EFFECT) + end +end +function c87390798.filter2(c) + return c:IsSetCard(0x10ec) and c:IsFaceup() and c:IsType(TYPE_PENDULUM) +end +function c87390798.tdcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsReason(REASON_EFFECT) and rp==1-tp and c:GetPreviousControler()==tp + and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEDOWN) + and Duel.IsExistingMatchingCard(c87390798.filter2,tp,LOCATION_EXTRA,0,1,nil) +end +function c87390798.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsAbleToDeck() end + if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) +end +function c87390798.tdop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoDeck(tc,nil,0,REASON_EFFECT) + end +end diff --git a/script/c87430304.lua b/script/c87430304.lua index 4bf0ae96..860d645c 100644 --- a/script/c87430304.lua +++ b/script/c87430304.lua @@ -6,7 +6,7 @@ function c87430304.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_PROC) e1:SetProperty(EFFECT_FLAG_SPSUM_PARAM) e1:SetRange(LOCATION_HAND) - e1:SetTargetRange(POS_FACEUP_DEFENCE,0) + e1:SetTargetRange(POS_FACEUP_DEFENSE,0) e1:SetCondition(c87430304.hspcon) c:RegisterEffect(e1) end diff --git a/script/c87430998.lua b/script/c87430998.lua index 0fc39391..55083795 100644 --- a/script/c87430998.lua +++ b/script/c87430998.lua @@ -16,6 +16,6 @@ function c87430998.initial_effect(c) c:RegisterEffect(e2) --Def local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end diff --git a/script/c87473172.lua b/script/c87473172.lua old mode 100755 new mode 100644 diff --git a/script/c87475570.lua b/script/c87475570.lua index c6465dc0..8a62542c 100644 --- a/script/c87475570.lua +++ b/script/c87475570.lua @@ -23,14 +23,14 @@ function c87475570.initial_effect(c) c:RegisterEffect(e3) end function c87475570.tgtg(e,c) - return c:IsSetCard(0x1034) or (c:IsLocation(LOCATION_MZONE) and (c:IsCode(79407975) or c:IsCode(79856792))) + return c:IsSetCard(0x1034) or (c:IsLocation(LOCATION_MZONE) and c:IsSetCard(0x2034)) end function c87475570.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsReleasable() end Duel.Release(e:GetHandler(),REASON_COST) end function c87475570.filter(c) - return (((c:IsSetCard(0x1034) or c:IsCode(79856792) or c:IsCode(79407975)) and c:IsType(TYPE_MONSTER)) + return (((c:IsSetCard(0x1034) or c:IsSetCard(0x2034)) and c:IsType(TYPE_MONSTER)) or (c:IsSetCard(0x34) and c:IsType(TYPE_SPELL+TYPE_TRAP))) and c:IsAbleToHand() end function c87475570.target(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c87483942.lua b/script/c87483942.lua index cde0b86b..e1c81080 100644 --- a/script/c87483942.lua +++ b/script/c87483942.lua @@ -13,8 +13,7 @@ function c87483942.initial_effect(c) c:RegisterEffect(e1) end function c87483942.filter(c,e,tp) - return c:IsSetCard(0x2b) and c:GetCode()~=87483942 and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENCE) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x2b) and not c:IsCode(87483942) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) end function c87483942.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -26,8 +25,8 @@ function c87483942.spop(e,tp,eg,ep,ev,re,r,rp) if ft<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c87483942.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,ft,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + if g:GetCount()>0 and not g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,g) end end diff --git a/script/c87514539.lua b/script/c87514539.lua index fbb64da0..288c5b84 100644 --- a/script/c87514539.lua +++ b/script/c87514539.lua @@ -29,8 +29,6 @@ end function c87514539.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRace(RACE_ZOMBIE+RACE_FIEND) then - if not Duel.GetControl(tc,tp,PHASE_END,1) and not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c87535691.lua b/script/c87535691.lua old mode 100755 new mode 100644 diff --git a/script/c87564935.lua b/script/c87564935.lua index 01e0627e..d163212c 100644 --- a/script/c87564935.lua +++ b/script/c87564935.lua @@ -86,12 +86,14 @@ function c87564935.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c87564935.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c87564935.efilter1(e,re,rp) - return aux.tgoval(e,re,rp) and re:IsActiveType(TYPE_MONSTER) + return rp~=e:GetHandlerPlayer() and re:IsActiveType(TYPE_MONSTER) end function c87564935.efilter2(e,te) return te:GetHandlerPlayer()~=e:GetHandlerPlayer() and te:IsActiveType(TYPE_MONSTER) diff --git a/script/c87567063.lua b/script/c87567063.lua new file mode 100644 index 00000000..ec6e8918 --- /dev/null +++ b/script/c87567063.lua @@ -0,0 +1,41 @@ +--造反劇 +function c87567063.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_CONTROL) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,87567063+EFFECT_COUNT_CODE_OATH) + e1:SetCondition(c87567063.condition) + e1:SetTarget(c87567063.target) + e1:SetOperation(c87567063.operation) + c:RegisterEffect(e1) +end +function c87567063.condition(e,tp,eg,ep,ev,re,r,rp) + return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) +end +function c87567063.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsControlerCanBeChanged() end + if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) + local g=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0) +end +function c87567063.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp,PHASE_BATTLE,1) + end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetTargetRange(LOCATION_MZONE,0) + e1:SetTarget(c87567063.ftarget) + e1:SetLabel(tc:GetFieldID()) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) +end +function c87567063.ftarget(e,c) + return e:GetLabel()~=c:GetFieldID() +end diff --git a/script/c87588741.lua b/script/c87588741.lua index 3c1d24ad..0a48e385 100644 --- a/script/c87588741.lua +++ b/script/c87588741.lua @@ -6,10 +6,9 @@ function c87588741.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetRange(LOCATION_PZONE) e2:SetTargetRange(1,0) - e2:SetCondition(aux.nfbdncon) e2:SetTarget(c87588741.splimit) c:RegisterEffect(e2) --atk down diff --git a/script/c87602890.lua b/script/c87602890.lua old mode 100755 new mode 100644 index 6f0adf9c..78523268 --- a/script/c87602890.lua +++ b/script/c87602890.lua @@ -1,93 +1,93 @@ ---轟雷帝ザボルグ -function c87602890.initial_effect(c) - --summon with 1 tribute - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(87602890,0)) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SUMMON_PROC) - e1:SetCondition(c87602890.otcon) - e1:SetOperation(c87602890.otop) - e1:SetValue(SUMMON_TYPE_ADVANCE) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_SET_PROC) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(87602890,1)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCode(EVENT_SUMMON_SUCCESS) - e3:SetCondition(c87602890.condition) - e3:SetTarget(c87602890.target) - e3:SetOperation(c87602890.operation) - c:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_MATERIAL_CHECK) - e4:SetValue(c87602890.valcheck) - e4:SetLabelObject(e3) - c:RegisterEffect(e4) -end -function c87602890.otfilter(c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE -end -function c87602890.otcon(e,c) - if c==nil then return true end - local mg=Duel.GetMatchingGroup(c87602890.otfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil) - return c:GetLevel()>6 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 - and Duel.GetTributeCount(c,mg)>0 -end -function c87602890.otop(e,tp,eg,ep,ev,re,r,rp,c) - local mg=Duel.GetMatchingGroup(c87602890.otfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil) - local sg=Duel.SelectTribute(tp,c,1,1,mg) - c:SetMaterial(sg) - Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL) -end -function c87602890.condition(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE -end -function c87602890.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c87602890.operation(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - if Duel.Destroy(tc,REASON_EFFECT)==0 or bit.band(tc:GetPreviousAttributeOnField(),ATTRIBUTE_LIGHT)==0 then return end - local lv=tc:GetOriginalLevel() - if tc:IsType(TYPE_XYZ) then - lv=tc:GetOriginalRank() - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g1=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_EXTRA,0,lv,lv,nil) - local tg=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA) - if e:GetLabel()==1 then - Duel.ConfirmCards(tp,tg) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g2=tg:Select(tp,lv,lv,nil) - g1:Merge(g2) - else - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE) - local g2=tg:Select(1-tp,lv,lv,nil) - g1:Merge(g2) - end - if g1:GetCount()>0 then - Duel.BreakEffect() - Duel.SendtoGrave(g1,REASON_EFFECT) - end - end -end -function c87602890.valcheck(e,c) - local g=c:GetMaterial() - if g:IsExists(Card.IsAttribute,1,nil,ATTRIBUTE_LIGHT) then - e:GetLabelObject():SetLabel(1) - else - e:GetLabelObject():SetLabel(0) - end -end +--轟雷帝ザボルグ +function c87602890.initial_effect(c) + --summon with 1 tribute + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(87602890,0)) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SUMMON_PROC) + e1:SetCondition(c87602890.otcon) + e1:SetOperation(c87602890.otop) + e1:SetValue(SUMMON_TYPE_ADVANCE) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_SET_PROC) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(87602890,1)) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCode(EVENT_SUMMON_SUCCESS) + e3:SetCondition(c87602890.condition) + e3:SetTarget(c87602890.target) + e3:SetOperation(c87602890.operation) + c:RegisterEffect(e3) + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_MATERIAL_CHECK) + e4:SetValue(c87602890.valcheck) + e4:SetLabelObject(e3) + c:RegisterEffect(e4) +end +function c87602890.otfilter(c) + return bit.band(c:GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE +end +function c87602890.otcon(e,c) + if c==nil then return true end + local mg=Duel.GetMatchingGroup(c87602890.otfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil) + return c:GetLevel()>6 and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.GetTributeCount(c,mg)>0 +end +function c87602890.otop(e,tp,eg,ep,ev,re,r,rp,c) + local mg=Duel.GetMatchingGroup(c87602890.otfilter,0,LOCATION_MZONE,LOCATION_MZONE,nil) + local sg=Duel.SelectTribute(tp,c,1,1,mg) + c:SetMaterial(sg) + Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL) +end +function c87602890.condition(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_ADVANCE +end +function c87602890.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c87602890.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + if Duel.Destroy(tc,REASON_EFFECT)==0 or bit.band(tc:GetPreviousAttributeOnField(),ATTRIBUTE_LIGHT)==0 then return end + local lv=tc:GetOriginalLevel() + if tc:IsType(TYPE_XYZ) then + lv=tc:GetOriginalRank() + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g1=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_EXTRA,0,lv,lv,nil) + local tg=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA) + if e:GetLabel()==1 then + Duel.ConfirmCards(tp,tg) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g2=tg:Select(tp,lv,lv,nil) + g1:Merge(g2) + else + Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE) + local g2=tg:Select(1-tp,lv,lv,nil) + g1:Merge(g2) + end + if g1:GetCount()>0 then + Duel.BreakEffect() + Duel.SendtoGrave(g1,REASON_EFFECT) + end + end +end +function c87602890.valcheck(e,c) + local g=c:GetMaterial() + if g:IsExists(Card.IsAttribute,1,nil,ATTRIBUTE_LIGHT) then + e:GetLabelObject():SetLabel(1) + else + e:GetLabelObject():SetLabel(0) + end +end diff --git a/script/c87624166.lua b/script/c87624166.lua index ed508443..b7660a02 100644 --- a/script/c87624166.lua +++ b/script/c87624166.lua @@ -22,12 +22,12 @@ function c87624166.initial_effect(c) end function c87624166.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDefencePos,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(Card.IsDefensePos,tp,LOCATION_MZONE,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) end function c87624166.activate(e,tp,eg,ep,ev,re,r,rp) if not e:GetHandler():IsRelateToEffect(e) then return end - local g=Duel.GetMatchingGroup(Card.IsDefencePos,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(Card.IsDefensePos,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if g:GetCount()>0 then Duel.ChangePosition(g,0,0,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,true) end diff --git a/script/c876330.lua b/script/c876330.lua index 11a7f11d..2b29a58a 100644 --- a/script/c876330.lua +++ b/script/c876330.lua @@ -42,7 +42,7 @@ function c876330.eqcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetPreviousLocation()==LOCATION_HAND end function c876330.filter(c) - return c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) + return c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) and not c:IsForbidden() end function c876330.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c876330.filter(chkc) end diff --git a/script/c87751584.lua b/script/c87751584.lua index 3664753b..08384bd3 100644 --- a/script/c87751584.lua +++ b/script/c87751584.lua @@ -15,11 +15,11 @@ function c87751584.initial_effect(c) c:RegisterEffect(e1) end function c87751584.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,3) end function c87751584.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if g:GetCount()==0 then return end local c1,c2,c3=Duel.TossCoin(tp,3) local ct=c1+c2+c3 diff --git a/script/c87765315.lua b/script/c87765315.lua new file mode 100644 index 00000000..95315d9c --- /dev/null +++ b/script/c87765315.lua @@ -0,0 +1,45 @@ +--真竜の目覚め +function c87765315.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCondition(c87765315.condition) + e1:SetTarget(c87765315.target) + e1:SetOperation(c87765315.activate) + c:RegisterEffect(e1) +end +function c87765315.filter1(c) + return c:IsFaceup() and c:IsSetCard(0xda) +end +function c87765315.filter2(c) + return c:IsFaceup() and c:IsSetCard(0xc7) and not c:IsType(TYPE_PENDULUM) +end +function c87765315.filter3(c,e,tp) + return (c:IsSetCard(0xda) or c:IsSetCard(0xc7)) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) +end +function c87765315.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c87765315.filter1,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) + and Duel.IsExistingMatchingCard(c87765315.filter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) +end +function c87765315.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) +end +function c87765315.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + if Duel.SendtoDeck(g,nil,2,REASON_EFFECT)~=0 + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c87765315.filter3,tp,LOCATION_DECK,0,1,nil,e,tp) + and Duel.SelectYesNo(tp,aux.Stringid(87765315,0)) then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c87765315.filter3,tp,LOCATION_DECK,0,1,1,nil,e,tp) + local tc=g:GetFirst() + if tc then + Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) + end + end +end diff --git a/script/c87772572.lua b/script/c87772572.lua old mode 100755 new mode 100644 index c2330c8d..b9dd0ed3 --- a/script/c87772572.lua +++ b/script/c87772572.lua @@ -51,7 +51,8 @@ function c87772572.activate(e,tp,eg,ep,ev,re,r,rp) local att=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,87772572,0,0x11,0,2200,4,rac,att) then return end - c:AddTrapMonsterAttribute(TYPE_NORMAL,att,rac,4,0,2200) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - c:TrapMonsterBlock() + c:AddMonsterAttribute(TYPE_NORMAL+TYPE_TRAP,att,rac,0,0,0) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() + Duel.SpecialSummonComplete() end diff --git a/script/c87774234.lua b/script/c87774234.lua old mode 100755 new mode 100644 index 866e1980..467a19ea --- a/script/c87774234.lua +++ b/script/c87774234.lua @@ -7,6 +7,7 @@ function c87774234.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e1:SetProperty(EFFECT_FLAG_DELAY) e1:SetCode(EVENT_TO_HAND) + e1:SetRange(LOCATION_HAND) e1:SetCondition(c87774234.condition) e1:SetTarget(c87774234.target) e1:SetOperation(c87774234.operation) @@ -22,7 +23,9 @@ function c87774234.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c87774234.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c87798440.lua b/script/c87798440.lua index e431ef79..69a783ae 100644 --- a/script/c87798440.lua +++ b/script/c87798440.lua @@ -88,18 +88,20 @@ function c87798440.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c87798440.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c87798440.descon(e,tp,eg,ep,ev,re,r,rp) return ep~=tp and e:GetHandler():GetEquipTarget()==eg:GetFirst() and c87798440.uncon(e) end function c87798440.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end + if chkc then return chkc:IsOnField() end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c87798440.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c87819421.lua b/script/c87819421.lua index dac44f53..885d3d5b 100644 --- a/script/c87819421.lua +++ b/script/c87819421.lua @@ -32,6 +32,5 @@ function c87819421.activate(e,tp,eg,ep,ev,re,r,rp) local sg=g:Filter(Card.IsRelateToEffect,nil,e) if sg:GetCount()>0 then Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sg) end end diff --git a/script/c87835759.lua b/script/c87835759.lua new file mode 100644 index 00000000..977a9d8b --- /dev/null +++ b/script/c87835759.lua @@ -0,0 +1,78 @@ +--創世の竜騎士 +function c87835759.initial_effect(c) + --level + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_LEVEL) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetValue(4) + e1:SetCondition(c87835759.lvcon) + c:RegisterEffect(e1) + --to grave + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(87835759,0)) + e2:SetCategory(CATEGORY_TOGRAVE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BATTLE_DESTROYING) + e2:SetCondition(aux.bdogcon) + e2:SetTarget(c87835759.tgtg) + e2:SetOperation(c87835759.tgop) + c:RegisterEffect(e2) + --special summon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(87835759,1)) + e3:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1,87835759) + e3:SetCost(c87835759.spcost) + e3:SetTarget(c87835759.sptg) + e3:SetOperation(c87835759.spop) + c:RegisterEffect(e3) +end +function c87835759.lvcon(e) + return Duel.GetTurnPlayer()~=e:GetHandlerPlayer() +end +function c87835759.tgfilter(c) + local lv=c:GetLevel() + return c:IsRace(RACE_DRAGON) and (lv==7 or lv==8) and c:IsAbleToGrave() +end +function c87835759.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c87835759.tgfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) +end +function c87835759.tgop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c87835759.tgfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoGrave(g,REASON_EFFECT) + end +end +function c87835759.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGraveAsCost,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,Card.IsAbleToGraveAsCost,1,1,REASON_COST) +end +function c87835759.spfilter(c,e,tp) + local lv=c:GetLevel() + return c:IsRace(RACE_DRAGON) and (lv==7 or lv==8) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c87835759.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c87835759.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 and e:GetHandler():IsAbleToGrave() + and Duel.IsExistingTarget(c87835759.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c87835759.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c87835759.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) then + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end + end +end diff --git a/script/c87880531.lua b/script/c87880531.lua index 511108d5..e42bc552 100644 --- a/script/c87880531.lua +++ b/script/c87880531.lua @@ -43,15 +43,6 @@ function c87880531.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetCode(EFFECT_MUST_ATTACK) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c87880531.becon) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e2) local e3=Effect.CreateEffect(e:GetHandler()) e3:SetType(EFFECT_TYPE_SINGLE) e3:SetCode(EFFECT_ATTACK_ALL) @@ -69,9 +60,6 @@ end function c87880531.ftarget(e,c) return e:GetLabel()~=c:GetFieldID() end -function c87880531.becon(e) - return e:GetHandler():IsAttackable() -end function c87880531.disop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local bc=c:GetBattleTarget() diff --git a/script/c87910978.lua b/script/c87910978.lua index 9e65d83f..ca3a3adc 100644 --- a/script/c87910978.lua +++ b/script/c87910978.lua @@ -27,9 +27,7 @@ function c87910978.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c87910978.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) and tc:IsFaceup() then + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c87911394.lua b/script/c87911394.lua index 5a75ea54..8e8c8149 100644 --- a/script/c87911394.lua +++ b/script/c87911394.lua @@ -36,7 +36,7 @@ function c87911394.aclimit(e,re,tp) end function c87911394.atkcon(e,tp,eg,ep,ev,re,r,rp) local at=Duel.GetAttackTarget() - return at and at:IsFaceup() and e:GetHandler():GetOverlayGroup():IsExists(Card.IsSetCard,1,nil,0x7f) + return at and at:IsFaceup() and e:GetHandler():GetOverlayGroup():IsExists(Card.IsSetCard,1,nil,0x107f) end function c87911394.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end diff --git a/script/c8794435.lua b/script/c8794435.lua old mode 100755 new mode 100644 diff --git a/script/c87978805.lua b/script/c87978805.lua index 0e87687c..883df825 100644 --- a/script/c87978805.lua +++ b/script/c87978805.lua @@ -9,7 +9,7 @@ function c87978805.initial_effect(c) e1:SetValue(c87978805.val) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e2) end function c87978805.val(e,c) diff --git a/script/c87990236.lua b/script/c87990236.lua new file mode 100644 index 00000000..ab50a306 --- /dev/null +++ b/script/c87990236.lua @@ -0,0 +1,38 @@ +--魅惑の堕天使 +function c87990236.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_CONTROL) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,87990236+EFFECT_COUNT_CODE_OATH) + e1:SetCost(c87990236.cost) + e1:SetTarget(c87990236.target) + e1:SetOperation(c87990236.activate) + c:RegisterEffect(e1) +end +function c87990236.costfilter(c) + return c:IsSetCard(0xef) + and c:IsType(TYPE_MONSTER) and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsAbleToGraveAsCost() +end +function c87990236.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c87990236.costfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c87990236.costfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil) + Duel.SendtoGrave(g,REASON_COST) +end +function c87990236.filter(c) + return c:IsControlerCanBeChanged() and c:IsFaceup() +end +function c87990236.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c87990236.filter,tp,0,LOCATION_MZONE,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_CONTROL,nil,1,0,0) +end +function c87990236.activate(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) + local g=Duel.SelectMatchingCard(tp,c87990236.filter,tp,0,LOCATION_MZONE,1,1,nil) + local tc=g:GetFirst() + if tc then + Duel.GetControl(tc,tp,PHASE_END,1) + end +end diff --git a/script/c87997872.lua b/script/c87997872.lua index 833e503a..cdb95f9e 100644 --- a/script/c87997872.lua +++ b/script/c87997872.lua @@ -12,7 +12,7 @@ function c87997872.initial_effect(c) e2:SetDescription(aux.Stringid(87997872,0)) e2:SetCategory(CATEGORY_SPECIAL_SUMMON) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e2:SetRange(LOCATION_HAND+LOCATION_DECK) + e2:SetRange(LOCATION_HAND) e2:SetProperty(EFFECT_FLAG_CHAIN_UNIQUE) e2:SetCode(EVENT_LEAVE_FIELD) e2:SetCondition(c87997872.spcon) @@ -20,15 +20,19 @@ function c87997872.initial_effect(c) e2:SetTarget(c87997872.sptg) e2:SetOperation(c87997872.spop) c:RegisterEffect(e2) - --atkup - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(87997872,1)) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCost(c87997872.cost) - e3:SetOperation(c87997872.atkop) + local e3=e2:Clone() + e3:SetRange(LOCATION_DECK) + e3:SetProperty(EFFECT_FLAG_CHAIN_UNIQUE,EFFECT_FLAG2_NAGA) c:RegisterEffect(e3) + --atkup + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(87997872,1)) + e4:SetCategory(CATEGORY_ATKCHANGE) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_SPSUMMON_SUCCESS) + e4:SetCost(c87997872.cost) + e4:SetOperation(c87997872.atkop) + c:RegisterEffect(e4) end function c87997872.cfilter(c,tp,code) return c:IsCode(code) and c:GetPreviousControler()==tp and c:IsReason(REASON_DESTROY) @@ -50,8 +54,13 @@ function c87997872.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c87997872.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,true,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then + c:CompleteProcedure() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c87997872.atkop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c88032456.lua b/script/c88032456.lua index b9cd6d11..17469fa8 100644 --- a/script/c88032456.lua +++ b/script/c88032456.lua @@ -26,7 +26,9 @@ function c88032456.filter(c,e,tp) if c:IsType(TYPE_MONSTER) then return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 else - return c:IsSSetable(true) and (c:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0) + local ct=Duel.GetLocationCount(tp,LOCATION_SZONE) + if e:IsHasType(EFFECT_TYPE_ACTIVATE) and not e:GetHandler():IsLocation(LOCATION_SZONE) then ct=ct-1 end + return c:IsSSetable() and (c:IsType(TYPE_FIELD) or ct>0) end end function c88032456.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) diff --git a/script/c88069166.lua b/script/c88069166.lua old mode 100755 new mode 100644 diff --git a/script/c88071625.lua b/script/c88071625.lua index 4141e6a2..f9c77085 100644 --- a/script/c88071625.lua +++ b/script/c88071625.lua @@ -1,4 +1,4 @@ ---Ｔｈｅ　ｔｙｒａｎｔ　ＮＥＰＴＵＮＥ +--The tyrant NEPTUNE function c88071625.initial_effect(c) --cannot special summon local e1=Effect.CreateEffect(c) @@ -60,7 +60,7 @@ function c88071625.valcheck(e,c) local def=0 while tc do local catk=tc:GetTextAttack() - local cdef=tc:GetTextDefence() + local cdef=tc:GetTextDefense() atk=atk+(catk>=0 and catk or 0) def=def+(cdef>=0 and cdef or 0) tc=g:GetNext() @@ -78,7 +78,7 @@ function c88071625.valcheck(e,c) c:RegisterEffect(e1) --def continuous effect local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(def) c:RegisterEffect(e2) end diff --git a/script/c88120966.lua b/script/c88120966.lua index aa9c4f6e..8628ec27 100644 --- a/script/c88120966.lua +++ b/script/c88120966.lua @@ -26,7 +26,7 @@ function c88120966.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c88120966.filter(c) - return c:IsDestructable() and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL end function c88120966.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c88120966.filter(chkc) end diff --git a/script/c88177324.lua b/script/c88177324.lua index 3972b44c..873ce126 100644 --- a/script/c88177324.lua +++ b/script/c88177324.lua @@ -6,10 +6,10 @@ function c88177324.initial_effect(c) --negate local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(88177324,0)) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetCode(EVENT_FREE_CHAIN) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_PHASE+PHASE_BATTLE_START) e1:SetRange(LOCATION_MZONE) - e1:SetHintTiming(TIMING_BATTLE_START,0) + e1:SetCountLimit(1) e1:SetCondition(c88177324.negcon) e1:SetCost(c88177324.negcost) e1:SetTarget(c88177324.negtg) @@ -26,7 +26,7 @@ function c88177324.initial_effect(c) end c88177324.xyz_number=107 function c88177324.negcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_BATTLE and not Duel.CheckPhaseActivity() and Duel.GetCurrentChain()==0 + return Duel.GetTurnPlayer()==tp end function c88177324.negcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end @@ -36,7 +36,7 @@ function c88177324.filter1(c) return c:IsFaceup() and c:IsType(TYPE_EFFECT) and not c:IsDisabled() end function c88177324.filter2(c) - return c:IsFaceup() and (c:GetAttack()~=c:GetBaseAttack() or c:GetDefence()~=c:GetBaseDefence()) + return c:IsFaceup() and (c:GetAttack()~=c:GetBaseAttack() or c:GetDefense()~=c:GetBaseDefense()) end function c88177324.filter3(c) return c:IsFaceup() and c:IsType(TYPE_EFFECT) @@ -75,11 +75,11 @@ function c88177324.negop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) end - if tc:GetDefence()~=tc:GetBaseDefence() then + if tc:GetDefense()~=tc:GetBaseDefense() then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_DEFENCE_FINAL) - e1:SetValue(tc:GetBaseDefence()) + e1:SetCode(EFFECT_SET_DEFENSE_FINAL) + e1:SetValue(tc:GetBaseDefense()) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) end diff --git a/script/c88204302.lua b/script/c88204302.lua old mode 100755 new mode 100644 index 6ffc4619..2e74ae5b --- a/script/c88204302.lua +++ b/script/c88204302.lua @@ -1,63 +1,62 @@ ---スピードリバース -function c88204302.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(88204302,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c88204302.target) - e1:SetOperation(c88204302.activate) - c:RegisterEffect(e1) - --tohand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(88204302,1)) - e2:SetCategory(CATEGORY_TOHAND) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_GRAVE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCondition(aux.exccon) - e2:SetCost(c88204302.thcost) - e2:SetTarget(c88204302.thtg) - e2:SetOperation(c88204302.thop) - c:RegisterEffect(e2) -end -function c88204302.filter(c,e,tp) - return c:IsSetCard(0x2016) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c88204302.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c88204302.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c88204302.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c88204302.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c88204302.activate(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end -function c88204302.thcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end - Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) -end -function c88204302.thfilter(c) - return c:IsSetCard(0x2016) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() -end -function c88204302.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c88204302.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c88204302.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local sg=Duel.SelectTarget(tp,c88204302.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,sg:GetCount(),0,0) -end -function c88204302.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--スピードリバース +function c88204302.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(88204302,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c88204302.target) + e1:SetOperation(c88204302.activate) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(88204302,1)) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCondition(aux.exccon) + e2:SetCost(c88204302.thcost) + e2:SetTarget(c88204302.thtg) + e2:SetOperation(c88204302.thop) + c:RegisterEffect(e2) +end +function c88204302.filter(c,e,tp) + return c:IsSetCard(0x2016) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c88204302.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c88204302.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c88204302.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c88204302.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c88204302.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end +function c88204302.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c88204302.thfilter(c) + return c:IsSetCard(0x2016) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c88204302.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c88204302.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c88204302.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local sg=Duel.SelectTarget(tp,c88204302.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,sg:GetCount(),0,0) +end +function c88204302.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c88234365.lua b/script/c88234365.lua new file mode 100644 index 00000000..89cfeea0 --- /dev/null +++ b/script/c88234365.lua @@ -0,0 +1,77 @@ +--堕天使テスカトリポカ +function c88234365.initial_effect(c) + c:SetSPSummonOnce(88234365) + --destroy replace + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EFFECT_DESTROY_REPLACE) + e1:SetRange(LOCATION_HAND) + e1:SetTarget(c88234365.reptg) + e1:SetValue(c88234365.repval) + e1:SetOperation(c88234365.repop) + c:RegisterEffect(e1) + --copy effect + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(88234365,1)) + e2:SetCategory(CATEGORY_TODECK) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetCountLimit(1,88234365) + e2:SetCost(c88234365.cpcost) + e2:SetTarget(c88234365.cptg) + e2:SetOperation(c88234365.cpop) + c:RegisterEffect(e2) +end +function c88234365.repfilter(c,tp) + return c:IsFaceup() and c:IsSetCard(0xef) and c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) and c:IsReason(REASON_EFFECT+REASON_BATTLE) +end +function c88234365.reptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsDiscardable() and eg:IsExists(c88234365.repfilter,1,nil,tp) end + return Duel.SelectYesNo(tp,aux.Stringid(88234365,0)) +end +function c88234365.repval(e,c) + return c88234365.repfilter(c,e:GetHandlerPlayer()) +end +function c88234365.repop(e,tp,eg,ep,ev,re,r,rp) + Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT+REASON_DISCARD) +end +function c88234365.cpcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckLPCost(tp,1000) end + Duel.PayLPCost(tp,1000) +end +function c88234365.cpfilter(c) + return c:IsSetCard(0xef) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck() and c:CheckActivateEffect(false,true,false)~=nil +end +function c88234365.cptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then + local te=e:GetLabelObject() + local tg=te:GetTarget() + return tg and tg(e,tp,eg,ep,ev,re,r,rp,0,chkc) + end + if chk==0 then return Duel.IsExistingTarget(c88234365.cpfilter,tp,LOCATION_GRAVE,0,1,nil) end + e:SetProperty(EFFECT_FLAG_CARD_TARGET) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + local g=Duel.SelectTarget(tp,c88234365.cpfilter,tp,LOCATION_GRAVE,0,1,1,nil) + local te,ceg,cep,cev,cre,cr,crp=g:GetFirst():CheckActivateEffect(false,true,true) + Duel.ClearTargetCard() + g:GetFirst():CreateEffectRelation(e) + local tg=te:GetTarget() + e:SetCategory(te:GetCategory()) + e:SetProperty(te:GetProperty()) + if tg then tg(e,tp,ceg,cep,cev,cre,cr,crp,1) end + te:SetLabelObject(e:GetLabelObject()) + e:SetLabelObject(te) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,0,0,0) +end +function c88234365.cpop(e,tp,eg,ep,ev,re,r,rp) + local te=e:GetLabelObject() + if not te then return end + if not te:GetHandler():IsRelateToEffect(e) then return end + e:SetLabelObject(te:GetLabelObject()) + local op=te:GetOperation() + if op then op(e,tp,eg,ep,ev,re,r,rp) end + Duel.BreakEffect() + Duel.SendtoDeck(te:GetHandler(),nil,2,REASON_EFFECT) +end diff --git a/script/c88240999.lua b/script/c88240999.lua index 09e2fe06..3604e9fa 100644 --- a/script/c88240999.lua +++ b/script/c88240999.lua @@ -65,12 +65,12 @@ function c88240999.adop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end function c88240999.desfilter(c) - return c:IsFacedown() and c:IsDestructable() and c:IsAbleToRemove() + return c:IsFacedown() and c:IsAbleToRemove() end function c88240999.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c88240999.desfilter(chkc) end diff --git a/script/c88241506.lua b/script/c88241506.lua index 8fb03e46..6161aa44 100644 --- a/script/c88241506.lua +++ b/script/c88241506.lua @@ -24,7 +24,7 @@ function c88241506.initial_effect(c) c:RegisterEffect(e2) end function c88241506.spfilter(c,e,tp) - return c:IsCode(89631139) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(89631139) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c88241506.natg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -33,13 +33,14 @@ end function c88241506.naop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if Duel.NegateAttack() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local g=Duel.GetMatchingGroup(c88241506.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,nil,e,tp) if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(88241506,2)) then Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g1=g:Select(tp,1,1,nil) + if g1:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummon(g1,0,tp,tp,false,false,POS_FACEUP) end end @@ -56,7 +57,7 @@ function c88241506.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c88241506.spfilter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c88264978.lua b/script/c88264978.lua index 3b7bc0b9..2b4542cd 100644 --- a/script/c88264978.lua +++ b/script/c88264978.lua @@ -34,8 +34,7 @@ function c88264978.hspop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c88264978.filter(c,e,tp) - return c:IsRace(RACE_DRAGON) and c:GetCode()~=88264978 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsRace(RACE_DRAGON) and not c:IsCode(88264978) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c88264978.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -46,7 +45,7 @@ function c88264978.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c88264978.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c88289295.lua b/script/c88289295.lua index f78fcf03..20c299cd 100644 --- a/script/c88289295.lua +++ b/script/c88289295.lua @@ -34,9 +34,7 @@ function c88289295.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() local ct=1 if Duel.GetTurnPlayer()~=tp then ct=2 end - if tc:IsFaceup() and tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END,ct) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp,PHASE_END,ct) end end diff --git a/script/c88301833.lua b/script/c88301833.lua index b9ab93f0..4324c2d9 100644 --- a/script/c88301833.lua +++ b/script/c88301833.lua @@ -19,11 +19,14 @@ function c88301833.initial_effect(c) e2:SetOperation(c88301833.thop) c:RegisterEffect(e2) end +function c88301833.cfilter(c) + return bit.band(c:GetSummonType(),SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL +end function c88301833.thcon(e,tp,eg,ep,ev,re,r,rp) - return eg:GetCount()==1 and eg:GetFirst():GetSummonType()==SUMMON_TYPE_RITUAL + return eg:IsExists(c88301833.cfilter,1,nil) end function c88301833.thfilter(c,e,tp) - return c:IsLocation(LOCATION_GRAVE) and c:IsControler(tp) and c:IsAbleToHand() and c:IsCanBeEffectTarget(e) + return c:IsLocation(LOCATION_GRAVE) and c:IsReason(REASON_RELEASE) and c:IsControler(tp) and c:IsAbleToHand() and c:IsCanBeEffectTarget(e) end function c88301833.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local tc=eg:GetFirst() diff --git a/script/c88305978.lua b/script/c88305978.lua index 0bf97192..a7023e66 100644 --- a/script/c88305978.lua +++ b/script/c88305978.lua @@ -15,7 +15,7 @@ function c88305978.initial_effect(c) c:RegisterEffect(e1) end function c88305978.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_BATTLE + return Duel.GetTurnPlayer()~=tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 end function c88305978.cost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c88307361.lua b/script/c88307361.lua index 8ecbcaea..1ff97eff 100644 --- a/script/c88307361.lua +++ b/script/c88307361.lua @@ -15,7 +15,7 @@ function c88307361.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(88307361,1)) e2:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCode(EVENT_CHAINING) e2:SetRange(LOCATION_MZONE) e2:SetCondition(c88307361.discon) @@ -38,14 +38,14 @@ function c88307361.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) end function c88307361.sumop(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return end + local tg=Duel.GetMatchingGroup(c88307361.filter,tp,LOCATION_DECK,0,nil,e,tp) + if ft<=0 or tg:GetCount()==0 or (ft>1 and tg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c88307361.filter,tp,LOCATION_DECK,0,ft,ft,nil,e,tp) - if g:GetCount()==0 then return end + local g=tg:Select(tp,ft,ft,nil) local c=e:GetHandler() local tc=g:GetFirst() while tc do - Duel.SpecialSummonStep(tc, 0, tp, tp, false, false, POS_FACEUP) + Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) @@ -89,4 +89,4 @@ function c88307361.disop(e,tp,eg,ep,ev,re,r,rp) if re:GetHandler():IsRelateToEffect(re) then Duel.Destroy(eg,REASON_EFFECT) end -end \ No newline at end of file +end diff --git a/script/c88341502.lua b/script/c88341502.lua index 6a3d1b35..b6a7e9f6 100644 --- a/script/c88341502.lua +++ b/script/c88341502.lua @@ -57,7 +57,7 @@ function c88341502.damcon(e,tp,eg,ep,ev,re,r,rp) end function c88341502.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local def=e:GetLabelObject():GetBattleTarget():GetBaseDefence() + local def=e:GetLabelObject():GetBattleTarget():GetBaseDefense() if def<0 then def=0 end Duel.SetTargetPlayer(1-tp) Duel.SetTargetParam(def) diff --git a/script/c88358139.lua b/script/c88358139.lua old mode 100755 new mode 100644 index 63607d94..ef4a7683 --- a/script/c88358139.lua +++ b/script/c88358139.lua @@ -27,7 +27,9 @@ function c88358139.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c88358139.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c8837932.lua b/script/c8837932.lua new file mode 100644 index 00000000..ea52b0a2 --- /dev/null +++ b/script/c8837932.lua @@ -0,0 +1,111 @@ +--方界曼荼羅 +function c8837932.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_COUNTER) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(TIMING_END_PHASE,TIMING_END_PHASE) + e1:SetCondition(c8837932.condition) + e1:SetTarget(c8837932.target) + e1:SetOperation(c8837932.activate) + c:RegisterEffect(e1) + --disable + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e2:SetRange(LOCATION_SZONE) + e2:SetCode(EVENT_CHAIN_ACTIVATING) + e2:SetOperation(c8837932.disop) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) + e3:SetRange(LOCATION_SZONE) + e3:SetCode(EVENT_LEAVE_FIELD) + e3:SetCondition(c8837932.descon) + e3:SetOperation(c8837932.desop) + c:RegisterEffect(e3) +end +function c8837932.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xe3) +end +function c8837932.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c8837932.cfilter,tp,LOCATION_MZONE,0,1,nil) +end +function c8837932.spfilter(c,e,tp,tid) + return c:IsReason(REASON_DESTROY) and c:IsType(TYPE_MONSTER) and c:GetTurnID()==tid + and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp) +end +function c8837932.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local tid=Duel.GetTurnCount() + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(1-tp) and c8837932.spfilter(chkc,e,tp,tid) end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if chk==0 then return ft>0 + and Duel.IsExistingTarget(c8837932.spfilter,tp,0,LOCATION_GRAVE,1,nil,e,tp,tid) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + local g=Duel.SelectTarget(tp,c8837932.spfilter,tp,0,LOCATION_GRAVE,1,ft,nil,e,tp,tid) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) +end +function c8837932.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 or not c:IsRelateToEffect(e) then return end + local sg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if sg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if sg:GetCount()>ft then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + sg=sg:Select(tp,ft,ft,nil) + end + local sc=sg:GetFirst() + while sc do + if Duel.SpecialSummonStep(sc,0,tp,1-tp,false,false,POS_FACEUP) then + c:SetCardTarget(sc) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(0) + e1:SetReset(RESET_EVENT+0x1fe0000) + sc:RegisterEffect(e1) + end + sc=sg:GetNext() + end + Duel.SpecialSummonComplete() + local og=Duel.GetOperatedGroup() + local oc=og:GetFirst() + while oc do + oc:AddCounter(0x1038,1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_CANNOT_ATTACK) + e2:SetCondition(c8837932.disable) + e2:SetReset(RESET_EVENT+0x1fe0000) + oc:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_DISABLE) + oc:RegisterEffect(e3) + oc=og:GetNext() + end +end +function c8837932.disable(e) + return e:GetHandler():GetCounter(0x1038)>0 +end +function c8837932.dfilter(c,g) + return g:IsContains(c) +end +function c8837932.disop(e,tp,eg,ep,ev,re,r,rp) + local g=e:GetHandler():GetCardTarget() + if re:IsActiveType(TYPE_MONSTER) and rp~=tp + and Duel.IsExistingMatchingCard(c8837932.dfilter,tp,0,LOCATION_MZONE,1,nil,g) then + Duel.NegateEffect(ev) + end +end +function c8837932.descon(e,tp,eg,ep,ev,re,r,rp) + local g=e:GetHandler():GetCardTarget() + return eg:FilterCount(c8837932.dfilter,nil,g)>0 + and not Duel.IsExistingMatchingCard(c8837932.dfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,g) +end +function c8837932.desop(e,tp,eg,ep,ev,re,r,rp) + Duel.Destroy(e:GetHandler(),REASON_EFFECT) +end diff --git a/script/c88412339.lua b/script/c88412339.lua new file mode 100644 index 00000000..ee6b4b9d --- /dev/null +++ b/script/c88412339.lua @@ -0,0 +1,86 @@ +--魔界劇団－エキストラ +function c88412339.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(88412339,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1,88412339) + e1:SetCondition(c88412339.spcon) + e1:SetTarget(c88412339.sptg) + e1:SetOperation(c88412339.spop) + c:RegisterEffect(e1) + --pendulum set + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(88412339,1)) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1,88412340) + e2:SetCost(c88412339.pencost) + e2:SetTarget(c88412339.pentg) + e2:SetOperation(c88412339.penop) + c:RegisterEffect(e2) +end +function c88412339.spcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 +end +function c88412339.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c88412339.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c88412339.pencost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsReleasable() end + Duel.Release(e:GetHandler(),REASON_COST) +end +function c88412339.penfilter(c) + return c:IsSetCard(0x10ec) and c:IsType(TYPE_PENDULUM) and not c:IsForbidden() +end +function c88412339.pentg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c88412339.penfilter,tp,LOCATION_DECK,0,1,nil) + and (Duel.CheckLocation(tp,LOCATION_SZONE,6) or Duel.CheckLocation(tp,LOCATION_SZONE,7)) end +end +function c88412339.penop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) + local g=Duel.SelectMatchingCard(tp,c88412339.penfilter,tp,LOCATION_DECK,0,1,1,nil) + local tc=g:GetFirst() + if tc then + Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) + end + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetTarget(c88412339.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_CANNOT_ACTIVATE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetTargetRange(1,0) + e2:SetValue(c88412339.aclimit) + e2:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e2,tp) +end +function c88412339.splimit(e,c) + return not c:IsSetCard(0x10ec) +end +function c88412339.aclimit(e,re,tp) + local c=re:GetHandler() + return c:IsCode(88412339) and re:GetActivateLocation()==LOCATION_SZONE + and (c:GetSequence()==6 or c:GetSequence()==7) +end diff --git a/script/c8842266.lua b/script/c8842266.lua old mode 100755 new mode 100644 diff --git a/script/c88438982.lua b/script/c88438982.lua index 5f5cf5db..eb4a66d0 100644 --- a/script/c88438982.lua +++ b/script/c88438982.lua @@ -17,7 +17,7 @@ function c88438982.adop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end end diff --git a/script/c88482761.lua b/script/c88482761.lua old mode 100755 new mode 100644 index c65585ad..86ce0df0 --- a/script/c88482761.lua +++ b/script/c88482761.lua @@ -61,8 +61,7 @@ function c88482761.operation(e,tp,eg,ep,ev,re,r,rp) end end function c88482761.atkcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_BATTLE - and not Duel.CheckTiming(TIMING_BATTLE_START+TIMING_BATTLE_END) + return Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_BATTLE_STEP end function c88482761.atkcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end @@ -89,7 +88,7 @@ function c88482761.atkop(e,tp,eg,ep,ev,re,r,rp) if c1~=e:GetLabelObject() then c1,c2=c2,c1 end if c1:IsControler(1-tp) and c1:IsPosition(POS_FACEUP_ATTACK) and not c1:IsImmuneToEffect(e) and c2:IsControler(tp) then - Duel.CalculateDamage(c1,c2) + Duel.CalculateDamage(c1,c2,true) end end end diff --git a/script/c88610708.lua b/script/c88610708.lua old mode 100755 new mode 100644 diff --git a/script/c88619463.lua b/script/c88619463.lua index 8827e5e8..f97a59b7 100644 --- a/script/c88619463.lua +++ b/script/c88619463.lua @@ -21,7 +21,7 @@ function c88619463.initial_effect(c) local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(88619463,0)) e3:SetCategory(CATEGORY_NEGATE) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e3:SetType(EFFECT_TYPE_QUICK_O) e3:SetCode(EVENT_CHAINING) e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e3:SetRange(LOCATION_MZONE) diff --git a/script/c88643579.lua b/script/c88643579.lua old mode 100755 new mode 100644 index 51c808ed..1bdf8639 --- a/script/c88643579.lua +++ b/script/c88643579.lua @@ -18,7 +18,7 @@ end function c88643579.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local c=e:GetHandler() if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsAbleToGrave() end - if chk==0 then return c:GetAttack()>=500 and c:GetDefence()>=500 + if chk==0 then return c:GetAttack()>=500 and c:GetDefense()>=500 and Duel.IsExistingTarget(Card.IsAbleToGrave,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) local g=Duel.SelectTarget(tp,Card.IsAbleToGrave,tp,0,LOCATION_MZONE,1,1,nil) @@ -27,7 +27,7 @@ end function c88643579.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and c:IsFaceup() and c:GetAttack()>=500 and c:GetDefence()>=500 then + if c:IsRelateToEffect(e) and c:IsFaceup() and c:GetAttack()>=500 and c:GetDefense()>=500 then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) @@ -36,7 +36,7 @@ function c88643579.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetValue(-500) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) if tc and tc:IsControler(1-tp) and tc:IsRelateToEffect(e) and not c:IsHasEffect(EFFECT_REVERSE_UPDATE) then Duel.SendtoGrave(tc,REASON_EFFECT) diff --git a/script/c88650530.lua b/script/c88650530.lua index ac0f3597..f9e438b3 100644 --- a/script/c88650530.lua +++ b/script/c88650530.lua @@ -10,7 +10,7 @@ function c88650530.initial_effect(c) c:RegisterEffect(e1) end function c88650530.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c88650530.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c88650530.filter(chkc) end diff --git a/script/c88671720.lua b/script/c88671720.lua index c067df13..6d04c5dc 100644 --- a/script/c88671720.lua +++ b/script/c88671720.lua @@ -26,7 +26,7 @@ end function c88671720.sumop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c88686573.lua b/script/c88686573.lua index b9e39972..c1a99f0f 100644 --- a/script/c88686573.lua +++ b/script/c88686573.lua @@ -27,6 +27,7 @@ function c88686573.operation(e,tp,eg,ep,ev,re,r,rp) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end if ft>2 then ft=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c88686573.filter,tp,LOCATION_DECK,0,1,ft,nil,e,tp) if g:GetCount()>0 then diff --git a/script/c88696724.lua b/script/c88696724.lua index 7e364e89..d0adc4a8 100644 --- a/script/c88696724.lua +++ b/script/c88696724.lua @@ -23,7 +23,7 @@ function c88696724.subcon(e) end function c88696724.filter(c,e,tp,m,gc) return c:IsType(TYPE_FUSION) and c:IsAttribute(ATTRIBUTE_EARTH) - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:CheckFusionMaterial(m,gc) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:CheckFusionMaterial(m,gc,PLAYER_NONE+0x100) end function c88696724.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:SetLabel(1) @@ -40,7 +40,7 @@ function c88696724.target(e,tp,eg,ep,ev,re,r,rp,chk) local mg=Duel.GetMatchingGroup(Card.IsCanBeFusionMaterial,tp,LOCATION_MZONE,0,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c88696724.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,mg,c) - local mat=Duel.SelectFusionMaterial(tp,g:GetFirst(),mg,c) + local mat=Duel.SelectFusionMaterial(tp,g:GetFirst(),mg,c,PLAYER_NONE+0x100) Duel.Release(mat,REASON_COST) e:SetLabel(g:GetFirst():GetCode()) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) diff --git a/script/c88722973.lua b/script/c88722973.lua old mode 100755 new mode 100644 index 8ac68f20..d3a253ab --- a/script/c88722973.lua +++ b/script/c88722973.lua @@ -9,6 +9,7 @@ function c88722973.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e1:SetCode(EVENT_SPSUMMON_SUCCESS) e1:SetCondition(c88722973.regcon) + e1:SetTarget(c88722973.regtg) e1:SetOperation(c88722973.regop) c:RegisterEffect(e1) --spsummon @@ -25,6 +26,9 @@ end function c88722973.regcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ end +function c88722973.regtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_DECK,0,1,nil,TYPE_PENDULUM) end +end function c88722973.regop(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) diff --git a/script/c88724332.lua b/script/c88724332.lua index ec65b27f..59660617 100644 --- a/script/c88724332.lua +++ b/script/c88724332.lua @@ -7,12 +7,12 @@ function c88724332.initial_effect(c) e1:SetRange(LOCATION_MZONE) e1:SetTarget(c88724332.target) e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e1:SetValue(POS_FACEUP_DEFENCE) + e1:SetValue(POS_FACEUP_DEFENSE) c:RegisterEffect(e1) --def local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetRange(LOCATION_MZONE) e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) e2:SetTarget(c88724332.deftg) @@ -20,7 +20,7 @@ function c88724332.initial_effect(c) c:RegisterEffect(e2) end function c88724332.target(e,c) - return c:IsPosition(POS_FACEUP_ATTACK) and not c:IsRace(RACE_WYRM) + return c:IsFaceup() and not c:IsRace(RACE_WYRM) and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL and bit.band(c:GetSummonLocation(),LOCATION_DECK+LOCATION_EXTRA)~=0 end @@ -30,5 +30,5 @@ function c88724332.deftg(e,c) and bit.band(c:GetSummonLocation(),LOCATION_DECK+LOCATION_EXTRA)~=0 end function c88724332.defval(e,c) - return -c:GetBaseDefence() + return -c:GetBaseDefense() end diff --git a/script/c8873112.lua b/script/c8873112.lua index d3b95dcf..21309ac5 100644 --- a/script/c8873112.lua +++ b/script/c8873112.lua @@ -39,8 +39,11 @@ function c8873112.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c8873112.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsLocation(LOCATION_HAND) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c8873112.cfilter(c,tp) diff --git a/script/c88733579.lua b/script/c88733579.lua index 3359ab15..76ee73d4 100644 --- a/script/c88733579.lua +++ b/script/c88733579.lua @@ -13,7 +13,7 @@ function c88733579.condition(e,tp,eg,ep,ev,re,r,rp) return ep==1-tp end function c88733579.filter(c) - return c:IsCode(27911549) and c:GetPosition()~=POS_FACEUP_DEFENCE + return c:IsCode(27911549) and c:GetPosition()~=POS_FACEUP_DEFENSE end function c88733579.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstMatchingCard(c88733579.filter,tp,LOCATION_DECK,0,nil) diff --git a/script/c88754763.lua b/script/c88754763.lua index ce7f2ccb..920deede 100644 --- a/script/c88754763.lua +++ b/script/c88754763.lua @@ -9,7 +9,7 @@ function c88754763.initial_effect(c) e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e1:SetRange(LOCATION_MZONE) - e1:SetValue(aux.tgval) + e1:SetValue(1) c:RegisterEffect(e1) --draw local e2=Effect.CreateEffect(c) diff --git a/script/c88820235.lua b/script/c88820235.lua old mode 100755 new mode 100644 diff --git a/script/c88901771.lua b/script/c88901771.lua index 70203a6a..95a1f5f9 100644 --- a/script/c88901771.lua +++ b/script/c88901771.lua @@ -1,7 +1,7 @@ --熟練の青魔道士 function c88901771.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,3) + c:EnableCounterPermit(0x1) + c:SetCounterLimit(0x1,3) --add counter local e0=Effect.CreateEffect(c) e0:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) @@ -39,16 +39,15 @@ function c88901771.initial_effect(c) end function c88901771.acop(e,tp,eg,ep,ev,re,r,rp) if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and e:GetHandler():GetFlagEffect(1)>0 then - e:GetHandler():AddCounter(0x3001,1) + e:GetHandler():AddCounter(0x1,1) end end function c88901771.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetCounter(0x3001)==3 and e:GetHandler():IsReleasable() end + if chk==0 then return e:GetHandler():GetCounter(0x1)==3 and e:GetHandler():IsReleasable() end Duel.Release(e:GetHandler(),REASON_COST) end function c88901771.filter(c,e,tp) return c:IsSetCard(0xbd) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c88901771.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 @@ -59,7 +58,7 @@ function c88901771.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c88901771.filter,tp,LOCATION_HAND+LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end @@ -68,18 +67,18 @@ function c88901771.ctcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) end function c88901771.ctfilter(c) - return c:IsFaceup() and c:IsCanAddCounter(0x3001,1) + return c:IsFaceup() and c:IsCanAddCounter(0x1,1) end function c88901771.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c88901771.ctfilter(chkc) end if chk==0 then return Duel.IsExistingTarget(c88901771.ctfilter,tp,LOCATION_ONFIELD,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(88901771,2)) + Duel.Hint(HINT_SELECTMSG,tp,94) Duel.SelectTarget(tp,c88901771.ctfilter,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x3001) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x1) end function c88901771.ctop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0x3001,1) + tc:AddCounter(0x1,1) end end diff --git a/script/c88935103.lua b/script/c88935103.lua index b8d11241..1a2b14ab 100644 --- a/script/c88935103.lua +++ b/script/c88935103.lua @@ -19,22 +19,29 @@ function c88935103.initial_effect(c) c:RegisterEffect(e3) --todeck local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e4:SetCode(EFFECT_SEND_REPLACE) - e4:SetTarget(c88935103.check) - e4:SetValue(aux.FALSE) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) + e4:SetValue(LOCATION_DECKBOT) + e4:SetCondition(c88935103.rdcon) c:RegisterEffect(e4) - --spsummon local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(88935103,1)) - e5:SetCategory(CATEGORY_SPECIAL_SUMMON) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET) - e5:SetType(EFFECT_TYPE_IGNITION) - e5:SetRange(LOCATION_HAND+LOCATION_GRAVE) - e5:SetTarget(c88935103.sptg) - e5:SetOperation(c88935103.spop) + e5:SetType(EFFECT_TYPE_FIELD) + e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_RANGE) + e5:SetRange(LOCATION_MZONE) + e5:SetCode(EFFECT_MATERIAL_CHECK) + e5:SetValue(c88935103.valcheck) + e5:SetLabelObject(e4) c:RegisterEffect(e5) + --spsummon + local e6=Effect.CreateEffect(c) + e6:SetDescription(aux.Stringid(88935103,1)) + e6:SetCategory(CATEGORY_SPECIAL_SUMMON) + e6:SetProperty(EFFECT_FLAG_CARD_TARGET) + e6:SetType(EFFECT_TYPE_IGNITION) + e6:SetRange(LOCATION_HAND+LOCATION_GRAVE) + e6:SetTarget(c88935103.sptg) + e6:SetOperation(c88935103.spop) + c:RegisterEffect(e6) end function c88935103.descon(e) local seq=e:GetHandler():GetSequence() @@ -45,13 +52,18 @@ function c88935103.synlimit(e,c) if not c then return false end return not c:IsRace(RACE_DRAGON) end +function c88935103.rdcon(e) + return e:GetHandler():IsReason(REASON_MATERIAL) and e:GetHandler():IsReason(REASON_SYNCHRO) and e:GetLabel()==1 +end function c88935103.sfilter(c) return not c:IsSetCard(0x99) end -function c88935103.check(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return bit.band(r,REASON_SYNCHRO)~=0 and eg:IsExists(c88935103.sfilter,1,e:GetHandler()) end - Duel.SendtoDeck(e:GetHandler(),nil,1,r) - return true +function c88935103.valcheck(e,c) + if c:GetMaterial():IsExists(c88935103.sfilter,1,e:GetHandler()) then + e:GetLabelObject():SetLabel(1) + else + e:GetLabelObject():SetLabel(0) + end end function c88935103.cfilter(c) return c:IsFaceup() and c:GetLevel()>=7 and c:IsSetCard(0x99) @@ -75,7 +87,9 @@ function c88935103.spop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) e1:SetValue(-3) tc:RegisterEffect(e1) - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c88940154.lua b/script/c88940154.lua index b642b790..c4de4dea 100644 --- a/script/c88940154.lua +++ b/script/c88940154.lua @@ -25,7 +25,7 @@ function c88940154.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) end function c88940154.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c88940154.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c88940154.filter(chkc) end diff --git a/script/c88975532.lua b/script/c88975532.lua index a0427805..00165992 100644 --- a/script/c88975532.lua +++ b/script/c88975532.lua @@ -13,7 +13,7 @@ function c88975532.initial_effect(c) end function c88975532.con(e) local ph=Duel.GetCurrentPhase() - return ph==PHASE_BATTLE or ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL + return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE end function c88975532.aclimit(e,re,tp) return re:GetHandler():IsType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE) diff --git a/script/c8903700.lua b/script/c8903700.lua old mode 100755 new mode 100644 index 8f5f563c..92c1c7f5 --- a/script/c8903700.lua +++ b/script/c8903700.lua @@ -30,7 +30,7 @@ function c8903700.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetRange(LOCATION_MZONE) e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) e1:SetReset(RESET_EVENT+0x1fe0000) - e1:SetAbsoluteRange(rp,0,1) + e1:SetAbsoluteRange(ep,0,1) rc:RegisterEffect(e1,true) rc:RegisterFlagEffect(8903700,RESET_EVENT+0x1fe0000,0,1) end diff --git a/script/c89040386.lua b/script/c89040386.lua index 657c574d..4ab81522 100644 --- a/script/c89040386.lua +++ b/script/c89040386.lua @@ -17,16 +17,13 @@ function c89040386.condition(e,tp,eg,ep,ev,re,r,rp) return tp~=Duel.GetTurnPlayer() and Duel.GetAttackTarget()==nil and Duel.IsExistingMatchingCard(c89040386.cfilter,tp,LOCATION_GRAVE,0,5,nil) end -function c89040386.filter(c) - return c:IsDestructable() -end function c89040386.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c89040386.filter,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(c89040386.filter,tp,0,LOCATION_MZONE,nil) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c89040386.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c89040386.filter,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) if g:GetCount()>0 then Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c89041555.lua b/script/c89041555.lua index e4f58f3a..44db9981 100644 --- a/script/c89041555.lua +++ b/script/c89041555.lua @@ -14,7 +14,7 @@ function c89041555.condition(e,tp,eg,ep,ev,re,r,rp) return tp~=Duel.GetTurnPlayer() and bit.band(eg:GetFirst():GetSummonType(),SUMMON_TYPE_ADVANCE)==SUMMON_TYPE_ADVANCE end function c89041555.filter(c) - return c:IsAttackPos() and c:IsDestructable() + return c:IsAttackPos() end function c89041555.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c89041555.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c89086566.lua b/script/c89086566.lua index 4f574f08..3bebc601 100644 --- a/script/c89086566.lua +++ b/script/c89086566.lua @@ -11,19 +11,18 @@ function c89086566.initial_effect(c) c:RegisterEffect(e1) end function c89086566.cfilter(c) - local code=c:GetCode() - return c:IsFaceup() and (code==40640057 or code==40703223) and c:IsDestructable() + return c:IsFaceup() and c:IsCode(40640057,40703223) end function c89086566.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c89086566.cfilter,tp,LOCATION_MZONE,0,1,nil) end - local g=Duel.GetMatchingGroup(c89086566.cfilter,tp,LOCATION_MZONE,0,nil) + if chk==0 then return Duel.IsExistingMatchingCard(c89086566.cfilter,tp,LOCATION_ONFIELD,0,1,nil) end + local g=Duel.GetMatchingGroup(c89086566.cfilter,tp,LOCATION_ONFIELD,0,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c89086566.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c89086566.cfilter,tp,LOCATION_MZONE,0,nil) + local g=Duel.GetMatchingGroup(c89086566.cfilter,tp,LOCATION_ONFIELD,0,nil) local dt=Duel.Destroy(g,REASON_EFFECT) if dt==0 then return end - local dg=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) if dg:GetCount()>0 then Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) diff --git a/script/c89091772.lua b/script/c89091772.lua old mode 100755 new mode 100644 index 8d258d50..be2897d6 --- a/script/c89091772.lua +++ b/script/c89091772.lua @@ -35,7 +35,7 @@ function c89091772.sumop(e,tp,eg,ep,ev,re,r,rp) 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) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c89091772.atlimit(e,c) diff --git a/script/c8910971.lua b/script/c8910971.lua new file mode 100644 index 00000000..4798e701 --- /dev/null +++ b/script/c8910971.lua @@ -0,0 +1,47 @@ +--暗黒騎士ガイアロード +function c8910971.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c8910971.spcon) + c:RegisterEffect(e1) + --atkup + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(8910971,0)) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCondition(c8910971.condition) + e2:SetOperation(c8910971.operation) + c:RegisterEffect(e2) +end +function c8910971.spcon(e,c) + if c==nil then return true end + return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0)==0 + and Duel.GetFieldGroupCount(c:GetControler(),0,LOCATION_MZONE)>0 + and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 +end +function c8910971.cfilter(c,tp,atk) + return c:IsFaceup() and c:IsControler(1-tp) and c:GetAttack()>atk +end +function c8910971.condition(e,tp,eg,ep,ev,re,r,rp) + local atk=e:GetHandler():GetAttack() + return eg:IsExists(c8910971.cfilter,1,nil,tp,atk) +end +function c8910971.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsFaceup() and c:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(700) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + end +end diff --git a/script/c89111398.lua b/script/c89111398.lua index c1bbee10..b91bb02f 100644 --- a/script/c89111398.lua +++ b/script/c89111398.lua @@ -1,5 +1,7 @@ --砂塵の悪霊 function c89111398.initial_effect(c) + --spirit + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c89111398.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c89111398.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --destroy local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(89111398,1)) @@ -31,7 +23,7 @@ function c89111398.initial_effect(c) c:RegisterEffect(e5) end function c89111398.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c89111398.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -44,39 +36,3 @@ function c89111398.desop(e,tp,eg,ep,ev,re,r,rp) Duel.Destroy(g,REASON_EFFECT) end end -function c89111398.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(89111398,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c89111398.retcon) - e1:SetTarget(c89111398.rettg) - e1:SetOperation(c89111398.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c89111398.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c89111398.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c89111398.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c89113320.lua b/script/c89113320.lua index 74b28cdd..93726f38 100644 --- a/script/c89113320.lua +++ b/script/c89113320.lua @@ -48,7 +48,7 @@ function c89113320.lvop(e,tp,eg,ep,ev,re,r,rp) end function c89113320.target(e,tp,eg,ep,ev,re,r,rp,chk) local bc=e:GetHandler():GetBattleTarget() - if chk==0 then return bc:IsRelateToBattle() and bc:IsDestructable() end + if chk==0 then return bc:IsRelateToBattle() end Duel.SetOperationInfo(0,CATEGORY_DESTROY,bc,1,0,0) end function c89113320.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c89211486.lua b/script/c89211486.lua index 147e11c5..316868c1 100644 --- a/script/c89211486.lua +++ b/script/c89211486.lua @@ -21,10 +21,10 @@ function c89211486.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(sg,REASON_COST) end function c89211486.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c89211486.operation(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c89222931.lua b/script/c89222931.lua index e734d1c5..bb06e2a7 100644 --- a/script/c89222931.lua +++ b/script/c89222931.lua @@ -10,7 +10,7 @@ function c89222931.initial_effect(c) c:RegisterEffect(e1) --defup local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end function c89222931.val(e,c) diff --git a/script/c89235196.lua b/script/c89235196.lua index 1b597022..423371d7 100644 --- a/script/c89235196.lua +++ b/script/c89235196.lua @@ -27,7 +27,9 @@ function c89235196.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c89235196.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end - if not c:IsRelateToEffect(e) or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) then return end - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end end diff --git a/script/c89258225.lua b/script/c89258225.lua index f6b05c82..d9c8984f 100644 --- a/script/c89258225.lua +++ b/script/c89258225.lua @@ -35,7 +35,7 @@ function c89258225.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end diff --git a/script/c89258906.lua b/script/c89258906.lua old mode 100755 new mode 100644 index af251e9b..618d4ecb --- a/script/c89258906.lua +++ b/script/c89258906.lua @@ -33,7 +33,9 @@ function c89258906.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c89258906.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c89326990.lua b/script/c89326990.lua old mode 100755 new mode 100644 diff --git a/script/c89362180.lua b/script/c89362180.lua index 55790f78..25719539 100644 --- a/script/c89362180.lua +++ b/script/c89362180.lua @@ -41,11 +41,11 @@ function c89362180.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and bc:IsCanBeSpecialSummoned(e,0,tp,false,false) end Duel.SetTargetCard(bc) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,LOCATION_GRAVE) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,bc,1,0,0) end function c89362180.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE)>0 then + if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)>0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CHANGE_RACE) diff --git a/script/c89382640.lua b/script/c89382640.lua deleted file mode 100644 index 58c99d19..00000000 --- a/script/c89382640.lua +++ /dev/null @@ -1,115 +0,0 @@ ---Spell Textbook -function c89382640.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetCost(c89382640.cost) - e1:SetTarget(c89382640.target) - e1:SetOperation(c89382640.activate) - c:RegisterEffect(e1) - end - function c89382640.cfilter(c) - return c:IsDiscardable() and c:IsAbleToGraveAsCost() -end -function c89382640.cost(e,tp,eg,ep,ev,re,r,rp,chk) - local hg=Duel.GetFieldGroup(tp,LOCATION_HAND,0) - hg:RemoveCard(e:GetHandler()) - if chk==0 then return hg:GetCount()>0 and hg:FilterCount(c89382640.cfilter,nil)==hg:GetCount() end - Duel.SendtoGrave(hg,REASON_COST) -end -function c89382640.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) -end -function c89382640.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetDecktopGroup(tp,1) - tc=g:GetFirst() - Duel.Draw(tp,1,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - Duel.ShuffleHand(tp) - if not tc:IsType(TYPE_EQUIP+TYPE_CONTINUOUS+TYPE_FIELD+TYPE_MONSTER+TYPE_TRAP) and tc:CheckActivateEffect(false,false,false)~=nil then - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local te=tc:GetActivateEffect() - local tg=te:GetTarget() - local co=te:GetCost() - local op=te:GetOperation() - e:SetCategory(te:GetCategory()) - e:SetProperty(te:GetProperty()) - Duel.ClearTargetCard() - tc:CreateEffectRelation(te) - if co then co(te,tp,eg,ep,ev,re,r,rp,1) end - if tg then tg(te,tp,eg,ep,ev,re,r,rp,1) end - Duel.BreakEffect() - local a=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - if Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)~=nil then - etc=a:GetFirst() - while etc do - etc:CreateEffectRelation(te) - etc=a:GetNext() - end - else end - if op==te:GetOperation() then op(te,tp,eg,ep,ev,re,r,rp) end - tc:ReleaseEffectRelation(te) - etc=g:GetFirst() - while etc do - etc:ReleaseEffectRelation(te) - etc=g:GetNext() - end - Duel.BreakEffect() - if tc:IsLocation(LOCATION_ONFIELD) then - Duel.SendtoGrave(tc,REASON_EFFECT) - end - else - if tc:IsType(TYPE_EQUIP+TYPE_CONTINUOUS) and not tc:IsType(TYPE_TRAP) then - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - tpe=tc:GetType() - te=tc:GetActivateEffect() - tg=te:GetTarget() - co=te:GetCost() - op=te:GetOperation() - e:SetCategory(te:GetCategory()) - e:SetProperty(te:GetProperty()) - Duel.ClearTargetCard() - tc:CreateEffectRelation(te) - if co then co(te,tp,eg,ep,ev,re,r,rp,1) end - if tg then tg(te,tp,eg,ep,ev,re,r,rp,1) end - Duel.BreakEffect() - local b=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - if Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)~=nil then - local etc=b:GetFirst() - while etc do - etc:CreateEffectRelation(te) - etc=b:GetNext() - end - else end - if op then op(te,tp,eg,ep,ev,re,r,rp) end - tc:ReleaseEffectRelation(te) - etc=g:GetFirst() - while etc do - etc:ReleaseEffectRelation(te) - etc=g:GetNext() - end - else - if tc:IsType(TYPE_FIELD) then - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - end - if co then co(e,tp,eg,ep,ev,re,r,rp,1) end - if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end - Duel.BreakEffect() - if op then op(e,tp,eg,ep,ev,re,r,rp) end - if tc:IsType(TYPE_FIELD)then - local of=Duel.GetFieldCard(1-tp,LOCATION_SZONE,5) - if of then Duel.Destroy(of,REASON_RULE) end - else - if tc:IsType(TYPE_SPELL) and tc:CheckActivateEffect(false,false,false)==nil then - Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - Duel.SendtoGrave(tc,REASON_EFFECT) - end - end - end - end - end - - \ No newline at end of file diff --git a/script/c89397517.lua b/script/c89397517.lua old mode 100755 new mode 100644 index 297bb5d8..2e09f1cd --- a/script/c89397517.lua +++ b/script/c89397517.lua @@ -21,7 +21,7 @@ function c89397517.rmfilter(c) return c:IsSetCard(0xa1) and c:IsType(TYPE_SPELL) and c:IsAbleToRemove() end function c89397517.spfilter(c,e,tp) - return c:IsSetCard(0xa0) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0xa0) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) end function c89397517.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -48,12 +48,14 @@ function c89397517.activate(e,tp,eg,ep,ev,re,r,rp) g:AddCard(tc) ct=ct-1 until ct<1 or not Duel.SelectYesNo(tp,aux.Stringid(89397517,0)) + if g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end Duel.Remove(g,POS_FACEUP,REASON_EFFECT) ct=g:FilterCount(Card.IsLocation,nil,LOCATION_REMOVED) while ct>0 do Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local tc=spg:Select(tp,1,1,nil):GetFirst() spg:Remove(Card.IsCode,nil,tc:GetCode()) + if tc:IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummonStep(tc,0,tp,tp,true,true,POS_FACEUP) tc:CompleteProcedure() ct=ct-1 diff --git a/script/c89399912.lua b/script/c89399912.lua index 88318f5a..5e0bd392 100644 --- a/script/c89399912.lua +++ b/script/c89399912.lua @@ -62,8 +62,10 @@ function c89399912.hsptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c89399912.hspop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c89399912.retcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c89405199.lua b/script/c89405199.lua index 6f0e3727..3022feb6 100644 --- a/script/c89405199.lua +++ b/script/c89405199.lua @@ -61,6 +61,7 @@ function c89405199.damop(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) then return end local ct1=c:GetFlagEffectLabel(89405199+tp) local ct2=c:GetFlagEffectLabel(89405199+1-tp) - if ct1 then Duel.Damage(tp,ct1*500,REASON_EFFECT) end - if ct2 then Duel.Damage(1-tp,ct2*500,REASON_EFFECT) end + if ct1 then Duel.Damage(tp,ct1*500,REASON_EFFECT,true) end + if ct2 then Duel.Damage(1-tp,ct2*500,REASON_EFFECT,true) end + Duel.RDComplete() end diff --git a/script/c89423971.lua b/script/c89423971.lua index 507be337..5d090d76 100644 --- a/script/c89423971.lua +++ b/script/c89423971.lua @@ -85,7 +85,7 @@ function c89423971.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c89423971.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c89423971.descost(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() diff --git a/script/c89448140.lua b/script/c89448140.lua new file mode 100644 index 00000000..5c0067e3 --- /dev/null +++ b/script/c89448140.lua @@ -0,0 +1,57 @@ +--マジシャンズ・プロテクション +function c89448140.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --halve damage + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetRange(LOCATION_SZONE) + e2:SetCode(EFFECT_CHANGE_DAMAGE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e2:SetTargetRange(1,0) + e2:SetCondition(c89448140.condition) + e2:SetValue(c89448140.val) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetCondition(c89448140.spcon) + e3:SetTarget(c89448140.sptg) + e3:SetOperation(c89448140.spop) + c:RegisterEffect(e3) +end +function c89448140.cfilter(c) + return c:IsFaceup() and c:IsRace(RACE_SPELLCASTER) +end +function c89448140.condition(e) + return Duel.IsExistingMatchingCard(c89448140.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) +end +function c89448140.val(e,re,dam,r,rp,rc) + return math.ceil(dam/2) +end +function c89448140.spcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) +end +function c89448140.spfilter(c,e,tp) + return c:IsRace(RACE_SPELLCASTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c89448140.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c89448140.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c89448140.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c89448140.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c89448140.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c89463537.lua b/script/c89463537.lua old mode 100755 new mode 100644 index c93cb148..27836b0e --- a/script/c89463537.lua +++ b/script/c89463537.lua @@ -47,7 +47,6 @@ function c89463537.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end function c89463537.distg(e,c) diff --git a/script/c89493368.lua b/script/c89493368.lua index 584af6ab..8696cda8 100644 --- a/script/c89493368.lua +++ b/script/c89493368.lua @@ -85,7 +85,7 @@ function c89493368.spcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g1,REASON_COST) end function c89493368.spfilter(c,e,tp) - return c:IsCode(16898077) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(16898077) and c:IsCanBeSpecialSummoned(e,0,tp,true,true) end function c89493368.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c89493368.spfilter,tp,0x13,0,1,nil,e,tp) end @@ -95,7 +95,7 @@ function c89493368.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c89493368.spfilter,tp,0x13,0,1,1,nil,e,tp) - if g:GetCount()~=0 then + if g:GetCount()~=0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,true,true,POS_FACEUP) g:GetFirst():CompleteProcedure() end diff --git a/script/c89516305.lua b/script/c89516305.lua old mode 100755 new mode 100644 index e553d160..01ad7dcb --- a/script/c89516305.lua +++ b/script/c89516305.lua @@ -86,7 +86,7 @@ end function c89516305.setop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end function c89516305.atkcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c89544521.lua b/script/c89544521.lua old mode 100755 new mode 100644 index 0a307781..eeb95bad --- a/script/c89544521.lua +++ b/script/c89544521.lua @@ -12,7 +12,7 @@ function c89544521.initial_effect(c) e1:SetValue(c89544521.val) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) --spsummon local e3=Effect.CreateEffect(c) @@ -41,10 +41,10 @@ function c89544521.filter(c) return c:IsFaceup() and c:IsSetCard(0xab) end function c89544521.val(e,c) - return Duel.GetMatchingGroupCount(c89544521.filter,c:GetControler(),LOCATION_ONFIELD,0,nil)*500 + return Duel.GetMatchingGroupCount(c89544521.filter,c:GetControler(),LOCATION_ONFIELD,LOCATION_ONFIELD,nil)*500 end function c89544521.desfilter1(c) - return c:IsFaceup() and c:IsSetCard(0xab) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0xab) end function c89544521.spfilter(c,e,tp) return c:IsSetCard(0xab) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) @@ -77,11 +77,11 @@ function c89544521.spop(e,tp,eg,ep,ev,re,r,rp) end end function c89544521.desfilter2(c) - return c:IsFaceup() and c:IsSetCard(0xab) and c:IsDestructable() + return c:IsFaceup() and c:IsSetCard(0xab) and Duel.IsExistingTarget(c89544521.desfilter3,0,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end function c89544521.desfilter3(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c89544521.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c89563150.lua b/script/c89563150.lua index fafa4793..1df1799a 100644 --- a/script/c89563150.lua +++ b/script/c89563150.lua @@ -19,7 +19,7 @@ function c89563150.discon(e,tp,eg,ep,ev,re,r,rp) (cp==PLAYER_ALL and (Duel.IsPlayerAffectedByEffect(0,EFFECT_REVERSE_RECOVER) or Duel.IsPlayerAffectedByEffect(1,EFFECT_REVERSE_RECOVER)))) end function c89563150.dfilter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c89563150.distg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c89609515.lua b/script/c89609515.lua old mode 100755 new mode 100644 diff --git a/script/c8964854.lua b/script/c8964854.lua index 1c041ef5..0b1d6d45 100644 --- a/script/c8964854.lua +++ b/script/c8964854.lua @@ -12,27 +12,29 @@ function c8964854.initial_effect(c) c:RegisterEffect(e1) end function c8964854.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE + return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c8964854.filter(c,e,tp) return c:GetAttackAnnouncedCount()>0 and Duel.IsExistingMatchingCard(c8964854.eqfilter,tp,LOCATION_SZONE,0,1,nil,e,tp,c) end function c8964854.eqfilter(c,e,tp,ec) - return c:IsStatus(STATUS_UNION) and c:GetEquipTarget()==ec and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + local op=c:GetOwner() + return c:IsStatus(STATUS_UNION) and c:GetEquipTarget()==ec + and Duel.GetLocationCount(op,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,op) end function c8964854.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c8964854.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c8964854.filter,tp,LOCATION_MZONE,0,1,nil,e,tp) end + if chk==0 then return Duel.IsExistingTarget(c8964854.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) - Duel.SelectTarget(tp,c8964854.filter,tp,LOCATION_MZONE,0,1,1,nil,e,tp) + Duel.SelectTarget(tp,c8964854.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_SZONE) end function c8964854.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then + local op=tc:GetOwner() + if tc:IsFaceup() and tc:IsRelateToEffect(e) and Duel.GetLocationCount(op,LOCATION_MZONE)>0 then local g=Duel.GetMatchingGroup(c8964854.eqfilter,tp,LOCATION_SZONE,0,nil,e,tp,tc) - if Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)>0 then + if Duel.SpecialSummon(g,0,tp,op,false,false,POS_FACEUP)>0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_EXTRA_ATTACK) diff --git a/script/c89662736.lua b/script/c89662736.lua index fdc6b754..2ce50c55 100644 --- a/script/c89662736.lua +++ b/script/c89662736.lua @@ -4,7 +4,7 @@ function c89662736.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(89662736,0)) e1:SetCategory(CATEGORY_DAMAGE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_BE_BATTLE_TARGET) e1:SetRange(LOCATION_HAND) e1:SetCountLimit(1,89662736) diff --git a/script/c8967776.lua b/script/c8967776.lua index ff942697..25f99c2f 100644 --- a/script/c8967776.lua +++ b/script/c8967776.lua @@ -34,7 +34,7 @@ function c8967776.spcon(e,c) end function c8967776.filter(c,e,tp) return c:IsRace(RACE_FAIRY) and c:GetLevel()>=8 - and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c8967776.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -47,7 +47,7 @@ function c8967776.spop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(tp,c8967776.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) local c=e:GetHandler() local tc=g:GetFirst() - if not tc then return end + if not tc or tc:IsHasEffect(EFFECT_NECRO_VALLEY) then return end local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c89719143.lua b/script/c89719143.lua index 97af8e56..cd937429 100644 --- a/script/c89719143.lua +++ b/script/c89719143.lua @@ -31,9 +31,10 @@ function c89719143.activate(e,tp,eg,ep,ev,re,r,rp) local tc1,tc2=Duel.GetFirstTarget() local dam=tc1:GetAttack()+tc2:GetAttack() if Duel.NegateAttack() then - if tc1:IsRelateToEffect(e) and tc1:IsFaceup() and tc2:IsRelateToEffect(e) and tc2:IsFaceup() then - Duel.Damage(1-tp,dam,REASON_EFFECT) - Duel.Damage(tp,dam,REASON_EFFECT) + if tc1:IsRelateToEffect(e) and tc1:IsFaceup() and tc2:IsRelateToEffect(e) and tc2:IsFaceup() then + Duel.Damage(1-tp,dam,REASON_EFFECT,true) + Duel.Damage(tp,dam,REASON_EFFECT,true) + Duel.RDComplete() end end end diff --git a/script/c89774530.lua b/script/c89774530.lua index 382d7e3c..5495aa95 100644 --- a/script/c89774530.lua +++ b/script/c89774530.lua @@ -26,7 +26,6 @@ function c89774530.initial_effect(c) end function c89774530.filter(c,e,tp) return c:IsCode(89774530) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c89774530.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -37,8 +36,8 @@ function c89774530.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c89774530.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end function c89774530.xyzlimit(e,c) diff --git a/script/c89792713.lua b/script/c89792713.lua index 95567679..ec26ac89 100644 --- a/script/c89792713.lua +++ b/script/c89792713.lua @@ -28,7 +28,7 @@ function c89792713.checkop(e,tp,eg,ep,ev,re,r,rp) end end function c89792713.filter(c) - return c:IsFaceup() and c:GetFlagEffect(89792713)~=0 and c:IsDestructable() + return c:IsFaceup() and c:GetFlagEffect(89792713)~=0 end function c89792713.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c89792713.filter(chkc) end @@ -36,7 +36,9 @@ function c89792713.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local g=Duel.SelectTarget(tp,c89792713.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetChainLimit(aux.FALSE) + if e:IsHasType(EFFECT_TYPE_ACTIVATE) then + Duel.SetChainLimit(aux.FALSE) + end end function c89792713.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() diff --git a/script/c89801755.lua b/script/c89801755.lua index 4cc5c6c8..5041e434 100644 --- a/script/c89801755.lua +++ b/script/c89801755.lua @@ -35,10 +35,5 @@ function c89801755.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(p,c89801755.filter,p,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,rc,att) if g:GetCount()>0 then Duel.SendtoGrave(g,REASON_EFFECT) - else - local cg=Duel.GetFieldGroup(p,LOCATION_DECK+LOCATION_HAND,0) - Duel.ConfirmCards(1-p,cg) - Duel.ShuffleHand(p) - Duel.ShuffleDeck(p) end end diff --git a/script/c89818984.lua b/script/c89818984.lua new file mode 100644 index 00000000..55f4ec5d --- /dev/null +++ b/script/c89818984.lua @@ -0,0 +1,100 @@ +--花札衛－柳に小野道風－ +function c89818984.initial_effect(c) + c:EnableReviveLimit() + --spsummon from hand + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_HAND) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetCondition(c89818984.hspcon) + e1:SetOperation(c89818984.hspop) + c:RegisterEffect(e1) + --draw + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(89818984,0)) + e2:SetCategory(CATEGORY_DRAW+CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetTarget(c89818984.target) + e2:SetOperation(c89818984.operation) + c:RegisterEffect(e2) + --synchro level + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_SYNCHRO_MATERIAL_CUSTOM) + e3:SetTarget(c89818984.syntg) + e3:SetValue(1) + e3:SetOperation(c89818984.synop) + c:RegisterEffect(e3) +end +function c89818984.hspfilter(c) + return c:IsSetCard(0xe6) and c:GetLevel()==11 and not c:IsCode(89818984) +end +function c89818984.hspcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.CheckReleaseGroup(c:GetControler(),c89818984.hspfilter,1,nil) +end +function c89818984.hspop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.SelectReleaseGroup(c:GetControler(),c89818984.hspfilter,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c89818984.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c89818984.operation(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + if Duel.Draw(p,d,REASON_EFFECT)~=0 then + local tc=Duel.GetOperatedGroup():GetFirst() + Duel.ConfirmCards(1-tp,tc) + Duel.BreakEffect() + if tc:IsType(TYPE_MONSTER) and tc:IsSetCard(0xe6) then + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.SelectYesNo(tp,aux.Stringid(89818984,1)) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end + else + Duel.SendtoGrave(tc,REASON_EFFECT) + end + Duel.ShuffleHand(tp) + end +end +function c89818984.cardiansynlevel(c) + return 2 +end +function c89818984.synfilter(c,syncard,tuner,f) + return c:IsFaceup() and c:IsNotTuner() and c:IsCanBeSynchroMaterial(syncard,tuner) and (f==nil or f(c)) +end +function c89818984.syntg(e,syncard,f,minc,maxc) + local c=e:GetHandler() + local lv=syncard:GetLevel()-c:GetLevel() + local lv2=syncard:GetLevel()-c89818984.cardiansynlevel(c) + if lv<=0 and lv2<=0 then return false end + local g=Duel.GetMatchingGroup(c89818984.synfilter,syncard:GetControler(),LOCATION_MZONE,LOCATION_MZONE,c,syncard,c,f) + local res=g:CheckWithSumEqual(Card.GetSynchroLevel,lv,minc,maxc,syncard) + local res2=g:CheckWithSumEqual(c89818984.cardiansynlevel,lv2,minc,maxc) + return res or res2 +end +function c89818984.synop(e,tp,eg,ep,ev,re,r,rp,syncard,f,minc,maxc) + local c=e:GetHandler() + local lv=syncard:GetLevel()-c:GetLevel() + local lv2=syncard:GetLevel()-c89818984.cardiansynlevel(c) + local g=Duel.GetMatchingGroup(c89818984.synfilter,syncard:GetControler(),LOCATION_MZONE,LOCATION_MZONE,c,syncard,c,f) + local res=g:CheckWithSumEqual(Card.GetSynchroLevel,lv,minc,maxc,syncard) + local res2=g:CheckWithSumEqual(c89818984.cardiansynlevel,lv2,minc,maxc) + local sg=nil + if (res2 and res and Duel.SelectYesNo(tp,aux.Stringid(89818984,2))) + or (res2 and not res) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + sg=g:SelectWithSumEqual(tp,c89818984.cardiansynlevel,lv2,minc,maxc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SMATERIAL) + sg=g:SelectWithSumEqual(tp,Card.GetSynchroLevel,lv,minc,maxc,syncard) + end + Duel.SetSynchroMaterial(sg) +end diff --git a/script/c89882100.lua b/script/c89882100.lua index 7adcd4b2..9fb1e996 100644 --- a/script/c89882100.lua +++ b/script/c89882100.lua @@ -11,7 +11,7 @@ function c89882100.initial_effect(c) c:RegisterEffect(e1) end function c89882100.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c89882100.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and c89882100.filter(chkc) end @@ -19,7 +19,9 @@ function c89882100.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local g=Duel.SelectTarget(tp,c89882100.filter,tp,0,LOCATION_SZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) - Duel.SetChainLimit(c89882100.limit(g:GetFirst())) + if e:IsHasType(EFFECT_TYPE_ACTIVATE) then + Duel.SetChainLimit(c89882100.limit(g:GetFirst())) + end end function c89882100.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() diff --git a/script/c89883517.lua b/script/c89883517.lua old mode 100755 new mode 100644 diff --git a/script/c89893715.lua b/script/c89893715.lua index 1de7cad9..5da420fd 100644 --- a/script/c89893715.lua +++ b/script/c89893715.lua @@ -15,7 +15,7 @@ function c89893715.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) end function c89893715.filter(c) - return c:IsSetCard(0x39) and c:IsAbleToGrave() + return c:IsSetCard(0x39) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() end function c89893715.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c89893715.filter,tp,LOCATION_DECK,0,2,nil) end diff --git a/script/c89914395.lua b/script/c89914395.lua index ffeeefe5..af95aa83 100644 --- a/script/c89914395.lua +++ b/script/c89914395.lua @@ -11,7 +11,7 @@ function c89914395.initial_effect(c) c:RegisterEffect(e1) end function c89914395.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsAbleToEnterBP() or Duel.GetCurrentPhase()==PHASE_BATTLE + return Duel.IsAbleToEnterBP() or (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c89914395.filter(c) return c:IsFaceup() and c:IsSetCard(0x4b) and not c:IsHasEffect(EFFECT_EXTRA_ATTACK) diff --git a/script/c90020065.lua b/script/c90020065.lua index 513d63ee..b0cc0669 100644 --- a/script/c90020065.lua +++ b/script/c90020065.lua @@ -33,12 +33,12 @@ function c90020065.descost(e,tp,eg,ep,ev,re,r,rp,chk) end function c90020065.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,0) end function c90020065.desop(e,tp,eg,ep,ev,re,r,rp,chk) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,0,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,0,nil) local dam=g:GetSum(Card.GetAttack)/2 Duel.Destroy(g,REASON_EFFECT) Duel.Damage(1-tp,dam,REASON_EFFECT) diff --git a/script/c90075978.lua b/script/c90075978.lua index db61f94b..41b886cd 100644 --- a/script/c90075978.lua +++ b/script/c90075978.lua @@ -18,7 +18,7 @@ end function c90075978.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_MZONE,LOCATION_MZONE,nil) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) end local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) @@ -42,7 +42,7 @@ end function c90075978.setop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c90075978.sfilter,tp,LOCATION_MZONE,0,nil) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) local dt=Duel.Draw(tp,g:GetCount(),REASON_EFFECT) if dt==0 or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local sg=Duel.GetMatchingGroup(c90075978.spfilter,tp,LOCATION_DECK,0,nil,e,tp) diff --git a/script/c90122655.lua b/script/c90122655.lua new file mode 100644 index 00000000..226468cf --- /dev/null +++ b/script/c90122655.lua @@ -0,0 +1,20 @@ +--天魔大帝 +function c90122655.initial_effect(c) + --act limit + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_CHAINING) + e1:SetRange(LOCATION_MZONE) + e1:SetOperation(c90122655.chainop) + c:RegisterEffect(e1) +end +function c90122655.chainop(e,tp,eg,ep,ev,re,r,rp) + local rc=re:GetHandler() + local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION) + if re:IsActiveType(TYPE_MONSTER) and loc==LOCATION_MZONE and bit.band(rc:GetSummonType(),SUMMON_TYPE_NORMAL)~=0 then + Duel.SetChainLimit(c90122655.chainlm) + end +end +function c90122655.chainlm(e,rp,tp) + return tp==rp +end diff --git a/script/c9012916.lua b/script/c9012916.lua old mode 100755 new mode 100644 index 3762b4c5..2ce2d70f --- a/script/c9012916.lua +++ b/script/c9012916.lua @@ -1,6 +1,6 @@ --ブラックフェザー・ドラゴン function c9012916.initial_effect(c) - c:EnableCounterPermit(0x3010) + c:EnableCounterPermit(0x10) --synchro summon aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1) c:EnableReviveLimit() @@ -38,19 +38,19 @@ function c9012916.initial_effect(c) end function c9012916.damval(e,re,val,r,rp,rc) if bit.band(r,REASON_EFFECT)~=0 then - e:GetHandler():AddCounter(0x3010,1) + e:GetHandler():AddCounter(0x10,1) return 0 end return val end function c9012916.atkval(e,c) - return c:GetCounter(0x3010)*-700 + return c:GetCounter(0x10)*-700 end function c9012916.cost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetCounter(0x3010)>0 end - local ct=e:GetHandler():GetCounter(0x3010) + if chk==0 then return e:GetHandler():GetCounter(0x10)>0 end + local ct=e:GetHandler():GetCounter(0x10) e:SetLabel(ct*700) - e:GetHandler():RemoveCounter(tp,0x3010,ct,REASON_COST) + e:GetHandler():RemoveCounter(tp,0x10,ct,REASON_COST) end function c9012916.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end diff --git a/script/c90135989.lua b/script/c90135989.lua index dd30ad14..3c2b405e 100644 --- a/script/c90135989.lua +++ b/script/c90135989.lua @@ -24,7 +24,7 @@ function c90135989.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,nil) local tc=g:GetFirst() while tc do - tc:AddCounter(0x19,1) + tc:AddCounter(0x1019,1) tc=g:GetNext() end end diff --git a/script/c90162951.lua b/script/c90162951.lua new file mode 100644 index 00000000..3eef8088 --- /dev/null +++ b/script/c90162951.lua @@ -0,0 +1,70 @@ +--No.35 ラベノス・タランチュラ +function c90162951.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,10,2) + c:EnableReviveLimit() + --atk/def + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetRange(LOCATION_MZONE) + e1:SetTargetRange(LOCATION_MZONE,0) + e1:SetValue(c90162951.val) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e2) + --damage + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetCondition(c90162951.damcon) + e3:SetOperation(c90162951.damop) + c:RegisterEffect(e3) + --destroy + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(90162951,0)) + e4:SetCategory(CATEGORY_DESTROY) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_MZONE) + e4:SetCountLimit(1) + e4:SetCost(c90162951.descost) + e4:SetTarget(c90162951.destg) + e4:SetOperation(c90162951.desop) + c:RegisterEffect(e4) +end +c90162951.xyz_number=35 +function c90162951.val(e,c) + return math.abs(Duel.GetLP(0)-Duel.GetLP(1)) +end +function c90162951.cfilter(c,tp) + return c:GetSummonPlayer()==tp +end +function c90162951.damcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:GetOverlayCount()>0 and eg:IsExists(c90162951.cfilter,1,nil,1-tp) +end +function c90162951.damop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_CARD,0,90162951) + Duel.Damage(1-tp,600,REASON_EFFECT) +end +function c90162951.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c90162951.desfilter(c,atk) + return c:IsFaceup() and c:IsAttackBelow(atk) +end +function c90162951.destg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return Duel.IsExistingMatchingCard(c90162951.desfilter,tp,0,LOCATION_MZONE,1,nil,c:GetAttack()) end + local g=Duel.GetMatchingGroup(c90162951.desfilter,tp,0,LOCATION_MZONE,nil,c:GetAttack()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c90162951.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) or c:IsFacedown() then return end + local g=Duel.GetMatchingGroup(c90162951.desfilter,tp,0,LOCATION_MZONE,nil,c:GetAttack()) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c90200789.lua b/script/c90200789.lua index 327550ae..8416ede2 100644 --- a/script/c90200789.lua +++ b/script/c90200789.lua @@ -63,10 +63,10 @@ function c90200789.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c90200789.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,lv) local tc=g:GetFirst() - if tc then + if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then Duel.BreakEffect() - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) c:SetCardTarget(tc) + Duel.SpecialSummonComplete() end end function c90200789.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c90219263.lua b/script/c90219263.lua index d92c6d7f..4cf31d70 100644 --- a/script/c90219263.lua +++ b/script/c90219263.lua @@ -17,8 +17,7 @@ function c90219263.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c90219263.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end function c90219263.filter(c,e,tp) - local code=c:GetCode() - return (code==76812113 or code==12206212) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) + return c:IsCode(76812113,12206212) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) end function c90219263.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 diff --git a/script/c90238142.lua b/script/c90238142.lua index 29d90c54..d3ac4ce7 100644 --- a/script/c90238142.lua +++ b/script/c90238142.lua @@ -49,7 +49,7 @@ function c90238142.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c90238142.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end function c90238142.lvfilter(c) diff --git a/script/c9024367.lua b/script/c9024367.lua index 2a1486d4..a4dd75cf 100644 --- a/script/c9024367.lua +++ b/script/c9024367.lua @@ -41,15 +41,21 @@ function c9024367.disop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local bc=c:GetBattleTarget() if bc and bc:IsRace(RACE_DRAGON) then + c:CreateRelation(bc,RESET_EVENT+0x1fe0000) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) + e1:SetCondition(c9024367.discon) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) bc:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetCondition(c9024367.discon) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) bc:RegisterEffect(e2) end end +function c9024367.discon(e) + return e:GetOwner():IsRelateToCard(e:GetHandler()) +end diff --git a/script/c9032529.lua b/script/c9032529.lua new file mode 100644 index 00000000..eb4c0976 --- /dev/null +++ b/script/c9032529.lua @@ -0,0 +1,30 @@ +--天使の涙 +function c9032529.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_RECOVER) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMING_END_PHASE) + e1:SetTarget(c9032529.target) + e1:SetOperation(c9032529.activate) + c:RegisterEffect(e1) +end +function c9032529.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0 end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(2000) + Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,2000) +end +function c9032529.activate(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + local g=Duel.GetFieldGroup(p,LOCATION_HAND,0) + if g:GetCount()==0 then return end + Duel.Hint(HINT_SELECTMSG,p,aux.Stringid(9032529,0)) + local sg=g:Select(p,1,1,nil) + if Duel.SendtoHand(sg,1-p,REASON_EFFECT)~=0 then + Duel.ShuffleHand(p) + Duel.BreakEffect() + Duel.Recover(p,d,REASON_EFFECT) + end +end diff --git a/script/c90330453.lua b/script/c90330453.lua index 06883d7f..b0633993 100644 --- a/script/c90330453.lua +++ b/script/c90330453.lua @@ -10,7 +10,7 @@ function c90330453.initial_effect(c) c:RegisterEffect(e1) end function c90330453.filter(c) - return c:IsRace(RACE_SPELLCASTER) and c:IsFaceup() and c:IsDestructable() + return c:IsRace(RACE_SPELLCASTER) and c:IsFaceup() end function c90330453.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c90330453.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c90330454.lua b/script/c90330454.lua deleted file mode 100644 index 803c68b6..00000000 --- a/script/c90330454.lua +++ /dev/null @@ -1,23 +0,0 @@ ---魔女狩り(EU) -function c90330454.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c90330454.target) - e1:SetOperation(c90330454.activate) - c:RegisterEffect(e1) -end -function c90330454.filter(c) - return c:IsRace(RACE_SPELLCASTER) and c:IsFaceup() and c:IsDestructable() -end -function c90330454.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c90330454.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local sg=Duel.GetMatchingGroup(c90330454.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0) -end -function c90330454.activate(e,tp,eg,ep,ev,re,r,rp) - local sg=Duel.GetMatchingGroup(c90330454.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.Destroy(sg,REASON_EFFECT) -end diff --git a/script/c90361010.lua b/script/c90361010.lua index 4f2609e5..5c5b132f 100644 --- a/script/c90361010.lua +++ b/script/c90361010.lua @@ -61,7 +61,7 @@ function c90361010.thcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) end function c90361010.thfilter(c) - return c:IsSetCard(0x9a) and not c:IsCode(90361010) and c:IsAbleToHand() + return c:IsSetCard(0x9a) and not c:IsCode(90361010) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c90361010.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c90361010.thfilter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c90397998.lua b/script/c90397998.lua index 4a7ba9c9..dd7d8825 100644 --- a/script/c90397998.lua +++ b/script/c90397998.lua @@ -39,7 +39,7 @@ function c90397998.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RegisterEffect(e1) end function c90397998.desfilter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c90397998.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c90397998.desfilter(chkc) end diff --git a/script/c90407382.lua b/script/c90407382.lua index 0a12d7b0..a6b29046 100644 --- a/script/c90407382.lua +++ b/script/c90407382.lua @@ -20,6 +20,7 @@ function c90407382.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) and Duel.IsExistingTarget(c90407382.filter,tp,LOCATION_GRAVE,0,1,nil,e:GetHandler()) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectTarget(tp,c90407382.filter,tp,LOCATION_GRAVE,0,1,1,nil,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) end function c90407382.eqop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c90411554.lua b/script/c90411554.lua index de277af0..429b547a 100644 --- a/script/c90411554.lua +++ b/script/c90411554.lua @@ -63,8 +63,10 @@ function c90411554.hsptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c90411554.hspop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c90411554.retcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c904185.lua b/script/c904185.lua index a3431b18..66f3e035 100644 --- a/script/c904185.lua +++ b/script/c904185.lua @@ -16,7 +16,9 @@ function c904185.rfilter(c) end function c904185.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.CheckReleaseGroup(tp,c904185.rfilter,1,nil) end - local g=Duel.SelectReleaseGroup(tp,c904185.rfilter,1,10,nil) + local maxc=10 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then maxc=1 end + local g=Duel.SelectReleaseGroup(tp,c904185.rfilter,1,maxc,nil) e:SetLabel(g:GetCount()) Duel.Release(g,REASON_COST) end @@ -27,7 +29,10 @@ function c904185.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,e:GetLabel(),0,0) end function c904185.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)-1 - and Duel.IsExistingTarget(c90500169.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + if chk==0 then return Duel.IsExistingTarget(c90500169.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) local g=Duel.SelectTarget(tp,c90500169.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE) @@ -35,17 +40,15 @@ end function c90500169.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() local code=tc:GetCode() - if not tc:IsRelateToEffect(e) then return end - local rc=Duel.SendtoDeck(tc,nil,0,REASON_EFFECT) - if tc:GetLocation()==LOCATION_DECK then Duel.ShuffleDeck(tc:GetControler()) end - if rc==0 then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + local op=tc:GetOwner() + if not tc:IsRelateToEffect(e) or not tc:IsFaceup() then return end + if Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)==0 then return end + if Duel.GetLocationCount(op,LOCATION_MZONE)<=0 then return end local class=_G["c"..code] if class==nil or class.lvdncount==nil then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c90500169.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,class,e,tp) - local tc=g:GetFirst() - if tc then - Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP) + local g=Duel.SelectMatchingCard(tp,c90500169.spfilter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,class,e,tp,op) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,op,true,false,POS_FACEUP) end end diff --git a/script/c90519313.lua b/script/c90519313.lua new file mode 100644 index 00000000..a38addc5 --- /dev/null +++ b/script/c90519313.lua @@ -0,0 +1,31 @@ +--検疫 +function c90519313.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --confirm + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(90519313,0)) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCode(EVENT_PHASE+PHASE_END) + e2:SetRange(LOCATION_SZONE) + e2:SetCountLimit(1) + e2:SetTarget(c90519313.cftg) + e2:SetOperation(c90519313.cfop) + c:RegisterEffect(e2) +end +function c90519313.cftg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_SZONE) and chkc:IsFacedown() end + if chk==0 then return Duel.IsExistingTarget(Card.IsFacedown,tp,0,LOCATION_SZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWN) + Duel.SelectTarget(tp,Card.IsFacedown,tp,0,LOCATION_SZONE,1,1,nil) +end +function c90519313.cfop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) and tc:IsFacedown() then + Duel.ConfirmCards(tp,tc) + end +end diff --git a/script/c90555947.lua b/script/c90555947.lua index 8fe7f634..deb97085 100644 --- a/script/c90555947.lua +++ b/script/c90555947.lua @@ -7,7 +7,7 @@ function c90555947.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(90555947,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_MZONE) diff --git a/script/c90557975.lua b/script/c90557975.lua index c7dfb011..6c9a5d0d 100644 --- a/script/c90557975.lua +++ b/script/c90557975.lua @@ -12,7 +12,7 @@ function c90557975.initial_effect(c) c:RegisterEffect(e1) end function c90557975.filter(c) - return c:GetCounter(0x19)>0 + return c:GetCounter(0x1019)>0 end function c90557975.damcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c90557975.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end @@ -20,9 +20,9 @@ function c90557975.damcost(e,tp,eg,ep,ev,re,r,rp,chk) local tc=g:GetFirst() local s=0 while tc do - local ct=tc:GetCounter(0x19) + local ct=tc:GetCounter(0x1019) s=s+ct - tc:RemoveCounter(tp,0x19,ct,REASON_COST) + tc:RemoveCounter(tp,0x1019,ct,REASON_COST) tc=g:GetNext() end e:SetLabel(s*300) diff --git a/script/c90576781.lua b/script/c90576781.lua index 1098aff2..9041588d 100644 --- a/script/c90576781.lua +++ b/script/c90576781.lua @@ -18,15 +18,15 @@ function c90576781.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c90576781.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c90576781.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDefencePos() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDefencePos,tp,0,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEFENCE) - local g=Duel.SelectTarget(tp,Card.IsDefencePos,tp,0,LOCATION_MZONE,1,1,nil) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDefensePos() end + if chk==0 then return Duel.IsExistingTarget(Card.IsDefensePos,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DEFENSE) + local g=Duel.SelectTarget(tp,Card.IsDefensePos,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) end function c90576781.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsDefencePos() and tc:IsRelateToEffect(e) and Duel.ChangePosition(tc,0,0,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)~=0 then + if tc:IsDefensePos() and tc:IsRelateToEffect(e) and Duel.ChangePosition(tc,0,0,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK_FINAL) diff --git a/script/c90579153.lua b/script/c90579153.lua new file mode 100644 index 00000000..2d854e79 --- /dev/null +++ b/script/c90579153.lua @@ -0,0 +1,70 @@ +--D－HERO ディストピアガイ +function c90579153.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0xc008),2,true) + --damage + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(90579153,0)) + e1:SetCategory(CATEGORY_DAMAGE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e1:SetCountLimit(1,90579153) + e1:SetTarget(c90579153.damtg) + e1:SetOperation(c90579153.damop) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(90579153,1)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1,90579154) + e2:SetCondition(c90579153.descon) + e2:SetTarget(c90579153.destg) + e2:SetOperation(c90579153.desop) + c:RegisterEffect(e2) +end +function c90579153.filter(c) + return c:IsSetCard(0xc008) and c:IsLevelBelow(4) and c:GetAttack()>0 +end +function c90579153.damtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c90579153.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c90579153.filter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + local g=Duel.SelectTarget(tp,c90579153.filter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,g:GetFirst():GetAttack()) +end +function c90579153.damop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Damage(1-tp,tc:GetAttack(),REASON_EFFECT) + end +end +function c90579153.descon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:GetAttack()~=c:GetBaseAttack() +end +function c90579153.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c90579153.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then + local atk=c:GetBaseAttack() + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(atk) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + end +end diff --git a/script/c90616316.lua b/script/c90616316.lua index bb1fb9ef..3544e852 100644 --- a/script/c90616316.lua +++ b/script/c90616316.lua @@ -27,18 +27,18 @@ function c90616316.spcon(e,tp,eg,ep,ev,re,r,rp) end function c90616316.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENCE) end + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c90616316.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,c) end end function c90616316.cfilter(c) - return c:IsSetCard(0x35) and not c:IsPublic() + return c:IsSetCard(0x35) and c:IsType(TYPE_MONSTER) and not c:IsPublic() end function c90616316.cost2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c90616316.cfilter,tp,LOCATION_HAND,0,1,nil) end @@ -48,7 +48,7 @@ function c90616316.cost2(e,tp,eg,ep,ev,re,r,rp,chk) Duel.ShuffleHand(tp) end function c90616316.filter2(c) - return c:IsSetCard(0x35) and c:IsAbleToGrave() + return c:IsSetCard(0x35) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() end function c90616316.tg2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c90616316.filter2,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c90640901.lua b/script/c90640901.lua index 2b72b0e6..532045d4 100644 --- a/script/c90640901.lua +++ b/script/c90640901.lua @@ -44,7 +44,7 @@ function c90640901.aclimit(e,re,tp) end function c90640901.descon(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefencePos() + return e:GetHandler()==Duel.GetAttacker() and d and d:IsFacedown() and d:IsDefensePos() end function c90640901.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c90642597.lua b/script/c90642597.lua index 15ae53a5..615db9d2 100644 --- a/script/c90642597.lua +++ b/script/c90642597.lua @@ -25,7 +25,7 @@ function c90642597.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Remove(g,POS_FACEUP,REASON_COST) end function c90642597.dfilter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c90642597.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c90642597.dfilter(chkc) end diff --git a/script/c90669991.lua b/script/c90669991.lua index 424aff66..b68dbd3e 100644 --- a/script/c90669991.lua +++ b/script/c90669991.lua @@ -15,12 +15,12 @@ function c90669991.condition(e,tp,eg,ep,ev,re,r,rp) end function c90669991.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)-Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,ct,0,0) end function c90669991.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)-Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0) if ct>0 then Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_DESTROY) diff --git a/script/c90673413.lua b/script/c90673413.lua index 40fad437..ae1797e5 100644 --- a/script/c90673413.lua +++ b/script/c90673413.lua @@ -64,7 +64,8 @@ function c90673413.desop(e,tp,eg,ep,ev,re,r,rp) end function c90673413.atkcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:IsReason(REASON_LOST_TARGET) and c:GetPreviousEquipTarget():IsLocation(LOCATION_OVERLAY) + local tc=c:GetPreviousEquipTarget() + return c:IsReason(REASON_LOST_TARGET) and c:IsReason(REASON_DESTROY) and tc:IsLocation(LOCATION_OVERLAY) end function c90673413.atkfilter(c) return c:IsFaceup() and c:IsType(TYPE_XYZ) diff --git a/script/c90740329.lua b/script/c90740329.lua old mode 100755 new mode 100644 index c076ef56..d37140d8 --- a/script/c90740329.lua +++ b/script/c90740329.lua @@ -26,8 +26,14 @@ function c90740329.activate(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_MUST_BE_ATTACKED) - e1:SetValue(aux.imval1) + e1:SetValue(1) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(e:GetHandler()) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_MUST_ATTACK_MONSTER) + e2:SetTargetRange(0,LOCATION_MZONE) + e2:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e2,tp) end end diff --git a/script/c9074847.lua b/script/c9074847.lua index 204fd27e..da346585 100644 --- a/script/c9074847.lua +++ b/script/c9074847.lua @@ -40,7 +40,7 @@ function c9074847.operation(e,tp,eg,ep,ev,re,r,rp) if g1:GetCount()>0 then local tc=g1:GetFirst() while tc do - Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) tc=g1:GetNext() end end @@ -49,7 +49,7 @@ function c9074847.operation(e,tp,eg,ep,ev,re,r,rp) if g2:GetCount()>0 then local tc=g2:GetFirst() while tc do - Duel.SpecialSummonStep(tc,0,1-tp,1-tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummonStep(tc,0,1-tp,1-tp,false,false,POS_FACEDOWN_DEFENSE) tc=g2:GetNext() end end diff --git a/script/c90764875.lua b/script/c90764875.lua index a45743bd..4843e827 100644 --- a/script/c90764875.lua +++ b/script/c90764875.lua @@ -29,7 +29,10 @@ function c90764875.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c90764875.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c90790253.lua b/script/c90790253.lua index c8df0a36..5ed0b6d6 100644 --- a/script/c90790253.lua +++ b/script/c90790253.lua @@ -23,6 +23,6 @@ end function c90790253.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end diff --git a/script/c90809975.lua b/script/c90809975.lua new file mode 100644 index 00000000..ae12e321 --- /dev/null +++ b/script/c90809975.lua @@ -0,0 +1,123 @@ +--餅カエル +function c90809975.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_AQUA),2,2) + c:EnableReviveLimit() + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(90809975,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD) + e1:SetCode(EVENT_PHASE+PHASE_STANDBY) + e1:SetCountLimit(1) + e1:SetRange(LOCATION_MZONE) + e1:SetCost(c90809975.spcost) + e1:SetTarget(c90809975.sptg) + e1:SetOperation(c90809975.spop) + c:RegisterEffect(e1) + --negate + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(90809975,1)) + e2:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e2:SetCode(EVENT_CHAINING) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetCondition(c90809975.negcon) + e2:SetCost(c90809975.negcost) + e2:SetTarget(c90809975.negtg) + e2:SetOperation(c90809975.negop) + c:RegisterEffect(e2) + --to hand + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(90809975,2)) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetTarget(c90809975.thtg) + e3:SetOperation(c90809975.thop) + c:RegisterEffect(e3) +end +function c90809975.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c90809975.spfilter(c,e,tp) + return c:IsSetCard(0x12) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c90809975.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c90809975.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c90809975.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c90809975.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end +function c90809975.negcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if ep==tp or c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end + return (re:IsActiveType(TYPE_MONSTER) or re:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(ev) +end +function c90809975.cfilter(c) + return c:IsRace(RACE_AQUA) and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsAbleToGraveAsCost() +end +function c90809975.negcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c90809975.cfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c90809975.cfilter,tp,LOCATION_MZONE+LOCATION_HAND,0,1,1,nil) + Duel.SendtoGrave(g,REASON_COST) +end +function c90809975.negtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + local cat=e:GetCategory() + if bit.band(re:GetHandler():GetOriginalType(),TYPE_MONSTER)~=0 then + e:SetCategory(bit.bor(cat,CATEGORY_SPECIAL_SUMMON)) + else + e:SetCategory(bit.band(cat,bit.bnot(CATEGORY_SPECIAL_SUMMON))) + end + end +end +function c90809975.negop(e,tp,eg,ep,ev,re,r,rp) + local rc=re:GetHandler() + if not Duel.NegateActivation(ev) then return end + if rc:IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)~=0 and not rc:IsLocation(LOCATION_HAND+LOCATION_DECK) then + if rc:IsType(TYPE_MONSTER) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and rc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) + and Duel.SelectYesNo(tp,aux.Stringid(90809975,3)) then + Duel.BreakEffect() + Duel.SpecialSummon(rc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) + Duel.ConfirmCards(1-tp,rc) + elseif (rc:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0) + and rc:IsSSetable() and Duel.SelectYesNo(tp,aux.Stringid(90809975,4)) then + Duel.BreakEffect() + Duel.SSet(tp,rc) + Duel.ConfirmCards(1-tp,rc) + end + end +end +function c90809975.thfilter(c) + return c:IsAttribute(ATTRIBUTE_WATER) and c:IsAbleToHand() +end +function c90809975.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c90809975.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c90809975.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c90809975.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c90809975.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c90846359.lua b/script/c90846359.lua old mode 100755 new mode 100644 diff --git a/script/c90873992.lua b/script/c90873992.lua index d13e964b..558e43b4 100644 --- a/script/c90873992.lua +++ b/script/c90873992.lua @@ -10,7 +10,7 @@ function c90873992.initial_effect(c) c:RegisterEffect(e1) end function c90873992.filter(c) - return c:IsRace(RACE_WARRIOR) and c:IsFaceup() and c:IsDestructable() + return c:IsRace(RACE_WARRIOR) and c:IsFaceup() end function c90873992.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c90873992.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c90884403.lua b/script/c90884403.lua new file mode 100644 index 00000000..d5637fdc --- /dev/null +++ b/script/c90884403.lua @@ -0,0 +1,112 @@ +--究極幻神 アルティミトル・ビシバールキン +function c90884403.initial_effect(c) + c:EnableReviveLimit() + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e1) + --special summon rule + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_EXTRA) + e2:SetCondition(c90884403.sprcon) + e2:SetOperation(c90884403.sprop) + c:RegisterEffect(e2) + --battle indestructable + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetRange(LOCATION_MZONE) + e3:SetValue(1) + c:RegisterEffect(e3) + --atk up + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_SINGLE) + e4:SetCode(EFFECT_UPDATE_ATTACK) + e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e4:SetRange(LOCATION_MZONE) + e4:SetValue(c90884403.atkval) + c:RegisterEffect(e4) + --token + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(90884403,0)) + e5:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) + e5:SetType(EFFECT_TYPE_QUICK_O) + e5:SetCode(EVENT_FREE_CHAIN) + e5:SetRange(LOCATION_MZONE) + e5:SetHintTiming(0,TIMING_MAIN_END) + e5:SetCountLimit(1) + e5:SetCondition(c90884403.spcon) + e5:SetTarget(c90884403.sptg) + e5:SetOperation(c90884403.spop) + c:RegisterEffect(e5) +end +function c90884403.sprfilter1(c,tp) + local lv=c:GetLevel() + return lv>7 and c:IsFaceup() and c:IsType(TYPE_TUNER) and c:IsAbleToGraveAsCost() + and Duel.IsExistingMatchingCard(c90884403.sprfilter2,tp,LOCATION_MZONE,0,1,nil,lv) +end +function c90884403.sprfilter2(c,lv) + return c:IsFaceup() and c:GetLevel()==lv and not c:IsType(TYPE_TUNER) and c:IsAbleToGraveAsCost() +end +function c90884403.sprcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 + and Duel.IsExistingMatchingCard(c90884403.sprfilter1,tp,LOCATION_MZONE,0,1,nil,tp) +end +function c90884403.sprop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g1=Duel.SelectMatchingCard(tp,c90884403.sprfilter1,tp,LOCATION_MZONE,0,1,1,nil,tp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g2=Duel.SelectMatchingCard(tp,c90884403.sprfilter2,tp,LOCATION_MZONE,0,1,1,nil,g1:GetFirst():GetLevel()) + g1:Merge(g2) + Duel.SendtoGrave(g1,REASON_COST) +end +function c90884403.atkval(e,c) + return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,LOCATION_MZONE)*1000 +end +function c90884403.spcon(e,tp,eg,ep,ev,re,r,rp) + local ph=Duel.GetCurrentPhase() + return ph==PHASE_MAIN1 or ph==PHASE_MAIN2 +end +function c90884403.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE) + local ft2=Duel.GetLocationCount(1-tp,LOCATION_MZONE) + local ct=math.min(ft1,ft2) + if chk==0 then return ct>0 and not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.IsPlayerCanSpecialSummonMonster(tp,90884404,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK,POS_FACEUP_DEFENSE) + and Duel.IsPlayerCanSpecialSummonMonster(tp,90884404,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK,POS_FACEUP_DEFENSE,1-tp) end + Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,ct*2,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,ct*2,0,0) +end +function c90884403.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE) + local ft2=Duel.GetLocationCount(1-tp,LOCATION_MZONE) + local ct=math.min(ft1,ft2) + if ct>0 and not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.IsPlayerCanSpecialSummonMonster(tp,90884404,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK,POS_FACEUP_DEFENSE) + and Duel.IsPlayerCanSpecialSummonMonster(tp,90884404,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK,POS_FACEUP_DEFENSE,1-tp) then + for i=1,ct do + local token=Duel.CreateToken(tp,90884404) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + token=Duel.CreateToken(tp,90884404) + Duel.SpecialSummonStep(token,0,tp,1-tp,false,false,POS_FACEUP_DEFENSE) + end + Duel.SpecialSummonComplete() + end + if c:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + end +end diff --git a/script/c90885155.lua b/script/c90885155.lua index 7d81b13b..64c9b2d2 100644 --- a/script/c90885155.lua +++ b/script/c90885155.lua @@ -6,10 +6,9 @@ function c90885155.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetRange(LOCATION_PZONE) e2:SetTargetRange(1,0) - e2:SetCondition(aux.nfbdncon) e2:SetTarget(c90885155.splimit) c:RegisterEffect(e2) --atk down @@ -127,12 +126,12 @@ function c90885155.effop(e,tp,eg,ep,ev,re,r,rp) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_EXTRA_ATTACK) e1:SetValue(1) - e1:SetReset(RESET_EVENT+0x1fc0000) + e1:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_PIERCE) - e2:SetReset(RESET_EVENT+0x1fc0000) + e2:SetReset(RESET_EVENT+0x1fe0000) c:RegisterEffect(e2) end function c90885155.valcheck(e,c) diff --git a/script/c90925163.lua b/script/c90925163.lua index 4ff66ca6..b8d1350c 100644 --- a/script/c90925163.lua +++ b/script/c90925163.lua @@ -15,7 +15,7 @@ function c90925163.initial_effect(c) c:RegisterEffect(e1) end function c90925163.condition(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() and e:GetHandler():IsDefencePos() + return tp==Duel.GetTurnPlayer() and e:GetHandler():IsDefensePos() end function c90925163.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -26,7 +26,7 @@ end function c90925163.operation(e,tp,eg,ep,ev,re,r,rp) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_DEFENCE) then + if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_DEFENSE) then Duel.Recover(p,d,REASON_EFFECT) end end \ No newline at end of file diff --git a/script/c90928333.lua b/script/c90928333.lua index 54a9b512..000a8830 100644 --- a/script/c90928333.lua +++ b/script/c90928333.lua @@ -25,6 +25,5 @@ function c90928333.activate(e,tp,eg,ep,ev,re,r,rp) local sg=g:Filter(Card.IsRelateToEffect,nil,e) if sg:GetCount()>0 then Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sg) end end diff --git a/script/c90957527.lua b/script/c90957527.lua index ec550989..2336a735 100644 --- a/script/c90957527.lua +++ b/script/c90957527.lua @@ -47,11 +47,11 @@ function c90957527.splimit(e,se,sp,st) return e:GetHandler():GetLocation()~=LOCATION_EXTRA end function c90957527.spfilter1(c,tp) - return c:IsCode(79580323) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true) + return c:IsFusionCode(79580323) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true) and Duel.IsExistingMatchingCard(c90957527.spfilter2,tp,LOCATION_MZONE,0,1,c) end function c90957527.spfilter2(c) - return c:IsSetCard(0x19) and c:IsCanBeFusionMaterial() and c:IsAbleToDeckOrExtraAsCost() + return c:IsFusionSetCard(0x19) and c:IsCanBeFusionMaterial() and c:IsAbleToDeckOrExtraAsCost() end function c90957527.sprcon(e,c) if c==nil then return true end @@ -77,10 +77,10 @@ function c90957527.damcon(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() if c==a then - e:SetLabel(d:GetDefence()) + e:SetLabel(d:GetDefense()) return c:IsRelateToBattle() and d:GetLocation()==LOCATION_GRAVE and d:IsType(TYPE_MONSTER) else - e:SetLabel(a:GetDefence()) + e:SetLabel(a:GetDefense()) return c:IsRelateToBattle() and a:GetLocation()==LOCATION_GRAVE and a:IsType(TYPE_MONSTER) end end @@ -107,11 +107,13 @@ function c90957527.filter(c,e,tp) return not c:IsCode(79580323) and c:IsSetCard(0x19) and c:IsCanBeSpecialSummoned(e,121,tp,false,false) end function c90957527.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c90957527.filter,tp,LOCATION_DECK,0,2,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c90957527.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetMatchingGroup(c90957527.filter,tp,LOCATION_DECK,0,nil,e,tp) if g:GetCount()>=2 then diff --git a/script/c90960358.lua b/script/c90960358.lua old mode 100755 new mode 100644 index 0f6d6c37..f126f62c --- a/script/c90960358.lua +++ b/script/c90960358.lua @@ -93,9 +93,5 @@ function c90960358.atklimit(e,tp,eg,ep,ev,re,r,rp) e:GetHandler():RegisterEffect(e1) end function c90960358.val(e,c) - return Duel.GetMatchingGroupCount(c90960358.filter,c:GetControler(),LOCATION_GRAVE,LOCATION_GRAVE,nil)*300 -end -function c90960358.filter(c) - local code=c:GetCode() - return code==46986414 or code==30208479 + return Duel.GetMatchingGroupCount(Card.IsCode,c:GetControler(),LOCATION_GRAVE,LOCATION_GRAVE,nil,46986414,30208479)*300 end diff --git a/script/c9106362.lua b/script/c9106362.lua new file mode 100644 index 00000000..a6a39fcf --- /dev/null +++ b/script/c9106362.lua @@ -0,0 +1,48 @@ +--EMドラネコ +function c9106362.initial_effect(c) + aux.EnablePendulumAttribute(c) + --Negate damage (direct) + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(9106362,0)) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetRange(LOCATION_PZONE) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetCountLimit(1) + e1:SetCondition(c9106362.dmcon1) + e1:SetOperation(c9106362.dmop1) + c:RegisterEffect(e1) + --Negate damage (monster) + local e2=e1:Clone() + e2:SetRange(LOCATION_MZONE) + e2:SetCondition(c9106362.dmcon2) + e2:SetOperation(c9106362.dmop2) + c:RegisterEffect(e2) +end +function c9106362.dmcon1(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil +end +function c9106362.dmop1(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) + e1:SetOperation(c9106362.damop) + e1:SetReset(RESET_PHASE+PHASE_DAMAGE) + Duel.RegisterEffect(e1,tp) +end +function c9106362.damop(e,tp,eg,ep,ev,re,r,rp) + Duel.ChangeBattleDamage(tp,0) +end +function c9106362.dmcon2(e,tp,eg,ep,ev,re,r,rp) + local a=Duel.GetAttacker() + local d=Duel.GetAttackTarget() + return d and a:GetControler()~=d:GetControler() +end +function c9106362.dmop2(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_PRE_BATTLE_DAMAGE) + e1:SetOperation(c9106362.damop) + e1:SetReset(RESET_PHASE+PHASE_DAMAGE) + Duel.RegisterEffect(e1,tp) +end diff --git a/script/c91070115.lua b/script/c91070115.lua index a07d8d6d..d6a42341 100644 --- a/script/c91070115.lua +++ b/script/c91070115.lua @@ -14,18 +14,24 @@ function c91070115.initial_effect(c) c:RegisterEffect(e1) --atk def local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) e2:SetRange(LOCATION_MZONE) - e2:SetOperation(c91070115.adval) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetCondition(c91070115.adcon) + e2:SetTarget(c91070115.adtg) + e2:SetValue(c91070115.adval) c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e3) end function c91070115.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,0,1,0xe,1,REASON_COST) end - Duel.RemoveCounter(tp,0,1,0xe,1,REASON_COST) + if chk==0 then return Duel.IsCanRemoveCounter(tp,0,1,0x100e,1,REASON_COST) end + Duel.RemoveCounter(tp,0,1,0x100e,1,REASON_COST) end function c91070115.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c91070115.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c91070115.filter(chkc) end @@ -40,22 +46,13 @@ function c91070115.desop(e,tp,eg,ep,ev,re,r,rp) Duel.Destroy(tc,REASON_EFFECT) end end -function c91070115.addown(c,e) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(c:GetCounter(0xe)*-300) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) +function c91070115.adcon(e) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and Duel.GetAttackTarget() +end +function c91070115.adtg(e,c) + local bc=c:GetBattleTarget() + return bc and c:GetCounter(0x100e)~=0 and bc:IsSetCard(0xc) end -function c91070115.adval(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if not d then return end - if a:GetCounter(0xe)>0 and d:IsSetCard(0xc) then c91070115.addown(a,e) end - if d:GetCounter(0xe)>0 and a:IsSetCard(0xc) then c91070115.addown(d,e) end +function c91070115.adval(e,c) + return c:GetCounter(0x100e)*-300 end diff --git a/script/c91078716.lua b/script/c91078716.lua old mode 100755 new mode 100644 diff --git a/script/c9109991.lua b/script/c9109991.lua index 96994f27..9a63f35e 100644 --- a/script/c9109991.lua +++ b/script/c9109991.lua @@ -33,6 +33,6 @@ end function c9109991.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) and tc:IsAttackPos() then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE) end end diff --git a/script/c91107093.lua b/script/c91107093.lua index 97b43764..2c104777 100644 --- a/script/c91107093.lua +++ b/script/c91107093.lua @@ -24,7 +24,7 @@ function c91107093.initial_effect(c) c:RegisterEffect(e3) end function c91107093.infilter(e,c) - return c:IsDefencePos() and c:IsLevelBelow(3) and c:IsRace(RACE_THUNDER) + return c:IsDefensePos() and c:IsLevelBelow(3) and c:IsRace(RACE_THUNDER) end function c91107093.filter(c) return c:IsFaceup() and c:IsAttackPos() diff --git a/script/c91123920.lua b/script/c91123920.lua index 39a3d839..15914cf7 100644 --- a/script/c91123920.lua +++ b/script/c91123920.lua @@ -17,7 +17,7 @@ function c91123920.initial_effect(c) e2:SetValue(c91123920.val) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end function c91123920.efilter(e,te) diff --git a/script/c91133740.lua b/script/c91133740.lua index f747717c..698e5573 100644 --- a/script/c91133740.lua +++ b/script/c91133740.lua @@ -12,7 +12,7 @@ function c91133740.initial_effect(c) c:RegisterEffect(e1) end function c91133740.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c91133740.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c91133740.filter(chkc) end diff --git a/script/c91148083.lua b/script/c91148083.lua index 2c1b1c64..10066f0a 100644 --- a/script/c91148083.lua +++ b/script/c91148083.lua @@ -21,7 +21,7 @@ function c91148083.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c91148083.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsFaceup() and tc:IsRelateToEffect(e) and Duel.GetControl(tc,1-tp,0,0) then + if tc:IsFaceup() and tc:IsRelateToEffect(e) and Duel.GetControl(tc,1-tp)~=0 then tc:RegisterFlagEffect(91148083,RESET_EVENT+0x1fe0000,0,0) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) diff --git a/script/c91188343.lua b/script/c91188343.lua index a4257961..37a77bb9 100644 --- a/script/c91188343.lua +++ b/script/c91188343.lua @@ -11,10 +11,10 @@ function c91188343.initial_effect(c) c:RegisterEffect(e1) end function c91188343.filter1(c) - return c:IsSetCard(0x44) and c:GetCode()~=91188343 and c:IsAbleToHand() + return c:IsSetCard(0x44) and c:GetCode()~=91188343 and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c91188343.filter2(c) - return ((c:IsSetCard(0x44) and c:GetCode()~=91188343) or c:IsCode(55794644)) and c:IsAbleToHand() + return ((c:IsSetCard(0x44) and c:GetCode()~=91188343 and c:IsType(TYPE_MONSTER)) or c:IsCode(55794644)) and c:IsAbleToHand() end function c91188343.tg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then diff --git a/script/c91231901.lua b/script/c91231901.lua new file mode 100644 index 00000000..ff151da2 --- /dev/null +++ b/script/c91231901.lua @@ -0,0 +1,67 @@ +--「A」細胞組み換え装置 +function c91231901.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_COUNTER) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c91231901.target) + e1:SetOperation(c91231901.activate) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(91231901,0)) + e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCondition(aux.exccon) + e2:SetCost(c91231901.thcost) + e2:SetTarget(c91231901.thtg) + e2:SetOperation(c91231901.thop) + c:RegisterEffect(e2) +end +function c91231901.filter(c) + return c:GetLevel()>0 and c:IsSetCard(0xc) and c:IsAbleToGrave() +end +function c91231901.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end + if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) + and Duel.IsExistingMatchingCard(c91231901.filter,tp,LOCATION_DECK,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,g,1,0x100e,1) +end +function c91231901.activate(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c91231901.filter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + local sg=g:GetFirst() + if Duel.SendtoGrave(g,REASON_EFFECT)~=0 and sg:IsLocation(LOCATION_GRAVE) then + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + tc:AddCounter(0x100e,sg:GetLevel()) + end + end + end +end +function c91231901.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c91231901.thfilter(c) + return c:IsSetCard(0xc) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c91231901.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c91231901.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c91231901.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c91231901.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c9126351.lua b/script/c9126351.lua old mode 100755 new mode 100644 diff --git a/script/c91349449.lua b/script/c91349449.lua index fe18e6e3..3847e885 100644 --- a/script/c91349449.lua +++ b/script/c91349449.lua @@ -28,11 +28,14 @@ function c91349449.initial_effect(c) e3:SetOperation(c91349449.rmop) c:RegisterEffect(e3) end +function c91349449.spfilter(c) + return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_LIGHT) +end function c91349449.spcon(e,c) if c==nil then return true end local tp=c:GetControler() return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(Card.IsAttribute,tp,LOCATION_REMOVED,0,3,nil,ATTRIBUTE_LIGHT) + and Duel.IsExistingMatchingCard(c91349449.spfilter,tp,LOCATION_REMOVED,0,3,nil) end function c91349449.rmcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 end diff --git a/script/c91420254.lua b/script/c91420254.lua index 14d7c644..3ba88d5b 100644 --- a/script/c91420254.lua +++ b/script/c91420254.lua @@ -11,7 +11,7 @@ function c91420254.initial_effect(c) e2:SetCondition(c91420254.sccon) e2:SetOperation(c91420254.scop) c:RegisterEffect(e2) - --to defence + --to defense local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(91420254,1)) e3:SetCategory(CATEGORY_POSITION) @@ -65,7 +65,7 @@ end function c91420254.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsPosition(POS_FACEUP_ATTACK) and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c91420254.bttg(e,c) diff --git a/script/c91438994.lua b/script/c91438994.lua index 5e8e1e11..c69b8b9a 100644 --- a/script/c91438994.lua +++ b/script/c91438994.lua @@ -1,5 +1,6 @@ --A・ジェネクス・ベルフレイム function c91438994.initial_effect(c) + c:EnableCounterPermit(0xa) --add counter local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) @@ -44,7 +45,7 @@ function c91438994.filter1(c,tp) end function c91438994.addc1(e,tp,eg,ep,ev,re,r,rp) if eg:IsExists(c91438994.filter1,1,nil,tp) then - e:GetHandler():AddCounter(0xa+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0xa,1) end end function c91438994.filter2(c,tp) @@ -52,7 +53,7 @@ function c91438994.filter2(c,tp) end function c91438994.addc2(e,tp,eg,ep,ev,re,r,rp) if eg:IsExists(c91438994.filter2,1,nil,tp) then - e:GetHandler():AddCounter(0xa+COUNTER_NEED_ENABLE,2) + e:GetHandler():AddCounter(0xa,2) end end function c91438994.attackup(e,c) diff --git a/script/c91449532.lua b/script/c91449532.lua new file mode 100644 index 00000000..04e7d317 --- /dev/null +++ b/script/c91449532.lua @@ -0,0 +1,61 @@ +--EMオールカバー・ヒッポ +function c91449532.initial_effect(c) + --Special Summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(91449532,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetTarget(c91449532.sptg) + e1:SetOperation(c91449532.spop) + c:RegisterEffect(e1) + --Change position + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(91449532,1)) + e2:SetCategory(CATEGORY_POSITION) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_MZONE) + e2:SetCountLimit(1) + e2:SetTarget(c91449532.postg) + e2:SetOperation(c91449532.posop) + c:RegisterEffect(e2) +end +function c91449532.spfilter(c,e,tp) + return c:IsSetCard(0x9f) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c91449532.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c91449532.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c91449532.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c91449532.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp) + local tc=g:GetFirst() + if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DISABLE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e2) + Duel.SpecialSummonComplete() + end +end +function c91449532.postg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAttackPos,tp,LOCATION_MZONE,0,1,nil) end + local g=Duel.GetMatchingGroup(Card.IsAttackPos,tp,LOCATION_MZONE,0,nil) + Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) +end +function c91449532.posop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(Card.IsAttackPos,tp,LOCATION_MZONE,0,nil) + if g:GetCount()>0 then + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) + end +end diff --git a/script/c9145181.lua b/script/c9145181.lua index b1d0ca72..51cafbd8 100644 --- a/script/c9145181.lua +++ b/script/c9145181.lua @@ -12,7 +12,7 @@ function c9145181.initial_effect(c) c:RegisterEffect(e1) end function c9145181.filter(c) - return c:IsFaceup() and c:IsType(TYPE_RITUAL) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_RITUAL) end function c9145181.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c9145181.filter(chkc) end diff --git a/script/c91499077.lua b/script/c91499077.lua index e128112b..cbb1e695 100644 --- a/script/c91499077.lua +++ b/script/c91499077.lua @@ -59,7 +59,7 @@ function c91499077.cbcon(e,tp,eg,ep,ev,re,r,rp) end function c91499077.cbop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsFaceup() and c:IsRelateToEffect(e) and Duel.ChangePosition(c,POS_FACEUP_DEFENCE)~=0 then + if c:IsFaceup() and c:IsRelateToEffect(e) and Duel.ChangePosition(c,POS_FACEUP_DEFENSE)~=0 then local at=Duel.GetAttacker() if at:IsAttackable() and not at:IsImmuneToEffect(e) and not c:IsImmuneToEffect(e) then Duel.CalculateDamage(at,c) diff --git a/script/c91501248.lua b/script/c91501248.lua old mode 100755 new mode 100644 index dad7d78a..fb3dbc81 --- a/script/c91501248.lua +++ b/script/c91501248.lua @@ -1,88 +1,88 @@ ---禁忌の壺 -function c91501248.initial_effect(c) - --flip - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) - e1:SetProperty(EFFECT_FLAG_DELAY) - e1:SetCountLimit(1,91501248) - e1:SetTarget(c91501248.target) - e1:SetOperation(c91501248.operation) - c:RegisterEffect(e1) -end -function c91501248.thfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c91501248.target(e,tp,eg,ep,ev,re,r,rp,chk) - local b1=Duel.IsPlayerCanDraw(tp,2) - local b2=Duel.IsExistingMatchingCard(c91501248.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) - local b3=Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) - local b4=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_HAND,1,nil) - if chk==0 then return b1 or b2 or b3 or b4 end - local off=1 - local ops={} - local opval={} - if b1 then - ops[off]=aux.Stringid(91501248,0) - opval[off-1]=1 - off=off+1 - end - if b2 then - ops[off]=aux.Stringid(91501248,1) - opval[off-1]=2 - off=off+1 - end - if b3 then - ops[off]=aux.Stringid(91501248,2) - opval[off-1]=3 - off=off+1 - end - if b4 then - ops[off]=aux.Stringid(91501248,3) - opval[off-1]=4 - off=off+1 - end - local op=Duel.SelectOption(tp,table.unpack(ops)) - local sel=opval[op] - e:SetLabel(sel) - if sel==1 then - e:SetCategory(CATEGORY_DRAW) - Duel.SetTargetPlayer(tp) - Duel.SetTargetParam(2) - Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) - elseif sel==2 then - e:SetCategory(CATEGORY_TOHAND) - local g=Duel.GetMatchingGroup(c91501248.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) - elseif sel==3 then - e:SetCategory(CATEGORY_DESTROY) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) - else - e:SetCategory(CATEGORY_TODECK) - Duel.SetTargetPlayer(tp) - Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,0,1-tp,LOCATION_HAND) - end -end -function c91501248.operation(e,tp,eg,ep,ev,re,r,rp) - local sel=e:GetLabel() - if sel==1 then - local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) - Duel.Draw(p,d,REASON_EFFECT) - elseif sel==2 then - local g=Duel.GetMatchingGroup(c91501248.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) - Duel.SendtoHand(g,nil,REASON_EFFECT) - elseif sel==3 then - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) - else - local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) - local g=Duel.GetFieldGroup(p,0,LOCATION_HAND) - if g:GetCount()>0 then - Duel.ConfirmCards(p,g) - Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK) - local sg=g:FilterSelect(p,Card.IsAbleToDeck,1,1,nil) - Duel.SendtoDeck(sg,nil,2,REASON_EFFECT) - Duel.ShuffleHand(1-p) - end - end -end +--禁忌の壺 +function c91501248.initial_effect(c) + --flip + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCountLimit(1,91501248) + e1:SetTarget(c91501248.target) + e1:SetOperation(c91501248.operation) + c:RegisterEffect(e1) +end +function c91501248.thfilter(c) + return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() +end +function c91501248.target(e,tp,eg,ep,ev,re,r,rp,chk) + local b1=Duel.IsPlayerCanDraw(tp,2) + local b2=Duel.IsExistingMatchingCard(c91501248.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) + local b3=Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) + local b4=Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_HAND,1,nil) + if chk==0 then return b1 or b2 or b3 or b4 end + local off=1 + local ops={} + local opval={} + if b1 then + ops[off]=aux.Stringid(91501248,0) + opval[off-1]=1 + off=off+1 + end + if b2 then + ops[off]=aux.Stringid(91501248,1) + opval[off-1]=2 + off=off+1 + end + if b3 then + ops[off]=aux.Stringid(91501248,2) + opval[off-1]=3 + off=off+1 + end + if b4 then + ops[off]=aux.Stringid(91501248,3) + opval[off-1]=4 + off=off+1 + end + local op=Duel.SelectOption(tp,table.unpack(ops)) + local sel=opval[op] + e:SetLabel(sel) + if sel==1 then + e:SetCategory(CATEGORY_DRAW) + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(2) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2) + elseif sel==2 then + e:SetCategory(CATEGORY_TOHAND) + local g=Duel.GetMatchingGroup(c91501248.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,g:GetCount(),0,0) + elseif sel==3 then + e:SetCategory(CATEGORY_DESTROY) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) + else + e:SetCategory(CATEGORY_TODECK) + Duel.SetTargetPlayer(tp) + Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,0,1-tp,LOCATION_HAND) + end +end +function c91501248.operation(e,tp,eg,ep,ev,re,r,rp) + local sel=e:GetLabel() + if sel==1 then + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + Duel.Draw(p,d,REASON_EFFECT) + elseif sel==2 then + local g=Duel.GetMatchingGroup(c91501248.thfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + Duel.SendtoHand(g,nil,REASON_EFFECT) + elseif sel==3 then + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.Destroy(g,REASON_EFFECT) + else + local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) + local g=Duel.GetFieldGroup(p,0,LOCATION_HAND) + if g:GetCount()>0 then + Duel.ConfirmCards(p,g) + Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK) + local sg=g:FilterSelect(p,Card.IsAbleToDeck,1,1,nil) + Duel.SendtoDeck(sg,nil,2,REASON_EFFECT) + Duel.ShuffleHand(1-p) + end + end +end diff --git a/script/c91559748.lua b/script/c91559748.lua index 8b7ab219..e4e8c2e7 100644 --- a/script/c91559748.lua +++ b/script/c91559748.lua @@ -34,6 +34,6 @@ end function c91559748.cpop(e,tp,eg,ep,ev,re,r,rp) local g=e:GetLabelObject() if g:IsRelateToBattle() and g:IsAttackPos() then - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) end end diff --git a/script/c9156135.lua b/script/c9156135.lua index 5b7ad2ef..6257ceac 100644 --- a/script/c9156135.lua +++ b/script/c9156135.lua @@ -28,19 +28,19 @@ function c9156135.initial_effect(c) c:RegisterEffect(e4) end function c9156135.filter(c) - return c:IsFaceup() and c:IsCanAddCounter(0x3001,1) + return c:IsFaceup() and c:IsCanAddCounter(0x1,1) end function c9156135.addct(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c9156135.filter(chkc) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) Duel.SelectTarget(tp,c9156135.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x3001) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x1) end function c9156135.addc(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0x3001,1) + tc:AddCounter(0x1,1) end end function c9156135.condition(e,tp,eg,ep,ev,re,r,rp) @@ -59,7 +59,7 @@ function c9156135.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c9156135.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,g) end end diff --git a/script/c91584698.lua b/script/c91584698.lua index 187fadf7..a04b3559 100644 --- a/script/c91584698.lua +++ b/script/c91584698.lua @@ -89,7 +89,7 @@ function c91584698.thfilter(c) end function c91584698.thtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c91584698.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,0,1,0,LOCATION_DECK+LOCATION_GRAVE) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) end function c91584698.thop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) diff --git a/script/c91595718.lua b/script/c91595718.lua index 652a9513..00c0622c 100644 --- a/script/c91595718.lua +++ b/script/c91595718.lua @@ -18,7 +18,7 @@ function c91595718.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(300) c:RegisterEffect(e3) --equip limit diff --git a/script/c91597389.lua b/script/c91597389.lua index be0adeff..07ba5165 100644 --- a/script/c91597389.lua +++ b/script/c91597389.lua @@ -22,6 +22,7 @@ function c91597389.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) and Duel.IsExistingTarget(c91597389.filter,tp,LOCATION_GRAVE,0,1,nil,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectTarget(tp,c91597389.filter,tp,LOCATION_GRAVE,0,1,1,nil,tp) + Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) end function c91597389.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c91607976.lua b/script/c91607976.lua index 383b2acd..d6c1d126 100644 --- a/script/c91607976.lua +++ b/script/c91607976.lua @@ -1,5 +1,6 @@ --D・クロックン function c91607976.initial_effect(c) + c:EnableCounterPermit(0x8) --atk local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) @@ -39,15 +40,15 @@ function c91607976.vala(e,c) return c:GetCounter(0x8)*500 end function c91607976.cond1(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefencePos() + return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefensePos() end function c91607976.opd1(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x8+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x8,1) end end function c91607976.cond2(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefencePos() + return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefensePos() end function c91607976.costd2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsReleasable() end diff --git a/script/c9161357.lua b/script/c9161357.lua index c559e9f7..ec8878fb 100644 --- a/script/c9161357.lua +++ b/script/c9161357.lua @@ -30,7 +30,7 @@ function c9161357.eqcon(e,tp,eg,ep,ev,re,r,rp) return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_XYZ)==SUMMON_TYPE_XYZ end function c9161357.filter(c) - return c:IsSetCard(0x48) and c:IsType(TYPE_MONSTER) + return c:IsSetCard(0x48) and c:IsType(TYPE_MONSTER) and not c:IsForbidden() end function c9161357.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c9161357.filter(chkc) end diff --git a/script/c91650245.lua b/script/c91650245.lua index 3a6edef2..15aadfc6 100644 --- a/script/c91650245.lua +++ b/script/c91650245.lua @@ -13,7 +13,7 @@ function c91650245.filter(c,e,tp) return c:IsAbleToDeck() and Duel.IsExistingMatchingCard(c91650245.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,c,e,tp) end function c91650245.spfilter(c,e,tp) - return c:IsSetCard(0x90) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x90) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c91650245.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -32,7 +32,7 @@ function c91650245.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local sg=Duel.SelectMatchingCard(tp,c91650245.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,tc,e,tp) local sc=sg:GetFirst() - if sc then + if sc and not sc:IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) diff --git a/script/c91677585.lua b/script/c91677585.lua index ec7a4f9a..3d3d560a 100644 --- a/script/c91677585.lua +++ b/script/c91677585.lua @@ -12,7 +12,7 @@ function c91677585.initial_effect(c) c:RegisterEffect(e1) end function c91677585.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_BATTLE + return Duel.GetTurnPlayer()==tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c91677585.filter(c) return c:IsFaceup() and c:IsType(TYPE_XYZ) diff --git a/script/c91691605.lua b/script/c91691605.lua new file mode 100644 index 00000000..d2e6d938 --- /dev/null +++ b/script/c91691605.lua @@ -0,0 +1,39 @@ +--D－HERO ドリルガイ +function c91691605.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(91691605,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetCountLimit(1,91691605) + e1:SetTarget(c91691605.target) + e1:SetOperation(c91691605.operation) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --pierce + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_PIERCE) + c:RegisterEffect(e3) +end +function c91691605.filter(c,e,tp,atk) + return c:IsSetCard(0xc008) and c:IsAttackBelow(atk) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c91691605.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c91691605.filter,tp,LOCATION_HAND,0,1,nil,e,tp,e:GetHandler():GetAttack()) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c91691605.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + local atk=e:GetHandler():GetAttack() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c91691605.filter,tp,LOCATION_HAND,0,1,1,nil,e,tp,atk) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c91697229.lua b/script/c91697229.lua index baa375c2..f0e39c1c 100644 --- a/script/c91697229.lua +++ b/script/c91697229.lua @@ -8,7 +8,7 @@ function c91697229.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_PROC) e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) e1:SetRange(LOCATION_HAND) - e1:SetTargetRange(POS_FACEUP_DEFENCE,1) + e1:SetTargetRange(POS_FACEUP_DEFENSE,1) e1:SetCondition(c91697229.spcon) c:RegisterEffect(e1) --self destroy @@ -24,7 +24,7 @@ function c91697229.initial_effect(c) e5:SetDescription(aux.Stringid(91697229,1)) e5:SetCategory(CATEGORY_POSITION) e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e5:SetCode(EVENT_PHASE_START+PHASE_BATTLE) + e5:SetCode(EVENT_PHASE+PHASE_BATTLE_START) e5:SetRange(LOCATION_MZONE) e5:SetCountLimit(1) e5:SetCondition(c91697229.poscon) @@ -55,11 +55,11 @@ function c91697229.poscon(e,tp,eg,ep,ev,re,r,rp) end function c91697229.postg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDefencePos,tp,LOCATION_MZONE,0,nil) + local g=Duel.GetMatchingGroup(Card.IsDefensePos,tp,LOCATION_MZONE,0,nil) Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) end function c91697229.posop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDefencePos,tp,LOCATION_MZONE,0,nil) + local g=Duel.GetMatchingGroup(Card.IsDefensePos,tp,LOCATION_MZONE,0,nil) if g:GetCount()>0 then Duel.ChangePosition(g,POS_FACEUP_ATTACK) end diff --git a/script/c91718579.lua b/script/c91718579.lua old mode 100755 new mode 100644 index 96a52878..a5a0082b --- a/script/c91718579.lua +++ b/script/c91718579.lua @@ -9,11 +9,15 @@ function c91718579.initial_effect(c) e1:SetCondition(c91718579.tgcon) e1:SetValue(c91718579.atlimit) c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) - e2:SetTargetRange(0,0xff) - e2:SetValue(c91718579.tglimit) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x59)) + e2:SetCondition(c91718579.tgcon) + e2:SetValue(aux.tgoval) c:RegisterEffect(e2) --effect gain local e3=Effect.CreateEffect(c) @@ -32,9 +36,6 @@ end function c91718579.atlimit(e,c) return c:IsFaceup() and c:IsSetCard(0x59) end -function c91718579.tglimit(e,re,c) - return c:IsFaceup() and c:IsSetCard(0x59) and c:IsType(TYPE_MONSTER) -end function c91718579.effcon(e,tp,eg,ep,ev,re,r,rp) local mg=e:GetHandler():GetReasonCard():GetMaterial() return r==REASON_XYZ and mg:IsExists(Card.IsSetCard,mg:GetCount(),nil,0x59) @@ -75,11 +76,11 @@ function c91718579.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c91718579.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsDefencePos() or not tc:IsRelateToEffect(e) then return end - if Duel.ChangePosition(tc,POS_FACEUP_DEFENCE)==0 then return end + if tc:IsDefensePos() or not tc:IsRelateToEffect(e) then return end + if Duel.ChangePosition(tc,POS_FACEUP_DEFENSE)==0 then return end local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_DEFENCE_FINAL) + e1:SetCode(EFFECT_SET_DEFENSE_FINAL) e1:SetReset(RESET_EVENT+0x1fe0000) e1:SetValue(0) tc:RegisterEffect(e1) diff --git a/script/c91812341.lua b/script/c91812341.lua index 5fd278e6..ab919284 100644 --- a/script/c91812341.lua +++ b/script/c91812341.lua @@ -48,7 +48,7 @@ function c91812341.thop(e,tp,eg,ep,ev,re,r,rp) end end function c91812341.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c91812341.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and c91812341.desfilter(chkc) end diff --git a/script/c91814640.lua b/script/c91814640.lua deleted file mode 100644 index ae3bb532..00000000 --- a/script/c91814640.lua +++ /dev/null @@ -1,81 +0,0 @@ ---Pumpking the King of Ghosts -function c91814640.initial_effect(c) - --atk up - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e1:SetTarget(c91814640.target) - e1:SetValue(c91814640.val1) - c:RegisterEffect(e1) - --defup - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_UPDATE_DEFENCE) - e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) - e2:SetTarget(c91814640.target) - e2:SetValue(c91814640.val2) - c:RegisterEffect(e2) - --10% increase each standby - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(91814640,0)) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetCategory(CATEGORY_ATKCHANGE) - e3:SetCode(EVENT_PHASE+PHASE_STANDBY) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetProperty(EFFECT_FLAG_REPEAT) - e3:SetCondition(c91814640.atkcon) - e3:SetOperation(c91814640.atkop) - c:RegisterEffect(e3) - end -function c91814640.target(e,c) -return c:IsRace(RACE_ZOMBIE) and c~=e:GetHandler() -end -function c91814640.val1(e,c) -return c:GetBaseAttack()*0.1 -end -function c91814640.val2(e,c) -return c:GetBaseDefence()*0.1 -end -function c91814640.atkcon(e,tp,eg,ep,ev,re,r,rp) - return tp==Duel.GetTurnPlayer() -end -function c91814640.atkop(e,tp,eg,ep,ev,re,r,rp) -local c=e:GetHandler() -if not c:IsRelateToEffect(e) then return end - for i=0,4 do - local tc=Duel.GetFieldCard(tp,LOCATION_MZONE,i) - if tc and tc:IsRace(RACE_ZOMBIE) and tc:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE) - e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetValue(tc:GetBaseAttack()*0.1) - tc:RegisterEffect(e1,true) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - e2:SetValue(tc:GetBaseDefence()*0.1) - tc:RegisterEffect(e2,true) -end -end - for i=0,4 do - local tc=Duel.GetFieldCard(1-tp,LOCATION_MZONE,i) - if tc and tc:IsRace(RACE_ZOMBIE) and tc:IsFaceup() then - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetValue(tc:GetBaseAttack()*0.1) - tc:RegisterEffect(e2,true) - local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) - e3:SetValue(tc:GetBaseDefence()*0.1) - tc:RegisterEffect(e3,true) - end - end - end \ No newline at end of file diff --git a/script/c91822647.lua b/script/c91822647.lua index 2beaac6d..6d8349f8 100644 --- a/script/c91822647.lua +++ b/script/c91822647.lua @@ -18,7 +18,7 @@ function c91822647.filter1(c) return c:IsSetCard(0x10) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() end function c91822647.filter2(c,e,tp) - return c:IsSetCard(0x10) and c:IsDefenceBelow(1000) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsSetCard(0x10) and c:IsDefenseBelow(1000) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c91822647.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c91831066.lua b/script/c91831066.lua index f1e5d221..834d8b6e 100644 --- a/script/c91831066.lua +++ b/script/c91831066.lua @@ -45,8 +45,8 @@ function c91831066.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE_CAL) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) - e2:SetValue(tc:GetDefence()*2) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) + e2:SetValue(tc:GetDefense()*2) tc:RegisterEffect(e2) end end diff --git a/script/c91842653.lua b/script/c91842653.lua old mode 100755 new mode 100644 diff --git a/script/c91862578.lua b/script/c91862578.lua index f98ed14d..c2f861e0 100644 --- a/script/c91862578.lua +++ b/script/c91862578.lua @@ -10,7 +10,7 @@ function c91862578.initial_effect(c) c:RegisterEffect(e1) --defup local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end function c91862578.val(e,c) diff --git a/script/c91895091.lua b/script/c91895091.lua index 6127d65c..ff7d638a 100644 --- a/script/c91895091.lua +++ b/script/c91895091.lua @@ -75,6 +75,6 @@ end function c91895091.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c91903221.lua b/script/c91903221.lua index eadd8456..bf12166e 100644 --- a/script/c91903221.lua +++ b/script/c91903221.lua @@ -18,7 +18,7 @@ function c91903221.filter1(c) return c:IsRace(RACE_DINOSAUR) and c:IsAbleToDeck() end function c91903221.filter2(c) - return c:IsSetCard(0x304e) and c:IsAbleToHand() + return c:IsSetCard(0x304e) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c91903221.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c91907707.lua b/script/c91907707.lua index 41a1bd1a..bf486300 100644 --- a/script/c91907707.lua +++ b/script/c91907707.lua @@ -6,10 +6,9 @@ function c91907707.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetRange(LOCATION_PZONE) e2:SetTargetRange(1,0) - e2:SetCondition(aux.nfbdncon) e2:SetTarget(c91907707.splimit) c:RegisterEffect(e2) --atk up diff --git a/script/c91985515.lua b/script/c91985515.lua index 7bc3ba30..7d9a68a9 100644 --- a/script/c91985515.lua +++ b/script/c91985515.lua @@ -16,7 +16,7 @@ function c91985515.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c91985515.filter(c) - return c:IsCode(36623431) and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(36623431) and c:IsAbleToHand() end function c91985515.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c91985515.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end @@ -25,7 +25,7 @@ end function c91985515.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c91985515.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end diff --git a/script/c91998119.lua b/script/c91998119.lua index 646ba750..a81d0919 100644 --- a/script/c91998119.lua +++ b/script/c91998119.lua @@ -35,10 +35,10 @@ function c91998119.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA+LOCATION_GRAVE) end function c91998119.spfilter(c,code) - return c:IsCode(code) and c:IsAbleToRemoveAsCost() + return c:IsFusionCode(code) and c:IsAbleToRemoveAsCost() end function c91998119.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-2 then return false end @@ -71,7 +71,13 @@ function c91998119.spop(e,tp,eg,ep,ev,re,r,rp,c) tc=g1:Select(tp,1,1,nil):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) + if tc:IsFusionCode(62651957) then + g1:Remove(Card.IsFusionCode,nil,62651957) + elseif tc:IsFusionCode(65622692) then + g1:Remove(Card.IsFusionCode,nil,65622692) + elseif tc:IsFusionCode(64500000) then + g1:Remove(Card.IsFusionCode,nil,64500000) + end ft=ft+1 end Duel.Remove(g,POS_FACEUP,REASON_COST) @@ -80,14 +86,11 @@ function c91998119.descost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end -function c91998119.filter(c) - return c:IsDestructable() -end function c91998119.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c91998119.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c91998119.filter,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c91998119.filter,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c91998119.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c91998120.lua b/script/c91998120.lua deleted file mode 100644 index 5228ec46..00000000 --- a/script/c91998120.lua +++ /dev/null @@ -1,100 +0,0 @@ ---XYZ－ドラゴン·キャノン -function c91998120.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode3(c,62651957,65622692,64500000,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c91998120.splimit) - c:RegisterEffect(e1) - --special summon rule - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_EXTRA) - e2:SetCondition(c91998120.spcon) - e2:SetOperation(c91998120.spop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(91998120,0)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c91998120.descost) - e3:SetTarget(c91998120.destg) - e3:SetOperation(c91998120.desop) - c:RegisterEffect(e3) -end -c91998120.material_count=3 -c91998120.material={62651957,65622692,64500000} -function c91998120.splimit(e,se,sp,st) - return not e:GetHandler():IsLocation(LOCATION_EXTRA+LOCATION_GRAVE) -end -function c91998120.spfilter(c,code) - return c:IsCode(code) and c:IsAbleToRemoveAsCost() -end -function c91998120.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<-2 then return false end - local g1=Duel.GetMatchingGroup(c91998120.spfilter,tp,LOCATION_ONFIELD,0,nil,62651957) - local g2=Duel.GetMatchingGroup(c91998120.spfilter,tp,LOCATION_ONFIELD,0,nil,65622692) - local g3=Duel.GetMatchingGroup(c91998120.spfilter,tp,LOCATION_ONFIELD,0,nil,64500000) - if g1:GetCount()==0 or g2:GetCount()==0 or g3:GetCount()==0 then return false end - if ft>0 then return true end - local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - local f3=g3:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - if ft==-2 then return f1+f2+f3==3 - elseif ft==-1 then return f1+f2+f3>=2 - else return f1+f2+f3>=1 end -end -function c91998120.spop(e,tp,eg,ep,ev,re,r,rp,c) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local g1=Duel.GetMatchingGroup(c91998120.spfilter,tp,LOCATION_ONFIELD,0,nil,62651957) - local g2=Duel.GetMatchingGroup(c91998120.spfilter,tp,LOCATION_ONFIELD,0,nil,65622692) - local g3=Duel.GetMatchingGroup(c91998120.spfilter,tp,LOCATION_ONFIELD,0,nil,64500000) - g1:Merge(g2) - g1:Merge(g3) - local g=Group.CreateGroup() - local tc=nil - for i=1,3 do - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - if ft<=0 then - tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() - else - tc=g1:Select(tp,1,1,nil):GetFirst() - end - g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 - end - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c91998120.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c91998120.filter(c) - return c:IsDestructable() -end -function c91998120.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c91998120.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c91998120.filter,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c91998120.filter,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c91998120.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c91998121.lua b/script/c91998121.lua deleted file mode 100644 index f87ba82f..00000000 --- a/script/c91998121.lua +++ /dev/null @@ -1,100 +0,0 @@ ---XYZ－ドラゴン·キャノン -function c91998121.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode3(c,62651957,65622692,64500000,true,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(c91998121.splimit) - c:RegisterEffect(e1) - --special summon rule - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e2:SetRange(LOCATION_EXTRA) - e2:SetCondition(c91998121.spcon) - e2:SetOperation(c91998121.spop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(91998121,0)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetRange(LOCATION_MZONE) - e3:SetCost(c91998121.descost) - e3:SetTarget(c91998121.destg) - e3:SetOperation(c91998121.desop) - c:RegisterEffect(e3) -end -c91998121.material_count=3 -c91998121.material={62651957,65622692,64500000} -function c91998121.splimit(e,se,sp,st) - return not e:GetHandler():IsLocation(LOCATION_EXTRA+LOCATION_GRAVE) -end -function c91998121.spfilter(c,code) - return c:IsCode(code) and c:IsAbleToRemoveAsCost() -end -function c91998121.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<-2 then return false end - local g1=Duel.GetMatchingGroup(c91998121.spfilter,tp,LOCATION_ONFIELD,0,nil,62651957) - local g2=Duel.GetMatchingGroup(c91998121.spfilter,tp,LOCATION_ONFIELD,0,nil,65622692) - local g3=Duel.GetMatchingGroup(c91998121.spfilter,tp,LOCATION_ONFIELD,0,nil,64500000) - if g1:GetCount()==0 or g2:GetCount()==0 or g3:GetCount()==0 then return false end - if ft>0 then return true end - local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - local f3=g3:FilterCount(Card.IsLocation,nil,LOCATION_MZONE)>0 and 1 or 0 - if ft==-2 then return f1+f2+f3==3 - elseif ft==-1 then return f1+f2+f3>=2 - else return f1+f2+f3>=1 end -end -function c91998121.spop(e,tp,eg,ep,ev,re,r,rp,c) - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - local g1=Duel.GetMatchingGroup(c91998121.spfilter,tp,LOCATION_ONFIELD,0,nil,62651957) - local g2=Duel.GetMatchingGroup(c91998121.spfilter,tp,LOCATION_ONFIELD,0,nil,65622692) - local g3=Duel.GetMatchingGroup(c91998121.spfilter,tp,LOCATION_ONFIELD,0,nil,64500000) - g1:Merge(g2) - g1:Merge(g3) - local g=Group.CreateGroup() - local tc=nil - for i=1,3 do - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - if ft<=0 then - tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() - else - tc=g1:Select(tp,1,1,nil):GetFirst() - end - g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 - end - Duel.Remove(g,POS_FACEUP,REASON_COST) -end -function c91998121.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c91998121.filter(c) - return c:IsDestructable() -end -function c91998121.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c91998121.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c91998121.filter,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c91998121.filter,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c91998121.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end diff --git a/script/c92001300.lua b/script/c92001300.lua index c7b53fc1..a818c6a1 100644 --- a/script/c92001300.lua +++ b/script/c92001300.lua @@ -1,6 +1,6 @@ --古代の機械城 function c92001300.initial_effect(c) - c:EnableCounterPermit(0x300b) + c:EnableCounterPermit(0xb) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -42,12 +42,12 @@ function c92001300.initial_effect(c) c:RegisterEffect(e5) end function c92001300.addc(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x300b,1) + e:GetHandler():AddCounter(0xb,1) end function c92001300.sumcon(e,c) if c==nil then return e:GetHandler():IsReleasable() end local mi,ma=c:GetTributeRequirement() - return ma>0 and e:GetHandler():GetCounter(0x300b)>=mi and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 + return ma>0 and e:GetHandler():GetCounter(0xb)>=mi and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 end function c92001300.sumop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Release(e:GetHandler(),REASON_COST) diff --git a/script/c92035412.lua b/script/c92035412.lua old mode 100755 new mode 100644 diff --git a/script/c92099232.lua b/script/c92099232.lua index 7d441f47..a64a1879 100644 --- a/script/c92099232.lua +++ b/script/c92099232.lua @@ -20,7 +20,8 @@ function c92099232.activate(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,92099232,0,0x11,0,0,2,RACE_FIEND,ATTRIBUTE_EARTH) then return end - c:AddTrapMonsterAttribute(TYPE_NORMAL+TYPE_TUNER,ATTRIBUTE_EARTH,RACE_FIEND,2,0,0) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - c:TrapMonsterBlock() + c:AddMonsterAttribute(TYPE_NORMAL+TYPE_TUNER+TYPE_TRAP) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() + Duel.SpecialSummonComplete() end diff --git a/script/c92170894.lua b/script/c92170894.lua new file mode 100644 index 00000000..9f835757 --- /dev/null +++ b/script/c92170894.lua @@ -0,0 +1,29 @@ +--EMロングフォーン・ブル +function c92170894.initial_effect(c) + --search + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(92170894,0)) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e1:SetCountLimit(1,92170894) + e1:SetTarget(c92170894.thtg) + e1:SetOperation(c92170894.tgop) + c:RegisterEffect(e1) +end +function c92170894.thfilter(c) + return c:IsSetCard(0x9f) and c:IsType(TYPE_MONSTER) and not c:IsType(TYPE_PENDULUM) and c:IsAbleToHand() +end +function c92170894.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c92170894.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c92170894.tgop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c92170894.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c92300891.lua b/script/c92300891.lua index 0e1c62ad..ba7dad70 100644 --- a/script/c92300891.lua +++ b/script/c92300891.lua @@ -5,15 +5,7 @@ function c92300891.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_MUST_ATTACK) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c92300891.becon) - c:RegisterEffect(e2) - --to defence + --to defense local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(92300891,0)) e3:SetCategory(CATEGORY_POSITION) @@ -32,16 +24,13 @@ function c92300891.initial_effect(c) e4:SetValue(c92300891.valcon) c:RegisterEffect(e4) end -function c92300891.becon(e) - return e:GetHandler():IsAttackable() -end function c92300891.poscon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsAttackPos() end function c92300891.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c92300891.valcon(e,re,r,rp) diff --git a/script/c92353449.lua b/script/c92353449.lua new file mode 100644 index 00000000..2e8ff11a --- /dev/null +++ b/script/c92353449.lua @@ -0,0 +1,37 @@ +--レッドアイズ・インサイト +function c92353449.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,92353449+EFFECT_COUNT_CODE_OATH) + e1:SetCost(c92353449.cost) + e1:SetTarget(c92353449.target) + e1:SetOperation(c92353449.activate) + c:RegisterEffect(e1) +end +function c92353449.cfilter(c) + return c:IsSetCard(0x3b) and c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost() +end +function c92353449.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c92353449.cfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c92353449.cfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil) + Duel.SendtoGrave(g,REASON_COST) +end +function c92353449.thfilter(c) + return c:IsSetCard(0x3b) and c:IsType(TYPE_SPELL+TYPE_TRAP) and not c:IsCode(92353449) and c:IsAbleToHand() +end +function c92353449.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c92353449.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c92353449.activate(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c92353449.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c923596.lua b/script/c923596.lua index ce2fc15b..fc50d137 100644 --- a/script/c923596.lua +++ b/script/c923596.lua @@ -29,11 +29,11 @@ end function c923596.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c923596.filter(c) - return c:IsSetCard(0x72) and c:GetCode()~=923596 and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() + return c:IsSetCard(0x72) and not c:IsCode(923596) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c923596.shtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c923596.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c92361635.lua b/script/c92361635.lua index a88429ff..f25c5c20 100644 --- a/script/c92361635.lua +++ b/script/c92361635.lua @@ -1,68 +1,68 @@ ---アトミック・スクラップ・ドラゴン -function c92361635.initial_effect(c) - --synchro summon - aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x24),aux.NonTuner(nil),2) - c:EnableReviveLimit() - --Destroy - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(92361635,0)) - e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TODECK) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetCountLimit(1) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET) - e1:SetTarget(c92361635.destg) - e1:SetOperation(c92361635.desop) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(92361635,1)) - e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_CARD_TARGET) - e2:SetCategory(CATEGORY_SPECIAL_SUMMON) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetCondition(c92361635.spcon) - e2:SetTarget(c92361635.sptg) - e2:SetOperation(c92361635.spop) - c:RegisterEffect(e2) -end -function c92361635.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,nil) - and Duel.IsExistingTarget(Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g1=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,1,0,0) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) - local g2=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,1,3,nil) - Duel.SetOperationInfo(0,CATEGORY_TODECK,g2,g2:GetCount(),0,0) -end -function c92361635.desop(e,tp,eg,ep,ev,re,r,rp) - local ex,g1=Duel.GetOperationInfo(0,CATEGORY_DESTROY) - local ex,g2=Duel.GetOperationInfo(0,CATEGORY_TODECK) - if g1:GetFirst():IsRelateToEffect(e) and Duel.Destroy(g1,REASON_EFFECT)~=0 then - local hg=g2:Filter(Card.IsRelateToEffect,nil,e) - Duel.SendtoDeck(hg,nil,2,REASON_EFFECT) - end -end -function c92361635.spcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local crp=c:GetReasonPlayer() - return c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp and tp~=crp and crp~=PLAYER_NONE -end -function c92361635.spfilter(c,e,tp) - return c:IsSetCard(0x24) and not c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c92361635.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c92361635.spfilter(chkc,e,tp) end - if chk==0 then return true end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c92361635.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c92361635.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) - end -end +--アトミック・スクラップ・ドラゴン +function c92361635.initial_effect(c) + --synchro summon + aux.AddSynchroProcedure(c,aux.FilterBoolFunction(Card.IsSetCard,0x24),aux.NonTuner(nil),2) + c:EnableReviveLimit() + --Destroy + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(92361635,0)) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_TODECK) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetCountLimit(1) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetTarget(c92361635.destg) + e1:SetOperation(c92361635.desop) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(92361635,1)) + e2:SetType(EFFECT_TYPE_TRIGGER_F+EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCondition(c92361635.spcon) + e2:SetTarget(c92361635.sptg) + e2:SetOperation(c92361635.spop) + c:RegisterEffect(e2) +end +function c92361635.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,0,1,nil) + and Duel.IsExistingTarget(Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g1=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,1,0,0) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + local g2=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,0,LOCATION_GRAVE,1,3,nil) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g2,g2:GetCount(),0,0) +end +function c92361635.desop(e,tp,eg,ep,ev,re,r,rp) + local ex,g1=Duel.GetOperationInfo(0,CATEGORY_DESTROY) + local ex,g2=Duel.GetOperationInfo(0,CATEGORY_TODECK) + if g1:GetFirst():IsRelateToEffect(e) and Duel.Destroy(g1,REASON_EFFECT)~=0 then + local hg=g2:Filter(Card.IsRelateToEffect,nil,e) + Duel.SendtoDeck(hg,nil,2,REASON_EFFECT) + end +end +function c92361635.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local crp=c:GetReasonPlayer() + return c:IsReason(REASON_DESTROY) and c:GetPreviousControler()==tp and tp~=crp and crp~=PLAYER_NONE +end +function c92361635.spfilter(c,e,tp) + return c:IsSetCard(0x24) and not c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c92361635.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c92361635.spfilter(chkc,e,tp) end + if chk==0 then return true end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c92361635.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c92361635.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c92377303.lua b/script/c92377303.lua index 8d06c1e1..3d854526 100644 --- a/script/c92377303.lua +++ b/script/c92377303.lua @@ -6,25 +6,29 @@ function c92377303.initial_effect(c) e1:SetDescription(aux.Stringid(92377303,0)) e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e1:SetRange(LOCATION_HAND+LOCATION_DECK) + e1:SetRange(LOCATION_HAND) e1:SetProperty(EFFECT_FLAG_CHAIN_UNIQUE) - e1:SetCode(71625222) + e1:SetCode(EVENT_CUSTOM+71625222) e1:SetCondition(c92377303.spcon) e1:SetCost(c92377303.cost) e1:SetTarget(c92377303.sptg) e1:SetOperation(c92377303.spop) c:RegisterEffect(e1) - --to hand - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(92377303,1)) - e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e2:SetRange(LOCATION_MZONE) - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - e2:SetCondition(c92377303.thcon) - e2:SetTarget(c92377303.thtg) - e2:SetOperation(c92377303.thop) + local e2=e1:Clone() + e2:SetRange(LOCATION_DECK) + e2:SetProperty(EFFECT_FLAG_CHAIN_UNIQUE,EFFECT_FLAG2_NAGA) c:RegisterEffect(e2) + --to hand + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(92377303,1)) + e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetRange(LOCATION_MZONE) + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetCondition(c92377303.thcon) + e3:SetTarget(c92377303.thtg) + e3:SetOperation(c92377303.thop) + c:RegisterEffect(e3) end function c92377303.spcon(e,tp,eg,ep,ev,re,r,rp) return ep==tp @@ -43,8 +47,13 @@ function c92377303.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c92377303.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) and Duel.SpecialSummon(e:GetHandler(),0,tp,tp,true,false,POS_FACEUP)>0 then - e:GetHandler():CompleteProcedure() + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then + c:CompleteProcedure() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c92377303.thcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c92394653.lua b/script/c92394653.lua old mode 100755 new mode 100644 index 49a0325f..39698143 --- a/script/c92394653.lua +++ b/script/c92394653.lua @@ -52,9 +52,9 @@ function c92394653.mtcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c92394653.mtop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLP(tp)>500 and Duel.SelectYesNo(tp,aux.Stringid(92394653,1)) then + if Duel.CheckLPCost(tp,500) and Duel.SelectYesNo(tp,aux.Stringid(92394653,1)) then Duel.PayLPCost(tp,500) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end \ No newline at end of file diff --git a/script/c92408984.lua b/script/c92408984.lua index b52b882a..7feb98a5 100644 --- a/script/c92408984.lua +++ b/script/c92408984.lua @@ -77,7 +77,7 @@ end function c92408984.target2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) - if eg:GetFirst():IsDestructable() then + if eg:GetFirst():IsLocation(LOCATION_ONFIELD) then eg:GetFirst():CreateEffectRelation(e) Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) end diff --git a/script/c92450185.lua b/script/c92450185.lua old mode 100755 new mode 100644 index c7a01f53..30f78cd9 --- a/script/c92450185.lua +++ b/script/c92450185.lua @@ -15,13 +15,13 @@ function c92450185.thtg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE) end function c92450185.spfilter(c,e,tp) - return c:IsCode(9365703) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsCode(9365703) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c92450185.thop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c92450185.spfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()~=0 then + if g:GetCount()~=0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c92510265.lua b/script/c92510265.lua old mode 100755 new mode 100644 index a42a45e1..3fe8adc1 --- a/script/c92510265.lua +++ b/script/c92510265.lua @@ -1,69 +1,68 @@ ---聖戦士カオス・ソルジャー -function c92510265.initial_effect(c) - --remove - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(92510265,0)) - e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_REMOVE) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e1:SetCountLimit(1,92510265) - e1:SetTarget(c92510265.rmtg) - e1:SetOperation(c92510265.rmop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - --tohand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(92510265,1)) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_BATTLE_DESTROYING) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCondition(aux.bdocon) - e3:SetTarget(c92510265.thtg) - e3:SetOperation(c92510265.thop) - c:RegisterEffect(e3) -end -function c92510265.rgfilter(c) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK) -end -function c92510265.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return false end - if chk==0 then return Duel.IsExistingTarget(c92510265.rgfilter,tp,LOCATION_REMOVED,0,1,nil) - and Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(92510265,2)) - local g1=Duel.SelectTarget(tp,c92510265.rgfilter,tp,LOCATION_REMOVED,0,1,1,nil) - e:SetLabelObject(g1:GetFirst()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) - local g2=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g1,1,0,0) - Duel.SetOperationInfo(0,CATEGORY_REMOVE,g2,1,0,0) -end -function c92510265.rmop(e,tp,eg,ep,ev,re,r,rp) - local tc=e:GetLabelObject() - local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) - local lc=tg:GetFirst() - if lc==tc then lc=tg:GetNext() end - if tc:IsRelateToEffect(e) and Duel.SendtoGrave(tc,REASON_EFFECT+REASON_RETURN)~=0 and lc:IsRelateToEffect(e) and lc:IsControler(1-tp) then - Duel.Remove(lc,POS_FACEUP,REASON_EFFECT) - end -end -function c92510265.thfilter(c) - return c:IsLevelBelow(7) and c:IsRace(RACE_WARRIOR) and c:IsAbleToHand() -end -function c92510265.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c92510265.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c92510265.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c92510265.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c92510265.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--聖戦士カオス・ソルジャー +function c92510265.initial_effect(c) + --remove + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(92510265,0)) + e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_REMOVE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) + e1:SetCountLimit(1,92510265) + e1:SetTarget(c92510265.rmtg) + e1:SetOperation(c92510265.rmop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --tohand + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(92510265,1)) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_BATTLE_DESTROYING) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCondition(aux.bdocon) + e3:SetTarget(c92510265.thtg) + e3:SetOperation(c92510265.thop) + c:RegisterEffect(e3) +end +function c92510265.rgfilter(c) + return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK) +end +function c92510265.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.IsExistingTarget(c92510265.rgfilter,tp,LOCATION_REMOVED,0,1,nil) + and Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(92510265,2)) + local g1=Duel.SelectTarget(tp,c92510265.rgfilter,tp,LOCATION_REMOVED,0,1,1,nil) + e:SetLabelObject(g1:GetFirst()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g2=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g1,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g2,1,0,0) +end +function c92510265.rmop(e,tp,eg,ep,ev,re,r,rp) + local tc=e:GetLabelObject() + local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) + local lc=tg:GetFirst() + if lc==tc then lc=tg:GetNext() end + if tc:IsRelateToEffect(e) and Duel.SendtoGrave(tc,REASON_EFFECT+REASON_RETURN)~=0 and lc:IsRelateToEffect(e) and lc:IsControler(1-tp) then + Duel.Remove(lc,POS_FACEUP,REASON_EFFECT) + end +end +function c92510265.thfilter(c) + return c:IsLevelBelow(7) and c:IsRace(RACE_WARRIOR) and c:IsAbleToHand() +end +function c92510265.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c92510265.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c92510265.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c92510265.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c92510265.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c92572371.lua b/script/c92572371.lua index 84404819..52049e1f 100644 --- a/script/c92572371.lua +++ b/script/c92572371.lua @@ -16,14 +16,29 @@ function c92572371.cfilter(c) return (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and (c:IsSetCard(0x79) or c:IsSetCard(0x7c)) and c:IsAbleToGraveAsCost() end function c92572371.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c92572371.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,2,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c92572371.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,2,2,nil) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local ct=-ft+1 + local sg=Duel.GetMatchingGroup(c92572371.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,nil) + if chk==0 then return sg:GetCount()>=2 + and (ft>0 or (ct<3 and sg:IsExists(Card.IsLocation,ct,nil,LOCATION_MZONE))) end + local g=nil + if ft<=0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + g=sg:FilterSelect(tp,Card.IsLocation,ct,ct,nil,LOCATION_MZONE) + if ct<2 then + sg:Sub(g) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g1=sg:Select(tp,2-ct,2-ct,nil) + g:Merge(g1) + end + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + g=sg:Select(tp,2,2,nil) + end Duel.SendtoGrave(g,REASON_COST) end function c92572371.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c92572371.spop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c9260791.lua b/script/c9260791.lua index 9e822b58..a9959269 100644 --- a/script/c9260791.lua +++ b/script/c9260791.lua @@ -28,7 +28,6 @@ function c9260791.spcost(e,tp,eg,ep,ev,re,r,rp,chk) end function c9260791.spfilter(c,e,tp) return c:IsSetCard(0x107b) and not c:IsCode(9260791) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c9260791.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 @@ -39,7 +38,7 @@ function c9260791.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c9260791.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c92609670.lua b/script/c92609670.lua index ac7fef48..9b630f6d 100644 --- a/script/c92609670.lua +++ b/script/c92609670.lua @@ -17,7 +17,7 @@ function c92609670.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(92609670,1)) e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(92609670) + e2:SetCode(EVENT_CUSTOM+92609670) e2:SetCost(c92609670.lvcost) e2:SetTarget(c92609670.lvtg) e2:SetOperation(c92609670.lvop) @@ -31,7 +31,7 @@ function c92609670.spcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c92609670.filter(c,e,tp) - return c:GetCode()~=92609670 and c:IsSetCard(0x106f) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:GetCode()~=92609670 and c:IsSetCard(0x106f) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c92609670.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 @@ -44,9 +44,9 @@ function c92609670.spop(e,tp,eg,ep,ev,re,r,rp) if ft>2 then ft=2 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c92609670.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,ft,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) - Duel.RaiseSingleEvent(e:GetHandler(),92609670,e,0,tp,tp,0) + Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+92609670,e,0,tp,tp,0) end end function c92609670.lvcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c9264485.lua b/script/c9264485.lua index 3458442b..fa604941 100644 --- a/script/c9264485.lua +++ b/script/c9264485.lua @@ -3,14 +3,11 @@ function c9264485.initial_effect(c) --cannot be target local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_SELECT_EFFECT_TARGET) - e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) e1:SetRange(LOCATION_MZONE) - e1:SetTargetRange(0,0xff) - e1:SetValue(c9264485.etarget) + e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e1:SetTarget(aux.TargetBoolFunction(Card.IsCode,75830094,11224103,48229808)) + e1:SetValue(aux.tgoval) c:RegisterEffect(e1) end -function c9264485.etarget(e,re,c) - local code=c:GetCode() - return c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and (code==75830094 or code==11224103 or code==48229808) -end diff --git a/script/c92693205.lua b/script/c92693205.lua index 543f1896..82840060 100644 --- a/script/c92693205.lua +++ b/script/c92693205.lua @@ -1,52 +1,52 @@ ---ギアギアンカー -function c92693205.initial_effect(c) - --turn set - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_POSITION) - e1:SetType(EFFECT_TYPE_IGNITION) - e1:SetRange(LOCATION_MZONE) - e1:SetTarget(c92693205.postg) - e1:SetOperation(c92693205.posop) - c:RegisterEffect(e1) - --destroy - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) - e2:SetProperty(EFFECT_FLAG_DELAY) - e2:SetCondition(c92693205.descon) - e2:SetTarget(c92693205.destg) - e2:SetOperation(c92693205.desop) - c:RegisterEffect(e2) -end -function c92693205.postg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:IsCanTurnSet() and c:GetFlagEffect(92693205)==0 end - c:RegisterFlagEffect(92693205,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) - Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0) -end -function c92693205.posop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) - end -end -function c92693205.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x72) -end -function c92693205.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.IsExistingMatchingCard(c92693205.cfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) -end -function c92693205.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c92693205.desop(e,tp,eg,ep,ev,re,r,rp) - local ct=Duel.GetMatchingGroupCount(c92693205.cfilter,tp,LOCATION_MZONE,0,e:GetHandler()) - if ct==0 then return end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectMatchingCard(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,ct,nil) - if g:GetCount()>0 then - Duel.Destroy(g,REASON_EFFECT) - end -end +--ギアギアンカー +function c92693205.initial_effect(c) + --turn set + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_POSITION) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetTarget(c92693205.postg) + e1:SetOperation(c92693205.posop) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_FLIP+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCondition(c92693205.descon) + e2:SetTarget(c92693205.destg) + e2:SetOperation(c92693205.desop) + c:RegisterEffect(e2) +end +function c92693205.postg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:IsCanTurnSet() and c:GetFlagEffect(92693205)==0 end + c:RegisterFlagEffect(92693205,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) + Duel.SetOperationInfo(0,CATEGORY_POSITION,c,1,0,0) +end +function c92693205.posop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and c:IsFaceup() then + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) + end +end +function c92693205.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0x72) +end +function c92693205.descon(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c92693205.cfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) +end +function c92693205.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c92693205.desop(e,tp,eg,ep,ev,re,r,rp) + local ct=Duel.GetMatchingGroupCount(c92693205.cfilter,tp,LOCATION_MZONE,0,e:GetHandler()) + if ct==0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,ct,nil) + if g:GetCount()>0 then + Duel.Destroy(g,REASON_EFFECT) + end +end diff --git a/script/c92720564.lua b/script/c92720564.lua index 0abfc78b..281e2683 100644 --- a/script/c92720564.lua +++ b/script/c92720564.lua @@ -24,7 +24,7 @@ end function c92720564.cond(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local d=Duel.GetAttackTarget() - return not c:IsDisabled() and c:IsDefencePos() and d:IsFaceup() and d:IsSetCard(0x26) + return not c:IsDisabled() and c:IsDefensePos() and d:IsFaceup() and d:IsSetCard(0x26) end function c92720564.opd(e,tp,eg,ep,ev,re,r,rp) Duel.NegateAttack() diff --git a/script/c92723496.lua b/script/c92723496.lua old mode 100755 new mode 100644 diff --git a/script/c9272381.lua b/script/c9272381.lua index 732f6a09..1423e7ee 100644 --- a/script/c9272381.lua +++ b/script/c9272381.lua @@ -33,7 +33,7 @@ function c9272381.initial_effect(c) local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(9272381,1)) e4:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e4:SetType(EFFECT_TYPE_QUICK_O) e4:SetCode(EVENT_CHAINING) e4:SetRange(LOCATION_MZONE) e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) diff --git a/script/c92729410.lua b/script/c92729410.lua index 3143d21b..8e75f6b2 100644 --- a/script/c92729410.lua +++ b/script/c92729410.lua @@ -43,7 +43,7 @@ function c92729410.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c92729410.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,g) end end diff --git a/script/c92736188.lua b/script/c92736188.lua index 859d8f3e..5caf4b3a 100644 --- a/script/c92736188.lua +++ b/script/c92736188.lua @@ -28,7 +28,7 @@ end function c92736188.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c92736188.filter(c) @@ -43,21 +43,10 @@ end function c92736188.adop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then - local atk=tc:GetBaseAttack() - local def=tc:GetBaseDefence() local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_BASE_ATTACK) - e1:SetValue(def) + e1:SetCode(EFFECT_SWAP_BASE_AD) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(e:GetHandler()) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_SET_BASE_DEFENCE) - e2:SetValue(atk) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e2) end end diff --git a/script/c92746535.lua b/script/c92746535.lua index 1ba68610..8c14fbf8 100644 --- a/script/c92746535.lua +++ b/script/c92746535.lua @@ -36,8 +36,7 @@ end function c92746535.thtg(e,tp,eg,ep,ev,re,r,rp,chk) local seq=e:GetHandler():GetSequence() local sc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) - if chk==0 then return sc:IsDestructable() - and Duel.IsExistingMatchingCard(c92746535.thfilter,tp,LOCATION_DECK,0,1,nil,sc:GetOriginalCode()) end + if chk==0 then return Duel.IsExistingMatchingCard(c92746535.thfilter,tp,LOCATION_DECK,0,1,nil,sc:GetOriginalCode()) end Duel.SetTargetCard(sc) Duel.SetOperationInfo(0,CATEGORY_DESTROY,sc,1,0,0) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) diff --git a/script/c92773018.lua b/script/c92773018.lua index e0efadee..e48e8890 100644 --- a/script/c92773018.lua +++ b/script/c92773018.lua @@ -39,7 +39,7 @@ function c92773018.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local tg=Duel.GetAttacker() if Duel.CheckEvent(EVENT_ATTACK_ANNOUNCE) and tp~=Duel.GetTurnPlayer() and Duel.IsExistingMatchingCard(c92773018.cfilter,tp,LOCATION_MZONE,0,1,nil) - and tg:IsOnField() and tg:IsDestructable() and tg:IsCanBeEffectTarget(e) + and tg:IsOnField() and tg:IsCanBeEffectTarget(e) and Duel.SelectYesNo(tp,aux.Stringid(92773018,1)) then e:SetCategory(CATEGORY_DESTROY) e:SetProperty(EFFECT_FLAG_CARD_TARGET) @@ -57,7 +57,7 @@ function c92773018.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local tg=Duel.GetAttacker() if chkc then return chkc==tg end if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) - and tg:IsOnField() and tg:IsDestructable() and tg:IsCanBeEffectTarget(e) end + and tg:IsOnField() and tg:IsCanBeEffectTarget(e) end Duel.SetTargetCard(tg) Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) end diff --git a/script/c92821268.lua b/script/c92821268.lua index 2bdd3234..cca6a992 100644 --- a/script/c92821268.lua +++ b/script/c92821268.lua @@ -29,7 +29,9 @@ function c92821268.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c92821268.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c9284723.lua b/script/c9284723.lua index efcb0a4f..956b5f3a 100644 --- a/script/c9284723.lua +++ b/script/c9284723.lua @@ -23,15 +23,19 @@ function c9284723.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RegisterEffect(e1) end function c9284723.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsCanAddCounter(0x9,2) end - if chk==0 then return Duel.IsExistingTarget(Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,nil,0x9,2) end + if chkc then return chkc:IsControler(1-tp) and chkc:IsCanAddCounter(0x1009,2) end + if chk==0 then return Duel.IsExistingTarget(Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,nil,0x1009,2) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - local g=Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,1,nil,0x9,2) + local g=Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,1,nil,0x1009,2) Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,2,0,0) end function c9284723.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsCanAddCounter(0x9,2) then - tc:AddCounter(0x9,2) + if tc:IsRelateToEffect(e) and tc:IsCanAddCounter(0x1009,2) then + local atk=tc:GetAttack() + tc:AddCounter(0x1009,2) + if atk>0 and tc:GetAttack()==0 then + Duel.RaiseEvent(tc,EVENT_CUSTOM+54306223,e,0,0,0,0) + end end end diff --git a/script/c92854392.lua b/script/c92854392.lua index f7c60fc7..bcda821f 100644 --- a/script/c92854392.lua +++ b/script/c92854392.lua @@ -22,29 +22,22 @@ function c92854392.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c92854392.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangeAttackTarget(tc) + if tc:IsRelateToEffect(e) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) + e1:SetCode(EFFECT_MUST_ATTACK) e1:SetTargetRange(0,LOCATION_MZONE) e1:SetReset(RESET_PHASE+PHASE_BATTLE) Duel.RegisterEffect(e1,tp) local e2=e1:Clone() - e2:SetCode(EFFECT_MUST_ATTACK) + e2:SetCode(EFFECT_MUST_ATTACK_MONSTER) Duel.RegisterEffect(e2,tp) local e3=Effect.CreateEffect(e:GetHandler()) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE) - e3:SetTargetRange(LOCATION_MZONE,0) - e3:SetTarget(c92854392.attg) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_MUST_BE_ATTACKED) e3:SetValue(1) - e3:SetLabel(tc:GetRealFieldID()) - e3:SetReset(RESET_PHASE+PHASE_BATTLE) - Duel.RegisterEffect(e3,tp) + e3:SetReset(RESET_PHASE+PHASE_BATTLE+RESET_EVENT+0x1fc0000) + tc:RegisterEffect(e3,true) + Duel.ChangeAttackTarget(tc) end end -function c92854392.attg(e,c) - return c:GetRealFieldID()~=e:GetLabel() -end diff --git a/script/c92870717.lua b/script/c92870717.lua index 58a3da34..3f2670d8 100644 --- a/script/c92870717.lua +++ b/script/c92870717.lua @@ -28,7 +28,7 @@ function c92870717.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()~=tp end function c92870717.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsDestructable() end + if chk==0 then return true end Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) end function c92870717.desop(e,tp,eg,ep,ev,re,r,rp) @@ -43,7 +43,7 @@ function c92870717.spcost(e,tp,eg,ep,ev,re,r,rp,chk) end function c92870717.spfilter(c,e,tp) return c:IsAttackBelow(2000) and c:IsRace(RACE_WARRIOR+RACE_SPELLCASTER) - and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENCE) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) end function c92870717.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c92870717.spfilter(chkc,e,tp) end @@ -56,7 +56,7 @@ end function c92870717.spop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c9287078.lua b/script/c9287078.lua index b6488f99..f65c0a22 100644 --- a/script/c9287078.lua +++ b/script/c9287078.lua @@ -33,7 +33,6 @@ function c9287078.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c9287078.spfilter(c,e,tp) return c:IsRace(RACE_SPELLCASTER) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c9287078.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) @@ -44,6 +43,7 @@ function c9287078.activate(e,tp,eg,ep,ev,re,r,rp) Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local tg=sg:Select(tp,1,1,nil) + if tg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c92887027.lua b/script/c92887027.lua index 2928f3dd..1e59a41e 100644 --- a/script/c92887027.lua +++ b/script/c92887027.lua @@ -23,7 +23,7 @@ function c92887027.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c92887027.filter(c) - return c:IsPosition(POS_FACEDOWN_DEFENCE) and c:IsDestructable() + return c:IsPosition(POS_FACEDOWN_DEFENSE) end function c92887027.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c92887027.filter(chkc) end @@ -34,7 +34,7 @@ function c92887027.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c92887027.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsPosition(POS_FACEDOWN_DEFENCE) and tc:IsRelateToEffect(e) then + if tc:IsPosition(POS_FACEDOWN_DEFENSE) and tc:IsRelateToEffect(e) then Duel.Destroy(tc,REASON_EFFECT) end end diff --git a/script/c92890308.lua b/script/c92890308.lua index 99cbb211..a7fbe769 100644 --- a/script/c92890308.lua +++ b/script/c92890308.lua @@ -29,6 +29,6 @@ function c92890308.activate(e,tp,eg,ep,ev,re,r,rp) local ta=Duel.GetAttacker() local td=Duel.GetAttackTarget() if ta:IsRelateToEffect(e) and Duel.NegateAttack() and td:IsFaceup() and td:IsRelateToEffect(e) then - Duel.ChangePosition(td,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(td,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) end end diff --git a/script/c92901944.lua b/script/c92901944.lua index c1efa795..416935a6 100644 --- a/script/c92901944.lua +++ b/script/c92901944.lua @@ -39,7 +39,7 @@ function c92901944.spop(e,tp,eg,ep,ev,re,r,rp) end end function c92901944.desfilter(c) - return c:IsFaceup() and not c:IsSetCard(0x24) and c:IsDestructable() + return c:IsFaceup() and not c:IsSetCard(0x24) end function c92901944.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c92918648.lua b/script/c92918648.lua index 85eadace..94dc1176 100644 --- a/script/c92918648.lua +++ b/script/c92918648.lua @@ -23,7 +23,7 @@ function c92918648.cfilter(c) return c:IsSetCard(0x106e) and c:IsType(TYPE_SPELL) end function c92918648.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c92918648.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c92918648.cfilter,tp,LOCATION_GRAVE,0,1,nil) diff --git a/script/c92924317.lua b/script/c92924317.lua index f7b76394..fc1c290a 100644 --- a/script/c92924317.lua +++ b/script/c92924317.lua @@ -39,9 +39,10 @@ end function c92924317.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE)==0 then return end + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() end end function c92924317.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c92958307.lua b/script/c92958307.lua new file mode 100644 index 00000000..9eb8af47 --- /dev/null +++ b/script/c92958307.lua @@ -0,0 +1,33 @@ +--EMショーダウン +function c92958307.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_POSITION) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetHintTiming(TIMING_BATTLE_PHASE,0x1c0+TIMING_BATTLE_PHASE) + e1:SetTarget(c92958307.target) + e1:SetOperation(c92958307.activate) + c:RegisterEffect(e1) +end +function c92958307.cfilter(c) + return c:IsFaceup() and c:IsType(TYPE_SPELL) +end +function c92958307.filter(c) + return c:IsFaceup() and c:IsCanTurnSet() +end +function c92958307.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local sc=Duel.GetMatchingGroupCount(c92958307.cfilter,tp,LOCATION_ONFIELD,0,nil) + if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c92958307.filter(chkc) end + if chk==0 then return sc>0 and Duel.IsExistingTarget(c92958307.filter,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,c92958307.filter,tp,0,LOCATION_MZONE,1,sc,nil) + Duel.SetOperationInfo(0,CATEGORY_POSITION,g,g:GetCount(),0,0) +end +function c92958307.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()>0 then + Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE) + end +end diff --git a/script/c9298235.lua b/script/c9298235.lua index 24738a24..07964c69 100644 --- a/script/c9298235.lua +++ b/script/c9298235.lua @@ -31,7 +31,6 @@ end function c9298235.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 then - Duel.ConfirmCards(1-tp,tc) Duel.Draw(tp,1,REASON_EFFECT) end end diff --git a/script/c93016201.lua b/script/c93016201.lua index 173b02e2..6416e8d5 100644 --- a/script/c93016201.lua +++ b/script/c93016201.lua @@ -64,7 +64,7 @@ function c93016201.target1(e,tp,eg,ep,ev,re,r,rp,chk) local te=Duel.GetChainInfo(ct-1,CHAININFO_TRIGGERING_EFFECT) local tc=te:GetHandler() Duel.SetOperationInfo(0,CATEGORY_DISABLE,tc,1,0,0) - if tc:IsDestructable() and tc:IsRelateToEffect(te) then + if tc:IsRelateToEffect(te) then Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) end end diff --git a/script/c93023479.lua b/script/c93023479.lua index 577df89c..d7782d8a 100644 --- a/script/c93023479.lua +++ b/script/c93023479.lua @@ -20,7 +20,7 @@ function c93023479.target(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) end function c93023479.filter(c) - return c:IsDefenceBelow(1500) and c:IsSetCard(0x2e) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() + return c:IsDefenseBelow(1500) and c:IsSetCard(0x2e) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c93023479.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) diff --git a/script/c93085839.lua b/script/c93085839.lua index 997b4f02..6423b444 100644 --- a/script/c93085839.lua +++ b/script/c93085839.lua @@ -42,8 +42,10 @@ function c93085839.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c93085839.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c93085839.effcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c93108433.lua b/script/c93108433.lua old mode 100755 new mode 100644 diff --git a/script/c93108839.lua b/script/c93108839.lua index 841b2bf3..d5a5a260 100644 --- a/script/c93108839.lua +++ b/script/c93108839.lua @@ -85,8 +85,10 @@ function c93108839.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c93108839.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c93108839.damcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c93124273.lua b/script/c93124273.lua index bacef1af..b5375f18 100644 --- a/script/c93124273.lua +++ b/script/c93124273.lua @@ -15,7 +15,7 @@ end function c93124273.target(e,tp,eg,ep,ev,re,r,rp,chk) local d=Duel.GetAttackTarget() if chk ==0 then return Duel.GetAttacker()==e:GetHandler() - and d and d:IsFaceup() and not d:IsType(TYPE_PENDULUM) and d:IsDestructable() end + and d and d:IsFaceup() and not d:IsType(TYPE_PENDULUM) end Duel.SetOperationInfo(0,CATEGORY_DESTROY,d,1,0,0) end function c93124273.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c93130021.lua b/script/c93130021.lua index d84668fa..96dfef20 100644 --- a/script/c93130021.lua +++ b/script/c93130021.lua @@ -14,7 +14,7 @@ function c93130021.condition(e,tp,eg,ep,ev,re,r,rp) return c:IsRelateToBattle() and c:GetBattleTarget():IsType(TYPE_MONSTER) end function c93130021.filter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL+TYPE_TRAP) end function c93130021.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c93130021.filter(chkc) end @@ -22,7 +22,7 @@ function c93130021.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local c=e:GetHandler() local t1=Duel.IsExistingTarget(c93130021.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) local t2=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsPlayerCanSpecialSummonMonster(tp,93130022,0,0x4011,c:GetAttack(),c:GetDefence(),c:GetLevel(),c:GetRace(),c:GetAttribute()) + and Duel.IsPlayerCanSpecialSummonMonster(tp,93130022,0,0x4011,c:GetAttack(),c:GetDefense(),c:GetLevel(),c:GetRace(),c:GetAttribute()) Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(93130021,0)) if t1 and t2 then op=Duel.SelectOption(tp,aux.Stringid(93130021,1),aux.Stringid(93130021,2),aux.Stringid(93130021,3)) @@ -58,7 +58,7 @@ function c93130021.operation(e,tp,eg,ep,ev,re,r,rp) end elseif e:GetLabel()==2 then local atk=c:GetAttack() - local def=c:GetDefence() + local def=c:GetDefense() local lv=c:GetLevel() local race=c:GetRace() local att=c:GetAttribute() @@ -76,7 +76,7 @@ function c93130021.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0xfe0000) token:RegisterEffect(e1,true) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE_FINAL) + e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetValue(c93130021.tokendef) token:RegisterEffect(e2,true) local e3=Effect.CreateEffect(c) @@ -119,7 +119,7 @@ function c93130021.tokenatk(e,c) return e:GetOwner():GetAttack() end function c93130021.tokendef(e,c) - return e:GetOwner():GetDefence() + return e:GetOwner():GetDefense() end function c93130021.tokenlv(e,c) return e:GetOwner():GetLevel() diff --git a/script/c93149655.lua b/script/c93149655.lua new file mode 100644 index 00000000..24bd5a6f --- /dev/null +++ b/script/c93149655.lua @@ -0,0 +1,75 @@ +--オッドアイズ・ファントム・ドラゴン +function c93149655.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --atk up + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(93149655,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetCondition(c93149655.atkcon) + e1:SetTarget(c93149655.atktg) + e1:SetOperation(c93149655.atkop) + c:RegisterEffect(e1) + --damage + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(93149655,1)) + e2:SetCategory(CATEGORY_DAMAGE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BATTLE_DAMAGE) + e2:SetCountLimit(1,93149655) + e2:SetCondition(c93149655.damcon) + e2:SetTarget(c93149655.damtg) + e2:SetOperation(c93149655.damop) + c:RegisterEffect(e2) +end +function c93149655.atkcon(e,tp,eg,ep,ev,re,r,rp) + local seq=e:GetHandler():GetSequence() + local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-seq) + if not tc or not tc:IsSetCard(0x99) then return end + local a=Duel.GetAttacker() + local d=Duel.GetAttackTarget() + if d and a:GetControler()~=d:GetControler() then + if a:IsControler(tp) and a:IsFaceup() then e:SetLabelObject(a) + elseif d:IsFaceup() then e:SetLabelObject(d) + else return false end + return true + else return false end +end +function c93149655.atktg(e,tp,eg,ep,ev,re,r,rp,chk) + local tc=e:GetLabelObject() + if chk==0 then return tc:IsOnField() end + Duel.SetTargetCard(tc) +end +function c93149655.atkop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsControler(tp) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(1200) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_BATTLE) + tc:RegisterEffect(e1) + end +end +function c93149655.damcon(e,tp,eg,ep,ev,re,r,rp) + return ep~=tp and e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM + and Duel.GetAttacker()==e:GetHandler() +end +function c93149655.damfilter(c) + return c:IsFaceup() and (c:GetSequence()==6 or c:GetSequence()==7) and c:IsSetCard(0x99) +end +function c93149655.damtg(e,tp,eg,ep,ev,re,r,rp,chk) + local ct=Duel.GetMatchingGroupCount(c93149655.damfilter,tp,LOCATION_SZONE,0,nil) + if chk==0 then return ct>0 end + Duel.SetTargetParam(ct*1200) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,ct*1200) +end +function c93149655.damop(e,tp,eg,ep,ev,re,r,rp) + local ct=Duel.GetMatchingGroupCount(c93149655.damfilter,tp,LOCATION_SZONE,0,nil) + Duel.Damage(1-tp,ct*1200,REASON_EFFECT) +end diff --git a/script/c93157004.lua b/script/c93157004.lua index b6795aea..5cdee6b5 100644 --- a/script/c93157004.lua +++ b/script/c93157004.lua @@ -35,7 +35,7 @@ function c93157004.initial_effect(c) local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(93157004,2)) e4:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e4:SetType(EFFECT_TYPE_QUICK_O) e4:SetCode(EVENT_CHAINING) e4:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e4:SetRange(LOCATION_MZONE) @@ -44,6 +44,12 @@ function c93157004.initial_effect(c) e4:SetTarget(c93157004.distg) e4:SetOperation(c93157004.disop) c:RegisterEffect(e4) + --double tuner + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_SINGLE) + e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e5:SetCode(21142671) + c:RegisterEffect(e5) end function c93157004.matfilter1(c,syncard) return c:IsType(TYPE_TUNER) and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsCanBeSynchroMaterial(syncard) @@ -202,7 +208,7 @@ function c93157004.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO end function c93157004.desfilter(c) - return c:IsFaceup() and bit.band(c:GetSummonType(),SUMMON_TYPE_NORMAL)~=0 and c:IsDestructable() + return c:IsFaceup() and bit.band(c:GetSummonType(),SUMMON_TYPE_NORMAL)~=0 end function c93157004.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end @@ -216,13 +222,14 @@ function c93157004.desop(e,tp,eg,ep,ev,re,r,rp) end end function c93157004.eqfilter(c) - return c:IsSetCard(0x30) and c:IsType(TYPE_MONSTER) + return c:IsSetCard(0x30) and c:IsType(TYPE_MONSTER) and not c:IsForbidden() end function c93157004.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.IsExistingTarget(c93157004.eqfilter,tp,LOCATION_GRAVE,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectTarget(tp,c93157004.eqfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_EQUIP,g,1,0,0) end function c93157004.eqop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c93211836.lua b/script/c93211836.lua index 9165868d..9d1d724c 100644 --- a/script/c93211836.lua +++ b/script/c93211836.lua @@ -32,10 +32,10 @@ function c93211836.condition(e,tp,eg,ep,ev,re,r,rp) return c:GetSummonType()==SUMMON_TYPE_ADVANCE and e:GetLabel()==1 end function c93211836.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c93211836.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c93217231.lua b/script/c93217231.lua index f91780d4..6a1171b6 100644 --- a/script/c93217231.lua +++ b/script/c93217231.lua @@ -12,20 +12,17 @@ function c93217231.initial_effect(c) c:RegisterEffect(e1) end function c93217231.filter1(c) - return c:IsFaceup() and c:IsRace(RACE_REPTILE) and c:IsDestructable() -end -function c93217231.filter2(c) - return c:IsDestructable() + return c:IsFaceup() and c:IsRace(RACE_REPTILE) end function c93217231.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end if chk==0 then return Duel.IsExistingTarget(c93217231.filter1,tp,LOCATION_MZONE,0,1,nil) - and Duel.IsExistingTarget(c93217231.filter2,tp,0,LOCATION_ONFIELD,2,nil) end + and Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,2,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local g1=Duel.SelectTarget(tp,c93217231.filter1,tp,LOCATION_MZONE,0,1,1,nil) e:SetLabelObject(g1:GetFirst()) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,c93217231.filter2,tp,0,LOCATION_ONFIELD,2,2,nil) + local g2=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,2,2,nil) g1:Merge(g2) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,g1:GetCount(),0,0) end diff --git a/script/c93224848.lua b/script/c93224848.lua index 53f8c96c..892bdae1 100644 --- a/script/c93224848.lua +++ b/script/c93224848.lua @@ -12,8 +12,7 @@ function c93224848.initial_effect(c) c:RegisterEffect(e1) end function c93224848.filter(c) - local code=c:GetCode() - return c:IsFaceup() and (code==6007213 or code==32491822) + return c:IsFaceup() and c:IsCode(6007213,32491822) end function c93224848.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>=2 @@ -28,12 +27,14 @@ function c93224848.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c93224848.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and Duel.IsPlayerCanSpecialSummonMonster(tp,93224849,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,3,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,0) end function c93224848.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and Duel.IsPlayerCanSpecialSummonMonster(tp,93224849,0,0x4011,0,0,1,RACE_FIEND,ATTRIBUTE_DARK) then for i=1,3 do diff --git a/script/c93260132.lua b/script/c93260132.lua index 5540db33..9e50f8e9 100644 --- a/script/c93260132.lua +++ b/script/c93260132.lua @@ -10,7 +10,7 @@ function c93260132.initial_effect(c) c:RegisterEffect(e1) end function c93260132.filter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL) end function c93260132.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c93260132.filter,tp,0,LOCATION_ONFIELD,1,nil) end diff --git a/script/c93298460.lua b/script/c93298460.lua index 62adf7c0..e71a3800 100644 --- a/script/c93298460.lua +++ b/script/c93298460.lua @@ -34,6 +34,5 @@ function c93298460.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c93332803.lua b/script/c93332803.lua index 634ed41c..fba6cfe4 100644 --- a/script/c93332803.lua +++ b/script/c93332803.lua @@ -1,72 +1,72 @@ ---Dogoran, the Mad Flame Kaiju -function c93332803.initial_effect(c) - c:SetUniqueOnField(1,0,20000000) - --special summon rule - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetRange(LOCATION_HAND) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) - e1:SetTargetRange(POS_FACEUP_ATTACK,1) - e1:SetCondition(c93332803.spcon) - e1:SetOperation(c93332803.spop) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_SPSUMMON_PROC) - e2:SetRange(LOCATION_HAND) - e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) - e2:SetTargetRange(POS_FACEUP_ATTACK,0) - e2:SetCondition(c93332803.spcon2) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_IGNITION) - e3:SetRange(LOCATION_MZONE) - e3:SetCountLimit(1) - e3:SetCost(c93332803.descost) - e3:SetTarget(c93332803.destg) - e3:SetOperation(c93332803.desop) - c:RegisterEffect(e3) -end -function c93332803.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0xd3) -end -function c93332803.spcon(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>-1 - and Duel.IsExistingMatchingCard(Card.IsReleasable,tp,0,LOCATION_MZONE,1,nil) -end -function c93332803.spop(e,tp,eg,ep,ev,re,r,rp,c) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local g=Duel.SelectMatchingCard(tp,Card.IsReleasable,tp,0,LOCATION_MZONE,1,1,nil) - Duel.Release(g,REASON_COST) -end -function c93332803.spcon2(e,c) - if c==nil then return true end - local tp=c:GetControler() - return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c93332803.cfilter,tp,0,LOCATION_MZONE,1,nil) -end -function c93332803.descost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x37,3,REASON_COST) - and e:GetHandler():GetAttackAnnouncedCount()==0 end - Duel.RemoveCounter(tp,1,1,0x37,3,REASON_COST) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH) - e1:SetCode(EFFECT_CANNOT_ATTACK) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - e:GetHandler():RegisterEffect(e1) -end -function c93332803.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c93332803.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - Duel.Destroy(g,REASON_EFFECT) -end +--Dogoran, the Mad Flame Kaiju +function c93332803.initial_effect(c) + c:SetUniqueOnField(1,0,20000000,LOCATION_MZONE) + --special summon rule + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetRange(LOCATION_HAND) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) + e1:SetTargetRange(POS_FACEUP_ATTACK,1) + e1:SetCondition(c93332803.spcon) + e1:SetOperation(c93332803.spop) + c:RegisterEffect(e1) + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetRange(LOCATION_HAND) + e2:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_SPSUM_PARAM) + e2:SetTargetRange(POS_FACEUP_ATTACK,0) + e2:SetCondition(c93332803.spcon2) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_MZONE) + e3:SetCountLimit(1) + e3:SetCost(c93332803.descost) + e3:SetTarget(c93332803.destg) + e3:SetOperation(c93332803.desop) + c:RegisterEffect(e3) +end +function c93332803.cfilter(c) + return c:IsFaceup() and c:IsSetCard(0xd3) +end +function c93332803.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(1-tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(Card.IsReleasable,tp,0,LOCATION_MZONE,1,nil) +end +function c93332803.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local g=Duel.SelectMatchingCard(tp,Card.IsReleasable,tp,0,LOCATION_MZONE,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c93332803.spcon2(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c93332803.cfilter,tp,0,LOCATION_MZONE,1,nil) +end +function c93332803.descost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x37,3,REASON_COST) + and e:GetHandler():GetAttackAnnouncedCount()==0 end + Duel.RemoveCounter(tp,1,1,0x37,3,REASON_COST) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e:GetHandler():RegisterEffect(e1) +end +function c93332803.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c93332803.desop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.Destroy(g,REASON_EFFECT) +end diff --git a/script/c93379652.lua b/script/c93379652.lua index 329a441b..d6dcbb11 100644 --- a/script/c93379652.lua +++ b/script/c93379652.lua @@ -36,7 +36,7 @@ function c93379652.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c93379652.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c93379652.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c93379652.filter(chkc) end diff --git a/script/c9342162.lua b/script/c9342162.lua old mode 100755 new mode 100644 index a7807479..9c72ce22 --- a/script/c9342162.lua +++ b/script/c9342162.lua @@ -49,8 +49,11 @@ function c9342162.sstg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c9342162.ssop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c9342162.tgfilter(c) diff --git a/script/c93445074.lua b/script/c93445074.lua old mode 100755 new mode 100644 diff --git a/script/c93469007.lua b/script/c93469007.lua index d1eab917..4e131dd7 100644 --- a/script/c93469007.lua +++ b/script/c93469007.lua @@ -29,6 +29,7 @@ function c93469007.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c93469007.activate(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM) - Duel.Damage(1-tp,d,REASON_EFFECT) - Duel.Damage(tp,d,REASON_EFFECT) + Duel.Damage(1-tp,d,REASON_EFFECT,true) + Duel.Damage(tp,d,REASON_EFFECT,true) + Duel.RDComplete() end diff --git a/script/c93542102.lua b/script/c93542102.lua index 5ca2d16f..39ba5e41 100644 --- a/script/c93542102.lua +++ b/script/c93542102.lua @@ -26,7 +26,7 @@ function c93542102.cona(e,tp,eg,ep,ev,re,r,rp) return not e:GetHandler():IsDisabled() and e:GetHandler():IsAttackPos() end function c93542102.cond(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefencePos() + return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefensePos() end function c93542102.cfilter(c) return c:IsLevelBelow(4) and c:IsSetCard(0x26) and c:IsType(TYPE_MONSTER) diff --git a/script/c93554166.lua b/script/c93554166.lua index 629d508f..0e1f834d 100644 --- a/script/c93554166.lua +++ b/script/c93554166.lua @@ -11,7 +11,7 @@ function c93554166.initial_effect(c) c:RegisterEffect(e1) end function c93554166.filter(c) - return c:IsDestructable() and c:IsFacedown() + return c:IsFacedown() end function c93554166.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c93554166.filter(chkc) end diff --git a/script/c93599951.lua b/script/c93599951.lua index 9ea41981..81911f6c 100644 --- a/script/c93599951.lua +++ b/script/c93599951.lua @@ -25,7 +25,7 @@ end function c93599951.activate(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetLabelObject() if tc:IsRelateToEffect(e) and tc:IsFaceup() then - if tc:IsDefencePos() then + if tc:IsDefensePos() then Duel.ChangePosition(tc,POS_FACEUP_ATTACK) end Duel.ChangeAttacker(tc) diff --git a/script/c93600443.lua b/script/c93600443.lua old mode 100755 new mode 100644 diff --git a/script/c9365703.lua b/script/c9365703.lua index b08e85d5..1967c249 100644 --- a/script/c9365703.lua +++ b/script/c9365703.lua @@ -23,8 +23,7 @@ function c9365703.sumop(e,tp,eg,ep,ev,re,r,rp) e:GetHandler():RegisterFlagEffect(9365703,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1) end function c9365703.dacon(e,tp,eg,ep,ev,re,r,rp) - if Duel.CheckTiming(TIMING_BATTLE_START) or Duel.CheckTiming(TIMING_BATTLE_END) then return false end - return Duel.GetCurrentPhase()==PHASE_BATTLE and Duel.GetCurrentChain()==0 + return Duel.GetCurrentPhase()==PHASE_BATTLE_STEP and Duel.GetCurrentChain()==0 and e:GetHandler():GetFlagEffect(9365703)~=0 end function c9365703.daop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c93662626.lua b/script/c93662626.lua index 5ffe631b..707a9241 100644 --- a/script/c93662626.lua +++ b/script/c93662626.lua @@ -23,8 +23,7 @@ end function c93662626.thtg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() local pc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-c:GetSequence()) - if chk==0 then return c:IsDestructable() and pc:IsDestructable() - and Duel.IsExistingMatchingCard(c93662626.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end + if chk==0 then return Duel.IsExistingMatchingCard(c93662626.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end local g=Group.FromCards(c,pc) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) diff --git a/script/c93665266.lua b/script/c93665266.lua new file mode 100644 index 00000000..92894520 --- /dev/null +++ b/script/c93665266.lua @@ -0,0 +1,59 @@ +--水晶機巧－クオン +function c93665266.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(93665266,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMING_MAIN_END+TIMING_BATTLE_START+TIMING_BATTLE_END) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1,93665266) + e1:SetCondition(c93665266.sccon) + e1:SetTarget(c93665266.sctg) + e1:SetOperation(c93665266.scop) + c:RegisterEffect(e1) +end +function c93665266.sccon(e,tp,eg,ep,ev,re,r,rp) + local ph=Duel.GetCurrentPhase() + return not e:GetHandler():IsStatus(STATUS_CHAINING) and Duel.GetTurnPlayer()~=tp + and (ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2) +end +function c93665266.scfilter1(c,e,tp,mc) + local mg=Group.FromCards(c,mc) + return not c:IsType(TYPE_TUNER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.IsExistingMatchingCard(c93665266.scfilter2,tp,LOCATION_EXTRA,0,1,nil,mg) +end +function c93665266.scfilter2(c,mg) + return c:IsRace(RACE_MACHINE) and c:IsSynchroSummonable(nil,mg) +end +function c93665266.sctg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanSpecialSummonCount(tp,2) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c93665266.scfilter1,tp,LOCATION_HAND,0,1,nil,e,tp,e:GetHandler()) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA) +end +function c93665266.scop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + local c=e:GetHandler() + local g=Duel.SelectMatchingCard(tp,c93665266.scfilter1,tp,LOCATION_HAND,0,1,1,nil,e,tp,c) + local tc=g:GetFirst() + if not tc or not Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then return end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EFFECT_DISABLE_EFFECT) + tc:RegisterEffect(e2) + Duel.SpecialSummonComplete() + if not c:IsRelateToEffect(e) then return end + local mg=Group.FromCards(c,tc) + local g=Duel.GetMatchingGroup(c93665266.scfilter2,tp,LOCATION_EXTRA,0,nil,mg) + if g:GetCount()>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local sg=g:Select(tp,1,1,nil) + Duel.SynchroSummon(tp,sg:GetFirst(),nil,mg) + end +end diff --git a/script/c93671934.lua b/script/c93671934.lua index 86dbe2cc..aa087a8b 100644 --- a/script/c93671934.lua +++ b/script/c93671934.lua @@ -33,9 +33,10 @@ end function c93671934.damop(e,tp,eg,ep,ev,re,r,rp) local g=eg:Filter(c93671934.filter,nil) if g:IsExists(Card.IsControler,1,nil,tp) then - Duel.Damage(tp,1000,REASON_EFFECT) + Duel.Damage(tp,1000,REASON_EFFECT,true) end if g:IsExists(Card.IsControler,1,nil,1-tp) then - Duel.Damage(1-tp,1000,REASON_EFFECT) + Duel.Damage(1-tp,1000,REASON_EFFECT,true) end + Duel.RDComplete() end diff --git a/script/c93713837.lua b/script/c93713837.lua new file mode 100644 index 00000000..4ccb7907 --- /dev/null +++ b/script/c93713837.lua @@ -0,0 +1,96 @@ +--No.24 竜血鬼ドラギュラス +function c93713837.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,nil,6,2) + c:EnableReviveLimit() + --pos + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(93713837,0)) + e1:SetCategory(CATEGORY_POSITION) + e1:SetType(EFFECT_TYPE_QUICK_O) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetRange(LOCATION_MZONE) + e1:SetCountLimit(1) + e1:SetCost(c93713837.poscost) + e1:SetTarget(c93713837.postg) + e1:SetOperation(c93713837.posop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(93713837,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetCondition(c93713837.spcon) + e2:SetTarget(c93713837.sptg) + e2:SetOperation(c93713837.spop) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_REMOVE) + c:RegisterEffect(e3) + --to grave + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(93713837,2)) + e4:SetCategory(CATEGORY_TOGRAVE) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e4:SetCode(EVENT_FLIP) + e4:SetTarget(c93713837.tgtg) + e4:SetOperation(c93713837.tgop) + c:RegisterEffect(e4) +end +c93713837.xyz_number=24 +function c93713837.poscost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end + e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) +end +function c93713837.posfilter(c) + return c:IsFaceup() and c:GetSummonLocation()==LOCATION_EXTRA and c:IsCanTurnSet() +end +function c93713837.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and c93713837.posfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c93713837.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + local g=Duel.SelectTarget(tp,c93713837.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) +end +function c93713837.posop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) + end +end +function c93713837.spcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:GetReasonPlayer()~=tp and c:IsReason(REASON_EFFECT) + and c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) +end +function c93713837.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c93713837.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)~=0 then + Duel.ConfirmCards(1-tp,c) + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end +end +function c93713837.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + local g=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,1,0,0) +end +function c93713837.tgop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + if g:GetCount()>0 then + Duel.HintSelection(g) + Duel.SendtoGrave(g,REASON_EFFECT) + end +end diff --git a/script/c93715853.lua b/script/c93715853.lua index 4c22fdae..524f840b 100644 --- a/script/c93715853.lua +++ b/script/c93715853.lua @@ -15,7 +15,6 @@ function c93715853.spcon(e,tp,eg,ep,ev,re,r,rp) end function c93715853.filter(c,e,tp) return c:IsType(TYPE_NORMAL) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c93715853.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -26,7 +25,7 @@ function c93715853.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c93715853.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c93717133.lua b/script/c93717133.lua index 6ad6c6bc..1f088de3 100644 --- a/script/c93717133.lua +++ b/script/c93717133.lua @@ -13,7 +13,7 @@ function c93717133.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(93717133,0)) e2:SetCategory(CATEGORY_REMOVE) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetCode(EVENT_FREE_CHAIN) e2:SetProperty(EFFECT_FLAG_CARD_TARGET) e2:SetHintTiming(TIMING_BATTLE_PHASE) @@ -30,9 +30,10 @@ end function c93717133.spop(e,tp,eg,ep,ev,re,r,rp,c) local g=Duel.SelectReleaseGroup(c:GetControler(),Card.IsAttackAbove,2,2,nil,2000) Duel.Release(g,REASON_COST) + c:RegisterFlagEffect(0,RESET_EVENT+0x4fc0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(93717133,1)) end function c93717133.rmcon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE and not e:GetHandler():IsStatus(STATUS_CHAINING) + return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) and not e:GetHandler():IsStatus(STATUS_CHAINING) end function c93717133.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c93724592.lua b/script/c93724592.lua index c599dc6e..213aae41 100644 --- a/script/c93724592.lua +++ b/script/c93724592.lua @@ -5,15 +5,7 @@ function c93724592.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_MUST_ATTACK) c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c93724592.becon) - c:RegisterEffect(e2) - --to defence + --to defense local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(93724592,0)) e3:SetCategory(CATEGORY_POSITION) @@ -39,16 +31,13 @@ function c93724592.initial_effect(c) e5:SetOperation(c93724592.dirop) c:RegisterEffect(e5) end -function c93724592.becon(e) - return e:GetHandler():IsAttackable() -end function c93724592.poscon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsAttackPos() end function c93724592.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsFaceup() and c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end function c93724592.tgtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) diff --git a/script/c93747864.lua b/script/c93747864.lua index d0653490..88593594 100644 --- a/script/c93747864.lua +++ b/script/c93747864.lua @@ -10,7 +10,7 @@ function c93747864.initial_effect(c) c:RegisterEffect(e1) end function c93747864.filter(c) - return not c:IsPosition(POS_FACEUP_DEFENCE) + return not c:IsPosition(POS_FACEUP_DEFENSE) end function c93747864.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c93747864.filter,tp,LOCATION_MZONE,0,1,nil) end @@ -20,6 +20,6 @@ end function c93747864.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c93747864.filter,tp,LOCATION_MZONE,0,nil) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) end end diff --git a/script/c93749093.lua b/script/c93749093.lua new file mode 100644 index 00000000..7663f6df --- /dev/null +++ b/script/c93749093.lua @@ -0,0 +1,37 @@ +--マシュマカロン +function c93749093.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(93749093,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCode(EVENT_DESTROYED) + e1:SetCountLimit(1,93749093) + e1:SetCondition(c93749093.spcon) + e1:SetTarget(c93749093.sptg) + e1:SetOperation(c93749093.spop) + c:RegisterEffect(e1) +end +function c93749093.spcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 +end +function c93749093.spfilter(c,e,tp) + return c:IsCode(93749093) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c93749093.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c93749093.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK,0,1,e:GetHandler(),e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK) +end +function c93749093.spop(e,tp,eg,ep,ev,re,r,rp) + local ct=2 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end + ct=math.min(ct,Duel.GetLocationCount(tp,LOCATION_MZONE)) + if ct<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c93749093.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK,0,1,ct,e:GetHandler(),e,tp) + if g:GetCount()>0 and not g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c93775296.lua b/script/c93775296.lua index 6c21afb9..d971c226 100644 --- a/script/c93775296.lua +++ b/script/c93775296.lua @@ -20,18 +20,23 @@ function c93775296.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) and Duel.IsExistingTarget(c93775296.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end local ct=Duel.GetLocationCount(1-tp,LOCATION_MZONE) if ct>2 then ct=2 end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c93775296.filter,tp,LOCATION_GRAVE,0,1,ct,nil,e,tp) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) end function c93775296.activate(e,tp,eg,ep,ev,re,r,rp) + local ft=Duel.GetLocationCount(1-tp,LOCATION_MZONE) + if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()==0 then return end + if g:GetCount()>ft then return end local tc=g:GetFirst() while tc do local spos=0 - if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then spos=spos+POS_FACEUP_DEFENCE end - if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENCE end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false) then spos=spos+POS_FACEUP_DEFENSE end + if tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) then spos=spos+POS_FACEDOWN_DEFENSE end if spos~=0 then Duel.SpecialSummonStep(tc,0,tp,1-tp,false,false,spos) end tc=g:GetNext() end diff --git a/script/c93889755.lua b/script/c93889755.lua index 28a21263..55bb0a9a 100644 --- a/script/c93889755.lua +++ b/script/c93889755.lua @@ -14,7 +14,7 @@ function c93889755.initial_effect(c) end function c93889755.condition(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return bit.band(c:GetPreviousPosition(),POS_DEFENCE)~=0 and c:IsFaceup() and c:IsAttackPos() + return bit.band(c:GetPreviousPosition(),POS_DEFENSE)~=0 and c:IsFaceup() and c:IsAttackPos() end function c93889755.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsAbleToHand() end diff --git a/script/c93892436.lua b/script/c93892436.lua new file mode 100644 index 00000000..966cd63d --- /dev/null +++ b/script/c93892436.lua @@ -0,0 +1,51 @@ +--EMブランコブラ +function c93892436.initial_effect(c) + aux.EnablePendulumAttribute(c) + --deckdes + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(93892436,0)) + e1:SetCategory(CATEGORY_DECKDES) + e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_BATTLE_DAMAGE) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetCondition(c93892436.ddescon) + e1:SetTarget(c93892436.ddestg) + e1:SetOperation(c93892436.ddesop) + c:RegisterEffect(e1) + --direct attack + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_DIRECT_ATTACK) + c:RegisterEffect(e2) + --change position + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_POSITION) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e3:SetCode(EVENT_PHASE+PHASE_BATTLE) + e3:SetCountLimit(1) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c93892436.poscon) + e3:SetOperation(c93892436.posop) + c:RegisterEffect(e3) +end +function c93892436.ddescon(e,tp,eg,ep,ev,re,r,rp) + return ep~=tp and eg:GetFirst():IsControler(tp) +end +function c93892436.ddestg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDiscardDeck(1-tp,1) end + Duel.SetOperationInfo(0,CATEGORY_DECKDES,0,0,1-tp,1) +end +function c93892436.ddesop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.DiscardDeck(1-tp,1,REASON_EFFECT) +end +function c93892436.poscon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetAttackedCount()>0 +end +function c93892436.posop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsAttackPos() then + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) + end +end diff --git a/script/c93895605.lua b/script/c93895605.lua index bd050297..82de23d3 100644 --- a/script/c93895605.lua +++ b/script/c93895605.lua @@ -19,8 +19,8 @@ function c93895605.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() - if chk==0 then return a:IsOnField() and a:IsDestructable() and a:IsCanBeEffectTarget(e) - and d:IsOnField() and d:IsDestructable() and d:IsCanBeEffectTarget(e) end + if chk==0 then return a:IsOnField() and a:IsCanBeEffectTarget(e) + and d:IsOnField() and d:IsCanBeEffectTarget(e) end local g=Group.FromCards(a,d) Duel.SetTargetCard(g) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) diff --git a/script/c93900406.lua b/script/c93900406.lua index ecf9a7eb..4ef61433 100644 --- a/script/c93900406.lua +++ b/script/c93900406.lua @@ -49,9 +49,7 @@ function c93900406.ctltg(e,tp,eg,ep,ev,re,r,rp,chk) end function c93900406.ctlop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() and not Duel.GetControl(c,1-tp) then - if not c:IsImmuneToEffect(e) and c:IsAbleToChangeControler() then - Duel.Destroy(c,REASON_EFFECT) - end + if c:IsRelateToEffect(e) and c:IsFaceup() then + Duel.GetControl(c,1-tp) end end diff --git a/script/c9391354.lua b/script/c9391354.lua index 329e4a25..4344a2d2 100644 --- a/script/c9391354.lua +++ b/script/c9391354.lua @@ -21,14 +21,11 @@ function c9391354.descost(e,tp,eg,ep,ev,re,r,rp,chk) local g=Duel.SelectMatchingCard(tp,c9391354.cfilter,tp,LOCATION_SZONE,0,1,1,nil) Duel.SendtoGrave(g,REASON_COST) end -function c9391354.filter(c) - return c:IsDestructable() -end function c9391354.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c9391354.filter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c9391354.filter,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,c9391354.filter,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c9391354.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c93927067.lua b/script/c93927067.lua new file mode 100644 index 00000000..3c4a7b61 --- /dev/null +++ b/script/c93927067.lua @@ -0,0 +1,56 @@ +--カイザー・ブラッド・ヴォルス +function c93927067.initial_effect(c) + --spsummon proc + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(93927067,0)) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c93927067.spcon) + c:RegisterEffect(e1) + --atkup + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(93927067,1)) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_BATTLE_DESTROYING) + e2:SetCondition(aux.bdocon) + e2:SetOperation(c93927067.atkop) + c:RegisterEffect(e2) + --atkdown + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(93927067,2)) + e3:SetCategory(CATEGORY_ATKCHANGE) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e3:SetCode(EVENT_BATTLE_DESTROYED) + e3:SetOperation(c93927067.desop) + c:RegisterEffect(e3) +end +function c93927067.spcon(e,c) + if c==nil then return true end + return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0,nil)==0 + and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 +end +function c93927067.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and c:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(500) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + end +end +function c93927067.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=c:GetBattleTarget() + if not tc:IsRelateToBattle() or tc:IsFacedown() then return end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(-500) + tc:RegisterEffect(e1) +end diff --git a/script/c93966624.lua b/script/c93966624.lua new file mode 100644 index 00000000..b85bc5df --- /dev/null +++ b/script/c93966624.lua @@ -0,0 +1,41 @@ +--マジック・ストライダー +function c93966624.initial_effect(c) + --remove + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(93966624,0)) + e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_HAND) + e1:SetTarget(c93966624.rmtg) + e1:SetOperation(c93966624.rmop) + c:RegisterEffect(e1) +end +function c93966624.rmfilter(c) + return c:IsFaceup() and c:IsType(TYPE_SPELL) and c:IsAbleToRemove() +end +function c93966624.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return false end + if chk==0 then return Duel.IsExistingTarget(c93966624.rmfilter,tp,LOCATION_ONFIELD,0,1,nil) + and Duel.IsExistingTarget(c93966624.rmfilter,tp,0,LOCATION_ONFIELD,1,nil) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g1=Duel.SelectTarget(tp,c93966624.rmfilter,tp,LOCATION_ONFIELD,0,1,1,nil) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g2=Duel.SelectTarget(tp,c93966624.rmfilter,tp,0,LOCATION_ONFIELD,1,1,nil) + g1:Merge(g2) + Duel.SetOperationInfo(0,CATEGORY_REMOVE,g1,2,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c93966624.rmop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()>0 and Duel.Remove(g,POS_FACEUP,REASON_EFFECT)~=0 then + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + end + end +end diff --git a/script/c93983867.lua b/script/c93983867.lua index 19a20285..5facba5d 100644 --- a/script/c93983867.lua +++ b/script/c93983867.lua @@ -1,6 +1,5 @@ --トリック・ボックス function c93983867.initial_effect(c) - Duel.EnableGlobalFlag(GLOBALFLAG_DELAYED_QUICKEFFECT) --activate local e1=Effect.CreateEffect(c) e1:SetCategory(CATEGORY_CONTROL+CATEGORY_SPECIAL_SUMMON) @@ -34,7 +33,7 @@ end function c93983867.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if not tc:IsRelateToEffect(e) then return end - if Duel.GetControl(tc,tp,PHASE_END,1) then + if Duel.GetControl(tc,tp,PHASE_END,1)~=0 then Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c93983867.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) @@ -50,10 +49,6 @@ function c93983867.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) end - else - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end end end function c93983867.retop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c94081496.lua b/script/c94081496.lua index cda867a3..1b97c843 100644 --- a/script/c94081496.lua +++ b/script/c94081496.lua @@ -21,7 +21,7 @@ function c94081496.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) local tc=eg:GetFirst() if chkc then return chkc==tc end if chk==0 then return eg:GetCount()==1 and tc:IsFaceup() and tc:IsType(TYPE_SYNCHRO) and tc:IsOnField() - and tc:IsControler(1-tp) and tc:IsCanBeEffectTarget(e) and tc:IsDestructable() end + and tc:IsControler(1-tp) and tc:IsCanBeEffectTarget(e) end Duel.SetTargetCard(eg) Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) end diff --git a/script/c94092230.lua b/script/c94092230.lua index 665d140d..eb53e573 100644 --- a/script/c94092230.lua +++ b/script/c94092230.lua @@ -54,11 +54,11 @@ function c94092230.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.PayLPCost(tp,math.floor(Duel.GetLP(tp)/2)) end function c94092230.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c94092230.desop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler()) Duel.Destroy(g,REASON_EFFECT) end diff --git a/script/c94119480.lua b/script/c94119480.lua index 5a39304e..79be4adf 100644 --- a/script/c94119480.lua +++ b/script/c94119480.lua @@ -21,7 +21,7 @@ function c94119480.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c94119480.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c94119480.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c94119480.filter(chkc) end diff --git a/script/c94145021.lua b/script/c94145021.lua index 999927f6..238b767b 100644 --- a/script/c94145021.lua +++ b/script/c94145021.lua @@ -1,6 +1,5 @@ --ドロール＆ロックバード function c94145021.initial_effect(c) - Duel.EnableGlobalFlag(GLOBALFLAG_DELAYED_QUICKEFFECT) --disable local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(94145021,0)) diff --git a/script/c9418534.lua b/script/c9418534.lua old mode 100755 new mode 100644 diff --git a/script/c94203886.lua b/script/c94203886.lua index 261524d2..fbcbcf63 100644 --- a/script/c94203886.lua +++ b/script/c94203886.lua @@ -60,7 +60,7 @@ function c94203886.lvop(e,tp,eg,ep,ev,re,r,rp) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CHANGE_LEVEL) e1:SetValue(tc:GetLevel()) - e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) end end \ No newline at end of file diff --git a/script/c94212438.lua b/script/c94212438.lua index 417d13d5..28e17bb4 100644 --- a/script/c94212438.lua +++ b/script/c94212438.lua @@ -5,16 +5,19 @@ function c94212438.initial_effect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetCode(EVENT_FREE_CHAIN) e1:SetHintTiming(0,TIMING_END_PHASE) + e1:SetTarget(c94212438.target) c:RegisterEffect(e1) - -- + --place card local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(94212438,0)) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) e2:SetRange(LOCATION_SZONE) e2:SetCode(EVENT_PHASE+PHASE_END) e2:SetCountLimit(1) - e2:SetCondition(c94212438.condition) - e2:SetOperation(c94212438.operation) + e2:SetLabel(94212438) + e2:SetCondition(c94212438.plcon) + e2:SetTarget(c94212438.pltg) + e2:SetOperation(c94212438.plop) c:RegisterEffect(e2) --tograve local e3=Effect.CreateEffect(c) @@ -29,55 +32,63 @@ function c94212438.initial_effect(c) e4:SetCode(EVENT_LEAVE_FIELD) e4:SetOperation(c94212438.tgop) c:RegisterEffect(e4) + --win + local e5=Effect.CreateEffect(c) + e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) + e5:SetCode(EVENT_ADJUST) + e5:SetRange(LOCATION_SZONE) + e5:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e5:SetOperation(c94212438.winop) + c:RegisterEffect(e5) end -function c94212438.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp +function c94212438.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + if Duel.GetCurrentPhase()==PHASE_END and c94212438.plcon(e,tp,eg,ep,ev,re,r,rp) and Duel.SelectYesNo(tp,94) then + e:SetOperation(c94212438.plop) + e:GetHandler():RegisterFlagEffect(0,RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,65) + e:GetHandler():RegisterFlagEffect(94212439,RESET_PHASE+PHASE_END,0,1) + else + e:SetOperation(nil) + end +end +function c94212438.plcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp and e:GetHandler():GetFlagEffect(94212438)<4 end -function c94212438.cfilter1(c,code) - return c:IsFaceup() and c:IsCode(code) +function c94212438.pltg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetFlagEffect(94212439)==0 end end -function c94212438.operation(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end +function c94212438.plop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end - if not Duel.IsExistingMatchingCard(c94212438.cfilter1,tp,LOCATION_SZONE,0,1,nil,31893528) then - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(94212438,1)) - local g=Duel.SelectMatchingCard(tp,Card.IsCode,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,31893528) - if g:GetCount()>0 then - Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true) - end - elseif not Duel.IsExistingMatchingCard(c94212438.cfilter1,tp,LOCATION_SZONE,0,1,nil,67287533) then - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(94212438,1)) - local g=Duel.SelectMatchingCard(tp,Card.IsCode,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,67287533) - if g:GetCount()>0 then - Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true) - end - elseif not Duel.IsExistingMatchingCard(c94212438.cfilter1,tp,LOCATION_SZONE,0,1,nil,94772232) then - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(94212438,1)) - local g=Duel.SelectMatchingCard(tp,Card.IsCode,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,94772232) - if g:GetCount()>0 then - Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true) - end - elseif not Duel.IsExistingMatchingCard(c94212438.cfilter1,tp,LOCATION_SZONE,0,1,nil,30170981) then - Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(94212438,1)) - local g=Duel.SelectMatchingCard(tp,Card.IsCode,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,30170981) - if g:GetCount()>0 then - Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true) - Duel.Win(tp,0x15) - end + local ids={31893528,67287533,94772232,30170981} + local id=ids[c:GetFlagEffect(94212438)+1] + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(94212438,1)) + local g=Duel.SelectMatchingCard(tp,Card.IsCode,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,id) + if g:GetCount()>0 and Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_SZONE,POS_FACEUP,true) then + c:RegisterFlagEffect(94212438,RESET_EVENT+0x1fe0000,0,0) end end -function c94212438.cfilter2(c,tp) - local code=c:GetCode() - return (code==94212438 or code==31893528 or code==67287533 or code==94772232 or code==30170981) and c:IsControler(tp) +function c94212438.cfilter1(c,tp) + return c:IsControler(tp) and c:IsCode(94212438,31893528,67287533,94772232,30170981) end -function c94212438.cfilter3(c) - local code=c:GetCode() - return c:IsFaceup() and (code==94212438 or code==31893528 or code==67287533 or code==94772232 or code==30170981) +function c94212438.cfilter2(c) + return c:IsFaceup() and c:IsCode(94212438,31893528,67287533,94772232,30170981) end function c94212438.tgcon(e,tp,eg,ep,ev,re,r,rp) - return eg:IsExists(c94212438.cfilter2,1,nil,tp) + return eg:IsExists(c94212438.cfilter1,1,nil,tp) end function c94212438.tgop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c94212438.cfilter3,tp,LOCATION_SZONE,0,nil) + local g=Duel.GetMatchingGroup(c94212438.cfilter2,tp,LOCATION_ONFIELD,0,nil) Duel.SendtoGrave(g,REASON_EFFECT) end +function c94212438.cfilter3(c) + return c:IsFaceup() and c:IsCode(31893528,67287533,94772232,30170981) +end +function c94212438.winop(e,tp,eg,ep,ev,re,r,rp) + local WIN_REASON_DESTINY_BOARD=0x15 + local g=Duel.GetMatchingGroup(c94212438.cfilter3,tp,LOCATION_ONFIELD,0,e:GetHandler()) + if g:GetClassCount(Card.GetCode)==4 then + Duel.Win(tp,WIN_REASON_DESTINY_BOARD) + end +end diff --git a/script/c94215860.lua b/script/c94215860.lua index bc54e9bf..c3017909 100644 --- a/script/c94215860.lua +++ b/script/c94215860.lua @@ -1,5 +1,7 @@ --夜叉 function c94215860.initial_effect(c) + --spirit + aux.EnableSpiritReturn(c,EVENT_SUMMON_SUCCESS,EVENT_FLIP) --cannot special summon local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) @@ -7,16 +9,6 @@ function c94215860.initial_effect(c) e1:SetCode(EFFECT_SPSUMMON_CONDITION) e1:SetValue(aux.FALSE) c:RegisterEffect(e1) - --summon,flip - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e2:SetCode(EVENT_SUMMON_SUCCESS) - e2:SetOperation(c94215860.retreg) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EVENT_FLIP) - c:RegisterEffect(e3) --return local e4=Effect.CreateEffect(c) e4:SetDescription(aux.Stringid(94215860,0)) @@ -47,39 +39,3 @@ function c94215860.sretop(e,tp,eg,ep,ev,re,r,rp) Duel.SendtoHand(tc,nil,REASON_EFFECT) end end -function c94215860.retreg(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - --to hand - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e1:SetDescription(aux.Stringid(94215860,0)) - e1:SetCategory(CATEGORY_TOHAND) - e1:SetCode(EVENT_PHASE+PHASE_END) - e1:SetRange(LOCATION_MZONE) - e1:SetCountLimit(1) - e1:SetReset(RESET_EVENT+0x1ee0000+RESET_PHASE+PHASE_END) - e1:SetCondition(c94215860.retcon) - e1:SetTarget(c94215860.rettg) - e1:SetOperation(c94215860.retop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - c:RegisterEffect(e2) -end -function c94215860.retcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsHasEffect(EFFECT_SPIRIT_DONOT_RETURN) then return false end - if e:IsHasType(EFFECT_TYPE_TRIGGER_F) then - return not c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) - else return c:IsHasEffect(EFFECT_SPIRIT_MAYNOT_RETURN) end -end -function c94215860.rettg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0) -end -function c94215860.retop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.SendtoHand(c,nil,REASON_EFFECT) - end -end diff --git a/script/c94243005.lua b/script/c94243005.lua index 994f34ac..5e232303 100644 --- a/script/c94243005.lua +++ b/script/c94243005.lua @@ -1,5 +1,6 @@ --混沌空間 function c94243005.initial_effect(c) + c:EnableCounterPermit(0x13) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -41,7 +42,7 @@ end function c94243005.ctop(e,tp,eg,ep,ev,re,r,rp) local ct=eg:FilterCount(c94243005.ctfilter,nil) if ct>0 then - e:GetHandler():AddCounter(0x13+COUNTER_NEED_ENABLE,ct) + e:GetHandler():AddCounter(0x13,ct) end end function c94243005.spfilter(c,e,tp) diff --git a/script/c94256039.lua b/script/c94256039.lua index cec67a5a..a6acc28b 100644 --- a/script/c94256039.lua +++ b/script/c94256039.lua @@ -1,6 +1,6 @@ --バベル・タワー function c94256039.initial_effect(c) - c:EnableCounterPermit(0x3001) + c:EnableCounterPermit(0x1) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -25,18 +25,27 @@ function c94256039.initial_effect(c) e4:SetDescription(aux.Stringid(94256039,0)) e4:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE) e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) - e4:SetCode(94256039) + e4:SetCode(EVENT_CUSTOM+94256039) e4:SetTarget(c94256039.damtg) e4:SetOperation(c94256039.damop) c:RegisterEffect(e4) + -- + local e5=Effect.CreateEffect(c) + e5:SetCategory(CATEGORY_DESTROY) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e5:SetCode(EVENT_ADD_COUNTER+0x1) + e5:SetCondition(c94256039.descon) + e5:SetTarget(c94256039.destg) + e5:SetOperation(c94256039.desop) + c:RegisterEffect(e5) end function c94256039.acop(e,tp,eg,ep,ev,re,r,rp) local p=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_PLAYER) local c=e:GetHandler() if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and c:GetFlagEffect(1)>0 then - c:AddCounter(0x3001,1) - if c:GetCounter(0x3001)==4 then - Duel.RaiseSingleEvent(c,94256039,re,0,0,p,0) + c:AddCounter(0x1,1) + if c:GetCounter(0x1)==4 then + Duel.RaiseSingleEvent(c,EVENT_CUSTOM+94256039,re,0,0,p,0) end end end @@ -51,3 +60,14 @@ function c94256039.damop(e,tp,eg,ep,ev,re,r,rp) Duel.Damage(ep,3000,REASON_EFFECT) end end +function c94256039.descon(e,tp,eg,ep,ev,re,r,rp) + return re:GetHandler()~=e:GetHandler() and e:GetHandler():GetCounter(0x1)>=4 +end +function c94256039.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0) +end +function c94256039.desop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Destroy(e:GetHandler(),REASON_EFFECT) +end diff --git a/script/c94283662.lua b/script/c94283662.lua index 87839648..e8a0149a 100644 --- a/script/c94283662.lua +++ b/script/c94283662.lua @@ -61,6 +61,5 @@ function c94283662.thop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c94303232.lua b/script/c94303232.lua index 3888b7a4..2c153d78 100644 --- a/script/c94303232.lua +++ b/script/c94303232.lua @@ -39,7 +39,7 @@ end function c94303232.checkop(e,tp,eg,ep,ev,re,r,rp) local tc=eg:GetFirst() while tc do - if tc:IsPreviousPosition(POS_FACEUP_ATTACK) and tc:IsPosition(POS_FACEUP_DEFENCE) then + if tc:IsPreviousPosition(POS_FACEUP_ATTACK) and tc:IsPosition(POS_FACEUP_DEFENSE) then tc:RegisterFlagEffect(94303232,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) end tc=eg:GetNext() diff --git a/script/c94331452.lua b/script/c94331452.lua index da250a7f..01eb3988 100644 --- a/script/c94331452.lua +++ b/script/c94331452.lua @@ -31,18 +31,18 @@ function c94331452.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c94331452.filter(chkc) end if chk==0 then return Duel.IsExistingTarget(c94331452.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c94331452.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,c94331452.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) Duel.Hint(HINT_SELECTMSG,tp,562) - local rc=Duel.AnnounceAttribute(tp,1,0xffff) + local rc=Duel.AnnounceAttribute(tp,1,0xff-g:GetFirst():GetAttribute()) e:SetLabel(rc) end function c94331452.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c94331452.filter(chkc) end if chk==0 then return Duel.IsExistingTarget(c94331452.filter,tp,LOCATION_MZONE,0,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) - Duel.SelectTarget(tp,c94331452.filter,tp,LOCATION_MZONE,0,1,1,nil) + local g=Duel.SelectTarget(tp,c94331452.filter,tp,LOCATION_MZONE,0,1,1,nil) Duel.Hint(HINT_SELECTMSG,tp,562) - local rc=Duel.AnnounceAttribute(tp,1,0xffff) + local rc=Duel.AnnounceAttribute(tp,1,0xff-g:GetFirst():GetAttribute()) e:SetLabel(rc) end function c94331452.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c94344242.lua b/script/c94344242.lua new file mode 100644 index 00000000..86839fc7 --- /dev/null +++ b/script/c94344242.lua @@ -0,0 +1,96 @@ +--電子光虫－ウェブソルダー +function c94344242.initial_effect(c) + --xyzlimit + local e0=Effect.CreateEffect(c) + e0:SetType(EFFECT_TYPE_SINGLE) + e0:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL) + e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e0:SetValue(c94344242.xyzlimit) + c:RegisterEffect(e0) + --Position+Summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(94344242,0)) + e1:SetCategory(CATEGORY_POSITION+CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCountLimit(1) + e1:SetTarget(c94344242.sptg) + e1:SetOperation(c94344242.spop) + c:RegisterEffect(e1) + --effect gain + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_BE_MATERIAL) + e2:SetCondition(c94344242.efcon) + e2:SetOperation(c94344242.efop) + c:RegisterEffect(e2) +end +function c94344242.xyzlimit(e,c) + if not c then return false end + return not c:IsRace(RACE_INSECT) +end +function c94344242.spfilter(c,e,tp) + return c:GetLevel()==3 and c:IsRace(RACE_INSECT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c94344242.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsPosition(POS_FACEUP_ATTACK) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(Card.IsPosition,tp,LOCATION_MZONE,0,1,nil,POS_FACEUP_ATTACK) + and Duel.IsExistingMatchingCard(c94344242.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUPATTACK) + local g=Duel.SelectTarget(tp,Card.IsPosition,tp,LOCATION_MZONE,0,1,1,nil,POS_FACEUP_ATTACK) + Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) +end +function c94344242.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsPosition(POS_FACEUP_ATTACK) and Duel.ChangePosition(tc,POS_FACEUP_DEFENSE)~=0 then + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c94344242.spfilter,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_DEFENSE) + end +end +function c94344242.efcon(e,tp,eg,ep,ev,re,r,rp) + return r==REASON_XYZ +end +function c94344242.efop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local rc=c:GetReasonCard() + local e1=Effect.CreateEffect(rc) + e1:SetDescription(aux.Stringid(94344242,1)) + e1:SetCategory(CATEGORY_DEFCHANGE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c94344242.defcon) + e1:SetOperation(c94344242.defop) + e1:SetReset(RESET_EVENT+0x1fe0000) + rc:RegisterEffect(e1,true) + if not rc:IsType(TYPE_EFFECT) then + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_ADD_TYPE) + e2:SetValue(TYPE_EFFECT) + e2:SetReset(RESET_EVENT+0x1fe0000) + rc:RegisterEffect(e2,true) + end +end +function c94344242.defcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ +end +function c94344242.defop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) + local tc=g:GetFirst() + while tc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_DEFENSE_FINAL) + e1:SetValue(0) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + tc=g:GetNext() + end +end diff --git a/script/c94380860.lua b/script/c94380860.lua index eabce36f..7bdc21f3 100644 --- a/script/c94380860.lua +++ b/script/c94380860.lua @@ -24,7 +24,7 @@ function c94380860.cost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c94380860.filter(c) - return c:IsPosition(POS_FACEUP_ATTACK) and c:GetAttack()~=c:GetBaseAttack() and c:IsDestructable() + return c:IsPosition(POS_FACEUP_ATTACK) and c:GetAttack()~=c:GetBaseAttack() end function c94380860.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c94380860.filter(chkc) end diff --git a/script/c94381039.lua b/script/c94381039.lua index f8dcde92..9fbdf8c9 100644 --- a/script/c94381039.lua +++ b/script/c94381039.lua @@ -36,10 +36,10 @@ function c94381039.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardDeck(tp,4,REASON_COST) end function c94381039.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,2,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,2,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c94381039.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c94388754.lua b/script/c94388754.lua new file mode 100644 index 00000000..12befc2b --- /dev/null +++ b/script/c94388754.lua @@ -0,0 +1,59 @@ +--花札衛－萩に猪－ +function c94388754.initial_effect(c) + c:EnableReviveLimit() + --special summon rule + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_HAND) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetCondition(c94388754.hspcon) + e1:SetOperation(c94388754.hspop) + c:RegisterEffect(e1) + --draw + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(94388754,0)) + e2:SetCategory(CATEGORY_DRAW+CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetTarget(c94388754.target) + e2:SetOperation(c94388754.operation) + c:RegisterEffect(e2) +end +function c94388754.hspfilter(c) + return c:IsSetCard(0xe6) and not c:IsCode(94388754) +end +function c94388754.hspcon(e,c) + if c==nil then return true end + return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>-1 + and Duel.CheckReleaseGroup(c:GetControler(),c94388754.hspfilter,1,nil) +end +function c94388754.hspop(e,tp,eg,ep,ev,re,r,rp,c) + local g=Duel.SelectReleaseGroup(c:GetControler(),c94388754.hspfilter,1,1,nil) + Duel.Release(g,REASON_COST) +end +function c94388754.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetTargetPlayer(tp) + Duel.SetTargetParam(1) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c94388754.operation(e,tp,eg,ep,ev,re,r,rp) + local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) + if Duel.Draw(p,d,REASON_EFFECT)~=0 then + local tc=Duel.GetOperatedGroup():GetFirst() + Duel.ConfirmCards(1-tp,tc) + if tc:IsType(TYPE_MONSTER) and tc:IsSetCard(0xe6) then + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(94388754,1)) then + Duel.BreakEffect() + local sg=g:Select(tp,1,1,nil) + Duel.Destroy(sg,REASON_EFFECT) + end + else + Duel.BreakEffect() + Duel.SendtoGrave(tc,REASON_EFFECT) + end + Duel.ShuffleHand(tp) + end +end diff --git a/script/c94432298.lua b/script/c94432298.lua index 5064d498..9ec1ca3e 100644 --- a/script/c94432298.lua +++ b/script/c94432298.lua @@ -34,7 +34,7 @@ function c94432298.tgtg1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_STANDBY and Duel.IsExistingMatchingCard(c94432298.filter,tp,LOCATION_DECK,0,1,nil) - and Duel.SelectYesNo(tp,aux.Stringid(94432298,0)) then + and Duel.SelectYesNo(tp,94) then e:SetCategory(CATEGORY_TOGRAVE) e:GetHandler():RegisterFlagEffect(94432298,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) e:GetHandler():RegisterFlagEffect(0,RESET_CHAIN,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(94432298,1)) @@ -51,7 +51,7 @@ function c94432298.tgcost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RegisterFlagEffect(94432298,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) end function c94432298.filter(c) - return c:IsSetCard(0xbb) and c:IsAbleToGrave() + return c:IsSetCard(0xbb) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() end function c94432298.tgtg2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c94432298.filter,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c94454495.lua b/script/c94454495.lua old mode 100755 new mode 100644 index f2035aa9..cd762455 --- a/script/c94454495.lua +++ b/script/c94454495.lua @@ -25,7 +25,7 @@ function c94454495.initial_effect(c) c:RegisterEffect(e3) end function c94454495.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c94454495.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c94454495.desfilter(chkc) end diff --git a/script/c94484482.lua b/script/c94484482.lua index cf63f142..a3892953 100644 --- a/script/c94484482.lua +++ b/script/c94484482.lua @@ -39,7 +39,7 @@ function c94484482.activate(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c94484482.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp) local tc=g:GetFirst() - if tc and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE)~=0 then + if tc and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)~=0 then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_PHASE+PHASE_END) diff --git a/script/c94515289.lua b/script/c94515289.lua index bac4b35e..eca02b3c 100644 --- a/script/c94515289.lua +++ b/script/c94515289.lua @@ -50,6 +50,6 @@ end function c94515289.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0 then return end if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c94535485.lua b/script/c94535485.lua new file mode 100644 index 00000000..0949250d --- /dev/null +++ b/script/c94535485.lua @@ -0,0 +1,29 @@ +--手をつなぐ魔人 +function c94535485.initial_effect(c) + --atk limit + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET) + e1:SetRange(LOCATION_MZONE) + e1:SetTargetRange(0,LOCATION_MZONE) + e1:SetValue(c94535485.atlimit) + c:RegisterEffect(e1) + --defup + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetRange(LOCATION_MZONE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) + e2:SetValue(c94535485.defval) + c:RegisterEffect(e2) +end +function c94535485.atlimit(e,c) + return c~=e:GetHandler() +end +function c94535485.deffilter(c) + return c:GetBaseDefense()>=0 and c:IsPosition(POS_FACEUP_DEFENSE) +end +function c94535485.defval(e,c) + local g=Duel.GetMatchingGroup(c94535485.deffilter,c:GetControler(),LOCATION_MZONE,0,c) + return g:GetSum(Card.GetBaseDefense) +end diff --git a/script/c94538053.lua b/script/c94538053.lua index 573c9cae..b3b2fa2f 100644 --- a/script/c94538053.lua +++ b/script/c94538053.lua @@ -37,8 +37,8 @@ function c94538053.atkop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_BASE_DEFENCE) - e2:SetValue(c:GetBaseDefence()/2) + e2:SetCode(EFFECT_SET_BASE_DEFENSE) + e2:SetValue(c:GetBaseDefense()/2) c:RegisterEffect(e2) local e3=e1:Clone() e3:SetCode(EFFECT_CHANGE_LEVEL) diff --git a/script/c94561645.lua b/script/c94561645.lua new file mode 100644 index 00000000..12324f27 --- /dev/null +++ b/script/c94561645.lua @@ -0,0 +1,28 @@ +--カウンター・ゲート +function c94561645.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DRAW+CATEGORY_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetCondition(c94561645.condition) + e1:SetTarget(c94561645.target) + e1:SetOperation(c94561645.activate) + c:RegisterEffect(e1) +end +function c94561645.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetAttacker():IsControler(1-tp) and Duel.GetAttackTarget()==nil +end +function c94561645.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) +end +function c94561645.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.NegateAttack() and Duel.Draw(tp,1,REASON_EFFECT)~=0 then + local tc=Duel.GetOperatedGroup():GetFirst() + if tc:IsType(TYPE_MONSTER) and tc:IsSummonable(true,nil) + and Duel.SelectYesNo(tp,aux.Stringid(94561645,0)) then + Duel.Summon(tp,tc,true,nil) + end + end +end diff --git a/script/c94585852.lua b/script/c94585852.lua index eb4f0cd3..8a2cb9f6 100644 --- a/script/c94585852.lua +++ b/script/c94585852.lua @@ -26,7 +26,7 @@ function c94585852.initial_effect(c) e4:SetCategory(CATEGORY_TOHAND) e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e4:SetProperty(EFFECT_FLAG_EVENT_PLAYER+EFFECT_FLAG_DAMAGE_STEP) - e4:SetCode(94585852) + e4:SetCode(EVENT_CUSTOM+94585852) e4:SetTarget(c94585852.target) e4:SetOperation(c94585852.operation) c:RegisterEffect(e4) @@ -53,8 +53,8 @@ function c94585852.regop(e,tp,eg,ep,ev,re,r,rp) end tc=eg:GetNext() end - if lv1>0 then Duel.RaiseSingleEvent(e:GetHandler(),94585852,e,0,0,0,lv1) end - if lv2>0 then Duel.RaiseSingleEvent(e:GetHandler(),94585852,e,0,1,1,lv2) end + if lv1>0 then Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+94585852,e,0,0,0,lv1) end + if lv2>0 then Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+94585852,e,0,1,1,lv2) end end function c94585852.filter(c,lv) return c:GetLevel()=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c94634433.sctg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,nil) end diff --git a/script/c94656263.lua b/script/c94656263.lua index bceb8dcc..0edade90 100644 --- a/script/c94656263.lua +++ b/script/c94656263.lua @@ -22,7 +22,7 @@ function c94656263.initial_effect(c) end function c94656263.spcon(e,tp,eg,ep,ev,re,r,rp) local ec=eg:GetFirst() - return ec:IsControler(tp) and ec:GetLevel()==4 + return ep==tp and ec:GetLevel()==4 end function c94656263.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -31,8 +31,11 @@ function c94656263.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c94656263.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then c:CompleteProcedure() + elseif Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c94664694.lua b/script/c94664694.lua index 0ecc59ee..a06e12bb 100644 --- a/script/c94664694.lua +++ b/script/c94664694.lua @@ -22,6 +22,6 @@ end function c94664694.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsPosition(POS_FACEUP_ATTACK) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE) end end diff --git a/script/c94667532.lua b/script/c94667532.lua index b461070a..aedafdc8 100644 --- a/script/c94667532.lua +++ b/script/c94667532.lua @@ -27,8 +27,9 @@ end function c94667532.damop(e,tp,eg,ep,ev,re,r,rp) local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM) if p==PLAYER_ALL then - Duel.Damage(0,d,REASON_EFFECT) - Duel.Damage(1,d,REASON_EFFECT) + Duel.Damage(0,d,REASON_EFFECT,true) + Duel.Damage(1,d,REASON_EFFECT,true) + Duel.RDComplete() else Duel.Damage(p,d,REASON_EFFECT) end diff --git a/script/c94689206.lua b/script/c94689206.lua new file mode 100644 index 00000000..daddf78f --- /dev/null +++ b/script/c94689206.lua @@ -0,0 +1,77 @@ +--ブロックドラゴン +function c94689206.initial_effect(c) + c:EnableReviveLimit() + --special summon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_SPSUMMON_PROC) + e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetRange(LOCATION_HAND+LOCATION_GRAVE) + e2:SetCondition(c94689206.spcon) + e2:SetOperation(c94689206.spop) + c:RegisterEffect(e2) + --indes + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_INDESTRUCTABLE) + e3:SetRange(LOCATION_MZONE) + e3:SetTargetRange(LOCATION_MZONE,0) + e3:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_ROCK)) + e3:SetValue(c94689206.indesval) + c:RegisterEffect(e3) + --to hand + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(94689206,0)) + e4:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetProperty(EFFECT_FLAG_DELAY) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetCountLimit(1,94689206) + e4:SetCondition(c94689206.thcon) + e4:SetTarget(c94689206.thtg) + e4:SetOperation(c94689206.thop) + c:RegisterEffect(e4) +end +function c94689206.spfilter(c) + return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsAbleToRemoveAsCost() +end +function c94689206.spcon(e,c) + if c==nil then return true end + local tp=c:GetControler() + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c94689206.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,3,c) +end +function c94689206.spop(e,tp,eg,ep,ev,re,r,rp,c) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c94689206.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,3,3,c) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c94689206.indesval(e,re,r,rp) + return bit.band(r,REASON_RULE+REASON_BATTLE)==0 +end +function c94689206.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) +end +function c94689206.thfilter(c) + return c:IsRace(RACE_ROCK) and c:IsAbleToHand() +end +function c94689206.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + local g=Duel.GetMatchingGroup(c94689206.thfilter,tp,LOCATION_DECK,0,nil) + if chk==0 then return g:CheckWithSumEqual(Card.GetLevel,8,1,3) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c94689206.thop(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetMatchingGroup(c94689206.thfilter,tp,LOCATION_DECK,0,nil) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local sg=g:SelectWithSumEqual(tp,Card.GetLevel,8,1,3) + if sg:GetCount()>0 then + Duel.SendtoHand(sg,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,sg) + end +end diff --git a/script/c94689635.lua b/script/c94689635.lua index a0a6122d..702acf9b 100644 --- a/script/c94689635.lua +++ b/script/c94689635.lua @@ -4,7 +4,7 @@ function c94689635.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(94689635,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetRange(LOCATION_HAND) diff --git a/script/c94693857.lua b/script/c94693857.lua index dfd87fe1..1a6c22f7 100644 --- a/script/c94693857.lua +++ b/script/c94693857.lua @@ -9,7 +9,7 @@ function c94693857.initial_effect(c) e1:SetValue(c94693857.atkval) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) --spsummon local e3=Effect.CreateEffect(c) diff --git a/script/c94716515.lua b/script/c94716515.lua index 69d46262..6befb22e 100644 --- a/script/c94716515.lua +++ b/script/c94716515.lua @@ -10,7 +10,7 @@ function c94716515.initial_effect(c) c:RegisterEffect(e1) end function c94716515.filter(c) - return c:IsRace(RACE_INSECT) and c:IsFaceup() and c:IsDestructable() + return c:IsRace(RACE_INSECT) and c:IsFaceup() end function c94716515.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c94716515.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c94739788.lua b/script/c94739788.lua old mode 100755 new mode 100644 diff --git a/script/c94772232.lua b/script/c94772232.lua index 94bb0a92..d71fcdaf 100644 --- a/script/c94772232.lua +++ b/script/c94772232.lua @@ -6,6 +6,10 @@ function c94772232.initial_effect(c) c:RegisterEffect(e1) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e2:SetCode(EFFECT_SPSUMMON_COST) + e2:SetCost(c94772232.spcost) c:RegisterEffect(e2) end +function c94772232.spcost(e,c,tp,sumtype) + return sumtype==SUMMON_TYPE_SPECIAL+181 +end diff --git a/script/c94773007.lua b/script/c94773007.lua index 8c0066ae..71ab18a8 100644 --- a/script/c94773007.lua +++ b/script/c94773007.lua @@ -18,6 +18,6 @@ function c94773007.atop(e,tp,eg,ep,ev,re,r,rp) local opt=Duel.SelectOption(tp,60,61) local coin=Duel.TossCoin(tp,1) if opt==coin then - Duel.SetLP(tp,Duel.GetLP(tp)/2) + Duel.SetLP(tp,math.ceil(Duel.GetLP(tp)/2)) end end diff --git a/script/c94801854.lua b/script/c94801854.lua new file mode 100644 index 00000000..2cef5e48 --- /dev/null +++ b/script/c94801854.lua @@ -0,0 +1,73 @@ +--不知火の隠者 +function c94801854.initial_effect(c) + --special summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(94801854,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetCountLimit(1,94801854) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_MZONE) + e1:SetCost(c94801854.cost) + e1:SetTarget(c94801854.target) + e1:SetOperation(c94801854.operation) + c:RegisterEffect(e1) + --special summon(remove) + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(94801854,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + 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,94801855) + e2:SetTarget(c94801854.sptg) + e2:SetOperation(c94801854.spop) + c:RegisterEffect(e2) +end +function c94801854.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsRace,1,nil,RACE_ZOMBIE) end + local sg=Duel.SelectReleaseGroup(tp,Card.IsRace,1,1,nil,RACE_ZOMBIE) + Duel.Release(sg,REASON_COST) +end +function c94801854.spfilter1(c,e,tp) + return c:IsRace(RACE_ZOMBIE) and c:IsType(TYPE_TUNER) and c:GetDefense()==0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c94801854.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 + and Duel.IsExistingMatchingCard(c94801854.spfilter1,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c94801854.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c94801854.spfilter1,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end +function c94801854.spfilter2(c,e,tp) + return c:IsFaceup() and c:IsSetCard(0xd9) and not c:IsCode(94801854) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c94801854.cfilter(c) + return c:IsFaceup() and c:IsCode(40005099) +end +function c94801854.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c94801854.spfilter2(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c94801854.spfilter2,tp,LOCATION_REMOVED,0,1,nil,e,tp) end + local ct=math.min(2,Duel.GetLocationCount(tp,LOCATION_MZONE)) + if Duel.IsPlayerAffectedByEffect(tp,59822133) or not Duel.IsExistingMatchingCard(c94801854.cfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) then ct=1 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c94801854.spfilter2,tp,LOCATION_REMOVED,0,1,ct,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) +end +function c94801854.spop(e,tp,eg,ep,ev,re,r,rp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return end + local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if g:GetCount()>ft then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + g=g:Select(tp,ft,ft,nil) + end + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) +end diff --git a/script/c94804055.lua b/script/c94804055.lua old mode 100755 new mode 100644 index d4bf4317..6e02136d --- a/script/c94804055.lua +++ b/script/c94804055.lua @@ -79,9 +79,9 @@ function c94804055.mtcon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetTurnPlayer()==tp end function c94804055.mtop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLP(tp)>500 and Duel.SelectYesNo(tp,aux.Stringid(94804055,2)) then + if Duel.CheckLPCost(tp,500) and Duel.SelectYesNo(tp,aux.Stringid(94804055,2)) then Duel.PayLPCost(tp,500) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end diff --git a/script/c94807487.lua b/script/c94807487.lua index c452e848..38b95891 100644 --- a/script/c94807487.lua +++ b/script/c94807487.lua @@ -1,5 +1,6 @@ --ホープ剣スラッシュ function c94807487.initial_effect(c) + c:EnableCounterPermit(0x31) --Activate local e1=Effect.CreateEffect(c) e1:SetCategory(CATEGORY_EQUIP) @@ -48,10 +49,10 @@ function c94807487.initial_effect(c) c:RegisterEffect(e6) end function c94807487.eqlimit(e,c) - return c:IsSetCard(0x7f) + return c:IsSetCard(0x107f) end function c94807487.filter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) + return c:IsFaceup() and c:IsSetCard(0x107f) end function c94807487.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c94807487.filter(chkc) end @@ -68,7 +69,7 @@ function c94807487.operation(e,tp,eg,ep,ev,re,r,rp) end end function c94807487.regop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(0x31+COUNTER_NEED_ENABLE,1) + e:GetHandler():AddCounter(0x31,1) end function c94807487.value(e,c) return e:GetHandler():GetCounter(0x31)*500 diff --git a/script/c94820406.lua b/script/c94820406.lua index 7e8179fe..b6f5d357 100644 --- a/script/c94820406.lua +++ b/script/c94820406.lua @@ -71,14 +71,5 @@ function c94820406.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e1:SetValue(aux.tgoval) tc:RegisterEffect(e1) - else - local cg1=Duel.GetFieldGroup(tp,LOCATION_HAND+LOCATION_MZONE,0) - local cg2=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0) - if cg1:GetCount()>1 and cg2:IsExists(Card.IsFacedown,1,nil) - and Duel.IsPlayerCanSpecialSummon(tp) and not Duel.IsPlayerAffectedByEffect(tp,27581098) then - Duel.ConfirmCards(1-tp,cg1) - Duel.ConfirmCards(1-tp,cg2) - Duel.ShuffleHand(tp) - end end end diff --git a/script/c9485511.lua b/script/c9485511.lua old mode 100755 new mode 100644 diff --git a/script/c94861297.lua b/script/c94861297.lua new file mode 100644 index 00000000..e602578b --- /dev/null +++ b/script/c94861297.lua @@ -0,0 +1,32 @@ +--検問 +function c94861297.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_HANDES) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_ATTACK_ANNOUNCE) + e1:SetCondition(c94861297.condition) + e1:SetTarget(c94861297.target) + e1:SetOperation(c94861297.activate) + c:RegisterEffect(e1) +end +function c94861297.condition(e,tp,eg,ep,ev,re,r,rp) + return tp~=Duel.GetTurnPlayer() +end +function c94861297.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)>0 end +end +function c94861297.activate(e,tp,eg,ep,ev,re,r,rp) + local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND) + if g:GetCount()>0 then + Duel.ConfirmCards(tp,g) + local tg=g:Filter(Card.IsType,nil,TYPE_MONSTER) + if tg:GetCount()>0 and Duel.NegateAttack() then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD) + local hg=tg:Select(tp,1,1,nil) + Duel.SendtoGrave(hg,REASON_EFFECT+REASON_DISCARD) + end + Duel.ShuffleHand(1-tp) + end +end diff --git a/script/c94919024.lua b/script/c94919024.lua new file mode 100644 index 00000000..5027a782 --- /dev/null +++ b/script/c94919024.lua @@ -0,0 +1,74 @@ +--月光紅狐 +function c94919024.initial_effect(c) + --ATK to 0 + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(94919024,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_TO_GRAVE) + e1:SetCondition(c94919024.atkcon) + e1:SetTarget(c94919024.atktg) + e1:SetOperation(c94919024.atkop) + c:RegisterEffect(e1) + --Negate + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(94919024,1)) + e2:SetCategory(CATEGORY_NEGATE+CATEGORY_RECOVER) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_CHAINING) + e2:SetRange(LOCATION_GRAVE) + e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) + e2:SetCondition(c94919024.condition) + e2:SetCost(c94919024.cost) + e2:SetTarget(c94919024.target) + e2:SetOperation(c94919024.operation) + c:RegisterEffect(e2) +end + +function c94919024.atkcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsReason(REASON_EFFECT) +end +function c94919024.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and aux.nzatk(chkc) end + if chk==0 then return Duel.IsExistingTarget(aux.nzatk,tp,0,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,aux.nzatk,tp,0,LOCATION_MZONE,1,1,nil) +end +function c94919024.atkop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(0) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + end +end +function c94919024.filter(c,tp) + return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and c:IsSetCard(0xdf) +end +function c94919024.condition(e,tp,eg,ep,ev,re,r,rp) + if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end + local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) + return g and g:IsExists(c94919024.filter,1,nil,tp) + and Duel.IsChainNegatable(ev) +end +function c94919024.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c94919024.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) +end +function c94919024.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.NegateActivation(ev) then + if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then + Duel.SendtoGrave(eg,REASON_EFFECT) + end + Duel.Recover(tp,1000,REASON_EFFECT) + Duel.Recover(1-tp,1000,REASON_EFFECT) + end +end diff --git a/script/c94937430.lua b/script/c94937430.lua index c6961713..b1c8d159 100644 --- a/script/c94937430.lua +++ b/script/c94937430.lua @@ -1,7 +1,7 @@ --臨時収入 function c94937430.initial_effect(c) - c:EnableCounterPermit(0x3001) - c:SetCounterLimit(0x3001,3) + c:EnableCounterPermit(0x1) + c:SetCounterLimit(0x1,3) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -33,11 +33,11 @@ end function c94937430.acop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if eg:IsExists(c94937430.cfilter,1,nil,tp) then - c:AddCounter(0x3001,1) + c:AddCounter(0x1,1) end end function c94937430.drcon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetCounter(0x3001)==3 + return e:GetHandler():GetCounter(0x1)==3 end function c94937430.drcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end diff --git a/script/c94944637.lua b/script/c94944637.lua index 2ef8a2af..101d1d6c 100644 --- a/script/c94944637.lua +++ b/script/c94944637.lua @@ -20,7 +20,7 @@ function c94944637.initial_effect(c) c:RegisterEffect(e2) end function c94944637.filter(c,e,tp) - return c:IsRace(RACE_FIEND) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsRace(RACE_FIEND) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c94944637.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -33,7 +33,7 @@ function c94944637.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.SelectMatchingCard(tp,c94944637.filter,tp,LOCATION_GRAVE+LOCATION_HAND,LOCATION_GRAVE,1,1,nil,e,tp) local c=e:GetHandler() local tc=g:GetFirst() - if tc then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)==0 then return end if c:IsFaceup() and c:IsRelateToEffect(e) then c:SetCardTarget(tc) end end diff --git a/script/c94950218.lua b/script/c94950218.lua index d6e33b32..368af8a9 100644 --- a/script/c94950218.lua +++ b/script/c94950218.lua @@ -30,10 +30,10 @@ function c94950218.initial_effect(c) c:RegisterEffect(e3) end function c94950218.eqlimit(e,c) - return c:IsSetCard(0x7f) + return c:IsSetCard(0x107f) end function c94950218.filter(c) - return c:IsFaceup() and c:IsSetCard(0x7f) + return c:IsFaceup() and c:IsSetCard(0x107f) end function c94950218.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and c94950218.filter(chkc) end @@ -53,7 +53,7 @@ function c94950218.descon(e,tp,eg,ep,ev,re,r,rp) return Duel.GetAttacker()==e:GetHandler():GetEquipTarget() end function c94950218.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c94950218.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and c94950218.desfilter(chkc) end diff --git a/script/c94973028.lua b/script/c94973028.lua index 7fab3c1c..c02a6272 100644 --- a/script/c94973028.lua +++ b/script/c94973028.lua @@ -68,6 +68,7 @@ function c94973028.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c94973028.spop(e,tp,eg,ep,ev,re,r,rp) if not c94973028.spcon(e,tp,eg,ep,ev,re,r,rp) then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 then return end if Duel.IsPlayerCanSpecialSummonMonster(tp,31533705,0x101b,0x4011,0,0,3,RACE_MACHINE,ATTRIBUTE_WIND) then local token=Duel.CreateToken(tp,94973029) @@ -83,7 +84,7 @@ function c94973028.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(g,REASON_COST) end function c94973028.desfilter(c) - return c:IsDestructable() and c:IsAbleToRemove() + return c:IsAbleToRemove() end function c94973028.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and c94973028.desfilter(chkc) end diff --git a/script/c94977269.lua b/script/c94977269.lua old mode 100755 new mode 100644 index b39952fc..35fdc771 --- a/script/c94977269.lua +++ b/script/c94977269.lua @@ -1,179 +1,178 @@ ---エルシャドール・ミドラーシュ -function c94977269.initial_effect(c) - Duel.EnableGlobalFlag(GLOBALFLAG_SPSUMMON_COUNT) - c:EnableReviveLimit() - --fusion material - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(c94977269.fuscon) - e1:SetOperation(c94977269.fusop) - c:RegisterEffect(e1) - --splimit - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e2:SetCode(EFFECT_SPSUMMON_CONDITION) - e2:SetRange(LOCATION_EXTRA) - e2:SetValue(c94977269.splimit) - c:RegisterEffect(e2) - --indes - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) - e3:SetRange(LOCATION_MZONE) - e3:SetValue(c94977269.indval) - c:RegisterEffect(e3) - --spsummon count limit - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_FIELD) - e4:SetCode(EFFECT_SPSUMMON_COUNT_LIMIT) - e4:SetRange(LOCATION_MZONE) - e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e4:SetTargetRange(1,1) - e4:SetValue(1) - c:RegisterEffect(e4) - --tohand - local e5=Effect.CreateEffect(c) - e5:SetDescription(aux.Stringid(94977269,0)) - e5:SetCategory(CATEGORY_TOHAND) - e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e5:SetCode(EVENT_TO_GRAVE) - e5:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e5:SetTarget(c94977269.thtg) - e5:SetOperation(c94977269.thop) - c:RegisterEffect(e5) -end -function c94977269.ffilter1(c) - return c:IsSetCard(0x9d) -end -function c94977269.ffilter2(c) - return c:IsAttribute(ATTRIBUTE_DARK) or c:IsHasEffect(4904633) -end -function c94977269.exfilter(c,g) - return c:IsFaceup() and c:IsCanBeFusionMaterial() and not g:IsContains(c) -end -function c94977269.fuscon(e,g,gc,chkf) - if g==nil then return true end - local tp=e:GetHandlerPlayer() - local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local exg=Group.CreateGroup() - if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then - local sg=Duel.GetMatchingGroup(c94977269.exfilter,tp,0,LOCATION_MZONE,nil,g) - exg:Merge(sg) - end - if gc then return (c94977269.ffilter1(gc) and (g:IsExists(c94977269.ffilter2,1,gc) or exg:IsExists(c94977269.ffilter2,1,gc))) - or (c94977269.ffilter2(gc) and (g:IsExists(c94977269.ffilter1,1,gc) or exg:IsExists(c94977269.ffilter1,1,gc))) end - local g1=Group.CreateGroup() - local g2=Group.CreateGroup() - local g3=Group.CreateGroup() - local g4=Group.CreateGroup() - local tc=g:GetFirst() - while tc do - if c94977269.ffilter1(tc) then - g1:AddCard(tc) - if aux.FConditionCheckF(tc,chkf) then g3:AddCard(tc) end - end - if c94977269.ffilter2(tc) then - g2:AddCard(tc) - if aux.FConditionCheckF(tc,chkf) then g4:AddCard(tc) end - end - tc=g:GetNext() - end - local exg1=exg:Filter(c94977269.ffilter1,nil) - local exg2=exg:Filter(c94977269.ffilter2,nil) - if chkf~=PLAYER_NONE then - return (g3:IsExists(aux.FConditionFilterF2,1,nil,g2) - or g3:IsExists(aux.FConditionFilterF2,1,nil,exg2) - or g4:IsExists(aux.FConditionFilterF2,1,nil,g1) - or g4:IsExists(aux.FConditionFilterF2,1,nil,exg1)) - else - return (g1:IsExists(aux.FConditionFilterF2,1,nil,g2) - or g1:IsExists(aux.FConditionFilterF2,1,nil,exg2) - or g2:IsExists(aux.FConditionFilterF2,1,nil,exg1)) - end -end -function c94977269.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) - local exg=Group.CreateGroup() - if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then - local sg=Duel.GetMatchingGroup(c94977269.exfilter,tp,0,LOCATION_MZONE,nil,eg) - exg:Merge(sg) - end - if gc then - local sg1=Group.CreateGroup() - local sg2=Group.CreateGroup() - if c94977269.ffilter1(gc) then - sg1:Merge(eg:Filter(c94977269.ffilter2,gc)) - sg2:Merge(exg:Filter(c94977269.ffilter2,gc)) - end - if c94977269.ffilter2(gc) then - sg1:Merge(eg:Filter(c94977269.ffilter1,gc)) - sg2:Merge(exg:Filter(c94977269.ffilter1,gc)) - end - local g1=nil - if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then - fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1=sg2:Select(tp,1,1,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1=sg1:Select(tp,1,1,nil) - end - Duel.SetFusionMaterial(g1) - return - end - local sg=eg:Filter(aux.FConditionFilterF2c,nil,c94977269.ffilter1,c94977269.ffilter2) - local g1=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if chkf~=PLAYER_NONE then - g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) - else g1=sg:Select(tp,1,1,nil) end - local tc1=g1:GetFirst() - local sg1=Group.CreateGroup() - local sg2=Group.CreateGroup() - if c94977269.ffilter1(tc1) then - sg1:Merge(sg:Filter(c94977269.ffilter2,tc1)) - sg2:Merge(exg:Filter(c94977269.ffilter2,tc1)) - end - if c94977269.ffilter2(tc1) then - sg1:Merge(sg:Filter(c94977269.ffilter1,tc1)) - sg2:Merge(exg:Filter(c94977269.ffilter1,tc1)) - end - local g2=nil - if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then - fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg2:Select(tp,1,1,nil) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg1:Select(tp,1,1,nil) - end - g1:Merge(g2) - Duel.SetFusionMaterial(g1) -end -function c94977269.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c94977269.indval(e,re,tp) - return tp~=e:GetHandlerPlayer() -end -function c94977269.thfilter(c) - return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c94977269.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c94977269.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c94977269.thfilter,tp,LOCATION_GRAVE,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c94977269.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c94977269.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--エルシャドール・ミドラーシュ +function c94977269.initial_effect(c) + Duel.EnableGlobalFlag(GLOBALFLAG_SPSUMMON_COUNT) + c:EnableReviveLimit() + --fusion material + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(c94977269.fuscon) + e1:SetOperation(c94977269.fusop) + c:RegisterEffect(e1) + --splimit + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e2:SetCode(EFFECT_SPSUMMON_CONDITION) + e2:SetRange(LOCATION_EXTRA) + e2:SetValue(c94977269.splimit) + c:RegisterEffect(e2) + --indes + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e3:SetRange(LOCATION_MZONE) + e3:SetValue(c94977269.indval) + c:RegisterEffect(e3) + --spsummon count limit + local e4=Effect.CreateEffect(c) + e4:SetType(EFFECT_TYPE_FIELD) + e4:SetCode(EFFECT_SPSUMMON_COUNT_LIMIT) + e4:SetRange(LOCATION_MZONE) + e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e4:SetTargetRange(1,1) + e4:SetValue(1) + c:RegisterEffect(e4) + --tohand + local e5=Effect.CreateEffect(c) + e5:SetDescription(aux.Stringid(94977269,0)) + e5:SetCategory(CATEGORY_TOHAND) + e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e5:SetCode(EVENT_TO_GRAVE) + e5:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e5:SetTarget(c94977269.thtg) + e5:SetOperation(c94977269.thop) + c:RegisterEffect(e5) +end +function c94977269.ffilter1(c) + return c:IsFusionSetCard(0x9d) +end +function c94977269.ffilter2(c) + return c:IsAttribute(ATTRIBUTE_DARK) or c:IsHasEffect(4904633) +end +function c94977269.exfilter(c,g) + return c:IsFaceup() and c:IsCanBeFusionMaterial() and not g:IsContains(c) +end +function c94977269.fuscon(e,g,gc,chkf) + if g==nil then return true end + local tp=e:GetHandlerPlayer() + local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + local exg=Group.CreateGroup() + if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then + local sg=Duel.GetMatchingGroup(c94977269.exfilter,tp,0,LOCATION_MZONE,nil,g) + exg:Merge(sg) + end + if gc then return (c94977269.ffilter1(gc) and (g:IsExists(c94977269.ffilter2,1,gc) or exg:IsExists(c94977269.ffilter2,1,gc))) + or (c94977269.ffilter2(gc) and (g:IsExists(c94977269.ffilter1,1,gc) or exg:IsExists(c94977269.ffilter1,1,gc))) end + local g1=Group.CreateGroup() + local g2=Group.CreateGroup() + local g3=Group.CreateGroup() + local g4=Group.CreateGroup() + local tc=g:GetFirst() + while tc do + if c94977269.ffilter1(tc) then + g1:AddCard(tc) + if aux.FConditionCheckF(tc,chkf) then g3:AddCard(tc) end + end + if c94977269.ffilter2(tc) then + g2:AddCard(tc) + if aux.FConditionCheckF(tc,chkf) then g4:AddCard(tc) end + end + tc=g:GetNext() + end + local exg1=exg:Filter(c94977269.ffilter1,nil) + local exg2=exg:Filter(c94977269.ffilter2,nil) + if chkf~=PLAYER_NONE then + return (g3:IsExists(aux.FConditionFilterF2,1,nil,g2) + or g3:IsExists(aux.FConditionFilterF2,1,nil,exg2) + or g4:IsExists(aux.FConditionFilterF2,1,nil,g1) + or g4:IsExists(aux.FConditionFilterF2,1,nil,exg1)) + else + return (g1:IsExists(aux.FConditionFilterF2,1,nil,g2) + or g1:IsExists(aux.FConditionFilterF2,1,nil,exg2) + or g2:IsExists(aux.FConditionFilterF2,1,nil,exg1)) + end +end +function c94977269.fusop(e,tp,eg,ep,ev,re,r,rp,gc,chkf) + local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + local exg=Group.CreateGroup() + if fc and fc:IsHasEffect(81788994) and fc:IsCanRemoveCounter(tp,0x16,3,REASON_EFFECT) then + local sg=Duel.GetMatchingGroup(c94977269.exfilter,tp,0,LOCATION_MZONE,nil,eg) + exg:Merge(sg) + end + if gc then + local sg1=Group.CreateGroup() + local sg2=Group.CreateGroup() + if c94977269.ffilter1(gc) then + sg1:Merge(eg:Filter(c94977269.ffilter2,gc)) + sg2:Merge(exg:Filter(c94977269.ffilter2,gc)) + end + if c94977269.ffilter2(gc) then + sg1:Merge(eg:Filter(c94977269.ffilter1,gc)) + sg2:Merge(exg:Filter(c94977269.ffilter1,gc)) + end + local g1=nil + if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then + fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g1=sg2:Select(tp,1,1,nil) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g1=sg1:Select(tp,1,1,nil) + end + Duel.SetFusionMaterial(g1) + return + end + local sg=eg:Filter(aux.FConditionFilterF2c,nil,c94977269.ffilter1,c94977269.ffilter2) + local g1=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if chkf~=PLAYER_NONE then + g1=sg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) + else g1=sg:Select(tp,1,1,nil) end + local tc1=g1:GetFirst() + local sg1=Group.CreateGroup() + local sg2=Group.CreateGroup() + if c94977269.ffilter1(tc1) then + sg1:Merge(sg:Filter(c94977269.ffilter2,tc1)) + sg2:Merge(exg:Filter(c94977269.ffilter2,tc1)) + end + if c94977269.ffilter2(tc1) then + sg1:Merge(sg:Filter(c94977269.ffilter1,tc1)) + sg2:Merge(exg:Filter(c94977269.ffilter1,tc1)) + end + local g2=nil + if sg1:GetCount()==0 or (sg2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81788994,0))) then + fc:RemoveCounter(tp,0x16,3,REASON_EFFECT) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g2=sg2:Select(tp,1,1,nil) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g2=sg1:Select(tp,1,1,nil) + end + g1:Merge(g2) + Duel.SetFusionMaterial(g1) +end +function c94977269.splimit(e,se,sp,st) + return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c94977269.indval(e,re,tp) + return tp~=e:GetHandlerPlayer() +end +function c94977269.thfilter(c) + return c:IsSetCard(0x9d) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() +end +function c94977269.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c94977269.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c94977269.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c94977269.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c94977269.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c94997874.lua b/script/c94997874.lua index 4b593fd4..e5444ce3 100644 --- a/script/c94997874.lua +++ b/script/c94997874.lua @@ -60,7 +60,7 @@ end function c94997874.posop2(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end function c94997874.spcon(e,tp,eg,ep,ev,re,r,rp) @@ -68,7 +68,6 @@ function c94997874.spcon(e,tp,eg,ep,ev,re,r,rp) end function c94997874.spfilter(c,e,tp) return c:IsType(TYPE_FLIP) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c94997874.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -80,8 +79,8 @@ function c94997874.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c94997874.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,g) end end diff --git a/script/c95027497.lua b/script/c95027497.lua index 2d9835f3..66426d0b 100644 --- a/script/c95027497.lua +++ b/script/c95027497.lua @@ -25,7 +25,7 @@ function c95027497.filter1(c) return c:IsSetCard(0x61) and c:IsAbleToHand() end function c95027497.filter2(c) - return c:IsSetCard(0x2b) and c:GetCode()~=95027497 and c:IsAbleToHand() + return c:IsSetCard(0x2b) and c:GetCode()~=95027497 and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() end function c95027497.tg1(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c95027497.filter1,tp,LOCATION_DECK,0,1,nil) end diff --git a/script/c95040215.lua b/script/c95040215.lua index 43a9f828..1ff28505 100644 --- a/script/c95040215.lua +++ b/script/c95040215.lua @@ -43,7 +43,7 @@ function c95040215.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end diff --git a/script/c95051344.lua b/script/c95051344.lua index 6184a630..2e57e414 100644 --- a/script/c95051344.lua +++ b/script/c95051344.lua @@ -10,7 +10,7 @@ function c95051344.initial_effect(c) c:RegisterEffect(e1) end function c95051344.filter(c) - return c:GetEquipCount()>0 and c:IsDestructable() + return c:GetEquipCount()>0 end function c95051344.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c95051344.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c95083785.lua b/script/c95083785.lua new file mode 100644 index 00000000..38f82fa2 --- /dev/null +++ b/script/c95083785.lua @@ -0,0 +1,36 @@ +--早すぎた帰還 +function c95083785.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCost(c95083785.cost) + e1:SetTarget(c95083785.target) + e1:SetOperation(c95083785.activate) + c:RegisterEffect(e1) +end +function c95083785.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemoveAsCost,tp,LOCATION_HAND,0,1,1,e:GetHandler()) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end +function c95083785.filter(c,e,tp) + return c:IsFaceup() and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) +end +function c95083785.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c95083785.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c95083785.filter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c95083785.filter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c95083785.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) + end +end diff --git a/script/c95090813.lua b/script/c95090813.lua index 1d90149e..46ae0eb2 100644 --- a/script/c95090813.lua +++ b/script/c95090813.lua @@ -32,6 +32,8 @@ function c95090813.cfilter2(c) return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_WARRIOR) and not c:IsPublic() end function c95090813.mtop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + Duel.HintSelection(Group.FromCards(c)) local g1=Duel.GetMatchingGroup(c95090813.cfilter1,tp,LOCATION_HAND,0,nil) local g2=Duel.GetMatchingGroup(c95090813.cfilter2,tp,LOCATION_HAND,0,nil) local select=2 @@ -41,8 +43,10 @@ function c95090813.mtop(e,tp,eg,ep,ev,re,r,rp) select=Duel.SelectOption(tp,aux.Stringid(95090813,0),aux.Stringid(95090813,2)) if select==1 then select=2 end elseif g2:GetCount()>0 then - select=Duel.SelectOption(tp,aux.Stringid(95090813,1),aux.Stringid(95090813,2)) - select=select+1 + select=Duel.SelectOption(tp,aux.Stringid(95090813,1),aux.Stringid(95090813,2))+1 + else + select=Duel.SelectOption(tp,aux.Stringid(95090813,2)) + select=2 end if select==0 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) @@ -54,11 +58,11 @@ function c95090813.mtop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,g) Duel.ShuffleHand(tp) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(c,REASON_COST) end end function c95090813.filter(c) - return c:IsLevelBelow(3) and c:IsRace(RACE_WARRIOR) + return c:IsLevelBelow(3) and c:IsRace(RACE_WARRIOR) and not c:IsForbidden() end function c95090813.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c95090813.filter(chkc) end diff --git a/script/c95132338.lua b/script/c95132338.lua index 045b38ed..c93ec278 100644 --- a/script/c95132338.lua +++ b/script/c95132338.lua @@ -15,7 +15,7 @@ function c95132338.initial_effect(c) e2:SetValue(500) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) end function c95132338.cfilter(c,code) diff --git a/script/c95169481.lua b/script/c95169481.lua index 27482c31..a4981586 100644 --- a/script/c95169481.lua +++ b/script/c95169481.lua @@ -21,8 +21,8 @@ function c95169481.descost(e,tp,eg,ep,ev,re,r,rp,chk) e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST) end function c95169481.desfilter(c) - return c:IsFaceup() and c:IsRace(RACE_BEAST+RACE_WINDBEAST+RACE_BEASTWARRIOR) and c:IsDestructable() - and Duel.IsExistingTarget(Card.IsDestructable,0,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) + return c:IsFaceup() and c:IsRace(RACE_BEAST+RACE_WINDBEAST+RACE_BEASTWARRIOR) + and Duel.IsExistingTarget(aux.TRUE,0,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c) end function c95169481.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end @@ -30,7 +30,7 @@ function c95169481.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local g1=Duel.SelectTarget(tp,c95169481.desfilter,tp,LOCATION_MZONE,0,1,1,nil) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g2=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,g1:GetFirst()) + local g2=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,g1:GetFirst()) g1:Merge(g2) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,g1:GetCount(),0,0) end diff --git a/script/c95204084.lua b/script/c95204084.lua index 6a1dce5e..0d5e9c31 100644 --- a/script/c95204084.lua +++ b/script/c95204084.lua @@ -21,7 +21,7 @@ function c95204084.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoDeck(g,nil,0,REASON_COST) end function c95204084.filter(c) - return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL and c:IsDestructable() + return bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL end function c95204084.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c95204084.filter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c95214051.lua b/script/c95214051.lua index 28183fbb..2a19d3fa 100644 --- a/script/c95214051.lua +++ b/script/c95214051.lua @@ -19,9 +19,5 @@ function c95214051.activate(e,tp,eg,ep,ev,re,r,rp) Duel.ShuffleDeck(1-tp) Duel.MoveSequence(tc,0) Duel.ConfirmDecktop(1-tp,1) - else - local g=Duel.GetFieldGroup(tp,0,LOCATION_DECK) - Duel.ConfirmCards(tp,g) - Duel.ShuffleDeck(1-tp) end end diff --git a/script/c95220856.lua b/script/c95220856.lua old mode 100755 new mode 100644 diff --git a/script/c95231062.lua b/script/c95231062.lua index 6a5735df..eaa93eec 100644 --- a/script/c95231062.lua +++ b/script/c95231062.lua @@ -24,7 +24,7 @@ function c95231062.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.Release(e:GetHandler(),REASON_COST) end function c95231062.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c95231062.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c95231062.desfilter(chkc) end diff --git a/script/c95239444.lua b/script/c95239444.lua old mode 100755 new mode 100644 diff --git a/script/c95254840.lua b/script/c95254840.lua index 41ce92b3..b6159125 100644 --- a/script/c95254840.lua +++ b/script/c95254840.lua @@ -18,7 +18,7 @@ end function c95254840.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsAttackPos,tp,LOCATION_MZONE,0,nil) if g:GetCount()>0 then - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) end if e:IsHasType(EFFECT_TYPE_ACTIVATE) then local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c95281259.lua b/script/c95281259.lua index 32a3ac05..9c1ed009 100644 --- a/script/c95281259.lua +++ b/script/c95281259.lua @@ -24,6 +24,5 @@ function c95281259.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c95291684.lua b/script/c95291684.lua index 91e4364e..f97d4871 100644 --- a/script/c95291684.lua +++ b/script/c95291684.lua @@ -23,10 +23,11 @@ function c95291684.initial_effect(c) c:RegisterEffect(e2) --cannot normal summon local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_SPSUMMON_COST) e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e3:SetOperation(c95291684.lmop) + e3:SetCost(c95291684.spcost) + e3:SetOperation(c95291684.spcop) c:RegisterEffect(e3) end function c95291684.cfilter(c) @@ -35,8 +36,7 @@ end function c95291684.sprcon(e,c) if c==nil then return true end local tp=c:GetControler() - return Duel.GetActivityCount(tp,ACTIVITY_NORMALSUMMON)==0 and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 - and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c95291684.cfilter,tp,LOCATION_MZONE,0,1,nil) + return Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c95291684.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c95291684.spcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SPECIAL+1 @@ -67,7 +67,10 @@ function c95291684.spop(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e2,true) end end -function c95291684.lmop(e,tp,eg,ep,ev,re,r,rp) +function c95291684.spcost(e,c,tp) + return Duel.GetActivityCount(tp,ACTIVITY_NORMALSUMMON)==0 +end +function c95291684.spcop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_FIELD) diff --git a/script/c95360850.lua b/script/c95360850.lua index b4ea1c30..a8abdd29 100644 --- a/script/c95360850.lua +++ b/script/c95360850.lua @@ -3,7 +3,7 @@ function c95360850.initial_effect(c) -- local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(95360850,0)) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetRange(LOCATION_GRAVE) e1:SetCondition(c95360850.atkcon) diff --git a/script/c95395761.lua b/script/c95395761.lua index 275490d1..a0b43331 100644 --- a/script/c95395761.lua +++ b/script/c95395761.lua @@ -18,7 +18,7 @@ function c95395761.initial_effect(c) c:RegisterEffect(e2) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(600) c:RegisterEffect(e3) local e4=Effect.CreateEffect(c) @@ -35,7 +35,7 @@ function c95395761.initial_effect(c) c:RegisterEffect(e5) end function c95395761.filter(c) - return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0x56) and c:IsType(TYPE_MONSTER) and not c:IsForbidden() end function c95395761.eqtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 @@ -49,7 +49,7 @@ function c95395761.eqop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) local g=Duel.SelectMatchingCard(tp,c95395761.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil) local tc=g:GetFirst() - if tc then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then if not Duel.Equip(tp,tc,c,true) then return end local e1=Effect.CreateEffect(c) e1:SetProperty(EFFECT_FLAG_COPY_INHERIT+EFFECT_FLAG_OWNER_RELATE) diff --git a/script/c95401059.lua b/script/c95401059.lua index a38bdb16..44b214fb 100644 --- a/script/c95401059.lua +++ b/script/c95401059.lua @@ -7,10 +7,9 @@ function c95401059.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetRange(LOCATION_PZONE) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetTargetRange(1,0) e2:SetTarget(c95401059.splimit) - e2:SetCondition(aux.nfbdncon) c:RegisterEffect(e2) --spsummon local e3=Effect.CreateEffect(c) diff --git a/script/c95403418.lua b/script/c95403418.lua old mode 100755 new mode 100644 index 1e26bc01..0823ee2e --- a/script/c95403418.lua +++ b/script/c95403418.lua @@ -70,7 +70,7 @@ function c95403418.spop(e,tp,eg,ep,ev,re,r,rp,c) e1:SetReset(RESET_EVENT+0xff0000) c:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_SET_DEFENCE) + e2:SetCode(EFFECT_SET_DEFENSE) c:RegisterEffect(e2) end function c95403418.descon(e) diff --git a/script/c95442074.lua b/script/c95442074.lua index 732e7ea2..b39771f9 100644 --- a/script/c95442074.lua +++ b/script/c95442074.lua @@ -48,7 +48,6 @@ function c95442074.operation(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetFieldGroup(tp,0,LOCATION_MZONE) if g:GetCount()>0 then Duel.ChangePosition(g,POS_FACEUP_ATTACK) - c:RegisterFlagEffect(69058960,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) local tc=g:GetFirst() while tc do local e1=Effect.CreateEffect(c) @@ -56,32 +55,17 @@ function c95442074.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetCode(EFFECT_MUST_ATTACK) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_CANNOT_EP) - e2:SetRange(LOCATION_MZONE) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetTargetRange(1,0) - e2:SetCondition(c95442074.becon) - e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + local e2=e1:Clone() + e2:SetCode(EFFECT_MUST_ATTACK_MONSTER) tc:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetRange(LOCATION_MZONE) - e3:SetTargetRange(0,LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE) - e3:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET) - e3:SetTarget(c95442074.bttg) - e3:SetValue(c95442074.vala) - e3:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e3) - local e4=Effect.CreateEffect(c) - e4:SetType(EFFECT_TYPE_SINGLE) - e4:SetCode(EFFECT_CANNOT_DIRECT_ATTACK) - e4:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) - tc:RegisterEffect(e4) tc=g:GetNext() end + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_SINGLE) + e3:SetCode(EFFECT_MUST_BE_ATTACKED) + e3:SetValue(1) + e3:SetReset(RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e3) end end function c95442074.filter(c) @@ -95,12 +79,3 @@ function c95442074.refcon(e) return Duel.IsExistingMatchingCard(c95442074.filter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) and Duel.GetAttackTarget()==e:GetHandler() end -function c95442074.becon(e) - return e:GetHandler():IsAttackable() -end -function c95442074.bttg(e,c) - return c:GetFlagEffect(69058960)==0 -end -function c95442074.vala(e,c) - return c==e:GetHandler() -end diff --git a/script/c95451366.lua b/script/c95451366.lua index 3daa0427..1ed4bc01 100644 --- a/script/c95451366.lua +++ b/script/c95451366.lua @@ -9,17 +9,17 @@ function c95451366.initial_effect(c) c:RegisterEffect(e1) end function c95451366.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x3001,1,REASON_EFFECT) end + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x1,1,REASON_EFFECT) end end function c95451366.filter(c) - return c:IsFaceup() and c:GetCounter(0x3001)~=0 + return c:IsFaceup() and c:GetCounter(0x1)~=0 end function c95451366.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c95451366.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil) local tc=g:GetFirst() while tc do - local cc=tc:GetCounter(0x3001) - tc:RemoveCounter(tp,0x3001,cc,REASON_EFFECT) + local cc=tc:GetCounter(0x1) + tc:RemoveCounter(tp,0x1,cc,REASON_EFFECT) tc=g:GetNext() end end diff --git a/script/c95457011.lua b/script/c95457011.lua old mode 100755 new mode 100644 index e9d12952..dc3ba14d --- a/script/c95457011.lua +++ b/script/c95457011.lua @@ -1,73 +1,72 @@ ---天帝従騎イデア -function c95457011.initial_effect(c) - --summon - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(95457011,0)) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetProperty(EFFECT_FLAG_DELAY) - e1:SetCountLimit(1,95457011) - e1:SetTarget(c95457011.sptg) - e1:SetOperation(c95457011.spop) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EVENT_SPSUMMON_SUCCESS) - c:RegisterEffect(e2) - --to hand - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(95457011,1)) - e3:SetCategory(CATEGORY_TOHAND) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) - e3:SetCode(EVENT_TO_GRAVE) - e3:SetCountLimit(1,95457012) - e3:SetTarget(c95457011.thtg) - e3:SetOperation(c95457011.thop) - c:RegisterEffect(e3) -end -function c95457011.spfilter(c,e,tp) - return c:GetAttack()==800 and c:GetDefence()==1000 and not c:IsCode(95457011) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) -end -function c95457011.sptg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingMatchingCard(c95457011.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) -end -function c95457011.spop(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,c95457011.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - end - end - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e1:SetReset(RESET_PHASE+PHASE_END) - e1:SetTargetRange(1,0) - e1:SetTarget(c95457011.splimit) - Duel.RegisterEffect(e1,tp) -end -function c95457011.splimit(e,c,sump,sumtype,sumpos,targetp,se) - return c:IsLocation(LOCATION_EXTRA) -end -function c95457011.thfilter(c) - return c:IsFaceup() and c:IsSetCard(0xbe) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() -end -function c95457011.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_REMOVED) and c95457011.thfilter(chkc) end - if chk==0 then return Duel.IsExistingTarget(c95457011.thfilter,tp,LOCATION_REMOVED,0,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) - local g=Duel.SelectTarget(tp,c95457011.thfilter,tp,LOCATION_REMOVED,0,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) -end -function c95457011.thop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) - end -end +--天帝従騎イデア +function c95457011.initial_effect(c) + --summon + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(95457011,0)) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCountLimit(1,95457011) + e1:SetTarget(c95457011.sptg) + e1:SetOperation(c95457011.spop) + c:RegisterEffect(e1) + local e2=e1:Clone() + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e2) + --to hand + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(95457011,1)) + e3:SetCategory(CATEGORY_TOHAND) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetCountLimit(1,95457012) + e3:SetTarget(c95457011.thtg) + e3:SetOperation(c95457011.thop) + c:RegisterEffect(e3) +end +function c95457011.spfilter(c,e,tp) + return c:GetAttack()==800 and c:GetDefense()==1000 and not c:IsCode(95457011) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c95457011.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c95457011.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c95457011.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c95457011.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + end + end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetReset(RESET_PHASE+PHASE_END) + e1:SetTargetRange(1,0) + e1:SetTarget(c95457011.splimit) + Duel.RegisterEffect(e1,tp) +end +function c95457011.splimit(e,c,sump,sumtype,sumpos,targetp,se) + return c:IsLocation(LOCATION_EXTRA) +end +function c95457011.thfilter(c) + return c:IsFaceup() and c:IsSetCard(0xbe) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand() +end +function c95457011.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_REMOVED) and c95457011.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c95457011.thfilter,tp,LOCATION_REMOVED,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c95457011.thfilter,tp,LOCATION_REMOVED,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c95457011.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c95486586.lua b/script/c95486586.lua index 38df8705..1d70e67e 100644 --- a/script/c95486586.lua +++ b/script/c95486586.lua @@ -1,88 +1,88 @@ ---E・HERO Core -function c95486586.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x3008),3,true) - --spsummon condition - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_SPSUMMON_CONDITION) - e1:SetValue(aux.fuslimit) - c:RegisterEffect(e1) - --atkup - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(95486586,0)) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e2:SetCode(EVENT_BE_BATTLE_TARGET) - e2:SetCountLimit(1) - e2:SetOperation(c95486586.atkop) - c:RegisterEffect(e2) - --destroy - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(95486586,1)) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) - e3:SetCode(EVENT_PHASE+PHASE_BATTLE) - e3:SetRange(LOCATION_MZONE) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCountLimit(1) - e3:SetCondition(c95486586.descon) - e3:SetTarget(c95486586.destg) - e3:SetOperation(c95486586.desop) - c:RegisterEffect(e3) - --spsummon - local e4=Effect.CreateEffect(c) - e4:SetDescription(aux.Stringid(95486586,2)) - e4:SetCategory(CATEGORY_SPECIAL_SUMMON) - e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) - e4:SetCode(EVENT_DESTROYED) - e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) - e4:SetTarget(c95486586.sptg) - e4:SetOperation(c95486586.spop) - c:RegisterEffect(e4) -end -function c95486586.atkop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsFaceup() then - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK_FINAL) - e1:SetValue(c:GetAttack()*2) - e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE) - c:RegisterEffect(e1) - end -end -function c95486586.descon(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler():GetBattledGroupCount()>0 -end -function c95486586.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) -end -function c95486586.desop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c95486586.spfilter(c,e,tp) - return c:IsLevelBelow(8) and c:IsSetCard(0x3008) and c:IsType(TYPE_FUSION) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) -end -function c95486586.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c95486586.spfilter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 - and Duel.IsExistingTarget(c95486586.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectTarget(tp,c95486586.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) -end -function c95486586.spop(e,tp,eg,ep,ev,re,r,rp) - local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) - end -end +--E・HERO Core +function c95486586.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionSetCard,0x3008),3,true) + --spsummon condition + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_SPSUMMON_CONDITION) + e1:SetValue(aux.fuslimit) + c:RegisterEffect(e1) + --atkup + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(95486586,0)) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BE_BATTLE_TARGET) + e2:SetCountLimit(1) + e2:SetOperation(c95486586.atkop) + c:RegisterEffect(e2) + --destroy + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(95486586,1)) + e3:SetCategory(CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) + e3:SetCode(EVENT_PHASE+PHASE_BATTLE) + e3:SetRange(LOCATION_MZONE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCountLimit(1) + e3:SetCondition(c95486586.descon) + e3:SetTarget(c95486586.destg) + e3:SetOperation(c95486586.desop) + c:RegisterEffect(e3) + --spsummon + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(95486586,2)) + e4:SetCategory(CATEGORY_SPECIAL_SUMMON) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetCode(EVENT_DESTROYED) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) + e4:SetTarget(c95486586.sptg) + e4:SetOperation(c95486586.spop) + c:RegisterEffect(e4) +end +function c95486586.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and c:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetValue(c:GetAttack()*2) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_DAMAGE) + c:RegisterEffect(e1) + end +end +function c95486586.descon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():GetBattledGroupCount()>0 +end +function c95486586.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c95486586.desop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c95486586.spfilter(c,e,tp) + return c:IsLevelBelow(8) and c:IsSetCard(0x3008) and c:IsType(TYPE_FUSION) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) +end +function c95486586.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c95486586.spfilter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c95486586.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c95486586.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c95486586.spop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP) + end +end diff --git a/script/c95500396.lua b/script/c95500396.lua new file mode 100644 index 00000000..b5f6a2d0 --- /dev/null +++ b/script/c95500396.lua @@ -0,0 +1,90 @@ +--超重武者装留チュウサイ +function c95500396.initial_effect(c) + --equip + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_EQUIP) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_HAND+LOCATION_MZONE) + e1:SetTarget(c95500396.eqtg) + e1:SetOperation(c95500396.eqop) + c:RegisterEffect(e1) +end +function c95500396.eqfilter(c) + return c:IsFaceup() and c:IsSetCard(0x9a) +end +function c95500396.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c95500396.eqfilter(chkc) and chkc~=e:GetHandler() end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 + and Duel.IsExistingTarget(c95500396.eqfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) + Duel.SelectTarget(tp,c95500396.eqfilter,tp,LOCATION_MZONE,0,1,1,e:GetHandler()) +end +function c95500396.eqop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if c:IsLocation(LOCATION_MZONE) and c:IsFacedown() then return end + local tc=Duel.GetFirstTarget() + if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:GetControler()~=tp or tc:IsFacedown() or not tc:IsRelateToEffect(e) then + Duel.SendtoGrave(c,REASON_EFFECT) + return + end + Duel.Equip(tp,c,tc,true) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_EQUIP_LIMIT) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(c95500396.eqlimit) + e1:SetLabelObject(tc) + c:RegisterEffect(e1) + --atk limit + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET) + e2:SetRange(LOCATION_SZONE) + e2:SetTargetRange(0,LOCATION_MZONE) + e2:SetValue(c95500396.atlimit) + e2:SetLabelObject(tc) + e2:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_SZONE) + e3:SetCountLimit(1,95500396) + e3:SetCost(c95500396.spcost) + e3:SetTarget(c95500396.sptg) + e3:SetOperation(c95500396.spop) + e3:SetReset(RESET_EVENT+0x1fe0000) + c:RegisterEffect(e3) +end +function c95500396.eqlimit(e,c) + return c==e:GetLabelObject() +end +function c95500396.atlimit(e,c) + return c~=e:GetLabelObject() +end +function c95500396.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + local tc=c:GetEquipTarget() + if chk==0 then return c:GetControler()==tc:GetControler() and tc:IsReleasable() end + Duel.Release(tc,REASON_COST) +end +function c95500396.spfilter(c,e,tp) + return c:IsSetCard(0x9a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c95500396.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c95500396.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK) +end +function c95500396.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c95500396.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp) + if g:GetCount()>0 then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c95507060.lua b/script/c95507060.lua index 974d1e9c..a3d20831 100644 --- a/script/c95507060.lua +++ b/script/c95507060.lua @@ -19,7 +19,8 @@ function c95507060.filter(c) return c:IsFaceup() and c:IsRace(RACE_PLANT) end function c95507060.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c95507060.filter,tp,LOCATION_MZONE,0,1,nil) end + if chk==0 then return Duel.IsExistingMatchingCard(c95507060.filter,tp,LOCATION_MZONE,0,1,nil) + and Duel.IsExistingMatchingCard(Card.IsRace,tp,LOCATION_GRAVE,0,1,nil,RACE_PLANT) end end function c95507060.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c95507060.filter,tp,LOCATION_MZONE,0,nil) diff --git a/script/c95515060.lua b/script/c95515060.lua index 1ef3a87d..91b9ad0e 100644 --- a/script/c95515060.lua +++ b/script/c95515060.lua @@ -12,7 +12,7 @@ function c95515060.initial_effect(c) --Def local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_EQUIP) - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) e2:SetValue(500) c:RegisterEffect(e2) --Equip limit @@ -66,9 +66,8 @@ function c95515060.distg(e,c) return eq and c:GetCardTarget():IsContains(eq) and c:IsType(TYPE_SPELL) end function c95515060.disop(e,tp,eg,ep,ev,re,r,rp) - if not re:IsActiveType(TYPE_SPELL) then return end local ec=e:GetHandler() - if not ec:GetEquipTarget() or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return end + if not ec:GetEquipTarget() or not re:IsActiveType(TYPE_SPELL) or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return end local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) if not g or not g:IsContains(ec:GetEquipTarget()) then return end Duel.NegateEffect(ev) diff --git a/script/c95519486.lua b/script/c95519486.lua index eebd13b0..5fdf5a70 100644 --- a/script/c95519486.lua +++ b/script/c95519486.lua @@ -21,15 +21,14 @@ function c95519486.initial_effect(c) c:RegisterEffect(e2) end function c95519486.cfilter(c) - return c:IsFaceup() and c:IsSetCard(0x3d) and c:GetCode()~=95519486 + return c:IsFaceup() and c:IsSetCard(0x3d) and not c:IsCode(95519486) end function c95519486.descon(e,tp,eg,ep,ev,re,r,rp) - local d=Duel.GetAttackTarget() - return e:GetHandler()==Duel.GetAttacker() and d and d:IsRelateToBattle() + return e:GetHandler()==Duel.GetAttacker() and Duel.GetAttackTarget() and Duel.IsExistingMatchingCard(c95519486.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c95519486.destg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetAttackTarget():IsDestructable() end + if chk==0 then return Duel.GetAttackTarget():IsRelateToBattle() end Duel.SetOperationInfo(0,CATEGORY_DESTROY,Duel.GetAttackTarget(),1,0,0) end function c95519486.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c95526884.lua b/script/c95526884.lua index 1767a3ab..9a2a3dd4 100644 --- a/script/c95526884.lua +++ b/script/c95526884.lua @@ -25,9 +25,9 @@ function c95526884.reccon(e,tp,eg,ep,ev,re,r,rp) local a=Duel.GetAttacker() local d=Duel.GetAttackTarget() if not d then return false end - local m=a:GetAttack()-d:GetDefence() + local m=a:GetAttack()-d:GetDefense() e:SetLabel(m) - return c==a and d:GetDefence()>=0 and m>0 and bit.band(d:GetBattlePosition(),POS_DEFENCE)~=0 + return c==a and d:GetDefense()>=0 and m>0 and bit.band(d:GetBattlePosition(),POS_DEFENSE)~=0 end function c95526884.rectg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end diff --git a/script/c95600067.lua b/script/c95600067.lua index 63bc3fc6..2ae53d7a 100644 --- a/script/c95600067.lua +++ b/script/c95600067.lua @@ -31,7 +31,7 @@ function c95600067.repop(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fc0000) e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) c:RegisterEffect(e1) - Duel.RaiseEvent(c,47408488,e,0,tp,0,0) + Duel.RaiseEvent(c,EVENT_CUSTOM+47408488,e,0,tp,0,0) end function c95600067.condition(e) local phase=Duel.GetCurrentPhase() diff --git a/script/c95600069.lua b/script/c95600069.lua deleted file mode 100644 index a4c167b4..00000000 --- a/script/c95600069.lua +++ /dev/null @@ -1,53 +0,0 @@ ---Advanced Crystal Beast Topaz Tiger -function c95600069.initial_effect(c) - --Treated as "Crystal Beast Topaz Tiger" - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_ADD_CODE) - e1:SetValue(95600067) - c:RegisterEffect(e1) - --Tiger's Fury - local e2=Effect.CreateEffect(c) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE) - e2:SetCondition(c95600069.furycon) - e2:SetValue(400) - c:RegisterEffect(e2) - --Turn into Crystal - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(95600069,0)) - e3:SetCode(EFFECT_SEND_REPLACE) - e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_UNCOPYABLE) - e3:SetRange(LOCATION_MZONE) - e3:SetTarget(c95600069.crystaltg) - e3:SetOperation(c95600069.crystalop) - c:RegisterEffect(e3) -end -function c95600069.crystaltg(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - if chk==0 then return c:GetDestination()==LOCATION_GRAVE and c:IsReason(REASON_DESTROY) end - if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return false end - return Duel.SelectEffectYesNo(tp,c) -end -function c95600069.crystalop(e,tp,eg,ep,ev,re,r,rp,chk) - local c=e:GetHandler() - Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true) - local e1=Effect.CreateEffect(c) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_EVENT+0x1fc0000) - e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS) - c:RegisterEffect(e1) - Duel.RaiseEvent(c,47408488,e,0,tp,0,0) -end -function c95600069.furycon(e) - local phase=Duel.GetCurrentPhase() - return (phase==PHASE_DAMAGE or phase==PHASE_DAMAGE_CAL) - and Duel.GetAttacker()==e:GetHandler() and Duel.GetAttackTarget()~=nil - or Duel.GetAttackTarget()==e:GetHandler() and Duel.GetAttackTarget()~=nil -end \ No newline at end of file diff --git a/script/c95658967.lua b/script/c95658967.lua new file mode 100644 index 00000000..1cf972c6 --- /dev/null +++ b/script/c95658967.lua @@ -0,0 +1,95 @@ +--祝福の教会－リチューアル・チャーチ +function c95658967.initial_effect(c) + --activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --search + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(95658967,0)) + e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_SZONE) + e2:SetCountLimit(1,95658967) + e2:SetCost(c95658967.thcost) + e2:SetTarget(c95658967.thtg) + e2:SetOperation(c95658967.thop) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(95658967,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_SZONE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCountLimit(1,95658968) + e3:SetCost(c95658967.spcost) + e3:SetTarget(c95658967.sptg) + e3:SetOperation(c95658967.spop) + c:RegisterEffect(e3) +end +function c95658967.cfilter(c) + return c:IsType(TYPE_SPELL) and c:IsDiscardable() +end +function c95658967.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c95658967.cfilter,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,c95658967.cfilter,1,1,REASON_COST+REASON_DISCARD) +end +function c95658967.thfilter(c) + return ((c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_LIGHT)) or c:IsType(TYPE_SPELL)) + and c:IsType(TYPE_RITUAL) and c:IsAbleToHand() +end +function c95658967.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c95658967.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c95658967.thop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c95658967.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end +function c95658967.spfilter(c,e,tp) + local lv=c:GetLevel() + return lv>0 and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_FAIRY) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.IsExistingMatchingCard(c95658967.cfilter2,tp,LOCATION_GRAVE,0,lv,nil) +end +function c95658967.cfilter2(c) + return c:IsType(TYPE_SPELL) and c:IsAbleToDeckAsCost() +end +function c95658967.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(100) + if chk==0 then return true end +end +function c95658967.spfilter2(c,e,tp,lv) + return c:GetLevel()==lv and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_FAIRY) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c95658967.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c95658967.spfilter2(chkc,e,tp,e:GetLabel()) end + if chk==0 then + if e:GetLabel()~=100 then return false end + e:SetLabel(0) + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c95658967.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) + end + e:SetLabel(0) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c95658967.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) + local lv=g:GetFirst():GetLevel() + e:SetLabel(lv) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + local tg=Duel.SelectMatchingCard(tp,c95658967.cfilter2,tp,LOCATION_GRAVE,0,lv,lv,nil) + Duel.SendtoDeck(tg,nil,2,REASON_COST) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c95658967.spop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP) + end +end diff --git a/script/c95676943.lua b/script/c95676943.lua old mode 100755 new mode 100644 diff --git a/script/c95697223.lua b/script/c95697223.lua new file mode 100644 index 00000000..b6d1c3a7 --- /dev/null +++ b/script/c95697223.lua @@ -0,0 +1,34 @@ +--竜の闘志 +function c95697223.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c95697223.target) + e1:SetOperation(c95697223.activate) + c:RegisterEffect(e1) +end +function c95697223.filter(c) + return c:IsFaceup() and c:IsRace(RACE_DRAGON) and c:IsStatus(STATUS_SPSUMMON_TURN) +end +function c95697223.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and c95697223.filter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c95697223.filter,tp,LOCATION_MZONE,0,1,nil) + and Duel.GetMatchingGroupCount(Card.IsStatus,tp,0,LOCATION_MZONE,nil,STATUS_SPSUMMON_TURN)>0 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,c95697223.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c95697223.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + local ct=Duel.GetMatchingGroupCount(Card.IsStatus,tp,0,LOCATION_MZONE,nil,STATUS_SPSUMMON_TURN) + if ct>0 and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_EXTRA_ATTACK) + e1:SetValue(ct) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + end +end diff --git a/script/c95772051.lua b/script/c95772051.lua index 4bdf9101..6ef193f5 100644 --- a/script/c95772051.lua +++ b/script/c95772051.lua @@ -39,8 +39,10 @@ function c95772051.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c95772051.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLocation(LOCATION_HAND) then + Duel.SendtoGrave(c,REASON_RULE) end end function c95772051.thfilter(c) diff --git a/script/c95789089.lua b/script/c95789089.lua index 20e9716c..06192e7c 100644 --- a/script/c95789089.lua +++ b/script/c95789089.lua @@ -23,6 +23,6 @@ end function c95789089.cpop(e,tp,eg,ep,ev,re,r,rp) local g=e:GetLabelObject() if g:IsRelateToBattle() and g:IsAttackPos() then - Duel.ChangePosition(g,POS_FACEUP_DEFENCE) + Duel.ChangePosition(g,POS_FACEUP_DEFENSE) end end diff --git a/script/c95816395.lua b/script/c95816395.lua old mode 100755 new mode 100644 diff --git a/script/c95833645.lua b/script/c95833645.lua index 04da3e4f..ec7b9551 100644 --- a/script/c95833645.lua +++ b/script/c95833645.lua @@ -43,7 +43,7 @@ end function c95833645.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c95869691.lua b/script/c95869691.lua deleted file mode 100644 index bad11cdf..00000000 --- a/script/c95869691.lua +++ /dev/null @@ -1,44 +0,0 @@ ---Card of Demise -function c95869691.initial_effect(c) ---Activate -local e1=Effect.CreateEffect(c) -e1:SetCategory(CATEGORY_DRAW) -e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) -e1:SetType(EFFECT_TYPE_ACTIVATE) -e1:SetCode(EVENT_FREE_CHAIN) -e1:SetTarget(c95869691.target) -e1:SetOperation(c95869691.operation) -c:RegisterEffect(e1) -end -function c95869691.target(e,tp,eg,ep,ev,re,r,rp,chk) -if chk==0 then return Duel.IsPlayerCanDraw(tp) end -e:GetHandler():SetTurnCounter(0) -local ht=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) -Duel.SetTargetPlayer(tp) -Duel.SetTargetParam(5-ht) -Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,5-ht) -end -function c95869691.operation(e,tp,eg,ep,ev,re,r,rp) -local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) -local ht=Duel.GetFieldGroupCount(p,LOCATION_HAND,0) -if(ht<5) then Duel.Draw(p,5-ht,REASON_EFFECT)end -local e1=Effect.CreateEffect(e:GetHandler()) -e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) -e1:SetCode(EVENT_PHASE+PHASE_STANDBY) -e1:SetCountLimit(1) -e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,5) -e1:SetOperation(c95869691.disop) -e1:SetLabel(0) -Duel.RegisterEffect(e1,p) -end -function c95869691.disop(e,tp,eg,ep,ev,re,r,rp) -if Duel.GetTurnPlayer()~=tp then return end -local c=e:GetHandler() -local ct=c:GetTurnCounter() -ct=ct+1 -c:SetTurnCounter(ct) -if ct==5 then -local g=Duel.GetFieldGroup(e:GetOwnerPlayer(),LOCATION_HAND,0) -Duel.SendtoGrave(g,REASON_EFFECT+REASON_DISCARD) -end -end \ No newline at end of file diff --git a/script/c95923441.lua b/script/c95923441.lua new file mode 100644 index 00000000..dddc2ebe --- /dev/null +++ b/script/c95923441.lua @@ -0,0 +1,60 @@ +--トラミッド・ハンター +function c95923441.initial_effect(c) + --extra summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_MZONE) + e1:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0) + e1:SetCode(EFFECT_EXTRA_SUMMON_COUNT) + e1:SetCondition(c95923441.sumcon) + e1:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_ROCK)) + c:RegisterEffect(e1) + --field + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(95923441,0)) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCountLimit(1) + e2:SetCondition(c95923441.condition) + e2:SetTarget(c95923441.target) + e2:SetOperation(c95923441.operation) + c:RegisterEffect(e2) +end +function c95923441.sumcon(e) + local tc=Duel.GetFieldCard(0,LOCATION_SZONE,5) + if tc and tc:IsFaceup() then return true end + tc=Duel.GetFieldCard(1,LOCATION_SZONE,5) + return tc and tc:IsFaceup() +end +function c95923441.filter(c,tp,code) + return c:IsType(TYPE_FIELD) and c:IsSetCard(0xe2) and c:GetActivateEffect():IsActivatable(tp) and not c:IsCode(code) +end +function c95923441.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetTurnPlayer()~=tp +end +function c95923441.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local tc=Duel.GetFieldCard(tp,LOCATION_SZONE,5) + if chkc then return false end + if chk==0 then return tc and tc:IsFaceup() and tc:IsSetCard(0xe2) and tc:IsAbleToGrave() and tc:IsCanBeEffectTarget(e) + and Duel.IsExistingMatchingCard(c95923441.filter,tp,LOCATION_DECK,0,1,nil,tp,tc:GetCode()) end + Duel.SetTargetCard(tc) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,tc,1,0,0) +end +function c95923441.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) + local g=Duel.SelectMatchingCard(tp,c95923441.filter,tp,LOCATION_DECK,0,1,1,nil,tp,tc:GetCode()) + if g:GetCount()>0 then + local tc=g:GetFirst() + Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) + local te=tc:GetActivateEffect() + local tep=tc:GetControler() + local cost=te:GetCost() + if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end + Duel.RaiseEvent(tc,EVENT_CHAIN_SOLVED,te,0,tp,tp,Duel.GetCurrentChain()) + end + end +end diff --git a/script/c95929069.lua b/script/c95929069.lua index d71c5b27..c869224b 100644 --- a/script/c95929069.lua +++ b/script/c95929069.lua @@ -7,17 +7,13 @@ function c95929069.initial_effect(c) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) e1:SetCode(EVENT_TO_GRAVE) - e1:SetCondition(c95929069.condition) + e1:SetCondition(aux.dogcon) e1:SetTarget(c95929069.target) e1:SetOperation(c95929069.operation) c:RegisterEffect(e1) end -function c95929069.condition(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:GetPreviousControler()==tp and c:IsReason(REASON_DESTROY) and rp~=tp -end function c95929069.dfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c95929069.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c95929069.dfilter(chkc) end diff --git a/script/c95943058.lua b/script/c95943058.lua index aa69e712..b9f8cc1b 100644 --- a/script/c95943058.lua +++ b/script/c95943058.lua @@ -67,7 +67,10 @@ function c95943058.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c95943058.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP_ATTACK) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP_ATTACK)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c95993388.lua b/script/c95993388.lua index 9a2da9ab..09707abc 100644 --- a/script/c95993388.lua +++ b/script/c95993388.lua @@ -41,7 +41,7 @@ function c95993388.spop(e,tp,eg,ep,ev,re,r,rp) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end local e1=Effect.CreateEffect(c) @@ -60,7 +60,7 @@ function c95993388.thcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsReason(REASON_SUMMON) end function c95993388.thfilter(c) - return c:GetAttack()==800 and c:GetDefence()==1000 and not c:IsCode(95993388) and c:IsAbleToHand() + return c:GetAttack()==800 and c:GetDefense()==1000 and not c:IsCode(95993388) and c:IsAbleToHand() end function c95993388.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c95993388.thfilter(chkc) end @@ -73,6 +73,5 @@ function c95993388.thop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c96008713.lua b/script/c96008713.lua index 8b5d1b1f..dc4c698e 100644 --- a/script/c96008713.lua +++ b/script/c96008713.lua @@ -28,12 +28,8 @@ end function c96008713.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() local a=Duel.GetAttacker() - if tc:IsRelateToEffect(e) and tc:IsFaceup() then - if not Duel.GetControl(tc,tp,PHASE_BATTLE,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end - elseif a:IsAttackable() and not a:IsImmuneToEffect(e) then + if tc:IsRelateToEffect(e) and tc:IsFaceup() and Duel.GetControl(tc,tp,PHASE_BATTLE,1)~=0 then + if a:IsAttackable() and not a:IsImmuneToEffect(e) then Duel.CalculateDamage(a,tc) end end diff --git a/script/c96012004.lua b/script/c96012004.lua index beedbf4b..7c8a734c 100644 --- a/script/c96012004.lua +++ b/script/c96012004.lua @@ -11,7 +11,7 @@ function c96012004.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(96012004,0)) e2:SetCategory(CATEGORY_DRAW) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_F) + e2:SetType(EFFECT_TYPE_QUICK_F) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP) e2:SetCode(EVENT_CHAINING) e2:SetRange(LOCATION_SZONE) diff --git a/script/c96015976.lua b/script/c96015976.lua old mode 100755 new mode 100644 diff --git a/script/c96029574.lua b/script/c96029574.lua index b656cb8c..96529f27 100644 --- a/script/c96029574.lua +++ b/script/c96029574.lua @@ -37,7 +37,7 @@ function c96029574.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c96029574.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c96029574.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c96029574.desfilter(chkc) end diff --git a/script/c9603356.lua b/script/c9603356.lua old mode 100755 new mode 100644 index ae2bc1f3..31df2047 --- a/script/c9603356.lua +++ b/script/c9603356.lua @@ -33,7 +33,7 @@ function c9603356.mtop(e,tp,eg,ep,ev,re,r,rp) if Duel.CheckLPCost(tp,900) then Duel.PayLPCost(tp,900) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end function c9603356.disop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c96100333.lua b/script/c96100333.lua new file mode 100644 index 00000000..e727a084 --- /dev/null +++ b/script/c96100333.lua @@ -0,0 +1,215 @@ +--古代遺跡の目覚め +function c96100333.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(96100333,0)) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,0x1e0) + e1:SetTarget(c96100333.target) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(96100333,1)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_SZONE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetHintTiming(0,0x1e0) + e2:SetCost(c96100333.cost) + e2:SetTarget(c96100333.destg) + e2:SetOperation(c96100333.desop) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(96100333,2)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetType(EFFECT_TYPE_QUICK_O) + e3:SetCode(EVENT_FREE_CHAIN) + e3:SetRange(LOCATION_SZONE) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetHintTiming(0,0x1e0) + e3:SetTarget(c96100333.sptg) + e3:SetOperation(c96100333.spop) + c:RegisterEffect(e3) + --to deck + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(96100333,3)) + e4:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) + e4:SetType(EFFECT_TYPE_QUICK_O) + e4:SetCode(EVENT_FREE_CHAIN) + e4:SetRange(LOCATION_SZONE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetHintTiming(0,0x1e0) + e4:SetTarget(c96100333.tdtg) + e4:SetOperation(c96100333.tdop) + c:RegisterEffect(e4) +end +function c96100333.cfilter(c) + return (c:IsRace(RACE_ROCK) or c:IsType(TYPE_FIELD)) and c:IsAbleToRemoveAsCost() +end +function c96100333.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetFlagEffect(96100333)==0 + and Duel.IsExistingMatchingCard(c96100333.cfilter,tp,LOCATION_GRAVE,0,2,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c96100333.cfilter,tp,LOCATION_GRAVE,0,2,2,nil) + Duel.Remove(g,POS_FACEUP,REASON_COST) + e:GetHandler():RegisterFlagEffect(96100333,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) +end +function c96100333.desfilter(c) + return c:IsFaceup() +end +function c96100333.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and c96100333.desfilter(chkc) and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(c96100333.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c96100333.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c96100333.desop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c96100333.spcfilter1(c,cg,sg) + local g=sg:Clone() + g:RemoveCard(c) + return cg:IsExists(c96100333.spcfilter2,1,c,g) +end +function c96100333.spcfilter2(c,sg) + return sg:IsExists(aux.TRUE,1,c) +end +function c96100333.spfilter(c,e,tp) + return c:IsRace(RACE_ROCK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c96100333.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c96100333.spfilter(chkc,e,tp) end + local cg=Duel.GetMatchingGroup(c96100333.cfilter,tp,LOCATION_GRAVE,0,nil) + local sg=Duel.GetMatchingGroup(c96100333.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp) + if chk==0 then return e:GetHandler():GetFlagEffect(96100333)==0 + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and cg:IsExists(c96100333.spcfilter1,1,nil,cg,sg) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g1=cg:FilterSelect(tp,c96100333.spcfilter1,1,1,nil,cg,sg) + sg:RemoveCard(g1:GetFirst()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g2=cg:FilterSelect(tp,c96100333.spcfilter2,1,1,g1:GetFirst(),sg) + sg:RemoveCard(g2:GetFirst()) + g1:Merge(g2) + Duel.Remove(g1,POS_FACEUP,REASON_COST) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=sg:Select(tp,1,1,nil) + Duel.SetTargetCard(g) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) + e:GetHandler():RegisterFlagEffect(96100333,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) +end +function c96100333.spop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + end +end +function c96100333.tdcfilter1(c,cg,sg) + local g=sg:Clone() + g:RemoveCard(c) + return cg:IsExists(c96100333.spcfilter2,1,c,g) +end +function c96100333.tdcfilter2(c,sg) + return sg:IsExists(aux.TRUE,1,c) +end +function c96100333.tdfilter(c) + return c:IsType(TYPE_FIELD) and c:IsAbleToDeck() +end +function c96100333.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c96100333.tdfilter(chkc) end + local cg=Duel.GetMatchingGroup(c96100333.cfilter,tp,LOCATION_GRAVE,0,nil) + local sg=Duel.GetMatchingGroup(c96100333.tdfilter,tp,LOCATION_GRAVE,0,nil) + if chk==0 then return e:GetHandler():GetFlagEffect(96100333)==0 + and Duel.IsPlayerCanDraw(tp,1) + and cg:IsExists(c96100333.tdcfilter1,1,nil,cg,sg) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g1=cg:FilterSelect(tp,c96100333.tdcfilter1,1,1,nil,cg,sg) + sg:RemoveCard(g1:GetFirst()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g2=cg:FilterSelect(tp,c96100333.tdcfilter2,1,1,g1:GetFirst(),sg) + sg:RemoveCard(g2:GetFirst()) + g1:Merge(g2) + Duel.Remove(g1,POS_FACEUP,REASON_COST) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) + local g=sg:Select(tp,1,3,nil) + Duel.SetTargetCard(g) + Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) + e:GetHandler():RegisterFlagEffect(96100333,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) +end +function c96100333.tdop(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) + if tg:GetCount()==0 then return end + Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) + local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end + local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) + if ct>0 then + Duel.BreakEffect() + Duel.Draw(tp,1,REASON_EFFECT) + end +end +function c96100333.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then + if e:GetLabel()==1 then return c96100333.destg(e,tp,eg,ep,ev,re,r,rp,0,chkc) + elseif e:GetLabel()==2 then return c96100333.sptg(e,tp,eg,ep,ev,re,r,rp,0,chkc) + else return c96100333.tdtg(e,tp,eg,ep,ev,re,r,rp,0,chkc) end + end + if chk==0 then return true end + local b1=c96100333.cost(e,tp,eg,ep,ev,re,r,rp,0) + and c96100333.destg(e,tp,eg,ep,ev,re,r,rp,0) + local b2=c96100333.sptg(e,tp,eg,ep,ev,re,r,rp,0) + local b3=c96100333.tdtg(e,tp,eg,ep,ev,re,r,rp,0) + if (b1 or b2 or b3) and Duel.SelectYesNo(tp,94) then + local ops={} + local opval={} + local off=1 + if b1 then + ops[off]=aux.Stringid(96100333,1) + opval[off-1]=1 + off=off+1 + end + if b2 then + ops[off]=aux.Stringid(96100333,2) + opval[off-1]=2 + off=off+1 + end + if b3 then + ops[off]=aux.Stringid(96100333,3) + opval[off-1]=3 + off=off+1 + end + local op=Duel.SelectOption(tp,table.unpack(ops)) + local sel=opval[op] + e:SetLabel(sel) + if sel==1 then + c96100333.cost(e,tp,eg,ep,ev,re,r,rp,1) + c96100333.destg(e,tp,eg,ep,ev,re,r,rp,1) + e:SetCategory(CATEGORY_DESTROY) + e:SetOperation(c96100333.desop) + elseif sel==2 then + c96100333.sptg(e,tp,eg,ep,ev,re,r,rp,1) + e:SetCategory(CATEGORY_SPECIAL_SUMMON) + e:SetOperation(c96100333.spop) + else + c96100333.tdtg(e,tp,eg,ep,ev,re,r,rp,1) + e:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW) + e:SetOperation(c96100333.tdop) + end + e:SetProperty(EFFECT_FLAG_CARD_TARGET) + else + e:SetCategory(0) + e:SetProperty(0) + e:SetOperation(nil) + end +end diff --git a/script/c96146814.lua b/script/c96146814.lua index f9e0016d..0eae7953 100644 --- a/script/c96146814.lua +++ b/script/c96146814.lua @@ -26,6 +26,6 @@ end function c96146814.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end diff --git a/script/c96163807.lua b/script/c96163807.lua index 1b3fdaff..e1645e46 100644 --- a/script/c96163807.lua +++ b/script/c96163807.lua @@ -20,7 +20,7 @@ function c96163807.initial_effect(c) c:RegisterEffect(e2) end function c96163807.thfilter(c) - return c:GetDefence()==0 and c:IsRace(RACE_ZOMBIE) and c:IsAbleToHand() + return c:GetDefense()==0 and c:IsRace(RACE_ZOMBIE) and c:IsAbleToHand() end function c96163807.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c96163807.thfilter(chkc) end @@ -33,7 +33,6 @@ function c96163807.thop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end function c96163807.atkfilter(c) diff --git a/script/c96223501.lua b/script/c96223501.lua index 9c31d551..93e6a522 100644 --- a/script/c96223501.lua +++ b/script/c96223501.lua @@ -6,11 +6,10 @@ function c96223501.initial_effect(c) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD) e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE) + e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE) e2:SetRange(LOCATION_PZONE) e2:SetTargetRange(1,0) e2:SetTarget(c96223501.splimit) - e2:SetCondition(aux.nfbdncon) c:RegisterEffect(e2) --destroy local e3=Effect.CreateEffect(c) @@ -40,10 +39,10 @@ end function c96223501.filter1(c) return ((c:IsLocation(LOCATION_MZONE) and c:IsFaceup()) or (c:IsLocation(LOCATION_SZONE) and (c:GetSequence()==6 or c:GetSequence()==7))) - and (c:IsSetCard(0x9c) or c:IsSetCard(0xc4)) and c:IsDestructable() + and (c:IsSetCard(0x9c) or c:IsSetCard(0xc4)) end function c96223501.filter2(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c96223501.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end diff --git a/script/c96300057.lua b/script/c96300057.lua index 804cf5f3..55c8ac52 100644 --- a/script/c96300057.lua +++ b/script/c96300057.lua @@ -16,7 +16,6 @@ function c96300057.initial_effect(c) e2:SetCategory(CATEGORY_SPECIAL_SUMMON) e2:SetType(EFFECT_TYPE_IGNITION) e2:SetRange(LOCATION_SZONE) - e2:SetCondition(c96300057.uncon) e2:SetTarget(c96300057.sptg) e2:SetOperation(c96300057.spop) c:RegisterEffect(e2) @@ -25,21 +24,18 @@ function c96300057.initial_effect(c) e3:SetType(EFFECT_TYPE_EQUIP) e3:SetCode(EFFECT_UPDATE_ATTACK) e3:SetValue(400) - e3:SetCondition(c96300057.uncon) c:RegisterEffect(e3) --Def up local e4=Effect.CreateEffect(c) e4:SetType(EFFECT_TYPE_EQUIP) - e4:SetCode(EFFECT_UPDATE_DEFENCE) + e4:SetCode(EFFECT_UPDATE_DEFENSE) e4:SetValue(400) - e4:SetCondition(c96300057.uncon) c:RegisterEffect(e4) --destroy sub local e5=Effect.CreateEffect(c) e5:SetType(EFFECT_TYPE_EQUIP) e5:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) e5:SetCode(EFFECT_DESTROY_SUBSTITUTE) - e5:SetCondition(c96300057.uncon) e5:SetValue(c96300057.repval) c:RegisterEffect(e5) --eqlimit @@ -50,17 +46,14 @@ function c96300057.initial_effect(c) e6:SetValue(c96300057.eqlimit) c:RegisterEffect(e6) end -function c96300057.uncon(e) - return e:GetHandler():IsStatus(STATUS_UNION) -end function c96300057.repval(e,re,r,rp) - return bit.band(r,REASON_BATTLE)~=0 + return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 end function c96300057.eqlimit(e,c) - return c:IsCode(51638941) + return c:IsCode(51638941) or e:GetHandler():GetEquipTarget()==c end function c96300057.filter(c) - return c:IsFaceup() and c:IsCode(51638941) and c:GetUnionCount()==0 + return c:IsFaceup() and c:IsCode(51638941) end function c96300057.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c96300057.filter(chkc) end @@ -90,7 +83,9 @@ function c96300057.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c96300057.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP_ATTACK) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,true,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c96316857.lua b/script/c96316857.lua index 95c02673..9cae3f73 100644 --- a/script/c96316857.lua +++ b/script/c96316857.lua @@ -13,6 +13,7 @@ function c96316857.initial_effect(c) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e2:SetCode(EVENT_PHASE+PHASE_STANDBY) e2:SetRange(LOCATION_SZONE) + e2:SetCountLimit(1) e2:SetCondition(c96316857.rccon) e2:SetCost(c96316857.rccost) e2:SetTarget(c96316857.rctg) diff --git a/script/c96331676.lua b/script/c96331676.lua index dd3220bd..e434c524 100644 --- a/script/c96331676.lua +++ b/script/c96331676.lua @@ -21,10 +21,10 @@ function c96331676.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c96331676.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c96331676.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c9637706.lua b/script/c9637706.lua old mode 100755 new mode 100644 diff --git a/script/c96381979.lua b/script/c96381979.lua index ec6d2e08..587cb768 100644 --- a/script/c96381979.lua +++ b/script/c96381979.lua @@ -114,11 +114,13 @@ end function c96381979.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local g=Duel.GetMatchingGroup(c96381979.spfilter,tp,LOCATION_DECK,0,nil,e,tp) - return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and g:IsExists(c96381979.afilter1,1,nil,g) + return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and g:IsExists(c96381979.afilter1,1,nil,g) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) end function c96381979.spop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 then return end local g=Duel.GetMatchingGroup(c96381979.spfilter,tp,LOCATION_DECK,0,nil,e,tp) local dg=g:Filter(c96381979.afilter1,nil,g) @@ -127,8 +129,8 @@ function c96381979.spop(e,tp,eg,ep,ev,re,r,rp) local tc1=dg:Select(tp,1,1,nil):GetFirst() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local tc2=dg:FilterSelect(tp,c96381979.afilter2,1,1,tc1,tc1:GetAttack()):GetFirst() - Duel.SpecialSummonStep(tc1,0,tp,tp,false,false,POS_FACEUP_DEFENCE) - Duel.SpecialSummonStep(tc2,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummonStep(tc1,0,tp,tp,false,false,POS_FACEUP_DEFENSE) + Duel.SpecialSummonStep(tc2,0,tp,tp,false,false,POS_FACEUP_DEFENSE) Duel.SpecialSummonComplete() end end diff --git a/script/c96383838.lua b/script/c96383838.lua index 394efc0e..deb072b7 100644 --- a/script/c96383838.lua +++ b/script/c96383838.lua @@ -15,7 +15,8 @@ function c96383838.filter(c,e,tp) end function c96383838.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c96383838.filter(chkc,e,tp) end - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and Duel.IsExistingTarget(c96383838.filter,tp,LOCATION_GRAVE,0,3,nil,e,tp) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c96383838.filter,tp,LOCATION_GRAVE,0,3,3,nil,e,tp) @@ -28,6 +29,7 @@ function c96383838.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<=0 then return end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end local sg=g:Filter(c96383838.rfilter,nil,e,tp) if sg:GetCount()==0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) diff --git a/script/c96385345.lua b/script/c96385345.lua index acf27366..4ebe81fe 100644 --- a/script/c96385345.lua +++ b/script/c96385345.lua @@ -43,7 +43,7 @@ function c96385345.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c96385345.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end function c96385345.thcost(e,tp,eg,ep,ev,re,r,rp,chk) diff --git a/script/c96457619.lua b/script/c96457619.lua index 1f692a40..6216a4c0 100644 --- a/script/c96457619.lua +++ b/script/c96457619.lua @@ -12,7 +12,7 @@ function c96457619.initial_effect(c) e2:SetRange(LOCATION_SZONE) e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) e2:SetTarget(c96457619.etarget) - e2:SetValue(aux.tgval) + e2:SetValue(1) c:RegisterEffect(e2) end function c96457619.etarget(e,c) diff --git a/script/c96458440.lua b/script/c96458440.lua index 2e3f09e0..d8ae152a 100644 --- a/script/c96458440.lua +++ b/script/c96458440.lua @@ -30,12 +30,10 @@ function c96458440.initial_effect(c) c:RegisterEffect(e4) end function c96458440.eqlimit(e,c) - local code=c:GetCode() - return code==8508055 or code==3810071 or code==49814180 + return c:IsCode(8508055,3810071,49814180) end function c96458440.filter(c) - local code=c:GetCode() - return c:IsFaceup() and (code==8508055 or code==3810071 or code==49814180) + return c:IsFaceup() and c:IsCode(8508055,3810071,49814180) end function c96458440.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c96458440.filter(chkc) end @@ -59,7 +57,7 @@ function c96458440.damtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end local ec=eg:GetFirst() local bc=ec:GetBattleTarget() - local dam=bc:GetDefence() + local dam=bc:GetDefense() Duel.SetTargetPlayer(1-tp) Duel.SetTargetParam(dam) Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam) diff --git a/script/c96470883.lua b/script/c96470883.lua index 555632f6..cd62b500 100644 --- a/script/c96470883.lua +++ b/script/c96470883.lua @@ -40,7 +40,7 @@ function c96470883.otop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL) end function c96470883.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c96470883.descon(e,tp,eg,ep,ev,re,r,rp) return tp==Duel.GetTurnPlayer() diff --git a/script/c96501677.lua b/script/c96501677.lua index 19851415..0b70b567 100644 --- a/script/c96501677.lua +++ b/script/c96501677.lua @@ -38,7 +38,7 @@ function c96501677.defop(e,tp,eg,ep,ev,re,r,rp) if tc:IsFaceup() and tc:IsRelateToEffect(e) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_DEFENCE_FINAL) + e1:SetCode(EFFECT_SET_DEFENSE_FINAL) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e1:SetValue(0) tc:RegisterEffect(e1) diff --git a/script/c96570609.lua b/script/c96570609.lua old mode 100755 new mode 100644 index a11185cc..0a842caf --- a/script/c96570609.lua +++ b/script/c96570609.lua @@ -32,7 +32,6 @@ function c96570609.initial_effect(c) e4:SetRange(LOCATION_HAND) e4:SetCode(EVENT_FREE_CHAIN) e4:SetHintTiming(0,0x1c0+TIMING_MAIN_END) - e4:SetCountLimit(1) e4:SetCondition(c96570609.sumcon) e4:SetCost(c96570609.sumcost) e4:SetTarget(c96570609.sumtg) @@ -61,12 +60,13 @@ function c96570609.tgfilter(c) return c:IsSetCard(0xbe) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGrave() end function c96570609.spfilter(c,e,tp) - return c:IsAttackAbove(2400) and c:GetDefence()==1000 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + return c:IsAttackAbove(2400) and c:GetDefense()==1000 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c96570609.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local g=Duel.GetMatchingGroup(c96570609.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,nil) return g:GetClassCount(Card.GetCode)>1 + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c96570609.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,2,tp,LOCATION_DECK) @@ -109,18 +109,29 @@ function c96570609.cfilter(c) return c:IsSetCard(0xbe) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemoveAsCost() end function c96570609.sumcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c96570609.cfilter,tp,LOCATION_GRAVE,0,1,nil) end + local c=e:GetHandler() + if chk==0 then return Duel.IsExistingMatchingCard(c96570609.cfilter,tp,LOCATION_GRAVE,0,1,nil) + and c:GetFlagEffect(96570609)==0 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) local g=Duel.SelectMatchingCard(tp,c96570609.cfilter,tp,LOCATION_GRAVE,0,1,1,nil) Duel.Remove(g,POS_FACEUP,REASON_COST) + c:RegisterFlagEffect(96570609,RESET_CHAIN,0,1) end function c96570609.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():IsSummonable(true,nil,1) end - Duel.SetOperationInfo(0,CATEGORY_SUMMON,e:GetHandler(),1,0,0) + local c=e:GetHandler() + if chk==0 then return c:IsSummonable(true,nil,1) or c:IsMSetable(true,nil,1) end + Duel.SetOperationInfo(0,CATEGORY_SUMMON,c,1,0,0) end function c96570609.sumop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and c:IsSummonable(true,nil,1) then + if not c:IsRelateToEffect(e) then return end + local pos=0 + if c:IsSummonable(true,nil,1) then pos=pos+POS_FACEUP_ATTACK end + if c:IsMSetable(true,nil,1) then pos=pos+POS_FACEDOWN_DEFENSE end + if pos==0 then return end + if Duel.SelectPosition(tp,c,pos)==POS_FACEUP_ATTACK then Duel.Summon(tp,c,true,nil,1) + else + Duel.MSet(tp,c,true,nil,1) end end diff --git a/script/c96592102.lua b/script/c96592102.lua new file mode 100644 index 00000000..b8382625 --- /dev/null +++ b/script/c96592102.lua @@ -0,0 +1,63 @@ +--RR－ブレード・バーナー・ファルコン +function c96592102.initial_effect(c) + --xyz summon + aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_WINDBEAST),4,2) + c:EnableReviveLimit() + --atkup + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(96592102,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetProperty(EFFECT_FLAG_DELAY) + e1:SetCondition(c96592102.atkcon) + e1:SetOperation(c96592102.atkop) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(96592102,1)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BATTLE_DESTROYING) + e2:SetCondition(aux.bdocon) + e2:SetCost(c96592102.descost) + e2:SetTarget(c96592102.destg) + e2:SetOperation(c96592102.desop) + c:RegisterEffect(e2) +end +function c96592102.atkcon(e,tp,eg,ep,ev,re,r,rp) + return Duel.GetLP(tp)<=Duel.GetLP(1-tp)-3000 and e:GetHandler():GetSummonType()==SUMMON_TYPE_XYZ +end +function c96592102.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and c:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(3000) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + end +end +function c96592102.descost(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_COST) end + local rt=math.min(Duel.GetMatchingGroupCount(aux.TRUE,tp,0,LOCATION_MZONE,nil),c:GetOverlayCount()) + c:RemoveOverlayCard(tp,1,rt,REASON_COST) + local ct=Duel.GetOperatedGroup():GetCount() + e:SetLabel(ct) +end +function c96592102.destg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,e:GetLabel(),0,0) +end +function c96592102.desop(e,tp,eg,ep,ev,re,r,rp) + local ct=e:GetLabel() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_MZONE,ct,ct,nil) + if g:GetCount()>0 then + Duel.HintSelection(g) + Duel.Destroy(g,REASON_EFFECT) + end +end diff --git a/script/c96594609.lua b/script/c96594609.lua index ac563ea2..2a91cd4a 100644 --- a/script/c96594609.lua +++ b/script/c96594609.lua @@ -39,8 +39,10 @@ function c96594609.sptg(e,tp,eg,ep,ev,re,r,rp,chk) end function c96594609.spop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) then - Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c96594609.tgcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c9659580.lua b/script/c9659580.lua new file mode 100644 index 00000000..33b4ff04 --- /dev/null +++ b/script/c9659580.lua @@ -0,0 +1,100 @@ +--方界業 +function c9659580.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c9659580.target) + c:RegisterEffect(e1) + --lp halve + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(9659580,1)) + e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetRange(LOCATION_SZONE) + e2:SetCondition(c9659580.lpcon) + e2:SetOperation(c9659580.lpop) + c:RegisterEffect(e2) + --to hand + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(9659580,2)) + e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_GRAVE) + e3:SetCost(c9659580.thcost) + e3:SetTarget(c9659580.thtg) + e3:SetOperation(c9659580.thop) + c:RegisterEffect(e3) +end +function c9659580.tgfilter(c) + return c:IsCode(15610297) and c:IsAbleToGrave() +end +function c9659580.filter(c) + return c:IsFaceup() and c:IsSetCard(0xe3) and not c:IsCode(15610297) +end +function c9659580.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c9659580.filter(chkc) end + if chk==0 then return true end + if Duel.IsExistingTarget(c9659580.filter,tp,LOCATION_MZONE,0,1,nil) + and Duel.IsExistingMatchingCard(c9659580.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) + and Duel.SelectYesNo(tp,aux.Stringid(9659580,0)) then + e:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_TOGRAVE) + e:SetProperty(EFFECT_FLAG_CARD_TARGET) + e:SetOperation(c9659580.activate) + Duel.SelectTarget(tp,c9659580.filter,tp,LOCATION_MZONE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) + else + e:SetCategory(0) + e:SetProperty(0) + e:SetOperation(nil) + end +end +function c9659580.activate(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c9659580.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,99,nil) + if Duel.SendtoGrave(g,REASON_EFFECT)~=0 then + local og=Duel.GetOperatedGroup() + local n=og:FilterCount(Card.IsLocation,nil,LOCATION_GRAVE) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:IsFaceup() and n>0 then + Duel.BreakEffect() + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(n*800) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc:RegisterEffect(e1) + end + end +end +function c9659580.lpcon(e,tp,eg,ep,ev,re,r,rp) + local rc=re:GetHandler() + return Duel.GetTurnPlayer()~=tp and re:IsActiveType(TYPE_MONSTER) and rc and rc:IsSetCard(0xe3) + and eg:IsExists(Card.IsCode,1,nil,15610297) +end +function c9659580.lpop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.SendtoGrave(c,REASON_EFFECT)~=0 and c:IsLocation(LOCATION_GRAVE) then + Duel.SetLP(1-tp,math.ceil(Duel.GetLP(1-tp)/2)) + end +end +function c9659580.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c9659580.thfilter(c) + return c:IsSetCard(0xe3) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c9659580.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c9659580.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c9659580.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c9659580.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c96598015.lua b/script/c96598015.lua index e4eb2bf5..4d4e31a4 100644 --- a/script/c96598015.lua +++ b/script/c96598015.lua @@ -31,7 +31,6 @@ function c96598015.splimit(e,c,sump,sumtype,sumpos,targetp,se) end function c96598015.filter(c) return c:IsType(TYPE_PENDULUM) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) and c:IsAbleToDeck() - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c96598015.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsPlayerCanDraw(tp,2) @@ -44,9 +43,12 @@ function c96598015.activate(e,tp,eg,ep,ev,re,r,rp) if g:GetCount()<3 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) local sg=g:Select(tp,3,3,nil) + if sg:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end Duel.SendtoDeck(sg,nil,0,REASON_EFFECT) - Duel.ShuffleDeck(tp) - if sg:IsExists(Card.IsLocation,3,nil,LOCATION_DECK+LOCATION_EXTRA) then + local og=Duel.GetOperatedGroup() + if og:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end + local ct=og:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) + if ct==3 then Duel.BreakEffect() Duel.Draw(tp,2,REASON_EFFECT) end diff --git a/script/c96606246.lua b/script/c96606246.lua index 2642f6fb..8176518e 100644 --- a/script/c96606246.lua +++ b/script/c96606246.lua @@ -12,7 +12,6 @@ function c96606246.initial_effect(c) end function c96606246.filter(c,e,tp) return c:IsSetCard(0x9f) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c96606246.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -23,7 +22,7 @@ function c96606246.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c96606246.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c96622984.lua b/script/c96622984.lua new file mode 100644 index 00000000..bbd8d121 --- /dev/null +++ b/script/c96622984.lua @@ -0,0 +1,64 @@ +--捕食植物フライ・ヘル +function c96622984.initial_effect(c) + --add counter + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(96622984,0)) + e1:SetCategory(CATEGORY_COUNTER) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetCountLimit(1) + e1:SetRange(LOCATION_MZONE) + e1:SetTarget(c96622984.target) + e1:SetOperation(c96622984.operation) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(96622984,1)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_BATTLE_START) + e2:SetTarget(c96622984.destg) + e2:SetOperation(c96622984.desop) + c:RegisterEffect(e2) +end +function c96622984.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(1-tp) and chkc:IsCanAddCounter(0x1041,1) end + if chk==0 then return Duel.IsExistingTarget(Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,nil,0x1041,1) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,1,nil,0x1041,1) +end +function c96622984.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and tc:AddCounter(0x1041,1) and tc:GetLevel()>1 then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CHANGE_LEVEL) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetCondition(c96622984.lvcon) + e1:SetValue(1) + tc:RegisterEffect(e1) + end +end +function c96622984.lvcon(e) + return e:GetHandler():GetCounter(0x1041)>0 +end +function c96622984.destg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + local tc=c:GetBattleTarget() + if chk==0 then return tc and tc:IsFaceup() and tc:IsLevelBelow(c:GetLevel()) end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) +end +function c96622984.desop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=c:GetBattleTarget() + if tc:IsRelateToBattle() and Duel.Destroy(tc,REASON_EFFECT)>0 then + Duel.BreakEffect() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_COPY_INHERIT) + e1:SetCode(EFFECT_UPDATE_LEVEL) + e1:SetValue(tc:GetOriginalLevel()) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + end +end diff --git a/script/c96631852.lua b/script/c96631852.lua index 17258bc6..948afbbc 100644 --- a/script/c96631852.lua +++ b/script/c96631852.lua @@ -32,7 +32,7 @@ function c96631852.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_OWNER_RELATE) e1:SetRange(LOCATION_MZONE) - e1:SetCode(EFFECT_UPDATE_DEFENCE) + e1:SetCode(EFFECT_UPDATE_DEFENSE) e1:SetCondition(c96631852.rcon) e1:SetValue(700) e1:SetReset(RESET_EVENT+0x1fe0000) diff --git a/script/c96682430.lua b/script/c96682430.lua old mode 100755 new mode 100644 diff --git a/script/c96700602.lua b/script/c96700602.lua index be9c351b..026374ef 100644 --- a/script/c96700602.lua +++ b/script/c96700602.lua @@ -23,15 +23,15 @@ function c96700602.target(e,tp,eg,ep,ev,re,r,rp,chk) local tc=eg:GetFirst() if tc:IsLocation(LOCATION_MZONE) then Duel.SetTargetCard(tc) - Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,tc:GetDefence()) + Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,tc:GetDefense()) end end function c96700602.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() local g=Duel.GetMatchingGroup(Card.IsAttackPos,tp,0,LOCATION_MZONE,nil) - if Duel.ChangePosition(g,POS_FACEUP_DEFENCE,POS_FACEDOWN_DEFENCE,0,0)~=0 then + if Duel.ChangePosition(g,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,0,0)~=0 then if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.Damage(1-tp,tc:GetDefence(),REASON_EFFECT) + Duel.Damage(1-tp,tc:GetDefense(),REASON_EFFECT) end end end diff --git a/script/c96729612.lua b/script/c96729612.lua index 2bc4ba5a..4a8b546a 100644 --- a/script/c96729612.lua +++ b/script/c96729612.lua @@ -13,7 +13,7 @@ function c96729612.filter(c) return bit.band(c:GetType(),0x81)==0x81 and c:GetLevel()<=7 and c:IsAbleToHand() end function c96729612.filter2(c) - return bit.band(c:GetType(),0x82)==0x82 and c:IsAbleToHand() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return bit.band(c:GetType(),0x82)==0x82 and c:IsAbleToHand() end function c96729612.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c96729612.filter,tp,LOCATION_DECK,0,1,nil) end @@ -30,6 +30,7 @@ function c96729612.activate(e,tp,eg,ep,ev,re,r,rp) Duel.BreakEffect() Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local sg=mg:Select(tp,1,1,nil) + if sg:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then return end Duel.SendtoHand(sg,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,sg) end diff --git a/script/c96746083.lua b/script/c96746083.lua new file mode 100644 index 00000000..67554d68 --- /dev/null +++ b/script/c96746083.lua @@ -0,0 +1,98 @@ +--真竜皇アグニマズドV +function c96746083.initial_effect(c) + --spsummon + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetRange(LOCATION_HAND) + e1:SetCountLimit(1,96746083) + e1:SetTarget(c96746083.sptg) + e1:SetOperation(c96746083.spop) + c:RegisterEffect(e1) + --tohand + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_TOHAND) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_DESTROYED) + e2:SetCountLimit(1,96746084) + e2:SetCondition(c96746083.thcon) + e2:SetTarget(c96746083.thtg) + e2:SetOperation(c96746083.thop) + c:RegisterEffect(e2) +end +function c96746083.desfilter(c) + return c:IsType(TYPE_MONSTER) and ((c:IsLocation(LOCATION_MZONE) and c:IsFaceup()) or c:IsLocation(LOCATION_HAND)) +end +function c96746083.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local loc=LOCATION_MZONE+LOCATION_HAND + if ft<0 then loc=LOCATION_MZONE end + local g=Duel.GetMatchingGroup(c96746083.desfilter,tp,loc,0,c) + if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and g:GetCount()>=2 and g:IsExists(Card.IsAttribute,1,nil,ATTRIBUTE_FIRE) + and (ft>0 or g:IsExists(Card.IsLocation,-ft+1,nil,LOCATION_MZONE)) end + Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,2,tp,loc) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) +end +function c96746083.rmfilter(c,tp) + return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove(tp) +end +function c96746083.spop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + local loc=LOCATION_MZONE+LOCATION_HAND + if ft<0 then loc=LOCATION_MZONE end + local g=Duel.GetMatchingGroup(c96746083.desfilter,tp,loc,0,c) + if g:GetCount()<2 or not g:IsExists(Card.IsAttribute,1,nil,ATTRIBUTE_FIRE) then return end + local g1=nil local g2=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + if ft<1 then + g1=g:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE) + else + g1=g:Select(tp,1,1,nil) + end + g:RemoveCard(g1:GetFirst()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + if g1:GetFirst():IsAttribute(ATTRIBUTE_FIRE) then + g2=g:Select(tp,1,1,nil) + else + g2=g:FilterSelect(tp,Card.IsAttribute,1,1,nil,ATTRIBUTE_FIRE) + end + g1:Merge(g2) + local rm=g1:IsExists(Card.IsAttribute,2,nil,ATTRIBUTE_FIRE) + if Duel.Destroy(g1,REASON_EFFECT)==2 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) + return + end + local rg=Duel.GetMatchingGroup(c96746083.rmfilter,tp,0,LOCATION_MZONE+LOCATION_GRAVE,nil,tp) + if rm and rg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(96746083,0)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local tg=rg:Select(tp,1,1,nil) + Duel.HintSelection(tg) + Duel.Remove(tg,POS_FACEUP,REASON_EFFECT) + end + end +end +function c96746083.thcon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsReason(REASON_EFFECT) +end +function c96746083.thfilter(c) + return c:GetAttribute()~=ATTRIBUTE_FIRE and c:IsRace(RACE_WYRM) and c:IsAbleToHand() +end +function c96746083.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c96746083.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) +end +function c96746083.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c96746083.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c96765646.lua b/script/c96765646.lua old mode 100755 new mode 100644 diff --git a/script/c96782886.lua b/script/c96782886.lua index 709de8d4..dd96a9a7 100644 --- a/script/c96782886.lua +++ b/script/c96782886.lua @@ -32,5 +32,5 @@ function c96782886.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c96782886.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - if g:GetCount()>0 then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end + if g:GetCount()>0 then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_ATTACK) end end diff --git a/script/c96789758.lua b/script/c96789758.lua old mode 100755 new mode 100644 diff --git a/script/c96802306.lua b/script/c96802306.lua index 201c97f2..d140c10b 100644 --- a/script/c96802306.lua +++ b/script/c96802306.lua @@ -23,8 +23,7 @@ end function c96802306.thtg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() local pc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-c:GetSequence()) - if chk==0 then return c:IsDestructable() and pc:IsDestructable() - and Duel.IsExistingMatchingCard(c96802306.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end + if chk==0 then return Duel.IsExistingMatchingCard(c96802306.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end local g=Group.FromCards(c,pc) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) diff --git a/script/c96864811.lua b/script/c96864811.lua index 0b017270..829516f8 100644 --- a/script/c96864811.lua +++ b/script/c96864811.lua @@ -7,6 +7,7 @@ function c96864811.initial_effect(c) e1:SetHintTiming(TIMING_DAMAGE_STEP) e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP) e1:SetCode(EVENT_FREE_CHAIN) + e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER) e1:SetCondition(c96864811.condition) e1:SetTarget(c96864811.target) e1:SetOperation(c96864811.activate) @@ -34,7 +35,7 @@ function c96864811.activate(e,tp,eg,ep,ev,re,r,rp) local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) - e2:SetValue(aux.tgval) + e2:SetValue(1) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e2) local e3=Effect.CreateEffect(c) diff --git a/script/c96872283.lua b/script/c96872283.lua index 0ab3e8e5..5286f442 100644 --- a/script/c96872283.lua +++ b/script/c96872283.lua @@ -24,10 +24,10 @@ function c96872283.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c96872283.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c96872283.operation(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c96875080.lua b/script/c96875080.lua old mode 100755 new mode 100644 index 02e9f237..7df18f4b --- a/script/c96875080.lua +++ b/script/c96875080.lua @@ -22,7 +22,7 @@ function c96875080.cost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c96875080.filter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c96875080.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c96875080.filter(chkc) and chkc~=e:GetHandler() end diff --git a/script/c96890582.lua b/script/c96890582.lua index 946b2d34..1a471c36 100644 --- a/script/c96890582.lua +++ b/script/c96890582.lua @@ -10,7 +10,7 @@ function c96890582.initial_effect(c) c:RegisterEffect(e1) --defdown local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e2) end function c96890582.val(e,c) diff --git a/script/c96907086.lua b/script/c96907086.lua index d874785b..fd5ad6a2 100644 --- a/script/c96907086.lua +++ b/script/c96907086.lua @@ -17,7 +17,7 @@ function c96907086.condition(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c96907086.cfilter,tp,LOCATION_MZONE,0,1,nil) end function c96907086.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c96907086.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c96907086.filter,tp,0,LOCATION_ONFIELD,1,nil) end diff --git a/script/c96947648.lua b/script/c96947648.lua index 63cc3658..ae7615f6 100644 --- a/script/c96947648.lua +++ b/script/c96947648.lua @@ -11,8 +11,7 @@ function c96947648.initial_effect(c) c:RegisterEffect(e1) end function c96947648.filter(c) - local atk=c:GetAttack() - return atk>=0 and atk<=1500 and c:IsAttribute(ATTRIBUTE_WATER) and c:IsAbleToHand() + return c:IsType(TYPE_MONSTER) and c:IsAttackBelow(1500) and c:IsAttribute(ATTRIBUTE_WATER) and c:IsAbleToHand() end function c96947648.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE and c96947648.filter(chkc) end @@ -26,6 +25,5 @@ function c96947648.activate(e,tp,eg,ep,ev,re,r,rp) local sg=g:Filter(Card.IsRelateToEffect,nil,e) if sg:GetCount()>0 then Duel.SendtoHand(sg,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,sg) end end diff --git a/script/c96977047.lua b/script/c96977047.lua deleted file mode 100644 index eddb681e..00000000 --- a/script/c96977047.lua +++ /dev/null @@ -1,46 +0,0 @@ ---Shadow Balance -function c96977047.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_SUMMON_SUCCESS) - e1:SetCondition(c96977047.condition) - e1:SetTarget(c96977047.target) - e1:SetOperation(c96977047.activate) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetCategory(CATEGORY_DESTROY) - e2:SetType(EFFECT_TYPE_ACTIVATE) - e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS) - e2:SetCondition(c96977047.condition) - e2:SetTarget(c96977047.target) - e2:SetOperation(c96977047.activate) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetCategory(CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_ACTIVATE) - e3:SetCode(EVENT_SPSUMMON_SUCCESS) - e3:SetCondition(c96977047.condition) - e3:SetTarget(c96977047.target) - e3:SetOperation(c96977047.activate) - c:RegisterEffect(e3) -end -function c96977047.condition(e,tp,eg,ep,ev,re,r,rp) - return ep==1-tp and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0) -end -function c96977047.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)-Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,ct,0,0) -end -function c96977047.activate(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)-Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0) - if ct>0 then - Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_DESTROY) - local dg=g:Select(tp,ct,ct,nil) - Duel.Destroy(dg,REASON_EFFECT) - end -end \ No newline at end of file diff --git a/script/c97001138.lua b/script/c97001138.lua new file mode 100644 index 00000000..ebd76963 --- /dev/null +++ b/script/c97001138.lua @@ -0,0 +1,46 @@ +--ダーク・アドバンス +function c97001138.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_TOHAND) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,97001138+EFFECT_COUNT_CODE_OATH) + e1:SetCondition(c97001138.condition) + e1:SetTarget(c97001138.target) + e1:SetOperation(c97001138.activate) + c:RegisterEffect(e1) +end +function c97001138.condition(e,tp,eg,ep,ev,re,r,rp) + local ph=Duel.GetCurrentPhase() + return ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2 +end +function c97001138.thfilter(c) + return c:IsAttackAbove(2400) and c:GetDefense()==1000 and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c97001138.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c97001138.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c97001138.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c97001138.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c97001138.sumfilter(c) + return c:IsAttackAbove(2400) and c:GetDefense()==1000 and c:IsSummonable(true,nil,1) +end +function c97001138.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_HAND) then + local g=Duel.GetMatchingGroup(c97001138.sumfilter,tp,LOCATION_HAND,0,nil) + if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(97001138,0)) then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON) + local sc=g:Select(tp,1,1,nil):GetFirst() + Duel.ShuffleHand(tp) + Duel.Summon(tp,sc,true,nil,1) + else + Duel.ShuffleHand(tp) + end + end +end diff --git a/script/c97024987.lua b/script/c97024987.lua index 195679a0..a48d0a7d 100644 --- a/script/c97024987.lua +++ b/script/c97024987.lua @@ -23,8 +23,7 @@ end function c97024987.thtg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() local pc=Duel.GetFieldCard(tp,LOCATION_SZONE,13-c:GetSequence()) - if chk==0 then return c:IsDestructable() and pc:IsDestructable() - and Duel.IsExistingMatchingCard(c97024987.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end + if chk==0 then return Duel.IsExistingMatchingCard(c97024987.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end local g=Group.FromCards(c,pc) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE) diff --git a/script/c97077563.lua b/script/c97077563.lua index 1950d36f..317d20b7 100644 --- a/script/c97077563.lua +++ b/script/c97077563.lua @@ -47,9 +47,10 @@ end function c97077563.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK)==0 then return end + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() end end function c97077563.checkop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c97120394.lua b/script/c97120394.lua old mode 100755 new mode 100644 index 18a394d9..b32ebf4d --- a/script/c97120394.lua +++ b/script/c97120394.lua @@ -11,11 +11,13 @@ function c97120394.initial_effect(c) c:RegisterEffect(e1) end function c97120394.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetCurrentPhase()==PHASE_BATTLE and not Duel.CheckPhaseActivity() + return Duel.GetCurrentPhase()==PHASE_BATTLE_START end function c97120394.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - Duel.SetChainLimit(aux.FALSE) + if e:IsHasType(EFFECT_TYPE_ACTIVATE) then + Duel.SetChainLimit(aux.FALSE) + end end function c97120394.activate(e,tp,eg,ep,ev,re,r,rp) local e1=Effect.CreateEffect(e:GetHandler()) diff --git a/script/c97151365.lua b/script/c97151365.lua index 5793a9cb..66a9ca12 100644 --- a/script/c97151365.lua +++ b/script/c97151365.lua @@ -1,5 +1,6 @@ --スターゲート function c97151365.initial_effect(c) + c:EnableCounterPermit(0x1e) --Activate local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_ACTIVATE) @@ -27,7 +28,7 @@ function c97151365.initial_effect(c) end function c97151365.ctop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetTurnPlayer()~=tp or Duel.GetAttackTarget()~=nil then - e:GetHandler():AddCounter(COUNTER_NEED_ENABLE+0x1e,1) + e:GetHandler():AddCounter(0x1e,1) end end function c97151365.spcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c97165977.lua b/script/c97165977.lua new file mode 100644 index 00000000..b03bcce9 --- /dev/null +++ b/script/c97165977.lua @@ -0,0 +1,82 @@ +--月光舞豹姫 +function c97165977.initial_effect(c) + --fusion material + c:EnableReviveLimit() + aux.AddFusionProcCodeFun(c,51777272,aux.FilterBoolFunction(Card.IsFusionSetCard,0xdf),1,false,false) + --spsummon condition + local e0=Effect.CreateEffect(c) + e0:SetType(EFFECT_TYPE_SINGLE) + e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e0:SetCode(EFFECT_SPSUMMON_CONDITION) + e0:SetValue(c97165977.splimit) + c:RegisterEffect(e0) + --Immune + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetValue(c97165977.tgvalue) + c:RegisterEffect(e1) + --Multiple attacks + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(97165977,0)) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetCountLimit(1) + e3:SetRange(LOCATION_MZONE) + e3:SetCondition(c97165977.condition) + e3:SetOperation(c97165977.operation) + c:RegisterEffect(e3) + --ATK Up + local e4=Effect.CreateEffect(c) + e4:SetDescription(aux.Stringid(97165977,1)) + e4:SetCategory(CATEGORY_ATKCHANGE) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e4:SetCode(EVENT_BATTLE_DESTROYING) + e4:SetCondition(aux.bdocon) + e4:SetOperation(c97165977.atkop) + c:RegisterEffect(e4) +end +function c97165977.splimit(e,se,sp,st) + return not e:GetHandler():IsLocation(LOCATION_EXTRA) or bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +function c97165977.tgvalue(e,re,rp) + return rp~=e:GetHandlerPlayer() +end +function c97165977.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsAbleToEnterBP() +end +function c97165977.operation(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT) + e1:SetTargetRange(0,LOCATION_MZONE) + e1:SetValue(c97165977.indct) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + if c:IsRelateToEffect(e) then + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_ATTACK_ALL) + e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e2:SetValue(2) + c:RegisterEffect(e2) + end +end +function c97165977.indct(e,re,r,rp) + if bit.band(r,REASON_BATTLE)~=0 then + return 1 + else return 0 end +end +function c97165977.atkop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and c:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(200) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_BATTLE) + c:RegisterEffect(e1) + end +end diff --git a/script/c97168905.lua b/script/c97168905.lua index d908a428..2fc2f6df 100644 --- a/script/c97168905.lua +++ b/script/c97168905.lua @@ -35,7 +35,7 @@ function c97168905.activate(e,tp,eg,ep,ev,re,r,rp) tc:RegisterEffect(e1) local e2=Effect.CreateEffect(e:GetHandler()) e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_EXTRA_ATTACK) + e2:SetCode(EFFECT_EXTRA_ATTACK_MONSTER) e2:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e2:SetValue(1) tc:RegisterEffect(e2) diff --git a/script/c97169186.lua b/script/c97169186.lua index 0c1275f3..8cb269d5 100644 --- a/script/c97169186.lua +++ b/script/c97169186.lua @@ -10,18 +10,18 @@ function c97169186.initial_effect(c) c:RegisterEffect(e1) end function c97169186.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c97169186.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c97169186.filter,tp,0,LOCATION_MZONE,1,nil) end local g=Duel.GetMatchingGroup(c97169186.filter,tp,0,LOCATION_MZONE,nil) - local tg=g:GetMaxGroup(Card.GetDefence) + local tg=g:GetMaxGroup(Card.GetDefense) Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0) end function c97169186.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c97169186.filter,tp,0,LOCATION_MZONE,nil) if g:GetCount()>0 then - local tg=g:GetMaxGroup(Card.GetDefence) + local tg=g:GetMaxGroup(Card.GetDefense) if tg:GetCount()>1 then Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) local sg=tg:Select(tp,1,1,nil) diff --git a/script/c97173708.lua b/script/c97173708.lua index 9db02d4b..5d2ffee2 100644 --- a/script/c97173708.lua +++ b/script/c97173708.lua @@ -44,6 +44,7 @@ function c97173708.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.Release(rg1,REASON_COST) local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft>rg1:GetCount() then ft=rg1:GetCount() end + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectTarget(tp,c97173708.spfilter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp,lv) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,g:GetCount(),0,0) @@ -51,7 +52,10 @@ end function c97173708.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()==0 then return end - if Duel.GetLocationCount(tp,LOCATION_MZONE)0 then + return mg:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,99,c) + else + return ft>-1 and mg:IsExists(c97211663.mfilterf,1,nil,tp,mg,c) + end +end +function c97211663.mfilterf(c,tp,mg,rc) + if c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) then + Duel.SetSelectedCard(c) + return mg:CheckWithSumEqual(Card.GetRitualLevel,rc:GetLevel(),0,99,rc) + else return false end end function c97211663.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then local mg=Duel.GetRitualMaterial(tp) - return Duel.IsExistingMatchingCard(c97211663.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp,mg) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + return Duel.IsExistingMatchingCard(c97211663.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp,mg,ft) end Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE) end function c97211663.activate(e,tp,eg,ep,ev,re,r,rp) local mg=Duel.GetRitualMaterial(tp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,c97211663.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp,mg) + local tg=Duel.SelectMatchingCard(tp,c97211663.filter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp,mg,ft) local tc=tg:GetFirst() - if tc then + if tc and not tc:IsHasEffect(EFFECT_NECRO_VALLEY) then mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc) if tc:IsCode(21105106) then tc:ritual_custom_operation(mg) @@ -52,8 +64,18 @@ function c97211663.activate(e,tp,eg,ep,ev,re,r,rp) if tc.mat_filter then mg=mg:Filter(tc.mat_filter,nil) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),1,99,tc) + local mat=nil + if ft>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),1,99,tc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:FilterSelect(tp,c97211663.mfilterf,1,1,nil,tp,mg,tc) + Duel.SetSelectedCard(mat) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local mat2=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),0,99,tc) + mat:Merge(mat2) + end tc:SetMaterial(mat) Duel.ReleaseRitualMaterial(mat) end diff --git a/script/c97219708.lua b/script/c97219708.lua index 8a7bc058..30acfb73 100644 --- a/script/c97219708.lua +++ b/script/c97219708.lua @@ -4,7 +4,7 @@ function c97219708.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(97219708,0)) e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_RECOVER) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetRange(LOCATION_HAND) e1:SetCondition(c97219708.reccon) @@ -29,7 +29,8 @@ function c97219708.reccon(e,tp,eg,ep,ev,re,r,rp) return (tc:IsControler(tp) and tc:IsSetCard(0xba)) or (at and at:IsControler(tp) and at:IsSetCard(0xba)) end function c97219708.rectg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return not e:GetHandler():IsStatus(STATUS_CHAINING) and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and not e:GetHandler():IsStatus(STATUS_CHAINING) and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,nil,TYPE_SPELL+TYPE_TRAP) end local ct=Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil,TYPE_SPELL+TYPE_TRAP) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) @@ -37,12 +38,15 @@ function c97219708.rectg(e,tp,eg,ep,ev,re,r,rp,chk) end function c97219708.recop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then local ct=Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,nil,TYPE_SPELL+TYPE_TRAP) if ct>0 then Duel.BreakEffect() Duel.Recover(tp,ct*100,REASON_EFFECT) end + elseif c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then + Duel.SendtoGrave(c,REASON_RULE) end end function c97219708.spfilter(c,e,tp) @@ -63,7 +67,7 @@ function c97219708.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c97219708.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp) local tc=g:GetFirst() - if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) then + if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_DISABLE) diff --git a/script/c97232518.lua b/script/c97232518.lua index 2479e75a..97f5e7ad 100644 --- a/script/c97232518.lua +++ b/script/c97232518.lua @@ -19,9 +19,9 @@ function c97232518.activate(e,tp,eg,ep,ev,re,r,rp) if not c:IsRelateToEffect(e) then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,97232518,0,0x21,1900,0,5,RACE_THUNDER,ATTRIBUTE_LIGHT) then return end - c:AddTrapMonsterAttribute(TYPE_EFFECT,ATTRIBUTE_LIGHT,RACE_THUNDER,5,1900,0) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) - c:TrapMonsterBlock() + c:AddMonsterAttribute(TYPE_EFFECT+TYPE_TRAP) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) @@ -29,5 +29,6 @@ function c97232518.activate(e,tp,eg,ep,ev,re,r,rp) e1:SetRange(LOCATION_MZONE) e1:SetValue(1) e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) + c:RegisterEffect(e1,true) + Duel.SpecialSummonComplete() end diff --git a/script/c97250514.lua b/script/c97250514.lua deleted file mode 100644 index e0aca3a5..00000000 --- a/script/c97250514.lua +++ /dev/null @@ -1,47 +0,0 @@ ---死の代行者 ウラヌス -function c97250514.initial_effect(c) - --spsummon - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE) - e1:SetRange(LOCATION_HAND) - e1:SetCondition(c97250514.spcon) - c:RegisterEffect(e1) - --tograve - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(97250514,0)) - e2:SetCategory(CATEGORY_TOGRAVE) - e2:SetType(EFFECT_TYPE_IGNITION) - e2:SetRange(LOCATION_MZONE) - e2:SetCountLimit(1) - e2:SetTarget(c97250514.tgtg) - e2:SetOperation(c97250514.tgop) - c:RegisterEffect(e2) -end -function c97250514.spcon(e,c) - if c==nil then return true end - return Duel.IsEnvironment(56433456) and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 -end -function c97250514.filter(c) - return c:IsSetCard(0x44) and c:IsAbleToGrave() -end -function c97250514.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c97250514.filter,tp,LOCATION_DECK,0,1,nil) end - Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) -end -function c97250514.tgop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) - local g=Duel.SelectMatchingCard(tp,c97250514.filter,tp,LOCATION_DECK,0,1,1,nil) - local tc=g:GetFirst() - if tc and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_GRAVE) then - local lv=tc:GetLevel() - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_LEVEL) - e1:SetValue(lv) - e1:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e1) - end -end diff --git a/script/c97317530.lua b/script/c97317530.lua index c5ee6419..bfefab21 100644 --- a/script/c97317530.lua +++ b/script/c97317530.lua @@ -13,13 +13,13 @@ function c97317530.initial_effect(c) c:RegisterEffect(e1) end function c97317530.descon(e,tp,eg,ep,ev,re,r,rp) - return re and re:GetOwner():IsRace(RACE_BEAST) + return re and re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsRace(RACE_BEAST) end function c97317530.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end + if chkc then return chkc:IsOnField() end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c97317530.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c97362768.lua b/script/c97362768.lua index fd9fc573..88c7ed4c 100644 --- a/script/c97362768.lua +++ b/script/c97362768.lua @@ -58,7 +58,7 @@ end function c97362768.posop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) local ct=e:GetLabel() ct=ct+1 e:SetLabel(ct) diff --git a/script/c97396380.lua b/script/c97396380.lua index 9f7d3758..e5d07fea 100644 --- a/script/c97396380.lua +++ b/script/c97396380.lua @@ -16,7 +16,7 @@ function c97396380.condition(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsReason(REASON_DESTROY) end function c97396380.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c97396380.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c97396380.filter(chkc) end diff --git a/script/c97433739.lua b/script/c97433739.lua index c9121acf..184ac72b 100644 --- a/script/c97433739.lua +++ b/script/c97433739.lua @@ -39,7 +39,8 @@ end function c97433739.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return false end local g=Duel.GetMatchingGroup(c97433739.spfilter,tp,LOCATION_GRAVE,0,nil,e,tp) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and g:GetClassCount(Card.GetLevel)>=3 end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g1=g:Select(tp,1,1,nil) @@ -55,6 +56,7 @@ function c97433739.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,3,0,0) end function c97433739.operation(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) if g:GetCount()~=3 then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)0 end function c97750534.filter(c) - return c:IsSetCard(0x44) and c:IsAbleToGrave() + return c:IsSetCard(0x44) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() end function c97750534.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c97750534.filter,tp,LOCATION_DECK,0,1,nil) end @@ -41,7 +41,7 @@ function c97750534.tgop(e,tp,eg,ep,ev,re,r,rp) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_CHANGE_LEVEL) e1:SetValue(lv) - e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetReset(RESET_EVENT+0x1ff0000) c:RegisterEffect(e1) end end diff --git a/script/c97792247.lua b/script/c97792247.lua old mode 100755 new mode 100644 diff --git a/script/c9780364.lua b/script/c9780364.lua index 412c6c57..cc082b63 100644 --- a/script/c9780364.lua +++ b/script/c9780364.lua @@ -50,11 +50,9 @@ function c9780364.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then if e:GetLabel()==0 then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) else - if not Duel.GetControl(tc,tp,PHASE_END,1) and not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + Duel.GetControl(tc,tp,PHASE_END,1) end end end diff --git a/script/c97811903.lua b/script/c97811903.lua index 4d2a319e..58baea2e 100644 --- a/script/c97811903.lua +++ b/script/c97811903.lua @@ -1,10 +1,13 @@ --クリアー・バイス・ドラゴン function c97811903.initial_effect(c) + --atk local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_DAMAGE_CALCULATING) - e1:SetCondition(c97811903.condtion) - e1:SetOperation(c97811903.atkop) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_ATTACK_FINAL) + e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e1:SetRange(LOCATION_MZONE) + e1:SetCondition(c97811903.atkcon) + e1:SetValue(c97811903.atkval) c:RegisterEffect(e1) -- local e2=Effect.CreateEffect(c) @@ -23,17 +26,12 @@ function c97811903.initial_effect(c) e3:SetCode(97811903) c:RegisterEffect(e3) end -function c97811903.condtion(e,tp,eg,ep,ev,re,r,rp) - return e:GetHandler()==Duel.GetAttacker() and Duel.GetAttackTarget()~=nil +function c97811903.atkcon(e) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL + and e:GetHandler()==Duel.GetAttacker() and Duel.GetAttackTarget() end -function c97811903.atkop(e,tp,eg,ep,ev,re,r,rp) - local bc=Duel.GetAttackTarget() - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_SET_ATTACK) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(bc:GetAttack()*2) - e:GetHandler():RegisterEffect(e1) +function c97811903.atkval(e,c) + return Duel.GetAttackTarget():GetAttack()*2 end function c97811903.reptg(e,tp,eg,ep,ev,re,r,rp,chk) local c=e:GetHandler() diff --git a/script/c97836203.lua b/script/c97836203.lua old mode 100755 new mode 100644 diff --git a/script/c97896503.lua b/script/c97896503.lua index 9b35c9a3..da34f8b7 100644 --- a/script/c97896503.lua +++ b/script/c97896503.lua @@ -13,12 +13,12 @@ end function c97896503.tg(e,tp,eg,ep,ev,re,r,rp,chk) local d=Duel.GetAttackTarget() if chk ==0 then return Duel.GetAttacker()==e:GetHandler() - and d~=nil and d:IsPosition(POS_FACEUP_DEFENCE) and d:IsDestructable() end + and d~=nil and d:IsPosition(POS_FACEUP_DEFENSE) end Duel.SetOperationInfo(0,CATEGORY_DESTROY,d,1,0,0) end function c97896503.op(e,tp,eg,ep,ev,re,r,rp) local d=Duel.GetAttackTarget() - if d~=nil and d:IsRelateToBattle() and d:IsDefencePos() then + if d~=nil and d:IsRelateToBattle() and d:IsDefensePos() then Duel.Destroy(d,REASON_EFFECT) end end diff --git a/script/c9791914.lua b/script/c9791914.lua index 868f91bb..a652ca4a 100644 --- a/script/c9791914.lua +++ b/script/c9791914.lua @@ -1,49 +1,49 @@ ---白銀のスナイパー -function c9791914.initial_effect(c) - --Negate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_MONSTER_SSET) - e1:SetValue(TYPE_SPELL) - c:RegisterEffect(e1) - --spsummon - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_TO_GRAVE) - e2:SetOperation(c9791914.regop) - c:RegisterEffect(e2) - local e3=Effect.CreateEffect(c) - e3:SetDescription(aux.Stringid(9791914,0)) - e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY) - e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) - e3:SetProperty(EFFECT_FLAG_CARD_TARGET) - e3:SetCode(EVENT_PHASE+PHASE_END) - e3:SetRange(LOCATION_GRAVE) - e3:SetCountLimit(1) - e3:SetTarget(c9791914.sptg) - e3:SetOperation(c9791914.spop) - c:RegisterEffect(e3) -end -function c9791914.regop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if c:IsPreviousLocation(LOCATION_SZONE) and c:IsPreviousPosition(POS_FACEDOWN) - and c:IsReason(REASON_EFFECT) and c:IsReason(REASON_DESTROY) and rp~=tp then - c:RegisterFlagEffect(9791914,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,0) - end -end -function c9791914.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return e:GetHandler():GetFlagEffect(9791914)>0 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_ONFIELD,1,1,nil) - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) - Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) -end -function c9791914.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) and Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)~=0 then - local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) then - Duel.Destroy(tc,REASON_EFFECT) - end - end -end +--白銀のスナイパー +function c9791914.initial_effect(c) + --Negate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_MONSTER_SSET) + e1:SetValue(TYPE_SPELL) + c:RegisterEffect(e1) + --spsummon + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e2:SetCode(EVENT_TO_GRAVE) + e2:SetOperation(c9791914.regop) + c:RegisterEffect(e2) + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(9791914,0)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DESTROY) + e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetCode(EVENT_PHASE+PHASE_END) + e3:SetRange(LOCATION_GRAVE) + e3:SetCountLimit(1) + e3:SetTarget(c9791914.sptg) + e3:SetOperation(c9791914.spop) + c:RegisterEffect(e3) +end +function c9791914.regop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsPreviousLocation(LOCATION_SZONE) and c:IsPreviousPosition(POS_FACEDOWN) + and c:IsReason(REASON_EFFECT) and c:IsReason(REASON_DESTROY) and rp~=tp then + c:RegisterFlagEffect(9791914,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,0) + end +end +function c9791914.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end + if chk==0 then return e:GetHandler():GetFlagEffect(9791914)>0 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) +end +function c9791914.spop(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():IsRelateToEffect(e) and Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)~=0 then + local tc=Duel.GetFirstTarget() + if tc and tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end + end +end diff --git a/script/c97940434.lua b/script/c97940434.lua index fa28acdd..1fc29ba0 100644 --- a/script/c97940434.lua +++ b/script/c97940434.lua @@ -45,7 +45,10 @@ function c97940434.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c97940434.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c97997309.lua b/script/c97997309.lua index c8d7d6d8..567600ed 100644 --- a/script/c97997309.lua +++ b/script/c97997309.lua @@ -89,9 +89,9 @@ function c97997309.activate2(e,tp,eg,ep,ev,re,r,rp) if tc then Duel.HintSelection(g) if tc:IsPosition(POS_FACEUP_ATTACK) then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) else - local pos=Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENCE) + local pos=Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE) Duel.ChangePosition(tc,pos) end end diff --git a/script/c98045062.lua b/script/c98045062.lua index 29c9ac6d..dab33f54 100644 --- a/script/c98045062.lua +++ b/script/c98045062.lua @@ -59,11 +59,9 @@ function c98045062.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then if e:GetLabel()==0 then - Duel.ChangePosition(tc,POS_FACEUP_DEFENCE,0,POS_FACEUP_ATTACK,0) + Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,0,POS_FACEUP_ATTACK,0) else - if not Duel.GetControl(tc,tp,PHASE_END,1) and not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + Duel.GetControl(tc,tp,PHASE_END,1) end end end diff --git a/script/c98049038.lua b/script/c98049038.lua index 71259427..21c0cb8b 100644 --- a/script/c98049038.lua +++ b/script/c98049038.lua @@ -22,7 +22,7 @@ function c98049038.descon(e,tp,eg,ep,ev,re,r,rp) and Duel.IsExistingMatchingCard(c98049038.cfilter,tp,LOCATION_MZONE,0,1,e:GetHandler()) end function c98049038.desfilter(c) - return c:IsDestructable() and c:IsType(TYPE_SPELL+TYPE_TRAP) + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c98049038.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c98049038.desfilter(chkc) end diff --git a/script/c98076754.lua b/script/c98076754.lua index 62292168..8b8dce28 100644 --- a/script/c98076754.lua +++ b/script/c98076754.lua @@ -74,15 +74,13 @@ function c98076754.tdcost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end Duel.SendtoGrave(e:GetHandler(),REASON_COST) end -function c98076754.filter(c) - return c:IsAbleToDeck() and not c:IsHasEffect(EFFECT_NECRO_VALLEY) -end function c98076754.tdtg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(c98076754.filter,tp,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,1,nil) end + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,1,nil) end local g=Duel.GetMatchingGroup(c98076754.filter,tp,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,nil) Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0) end function c98076754.tdop(e,tp,eg,ep,ev,re,r,rp) - local g=Duel.GetMatchingGroup(c98076754.filter,tp,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,nil) + local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,nil) + if g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then return end Duel.SendtoDeck(g,nil,2,REASON_EFFECT) end diff --git a/script/c98139712.lua b/script/c98139712.lua index 2ed28e03..4bc7b419 100644 --- a/script/c98139712.lua +++ b/script/c98139712.lua @@ -22,6 +22,7 @@ end function c98139712.operation(e,tp,eg,ep,ev,re,r,rp) local d1=eg:FilterCount(c98139712.filter1,nil,tp)*300 local d2=eg:FilterCount(c98139712.filter2,nil,tp)*300 - Duel.Damage(1-tp,d1,REASON_EFFECT) - Duel.Damage(tp,d2,REASON_EFFECT) + Duel.Damage(1-tp,d1,REASON_EFFECT,true) + Duel.Damage(tp,d2,REASON_EFFECT,true) + Duel.RDComplete() end diff --git a/script/c98162021.lua b/script/c98162021.lua index 1f486f2f..615ba671 100644 --- a/script/c98162021.lua +++ b/script/c98162021.lua @@ -1,7 +1,7 @@ --紫炎の荒武者 function c98162021.initial_effect(c) - c:EnableCounterPermit(0x3003) - c:SetCounterLimit(0x3003,1) + c:EnableCounterPermit(0x3) + c:SetCounterLimit(0x3,1) --summon success local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(98162021,0)) @@ -33,29 +33,29 @@ function c98162021.initial_effect(c) end function c98162021.addct(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x3003) + Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,0,0x3) end function c98162021.addc(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - e:GetHandler():AddCounter(0x3003,1) + e:GetHandler():AddCounter(0x3,1) end end function c98162021.attackup(e,c) - return c:GetCounter(0x3003)*300 + return c:GetCounter(0x3)*300 end function c98162021.addct2(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsCanAddCounter(0x3003,1) end - if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x3003,1,REASON_EFFECT) - and Duel.IsExistingTarget(Card.IsCanAddCounter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler(),0x3003,1) end + if chkc then return chkc:IsOnField() and chkc:IsCanAddCounter(0x3,1) end + if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0x3,1,REASON_EFFECT) + and Duel.IsExistingTarget(Card.IsCanAddCounter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler(),0x3,1) end Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(98162021,1)) - Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler(),0x3003,1) + Duel.SelectTarget(tp,Card.IsCanAddCounter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler(),0x3,1) end function c98162021.addc2(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - if c:GetCounter(0x3003)==0 then return end - c:RemoveCounter(tp,0x3003,1,REASON_EFFECT) + if c:GetCounter(0x3)==0 then return end + c:RemoveCounter(tp,0x3,1,REASON_EFFECT) local tc=Duel.GetFirstTarget() if tc:IsFaceup() and tc:IsRelateToEffect(e) then - tc:AddCounter(0x3003,1) + tc:AddCounter(0x3,1) end end diff --git a/script/c98229575.lua b/script/c98229575.lua old mode 100755 new mode 100644 diff --git a/script/c98239899.lua b/script/c98239899.lua index 0f4fa383..d26cf502 100644 --- a/script/c98239899.lua +++ b/script/c98239899.lua @@ -65,10 +65,10 @@ function c98239899.descon(e,tp,eg,ep,ev,re,r,rp) return bit.band(r,0x41)==0x41 and e:GetHandler():GetEquipTarget()~=nil end function c98239899.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsOnField() and chkc:IsDestructable() end + if chkc then return chkc:IsOnField() end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) end function c98239899.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c98252586.lua b/script/c98252586.lua index 2af8cad8..098c75b7 100644 --- a/script/c98252586.lua +++ b/script/c98252586.lua @@ -18,7 +18,7 @@ function c98252586.initial_effect(c) --def up local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(300) c:RegisterEffect(e3) --equip limit diff --git a/script/c98263709.lua b/script/c98263709.lua old mode 100755 new mode 100644 index bb6288e1..c021dbc6 --- a/script/c98263709.lua +++ b/script/c98263709.lua @@ -62,7 +62,8 @@ function c98263709.spop(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c98263709.spfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp) local tc=g:GetFirst() - if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) then + if tc:IsHasEffect(EFFECT_NECRO_VALLEY) then return end + if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) then local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) diff --git a/script/c98273947.lua b/script/c98273947.lua index c17aa89c..157ce575 100644 --- a/script/c98273947.lua +++ b/script/c98273947.lua @@ -39,9 +39,10 @@ end function c98273947.operation(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() local tc=Duel.GetFirstTarget() - if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then - if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK)==0 then return end + if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) + and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK) then c:SetCardTarget(tc) + Duel.SpecialSummonComplete() end end function c98273947.desop(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c98280324.lua b/script/c98280324.lua index fcfa8ddf..6a2d3668 100644 --- a/script/c98280324.lua +++ b/script/c98280324.lua @@ -37,7 +37,7 @@ function c98280324.spcost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoHand(g,nil,REASON_COST) end function c98280324.spfilter(c,e,tp) - return c:IsSetCard(0xc3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) + return c:IsSetCard(0xc3) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c98280324.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1 @@ -48,7 +48,7 @@ function c98280324.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c98280324.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp) - if g:GetCount()>0 then + if g:GetCount()>0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c98287529.lua b/script/c98287529.lua new file mode 100644 index 00000000..d326e63c --- /dev/null +++ b/script/c98287529.lua @@ -0,0 +1,62 @@ +--虚竜魔王アモルファクターP +function c98287529.initial_effect(c) + c:EnableReviveLimit() + --skip + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) + e1:SetCode(EVENT_SPSUMMON_SUCCESS) + e1:SetCondition(c98287529.skipcon) + e1:SetOperation(c98287529.skipop) + c:RegisterEffect(e1) + --disable + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetRange(LOCATION_MZONE) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetCode(EFFECT_DISABLE) + e2:SetTarget(c98287529.distg) + c:RegisterEffect(e2) + --search + local e3=Effect.CreateEffect(c) + e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_TO_GRAVE) + e3:SetCondition(c98287529.condition) + e3:SetTarget(c98287529.target) + e3:SetOperation(c98287529.operation) + c:RegisterEffect(e3) +end +function c98287529.skipcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(e:GetHandler():GetSummonType(),SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL +end +function c98287529.skipop(e,tp,eg,ep,ev,re,r,rp) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(0,1) + e1:SetCode(EFFECT_SKIP_M1) + e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN) + Duel.RegisterEffect(e1,tp) +end +function c98287529.distg(e,c) + return c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ) +end +function c98287529.condition(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD) +end +function c98287529.filter(c) + return c:IsSetCard(0xda) and not c:IsCode(98287529) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c98287529.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c98287529.filter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c98287529.operation(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c98287529.filter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c98301564.lua b/script/c98301564.lua index cfc25b73..b4fb5f28 100644 --- a/script/c98301564.lua +++ b/script/c98301564.lua @@ -54,7 +54,6 @@ function c98301564.regop(e,tp,eg,ep,ev,re,r,rp) Duel.ConfirmCards(1-tp,sg) Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_ATOHAND) local tg=sg:Select(1-tp,1,1,nil) - local tc=tg:GetFirst() - Duel.SendtoHand(tc,nil,REASON_EFFECT) + Duel.SendtoHand(tg,nil,REASON_EFFECT) end end diff --git a/script/c98374133.lua b/script/c98374133.lua index 4b2ffd41..4c17cc27 100644 --- a/script/c98374133.lua +++ b/script/c98374133.lua @@ -18,7 +18,7 @@ function c98374133.initial_effect(c) --def down local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_EQUIP) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(-200) c:RegisterEffect(e3) --equip limit diff --git a/script/c98414735.lua b/script/c98414735.lua old mode 100755 new mode 100644 index 2ed253ea..ec106060 --- a/script/c98414735.lua +++ b/script/c98414735.lua @@ -34,7 +34,7 @@ end function c98414735.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) and tc:IsFaceup() then - Duel.ChangePosition(tc,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(tc,POS_FACEDOWN_DEFENSE) end end function c98414735.spcon(e,tp,eg,ep,ev,re,r,rp) @@ -50,17 +50,10 @@ end function c98414735.spop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end local c=e:GetHandler() - if c:IsRelateToEffect(e) - and Duel.IsPlayerCanSpecialSummonMonster(tp,98414735,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then - c:SetStatus(STATUS_NO_LEVEL,false) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_CHANGE_TYPE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetValue(TYPE_NORMAL+TYPE_MONSTER) - e1:SetReset(RESET_EVENT+0x47c0000) - c:RegisterEffect(e1,true) - Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,98414735,0xd4,0x11,1200,0,2,RACE_AQUA,ATTRIBUTE_WATER) then + c:AddMonsterAttribute(TYPE_NORMAL) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP) + c:AddMonsterAttributeComplete() local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_SINGLE) e2:SetCode(EFFECT_IMMUNE_EFFECT) @@ -68,7 +61,7 @@ function c98414735.spop(e,tp,eg,ep,ev,re,r,rp) e2:SetRange(LOCATION_MZONE) e2:SetValue(c98414735.efilter) e2:SetReset(RESET_EVENT+0x1fe0000) - c:RegisterEffect(e2) + c:RegisterEffect(e2,true) local e3=Effect.CreateEffect(c) e3:SetType(EFFECT_TYPE_SINGLE) e3:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) @@ -76,6 +69,7 @@ function c98414735.spop(e,tp,eg,ep,ev,re,r,rp) e3:SetReset(RESET_EVENT+0x47e0000) e3:SetValue(LOCATION_REMOVED) c:RegisterEffect(e3,true) + Duel.SpecialSummonComplete() end end function c98414735.efilter(e,re) diff --git a/script/c98434877.lua b/script/c98434877.lua index 86e25c1d..bf642fa1 100644 --- a/script/c98434877.lua +++ b/script/c98434877.lua @@ -4,7 +4,7 @@ function c98434877.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(98434877,0)) e1:SetCategory(CATEGORY_ATKCHANGE) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetRange(LOCATION_MZONE) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetProperty(EFFECT_FLAG_NO_TURN_RESET) diff --git a/script/c98437424.lua b/script/c98437424.lua index 86f11273..f7fb17e0 100644 --- a/script/c98437424.lua +++ b/script/c98437424.lua @@ -16,7 +16,7 @@ function c98437424.initial_effect(c) c:RegisterEffect(e2) end function c98437424.spcon(e,tp,eg,ep,ev,re,r,rp) - return rp~=tp + return ep~=tp end function c98437424.sptg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -24,7 +24,10 @@ function c98437424.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c98437424.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end diff --git a/script/c98494543.lua b/script/c98494543.lua index 3d9bbd0b..e8d5464d 100644 --- a/script/c98494543.lua +++ b/script/c98494543.lua @@ -28,6 +28,5 @@ function c98494543.operation(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc and tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) - Duel.ConfirmCards(1-tp,tc) end end diff --git a/script/c98495314.lua b/script/c98495314.lua old mode 100755 new mode 100644 index 0bc7ab24..78592980 --- a/script/c98495314.lua +++ b/script/c98495314.lua @@ -16,7 +16,7 @@ function c98495314.initial_effect(c) e2:SetValue(500) c:RegisterEffect(e2) local e3=e2:Clone() - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) c:RegisterEffect(e3) --Equip limit local e4=Effect.CreateEffect(c) diff --git a/script/c98502113.lua b/script/c98502113.lua old mode 100755 new mode 100644 diff --git a/script/c98502114.lua b/script/c98502114.lua deleted file mode 100644 index ca775ee8..00000000 --- a/script/c98502114.lua +++ /dev/null @@ -1,68 +0,0 @@ ---超魔導剣士－ブラック·パラディン -function c98502114.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode2(c,46986414,78193831,true,true) - --negate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(98502114,0)) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c98502114.discon) - e1:SetCost(c98502114.discost) - e1:SetTarget(c98502114.distg) - e1:SetOperation(c98502114.disop) - c:RegisterEffect(e1) - --atkup - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(c98502114.val) - c:RegisterEffect(e2) - --spsummon condition - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e3:SetCode(EFFECT_SPSUMMON_CONDITION) - e3:SetValue(c98502114.splimit) - c:RegisterEffect(e3) -end -c98502114.material_count=2 -c98502114.material={46986414,78193831} -function c98502114.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c98502114.val(e,c) - return Duel.GetMatchingGroupCount(c98502114.filter,0,0x14,0x14,nil)*500 -end -function c98502114.filter(c) - return c:IsRace(RACE_DRAGON) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) -end -function c98502114.discon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) - and re:IsActiveType(TYPE_SPELL) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) -end -function c98502114.discost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST,nil) -end -function c98502114.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c98502114.disop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsFaceup() or not c:IsRelateToEffect(e) then return end - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end diff --git a/script/c98502115.lua b/script/c98502115.lua deleted file mode 100644 index 67206561..00000000 --- a/script/c98502115.lua +++ /dev/null @@ -1,68 +0,0 @@ ---超魔導剣士－ブラック·パラディン -function c98502115.initial_effect(c) - --fusion material - c:EnableReviveLimit() - aux.AddFusionProcCode2(c,46986414,78193831,true,true) - --negate - local e1=Effect.CreateEffect(c) - e1:SetDescription(aux.Stringid(98502115,0)) - e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_QUICK_O) - e1:SetRange(LOCATION_MZONE) - e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) - e1:SetCode(EVENT_CHAINING) - e1:SetCondition(c98502115.discon) - e1:SetCost(c98502115.discost) - e1:SetTarget(c98502115.distg) - e1:SetOperation(c98502115.disop) - c:RegisterEffect(e1) - --atkup - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetCode(EFFECT_UPDATE_ATTACK) - e2:SetRange(LOCATION_MZONE) - e2:SetValue(c98502115.val) - c:RegisterEffect(e2) - --spsummon condition - local e3=Effect.CreateEffect(c) - e3:SetType(EFFECT_TYPE_SINGLE) - e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e3:SetCode(EFFECT_SPSUMMON_CONDITION) - e3:SetValue(c98502115.splimit) - c:RegisterEffect(e3) -end -c98502115.material_count=2 -c98502115.material={46986414,78193831} -function c98502115.splimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end -function c98502115.val(e,c) - return Duel.GetMatchingGroupCount(c98502115.filter,0,0x14,0x14,nil)*500 -end -function c98502115.filter(c) - return c:IsRace(RACE_DRAGON) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) -end -function c98502115.discon(e,tp,eg,ep,ev,re,r,rp) - return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) - and re:IsActiveType(TYPE_SPELL) and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev) -end -function c98502115.discost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST,nil) -end -function c98502115.distg(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end -end -function c98502115.disop(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if not c:IsFaceup() or not c:IsRelateToEffect(e) then return end - Duel.NegateActivation(ev) - if re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end diff --git a/script/c98558751.lua b/script/c98558751.lua index d285257b..5ed16d20 100644 --- a/script/c98558751.lua +++ b/script/c98558751.lua @@ -42,7 +42,7 @@ function c98558751.descon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_SYNCHRO end function c98558751.filter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c98558751.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c98558751.filter(chkc) end diff --git a/script/c98585345.lua b/script/c98585345.lua index d0807d5b..2face035 100644 --- a/script/c98585345.lua +++ b/script/c98585345.lua @@ -25,14 +25,14 @@ end c98585345.lvdncount=1 c98585345.lvdn={33776734} function c98585345.descon(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and Duel.GetCurrentPhase()==PHASE_BATTLE + return Duel.GetTurnPlayer()~=tp and (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE) end function c98585345.descost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return e:GetHandler():IsReleasable() end Duel.Release(e:GetHandler(),REASON_COST) end function c98585345.dfilter(c) - return c:IsAttackPos() and c:IsDestructable() + return c:IsAttackPos() end function c98585345.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c98585345.dfilter,tp,0,LOCATION_MZONE,1,nil) end diff --git a/script/c9861795.lua b/script/c9861795.lua index 17bd1e23..eb48d781 100644 --- a/script/c9861795.lua +++ b/script/c9861795.lua @@ -24,6 +24,6 @@ end function c9861795.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c98637386.lua b/script/c98637386.lua old mode 100755 new mode 100644 diff --git a/script/c98643358.lua b/script/c98643358.lua index 41f135cc..557886de 100644 --- a/script/c98643358.lua +++ b/script/c98643358.lua @@ -11,7 +11,7 @@ function c98643358.initial_effect(c) c:RegisterEffect(e1) end function c98643358.filter(c) - return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WATER) and c:IsDestructable() + return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WATER) end function c98643358.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c98643358.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end diff --git a/script/c98649372.lua b/script/c98649372.lua index e587c494..287d81e2 100644 --- a/script/c98649372.lua +++ b/script/c98649372.lua @@ -21,7 +21,7 @@ function c98649372.initial_effect(c) c:RegisterEffect(e2) end function c98649372.filter(c) - return c:IsFaceup() and c:IsType(TYPE_SPELL) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_SPELL) end function c98649372.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c98649372.filter(chkc) end @@ -39,6 +39,6 @@ end function c98649372.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) then - Duel.ChangePosition(c,POS_FACEUP_DEFENCE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) + Duel.ChangePosition(c,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK) end end diff --git a/script/c98672567.lua b/script/c98672567.lua index 88d96085..c01f2748 100644 --- a/script/c98672567.lua +++ b/script/c98672567.lua @@ -55,9 +55,9 @@ function c98672567.activate(e,tp,eg,ep,ev,re,r,rp) if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=3 then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) if ct==3 then - Duel.ShuffleDeck(tp) Duel.BreakEffect() Duel.Draw(tp,2,REASON_EFFECT) end diff --git a/script/c98707192.lua b/script/c98707192.lua index 801c82e9..fbc7ab51 100644 --- a/script/c98707192.lua +++ b/script/c98707192.lua @@ -45,7 +45,7 @@ end function c98707192.posop(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() if c:IsRelateToEffect(e) and c:IsFaceup() then - Duel.ChangePosition(c,POS_FACEDOWN_DEFENCE) + Duel.ChangePosition(c,POS_FACEDOWN_DEFENSE) end end function c98707192.condition(e,tp,eg,ep,ev,re,r,rp) @@ -68,7 +68,7 @@ function c98707192.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c98707192.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) if g:GetCount()>0 then - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE) Duel.ConfirmCards(1-tp,g) end end diff --git a/script/c98719226.lua b/script/c98719226.lua index 38a0604e..f046d387 100644 --- a/script/c98719226.lua +++ b/script/c98719226.lua @@ -11,11 +11,17 @@ function c98719226.initial_effect(c) c:RegisterEffect(e1) --atk def local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e2:SetCode(EVENT_DAMAGE_CALCULATING) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_ATTACK) e2:SetRange(LOCATION_MZONE) - e2:SetOperation(c98719226.adval) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetCondition(c98719226.adcon) + e2:SetTarget(c98719226.adtg) + e2:SetValue(c98719226.adval) c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_UPDATE_DEFENSE) + c:RegisterEffect(e3) end function c98719226.ctcon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():IsLocation(LOCATION_GRAVE) and e:GetHandler():IsReason(REASON_BATTLE) @@ -23,25 +29,16 @@ end function c98719226.ctop(e,tp,eg,ep,ev,re,r,rp) local tc=e:GetHandler():GetReasonCard() if tc:IsFaceup() and tc:IsRelateToBattle() then - tc:AddCounter(0xe,2) + tc:AddCounter(0x100e,2) end end -function c98719226.addown(c,e) - local e1=Effect.CreateEffect(e:GetHandler()) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_UPDATE_ATTACK) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) - e1:SetReset(RESET_PHASE+PHASE_DAMAGE_CAL) - e1:SetValue(c:GetCounter(0xe)*-300) - c:RegisterEffect(e1) - local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) - c:RegisterEffect(e2) +function c98719226.adcon(e) + return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and Duel.GetAttackTarget() +end +function c98719226.adtg(e,c) + local bc=c:GetBattleTarget() + return bc and c:GetCounter(0x100e)~=0 and bc:IsSetCard(0xc) end -function c98719226.adval(e,tp,eg,ep,ev,re,r,rp) - local a=Duel.GetAttacker() - local d=Duel.GetAttackTarget() - if not d then return end - if a:GetCounter(0xe)>0 and d:IsSetCard(0xc) then c98719226.addown(a,e) end - if d:GetCounter(0xe)>0 and a:IsSetCard(0xc) then c98719226.addown(d,e) end +function c98719226.adval(e,c) + return c:GetCounter(0x100e)*-300 end diff --git a/script/c98777036.lua b/script/c98777036.lua index 6669736a..82dc91ae 100644 --- a/script/c98777036.lua +++ b/script/c98777036.lua @@ -24,7 +24,7 @@ function c98777036.initial_effect(c) e3:SetType(EFFECT_TYPE_SINGLE) e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE) e3:SetRange(LOCATION_MZONE) - e3:SetCode(EFFECT_UPDATE_DEFENCE) + e3:SetCode(EFFECT_UPDATE_DEFENSE) e3:SetValue(c98777036.value) c:RegisterEffect(e3) --control @@ -62,8 +62,11 @@ function c98777036.sumtg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) end function c98777036.sumop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c98777036.ctffilter(c,lv) @@ -81,7 +84,7 @@ function c98777036.ctcos(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(sg,REASON_COST) end function c98777036.cttar(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c98777036.ctffilter(e,e:GetLabel()) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and c98777036.ctffilter(chkc,e:GetLabel()) end if chk==0 then return true end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL) local g=Duel.SelectTarget(tp,c98777036.ctffilter,tp,0,LOCATION_MZONE,1,1,nil,e:GetLabel()) @@ -89,10 +92,8 @@ function c98777036.cttar(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c98777036.ctop(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() and not Duel.GetControl(tc,tp) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc and tc:IsRelateToEffect(e) and tc:IsFaceup() then + Duel.GetControl(tc,tp) end end function c98777036.lvfilter(c) diff --git a/script/c98827725.lua b/script/c98827725.lua new file mode 100644 index 00000000..74677e86 --- /dev/null +++ b/script/c98827725.lua @@ -0,0 +1,46 @@ +--幻影騎士団シェード・ブリガンダイン +function c98827725.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,98827725+EFFECT_COUNT_CODE_OATH) + e1:SetCost(c98827725.cost) + e1:SetTarget(c98827725.target) + e1:SetOperation(c98827725.activate) + c:RegisterEffect(e1) + --act in set turn + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN) + e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE) + e2:SetCondition(c98827725.actcon) + c:RegisterEffect(e2) +end +function c98827725.cost(e,tp,eg,ep,ev,re,r,rp,chk) + e:SetLabel(1) + return true +end +function c98827725.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + if e:GetLabel()==0 then return false end + e:SetLabel(0) + return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsPlayerCanSpecialSummonMonster(tp,98827725,0x10db,0x11,4,0,300,RACE_WARRIOR,ATTRIBUTE_DARK) end + e:SetLabel(0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) +end +function c98827725.activate(e,tp,eg,ep,ev,re,r,rp) + if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end + local c=e:GetHandler() + if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,98827725,0x10db,0x11,4,0,300,RACE_WARRIOR,ATTRIBUTE_DARK) then + c:AddMonsterAttribute(TYPE_NORMAL) + Duel.SpecialSummonStep(c,0,tp,tp,true,false,POS_FACEUP_DEFENSE) + c:AddMonsterAttributeComplete() + Duel.SpecialSummonComplete() + end +end +function c98827725.actcon(e) + return not Duel.IsExistingMatchingCard(Card.IsType,e:GetHandlerPlayer(),LOCATION_GRAVE,0,1,nil,TYPE_TRAP) +end diff --git a/script/c98847704.lua b/script/c98847704.lua index 75c4a0f8..1eb35914 100644 --- a/script/c98847704.lua +++ b/script/c98847704.lua @@ -11,10 +11,10 @@ function c98847704.initial_effect(c) c:RegisterEffect(e1) end function c98847704.filter1(c) - return c:IsFaceup() and c:IsType(TYPE_EQUIP) and c:IsDestructable() + return c:IsFaceup() and c:IsType(TYPE_EQUIP) end function c98847704.filter2(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c98847704.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(tp) and c98847704.filter1(chkc) end diff --git a/script/c9888196.lua b/script/c9888196.lua index fbc70444..f193f522 100644 --- a/script/c9888196.lua +++ b/script/c9888196.lua @@ -47,7 +47,7 @@ function c9888196.con(e,tp,eg,ep,ev,re,r,rp) return Duel.IsExistingMatchingCard(c9888196.confilter,tp,0,LOCATION_MZONE,1,nil) end function c9888196.filter1(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c9888196.destg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and c9888196.filter1(chkc) end @@ -71,7 +71,7 @@ function c9888196.descost2(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SendtoGrave(g,REASON_COST) end function c9888196.filter2(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c9888196.destg2(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c9888196.filter2,tp,0,LOCATION_ONFIELD,1,nil) end diff --git a/script/c98891840.lua b/script/c98891840.lua index 23974d5e..c1ea5154 100644 --- a/script/c98891840.lua +++ b/script/c98891840.lua @@ -23,11 +23,7 @@ end function c98891840.activate(e,tp,eg,ep,ev,re,r,rp) local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) local g=Duel.GetMatchingGroup(c98891840.filter,p,LOCATION_HAND,0,nil) - if g:GetCount()<2 then - local hg=Duel.GetFieldGroup(p,LOCATION_HAND,0) - Duel.ConfirmCards(1-p,hg) - Duel.ShuffleHand(p) - else + if g:GetCount()>=2 then Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK) local sg=g:Select(p,2,2,nil) Duel.ConfirmCards(1-p,sg) diff --git a/script/c98927491.lua b/script/c98927491.lua old mode 100755 new mode 100644 index c58bd668..286cdb61 --- a/script/c98927491.lua +++ b/script/c98927491.lua @@ -38,6 +38,6 @@ end function c98927491.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() if tc:IsRelateToEffect(e) then - Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end end diff --git a/script/c98931003.lua b/script/c98931003.lua index 379d96e4..66fe336d 100644 --- a/script/c98931003.lua +++ b/script/c98931003.lua @@ -28,7 +28,7 @@ function c98931003.operation(e,tp,eg,ep,ev,re,r,rp) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) tc:RegisterEffect(e1) local e2=e1:Clone() - e2:SetCode(EFFECT_UPDATE_DEFENCE) + e2:SetCode(EFFECT_UPDATE_DEFENSE) tc:RegisterEffect(e2) end end diff --git a/script/c98954106.lua b/script/c98954106.lua index d4ea7032..2ad4cb2a 100644 --- a/script/c98954106.lua +++ b/script/c98954106.lua @@ -27,8 +27,8 @@ function c98954106.activate(e,tp,eg,ep,ev,re,r,rp) local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) if tg:FilterCount(Card.IsRelateToEffect,nil,e)~=5 then return end Duel.SendtoDeck(tg,nil,0,REASON_EFFECT) - Duel.ShuffleDeck(tp) local g=Duel.GetOperatedGroup() + if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA) if ct==5 then Duel.BreakEffect() diff --git a/script/c98956134.lua b/script/c98956134.lua old mode 100755 new mode 100644 diff --git a/script/c9897998.lua b/script/c9897998.lua index d582e798..02e6db38 100644 --- a/script/c9897998.lua +++ b/script/c9897998.lua @@ -19,7 +19,7 @@ function c9897998.condition(e,tp,eg,ep,ev,re,r,rp) or (d==c and a:IsLocation(LOCATION_GRAVE) and a:IsType(TYPE_MONSTER))) end function c9897998.filter(c,e,tp) - return c:IsDefenceBelow(1500) and c:IsRace(RACE_PSYCHO) and c:IsAttribute(ATTRIBUTE_WIND) + return c:IsDefenseBelow(1500) and c:IsRace(RACE_PSYCHO) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end function c9897998.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) diff --git a/script/c99000107.lua b/script/c99000107.lua new file mode 100644 index 00000000..61d8ecd3 --- /dev/null +++ b/script/c99000107.lua @@ -0,0 +1,32 @@ +--修禅僧 ゲンドウ +function c99000107.initial_effect(c) + --Cannot activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetRange(LOCATION_MZONE) + e1:SetCode(EFFECT_CANNOT_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,1) + e1:SetValue(c99000107.aclimit) + c:RegisterEffect(e1) + -- + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_SINGLE) + e2:SetRange(LOCATION_MZONE) + e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) + e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET) + e2:SetCondition(c99000107.tgcon) + e2:SetValue(1) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e3:SetValue(1) + c:RegisterEffect(e3) +end +function c99000107.aclimit(e,re,tp) + local tc=re:GetHandler() + return tc:IsLocation(LOCATION_MZONE) and tc:IsFaceup() and tc:IsAttackPos() and re:IsActiveType(TYPE_MONSTER) and not tc:IsImmuneToEffect(e) +end +function c99000107.tgcon(e) + return e:GetHandler():IsDefensePos() +end diff --git a/script/c99002135.lua b/script/c99002135.lua index b594a303..a6204381 100644 --- a/script/c99002135.lua +++ b/script/c99002135.lua @@ -21,7 +21,6 @@ function c99002135.cost(e,tp,eg,ep,ev,re,r,rp,chk) end function c99002135.spfilter(c,e,tp) return c:IsLevelBelow(4) and c:IsSetCard(0x1d) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) - and not c:IsHasEffect(EFFECT_NECRO_VALLEY) end function c99002135.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 @@ -32,7 +31,7 @@ function c99002135.activate(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c99002135.spfilter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp) - if g:GetCount()~=0 then + if g:GetCount()~=0 and not g:GetFirst():IsHasEffect(EFFECT_NECRO_VALLEY) then Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) end end diff --git a/script/c99013397.lua b/script/c99013397.lua index 529122eb..bac7b067 100644 --- a/script/c99013397.lua +++ b/script/c99013397.lua @@ -64,7 +64,7 @@ function c99013397.descon(e,tp,eg,ep,ev,re,r,rp) return eqc==Duel.GetAttacker() end function c99013397.dfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c99013397.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c99013397.dfilter(chkc) end diff --git a/script/c99064191.lua b/script/c99064191.lua index ff710eb4..287af7ba 100644 --- a/script/c99064191.lua +++ b/script/c99064191.lua @@ -1,75 +1,75 @@ ---エクシーズ・パニッシュ -function c99064191.initial_effect(c) - --Activate - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(c99064191.target1) - e1:SetOperation(c99064191.activate1) - c:RegisterEffect(e1) - --instant(chain) - local e2=Effect.CreateEffect(c) - e2:SetDescription(aux.Stringid(99064191,0)) - e2:SetType(EFFECT_TYPE_QUICK_O) - e2:SetRange(LOCATION_SZONE) - e2:SetCode(EVENT_CHAINING) - e2:SetCondition(c99064191.condition2) - e2:SetCost(c99064191.cost2) - e2:SetTarget(c99064191.target2) - e2:SetOperation(c99064191.activate2) - c:RegisterEffect(e2) -end -function c99064191.cfilter(c) - return c:IsFaceup() and c:IsType(TYPE_XYZ) -end -function c99064191.target1(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return true end - e:SetLabel(0) - local ct=Duel.GetCurrentChain() - if ct==1 or not Duel.IsExistingMatchingCard(c99064191.cfilter,tp,LOCATION_MZONE,0,1,nil) - or not Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) then return false end - local pe=Duel.GetChainInfo(ct-1,CHAININFO_TRIGGERING_EFFECT) - local tc=pe:GetHandler() - if pe:IsActiveType(TYPE_EFFECT) and tc:IsLevelAbove(5) - and Duel.IsChainDisablable(ct-1) and Duel.SelectYesNo(tp,aux.Stringid(99064191,1)) then - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) - Duel.SetOperationInfo(0,CATEGORY_DISABLE,tc,1,0,0) - if tc:IsDestructable() and tc:IsRelateToEffect(pe) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) - end - e:SetLabel(1) - e:GetHandler():RegisterFlagEffect(99064191,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) - end -end -function c99064191.activate1(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - if e:GetLabel()~=1 or not c:IsRelateToEffect(e) then return end - local ct=Duel.GetChainInfo(0,CHAININFO_CHAIN_COUNT) - local te=Duel.GetChainInfo(ct-1,CHAININFO_TRIGGERING_EFFECT) - local tc=te:GetHandler() - if Duel.NegateEffect(ct-1) and tc:IsRelateToEffect(te) then - Duel.Destroy(tc,REASON_EFFECT) - end -end -function c99064191.condition2(e,tp,eg,ep,ev,re,r,rp,chk) - return Duel.IsExistingMatchingCard(c99064191.cfilter,tp,LOCATION_MZONE,0,1,nil) - and re:IsActiveType(TYPE_EFFECT) and re:GetHandler():IsLevelAbove(5) and Duel.IsChainDisablable(ev) -end -function c99064191.cost2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end - Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) -end -function c99064191.target2(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return e:GetHandler():GetFlagEffect(99064191)==0 end - Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) - if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then - Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) - end - e:GetHandler():RegisterFlagEffect(99064191,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) -end -function c99064191.activate2(e,tp,eg,ep,ev,re,r,rp) - if not e:GetHandler():IsRelateToEffect(e) then return end - if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToEffect(re) then - Duel.Destroy(eg,REASON_EFFECT) - end -end +--エクシーズ・パニッシュ +function c99064191.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c99064191.target1) + e1:SetOperation(c99064191.activate1) + c:RegisterEffect(e1) + --instant(chain) + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(99064191,0)) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetRange(LOCATION_SZONE) + e2:SetCode(EVENT_CHAINING) + e2:SetCondition(c99064191.condition2) + e2:SetCost(c99064191.cost2) + e2:SetTarget(c99064191.target2) + e2:SetOperation(c99064191.activate2) + c:RegisterEffect(e2) +end +function c99064191.cfilter(c) + return c:IsFaceup() and c:IsType(TYPE_XYZ) +end +function c99064191.target1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + e:SetLabel(0) + local ct=Duel.GetCurrentChain() + if ct==1 or not Duel.IsExistingMatchingCard(c99064191.cfilter,tp,LOCATION_MZONE,0,1,nil) + or not Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) then return false end + local pe=Duel.GetChainInfo(ct-1,CHAININFO_TRIGGERING_EFFECT) + local tc=pe:GetHandler() + if pe:IsActiveType(TYPE_EFFECT) and tc:IsLevelAbove(5) + and Duel.IsChainDisablable(ct-1) and Duel.SelectYesNo(tp,aux.Stringid(99064191,1)) then + Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) + Duel.SetOperationInfo(0,CATEGORY_DISABLE,tc,1,0,0) + if tc:IsRelateToEffect(pe) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,tc,1,0,0) + end + e:SetLabel(1) + e:GetHandler():RegisterFlagEffect(99064191,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) + end +end +function c99064191.activate1(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if e:GetLabel()~=1 or not c:IsRelateToEffect(e) then return end + local ct=Duel.GetChainInfo(0,CHAININFO_CHAIN_COUNT) + local te=Duel.GetChainInfo(ct-1,CHAININFO_TRIGGERING_EFFECT) + local tc=te:GetHandler() + if Duel.NegateEffect(ct-1) and tc:IsRelateToEffect(te) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c99064191.condition2(e,tp,eg,ep,ev,re,r,rp,chk) + return Duel.IsExistingMatchingCard(c99064191.cfilter,tp,LOCATION_MZONE,0,1,nil) + and re:IsActiveType(TYPE_EFFECT) and re:GetHandler():IsLevelAbove(5) and Duel.IsChainDisablable(ev) +end +function c99064191.cost2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end + Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) +end +function c99064191.target2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():GetFlagEffect(99064191)==0 end + Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) + if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then + Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0) + end + e:GetHandler():RegisterFlagEffect(99064191,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1) +end +function c99064191.activate2(e,tp,eg,ep,ev,re,r,rp) + if not e:GetHandler():IsRelateToEffect(e) then return end + if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToEffect(re) then + Duel.Destroy(eg,REASON_EFFECT) + end +end diff --git a/script/c99173029.lua b/script/c99173029.lua index 49bc7a2c..bc499048 100644 --- a/script/c99173029.lua +++ b/script/c99173029.lua @@ -45,6 +45,6 @@ function c99173029.mtop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0 and Duel.SelectYesNo(tp,aux.Stringid(99173029,0)) then Duel.DiscardHand(tp,nil,1,1,REASON_COST+REASON_DISCARD) else - Duel.Destroy(e:GetHandler(),REASON_RULE) + Duel.Destroy(e:GetHandler(),REASON_COST) end end diff --git a/script/c99177923.lua b/script/c99177923.lua old mode 100755 new mode 100644 index 0f90ef8d..40dcd659 --- a/script/c99177923.lua +++ b/script/c99177923.lua @@ -40,8 +40,11 @@ function c99177923.sptg(e,tp,eg,ep,ev,re,r,rp,chk) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0) end function c99177923.spop(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():IsRelateToEffect(e) then - Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP) + local c=e:GetHandler() + if not c:IsRelateToEffect(e) then return end + if Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 and Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 + and c:IsCanBeSpecialSummoned(e,0,tp,false,false) then + Duel.SendtoGrave(c,REASON_RULE) end end function c99177923.srcon(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c9925982.lua b/script/c9925982.lua index 8345cfdd..d6dd448d 100644 --- a/script/c9925982.lua +++ b/script/c9925982.lua @@ -17,13 +17,15 @@ function c9925982.condition(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c9925982.cfilter,1,nil,tp) end function c9925982.target(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,9925983,0,0x4011,0,800,2,RACE_WINDBEAST,ATTRIBUTE_DARK) end Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) end function c9925982.activate(e,tp,eg,ep,ev,re,r,rp) - if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and Duel.IsPlayerCanSpecialSummonMonster(tp,9925983,0,0x4011,0,800,2,RACE_WINDBEAST,ATTRIBUTE_DARK) then for i=1,2 do local token=Duel.CreateToken(tp,9925983) diff --git a/script/c99267150.lua b/script/c99267150.lua old mode 100755 new mode 100644 diff --git a/script/c99274184.lua b/script/c99274184.lua new file mode 100644 index 00000000..4c2a58bd --- /dev/null +++ b/script/c99274184.lua @@ -0,0 +1,73 @@ +--クリストロン・インパクト +function c99274184.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c99274184.target) + e1:SetOperation(c99274184.activate) + c:RegisterEffect(e1) + --disable + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(99274184,0)) + e2:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_QUICK_O) + e2:SetCode(EVENT_CHAINING) + e2:SetRange(LOCATION_GRAVE) + e2:SetCondition(c99274184.discon) + e2:SetCost(c99274184.discost) + e2:SetTarget(c99274184.distg) + e2:SetOperation(c99274184.disop) + c:RegisterEffect(e2) +end +function c99274184.filter(c,e,tp) + return c:IsFaceup() and c:IsSetCard(0xea) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c99274184.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_REMOVED) and c99274184.filter(chkc,e,tp) end + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingTarget(c99274184.filter,tp,LOCATION_REMOVED,0,1,nil,e,tp) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c99274184.filter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c99274184.activate(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then + local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) + if g:GetCount()>0 then + local sc=g:GetFirst() + while sc do + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_SET_DEFENSE_FINAL) + e1:SetValue(0) + e1:SetReset(RESET_EVENT+0x1fe0000) + sc:RegisterEffect(e1) + sc=g:GetNext() + end + end + end +end +function c99274184.tgfilter(c,tp) + return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) and c:IsSetCard(0xea) +end +function c99274184.discon(e,tp,eg,ep,ev,re,r,rp) + if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end + local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS) + return tg and tg:IsExists(c99274184.tgfilter,1,nil,tp) and Duel.IsChainDisablable(ev) + and aux.exccon(e,tp,eg,ep,ev,re,r,rp) +end +function c99274184.discost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c99274184.distg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return true end + Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0) +end +function c99274184.disop(e,tp,eg,ep,ev,re,r,rp) + Duel.NegateEffect(ev) +end diff --git a/script/c9929398.lua b/script/c9929398.lua new file mode 100644 index 00000000..2c2f99a3 --- /dev/null +++ b/script/c9929398.lua @@ -0,0 +1,106 @@ +--BF－朧影のゴウフウ +function c9929398.initial_effect(c) + c:EnableReviveLimit() + --special summon + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e1:SetRange(LOCATION_HAND) + e1:SetCondition(c9929398.spcon) + c:RegisterEffect(e1) + --token + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(9929398,0)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetCode(EVENT_SPSUMMON_SUCCESS) + e2:SetCondition(c9929398.tkncon) + e2:SetTarget(c9929398.tkntg) + e2:SetOperation(c9929398.tknop) + c:RegisterEffect(e2) + --spsummon + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(9929398,1)) + e3:SetCategory(CATEGORY_SPECIAL_SUMMON) + e3:SetProperty(EFFECT_FLAG_CARD_TARGET) + e3:SetType(EFFECT_TYPE_IGNITION) + e3:SetRange(LOCATION_MZONE) + e3:SetTarget(c9929398.target) + e3:SetOperation(c9929398.operation) + c:RegisterEffect(e3) +end +function c9929398.spcon(e,c) + if c==nil then return true end + return Duel.GetFieldGroupCount(c:GetControler(),LOCATION_MZONE,0,nil)==0 + and Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0 +end +function c9929398.tkncon(e,tp,eg,ep,ev,re,r,rp) + return e:GetHandler():IsPreviousLocation(LOCATION_HAND) +end +function c9929398.tkntg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and Duel.IsPlayerCanSpecialSummonMonster(tp,9929399,0,0x4011,0,0,1,RACE_WINDBEAST,ATTRIBUTE_DARK) end + Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0) +end +function c9929398.tknop(e,tp,eg,ep,ev,re,r,rp) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + if Duel.GetLocationCount(tp,LOCATION_MZONE)>1 + and Duel.IsPlayerCanSpecialSummonMonster(tp,9929399,0,0x4011,0,0,1,RACE_WINDBEAST,ATTRIBUTE_DARK) then + for i=1,2 do + local token=Duel.CreateToken(tp,9929399) + Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UNRELEASABLE_SUM) + e1:SetValue(1) + e1:SetReset(RESET_EVENT+0x1fe0000) + token:RegisterEffect(e1,true) + local e2=e1:Clone() + e2:SetCode(EFFECT_UNRELEASABLE_NONSUM) + token:RegisterEffect(e2,true) + local e3=e2:Clone() + e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL) + token:RegisterEffect(e3,true) + end + Duel.SpecialSummonComplete() + end +end +function c9929398.cfilter(c) + return c:IsFaceup() and not c:IsType(TYPE_TUNER) and c:IsAbleToRemoveAsCost() +end +function c9929398.spfilter(c,e,tp,ct) + local rlv=c:GetLevel()-e:GetHandler():GetLevel() + if rlv<1 then return false end + local rg=Duel.GetMatchingGroup(c9929398.cfilter,tp,LOCATION_MZONE,0,e:GetHandler()) + return c:IsType(TYPE_SYNCHRO) and c:IsSetCard(0x33) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and rg:CheckWithSumEqual(Card.GetLevel,rlv,ct,63) +end +function c9929398.target(e,tp,eg,ep,ev,re,r,rp,chk) + local ct=-Duel.GetLocationCount(tp,LOCATION_MZONE) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() + and Duel.IsExistingTarget(c9929398.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,ct) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectTarget(tp,c9929398.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,ct) + local rlv=g:GetFirst():GetLevel()-e:GetHandler():GetLevel() + local rg=Duel.GetMatchingGroup(c9929398.cfilter,tp,LOCATION_MZONE,0,e:GetHandler()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g2=rg:SelectWithSumEqual(tp,Card.GetLevel,rlv,ct,63) + g2:AddCard(e:GetHandler()) + Duel.Remove(g2,POS_FACEUP,REASON_COST) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) +end +function c9929398.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_ADD_TYPE) + e1:SetReset(RESET_EVENT+0x1fe0000) + e1:SetValue(TYPE_TUNER) + tc:RegisterEffect(e1) + Duel.SpecialSummonComplete() + end +end diff --git a/script/c99311109.lua b/script/c99311109.lua index c400b4e5..4aec7af0 100644 --- a/script/c99311109.lua +++ b/script/c99311109.lua @@ -40,9 +40,7 @@ function c99311109.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) end function c99311109.activate(e,tp,eg,ep,ev,re,r,rp) local tc=Duel.GetFirstTarget() - if tc:IsRelateToEffect(e) and not Duel.GetControl(tc,tp,PHASE_END,1) then - if not tc:IsImmuneToEffect(e) and tc:IsAbleToChangeControler() then - Duel.Destroy(tc,REASON_EFFECT) - end + if tc:IsRelateToEffect(e) then + Duel.GetControl(tc,tp,PHASE_END,1) end end diff --git a/script/c99330325.lua b/script/c99330325.lua new file mode 100644 index 00000000..adbce69c --- /dev/null +++ b/script/c99330325.lua @@ -0,0 +1,89 @@ +--Interrupted Kaiju Slumber +function c99330325.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(99330325,0)) + e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetCountLimit(1,99330325+EFFECT_COUNT_CODE_OATH) + e1:SetTarget(c99330325.target) + e1:SetOperation(c99330325.activate) + c:RegisterEffect(e1) + --to hand + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(99330325,1)) + e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetCondition(aux.exccon) + e2:SetCost(c99330325.thcost) + e2:SetTarget(c99330325.thtg) + e2:SetOperation(c99330325.thop) + c:RegisterEffect(e2) +end +function c99330325.filter1(c,e,tp) + return c:IsSetCard(0xd3) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) + and Duel.IsExistingMatchingCard(c99330325.filter2,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetCode()) +end +function c99330325.filter2(c,e,tp,cd) + return c:IsSetCard(0xd3) and c:IsType(TYPE_MONSTER) and not c:IsCode(cd) + and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK,1-tp) +end +function c99330325.target(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) + and Duel.IsExistingMatchingCard(c99330325.filter1,tp,LOCATION_DECK,0,1,nil,e,tp) end + local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0) + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK) +end +function c99330325.activate(e,tp,eg,ep,ev,re,r,rp) + local dg=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil) + if Duel.Destroy(dg,REASON_EFFECT)==0 then return end + local sg=Duel.GetMatchingGroup(c99330325.filter1,tp,LOCATION_DECK,0,nil,e,tp) + if sg:GetCount()>0 and not Duel.IsPlayerAffectedByEffect(tp,59822133) + and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 then + Duel.BreakEffect() + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(99330325,2)) + local g1=sg:Select(tp,1,1,nil) + local tc1=g1:GetFirst() + Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(99330325,3)) + local g2=Duel.SelectMatchingCard(tp,c99330325.filter2,tp,LOCATION_DECK,0,1,1,nil,e,tp,tc1:GetCode()) + local tc2=g2:GetFirst() + Duel.SpecialSummonStep(tc1,0,tp,tp,false,false,POS_FACEUP_ATTACK) + Duel.SpecialSummonStep(tc2,0,tp,1-tp,false,false,POS_FACEUP_ATTACK) + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_CANNOT_CHANGE_POSITION) + e1:SetReset(RESET_EVENT+0x1fe0000) + tc1:RegisterEffect(e1) + local e2=e1:Clone() + tc2:RegisterEffect(e2) + local e3=e1:Clone() + e3:SetCode(EFFECT_MUST_ATTACK) + tc1:RegisterEffect(e3) + local e4=e3:Clone() + tc2:RegisterEffect(e4) + Duel.SpecialSummonComplete() + end +end +function c99330325.thcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end + Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST) +end +function c99330325.thfilter(c) + return c:IsSetCard(0xd3) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c99330325.thtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c99330325.thfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) +end +function c99330325.thop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectMatchingCard(tp,c99330325.thfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoHand(g,nil,REASON_EFFECT) + Duel.ConfirmCards(1-tp,g) + end +end diff --git a/script/c99342953.lua b/script/c99342953.lua index 90e101b1..efa2e012 100644 --- a/script/c99342953.lua +++ b/script/c99342953.lua @@ -32,11 +32,11 @@ function c99342953.ctcon(e,tp,eg,ep,ev,re,r,rp) return eg:IsExists(c99342953.ctfilter,1,nil) end function c99342953.ctop(e,tp,eg,ep,ev,re,r,rp) - e:GetHandler():AddCounter(COUNTER_NEED_ENABLE+0xe,1) + e:GetHandler():AddCounter(COUNTER_NEED_ENABLE+0x100e,1) end function c99342953.spcost(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0xe,2,REASON_COST) end - Duel.RemoveCounter(tp,1,1,0xe,2,REASON_COST) + if chk==0 then return Duel.IsCanRemoveCounter(tp,1,1,0x100e,2,REASON_COST) end + Duel.RemoveCounter(tp,1,1,0x100e,2,REASON_COST) end function c99342953.filter(c,e,tp) return c:IsSetCard(0xc) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) diff --git a/script/c99357565.lua b/script/c99357565.lua new file mode 100644 index 00000000..b115a660 --- /dev/null +++ b/script/c99357565.lua @@ -0,0 +1,104 @@ +--D3 +function c99357565.initial_effect(c) + --setcode + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(99357565,0)) + e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F) + e1:SetCode(EVENT_SUMMON_SUCCESS) + e1:SetOperation(c99357565.scop) + c:RegisterEffect(e1) + --special summon + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(99357565,1)) + e2:SetCategory(CATEGORY_SPECIAL_SUMMON) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetCountLimit(1,99357565) + e2:SetRange(LOCATION_MZONE) + e2:SetCost(c99357565.spcost) + e2:SetTarget(c99357565.sptg) + e2:SetOperation(c99357565.spop) + c:RegisterEffect(e2) + --to grave + local e3=Effect.CreateEffect(c) + e3:SetDescription(aux.Stringid(99357565,2)) + e3:SetCategory(CATEGORY_TOGRAVE) + e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e3:SetProperty(EFFECT_FLAG_DELAY) + e3:SetCode(EVENT_DESTROYED) + e3:SetCountLimit(1,99357566) + e3:SetCondition(c99357565.tgcon) + e3:SetTarget(c99357565.tgtg) + e3:SetOperation(c99357565.tgop) + c:RegisterEffect(e3) +end +function c99357565.scop(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsRelateToEffect(e) and c:IsFaceup() then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_ADD_SETCODE) + e1:SetValue(0xc008) + e1:SetReset(RESET_EVENT+0x1ff0000) + c:RegisterEffect(e1) + end +end +function c99357565.spfilter(c,e,tp) + return c:IsCode(99357565) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) +end +function c99357565.spcost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end + local ct=2 + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end + ct=math.min(ct,Duel.GetLocationCount(tp,LOCATION_MZONE), + Duel.GetMatchingGroupCount(c99357565.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK,0,nil,e,tp)) + local cg=Duel.DiscardHand(tp,Card.IsDiscardable,1,ct,REASON_COST+REASON_DISCARD,nil) + e:SetLabel(cg) +end +function c99357565.sptg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 + and Duel.IsExistingMatchingCard(c99357565.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK,0,1,nil,e,tp) end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,e:GetLabel(),tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK) +end +function c99357565.spop(e,tp,eg,ep,ev,re,r,rp,chk) + local ct=e:GetLabel() + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft>=ct then + if ft>1 and ct>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=Duel.SelectMatchingCard(tp,c99357565.spfilter,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_DECK,0,ct,ct,nil,e,tp) + if g:GetCount()>0 and not g:IsExists(Card.IsHasEffect,1,nil,EFFECT_NECRO_VALLEY) then + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) + end + end + local e1=Effect.CreateEffect(e:GetHandler()) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON) + e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) + e1:SetTargetRange(1,0) + e1:SetTarget(c99357565.splimit) + e1:SetReset(RESET_PHASE+PHASE_END) + Duel.RegisterEffect(e1,tp) + local e2=e1:Clone() + e2:SetCode(EFFECT_CANNOT_SUMMON) + Duel.RegisterEffect(e2,tp) +end +function c99357565.splimit(e,c) + return not c:IsSetCard(0xc008) +end +function c99357565.tgcon(e,tp,eg,ep,ev,re,r,rp) + return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 +end +function c99357565.tgfilter(c) + return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xc008) and c:IsAbleToGrave() +end +function c99357565.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c99357565.tgfilter,tp,LOCATION_DECK,0,1,nil) end + Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK) +end +function c99357565.tgop(e,tp,eg,ep,ev,re,r,rp) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) + local g=Duel.SelectMatchingCard(tp,c99357565.tgfilter,tp,LOCATION_DECK,0,1,1,nil) + if g:GetCount()>0 then + Duel.SendtoGrave(g,REASON_EFFECT) + end +end diff --git a/script/c99397762.lua b/script/c99397762.lua new file mode 100644 index 00000000..68d58d64 --- /dev/null +++ b/script/c99397762.lua @@ -0,0 +1,41 @@ +--光波防輪 +function c99397762.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(c99397762.target) + e1:SetOperation(c99397762.activate) + c:RegisterEffect(e1) +end +function c99397762.filter(c) + return c:IsFaceup() and c:IsType(TYPE_XYZ) and (c:IsSetCard(0x107b) or c:IsSetCard(0xe5)) +end +function c99397762.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and c99397762.filter(chkc) end + if chk==0 then return e:IsHasType(EFFECT_TYPE_ACTIVATE) + and Duel.IsExistingTarget(c99397762.filter,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET) + Duel.SelectTarget(tp,c99397762.filter,tp,LOCATION_MZONE,0,1,1,nil) +end +function c99397762.activate(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) and not tc:IsImmuneToEffect(e) and c:IsRelateToEffect(e) then + c:CancelToGrave() + Duel.Overlay(tc,Group.FromCards(c)) + -- + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_INDESTRUCTABLE_COUNT) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) + e1:SetCountLimit(1) + e1:SetValue(c99397762.indval) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + end +end +function c99397762.indval(e,re,r,rp) + return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 +end diff --git a/script/c99423156.lua b/script/c99423156.lua old mode 100755 new mode 100644 index ebffeb75..2534fb94 --- a/script/c99423156.lua +++ b/script/c99423156.lua @@ -44,7 +44,7 @@ function c99423156.sumop(e,tp,eg,ep,ev,re,r,rp) end end function c99423156.filter(c) - return c:IsFaceup() and c:IsDestructable() + return c:IsFaceup() end function c99423156.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c99423156.filter(chkc) end diff --git a/script/c99429730.lua b/script/c99429730.lua index 7ff2cfef..a75d9999 100644 --- a/script/c99429730.lua +++ b/script/c99429730.lua @@ -52,7 +52,7 @@ function c99429730.operation(e,tp,eg,ep,ev,re,r,rp) end function c99429730.tdcon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_DECK) and (c:IsReason(REASON_REVEAL) or c:GetPreviousPosition()==POS_FACEUP_DEFENCE) + return c:IsPreviousLocation(LOCATION_DECK) and c:IsReason(REASON_REVEAL) end function c99429730.filter(c) return c:IsRace(RACE_PLANT) and c:IsAbleToDeck() diff --git a/script/c99458769.lua b/script/c99458769.lua index 8d2a3ef4..7cbfdf79 100644 --- a/script/c99458769.lua +++ b/script/c99458769.lua @@ -39,17 +39,17 @@ function c99458769.descon(e,tp,eg,ep,ev,re,r,rp) end function c99458769.destg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return true end - local c1=Duel.GetMatchingGroupCount(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - local c2=Duel.GetMatchingGroupCount(Card.IsDestructable,tp,0,LOCATION_SZONE,nil) + local c1=Duel.GetMatchingGroupCount(aux.TRUE,tp,0,LOCATION_MZONE,nil) + local c2=Duel.GetMatchingGroupCount(aux.TRUE,tp,0,LOCATION_SZONE,nil) if (c1>c2 and c2~=0) or c1==0 then c1=c2 end if c1~=0 then - local g=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_ONFIELD,nil) + local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,c1,0,0) end end function c99458769.desop(e,tp,eg,ep,ev,re,r,rp) - local g1=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_MZONE,nil) - local g2=Duel.GetMatchingGroup(Card.IsDestructable,tp,0,LOCATION_SZONE,nil) + local g1=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) + local g2=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_SZONE,nil) if g1:GetCount()>0 or g2:GetCount()>0 then if g1:GetCount()==0 then Duel.Destroy(g2,REASON_EFFECT) diff --git a/script/c99469936.lua b/script/c99469936.lua old mode 100755 new mode 100644 diff --git a/script/c99517131.lua b/script/c99517131.lua old mode 100755 new mode 100644 index 00b52fe0..ac7f47c9 --- a/script/c99517131.lua +++ b/script/c99517131.lua @@ -21,7 +21,7 @@ function c99517131.target(e,tp,eg,ep,ev,re,r,rp,chk) end function c99517131.activate(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,LOCATION_MZONE,LOCATION_MZONE,nil) - Duel.ChangePosition(g,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_DEFENCE,POS_FACEUP_DEFENCE,true) + Duel.ChangePosition(g,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE,true) local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER) local rec=Duel.GetMatchingGroupCount(c99517131.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)*400 Duel.Recover(p,rec,REASON_EFFECT) diff --git a/script/c99532708.lua b/script/c99532708.lua index 2d5bd7d2..f1ab6b4d 100644 --- a/script/c99532708.lua +++ b/script/c99532708.lua @@ -10,5 +10,5 @@ function c99532708.initial_effect(c) c:RegisterEffect(e1) end function c99532708.distg(e,c) - return c:GetCounter(0xe)>0 and c:GetCode()~=99532708 + return c:GetCounter(0x100e)>0 and c:GetCode()~=99532708 end diff --git a/script/c99590524.lua b/script/c99590524.lua index 08c324db..6176d653 100644 --- a/script/c99590524.lua +++ b/script/c99590524.lua @@ -16,10 +16,10 @@ function c99590524.condition(e,tp,eg,ep,ev,re,r,rp) return not Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_GRAVE,0,1,nil,TYPE_TRAP) end function c99590524.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,2,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,2,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,LOCATION_MZONE,LOCATION_MZONE,2,2,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,2,2,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0) end function c99590524.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c99634927.lua b/script/c99634927.lua new file mode 100644 index 00000000..945b03cd --- /dev/null +++ b/script/c99634927.lua @@ -0,0 +1,115 @@ +--魔界劇団－ファンキー・コメディアン +function c99634927.initial_effect(c) + --pendulum summon + aux.EnablePendulumAttribute(c) + --atk up (p zone) + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(99634927,0)) + e1:SetCategory(CATEGORY_ATKCHANGE) + e1:SetType(EFFECT_TYPE_IGNITION) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1) + e1:SetCost(c99634927.atkcost1) + e1:SetTarget(c99634927.atktg1) + e1:SetOperation(c99634927.atkop1) + c:RegisterEffect(e1) + --atk up (summon) + local e2=Effect.CreateEffect(c) + e2:SetCategory(CATEGORY_ATKCHANGE) + e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e2:SetProperty(EFFECT_FLAG_DELAY) + e2:SetCode(EVENT_SUMMON_SUCCESS) + e2:SetTarget(c99634927.atktg2) + e2:SetOperation(c99634927.atkop2) + c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EVENT_SPSUMMON_SUCCESS) + c:RegisterEffect(e3) + --atk up (m zone) + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_ATKCHANGE) + e4:SetProperty(EFFECT_FLAG_CARD_TARGET) + e4:SetType(EFFECT_TYPE_IGNITION) + e4:SetRange(LOCATION_MZONE) + e4:SetCountLimit(1,99634927) + e4:SetCost(c99634927.atkcost3) + e4:SetTarget(c99634927.atktg3) + e4:SetOperation(c99634927.atkop3) + c:RegisterEffect(e4) +end +function c99634927.atkfilter1(c,tp) + return c:IsSetCard(0x10ec) and Duel.IsExistingTarget(c99634927.atkfilter2,tp,LOCATION_MZONE,0,1,c) +end +function c99634927.atkfilter2(c) + return c:IsSetCard(0x10ec) and c:IsFaceup() +end +function c99634927.atkcost1(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.CheckReleaseGroup(tp,c99634927.atkfilter1,1,nil,tp) end + local g=Duel.SelectReleaseGroup(tp,c99634927.atkfilter1,1,1,nil,tp) + e:SetLabel(g:GetFirst():GetBaseAttack()) + Duel.Release(g,REASON_COST) +end +function c99634927.atktg1(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c99634927.atkfilter2(chkc) end + if chk==0 then return Duel.IsExistingTarget(c99634927.atkfilter2,tp,LOCATION_MZONE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP) + Duel.SelectTarget(tp,c99634927.atkfilter2,tp,LOCATION_MZONE,0,1,1,nil) +end +function c99634927.atkop1(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if c:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsRelateToEffect(e) then + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(e:GetLabel()) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + tc:RegisterEffect(e1) + end +end +function c99634927.atktg2(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return Duel.IsExistingMatchingCard(c99634927.atkfilter2,tp,LOCATION_MZONE,0,1,nil) end +end +function c99634927.atkop2(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + if c:IsFaceup() and c:IsRelateToEffect(e) then + local atkval=Duel.GetMatchingGroupCount(c99634927.atkfilter2,tp,LOCATION_MZONE,0,nil)*300 + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetValue(atkval) + e1:SetReset(RESET_EVENT+0x1ff0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1) + end +end +function c99634927.atkcost3(e,tp,eg,ep,ev,re,r,rp,chk) + local c=e:GetHandler() + if chk==0 then return c:GetAttackAnnouncedCount()==0 end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH) + e1:SetCode(EFFECT_CANNOT_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + c:RegisterEffect(e1,true) +end +function c99634927.atktg3(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + local c=e:GetHandler() + if chkc then return chkc~=c and chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c99634927.atkfilter2(chkc) end + if chk==0 then return Duel.IsExistingTarget(c99634927.atkfilter2,tp,LOCATION_MZONE,0,1,c) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELF) + Duel.SelectTarget(tp,c99634927.atkfilter2,tp,LOCATION_MZONE,0,1,1,c) +end +function c99634927.atkop3(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local tc=Duel.GetFirstTarget() + if tc:IsFaceup() and tc:IsRelateToEffect(e) then + local atk=c:GetAttack() + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetCode(EFFECT_UPDATE_ATTACK) + e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) + e1:SetValue(atk) + tc:RegisterEffect(e1) + end +end diff --git a/script/c99641328.lua b/script/c99641328.lua index 1ec68a6f..a31f0b65 100644 --- a/script/c99641328.lua +++ b/script/c99641328.lua @@ -52,10 +52,10 @@ function c99641328.operation(e,tp,eg,ep,ev,re,r,rp) end function c99641328.descon(e,tp,eg,ep,ev,re,r,rp) local c=e:GetHandler() - return c:IsPreviousLocation(LOCATION_DECK) and (c:IsReason(REASON_REVEAL) or c:GetPreviousPosition()==POS_FACEUP_DEFENCE) + return c:IsPreviousLocation(LOCATION_DECK) and c:IsReason(REASON_REVEAL) end function c99641328.desfilter(c) - return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() + return c:IsType(TYPE_SPELL+TYPE_TRAP) end function c99641328.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsOnField() and c99641328.desfilter(chkc) end diff --git a/script/c99657399.lua b/script/c99657399.lua index 610eff35..9c6f1ad6 100644 --- a/script/c99657399.lua +++ b/script/c99657399.lua @@ -15,10 +15,10 @@ function c99657399.condition(e,tp,eg,ep,ev,re,r,rp) return ep~=tp end function c99657399.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) - if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsDestructable() end - if chk==0 then return Duel.IsExistingTarget(Card.IsDestructable,tp,0,LOCATION_MZONE,1,nil) end + if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end + if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) - local g=Duel.SelectTarget(tp,Card.IsDestructable,tp,0,LOCATION_MZONE,1,1,nil) + local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) end function c99657399.activate(e,tp,eg,ep,ev,re,r,rp) diff --git a/script/c99659159.lua b/script/c99659159.lua index 888fdadb..5435e8e8 100644 --- a/script/c99659159.lua +++ b/script/c99659159.lua @@ -30,7 +30,7 @@ function c99659159.atktg(e,c) return c:GetEquipGroup():IsExists(Card.IsSetCard,1,nil,0x29) end function c99659159.filter(c) - return c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) + return c:IsSetCard(0x29) and c:IsRace(RACE_DRAGON) and not c:IsForbidden() end function c99659159.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end diff --git a/script/c99724761.lua b/script/c99724761.lua index d343962c..1d6b3821 100644 --- a/script/c99724761.lua +++ b/script/c99724761.lua @@ -35,16 +35,17 @@ function c99724761.splimit(e,se,sp,st) return not e:GetHandler():IsLocation(LOCATION_EXTRA+LOCATION_GRAVE) end function c99724761.spfilter(c,code) - return c:IsCode(code) and c:IsAbleToRemoveAsCost() + return c:IsFusionCode(code) and c:IsAbleToRemoveAsCost() end function c99724761.spcon(e,c) - if c==nil then return true end + if c==nil then return true end local tp=c:GetControler() local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) if ft<-1 then return false end local g1=Duel.GetMatchingGroup(c99724761.spfilter,tp,LOCATION_ONFIELD,0,nil,62651957) local g2=Duel.GetMatchingGroup(c99724761.spfilter,tp,LOCATION_ONFIELD,0,nil,64500000) if g1:GetCount()==0 or g2:GetCount()==0 then return false end + if g1:GetCount()==1 and g2:GetCount()==1 and g1:GetFirst()==g2:GetFirst() then return false end if ft>0 then return true end local f1=g1:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) local f2=g2:FilterCount(Card.IsLocation,nil,LOCATION_MZONE) @@ -62,12 +63,22 @@ function c99724761.spop(e,tp,eg,ep,ev,re,r,rp,c) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) if ft<=0 then tc=g1:FilterSelect(tp,Card.IsLocation,1,1,nil,LOCATION_MZONE):GetFirst() + ft=ft+1 else tc=g1:Select(tp,1,1,nil):GetFirst() end g:AddCard(tc) - g1:Remove(Card.IsCode,nil,tc:GetCode()) - ft=ft+1 + if i==1 then + g1:Clear() + if tc:IsFusionCode(64500000) then + local sg=Duel.GetMatchingGroup(c99724761.spfilter,tp,LOCATION_ONFIELD,0,tc,62651957) + g1:Merge(sg) + end + if tc:IsFusionCode(62651957) then + local sg=Duel.GetMatchingGroup(c99724761.spfilter,tp,LOCATION_ONFIELD,0,tc,64500000) + g1:Merge(sg) + end + end end Duel.Remove(g,POS_FACEUP,REASON_COST) end @@ -76,7 +87,7 @@ function c99724761.descost(e,tp,eg,ep,ev,re,r,rp,chk) Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD) end function c99724761.filter(c) - return c:IsFacedown() and c:IsDestructable() + return c:IsFacedown() end function c99724761.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsControler(1-tp) and c99724761.filter(chkc) end diff --git a/script/c99733359.lua b/script/c99733359.lua old mode 100755 new mode 100644 index 52bdd56b..ee968ce2 --- a/script/c99733359.lua +++ b/script/c99733359.lua @@ -4,7 +4,7 @@ function c99733359.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(99733359,0)) e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_QUICK_O+EFFECT_TYPE_FIELD) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetRange(LOCATION_GRAVE) e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE) e1:SetCountLimit(1,99733359) @@ -15,7 +15,7 @@ function c99733359.initial_effect(c) c:RegisterEffect(e1) end function c99733359.condition(e,tp,eg,ep,ev,re,r,rp) - return Duel.GetTurnPlayer()~=tp and Duel.GetBattleDamage(tp)>0 + return Duel.GetTurnPlayer()~=tp end function c99733359.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.CheckLPCost(tp,1000) end diff --git a/script/c99789342.lua b/script/c99789342.lua index 590331d3..2d290ff1 100644 --- a/script/c99789342.lua +++ b/script/c99789342.lua @@ -10,6 +10,7 @@ function c99789342.initial_effect(c) e1:SetOperation(c99789342.activate) c:RegisterEffect(e1) end +c99789342.card_code_list={46986414} function c99789342.cost(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_SUMMON)==0 and Duel.GetActivityCount(tp,ACTIVITY_FLIPSUMMON)==0 and Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)==0 end diff --git a/script/c99861526.lua b/script/c99861526.lua index 0b1ce861..f4d09be2 100644 --- a/script/c99861526.lua +++ b/script/c99861526.lua @@ -37,6 +37,6 @@ function c99861526.poscon(e,tp,eg,ep,ev,re,r,rp) end function c99861526.posop(e,tp,eg,ep,ev,re,r,rp) if e:GetHandler():IsRelateToEffect(e) then - Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENCE) + Duel.ChangePosition(e:GetHandler(),POS_FACEUP_DEFENSE) end end diff --git a/script/c9989792.lua b/script/c9989792.lua new file mode 100644 index 00000000..180e99cc --- /dev/null +++ b/script/c9989792.lua @@ -0,0 +1,58 @@ +--トラミッド・フォートレス +function c9989792.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + c:RegisterEffect(e1) + --atk + local e2=Effect.CreateEffect(c) + e2:SetType(EFFECT_TYPE_FIELD) + e2:SetCode(EFFECT_UPDATE_DEFENSE) + e2:SetRange(LOCATION_FZONE) + e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e2:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_ROCK)) + e2:SetValue(500) + c:RegisterEffect(e2) + --indes + local e3=Effect.CreateEffect(c) + e3:SetType(EFFECT_TYPE_FIELD) + e3:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) + e3:SetRange(LOCATION_FZONE) + e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) + e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xe2)) + e3:SetValue(1) + c:RegisterEffect(e3) + --to hand + local e4=Effect.CreateEffect(c) + e4:SetCategory(CATEGORY_TOHAND) + e4:SetDescription(aux.Stringid(9989792,0)) + e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) + e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET) + e4:SetCode(EVENT_TO_GRAVE) + e4:SetCountLimit(1,9989792) + e4:SetCondition(c9989792.thcon) + e4:SetTarget(c9989792.thtg) + e4:SetOperation(c9989792.thop) + c:RegisterEffect(e4) +end +function c9989792.thcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsPreviousLocation(LOCATION_SZONE) and c:GetPreviousSequence()==5 and c:IsPreviousPosition(POS_FACEUP) +end +function c9989792.thfilter(c) + return c:IsSetCard(0xe2) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() +end +function c9989792.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c9989792.thfilter(chkc) end + if chk==0 then return Duel.IsExistingTarget(c9989792.thfilter,tp,LOCATION_GRAVE,0,1,nil) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) + local g=Duel.SelectTarget(tp,c9989792.thfilter,tp,LOCATION_GRAVE,0,1,1,nil) + Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0) +end +function c9989792.thop(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.SendtoHand(tc,nil,REASON_EFFECT) + end +end diff --git a/script/c99902789.lua b/script/c99902789.lua index 306da6c5..76dec6de 100644 --- a/script/c99902789.lua +++ b/script/c99902789.lua @@ -4,7 +4,7 @@ function c99902789.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetDescription(aux.Stringid(99902789,0)) e1:SetCategory(CATEGORY_NEGATE+CATEGORY_DESTROY) - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) + e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetCode(EVENT_CHAINING) e1:SetRange(LOCATION_HAND) e1:SetCondition(c99902789.discon) diff --git a/script/c99940363.lua b/script/c99940363.lua new file mode 100644 index 00000000..6dc0e1d6 --- /dev/null +++ b/script/c99940363.lua @@ -0,0 +1,58 @@ +--帝王の凍気 +function c99940363.initial_effect(c) + --Activate + local e1=Effect.CreateEffect(c) + e1:SetDescription(aux.Stringid(99940363,0)) + e1:SetCategory(CATEGORY_DESTROY) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetProperty(EFFECT_FLAG_CARD_TARGET) + e1:SetCondition(c99940363.condition) + e1:SetTarget(c99940363.target) + e1:SetOperation(c99940363.operation) + c:RegisterEffect(e1) + --destroy + local e2=Effect.CreateEffect(c) + e2:SetDescription(aux.Stringid(99940363,1)) + e2:SetCategory(CATEGORY_DESTROY) + e2:SetType(EFFECT_TYPE_IGNITION) + e2:SetRange(LOCATION_GRAVE) + e2:SetProperty(EFFECT_FLAG_CARD_TARGET) + e2:SetCost(c99940363.cost) + e2:SetTarget(c99940363.target) + e2:SetOperation(c99940363.operation) + c:RegisterEffect(e2) +end +function c99940363.mfilter(c) + return c:IsFaceup() and c:IsAttackAbove(2400) and c:GetDefense()==1000 +end +function c99940363.condition(e,tp,eg,ep,ev,re,r,rp) + return Duel.IsExistingMatchingCard(c99940363.mfilter,tp,LOCATION_MZONE,0,1,nil) +end +function c99940363.filter(c) + return c:IsFacedown() +end +function c99940363.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) + if chkc then return chkc:IsOnField() and c99940363.filter(chkc) and chkc~=e:GetHandler() end + if chk==0 then return Duel.IsExistingTarget(c99940363.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) + local g=Duel.SelectTarget(tp,c99940363.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler()) + Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0) +end +function c99940363.operation(e,tp,eg,ep,ev,re,r,rp) + local tc=Duel.GetFirstTarget() + if tc:IsRelateToEffect(e) then + Duel.Destroy(tc,REASON_EFFECT) + end +end +function c99940363.cfilter(c) + return c:IsSetCard(0xbe) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemoveAsCost() +end +function c99940363.cost(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() + and Duel.IsExistingMatchingCard(c99940363.cfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) + local g=Duel.SelectMatchingCard(tp,c99940363.cfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler()) + g:AddCard(e:GetHandler()) + Duel.Remove(g,POS_FACEUP,REASON_COST) +end diff --git a/script/c99946920.lua b/script/c99946920.lua index bdf6131f..b9c5e038 100644 --- a/script/c99946920.lua +++ b/script/c99946920.lua @@ -49,12 +49,12 @@ function c99946920.operation(e,tp,eg,ep,ev,re,r,rp) if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) local g=Duel.SelectMatchingCard(tp,c99946920.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp) - Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENCE) + Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE) end function c99946920.sccon(e,tp,eg,ep,ev,re,r,rp) if Duel.GetTurnPlayer()==tp then return false end local ph=Duel.GetCurrentPhase() - return ph==PHASE_MAIN1 or ph==PHASE_BATTLE or ph==PHASE_MAIN2 + return ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2 end function c99946920.mfilter(c) return c:IsSetCard(0x9e) diff --git a/script/c9995766.lua b/script/c9995766.lua old mode 100755 new mode 100644 index f7b15835..65c21209 --- a/script/c9995766.lua +++ b/script/c9995766.lua @@ -9,11 +9,15 @@ function c9995766.initial_effect(c) --indestructable local e2=Effect.CreateEffect(c) e2:SetType(EFFECT_TYPE_FIELD) - e2:SetCode(EFFECT_INDESTRUCTABLE) + e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT) e2:SetRange(LOCATION_SZONE) e2:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD) e2:SetTarget(c9995766.infilter) + e2:SetValue(1) c:RegisterEffect(e2) + local e3=e2:Clone() + e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) + c:RegisterEffect(e3) end function c9995766.infilter(e,c) return bit.band(c:GetType(),0x20004)==0x20004 and c:GetCode()~=9995766 diff --git a/script/constant.lua b/script/constant.lua index 44f29170..eafff6db 100644 --- a/script/constant.lua +++ b/script/constant.lua @@ -1,6 +1,6 @@ --Card id MIN_ID =1000 --4 digit, by DataManager::GetDesc() -MAX_ID =999999999 --9 digit, by field::select_chain() +MAX_ID =268435455 --9 digit, by DataManager::GetDesc() --Locations 区域 LOCATION_DECK =0x01 --卡组 LOCATION_HAND =0x02 --手牌 @@ -20,18 +20,18 @@ LOCATION_PZONE =0x200 --灵摆区 --Positions 表示形式 POS_FACEUP_ATTACK =0x1 --表侧攻击 POS_FACEDOWN_ATTACK =0x2 --里侧攻击 -POS_FACEUP_DEFENCE =0x4 --表侧守备 -POS_FACEDOWN_DEFENCE =0x8 --里侧守备 +POS_FACEUP_DEFENSE =0x4 --表侧守备 +POS_FACEDOWN_DEFENSE =0x8 --里侧守备 POS_FACEUP =0x5 --正面表示 POS_FACEDOWN =0xa --背面表示 POS_ATTACK =0x3 --攻击表示 -POS_DEFENCE =0xc --守备表示 +POS_DEFENSE =0xc --守备表示 NO_FLIP_EFFECT =0x10000--不发动反转效果 --Types 卡片类型 TYPE_MONSTER =0x1 --怪兽卡 TYPE_SPELL =0x2 --魔法卡 TYPE_TRAP =0x4 --陷阱卡 -TYPE_NORMAL =0x10 --通常 +TYPE_NORMAL =0x10 --通常怪兽 TYPE_EFFECT =0x20 --效果 TYPE_FUSION =0x40 --融合 TYPE_RITUAL =0x80 --仪式 @@ -93,9 +93,9 @@ REASON_MATERIAL =0x8 --作为融合/同调/超量素材或用於儀式/升級 REASON_SUMMON =0x10 --召唤 REASON_BATTLE =0x20 --战斗破坏 REASON_EFFECT =0x40 --效果 -REASON_COST =0x80 --COST +REASON_COST =0x80 --用於代價或無法支付代價而破壞 REASON_ADJUST =0x100 --调整（御前试合） -REASON_LOST_TARGET =0x200 --失去效果对象 +REASON_LOST_TARGET =0x200 --失去装备对象（被破坏）/失去叠放对象（不是被破坏） REASON_RULE =0x400 --规则 REASON_SPSUMMON =0x800 --特殊召唤 REASON_DISSUMMON =0x1000 --召唤失败 @@ -131,13 +131,13 @@ STATUS_DISABLED =0x0001 --效果被无效 STATUS_TO_ENABLE =0x0002 --将变成有效 STATUS_TO_DISABLE =0x0004 --将变成无效 STATUS_PROC_COMPLETE =0x0008 --完成正规召唤（解除苏生限制） -STATUS_SET_TURN =0x0010 --覆盖 +STATUS_SET_TURN =0x0010 --在本回合覆盖 STATUS_NO_LEVEL =0x0020 --无等级 -STATUS_REVIVE_LIMIT =0x0040 --(N/A) +STATUS_BATTLE_RESULT =0x0040 --傷害計算結果預計要破壞的怪獸 STATUS_SPSUMMON_STEP =0x0080 --效果特召處理中 STATUS_FORM_CHANGED =0x0100 --改变过表示形式 STATUS_SUMMONING =0x0200 --召唤中 -STATUS_EFFECT_ENABLED =0x0400 --效果有效 +STATUS_EFFECT_ENABLED =0x0400 --卡片準備就緒(不在移動、召喚、連鎖中) STATUS_SUMMON_TURN =0x0800 --在本回合召喚/SET STATUS_DESTROY_CONFIRMED =0x1000 --破坏确定 STATUS_LEAVE_CONFIRMED =0x2000 --連鎖處理完後送去墓地的魔法陷阱 @@ -146,14 +146,14 @@ STATUS_COPYING_EFFECT =0x8000 --复制效果 STATUS_CHAINING =0x10000 --正在連鎖串中 STATUS_SUMMON_DISABLED =0x20000 --召唤无效後尚未移動 STATUS_ACTIVATE_DISABLED =0x40000 --发动无效後尚未移動 -STATUS_UNSUMMONABLE_CARD =0x80000 --(N/A) +STATUS_EFFECT_REPLACED =0x80000 --效果被替代(红莲霸权) STATUS_UNION =0x100000 --同盟 -STATUS_ATTACK_CANCELED =0x200000 --攻击取消（卷回？） +STATUS_ATTACK_CANCELED =0x200000 --若其為攻擊者，則攻擊中止 STATUS_INITIALIZING =0x400000 --初始化.. -STATUS_ACTIVATED =0x800000 --效果已发动 +STATUS_ACTIVATED =0x800000 --魔法陷阱卡发动過 STATUS_JUST_POS =0x1000000 --已改變表示形式(用於STATUS_CONTINUOUS_POS判定) STATUS_CONTINUOUS_POS =0x2000000 --改變後再次設定成其他表示形式 -STATUS_IS_PUBLIC =0x4000000 --(N/A) +STATUS_FORBIDDEN =0x4000000 --不能play STATUS_ACT_FROM_HAND =0x8000000 --從手牌发动 STATUS_OPPO_BATTLE =0x10000000 --和對手的怪兽戰鬥 STATUS_FLIP_SUMMON_TURN =0x20000000 --在本回合反转召唤 @@ -166,19 +166,21 @@ ASSUME_RANK =4 ASSUME_ATTRIBUTE =5 ASSUME_RACE =6 ASSUME_ATTACK =7 -ASSUME_DEFENCE =8 +ASSUME_DEFENSE =8 --Counter --指示物 -COUNTER_NEED_PERMIT =0x1000 --某指示物数量上限 -COUNTER_NEED_ENABLE =0x2000 --可以放置某指示物 +COUNTER_WITHOUT_PERMIT =0x1000 --可以放置在非特定對象的指示物 +COUNTER_NEED_ENABLE =0x2000 --在卡片本身放置上述指示物的標記(卡片守衛) --Phase --阶段 PHASE_DRAW =0x01 --抽卡阶段 PHASE_STANDBY =0x02 --准备阶段 PHASE_MAIN1 =0x04 --主要阶段1 -PHASE_BATTLE =0x08 --战斗阶段 -PHASE_DAMAGE =0x10 --伤害步驟 -PHASE_DAMAGE_CAL =0x20 --伤害计算时 -PHASE_MAIN2 =0x40 --主要阶段2 -PHASE_END =0x80 --结束阶段 +PHASE_BATTLE_START =0x08 --战斗阶段开始 +PHASE_BATTLE_STEP =0x10 --战斗步驟 +PHASE_DAMAGE =0x20 --伤害步驟 +PHASE_DAMAGE_CAL =0x40 --伤害计算时 +PHASE_BATTLE =0x80 --战斗阶段結束 +PHASE_MAIN2 =0x100 --主要阶段2 +PHASE_END =0x200 --结束阶段 --Player --玩家 PLAYER_NONE =2 --2个玩家都不是 PLAYER_ALL =3 --2个玩家都是 @@ -198,18 +200,10 @@ CHAININFO_CHAIN_ID =0x800 --连锁ID CHAININFO_TYPE =0x1000 --连锁类型 CHAININFO_EXTTYPE =0x2000 --连锁额外类型 --========== Reset ========== --重置条件（注意：重置条件可以多个相加） ---PHASE_DRAW --抽卡阶段重置 ---PHASE_STANDBY --准备阶段重置 ---PHASE_MAIN1 --主要阶段1重置 ---PHASE_BATTLE --战斗阶段重置 ---PHASE_DAMAGE --伤害计算前重置 ---PHASE_DAMAGE_CAL --伤害计算时重置 ---PHASE_MAIN2 --主要阶段2重置 ---PHASE_END --结束阶段重置 -RESET_SELF_TURN =0x0100 --自己回合结束重置 -RESET_OPPO_TURN =0x0200 --对方回合结束重置 -RESET_PHASE =0x0400 --阶段结束重置(一般和上面那些阶段配合使用) -RESET_CHAIN =0x0800 --连锁结束重置 +RESET_SELF_TURN =0x10000000 --自己回合的階段重置 +RESET_OPPO_TURN =0x20000000 --对方回合的階段重置 +RESET_PHASE =0x40000000 --阶段结束重置(一般和上面那些阶段配合使用) +RESET_CHAIN =0x80000000 --连锁结束重置 RESET_EVENT =0x1000 --指定的條件下重置(一般和下面这些事件配合使用) RESET_CARD =0x2000 --重置Owner為指定卡片的效果 RESET_CODE =0x4000 --重置指定Code的single效果(不含EFFECT_FLAG_SINGLE_RANGE) @@ -222,10 +216,10 @@ RESET_TEMP_REMOVE =0x00100000 --暂时除外重置 RESET_TOHAND =0x00200000 --回手牌或加入手牌重置 RESET_TODECK =0x00400000 --回卡组重置 RESET_LEAVE =0x00800000 --从场上移到其他位置/超量叠放重置 -RESET_TOFIELD =0x01000000 --到场上重置 +RESET_TOFIELD =0x01000000 --到场上重置(move_to_field()) RESET_CONTROL =0x02000000 --控制者变更重置 RESET_OVERLAY =0x04000000 --超量叠放重置 -RESET_MSCHANGE =0x08000000 --从怪兽区到魔法区，或者从魔法区到怪兽区 +RESET_MSCHANGE =0x08000000 --从怪兽区到魔法区，或者从魔法区到怪兽区(move_to_field()、寶玉獸) --========== Types ========== --效果类型（定义效果触发类型，和codes一起使用） EFFECT_TYPE_SINGLE =0x0001 --自己状态变化时触发 EFFECT_TYPE_FIELD =0x0002 --场上所有卡状态变化时触发 @@ -249,19 +243,19 @@ EFFECT_FLAG_IGNORE_RANGE =0x0020 --影响所有区域的卡（禁止令 大宇 EFFECT_FLAG_ABSOLUTE_TARGET =0x0040 --Target Range不会因为控制权的改变而改变 EFFECT_FLAG_IGNORE_IMMUNE =0x0080 --无视效果免疫 EFFECT_FLAG_SET_AVAILABLE =0x0100 --影响场上里侧的卡/裡側狀態可發動 -EFFECT_FLAG_CONTINUOUS =0x0200 --N/A +EFFECT_FLAG_CANNOT_NEGATE =0x0200 --含有"此效果不會被無效"的敘述 EFFECT_FLAG_CANNOT_DISABLE =0x0400 --不会被无效 EFFECT_FLAG_PLAYER_TARGET =0x0800 --以玩家为对象 EFFECT_FLAG_BOTH_SIDE =0x1000 --双方都能使用（部分场地，弹压） -EFFECT_FLAG_COPY_INHERIT =0x2000 --继承复制的效果的Reset属性 +EFFECT_FLAG_COPY_INHERIT =0x2000 --若由复制的效果產生則继承其Reset属性 EFFECT_FLAG_DAMAGE_STEP =0x4000 --可以在伤害步骤发动 EFFECT_FLAG_DAMAGE_CAL =0x8000 --可以在伤害计算时发动 -EFFECT_FLAG_DELAY =0x10000 --場合型誘發效果、用於永續效果的EFFECT_TYPE_CONTINUOUS +EFFECT_FLAG_DELAY =0x10000 --場合型誘發效果、用於永續效果的EFFECT_TYPE_CONTINUOUS、神之化身/恐惧之源的攻击力变化最后计算 EFFECT_FLAG_SINGLE_RANGE =0x20000 --只对自己有效 EFFECT_FLAG_UNCOPYABLE =0x40000 --不能复制（效果外文本） EFFECT_FLAG_OATH =0x80000 --誓约效果 EFFECT_FLAG_SPSUM_PARAM =0x100000 --指定召喚/规则特殊召唤的位置和表示形式(熔岩魔神) -EFFECT_FLAG_REPEAT =0x200000 --发动被无效后可以再次发动 +EFFECT_FLAG_REPEAT =0x200000 --神之化身的攻击力重复计算 EFFECT_FLAG_NO_TURN_RESET =0x400000 --发条等“这张卡在场上只能发动一次”的效果 EFFECT_FLAG_EVENT_PLAYER =0x800000 --视为对方玩家的效果（动作？） EFFECT_FLAG_OWNER_RELATE =0x1000000 --持續成為對象 @@ -273,21 +267,21 @@ EFFECT_FLAG_COF =0x20000000 --N/A EFFECT_FLAG_CVAL_CHECK =0x40000000 --以卡为COST的诱发效果需要使用 EFFECT_FLAG_IMMEDIATELY_APPLY =0x80000000 --卡在发动时效果就立即适用（卡通王國） -EFFECT_FLAG2_NAGA =0x0001 -- -EFFECT_FLAG2_COF =0x0002 -- ---========== Codes ========== --对永续性效果表示效果类型 EFFECT开头，对诱发型效果表示触发效果的事件/时点 EVENT开头 +EFFECT_FLAG2_NAGA =0x0001 --特殊情况时发动不会被无效（神卡纳迦的特殊处理） +EFFECT_FLAG2_COF =0x0002 --通常魔法卡在MP1以外发动（邪恶的仪式的特殊处理） +--========== Codes ========== --对永续性效果表示效果类型(EFFECT开头)，对诱发型效果表示触发效果的事件/时点(EVENT开头) EFFECT_IMMUNE_EFFECT =1 --效果免疫 EFFECT_DISABLE =2 --效果无效（技能抽取） -EFFECT_CANNOT_DISABLE =3 --卡不能被无效 +EFFECT_CANNOT_DISABLE =3 --效果不能被无效 EFFECT_SET_CONTROL =4 --设置控制权 EFFECT_CANNOT_CHANGE_CONTROL =5 --不能改变控制权 EFFECT_CANNOT_ACTIVATE =6 --玩家不能发动效果 EFFECT_CANNOT_TRIGGER =7 --卡不能发动效果 -EFFECT_DISABLE_EFFECT =8 --效果无效 （聖杯） +EFFECT_DISABLE_EFFECT =8 --效果无效（聖杯） EFFECT_DISABLE_CHAIN =9 --在連鎖串中無效(processor.cpp) EFFECT_DISABLE_TRAPMONSTER =10 --陷阱怪兽无效 EFFECT_CANNOT_INACTIVATE =12 --发动不能被无效 -EFFECT_CANNOT_DISEFFECT =13 --效果不能被无效 +EFFECT_CANNOT_DISEFFECT =13 --效果處理時不能被无效 EFFECT_CANNOT_CHANGE_POSITION =14 --不能改变表示形式 EFFECT_TRAP_ACT_IN_HAND =15 --陷阱可以从手牌发动 EFFECT_TRAP_ACT_IN_SET_TURN =16 --陷阱可以在盖放的回合发动 @@ -313,16 +307,16 @@ EFFECT_SET_PROC =36 --放置（通常召唤）规则 EFFECT_LIMIT_SET_PROC =37 --放置（通常召唤）规则限制 EFFECT_DEVINE_LIGHT =38 --神圣光辉（魔术礼帽） EFFECT_CANNOT_DISABLE_FLIP_SUMMON =39 --翻转召唤不会无效 -EFFECT_INDESTRUCTABLE =40 --不能被破坏（宫廷的规矩） +EFFECT_INDESTRUCTABLE =40 --不会被破坏 EFFECT_INDESTRUCTABLE_EFFECT =41 --不会被效果破坏 EFFECT_INDESTRUCTABLE_BATTLE =42 --不会被战斗破坏 EFFECT_UNRELEASABLE_SUM =43 --不能做上级召唤的祭品 EFFECT_UNRELEASABLE_NONSUM =44 --不能做上级召唤以外的祭品 -EFFECT_DESTROY_SUBSTITUTE =45 --代替破坏（别人破坏时牺牲自己 +EFFECT_DESTROY_SUBSTITUTE =45 --必選的代替破壞(此卡被破壞時用其他卡代替) EFFECT_CANNOT_RELEASE =46 --不能进行解放行为 EFFECT_INDESTRUCTABLE_COUNT =47 --一回合几次不会被破坏 EFFECT_UNRELEASABLE_EFFECT =48 --不能被解放 -EFFECT_DESTROY_REPLACE =50 --代替破坏（自己破坏时牺牲别人 +EFFECT_DESTROY_REPLACE =50 --可選的代替破壞(將破壞改成其他動作) EFFECT_RELEASE_REPLACE =51 --代替解放 EFFECT_SEND_REPLACE =52 --可以不送去XX而送去OO（甜点城堡等） EFFECT_CANNOT_DISCARD_HAND =55 --不能丢弃手牌 @@ -364,16 +358,18 @@ EFFECT_SSET_COST =95 --魔陷放置代价 EFFECT_ATTACK_COST =96 --攻击代价（霞之谷猎鹰） EFFECT_UPDATE_ATTACK =100 --改变攻击力（攻击力增加/减少） -EFFECT_SET_ATTACK =101 --设置攻击力（攻击变成） -EFFECT_SET_ATTACK_FINAL =102 --设置最终攻击力（神之化身） +EFFECT_SET_ATTACK =101 --设置攻击力(永續型效果、攻擊力變成X特殊召喚) +EFFECT_SET_ATTACK_FINAL =102 --设置最终攻击力(所有入連鎖的改變攻擊力) EFFECT_SET_BASE_ATTACK =103 --设置原本攻击力 -EFFECT_UPDATE_DEFENCE =104 --改变防御力 -EFFECT_SET_DEFENCE =105 --设置防御力 -EFFECT_SET_DEFENCE_FINAL =106 --设置最终防御力 -EFFECT_SET_BASE_DEFENCE =107 --设置原本防御力 +EFFECT_UPDATE_DEFENSE =104 --改变防御力 +EFFECT_SET_DEFENSE =105 --设置防御力 +EFFECT_SET_DEFENSE_FINAL =106 --设置最终防御力 +EFFECT_SET_BASE_DEFENSE =107 --设置原本防御力 EFFECT_REVERSE_UPDATE =108 --倒置改变攻击力、防御力（天邪鬼） -EFFECT_SWAP_AD =109 --交换攻防 +EFFECT_SWAP_AD =109 --交换攻防(超級漏洞人) EFFECT_SWAP_BASE_AD =110 --交换原本攻防 +EFFECT_SWAP_ATTACK_FINAL =111 --設定最終攻擊力(用於交換攻防) +EFFECT_SWAP_DEFENSE_FINAL =112 --設定最終防禦力(用於交換攻防) EFFECT_ADD_CODE =113 --增加卡名 EFFECT_CHANGE_CODE =114 --改变卡名 EFFECT_ADD_TYPE =115 --增加卡片种类（types） @@ -402,6 +398,7 @@ EFFECT_DECREASE_TRIBUTE_SET =152 --减少放置怪兽的祭品 EFFECT_EXTRA_RELEASE =153 --代替解放（灵魂交错） EFFECT_TRIBUTE_LIMIT =154 --祭品限制 EFFECT_EXTRA_RELEASE_SUM =155 --代替召唤解放（帝王的烈旋） +EFFECT_TRIPLE_TRIBUTE =156 EFFECT_PUBLIC =160 --公开手牌 EFFECT_COUNTER_PERMIT =0x10000--允许放置指示物类型 EFFECT_COUNTER_LIMIT =0x20000--允许放置指示物数量 @@ -417,14 +414,14 @@ EFFECT_CANNOT_BP =185 --不能进入战斗阶段 EFFECT_CANNOT_M2 =186 --不能进入主要阶段2 EFFECT_CANNOT_EP =187 --不能进入结束阶段 EFFECT_SKIP_TURN =188 --跳过整个回合 -EFFECT_DEFENCE_ATTACK =190 --可以守备表示攻击 +EFFECT_DEFENSE_ATTACK =190 --可以守备表示攻击 EFFECT_MUST_ATTACK =191 --必须攻击 EFFECT_FIRST_ATTACK =192 --必须第一个攻击 EFFECT_ATTACK_ALL =193 --可以攻击所有怪兽 EFFECT_EXTRA_ATTACK =194 --增加攻击次数 -EFFECT_MUST_BE_ATTACKED =195 --必须攻击（那只怪兽） -EFFECT_AUTO_BE_ATTACKED =196 --只能攻击（那只怪兽） -EFFECT_ATTACK_DISABLED =197 --攻击已被無效(processor.cpp) +EFFECT_MUST_BE_ATTACKED =195 --必须攻击此卡 +EFFECT_ONLY_BE_ATTACKED =196 --只能攻击此卡 +EFFECT_ATTACK_DISABLED =197 --攻击無效(Duel.NegateAttack()) EFFECT_NO_BATTLE_DAMAGE =200 --不会给对方造成战斗伤害 EFFECT_AVOID_BATTLE_DAMAGE =201 --不会对自己造成战斗伤害 EFFECT_REFLECT_BATTLE_DAMAGE =202 --反弹战斗伤害 @@ -449,7 +446,7 @@ EFFECT_EXTRA_RITUAL_MATERIAL =243--在墓地当做仪式祭品 EFFECT_NONTUNER =244--同时当作调整以外的怪兽（幻影王 幽骑） EFFECT_OVERLAY_REMOVE_REPLACE =245--代替去除超量素材 EFFECT_SCRAP_CHIMERA =246--废铁奇美拉 -EFFECT_SPSUM_EFFECT_ACTIVATED =250 --发动特殊召唤的效果（冥府的使者 格斯） +EFFECT_PRE_MONSTER =250 --可存取怪獸的各項數值 EFFECT_MATERIAL_CHECK =251 --检查素材 EFFECT_DISABLE_FIELD =260 --无效区域（扰乱王等） EFFECT_USE_EXTRA_MZONE =261 --怪兽区域封锁 @@ -486,7 +483,13 @@ EFFECT_UNSUMMONABLE_CARD =336 --不能通常召唤的怪獸 EFFECT_DISABLE_CHAIN_FIELD =337 --連鎖串中場上發動的效果無效(Duel.NegateRelatedChain()) EFFECT_DISCARD_COST_CHANGE =338 --反制陷阱捨棄手牌的代價改變(解放之阿里阿德涅) EFFECT_HAND_SYNCHRO =339 --用手牌的怪獸當作同步素材 -EFFECT_ADD_FUSION_CODE =340 -- +EFFECT_ADD_FUSION_CODE =340 --作为融合素材时可以当作某一卡名(融合识别) +EFFECT_ADD_FUSION_SETCODE =341 --作为融合素材时可以当作某一字段(魔玩具改造) +EFFECT_RISE_TO_FULL_HEIGHT =342 --仁王立 +EFFECT_ONLY_ATTACK_MONSTER =343 --只能攻擊X +EFFECT_MUST_ATTACK_MONSTER =344 --若攻擊則必須攻擊X +EFFECT_PATRICIAN_OF_DARKNESS =345 --由對手選擇攻擊對象(黑暗貴族) +EFFECT_EXTRA_ATTACK_MONSTER =346 --對怪獸攻擊X次 --下面是诱发效果的诱发事件、时点 （如果是TYPE_SINGLE则自己发生以下事件后触发，如果TYPE_FIELD则场上任何卡发生以下事件都触发） EVENT_STARTUP =1000 --游戏开始时 @@ -505,9 +508,9 @@ EVENT_LEAVE_FIELD_P =1019 --永久离场时 EVENT_CHAIN_SOLVING =1020 --连锁处理开始时（EVENT_CHAIN_ACTIVATING之後） EVENT_CHAIN_ACTIVATING =1021 --连锁处理准备中 EVENT_CHAIN_SOLVED =1022 --连锁处理结束时 -EVENT_CHAIN_ACTIVATED =1023 --(N/A) -EVENT_CHAIN_NEGATED =1024 --连锁被无效时（发动无效，EVENT_CHAIN_ACTIVATING之後） -EVENT_CHAIN_DISABLED =1025 --连锁被无效时（效果无效） +EVENT_CHAIN_ACTIVATED =1023 --N/A +EVENT_CHAIN_NEGATED =1024 --连锁发动无效时（EVENT_CHAIN_ACTIVATING之後） +EVENT_CHAIN_DISABLED =1025 --连锁效果无效时 EVENT_CHAIN_END =1026 --连锁串结束时 EVENT_CHAINING =1027 --效果发动时 EVENT_BECOME_TARGET =1028 --成为效果对象时 @@ -534,9 +537,9 @@ EVENT_BE_BATTLE_TARGET =1131 --被选为攻击对象时 EVENT_BATTLE_START =1132 --伤害步骤开始时（反转前） EVENT_BATTLE_CONFIRM =1133 --伤害计算前（反转後） EVENT_PRE_DAMAGE_CALCULATE =1134 --伤害计算时（羽斬） -EVENT_DAMAGE_CALCULATING =1135 --伤害计算（只能使用EFFECT_TYPE_CONTINUOUS） +EVENT_DAMAGE_CALCULATING =1135 --N/A EVENT_PRE_BATTLE_DAMAGE =1136 --即将产生战斗伤害(只能使用EFFECT_TYPE_CONTINUOUS) -EVENT_BATTLE_END =1137 --(N/A) +EVENT_BATTLE_END =1137 --N/A EVENT_BATTLED =1138 --伤害计算后（异女、同反转效果时点） EVENT_BATTLE_DESTROYING =1139 --战斗破坏送去墓地时（BF-苍炎之修罗） EVENT_BATTLE_DESTROYED =1140 --战斗破坏送去墓地时（杀人番茄等） @@ -556,6 +559,7 @@ EVENT_PHASE =0x1000 --阶段结束时 EVENT_PHASE_START =0x2000 --阶段开始时 EVENT_ADD_COUNTER =0x10000--增加指示物时 EVENT_REMOVE_COUNTER =0x20000--去除指示物时 +EVENT_CUSTOM =0x10000000 --自訂事件 --Categorys 效果分类（表示这个效果将要发生什么事，OperationInfo设置了效果分类才能触发针对这一类型发动的卡，如破坏->星尘龙 CATEGORY_DESTROY =0x1 --破坏效果 CATEGORY_RELEASE =0x2 --解放效果 @@ -586,7 +590,7 @@ CATEGORY_DICE =0x2000000 --骰子效果 CATEGORY_LEAVE_GRAVE =0x4000000 --离开墓地效果 CATEGORY_LVCHANGE =0x8000000 --改变等级效果 CATEGORY_NEGATE =0x10000000 --使发动无效效果 -CATEGORY_ANNOUNCE =0x20000000 --宣言效果 +CATEGORY_ANNOUNCE =0x20000000 --發動時宣言卡名的效果 --Hint HINT_EVENT =1 HINT_MESSAGE =2 @@ -623,15 +627,15 @@ HINTMSG_XMATERIAL =513 --请选择超量召唤的素材 HINTMSG_FACEUP =514 --请选择表侧表示的卡 HINTMSG_FACEDOWN =515 --请选择里侧表示的卡 HINTMSG_ATTACK =516 --请选择攻击表示的怪兽 -HINTMSG_DEFENCE =517 --请选择守备表示的怪兽 +HINTMSG_DEFENSE =517 --请选择守备表示的怪兽 HINTMSG_EQUIP =518 --请选择要装备的卡 HINTMSG_REMOVEXYZ =519 --请选择要取除的超量素材 HINTMSG_CONTROL =520 --请选择要改变控制权的怪兽 HINTMSG_DESREPLACE =521 --请选择要代替破坏的卡 HINTMSG_FACEUPATTACK =522 --请选择表侧攻击表示的怪兽 -HINTMSG_FACEUPDEFENCE =523 --请选择表侧守备表示的怪兽 +HINTMSG_FACEUPDEFENSE =523 --请选择表侧守备表示的怪兽 HINTMSG_FACEDOWNATTACK =524 --请选择里侧攻击表示的怪兽 -HINTMSG_FACEDOWNDEFENCE =525 --请选择里侧守备表示的怪兽 +HINTMSG_FACEDOWNDEFENSE =525 --请选择里侧守备表示的怪兽 HINTMSG_CONFIRM =526 --请选择给对方确认的卡 HINTMSG_TOFIELD =527 --请选择要放置到场上的卡 HINTMSG_POSCHANGE =528 --请选择要改变表示形式的怪兽 @@ -669,29 +673,33 @@ TIMING_TODECK =0x400000 --回卡组时点 TIMING_TOGRAVE =0x800000 --进墓地时点 TIMING_BATTLE_PHASE =0x1000000 --战斗阶段时点 TIMING_EQUIP =0x2000000 --装备时点 +TIMING_BATTLE_STEP_END =0x4000000 --戰鬥步驟結束時 +----组合时点 +TIMINGS_CHECK_MONSTER =0x1c0 -- 怪兽正面上场 +TIMINGS_CHECK_MONSTER_E =0x1e0 -- 怪兽正面上场 + EP --Global flag --特殊标记 GLOBALFLAG_DECK_REVERSE_CHECK =0x1 --卡组翻转标记 GLOBALFLAG_BRAINWASHING_CHECK =0x2 --洗脑解除标记 GLOBALFLAG_SCRAP_CHIMERA =0x4 --废铁奇美拉标记 -GLOBALFLAG_DELAYED_QUICKEFFECT =0x8 --小丑和锁鸟标记 -GLOBALFLAG_DETACH_EVENT =0x10 --超量素材被取除标记 +GLOBALFLAG_DELAYED_QUICKEFFECT =0x8 --N/A +GLOBALFLAG_DETACH_EVENT =0x10 --EVENT_DETACH_MATERIAL GLOBALFLAG_MUST_BE_SMATERIAL =0x20 --必须作为同调素材（波动龙 声子龙） -GLOBALFLAG_SPSUMMON_COUNT =0x40 --特殊召唤次数标记 +GLOBALFLAG_SPSUMMON_COUNT =0x40 --玩家的特殊召唤次数限制 GLOBALFLAG_XMAT_COUNT_LIMIT =0x80 --超量素材数量限制标记（光天使 天座） -GLOBALFLAG_SELF_TOGRAVE =0x100 -- -GLOBALFLAG_SPSUMMON_ONCE =0x200 -- +GLOBALFLAG_SELF_TOGRAVE =0x100 --不入連鎖的送墓檢查(EFFECT_SELF_TOGRAVE) +GLOBALFLAG_SPSUMMON_ONCE =0x200 --1回合只能特殊召喚1次(Card.SetSPSummonOnce()) --count_code -EFFECT_COUNT_CODE_OATH =0x10000000 --使用次数限制(誓约效果) +EFFECT_COUNT_CODE_OATH =0x10000000 --发动次数限制(誓约次数, 发动被无效不计数) EFFECT_COUNT_CODE_DUEL =0x20000000 --决斗中使用次数 -EFFECT_COUNT_CODE_SINGLE =0x1 --多个效果公共使用次数 +EFFECT_COUNT_CODE_SINGLE =0x1 --同一张卡的多个效果公共使用次数 --特殊选项 DUEL_TEST_MODE =0x01 --测试模式(目前暫無) DUEL_ATTACK_FIRST_TURN =0x02 --第一回合可以攻击(用于残局) -DUEL_NO_CHAIN_HINT =0x04 --不提示连锁 -DUEL_ENABLE_PRIORITY =0x08 --启动优先权 +DUEL_NO_CHAIN_HINT =0x04 --N/A +DUEL_OBSOLETE_RULING =0x08 --使用舊規則 DUEL_PSEUDO_SHUFFLE =0x10 --不洗牌 DUEL_TAG_MODE =0x20 --双打PP -DUEL_SIMPLE_AI =0x40 --AI +DUEL_SIMPLE_AI =0x40 --AI(用于残局) --Activity counter --global: 1-6 (binary: 5,6) --custom: 1-5,7 (binary: 1-5) @@ -703,7 +711,7 @@ ACTIVITY_ATTACK =5 -- ACTIVITY_BATTLE_PHASE =6 -- not available in custom counter ACTIVITY_CHAIN =7 -- only available in custom counter --announce type（宣言类型，CATEGORY_ANNOUNCE的OperationInfo的target_param） -ANNOUNCE_CARD =1 --宣言卡片 ---special cards +ANNOUNCE_CARD =0x7 --宣言卡片 +--cards with double names CARD_MARINE_DOLPHIN =78734254 --海洋海豚 CARD_TWINKLE_MOSS =13857930 --光輝苔蘚 diff --git a/script/utility.lua b/script/utility.lua index 28137812..c733becf 100644 --- a/script/utility.lua +++ b/script/utility.lua @@ -1,1532 +1,1724 @@ -Auxiliary={} -aux=Auxiliary - -function Auxiliary.Stringid(code,id) - return code*16+id -end -function Auxiliary.Next(g) - local first=true - return function() - if first then first=false return g:GetFirst() - else return g:GetNext() end - end -end -function Auxiliary.NULL() -end -function Auxiliary.TRUE() - return true -end -function Auxiliary.FALSE() - return false -end -function Auxiliary.AND(f1,f2) - return function(a,b,c) - return f1(a,b,c) and f2(a,b,c) - end -end -function Auxiliary.OR(f1,f2) - return function(a,b,c) - return f1(a,b,c) or f2(a,b,c) - end -end -function Auxiliary.NOT(f) - return function(a,b,c) - return not f(a,b,c) - end -end -function Auxiliary.IsDualState(effect) - local c=effect:GetHandler() - return not c:IsDisabled() and c:IsDualState() -end -function Auxiliary.IsNotDualState(effect) - local c=effect:GetHandle() - return c:IsDisabled() or not c:IsDualState() -end -function Auxiliary.DualNormalCondition(effect) - local c=effect:GetHandler() - return c:IsFaceup() and not c:IsDualState() -end -function Auxiliary.BeginPuzzle(effect) - local e1=Effect.GlobalEffect() - e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) - e1:SetCode(EVENT_TURN_END) - e1:SetCountLimit(1) - e1:SetOperation(Auxiliary.PuzzleOp) - Duel.RegisterEffect(e1,0) - local e2=Effect.GlobalEffect() - e2:SetType(EFFECT_TYPE_FIELD) - e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e2:SetCode(EFFECT_SKIP_DP) - e2:SetTargetRange(1,0) - Duel.RegisterEffect(e2,0) - local e3=Effect.GlobalEffect() - e3:SetType(EFFECT_TYPE_FIELD) - e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET) - e3:SetCode(EFFECT_SKIP_SP) - e3:SetTargetRange(1,0) - Duel.RegisterEffect(e3,0) -end -function Auxiliary.PuzzleOp(e,tp) - Duel.SetLP(0,0) -end -function Auxiliary.EnableDualAttribute(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetCode(EFFECT_DUAL_SUMMONABLE) - c:RegisterEffect(e1) - local e2=Effect.CreateEffect(c) - e2:SetType(EFFECT_TYPE_SINGLE) - e2:SetCode(EFFECT_ADD_TYPE) - e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE) - e2:SetRange(LOCATION_MZONE+LOCATION_GRAVE) - e2:SetCondition(aux.DualNormalCondition) - e2:SetValue(TYPE_NORMAL) - c:RegisterEffect(e2) - local e3=e2:Clone() - e3:SetCode(EFFECT_REMOVE_TYPE) - e3:SetValue(TYPE_EFFECT) - c:RegisterEffect(e3) -end -function Auxiliary.TargetEqualFunction(f,value,a,b,c) - return function(effect,target) - return f(target,a,b,c)==value - end -end -function Auxiliary.TargetBoolFunction(f,a,b,c) - return function(effect,target) - return f(target,a,b,c) - end -end -function Auxiliary.FilterEqualFunction(f,value,a,b,c) - return function(target) - return f(target,a,b,c)==value - end -end -function Auxiliary.FilterBoolFunction(f,a,b,c) - return function(target) - return f(target,a,b,c) - end -end -function Auxiliary.NonTuner(f,a,b,c) - return function(target) - return target:IsNotTuner() and (not f or f(target,a,b,c)) - end -end ---Synchro monster, 1 tuner + n or more monsters -function Auxiliary.AddSynchroProcedure(c,f1,f2,ct) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE) - e1:SetRange(LOCATION_EXTRA) - e1:SetCondition(Auxiliary.SynCondition(f1,f2,ct,99)) - e1:SetTarget(Auxiliary.SynTarget(f1,f2,ct,99)) - e1:SetOperation(Auxiliary.SynOperation(f1,f2,ct,99)) - e1:SetValue(SUMMON_TYPE_SYNCHRO) - c:RegisterEffect(e1) -end -function Auxiliary.SynCondition(f1,f2,minct,maxc) - return function(e,c,smat,mg) - if c==nil then return true end - if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end - local ft=Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE) - local ct=-ft - local minc=minct - if minc1 then - return mg:IsExists(Auxiliary.FConditionFilter22,1,nil,code1,code2,sub) - elseif b1==1 then - return mg:IsExists(Auxiliary.FConditionFilter12,1,nil,code2,sub) - elseif b2==1 then - return mg:IsExists(Auxiliary.FConditionFilter12,1,nil,code1,sub) - else - return mg:IsExists(Auxiliary.FConditionFilter21,1,nil,code1,code2) - end - end - local b1=0 local b2=0 local bw=0 - local ct=0 - local fs=chkf==PLAYER_NONE - local tc=mg:GetFirst() - while tc do - local match=false - if tc:IsFusionCode(code1) then b1=1 match=true end - if tc:IsFusionCode(code2) then b2=1 match=true end - if sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then bw=1 match=true end - if match then - if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end - ct=ct+1 - end - tc=mg:GetNext() - end - return ct>1 and b1+b2+bw>1 and fs - end -end -function Auxiliary.FOperationCode2(code1,code2,sub,insf) - return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local g=eg:Filter(Card.IsCanBeFusionMaterial,gc,e:GetHandler()) - local tc=gc - local g1=nil - if gc then - if chkf~=PLAYER_NONE and not Auxiliary.FConditionCheckF(gc,chkf) then - g=g:Filter(Auxiliary.FConditionCheckF,nil,chkf) - end - else - local sg=g:Filter(Auxiliary.FConditionFilter22,nil,code1,code2,sub) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) - else g1=sg:Select(tp,1,1,nil) end - tc=g1:GetFirst() - g:RemoveCard(tc) - end - local b1=0 local b2=0 local bw=0 - if tc:IsFusionCode(code1) then b1=1 end - if tc:IsFusionCode(code2) then b2=1 end - if sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then bw=1 end - local g2=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if b1+b2+bw>1 then - g2=g:FilterSelect(tp,Auxiliary.FConditionFilter22,1,1,nil,code1,code2,sub) - elseif b1==1 then - g2=g:FilterSelect(tp,Auxiliary.FConditionFilter12,1,1,nil,code2,sub) - elseif b2==1 then - g2=g:FilterSelect(tp,Auxiliary.FConditionFilter12,1,1,nil,code1,sub) - else - g2=g:FilterSelect(tp,Auxiliary.FConditionFilter21,1,1,nil,code1,code2) - end - if g1 then g2:Merge(g1) end - Duel.SetFusionMaterial(g2) - end -end ---Fusion monster, name + name + name -function Auxiliary.AddFusionProcCode3(c,code1,code2,code3,sub,insf) - if c.material_count==nil then - local code=c:GetOriginalCode() - local mt=_G["c" .. code] - mt.material_count=3 - mt.material={code1,code2,code3} - end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(Auxiliary.FConditionCode3(code1,code2,code3,sub,insf)) - e1:SetOperation(Auxiliary.FOperationCode3(code1,code2,code3,sub,insf)) - c:RegisterEffect(e1) -end -function Auxiliary.FConditionFilter31(c,code1,code2,code3) - return c:IsFusionCode(code1) or c:IsFusionCode(code2) or c:IsFusionCode(code3) -end -function Auxiliary.FConditionFilter32(c,code1,code2,code3,sub) - return c:IsFusionCode(code1) or c:IsFusionCode(code2) or c:IsFusionCode(code3) or (sub and c:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) -end -function Auxiliary.FConditionCode3(code1,code2,code3,sub,insf) - return function(e,g,gc,chkf) - if g==nil then return insf end - local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) - if gc then - if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end - local b1=0 local b2=0 local b3=0 - local tc=mg:GetFirst() - while tc do - if tc:IsFusionCode(code1) then b1=1 - elseif tc:IsFusionCode(code2) then b2=1 - elseif tc:IsFusionCode(code3) then b3=1 - end - tc=mg:GetNext() - end - if gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then - return b1+b2+b3>1 - else - if gc:IsFusionCode(code1) then b1=1 - elseif gc:IsFusionCode(code2) then b2=1 - elseif gc:IsFusionCode(code3) then b3=1 - else return false - end - return b1+b2+b3>2 - end - end - local b1=0 local b2=0 local b3=0 local bs=0 - local fs=false - local tc=mg:GetFirst() - while tc do - if tc:IsFusionCode(code1) then b1=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end - elseif tc:IsFusionCode(code2) then b2=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end - elseif tc:IsFusionCode(code3) then b3=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end - elseif sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then bs=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end - end - tc=mg:GetNext() - end - return b1+b2+b3+bs>=3 and (fs or chkf==PLAYER_NONE) - end -end -function Auxiliary.FOperationCode3(code1,code2,code3,sub,insf) - return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) - if gc then - local sg=g:Filter(Auxiliary.FConditionFilter31,gc,code1,code2,code3) - if not gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then - sg:Remove(Card.IsFusionCode,nil,gc:GetCode()) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=sg:Select(tp,1,1,nil) - sg:Remove(Card.IsFusionCode,nil,g1:GetFirst():GetCode()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=sg:Select(tp,1,1,nil) - g1:Merge(g2) - Duel.SetFusionMaterial(g1) - return - end - local sg=g:Filter(Auxiliary.FConditionFilter32,nil,code1,code2,code3,sub) - local g1=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) - else g1=sg:Select(tp,1,1,nil) end - if g1:GetFirst():IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then - sg:Remove(Card.IsHasEffect,nil,EFFECT_FUSION_SUBSTITUTE) - else sg:Remove(Card.IsFusionCode,nil,g1:GetFirst():GetCode()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=sg:Select(tp,1,1,nil) - if g2:GetFirst():IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then - sg:Remove(Card.IsHasEffect,nil,EFFECT_FUSION_SUBSTITUTE) - else sg:Remove(Card.IsFusionCode,nil,g2:GetFirst():GetCode()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g3=sg:Select(tp,1,1,nil) - g1:Merge(g2) - g1:Merge(g3) - Duel.SetFusionMaterial(g1) - end -end ---Fusion monster, name + name + name + name -function Auxiliary.AddFusionProcCode4(c,code1,code2,code3,code4,sub,insf) - if c.material_count==nil then - local code=c:GetOriginalCode() - local mt=_G["c" .. code] - mt.material_count=4 - mt.material={code1,code2,code3,code4} - end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(Auxiliary.FConditionCode4(code1,code2,code3,code4,sub,insf)) - e1:SetOperation(Auxiliary.FOperationCode4(code1,code2,code3,code4,sub,insf)) - c:RegisterEffect(e1) -end -function Auxiliary.FConditionFilter41(c,code1,code2,code3,code4) - return c:IsFusionCode(code1) or c:IsFusionCode(code2) or c:IsFusionCode(code3) or c:IsFusionCode(code4) -end -function Auxiliary.FConditionFilter42(c,code1,code2,code3,code4,sub) - return c:IsFusionCode(code1) or c:IsFusionCode(code2) or c:IsFusionCode(code3) or c:IsFusionCode(code4) or (sub and c:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) -end -function Auxiliary.FConditionCode4(code1,code2,code3,code4,sub,insf) - return function(e,g,gc,chkf) - if g==nil then return insf end - local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) - if gc then - if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end - local b1=0 local b2=0 local b3=0 local b4=0 - local tc=mg:GetFirst() - while tc do - if tc:IsFusionCode(code1) then b1=1 - elseif tc:IsFusionCode(code2) then b2=1 - elseif tc:IsFusionCode(code3) then b3=1 - elseif tc:IsFusionCode(code4) then b4=1 - else return false - end - tc=mg:GetNext() - end - if gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then - return b1+b2+b3+b4>2 - else - if gc:IsFusionCode(code1) then b1=1 - elseif gc:IsFusionCode(code2) then b2=1 - elseif gc:IsFusionCode(code3) then b3=1 - elseif gc:IsFusionCode(code4) then b4=1 - end - return b1+b2+b3+b4>3 - end - end - local b1=0 local b2=0 local b3=0 local b4=0 local bs=0 - local fs=false - local tc=mg:GetFirst() - while tc do - if tc:IsFusionCode(code1) then b1=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end - elseif tc:IsFusionCode(code2) then b2=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end - elseif tc:IsFusionCode(code3) then b3=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end - elseif tc:IsFusionCode(code4) then b4=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end - elseif sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then bs=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end - end - tc=mg:GetNext() - end - return b1+b2+b3+b4+bs>=4 and (fs or chkf==PLAYER_NONE) - end -end -function Auxiliary.FOperationCode4(code1,code2,code3,code4,sub,insf) - return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) - if gc then - local sg=g:Filter(Auxiliary.FConditionFilter41,gc,code1,code2,code3,code4) - if not gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then - sg:Remove(Card.IsFusionCode,nil,gc:GetCode()) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=sg:Select(tp,1,1,nil) - sg:Remove(Card.IsFusionCode,nil,g1:GetFirst():GetCode()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=sg:Select(tp,1,1,nil) - sg:Remove(Card.IsFusionCode,nil,g2:GetFirst():GetCode()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g3=sg:Select(tp,1,1,nil) - g1:Merge(g2) - g1:Merge(g3) - Duel.SetFusionMaterial(g1) - return - end - local sg=g:Filter(Auxiliary.FConditionFilter42,nil,code1,code2,code3,code4,sub) - local g1=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) - else g1=sg:Select(tp,1,1,nil) end - if g1:GetFirst():IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then - sg:Remove(Card.IsHasEffect,nil,EFFECT_FUSION_SUBSTITUTE) - else sg:Remove(Card.IsFusionCode,nil,g1:GetFirst():GetCode()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=sg:Select(tp,1,1,nil) - if g2:GetFirst():IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then - sg:Remove(Card.IsHasEffect,nil,EFFECT_FUSION_SUBSTITUTE) - else sg:Remove(Card.IsFusionCode,nil,g2:GetFirst():GetCode()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g3=sg:Select(tp,1,1,nil) - if g3:GetFirst():IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then - sg:Remove(Card.IsHasEffect,nil,EFFECT_FUSION_SUBSTITUTE) - else sg:Remove(Card.IsFusionCode,nil,g3:GetFirst():GetCode()) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g4=sg:Select(tp,1,1,nil) - g1:Merge(g2) - g1:Merge(g3) - g1:Merge(g4) - Duel.SetFusionMaterial(g1) - end -end ---Fusion monster, name + condition -function Auxiliary.AddFusionProcCodeFun(c,code1,f,cc,sub,insf) - if c.material_count==nil then - local code=c:GetOriginalCode() - local mt=_G["c" .. code] - mt.material_count=1 - mt.material={code1} - end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(Auxiliary.FConditionCodeFun(code1,f,cc,sub,insf)) - e1:SetOperation(Auxiliary.FOperationCodeFun(code1,f,cc,sub,insf)) - c:RegisterEffect(e1) -end -function Auxiliary.FConditionFilterCF(c,g2,cc) - return g2:IsExists(aux.TRUE,cc,c) -end -function Auxiliary.FConditionCodeFun(code,f,cc,sub,insf) - return function(e,g,gc,chkf) - if g==nil then return insf end - local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) - if gc then - if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end - if (gc:IsFusionCode(code) or (sub and gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE))) and mg:IsExists(f,cc,gc) then - return true - elseif f(gc) then - local g1=Group.CreateGroup() local g2=Group.CreateGroup() - local tc=mg:GetFirst() - while tc do - if tc:IsFusionCode(code) or (sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) - then g1:AddCard(tc) end - if f(tc) then g2:AddCard(tc) end - tc=mg:GetNext() - end - if cc>1 then - g2:RemoveCard(gc) - return g1:IsExists(Auxiliary.FConditionFilterCF,1,gc,g2,cc-1) - else - g1:RemoveCard(gc) - return g1:GetCount()>0 - end - else return false end - end - local b1=0 local b2=0 local bw=0 - local fs=false - local tc=mg:GetFirst() - while tc do - local c1=tc:IsFusionCode(code) or (sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) - local c2=f(tc) - if c1 or c2 then - if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end - if c1 and c2 then bw=bw+1 - elseif c1 then b1=1 - else b2=b2+1 - end - end - tc=mg:GetNext() - end - if b2>cc then b2=cc end - return b1+b2+bw>=1+cc and (fs or chkf==PLAYER_NONE) - end -end -function Auxiliary.FOperationCodeFun(code,f,cc,sub,insf) - return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) - if gc then - if (gc:IsFusionCode(code) or (sub and gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE))) and g:IsExists(f,cc,gc) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=g:FilterSelect(tp,f,cc,cc,gc) - Duel.SetFusionMaterial(g1) - else - local sg1=Group.CreateGroup() local sg2=Group.CreateGroup() - local tc=g:GetFirst() - while tc do - if tc:IsFusionCode(code) or (sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) then sg1:AddCard(tc) end - if f(tc) then sg2:AddCard(tc) end - tc=g:GetNext() - end - if cc>1 then - sg2:RemoveCard(gc) - if sg2:GetCount()==cc-1 then - sg1:Sub(sg2) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=sg1:Select(tp,1,1,gc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=sg2:Select(tp,cc-1,cc-1,g1:GetFirst()) - g1:Merge(g2) - Duel.SetFusionMaterial(g1) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=sg1:Select(tp,1,1,gc) - Duel.SetFusionMaterial(g1) - end - end - return - end - local sg1=Group.CreateGroup() local sg2=Group.CreateGroup() local fs=false - local tc=g:GetFirst() - while tc do - if tc:IsFusionCode(code) or (sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) then sg1:AddCard(tc) end - if f(tc) then sg2:AddCard(tc) if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end end - tc=g:GetNext() - end - if chkf~=PLAYER_NONE then - if sg2:GetCount()==cc then - sg1:Sub(sg2) - end - local g1=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if fs then g1=sg1:Select(tp,1,1,nil) - else g1=sg1:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) end - local tc1=g1:GetFirst() - sg2:RemoveCard(tc1) - if Auxiliary.FConditionCheckF(tc1,chkf) or sg2:GetCount()==cc then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=sg2:Select(tp,cc,cc,tc1) - g1:Merge(g2) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=sg2:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,tc1,chkf) - g1:Merge(g2) - if cc>1 then - sg2:RemoveCard(g2:GetFirst()) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g2=sg2:Select(tp,cc-1,cc-1,tc1) - g1:Merge(g2) - end - end - Duel.SetFusionMaterial(g1) - else - if sg2:GetCount()==cc then - sg1:Sub(sg2) - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=sg1:Select(tp,1,1,nil) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - g1:Merge(sg2:Select(tp,cc,cc,g1:GetFirst())) - Duel.SetFusionMaterial(g1) - end - end -end ---Fusion monster, condition + condition -function Auxiliary.AddFusionProcFun2(c,f1,f2,insf) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(Auxiliary.FConditionFun2(f1,f2,insf)) - e1:SetOperation(Auxiliary.FOperationFun2(f1,f2,insf)) - c:RegisterEffect(e1) -end -function Auxiliary.FConditionFilterF2(c,g2) - return g2:IsExists(aux.TRUE,1,c) -end -function Auxiliary.FConditionFilterF2c(c,f1,f2) - return f1(c) or f2(c) -end -function Auxiliary.FConditionFilterF2r(c,f1,f2) - return f1(c) and not f2(c) -end -function Auxiliary.FConditionFun2(f1,f2,insf) - return function(e,g,gc,chkf) - if g==nil then return insf end - local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) - if gc then - if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end - return (f1(gc) and mg:IsExists(f2,1,gc)) - or (f2(gc) and mg:IsExists(f1,1,gc)) end - local g1=Group.CreateGroup() local g2=Group.CreateGroup() local fs=false - local tc=mg:GetFirst() - while tc do - if f1(tc) then g1:AddCard(tc) if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end end - if f2(tc) then g2:AddCard(tc) if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end end - tc=mg:GetNext() - end - if chkf~=PLAYER_NONE then - return fs and g1:IsExists(Auxiliary.FConditionFilterF2,1,nil,g2) - else return g1:IsExists(Auxiliary.FConditionFilterF2,1,nil,g2) end - end -end -function Auxiliary.FOperationFun2(f1,f2,insf) - return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) - if gc then - local sg=Group.CreateGroup() - if f1(gc) then sg:Merge(g:Filter(f2,gc)) end - if f2(gc) then sg:Merge(g:Filter(f1,gc)) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=sg:Select(tp,1,1,nil) - Duel.SetFusionMaterial(g1) - return - end - local sg=g:Filter(Auxiliary.FConditionFilterF2c,nil,f1,f2) - local g1=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if chkf~=PLAYER_NONE then - g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) - else g1=sg:Select(tp,1,1,nil) end - local tc1=g1:GetFirst() - sg:RemoveCard(tc1) - local b1=f1(tc1) - local b2=f2(tc1) - if b1 and not b2 then sg:Remove(Auxiliary.FConditionFilterF2r,nil,f1,f2) end - if b2 and not b1 then sg:Remove(Auxiliary.FConditionFilterF2r,nil,f2,f1) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=sg:Select(tp,1,1,nil) - g1:Merge(g2) - Duel.SetFusionMaterial(g1) - end -end ---Fusion monster, name * n -function Auxiliary.AddFusionProcCodeRep(c,code1,cc,sub,insf) - if c.material_count==nil then - local code=c:GetOriginalCode() - local mt=_G["c" .. code] - mt.material_count=1 - mt.material={code1} - end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(Auxiliary.FConditionCodeRep(code1,cc,sub,insf)) - e1:SetOperation(Auxiliary.FOperationCodeRep(code1,cc,sub,insf)) - c:RegisterEffect(e1) -end -function Auxiliary.FConditionFilterCR(c,code,sub) - return c:IsFusionCode(code) or (sub and c:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) -end -function Auxiliary.FConditionCodeRep(code,cc,sub,insf) - return function(e,g,gc,chkf) - if g==nil then return insf end - local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) - if gc then - if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end - return (gc:IsFusionCode(code) or gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) and mg:IsExists(Card.IsFusionCode,cc-1,gc,code) end - local g1=mg:Filter(Card.IsFusionCode,nil,code) - if not sub then - if chkf~=PLAYER_NONE then return g1:GetCount()>=cc and g1:FilterCount(Card.IsOnField,nil)~=0 - else return g1:GetCount()>=cc end - end - local g2=mg:Filter(Card.IsHasEffect,nil,EFFECT_FUSION_SUBSTITUTE) - if chkf~=PLAYER_NONE then - return (g1:FilterCount(Card.IsOnField,nil)~=0 or g2:FilterCount(Card.IsOnField,nil)~=0) - and g1:GetCount()>=cc-1 and g1:GetCount()+g2:GetCount()>=cc - else return g1:GetCount()>=cc-1 and g1:GetCount()+g2:GetCount()>=cc end - end -end -function Auxiliary.FOperationCodeRep(code,cc,sub,insf) - return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) - if gc then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=g:FilterSelect(tp,Card.IsFusionCode,cc-1,cc-1,gc,code) - Duel.SetFusionMaterial(g1) - return - end - local sg=g:Filter(Auxiliary.FConditionFilterCR,nil,code,sub) - local g1=nil - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) - else g1=sg:Select(tp,1,1,nil) end - local tc1=g1:GetFirst() - for i=1,cc-1 do - if tc1:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then sg:Remove(Card.IsHasEffect,nil,EFFECT_FUSION_SUBSTITUTE) - else sg:RemoveCard(tc1) end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=sg:Select(tp,1,1,nil) - tc1=g2:GetFirst() - g1:Merge(g2) - end - Duel.SetFusionMaterial(g1) - end -end ---Fusion monster, condition * n -function Auxiliary.AddFusionProcFunRep(c,f,cc,insf) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(Auxiliary.FConditionFunRep(f,cc,insf)) - e1:SetOperation(Auxiliary.FOperationFunRep(f,cc,insf)) - c:RegisterEffect(e1) -end -function Auxiliary.FConditionFunRep(f,cc,insf) - return function(e,g,gc,chkf) - if g==nil then return insf end - local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) - if gc then - if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end - return f(gc) and mg:IsExists(f,cc-1,gc) end - local g1=mg:Filter(f,nil) - if chkf~=PLAYER_NONE then - return g1:FilterCount(Card.IsOnField,nil)~=0 and g1:GetCount()>=cc - else return g1:GetCount()>=cc end - end -end -function Auxiliary.FOperationFunRep(f,cc,insf) - return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) - if gc then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=g:FilterSelect(tp,f,cc-1,cc-1,gc) - Duel.SetFusionMaterial(g1) - return - end - local sg=g:Filter(f,nil) - if chkf==PLAYER_NONE or sg:GetCount()==cc then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=sg:Select(tp,cc,cc,nil) - Duel.SetFusionMaterial(g1) - return - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) - if cc>1 then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g2=sg:Select(tp,cc-1,cc-1,g1:GetFirst()) - g1:Merge(g2) - end - Duel.SetFusionMaterial(g1) - end -end ---Fusion monster, condition1 + condition2 * minc to maxc -function Auxiliary.AddFusionProcFunFunRep(c,f1,f2,minc,maxc,insf) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(Auxiliary.FConditionFunFunRep(f1,f2,minc,maxc,insf)) - e1:SetOperation(Auxiliary.FOperationFunFunRep(f1,f2,minc,maxc,insf)) - c:RegisterEffect(e1) -end -function Auxiliary.FConditionFilterFFR(c,f1,f2,mg,minc,chkf) - if not f1(c) then return false end - if chkf==PLAYER_NONE or aux.FConditionCheckF(c,chkf) then - return minc<=0 or mg:IsExists(f2,minc,c) - else - local mg2=mg:Filter(f2,c) - return mg2:GetCount()>=minc and mg2:IsExists(aux.FConditionCheckF,1,nil,chkf) - end -end -function Auxiliary.FConditionFunFunRep(f1,f2,minc,maxc,insf) - return function(e,g,gc,chkf) - if g==nil then return insf end - local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) - if gc then - if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end - if aux.FConditionFilterFFR(gc,f1,f2,mg,minc,chkf) then - return true - elseif f2(gc) then - mg:RemoveCard(gc) - if aux.FConditionCheckF(gc,chkf) then chkf=PLAYER_NONE end - return mg:IsExists(aux.FConditionFilterFFR,1,nil,f1,f2,mg,minc-1,chkf) - else return false end - end - return mg:IsExists(aux.FConditionFilterFFR,1,nil,f1,f2,mg,minc,chkf) - end -end -function Auxiliary.FOperationFunFunRep(f1,f2,minc,maxc,insf) - return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) - local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) - local minct=minc - local maxct=maxc - if gc then - g:RemoveCard(gc) - if aux.FConditionFilterFFR(gc,f1,f2,g,minct,chkf) then - if aux.FConditionCheckF(gc,chkf) then chkf=PLAYER_NONE end - local g1=Group.CreateGroup() - if f2(gc) then - local mg1=g:Filter(aux.FConditionFilterFFR,nil,f1,f2,g,minct-1,chkf) - if mg1:GetCount()>0 then - --if gc fits both, should allow an extra material that fits f1 but doesn't fit f2 - local mg2=g:Filter(f2,nil) - mg1:Merge(mg2) - if chkf~=PLAYER_NONE then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local sg=mg1:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) - g1:Merge(sg) - mg1:Sub(sg) - minct=minct-1 - maxct=maxct-1 - if not f2(sg:GetFirst()) then - if mg1:GetCount()>0 and maxct>0 and (minct>0 or Duel.SelectYesNo(tp,93)) then - if minct<=0 then minct=1 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local sg=mg1:FilterSelect(tp,f2,minct,maxct,nil) - g1:Merge(sg) - end - Duel.SetFusionMaterial(g1) - return - end - end - if maxct>1 and (minct>1 or Duel.SelectYesNo(tp,93)) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local sg=mg1:FilterSelect(tp,f2,minct-1,maxct-1,nil) - g1:Merge(sg) - mg1:Sub(sg) - local ct=sg:GetCount() - minct=minct-ct - maxct=maxct-ct - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local sg=mg1:Select(tp,1,1,nil) - g1:Merge(sg) - mg1:Sub(sg) - minct=minct-1 - maxct=maxct-1 - if mg1:GetCount()>0 and maxct>0 and (minct>0 or Duel.SelectYesNo(tp,93)) then - if minct<=0 then minct=1 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local sg=mg1:FilterSelect(tp,f2,minct,maxct,nil) - g1:Merge(sg) - end - Duel.SetFusionMaterial(g1) - return - end - end - local mg=g:Filter(f2,nil) - if chkf~=PLAYER_NONE then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local sg=mg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) - g1:Merge(sg) - mg:Sub(sg) - minct=minct-1 - maxct=maxct-1 - end - if mg:GetCount()>0 and maxct>0 and (minct>0 or Duel.SelectYesNo(tp,93)) then - if minct<=0 then minct=1 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local sg=mg:Select(tp,minct,maxct,nil) - g1:Merge(sg) - end - Duel.SetFusionMaterial(g1) - return - else - if aux.FConditionCheckF(gc,chkf) then chkf=PLAYER_NONE end - minct=minct-1 - maxct=maxct-1 - end - end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local g1=g:FilterSelect(tp,aux.FConditionFilterFFR,1,1,nil,f1,f2,g,minct,chkf) - local mg=g:Filter(f2,g1:GetFirst()) - if chkf~=PLAYER_NONE and not aux.FConditionCheckF(g1:GetFirst(),chkf) then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local sg=mg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) - g1:Merge(sg) - mg:Sub(sg) - minct=minct-1 - maxct=maxct-1 - end - if mg:GetCount()>0 and maxct>0 and (minct>0 or Duel.SelectYesNo(tp,93)) then - if minct<=0 then minct=1 end - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) - local sg=mg:Select(tp,minct,maxct,nil) - g1:Merge(sg) - end - Duel.SetFusionMaterial(g1) - end -end -function Auxiliary.FilterBoolFunctionCFR(code,sub) - return function(target) - return target:IsFusionCode(code) or (sub and target:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) - end -end ---Fusion monster, name + condition * minc to maxc -function Auxiliary.AddFusionProcCodeFunRep(c,code1,f,minc,maxc,sub,insf) - if c.material_count==nil then - local code=c:GetOriginalCode() - local mt=_G["c" .. code] - mt.material_count=1 - mt.material={code1} - end - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_SINGLE) - e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) - e1:SetCode(EFFECT_FUSION_MATERIAL) - e1:SetCondition(Auxiliary.FConditionFunFunRep(Auxiliary.FilterBoolFunctionCFR(code1,sub),f,minc,maxc,insf)) - e1:SetOperation(Auxiliary.FOperationFunFunRep(Auxiliary.FilterBoolFunctionCFR(code1,sub),f,minc,maxc,insf)) - c:RegisterEffect(e1) -end ---Ritual Summon, geq fixed lv -function Auxiliary.AddRitualProcGreater(c,filter) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(Auxiliary.RPGTarget(filter)) - e1:SetOperation(Auxiliary.RPGOperation(filter)) - c:RegisterEffect(e1) -end -function Auxiliary.RPGFilter(c,filter,e,tp,m) - if (filter and not filter(c)) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end - local mg=m:Filter(Card.IsCanBeRitualMaterial,c,c) - return mg:CheckWithSumGreater(Card.GetRitualLevel,c:GetOriginalLevel(),c) -end -function Auxiliary.RPGTarget(filter) - return function(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local mg=Duel.GetRitualMaterial(tp) - return Duel.IsExistingMatchingCard(Auxiliary.RPGFilter,tp,LOCATION_HAND,0,1,nil,filter,e,tp,mg) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) - end -end -function Auxiliary.RPGOperation(filter) - return function(e,tp,eg,ep,ev,re,r,rp) - local mg=Duel.GetRitualMaterial(tp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,Auxiliary.RPGFilter,tp,LOCATION_HAND,0,1,1,nil,filter,e,tp,mg) - local tc=tg:GetFirst() - if tc then - mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,tc:GetOriginalLevel(),tc) - tc:SetMaterial(mat) - Duel.ReleaseRitualMaterial(mat) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP) - tc:CompleteProcedure() - end - end -end -function Auxiliary.AddRitualProcGreaterCode(c,code1) - if c.fit_monster==nil then - local code=c:GetOriginalCode() - local mt=_G["c" .. code] - mt.fit_monster={code1} - end - Auxiliary.AddRitualProcGreater(c,Auxiliary.FilterBoolFunction(Card.IsCode,code1)) -end ---Ritual Summon, equal to fixed lv -function Auxiliary.AddRitualProcEqual(c,filter) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(Auxiliary.RPETarget(filter)) - e1:SetOperation(Auxiliary.RPEOperation(filter)) - c:RegisterEffect(e1) -end -function Auxiliary.RPEFilter(c,filter,e,tp,m) - if (filter and not filter(c)) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end - local mg=m:Filter(Card.IsCanBeRitualMaterial,c,c) - return mg:CheckWithSumEqual(Card.GetRitualLevel,c:GetOriginalLevel(),1,99,c) -end -function Auxiliary.RPETarget(filter) - return function(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local mg=Duel.GetRitualMaterial(tp) - return Duel.IsExistingMatchingCard(Auxiliary.RPEFilter,tp,LOCATION_HAND,0,1,nil,filter,e,tp,mg) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) - end -end -function Auxiliary.RPEOperation(filter) - return function(e,tp,eg,ep,ev,re,r,rp) - local mg=Duel.GetRitualMaterial(tp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,Auxiliary.RPEFilter,tp,LOCATION_HAND,0,1,1,nil,filter,e,tp,mg) - local tc=tg:GetFirst() - if tc then - mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetOriginalLevel(),1,99,tc) - tc:SetMaterial(mat) - Duel.ReleaseRitualMaterial(mat) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP) - tc:CompleteProcedure() - end - end -end -function Auxiliary.AddRitualProcEqualCode(c,code1) - if c.fit_monster==nil then - local code=c:GetOriginalCode() - local mt=_G["c" .. code] - mt.fit_monster={code1} - end - Auxiliary.AddRitualProcEqual(c,Auxiliary.FilterBoolFunction(Card.IsCode,code1)) -end ---Ritual Summon, equal to monster lv -function Auxiliary.AddRitualProcEqual2(c,filter) - local e1=Effect.CreateEffect(c) - e1:SetCategory(CATEGORY_SPECIAL_SUMMON) - e1:SetType(EFFECT_TYPE_ACTIVATE) - e1:SetCode(EVENT_FREE_CHAIN) - e1:SetTarget(Auxiliary.RPETarget2(filter)) - e1:SetOperation(Auxiliary.RPEOperation2(filter)) - c:RegisterEffect(e1) -end -function Auxiliary.RPEFilter2(c,filter,e,tp,m) - if (filter and not filter(c)) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end - local mg=m:Filter(Card.IsCanBeRitualMaterial,c,c) - return mg:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,99,c) -end -function Auxiliary.RPETarget2(filter) - return function(e,tp,eg,ep,ev,re,r,rp,chk) - if chk==0 then - local mg=Duel.GetRitualMaterial(tp) - return Duel.IsExistingMatchingCard(Auxiliary.RPEFilter2,tp,LOCATION_HAND,0,1,nil,filter,e,tp,mg) - end - Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) - end -end -function Auxiliary.RPEOperation2(filter) - return function(e,tp,eg,ep,ev,re,r,rp) - local mg=Duel.GetRitualMaterial(tp) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local tg=Duel.SelectMatchingCard(tp,Auxiliary.RPEFilter2,tp,LOCATION_HAND,0,1,1,nil,filter,e,tp,mg) - local tc=tg:GetFirst() - if tc then - mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc) - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) - local mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),1,99,tc) - tc:SetMaterial(mat) - Duel.ReleaseRitualMaterial(mat) - Duel.BreakEffect() - Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP) - tc:CompleteProcedure() - end - end -end -function Auxiliary.AddRitualProcEqual2Code(c,code1) - if c.fit_monster==nil then - local code=c:GetOriginalCode() - local mt=_G["c" .. code] - mt.fit_monster={code1} - end - Auxiliary.AddRitualProcEqual2(c,Auxiliary.FilterBoolFunction(Card.IsCode,code1)) -end -function Auxiliary.AddRitualProcEqual2Code2(c,code1,code2) - if c.fit_monster==nil then - local code=c:GetOriginalCode() - local mt=_G["c" .. code] - mt.fit_monster={code1,code2} - end - Auxiliary.AddRitualProcEqual2(c,Auxiliary.FilterBoolFunction(Card.IsCode,code1,code2)) -end -function Auxiliary.AddPendulumProcedure(c) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC_G) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e1:SetRange(LOCATION_PZONE) - e1:SetCountLimit(1,10000000) - e1:SetCondition(Auxiliary.PendCondition()) - e1:SetOperation(Auxiliary.PendOperation()) - e1:SetValue(SUMMON_TYPE_PENDULUM) - c:RegisterEffect(e1) -end ---add procedure to Pendulum monster, also allows registeration of activation effect -function Auxiliary.EnablePendulumAttribute(c,reg) - local e1=Effect.CreateEffect(c) - e1:SetType(EFFECT_TYPE_FIELD) - e1:SetCode(EFFECT_SPSUMMON_PROC_G) - e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) - e1:SetRange(LOCATION_PZONE) - e1:SetCountLimit(1,10000000) - e1:SetCondition(Auxiliary.PendCondition()) - e1:SetOperation(Auxiliary.PendOperation()) - e1:SetValue(SUMMON_TYPE_PENDULUM) - c:RegisterEffect(e1) - --register by default - if reg==nil or reg then - local e2=Effect.CreateEffect(c) - e2:SetDescription(1160) - e2:SetType(EFFECT_TYPE_ACTIVATE) - e2:SetCode(EVENT_FREE_CHAIN) - c:RegisterEffect(e2) - end -end -function Auxiliary.PConditionFilter(c,e,tp,lscale,rscale) - local lv=0 - if c.pendulum_level then - lv=c.pendulum_level - else - lv=c:GetLevel() - end - return (c:IsLocation(LOCATION_HAND) or (c:IsFaceup() and c:IsType(TYPE_PENDULUM))) - and lv>lscale and lvrscale then lscale,rscale=rscale,lscale end - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if ft<=0 then return false end - if og then - return og:IsExists(Auxiliary.PConditionFilter,1,nil,e,tp,lscale,rscale) - else - return Duel.IsExistingMatchingCard(Auxiliary.PConditionFilter,tp,LOCATION_HAND+LOCATION_EXTRA,0,1,nil,e,tp,lscale,rscale) - end - end -end -function Auxiliary.PendOperation() - return function(e,tp,eg,ep,ev,re,r,rp,c,sg,og) - local rpz=Duel.GetFieldCard(tp,LOCATION_SZONE,7) - local lscale=c:GetLeftScale() - local rscale=rpz:GetRightScale() - if lscale>rscale then lscale,rscale=rscale,lscale end - local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) - if og then - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=og:FilterSelect(tp,Auxiliary.PConditionFilter,1,ft,nil,e,tp,lscale,rscale) - sg:Merge(g) - else - Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) - local g=Duel.SelectMatchingCard(tp,Auxiliary.PConditionFilter,tp,LOCATION_HAND+LOCATION_EXTRA,0,1,ft,nil,e,tp,lscale,rscale) - sg:Merge(g) - end - Duel.HintSelection(Group.FromCards(c)) - Duel.HintSelection(Group.FromCards(rpz)) - end -end -function Auxiliary.IsMaterialListCode(c,code) - if not c.material then return false end - for i,mcode in ipairs(c.material) do - if code==mcode then return true end - end - return false -end -function Auxiliary.IsMaterialListSetCard(c,setcode) - return c.material_setcode and c.material_setcode==setcode -end ---card effect disable filter(target) -function Auxiliary.disfilter1(c) - return c:IsFaceup() and not c:IsDisabled() and (not c:IsType(TYPE_NORMAL) or bit.band(c:GetOriginalType(),TYPE_EFFECT)~=0) -end ---condition of EVENT_BATTLE_DESTROYING -function Auxiliary.bdcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsRelateToBattle() -end ---condition of EVENT_BATTLE_DESTROYING + opponent monster -function Auxiliary.bdocon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - return c:IsRelateToBattle() and c:IsStatus(STATUS_OPPO_BATTLE) -end ---condition of EVENT_BATTLE_DESTROYING + to_grave -function Auxiliary.bdgcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER) -end ---condition of EVENT_BATTLE_DESTROYING + opponent monster + to_grave -function Auxiliary.bdogcon(e,tp,eg,ep,ev,re,r,rp) - local c=e:GetHandler() - local bc=c:GetBattleTarget() - return c:IsRelateToBattle() and c:IsStatus(STATUS_OPPO_BATTLE) and bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER) -end ---condition of "cannot be negated" -function Auxiliary.nfbdncon(e) - return not e:GetHandler():IsForbidden() -end ---condition of "except the turn this card was sent to the Graveyard" -function Auxiliary.exccon(e) - return Duel.GetTurnCount()~=e:GetHandler():GetTurnID() or e:GetHandler():IsReason(REASON_RETURN) -end ---flag effect for spell counter -function Auxiliary.chainreg(e,tp,eg,ep,ev,re,r,rp) - if e:GetHandler():GetFlagEffect(1)==0 then - e:GetHandler():RegisterFlagEffect(1,RESET_EVENT+0x1fc0000+RESET_CHAIN,0,1) - end -end ---default filter for EFFECT_CANNOT_BE_BATTLE_TARGET/EFFECT_MUST_BE_ATTACKED -function Auxiliary.imval1(e,c) - return not c:IsImmuneToEffect(e) -end ---default filter for EFFECT_CANNOT_BE_EFFECT_TARGET -function Auxiliary.tgval(e,re,rp) - return not re:GetHandler():IsImmuneToEffect(e) -end ---filter for EFFECT_CANNOT_BE_EFFECT_TARGET + opponent -function Auxiliary.tgoval(e,re,rp) - return rp~=e:GetHandlerPlayer() and not re:GetHandler():IsImmuneToEffect(e) -end ---filter for non-zero ATK -function Auxiliary.nzatk(c) - return c:IsFaceup() and c:GetAttack()>0 -end ---filter for non-zero DEF -function Auxiliary.nzdef(c) - return c:IsFaceup() and c:GetDefence()>0 -end ---flag effect for summon/sp_summon turn -function Auxiliary.sumreg(e,tp,eg,ep,ev,re,r,rp) - local tc=eg:GetFirst() - local code=e:GetLabel() - while tc do - if tc:GetOriginalCode()==code then - tc:RegisterFlagEffect(code,RESET_EVENT+0x1ec0000+RESET_PHASE+PHASE_END,0,1) - end - tc=eg:GetNext() - end -end ---sp_summon condition for fusion monster -function Auxiliary.fuslimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION -end ---sp_summon condition for ritual monster -function Auxiliary.ritlimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL -end ---sp_summon condition for synchro monster -function Auxiliary.synlimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_SYNCHRO)==SUMMON_TYPE_SYNCHRO -end ---sp_summon condition for xyz monster -function Auxiliary.xyzlimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_XYZ)==SUMMON_TYPE_XYZ -end ---sp_summon condition for pendulum monster -function Auxiliary.penlimit(e,se,sp,st) - return bit.band(st,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM -end ---effects inflicting damage to tp -function Auxiliary.damcon1(e,tp,eg,ep,ev,re,r,rp) - local e1=Duel.IsPlayerAffectedByEffect(tp,EFFECT_REVERSE_DAMAGE) - local e2=Duel.IsPlayerAffectedByEffect(tp,EFFECT_REVERSE_RECOVER) - local rd=e1 and not e2 - local rr=not e1 and e2 - local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_DAMAGE) - if ex and (cp==tp or cp==PLAYER_ALL) and not rd and not Duel.IsPlayerAffectedByEffect(tp,EFFECT_NO_EFFECT_DAMAGE) then - return true - end - ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_RECOVER) - return ex and (cp==tp or cp==PLAYER_ALL) and rr and not Duel.IsPlayerAffectedByEffect(tp,EFFECT_NO_EFFECT_DAMAGE) -end ---filter for the immune effetc of qli monsters -function Auxiliary.qlifilter(e,te) - if te:IsActiveType(TYPE_MONSTER) and te:IsActivated() then - local lv=e:GetHandler():GetLevel() - local ec=te:GetOwner() - if ec:IsType(TYPE_XYZ) then - return ec:GetOriginalRank()minc then minc=min end + if maxmaxc then return false end + end + return ctminc then minc=min end + if maxminc then minc=min end + if maxmaxc then return false end + end + return ctminc then minc=min end + if max1 then + return mg:IsExists(Auxiliary.FConditionFilter22,1,nil,code1,code2,sub,e:GetHandler()) + elseif b1==1 then + return mg:IsExists(Auxiliary.FConditionFilter12,1,nil,code2,sub,e:GetHandler()) + elseif b2==1 then + return mg:IsExists(Auxiliary.FConditionFilter12,1,nil,code1,sub,e:GetHandler()) + else + return mg:IsExists(Auxiliary.FConditionFilter21,1,nil,code1,code2) + end + end + local b1=0 local b2=0 local bw=0 + local ct=0 + local fs=chkf==PLAYER_NONE + local tc=mg:GetFirst() + while tc do + local match=false + if tc:IsFusionCode(code1) then b1=1 match=true end + if tc:IsFusionCode(code2) then b2=1 match=true end + if sub and tc:CheckFusionSubstitute(e:GetHandler()) then bw=1 match=true end + if match then + if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end + ct=ct+1 + end + tc=mg:GetNext() + end + return ct>1 and b1+b2+bw>1 and fs + end +end +function Auxiliary.FOperationCode2(code1,code2,sub,insf) + return function(e,tp,eg,ep,ev,re,r,rp,gc,chkfnf) + local chkf=bit.band(chkfnf,0xff) + local notfusion=bit.rshift(chkfnf,8)~=0 + local sub=sub or notfusion + local g=eg:Filter(Card.IsCanBeFusionMaterial,gc,e:GetHandler()) + local tc=gc + local g1=nil + if gc then + if chkf~=PLAYER_NONE and not Auxiliary.FConditionCheckF(gc,chkf) then + g=g:Filter(Auxiliary.FConditionCheckF,nil,chkf) + end + else + local sg=g:Filter(Auxiliary.FConditionFilter22,nil,code1,code2,sub,e:GetHandler()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) + else g1=sg:Select(tp,1,1,nil) end + tc=g1:GetFirst() + g:RemoveCard(tc) + end + local b1=0 local b2=0 local bw=0 + if tc:IsFusionCode(code1) then b1=1 end + if tc:IsFusionCode(code2) then b2=1 end + if sub and tc:CheckFusionSubstitute(e:GetHandler()) then bw=1 end + local g2=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if b1+b2+bw>1 then + g2=g:FilterSelect(tp,Auxiliary.FConditionFilter22,1,1,nil,code1,code2,sub,e:GetHandler()) + elseif b1==1 then + g2=g:FilterSelect(tp,Auxiliary.FConditionFilter12,1,1,nil,code2,sub,e:GetHandler()) + elseif b2==1 then + g2=g:FilterSelect(tp,Auxiliary.FConditionFilter12,1,1,nil,code1,sub,e:GetHandler()) + else + g2=g:FilterSelect(tp,Auxiliary.FConditionFilter21,1,1,nil,code1,code2) + end + if g1 then g2:Merge(g1) end + Duel.SetFusionMaterial(g2) + end +end +--Fusion monster, name + name + name +function Auxiliary.AddFusionProcCode3(c,code1,code2,code3,sub,insf) + if c:IsStatus(STATUS_COPYING_EFFECT) then return end + if c.material_count==nil then + local code=c:GetOriginalCode() + local mt=_G["c" .. code] + mt.material_count=3 + mt.material={code1,code2,code3} + end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(Auxiliary.FConditionCode3(code1,code2,code3,sub,insf)) + e1:SetOperation(Auxiliary.FOperationCode3(code1,code2,code3,sub,insf)) + c:RegisterEffect(e1) +end +function Auxiliary.FConditionFilter31(c,code1,code2,code3) + return c:IsFusionCode(code1,code2,code3) +end +function Auxiliary.FConditionFilter32(c,code1,code2,code3,sub,fc) + return c:IsFusionCode(code1,code2,code3) or (sub and c:CheckFusionSubstitute(fc)) +end +function Auxiliary.FConditionCode3(code1,code2,code3,sub,insf) + return function(e,g,gc,chkfnf) + if g==nil then return insf end + local chkf=bit.band(chkfnf,0xff) + local notfusion=bit.rshift(chkfnf,8)~=0 + local sub=sub or notfusion + local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) + if gc then + if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end + local b1=0 local b2=0 local b3=0 + local tc=mg:GetFirst() + while tc do + if tc:IsFusionCode(code1) then b1=1 + elseif tc:IsFusionCode(code2) then b2=1 + elseif tc:IsFusionCode(code3) then b3=1 + end + tc=mg:GetNext() + end + if gc:CheckFusionSubstitute(e:GetHandler()) then + return b1+b2+b3>1 + else + if gc:IsFusionCode(code1) then b1=1 + elseif gc:IsFusionCode(code2) then b2=1 + elseif gc:IsFusionCode(code3) then b3=1 + else return false + end + return b1+b2+b3>2 + end + end + local b1=0 local b2=0 local b3=0 local bs=0 + local fs=false + local tc=mg:GetFirst() + while tc do + if tc:IsFusionCode(code1) then b1=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end + elseif tc:IsFusionCode(code2) then b2=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end + elseif tc:IsFusionCode(code3) then b3=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end + elseif sub and tc:CheckFusionSubstitute(e:GetHandler()) then bs=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end + end + tc=mg:GetNext() + end + return b1+b2+b3+bs>=3 and (fs or chkf==PLAYER_NONE) + end +end +function Auxiliary.FOperationCode3(code1,code2,code3,sub,insf) + return function(e,tp,eg,ep,ev,re,r,rp,gc,chkfnf) + local chkf=bit.band(chkfnf,0xff) + local notfusion=bit.rshift(chkfnf,8)~=0 + local sub=sub or notfusion + local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) + if gc then + local sg=g:Filter(Auxiliary.FConditionFilter31,gc,code1,code2,code3) + if not gc:CheckFusionSubstitute(e:GetHandler()) then + sg:Remove(Card.IsFusionCode,nil,gc:GetCode()) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=sg:Select(tp,1,1,nil) + sg:Remove(Card.IsFusionCode,nil,g1:GetFirst():GetCode()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g2=sg:Select(tp,1,1,nil) + g1:Merge(g2) + Duel.SetFusionMaterial(g1) + return + end + local sg=g:Filter(Auxiliary.FConditionFilter32,nil,code1,code2,code3,sub,e:GetHandler()) + local g1=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) + else g1=sg:Select(tp,1,1,nil) end + if g1:GetFirst():CheckFusionSubstitute(e:GetHandler()) then + sg:Remove(Card.CheckFusionSubstitute,nil,e:GetHandler()) + else sg:Remove(Card.IsFusionCode,nil,g1:GetFirst():GetCode()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g2=sg:Select(tp,1,1,nil) + if g2:GetFirst():CheckFusionSubstitute(e:GetHandler()) then + sg:Remove(Card.CheckFusionSubstitute,nil,e:GetHandler()) + else sg:Remove(Card.IsFusionCode,nil,g2:GetFirst():GetCode()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g3=sg:Select(tp,1,1,nil) + g1:Merge(g2) + g1:Merge(g3) + Duel.SetFusionMaterial(g1) + end +end +--Fusion monster, name + name + name + name +function Auxiliary.AddFusionProcCode4(c,code1,code2,code3,code4,sub,insf) + if c:IsStatus(STATUS_COPYING_EFFECT) then return end + if c.material_count==nil then + local code=c:GetOriginalCode() + local mt=_G["c" .. code] + mt.material_count=4 + mt.material={code1,code2,code3,code4} + end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(Auxiliary.FConditionCode4(code1,code2,code3,code4,sub,insf)) + e1:SetOperation(Auxiliary.FOperationCode4(code1,code2,code3,code4,sub,insf)) + c:RegisterEffect(e1) +end +function Auxiliary.FConditionFilter41(c,code1,code2,code3,code4) + return c:IsFusionCode(code1,code2,code3,code4) +end +function Auxiliary.FConditionFilter42(c,code1,code2,code3,code4,sub,fc) + return c:IsFusionCode(code1,code2,code3,code4) or (sub and c:CheckFusionSubstitute(fc)) +end +function Auxiliary.FConditionCode4(code1,code2,code3,code4,sub,insf) + return function(e,g,gc,chkfnf) + if g==nil then return insf end + local chkf=bit.band(chkfnf,0xff) + local notfusion=bit.rshift(chkfnf,8)~=0 + local sub=sub or notfusion + local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) + if gc then + if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end + local b1=0 local b2=0 local b3=0 local b4=0 + local tc=mg:GetFirst() + while tc do + if tc:IsFusionCode(code1) then b1=1 + elseif tc:IsFusionCode(code2) then b2=1 + elseif tc:IsFusionCode(code3) then b3=1 + elseif tc:IsFusionCode(code4) then b4=1 + else return false + end + tc=mg:GetNext() + end + if gc:CheckFusionSubstitute(e:GetHandler()) then + return b1+b2+b3+b4>2 + else + if gc:IsFusionCode(code1) then b1=1 + elseif gc:IsFusionCode(code2) then b2=1 + elseif gc:IsFusionCode(code3) then b3=1 + elseif gc:IsFusionCode(code4) then b4=1 + end + return b1+b2+b3+b4>3 + end + end + local b1=0 local b2=0 local b3=0 local b4=0 local bs=0 + local fs=false + local tc=mg:GetFirst() + while tc do + if tc:IsFusionCode(code1) then b1=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end + elseif tc:IsFusionCode(code2) then b2=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end + elseif tc:IsFusionCode(code3) then b3=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end + elseif tc:IsFusionCode(code4) then b4=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end + elseif sub and tc:CheckFusionSubstitute(e:GetHandler()) then bs=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end + end + tc=mg:GetNext() + end + return b1+b2+b3+b4+bs>=4 and (fs or chkf==PLAYER_NONE) + end +end +function Auxiliary.FOperationCode4(code1,code2,code3,code4,sub,insf) + return function(e,tp,eg,ep,ev,re,r,rp,gc,chkfnf) + local chkf=bit.band(chkfnf,0xff) + local notfusion=bit.rshift(chkfnf,8)~=0 + local sub=sub or notfusion + local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) + if gc then + local sg=g:Filter(Auxiliary.FConditionFilter41,gc,code1,code2,code3,code4) + if not gc:CheckFusionSubstitute(e:GetHandler()) then + sg:Remove(Card.IsFusionCode,nil,gc:GetCode()) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=sg:Select(tp,1,1,nil) + sg:Remove(Card.IsFusionCode,nil,g1:GetFirst():GetCode()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g2=sg:Select(tp,1,1,nil) + sg:Remove(Card.IsFusionCode,nil,g2:GetFirst():GetCode()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g3=sg:Select(tp,1,1,nil) + g1:Merge(g2) + g1:Merge(g3) + Duel.SetFusionMaterial(g1) + return + end + local sg=g:Filter(Auxiliary.FConditionFilter42,nil,code1,code2,code3,code4,sub,e:GetHandler()) + local g1=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) + else g1=sg:Select(tp,1,1,nil) end + if g1:GetFirst():CheckFusionSubstitute(e:GetHandler()) then + sg:Remove(Card.CheckFusionSubstitute,nil,e:GetHandler()) + else sg:Remove(Card.IsFusionCode,nil,g1:GetFirst():GetCode()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g2=sg:Select(tp,1,1,nil) + if g2:GetFirst():CheckFusionSubstitute(e:GetHandler()) then + sg:Remove(Card.CheckFusionSubstitute,nil,e:GetHandler()) + else sg:Remove(Card.IsFusionCode,nil,g2:GetFirst():GetCode()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g3=sg:Select(tp,1,1,nil) + if g3:GetFirst():CheckFusionSubstitute(e:GetHandler()) then + sg:Remove(Card.CheckFusionSubstitute,nil,e:GetHandler()) + else sg:Remove(Card.IsFusionCode,nil,g3:GetFirst():GetCode()) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g4=sg:Select(tp,1,1,nil) + g1:Merge(g2) + g1:Merge(g3) + g1:Merge(g4) + Duel.SetFusionMaterial(g1) + end +end +--Fusion monster, name + condition +function Auxiliary.AddFusionProcCodeFun(c,code1,f,cc,sub,insf) + if c:IsStatus(STATUS_COPYING_EFFECT) then return end + if c.material_count==nil then + local code=c:GetOriginalCode() + local mt=_G["c" .. code] + mt.material_count=1 + mt.material={code1} + end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(Auxiliary.FConditionCodeFun(code1,f,cc,sub,insf)) + e1:SetOperation(Auxiliary.FOperationCodeFun(code1,f,cc,sub,insf)) + c:RegisterEffect(e1) +end +function Auxiliary.FConditionFilterCF(c,g2,cc) + return g2:IsExists(aux.TRUE,cc,c) +end +function Auxiliary.FConditionCodeFun(code,f,cc,sub,insf) + return function(e,g,gc,chkfnf) + if g==nil then return insf end + local chkf=bit.band(chkfnf,0xff) + local notfusion=bit.rshift(chkfnf,8)~=0 + local sub=sub or notfusion + local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) + if gc then + if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end + if (gc:IsFusionCode(code) or (sub and gc:CheckFusionSubstitute(e:GetHandler()))) and mg:IsExists(f,cc,gc) then + return true + elseif f(gc) then + local g1=Group.CreateGroup() local g2=Group.CreateGroup() + local tc=mg:GetFirst() + while tc do + if tc:IsFusionCode(code) or (sub and tc:CheckFusionSubstitute(e:GetHandler())) + then g1:AddCard(tc) end + if f(tc) then g2:AddCard(tc) end + tc=mg:GetNext() + end + if cc>1 then + g2:RemoveCard(gc) + return g1:IsExists(Auxiliary.FConditionFilterCF,1,gc,g2,cc-1) + else + g1:RemoveCard(gc) + return g1:GetCount()>0 + end + else return false end + end + local b1=0 local b2=0 local bw=0 + local fs=false + local tc=mg:GetFirst() + while tc do + local c1=tc:IsFusionCode(code) or (sub and tc:CheckFusionSubstitute(e:GetHandler())) + local c2=f(tc) + if c1 or c2 then + if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end + if c1 and c2 then bw=bw+1 + elseif c1 then b1=1 + else b2=b2+1 + end + end + tc=mg:GetNext() + end + if b2>cc then b2=cc end + return b1+b2+bw>=1+cc and (fs or chkf==PLAYER_NONE) + end +end +function Auxiliary.FOperationCodeFun(code,f,cc,sub,insf) + return function(e,tp,eg,ep,ev,re,r,rp,gc,chkfnf) + local chkf=bit.band(chkfnf,0xff) + local notfusion=bit.rshift(chkfnf,8)~=0 + local sub=sub or notfusion + local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) + if gc then + if (gc:IsFusionCode(code) or (sub and gc:CheckFusionSubstitute(e:GetHandler()))) and g:IsExists(f,cc,gc) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=g:FilterSelect(tp,f,cc,cc,gc) + Duel.SetFusionMaterial(g1) + else + local sg1=Group.CreateGroup() local sg2=Group.CreateGroup() + local tc=g:GetFirst() + while tc do + if tc:IsFusionCode(code) or (sub and tc:CheckFusionSubstitute(e:GetHandler())) then sg1:AddCard(tc) end + if f(tc) then sg2:AddCard(tc) end + tc=g:GetNext() + end + if cc>1 then + sg2:RemoveCard(gc) + if sg2:GetCount()==cc-1 then + sg1:Sub(sg2) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=sg1:Select(tp,1,1,gc) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g2=sg2:Select(tp,cc-1,cc-1,g1:GetFirst()) + g1:Merge(g2) + Duel.SetFusionMaterial(g1) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=sg1:Select(tp,1,1,gc) + Duel.SetFusionMaterial(g1) + end + end + return + end + local sg1=Group.CreateGroup() local sg2=Group.CreateGroup() local fs=false + local tc=g:GetFirst() + while tc do + if tc:IsFusionCode(code) or (sub and tc:CheckFusionSubstitute(e:GetHandler())) then sg1:AddCard(tc) end + if f(tc) then sg2:AddCard(tc) if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end end + tc=g:GetNext() + end + if chkf~=PLAYER_NONE then + if sg2:GetCount()==cc then + sg1:Sub(sg2) + end + local g1=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if fs then g1=sg1:Select(tp,1,1,nil) + else g1=sg1:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) end + local tc1=g1:GetFirst() + sg2:RemoveCard(tc1) + if Auxiliary.FConditionCheckF(tc1,chkf) or sg2:GetCount()==cc then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g2=sg2:Select(tp,cc,cc,tc1) + g1:Merge(g2) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g2=sg2:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,tc1,chkf) + g1:Merge(g2) + if cc>1 then + sg2:RemoveCard(g2:GetFirst()) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g2=sg2:Select(tp,cc-1,cc-1,tc1) + g1:Merge(g2) + end + end + Duel.SetFusionMaterial(g1) + else + if sg2:GetCount()==cc then + sg1:Sub(sg2) + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=sg1:Select(tp,1,1,nil) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + g1:Merge(sg2:Select(tp,cc,cc,g1:GetFirst())) + Duel.SetFusionMaterial(g1) + end + end +end +--Fusion monster, condition + condition +function Auxiliary.AddFusionProcFun2(c,f1,f2,insf) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(Auxiliary.FConditionFun2(f1,f2,insf)) + e1:SetOperation(Auxiliary.FOperationFun2(f1,f2,insf)) + c:RegisterEffect(e1) +end +function Auxiliary.FConditionFilterF2(c,g2) + return g2:IsExists(aux.TRUE,1,c) +end +function Auxiliary.FConditionFilterF2c(c,f1,f2) + return f1(c) or f2(c) +end +function Auxiliary.FConditionFilterF2r(c,f1,f2) + return f1(c) and not f2(c) +end +function Auxiliary.FConditionFun2(f1,f2,insf) + return function(e,g,gc,chkfnf) + if g==nil then return insf end + local chkf=bit.band(chkfnf,0xff) + local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) + if gc then + if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end + return (f1(gc) and mg:IsExists(f2,1,gc)) + or (f2(gc) and mg:IsExists(f1,1,gc)) end + local g1=Group.CreateGroup() local g2=Group.CreateGroup() local fs=false + local tc=mg:GetFirst() + while tc do + if f1(tc) then g1:AddCard(tc) if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end end + if f2(tc) then g2:AddCard(tc) if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end end + tc=mg:GetNext() + end + if chkf~=PLAYER_NONE then + return fs and g1:IsExists(Auxiliary.FConditionFilterF2,1,nil,g2) + else return g1:IsExists(Auxiliary.FConditionFilterF2,1,nil,g2) end + end +end +function Auxiliary.FOperationFun2(f1,f2,insf) + return function(e,tp,eg,ep,ev,re,r,rp,gc,chkfnf) + local chkf=bit.band(chkfnf,0xff) + local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) + if gc then + local sg=Group.CreateGroup() + if f1(gc) then sg:Merge(g:Filter(f2,gc)) end + if f2(gc) then sg:Merge(g:Filter(f1,gc)) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=sg:Select(tp,1,1,nil) + Duel.SetFusionMaterial(g1) + return + end + local sg=g:Filter(Auxiliary.FConditionFilterF2c,nil,f1,f2) + local g1=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if chkf~=PLAYER_NONE then + g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) + else g1=sg:Select(tp,1,1,nil) end + local tc1=g1:GetFirst() + sg:RemoveCard(tc1) + local b1=f1(tc1) + local b2=f2(tc1) + if b1 and not b2 then sg:Remove(Auxiliary.FConditionFilterF2r,nil,f1,f2) end + if b2 and not b1 then sg:Remove(Auxiliary.FConditionFilterF2r,nil,f2,f1) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g2=sg:Select(tp,1,1,nil) + g1:Merge(g2) + Duel.SetFusionMaterial(g1) + end +end +--Fusion monster, name * n +function Auxiliary.AddFusionProcCodeRep(c,code1,cc,sub,insf) + if c:IsStatus(STATUS_COPYING_EFFECT) then return end + if c.material_count==nil then + local code=c:GetOriginalCode() + local mt=_G["c" .. code] + mt.material_count=1 + mt.material={code1} + end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(Auxiliary.FConditionCodeRep(code1,cc,sub,insf)) + e1:SetOperation(Auxiliary.FOperationCodeRep(code1,cc,sub,insf)) + c:RegisterEffect(e1) +end +function Auxiliary.FConditionFilterCR(c,code,sub,fc) + return c:IsFusionCode(code) or (sub and c:CheckFusionSubstitute(fc)) +end +function Auxiliary.FConditionCodeRep(code,cc,sub,insf) + return function(e,g,gc,chkfnf) + if g==nil then return insf end + local chkf=bit.band(chkfnf,0xff) + local notfusion=bit.rshift(chkfnf,8)~=0 + local sub=sub or notfusion + local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) + if gc then + if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end + return (gc:IsFusionCode(code) or gc:CheckFusionSubstitute(e:GetHandler())) and mg:IsExists(Card.IsFusionCode,cc-1,gc,code) end + local g1=mg:Filter(Card.IsFusionCode,nil,code) + if not sub then + if chkf~=PLAYER_NONE then return g1:GetCount()>=cc and g1:FilterCount(Card.IsOnField,nil)~=0 + else return g1:GetCount()>=cc end + end + local g2=mg:Filter(Card.CheckFusionSubstitute,nil,e:GetHandler()) + if chkf~=PLAYER_NONE then + return (g1:FilterCount(Card.IsOnField,nil)~=0 or g2:FilterCount(Card.IsOnField,nil)~=0) + and g1:GetCount()>=cc-1 and g1:GetCount()+g2:GetCount()>=cc + else return g1:GetCount()>=cc-1 and g1:GetCount()+g2:GetCount()>=cc end + end +end +function Auxiliary.FOperationCodeRep(code,cc,sub,insf) + return function(e,tp,eg,ep,ev,re,r,rp,gc,chkfnf) + local chkf=bit.band(chkfnf,0xff) + local notfusion=bit.rshift(chkfnf,8)~=0 + local sub=sub or notfusion + local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) + if gc then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=g:FilterSelect(tp,Card.IsFusionCode,cc-1,cc-1,gc,code) + Duel.SetFusionMaterial(g1) + return + end + local sg=g:Filter(Auxiliary.FConditionFilterCR,nil,code,sub,e:GetHandler()) + local g1=nil + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) + else g1=sg:Select(tp,1,1,nil) end + local tc1=g1:GetFirst() + for i=1,cc-1 do + if tc1:CheckFusionSubstitute(e:GetHandler()) then sg:Remove(Card.CheckFusionSubstitute,nil,e:GetHandler()) + else sg:RemoveCard(tc1) end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g2=sg:Select(tp,1,1,nil) + tc1=g2:GetFirst() + g1:Merge(g2) + end + Duel.SetFusionMaterial(g1) + end +end +--Fusion monster, condition * n +function Auxiliary.AddFusionProcFunRep(c,f,cc,insf) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(Auxiliary.FConditionFunRep(f,cc,insf)) + e1:SetOperation(Auxiliary.FOperationFunRep(f,cc,insf)) + c:RegisterEffect(e1) +end +function Auxiliary.FConditionFunRep(f,cc,insf) + return function(e,g,gc,chkfnf) + if g==nil then return insf end + local chkf=bit.band(chkfnf,0xff) + local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) + if gc then + if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end + return f(gc) and mg:IsExists(f,cc-1,gc) end + local g1=mg:Filter(f,nil) + if chkf~=PLAYER_NONE then + return g1:FilterCount(Card.IsOnField,nil)~=0 and g1:GetCount()>=cc + else return g1:GetCount()>=cc end + end +end +function Auxiliary.FOperationFunRep(f,cc,insf) + return function(e,tp,eg,ep,ev,re,r,rp,gc,chkfnf) + local chkf=bit.band(chkfnf,0xff) + local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) + if gc then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=g:FilterSelect(tp,f,cc-1,cc-1,gc) + Duel.SetFusionMaterial(g1) + return + end + local sg=g:Filter(f,nil) + if chkf==PLAYER_NONE or sg:GetCount()==cc then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=sg:Select(tp,cc,cc,nil) + Duel.SetFusionMaterial(g1) + return + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) + if cc>1 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g2=sg:Select(tp,cc-1,cc-1,g1:GetFirst()) + g1:Merge(g2) + end + Duel.SetFusionMaterial(g1) + end +end +--Fusion monster, condition1 + condition2 * minc to maxc +function Auxiliary.AddFusionProcFunFunRep(c,f1,f2,minc,maxc,insf) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(Auxiliary.FConditionFunFunRep(f1,f2,minc,maxc,insf)) + e1:SetOperation(Auxiliary.FOperationFunFunRep(f1,f2,minc,maxc,insf)) + c:RegisterEffect(e1) +end +function Auxiliary.FConditionFilterFFR(c,f1,f2,mg,minc,chkf) + if not f1(c) then return false end + if chkf==PLAYER_NONE or aux.FConditionCheckF(c,chkf) then + return minc<=0 or mg:IsExists(f2,minc,c) + else + local mg2=mg:Filter(f2,c) + return mg2:GetCount()>=minc and mg2:IsExists(aux.FConditionCheckF,1,nil,chkf) + end +end +function Auxiliary.FConditionFunFunRep(f1,f2,minc,maxc,insf) + return function(e,g,gc,chkfnf) + if g==nil then return insf end + local chkf=bit.band(chkfnf,0xff) + local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) + if gc then + if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end + if aux.FConditionFilterFFR(gc,f1,f2,mg,minc,chkf) then + return true + elseif f2(gc) then + mg:RemoveCard(gc) + if aux.FConditionCheckF(gc,chkf) then chkf=PLAYER_NONE end + return mg:IsExists(aux.FConditionFilterFFR,1,nil,f1,f2,mg,minc-1,chkf) + else return false end + end + return mg:IsExists(aux.FConditionFilterFFR,1,nil,f1,f2,mg,minc,chkf) + end +end +function Auxiliary.FOperationFunFunRep(f1,f2,minc,maxc,insf) + return function(e,tp,eg,ep,ev,re,r,rp,gc,chkfnf) + local chkf=bit.band(chkfnf,0xff) + local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler()) + local minct=minc + local maxct=maxc + if gc then + g:RemoveCard(gc) + if aux.FConditionFilterFFR(gc,f1,f2,g,minct,chkf) then + if aux.FConditionCheckF(gc,chkf) then chkf=PLAYER_NONE end + local g1=Group.CreateGroup() + if f2(gc) then + local mg1=g:Filter(aux.FConditionFilterFFR,nil,f1,f2,g,minct-1,chkf) + if mg1:GetCount()>0 then + --if gc fits both, should allow an extra material that fits f1 but doesn't fit f2 + local mg2=g:Filter(f2,nil) + mg1:Merge(mg2) + if chkf~=PLAYER_NONE then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg1:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) + g1:Merge(sg) + mg1:Sub(sg) + minct=minct-1 + maxct=maxct-1 + if not f2(sg:GetFirst()) then + if mg1:GetCount()>0 and maxct>0 and (minct>0 or Duel.SelectYesNo(tp,93)) then + if minct<=0 then minct=1 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg1:FilterSelect(tp,f2,minct,maxct,nil) + g1:Merge(sg) + end + Duel.SetFusionMaterial(g1) + return + end + end + if maxct>1 and (minct>1 or Duel.SelectYesNo(tp,93)) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg1:FilterSelect(tp,f2,minct-1,maxct-1,nil) + g1:Merge(sg) + mg1:Sub(sg) + local ct=sg:GetCount() + minct=minct-ct + maxct=maxct-ct + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg1:Select(tp,1,1,nil) + g1:Merge(sg) + mg1:Sub(sg) + minct=minct-1 + maxct=maxct-1 + if mg1:GetCount()>0 and maxct>0 and (minct>0 or Duel.SelectYesNo(tp,93)) then + if minct<=0 then minct=1 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg1:FilterSelect(tp,f2,minct,maxct,nil) + g1:Merge(sg) + end + Duel.SetFusionMaterial(g1) + return + end + end + local mg=g:Filter(f2,nil) + if chkf~=PLAYER_NONE then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) + g1:Merge(sg) + mg:Sub(sg) + minct=minct-1 + maxct=maxct-1 + end + if mg:GetCount()>0 and maxct>0 and (minct>0 or Duel.SelectYesNo(tp,93)) then + if minct<=0 then minct=1 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg:Select(tp,minct,maxct,nil) + g1:Merge(sg) + end + Duel.SetFusionMaterial(g1) + return + else + if aux.FConditionCheckF(gc,chkf) then chkf=PLAYER_NONE end + minct=minct-1 + maxct=maxct-1 + end + end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local g1=g:FilterSelect(tp,aux.FConditionFilterFFR,1,1,nil,f1,f2,g,minct,chkf) + local mg=g:Filter(f2,g1:GetFirst()) + if chkf~=PLAYER_NONE and not aux.FConditionCheckF(g1:GetFirst(),chkf) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg:FilterSelect(tp,aux.FConditionCheckF,1,1,nil,chkf) + g1:Merge(sg) + mg:Sub(sg) + minct=minct-1 + maxct=maxct-1 + end + if mg:GetCount()>0 and maxct>0 and (minct>0 or Duel.SelectYesNo(tp,93)) then + if minct<=0 then minct=1 end + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) + local sg=mg:Select(tp,minct,maxct,nil) + g1:Merge(sg) + end + Duel.SetFusionMaterial(g1) + end +end +function Auxiliary.FilterBoolFunctionCFR(code,sub,fc) + return function(target) + return target:IsFusionCode(code) or (sub and target:CheckFusionSubstitute(fc)) + end +end +--Fusion monster, name + condition * minc to maxc +function Auxiliary.AddFusionProcCodeFunRep(c,code1,f,minc,maxc,sub,insf) + if c:IsStatus(STATUS_COPYING_EFFECT) then return end + if c.material_count==nil then + local code=c:GetOriginalCode() + local mt=_G["c" .. code] + mt.material_count=1 + mt.material={code1} + end + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_SINGLE) + e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE) + e1:SetCode(EFFECT_FUSION_MATERIAL) + e1:SetCondition(Auxiliary.FConditionFunFunRep(Auxiliary.FilterBoolFunctionCFR(code1,sub,c),f,minc,maxc,insf)) + e1:SetOperation(Auxiliary.FOperationFunFunRep(Auxiliary.FilterBoolFunctionCFR(code1,sub,c),f,minc,maxc,insf)) + c:RegisterEffect(e1) +end +--Ritual Summon, geq fixed lv +function Auxiliary.AddRitualProcGreater(c,filter) + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(Auxiliary.RPGTarget(filter)) + e1:SetOperation(Auxiliary.RPGOperation(filter)) + c:RegisterEffect(e1) +end +function Auxiliary.RPGFilter(c,filter,e,tp,m,ft) + if (filter and not filter(c)) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end + local mg=m:Filter(Card.IsCanBeRitualMaterial,c,c) + if ft>0 then + return mg:CheckWithSumGreater(Card.GetRitualLevel,c:GetOriginalLevel(),c) + else + return mg:IsExists(Auxiliary.RPGFilterF,1,nil,tp,mg,c) + end +end +function Auxiliary.RPGFilterF(c,tp,mg,rc) + if c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) then + Duel.SetSelectedCard(c) + return mg:CheckWithSumGreater(Card.GetRitualLevel,rc:GetOriginalLevel(),rc) + else return false end +end +function Auxiliary.RPGTarget(filter) + return function(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local mg=Duel.GetRitualMaterial(tp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + return ft>-1 and Duel.IsExistingMatchingCard(Auxiliary.RPGFilter,tp,LOCATION_HAND,0,1,nil,filter,e,tp,mg,ft) + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) + end +end +function Auxiliary.RPGOperation(filter) + return function(e,tp,eg,ep,ev,re,r,rp) + local mg=Duel.GetRitualMaterial(tp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=Duel.SelectMatchingCard(tp,Auxiliary.RPGFilter,tp,LOCATION_HAND,0,1,1,nil,filter,e,tp,mg,ft) + local tc=tg:GetFirst() + if tc then + mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc) + local mat=nil + if ft>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,tc:GetOriginalLevel(),tc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:FilterSelect(tp,Auxiliary.RPGFilterF,1,1,nil,tp,mg,tc) + Duel.SetSelectedCard(mat) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local mat2=mg:SelectWithSumGreater(tp,Card.GetRitualLevel,tc:GetOriginalLevel(),tc) + mat:Merge(mat2) + end + tc:SetMaterial(mat) + Duel.ReleaseRitualMaterial(mat) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP) + tc:CompleteProcedure() + end + end +end +function Auxiliary.AddRitualProcGreaterCode(c,code1) + if not c:IsStatus(STATUS_COPYING_EFFECT) and c.fit_monster==nil then + local code=c:GetOriginalCode() + local mt=_G["c" .. code] + mt.fit_monster={code1} + end + Auxiliary.AddRitualProcGreater(c,Auxiliary.FilterBoolFunction(Card.IsCode,code1)) +end +--Ritual Summon, equal to fixed lv +function Auxiliary.AddRitualProcEqual(c,filter) + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(Auxiliary.RPETarget(filter)) + e1:SetOperation(Auxiliary.RPEOperation(filter)) + c:RegisterEffect(e1) +end +function Auxiliary.RPEFilter(c,filter,e,tp,m,ft) + if (filter and not filter(c)) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end + local mg=m:Filter(Card.IsCanBeRitualMaterial,c,c) + if ft>0 then + return mg:CheckWithSumEqual(Card.GetRitualLevel,c:GetOriginalLevel(),1,99,c) + else + return mg:IsExists(Auxiliary.RPEFilterF,1,nil,tp,mg,c) + end +end +function Auxiliary.RPEFilterF(c,tp,mg,rc) + if c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) then + Duel.SetSelectedCard(c) + return mg:CheckWithSumEqual(Card.GetRitualLevel,rc:GetOriginalLevel(),0,99,rc) + else return false end +end +function Auxiliary.RPETarget(filter) + return function(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local mg=Duel.GetRitualMaterial(tp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + return ft>-1 and Duel.IsExistingMatchingCard(Auxiliary.RPEFilter,tp,LOCATION_HAND,0,1,nil,filter,e,tp,mg,ft) + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) + end +end +function Auxiliary.RPEOperation(filter) + return function(e,tp,eg,ep,ev,re,r,rp) + local mg=Duel.GetRitualMaterial(tp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=Duel.SelectMatchingCard(tp,Auxiliary.RPEFilter,tp,LOCATION_HAND,0,1,1,nil,filter,e,tp,mg,ft) + local tc=tg:GetFirst() + if tc then + mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc) + local mat=nil + if ft>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetOriginalLevel(),1,99,tc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:FilterSelect(tp,Auxiliary.RPEFilterF,1,1,nil,tp,mg,tc) + Duel.SetSelectedCard(mat) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local mat2=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetOriginalLevel(),0,99,tc) + mat:Merge(mat2) + end + tc:SetMaterial(mat) + Duel.ReleaseRitualMaterial(mat) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP) + tc:CompleteProcedure() + end + end +end +function Auxiliary.AddRitualProcEqualCode(c,code1) + if not c:IsStatus(STATUS_COPYING_EFFECT) and c.fit_monster==nil then + local code=c:GetOriginalCode() + local mt=_G["c" .. code] + mt.fit_monster={code1} + end + Auxiliary.AddRitualProcEqual(c,Auxiliary.FilterBoolFunction(Card.IsCode,code1)) +end +--Ritual Summon, equal to monster lv +function Auxiliary.AddRitualProcEqual2(c,filter) + local e1=Effect.CreateEffect(c) + e1:SetCategory(CATEGORY_SPECIAL_SUMMON) + e1:SetType(EFFECT_TYPE_ACTIVATE) + e1:SetCode(EVENT_FREE_CHAIN) + e1:SetTarget(Auxiliary.RPETarget2(filter)) + e1:SetOperation(Auxiliary.RPEOperation2(filter)) + c:RegisterEffect(e1) +end +function Auxiliary.RPEFilter2(c,filter,e,tp,m,ft) + if (filter and not filter(c)) or not c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) then return false end + local mg=m:Filter(Card.IsCanBeRitualMaterial,c,c) + if ft>0 then + return mg:CheckWithSumEqual(Card.GetRitualLevel,c:GetLevel(),1,99,c) + else + return mg:IsExists(Auxiliary.RPEFilter2F,1,nil,tp,mg,c) + end +end +function Auxiliary.RPEFilter2F(c,tp,mg,rc) + if c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) then + Duel.SetSelectedCard(c) + return mg:CheckWithSumEqual(Card.GetRitualLevel,rc:GetLevel(),0,99,rc) + else return false end +end +function Auxiliary.RPETarget2(filter) + return function(e,tp,eg,ep,ev,re,r,rp,chk) + if chk==0 then + local mg=Duel.GetRitualMaterial(tp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + return ft>-1 and Duel.IsExistingMatchingCard(Auxiliary.RPEFilter2,tp,LOCATION_HAND,0,1,nil,filter,e,tp,mg,ft) + end + Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND) + end +end +function Auxiliary.RPEOperation2(filter) + return function(e,tp,eg,ep,ev,re,r,rp) + local mg=Duel.GetRitualMaterial(tp) + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local tg=Duel.SelectMatchingCard(tp,Auxiliary.RPEFilter2,tp,LOCATION_HAND,0,1,1,nil,filter,e,tp,mg,ft) + local tc=tg:GetFirst() + if tc then + mg=mg:Filter(Card.IsCanBeRitualMaterial,tc,tc) + local mat=nil + if ft>0 then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),1,99,tc) + else + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + mat=mg:FilterSelect(tp,Auxiliary.RPEFilter2F,1,1,nil,tp,mg,tc) + Duel.SetSelectedCard(mat) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE) + local mat2=mg:SelectWithSumEqual(tp,Card.GetRitualLevel,tc:GetLevel(),0,99,tc) + mat:Merge(mat2) + end + tc:SetMaterial(mat) + Duel.ReleaseRitualMaterial(mat) + Duel.BreakEffect() + Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP) + tc:CompleteProcedure() + end + end +end +function Auxiliary.AddRitualProcEqual2Code(c,code1) + if not c:IsStatus(STATUS_COPYING_EFFECT) and c.fit_monster==nil then + local code=c:GetOriginalCode() + local mt=_G["c" .. code] + mt.fit_monster={code1} + end + Auxiliary.AddRitualProcEqual2(c,Auxiliary.FilterBoolFunction(Card.IsCode,code1)) +end +function Auxiliary.AddRitualProcEqual2Code2(c,code1,code2) + if not c:IsStatus(STATUS_COPYING_EFFECT) and c.fit_monster==nil then + local code=c:GetOriginalCode() + local mt=_G["c" .. code] + mt.fit_monster={code1,code2} + end + Auxiliary.AddRitualProcEqual2(c,Auxiliary.FilterBoolFunction(Card.IsCode,code1,code2)) +end +--add procedure to Pendulum monster, also allows registeration of activation effect +function Auxiliary.EnablePendulumAttribute(c,reg) + local e1=Effect.CreateEffect(c) + e1:SetType(EFFECT_TYPE_FIELD) + e1:SetCode(EFFECT_SPSUMMON_PROC_G) + e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE) + e1:SetRange(LOCATION_PZONE) + e1:SetCountLimit(1,10000000) + e1:SetCondition(Auxiliary.PendCondition()) + e1:SetOperation(Auxiliary.PendOperation()) + e1:SetValue(SUMMON_TYPE_PENDULUM) + c:RegisterEffect(e1) + --register by default + if reg==nil or reg then + local e2=Effect.CreateEffect(c) + e2:SetDescription(1160) + e2:SetType(EFFECT_TYPE_ACTIVATE) + e2:SetCode(EVENT_FREE_CHAIN) + e2:SetRange(LOCATION_HAND) + c:RegisterEffect(e2) + end +end +function Auxiliary.PConditionFilter(c,e,tp,lscale,rscale) + local lv=0 + if c.pendulum_level then + lv=c.pendulum_level + else + lv=c:GetLevel() + end + return (c:IsLocation(LOCATION_HAND) or (c:IsFaceup() and c:IsType(TYPE_PENDULUM))) + and lv>lscale and lvrscale then lscale,rscale=rscale,lscale end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if ft<=0 then return false end + if og then + return og:IsExists(Auxiliary.PConditionFilter,1,nil,e,tp,lscale,rscale) + else + return Duel.IsExistingMatchingCard(Auxiliary.PConditionFilter,tp,LOCATION_HAND+LOCATION_EXTRA,0,1,nil,e,tp,lscale,rscale) + end + end +end +function Auxiliary.PendOperation() + return function(e,tp,eg,ep,ev,re,r,rp,c,sg,og) + local rpz=Duel.GetFieldCard(tp,LOCATION_SZONE,7) + local lscale=c:GetLeftScale() + local rscale=rpz:GetRightScale() + if lscale>rscale then lscale,rscale=rscale,lscale end + local ft=Duel.GetLocationCount(tp,LOCATION_MZONE) + if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end + local tg=nil + if og then + tg=og:Filter(tp,Auxiliary.PConditionFilter,nil,e,tp,lscale,rscale) + else + tg=Duel.GetMatchingGroup(Auxiliary.PConditionFilter,tp,LOCATION_HAND+LOCATION_EXTRA,0,nil,e,tp,lscale,rscale) + end + local ect=c29724053 and Duel.IsPlayerAffectedByEffect(tp,29724053) and c29724053[tp] + if ect and (ect<=0 or ect>ft) then ect=nil end + if ect==nil or tg:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA)<=ect then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=tg:Select(tp,1,ft,nil) + sg:Merge(g) + else + repeat + local ct=math.min(ft,ect) + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=tg:Select(tp,1,ct,nil) + tg:Sub(g) + sg:Merge(g) + ft=ft-g:GetCount() + ect=ect-g:FilterCount(Card.IsLocation,nil,LOCATION_EXTRA) + until ft==0 or ect==0 or not Duel.SelectYesNo(tp,210) + local hg=tg:Filter(Card.IsLocation,nil,LOCATION_HAND) + if ft>0 and ect==0 and hg:GetCount()>0 and Duel.SelectYesNo(tp,210) then + Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) + local g=hg:Select(tp,1,ft,nil) + sg:Merge(g) + end + end + Duel.HintSelection(Group.FromCards(c)) + Duel.HintSelection(Group.FromCards(rpz)) + end +end +function Auxiliary.IsMaterialListCode(c,code) + if not c.material then return false end + for i,mcode in ipairs(c.material) do + if code==mcode then return true end + end + return false +end +function Auxiliary.IsMaterialListSetCard(c,setcode) + return c.material_setcode and c.material_setcode==setcode +end +function Auxiliary.IsCodeListed(c,code) + if not c.card_code_list then return false end + for i,ccode in ipairs(c.card_code_list) do + if code==ccode then return true end + end + return false +end +--card effect disable filter(target) +function Auxiliary.disfilter1(c) + return c:IsFaceup() and not c:IsDisabled() and (not c:IsType(TYPE_NORMAL) or bit.band(c:GetOriginalType(),TYPE_EFFECT)~=0) +end +--condition of EVENT_BATTLE_DESTROYING +function Auxiliary.bdcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsRelateToBattle() +end +--condition of EVENT_BATTLE_DESTROYING + opponent monster +function Auxiliary.bdocon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:IsRelateToBattle() and c:IsStatus(STATUS_OPPO_BATTLE) +end +--condition of EVENT_BATTLE_DESTROYING + to_grave +function Auxiliary.bdgcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local bc=c:GetBattleTarget() + return c:IsRelateToBattle() and bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER) +end +--condition of EVENT_BATTLE_DESTROYING + opponent monster + to_grave +function Auxiliary.bdogcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + local bc=c:GetBattleTarget() + return c:IsRelateToBattle() and c:IsStatus(STATUS_OPPO_BATTLE) and bc:IsLocation(LOCATION_GRAVE) and bc:IsType(TYPE_MONSTER) +end +--condition of EVENT_TO_GRAVE + destroyed_by_opponent_from_field +function Auxiliary.dogcon(e,tp,eg,ep,ev,re,r,rp) + local c=e:GetHandler() + return c:GetPreviousControler()==tp and c:IsReason(REASON_DESTROY) and rp~=tp +end +--condition of "except the turn this card was sent to the Graveyard" +function Auxiliary.exccon(e) + return Duel.GetTurnCount()~=e:GetHandler():GetTurnID() or e:GetHandler():IsReason(REASON_RETURN) +end +--flag effect for spell counter +function Auxiliary.chainreg(e,tp,eg,ep,ev,re,r,rp) + if e:GetHandler():GetFlagEffect(1)==0 then + e:GetHandler():RegisterFlagEffect(1,RESET_EVENT+0x1fc0000+RESET_CHAIN,0,1) + end +end +--default filter for EFFECT_CANNOT_BE_BATTLE_TARGET +function Auxiliary.imval1(e,c) + return not c:IsImmuneToEffect(e) +end +--filter for EFFECT_CANNOT_BE_EFFECT_TARGET + opponent +function Auxiliary.tgoval(e,re,rp) + return rp~=e:GetHandlerPlayer() +end +--filter for non-zero ATK +function Auxiliary.nzatk(c) + return c:IsFaceup() and c:GetAttack()>0 +end +--filter for non-zero DEF +function Auxiliary.nzdef(c) + return c:IsFaceup() and c:GetDefense()>0 +end +--flag effect for summon/sp_summon turn +function Auxiliary.sumreg(e,tp,eg,ep,ev,re,r,rp) + local tc=eg:GetFirst() + local code=e:GetLabel() + while tc do + if tc:GetOriginalCode()==code then + tc:RegisterFlagEffect(code,RESET_EVENT+0x1ec0000+RESET_PHASE+PHASE_END,0,1) + end + tc=eg:GetNext() + end +end +--sp_summon condition for fusion monster +function Auxiliary.fuslimit(e,se,sp,st) + return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION +end +--sp_summon condition for ritual monster +function Auxiliary.ritlimit(e,se,sp,st) + return bit.band(st,SUMMON_TYPE_RITUAL)==SUMMON_TYPE_RITUAL +end +--sp_summon condition for synchro monster +function Auxiliary.synlimit(e,se,sp,st) + return bit.band(st,SUMMON_TYPE_SYNCHRO)==SUMMON_TYPE_SYNCHRO +end +--sp_summon condition for xyz monster +function Auxiliary.xyzlimit(e,se,sp,st) + return bit.band(st,SUMMON_TYPE_XYZ)==SUMMON_TYPE_XYZ +end +--sp_summon condition for pendulum monster +function Auxiliary.penlimit(e,se,sp,st) + return bit.band(st,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM +end +--effects inflicting damage to tp +function Auxiliary.damcon1(e,tp,eg,ep,ev,re,r,rp) + local e1=Duel.IsPlayerAffectedByEffect(tp,EFFECT_REVERSE_DAMAGE) + local e2=Duel.IsPlayerAffectedByEffect(tp,EFFECT_REVERSE_RECOVER) + local rd=e1 and not e2 + local rr=not e1 and e2 + local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_DAMAGE) + if ex and (cp==tp or cp==PLAYER_ALL) and not rd and not Duel.IsPlayerAffectedByEffect(tp,EFFECT_NO_EFFECT_DAMAGE) then + return true + end + ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_RECOVER) + return ex and (cp==tp or cp==PLAYER_ALL) and rr and not Duel.IsPlayerAffectedByEffect(tp,EFFECT_NO_EFFECT_DAMAGE) +end +--filter for the immune effect of qli monsters +function Auxiliary.qlifilter(e,te) + if te:IsActiveType(TYPE_MONSTER) and te:IsActivated() then + local lv=e:GetHandler():GetLevel() + local ec=te:GetOwner() + if ec:IsType(TYPE_XYZ) then + return ec:GetOriginalRank() - - - - - - - - - - - - - - - - - - - - - - --> - --> - --> - --> - --> - --> - --> - --> - --> - --> - --> - --> - --> - --> - --> - --> - --> - --> - --> - --> - --> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/strings.conf b/strings.conf index 0d836aa4..89c88f1c 100644 --- a/strings.conf +++ b/strings.conf @@ -20,6 +20,7 @@ !system 26 End Phase !system 27 Before the Draw !system 28 Start Step of Battle Phase +!system 29 End Step of Battle Phase !system 30 Replay, do you want to continue the Battle? !system 31 Do you want to Attack Directly? !system 40 Damage Step @@ -219,7 +220,7 @@ !system 1157 Attack !system 1158 View !system 1159 S/T Set -!system 1160 在灵摆区域发动 +!system 1160 Put in Pendulum Zone #menu !system 1200 LAN Mode !system 1201 Puzzle Mode @@ -277,6 +278,9 @@ !system 1281 Custom !system 1290 Mute opponent !system 1291 Mute spectators +!system 1292 Ignore chain +!system 1293 Always chain +!system 1294 Available !system 1300 Ban List: !system 1301 Deck: !system 1302 Save @@ -303,12 +307,17 @@ !system 1326 Effect !system 1327 Search !system 1328 Filter results +!system 1329 Series： !system 1330 Deck: !system 1331 Extra: !system 1332 Side: !system 1333 Results: !system 1334 Side decking completed !system 1335 Saved successfully +!system 1336 Scale： +!system 1337 Delete deck? +!system 1338 Deleted successfully +!system 1339 Clear deck？ !system 1340 Save Replay: !system 1341 Save !system 1342 Replays: @@ -323,6 +332,13 @@ !system 1351 Surrender !system 1352 Main message： !system 1353 Start at turn： +!system 1354 Hide set names +!system 1355 Hide chain buttons +!system 1360 Previous +!system 1370 Level↑ +!system 1371 ATK↑ +!system 1372 DEF↑ +!system 1373 Name↓ !system 1390 Waiting... !system 1391 Waiting.... !system 1392 Waiting..... @@ -378,6 +394,7 @@ !system 2017 Main !system 2023 About #mod strings +!system 1991 New cards log !system 1992 Update log !system 1993 AI decks !system 1994 Show locked rooms @@ -507,6 +524,10 @@ !counter 0x36 Kaiju Counter !counter 0x3036 Performage Counter !counter 0x37 Kaiju Counter +!counter 0x1038 Cubic Counter +!counter 0x1039 Zushin Counter +!counter 0x40 Counter(Number 51: Finish Hold the Amazing) +!counter 0x1041 Predator Counter !counter 0x90 Maiden Counter !counter 0x91 Speed Counter !counter 0x92 Plasma Counter diff --git a/system.conf b/system.conf index b21a6ddd..91334c45 100644 --- a/system.conf +++ b/system.conf @@ -3,12 +3,12 @@ #language is one of the folders in /language language = en use_d3d = 0 -use_skin = 0 +use_skin = 1 antialias = 0 -errorlog = 1 -nickname = Yugi -gamename = ygopro -lastdeck = +errorlog = 0 +nickname = Player +gamename = AIduel +lastdeck = Starter2016 lastdeckai = [Random deck] lastscriptai = ai.lua textfont = fonts/simhei.ttf 14 @@ -17,16 +17,17 @@ serverport = 7911 lastip = 127.0.0.1 lastport = 7911 fullscreen = 0 -enable_sound = 0 -enable_music = 0 +enable_sound = 1 +enable_music = 1 auto_card_placing = 1 random_card_placing = 0 -auto_chain_order = 1 +auto_chain_order = 0 no_delay_for_chain = 0 +hide_chain_button = 1 mute_opponent = 0 mute_spectators = 0 #volume music is value from 0 to 100 -volume = 8 +volume = 50 alignment_fix = 0 show_anime = 0 ignore_instant_updates = 0 diff --git a/textures/bg.ogv b/textures/bg.ogv new file mode 100644 index 00000000..0e5ef32d Binary files /dev/null and b/textures/bg.ogv differ diff --git a/textures/roombrowser/flag-eu.jpg b/textures/roombrowser/flag-eu.jpg deleted file mode 100644 index 6ab32f27..00000000 Binary files a/textures/roombrowser/flag-eu.jpg and /dev/null differ diff --git a/textures/roombrowser/flag-usa.jpg b/textures/roombrowser/flag-usa.jpg deleted file mode 100644 index b518f258..00000000 Binary files a/textures/roombrowser/flag-usa.jpg and /dev/null differ diff --git a/textures/ygopro.ico b/textures/ygopro.ico new file mode 100644 index 00000000..82a7f685 Binary files /dev/null and b/textures/ygopro.ico differ diff --git a/ygopro b/ygopro new file mode 100755 index 00000000..9c76031b Binary files /dev/null and b/ygopro differ diff --git a/ygopro.sh b/ygopro.sh index f9011ecb..3d40efd5 100755 --- a/ygopro.sh +++ b/ygopro.sh @@ -1,7 +1,3 @@ #!/bin/bash cd /opt/ygopro -if [ -d /lib64 ]; then - LD_PRELOAD="libcurl.so.3" ./ygopro64 -else - LD_PRELOAD="libcurl.so.3" ./ygopro32 -fi +LD_PRELOAD="libcurl.so.3" ./ygopro diff --git a/ygopro32 b/ygopro32 deleted file mode 100755 index bfcd8bf3..00000000 Binary files a/ygopro32 and /dev/null differ diff --git a/ygopro64 b/ygopro64 deleted file mode 100755 index 73bc802c..00000000 Binary files a/ygopro64 and /dev/null differ